Changeset 9885 for NEMO/trunk/src/OCE/BDY
- Timestamp:
- 2018-07-05T18:45:20+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/BDY/bdyice.F90
r9880 r9885 74 74 ! 75 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 simulation76 ! ! i.e. inputs have not the same ice thickness distribution (set by rn_himean) 77 ! ! than the regional simulation 78 78 CALL ice_var_agg(1) 79 79 ! … … 189 189 END DO 190 190 ! 191 ! Ice ponds 192 a_ip(ji,jj,jl) = 0._wp 193 v_ip(ji,jj,jl) = 0._wp 194 ! 191 195 CASE( 1 ) ! velocity is outward 192 196 ! … … 202 206 sz_i(ji,jj,jk,jl) = rswitch * sz_i(ii,ij,jk,jl) + ( 1.0 - rswitch ) * rn_simin 203 207 END DO 208 ! 209 ! Ice ponds 210 a_ip(ji,jj,jl) = rswitch * a_ip(ii,ij,jl) 211 v_ip(ji,jj,jl) = rswitch * v_ip(ii,ij,jl) 204 212 ! 205 213 END SELECT … … 250 258 END DO 251 259 ! 260 CALL lbc_bdy_lnk( a_ip(:,:,jl), 'T', 1., ib_bdy ) 261 CALL lbc_bdy_lnk( v_ip(:,:,jl), 'T', 1., ib_bdy ) 262 ! 252 263 END DO !jl 253 !254 !! ! --- In case categories are out of bounds, do a remapping --- !255 !! ! i.e. inputs have not the same ice thickness distribution256 !! ! (set by rn_himean) than the regional simulation257 !! IF( jpl > 1 ) CALL ice_itd_reb( kt )258 264 ! 259 265 END SUBROUTINE bdy_ice_frs
Note: See TracChangeset
for help on using the changeset viewer.