Changeset 10986 for NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/TRD/trdglo.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/trdglo.F90 (modified) (9 diffs)

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

@@ -282 +282 @@
             WRITE (numout,9513) umo(jpdyn_tau) / tvolu, vmo(jpdyn_tau) / tvolv
 !!gm            IF( ln_drgimp )   WRITE (numout,9514) umo(jpdyn_bfri) / tvolu, vmo(jpdyn_bfri) / tvolv
+            IF(lflush) CALL FLUSH(numout)
          ENDIF
 
@@ -321 +322 @@
             WRITE (numout,9533) hke(jpdyn_tau) / tvolt
 !!gm            IF( ln_drgimp )   WRITE (numout,9534) hke(jpdyn_bfri) / tvolt
+            IF(lflush) CALL FLUSH(numout)
          ENDIF
 
@@ -353 +355 @@
             WRITE (numout,*)
             WRITE (numout,*)
+            IF(lflush) CALL FLUSH(numout)
          ENDIF
 
@@ -419 +422 @@
             &                   (  smo(jptra_xad) + smo(jptra_yad) + smo(jptra_zad) + smo(jptra_ldf) + smo(jptra_zdf)   &
             &                    + smo(jptra_npc) + smo(jptra_dmp)                   + smo(jptra_nsr) ) / tvolt
+            IF(lflush) CALL FLUSH(numout)
          ENDIF
 
@@ -454 +458 @@
             &                   (  s2(jptra_xad) + s2(jptra_yad) + s2(jptra_zad) + s2(jptra_ldf) + s2(jptra_zdf)   &
             &                    + s2(jptra_npc) + s2(jptra_dmp)                  + s2(jptra_nsr) ) / tvolt
+            IF(lflush) CALL FLUSH(numout)
          ENDIF
 
@@ -486 +491 @@
             WRITE (numout,9448)   t2(jptra_zdf)/tvolt,   s2(jptra_zdf)/tvolt
             WRITE (numout,9449)   t2(jptra_npc)/tvolt,   s2(jptra_npc)/tvolt
+            IF(lflush) CALL FLUSH(numout)
          ENDIF
 
@@ -519 +525 @@
          WRITE(numout,*) 'trd_glo_init : integral constraints properties trends'
          WRITE(numout,*) '~~~~~~~~~~~~~'
+         IF(lflush) CALL FLUSH(numout)
       ENDIF
 
@@ -528 +535 @@
       CALL mpp_sum( 'trdglo', tvolt )   ! sum over the global domain
 
-      IF(lwp) WRITE(numout,*) '                total ocean volume at T-point   tvolt = ',tvolt
+      IF(lwp) THEN
+         WRITE(numout,*) '                total ocean volume at T-point   tvolt = ',tvolt
+         IF(lflush) CALL FLUSH(numout)
+      ENDIF
 
       ! Initialization of potential to kinetic energy conversion
@@ -552 +562 @@
          WRITE(numout,*) '                total ocean volume at U-point   tvolu = ',tvolu
          WRITE(numout,*) '                total ocean volume at V-point   tvolv = ',tvolv
+         IF(lflush) CALL FLUSH(numout)
       ENDIF
       !