Changeset 10745 for branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/TOP_SRC/trcini.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/trcini.F90 (modified) (1 diff)

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

@@ -123 +123 @@
       CALL trc_ice_ini                                 ! Tracers in sea ice
 
-      IF( ln_ctl ) THEN
-         !
-         IF (narea == 1) THEN  
-            ! The tracer.stat file only contains global tracer sum values, if 
-            ! it contains anything at all. Hence it only needs to be opened 
-            ! and written to on the master PE, not on all PEs.  
-            CALL ctl_opn( numstr, 'tracer.stat', 'REPLACE','FORMATTED',  & 
-                          'SEQUENTIAL', -1, numout, lwp , narea ) 
-         ENDIF  
-         !
-      ENDIF
+      !
+      IF (lwm .AND. sn_cfctl%l_trcstat) THEN  
+         ! The tracer.stat file only contains global tracer sum values, if 
+         ! it contains anything at all. Hence it only needs to be opened 
+         ! and written to on the master PE, not on all PEs.  
+         CALL ctl_opn( numstr, 'tracer.stat', 'REPLACE','FORMATTED',  & 
+                       'SEQUENTIAL', -1, numout, lwp , narea ) 
+      ENDIF  
+      !
 
       IF( ln_trcdta ) THEN