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 ...
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
236 Appendix<br />
littW, (* woody litter *)<br />
littT, (* twig litter *)<br />
littR: REAL; (* root litter *)<br />
littF: ARRAY [1..3] OF REAL; (* foliage litter *)<br />
PROCEDURE CreateSpecies( VAR first, newSp: SpeciesPtr );<br />
PROCEDURE CreateCohort( VAR first: CohortPtr; kInitDBH: REAL; nrTrees: INTEGER );<br />
PROCEDURE MergeCohorts( VAR sp: SpeciesPtr );<br />
PROCEDURE DeleteCohort( VAR first, cohort, prevCo: CohortPtr );<br />
PROCEDURE DeleteAllCohorts( VAR sp: SpeciesPtr );<br />
PROCEDURE DeleteAllSpecies( VAR first: SpeciesPtr );<br />
PROCEDURE SelectSpecies( title, checkBoxText: ARRAY OF CHAR;<br />
VAR flag, okButtonPressed: BOOLEAN );<br />
(*<br />
Produces a modal w<strong>in</strong>dow with 'title' as <strong>the</strong> title, a list <strong>of</strong> <strong>the</strong><br />
currently present species, a check box labelled 'checkBoxText',<br />
a 'Cancel' and an 'OK' button.<br />
The selected species are flagged us<strong>in</strong>g <strong>the</strong> boolean variable sp^.specSelected,<br />
and <strong>the</strong> variable 'flag' conta<strong>in</strong>s <strong>the</strong> value <strong>of</strong> <strong>the</strong> check box.<br />
All variables should be ignored if okButtonPressed is FALSE!<br />
*)<br />
PROCEDURE EditParameters;<br />
(* produces entry forms where species can be selected and <strong>the</strong>ir parameters can<br />
be edited; allows also to perform a reset <strong>of</strong> species parameters<br />
*)<br />
PROCEDURE ResetSpeciesParameters( sp: SpeciesPtr );<br />
PROCEDURE ResetAllSpeciesParameters;<br />
END FCPBase.<br />
The code <strong>of</strong> <strong>the</strong> implementation module FCPBase is available upon request from <strong>the</strong><br />
author.<br />
Module ForClimS<br />
DEFINITION MODULE ForClimS;<br />
(****************************************<br />
Module ForClimS (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 Soil organic matter turnover model, adapted from <strong>the</strong><br />
LINKAGES model by Pastor & Post (1985)<br />
Remarks none<br />
Programm<strong>in</strong>g<br />
o Design<br />
hb 23.12.1992<br />
o Implementation<br />
hb 23.12.1992<br />
Swiss Federal Institute <strong>of</strong> Technology Zurich ETHZ<br />
CH-8092 Zurich<br />
Switzerland<br />
Last revision <strong>of</strong> def<strong>in</strong>ition: 23.12.1992<br />
****************************************)<br />
PROCEDURE DeclForClimS;<br />
PROCEDURE RemoveForClimS;<br />
END ForClimS.<br />
IMPLEMENTATION MODULE ForClimS;<br />
(****************************************<br />
Model: ForClim-S<br />
Copyright ©1992 by Harald Bugmann and Swiss Federal Institute<br />
<strong>of</strong> Technology Zurich ETHZ, Department <strong>of</strong> Environmental Sciences<br />
Systems <strong>Ecology</strong> Group<br />
Grabenstr. 3<br />
CH-8952 Schlieren/Zurich<br />
Version written for:<br />
'Dialog Mach<strong>in</strong>e' DM_V2.2 (User <strong>in</strong>terface)<br />
MacMETH_V3.2<br />
(1-Pass Modula-2 implementation)<br />
ModelWorks MW_V2.2 (Modell<strong>in</strong>g & Simulation)