Changeset 8130 for branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/trcini.F90

Timestamp:

2017-06-02T16:17:00+02:00 (7 years ago)

Author:

jpalmier

Message:

JPALM -- CFC module debugg - CFC12 and SF6 up-to-date and in action from now

File:

• branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/trcini.F90 (modified) (1 diff)

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

@@ -163 +163 @@
       ELSE
         !
+# if defined key_debug_medusa
+         IF (lwp) write (numout,*) '------------------------------'
+         IF (lwp) write (numout,*) 'Jpalm - debug'
+         IF (lwp) write (numout,*) ' Init from file -- will call trc_dta'
+         IF (lwp) write (numout,*) ' '
+         CALL flush(numout)
+# endif
+        !
         IF( ln_trcdta .AND. nb_trcdta > 0 ) THEN  ! Initialisation of tracer from a file that may also be used for damping
             !