Commit 87be8b19 authored by Delaigue Olivier's avatar Delaigue Olivier
Browse files

v1.6.3.24 fix(GR1A): reorder reversed outputs (PotEvap and Precip) in R version of the GR1A code

Refs #65
Showing with 4 additions and 4 deletions
+4 -4
Package: airGR
Type: Package
Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling
Version: 1.6.3.23
Date: 2020-10-27
Version: 1.6.3.24
Date: 2020-11-05
Authors@R: c(
person("Laurent", "Coron", role = c("aut", "trl"), comment = c(ORCID = "0000-0002-1503-6204")),
person("Olivier", "Delaigue", role = c("aut", "cre"), comment = c(ORCID = "0000-0002-7668-8468"), email = "airGR@inrae.fr"),
......
......@@ -4,7 +4,7 @@
### 1.6.3.23 Release Notes (2020-10-27)
### 1.6.3.24 Release Notes (2020-1&-05)
#### New features
......
......@@ -52,7 +52,7 @@ RunModel_GR1A <- function(InputsModel,RunOptions,Param){
P1 <- InputsModel$Precip[ IndPeriod1][2: L ]
E1 <- InputsModel$PotEvap[IndPeriod1][2: L ]
Q1 <- P1*(1.-1./(1.+((0.7*P1+0.3*P0)/Param[1]/E1)^2.0)^0.5)
PEQ <- rbind(c(NA,NA,NA),cbind(P1,E1,Q1))
PEQ <- rbind(c(NA,NA,NA),cbind(E1,P1,Q1))
Outputs <- PEQ[,IndOutputs]
if(is.vector(Outputs)){ Outputs <- cbind(Outputs); }
RESULTS <- list(NOutputs=length(IndOutputs),IndOutputs=IndOutputs,Outputs=Outputs,StatesEnd=NA)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment