Commit 3d35b393 authored by Delaigue Olivier's avatar Delaigue Olivier
Browse files

v1.6.9.34 refactor(fortran): fix warning returned by GCC Fortran when compiling frun_GR5H.f90

Reviewed-by: @antoine.pelletier
Refs #93
Showing with 12 additions and 5 deletions
+12 -5
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"),
......
......@@ -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))
____________________________________________________________________________________
......
......@@ -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
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment