From 3f4b9a8757488cdf80fb3a28f4e4d82f1298e6b6 Mon Sep 17 00:00:00 2001 From: Sean Swenson Date: Tue, 22 Aug 2023 14:04:29 -0600 Subject: [PATCH] small fixes --- src/biogeophys/HydrologyNoDrainageMod.F90 | 3 +-- src/biogeophys/SurfaceWaterMod.F90 | 2 +- 2 files changed, 2 insertions(+), 3 deletions(-) diff --git a/src/biogeophys/HydrologyNoDrainageMod.F90 b/src/biogeophys/HydrologyNoDrainageMod.F90 index 78db1ef68f..c7086d8473 100644 --- a/src/biogeophys/HydrologyNoDrainageMod.F90 +++ b/src/biogeophys/HydrologyNoDrainageMod.F90 @@ -325,8 +325,7 @@ subroutine HydrologyNoDrainage(bounds, & call UpdateH2osfc(bounds, num_hydrologyc, filter_hydrologyc, & infiltration_excess_runoff_inst, & energyflux_inst, soilhydrology_inst, & - b_waterflux_inst, b_waterstate_inst, b_waterdiagnostic_inst, & - soilstate_inst) + b_waterflux_inst, b_waterstate_inst, b_waterdiagnostic_inst) call Infiltration(bounds, num_hydrologyc, filter_hydrologyc, & b_waterflux_inst) diff --git a/src/biogeophys/SurfaceWaterMod.F90 b/src/biogeophys/SurfaceWaterMod.F90 index 1550cfba56..562c64cc18 100644 --- a/src/biogeophys/SurfaceWaterMod.F90 +++ b/src/biogeophys/SurfaceWaterMod.F90 @@ -456,7 +456,7 @@ subroutine QflxH2osfcSurf(bounds, num_hydrologyc, filter_hydrologyc, & real(r8) :: dtime ! land model time step (sec) real(r8) :: frac_infclust ! fraction of submerged area that is connected real(r8) :: k_wet ! linear reservoir coefficient for h2osfc - real(r8),paramter :: min_hill_slope = 1e-3_r8! minimum value of hillslope for outflow + real(r8),parameter :: min_hill_slope = 1e-3_r8! minimum value of hillslope for outflow character(len=*), parameter :: subname = 'QflxH2osfcSurf' !-----------------------------------------------------------------------