Function to calculate the hydraulic parameters for the Jacob-Lohman solution (Discharge)

jacob_lohman_G_calculate_parameters(ptest, par)

Arguments

ptest

A pumping_test object

par

A list with the slope and the intercept (a and t0) of the straight line fitted to the drawdown data using the Cooper-Jacob approach

Value

A list with

  • Tr Transmissivity

  • Ss Storage coefficient

  • radius_influence

References

Jacob, C. E. & Lohman, S. W. Nonsteady Flow to a Well Of Constant Drawdown. American Geophysical Union, 1952, 33, 10.

See also

Examples

data(jacob_lohman) s <- vector("numeric", length(jacob_lohman$t)) s[1:length(jacob_lohman$t)] <- 0 ptest <- pumping_test("Well1", Q = jacob_lohman$q, r = 0.0, t = jacob_lohman$t, s = s)
#> Warning: the condition has length > 1 and only the first element will be used
sol0 <- jacob_lohman_G_solution_initial(ptest) jl.par <- jacob_lohman_G_calculate_parameters(ptest, sol0) print(jl.par)
#> $Tr #> [1] 1.899174e-07 #> #> $Ss #> [1] Inf #> #> $radius_influence #> [1] 0 #>