Changeset 3160 for branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/trcwri.F90

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/trcwri.F90 (modified) (1 diff)

branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/TOP_SRC/trcwri.F90

@@ -36 +36 @@
       INTEGER, INTENT( in ) :: kt
       !!---------------------------------------------------------------------
-
+      !
+      IF( nn_timing == 1 )  CALL timing_start('trc_wri')
       !
       CALL iom_setkt  ( kt + nn_dttrc - 1 )       ! set the passive tracer time step
       CALL trc_wri_trc( kt              )       ! outputs for tracer concentration
       CALL iom_setkt  ( kt              )       ! set the model time step
+      !
+      IF( nn_timing == 1 )  CALL timing_stop('trc_wri')
       !
    END SUBROUTINE trc_wri