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.
228 Appendix<br />
InstallSeparator( fMenu, l<strong>in</strong>e );<br />
InstallCommand(fMenu, fcpCmd, "ForClim-P:", EmptyProc,<br />
enabled, unchecked);<br />
InstallCommand(fMenu, statsCmd, " Customize statistical output…", CustomizeStats,<br />
enabled, unchecked);<br />
InstallCommand(fMenu, newSpeciesCmd, " Choose o<strong>the</strong>r species…", ChooseSpecies,<br />
enabled, unchecked);<br />
InstallCommand(fMenu, editParsCmd, " Edit species parameters…", EditParameters,<br />
enabled, unchecked);<br />
InstallAliasChar(fMenu, editParsCmd, "N" );<br />
InstallCommand(fMenu, histoCmd, " Frequency distributions…", ChooseSpeciesForHistograms,<br />
enabled, unchecked);<br />
InstallAliasChar(fMenu, histoCmd, "U" );<br />
InstallSeparator( fMenu, blank );<br />
InstallCommand(fMenu, animCmd, " Animation", MakeAnimationW<strong>in</strong>dow,<br />
enabled, unchecked);<br />
InstallSeparator( fMenu, blank );<br />
InstallCommand(fMenu, dumpStateCmd, " Dump current state…", DumpTheState,<br />
enabled, unchecked);<br />
InstallCommand(fMenu, readStateCmd, " Read state file", ReadTheState,<br />
enabled, unchecked);<br />
InstallCommand(fMenu, treeR<strong>in</strong>gCmd, " Tree-r<strong>in</strong>gs…", DoTreeR<strong>in</strong>gs,<br />
enabled, unchecked);<br />
END;<br />
END DeclForClimP;<br />
PROCEDURE RemoveForClimP;<br />
BEGIN<br />
IF MDeclared( fp ) THEN<br />
RemoveSiteProc( AssignMonitor<strong>in</strong>gAttributes );<br />
RemoveMonitor<strong>in</strong>gProc( Monitor<strong>in</strong>g );<br />
RemoveM( fp );<br />
RemoveSeparatorAtCommand( fMenu, fcpCmd, beforeCmd );<br />
RemoveCommand( fMenu, fcpCmd );<br />
RemoveCommand( fMenu, statsCmd );<br />
RemoveCommand( fMenu, newSpeciesCmd );<br />
RemoveCommand( fMenu, editParsCmd );<br />
RemoveCommand( fMenu, histoCmd );<br />
RemoveSeparatorAtCommand( fMenu, animCmd, beforeCmd );<br />
RemoveCommand( fMenu, animCmd );<br />
RemoveSeparatorAtCommand( fMenu, dumpStateCmd, beforeCmd );<br />
RemoveCommand( fMenu, dumpStateCmd );<br />
RemoveCommand( fMenu, readStateCmd );<br />
RemoveCommand( fMenu, treeR<strong>in</strong>gCmd );<br />
DeclConstPlants;<br />
END;<br />
END RemoveForClimP;<br />
PROCEDURE TermProc;<br />
BEGIN<br />
IF CurrentDMLevel() = startupLevel THEN<br />
DeleteAllSpecies( sensFirstSp );<br />
END;<br />
ok := TRUE;<br />
END TermProc;<br />
PROCEDURE InitModule;<br />
BEGIN<br />
maxBioScal<strong>in</strong>g := 800.0 * kPatchSize/ 10.0; (* conversion 800 t/ha -> kg/patch *)<br />
withBiom := TRUE;<br />
withNr := FALSE;<br />
m<strong>in</strong>ValBiom := 2.0;<br />
m<strong>in</strong>ValNr := 0.0;<br />
sensFirstSp:= NIL;<br />
startupLevel := CurrentDMLevel();<br />
InstallTermProc( TermProc, ok );<br />
END InitModule;<br />
BEGIN<br />
InitModule;<br />
END ForClimP.<br />
Module FCPDynamic<br />
DEFINITION MODULE FCPDynamic;<br />
(****************************************<br />
Module FCPDynamic (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 Dynamic Structure <strong>of</strong> <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