Allow lakes off for Gridded

NCAR · Jan 8, 2025 · deed24b · deed24b
1 parent b1841e1
commit deed24b
Showing 1 changed file with 6 additions and 1 deletion.
diff --git 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