Commit 0c1c6389 authored by Marco De Lucia's avatar Marco De Lucia
Browse files

removed stopCluster

parent cc303798
## Functions for dealing with surrogate simulations
### Marco De Lucia, delucia@gfz-potsdam.de, 2009-2018
### Time-stamp: "Last modified 2018-05-16 16:51:41 delucia"
### Time-stamp: "Last modified 2018-05-16 16:56:49 delucia"
##' Todo
......@@ -372,7 +372,6 @@ ReactTranspBalanceEq <- function(setup, init, maxtime, step=c("time","iter","fix
on.exit({
msg("MAIN LOOP interrupted during iteration",iter,"!!")
msg("returning last calculated chemistry.")
parallel::stopCluster()
print(traceback())
msg(" Bye.")
attr(state_C,"timing") <- timing
......@@ -467,8 +466,6 @@ ReactTranspBalanceEq <- function(setup, init, maxtime, step=c("time","iter","fix
}
on.exit()
if (procs > 1)
parallel::stopCluster()
msg("total time of chemistry: ",round(sum(timing[,3]),3),"seconds")
msg("total number of simulations: ",sum(timing[,1]))
......
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