Skip to content

Commit

Permalink
Merge branch 'dmricciuto/elm/seed_bugfix' (PR E3SM-Project#6370)
Browse files Browse the repository at this point in the history
Fix for seed initialization that caused C:N an C:P ratios to diverge
for some grid cells in transient simulations.

Fixes E3SM-Project#6368

[non-BFB]
  • Loading branch information
bishtgautam committed Oct 28, 2024
2 parents 1442143 + 442e068 commit d4a5531
Showing 1 changed file with 3 additions and 9 deletions.
12 changes: 3 additions & 9 deletions components/elm/src/biogeochem/ComputeSeedMod.F90
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down

0 comments on commit d4a5531

Please sign in to comment.