Dan Ricciuto's fix for weird plant C:N ratio during long-term simulat…

…ions
E3SM-Project · Apr 26, 2024 · df11bbe · df11bbe
1 parent ac74182
commit df11bbe
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/components/elm/src/biogeochem/ComputeSeedMod.F90 b/components/elm/src/biogeochem/ComputeSeedMod.F90
@@ -183,17 +183,17 @@ subroutine LeafProportions(pft_type, ignore_current_state, &
     pstorage = 0._r8
     pxfer    = 0._r8
 
-    if (tot_leaf == 0._r8 .or. ignore_current_state) then
+    !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
-    else
-       pleaf    = leaf        /tot_leaf
-       pstorage = leaf_storage/tot_leaf
-       pxfer    = leaf_xfer   /tot_leaf
-    end if
+    !else
+    !   pleaf    = leaf        /tot_leaf
+    !   pstorage = leaf_storage/tot_leaf
+    !   pxfer    = leaf_xfer   /tot_leaf
+    !end if
 
   end subroutine LeafProportions