Merge remote-tracking branch 'swensosc/fix_perched_water_table' into …

…fix_perched_water_table
lkunik · May 20, 2022 · 24a7490 · 24a7490
2 parents a284605 + c3108e8
commit 24a7490
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/biogeophys/SoilHydrologyMod.F90 b/src/biogeophys/SoilHydrologyMod.F90
@@ -2082,7 +2082,7 @@ subroutine LateralFlowPowerLaw(bounds, num_hydrologyc, filter_hydrologyc, &
 
              !--  remove residual rsub_top  --------------------------------
              ! make sure no extra water removed from soil column
-             rsub_top(c) = rsub_top(c) - rsub_top_tot/dtime
+             rsub_top(c) = rsub_top(c) + rsub_top_tot/dtime
           endif
 
           zwt(c) = max(0.0_r8,zwt(c))