Changeset 10774 for branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfmxl.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/ZDF/zdfmxl.F90
r10759 r10774 108 108 IF(lwp) WRITE(numout,*) 'zdf_mxl : mixed layer depth' 109 109 IF(lwp) WRITE(numout,*) '~~~~~~~ ' 110 IF(lflush) CALL flush(numout) 110 111 ! ! allocate zdfmxl arrays 111 112 IF( zdf_mxl_alloc() /= 0 ) CALL ctl_stop( 'STOP', 'zdf_mxl : unable to allocate arrays' ) … … 396 397 END DO 397 398 END DO 398 WRITE(numout,*) 'zthick_0(jk =',jk,') =',zthick_0(2,2) 399 WRITE(numout,*) 'fsdepw(jk+1 =',jk+1,') =',fsdepw(2,2,jk+1) 399 IF(lwp) THEN 400 WRITE(numout,*) 'zthick_0(jk =',jk,') =',zthick_0(2,2) 401 WRITE(numout,*) 'fsdepw(jk+1 =',jk+1,') =',fsdepw(2,2,jk+1) 402 ENDIF 400 403 END DO 404 405 IF(lflush) CALL flush(numout) 401 406 402 407 ! Surface boundary condition … … 429 434 END DO 430 435 431 WRITE(numout,*) 'htc_mld(after) =',htc_mld(2,2) 436 IF(lwp) WRITE(numout,*) 'htc_mld(after) =',htc_mld(2,2) 437 IF(lwp .AND. lflush) CALL flush(numout) 432 438 433 439 ! Convert to heat content … … 491 497 END DO 492 498 WRITE(numout,*) '====================================================================' 499 IF(lflush) CALL flush(numout) 493 500 ENDIF 494 501 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.