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

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

@@ -49 +49 @@
    USE in_out_manager   ! I/O manager
    USE lib_mpp          ! MPP library
+   USE timing           ! Timing
    USE sbcwave          ! Wave module
 
@@ -222 +223 @@
       INTEGER, INTENT(in) ::   kt       ! ocean time step
       !!---------------------------------------------------------------------
-
+      !
+      IF( nn_timing == 1 )  CALL timing_start('sbc')
+      !
       !                                            ! ---------------------------------------- !
       IF( kt /= nit000 ) THEN                      !          Swap of forcing fields          !
@@ -363 +366 @@
       IF( kt == nitend )   CALL sbc_final         ! Close down surface module if necessary
       !
+      IF( nn_timing == 1 )  CALL timing_stop('sbc')
+      !
    END SUBROUTINE sbc