Changeset 3294 for trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcdcy.F90

Timestamp:

2012-01-28T17:44:18+01:00 (12 years ago)

Author:

rblod

Message:

Merge of 3.4beta into the trunk

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcdcy.F90 (modified) (3 diffs)

trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcdcy.F90

@@ -18 +18 @@
    USE in_out_manager   ! I/O manager
    USE lib_mpp          ! MPP library
+   USE timing           ! Timing
 
    IMPLICIT NONE
@@ -76 +77 @@
          & - paaa * pt1 - zinvtwopi * pbbb * SIN(pccc + ztwopi * pt1)
       !!---------------------------------------------------------------------
-
+      !
+      IF( nn_timing == 1 )  CALL timing_start('sbc_dcy')
+      !
       ! Initialization
       ! --------------
@@ -221 +224 @@
       END DO  
       !
+      IF( nn_timing == 1 )  CALL timing_stop('sbc_dcy')
+      !
    END FUNCTION sbc_dcy