Remove unused variables from bndry_mod_base.F90 and checksum_mod.F90

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

Author: Copilot

components/homme/src/checksum_mod.F90

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

components/homme/src/share/bndry_mod_base.F90

@@ -979,10 +979,7 @@ subroutine sort_neighbor_buffer_mapping(par,elem,nets,nete)
 
   real (kind=real_kind) :: cin(2,2,4)                      ! 1x1 element input data
   real (kind=real_kind) :: cout(2,2,4,max_neigh_edges+1)   ! 1x1 element output data
-  real (kind=real_kind) :: u   (2,2,4)   
-  integer :: i,j,ie,kptr,np1,np2,nc,k,nlev,patch_size,l,l2,sum1,sum2,m
-  logical :: fail,fail1,fail2
-  real (kind=real_kind) :: tol=.1
+  integer :: i,j,ie,kptr,nc,k,nlev,patch_size,l,sum1,sum2
 
   if (par%masterproc) write(iulog,*) 'creating sorted ghost cell neigbor map...' 
   if (par%masterproc) write(iulog,*) 'checking ghost cell neighbor buffer sorting...'