diff --git a/GSFLOW/src/prms/soilzone.f90 b/GSFLOW/src/prms/soilzone.f90 index 7e7849932..7b555642f 100644 --- 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