Changeset 12233 for branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/stpctl.F90

Timestamp:

2019-12-13T10:01:34+01:00 (5 years ago)

Author:

frrh

Message:

Commit bug fixes from reopened MO branch branches/UKMO/dev_r5518_GO6_package_text_diagnostics
to limit NEMO text output correctly and introduce new control to limit MEDUSA
output to PE 0.
Met Office GMED ticket #450 refers. Revisions 12060-12228 inclusive.

File:

• branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/stpctl.F90 (modified) (2 diffs)

branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/stpctl.F90

@@ -100 +100 @@
       IF( lk_mpp )   CALL mpp_max( zumax )                 ! max over the global domain
       !
-      IF( ll_colruns )   THEN
+      IF( ll_colruns .AND. lwp )   THEN
          WRITE(numout,*) ' ==>> time-step= ',kt,' abs(U) max: ', zumax
          IF(lflush) CALL flush(numout)
@@ -250 +250 @@
          ENDIF
          !
-         IF( ll_colruns ) THEN
+         IF( ll_wrtruns ) THEN
             zssh2 = SUM( sshn(:,:) * sshn(:,:) * tmask_i(:,:) )
             IF( lk_mpp )   CALL mpp_sum( zssh2 )      ! sum over the global domain