Changeset 9124 for branches/2017/dev_merge_2017/NEMOGCM/CONFIG/TEST_CASES/WAD/MY_SRC/bdyini.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/CONFIG/TEST_CASES/WAD/MY_SRC/bdyini.F90 (modified) (6 diffs)

branches/2017/dev_merge_2017/NEMOGCM/CONFIG/TEST_CASES/WAD/MY_SRC/bdyini.F90

@@ -30 +30 @@
    USE iom            ! I/O
    USE wrk_nemo       ! Memory Allocation
-   USE timing         ! Timing
 
    IMPLICIT NONE
@@ -46 +45 @@
    INTEGER, DIMENSION(jp_nseg) ::   jpjnob, jpindt, jpinft, npckgn   !
    INTEGER, DIMENSION(jp_nseg) ::   jpjsob, jpisdt, jpisft, npckgs   !
+
    !!----------------------------------------------------------------------
    !! NEMO/OPA 3.7 , NEMO Consortium (2015)
@@ -75 +75 @@
       INTEGER  ::   ios                 ! Local integer output status for namelist read
       !!----------------------------------------------------------------------
-      !
-      IF( nn_timing == 1 )   CALL timing_start('bdy_init')
 
       ! ------------------------
@@ -114 +112 @@
       ENDIF
       !
-      IF( nn_timing == 1 )   CALL timing_stop('bdy_init')
-      !
    END SUBROUTINE bdy_init
+
    
    SUBROUTINE bdy_segs
@@ -159 +156 @@
       INTEGER  ::   ios                 ! Local integer output status for namelist read
       !!----------------------------------------------------------------------
-      !
-      IF( nn_timing == 1 )   CALL timing_start('bdy_segs')
       !
       cgrid = (/'t','u','v'/)
@@ -1325 +1320 @@
       CALL wrk_dealloc(jpi,jpj,   zfmask ) 
       !
-      IF( nn_timing == 1 )   CALL timing_stop('bdy_segs')
-      !
    END SUBROUTINE bdy_segs
+
 
    SUBROUTINE bdy_ctl_seg