Changeset 10745 for branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/TOP_SRC/trcstp.F90

Timestamp:

2019-03-12T17:14:33+01:00 (5 years ago)

Author:

andmirek

Message:

GMED 450 GO8 changes to namelist namctl

File:

• branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/TOP_SRC/trcstp.F90 (modified) (3 diffs)

branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/TOP_SRC/trcstp.F90

@@ -62 +62 @@
       INTEGER               ::  jk, jn  ! dummy loop indices
       REAL(wp)              ::  ztrai
+      LOGICAL ::   ll_trcstat ! local logical
       CHARACTER (len=25)    ::  charout 
       !!-------------------------------------------------------------------
@@ -67 +68 @@
       IF( nn_timing == 1 )   CALL timing_start('trc_stp')
       !
+      ll_trcstat  = ( ln_ctl .OR. sn_cfctl%l_trcstat ) .AND. &
+     &              ( ( MOD( kt, sn_cfctl%ptimincr ) == 0 ) .OR. ( kt == nitend ) )
       IF( kt == nittrc000 .AND. lk_trdmxl_trc )  CALL trd_mxl_trc_init    ! trends: Mixed-layer
       !
@@ -120 +123 @@
       ENDIF
       !
-      IF (ln_ctl) THEN 
+      IF (ll_trcstat) THEN 
          ! The following code is very expensive since it involves multiple 
          ! reproducible global sums over all tracer fields and is potentially