From deed24bcb751ad624c9cd6cf05572a8a190d8555 Mon Sep 17 00:00:00 2001
From: Ryan Cabell <rcabell@ucar.edu>
Date: Tue, 7 Jan 2025 17:40:24 -0700
Subject: [PATCH] Allow lakes off for Gridded

---
 src/Routing/module_RT.F90 | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/src/Routing/module_RT.F90 b/src/Routing/module_RT.F90
index 5b10745a0..c11be2ca5 100644
--- a/src/Routing/module_RT.F90
+++ b/src/Routing/module_RT.F90
@@ -567,7 +567,7 @@ subroutine getChanDim(did)
 
    return
 
-endif
+  endif
 
 
 allocate(CH_NETLNK(ixrt,jxrt))
@@ -589,6 +589,11 @@ subroutine getChanDim(did)
    call get_NLINKSL(rt_domain(did)%NLINKSL, nlst(did)%channel_option, nlst(did)%route_link_f)
 #endif
 
+if (nlst(did)%lake_option == 0) then
+   write(6,*) "Lakes have been disabled -- NLAKES will be set to zero."
+   rt_domain(did)%nlakes = 0
+end if
+
 #ifdef HYDRO_D
    write(6,*) "before rt_allocate after READ_ROUTEDIM"
 #endif