v1.0.5.25 bug fixed in RunModel_CemaNeige*(), IniResLevels values are now considered

DESCRIPTION

 Package: airGR
 Type: Package
 Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling
-Version: 1.0.5.24
+Version: 1.0.5.25
 Date: 2017-03-15
 Authors@R: c(
   person("Laurent", "Coron", role = c("aut", "trl")),

R/RunModel_CemaNeigeGR4J.R

@@ -91,7 +91,7 @@ RunModel_CemaNeigeGR4J <- function(InputsModel,RunOptions,Param){
       } else { IndOutputsMod <- which(FortranOutputsMod %in% RunOptions$Outputs_Sim);  }
 
     ##Use_of_IniResLevels
-      if("IniResLevels" %in% RunOptions){
+      if("IniResLevels" %in% names(RunOptions)){
         RunOptions$IniStates[1] <- RunOptions$IniResLevels[1]*ParamMod[1];  ### production store level (mm)
         RunOptions$IniStates[2] <- RunOptions$IniResLevels[2]*ParamMod[3];  ### routing store level (mm)
       }

R/RunModel_CemaNeigeGR5J.R

@@ -91,7 +91,7 @@ RunModel_CemaNeigeGR5J <- function(InputsModel,RunOptions,Param){
       } else { IndOutputsMod <- which(FortranOutputsMod %in% RunOptions$Outputs_Sim);  }
 
     ##Use_of_IniResLevels
-      if("IniResLevels" %in% RunOptions){
+      if("IniResLevels" %in% names(RunOptions)){
         RunOptions$IniStates[1] <- RunOptions$IniResLevels[1]*ParamMod[1];  ### production store level (mm)
         RunOptions$IniStates[2] <- RunOptions$IniResLevels[2]*ParamMod[3];  ### routing store level (mm)
       }

R/RunModel_CemaNeigeGR6J.R

@@ -92,7 +92,7 @@ RunModel_CemaNeigeGR6J <- function(InputsModel,RunOptions,Param){
       } else { IndOutputsMod <- which(FortranOutputsMod %in% RunOptions$Outputs_Sim);  }
 
     ##Use_of_IniResLevels
-      if("IniResLevels" %in% RunOptions){
+      if("IniResLevels" %in% names(RunOptions)){
         RunOptions$IniStates[1] <- RunOptions$IniResLevels[1]*ParamMod[1];  ### production store level (mm)
         RunOptions$IniStates[2] <- RunOptions$IniResLevels[2]*ParamMod[3];  ### routing store level (mm)
       }