Changeset 3161 for branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DYN/dynbfr.F90

Timestamp:

2011-11-20T16:02:18+01:00 (12 years ago)

Author:

cetlod

Message:

New dynamical allocation & timing in OPA_SRC/DYN routines

File:

• branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DYN/dynbfr.F90 (modified) (3 diffs)

branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DYN/dynbfr.F90

@@ -18 +18 @@
    USE in_out_manager  ! I/O manager
    USE prtctl          ! Print control
+   USE timing          ! Timing
 
    IMPLICIT NONE
@@ -52 +53 @@
       !!---------------------------------------------------------------------
       !
-      IF( .not. ln_bfrimp) THEN     ! only for explicit bottom friction form
+      IF( nn_timing == 1 )  CALL timing_start('dyn_bfr')
+      !
+      IF( .NOT.ln_bfrimp) THEN     ! only for explicit bottom friction form
                                     ! implicit bfr is implemented in dynzdf_imp
                                     ! H. Liu,  Sept. 2011
@@ -91 +94 @@
         !
       ENDIF     ! end explicit bottom friction
+      !
+      IF( nn_timing == 1 )  CALL timing_stop('dyn_bfr')
+      !
    END SUBROUTINE dyn_bfr