Skip to content

Commit

Permalink
remove comment
Browse files Browse the repository at this point in the history
  • Loading branch information
swensosc committed Jun 5, 2024
1 parent ef9f2ee commit 7c15ced
Showing 1 changed file with 0 additions and 1 deletion.
1 change: 0 additions & 1 deletion src/biogeophys/SurfaceWaterMod.F90
Original file line number Diff line number Diff line change
Expand Up @@ -489,7 +489,6 @@ 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 * 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

0 comments on commit 7c15ced

Please sign in to comment.