From e2f0715988e4db5f37b7054a3633676b04a9ee45 Mon Sep 17 00:00:00 2001
From: emorway-usgs <emorway@usgs.gov>
Date: Tue, 16 Jul 2024 08:15:38 -0700
Subject: [PATCH] minor cleanup to keep in line with standard conventions

---
 src/Model/ModelUtilities/UzfCellGroup.f90 | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/Model/ModelUtilities/UzfCellGroup.f90 b/src/Model/ModelUtilities/UzfCellGroup.f90
index 61b81d4ea5a..8542ec46831 100644
--- a/src/Model/ModelUtilities/UzfCellGroup.f90
+++ b/src/Model/ModelUtilities/UzfCellGroup.f90
@@ -859,9 +859,9 @@ subroutine simgwet(this, igwetflag, icell, hgwf, trhs, thcof, det)
     real(DP), intent(inout) :: det
     ! -- local
     real(DP) :: s, x, c, b, et
-    integer(I4B) :: signflip
+    real(DP) :: signflip
     !
-    signflip = 1
+    signflip = DONE
     this%gwet(icell) = DZERO
     trhs = DZERO
     thcof = DZERO
@@ -877,7 +877,7 @@ subroutine simgwet(this, igwetflag, icell, hgwf, trhs, thcof, det)
                       this%celtop(icell), this%celbot(icell))
     else if (igwetflag == 2) then
       et = etfunc_nlin(s, x, c, det, trhs, thcof, hgwf)
-      signflip = -1
+      signflip = -DONE
     end if
     ! this%gwet(icell) = et * this%uzfarea(icell)
     trhs = trhs * this%uzfarea(icell)