Remove additional unused variables from HOMME F90 files

Co-authored-by: mahf708 <[email protected]>

Author: Copilot

components/homme/src/share/bndry_mod_base.F90

@@ -836,7 +836,7 @@ subroutine compute_ghost_corner_orientation(hybrid,elem,nets,nete)
   real (kind=real_kind) :: cin(2,2,1,nets:nete)  !CE: fvm tracer
   real (kind=real_kind) :: cout(-1:4,-1:4,1,nets:nete)  !CE: fvm tracer
   integer :: i,j,ie,kptr,np1,np2,nc,nc1,nc2,k,nlev
-  logical :: fail,fail1,fail2
+  logical :: fail1,fail2
   real (kind=real_kind) :: tol=.1
   call syncmp(hybrid%par)
 !   if (hybrid%par%masterproc) print *,'computing ghost cell corner orientations'

components/homme/src/surfaces_mod.F90

@@ -195,7 +195,6 @@ subroutine InitControlVolumes_duel(elem, hybrid,nets,nete)
     real (kind=real_kind)            :: test(np,np,1)
 
     integer                          :: i, j, ie, k, kmax,kmax2, kk
-    logical                          :: Debug=.FALSE.,keep
 
     gll_pts = gausslobatto(np)
     ! gll points
@@ -1032,7 +1031,7 @@ subroutine InitControlVolumes_gll(elem, hybrid,nets,nete)
     ! ne=240 1e-4:  add 5688/ 345600 pentagons, area ratio: 1.0004
     ! ne=240 1e-5:  add 5736/ 345600 pentagons, area ratio: 1.000000078
     real (kind=real_kind)            :: tol_use_pentagons=1e-5
-    logical                          :: Debug=.FALSE.,keep
+    logical                          :: keep
 
     integer :: face1,face2,found,ie_max,movex,movey,moved,ii,kmax
     integer :: nskip,npent

components/homme/src/theta-l/share/viscosity_theta.F90

@@ -53,7 +53,7 @@ subroutine biharmonic_wk_theta(elem,stens,vtens,deriv,edgebuf,hybrid,nt,nets,net
 type (derivative_t)  , intent(in) :: deriv
 
 ! local
-integer :: i,j,k,kptr,ie,nlyr_tot,ssize
+integer :: k,kptr,ie,nlyr_tot,ssize
 real (kind=real_kind), dimension(:,:), pointer :: rspheremv
 real (kind=real_kind), dimension(np,np) :: tmp
 real (kind=real_kind), dimension(np,np) :: tmp2