diff --git a/F90subroutines/routing_interface.f90 b/F90subroutines/routing_interface.f90 index e59e47a729a19e24eba70d36b78bfadab783a024..5bbe204d268346451c9b5b171563246ed3845735 100644 --- 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