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

branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/LDF/ldfslp.F90

@@ -32 +32 @@
    USE prtctl          ! Print control
    USE wrk_nemo        ! work arrays
+   USE timing          ! Timing
 
    IMPLICIT NONE
@@ -112 +113 @@
       REAL(wp), POINTER, DIMENSION(:,:,:) ::  zgru, zgrv
       !!----------------------------------------------------------------------
-
+      !
+      IF( nn_timing == 1 )  CALL timing_start('ldf_slp')
+      !
       CALL wrk_alloc( jpi,jpj,jpk, zdzr )
       !
@@ -365 +368 @@
       CALL wrk_dealloc( jpi,jpj,jpk, zdzr )
       !
+      IF( nn_timing == 1 )  CALL timing_stop('ldf_slp')
+      !
    END SUBROUTINE ldf_slp
 
@@ -399 +404 @@
       REAL(wp), POINTER, DIMENSION(:,:,:,:) ::   zti_mlb, ztj_mlb            ! for Griffies operator only
       !!----------------------------------------------------------------------
-      
+      !
+      IF( nn_timing == 1 )  CALL timing_start('ldf_slp_grif')
+      !
       CALL wrk_alloc( jpi,jpj, z1_mlbw )
       CALL wrk_alloc( jpi,jpj,jpk,2, zdxrho , zdyrho, zdzrho,              klstart = 0  )
@@ -598 +605 @@
       CALL wrk_dealloc( jpi,jpj,  2,2, zti_mlb, ztj_mlb,        kkstart = 0, klstart = 0  )
       !
+      IF( nn_timing == 1 )  CALL timing_stop('ldf_slp_grif')
+      !
    END SUBROUTINE ldf_slp_grif
 
@@ -629 +638 @@
       REAL(wp) ::   zck, zfk,      zbw             !   -      -
       !!----------------------------------------------------------------------
-
+      !
+      IF( nn_timing == 1 )  CALL timing_start('ldf_slp_mxl')
+      !
       zeps   =  1.e-20_wp        !==   Local constant initialization   ==!
       zm1_g  = -1.0_wp / grav
@@ -720 +731 @@
       CALL lbc_lnk( wslpiml, 'W', -1. )   ;   CALL lbc_lnk( wslpjml, 'W', -1. )   ! lateral boundary conditions
       !
+      IF( nn_timing == 1 )  CALL timing_stop('ldf_slp_mxl')
+      !
    END SUBROUTINE ldf_slp_mxl
 
@@ -735 +748 @@
       INTEGER ::   ierr         ! local integer
       !!----------------------------------------------------------------------
-
+      !
+      IF( nn_timing == 1 )  CALL timing_start('ldf_slp_init')
+      !
       IF(lwp) THEN
          WRITE(numout,*)
@@ -785 +800 @@
          ENDIF
       ENDIF
+      !
+      IF( nn_timing == 1 )  CALL timing_stop('ldf_slp_init')
       !
    END SUBROUTINE ldf_slp_init