Description Usage Arguments See Also Examples
Lateral Subsurface Discharge
Lateral Surface Discharge - Runoff
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | LateralSubsurfaceDischarge(psi, elevation = "DemFile",
slope = "SlopeMapFile", aspect = NULL, neighbors = 8,
soilmap = "SoilMapFile", soiltypes = "SoilParFile", Dz = "SoilDz",
unitelev = 1000, use.soilwater.function = list(fun = "khy", args =
list(ksat = "LateralHydrConductivity", alpha = "Alpha", n = "N", type_swc =
"VanGenuchten", type_khy = "Mualem")),
param.use.soilwater.function = c("LateralHydrConductivity", "Alpha", "N"),
use_XY = FALSE, unit_input = c("millimeter", "centimeter", "meter"),
output.discharge = FALSE, ...)
LateralSurfaceDischarge(hsup, elevation = "DemFile", slope = "SlopeMapFile",
aspect = NULL, neighbors = 8, landmap = "LandCoverMapFile",
flowres = "SurFlowResLand", expflowres = "SurFlowResExp",
unit_input = c("millimeter", "centimeter", "meter"),
output.discharge = FALSE, use_XY = FALSE, ...)
|
psi |
soil presssure head. It is |
elevation, slope, aspect |
elevation maps of elevation,slope,aspect. Slope and aspect must be expressed in degrees. |
neighbors |
Integer. Indicating how many neighboring cells to use to compute slope for any cell. Either 8 (queen case) or 4 (rook case). Only used for slope and aspect, see |
soilmap |
raster map of soil class types or related keyword of GEOtop file |
soiltypes |
list of soil class types or related keyword of GEOtop file |
Dz |
layer thickness or or related GEOtop keyword used in the |
unitelev |
ratio between unis of |
use.soilwater.function |
list object passed to |
param.use.soilwater.function |
GEOtop keywords of the soil parameters utilized to calculate unsaturated hydraulic conductivity (see also |
use_XY |
logical vaule. It it |
... |
further arguments for |
hsub |
surfdace water depth. It is |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | wpath <- system.file("geotop_simulation",package="geotopsim")
#' ## Use soilwater function
library(soilwater)
data(PsiTheta)
t <- 5
psit <- psi[[t]]
hsupt <- hsub[[t]]
q <- LateralSubsurfaceDischarge(psi=psit,wpath=wpath)
qxy <- LateralSubsurfaceDischarge(psi=psit,wpath=wpath,,output.discharge=TRUE)
qdischarge_sub <- LateralSubsurfaceDischarge(psi=psit,wpath=wpath,output.discharge=TRUE)
qdischarge_sup <- LateralSurfaceDischarge(hsup=hsupt,wpath=wpath,output.discharge=TRUE)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.