diff --git a/DESCRIPTION b/DESCRIPTION index 80afa6203195434d8e498fdb41c50b0c97ef8773..70c5e92a430878bfcd72431cfd0367e2e3b3479d 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.3.2.3 +Version: 1.3.2.4 Date: 2019-05-22 Authors@R: c( person("Laurent", "Coron", role = c("aut", "trl"), comment = c(ORCID = "0000-0002-1503-6204")), diff --git a/NEWS.rmd b/NEWS.rmd index 6a49d6037bb21091ceab4b9d7fa371beed1b0c1f..38a740db3676589110075b0994e9d2616ba2e2ef 100644 --- a/NEWS.rmd +++ b/NEWS.rmd @@ -14,7 +14,7 @@ output: -### 1.3.2.3 Release Notes (2019-05-22) +### 1.3.2.4 Release Notes (2019-05-22) #### New features diff --git a/R/PE_Oudin.R b/R/PE_Oudin.R index e02bfa4751ac7d99acefb85d9f3eed1732a977b5..f474924d7acdca563a7d3293dbced0ad52ec9ab4 100644 --- a/R/PE_Oudin.R +++ b/R/PE_Oudin.R @@ -53,6 +53,12 @@ PE_Oudin <- function(JD, Temp, if (!(TimeStepOut %in% c("daily", "hourly"))) { stop("'TimeStepOut' must be one of \"daily\" or \"hourly\"") } + if (TimeStepIn == "daily") { + rleJD <- rle(JD) + if (any(rleJD$lengths != 1)) { + stop("each day must have only one identical value of julian days") + } + } ## ---------- hourly inputs aggregation