From 0038ccee394142c045519591c97a0278e73810cc Mon Sep 17 00:00:00 2001 From: Ryan Cabell Date: Thu, 21 Nov 2019 09:19:03 -0700 Subject: [PATCH] Remove debug statement and left-align #ifdef * Remove extraneous debug print statement * Left-align an #ifdef to make gfortran happy --- trunk/NDHMS/Routing/module_channel_routing.F | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/trunk/NDHMS/Routing/module_channel_routing.F b/trunk/NDHMS/Routing/module_channel_routing.F index ee7c69019..e1fdcc18f 100644 --- a/trunk/NDHMS/Routing/module_channel_routing.F +++ b/trunk/NDHMS/Routing/module_channel_routing.F @@ -985,9 +985,6 @@ Subroutine drive_CHANNEL(latval,lonval,KT, IXRT,JXRT, SUBRTSWCRT, & if(TYPEL(k) == 1) then !--link is a reservoir l_idx = lake_lookup(k) if (l_idx >= 0) then !-- -999 if not a reservoir in the lookup table (belt-and-suspenders check) - print *, "CALL LEVELPOOL", l_idx,Quc, Qup, QLINK(k,2), QLateral(k), DT, & - RESHT(l_idx), HRZAREA(l_idx), WEIRH(l_idx), LAKEMAXH(l_idx), & - WEIRC(l_idx), WEIRL(l_idx), ORIFICEE(l_idx), ORIFICEC(l_idx), ORIFICEA(l_idx) CALL LEVELPOOL(l_idx,Quc, Qup, QLINK(k,2), QLateral(k), DT, & RESHT(l_idx), HRZAREA(l_idx), WEIRH(l_idx), LAKEMAXH(l_idx), & WEIRC(l_idx), WEIRL(l_idx), ORIFICEE(l_idx), ORIFICEC(l_idx), ORIFICEA(l_idx)) @@ -1011,11 +1008,11 @@ Subroutine drive_CHANNEL(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