PPE change to sa_leaf

olyson · Sep 25, 2024 · 6c7ecf6 · 6c7ecf6
1 parent a3459c5
commit 6c7ecf6
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/biogeophys/CanopyFluxesMod.F90 b/src/biogeophys/CanopyFluxesMod.F90
@@ -753,6 +753,7 @@ subroutine CanopyFluxes(bounds,  num_exposedvegp, filter_exposedvegp,
                  .or. dbh(p) < min_stem_diameter) then
                frac_rad_abs_by_stem(p) = 0.0_r8
                sa_stem(p) = 0.0_r8
+               sa_leaf(p) = sa_leaf(p) + esai(p)
             endif
 
             ! if using Satellite Phenology mode, calculate leaf and stem biomass