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

branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/CRS/crsdomwri.F90

@@ -3 +3 @@
    !! Coarse Ocean initialization : write the coarse ocean domain mesh and mask files
    !!======================================================================
-   !! History :  OPA  ! 1997-02  (G. Madec)  Original code
-   !!            8.1  ! 1999-11  (M. Imbard)  NetCDF FORMAT with IOIPSL
-   !!   NEMO     1.0  ! 2002-08  (G. Madec)  F90 and several file
-   !!            3.0  ! 2008-01  (S. Masson) add dom_uniq_crs
-   !!            4.0  ! 2011-01  (A. R. Porter, STFC Daresbury) dynamical allocation
-   !!                 ! 2012-06  (J. Simeon, C. Calone, C Ethe )  Reduced and modified for coarse grid
+   !! History :  3.6   ! 2012-06  (J. Simeon, C. Calone, C Ethe )  from domwri, reduced and modified for coarse grid
    !!----------------------------------------------------------------------
 
@@ -25 +20 @@
    USE crslbclnk       ! crs mediator to lbclnk
    USE wrk_nemo        ! Working array
-
-
 
    IMPLICIT NONE
@@ -74 +67 @@
       REAL(wp), POINTER, DIMENSION(:,:  ) :: ze3tp, ze3wp
       !!----------------------------------------------------------------------
-      !
-      IF( nn_timing == 1 )  CALL timing_start('crs_dom_wri')
       !
       CALL wrk_alloc( jpi_crs, jpj_crs,      zprt , zprw  )
@@ -302 +293 @@
       CALL wrk_dealloc( jpi_crs, jpj_crs, jpk, zdepu, zdepv )
       !
-      IF( nn_timing == 1 )  CALL timing_stop('crs_dom_wri')
-      !
-      
    END SUBROUTINE crs_dom_wri
 
@@ -327 +315 @@
       !!----------------------------------------------------------------------
       !
-      IF( nn_timing == 1 )  CALL timing_start('crs_dom_uniq_crs')
-      !
       CALL wrk_alloc( jpi_crs, jpj_crs, ztstref )
       !
@@ -347 +333 @@
       CALL wrk_dealloc( jpi_crs, jpj_crs, ztstref )
       !
-      IF( nn_timing == 1 )  CALL timing_stop('crs_dom_uniq_crs')
-      !
-      
    END SUBROUTINE dom_uniq_crs