Create drain_dem.R

This is a test script in the R language that "drains" a digital elevation model: it removes contemporary (modern) reservoirs and dams from the elevation model, and simulates what the inundated valley might have looked like.

This is an initial commit; I will add YW structured comments asap.