Skip to content

Commit 4e254a0

Browse files
committed
remove more unused variables
1 parent 75ba8ac commit 4e254a0

File tree

1 file changed

+0
-2
lines changed

1 file changed

+0
-2
lines changed

src/Model/GroundWaterEnergy/gwe-sfe.f90

Lines changed: 0 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -136,7 +136,6 @@ subroutine sfe_create(packobj, id, ibcnum, inunit, iout, namemodel, pakname, &
136136
character(len=*), intent(in) :: dvu !< For GWE, set to "energy" in TspAptType
137137
character(len=*), intent(in) :: dvua !< For GWE, set to "E" in TspAptType
138138
! -- local
139-
integer(I4B) :: inshf
140139
type(GweSfeType), pointer :: sfeobj
141140
!
142141
! -- Allocate the object and assign values to object variables
@@ -195,7 +194,6 @@ subroutine sfe_options(this, option, found)
195194
! -- local
196195
character(len=LINELENGTH) :: fname
197196
character(len=MAXCHARLEN) :: keyword
198-
logical(LGP) :: foundgcclassoption
199197
! -- formats
200198
character(len=*), parameter :: fmtaptbin = &
201199
"(4x, a, 1x, a, 1x, ' WILL BE SAVED TO FILE: ', a, &

0 commit comments

Comments
 (0)