Changeset 10774 for branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_mle.F90
- Timestamp:
- 2019-03-19T12:32:19+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_mle.F90
r10759 r10774 306 306 WRITE(numout,*) ' =1 no MLE in case of convection ; =0 always MLE nn_conv = ', nn_conv 307 307 WRITE(numout,*) ' Density difference used to define ML for FK rn_rho_c_mle = ', rn_rho_c_mle 308 IF(lflush) CALL flush(numout) 308 309 ENDIF 309 310 ! … … 317 318 WRITE(numout,*) ' Mixed Layer Eddy parametrisation NOT used' 318 319 ENDIF 320 321 IF(lflush) CALL flush(numout) 322 319 323 ENDIF 320 324 ! … … 325 329 IF(lwp) WRITE(numout,*) ' ML buoyancy criteria = ', rb_c, ' m/s2 ' 326 330 IF(lwp) WRITE(numout,*) ' associated ML density criteria defined in zdfmxl = ', rho_c, 'kg/m3' 331 IF(lwp .AND. lflush) CALL flush(numout) 327 332 ! 328 333 IF( nn_mle == 0 ) THEN ! MLE array allocation & initialisation
Note: See TracChangeset
for help on using the changeset viewer.