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

branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/trcbc.F90

@@ -60 +60 @@
       !!              - allocates passive tracer BC data structure 
       !!----------------------------------------------------------------------
-      !
       INTEGER,INTENT(IN) :: ntrc                           ! number of tracers
       INTEGER            :: jl, jn , ib, ibd, ii, ij, ik   ! dummy loop indices
@@ -81 +80 @@
                         & cn_dir_cbc, sn_trccbc, rn_trcfac, ln_rnf_ctl, rn_bc_time
       NAMELIST/namtrc_bdy/ cn_trc_dflt, cn_trc, nn_trcdmp_bdy
-
       !!----------------------------------------------------------------------
-      IF( nn_timing == 1 )  CALL timing_start('trc_bc_ini')
       !
       IF( lwp ) THEN
@@ -332 +329 @@
       !
       DEALLOCATE( slf_i )          ! deallocate local field structure
-      IF( nn_timing == 1 )  CALL timing_stop('trc_bc_ini')
       !
    END SUBROUTINE trc_bc_ini
@@ -348 +344 @@
       !!----------------------------------------------------------------------
       USE fldread
-      
-      !! * Arguments
+      !!      
       INTEGER, INTENT( in ) ::   kt              ! ocean time-step index
       INTEGER, INTENT( in ), OPTIONAL ::   jit   ! subcycle time-step index (for timesplitting option)
@@ -357 +352 @@
       !!---------------------------------------------------------------------
       !
-      IF( nn_timing == 1 )  CALL timing_start('trc_bc')
+      IF( ln_timing )   CALL timing_start('trc_bc')
 
       IF( kt == nit000 .AND. lwp) THEN
@@ -452 +447 @@
       END DO                                                     ! tracer loop
       !                                                          ! ===========
-      !
-      IF( nn_timing == 1 )  CALL timing_stop('trc_bc')
+      IF( ln_timing )   CALL timing_stop('trc_bc')
       !
    END SUBROUTINE trc_bc
@@ -462 +456 @@
    !!----------------------------------------------------------------------
 CONTAINS
-
    SUBROUTINE trc_bc_ini( ntrc )        ! Empty routine
       INTEGER,INTENT(IN) :: ntrc                           ! number of tracers