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 Package: airGR
Type: Package Type: Package
Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling
Version: 1.6.9.33 Version: 1.6.9.34
Date: 2021-01-26 Date: 2021-01-27
Authors@R: c( Authors@R: c(
person("Laurent", "Coron", role = c("aut", "trl"), comment = c(ORCID = "0000-0002-1503-6204")), 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"), person("Olivier", "Delaigue", role = c("aut", "cre"), comment = c(ORCID = "0000-0002-7668-8468"), email = "airGR@inrae.fr"),
......
...@@ -2,12 +2,16 @@ ...@@ -2,12 +2,16 @@
### Unreleased ### 1.6.9.34 Release Notes (2021-01-27)
#### Major user-visible changes #### 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)) - `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 @@ ...@@ -76,8 +76,11 @@
doubleprecision, dimension(NMISC) :: MISC doubleprecision, dimension(NMISC) :: MISC
doubleprecision :: D,P1,E,Q doubleprecision :: D,P1,E,Q
IF (Imax .LT. 0.) IsIntStore = .FALSE. IF (Imax .LT. 0.) THEN
IF (Imax .GE. 0.) IsIntStore = .TRUE. IsIntStore = .FALSE.
ELSE
IsIntStore = .TRUE.
ENDIF
!-------------------------------------------------------------- !--------------------------------------------------------------
! Initializations ! 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