leaf and stem biomass don't have to be set to zero when use_biomass_h…

…eat_storage is false because they are already initialized to zero in InitCold this fixes ESCOMP#1284
olyson · Jun 9, 2021 · 236b1a4 · 236b1a4
1 parent 9d96d68
commit 236b1a4
Showing 1 changed file with 0 additions and 5 deletions.
diff --git a/src/biogeochem/CNVegStructUpdateMod.F90 b/src/biogeochem/CNVegStructUpdateMod.F90
@@ -187,9 +187,6 @@ subroutine CNVegStructUpdate(bounds,num_soilp, filter_soilp, &
                ! Assumes fbw (fraction of biomass that is water) is the same for leaves and stems
                leaf_biomass(p) = max(0.0025_r8,leafc(p)) &
                     * c_to_b * 1.e-3_r8 / (1._r8 - fbw(ivt(p)))
-
-            else
-               leaf_biomass(p) = 0_r8
             end if
 
             if (woody(ivt(p)) == 1._r8) then
@@ -219,8 +216,6 @@ subroutine CNVegStructUpdate(bounds,num_soilp, filter_soilp, &
                   ! Assumes fbw (fraction of biomass that is water) is the same for leaves and stems
                   stem_biomass(p) = (spinup_factor_deadwood*deadstemc(p) + livestemc(p)) &
                        * c_to_b * 1.e-3_r8 / (1._r8 - fbw(ivt(p)))
-               else
-                  stem_biomass(p) = 0_r8
                end if
 
                !