diff --git a/DESCRIPTION b/DESCRIPTION index 2262f50b0c8e7d06776dd4df2bb3687270fb4bba..91026ab85edaef44f465a2e8b1ca5c0b911d0f14 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.6.3.63 +Version: 1.6.3.64 Date: 2020-11-17 Authors@R: c( person("Laurent", "Coron", role = c("aut", "trl"), comment = c(ORCID = "0000-0002-1503-6204")), diff --git a/NEWS.md b/NEWS.md index 505395fef59fc402ed20acc920bab66698a79f72..37d17e1a1ad3ac1729e9558858fc4bf5235f879c 100644 --- a/NEWS.md +++ b/NEWS.md @@ -4,7 +4,7 @@ -### 1.6.3.63 Release Notes (2020-11-17) +### 1.6.3.64 Release Notes (2020-11-17) #### New features diff --git a/R/RunModel_CemaNeigeGR4J.R b/R/RunModel_CemaNeigeGR4J.R index 973eba0b88f8c8c2045c4c5a9fdc5fd3ed752d74..d525bdbbcdd0235ca7dd517b9783db04c7049088 100644 --- a/R/RunModel_CemaNeigeGR4J.R +++ b/R/RunModel_CemaNeigeGR4J.R @@ -74,7 +74,8 @@ RunModel_CemaNeigeGR4J <- function(InputsModel, RunOptions, Param) { if (inherits(RunOptions, "CemaNeige")) { if ("all" %in% RunOptions$Outputs_Sim) { IndOutputsCemaNeige <- as.integer(1:length(FortranOutputs$CN)) - } else { IndOutputsCemaNeige <- which(FortranOutputs$CN %in% RunOptions$Outputs_Sim) + } else { + IndOutputsCemaNeige <- which(FortranOutputs$CN %in% RunOptions$Outputs_Sim) } CemaNeigeLayers <- list() CemaNeigeStateEnd <- NULL @@ -138,7 +139,8 @@ RunModel_CemaNeigeGR4J <- function(InputsModel, RunOptions, Param) { ## MODEL______________________________________________________________________________________ if ("all" %in% RunOptions$Outputs_Sim) { IndOutputsMod <- as.integer(1:length(FortranOutputs$GR)) - } else { IndOutputsMod <- which(FortranOutputs$GR %in% RunOptions$Outputs_Sim) + } else { + IndOutputsMod <- which(FortranOutputs$GR %in% RunOptions$Outputs_Sim) } ## Use_of_IniResLevels diff --git a/R/RunModel_CemaNeigeGR5H.R b/R/RunModel_CemaNeigeGR5H.R index c86f7bcbde72f99ec0705b488d2d245acbd2ac64..5bb10771fe004613755dcfa8e349b6b19d55c2d6 100644 --- a/R/RunModel_CemaNeigeGR5H.R +++ b/R/RunModel_CemaNeigeGR5H.R @@ -90,7 +90,8 @@ RunModel_CemaNeigeGR5H <- function(InputsModel, RunOptions, Param) { if (inherits(RunOptions, "CemaNeige")) { if ("all" %in% RunOptions$Outputs_Sim) { IndOutputsCemaNeige <- as.integer(1:length(FortranOutputs$CN)) - } else { IndOutputsCemaNeige <- which(FortranOutputs$CN %in% RunOptions$Outputs_Sim) + } else { + IndOutputsCemaNeige <- which(FortranOutputs$CN %in% RunOptions$Outputs_Sim) } CemaNeigeLayers <- list() CemaNeigeStateEnd <- NULL