From 6c7ecf62ddb7e742a4b993ec9f351d6cd7025a93 Mon Sep 17 00:00:00 2001 From: Keith Oleson Date: Wed, 25 Sep 2024 11:19:25 -0600 Subject: [PATCH] PPE change to sa_leaf --- src/biogeophys/CanopyFluxesMod.F90 | 1 + 1 file changed, 1 insertion(+) diff --git a/src/biogeophys/CanopyFluxesMod.F90 b/src/biogeophys/CanopyFluxesMod.F90 index a969dc0583..0c5431728d 100644 --- 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