Changeset 9124 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/DOM/istate.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/DOM/istate.F90 (modified) (3 diffs)

branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/DOM/istate.F90

@@ -36 +36 @@
    USE lib_mpp         ! MPP library
    USE restart         ! restart
-   USE timing          ! Timing
 
    IMPLICIT NONE
@@ -63 +62 @@
 !!gm end
       !!----------------------------------------------------------------------
-      !
-      IF( ln_timing )   CALL timing_start('istate_init')
       !
       IF(lwp) WRITE(numout,*)
@@ -165 +162 @@
       vb_b(:,:) = vb_b(:,:) * r1_hv_b(:,:)
       !
-      IF( ln_timing )   CALL timing_stop('istate_init')
-      !
    END SUBROUTINE istate_init