Skip to content

Commit

Permalink
bug corrected in areal normalization of external seed
Browse files Browse the repository at this point in the history
  • Loading branch information
@YanlanLiu
YanlanLiu committed Jun 16, 2022
1 parent b3845dc commit b329750
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions biogeochem/EDPhysiologyMod.F90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -1492,9 +1492,9 @@ subroutine SeedIn( currentSite, bc_in, bc_out)
!seed_in_external = seed_stoich*EDPftvarcon_inst%seed_suppl(pft)*years_per_day ![kg/m2/day]

! bc%seed_in(pft) in [kg/site/day]
seed_in_external = bc_in%seed_in(pft)/currentPatch%area + seed_stoich*EDPftvarcon_inst%seed_suppl(pft)*years_per_day ![kg/m2/day]
seed_in_external = bc_in%seed_in(pft)/area + seed_stoich*EDPftvarcon_inst%seed_suppl(pft)*years_per_day ![kg/m2/day]

!write(fates_log(),*) 'pft, bc_in%seed_in(pft),bc_in%seed_in(pft)/currentPatch%area, seed_in_external: ', pft, bc_in%seed_in(pft), bc_in%seed_in(pft)/currentPatch%area, seed_in_external
write(fates_log(),*) 'pft, bc_in%seed_in(pft),bc_in%seed_in(pft)/currentPatch%area, seed_in_external: ', pft, bc_in%seed_in(pft), bc_in%seed_in(pft)/currentPatch%area, seed_in_external

!--------------------------------------------------------------------------------------------------
litt%seed_in_extern(pft) = litt%seed_in_extern(pft) + seed_in_external
Expand Down

0 comments on commit b329750

Please sign in to comment.