Skip to content

Commit

Permalink
move dispersal timing call inside cadence check
Browse files Browse the repository at this point in the history
The dispersal timing call utilizes a function that is not initialized
unless the mode has been initialized.  If it is included along with
the cadence check as it was setup previously, the timing call will
fail having not been initialized.
  • Loading branch information
glemieux committed Sep 28, 2023
1 parent 8875f3a commit 3f50fd6
Showing 1 changed file with 3 additions and 2 deletions.
5 changes: 3 additions & 2 deletions src/utils/clmfates_interfaceMod.F90
Original file line number Diff line number Diff line change
Expand Up @@ -1410,8 +1410,9 @@ subroutine wrap_update_hlmfates_dyn(this, nc, bounds_clump, &
g = col%gridcell(c)

! Accumulate seeds from sites to the gridcell local outgoing buffer
if (fates_seeddisp_cadence .ne. fates_dispersal_cadence_none .and. IsItDispersalTime()) then
this%fates_seed%outgoing_local(:,g) = this%fates(nc)%sites(s)%seed_out(:)
if (fates_seeddisp_cadence .ne. fates_dispersal_cadence_none) then
if (IsItDispersalTime()) this%fates_seed%outgoing_local(:,g) = &
this%fates(nc)%sites(s)%seed_out(:)
end if

! Other modules may have AI's we only flush values
Expand Down

0 comments on commit 3f50fd6

Please sign in to comment.