diff --git a/R/Intbc.R b/R/Intbc.R index 86bb5a9c340afce14399417f3f656af872707eeb..5a5275bf5f2b4f0824343859dbfc6ecc6069fc92 100644 --- a/R/Intbc.R +++ b/R/Intbc.R @@ -68,7 +68,7 @@ CST_Intbc <- function(exp, obs, target_grid, bc_method, int_method = NULL, points = NULL, method_point_interp = NULL, lat_dim = "lat", lon_dim = "lon", - sdate_dim = "sdate", member_dim = "member", region = NULL, ncores = 1) + sdate_dim = "sdate", member_dim = "member", region = NULL, ncores = 1,...) { if (!inherits(exp,'s2dv_cube')) { stop("Parameter 'exp' must be of the class 's2dv_cube'") @@ -82,7 +82,7 @@ CST_Intbc <- function(exp, obs, target_grid, bc_method, int_method = NULL, point obs_lats = obs$lat, obs_lons = obs$lon, target_grid = target_grid, int_method = int_method, bc_method = bc_method, points = points, source_file = exp$source_files[1], method_point_interp = method_point_interp, lat_dim = lat_dim, lon_dim = lon_dim, - sdate_dim = sdate_dim, member_dim = member_dim, region = region, ncores = ncores) + sdate_dim = sdate_dim, member_dim = member_dim, region = region, ncores = ncores,...) # Modify data, lat and lon in the origina s2dv_cube, adding the downscaled data exp$data <- res$data