From 3aab6e021fcbf7a39c421cd4d7234b3f51a5df63 Mon Sep 17 00:00:00 2001
From: Dorchies David <david.dorchies@irstea.fr>
Date: Thu, 4 Jun 2020 11:49:05 +0200
Subject: [PATCH] fix: breaking change in airGR
- CreateInputsModel LengthHydro and BasinAreas parameters should now be vectors instead of matrices
---
R/CreateInputsModel.Griwrm.R | 7 ++-----
1 file changed, 2 insertions(+), 5 deletions(-)
diff --git a/R/CreateInputsModel.Griwrm.R b/R/CreateInputsModel.Griwrm.R
index 56c1cc9..13c8019 100644
--- 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)
- BasinAreas <- matrix(
- c(
+ LengthHydro <- ginet$length[girop$id %in% UpstreamNodes]
+ BasinAreas <- c(
girop$area[girop$id %in% UpstreamNodes],
girop$area[girop$id == id] - sum(girop$area[girop$id %in% UpstreamNodes])
- ),
- nrow = 1
)
}
--
GitLab