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

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

@@ -26 +26 @@
    USE lbclnk         ! ocean lateral boundary conditions (or mpp link)
    USE wrk_nemo       ! Memory allocation
-   USE timing         ! timing
 
    IMPLICIT NONE
@@ -83 +82 @@
       NAMELIST/nambdy_tide/filtide, ln_bdytide_2ddta, ln_bdytide_conj
       !!----------------------------------------------------------------------
-      !
-      IF( nn_timing == 1 )   CALL timing_start('bdytide_init')
       !
       IF (nb_bdy>0) THEN
@@ -270 +267 @@
       END DO ! loop on ib_bdy
       !
-      IF( nn_timing == 1 )   CALL timing_stop('bdytide_init')
-      !
    END SUBROUTINE bdytide_init
 
@@ -300 +295 @@
       REAL(wp), DIMENSION(jpmax_harmo) :: z_sist, z_cost
       !!----------------------------------------------------------------------
-      !
-      IF( nn_timing == 1 )   CALL timing_start('bdytide_update')
       !
       ilen0(1) =  SIZE(td%ssh(:,1,1))
@@ -363 +356 @@
       END DO
       !
-      IF( nn_timing == 1 )   CALL timing_stop('bdytide_update')
-      !
    END SUBROUTINE bdytide_update
 
@@ -391 +382 @@
       REAL(wp) ::   z_arg, z_sarg, zramp, zoff, z_cost, z_sist      
       !!----------------------------------------------------------------------
-      !
-      IF( nn_timing == 1 )   CALL timing_start('bdy_dta_tides')
       !
       lk_first_btstp=.TRUE.
@@ -485 +474 @@
          END IF
       END DO
-      !
-      IF( nn_timing == 1 ) CALL timing_stop('bdy_dta_tides')
       !
    END SUBROUTINE bdy_dta_tides