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

NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/STO/stopar.F90

@@ -275 +275 @@
             WRITE(numout,*) 'sto_par_init : NO use of stochastic parameterization'
             WRITE(numout,*) '~~~~~~~~~~~~'
+            IF(lflush) CALL FLUSH(numout)
          ENDIF
          RETURN
@@ -327 +328 @@
          ! WRITE(numout,*) '      passes of Laplacian filter              nn_trc_flt    = ', nn_trc_flt
          ! WRITE(numout,*) '      limitation factor                       rn_trc_lim    = ', rn_trc_lim
-
-      ENDIF
-
-      IF(lwp) WRITE(numout,*)
-      IF(lwp) WRITE(numout,*) '   stochastic parameterization :'
-
+         WRITE(numout,*)
+         WRITE(numout,*) '   stochastic parameterization :'
+         IF(lflush) CALL FLUSH(numout)
+      ENDIF
       ! Set number of 2D stochastic arrays
       jpsto2d = 0
@@ -388 +387 @@
          jsto_trd  = jpsto3d
       ENDIF
+      IF(lwp .AND. lflush) CALL FLUSH(numout)
 
       ! Allocate 2D stochastic arrays
@@ -698 +698 @@
             WRITE(numout,*) 'sto_rst_read : read stochastic parameters from restart file'
             WRITE(numout,*) '~~~~~~~~~~~~'
+            IF(lflush) CALL FLUSH(numout)
          ENDIF
 
@@ -758 +759 @@
                WRITE(numout,*) 'sto_rst_write : write stochastic parameters in restart file'
                WRITE(numout,*) '~~~~~~~~~~~~~'
+               IF(lflush) CALL FLUSH(numout)
             ENDIF
          ENDIF
@@ -804 +806 @@
                   WRITE(numout,*) '             kt = '             , kt
                ENDIF
+               IF(lflush) CALL FLUSH(numout)
             ENDIF
             ! open the restart file