Description Usage Arguments Value References Examples
This function estimates Ks based on 5 models that include (see references) Guarracino (2007), Nasta et al (2013), Mishra et al(1990), Rawls et al(1982) and Saxton & Rawls (2006). The model can also return tabulated Ks of Carsel and Parrish (1988) when soil texture is given as a "model" parameters.
1 2 3 4 5 6 7 8  | 
ths | 
 numeric. The saturated soil water content [m3/m3].  | 
thr | 
 numeric. Residual volumetric soil water content. This can be calibrated.  | 
alpha | 
 van Genuchten's water retention parameter. It is equal to 1/hb  | 
hb | 
 the bubbling capillary pressure parameter of Brooks and Corey. It is equal to 1/apha.  | 
th33 | 
 The water content at field capacity [m3/m3] .i.e metric potential of 33 kPa  | 
th1500 | 
 The water content at wilting point [m3/m3] i.e metric potential of 1500 kPa  | 
C | 
 clay percentage  | 
f | 
 porosity  | 
para | 
 a parameter for each model  | 
n | 
 van Genuchten's n that is realted to pore-size distribution.  | 
model | 
 model type. It can take "Nasta" (default), "Mishra", "RAWLS", "rawls2006", "Guarracino".  | 
Ks: saturated hydraulic conductivity
para: soil parameters
Guarracino, L. (2007). Estimation of saturated hydraulic conductivity Ks from the van Genuchten shape parameter. Water Resour. Res., 43. doi: doi:10.1029/2006WR005766
Paolo Nasta, Jasper A. Vrugt, & Romano, N. (2013). Prediction of the saturated hydraulic conductivity from Brooks and Corey's water retention parameters. WATER RESOURCES RESEARCH, 49. doi: doi:10.1002/wrcr.20269
Mishra, S., & Parker, J. C. (1990). On the relation between saturated conductivity and capillary retention characteristics. Ground Water, 28, 775-777.
Rawls, W. J., Brakensiek, D. L., & Saxon, K. E. (1982). Estimation of soil water properties. Transactions of the ASAE, 25, 1316-1320.
Saxton, K. E., & Rawls, W. J. (2006). Soil Water Characteristic Estimates by Texture and Organic Matter for Hydrologic Solutions. SOIL SCI. SOC. AM. J., 70. doi: 10.2136/sssaj2005.0117
1 2 3 4 5 6 7 8 9 10 11 12 13 14  | data=read.csv(system.file("ext","sys","retentionVG.csv",package="vadose"))
mod<-vg(data=data,h="h",theta="theta",thr=0.1, ths=0.1, alp=0.1, n=1,Ks="nvr")
nvr=ksat(ths=mod$ths,hb=1/mod$alp,n=mod$n-1,model="Nasta")
print(nvr)
g=ksat(ths=mod$ths,alpha=mod$alp,model="Guarracino")
print(g$Ks) 
soil=ksat(ths=mod$ths,alpha=mod$alp,model="Clay")
soil=ksat(para="soil",model="Clay")
mp=ksat(ths=mod$ths,alpha=mod$alp,model="Mishra")
print(mp)
r=ksat(ths=mod$ths,hb=1/mod$alp,n=mod$n-1,model="RAWLS",thr=mod$thr,f=mod$ths,para=86)
print(r)
sr=ksat(ths=mod$ths,th33=predict(mod,33),th1500=predict(mod,1500),model="rawls2006")
print(sr)
 | 
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.