R/tidal_wang.R

# # Wang 2000, Theory of Linear Poroelasticity
#
# omega <- .calc_omega(frequency)
# delta <- z * sqrt(omega / (2.0 * diffusivity))
# exp(-(1 + 1i) * delta) * 1/specific_storage
jkennel/aquifer documentation built on July 31, 2022, 11:33 p.m.