diff --git a/R/Calibration.GRiwrmInputsModel.R b/R/Calibration.GRiwrmInputsModel.R
index 0ea852ee399027a423db1eeb1d2335a3d37c5b01..6051d39c2c746f1b388d3a8f8b3b23e524c1c71a 100644
--- a/R/Calibration.GRiwrmInputsModel.R
+++ b/R/Calibration.GRiwrmInputsModel.R
@@ -202,18 +202,6 @@ updateParameters4Ungauged <- function(GaugedId,
   return(list(InputsModel = InputsModel, RunOptions = RunOptions))
 }
 
-updateRunOptions4Ungauged <- function(id, RunOptions) {
-  # Remove nodes outside of reduced network
-  RunOptions <- lapply(RunOptions, function(RO) {
-    if(RO$id %in% g$id) {
-      IM
-    } else {
-      NULL
-    }
-  })
-  return(RunOptions)
-}
-
 
 #' RunModel for a sub-network of ungauged nodes
 #'
diff --git a/tests/testthat/helper_RunModel.R b/tests/testthat/helper_RunModel.R
index fa1265a3e3bd5758d0eaddec1341bb364e642f83..2b5b500e8743b67327376ce9b2db44c80d9e6679 100644
--- a/tests/testthat/helper_RunModel.R
+++ b/tests/testthat/helper_RunModel.R
@@ -36,7 +36,6 @@ setupRunModel <-
     if(is.null(griwrm)) {
       nodes <-
         Severn$BasinsInfo[, c("gauge_id", "downstream_id", "distance_downstream", "area")]
-      nodes$distance_downstream <- nodes$distance_downstream
       nodes$model <- "RunModel_GR4J"
       griwrm <-
         CreateGRiwrm(nodes,
diff --git a/vignettes/V02_Calibration_SD_model.Rmd b/vignettes/V02_Calibration_SD_model.Rmd
index 739edbabdbf0a7221086ceb4bc751e285d5883ac..dbcf51e98ceb642e757a4a14332656b2d6d76758 100644
--- a/vignettes/V02_Calibration_SD_model.Rmd
+++ b/vignettes/V02_Calibration_SD_model.Rmd
@@ -44,7 +44,6 @@ The method used for producing the `GRiwrmInputsModel` object is detailed in the
 ```{r}
 data(Severn)
 nodes <- Severn$BasinsInfo[, c("gauge_id", "downstream_id", "distance_downstream", "area")]
-nodes$distance_downstream <- nodes$distance_downstream
 nodes$model <- "RunModel_GR4J"
 griwrm <- CreateGRiwrm(nodes, list(id = "gauge_id", down = "downstream_id", length = "distance_downstream"))
 BasinsObs <- Severn$BasinsObs
diff --git a/vignettes/V03_Open-loop_influenced_flow.Rmd b/vignettes/V03_Open-loop_influenced_flow.Rmd
index 88f97fe15df27f11c081da96b4d2145a0bf8cd02..33ed7856ab995b1366c37b49e9fc90211ac3b178 100644
--- a/vignettes/V03_Open-loop_influenced_flow.Rmd
+++ b/vignettes/V03_Open-loop_influenced_flow.Rmd
@@ -51,7 +51,6 @@ The creation of the `GRiwrm` object is detailed in the vignette "V01_Structure_S
 ```{r}
 data(Severn)
 nodes <- Severn$BasinsInfo[, c("gauge_id", "downstream_id", "distance_downstream", "area")]
-nodes$distance_downstream <- nodes$distance_downstream
 nodes$model <- "RunModel_GR4J"
 ```