Commit 778c51fe authored by LDalby's avatar LDalby
Browse files

Add a barnie numbers only set

parent 4e3afa0d
......@@ -55,6 +55,13 @@ replace_rotation <- function(new_rot, old_rot, wd_path) {
}
old_rot <- "UserDefinedFarm19.rot"
rot_path <- "/home/ldalby/ALMaSS_all/almass/Grendel/rotations"
# Startno scaler - standard maize ----
wdpath <- path(pathtodirs, dirs[1])
seq(1, 10, length.out = nsteps) %>%
round() %>%
GenerateParams("GOOSE_STARTNO_SCALER" = ., write = TRUE, path = wdpath)
# Startno scaler - maize rotation 191 ----
wdpath <- path(pathtodirs, dirs[1])
seq(1, 10, length.out = nsteps) %>%
......@@ -82,6 +89,39 @@ replace_rotation(new_rot = path(rot_path, "UserDefinedFarm193.rot"),
old_rot = old_rot,
wd_path <- wdpath)
# Startno scaler - standard maize ----
wdpath <- path(pathtodirs, dirs[1])
seq(1, 10, length.out = nsteps) %>%
round() %>%
GenerateParams("GOOSE_BN_STARTNO_SCALER" = ., write = TRUE, path = wdpath)
# BN Startno scaler - maize rotation 191 ----
wdpath <- path(pathtodirs, dirs[1])
seq(1, 10, length.out = nsteps) %>%
round() %>%
GenerateParams("GOOSE_BN_STARTNO_SCALER" = ., write = TRUE, path = wdpath)
replace_rotation(new_rot = path(rot_path, "UserDefinedFarm191.rot"),
old_rot = old_rot,
wd_path <- wdpath)
# BN Startno scaler - maize rotation 192 ----
wdpath <- path(pathtodirs, dirs[1])
seq(1, 10, length.out = nsteps) %>%
round() %>%
GenerateParams("GOOSE_BN_STARTNO_SCALER" = ., write = TRUE, path = wdpath)
replace_rotation(new_rot = path(rot_path, "UserDefinedFarm192.rot"),
old_rot = old_rot,
wd_path <- wdpath)
# BN Startno scaler - maize rotation 193 ----
wdpath <- path(pathtodirs, dirs[1])
seq(1, 10, length.out = nsteps) %>%
round() %>%
GenerateParams("GOOSE_BN_STARTNO_SCALER" = ., write = TRUE, path = wdpath)
replace_rotation(new_rot = path(rot_path, "UserDefinedFarm193.rot"),
old_rot = old_rot,
wd_path <- wdpath)
# Edit the bat, ini and cfg files to match the parameters set above:
for (i in seq_along(dirs)) {
wd <- path(pathtodirs, dirs[i])
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment