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

DESCRIPTION

 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")),

NEWS.md

@@ -2,7 +2,7 @@
 
 
 
-### 1.4.0.0 Release Notes (2019-12-04)
+### 1.4.0.1 Release Notes (2019-12-04)
 
 
 #### New features

src/frun_GR5H.f → src/frun_GR5H.f90

@@ -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]