Calculates the initial values of parameters of Neuzil solution

neuzil_solution_initial(ptest)

Arguments

ptest

A pumping_test object

Value

A list with

  • cd: Wellbore storage coefficient

  • t0: Intercept

References

Neuzil, C. E. On conducting the modified 'Slug' test in tight formations. Water Resources Research, 1982, 18, 2, 439-441

See also

Examples

data(neuzil) ptest.neuzil <- pumping_test("Well1", Q = 0, r = 0.0, t = neuzil$t, s = neuzil$s) par <- list(rw = 0.067, ceff = 2.723e-9, vs = 1.59) ptest.neuzil$additional_parameters <- par sol0 <- neuzil_solution_initial(ptest.neuzil) print(sol0)
#> $cd #> [1] 50 #> #> $t0 #> [1] 2295.53 #>