fprettify

emorway-usgs · Nov 4, 2024 · 8cccce8 · 8cccce8
1 parent 7686a2c
commit 8cccce8
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 5 deletions.
diff --git a/src/Model/ModelUtilities/UzfCellGroup.f90 b/src/Model/ModelUtilities/UzfCellGroup.f90
@@ -800,7 +800,7 @@ subroutine gwseep(this, icell, deriv, scale, hgwf, trhs, thcof, seep)
       trhs = DZERO
       thcof = DZERO
     end if
-end subroutine gwseep
+  end subroutine gwseep
 
   !> @brief Calculate gwf et using residual uzf pet
   !<

diff --git a/src/Model/ModelUtilities/UzfEtUtil.f90 b/src/Model/ModelUtilities/UzfEtUtil.f90
@@ -1,11 +1,13 @@
 module UzfETUtilModule
   use KindModule, only: DP
-  use ConstantsModule, only: DZERO, DONE, DEM4
+  use ConstantsModule, only: DZERO, DONE, DEM3, DEM4
   use SmoothingModule, only: sCubic
 
   implicit none
   private
-  public :: etfunc_lin, calc_lin_scaling_fac
+  public :: etfunc_lin
+  public :: etfunc_nlin
+  public :: calc_lin_scaling_fac
 
 contains
 
@@ -70,7 +72,7 @@ function etfunc_lin(efflndsrf, extdp, resid_pet, deriv_et, trhs, thcof, &
     !
   end function etfunc_lin
 
-  !> @brief Calculate gwf ET using a square decay ET function with smoothing 
+  !> @brief Calculate gwf ET using a square decay ET function with smoothing
   !! at the specified extinction depth
   !<
   function etfunc_nlin(s, x, c, det, trhs, thcof, hgwf)
@@ -100,7 +102,6 @@ function etfunc_nlin(s, x, c, det, trhs, thcof, hgwf)
     etfunc_nlin = etgw
   end function etfunc_nlin
 
-
   !> @brief Calculate the linear scaling factor
   !<
   pure function calc_lin_scaling_fac(hgwf, lndsrf, extdp) result(sclfac)