Changeset 3182 for branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/BDY/bdydyn2d.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/bdydyn2d.F90 (modified) (5 diffs)

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

@@ -18 +18 @@
    !!   bdy_dyn2d_fla    : Apply Flather condition
    !!----------------------------------------------------------------------
+   USE timing          ! Timing
    USE oce             ! ocean dynamics and tracers 
    USE dom_oce         ! ocean space and time domain
@@ -84 +85 @@
       !!----------------------------------------------------------------------
       !
+      IF( nn_timing == 1 ) CALL timing_start('bdy_dyn2d_frs')
       !
       igrd = 2                      ! Relaxation of zonal velocity
@@ -103 +105 @@
       CALL lbc_lnk( pv2d, 'V', -1. )   ! Boundary points should be updated
       !
+      IF( nn_timing == 1 ) CALL timing_stop('bdy_dyn2d_frs')
+      !
 
    END SUBROUTINE bdy_dyn2d_frs
@@ -134 +138 @@
       REAL(wp) ::   zforc                            ! temporary scalar
       !!----------------------------------------------------------------------
+
+      IF( nn_timing == 1 ) CALL timing_start('bdy_dyn2d_fla')
 
       ! ---------------------------------!
@@ -179 +185 @@
       CALL lbc_lnk( pv2d, 'V', -1. )   !
       !
+      IF( nn_timing == 1 ) CALL timing_stop('bdy_dyn2d_fla')
       !
    END SUBROUTINE bdy_dyn2d_fla