Changeset 11101 for branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftmx.F90

Timestamp:

2019-06-11T16:10:28+02:00 (5 years ago)

Author:

frrh

Message:

Merge changes from Met Office GMED ticket 450 to reduce unnecessary
text output from NEMO.
This output, which is typically not switchable, is rarely of interest
in normal (non-debugging) runs and simply redunantley consumes extra
file space.
Further, the presence of this text output has been shown to
significantly degrade performance of models which are run during
Met Office HPC RAID (disk) checks.
The new code introduces switches which are configurable via the
changes made in the associated Met Office MOCI ticket 399.

File:

• branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftmx.F90 (modified) (17 diffs)

branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftmx.F90

@@ -156 +156 @@
          IF(lwp) WRITE(numout,*) 
          IF(lwp) WRITE(numout,*) '          N Total power consumption by av_tide    : ztpc = ', ztpc * 1.e-12 ,'TW'
+         IF(lwp .AND. lflush) CALL flush(numout)
       ENDIF
        
@@ -310 +311 @@
          ztpc= rau0 * ztpc / ( rn_me * rn_tfe_itf )
          IF(lwp) WRITE(numout,*) '          N Total power consumption by zavt_itf: ztpc = ', ztpc * 1.e-12 ,'TW'
+         IF(lwp .AND. lflush) CALL flush(numout)
       ENDIF
 
@@ -388 +390 @@
       READ  ( numnam_cfg, namzdf_tmx, IOSTAT = ios, ERR = 902 )
 902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_tmx in configuration namelist', lwp )
-      IF(lwm) WRITE ( numond, namzdf_tmx )
+      IF(lwm .AND. nprint > 2) WRITE ( numond, namzdf_tmx )
 
       IF(lwp) THEN                   ! Control print
@@ -401 +403 @@
          WRITE(numout,*) '      ITF specific parameterisation         = ', ln_tmx_itf
          WRITE(numout,*) '      ITF tidal dissipation efficiency      = ', rn_tfe_itf
+         IF(lflush) CALL flush(numout)
       ENDIF
 
@@ -446 +449 @@
 !===========
 
-      IF( nprint == 1 .AND. lwp ) THEN
+      IF( nprint > 2 .AND. lwp ) THEN
          ! Control print
          ! Total power consumption due to vertical mixing
@@ -468 +471 @@
          WRITE(numout,*) 
          WRITE(numout,*) '          Total power consumption of the tidally driven part of Kz : ztpc = ', ztpc * 1.e-12 ,'TW'
+         IF(lflush) CALL flush(numout)
 
 
@@ -497 +501 @@
          END DO
          WRITE(numout,*) '          Min de zkz ', ztpc, ' Max = ', maxval(zkz(:,:) )
+         IF(lflush) CALL flush(numout)
 
          DO jk = 2, jpkm1
@@ -516 +521 @@
          ztpc= rau0 * 1/(rn_tfe * rn_me) * ztpc
          WRITE(numout,*) '          2 Total power consumption of the tidally driven part of Kz : ztpc = ', ztpc * 1.e-12 ,'TW'
+         IF(lflush) CALL flush(numout)
 
          DO jk = 1, jpk
@@ -528 +534 @@
             WRITE(numout,*) '            N2 min - jk= ', jk,'   ', ze_z * 1.e4,' cm2/s min= ',ztpc*1.e4,   &
                &       'max= ', MAXVAL(zav_tide(:,:,jk) )*1.e4, ' cm2/s'
+            IF(lflush) CALL flush(numout)
          END DO
 
@@ -533 +540 @@
          WRITE(numout,*) 
          WRITE(numout,*) '          Initial profile of tidal vertical mixing'
+         IF(lflush) CALL flush(numout)
+
          DO jk = 1, jpk
             DO jj = 1,jpj
@@ -543 +552 @@
             WRITE(numout,*) '                jk= ', jk,'   ', ze_z * 1.e4,' cm2/s'
          END DO
+         IF(lflush) CALL flush(numout)
          DO jk = 1, jpk
             zkz(:,:) = az_tmx(:,:,jk) /rn_n2min
@@ -551 +561 @@
                &       'max= ', MAXVAL(zkz)*1.e4, ' cm2/s'
          END DO
+         IF(lflush) CALL flush(numout)
          !
       ENDIF
@@ -862 +873 @@
             WRITE(numout,*)
             WRITE(numout,*) '      Total power consumption by av_wave: ztpc =  ', ztpc * 1.e-12_wp, 'TW'
+            IF(lflush) CALL flush(numout)
          ENDIF
       ENDIF
@@ -973 +985 @@
       READ  ( numnam_cfg, namzdf_tmx_new, IOSTAT = ios, ERR = 902 )
 902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_tmx in configuration namelist', lwp )
-      IF(lwm) WRITE ( numond, namzdf_tmx_new )
+      IF(lwm .AND. nprint > 2) WRITE ( numond, namzdf_tmx_new )
       !
       IF(lwp) THEN                  ! Control print
@@ -983 +995 @@
          WRITE(numout,*) '      Variable (T) or constant (F) mixing efficiency            = ', ln_mevar
          WRITE(numout,*) '      Differential internal wave-driven mixing (T) or not (F)   = ', ln_tsdiff
+         IF(lflush) CALL flush(numout)
       ENDIF
       
@@ -995 +1008 @@
          WRITE(numout,*) '   Force the background value applied to avm & avt in TKE to be everywhere ',   &
             &               'the viscous molecular value & a very small diffusive value, resp.'
+         IF(lflush) CALL flush(numout)
       ENDIF
       
@@ -1042 +1056 @@
          WRITE(numout,*) '      Pycnocline-intensifed wave-breaking energy: ', zpyc * 1.e-12_wp, 'TW'
          WRITE(numout,*) '      Critical slope wave-breaking energy:        ', zcri * 1.e-12_wp, 'TW'
+         IF(lflush) CALL flush(numout)
       ENDIF
       !