From 6d9ed55c68a5b858f877a710dae6d12019683193 Mon Sep 17 00:00:00 2001
From: Delaigue Olivier <olivier.delaigue@irstea.priv>
Date: Mon, 20 May 2019 11:49:09 +0200
Subject: [PATCH] v1.3.0.7 UPDATE: CreateIniStates modified to take into
account RunModel_CemaNeigeGR4H
---
DESCRIPTION | 2 +-
NEWS.rmd | 2 +-
R/CreateIniStates.R | 4 ++++
3 files changed, 6 insertions(+), 2 deletions(-)
diff --git a/DESCRIPTION b/DESCRIPTION
index 1d156ae8..82cf4730 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.6
+Version: 1.3.0.7
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 5e845ab7..81ac9d51 100644
--- a/NEWS.rmd
+++ b/NEWS.rmd
@@ -14,7 +14,7 @@ output:
-### 1.3.0.6 Release Notes (2019-05-20)
+### 1.3.0.7 Release Notes (2019-05-20)
#### New features
diff --git a/R/CreateIniStates.R b/R/CreateIniStates.R
index 17795fe9..050ce006 100644
--- a/R/CreateIniStates.R
+++ b/R/CreateIniStates.R
@@ -37,6 +37,10 @@ CreateIniStates <- function(FUN_MOD, InputsModel, IsHyst = FALSE,
ObjectClass <- c(ObjectClass, "CemaNeige", "daily")
BOOL <- TRUE
}
+ if (identical(FUN_MOD, RunModel_CemaNeigeGR4H)) {
+ ObjectClass <- c(ObjectClass, "CemaNeige", "hourly")
+ BOOL <- TRUE
+ }
if (identical(FUN_MOD, RunModel_CemaNeigeGR4J) |
identical(FUN_MOD, RunModel_CemaNeigeGR5J) |
identical(FUN_MOD, RunModel_CemaNeigeGR6J)) {
--
GitLab