Changeset 12489 for NEMO/trunk/src/ABL/sbcabl.F90
- Timestamp:
- 2020-02-28T16:55:11+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/ABL/sbcabl.F90
r12353 r12489 202 202 203 203 ! ABL timestep 204 r dt_abl = nn_fsbc * rdt204 rDt_abl = nn_fsbc * rn_Dt 205 205 206 206 ! Check parameters for dynamics 207 207 zcff = ( jp_alp3_dyn * jp_bmin**3 + jp_alp2_dyn * jp_bmin**2 & 208 & + jp_alp1_dyn * jp_bmin + jp_alp0_dyn ) * r dt_abl208 & + jp_alp1_dyn * jp_bmin + jp_alp0_dyn ) * rDt_abl 209 209 zcff1 = ( jp_alp3_dyn * jp_bmax**3 + jp_alp2_dyn * jp_bmax**2 & 210 & + jp_alp1_dyn * jp_bmax + jp_alp0_dyn ) * r dt_abl210 & + jp_alp1_dyn * jp_bmax + jp_alp0_dyn ) * rDt_abl 211 211 IF(lwp) THEN 212 212 IF(nn_dyn_restore > 0) THEN … … 225 225 ! Check parameters for active tracers 226 226 zcff = ( jp_alp3_tra * jp_bmin**3 + jp_alp2_tra * jp_bmin**2 & 227 & + jp_alp1_tra * jp_bmin + jp_alp0_tra ) * r dt_abl227 & + jp_alp1_tra * jp_bmin + jp_alp0_tra ) * rDt_abl 228 228 zcff1 = ( jp_alp3_tra * jp_bmax**3 + jp_alp2_tra * jp_bmax**2 & 229 & + jp_alp1_tra * jp_bmax + jp_alp0_tra ) * r dt_abl229 & + jp_alp1_tra * jp_bmax + jp_alp0_tra ) * rDt_abl 230 230 IF(lwp) THEN 231 231 WRITE(numout,*) ' ABL Minimum value for tracers restoring = ',zcff
Note: See TracChangeset
for help on using the changeset viewer.