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

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")),

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