& bdot_streamice0,
_RL bdot_streamice0
bdot_streamice0(i,j,bi,bj) =
& fac * bdot_streamice0(i,j,bi,bj)