& DWNSLP_slope, DWNSLP_rec_mu, DWNSLP_drFlow
_RL DWNSLP_slope, DWNSLP_rec_mu, DWNSLP_drFlow
& *DWNSLP_rec_mu*gravity*dRhoH*recip_rhoConst
CALL WRITE_0D_RL( DWNSLP_rec_mu,INDEX_NONE,'DWNSLP_rec_mu =',
& DWNSLP_slope, DWNSLP_rec_mu, DWNSLP_drFlow,
DWNSLP_rec_mu = 0.