From 8cccce8c468eeefd77985fcbefe5b99e49a05b4d Mon Sep 17 00:00:00 2001 From: emorway-usgs Date: Wed, 23 Oct 2024 07:24:25 -0700 Subject: [PATCH] fprettify --- src/Model/ModelUtilities/UzfCellGroup.f90 | 2 +- src/Model/ModelUtilities/UzfEtUtil.f90 | 9 +++++---- 2 files changed, 6 insertions(+), 5 deletions(-) diff --git a/src/Model/ModelUtilities/UzfCellGroup.f90 b/src/Model/ModelUtilities/UzfCellGroup.f90 index 9c2f08c0773..e6ca30f7dd3 100644 --- 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 index 35ca88e1a4f..3231a3ff87b 100644 --- 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)