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

Corrected a small bug based on a suggestion of Anthony.

parent acd9d06b
......@@ -2229,6 +2229,7 @@ SUBROUTINE routing_reg_linkup(nbpt, neighbours, nwbas, basin_count, basin_area,
IF ( found == 0 ) THEN
WRITE (numout,*) "Looking for a solution in the grid"
sbint = undef_int
DO sba=1,basin_count(sp)
IF ( sba .NE. sb ) THEN
IF ( basin_id(sp,sb) == basin_id(sp,sba) ) THEN
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