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

214 Appendix
AddWindowHandler( w, clickedInContent, CloseStartupWindow, 1 );
AddKeyboardHandler( CloseStartupWindowByKeyboard, 1 );
UseWindowModally( w , ok, ok );
END ShowStartupPicture;
PROCEDURE DeclForClim;
BEGIN
useFe := TRUE;
useFp := TRUE;
useFs := FALSE;
InstallAbout( "About ForClim…", 0, 0, ShowStartupPicture );
ExecuteAbout;
InstallMenu( fMenu, "ForClim", enabled );
InstallCommand( fMenu, configCmd, "Configure ForClim…", ConfigureForClim,
enabled, unchecked );
InstallAliasChar( fMenu, configCmd, "F" );
DeclForestBase;
ConfigureForClim;
END DeclForClim;
BEGIN
RunSimEnvironment( DeclForClim );
END ForClim.
Module ForClimE
DEFINITION MODULE ForClimE;
(****************************************
Module ForClim-E (Version 2.4)
Copyright ©1994 by Harald Bugmann and Swiss
Federal Institute of Technology Zürich ETHZ
Version written for:
'Dialog Machine' DM_V2.2 (User interface)
MacMETH_V3.2.1 (1-Pass Modula-2 implementation)
ModelWorks_V2.2 (Modelling & Simulation)
Purpose Provides a model of the abiotic forest environment,
consisting of
- the generation of weather data
- the calculation of bioclimatic output variables
Programming
• Design
H. Bugmann 18.1.1991
• Implementation
H. Bugmann 18.1.1991
Swiss Federal Institute of Technology Zurich ETHZ
CH-8092 Zurich
Switzerland
Last revision of definition: 23.9.1993 hb
****************************************)
PROCEDURE DeclForClimE;
PROCEDURE RemoveForClimE;
END ForClimE.
IMPLEMENTATION MODULE ForClimE;
(*
*)
Implementation and Revisions:
============================
Author Date Description
------ ---- -----------
hb 18. 1.1991 First implementation (V0.1, DM 2.02, MacMETH 2.6.2)
hb 21. 3.1991 New structure for V0.4
hb
hb
hb
hb
hb
hb
12. 6.1991 V1.0 implemented including weather data from file
25. 3.1992 Inconsistencies with TableFunctions fixed (TabFs are now
removed when a new model is declared)
realistic values of uDD, kDryDays are calculated from site
data if the constant weather model is declared
26. 5.1992 calculation of new drought index (drIndx) introduced
17.12.1992 Adapted for usage within ForClim simulation system,
renamed from FCPInput to ForClimE
10. 3.1993 supports usage of StochStat and writing of sim results
to a text file (done by ForestBase)
6.12.1993 Reading of weather data from file implemented
FROM SimMaster
IMPORT CurrentSimNr, ExperimentRunning,
ExperimentAborted;