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

222 Appendix
Last revision of definition: 17.12.1992 hb
****************************************)
PROCEDURE DeclForClimP;
PROCEDURE RemoveForClimP;
END ForClimP.
IMPLEMENTATION MODULE ForClimP;
(****************************************
Model: ForClim-P V2.4 (ForClim Plant Succession Model)
Copyright ©1992 by Harald Bugmann and Swiss
Federal Institute of Technology Zurich (ETHZ)
Department of Environmental Sciences
Systems Ecology Group, ETH-Zentrum
CH-8092 Zurich / Switzerland
Version written for:
'Dialog Machine' DM_V2.2 (User interface)
MacMETH_V3.2 (1-Pass Modula-2 implementation)
ModelWorks MW_V2.2 (Modelling & Simulation)
Implementation and Revisions:
============================
Author Date Description
------ ---- -----------
hb 21. 1.1991 First implementation (DM 2.02, MacMETH 2.6.2)
hb 30. 1.1991 Minor changes made
hb 26. 2.1991 Implementation of V0.3 (cohorts instead of individuals)
hb 18. 3.1991 Some minor changes made
hb 23. 4.1991 Adaptation for V1.0
hb 12. 6.1991 Dumping/reading of state vector implemented
hb 17. 6.1991 Help window added
hb 07. 8.1991 Test for ExperimentAborted introduced
hb 24. 1.1992 Model now produces tree-ring chronologies
hb 25. 2.1992 V1.1 with StochStat implemented
hb 27. 2.1992 Estimation of equilibrium state introduced
hb 2. 3.1992 Model now simulates also catastrophic disturbance
hb 10. 3.1992 Demo and research version merged
hb 12. 3.1992 Randomization at start of simulation introduced
hb 20. 3.1992 Version 1.1 implemented (renaming & use of StochStat)
hb 6. 4.1992 Support for Soppensee validation implemented
hb 7. 4.1992 module FCPExp introduced, several procedures are
implemented there now
hb 22. 4.1992 Demo version for FIA written
hb 2. 6.1992 Version 1.1 completed, version 1.2 started
hb 14. 8.1992 Adopted for version 2.0
hb 10.11.1992 Version 2.0e finished
hb 17.12.1992 Adapted for usage within the ForClim simulation system
hb 22. 3.1993 Customization of statistical output introduced
****************************************)
FROM SimMaster IMPORT CurrentSimNr, ExperimentAborted, ExperimentRunning;
FROM SimBase IMPORT DeclM, IntegrationMethod, DeclP, DeclMV, RTCType, StashFiling,
Tabulation, Graphing, RemoveM, CurrentTime, SetSimTime,
SetMonInterval, NoAbout, MDeclared, GetGlobSimPars;
FROM DMMenus IMPORT InstallCommand, EnableCommand, DisableCommand, Command,
AccessStatus, Marking, InstallAliasChar, InstallSeparator,
Separator, RemoveCommand, RemoveSeparatorAtCommand,
SeparatorPosition;
FROM DMSystem IMPORT CurrentDMLevel, InstallTermProc;
FROM DMConversions IMPORT IntToString;
FROM DMStrings IMPORT AssignString, Concat, AppendCh;
FROM DMFiles IMPORT GetExistingFile, TextFile, Close, CreateNewFile, Response;
FROM DMEntryForms IMPORT FormFrame, WriteLabel, DefltUse, RealField, CheckBox,
UseEntryForm;
FROM RandGen IMPORT GetSeeds, U;
FROM StochStat IMPORT StatArray, Prob2Tail, DeclStatArray, notExistingStatArray,
PutValue, DeclDispMV, DisplayArray;
FROM SimGraphUtils IMPORT timeIsIndep;
FROM ForestBase IMPORT fp, site, SetRandomNumberSeeds, fMenu,
DeclMonitoringProc, RemoveMonitoringProc, DeclSiteProc,
RemoveSiteProc, uDD, uDrStr, uWiT, uLitt,
Litter, uAvN, DeclConstPlants, RemoveConstPlants,
kPatchSize, exp, ExperimentType, DeclStatArrayForOutput;
FROM FCPBase
FROM FCPMon
IMPORT SpeciesPtr, DeleteAllCohorts, EditParameters, firstSp, gLAI,
meanLAI, totalBiomass, meanTotBio, totalTrees, meanTotNr,
ResetAllSpeciesParameters, DeleteAllSpecies;
IMPORT ChooseSpeciesForHistograms, ChooseSpeciesForTreeRings,
CloseTreeRingFile, MakeAnimationWindow,
HistogramMonitoring, AnimationMonitoring;