Ignore:
Timestamp:
2017-02-20T11:07:50+01:00 (4 years ago)
Author:
frrh
Message:

Improve control of numstr unit.

In addition to only producing output, and doing the
related global sums when we really need them, we
need to restrict it to one instance on the master PE
in all circumstances and to explicitly close it at the
end of the run. (Currently if lwp = true you get a separate
file for every PE containing identical information and none
of the tracer.stat files are explicitly closed.)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_MEDUSA_optim_RH/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

    r7692 r7701  
    7474#if defined key_top 
    7575   USE trcini          ! passive tracer initialisation 
     76   USE trc, ONLY: numstr  ! tracer stats unit number 
    7677#endif 
    7778   USE lib_mpp         ! distributed memory computing 
     
    596597      IF( numdct_heat     /= -1 )   CLOSE( numdct_heat     )   ! heat transports 
    597598      IF( numdct_salt     /= -1 )   CLOSE( numdct_salt     )   ! salt transports 
     599      IF( numstr          /= -1 )   CLOSE( numstr          )   ! tracer statistics 
    598600 
    599601      ! 
Note: See TracChangeset for help on using the changeset viewer.