From 1639186afb0ca17480a7e4a93fccab04a308cad0 Mon Sep 17 00:00:00 2001
From: POLCHER Jan <jan.polcher@lmd.jussieu.fr>
Date: Sat, 29 Feb 2020 18:10:52 +0100
Subject: [PATCH] Corrected a small bug based on a suggestion of Anthony.
---
F90subroutines/routing_reg.f90 | 1 +
1 file changed, 1 insertion(+)
diff --git a/F90subroutines/routing_reg.f90 b/F90subroutines/routing_reg.f90
index 2a21806..57b0d01 100644
--- a/F90subroutines/routing_reg.f90
+++ b/F90subroutines/routing_reg.f90
@@ -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
--
GitLab