Changeset 10774 for branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/LBC

Timestamp:

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

Author:

andmirek

Message:

GMED 450 add flush after prints

Location:

branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/LBC

Files:

• cla.F90 (modified) (4 diffs)
• mppini.F90 (modified) (8 diffs)
• mppini_2.h90 (modified) (5 diffs)

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

@@ -83 +83 @@
          IF(lwp) WRITE(numout,*) 'div_cla : cross land advection on hdiv '
          IF(lwp) WRITE(numout,*) '~~~~~~~~'
+         IF(lflush) CALL flush(numout) 
          !
          IF( nbab == 1 )   CALL cla_bab_el_mandeb('ini')    ! Bab el Mandeb ( Red Sea - Indian ocean )
@@ -120 +121 @@
          IF(lwp) WRITE(numout,*) 'tra_cla : cross land advection on tracers '
          IF(lwp) WRITE(numout,*) '~~~~~~~~'
+         IF(lflush) CALL flush(numout)
       ENDIF
       !
@@ -147 +149 @@
          IF(lwp) WRITE(numout,*) 'cla_dynspg : cross land advection on (ua,va) '
          IF(lwp) WRITE(numout,*) '~~~~~~~~~~'
+         IF(lflush) CALL flush(numout)
       ENDIF
       !
@@ -181 +184 @@
       IF(lwp) WRITE(numout,*) 'cla_init : cross land advection initialisation '
       IF(lwp) WRITE(numout,*) '~~~~~~~~~'
+      IF(lwp .AND. lflush) CALL flush(numout)
       !
       !                           ! Allocate arrays for this module

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
       !

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