& cost_func1_streamice,
_RL cost_func1_streamice(nSx,nSy)
cost_func1_streamice (bi,bj) =
& cost_func1_streamice (bi,bj) +
cost_func1_streamice (bi,bj) = 0.0