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

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

@@ -24 +24 @@
    USE lbclnk          ! lateral boundary conditions - mpp exchanges
    USE lib_mpp         ! MPP library
-   USE timing          ! Timing
 
    IMPLICIT NONE
@@ -77 +76 @@
       REAL(wp), DIMENSION(jpi,jpj,jpk) ::   zdepu, zdepv   ! 3D workspace
       !!----------------------------------------------------------------------
-      !
-      IF( ln_timing )   CALL timing_start('dom_wri')
       !
       IF(lwp) WRITE(numout,*)
@@ -200 +197 @@
       !                                     ! ============================
       !
-      IF( ln_timing )   CALL timing_stop('dom_wri')
-      !
    END SUBROUTINE dom_wri
 
@@ -222 +217 @@
       REAL(wp), DIMENSION(jpi,jpj) ::   ztstref
       !!----------------------------------------------------------------------
-      !
-      IF( ln_timing )   CALL timing_start('dom_uniq')
       !
       ! build an array with different values for each element 
@@ -238 +231 @@
       ! fill only the inner part of the cpu with llbl converted into real 
       puniq(nldi:nlei,nldj:nlej) = REAL( COUNT( lldbl(nldi:nlei,nldj:nlej,:), dim = 3 ) , wp )
-      !
-      IF( ln_timing )   CALL timing_stop('dom_uniq')
       !
    END SUBROUTINE dom_uniq