V1 base

Download Model
Download the .scn, .sel and .lse files by clicking on the following link:

Model Code Exploration
In the following sections we will examine all of the model files for this model. Note that instead of downloading the zip file above, you could just copy the text in the boxes below into a text editor and save it with the appropriate name (Section title). Opening the resulting .scn file in the SELES simulator would run this model.

batchResize.scn
SELES Scenario $gisData$ = ..\gisData\cell Ecoregion = $gisData$\ecoregion Elevation = $gisData$\elevation Aspect = $gisData$\aspect initialAge = $gisData$\StandAgeEst initialSpp = $gisData$\DomSpecies Model Dimensions: Ecoregion Model.sel SimPriority Low Priority // Set low priority for simulation engine // Set up display Minimize Static Minimize Initial State Tile // Move to output folder cwd output // Base Time step (in years) BaseTimestep = 10

Model.sel
Seles Model Time Units: Year Century 100 260 Landscape Events: // Disturbance event Fire.lse DEBUG // Succession events Succession.lse DEBUG // Legends: defined constants Legends: // For succession SppLegend = "..\gisData\cats\DomSpecies" Global Constants: ///////////////////////////////////////////////////////////////  // General constants and parameters CellWidth = CELL WIDTH(Ecoregion) HaPerCell = (CellWidth^2) / 10000 MaxStandAge = MAX(initialAge) MaxTimeSinceDisturbance = 200 NumSppCodes = ROWS(SppLegend) - 1 // Need to link spatial constants with an input raster view Spatial Constants: StudyArea = Ecoregion ///////////////////////////  // Landscape physiography ///////////////////////////  Elevation Aspect // Need to link spatial variables with an output raster view, and // specify initial conditions (raster, 0, or constant) and output raster bounds Spatial Variables: ///////////////////////////////////////////////////////////////  // Dynamic stand information StandAge[MaxStandAge] <= initialAge Spp[NumSppCodes] <= initialSpp OldForest[1] ///////////////////////////////////////////////////////////////  // Time since disturbance information Burnt[MaxTimeSinceDisturbance] Global Variables: ///////////////////////////////////////////////////////////////  // Parameters BaseTimestep = 1 // Base Time step (in years) ///////////////////////////  // Fire related parameters ///////////////////////////  ReturnInterval = 50 MeanFiresPerYear = 1 ///////////////////////////////////////////////////////////////  // Tracking ForestSize = 0 AreaOldForest = 0 AreaBurned = 0    // Area burned in period Output Frequency: 1

Fire.lse
// Empirical fire model for the Labrador District 19a "study copy" LSEVENT: Fire DEFINITIONS GLOBAL CONSTANT: HaPerCell, MaxTimeSinceDisturbance GLOBAL VARIABLE: BaseTimestep // Base Time step (in years) GLOBAL VARIABLE: ReturnInterval, MeanFiresPerYear // fire return interval LAYER: StudyArea, StandAge, Spp LAYER: Elevation, Aspect    // elevation in metres; aspect 0 to 360 + flat (361) LAYER: Burnt  // Show areas that were recently burned GLOBAL VARIABLE: ForestSize, AreaBurned CLUSTER VARIABLE: FireExtent ENDDEF // Run after succession RETURNTIME RETURNTIME = IF Time EQ 0 THEN 0.5 ELSE BaseTimestep // Update time since disturbance information // Need to do this here, since Burnt may include non-forested cells OVER REGION WHOLE MAP DECISION Burnt > 0 Burnt = MAX(0,Burnt - BaseTimestep) ENDFN AreaBurned = 0 ENDRT // Only allow ignitions in forested cells EVENTLOCATION STATIC REGION WHOLE MAP DECISION (StudyArea > 0) AND (Spp > 0) ENDEL // Draw the number of openings from an exponential distribution NUMCLUSTERS meanClusters = MeanFiresPerYear * BaseTimestep nClusters = FLOOR(NEGEXP(meanClusters)) NUMCLUSTERS = nClusters ENDNC PROBINIT /*  // Depends on aspect pAspect = 0.35*0.5*(SIN((Aspect-67.5))+1) PROBINIT = pAspect */  PROBINIT = 1 // For each opening, select an opening size meanExtent = (ForestSize/(MeanFiresPerYear*ReturnInterval)) FireExtent = ROUND(NEGEXP(meanExtent)) ENDPI TRANSITIONS // Continue if there is still extent to be burned // AND if the stand didn't burn during this event already TRANSITIONS = (FireExtent > 0) AND (Burnt < MaxTimeSinceDisturbance) IF Spp > 0 // Decrement the number of cells remaining to burn for this opening // Only do this for forested cells. NonForested cells will just pass on the fire FireExtent = FireExtent - HaPerCell AreaBurned = AreaBurned + HaPerCell ENDFN // Set the stand age StandAge = 0 Burnt = MaxTimeSinceDisturbance ENDTR // Spread timestep: time is irrelevant for this empirical model. SPREADTIMESTEP = 0 // Spread to the eight neighbours SPREADLOCATION REGION CENTRED(1, 1.5) DECISION (StudyArea > 0) ENDSL // Pick number of spread openings to be based on the // convolution index, but force at least one NUMRECIPIENTS // Mid-Complex shapes. This is the number of neighbours to // spread to from a burning cell. Lower mean gives more complex shapes. NUMRECIPIENTS = CLAMP(NORMAL(2,1), 1, 8) ENDNR /* // Prefer southwest aspects and uphill SPREADPROB pElevation = IF (SOURCE Elevation) < Elevation THEN 5 ELSE IF (SOURCE Elevation) > Elevation THEN 0.5 ELSE 1 pAspect = 0.35*0.5*(SIN((Aspect-67.5))+1) SPREADPROB = (pElevation^0.5) * (pAspect^0.5) ENDSP */

Succession.lse
// Landscape event definition for succession in the Labrador District 19a "study copy" LSEVENT: SUCCESSION DEFINITIONS GLOBAL CONSTANT: MaxStandAge, HaPerCell /****************************************/  // Parameters GLOBAL VARIABLE: BaseTimestep  // Base Time step (in years) /****************************************/  GLOBAL VARIABLE: ForestSize, AreaOldForest LAYER: StudyArea, StandAge, OldForest LAYER: Spp ENDDEF INITIALSTATE // Set up the initial state OVER REGION WHOLE MAP DECISION (StudyArea > 0) AND (Spp > 0) // Old forest is over 150 years OldForest = (StandAge >= 150) ForestSize = ForestSize + HaPerCell IF OldForest AreaOldForest = AreaOldForest + HaPerCell ENDFN ENDFN INITIALSTATE = 1 ENDIS // Aging at start of year (before any other models), but not in first period RETURNTIME RETURNTIME = BaseTimestep AreaOldForest = 0 ENDRT // Only process forested cells EVENTLOCATION STATIC REGION WHOLE MAP DECISION (StudyArea > 0) AND (Spp > 0) ENDEL // In each forested cell TRANSITIONS TRANSITIONS = TRUE // Increment the stand age in years StandAge = MIN(StandAge + BaseTimestep, MaxStandAge) // Old forest is over 150 years OldForest = (StandAge >= 150) IF OldForest AreaOldForest = AreaOldForest + HaPerCell ENDFN // Markov chain succession... ENDTR

Suggested Experiments
To explore this cellular automata model further, try the following: