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

branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90

@@ -170 +170 @@
             &                   ' w ',   MAXVAL( e3w_0(:,:,:) )
       ENDIF
+      !
+      IF(lwp .AND. lflush) CALL flush(numout)
       !
       IF( nn_timing == 1 )  CALL timing_stop('dom_zgr')
@@ -265 +267 @@
             ENDIF
          ENDIF
+         IF(lflush) CALL flush(numout)
       ENDIF
 
@@ -338 +341 @@
          WRITE(numout, "(9x,' level  gdept_1d  gdepw_1d  e3t_1d   e3w_1d  ')" )
          WRITE(numout, "(10x, i4, 4f9.2)" ) ( jk, gdept_1d(jk), gdepw_1d(jk), e3t_1d(jk), e3w_1d(jk), jk = 1, jpk )
+         IF(lflush) CALL flush(numout)
       ENDIF
       DO jk = 1, jpk                      ! control positivity
@@ -598 +602 @@
       ENDIF
       !
+      IF(lwp .AND. lflush) CALL flush(numout)
+      !
       IF( nn_timing == 1 )  CALL timing_stop('zgr_bat')
       !
@@ -651 +657 @@
          !
       ENDIF
+      !
+      IF(lwp .AND. lflush) CALL flush(numout)
       !
    END SUBROUTINE zgr_bat_zoom
@@ -789 +797 @@
       CALL wrk_dealloc( jpi, jpj, zbathy )
       !
+      IF(lwp .AND. lflush) CALL flush(numout)
+      !
       IF( nn_timing == 1 )  CALL timing_stop('zgr_bat_ctl')
       !
@@ -818 +828 @@
       IF(lwp) WRITE(numout,*) '    zgr_bot_level : ocean bottom k-index of T-, U-, V- and W-levels '
       IF(lwp) WRITE(numout,*) '    ~~~~~~~~~~~~~'
+      IF(lwp .AND. lflush) CALL flush(numout)
       !
       mbkt(:,:) = MAX( mbathy(:,:) , 1 )    ! bottom k-index of T-level (=1 over land)
@@ -862 +873 @@
       IF(lwp) WRITE(numout,*) '    zgr_top_level : ocean top k-index of T-, U-, V- and W-levels '
       IF(lwp) WRITE(numout,*) '    ~~~~~~~~~~~~~'
+      IF(lwp .AND. lflush) CALL flush(numout)
       !
       mikt(:,:) = MAX( misfdep(:,:) , 1 )    ! top k-index of T-level (=1)
@@ -1246 +1258 @@
          WRITE(numout,*)
          WRITE(numout,*) 'domzgr gdep3w(mbathy)'   ;   CALL prihre(zprt(:,:,6),jpi,jpj,1,jpi,1,1,jpj,1,1.e-3,numout)
+         IF(lflush) CALL flush(numout)
       ENDIF  
       !
@@ -1273 +1286 @@
       INTEGER  ::   id, jd, nprocd
       INTEGER  ::   icompt, ibtest, ibtestim1, ibtestip1, ibtestjm1, ibtestjp1   ! (ISF)
-      LOGICAL  ::   ll_print         ! Allow  control print for debugging
       REAL(wp) ::   ze3tp , ze3wp    ! Last ocean level thickness at T- and W-points
       REAL(wp) ::   zdepwp, zdepth   ! Ajusted ocean depth to avoid too small e3t
@@ -1753 +1765 @@
       ENDIF 
 
+      IF(lwp .AND. lflush) CALL flush(numout)
+
       CALL wrk_dealloc( jpi, jpj, zmask, zbathy, zrisfdep )
       CALL wrk_dealloc( jpi, jpj, zmisfdep, zmbathy )
@@ -1855 +1869 @@
          WRITE(numout,*) '        Offset for Zb                                rn_zb_b       = ',rn_zb_b
          WRITE(numout,*) '        Bottom cell (Zb) (m) = H*rn_zb_a + rn_zb_b'
+         IF(lflush) CALL flush(numout)
       ENDIF
 
@@ -2236 +2251 @@
       END DO
       !
+      IF(lwp .AND. lflush) CALL flush(numout)
+      !
       CALL wrk_dealloc( jpi, jpj, zenv, ztmp, zmsk, zri, zrj, zhbat , ztmpi1, ztmpi2, ztmpj1, ztmpj2 )
       !
@@ -2547 +2564 @@
       END DO
 
+      IF(lwp .AND. lflush) CALL flush(numout)
+
       CALL wrk_dealloc( jpk, z_gsigw, z_gsigt, z_gsi3w                                      )
       CALL wrk_dealloc( jpk, z_esigt, z_esigw                                               )