Changeset 9124 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/C1D/dtauvd.F90

Timestamp:

2017-12-19T09:26:25+01:00 (6 years ago)

Author:

gm

Message:

dev_merge_2017: ln_timing instead of nn_timing + restricted timing to nemo_init and routine called by step in OPA_SRC

File:

• branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/C1D/dtauvd.F90 (modified) (4 diffs)

branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/C1D/dtauvd.F90

@@ -58 +58 @@
       NAMELIST/namc1d_uvd/ ln_uvd_init, ln_uvd_dyndmp, cn_dir, sn_ucur, sn_vcur
       !!----------------------------------------------------------------------
-      !
-      IF( nn_timing == 1 )   CALL timing_start('dta_uvd_init')
       !
       ierr0 = 0   ;   ierr1 = 0   ;   ierr2 = 0  ;   ierr3 = 0
@@ -117 +115 @@
       ENDIF
       !
-      IF( nn_timing == 1 )  CALL timing_stop('dta_uvd_init')
-      !
    END SUBROUTINE dta_uvd_init
 
@@ -146 +142 @@
       !!----------------------------------------------------------------------
       !
-      IF( nn_timing == 1 )   CALL timing_start('dta_uvd')
+      IF( ln_timing )   CALL timing_start('dta_uvd')
       !
       CALL fld_read( kt, 1, sf_uvd )      !==   read U & V current data at time step kt   ==!
@@ -223 +219 @@
       ENDIF
       !
-      IF( nn_timing == 1 )  CALL timing_stop('dta_uvd')
+      IF( ln_timing )   CALL timing_stop('dta_uvd')
       !
    END SUBROUTINE dta_uvd