Fixed error in calculation of biomass_bg_ft during export of fragmented fluxes to HLM.

Author: rgknox

biogeochem/EDPhysiologyMod.F90

@@ -2301,7 +2301,7 @@ subroutine flux_into_litter_pools(nsites, sites, bc_in, bc_out)
             do while(associated(currentCohort))      
                biomass_bg_ft(currentCohort%pft) = biomass_bg_ft(currentCohort%pft) + &
                      ((currentCohort%bdead + currentCohort%bsw ) * (1.0_r8-EDPftvarcon_inst%allom_agb_frac(currentCohort%pft)) + &
-                     (currentCohort%br + currentCohort%bstore )) + & 
+                     (currentCohort%br + currentCohort%bstore )) * & 
                      (currentCohort%n / currentPatch%area)
                currentCohort => currentCohort%shorter
             enddo !currentCohort