TESTING -- WILL REMOVE OR SQUASH

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