Fix for runs from perimeter

NCAR · Apr 24, 2024 · e5cb182 · e5cb182
1 parent 3788bd4
commit e5cb182
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/state/state_mod.F90 b/state/state_mod.F90
@@ -343,7 +343,8 @@ subroutine Init_fuel_vars (this)
             k = int (this%nfuel_cat(i, j))
             this%fuel_load_g(i, j) = this%fuels%fgi(k)
             if (k == this%fuels%no_fuel_cat) then
-              this%fuel_time(i, j) = 0.0
+                ! Just what was there before
+              this%fuel_time(i, j) = 7.0 / 0.85
             else
                 ! set fuel time constant (the e-folding time)
                 ! burn time from fuels: weight=1000 => 40% decrease over 10 min