Changeset 6201 for branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/IDTRA

Timestamp:

2016-01-04T14:06:11+01:00 (8 years ago)

Author:

jpalmier

Message:

JPALM -- 04-01-2016 -- add debugg prints under debugg_key

File:

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

branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/IDTRA/trcsms_idtra.F90

@@ -82 +82 @@
       !!----------------------------------------------------------------------
       IF (kt == nittrc000) THEN
-         IF(lwp) WRITE(numout,*) '   - JPALM - verif :'
+         IF(lwp) WRITE(numout,*) '   trcsms_idtra :'
          IF(lwp) WRITE(numout,*) '   ~~~~~~~~~~~~~~~~~'
          IF(lwp) WRITE(numout,*) '   - idtra decay factor : ', FDEC
+# if defined key_debug_medusa
+      CALL flush(numout)
+# endif
       ENDIF
 
@@ -160 +163 @@
       IF( nn_timing == 1 )  CALL timing_stop('trc_sms_idtra')
       !
+# if defined key_debug_medusa
+         IF(lwp) WRITE(numout,*) '   IDTRA DONE trc_sms_idtra -- '
+      CALL flush(numout)
+# endif
+      !
    END SUBROUTINE trc_sms_idtra