- 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/DIA/diawri.F90
r10020 r11101 462 462 INTEGER, INTENT( in ) :: kt ! ocean time-step index 463 463 !! 464 LOGICAL :: ll_print = .FALSE. ! =T print and flush numout465 464 CHARACTER (len=40) :: clhstnam, clop, clmx ! local names 466 465 INTEGER :: inum = 11 ! temporary logical unit … … 489 488 ! ----------------- 490 489 491 ! local variable for debugging492 ll_print = .FALSE.493 ll_print = ll_print .AND. lwp494 495 490 ! Define frequency of output and means 496 491 zdt = rdt … … 532 527 IF(lwp)WRITE(numout,*) ' indexes of zoom = ', iimi, iima, ijmi, ijma, & 533 528 ' limit storage in depth = ', ipk 534 529 535 530 ! WRITE root name in date.file for use by postpro 536 531 IF(lwp) THEN … … 806 801 CALL histend( nid_W, snc4chunks=snc4set ) 807 802 808 IF(lwp) WRITE(numout,*) 809 IF(lwp) WRITE(numout,*) 'End of NetCDF Initialization' 810 IF(ll_print) CALL FLUSH(numout ) 803 IF(lwp) THEN 804 WRITE(numout,*) 805 WRITE(numout,*) 'End of NetCDF Initialization' 806 IF(lflush) CALL flush(numout) 807 ENDIF 811 808 812 809 ENDIF … … 987 984 ! 988 985 IF( nn_timing == 1 ) CALL timing_stop('dia_wri') 986 ! 987 IF(lwp .AND. lflush) CALL flush(numout) 989 988 ! 990 989 END SUBROUTINE dia_wri
Note: See TracChangeset
for help on using the changeset viewer.