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

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

@@ -18 +18 @@
    USE in_out_manager !
    USE lbclnk         ! ocean lateral boundary conditions (or mpp link)
-   USE timing         ! Timing
 
    IMPLICIT NONE
@@ -51 +50 @@
       !!----------------------------------------------------------------------
       !
-      IF( nn_timing == 1 ) CALL timing_start('bdy_frs')
-      ! 
       igrd = 1                       ! Everything is at T-points here
       DO ib = 1, idx%nblen(igrd)
@@ -63 +60 @@
       END DO
       !
-      IF( nn_timing == 1 ) CALL timing_stop('bdy_frs')
-      !
    END SUBROUTINE bdy_frs
+
 
    SUBROUTINE bdy_spe( idx, pta, dta )
@@ -82 +78 @@
       INTEGER  ::   ii, ij         ! 2D addresses
       !!----------------------------------------------------------------------
-      !
-      IF( nn_timing == 1 ) CALL timing_start('bdy_spe')
       !
       igrd = 1                       ! Everything is at T-points here
@@ -94 +88 @@
       END DO
       !
-      IF( nn_timing == 1 ) CALL timing_stop('bdy_spe')
-      !
    END SUBROUTINE bdy_spe
+
 
    SUBROUTINE bdy_orl( idx, ptb, pta, dta, ll_npo )
@@ -115 +108 @@
       !!----------------------------------------------------------------------
       !
-      IF( nn_timing == 1 ) CALL timing_start('bdy_orl')
-      !
       igrd = 1                       ! Everything is at T-points here
       !
       CALL bdy_orlanski_3d( idx, igrd, ptb(:,:,:), pta(:,:,:), dta, ll_npo )
       !
-      IF( nn_timing == 1 ) CALL timing_stop('bdy_orl')
-      !
    END SUBROUTINE bdy_orl
+
 
    SUBROUTINE bdy_orlanski_2d( idx, igrd, phib, phia, phi_ext, ll_npo )
@@ -161 +151 @@
       REAL(wp), POINTER, DIMENSION(:,:)          :: pe_ydif    ! scale factors for y-derivatives
       !!----------------------------------------------------------------------
-      !
-      IF( nn_timing == 1 )   CALL timing_start('bdy_orlanski_2d')
       !
       ! ----------------------------------!
@@ -279 +267 @@
       END DO
       !
-      IF( nn_timing == 1 )   CALL timing_stop('bdy_orlanski_2d')
-      !
    END SUBROUTINE bdy_orlanski_2d
 
@@ -320 +306 @@
       REAL(wp), POINTER, DIMENSION(:,:)          :: pe_ydif    ! scale factors for y-derivatives
       !!----------------------------------------------------------------------
-      !
-      IF( nn_timing == 1 )   CALL timing_start('bdy_orlanski_3d')
       !
       ! ----------------------------------!
@@ -441 +425 @@
       END DO
       !
-      IF( nn_timing == 1 )   CALL timing_stop('bdy_orlanski_3d')
-      !
    END SUBROUTINE bdy_orlanski_3d
 
@@ -462 +444 @@
       INTEGER  ::   ii, ij, ip, jp   ! 2D addresses
       !!----------------------------------------------------------------------
-      !!
-      IF( nn_timing == 1 ) CALL timing_start('bdy_nmn')
       !
       SELECT CASE(igrd)
@@ -514 +494 @@
       END DO
       !
-      IF( nn_timing == 1 ) CALL timing_stop('bdy_nmn')
-      !
    END SUBROUTINE bdy_nmn