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

branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/BDY/bdyini.F90

@@ -29 +29 @@
    USE lib_mpp        ! for mpp_sum  
    USE iom            ! I/O
-   USE timing         ! Timing
 
    IMPLICIT NONE
@@ -74 +73 @@
       INTEGER  ::   ios                 ! Local integer output status for namelist read
       !!----------------------------------------------------------------------
-      !
-      IF( nn_timing == 1 )   CALL timing_start('bdy_init')
 
       ! ------------------------
@@ -112 +109 @@
          !
       ENDIF
-      !
-      IF( nn_timing == 1 )   CALL timing_stop('bdy_init')
       !
    END SUBROUTINE bdy_init
@@ -156 +151 @@
       INTEGER  ::   ios                 ! Local integer output status for namelist read
       !!----------------------------------------------------------------------
-      !
-      IF( nn_timing == 1 )   CALL timing_start('bdy_segs')
       !
       cgrid = (/'t','u','v'/)
@@ -1314 +1307 @@
       IF( nb_bdy>0 )   DEALLOCATE( nbidta, nbjdta, nbrdta )
       !
-      IF( nn_timing == 1 )   CALL timing_stop('bdy_segs')
-      !
    END SUBROUTINE bdy_segs