& , objf_ice_export
_RL objf_ice_export (nsx,nsy)
objf_ice_export(bi,bj) = objf_ice_export(bi,bj)
& + mult_ice_export * objf_ice_export(bi,bj)
objf_ice_export(bi,bj) = 0. _d 0