# NOT RUN {
aquifer_param_01 <- aquifer_param(input_unit = "Field", output_unit = "Field",
model = "uss", flow_type = "radial", water_drive = "edge", phi = 0.2, perm_h = 100,
h_a = 47, r_a = 2e4, r_R = 2e3, tetha = 360, mu_water = 0.34, c_water = 4e-6,
c_rock = 3e-6, pressure = c(3456, 3425, 3387, 3350, 3312))
aquifer_param_01
aquifer_param_02 <- aquifer_param(input_unit = "SI", output_unit = "SI",
model = "uss", flow_type = "radial", water_drive = "bottom", phi = 0.2, perm_h = 100,
perm_v = 25, h_a = 25, r_a = 6000, r_R = 600, mu_water = 0.34, c_water = 6e-7,
c_rock = 4.5e-7, pressure = c(3456, 3425, 3387, 3350, 3312) * 6.895)
aquifer_param_02
aquifer_param_03 <- aquifer_param(input_unit = "Field", output_unit = "Field",
model = "pss", flow_type = "radial", water_drive = "edge", phi = 0.2, perm_h = 100,
h_a = 47, r_a = 2e4, r_R = 2e3, tetha = 360, mu_water = 0.34, c_water = 4e-6,
c_rock = 3e-6, pressure = c(3456, 3425, 3387, 3350, 3312))
aquifer_param_03
aquifer_param_04 <- aquifer_param(input_unit = "Field", output_unit = "Field",
model = "uss", flow_type = "linear", water_drive = "edge", phi = 0.2, perm_h = 100,
h_a = 47, w_a = 30000, l_a = 10000, mu_water = 0.34, c_water = 4e-6,
c_rock = 3e-6, pressure = c(3456, 3425, 3387, 3350, 3312))
aquifer_param_04
aquifer_param_05 <- aquifer_param(input_unit = "Field", output_unit = "Field",
model = "uss", flow_type = "linear", water_drive = "bottom", phi = 0.2, perm_v = 10,
h_a = 47, w_a = 4000, l_a = 4000, mu_water = 0.34, c_water = 4e-6,
c_rock = 3e-6, pressure = c(3456, 3425, 3387, 3350, 3312))
aquifer_param_05
# }
Run the code above in your browser using DataCamp Workspace