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

Small F90 syntax error

parent 20533bf1
......@@ -2712,7 +2712,7 @@ SUBROUTINE routing_reg_end_truncate(nbpt, nbasmax, gridarea, contfrac, nwbas, nu
route_tobasin_glo(ib,ij) = nbasmax + 2
route_togrid_glo(ib,ij) = ib
! River flows
IF ( route_togrid_glo(ib,ij) .EQ. -1 ) THEN
ELSE IF ( route_togrid_glo(ib,ij) .EQ. -1 ) THEN
route_tobasin_glo(ib,ij) = nbasmax + 2
route_togrid_glo(ib,ij) = ib
! Coastal flows
......
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