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

Timestamp:

2011-12-20T12:42:17+01:00 (12 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/zdftmx.F90 (modified) (7 diffs)

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

@@ -26 +26 @@
    USE lib_mpp         ! MPP library
    USE wrk_nemo        ! work arrays
+   USE timing          ! Timing
 
    IMPLICIT NONE
@@ -111 +112 @@
       REAL(wp), POINTER, DIMENSION(:,:) ::   zkz
       !!----------------------------------------------------------------------
-
+      !
+      IF( nn_timing == 1 )  CALL timing_start('zdf_tmx')
+      !
       CALL wrk_alloc( jpi,jpj, zkz )
 
@@ -177 +180 @@
       CALL wrk_dealloc( jpi,jpj, zkz )
       !
+      IF( nn_timing == 1 )  CALL timing_stop('zdf_tmx')
+      !
    END SUBROUTINE zdf_tmx
 
@@ -212 +217 @@
       !!----------------------------------------------------------------------
       !
+      IF( nn_timing == 1 )  CALL timing_start('tmx_itf')
+      !
       CALL wrk_alloc( jpi,jpj, zkz, zsum1 , zsum2 , zsum )
       CALL wrk_alloc( jpi,jpj,jpk, zempba_3d_1, zempba_3d_2, zempba_3d, zdn2dz, zavt_itf )
@@ -302 +309 @@
       CALL wrk_dealloc( jpi,jpj,jpk, zempba_3d_1, zempba_3d_2, zempba_3d, zdn2dz, zavt_itf )
       !
+      IF( nn_timing == 1 )  CALL timing_stop('tmx_itf')
+      !
    END SUBROUTINE tmx_itf
 
@@ -353 +362 @@
       NAMELIST/namzdf_tmx/ rn_htmx, rn_n2min, rn_tfe, rn_me, ln_tmx_itf, rn_tfe_itf
       !!----------------------------------------------------------------------
-
+      !
+      IF( nn_timing == 1 )  CALL timing_start('zdf_tmx_init')
+      !
       CALL wrk_alloc( jpi,jpj, zem2, zek1, zkz, zfact, zhdep )
       CALL wrk_alloc( jpi,jpj,jpk, zpc )
@@ -520 +531 @@
       CALL wrk_dealloc( jpi,jpj,jpk, zpc )
       !
+      IF( nn_timing == 1 )  CALL timing_stop('zdf_tmx_init')
+      !
    END SUBROUTINE zdf_tmx_init