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 ...
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
234 Appendix<br />
CH-8092 Zurich<br />
Switzerland<br />
Last revision <strong>of</strong> def<strong>in</strong>ition: 15.4.1993 hb<br />
****************************************)<br />
FROM FCPBase<br />
IMPORT SpeciesPtr;<br />
PROCEDURE HistogramMonitor<strong>in</strong>g;<br />
PROCEDURE ChooseSpeciesForHistograms;<br />
PROCEDURE AnimationMonitor<strong>in</strong>g;<br />
PROCEDURE MakeAnimationW<strong>in</strong>dow; (* if <strong>the</strong> w<strong>in</strong>dow exists, it is brought to front *)<br />
PROCEDURE WriteTreeR<strong>in</strong>gs( VAR sp: SpeciesPtr; VAR year: REAL; VAR nr: INTEGER;<br />
VAR rw, DD, DrStress: REAL );<br />
PROCEDURE ChooseSpeciesForTreeR<strong>in</strong>gs( site: ARRAY OF CHAR );<br />
PROCEDURE CloseTreeR<strong>in</strong>gFile;<br />
END FCPMon.<br />
The code <strong>of</strong> <strong>the</strong> implementation module FCPMon is available upon request from <strong>the</strong><br />
author.<br />
Def<strong>in</strong>ition module FCPFileIO<br />
DEFINITION MODULE FCPFileIO;<br />
(****************************************<br />
Module FCPFileIO (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 Management <strong>of</strong> file <strong>in</strong>put/output for <strong>the</strong> FORCLIM-P Model<br />
Programm<strong>in</strong>g<br />
• Design<br />
H. Bugmann 18.1.1991<br />
• Implementation<br />
H. Bugmann 18.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 FCPBase<br />
IMPORT SpeciesPtr;<br />
CONST undefSeed = -9999;<br />
VAR<br />
PROCEDURE DeclAllometricParameters; (* ModelWorks declaration <strong>of</strong> kC1 and kC2 *)<br />
PROCEDURE AssignAllometricParameters; (* assignment <strong>of</strong> above parameters to <strong>the</strong> species *)<br />
PROCEDURE AssignMonitor<strong>in</strong>gAttributes;<br />
PROCEDURE ReadSpeciesFile( VAR firstSp: SpeciesPtr; name: ARRAY OF CHAR;<br />
VAR ok: BOOLEAN );<br />
PROCEDURE CalcAndWriteLimFactorsToFile( fn: ARRAY OF CHAR;<br />
VAR firstSp: SpeciesPtr );<br />
(* If fn[0] = 0C is passed to <strong>the</strong> procedure, a dialog box is produced for<br />
enter<strong>in</strong>g <strong>the</strong> dest<strong>in</strong>ation file name; if a file name is passed, this<br />
file is written without dialog, which allows for batch mode <strong>in</strong> experiments *)<br />
PROCEDURE DumpStateToFile( VAR ok: BOOLEAN; t, x0, y0, z0: INTEGER; site,<br />
fn: ARRAY OF CHAR );<br />
PROCEDURE ReadStateFromFile( VAR ok: BOOLEAN; VAR x0, y0, z0: INTEGER;<br />
fn: ARRAY OF CHAR );<br />
END FCPFileIO.<br />
The code <strong>of</strong> <strong>the</strong> implementation module FCPFileIO is available upon request from <strong>the</strong><br />
author.