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

226 Appendix
DeleteAllCohorts( sp );
sp := sp^.next;
END; (* WHILE *)
ELSE (* normal year with all three submodels *)
TreeDeathAndGrowth( firstSp, cumLA, gLAI );
TreeEstablishment( firstSp, uWiT, uDD, gLAI, totalTrees, kPatchSize );
END;
END Dynamic;
PROCEDURE Terminate;
VAR x, y, z: INTEGER;
fn : ARRAY [0..31] OF CHAR;
ok: BOOLEAN;
BEGIN
IF exp.writeState THEN
GetSeeds( x, y, z );
AssignString( exp.outFileName, pathAndFilename );
CreateStateFileName( fn );
Concat( pathAndFilename, fn );
DumpStateToFile( ok, TRUNC(CurrentTime()), x, y ,z, site.name, pathAndFilename );
END;
sp := firstSp;
WHILE sp NIL DO
DeleteAllCohorts( sp );
sp := sp^.next;
END; (* WHILE *)
CloseTreeRingFile;
IF ExperimentRunning() AND ((CurrentSimNr() MOD TRUNC(exp.nrRuns+0.5)) = 0) THEN
IF exp.type = manyRuns THEN
DisplayStatArrays;
END;
IF exp.inBatchMode THEN
AssignString( site.name, fn );
Concat( fn, ".LF.DAT" );
ELSE
fn[0] := 0C;
END;
IF NOT exp.doSensAnalysis AND NOT ExperimentAborted() THEN
CalcAndWriteLimFactorsToFile( fn, firstSp );
END;
END;
EnableCommand( fMenu, statsCmd );
EnableCommand( fMenu, newSpeciesCmd );
EnableCommand( fMenu, chooseSiteCmd );
EnableCommand( fMenu, chooseWeatherCmd );
EnableCommand( fMenu, treeRingCmd );
END Terminate;
(*************************************)
(* Procedures for model declaration *)
(*************************************)
PROCEDURE DeclModelObjects;
VAR str: ARRAY [0..6] OF CHAR;
BEGIN
sp := firstSp; (* declare biomass MVs *)
WHILE sp NIL DO
WITH sp^ DO
DeclMV( biomass, 0.0, maxBioScaling, longDescBio, shortDescBio, "kg/patch", noF, noT, mon.graphBio);
END; (* WITH *)
sp := sp^.next;
END; (* WHILE *)
DeclMV( totalBiomass, 0.0, maxBioScaling, "Total biomass", "totBio" , "kg/patch", noF, isT, noG);
DeclMV( gLAI, 0.0, 20.0, "Leaf area index", "gLAI" , "--", noF, isT, noG);
sp := firstSp; (* declare tree number MVs *)
WHILE sp NIL DO
WITH sp^ DO
DeclMV( nrTrees, 0.0, 100.0, longDescNr, shortDescNr, "#/patch", noF, noT, mon.graphNr);
END; (* WITH *)
sp := sp^.next;
END; (* WHILE *)
DeclMV( totalTrees, 0.0, 200.0, "Total number of trees", "totNr" , "#/patch", noF, isT, noG);
sp := firstSp; (* declare average biomass MVs *)
WHILE sp NIL DO
WITH sp^ DO
AssignString( shortDescBio, str ); AppendCh( str, "µ" );
DeclMV( meanBio, 0.0, 400.0, longDescBio, str, "t/ha", noF, noT, noG);
END; (* WITH *)
sp := sp^.next;
END; (* WHILE *)
DeclMV( meanLAI, 0.0, 20.0, "Mean leaf area index", "µLAI" , "--", noF, noT, noG);
DeclMV( meanTotBio, 0.0, 400.0, "Mean total biomass", "µtotBio" , "t/ha", noF, noT, noG);
sp := firstSp; (* declare average number MVs *)
WHILE sp NIL DO
WITH sp^ DO
AssignString( shortDescNr, str ); AppendCh( str, "µ" );
DeclMV( meanNr, 0.0, 100.0, sp^.longDescNr, str, "#/ha", noF, noT, noG);
END; (* WITH *)
sp := sp^.next;
END; (* WHILE *)
DeclMV( meanTotNr, 0.0, 200.0, "Mean total number of trees", "µtotNr" , "#/ha", noF, noT, noG);
DeclMV( uLitt[leafFast], 0.0, 50.0, "Fast decaying foliage litter", "uLittLF", "t/ha", noF, noT, noG );
DeclMV( uLitt[leafMedium], 0.0, 50.0, "Medium dec. foliage litter", "uLittLM", "t/ha", noF, noT, noG );
DeclMV( uLitt[leafSlow], 0.0, 50.0, "Slowly dec. foliage litter", "uLittLS", "t/ha", noF, noT, noG );
DeclMV( uLitt[roots], 0.0, 50.0, "Root litter", "uLittR", "t/ha", noF, noT, noG );
DeclMV( uLitt[twigs], 0.0, 50.0, "Twig litter", "uLittT", "t/ha", noF, noT, noG );
DeclMV( uLitt[wood], 0.0, 50.0, "Stemwood litter", "uLittW", "t/ha", noF, noT, noG );
DeclMV( meanLitt[leafFast], 0.0, 50.0, "Fast decaying foliage litter", "µLittLF", "t/ha", noF, noT, noG );
DeclMV( meanLitt[leafMedium], 0.0, 50.0, "Medium dec. foliage litter", "µLittLM", "t/ha", noF, noT, noG );