v1.0.9.47 bug fixed inCreateIniStates when state values < 0

DESCRIPTION

 Package: airGR
 Type: Package
 Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling
-Version: 1.0.9.46
-Date: 2017-09-12
+Version: 1.0.9.47
+Date: 2017-09-13
 Authors@R: c(
   person("Laurent", "Coron", role = c("aut", "trl")),
   person("Charles", "Perrin", role = c("aut", "ths")),

NEWS.html

@@ -203,8 +203,8 @@ div.tocify {
 </div>
-<div id="release-notes-2017-09-12" class="section level3">
-<h3>1.0.9.46 Release Notes (2017-09-12)</h3>
+<div id="release-notes-2017-09-13" class="section level3">
+<h3>1.0.9.47 Release Notes (2017-09-13)</h3>
 <div id="new-features" class="section level4">
 <h4>New features</h4>
 <ul>

NEWS.md

@@ -3,7 +3,7 @@
 
 
 
-### 1.0.9.46 Release Notes (2017-09-12) 
+### 1.0.9.47 Release Notes (2017-09-13) 
 
 #### New features
 

NEWS.rmd

@@ -14,7 +14,7 @@ output:
 
 
 
-### 1.0.9.46 Release Notes (2017-09-12) 
+### 1.0.9.47 Release Notes (2017-09-13) 
 
 #### New features
 

R/CreateIniStates.R

@@ -62,11 +62,6 @@ CreateIniStates <- function(FUN_MOD, InputsModel,
   
   
   ## check states
-  if (any(ProdStore < 0) | any(RoutStore < 0) |
-      any(UH1 < 0) | any(UH2 < 0) |
-      any(GCemaNeigeLayers < 0)) {
-    stop("Negative values are not allowed for any of 'ProdStore', 'RoutStore', 'UH1', 'UH2', 'GCemaNeigeLayers'")
-  }
   if (any(eTGCemaNeigeLayers > 0)) {
     stop("Positive values are not allowed for 'eTGCemaNeigeLayers'")
   }  
@@ -185,7 +180,15 @@ CreateIniStates <- function(FUN_MOD, InputsModel,
   }
   if (is.null(eTGCemaNeigeLayers)) {
     eTGCemaNeigeLayers <- rep(Inf, NLayers)
-  } 
+  }
+  
+  
+  # check negative values
+  if (any(ProdStore < 0) | any(RoutStore < 0) |
+      any(UH1 < 0) | any(UH2 < 0) |
+      any(GCemaNeigeLayers < 0)) {
+    stop("Negative values are not allowed for any of 'ProdStore', 'RoutStore', 'UH1', 'UH2', 'GCemaNeigeLayers'")
+  }
   
   
   ## check length