- Timestamp:
- 2017-10-18T19:14:32+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r7881_ENHANCE09_RK3/NEMOGCM/NEMO/RK3_SRC/BDY/bdyice.F90
r8586 r8637 16 16 !!---------------------------------------------------------------------- 17 17 USE oce ! ocean dynamics and tracers variables 18 USE ice ! LIM_3 ice variables 19 USE icevar 20 USE icectl 18 USE ice ! sea-ice: variables 19 USE icevar ! sea-ice: operations 20 USE iceitd ! sea-ice: rebining 21 USE icectl ! sea-ice: control prints 21 22 USE phycst ! physical constant 22 23 USE eosbn2 ! equation of state … … 39 40 40 41 !!---------------------------------------------------------------------- 41 !! NEMO/OPA 3.3 , NEMO Consortium (2010)42 !! NEMO/OPA 4.0 , NEMO Consortium (2017) 42 43 !! $Id: bdyice.F90 8306 2017-07-10 10:18:03Z clem $ 43 44 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) … … 249 250 END DO !jl 250 251 ! 252 ! --- In case categories are out of bounds, do a remapping --- ! 253 ! i.e. inputs have not the same ice thickness distribution 254 ! (set by rn_himean) than the regional simulation 255 IF( jpl > 1 ) CALL ice_itd_reb( kt ) 251 256 ! 252 257 IF( nn_timing == 1 ) CALL timing_stop('bdy_ice_frs') … … 273 278 !!------------------------------------------------------------------------------ 274 279 ! 275 IF( nn_timing == 1 )CALL timing_start('bdy_ice_dyn')280 IF( ln_timing ) CALL timing_start('bdy_ice_dyn') 276 281 ! 277 282 DO ib_bdy=1, nb_bdy … … 350 355 END DO 351 356 ! 352 IF( nn_timing == 1 )CALL timing_stop('bdy_ice_dyn')357 IF( ln_timing ) CALL timing_stop('bdy_ice_dyn') 353 358 ! 354 359 END SUBROUTINE bdy_ice_dyn
Note: See TracChangeset
for help on using the changeset viewer.