R/utils/batch.land.use.R

In HARPgroup/openmi-om: Implementation of the OpenMI Concepts for Building Object-oriented Meta-models

source('~/openmi-om/R/utils/fn.land.use.wdm.export.all.R')
source('~/openmi-om/R/utils/fn.land.use.eos.all.R')

batch.land.use <- function(land.segs, mod.scenario, start.year, end.year) {
  num.runs <- length(land.segs)
  for (i in 1:num.runs) {
    print(paste('Generating land use files for segment', i, 'of', num.runs, sep = ' '))
    land.use.wdm.export.all(land.segs[i],'/opt/model/p6/p6_gb604',mod.scenario, start.year, end.year)
    land.use.eos.all(land.segs[i], '/opt/model/p6/p6_gb604', mod.scenario, paste0('/opt/model/p6/p6_gb604/out/land/', mod.scenario, '/eos'))
  }
}