From f415bb481080fdbbf0f34141b12b8c7b7c583eed Mon Sep 17 00:00:00 2001
From: Delaigue Olivier <olivier.delaigue@irstea.priv>
Date: Mon, 20 Jan 2020 15:41:34 +0100
Subject: [PATCH] v1.4.3.44 CLEAN: double precision defined for all elements
used by the MAX fun in frun_GR5H Fortran code
---
DESCRIPTION | 2 +-
NEWS.md | 2 +-
src/frun_GR5H.f90 | 4 ++--
3 files changed, 4 insertions(+), 4 deletions(-)
diff --git a/DESCRIPTION b/DESCRIPTION
index 86c28023..f409c3a7 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 629100bf..51a98268 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 2facd873..c2ccfe71 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
--
GitLab