soil <- run_one_day(lat = 37.7,
elv = 142,
n = 172,
y = 2000,
wn = 75,
sf = 1,
tc = 23,
pn = 5)
cat(sprintf("Soil moisture (run one day):\n"))
cat(sprintf(" Ho: %0.6f J/m2\n", soil$ho))
cat(sprintf(" Hn: %0.6f J/m2\n", soil$hn))
cat(sprintf(" PPFD: %0.6f mol/m2\n", soil$ppfd))
cat(sprintf(" EET: %0.6f mm/d\n", soil$eet))
cat(sprintf(" PET: %0.6f mm/d\n", soil$pet))
cat(sprintf(" AET: %0.6f mm/d\n", soil$aet))
cat(sprintf(" Cn: %0.6f mm/d\n", soil$cond))
cat(sprintf(" Wn: %0.6f mm\n", soil$wn))
cat(sprintf(" RO: %0.6f mm\n", soil$ro))
Run the code above in your browser using DataLab