Changeset 9124 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/BDY/bdydyn2d.F90

Timestamp:

2017-12-19T09:26:25+01:00 (7 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/bdydyn2d.F90 (modified) (7 diffs)

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

@@ -14 +14 @@
    !!   bdy_ssh            : Duplicate sea level across open boundaries
    !!----------------------------------------------------------------------
-   USE timing          ! Timing
    USE oce             ! ocean dynamics and tracers 
    USE dom_oce         ! ocean space and time domain
@@ -95 +94 @@
       !!----------------------------------------------------------------------
       !
-      IF( nn_timing == 1 ) CALL timing_start('bdy_dyn2d_frs')
-      !
       igrd = 2                      ! Relaxation of zonal velocity
       DO jb = 1, idx%nblen(igrd)
@@ -115 +112 @@
       CALL lbc_bdy_lnk( pva2d, 'V', -1., ib_bdy)   ! Boundary points should be updated
       !
-      IF( nn_timing == 1 ) CALL timing_stop('bdy_dyn2d_frs')
-      !
-
    END SUBROUTINE bdy_dyn2d_frs
 
@@ -153 +147 @@
       REAL(wp) ::   zflag, z1_2                      !    "        "
       !!----------------------------------------------------------------------
-
-      IF( nn_timing == 1 ) CALL timing_start('bdy_dyn2d_fla')
 
       z1_2 = 0.5_wp
@@ -218 +210 @@
       CALL lbc_bdy_lnk( pva2d, 'V', -1., ib_bdy )   !
       !
-      IF( nn_timing == 1 ) CALL timing_stop('bdy_dyn2d_fla')
-      !
    END SUBROUTINE bdy_dyn2d_fla
 
@@ -244 +234 @@
       INTEGER  ::   ii, ij, iibm1, ijbm1                   ! indices
       !!----------------------------------------------------------------------
-
-      IF( nn_timing == 1 ) CALL timing_start('bdy_dyn2d_orlanski')
       !
       igrd = 2      ! Orlanski bc on u-velocity; 
@@ -258 +246 @@
       CALL lbc_bdy_lnk( pva2d, 'V', -1., ib_bdy )   !
       !
-      IF( nn_timing == 1 ) CALL timing_stop('bdy_dyn2d_orlanski')
-      !
    END SUBROUTINE bdy_dyn2d_orlanski
+
 
    SUBROUTINE bdy_ssh( zssh )