diff --git a/DESCRIPTION b/DESCRIPTION index 45fdd76833a4bd54ffe3a83e1b6657fd5588b43a..3dd58968d74025a9dbbf4af62e048dff7ae48e87 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,8 +1,8 @@ Package: airGR Type: Package Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling -Version: 1.0.9.52 -Date: 2017-10-23 +Version: 1.0.9.53 +Date: 2017-10-26 Authors@R: c( person("Laurent", "Coron", role = c("aut", "trl")), person("Charles", "Perrin", role = c("aut", "ths")), diff --git a/NEWS.rmd b/NEWS.rmd index f06bc248b41db95abac74b9cc144983c6c57f167..4911200267d340b0d9d2ea18b042193177cb8670 100644 --- a/NEWS.rmd +++ b/NEWS.rmd @@ -14,7 +14,7 @@ output: -### 1.0.9.52 Release Notes (2017-10-23) +### 1.0.9.53 Release Notes (2017-10-26) #### New features diff --git a/R/Calibration_Michel.R b/R/Calibration_Michel.R index 581c2d9e90228d7356c80be3e64de14001c65d06..f5433f500780977be388a9a44d1f34d07aba0324 100644 --- a/R/Calibration_Michel.R +++ b/R/Calibration_Michel.R @@ -341,12 +341,7 @@ Calibration_Michel <- function(InputsModel, RunOptions, InputsCrit, CalibOptions VectPace <- NewParamOptimT-OldParamOptimT for (iC in 1:NParam) { if (OptimParam[iC]) { - if (VectPace[iC] != 0) { - PaceDiag[iC] <- CLG * PaceDiag[iC] + (1-CLG) * VectPace[iC] - } - if (VectPace[iC] == 0) { - PaceDiag[iC] <- CLG*PaceDiag[iC] - } + PaceDiag[iC] <- CLG * PaceDiag[iC] + (1-CLG) * VectPace[iC] } } } else {