Changeset 8536
- Timestamp:
- 2017-09-18T19:30:46+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r8183_ICEMODEL/NEMOGCM/NEMO/LIM_SRC_3/icerst.F90
r8534 r8536 25 25 USE lib_mpp ! MPP library 26 26 USE lib_fortran ! fortran utilities (glob_sum + no signed zero) 27 USE timing ! Timing28 27 29 28 IMPLICIT NONE … … 107 106 !!---------------------------------------------------------------------- 108 107 109 IF( nn_timing == 1 ) CALL timing_start('ice_rst')110 111 108 iter = kt + nn_fsbc - 1 ! ice restarts are written at kt == nitrst - nn_fsbc + 1 112 109 … … 187 184 ENDIF 188 185 ! 189 IF( nn_timing == 1 ) CALL timing_stop('ice_rst')190 !191 186 END SUBROUTINE ice_rst_write 192 187 … … 206 201 LOGICAL :: llok 207 202 !!---------------------------------------------------------------------- 208 209 IF( nn_timing == 1 ) CALL timing_start('ice_rst')210 203 211 204 IF(lwp) THEN … … 285 278 CALL iom_get( numrir, jpdom_autoglo, 'v_ice', v_ice ) 286 279 287 IF( nn_timing == 1 ) CALL timing_stop('ice_rst')288 289 280 END SUBROUTINE ice_rst_read 290 281
Note: See TracChangeset
for help on using the changeset viewer.