R/make_filenames.r

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

make_filenames<-function(WD,climate,environment,inival,start,end){
	filenames<-paste(WD,"Filenames",sep="")
	cat("[in]",file=filenames,sep="\n")
	cat(paste("directory=",WD,"input/",sep=""),file=filenames,append=TRUE,sep="\n")
	cat(paste("climate=",climate,sep=""),file=filenames,append=TRUE,sep="\n")
	cat(paste("environment=",environment,sep=""),file=filenames,append=TRUE,sep="\n")
	cat("parameters= param.txt",file=filenames,append=TRUE,sep="\n")
	cat(paste("initval=",inival,sep=""),file=filenames,append=TRUE,sep="\n")
  cat(file=filenames,append=TRUE,sep="\n")
	cat("[out]",file=filenames,append=TRUE,sep="\n")
	cat(paste("directory=",WD,"output/",sep=""),file=filenames,append=TRUE,sep="\n")
	cat("month=outmo.txt",file=filenames,append=TRUE,sep="\n")
	cat("year=outyr.txt",file=filenames,append=TRUE,sep="\n")
	cat(file=filenames,append=TRUE,sep="\n")
	cat("[year]",file=filenames,append=TRUE,sep="\n")
	cat(paste("start=",start,sep=""),file=filenames,append=TRUE,sep="\n")
	cat(paste("end=",end,sep=""),file=filenames,append=TRUE,sep="\n")
}