From cd39d707c24b61e74539e45e276a8dee1086afdf Mon Sep 17 00:00:00 2001
From: Delaigue Olivier <olivier.delaigue@irstea.priv>
Date: Mon, 20 May 2019 10:49:43 +0200
Subject: [PATCH] v1.3.0.1 UPDATE: CreateInputsModel modified to take into
account RunModel_CemaNeigeGR4H
---
DESCRIPTION | 2 +-
NEWS.rmd | 3 ++-
R/CreateInputsModel.R | 7 +++++++
3 files changed, 10 insertions(+), 2 deletions(-)
diff --git a/DESCRIPTION b/DESCRIPTION
index 8d6d60b3..168a3e55 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,7 +1,7 @@
Package: airGR
Type: Package
Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling
-Version: 1.3.0.0
+Version: 1.3.0.1
Date: 2019-05-20
Authors@R: c(
person("Laurent", "Coron", role = c("aut", "trl"), comment = c(ORCID = "0000-0002-1503-6204")),
diff --git a/NEWS.rmd b/NEWS.rmd
index 4e8aa74c..e40e821e 100644
--- a/NEWS.rmd
+++ b/NEWS.rmd
@@ -13,7 +13,8 @@ output:
-3.0.02.15.7 Release Notes (2019-05-20)
+
+### 1.3.0.1 Release Notes (2019-05-20)
#### New features
diff --git a/R/CreateInputsModel.R b/R/CreateInputsModel.R
index 0b8c456d..2af00a7c 100644
--- a/R/CreateInputsModel.R
+++ b/R/CreateInputsModel.R
@@ -59,6 +59,13 @@ CreateInputsModel <- function(FUN_MOD,
BOOL <- TRUE
}
+ if (identical(FUN_MOD, RunModel_CemaNeigeGR4H)) {
+ ObjectClass <- c(ObjectClass, "hourly", "GR", "CemaNeige")
+
+ TimeStep <- as.integer(24 * 60 * 60)
+
+ BOOL <- TRUE
+ }
if (!BOOL) {
stop("incorrect 'FUN_MOD' for use in 'CreateInputsModel'")
}
--
GitLab