remove unused variable

emorway-usgs · emorway-usgs · commit 0ecb753efa7c · 2025-05-09T10:07:58.000-07:00
diff --git a/src/Model/GroundWaterEnergy/gwe-shf.f90 b/src/Model/GroundWaterEnergy/gwe-shf.f90
@@ -173,7 +173,6 @@ subroutine shf_cq(this, ifno, tstrm, shflx)
     real(DP), intent(inout) :: shflx !< calculated sensible heat flux amount
     ! -- local
     real(DP) :: shf_const
-    real(DP) :: shf_term
     !
     ! -- calculate sensible heat flux using HGS equation
     shf_const = this%cd * this%cpa * this%rhoa

Original file line number	Diff line number	Diff line change
`@@ -173,7 +173,6 @@ subroutine shf_cq(this, ifno, tstrm, shflx)`
`173`	`173`	`real(DP), intent(inout) :: shflx !< calculated sensible heat flux amount`
`174`	`174`	`! -- local`
`175`	`175`	`real(DP) :: shf_const`
`176`		`- real(DP) :: shf_term`
`177`	`176`	`!`
`178`	`177`	`! -- calculate sensible heat flux using HGS equation`
`179`	`178`	`shf_const = this%cd * this%cpa * this%rhoa`