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

NEMO/branches/UKMO/NEMO_4.0_mirror_text_diagnostics/src/OCE/LBC/mppini.F90

@@ -94 +94 @@
          WRITE(numout,*) '   l_Iperio = ', l_Iperio, '    l_Jperio = ', l_Jperio 
          WRITE(numout,*) '     npolj  = ',   npolj , '      njmpp  = ', njmpp
+         IF(lflush) CALL FLUSH(numout)
       ENDIF
       !
@@ -189 +190 @@
          WRITE(numout,*) '~~~~~~~~ '
          WRITE(numout,*)
+         IF(lflush) CALL FLUSH(numout)
       ENDIF
       IF( jpni < 1 .OR. jpnj < 1 ) THEN
@@ -211 +213 @@
             WRITE(numout,9000) '      - has mpi subdomains with a maximum size of (jpi = ',  iimax, ', jpj = ',  ijmax,   &
                &                                                             ', jpi*jpj = ',  iimax* ijmax, ')'
+            IF(lflush) CALL FLUSH(numout)
          ENDIF
          IF( iimax*ijmax < jpimax*jpjmax ) THEN   ! chosen subdomain size is larger that the best subdomain size
@@ -264 +267 @@
             ENDIF
             WRITE(numout,*)
+            IF(lflush) CALL FLUSH(numout)
          ENDIF
          CALL mpp_init_bestpartition( mppsize, ldlist = .TRUE. )   ! must be done by all core
@@ -284 +288 @@
             WRITE(numout,9003) '   Number of suppressed land subdomains = ', jpni*jpnj - inijmin
             WRITE(numout,*)
+            IF(lflush) CALL FLUSH(numout)
          ENDIF
       ENDIF
@@ -337 +342 @@
          WRITE(numout,*) '      sum ilci(i,1) = ', sum(ilci(:,1)), ' jpiglo = ', jpiglo
          WRITE(numout,*) '      sum ilcj(1,j) = ', sum(ilcj(1,:)), ' jpjglo = ', jpjglo
+         IF(lflush) CALL FLUSH(numout)
       ENDIF
      
@@ -507 +513 @@
             il1 = il1+ifreq
          END DO
+         IF(lflush) CALL FLUSH(numout)
+      ENDIF
  9400    FORMAT('           ***'   ,20('*************',a3)    )
  9403    FORMAT('           *     ',20('         *   ',a3)    )
@@ -512 +520 @@
  9402    FORMAT('       ',i3,' *  ',20(i3,'  x',i3,'   *   ') )
  9404    FORMAT('           *  '   ,20('      ',i3,'   *   ') )
-      ENDIF
          
       ! just to save nono etc for all proc
@@ -647 +654 @@
          WRITE(numout,*) '      nrecj  = ', nrecj  
          WRITE(numout,*) '      nn_hls = ', nn_hls 
+         IF(lflush) CALL FLUSH(numout)
       ENDIF
 
@@ -655 +663 @@
             WRITE(numout,*)
             WRITE(numout,*) '   ==>>>   North fold boundary prepared for jpni >1'
+            IF(lflush) CALL FLUSH(numout)
             ! additional prints in layout.dat
          ENDIF
@@ -948 +957 @@
             WRITE(numout,         *) '  --------------------------------------', '-----', '--------------'
             WRITE(numout,*)
+            IF(lflush) CALL FLUSH(numout)
          END IF
          iitarget = MINLOC( inbi0(:)*inbj0(:), mask = inbi0(:)*inbj0(:) >= knbij, dim = 1 )
@@ -955 +965 @@
             inbij = COUNT(llisoce)
             DEALLOCATE( llisoce )
-            IF(lwp) WRITE(numout,'(a, i5, a, i5, a, i4, a, i4, a, i9, a, i5, a, i5, a)')    &
+            IF(lwp) THEN
+               WRITE(numout,'(a, i5, a, i5, a, i4, a, i4, a, i9, a, i5, a, i5, a)')    &
                &     'nb_cores ' , inbij,' oce + ', inbi0(ji)*inbj0(ji) - inbij             &
                &                                , ' land ( ', inbi0(ji),' x ', inbj0(ji),   &
                & ' ), nb_points ', iszi0(ji)*iszj0(ji),' ( ', iszi0(ji),' x ', iszj0(ji),' )'
+               IF(lflush) CALL FLUSH(numout)
+            ENDIF
          END DO
          DEALLOCATE( inbi0, inbj0, iszi0, iszj0 )
@@ -1171 +1184 @@
           WRITE(numout,*) '                    ihals = ', ihals(1), ihals(2)
           WRITE(numout,*) '                    ihale = ', ihale(1), ihale(2)
+          IF(lflush) CALL FLUSH(numout)
       ENDIF
       !