if (FALSE) {
library(tibble)
model_path <- "./LPJmL_internal"
sim_path <-"./my_runs"
# Basic usage
my_params <- tibble(
sim_name = c("scen1", "scen2"),
random_seed = as.integer(c(42, 404)),
pftpar.1.name = c("first_tree", NA),
param.k_temp = c(NA, 0.03),
new_phenology = c(TRUE, FALSE)
)
config_details <- write_config(my_params, model_path, sim_path)
run_details <- submit_lpjml(
x = config_details,
model_path = model_path,
sim_path = sim_path
)
run_details
# sim_name job_id status
#
# 1 scen1 21235215 submitted
# 2 scen2 21235216 submitted
# With run parameter dependency and SLURM option wtime being
# set (also less other parameters than in previous example)
my_params <- tibble(
sim_name = c("scen1", "scen2"),
random_seed = as.integer(c(42, 404)),
dependency = c(NA, "scen1_spinup"),
wtime = c("8:00:00", "4:00:00"),
)
config_details2 <- write_config(my_params2, model_path, sim_path)
run_details2 <- submit_lpjml(config_details2, model_path, sim_path)
run_details2
# sim_name order dependency wtime type job_id status
#
# 1 scen1_spinup 1 NA 8:00:00 simulation 22910240 submitted
# 2 scen1_transient 2 scen1_spinup 4:00:00 simulation 22910241 submitted
# Same but by using the pipe operator
library(magrittr)
run_details <- tibble(
sim_name = c("scen1_spinup", "scen1_transient"),
random_seed = as.integer(c(1, 42)),
dependency = c(NA, "scen1_spinup"),
wtime = c("8:00:00", "4:00:00"),
) %>%
write_config(model_path, sim_path) %>%
submit_lpjml(model_path, sim_path)
# Shortcut approach
run_details <- submit_lpjml(
x = "./config_scen1_transient.json",
model_path = model_path,
sim_path = sim_path
)
run_details <- submit_lpjml(
c("./config_scen1_spinup.json", "./config_scen1_transient.json"),
model_path,
sim_path
)
}
Run the code above in your browser using DataLab