R/edelman1_r.R

In ToonVanDaele/hydranalytic: A Collection of Some Analytic Hydrological Equations

#' Edelman - case 1 -  distance to drawdown
#'
#' @description  De Marsily, 1986; p.198
#'
#' Reference: Edelman JH. (1972). Groundwater hydraulics of extensive aquifers.
#' Bulletin 13. Wageningen, Netherlands.: International Institute for Land
#' Reclamation and Improvement (ILRZ).
#'
#' @param s drawdown (L)
#' @param S Storage (-)
#' @param Kh Kh (L/T)
#' @param D thickness (L)
#' @param t time (T)
#' @param h0 change of water level at cross section (L)
#'
#'
#' @return r change of groundwater level (L)
#'
#' @export
#-------------------------------------------------------------------------------
edelman_r <- function(s, S, Kh, D, t, h0) {

  r <- erfcinv(s / h0) / sqrt(S / (4 * Kh * D * t))

  return(r)

}