Skip to content
Snippets Groups Projects
Commit 406bb82f authored by Marco De Lucia's avatar Marco De Lucia
Browse files

fixing errors with doParallel

parent b4c8045f
No related branches found
No related tags found
No related merge requests found
## Functions for dealing with surrogate simulations ## Functions for dealing with surrogate simulations
### Marco De Lucia, delucia@gfz-potsdam.de, 2009-2018 ### Marco De Lucia, delucia@gfz-potsdam.de, 2009-2018
### Time-stamp: "Last modified 2018-05-16 17:52:14 delucia" ### Time-stamp: "Last modified 2018-05-16 17:58:01 delucia"
##' Todo ##' Todo
...@@ -244,7 +244,7 @@ ReactTranspBalanceEq <- function(setup, init, maxtime, step=c("time","iter","fix ...@@ -244,7 +244,7 @@ ReactTranspBalanceEq <- function(setup, init, maxtime, step=c("time","iter","fix
initsim <- setup$initsim initsim <- setup$initsim
if (procs > 1) { if (procs > 1) {
parallel::registerDoParallel(procs) doParallel::registerDoParallel(procs)
msg("Registered default doParallel cluster with ", procs, "nodes") msg("Registered default doParallel cluster with ", procs, "nodes")
} }
...@@ -532,7 +532,7 @@ ReactTranspBalanceKin <- function(setup, init, maxtime, step=c("time","iter","fi ...@@ -532,7 +532,7 @@ ReactTranspBalanceKin <- function(setup, init, maxtime, step=c("time","iter","fi
ann <- setup$ann ann <- setup$ann
if (procs > 1) { if (procs > 1) {
parallel::registerDoParallel(procs) doParallel::registerDoParallel(procs)
msg("Registered default doParallel cluster with ", procs, "nodes") msg("Registered default doParallel cluster with ", procs, "nodes")
} }
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment