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

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

@@ -34 +34 @@
    USE trdmod_oce      ! ocean trends definition
    USE trdtra          ! tracers trends
+   USE timing          ! Timing
 
    IMPLICIT NONE
@@ -254 +255 @@
       REAL(wp), POINTER, DIMENSION(:,:) ::   zmask, zblcm, zblct
       !!--------------------------------------------------------------------
-     
+      !
+      IF( nn_timing == 1 )  CALL timing_start('zdf_kpp')
+      !
       CALL wrk_alloc( jpi, zmoa, zekman, zhmax, zria, zhbl )
       CALL wrk_alloc( jpi, za2m, za3m, zkmpm, za2t, za3t, zkmpt )
@@ -1214 +1217 @@
 #endif
       !
+      IF( nn_timing == 1 )  CALL timing_stop('zdf_kpp')
+      !
    END SUBROUTINE zdf_kpp
 
@@ -1229 +1234 @@
       INTEGER, INTENT(in) :: kt
       INTEGER :: ji, jj, jk
-
+      !
+      IF( nn_timing == 1 )  CALL timing_start('tra_kpp')
+      !
       IF( kt == nit000 ) THEN
          IF(lwp) WRITE(numout,*) 
@@ -1269 +1276 @@
          &             tab3d_2=tsa(:,:,:,jp_sal), clinfo2=       ' Sa: ', mask2=tmask, clinfo3='tra' )
       ENDIF
-
+      !
+      IF( nn_timing == 1 )  CALL timing_stop('tra_kpp')
+      !
    END SUBROUTINE tra_kpp
 
@@ -1373 +1382 @@
       NAMELIST/namzdf_kpp/ ln_kpprimix, rn_difmiw, rn_difsiw, rn_riinfty, rn_difri, rn_bvsqcon, rn_difcon, nn_ave
       !!----------------------------------------------------------------------
-
+      !
+      IF( nn_timing == 1 )  CALL timing_start('zdf_kpp_init')
+      !
       REWIND ( numnam )               ! Read Namelist namkpp : K-Profile Parameterisation
       READ   ( numnam, namzdf_kpp )
@@ -1571 +1582 @@
 #endif
       !
+      IF( nn_timing == 1 )  CALL timing_stop('zdf_kpp_init')
+      !
    END SUBROUTINE zdf_kpp_init