Skip to content

Commit

Permalink
Fix stocking bug in VegStructUpdateMod
Browse files Browse the repository at this point in the history
Fixes comical bug that emerged when stocking
density was moved out to pftvarcon - stocking
density being decreased by 10000 each time step,
causing vegetation to rapidly grow into space.
  • Loading branch information
rfiorella committed Jul 10, 2024
1 parent 5252fa8 commit 927462a
Showing 1 changed file with 0 additions and 3 deletions.
3 changes: 0 additions & 3 deletions components/elm/src/biogeochem/VegStructUpdateMod.F90
Original file line number Diff line number Diff line change
Expand Up @@ -116,9 +116,6 @@ subroutine VegStructUpdate(num_soilp, filter_soilp, &

dt = real( get_rad_step_size(), r8 )

! convert from stems/ha -> stems/m^2
stocking = stocking / 10000._r8

! patch loop
do fp = 1,num_soilp
p = filter_soilp(fp)
Expand Down

0 comments on commit 927462a

Please sign in to comment.