Changeset 10986 for NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/ASM/asmbkg.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/ASM/asmbkg.F90 (modified) (3 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