Commit d7757794 authored by Ronan Trepos's avatar Ronan Trepos
Browse files

test_manager

parent 89eddd49
......@@ -3,7 +3,7 @@
##
print(Sys.info())
Sys.setenv(VLE_HOME = "/data")
#Sys.setenv(VLE_HOME = "/data")
args=(commandArgs(TRUE))
file_define = "file_define.csv";
......@@ -23,23 +23,27 @@ nbslots = as.integer(args[3])
##
library(rvle)
source(paste(sep="", Sys.getenv("VLE_HOME"),"/pkgs-2.0/vle.recursive/R/vle.recursive.R"))
print(paste("getwd:",getwd()))
print(paste("dir(getwd()):",dir(getwd())))
f = vle.recursive.init(pkg="AZODYN", file="AzodynPea.vpz")
vle.recursive.configSimulation(f, config_parallel_nb_slots=3, config_parallel_rm_files=TRUE,
config_parallel_type="cvle", config_parallel_spawn=F, working_dir=getwd(), expe_log=6);
inputs = vle.recursive.parseSim(file_sim=file_input, rvle_handle=f, skip=0)
vle.recursive.configPropagate(f, propagate="condClimate.PkgName", value="")
f = rvlePlan.open("AzodynPea.vpz", "AZODYN")
rvlePlan.config(f, parallel_nb_slots=3, parallel_rm_files=TRUE,
parallel_type="cvle", parallel_spawn=F,
working_dir=getwd());
inputs = rvleExp.parseSim(file_sim=file_input, rvle_handle=f, skip=0)
rvlePlan.propagate(f, cond="condClimate", port="PkgName", value="")
outs = read.table(file_output, sep=";",header=T, stringsAsFactors=F)
for (i in 1:nrow(outs)) {
vle.recursive.configOutput(rvle_handle=f, id=outs$id[i], path=outs$path[i],
rvlePlan.output(rvleHandle=f, id=outs$id[i], path=outs$path[i],
integration=outs$integration[i])
}
res = vle.recursive.simulate(f)
res = rvlePlan.run(f)
for (i in 1:nrow(outs)) {
write.table(res[[outs$id[i]]], file=paste(sep="", 'razodyn_results_',outs$id[i],'.txt'),
row.names=F, col.names=F, sep=";")
......
Markdown is supported
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