Skip to content

Commit

Permalink
Set nfire in every time step
Browse files Browse the repository at this point in the history
This shouldn't have any impact on the evolution of the model, but it
seems needed so that the nfire diagnostic field is correct: Without
this, nfire seems to persist from one time step to the next in
conditions where it would remain unset and should in fact become 0; this
is relevant in transient landcover cases.

Partially resolves #31
  • Loading branch information
billsacks committed Oct 6, 2019
1 parent 53e675d commit 1b6c2ba
Show file tree
Hide file tree
Showing 2 changed files with 2 additions and 0 deletions.
1 change: 1 addition & 0 deletions src/biogeochem/CNFireLi2014Mod.F90
Original file line number Diff line number Diff line change
Expand Up @@ -557,6 +557,7 @@ subroutine CNFireArea (this, bounds, num_soilc, filter_soilc, num_soilp, filter_
c = filter_soilc(fc)
g = col%gridcell(c)
hdmlf=this%forc_hdm(g)
nfire(c) = 0._r8
if( cropf_col(c) < 1.0 )then
if (trotr1_col(c)+trotr2_col(c)>0.6_r8) then
farea_burned(c)=min(1.0_r8,baf_crop(c)+baf_peatf(c))
Expand Down
1 change: 1 addition & 0 deletions src/biogeochem/CNFireLi2016Mod.F90
Original file line number Diff line number Diff line change
Expand Up @@ -579,6 +579,7 @@ subroutine CNFireArea (this, bounds, num_soilc, filter_soilc, num_soilp, filter_
c = filter_soilc(fc)
g = col%gridcell(c)
hdmlf=this%forc_hdm(g)
nfire(c) = 0._r8
if( cropf_col(c) < 1._r8 )then
fuelc(c) = totlitc(c)+totvegc(c)-rootc_col(c)-fuelc_crop(c)*cropf_col(c)
if (spinup_state == 2) then
Expand Down

0 comments on commit 1b6c2ba

Please sign in to comment.