From 5b5e59d23d5caf8c1a8d65c208dc6a66cb333d57 Mon Sep 17 00:00:00 2001 From: Bill Sacks Date: Wed, 16 Aug 2017 14:12:24 -0600 Subject: [PATCH] Re-parenthesize vic equation This changes answers for vic Point is so that later refactoring can remain bit-for-bit --- src/biogeophys/SoilHydrologyMod.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/biogeophys/SoilHydrologyMod.F90 b/src/biogeophys/SoilHydrologyMod.F90 index e82b9f76a8..804115ee5c 100644 --- a/src/biogeophys/SoilHydrologyMod.F90 +++ b/src/biogeophys/SoilHydrologyMod.F90 @@ -365,7 +365,7 @@ subroutine Infiltration(bounds, num_hydrologyc, filter_hydrologyc, num_urbanc, f + top_max_moist(c) * basis**(1._r8 + b_infil(c)))/dtime end if rsurf_vic = min(qflx_in_soil(c), rsurf_vic) - qinmax = (1._r8 - fsat(c)) * 10._r8**(-e_ice*top_icefrac)*(qflx_in_soil(c) - rsurf_vic) + qinmax = (1._r8 - fsat(c)) * (10._r8**(-e_ice*top_icefrac)*(qflx_in_soil(c) - rsurf_vic)) else qinmax=(1._r8 - fsat(c)) * minval(10._r8**(-e_ice*(icefrac(c,1:3)))*hksat(c,1:3)) end if