diff --git a/DESCRIPTION b/DESCRIPTION index ccda796744662c5e6e6962ff74a1a111401759e5..b2730a77d0225007dfa93e41d8d0173781061eb5 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.14 +Version: 1.3.2.15 Date: 2019-05-24 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 ff671815cb10bceb207695a163852b8b192875b4..e0d5723caf53436bc7325ece69ffdb3e6c349921 100644 --- a/NEWS.rmd +++ b/NEWS.rmd @@ -14,7 +14,7 @@ output: -### 1.3.2.14 Release Notes (2019-05-24) +### 54 Release Notes (2019-05-24) #### New features diff --git a/R/PE_Oudin.R b/R/PE_Oudin.R index cd30b49571125cbca5187f4f1b0d6ff9356b4375..9814dc7fa45891dedf331f2e8a0f8c5ae178f7dc 100644 --- a/R/PE_Oudin.R +++ b/R/PE_Oudin.R @@ -126,11 +126,11 @@ PE_Oudin <- function(JD, Temp, ## ---------- disaggregate PE from daily to hourly if (TimeStepOut == "hourly") { - sinus_D2H <- c(0.000, 0.000, 0.000, 0.000, 0.000, 0.000, + parab_D2H <- c(0.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.035, 0.062, 0.079, 0.097, 0.110, 0.117, 0.117, 0.110, 0.097, 0.079, 0.062, 0.035, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000) - PE_Oudin_H <- rep(PE_Oudin_D, each = 24) * rep(sinus_D2H, times = length(PE_Oudin_D)) + PE_Oudin_H <- rep(PE_Oudin_D, each = 24) * rep(parab_D2H, times = length(PE_Oudin_D)) }