Changeset 3294 for trunk/NEMOGCM/NEMO/OPA_SRC/DOM/domcfg.F90

Timestamp:

2012-01-28T17:44:18+01:00 (12 years ago)

Author:

rblod

Message:

Merge of 3.4beta into the trunk

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/DOM/domcfg.F90 (modified) (3 diffs)

trunk/NEMOGCM/NEMO/OPA_SRC/DOM/domcfg.F90

@@ -15 +15 @@
    USE in_out_manager  ! I/O manager
    USE lib_mpp         ! distributed memory computing library
+   USE timing          ! Timing
 
    IMPLICIT NONE
@@ -35 +36 @@
       !!
       !!----------------------------------------------------------------------
-
+      !
+      IF( nn_timing == 1 )  CALL timing_start('dom_cfg')
+      !
       IF(lwp) THEN                   ! Control print
          WRITE(numout,*)
@@ -56 +59 @@
       !
       CALL dom_glo                   ! global domain versus zoom and/or local domain
+      !
+      IF( nn_timing == 1 )  CALL timing_stop('dom_cfg')
       !
    END SUBROUTINE dom_cfg