Changeset 6216 for branches/NERC/dev_r5518_NOC_MEDUSA_Stable

Timestamp:

2016-01-05T18:21:14+01:00 (8 years ago)

Author:

jpalmier

Message:

JPALM -- 05-01-2016 -- IDTRA timing checks

Location:

branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC

Files:

• CFC/trcsms_cfc.F90 (modified) (1 diff)
• IDTRA/trcsms_idtra.F90 (modified) (1 diff)

branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/CFC/trcsms_cfc.F90

@@ -231 +231 @@
       END IF
       !
+# if defined key_debug_medusa
+      IF(lwp) WRITE(numout,*) '   CFC - Check: nn_timing = ', nn_timing
+      CALL flush(numout)
+# endif
       IF( nn_timing == 1 )  CALL timing_stop('trc_sms_cfc')
       !

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

@@ -77 +77 @@
       !!
       INTEGER ::   ji, jj, jn, jl, jk
-
-
-
-      !!----------------------------------------------------------------------
+      !!----------------------------------------------------------------------
+      !
+      IF( nn_timing == 1 )  CALL timing_start('trc_sms_idtra')
+      !
       IF (kt == nittrc000) THEN
          IF(lwp) WRITE(numout,*) '   trcsms_idtra :'