& C_basal_fric_const, n_basal_friction, streamice_input_flux_unif,
_RL n_basal_friction
CALL WRITE_0D_RL( n_basal_friction, INDEX_NONE,
n_basal_friction = 1.
& C_basal_fric_const, n_basal_friction,
& unorm ** (n_basal_friction-1.0) *
& STREAMICE_BSTRESS_EXP (unorm,n_basal_friction) *