From 687ead6cd61eadf1f3c2cc8ff34fa826a93099a4 Mon Sep 17 00:00:00 2001
From: Victoria Agudetse Roures <victoria.agudetse@bsc.es>
Date: Thu, 5 Jan 2023 10:20:30 +0100
Subject: [PATCH] Add 'ncores' to Ano_CrossValid() and Clim() calls

---
 R/CST_Anomaly.R | 16 +++++++++++++---
 1 file changed, 13 insertions(+), 3 deletions(-)

diff --git a/R/CST_Anomaly.R b/R/CST_Anomaly.R
index 28010408..f38e39b0 100644
--- a/R/CST_Anomaly.R
+++ b/R/CST_Anomaly.R
@@ -173,11 +173,21 @@ CST_Anomaly <- function(exp = NULL, obs = NULL, dim_anom = 'sdate', cross = FALS
   
   # With cross-validation
   if (cross) {
-    ano <- Ano_CrossValid(exp = exp$data, obs = obs$data, time_dim = dim_anom, memb_dim = memb_dim, memb = memb, dat_dim = dat_dim)
+    ano <- Ano_CrossValid(exp = exp$data, obs = obs$data,
+			  time_dim = dim_anom,
+			  memb_dim = memb_dim,
+			  memb = memb,
+			  dat_dim = dat_dim,
+			  ncores = ncores)
    
-    #  Without cross-validation 
+  # Without cross-validation 
   } else {
-    tmp <- Clim(exp = exp$data, obs = obs$data, time_dim = dim_anom, memb_dim = memb_dim, memb = memb, dat_dim = dat_dim)
+    tmp <- Clim(exp = exp$data, obs = obs$data,
+		time_dim = dim_anom,
+		memb_dim = memb_dim,
+		memb = memb,
+		dat_dim = dat_dim,
+		ncores = ncores)
     if (!is.null(filter_span)) {
       tmp$clim_exp <- Apply(tmp$clim_exp, 
                             target_dims = c(ftime_dim),
-- 
GitLab