From 1113a3ea229846467005a647c1fbbe9c83ed4405 Mon Sep 17 00:00:00 2001
From: emorway-usgs <emorway@usgs.gov>
Date: Wed, 27 Nov 2024 10:38:29 -0800
Subject: [PATCH] rename func

---
 src/Model/GroundWaterEnergy/gwe-uze.f90 | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

diff --git a/src/Model/GroundWaterEnergy/gwe-uze.f90 b/src/Model/GroundWaterEnergy/gwe-uze.f90
index 9d6c37d404e..978a5af0ca4 100644
--- a/src/Model/GroundWaterEnergy/gwe-uze.f90
+++ b/src/Model/GroundWaterEnergy/gwe-uze.f90
@@ -82,7 +82,7 @@ module GweUzeModule
     procedure :: bnd_ac => uze_ac
     procedure :: bnd_mc => uze_mc
     procedure :: get_mvr_depvar
-    procedure, private :: duplicate_chk
+    procedure, private :: uzarea_chk
     procedure, private :: print_uz_err
 
   end type GweUzeType
@@ -169,8 +169,6 @@ subroutine find_uze_package(this)
     !    be found
     found = .false.
     !
-    nuz = 1
-    !
     ! -- If user is specifying flows in a binary budget file, then set up
     !    the budget file reader, otherwise set a pointer to the flow package
     !    budobj
@@ -218,7 +216,7 @@ subroutine find_uze_package(this)
       if (this%flowbudptr%budterm(idxbudgwf)%flowtype == '             GWF') exit
     end do
     nuz = this%flowbudptr%budterm(idxbudgwf)%maxlist
-    call this%duplicate_chk(nuz, idxbudgwf)
+    call this%uzarea_chk(nuz, idxbudgwf)
     !
     ! -- Allocate space for idxbudssm, which indicates whether this is a
     !    special budget term or one that is a general source and sink
@@ -1316,7 +1314,7 @@ end subroutine uze_bd_obs
   !! the area of the host cell. When this condition is not true, the code
   !! exits with an appropriate message.
   !<
-  subroutine duplicate_chk(this, nuz, idxbudgwf)
+  subroutine uzarea_chk(this, nuz, idxbudgwf)
     ! -- modules
     use ConstantsModule, only: IZERO
     use MathUtilModule, only: is_close
@@ -1341,7 +1339,7 @@ subroutine duplicate_chk(this, nuz, idxbudgwf)
         call this%print_uz_err(igwfnode)
       end if
     end do
-  end subroutine duplicate_chk
+  end subroutine uzarea_chk
 
   !> @brief Print and store error msg indicating area of UZF object is not
   !! equal to that of the host cell