fix: breaking change in airGR

- CreateInputsModel LengthHydro and BasinAreas parameters should now be vectors instead of matrices

fix: breaking change in airGR
- CreateInputsModel LengthHydro and BasinAreas parameters should now be vectors instead of matrices
3aab6e02 · Dorchies David · 9b4937ba · 3aab6e02
Commit 3aab6e02 authored 4 years ago by Dorchies David
Hide whitespace changes
Inline Side-by-side

Showing

with 2 additions and 5 deletions
+2 -5
--- a/R/CreateInputsModel.Griwrm.R
+++ b/R/CreateInputsModel.Griwrm.R
@@ -58,13 +58,10 @@ CreateOneGriwrmInputsModel <- function(id, ginet, girop, gits) {
        Qupstream <- cbind(Qupstream, Qupstream1)
      }
    }
-    LengthHydro <- matrix(ginet$length[girop$id %in% UpstreamNodes] , nrow = 1)
+    LengthHydro <- ginet$length[girop$id %in% UpstreamNodes]
-    BasinAreas <- matrix(
+    BasinAreas <- c(
-      c(
        girop$area[girop$id %in% UpstreamNodes],
        girop$area[girop$id == id] - sum(girop$area[girop$id %in% UpstreamNodes])
-      ),
-      nrow = 1
    )
  }