Changeset 10774 for branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/LBC/mppini_2.h90

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_2.h90 (modified) (5 diffs)

branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/LBC/mppini_2.h90

@@ -93 +93 @@
       IF(lwp)WRITE(numout,*) '~~~~~~~~'
       IF(lwp)WRITE(numout,*) ' '
+      IF(lwp .AND. lflush) CALL flush(numout)
 
       IF( jpni*jpnj < jpnij ) CALL ctl_stop( ' jpnij > jpni x jpnj impossible' )
@@ -184 +185 @@
       IF(lwp) WRITE(numout,*) ' sum ilcj(1,j)=',zjdom,' jpjglo=',jpjglo
       IF(lwp) WRITE(numout,*)
+      IF(lwp .AND. lflush) CALL flush(numout)
 
 
@@ -364 +366 @@
             il1 = il1+ifreq
          END DO
+         IF(lflush) CALL flush(numout)
  9400     FORMAT('     ***',20('*************',a3))
  9403     FORMAT('     *     ',20('         *   ',a3))
@@ -572 +575 @@
          WRITE(numout,*) ' jprecj = ', jprecj , ' npnw   = ', npnw
          WRITE(numout,*)
+         IF(lflush) CALL flush(numout)
       ENDIF
 
@@ -581 +585 @@
          CALL mpp_ini_north
          IF(lwp) WRITE(numout,*) ' mpp_init2 : North fold boundary prepared for jpni >1'
+         IF(lwp .AND. lflush) CALL flush(numout)
       ENDIF