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

branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

@@ -48 +48 @@
    USE lib_mpp         ! distribued memory computing library
    USE wrk_nemo        ! work arrays
+   USE timing          ! Timing
    USE lbclnk          ! ocean lateral boundary conditions (or mpp link)
 #if defined key_cpl_carbon_cycle
@@ -227 +228 @@
          &                  sn_rcv_qns , sn_rcv_emp   , sn_rcv_rnf  , sn_rcv_cal   , sn_rcv_iceflx  , sn_rcv_co2
       !!---------------------------------------------------------------------
-
+      !
+      IF( nn_timing == 1 )  CALL timing_start('sbc_cpl_init')
+      !
       CALL wrk_alloc( jpi,jpj, zacs, zaos )
 
@@ -617 +620 @@
       CALL wrk_dealloc( jpi,jpj, zacs, zaos )
       !
+      IF( nn_timing == 1 )  CALL timing_stop('sbc_cpl_init')
+      !
    END SUBROUTINE sbc_cpl_init
 
@@ -676 +681 @@
       REAL(wp), POINTER, DIMENSION(:,:) ::   ztx, zty 
       !!----------------------------------------------------------------------
-
+      !
+      IF( nn_timing == 1 )  CALL timing_start('sbc_cpl_rcv')
+      !
       CALL wrk_alloc( jpi,jpj, ztx, zty )
 
@@ -862 +869 @@
       CALL wrk_dealloc( jpi,jpj, ztx, zty )
       !
+      IF( nn_timing == 1 )  CALL timing_stop('sbc_cpl_rcv')
+      !
    END SUBROUTINE sbc_cpl_rcv
    
@@ -905 +914 @@
       REAL(wp), POINTER, DIMENSION(:,:) ::   ztx, zty 
       !!----------------------------------------------------------------------
-      
+      !
+      IF( nn_timing == 1 )  CALL timing_start('sbc_cpl_ice_tau')
+      !
       CALL wrk_alloc( jpi,jpj, ztx, zty )
 
@@ -1070 +1081 @@
       CALL wrk_dealloc( jpi,jpj, ztx, zty )
       !
+      IF( nn_timing == 1 )  CALL timing_stop('sbc_cpl_ice_tau')
+      !
    END SUBROUTINE sbc_cpl_ice_tau
    
@@ -1122 +1135 @@
       REAL(wp), POINTER, DIMENSION(:,:) ::   zcptn, ztmp, zicefr
       !!----------------------------------------------------------------------
-
+      !
+      IF( nn_timing == 1 )  CALL timing_start('sbc_cpl_ice_flx')
+      !
       CALL wrk_alloc( jpi,jpj, zcptn, ztmp, zicefr )
 
@@ -1301 +1316 @@
       CALL wrk_dealloc( jpi,jpj, zcptn, ztmp, zicefr )
       !
+      IF( nn_timing == 1 )  CALL timing_stop('sbc_cpl_ice_flx')
+      !
    END SUBROUTINE sbc_cpl_ice_flx
    
@@ -1320 +1337 @@
       REAL(wp), POINTER, DIMENSION(:,:,:) ::   ztmp3, ztmp4   
       !!----------------------------------------------------------------------
-
+      !
+      IF( nn_timing == 1 )  CALL timing_start('sbc_cpl_snd')
+      !
       CALL wrk_alloc( jpi,jpj, zfr_l, ztmp1, ztmp2, zotx1, zoty1, zotz1, zitx1, zity1, zitz1 )
       CALL wrk_alloc( jpi,jpj,jpl, ztmp3, ztmp4 )
@@ -1545 +1564 @@
       CALL wrk_dealloc( jpi,jpj,jpl, ztmp3, ztmp4 )
       !
+      IF( nn_timing == 1 )  CALL timing_stop('sbc_cpl_snd')
+      !
    END SUBROUTINE sbc_cpl_snd