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

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

@@ -21 +21 @@
    USE lib_mpp         ! distribued memory computing library
    USE wrk_nemo        ! work arrays
+   USE timing          ! Timing
    USE lbclnk          ! ocean lateral boundary conditions (or mpp link)
    USE prtctl          ! Print control
@@ -120 +121 @@
          &                  sn_tair , sn_rhm , sn_prec 
       !!---------------------------------------------------------------------
-
+      !
+      IF( nn_timing == 1 )  CALL timing_start('sbc_blk_mfs')
+      !
       !                                         ! ====================== !
       IF( kt == nit000 ) THEN                   !  First call kt=nit000  !
@@ -263 +266 @@
 
       ENDIF
-
+      !
+      IF( nn_timing == 1 )  CALL timing_stop('sbc_blk_mfs')
+      !
    END SUBROUTINE sbc_blk_mfs
   
@@ -324 +329 @@
       REAL(wp), DIMENSION(5) :: p_e = (/-0.16,1.0,1.0,1.0,1.0/)
       INTEGER :: kku                        !index varing with wind speed
-
+      !
+      IF( nn_timing == 1 )  CALL timing_start('fluxes_mfs')
+      !
       CALL wrk_alloc( jpi,jpj, rspeed, sh10now, t10now, cdx, ce, shms )
       CALL wrk_alloc( jpi,jpj, rhom, sstk, ch, rel_windu, rel_windv )
@@ -490 +497 @@
       CALL wrk_dealloc( jpi,jpj, rspeed, sh10now, t10now, cdx, ce, shms )
       CALL wrk_dealloc( jpi,jpj, rhom, sstk, ch, rel_windu, rel_windv )
-
+      !
+      IF( nn_timing == 1 )  CALL timing_stop('fluxes_mfs')
+      !
    END SUBROUTINE fluxes_mfs