Commit 9739dd34 authored by Delaigue Olivier's avatar Delaigue Olivier
Browse files

v1.3.2.66 CLEAN: variable declaration has been modified in the Fortran codes frun_GR* #17

Showing with 14 additions and 11 deletions
+14 -11
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.3.2.65 Version: 1.3.2.66
Date: 2019-12-02 Date: 2019-12-02
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")),
......
...@@ -2,7 +2,7 @@ ...@@ -2,7 +2,7 @@
### 1.3.2.65 Release Notes (2019-12-02) ### 1.3.2.66 Release Notes (2019-12-02)
#### New features #### New features
......
...@@ -174,11 +174,12 @@ ...@@ -174,11 +174,12 @@
!! locals !! locals
integer, parameter :: NParam=4,NMISC=30,NH=480 integer, parameter :: NParam=4,NMISC=30,NH=480
doubleprecision :: A,B,EN,ER,PN,PR,PS,WS,tanHyp doubleprecision :: A,EN,ER,PN,PR,PS,WS,tanHyp
doubleprecision :: PERC,PRHU1,PRHU2,EXCH,QR,QD doubleprecision :: PERC,PRHU1,PRHU2,EXCH,QR,QD
doubleprecision :: AE,AEXCH1,AEXCH2 doubleprecision :: AE,AEXCH1,AEXCH2
integer :: K integer :: K
data B/0.9/ doubleprecision, parameter :: B=0.9
doubleprecision, parameter :: stored_val=759.69140625
doubleprecision :: TWS, Sr, Rr ! speed-up doubleprecision :: TWS, Sr, Rr ! speed-up
!! dummies !! dummies
......
...@@ -174,11 +174,12 @@ ...@@ -174,11 +174,12 @@
!! locals !! locals
integer, parameter :: NParam=4,NMISC=30,NH=20 integer, parameter :: NParam=4,NMISC=30,NH=20
doubleprecision :: A,B,EN,ER,PN,PR,PS,WS,tanHyp doubleprecision :: A,EN,ER,PN,PR,PS,WS,tanHyp
doubleprecision :: PERC,PRHU1,PRHU2,EXCH,QR,QD doubleprecision :: PERC,PRHU1,PRHU2,EXCH,QR,QD
doubleprecision :: AE,AEXCH1,AEXCH2 doubleprecision :: AE,AEXCH1,AEXCH2
integer :: K integer :: K
data B/0.9/ doubleprecision, parameter :: B=0.9
doubleprecision, parameter :: stored_val=25.62890625
doubleprecision :: TWS, Sr, Rr ! speed-up doubleprecision :: TWS, Sr, Rr ! speed-up
!! dummies !! dummies
......
...@@ -168,11 +168,12 @@ ...@@ -168,11 +168,12 @@
!! locals !! locals
integer, parameter :: NParam=5,NMISC=30,NH=20 integer, parameter :: NParam=5,NMISC=30,NH=20
doubleprecision :: A,B,EN,ER,PN,PR,PS,WS,tanHyp doubleprecision :: A,EN,ER,PN,PR,PS,WS,tanHyp
doubleprecision :: PERC,EXCH,QR,QD,Q1,Q9 doubleprecision :: PERC,EXCH,QR,QD,Q1,Q9
doubleprecision :: AE,AEXCH1,AEXCH2 doubleprecision :: AE,AEXCH1,AEXCH2
integer :: K integer :: K
data B/0.9/ doubleprecision, parameter :: B=0.9
doubleprecision, parameter :: stored_val=25.62890625
doubleprecision :: TWS, Sr, Rr ! speed-up doubleprecision :: TWS, Sr, Rr ! speed-up
!! dummies !! dummies
......
...@@ -179,12 +179,12 @@ ...@@ -179,12 +179,12 @@
!! locals !! locals
integer, parameter :: NParam=6,NMISC=30,NH=20 integer, parameter :: NParam=6,NMISC=30,NH=20
doubleprecision :: A,B,C,EN,ER,PN,PR,PS,WS,tanHyp,AR doubleprecision :: A,EN,ER,PN,PR,PS,WS,tanHyp,AR
doubleprecision :: PERC,PRUH1,PRUH2,EXCH,QR,QD,QRExp doubleprecision :: PERC,PRUH1,PRUH2,EXCH,QR,QD,QRExp
doubleprecision :: AE,AEXCH1,AEXCH2 doubleprecision :: AE,AEXCH1,AEXCH2
integer :: K integer :: K
data B/0.9/ doubleprecision, parameter :: B=0.9, C=0.4
data C/0.4/ doubleprecision, parameter :: stored_val=25.62890625
doubleprecision :: TWS, Sr, Rr ! speed-up doubleprecision :: TWS, Sr, Rr ! speed-up
!! dummies !! dummies
......
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