Changeset 10875 for branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/stpctl.F90

Timestamp:

2019-04-15T17:55:07+02:00 (5 years ago)

Author:

andmirek

Message:

GMED 450 open solver.stat by processor 0 only

File:

• branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/stpctl.F90 (modified) (1 diff)

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

@@ -246 +246 @@
          !
       ELSE                                   !* ssh statistics (and others...)
-         IF( kt == nit000 .AND. lwp .AND. (ln_ctl .OR. sn_cfctl%l_runstat)) THEN   ! open ssh statistics file (put in solver.stat file)
+         IF( kt == nit000 .AND. lwm ) THEN   ! open ssh statistics file (put in solver.stat file)
             CALL ctl_opn( numsol, 'solver.stat', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, narea )
          ENDIF