R/runNUCOM_wrapper.R

In NUCOMBog: NUtrient Cycling and COMpetition Model Undisturbed Open Bog Ecosystems in a Temperate to Sub-Boreal Climate

runnucom_wrapper<-function(runParameters){
  startval <- runParameters$startval
  setwd(dir = runParameters$runDir)

  make_filenames(WD = runParameters$runDir,climate = runParameters$climate,environment = runParameters$environment,inival = runParameters$inival,start = runParameters$start,end = runParameters$end)

  allpar<-make_param_file(WD = runParameters$runDir,par = runParameters$parameter)


  if(.Platform$OS.type=="unix"){
    system("./modelMEE")}
  if(.Platform$OS.type=="windows"){
    system("./modelMEE.exe")}

  if(!is.null(runParameters$type)){
    out<-NUCOMBog::getData(runParameters,startval)
    return(out)
  }

}