Changeset 10774 for branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/LBC/mppini.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/LBC/mppini.F90 (modified) (8 diffs)

branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/LBC/mppini.F90

@@ -73 +73 @@
          WRITE(numout,*) '         nimpp  = ', nimpp
          WRITE(numout,*) '         njmpp  = ', njmpp
+         IF(lflush) CALL flush(numout)
       ENDIF
 
@@ -137 +138 @@
       IF(lwp) WRITE(numout,*) 'mpp_init : Message Passing MPI'
       IF(lwp) WRITE(numout,*) '~~~~~~~~'
+      IF(lflush) CALL flush(numout)
 
 
@@ -287 +289 @@
       IF(lwp) WRITE(numout,*)' sum ilcit(1,j)=', zjdom, ' jpjglo=', jpjglo
       IF(lwp) WRITE(numout,*)
+      IF(lwp .AND. lflush) CALL flush(numout)
 
       IF(lwp .AND. nprint>1) THEN
@@ -305 +308 @@
             il1 = il1+ifreq
          END DO
+         IF(lflush) CALL flush(numout)
+      ENDIF
  9200     FORMAT('     ***',20('*************',a3))
  9203     FORMAT('     *     ',20('         *   ',a3))
@@ -310 +315 @@
  9202     FORMAT(' ',i3,' *  ',20(i3,'  x',i3,'   *   '))
  9204     FORMAT('     *  ',20('      ',i3,'   *   '))
-      ENDIF
 
       ! 5. From global to local
@@ -447 +451 @@
          WRITE(numout,*) ' jprecj = ', jprecj , ' npnw   = ', npnw
          WRITE(numout,*)
+         IF(lflush) CALL flush(numout)
       ENDIF
 
@@ -456 +461 @@
          CALL mpp_ini_north
          IF(lwp) WRITE(numout,*) ' mpp_init : North fold boundary prepared for jpni >1'
+         IF(lwp .AND. lflush) CALL flush(numout)
       ENDIF
 
@@ -511 +517 @@
           WRITE(numout,*) '                    ihals = ', ihals(1), ihals(2)
           WRITE(numout,*) '                    ihale = ', ihale(1), ihale(2)
+          IF(lflush) CALL flush(numout)
       ENDIF
       !