removed stopCluster

R/Rphree_ReactTrans.R

 ##  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]))