Commit 94ddd833 authored by Delaigue Olivier's avatar Delaigue Olivier
Browse files

v1.4.0.1 CLEAN: minor typo revisions to translate frun_GR5H Fotran code from F77 to F90 #13

parent 5702ffd1
Package: airGR
Type: Package
Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling
Version: 1.4.0.0
Version: 1.4.0.1
Date: 2019-12-04
Authors@R: c(
person("Laurent", "Coron", role = c("aut", "trl"), comment = c(ORCID = "0000-0002-1503-6204")),
......
......@@ -2,7 +2,7 @@
### 1.4.0.0 Release Notes (2019-12-04)
### 1.4.0.1 Release Notes (2019-12-04)
#### New features
......
......@@ -33,9 +33,9 @@
!------------------------------------------------------------------------------
SUBROUTINE frun_gr5h(LInputs,InputsPrecip,InputsPE,NParam,Param,
& NStates,StateStart,IsIntStore,Imax,NOutputs,IndOutputs,
& Outputs,StateEnd)
SUBROUTINE frun_gr5h(LInputs,InputsPrecip,InputsPE,NParam,Param, &
NStates,StateStart,IsIntStore,Imax,NOutputs,IndOutputs, &
Outputs,StateEnd)
! Subroutine that initializes GR5H, get its parameters, performs the call
! to the MOD_GR5H subroutine at each time step, and stores the final states
! Inputs
......@@ -72,8 +72,7 @@
integer, dimension(NOutputs), intent(in) :: IndOutputs
! out
doubleprecision, dimension(NStates), intent(out) :: StateEnd
doubleprecision, dimension(LInputs,NOutputs),
& intent(out) :: Outputs
doubleprecision, dimension(LInputs,NOutputs), intent(out) :: Outputs
!! locals
logical :: IsIntStoreBool ! TRUE if interception store is used, FALSE otherwise
......@@ -162,8 +161,7 @@
!**********************************************************************
SUBROUTINE MOD_GR5H(St,StUH2,OrdUH2,Param,IsIntStoreBool,Imax,P1,E,Q,
&MISC)
SUBROUTINE MOD_GR5H(St,StUH2,OrdUH2,Param,IsIntStoreBool,Imax,P1,E,Q,MISC)
! Calculation of streamflow on a single time step (hour) with the GR5H model
! Inputs:
! St Vector of real, model states in stores at the beginning of the time step [mm]
......
Markdown is supported
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