Commit cf495ee0 authored by POLCHER Jan's avatar POLCHER Jan 🚴🏾
Browse files

Some clean-up in F90Subroutines to ensure that we get less warnings from f2py.

parent 516c926a
dict(real=dict(r_std='float', r_8='double'), integer=dict(i_std='int', i_8='long'))
......@@ -385,7 +385,7 @@ SUBROUTINE rivclassification(nbpt, nwbas, nbcore, corepts, basin_count, outflow_
INTEGER(i_std), DIMENSION(nbcore), INTENT(in) :: corepts
INTEGER(i_std), DIMENSION(nbpt), INTENT(in) :: basin_count !!
INTEGER(i_std), DIMENSION(nbpt,nwbas), INTENT(inout) :: outflow_grid
INTEGER(i_std), DIMENSION(nbpt,nwbas), INTENT(in) :: outflow_basin !!
INTEGER(i_std), DIMENSION(nbpt,nwbas), INTENT(inout) :: outflow_basin !!
REAL(r_std), DIMENSION(nbpt,nwbas), INTENT(in) :: fetch_basin !!
REAL(r_std), INTENT(in) :: largest_rivarea
INTEGER(i_std), INTENT (out) :: num_largest
......@@ -401,6 +401,9 @@ SUBROUTINE rivclassification(nbpt, nwbas, nbcore, corepts, basin_count, outflow_
!
num_largest = 0
!
! Just a dummy use to avoid f2py warnings
outflow_basin(1,1) = outflow_basin(1,1)
!
DO i=1,nbcore
ig = fcorepts(i)
!
......@@ -647,7 +650,7 @@ SUBROUTINE finalrivclass(nbpt, nbasmax, nbcore, corepts, route_togrid, route_tob
INTEGER(i_std), DIMENSION(nbcore), INTENT(in) :: corepts
INTEGER(i_std), DIMENSION(nbpt,nbasmax), INTENT(inout) :: route_togrid !! Grid into which the basin flows (unitless)
INTEGER(i_std), DIMENSION(nbpt,nbasmax), INTENT(inout) :: route_tobasin !! Basin in to which the water goes (unitless)
REAL(r_std), DIMENSION(nbpt,nbasmax), INTENT(in) :: routing_fetch !! Upstream are flowing into HTU (m^2)
REAL(r_std), DIMENSION(nbpt,nbasmax), INTENT(inout) :: routing_fetch !! Upstream are flowing into HTU (m^2)
REAL(r_std), INTENT(in) :: largest_rivarea
INTEGER(i_std), INTENT (out) :: num_largest
!
......@@ -660,6 +663,9 @@ SUBROUTINE finalrivclass(nbpt, nbasmax, nbcore, corepts, route_togrid, route_tob
fcorepts(i) = corepts(i)+1
ENDDO
!
! Just a dummy use to avoid f2py warnings
route_togrid(1,1) = route_togrid(1,1)
!
! Redo the the distinction between river outflow and coastal flow. We can not
! take into account the return flow points.
!
......
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