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