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

branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfbfr.F90

@@ -22 +22 @@
    USE lib_mpp         ! distributed memory computing
    USE prtctl          ! Print control
+   USE timing          ! Timing
 
    IMPLICIT NONE
@@ -82 +83 @@
       REAL(wp) ::   zvu, zuv, zecu, zecv   ! temporary scalars
       !!----------------------------------------------------------------------
-
+      !
+      IF( nn_timing == 1 )  CALL timing_start('zdf_bfr')
+      !
       IF( nn_bfr == 2 ) THEN                 ! quadratic botton friction
          ! Calculate and store the quadratic bottom friction coefficient bfrua and bfrva
@@ -121 +124 @@
       ENDIF
       !
+      IF( nn_timing == 1 )  CALL timing_stop('zdf_bfr')
+      !
    END SUBROUTINE zdf_bfr
 
@@ -144 +149 @@
       NAMELIST/nambfr/ nn_bfr, rn_bfri1, rn_bfri2, rn_bfeb2, ln_bfr2d, rn_bfrien, ln_bfrimp
       !!----------------------------------------------------------------------
-
+      !
+      IF( nn_timing == 1 )  CALL timing_start('zdf_bfr_init')
+      !
       REWIND ( numnam )               !* Read Namelist nam_bfr : bottom momentum boundary condition
       READ   ( numnam, nambfr )
@@ -272 +279 @@
       ENDIF
       !
+      IF( nn_timing == 1 )  CALL timing_stop('zdf_bfr_init')
+      !
    END SUBROUTINE zdf_bfr_init