v1.0.8.1 RunModel_GR5J now returns StateEnd in the right order #4710

8acfff47 · unknown · 25129d3e · 8acfff47 · 8acfff47
Commit 8acfff47 authored 7 years ago by unknown
Hide whitespace changes
Inline Side-by-side

Showing

with 4 additions and 4 deletions
+4 -4
--- a/DESCRIPTION
+++ b/DESCRIPTION
 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")),

--- 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