Changeset 10986 for NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/TRD/trdvor.F90

Timestamp:

2019-05-16T15:23:56+02:00 (5 years ago)

Author:

andmirek

Message:

GMED 462 add flush

File:

• NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/TRD/trdvor.F90 (modified) (9 diffs)

NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/TRD/trdvor.F90

@@ -200 +200 @@
 
       IF( ndebug /= 0 ) THEN
-         IF(lwp) WRITE(numout,*) ' debuging trd_vor_zint: I done'
-         CALL FLUSH(numout)
+         IF(lwp) THEN
+            WRITE(numout,*) ' debuging trd_vor_zint: I done'
+            IF(lflush) CALL FLUSH(numout)
+         ENDIF
       ENDIF
       !
@@ -291 +293 @@
    
       IF( ndebug /= 0 ) THEN
-         IF(lwp) WRITE(numout,*) ' debuging trd_vor_zint: I done'
-         CALL FLUSH(numout)
+         IF(lwp) THEN
+            WRITE(numout,*) ' debuging trd_vor_zint: I done'
+            IF(lflush) CALL FLUSH(numout)
+         ENDIF
       ENDIF
       !
@@ -416 +420 @@
             WRITE(numout,*) 'trd_vor : write trends in the NetCDF file at kt = ', kt
             WRITE(numout,*) '~~~~~~~  '
+            IF(lflush) CALL FLUSH(numout)
          ENDIF
  
@@ -434 +439 @@
          IF( ndebug /= 0 ) THEN
             WRITE(numout,*) ' debuging trd_vor: III.4 done'
-            CALL FLUSH(numout)
+            IF(lflush) CALL FLUSH(numout)
          ENDIF
          !
@@ -477 +482 @@
          WRITE(numout,*) '               ##########################################################################'
          WRITE(numout,*) ' '
+         IF(lflush) CALL FLUSH(numout)
       ENDIF
 
@@ -490 +496 @@
       IF( ndebug /= 0 ) THEN
          WRITE(numout,*) ' debuging trd_vor_init: I. done'
-         CALL FLUSH(numout)
+         IF(lflush) CALL FLUSH(numout)
       ENDIF
 
@@ -512 +518 @@
       zout = nn_trd*rdt
 
-      IF(lwp) WRITE(numout,*) '               netCDF initialization'
+      IF(lwp) THEN
+         WRITE(numout,*) '               netCDF initialization'
+         IF(lflush) CALL FLUSH(numout)
+      ENDIF
 
       ! II.2 Compute julian date from starting date of the run
@@ -518 +527 @@
       CALL ymds2ju( nyear, nmonth, nday, rdt, zjulian )
       zjulian = zjulian - adatrj   !   set calendar origin to the beginning of the experiment
-      IF(lwp) WRITE(numout,*)' '  
-      IF(lwp) WRITE(numout,*)'               Date 0 used :',nit000,    &
+      IF(lwp) THEN
+         WRITE(numout,*)' '  
+         WRITE(numout,*)'               Date 0 used :',nit000,    &
          &                   ' YEAR ', nyear,' MONTH '      , nmonth,   &
          &                   ' DAY ' , nday, 'Julian day : ', zjulian
+         IF(lflush) CALL FLUSH(numout)
+      ENDIF
 
       ! II.3 Define the T grid trend file (nidvor)
       ! ---------------------------------
       CALL dia_nam( clhstnam, nn_trd, 'vort' )                  ! filename
-      IF(lwp) WRITE(numout,*) ' Name of NETCDF file ', clhstnam
+      IF(lwp) THEN
+         WRITE(numout,*) ' Name of NETCDF file ', clhstnam
+         IF(lflush) CALL FLUSH(numout)
+      ENDIF
       CALL histbeg( clhstnam, jpi, glamf, jpj, gphif,1, jpi,   &  ! Horizontal grid : glamt and gphit
          &          1, jpj, nit000-1, zjulian, rdt, nh_t, nidvor, domain_id=nidom, snc4chunks=snc4set )
@@ -562 +577 @@
       IF( ndebug /= 0 ) THEN
          WRITE(numout,*) ' debuging trd_vor_init: II. done'
-         CALL FLUSH(numout)
+         IF(lflush) CALL FLUSH(numout)
       ENDIF
       !