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

branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/DOM/dommsk.F90

@@ -26 +26 @@
    USE dom_oce        ! ocean space and time domain
    USE usrdef_fmask   ! user defined fmask
-   USE bdy_oce      
+   USE bdy_oce        ! open boundary
+   !
    USE in_out_manager ! I/O manager
    USE lbclnk         ! ocean lateral boundary conditions (or mpp link)
    USE lib_mpp        ! Massively Parallel Processing library
-   USE timing         ! Timing
 
    IMPLICIT NONE
@@ -102 +102 @@
          &             ln_vol, nn_volctl, nn_rimwidth, nb_jpk_bdy
       !!---------------------------------------------------------------------
-      !
-      IF( ln_timing )   CALL timing_start('dom_msk')
       !
       REWIND( numnam_ref )              ! Namelist namlbc in reference namelist : Lateral momentum boundary condition
@@ -295 +293 @@
       CALL usr_def_fmask( cn_cfg, nn_cfg, fmask )
       !
-      !
-      IF( ln_timing )   CALL timing_stop('dom_msk')
-      !
    END SUBROUTINE dom_msk