Changeset 3229 for branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfgls.F90

Timestamp:

2011-12-20T12:42:17+01:00 (13 years ago)

Author:

charris

Message:

Added timing calls to most significant routines in LDF, SBC and ZDF.

File:

• branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfgls.F90 (modified) (5 diffs)

branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfgls.F90

@@ -30 +30 @@
    USE in_out_manager ! I/O manager
    USE iom            ! I/O manager library
+   USE timing         ! Timing
 
    IMPLICIT NONE
@@ -153 +154 @@
       REAL(wp), POINTER, DIMENSION(:,:,:) ::   z_elem_c, psi
       !!--------------------------------------------------------------------
-
+      !
+      IF( nn_timing == 1 )  CALL timing_start('zdf_gls')
+      !
       CALL wrk_alloc( jpi,jpj, zdep, zflxs, zhsro )
       CALL wrk_alloc( jpi,jpj,jpk, eb, mxlb, shear, eps, zwall_psi )
@@ -889 +892 @@
       CALL wrk_dealloc( jpi,jpj,jpk, eb, mxlb, shear, eps, zwall_psi )
       !
+      IF( nn_timing == 1 )  CALL timing_stop('zdf_gls')
+      !
+      !
    END SUBROUTINE zdf_gls
 
@@ -920 +926 @@
          &            nn_stab_func, nn_clos
       !!----------------------------------------------------------
-
+      !
+      IF( nn_timing == 1 )  CALL timing_start('zdf_gls_init')
+      !
       REWIND( numnam )                 !* Read Namelist namzdf_gls
       READ  ( numnam, namzdf_gls )
@@ -1187 +1195 @@
       CALL gls_rst( nit000, 'READ' )   !* read or initialize all required files
       !
+      IF( nn_timing == 1 )  CALL timing_stop('zdf_gls_init')
+      !
    END SUBROUTINE zdf_gls_init