Velocity and stress fields in grounded glaciers: a simple algorithm for including deviatoric stress gradients