Changeset 9880 for NEMO/trunk/src/OCE/BDY
- Timestamp:
- 2018-07-05T17:43:44+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/BDY/bdyice.F90
r9657 r9880 18 18 USE ice ! sea-ice: variables 19 19 USE icevar ! sea-ice: operations 20 USE ice itd ! sea-ice: rebining20 USE icecor ! sea-ice: corrections 21 21 USE icectl ! sea-ice: control prints 22 22 USE phycst ! physical constant … … 73 73 END DO 74 74 ! 75 CALL ice_var_zapsmall 75 CALL ice_cor( kt , 0 ) ! -- In case categories are out of bounds, do a remapping 76 ! ! i.e. inputs have not the same ice thickness distribution 77 ! ! (set by rn_himean) than the regional simulation 76 78 CALL ice_var_agg(1) 77 79 ! … … 250 252 END DO !jl 251 253 ! 252 ! --- In case categories are out of bounds, do a remapping --- !253 ! i.e. inputs have not the same ice thickness distribution254 ! (set by rn_himean) than the regional simulation255 IF( jpl > 1 ) CALL ice_itd_reb( kt )254 !! ! --- In case categories are out of bounds, do a remapping --- ! 255 !! ! i.e. inputs have not the same ice thickness distribution 256 !! ! (set by rn_himean) than the regional simulation 257 !! IF( jpl > 1 ) CALL ice_itd_reb( kt ) 256 258 ! 257 259 END SUBROUTINE bdy_ice_frs
Note: See TracChangeset
for help on using the changeset viewer.