Ignore:
Timestamp:
2017-09-18T19:30:46+02:00 (3 years ago)
Author:
clem
Message:

bug fix

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icerst.F90

    r8534 r8536  
    2525   USE lib_mpp        ! MPP library 
    2626   USE lib_fortran    ! fortran utilities (glob_sum + no signed zero) 
    27    USE timing         ! Timing 
    2827 
    2928   IMPLICIT NONE 
     
    107106      !!---------------------------------------------------------------------- 
    108107 
    109       IF( nn_timing == 1 )   CALL timing_start('ice_rst') 
    110  
    111108      iter = kt + nn_fsbc - 1   ! ice restarts are written at kt == nitrst - nn_fsbc + 1 
    112109 
     
    187184      ENDIF 
    188185      ! 
    189       IF( nn_timing == 1 ) CALL timing_stop('ice_rst') 
    190       ! 
    191186   END SUBROUTINE ice_rst_write 
    192187 
     
    206201      LOGICAL           ::   llok 
    207202      !!---------------------------------------------------------------------- 
    208  
    209       IF( nn_timing == 1 )   CALL timing_start('ice_rst') 
    210203 
    211204      IF(lwp) THEN 
     
    285278      CALL iom_get( numrir, jpdom_autoglo, 'v_ice', v_ice ) 
    286279 
    287       IF( nn_timing == 1 ) CALL timing_stop('ice_rst') 
    288  
    289280   END SUBROUTINE ice_rst_read 
    290281 
Note: See TracChangeset for help on using the changeset viewer.