Dead fuels never actually consumed in fires

[adrifoster]

@glemieux and I figured out today that patch%fuel%frac_burnt(:) is always set to 0.0 due to this line..

if(i_disturbance_type .ne. dtype_ifire) then
 currentPatch%fuel%frac_burnt(:) = 0._r8
end if

The i_disturbance_type is in a loop on all disturbance types, including dtype_ifire. dtype_ifire is a constant (2). The first dtype is ifall, thus the first time we traverse this loop, every %patch%fuel%frac_burnt(:) will be set to 0.0.

So from what @glemieux and I can see - fuel is never consumed and sent to the atmosphere. So any time we have a fire, ALL the fuel on the old patch is transferred to the new patch.

I imagine this will result in fairly large changes.