Function to calculate the initial values of the Cooper solution

cooper_solution_initial(ptest)

Arguments

ptest

A pumping_test object

Value

A list with

  • cd: Initial value of the wellbore storage coefficient

  • t0: Intercept of the straight line fitted to the drawdown data using the Cooper-Jacob approach

References

Cooper, H. H.; Bredehoeft, J. D. & Papadopulos, I. S. Response of a finite-diameter well to an instantaneous charge of water Water Resources Research, 1967, 3, 263-269

See also

Examples

data(cooper_slug) ptest <- pumping_test("Well1", Q = 0.0, r = 0.0, t = cooper_slug$t, s = cooper_slug$s) sol0 <- cooper_solution_initial(ptest) print(sol0)
#> $cd #> [1] 30.07103 #> #> $t0 #> [1] 25567.01 #>