Ignore:
Timestamp:
2013-10-17T15:10:59+02:00 (8 years ago)
Author:
clem
Message:

few rewritings

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2013/dev_r4028_CNRS_LIM3/NEMOGCM/NEMO/LIM_SRC_3/limupdate1.F90

    r4045 r4072  
    4242   USE iom              ! I/O manager 
    4343   USE lib_mpp          ! MPP library 
     44   USE timing          ! Timing 
    4445 
    4546   IMPLICIT NONE 
     
    9899      REAL(wp), POINTER, DIMENSION(:,:,:) ::   zviold, zvsold, zsmvold   ! old ice volume... 
    99100      !!------------------------------------------------------------------- 
     101      IF( nn_timing == 1 )  CALL timing_start('limupdate1') 
    100102 
    101103      CALL wrk_alloc( jkmax, zthick0, zqm0 ) 
     
    538540      CALL wrk_dealloc( jpi,jpj,jpl,zviold, zvsold, zsmvold )   ! clem 
    539541 
     542      IF( nn_timing == 1 )  CALL timing_stop('limupdate1') 
    540543   END SUBROUTINE lim_update1 
    541544#else 
Note: See TracChangeset for help on using the changeset viewer.