diff --git a/src/Routing/module_channel_routing.F90 b/src/Routing/module_channel_routing.F90 index e059a2c7b..067d4c300 100644 --- a/src/Routing/module_channel_routing.F90 +++ b/src/Routing/module_channel_routing.F90 @@ -508,14 +508,14 @@ 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 (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 endif - endif + !endif ! ---------------------------------------------------------------- END SUBROUTINE SUBMUSKINGCUNGE