Changeset 3160 for branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/MY_TRC

Timestamp:

2011-11-20T15:27:18+01:00 (13 years ago)

Author:

cetlod

Message:

Add timing in TOP routines

File:

• branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/MY_TRC/trcsms_my_trc.F90 (modified) (2 diffs)

branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/MY_TRC/trcsms_my_trc.F90

@@ -46 +46 @@
       INTEGER ::   jn   ! dummy loop index
       !!----------------------------------------------------------------------
-
+      !
+      IF( nn_timing == 1 )  CALL timing_start('trc_sms_my_trc')
+      !
       IF(lwp) WRITE(numout,*)
       IF(lwp) WRITE(numout,*) ' trc_sms_my_trc:  MY_TRC model'
@@ -72 +74 @@
           CALL wrk_dealloc( jpi, jpj, jpk, ztrmyt ) 
       END IF
+      !
+      IF( nn_timing == 1 )  CALL timing_stop('trc_sms_my_trc')
       !
    END SUBROUTINE trc_sms_my_trc