Ignore:
Timestamp:
2017-02-21T16:46:07+01:00 (4 years ago)
Author:
jpalmier
Message:

JPALM — 21-02-2017 — merge the branch with Richard optim branch, and add 2 fixes in trcnam_medusa

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/trcini.F90

    r6715 r7709  
    123123# endif 
    124124 
    125       IF( lwp ) THEN 
     125      IF( ln_ctl ) THEN 
    126126         ! 
    127          CALL ctl_opn( numstr, 'tracer.stat', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp , narea ) 
     127         IF (narea == 1) THEN   
     128            ! The tracer.stat file only contains global tracer sum values, if  
     129            ! it contains anything at all. Hence it only needs to be opened  
     130            ! and written to on the master PE, not on all PEs.   
     131            CALL ctl_opn( numstr, 'tracer.stat', 'REPLACE','FORMATTED',  &  
     132                          'SEQUENTIAL', -1, numout, lwp , narea )  
     133         ENDIF   
    128134         ! 
    129135      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.