From 8acfff47298b55d0e4f62fbe0a022cc971357dcb Mon Sep 17 00:00:00 2001
From: unknown <olivier.delaigue@ANPI1430.antony.irstea.priv>
Date: Thu, 15 Jun 2017 09:40:16 +0200
Subject: [PATCH] v1.0.8.1 RunModel_GR5J now returns StateEnd in the right
order #4710
---
DESCRIPTION | 4 ++--
src/frun_GR5J.f | 4 ++--
2 files changed, 4 insertions(+), 4 deletions(-)
diff --git a/DESCRIPTION b/DESCRIPTION
index 2ce59047..26d9ac25 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.8.0
-Date: 2017-06-13
+Version: 1.0.8.1
+Date: 2017-06-14
Authors@R: c(
person("Laurent", "Coron", role = c("aut", "trl")),
person("Charles", "Perrin", role = c("aut", "ths")),
diff --git a/src/frun_GR5J.f b/src/frun_GR5J.f
index 49449d13..19e1209c 100644
--- a/src/frun_GR5J.f
+++ b/src/frun_GR5J.f
@@ -53,7 +53,7 @@
St(2) = StateStart(2)
DO I=1,2*NH
- StUH2(I)=StateStart(7+I)
+ StUH2(I)=StateStart(7+NH+I)
ENDDO
!parameter values
@@ -96,7 +96,7 @@ c MISC = -999.999
StateEnd(1) = St(1)
StateEnd(2) = St(2)
DO K=1,2*NH
- StateEnd(7+K)=StUH2(K)
+ StateEnd(7+NH+K)=StUH2(K)
ENDDO
RETURN
--
GitLab