From a6b1f4b942520c9a1d70b76234083797141f047f Mon Sep 17 00:00:00 2001
From: Anthony <anthony.schrapffer@polytechnique.fr>
Date: Fri, 24 Apr 2020 14:53:42 +0200
Subject: [PATCH] Small correction
---
F90subroutines/routing_reg.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/F90subroutines/routing_reg.f90 b/F90subroutines/routing_reg.f90
index 2ed9fc4..d005d21 100644
--- 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
--
GitLab