Skip to content

Commit

Permalink
add fixed biogeo check to restart calc
Browse files Browse the repository at this point in the history
  • Loading branch information
glemieux committed Oct 6, 2022
1 parent 8392331 commit 7ba71f5
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions main/FatesRestartInterfaceMod.F90
Original file line number Diff line number Diff line change
Expand Up @@ -2692,8 +2692,8 @@ subroutine get_restart_vectors(this, nc, nsites, sites)
sites(s)%area_pft(i_pft) = rio_area_pft_sift(io_idx_co_1st+i_pft-1)
enddo

! calculate the bareground area for the pft in no competition modes
if (hlm_use_nocomp .eq. itrue) then
! calculate the bareground area for the pft in no competition + fixed biogeo modes
if (hlm_use_nocomp .eq. itrue .and. hlm_use_fixed_biogeog .eq. itrue) then
if (area-sum(sites(s)%area_pft(1:numpft)) .gt. nearzero) then
sites(s)%area_pft(0) = area - sum(sites(s)%area_pft(1:numpft))
else
Expand Down

0 comments on commit 7ba71f5

Please sign in to comment.