Small F90 syntax error

e75d2113 · POLCHER Jan · 20533bf1 · e75d2113
Commit e75d2113 authored Apr 26, 2020 by POLCHER Jan 🚴🏾
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

F90subroutines/routing_reg.f90 F90subroutines/routing_reg.f90 +1 -1

No files found.
--- a/F90subroutines/routing_reg.f90
+++ b/F90subroutines/routing_reg.f90
@@ -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