Changeset 10774 for branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/stpctl.F90

Timestamp:

2019-03-19T12:32:19+01:00 (5 years ago)

Author:

andmirek

Message:

GMED 450 add flush after prints

File:

• branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/stpctl.F90 (modified) (9 diffs)

branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/stpctl.F90

@@ -71 +71 @@
          WRITE(numout,*) 'stp_ctl : time-stepping control'
          WRITE(numout,*) '~~~~~~~'
+         IF(lflush) CALL flush(numout)
          ! open time.step file with special treatment for SAS
          IF ( nn_components == jp_iam_sas ) THEN
@@ -99 +100 @@
       IF( lk_mpp )   CALL mpp_max( zumax )                 ! max over the global domain
       !
-      IF( ll_colruns )   WRITE(numout,*) ' ==>> time-step= ',kt,' abs(U) max: ', zumax
+      IF( ll_colruns )   THEN
+         WRITE(numout,*) ' ==>> time-step= ',kt,' abs(U) max: ', zumax
+         IF(lflush) CALL flush(numout)
+      ENDIF
       !
       IF( zumax > 20.e0 ) THEN
@@ -117 +121 @@
             WRITE(numout,*)
             WRITE(numout,*) '          output of last fields in numwso'
+            IF(lflush) CALL flush(numout)
          ENDIF
          kindic = -3
@@ -133 +138 @@
       IF( lk_mpp )   CALL mpp_min( zsmin )                ! min over the global domain
       !
-      IF( MOD( kt, nwrite ) == 1 .AND. lwp )   WRITE(numout,*) ' ==>> time-step= ',kt,' SSS min:', zsmin
+      IF( MOD( kt, nwrite ) == 1 .AND. lwp )   THEN
+         WRITE(numout,*) ' ==>> time-step= ',kt,' SSS min:', zsmin
+         IF(lflush) CALL flush(numout)
+      ENDIF
       !
       IF( zsmin < 0.) THEN 
@@ -188 +196 @@
             WRITE(numout,9600) kt, ztmax, ii, ij
             WRITE(numout,*) 'stp_ctl:tracer anomaly: ***** END OF WARNING *****'
+            IF(lflush) CALL flush(numout)
          ENDIF
       ENDIF
@@ -205 +214 @@
             WRITE(numout,9700) kt, ztmin, ii, ij
             WRITE(numout,*) 'stp_ctl:tracer anomaly: ***** END OF WARNING *****'
+            IF(lflush) CALL flush(numout)
          ENDIF
       ENDIF
@@ -218 +228 @@
       IF( lk_dynspg_flt ) THEN      ! elliptic solver statistics (if required)
          !
-         IF(ll_wrtruns) WRITE(numsol,9200) kt, niter, res, SQRT(epsr)/eps       ! Solver
+         IF(ll_wrtruns) THEN
+            WRITE(numsol,9200) kt, niter, res, SQRT(epsr)/eps       ! Solver
+            IF(lflush) CALL flush(numsol)
+         ENDIF
          !
          IF( kindic < 0 .AND. zsmin > 0.e0 .AND. zumax <= 20.e0 ) THEN   ! create a abort file if problem found 
@@ -228 +241 @@
                WRITE(numout,*) ' stpctl: output of last fields'
                WRITE(numout,*) ' ======  '
+               IF(lflush) CALL flush(numout)
             ENDIF
          ENDIF
@@ -241 +255 @@
          !
             WRITE(numsol,9300) kt, zssh2, zumax, zsmin      ! ssh statistics
+            IF(lflush) CALL flush(numsol)
          ENDIF
          !