remove debug print statement

rniswon · May 27, 2022 · af9eb1f · af9eb1f
1 parent 32b11fb
commit af9eb1f
Showing 1 changed file with 1 addition and 4 deletions.
diff --git a/GSFLOW/src/prms/soilzone.f90 b/GSFLOW/src/prms/soilzone.f90
@@ -1540,7 +1540,7 @@ SUBROUTINE compute_cascades(Ihru, Ncascade_hru, Slowflow, Preflow, &
       USE PRMS_SET_TIME, ONLY: Cfs_conv
       USE PRMS_SOILZONE, ONLY: Upslope_dunnianflow, Upslope_interflow
       USE PRMS_CASCADE, ONLY: Hru_down, Hru_down_frac, Hru_down_fracwt, Cascade_area
-      USE PRMS_FLOWVARS, ONLY: Strm_seg_in, strm_seg_interflow_in, slow_stor, pref_flow_stor
+      USE PRMS_FLOWVARS, ONLY: Strm_seg_in, strm_seg_interflow_in
       IMPLICIT NONE
 ! Functions
       INTRINSIC :: IABS, DBLE
@@ -1570,9 +1570,6 @@ SUBROUTINE compute_cascades(Ihru, Ncascade_hru, Slowflow, Preflow, &
           interflow_in = DBLE( (Slowflow+Preflow+Dunnian)*Cascade_area(k, Ihru) )*Cfs_conv
           strm_seg_interflow_in(j) = strm_seg_interflow_in(j) + interflow_in
           Strm_seg_in(j) = Strm_seg_in(j) + interflow_in
-                  IF ( Strm_seg_in(j)>0.0 .and. Strm_seg_in(j)<1.0E-08) then
-            print *, interflow_in, Slowflow,Preflow,Dunnian, strm_seg_interflow_in(j), slow_stor(j), pref_flow_stor(j)
-            endif
         ENDIF
       ENDDO