Changeset 8204 for branches

Timestamp:

2017-06-22T10:56:30+02:00 (7 years ago)

Author:

frrh

Message:

We need to protect numstr operations with key_top!

File:

• branches/UKMO/dev_r5518_GO6M_dev/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90 (modified) (1 diff)

branches/UKMO/dev_r5518_GO6M_dev/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

@@ -628 +628 @@
       IF( numdct_heat     /= -1 )   CLOSE( numdct_heat     )   ! heat transports
       IF( numdct_salt     /= -1 )   CLOSE( numdct_salt     )   ! salt transports
+#if defined key_top
       IF( numstr          /= -1 )   CLOSE( numstr          )   ! tracer statistics 
-
+#endif
       !
       numout = 6                                     ! redefine numout in case it is used after this point...