& streamice_u_shear_stress1,
_RL streamice_u_shear_stress1
& streamice_u_shear_stress1(i,j,bi,bj)
& + (1-fac) * streamice_u_shear_stress1(i,j,bi,bj)