From 7971f3c10c8b534aa380327fabedba5058e21f3c Mon Sep 17 00:00:00 2001
From: Delaigue Olivier <olivier.delaigue@irstea.priv>
Date: Mon, 20 May 2019 16:39:58 +0200
Subject: [PATCH] v1.3.0.1 BUG: CreateIniStates returns an object of class GR
 if RunModel_CemaNeigeGR4H is used

---
 DESCRIPTION         | 2 +-
 NEWS.rmd            | 2 +-
 R/CreateIniStates.R | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index 6ad3bf1b..bd1b6c00 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.14
+Version: 1.3.0.15
 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 999ceb82..7ce58718 100644
--- a/NEWS.rmd
+++ b/NEWS.rmd
@@ -14,7 +14,7 @@ output:
 
 
 
-### 1.3.0.14 Release Notes (2019-05-20)
+### 1.3.0.15 Release Notes (2019-05-20)
 
 
 #### New features
diff --git a/R/CreateIniStates.R b/R/CreateIniStates.R
index 050ce006..c3774e8e 100644
--- a/R/CreateIniStates.R
+++ b/R/CreateIniStates.R
@@ -38,7 +38,7 @@ CreateIniStates <- function(FUN_MOD, InputsModel, IsHyst = FALSE,
     BOOL <- TRUE
   }
   if (identical(FUN_MOD, RunModel_CemaNeigeGR4H)) {
-    ObjectClass <- c(ObjectClass, "CemaNeige", "hourly")
+    ObjectClass <- c(ObjectClass, "GR", "CemaNeige", "hourly")
     BOOL <- TRUE
   }
   if (identical(FUN_MOD, RunModel_CemaNeigeGR4J) |
-- 
GitLab