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

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