R/Kr_h.R

Defines functions Kr_h

Documented in Kr_h

Kr_h <- 
function(Ks,alpha, n, h, f=0.5) 
{
    m <- 1 - (1/n)
    Se <- (1/(1+(alpha*h)^n))^m
    b <- (1-(1-Se^(n/(n-1)))^m)^2
    out <- Ks*(Se^f)*b
    return(out)

 }
arsilva87/soilphysics documentation built on July 30, 2022, 8:46 p.m.