On the Ecology of Mountainous Forests in a Changing Climate: A ...

Appendix 235
Definition module FCPBase
DEFINITION MODULE FCPBase;
(****************************************
Module FCPBase (Version 2.4)
Copyright ©1994 by Harald Bugmann and Swiss
Federal Institute of Technology Zürich ETHZ
Version written for:
'Dialog Machine' DM_V2.2 (User interface)
MacMETH_V3.2.1 (1-Pass Modula-2 implementation)
ModelWorks_V2.2 (Modelling & Simulation)
Purpose Data and list base for the FORCLIM-P Model
Programming
• Design
H. Bugmann 10.1.1991
• Implementation
H. Bugmann 10.1.1991
Swiss Federal Institute of Technology Zurich ETHZ
CH-8092 Zurich
Switzerland
Last revision of definition: 17.12.1992 hb
****************************************)
FROM SimBase
FROM DMWindows
FROM Histograms
FROM StochStat
IMPORT Model, Graphing;
IMPORT Window, RectArea;
IMPORT Histogram;
IMPORT StatArray;
TYPE
SpeciesType = (deciduous, coniferous);
SpeciesPtr = POINTER TO SpeciesNode;
CohortPtr = POINTER TO CohortNode;
Monitoring = RECORD
drawHisto, monTreeRings: BOOLEAN;
histogram: Histogram;
histoW: Window;
freq: ARRAY [1..30] OF INTEGER;
graphBio, graphNr: Graphing;
resID: INTEGER;
END;
CohortNode = RECORD
D, (* diameter at breast height, cm *)
gH, (* tree height, cm *)
DInc, (* this year's diameter increment *)
gSBio, (* dry stemwood biomass *)
gFolW, (* dry foliage biomass *)
gALGF: REAL; (* cohort-specific growth factor *)
age, (* age of cohort *)
slowGrowth,
nrTrees, nrTreesOld: INTEGER; (* the latter is used only for animation *)
nrOfCohort: INTEGER; (* used for tree-ring monitoring *)
animXPos: ARRAY [1..5] OF REAL; (* random positions of trees *)
oldRect: ARRAY [1..5] OF RectArea; (* for previous animated picture *)
next: CohortPtr;
END;
Parameters = RECORD (* species parameters *)
kDm, kHm, kAm, kB2, kB3, kG,
kDDMin, kDDMax, kWiT, kDrT, kImmYr,
kA1, kA2, kC1, kC2 : REAL;
kBrow, kLy, kLa, kNTol, kLQ : INTEGER;
END;
SpeciesNode = RECORD
name, (* name & descriptors of the species *)
longDescBio, longDescNr : ARRAY [0..31] OF CHAR;
shortDescBio, shortDescNr: ARRAY [0..5] OF CHAR;
gDDGF, gSMGF, gSNGF, (* species-specific growth factors *)
nrTrees, biomass, meanBio, meanNr,
sumALGF, sumDDGF, sumSMGF, sumSNGF,
sumGF: REAL; (* summation for average gFs *)
limCounter: ARRAY [1..7] OF LONGINT; (* counters for birth & growth limitation *)
mon: Monitoring; (* histogram monitoring *)
specSelected: BOOLEAN; (* selection in species list *)
statArrB, statArrN: StatArray; (* for calculation of statistics *)
firstCohort, firstNewCohort: CohortPtr;
next: SpeciesPtr; (* pointers for list management *)
specType: SpeciesType;
p, dfltP: Parameters;
END;
VAR
firstSp: SpeciesPtr;
gLAI, totalBiomass, totalTrees,
meanLAI, meanTotBio, meanTotNr : REAL;
animationOn: BOOLEAN;