- Timestamp:
- 2019-06-11T16:10:28+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_mle.F90
r6486 r11101 290 290 READ ( numnam_cfg, namtra_adv_mle, IOSTAT = ios, ERR = 902 ) 291 291 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_adv_mle in configuration namelist', lwp ) 292 IF(lwm ) WRITE ( numond, namtra_adv_mle )292 IF(lwm .AND. nprint > 2) WRITE ( numond, namtra_adv_mle ) 293 293 294 294 IF(lwp) THEN ! Namelist print … … 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.