Commit 9c0d097f authored by Delaigue Olivier's avatar Delaigue Olivier

v1.4.3.30 BUG: wrong call to RunModel_GR5H replaced by RunModel_CemaNeigeGR5H...

v1.4.3.30 BUG: wrong call to RunModel_GR5H replaced by  RunModel_CemaNeigeGR5H in CreatIniSates used in RunModel_CemaNeigeGR5H #13
parent 298b655e
Package: airGR
Type: Package
Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling
Version: 1.4.3.29
Version: 1.4.3.30
Date: 2019-12-19
Authors@R: c(
person("Laurent", "Coron", role = c("aut", "trl"), comment = c(ORCID = "0000-0002-1503-6204")),
......
......@@ -2,7 +2,7 @@
### 1.4.3.29 Release Notes (2019-12-19)
### 1.4.3.30 Release Notes (2019-12-19)
#### New features
......
......@@ -144,7 +144,7 @@ RunModel_CemaNeigeGR5H <- function(InputsModel,RunOptions,Param){
if (ExportStateEnd) {
RESULTS$StateEnd[-3L] <- ifelse(RESULTS$StateEnd[-3L] < 0, 0, RESULTS$StateEnd[-3L]) ### remove negative values except for the ExpStore location
idNStates <- seq_len(NStates*NLayers) %% NStates
RESULTS$StateEnd <- CreateIniStates(FUN_MOD = RunModel_GR5H, InputsModel = InputsModel, IsHyst = IsHyst,
RESULTS$StateEnd <- CreateIniStates(FUN_MOD = RunModel_CemaNeigeGR5H, InputsModel = InputsModel, IsHyst = IsHyst,
ProdStore = RESULTS$StateEnd[1L], RoutStore = RESULTS$StateEnd[2L], ExpStore = NULL,
IntStore = RESULTS$StateEnd[4L],
UH1 = NULL, UH2 = RESULTS$StateEnd[(1:(40*24))+(7+20*24)],
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment