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

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

@@ -19 +19 @@
    !!   bdy_init       : Initialization of unstructured open boundaries
    !!----------------------------------------------------------------------
+   USE timing          ! Timing
    USE oce             ! ocean dynamics and tracers variables
    USE dom_oce         ! ocean space and time domain
@@ -94 +95 @@
       !!----------------------------------------------------------------------
 
+      IF( nn_timing == 1 ) CALL timing_start('bdy_init')
+
       IF( bdy_oce_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'bdy_init : unable to allocate oce arrays' )
 
@@ -806 +809 @@
       DEALLOCATE(nbidta, nbjdta, nbrdta)
 
+      IF( nn_timing == 1 ) CALL timing_stop('bdy_init')
+
    END SUBROUTINE bdy_init