From 3d35b3936981a3dedb35a8ced66463cf56c0db30 Mon Sep 17 00:00:00 2001
From: Delaigue Olivier <olivier.delaigue@irstea.fr>
Date: Wed, 27 Jan 2021 13:37:17 +0100
Subject: [PATCH] v1.6.9.34 refactor(fortran): fix warning returned by GCC
Fortran when compiling frun_GR5H.f90 Reviewed-by: @antoine.pelletier Refs #93
---
DESCRIPTION | 4 ++--
NEWS.md | 6 +++++-
src/frun_GR5H.f90 | 7 +++++--
3 files changed, 12 insertions(+), 5 deletions(-)
diff --git a/DESCRIPTION b/DESCRIPTION
index fd5f0958..060cdf35 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.6.9.33
-Date: 2021-01-26
+Version: 1.6.9.34
+Date: 2021-01-27
Authors@R: c(
person("Laurent", "Coron", role = c("aut", "trl"), comment = c(ORCID = "0000-0002-1503-6204")),
person("Olivier", "Delaigue", role = c("aut", "cre"), comment = c(ORCID = "0000-0002-7668-8468"), email = "airGR@inrae.fr"),
diff --git a/NEWS.md b/NEWS.md
index b4cd125e..edfe8ed8 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -2,12 +2,16 @@
-### Unreleased
+### 1.6.9.34 Release Notes (2021-01-27)
#### Major user-visible changes
- `Imax()` now returns an error message when `IndPeriod_Run` doesn't select 24 hours by day, instead of `numeric(0)`. ([#92](https://gitlab.irstea.fr/HYCAR-Hydro/airgr/-/issues/92))
+
+#### Minor user-visible changes
+- Fixed warning returned by GCC Fortran in `frun_GR5H.f90`. ([#93](https://gitlab.irstea.fr/HYCAR-Hydro/airgr/-/issues/93))
+
____________________________________________________________________________________
diff --git a/src/frun_GR5H.f90 b/src/frun_GR5H.f90
index 2027f47c..0de3f729 100644
--- a/src/frun_GR5H.f90
+++ b/src/frun_GR5H.f90
@@ -76,8 +76,11 @@
doubleprecision, dimension(NMISC) :: MISC
doubleprecision :: D,P1,E,Q
- IF (Imax .LT. 0.) IsIntStore = .FALSE.
- IF (Imax .GE. 0.) IsIntStore = .TRUE.
+ IF (Imax .LT. 0.) THEN
+ IsIntStore = .FALSE.
+ ELSE
+ IsIntStore = .TRUE.
+ ENDIF
!--------------------------------------------------------------
! Initializations
--
GitLab