diff --git a/src/Routing/module_channel_routing.F90 b/src/Routing/module_channel_routing.F90
index e059a2c7b..4be8c7d01 100644
--- a/src/Routing/module_channel_routing.F90
+++ b/src/Routing/module_channel_routing.F90
@@ -508,12 +508,10 @@ subroutine SUBMUSKINGCUNGE(    &
       !TML:Added print statement to test qlos function;
       !comment out to prevent excessive file sizes when running model
       !print*, "qloss,dx,WP,WPk,depth,ChannK,qdc,ql,dt,D", qloss,dx,WP,WPk,depth,ChannK,qdc,ql,dt,D
-      if (ChannK /= 0) then
-         if((qloss*dt)/D > ((ql*dt)/D - C4)) then
-            qloss = ql - C4*(D/dt)
-            if (qloss < 0) then
-               print*, 'WARNING CHANNEL LOSS IS NEGATIVE',qloss
-            endif
+      if((qloss*dt)/D > ((ql*dt)/D - C4)) then
+         qloss = ql - C4*(D/dt)
+         if ((qloss < 0) .and. (ChannK /= 0)) then
+            print*, 'WARNING CHANNEL LOSS IS NEGATIVE',qloss
          endif
       endif