Changeset 3154 for branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OFF_SRC/dtadyn.F90

Timestamp:

2011-11-18T11:02:24+01:00 (12 years ago)

Author:

cetlod

Message:

Add timing for OFFLINE

File:

• branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OFF_SRC/dtadyn.F90 (modified) (3 diffs)

branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OFF_SRC/dtadyn.F90

@@ -39 +39 @@
    USE prtctl          ! print control
    USE fldread         ! read input fields 
+   USE timing          ! Timing
 
    IMPLICIT NONE
@@ -123 +124 @@
       !!----------------------------------------------------------------------
       
+      !
+      IF( nn_timing == 1 )  CALL timing_start( 'dta_dyn')
+      !
       isecsbc = nsec_year + nsec1jan000 
       !
@@ -301 +305 @@
       ENDIF
       !
+      IF( nn_timing == 1 )  CALL timing_stop( 'dta_dyn')
+      !
    END SUBROUTINE dta_dyn