neuzil_well_function

Source: R/neuzil_utilities.R

Calculates the well function of the Neuzil solution

neuzil_well_function(td, par)

Arguments

td

Numeric vector with the dimensionless time
par

A list with the wellbore storage coefficient (cd) and stehfest coeffs (coeffs)

Value

A numeric vector with the dimensionless drawdown calculated using the Neuzil solution

References

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

See also

Other neuzil functions: neuzil_WF_LT, neuzil_calculate_parameters, neuzil_solution_dlogt, neuzil_solution_initial, neuzil_solution

Examples

td <- logseq(-1, 3, 50)
par <- list(cd = 0.01, coeffs = stehfest_coeffs(8) )
W <- neuzil_well_function(td, par)
plot(td, W, type = "l", log = "xy", main = "NEUZIL SOLUTION: Well function")