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

Appendix 243
Purpose Provides the basis for the ForClim model system
Programming
o Design
H. Bugmann 16.12.1992
o Implementation
H. Bugmann 16.12.1992
Swiss Federal Institute of Technology Zurich ETHZ
Department of Environmental Sciences
Systems Ecology
Grabenstr. 3
CH-8952 Schlieren
Switzerland
Last revision of definition: 23.9.1993 hb
****************************************)
FROM SimBase
FROM DMMenus
FROM MultiNormal
FROM StochStat
IMPORT Model;
IMPORT Menu, Command;
IMPORT MultiNDistr;
IMPORT StatArray;
VAR
kPatchSize: REAL; (* size of a forest patch [m^2] *)
(*****************************)
(* Objects defining a site *)
(*****************************)
CONST maxMonSpec = 20; (* maximum number of species variables for monitoring *)
TYPE
SiteRec = RECORD
name: ARRAY [1..32] OF CHAR;
kFC, (* soil field capacity [cm] *)
kLat, (* latitude of the site [°] *)
kSlAsp, (* slope & aspect qualifier [-2..2] *)
(* the following parameters are optional since calculated also by ForClim-E *)
kDD, (* average annual degree-days [°C*days] *)
kAET, (* average annual evapotransp. [mm] *)
kWiT, (* minimum winter temperature [°C] *)
kDrStr: REAL; (* average drought stress [-] *)
END; (* RECORD *)
VAR
site: SiteRec;
specIdent: ARRAY [1..maxMonSpec],[0..7] OF CHAR; (* for monitoring *)
PROCEDURE SelectSite( fn: ARRAY OF CHAR; VAR ok: BOOLEAN );
(* reads site data from a text file; the routine tries to open the
file named 'fn'; if this is not successful or fn is an empty string,
a dialog box is produced where a file can be selected
*)
PROCEDURE SetSiteParameters( kFC, kLat, kSlAsp: REAL );
PROCEDURE ResetSiteParameters;
(* sets / resets the site parameters kFC, kLat & kSlAsp to the values
assigned the last time SelectSite was called
*)
PROCEDURE DeclSiteProc( p: PROC );
PROCEDURE RemoveSiteProc( p: PROC );
(* procedure to be executed every time SelectSite [see above] is executed;
useful e.g. for updating a model's setup upon switching of sites *)
(***************************************************************)
(* Objects for defining and manipulating climatic parameters *)
(***************************************************************)
TYPE
Month = (Jan, Feb, Mar, Apr, May, Jun, Jul, Aug, Sep, Oct, Nov, Dec);
Climate = RECORD
mTVect, sdTVect, (* T mean, st.dev. *)
mPVect, sdPVect, (* P mean, st.dev. *)
corrVect (* T,P cross-correl. coeff. *)
: ARRAY [Jan..Dec] OF REAL;
mnDistr: ARRAY [Jan..Dec] OF MultiNDistr;
(* multiple normal distributions for cross-correlations *)
END(*RECORD*);
PROCEDURE GetMonth(m: Month; VAR name: ARRAY OF CHAR);
PROCEDURE GetCurClimate( VAR cc: Climate );
PROCEDURE SetCurClimate( VAR cc: Climate );
PROCEDURE GetDfltClimate( VAR dc: Climate );
PROCEDURE SetDfltClimate( dc: Climate );
PROCEDURE ResetClimate; (* resets current values to the default *)
(**********************************************************)
(* Objects used for communication between the submodels *)
(**********************************************************)