Changeset 4072 for branches/2013/dev_r4028_CNRS_LIM3/NEMOGCM/NEMO/LIM_SRC_3/limtrp.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/limtrp.F90 (modified) (3 diffs)

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

@@ -29 +29 @@
    USE lib_fortran    ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined)  
    USE limvar          ! clem for ice thickness correction
+   USE timing          ! Timing
 
    IMPLICIT NONE
@@ -87 +88 @@
       REAL(wp) :: zdv, zda, zvi, zvs, zsmv
       !!---------------------------------------------------------------------
+      IF( nn_timing == 1 )  CALL timing_start('limtrp')
 
       CALL wrk_alloc( jpi, jpj, zui_u, zvi_v, zsm, zs0at, zs0ow )
@@ -569 +571 @@
       CALL wrk_dealloc( jpi,jpj,jpl,zaiold, zhimax )   ! clem
       !
+      IF( nn_timing == 1 )  CALL timing_stop('limtrp')
    END SUBROUTINE lim_trp