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