if (FALSE) {
# Use input example files provided by the package
base_url <- "https://github.com/gwrecharge/rechaRge-book/raw/main/examples/input/"
input_rcn <- paste0(base_url, "rcn.csv.gz")
input_climate <- paste0(base_url, "climate.csv.gz")
input_rcn_climate <- paste0(base_url, "rcn_climate.csv.gz")
# Calibration parameters
HB <- rechaRge::new_hydrobudget(
T_m = 2.1, # melting temperature (°C)
C_m = 6.2, # melting coefficient (mm/°C/d)
TT_F = -17.6, # Threshold temperature for soil frost (°C)
F_T = 16.4, # Freezing time (d)
t_API = 3.9, # Antecedent precipitation index time (d)
f_runoff = 0.63, # Runoff factor (-)
sw_m = 431, # Maximum soil water content (mm)
f_inf = 0.07 # infiltration factor (-)
)
# Simulation period
simul_period <- c(2010, 2017)
# Parallel computing option
# workers <- 6
# Simulation with the HydroBudget model
water_budget <- rechaRge::compute_recharge(
HB,
rcn = input_rcn,
climate = input_climate,
rcn_climate = input_rcn_climate,
period = simul_period
# workers = workers
)
head(water_budget)
}
Run the code above in your browser using DataLab