Changeset 6230 for branches/NERC

Timestamp:

2016-01-11T15:23:52+01:00 (8 years ago)

Author:

jpalmier

Message:

JPALM --11-01-2016 -- MEDUSA debugg

File:

• branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/trcini.F90 (modified) (2 diffs)

branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/trcini.F90

@@ -255 +255 @@
 # if defined key_debug_medusa
          WRITE(numout,*) ' litle check :  ', ctrcnm(1)
-         CALL trc_rst_stat
          CALL flush(numout)
 # endif
@@ -275 +274 @@
       IF(lwp) WRITE(numout,*) '~~~~~~~'
       IF(lwp) CALL flush(numout)
+# if defined key_debug_medusa
+         CALL trc_rst_stat
+         CALL flush(numout)
+# endif
 
 9000  FORMAT(' tracer nb : ',i2,'      name :',a10,'      initial content :',e18.10)