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

Appendix 227
DeclMV( meanLitt[leafSlow], 0.0, 50.0, "Slowly dec. foliage litter", "µLittLS", "t/ha", noF, noT, noG );
DeclMV( meanLitt[roots], 0.0, 50.0, "Root litter", "µLittR", "t/ha", noF, noT, noG );
DeclMV( meanLitt[twigs], 0.0, 50.0, "Twig litter", "µLittT", "t/ha", noF, noT, noG );
DeclMV( meanLitt[wood], 0.0, 50.0, "Stemwood litter", "µLittW", "t/ha", noF, noT, noG );
DeclP(kPDist, 0.0, 0.0, 1.0, noRtc, 'Disturbance probability', 'kPDist', '/year');
DeclAllometricParameters;
DeclSubMParameters;
END DeclModelObjects;
PROCEDURE DeclareGapModel;
BEGIN
DeclM(fp, discreteTime, Initialize, Input, Output, Dynamic, Terminate,
DeclModelObjects, modDescr, modIdent, NoAbout);
SetSimTime( 0.0, 1200.0);
SetMonInterval( 20.0 );
END DeclareGapModel;
(********************************************)
(* Procedures for site & species selection *)
(********************************************)
PROCEDURE ChooseSpecies;
VAR ok: BOOLEAN;
BEGIN
ReadSpeciesFile( firstSp, "", ok );
IF ok THEN
RemoveM( fp );
DeclareGapModel;
END; (* IF *)
END ChooseSpecies;
PROCEDURE DumpTheState;
VAR x, y, z: INTEGER;
f: TextFile;
ok: BOOLEAN;
BEGIN
GetSeeds( x, y, z );
CreateNewFile( f, "File to dump state vector", "ForClim-P State.DAT" );
IF f.res = done THEN
AssignString( f.path, pathAndFilename );
Concat( pathAndFilename, f.filename );
Close( f );
DumpStateToFile( ok, TRUNC(CurrentTime()), x, y ,z, site.name, pathAndFilename );
END;
END DumpTheState;
PROCEDURE ReadTheState;
VAR ok: BOOLEAN;
x0New, y0New, z0New: INTEGER;
f: TextFile;
BEGIN
GetExistingFile( f, "File to read state vector" );
ok := f.res = done;
IF ok THEN
AssignString( f.path, pathAndFilename );
Concat( pathAndFilename, f.filename );
Close( f );
ReadStateFromFile( ok, x0New, y0New, z0New, pathAndFilename );
IF ok AND (x0New undefSeed) THEN
SetRandomNumberSeeds( x0New, y0New, z0New );
END;
END;
END ReadTheState;
PROCEDURE DoTreeRings;
BEGIN
ChooseSpeciesForTreeRings( site.name );
END DoTreeRings;
PROCEDURE CustomizeStats;
CONST startLine = 3;
VAR line, lem : INTEGER;
ef : FormFrame;
ok : BOOLEAN;
BEGIN
line := startLine; lem := 2;
WriteLabel( line-1, lem-1, "Customization of statistical output:" );
INC( line );
CheckBox( line, lem, "Write species biomasses higher than", withBiom );
RealField(line, lem+34, 5, minValBiom, useAsDeflt, 0.0, 20.0 );
WriteLabel( line, lem+40, "t/ha" ); INC( line );
CheckBox( line, lem, "Write tree numbers higher than", withNr );
RealField(line, lem+30, 5, minValNr, useAsDeflt, 0.0, 50.0 );
WriteLabel( line, lem+36, "#/ha" );
ef.x:= 0; ef.y:= -1; (* display entry form in middle of screen *)
ef.lines:= 8; ef.columns:= 50;
UseEntryForm( ef,ok );
END CustomizeStats;
PROCEDURE DeclForClimP;
VAR ok: BOOLEAN;
BEGIN
IF NOT MDeclared( fp ) THEN
RemoveConstPlants;
ReadSpeciesFile( firstSp, "SpecPars.DAT", ok );
DeclMonitoringProc( Monitoring );
DeclSiteProc( AssignMonitoringAttributes );
AssignMonitoringAttributes;
DeclareGapModel;