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