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.
222 Appendix<br />
Last revision <strong>of</strong> def<strong>in</strong>ition: 17.12.1992 hb<br />
****************************************)<br />
PROCEDURE DeclForClimP;<br />
PROCEDURE RemoveForClimP;<br />
END ForClimP.<br />
IMPLEMENTATION MODULE ForClimP;<br />
(****************************************<br />
Model: ForClim-P V2.4 (ForClim Plant Succession Model)<br />
Copyright ©1992 by Harald Bugmann and Swiss<br />
Federal Institute <strong>of</strong> Technology Zurich (ETHZ)<br />
Department <strong>of</strong> Environmental Sciences<br />
Systems <strong>Ecology</strong> Group, ETH-Zentrum<br />
CH-8092 Zurich / Switzerland<br />
Version written for:<br />
'Dialog Mach<strong>in</strong>e' DM_V2.2 (User <strong>in</strong>terface)<br />
MacMETH_V3.2 (1-Pass Modula-2 implementation)<br />
ModelWorks MW_V2.2 (Modell<strong>in</strong>g & Simulation)<br />
Implementation and Revisions:<br />
============================<br />
Author Date Description<br />
------ ---- -----------<br />
hb 21. 1.1991 First implementation (DM 2.02, MacMETH 2.6.2)<br />
hb 30. 1.1991 M<strong>in</strong>or changes made<br />
hb 26. 2.1991 Implementation <strong>of</strong> V0.3 (cohorts <strong>in</strong>stead <strong>of</strong> <strong>in</strong>dividuals)<br />
hb 18. 3.1991 Some m<strong>in</strong>or changes made<br />
hb 23. 4.1991 Adaptation for V1.0<br />
hb 12. 6.1991 Dump<strong>in</strong>g/read<strong>in</strong>g <strong>of</strong> state vector implemented<br />
hb 17. 6.1991 Help w<strong>in</strong>dow added<br />
hb 07. 8.1991 Test for ExperimentAborted <strong>in</strong>troduced<br />
hb 24. 1.1992 Model now produces tree-r<strong>in</strong>g chronologies<br />
hb 25. 2.1992 V1.1 with StochStat implemented<br />
hb 27. 2.1992 Estimation <strong>of</strong> equilibrium state <strong>in</strong>troduced<br />
hb 2. 3.1992 Model now simulates also catastrophic disturbance<br />
hb 10. 3.1992 Demo and research version merged<br />
hb 12. 3.1992 Randomization at start <strong>of</strong> simulation <strong>in</strong>troduced<br />
hb 20. 3.1992 Version 1.1 implemented (renam<strong>in</strong>g & use <strong>of</strong> StochStat)<br />
hb 6. 4.1992 Support for Soppensee validation implemented<br />
hb 7. 4.1992 module FCPExp <strong>in</strong>troduced, several procedures are<br />
implemented <strong>the</strong>re now<br />
hb 22. 4.1992 Demo version for FIA written<br />
hb 2. 6.1992 Version 1.1 completed, version 1.2 started<br />
hb 14. 8.1992 Adopted for version 2.0<br />
hb 10.11.1992 Version 2.0e f<strong>in</strong>ished<br />
hb 17.12.1992 Adapted for usage with<strong>in</strong> <strong>the</strong> ForClim simulation system<br />
hb 22. 3.1993 Customization <strong>of</strong> statistical output <strong>in</strong>troduced<br />
****************************************)<br />
FROM SimMaster IMPORT CurrentSimNr, ExperimentAborted, ExperimentRunn<strong>in</strong>g;<br />
FROM SimBase IMPORT DeclM, IntegrationMethod, DeclP, DeclMV, RTCType, StashFil<strong>in</strong>g,<br />
Tabulation, Graph<strong>in</strong>g, RemoveM, CurrentTime, SetSimTime,<br />
SetMonInterval, NoAbout, MDeclared, GetGlobSimPars;<br />
FROM DMMenus IMPORT InstallCommand, EnableCommand, DisableCommand, Command,<br />
AccessStatus, Mark<strong>in</strong>g, InstallAliasChar, InstallSeparator,<br />
Separator, RemoveCommand, RemoveSeparatorAtCommand,<br />
SeparatorPosition;<br />
FROM DMSystem IMPORT CurrentDMLevel, InstallTermProc;<br />
FROM DMConversions IMPORT IntToStr<strong>in</strong>g;<br />
FROM DMStr<strong>in</strong>gs IMPORT AssignStr<strong>in</strong>g, Concat, AppendCh;<br />
FROM DMFiles IMPORT GetExist<strong>in</strong>gFile, TextFile, Close, CreateNewFile, Response;<br />
FROM DMEntryForms IMPORT FormFrame, WriteLabel, DefltUse, RealField, CheckBox,<br />
UseEntryForm;<br />
FROM RandGen IMPORT GetSeeds, U;<br />
FROM StochStat IMPORT StatArray, Prob2Tail, DeclStatArray, notExist<strong>in</strong>gStatArray,<br />
PutValue, DeclDispMV, DisplayArray;<br />
FROM SimGraphUtils IMPORT timeIsIndep;<br />
FROM ForestBase IMPORT fp, site, SetRandomNumberSeeds, fMenu,<br />
DeclMonitor<strong>in</strong>gProc, RemoveMonitor<strong>in</strong>gProc, DeclSiteProc,<br />
RemoveSiteProc, uDD, uDrStr, uWiT, uLitt,<br />
Litter, uAvN, DeclConstPlants, RemoveConstPlants,<br />
kPatchSize, exp, ExperimentType, DeclStatArrayForOutput;<br />
FROM FCPBase<br />
FROM FCPMon<br />
IMPORT SpeciesPtr, DeleteAllCohorts, EditParameters, firstSp, gLAI,<br />
meanLAI, totalBiomass, meanTotBio, totalTrees, meanTotNr,<br />
ResetAllSpeciesParameters, DeleteAllSpecies;<br />
IMPORT ChooseSpeciesForHistograms, ChooseSpeciesForTreeR<strong>in</strong>gs,<br />
CloseTreeR<strong>in</strong>gFile, MakeAnimationW<strong>in</strong>dow,<br />
HistogramMonitor<strong>in</strong>g, AnimationMonitor<strong>in</strong>g;