& streamice_u_shear_pert,
_RL streamice_u_shear_pert
& (streamice_u_shear_pert(i,j+1,bi,bj) +
& (streamice_u_shear_pert(i,j,bi,bj) +