Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Jump to bottom

add surface water outflow parameter #2581

Open
wants to merge 2 commits into
base: master
Choose a base branch
from
Open

add surface water outflow parameter #2581

Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
ef9f2ee
add surface water outflow parameter
swensosc Jun 5, 2024
7c15ced
remove comment
swensosc Jun 5, 2024
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
7 changes: 5 additions & 2 deletions src/biogeophys/SurfaceWaterMod.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -41,6 +41,7 @@ module SurfaceWaterMod
type, private :: params_type
real(r8) :: pc ! Threshold probability for surface water (unitless)
real(r8) :: mu ! Connectivity exponent for surface water (unitless)
real(r8) :: h2osfc_outflow_scalar ! H2osfc outflow scalar (unitless)
end type params_type
type(params_type), private :: params_inst

Expand Down Expand Up @@ -68,7 +69,9 @@ subroutine readParams( ncid )
call readNcdioScalar(ncid, 'pc', subname, params_inst%pc)
! Connectivity exponent for surface water (unitless)
call readNcdioScalar(ncid, 'mu', subname, params_inst%mu)

! H2osfc outflow scalar (unitless)
call readNcdioScalar(ncid, 'h2osfc_outflow_scalar', subname, params_inst%h2osfc_outflow_scalar)

end subroutine readParams

!-----------------------------------------------------------------------
Expand Down Expand Up @@ -486,7 +489,7 @@ subroutine QflxH2osfcSurf(bounds, num_hydrologyc, filter_hydrologyc, &
k_wet=1.0e-4_r8 * sin((rpi/180._r8) * topo_slope(c))
if (col%is_hillslope_column(c)) then
! require a minimum value to ensure non-zero outflow
k_wet = 1e-4_r8 * max(col%hill_slope(c),min_hill_slope)
k_wet = params_inst%h2osfc_outflow_scalar * max(col%hill_slope(c),min_hill_slope)
endif
qflx_h2osfc_surf(c) = k_wet * frac_infclust * (h2osfc(c) - h2osfc_thresh(c))

Expand Down
Loading