set.seed(123)
temp_vector <- runif(48, min = -10, max = 10)
wind_speed_vector <- runif(48, min = 0, max = 0.4)
time_vector <- rep(1:24, 2)
solrad_vector <- rep(c(rep(0, 6),
seq(10, 700, length.out = 6),
seq(700, 10, length.out = 6),
rep(0, 6)),
2)
soil_temperature(z_r.intervals = 12,
z_r = 1.5,
z = 2,
T_a = temp_vector,
u = wind_speed_vector,
Tsoil0 = 20,
z0 = 0.02,
SSA = 0.7,
TimeIn = time_vector,
S = solrad_vector,
water_content = 0.2,
air_pressure = 85,
rho_so = 1620,
shade = FALSE)
Run the code above in your browser using DataLab