Changeset 8204


Ignore:
Timestamp:
2017-06-22T10:56:30+02:00 (3 years ago)
Author:
frrh
Message:

We need to protect numstr operations with key_top!

File:
1 edited

Legend:

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

    r8201 r8204  
    628628      IF( numdct_heat     /= -1 )   CLOSE( numdct_heat     )   ! heat transports 
    629629      IF( numdct_salt     /= -1 )   CLOSE( numdct_salt     )   ! salt transports 
     630#if defined key_top 
    630631      IF( numstr          /= -1 )   CLOSE( numstr          )   ! tracer statistics  
    631  
     632#endif 
    632633      ! 
    633634      numout = 6                                     ! redefine numout in case it is used after this point... 
Note: See TracChangeset for help on using the changeset viewer.