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

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/BDY

Files:

• bdydta.F90 (modified) (1 diff)
• bdyini.F90 (modified) (4 diffs)
• bdytides.F90 (modified) (4 diffs)
• bdyvol.F90 (modified) (2 diffs)

branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/BDY/bdydta.F90

@@ -894 +894 @@
       ENDDO ! ib_bdy 
 
+      IF(lwp .AND. lflush) CALL flush(numout)
+
       IF( nn_timing == 1 ) CALL timing_stop('bdy_dta_init')
 

branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/BDY/bdyini.F90

@@ -110 +110 @@
       IF( nn_timing == 1 ) CALL timing_start('bdy_init')
 
-      IF(lwp) WRITE(numout,*)
-      IF(lwp) WRITE(numout,*) 'bdy_init : initialization of open boundaries'
-      IF(lwp) WRITE(numout,*) '~~~~~~~~'
+      IF(lwp) THEN
+         WRITE(numout,*)
+         WRITE(numout,*) 'bdy_init : initialization of open boundaries'
+         WRITE(numout,*) '~~~~~~~~'
+         IF(lflush) CALL flush(numout)
+      ENDIF
       !
 
@@ -1348 +1351 @@
       ENDIF
 
+      IF(lwp .AND. lflush) CALL flush(numout)
+
       CALL wrk_dealloc(jpi,jpj,zfmask) 
 
@@ -1722 +1727 @@
       IF ((itest==0).AND.(lwp)) WRITE(numout,*) 'NO open boundary corner found'
       !
+      IF(lwp. AND. lflush) CALL flush(numout)
+      !
       ! Other tests TBD: 
       ! segments completly on land
@@ -1757 +1764 @@
          IF(lwp) WRITE(numout,*) ' ==========  have different open bdy schemes'                                                  
          IF(lwp) WRITE(numout,*)
+         IF(lflush) CALL flush(numout)
          nstop = nstop + 1
       ENDIF

branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/BDY/bdytides.F90

@@ -99 +99 @@
          IF(lwp) WRITE(numout,*) 'bdytide_init : initialization of tidal harmonic forcing at open boundaries'
          IF(lwp) WRITE(numout,*) '~~~~~~~~~~~~'
+         IF(lflush) CALL flush(numout)
       ENDIF
 
@@ -120 +121 @@
             IF(lwm .AND. nprint > 2) WRITE ( numond, nambdy_tide )
             !                                               ! Parameter control and print
-            IF(lwp) WRITE(numout,*) '  '
-            IF(lwp) WRITE(numout,*) '          Namelist nambdy_tide : tidal harmonic forcing at open boundaries'
-            IF(lwp) WRITE(numout,*) '             read tidal data in 2d files: ', ln_bdytide_2ddta
-            IF(lwp) WRITE(numout,*) '             assume complex conjugate   : ', ln_bdytide_conj
-            IF(lwp) WRITE(numout,*) '             Number of tidal components to read: ', nb_harmo
-            IF(lwp) THEN 
-                    WRITE(numout,*) '             Tidal components: ' 
+            IF(lwp) THEN
+               WRITE(numout,*) '  '
+               WRITE(numout,*) '          Namelist nambdy_tide : tidal harmonic forcing at open boundaries'
+               WRITE(numout,*) '             read tidal data in 2d files: ', ln_bdytide_2ddta
+               WRITE(numout,*) '             assume complex conjugate   : ', ln_bdytide_conj
+               WRITE(numout,*) '             Number of tidal components to read: ', nb_harmo
+               WRITE(numout,*) '             Tidal components: ' 
                DO itide = 1, nb_harmo
                   WRITE(numout,*)  '                 ', Wave(ntide(itide))%cname_tide 
                END DO
-            ENDIF 
-            IF(lwp) WRITE(numout,*) ' '
+               WRITE(numout,*) ' '
+               IF(lflush) CALL flush(numout)
+            ENDIF
 
             ! Allocate space for tidal harmonics data - get size from OBC data arrays
@@ -333 +335 @@
            WRITE(numout,*) 'bdytide_update : (re)Initialization of the tidal bdy forcing at kt=',kt
            WRITE(numout,*) '~~~~~~~~~~~~~~ '
+           IF(lflush) CALL flush(numout)
         ENDIF
         !
@@ -448 +451 @@
                WRITE(numout,*) 'bdy_tide_dta : Refresh nodal factors for tidal open bdy data at kt=',kt
                WRITE(numout,*) '~~~~~~~~~~~~~~ '
+               IF(lflush) CALL flush(numout)
                ENDIF
                !

branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/BDY/bdyvol.F90

@@ -87 +87 @@
          IF(lwp) WRITE(numout,*)'bdy_vol : Correction of velocities along unstructured OBC'
          IF(lwp) WRITE(numout,*)'~~~~~~~'
+         IF(lflush) CALL flush(numout)
       END IF 
 
@@ -164 +165 @@
          IF(lwp) WRITE(numout,*)'          correction velocity zubtpecor =', zubtpecor , '(m/s)'
          IF(lwp) WRITE(numout,*)'          cumulated transport ztranst   =', ztranst   , '(m3/s)'
+         IF(lflush) CALL flush(numout)
       END IF 
       !