- Timestamp:
- 2019-06-11T16:10:28+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/trcini.F90
r10149 r11101 123 123 CALL trc_ice_ini ! Tracers in sea ice 124 124 125 IF( ln_ctl ) THEN 126 ! 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 134 ! 135 ENDIF 125 ! 126 IF (lwm .AND. sn_cfctl%l_trcstat) THEN 127 ! The tracer.stat file only contains global tracer sum values, if 128 ! it contains anything at all. Hence it only needs to be opened 129 ! and written to on the master PE, not on all PEs. 130 CALL ctl_opn( numstr, 'tracer.stat', 'REPLACE','FORMATTED', & 131 'SEQUENTIAL', -1, numout, lwp , narea ) 132 ENDIF 133 ! 136 134 137 135 IF( ln_trcdta ) THEN
Note: See TracChangeset
for help on using the changeset viewer.