R/Kr_theta.R

Defines functions Kr_theta

Documented in Kr_theta

Kr_theta <- function(theta, thetaS, thetaR, n, Ks, f=0.5) {
   m <- 1-(1/n)
   Se <- (theta-thetaR)/(thetaS-thetaR)
   a <- (1-(1-Se^(1/m))^m)^2
   out <- Ks*(Se^f)*a
   return(out)
  }

Try the soilphysics package in your browser

Any scripts or data that you put into this service are public.

soilphysics documentation built on June 7, 2022, 5:06 p.m.