From 65f9252a8bb4d69822cb8da0415e4e5df5f6b955 Mon Sep 17 00:00:00 2001 From: Ryan Cabell Date: Wed, 23 Oct 2024 10:39:46 -0600 Subject: [PATCH] Unindent preprocessor macros --- src/Routing/module_channel_routing.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Routing/module_channel_routing.F90 b/src/Routing/module_channel_routing.F90 index 70df7aaf3..454e4103e 100644 --- a/src/Routing/module_channel_routing.F90 +++ b/src/Routing/module_channel_routing.F90 @@ -858,11 +858,11 @@ Subroutine drive_CHANNEL(did, latval,lonval,KT, IXRT,JXRT, SUBRTSWCRT, & ! endif !!! order(1) .ne. 1 end do !--k links - #ifdef MPP_LAND +#ifdef MPP_LAND call updateLake_seq(RESHT,nlakes,tmpRESHT) call updateLake_seq(QLAKEO,nlakes,tmpQLAKEO) call updateLake_seq(QLAKEI,nlakes,tmpQLAKEI) - #endif +#endif !yw check ! gQLINK = 0.0