From db7d6b666279b3e9ab3294d26b562989938379eb Mon Sep 17 00:00:00 2001
From: Anthony <anthony.schrapffer@polytechnique.fr>
Date: Sat, 30 May 2020 14:54:01 +0200
Subject: [PATCH] Change for not considering endorheic basin among the large
basins
---
F90subroutines/routing_interface.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/F90subroutines/routing_interface.f90 b/F90subroutines/routing_interface.f90
index e59e47a..5bbe204 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
--
GitLab