From 041bda0d0d5bd7f79dc76978b0ef53f29b3c1e04 Mon Sep 17 00:00:00 2001 From: Ryan Cabell Date: Sun, 5 Jan 2025 17:02:27 -0700 Subject: [PATCH] Reduce log messages about negative channel loss --- src/Routing/module_channel_routing.F90 | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) 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