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.
232 Appendix<br />
Module FCPGrFact<br />
DEFINITION MODULE FCPGrFact;<br />
(****************************************<br />
Module FCPGrFact (Version 2.4)<br />
Copyright ©1994 by Harald Bugmann and Swiss<br />
Federal Institute <strong>of</strong> Technology Zürich ETHZ<br />
Version written for:<br />
'Dialog Mach<strong>in</strong>e' DM_V2.2 (User <strong>in</strong>terface)<br />
MacMETH_V3.2.1 (1-Pass Modula-2 implementation)<br />
ModelWorks_V2.2 (Modell<strong>in</strong>g & Simulation)<br />
Purpose Provides growth factors for <strong>the</strong> ForClim-P model<br />
Programm<strong>in</strong>g<br />
• Design<br />
H. Bugmann 18.1.1991<br />
• Implementation<br />
H. Bugmann 18.1.1991<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: 14.1.1993 hb<br />
****************************************)<br />
FROM FCPBase IMPORT SpeciesPtr;<br />
CONST maxHeight = 600; (* <strong>in</strong> units <strong>of</strong> 10 cm, i.e. 60 m *)<br />
PROCEDURE SoilNitrogenGrowthFactor( VAR sp: SpeciesPtr; uAvN: REAL );<br />
PROCEDURE DegreeDayGrowthFactor( VAR sp: SpeciesPtr; uDD: REAL );<br />
PROCEDURE DroughtGrowthFactor( VAR sp: SpeciesPtr; uDrStr: REAL );<br />
PROCEDURE StandCharacteristics( VAR totalTrees, totalBiomass, gLAI: REAL;<br />
VAR cumLA: ARRAY OF REAL; firstSp: SpeciesPtr );<br />
END FCPGrFact.<br />
IMPLEMENTATION MODULE FCPGrFact;<br />
(*<br />
*)<br />
Implementation and Revisions:<br />
============================<br />
Author Date Description<br />
------ ---- -----------<br />
hb 21. 3.1991 First implementation (V0.1, DM 2.02, MacMETH 2.6.2)<br />
hb 13. 8.1992 Adaptation for V2.0 (growth factors removed)<br />
hb 6.11.1992 Calculation <strong>of</strong> leaf weight changed (Burger data)<br />
hb 14. 1.1993 adapted for SNGF<br />
FROM ForestBase<br />
FROM FCPBase<br />
FROM SYSTEM<br />
IMPORT kPatchSize, Rmax;<br />
IMPORT SpeciesPtr, CohortPtr;<br />
IMPORT Exp, Ln, Sqrt;<br />
VAR kN1, kN2: ARRAY [1..3] OF REAL;<br />
PROCEDURE SoilNitrogenGrowthFactor( VAR sp: SpeciesPtr; uAvN: REAL );<br />
(* Mitchell & Chandler (1939), Aber et al. (1979), Pastor & Post (1985) *)<br />
VAR tol: INTEGER;<br />
BEGIN<br />
tol := sp^.p.kNTol;<br />
sp^.gSNGF := Rmax( 1.0 - Exp( kN1[tol]*(uAvN-kN2[tol]) ) , 0.0 );<br />
END SoilNitrogenGrowthFactor;<br />
PROCEDURE DegreeDayGrowthFactor( VAR sp: SpeciesPtr; uDD: REAL );<br />
(* Hellmers (1962), Botk<strong>in</strong> et al. (1972), Shugart (1984), Woodward (1987) *)<br />
BEGIN<br />
WITH sp^ DO<br />
gDDGF := 4.0*(uDD-p.kDDM<strong>in</strong>)*(p.kDDMax-uDD)<br />
/ ((p.kDDMax-p.kDDM<strong>in</strong>)*(p.kDDMax-p.kDDM<strong>in</strong>));<br />
gDDGF := Rmax( 0.0, gDDGF );<br />
END;<br />
END DegreeDayGrowthFactor;<br />
PROCEDURE DroughtGrowthFactor( VAR sp: SpeciesPtr; uDrStress: REAL );<br />
(* Bassett (1964), Prentice & Helmisaari (1991) *)<br />
VAR d: REAL;