Reduce log messages about negative channel loss

NCAR · Jan 6, 2025 · 041bda0 · 041bda0
1 parent 60069cc
commit 041bda0
Showing 1 changed file with 4 additions and 6 deletions.
diff --git 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