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

NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/DOM/domain.F90

@@ -112 +112 @@
          WRITE(numout,*)     '      Ocean model configuration used:'
          WRITE(numout,*)     '         cn_cfg = ', TRIM( cn_cfg ), '   nn_cfg = ', nn_cfg
+         IF(lflush) CALL FLUSH(numout)
       ENDIF
       lwxios = .FALSE.
@@ -129 +130 @@
       IF(cdstr == 'SAS') THEN
          IF(lrxios) THEN
-               IF(lwp) write(numout,*) 'Disable reading restart file using XIOS for SAS'
+               IF(lwp) THEN
+                  write(numout,*) 'Disable reading restart file using XIOS for SAS'
+                  IF(lflush) CALL FLUSH(numout)
+               ENDIF
                lrxios = .FALSE.
          ENDIF
@@ -203 +207 @@
          WRITE(numout,*) '~~~~~~~~'
          WRITE(numout,*) 
+         IF(lflush) CALL FLUSH(numout)
       ENDIF
       !
@@ -268 +273 @@
             WRITE(numout,25)              (mj1(jj),jj = 1,jpjglo)
          ENDIF
+         IF(lflush) CALL FLUSH(numout)
       ENDIF
  25   FORMAT( 100(10x,19i4,/) )
@@ -303 +309 @@
          WRITE(numout,*) 'dom_nam : domain initialization through namelist read'
          WRITE(numout,*) '~~~~~~~ '
+         IF(lflush) CALL FLUSH(numout)
       ENDIF
       !
@@ -349 +356 @@
             WRITE(numout,*) "      AGRIF: ln_xios_read will be ingored. See setting for parent"
          ENDIF
+         IF(lflush) CALL FLUSH(numout)
       ENDIF
 
@@ -363 +371 @@
       neuler = nn_euler
       IF( neuler == 1 .AND. .NOT. ln_rstart ) THEN
-         IF(lwp) WRITE(numout,*)  
-         IF(lwp) WRITE(numout,*)'   ==>>>   Start from rest (ln_rstart=F)'
-         IF(lwp) WRITE(numout,*)'           an Euler initial time step is used : nn_euler is forced to 0 '   
+         IF(lwp) THEN
+            WRITE(numout,*)  
+            WRITE(numout,*)'   ==>>>   Start from rest (ln_rstart=F)'
+            WRITE(numout,*)'           an Euler initial time step is used : nn_euler is forced to 0 '   
+            IF(lflush) CALL FLUSH(numout)
+         ENDIF
          neuler = 0
       ENDIF
@@ -383 +394 @@
       IF( Agrif_Root() ) THEN
 #endif
-      IF(lwp) WRITE(numout,*)
+      IF(lwp) THEN
+         WRITE(numout,*)
+         IF(lflush) CALL FLUSH(numout)
+      ENDIF
       SELECT CASE ( nleapy )        ! Choose calendar for IOIPSL
       CASE (  1 ) 
@@ -395 +409 @@
          IF(lwp) WRITE(numout,*) '   ==>>>   The IOIPSL calendar is "360d", i.e. 360 days in a year'
       END SELECT
+      IF(lflush .AND. lwp) CALL FLUSH(numout)
 #if defined key_agrif
       ENDIF
@@ -416 +431 @@
          WRITE(numout,*) '      asselin time filter parameter           rn_atfp     = ', rn_atfp
          WRITE(numout,*) '      online coarsening of dynamical fields   ln_crs      = ', ln_crs
+         IF(lflush) CALL FLUSH(numout)
       ENDIF
       !
@@ -446 +462 @@
          WRITE(numout,*) '      number of chunks in k-dimension             nn_nchunks_k = ', nn_nchunks_k
          WRITE(numout,*) '      apply netcdf4/hdf5 chunking & compression   ln_nc4zip    = ', ln_nc4zip
+         IF(lflush) CALL FLUSH(numout)
       ENDIF
 
@@ -506 +523 @@
          WRITE(numout,"(14x,'e2t maxi: ',1f10.2,' at i = ',i5,' j= ',i5)") ze2max, ima2(1), ima2(2)
          WRITE(numout,"(14x,'e2t mini: ',1f10.2,' at i = ',i5,' j= ',i5)") ze2min, imi2(1), imi2(2)
+         IF(lflush) CALL FLUSH(numout)
       ENDIF
       !
@@ -597 +615 @@
       !!----------------------------------------------------------------------
       !
-      IF(lwp) WRITE(numout,*)
-      IF(lwp) WRITE(numout,*) 'cfg_write : create the domain configuration file (', TRIM(cn_domcfg_out),'.nc)'
-      IF(lwp) WRITE(numout,*) '~~~~~~~~~'
+      IF(lwp) THEN
+         WRITE(numout,*)
+         WRITE(numout,*) 'cfg_write : create the domain configuration file (', TRIM(cn_domcfg_out),'.nc)'
+         WRITE(numout,*) '~~~~~~~~~'
+         IF(lflush) CALL FLUSH(numout)
+      ENDIF
       !
       !                       ! ============================= !