fix: correct wrong conditionnal test when user choose the outputs of RunModel_CemaNeigeGR6J

9d6c6d25 · Delaigue Olivier · 4d3cf421 · 9d6c6d25
Commit 9d6c6d25 authored 4 years ago by Delaigue Olivier
Hide whitespace changes
Inline Side-by-side

Showing

with 1 addition and 1 deletion
+1 -1
--- a/R/RunModel_CemaNeigeGR6J.R
+++ b/R/RunModel_CemaNeigeGR6J.R
@@ -199,7 +199,7 @@ RunModel_CemaNeigeGR6J <- function(InputsModel, RunOptions, Param) {
    names(OutputsModel) <- c(FortranOutputs$GR[IndOutputsMod], NameCemaNeigeLayers)
  }
  ## DatesR and OutputsModel only
-  if (!ExportDatesR & ExportStateEnd) {
+  if (ExportDatesR & !ExportStateEnd) {
    OutputsModel <- c(list(InputsModel$DatesR[RunOptions$IndPeriod_Run]),
                      lapply(seq_len(RESULTS$NOutputs), function(i) RESULTS$Outputs[IndPeriod2, i]),
                      list(CemaNeigeLayers))