Changeset 15004 for NEMO/trunk/src/TOP
- Timestamp:
- 2021-06-16T12:33:18+02:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/TOP/trcais.F90
r14118 r15004 184 184 DO_2D( 1, 1, 1, 1 ) 185 185 IF( ln_isfpar_mlt ) THEN 186 zcalv = -fwfisf_par(ji,jj) * r1_rho0 / rhisf_tbl_par(ji,jj)186 zcalv = fwfisf_par(ji,jj) * r1_rho0 / rhisf_tbl_par(ji,jj) 187 187 ikt = misfkt_par(ji,jj) 188 188 ikb = misfkb_par(ji,jj) … … 190 190 END IF 191 191 IF( ln_isfcav_mlt ) THEN 192 zcalv = -fwfisf_cav(ji,jj) * r1_rho0 / rhisf_tbl_cav(ji,jj)192 zcalv = fwfisf_cav(ji,jj) * r1_rho0 / rhisf_tbl_cav(ji,jj) 193 193 ikt = misfkt_cav(ji,jj) 194 194 ikb = misfkb_cav(ji,jj)
Note: See TracChangeset
for help on using the changeset viewer.