STREAMICE_BSTRESS_EXP = speed**(m-1)
_RL FUNCTION STREAMICE_BSTRESS_EXP (speed,m)
& STREAMICE_BSTRESS_EXP (unorm,n_basal_friction) *
& STREAMICE_BSTRESS_EXP (unorm,pwr)*
_RL STREAMICE_BSTRESS_EXP