Changeset 3294 for trunk/NEMOGCM/NEMO/OPA_SRC/DYN/dynldf_lap.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/DYN/dynldf_lap.F90 (modified) (3 diffs)

trunk/NEMOGCM/NEMO/OPA_SRC/DYN/dynldf_lap.F90

@@ -23 +23 @@
    USE trdmod_oce      ! ocean variables trends
    USE ldfslp          ! iso-neutral slopes 
+   USE timing          ! Timing
 
    IMPLICIT NONE
@@ -68 +69 @@
       !!----------------------------------------------------------------------
       !
+      IF( nn_timing == 1 )  CALL timing_start('dyn_ldf_lap')
+      !
       IF( kt == nit000 ) THEN
          IF(lwp) WRITE(numout,*)
@@ -95 +98 @@
       END DO                                           !   End of slab
       !                                                ! ===============
+      IF( nn_timing == 1 )  CALL timing_stop('dyn_ldf_lap')
+      !
    END SUBROUTINE dyn_ldf_lap