Changeset 5505

Timestamp:

2015-06-29T14:51:57+02:00 (8 years ago)

Author:

timgraham

Message:

Fix for #1550. Replaced lwp by lwm so that only lead processor writes out transports even if ln_ctl=true.

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/DIA/diadct.F90 (modified) (2 diffs)

trunk/NEMOGCM/NEMO/OPA_SRC/DIA/diadct.F90

@@ -176 +176 @@
 
      !open output file
-     IF( lwp ) THEN
+     IF( lwm ) THEN
         CALL ctl_opn( numdct_vol,  'volume_transport', 'NEW', 'FORMATTED', 'SEQUENTIAL', -1, numout,  .FALSE. )
         CALL ctl_opn( numdct_heat, 'heat_transport'  , 'NEW', 'FORMATTED', 'SEQUENTIAL', -1, numout,  .FALSE. )
@@ -283 +283 @@
            DO jsec=1,nb_sec
 
-              IF( lwp )CALL dia_dct_wri(kt,jsec,secs(jsec))
+              IF( lwm )CALL dia_dct_wri(kt,jsec,secs(jsec))
             
               !nullify transports values after writing