Force non-overlapping interp in biasCorrection

SantanderMetGroup · Jun 4, 2020 · 0c5f1bb · 0c5f1bb
1 parent 77df282
commit 0c5f1bb
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/biasCorrection.R b/R/biasCorrection.R
@@ -416,8 +416,8 @@ biasCorrectionXD <- function(y, x, newdata,
       station <- FALSE
       if ("loc" %in% getDim(y)) station <- TRUE
       xy <- y$xyCoords
-      suppressWarnings(suppressMessages(pred <- interpGrid(x, getGrid(y))))
-      suppressWarnings(suppressMessages(sim <- interpGrid(newdata, getGrid(y))))
+      suppressWarnings(suppressMessages(pred <- interpGrid(x, getGrid(y), force.non.overlapping = TRUE)))
+      suppressWarnings(suppressMessages(sim <- interpGrid(newdata, getGrid(y), force.non.overlapping = TRUE)))
       delta.method <- method == "delta"
       precip <- precipitation
       message("[", Sys.time(), "] Argument precipitation is set as ", precip, ", please ensure that this matches your data.")