R/WNeeds.R

WNeeds <-
function (x, frvol, R)
{ erb=F
  R1 = frvol * R * 10
  cat("Maximum water reserve <- ", R1, "\n")
  out = MSeason(FIdrico2(x, 12, R, R1), 12)
  out = out*10
}

Try the LPM package in your browser

Any scripts or data that you put into this service are public.

LPM documentation built on June 22, 2024, 10:38 a.m.