From 442e0686220a47a22e47a406714f4b9444fa5d8a Mon Sep 17 00:00:00 2001
From: Eva Sinha <eva.sinha@pnnl.gov>
Date: Mon, 16 Oct 2023 12:23:36 -0500
Subject: [PATCH] Fix for bad leaf C:N ratios during transient land simulations

---
 components/elm/src/biogeochem/ComputeSeedMod.F90 | 12 +++---------
 1 file changed, 3 insertions(+), 9 deletions(-)

diff --git a/components/elm/src/biogeochem/ComputeSeedMod.F90 b/components/elm/src/biogeochem/ComputeSeedMod.F90
index 61b916d64f35..292aa036603f 100644
--- a/components/elm/src/biogeochem/ComputeSeedMod.F90
+++ b/components/elm/src/biogeochem/ComputeSeedMod.F90
@@ -183,16 +183,10 @@ subroutine LeafProportions(pft_type, ignore_current_state, &
     pstorage = 0._r8
     pxfer    = 0._r8
 
-    if (tot_leaf == 0._r8 .or. ignore_current_state) then
-       if (veg_vp%evergreen(pft_type) == 1._r8) then
-          pleaf    = 1._r8
-       else
-          pstorage = 1._r8
-       end if
+    if (veg_vp%evergreen(pft_type) == 1._r8) then
+       pleaf    = 1._r8
     else
-       pleaf    = leaf        /tot_leaf
-       pstorage = leaf_storage/tot_leaf
-       pxfer    = leaf_xfer   /tot_leaf
+       pstorage = 1._r8
     end if
 
   end subroutine LeafProportions