Change for not considering endorheic basin among the large basins

db7d6b66 · Anthony · 728fde56 · db7d6b66
Commit db7d6b66 authored May 30, 2020 by Anthony
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

F90subroutines/routing_interface.f90 F90subroutines/routing_interface.f90 +1 -1

No files found.
--- a/F90subroutines/routing_interface.f90
+++ b/F90subroutines/routing_interface.f90
@@ -414,7 +414,7 @@ SUBROUTINE rivclassification(nbpt, nwbas, nbcore, corepts, basin_count, outflow_
     !
     DO ib=1,basin_count(ig)
        !
-        IF (outflow_grid(ig,ib) .LT. 0 .AND. fetch_basin(ig,ib) .GE. largest_rivarea) THEN
+        IF (outflow_grid(ig,ib) .LT. 0 .AND. outflow_grid(ig,ib) .GT. -3  .AND. fetch_basin(ig,ib) .GE. largest_rivarea) THEN
           num_largest = num_largest + 1
           outflow_grid(ig,ib) = -1
        ENDIF