v1.2.11.11 BUG: check on setting parameter values added in frun_CEMANEIGE FORTRAN file

01322853 · Delaigue Olivier · b461d285 · 01322853 · 01322853 · 01322853
Commit 01322853 authored 6 years ago by Delaigue Olivier
Hide whitespace changes
Inline Side-by-side

Showing

with 5 additions and 4 deletions
+5 -4
--- a/DESCRIPTION
+++ b/DESCRIPTION
 Package: airGR
 Type: Package
 Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling
-Version: 1.2.11.10
+Version: 1.2.11.11
 Date: 2019-03-25
 Authors@R: c(
  person("Laurent", "Coron", role = c("aut", "trl"), comment = c(ORCID = "0000-0002-1503-6204")),

--- a/NEWS.rmd
+++ b/NEWS.rmd
@@ -13,7 +13,7 @@ output:



-### 1.2.11.10 Release Notes (2019-03-25) 
+### 1.2.11.11 Release Notes (2019-03-25) 




--- a/src/frun_CEMANEIGE.f
+++ b/src/frun_CEMANEIGE.f
@@ -70,8 +70,9 @@
        Gacc=Param(3)
        prct=Param(4)

-        Gthreshold=prct*MeanAnSolidPrecip
-        Glocalmax=Gthreshold
+        IF (Gthreshold .EQ. 0.) Gthreshold=prct*MeanAnSolidPrecip
+        IF (Glocalmax  .EQ. 0.) Glocalmax=Gthreshold
+
      ELSE
        Gthreshold=0.9*MeanAnSolidPrecip
      ENDIF