minor cleanup to keep in line with standard conventions

emorway-usgs · Jul 23, 2024 · b9e7a00 · b9e7a00
1 parent b876efc
commit b9e7a00
Showing 1 changed file with 3 additions and 3 deletions.
diff --git 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)