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

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

@@ -42 +42 @@
    USE iom              ! I/O manager
    USE lib_mpp          ! MPP library
+   USE timing          ! Timing
 
    IMPLICIT NONE
@@ -98 +99 @@
       REAL(wp), POINTER, DIMENSION(:,:,:) ::   zviold, zvsold, zsmvold   ! old ice volume...
       !!-------------------------------------------------------------------
+      IF( nn_timing == 1 )  CALL timing_start('limupdate1')
 
       CALL wrk_alloc( jkmax, zthick0, zqm0 )
@@ -538 +540 @@
       CALL wrk_dealloc( jpi,jpj,jpl,zviold, zvsold, zsmvold )   ! clem
 
+      IF( nn_timing == 1 )  CALL timing_stop('limupdate1')
    END SUBROUTINE lim_update1
 #else