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

Timestamp:

2011-11-25T12:27:22+01:00 (13 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/bdydyn3d.F90 (modified) (4 diffs)

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

@@ -1 +1 @@
 MODULE bdydyn3d
    !!======================================================================
-   !!                       ***  MODULE  bdydyn  ***
+   !!                       ***  MODULE  bdydyn3d  ***
    !! Unstructured Open Boundary Cond. :   Flow relaxation scheme on velocities
    !!======================================================================
@@ -18 +18 @@
    !!   bdy_dyn3d_frs    : apply Flow Relaxation Scheme
    !!----------------------------------------------------------------------
+   USE timing          ! Timing
    USE oce             ! ocean dynamics and tracers 
    USE dom_oce         ! ocean space and time domain
@@ -86 +87 @@
       !!----------------------------------------------------------------------
       !
+      IF( nn_timing == 1 ) CALL timing_start('bdy_dyn3d_frs')
       !
       igrd = 2                      ! Relaxation of zonal velocity
@@ -110 +112 @@
       IF( kt .eq. nit000 ) CLOSE( unit = 102 )
 
+      IF( nn_timing == 1 ) CALL timing_stop('bdy_dyn3d_frs')
+
    END SUBROUTINE bdy_dyn3d_frs