Changeset 10986 for NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/ASM

Timestamp:

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

Author:

andmirek

Message:

GMED 462 add flush

Location:

NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/ASM

Files:

• asmbkg.F90 (modified) (3 diffs)
• asminc.F90 (modified) (10 diffs)

NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/ASM/asmbkg.F90

@@ -82 +82 @@
          !
          IF( .NOT. llok ) THEN
-            IF(lwp) WRITE(numout,*) ' Setting up assimilation background file '// TRIM( c_asmbkg )
+            IF(lwp) THEN
+               WRITE(numout,*) ' Setting up assimilation background file '// TRIM( c_asmbkg )
+               IF(lflush) CALL FLUSH(numout)
+            ENDIF
             !
             !                                      ! Define the output file        
@@ -90 +93 @@
                zdate = REAL( ndastp )
                IF( ln_zdftke ) THEN                   ! read turbulent kinetic energy ( en )
-                  IF(lwp) WRITE(numout,*) ' Reading TKE (en) from restart...'
+                  IF(lwp) THEN
+                     WRITE(numout,*) ' Reading TKE (en) from restart...'
+                     IF(lflush) CALL FLUSH(numout)
+                  ENDIF
                   CALL tke_rst( nit000, 'READ' )
                ENDIF
@@ -120 +126 @@
          !
          IF( .NOT. llok ) THEN
-            IF(lwp) WRITE(numout,*) ' Setting up assimilation background file '// TRIM( c_asmdin )
+            IF(lwp) THEN
+               WRITE(numout,*) ' Setting up assimilation background file '// TRIM( c_asmdin )
+               IF(lflush) CALL FLUSH(numout)
+            ENDIF
             !
             !                                      ! Define the output file        

NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/ASM/asminc.F90

@@ -173 +173 @@
          WRITE(numout,*) '      Logical switch for ensuring that the sa > salfixmin      ln_salfix = ', ln_salfix
          WRITE(numout,*) '      Minimum salinity after applying the increments           salfixmin = ', salfixmin
+         IF(lflush) CALL FLUSH(numout)
       ENDIF
 
@@ -209 +210 @@
          WRITE(numout,*) '       ditiaustr_date = ', ditiaustr_date
          WRITE(numout,*) '       ditiaufin_date = ', ditiaufin_date
+         IF(lflush) CALL FLUSH(numout)
       ENDIF
 
@@ -311 +313 @@
              WRITE(numout,*) '         Time-integrated weight = ', ztotwgt
              WRITE(numout,*) '         ==================================='
+             IF(lflush) CALL FLUSH(numout)
           ENDIF
          
@@ -347 +350 @@
             WRITE(numout,*) 'asm_inc_init : Assimilation increments valid between dates ', z_inc_dateb,' and ', z_inc_datef
             WRITE(numout,*) '~~~~~~~~~~~~'
+            IF(lflush) CALL FLUSH(numout)
          ENDIF
          !
@@ -462 +466 @@
             WRITE(numout,*) '   ==>>>  Assimilation background state valid at : ', zdate_bkg
             WRITE(numout,*)
+            IF(lflush) CALL FLUSH(numout)
          ENDIF
          !
@@ -491 +496 @@
       ENDIF
       !
-      IF(lwp) WRITE(numout,*) '   ==>>>   Euler time step switch is ', neuler
+      IF(lwp) THEN
+         WRITE(numout,*) '   ==>>>   Euler time step switch is ', neuler
+         IF(lflush) CALL FLUSH(numout)
+      ENDIF
       !
       IF( lk_asminc ) THEN                            !==  data assimilation  ==!
@@ -542 +550 @@
                WRITE(numout,*) 'tra_asm_inc : Tracer IAU at time step = ', kt,' with IAU weight = ', wgtiau(it)
                WRITE(numout,*) '~~~~~~~~~~~~'
+               IF(lflush) CALL FLUSH(numout)
             ENDIF
             !
@@ -657 +666 @@
                WRITE(numout,*) 'dyn_asm_inc : Dynamics IAU at time step = ', kt,' with IAU weight = ', wgtiau(it)
                WRITE(numout,*) '~~~~~~~~~~~~'
+               IF(lflush) CALL FLUSH(numout)
             ENDIF
             !
@@ -728 +738 @@
                   &  kt,' with IAU weight = ', wgtiau(it)
                WRITE(numout,*) '~~~~~~~~~~~~'
+               IF(lflush) CALL FLUSH(numout)
             ENDIF
             !
@@ -845 +856 @@
                WRITE(numout,*) 'seaice_asm_inc : sea ice conc IAU at time step = ', kt,' with IAU weight = ', wgtiau(it)
                WRITE(numout,*) '~~~~~~~~~~~~'
+               IF(lflush) CALL FLUSH(numout)
             ENDIF
             !