Changeset 4072 for branches/2013/dev_r4028_CNRS_LIM3/NEMOGCM/NEMO/LIM_SRC_3/limdyn.F90

Timestamp:

2013-10-17T15:10:59+02:00 (11 years ago)

Author:

clem

Message:

few rewritings

File:

• branches/2013/dev_r4028_CNRS_LIM3/NEMOGCM/NEMO/LIM_SRC_3/limdyn.F90 (modified) (3 diffs)

branches/2013/dev_r4028_CNRS_LIM3/NEMOGCM/NEMO/LIM_SRC_3/limdyn.F90

@@ -29 +29 @@
    USE prtctl           ! Print control
    USE lib_fortran      ! glob_sum
+   USE timing          ! Timing
 
    IMPLICIT NONE
@@ -68 +69 @@
       REAL(wp) :: zchk_vmin, zchk_amin, zchk_amax ! Check errors (C Rousset)
      !!---------------------------------------------------------------------
+
+      IF( nn_timing == 1 )  CALL timing_start('limdyn')
 
       CALL wrk_alloc( jpi, jpj, zu_io, zv_io )
@@ -249 +252 @@
       CALL wrk_dealloc( jpj, zind, zmsk )
       !
+      IF( nn_timing == 1 )  CALL timing_stop('limdyn')
+
    END SUBROUTINE lim_dyn