diff --git a/DESCRIPTION b/DESCRIPTION index 2ce5904728d2c82e473d330cc52caae2c8f3b11b..26d9ac2579a10fa0e0cab41b0a6f449fcdf11a73 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 49449d137d5ee5bf2ee8f6f7ae8cf7775a083900..19e1209cde5ac269b410dc8ccde230666ea9cdf3 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