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

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

@@ -51 +51 @@
    USE lib_mpp        ! MPP library
    USE wrk_nemo       ! work arrays
+   USE timing         ! Timing
 
    IMPLICIT NONE
@@ -211 +212 @@
       REAL(wp), POINTER, DIMENSION(:,:,:) :: zpelc
       !!--------------------------------------------------------------------
+      !
+      IF( nn_timing == 1 )  CALL timing_start('tke_tke')
       !
       CALL wrk_alloc( jpi,jpj, imlc )    ! integer
@@ -435 +438 @@
       CALL wrk_dealloc( jpi,jpj, zhlc ) 
       CALL wrk_dealloc( jpi,jpj,jpk, zpelc ) 
+      !
+      IF( nn_timing == 1 )  CALL timing_stop('tke_tke')
       !
    END SUBROUTINE tke_tke
@@ -484 +489 @@
       !!--------------------------------------------------------------------
       !
+      IF( nn_timing == 1 )  CALL timing_start('tke_avn')
+      !
       zmxlm => tsa(:,:,:,1) 
       zmxld => tsa(:,:,:,2) 
@@ -657 +664 @@
             &          tab3d_2=avmv, clinfo2=       ' v: ', mask2=vmask, ovlap=1, kdim=jpk )
       ENDIF
+      !
+      IF( nn_timing == 1 )  CALL timing_stop('tke_avn')
       !
    END SUBROUTINE tke_avn