diff --git a/DESCRIPTION b/DESCRIPTION index 86c28023b7c83ccadd1848735ac8ecf57094657b..f409c3a7d3ddfb81239ef96a2431e31dc60b4108 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,7 +1,7 @@ Package: airGR Type: Package Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling -Version: 1.4.3.43 +Version: 1.4.3.44 Date: 2020-01-20 Authors@R: c( person("Laurent", "Coron", role = c("aut", "trl"), comment = c(ORCID = "0000-0002-1503-6204")), diff --git a/NEWS.md b/NEWS.md index 629100bf2be458bbc191df5278d8cd8480e3054e..51a98268db872ab2540bcc762b422a28a62c8298 100644 --- a/NEWS.md +++ b/NEWS.md @@ -2,7 +2,7 @@ -### 1.4.3.43 Release Notes (2020-01-17) +### 1.4.3.44 Release Notes (2020-01-20) #### New features diff --git a/src/frun_GR5H.f90 b/src/frun_GR5H.f90 index 2facd8732ff7df8cb9c6ac59ad037358855b3a08..c2ccfe7153f1effca0aca8c5575d15d1f4142d15 100644 --- a/src/frun_GR5H.f90 +++ b/src/frun_GR5H.f90 @@ -213,9 +213,9 @@ ! Interception store calculation, with evaporation prior to throughfall EI=MIN(E, P1+St(3)) - PN=MAX(0., P1-(Imax-St(3))-EI) + PN=MAX(0.d0, P1-(Imax-St(3))-EI) St(3)=St(3)+P1-EI-PN - EN=MAX(0., E-EI) + EN=MAX(0.d0, E-EI) ! Production (SMA) store, saving the total actual evaporation including evaporation from interception store (EI) IF(EN.GT.0) THEN