small fixes

swensosc · Aug 22, 2023 · 3f4b9a8 · 3f4b9a8
1 parent 2d9cb4d
commit 3f4b9a8
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 3 deletions.
diff --git 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
@@ -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'
     !-----------------------------------------------------------------------