On the Ecology of Mountainous Forests in a Changing Climate: A ...
On the Ecology of Mountainous Forests in a Changing Climate: A ...
On the Ecology of Mountainous Forests in a Changing Climate: A ...
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
Appendix 235<br />
Def<strong>in</strong>ition module FCPBase<br />
DEFINITION MODULE FCPBase;<br />
(****************************************<br />
Module FCPBase (Version 2.4)<br />
Copyright ©1994 by Harald Bugmann and Swiss<br />
Federal Institute <strong>of</strong> Technology Zürich ETHZ<br />
Version written for:<br />
'Dialog Mach<strong>in</strong>e' DM_V2.2 (User <strong>in</strong>terface)<br />
MacMETH_V3.2.1 (1-Pass Modula-2 implementation)<br />
ModelWorks_V2.2 (Modell<strong>in</strong>g & Simulation)<br />
Purpose Data and list base for <strong>the</strong> FORCLIM-P Model<br />
Programm<strong>in</strong>g<br />
• Design<br />
H. Bugmann 10.1.1991<br />
• Implementation<br />
H. Bugmann 10.1.1991<br />
Swiss Federal Institute <strong>of</strong> Technology Zurich ETHZ<br />
CH-8092 Zurich<br />
Switzerland<br />
Last revision <strong>of</strong> def<strong>in</strong>ition: 17.12.1992 hb<br />
****************************************)<br />
FROM SimBase<br />
FROM DMW<strong>in</strong>dows<br />
FROM Histograms<br />
FROM StochStat<br />
IMPORT Model, Graph<strong>in</strong>g;<br />
IMPORT W<strong>in</strong>dow, RectArea;<br />
IMPORT Histogram;<br />
IMPORT StatArray;<br />
TYPE<br />
SpeciesType = (deciduous, coniferous);<br />
SpeciesPtr = POINTER TO SpeciesNode;<br />
CohortPtr = POINTER TO CohortNode;<br />
Monitor<strong>in</strong>g = RECORD<br />
drawHisto, monTreeR<strong>in</strong>gs: BOOLEAN;<br />
histogram: Histogram;<br />
histoW: W<strong>in</strong>dow;<br />
freq: ARRAY [1..30] OF INTEGER;<br />
graphBio, graphNr: Graph<strong>in</strong>g;<br />
resID: INTEGER;<br />
END;<br />
CohortNode = RECORD<br />
D, (* diameter at breast height, cm *)<br />
gH, (* tree height, cm *)<br />
DInc, (* this year's diameter <strong>in</strong>crement *)<br />
gSBio, (* dry stemwood biomass *)<br />
gFolW, (* dry foliage biomass *)<br />
gALGF: REAL; (* cohort-specific growth factor *)<br />
age, (* age <strong>of</strong> cohort *)<br />
slowGrowth,<br />
nrTrees, nrTreesOld: INTEGER; (* <strong>the</strong> latter is used only for animation *)<br />
nrOfCohort: INTEGER; (* used for tree-r<strong>in</strong>g monitor<strong>in</strong>g *)<br />
animXPos: ARRAY [1..5] OF REAL; (* random positions <strong>of</strong> trees *)<br />
oldRect: ARRAY [1..5] OF RectArea; (* for previous animated picture *)<br />
next: CohortPtr;<br />
END;<br />
Parameters = RECORD (* species parameters *)<br />
kDm, kHm, kAm, kB2, kB3, kG,<br />
kDDM<strong>in</strong>, kDDMax, kWiT, kDrT, kImmYr,<br />
kA1, kA2, kC1, kC2 : REAL;<br />
kBrow, kLy, kLa, kNTol, kLQ : INTEGER;<br />
END;<br />
SpeciesNode = RECORD<br />
name, (* name & descriptors <strong>of</strong> <strong>the</strong> species *)<br />
longDescBio, longDescNr : ARRAY [0..31] OF CHAR;<br />
shortDescBio, shortDescNr: ARRAY [0..5] OF CHAR;<br />
gDDGF, gSMGF, gSNGF, (* species-specific growth factors *)<br />
nrTrees, biomass, meanBio, meanNr,<br />
sumALGF, sumDDGF, sumSMGF, sumSNGF,<br />
sumGF: REAL; (* summation for average gFs *)<br />
limCounter: ARRAY [1..7] OF LONGINT; (* counters for birth & growth limitation *)<br />
mon: Monitor<strong>in</strong>g; (* histogram monitor<strong>in</strong>g *)<br />
specSelected: BOOLEAN; (* selection <strong>in</strong> species list *)<br />
statArrB, statArrN: StatArray; (* for calculation <strong>of</strong> statistics *)<br />
firstCohort, firstNewCohort: CohortPtr;<br />
next: SpeciesPtr; (* po<strong>in</strong>ters for list management *)<br />
specType: SpeciesType;<br />
p, dfltP: Parameters;<br />
END;<br />
VAR<br />
firstSp: SpeciesPtr;<br />
gLAI, totalBiomass, totalTrees,<br />
meanLAI, meanTotBio, meanTotNr : REAL;<br />
animation<strong>On</strong>: BOOLEAN;