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.
Appendix 221<br />
InstallSeparator( fMenu, l<strong>in</strong>e );<br />
InstallCommand( fMenu, fceCmd, "ForClim-E:", EmptyProc,<br />
enabled, unchecked );<br />
InstallCommand( fMenu, chooseEnvCmd, " Select environment model…", SelectEnvModel,<br />
enabled, unchecked );<br />
InstallAliasChar( fMenu, chooseEnvCmd, "W" );<br />
RemoveConstEnvironment;<br />
DeclStochEnvModel;<br />
END;<br />
END DeclForClimE;<br />
PROCEDURE RemoveForClimE;<br />
BEGIN<br />
IF MDeclared( fe ) THEN<br />
IF declEMod = stochE THEN<br />
RemoveMonitor<strong>in</strong>gProc( Monitor<strong>in</strong>g );<br />
END;<br />
RemoveSeparatorAtCommand(fMenu, fceCmd, beforeCmd );<br />
RemoveCommand( fMenu, fceCmd );<br />
RemoveCommand( fMenu, chooseEnvCmd );<br />
RemoveM( fe );<br />
RemoveAllWea<strong>the</strong>rTabFuncs;<br />
DeclConstEnvironment;<br />
END;<br />
END RemoveForClimE;<br />
PROCEDURE InitializeForClimE;<br />
BEGIN<br />
FOR month := Jan TO Dec DO zeroSDVect[month] := 0.0 END;<br />
a[Jan] := 1.1226; a[Feb] := 0.9859; a[Mar] := 1.0454;<br />
a[Apr] := 0.9708; a[May] := 0.9605; a[Jun] := 0.9185;<br />
a[Jul] := 0.9669; a[Aug] := 0.9892; a[Sep] := 0.9900;<br />
a[Oct] := 1.0600; a[Nov] := 1.0815; a[Dec] := 1.1444;<br />
b[Jan] := -7.3094E-3; b[Feb] := -3.8701E-3; b[Mar] := -4.9231E-4;<br />
b[Apr] := +3.5179E-3; b[May] := +7.1453E-3; b[Jun] := +8.4718E-3;<br />
b[Jul] := +7.6410E-3; b[Aug] := +4.9436E-3; b[Sep] := +1.2000E-3;<br />
b[Oct] := -2.6256E-3; b[Nov] := -6.3692E-3; b[Dec] := -8.6598E-3;<br />
InstallU( U );<br />
k1 := 0.2;<br />
k2 := 1.514;<br />
k3 := 6.75E-7;<br />
k4 := -7.71E-5;<br />
k5 := 0.01792;<br />
k6 := 0.49239;<br />
k7 := 4.61E-4;<br />
k8 := 1.10559;<br />
kPM := 1.6;<br />
END InitializeForClimE;<br />
BEGIN<br />
InitializeForClimE;<br />
END ForClimE.<br />
Module ForClimP<br />
When <strong>the</strong> model FORCLIM-P is declared (see procedure DeclForClimP <strong>in</strong> module<br />
ForClimP), a text file with <strong>the</strong> default name “SpecPars.DAT” is read. It conta<strong>in</strong>s a matrix<br />
with <strong>the</strong> species-specific parameters (cf. section 3.4.1, Tab. 3.11). If this file can not be<br />
found, a dialog box is produced where <strong>the</strong> text file can be selected by <strong>the</strong> user.<br />
DEFINITION MODULE ForClimP;<br />
(****************************************<br />
Module ForClimP (Version 2.4)<br />
Copyright (c) 1994 by Harald Bugmann and Swiss<br />
Federal Institute <strong>of</strong> Technology Zürich ETHZ<br />
Version written for:<br />
MacMETH_V3.2.1 (1-Pass Modula-2 implementation)<br />
Purpose Plant dynamics model for <strong>the</strong> ForClim model system<br />
Remarks none<br />
Programm<strong>in</strong>g<br />
o Design<br />
H. Bugmann 17.12.1992<br />
o Implementation<br />
H. Bugmann 17.12.1992<br />
Swiss Federal Institute <strong>of</strong> Technology Zurich ETHZ<br />
Department <strong>of</strong> Environmental Sciences<br />
Systems <strong>Ecology</strong><br />
ETH-Zentrum<br />
CH-8092 Zurich<br />
Switzerland