Merge branch 'vic_parentheses' into unified_land_model

HPSCTerrSys · Dec 28, 2017 · e510812 · e510812
2 parents 487111d + 5b5e59d
commit e510812
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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