Changeset 3182 for branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/BDY/bdyvol.F90

Timestamp:

2011-11-25T12:27:22+01:00 (12 years ago)

Author:

davestorkey

Message:

Change dynamic allocation and add timing to BDY module.

File:

• branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/BDY/bdyvol.F90 (modified) (3 diffs)

branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/BDY/bdyvol.F90

@@ -14 +14 @@
    !!   'key_dynspg_flt'                              filtered free surface
    !!----------------------------------------------------------------------
+   USE timing          ! Timing
    USE oce             ! ocean dynamics and tracers 
    USE dom_oce         ! ocean space and time domain 
@@ -75 +76 @@
       TYPE(OBC_INDEX), POINTER :: idx
       !!-----------------------------------------------------------------------------
+
+      IF( nn_timing == 1 ) CALL timing_start('bdy_vol')
 
       IF( ln_vol ) THEN
@@ -161 +164 @@
       END IF 
       !
+      IF( nn_timing == 1 ) CALL timing_stop('bdy_vol')
+      !
       END IF ! ln_vol