Skip to content

Commit

Permalink
removed redundant zero flush in history
Browse files Browse the repository at this point in the history
  • Loading branch information
rgknox committed Jun 10, 2024
1 parent e407b81 commit 8d028eb
Showing 1 changed file with 0 additions and 2 deletions.
2 changes: 0 additions & 2 deletions main/FatesHistoryInterfaceMod.F90
Original file line number Diff line number Diff line change
Expand Up @@ -5253,8 +5253,6 @@ subroutine update_history_hifrq2(this,nc,nsites,sites,bc_in,bc_out,dt_tstep)
patch_area_by_age(1:nlevage) = 0._r8
canopy_area_by_age(1:nlevage) = 0._r8

call this%zero_site_hvars(sites(s), upfreq_in=group_hifr_complx)

cpatch => sites(s)%oldest_patch
do while(associated(cpatch))

Expand Down

0 comments on commit 8d028eb

Please sign in to comment.