sncFun: Non-capillary Saturation Function to Extend Other Functions

Description Usage Arguments Value Author(s) References Examples

View source: R/sncFun.R

Description

The general purpose method to calculate numerically the effective non-capillary saturation is directly obtained from any arbritrary expression for the rescaled capillary saturation function as described by \insertCiteWeber.2019spsh. Examples of capillary saturation functions are the well known \insertCitevanGenuchten.1980spsh, \insertCiteKosugi.1996spsh, \insertCiteFredlund.1994spsh functions.

Usage

1
sncFun(h, scap)

Arguments

h

A vector of n pressure head values for which scap was calculated

scap

vector of n monotonically decreasing capillary saturation function values calculated by shypFun, rescaled between 0 and 1.

Value

A vector of n elements with calculated saturation content of the non-capillary part.

Author(s)

Tobias KD Weber , tobias.weber@uni-hohenheim.de

References

\insertRef

vanGenuchten.1980spsh
\insertRefKosugi.1996spsh
\insertRefFredlund.1994spsh

Examples

1
2
3
4
5
6
7
# set variables
p <- c(0.1, 0.4, 0.01, 2, 100, .5)
h <- 10^seq(-2, 6.8, length = 197)

# Calculate the capillary and non-capillary saturation function.
Se <- shypFun(p, h, shpmodel = "01110")$Se     
Snc <- sncFun(Se)

spsh documentation built on April 14, 2020, 6:37 p.m.