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

240 Appendix
BEGIN
DisableCommand( fMenu, litterCmd );
IF ExperimentRunning() AND (CurrentSimNr() = 1 ) THEN
IF exp.type = manyRuns THEN
GetGlobSimPars(tzero, tend, h, er, c , hm);
arrLen := TRUNC((tend-tzero)/hm+1.5);
DeclareStatArrays( arrLen );
ELSIF exp.type = estimEquil THEN
DeclareStatArrays( 1 );
ELSE
(* do nothing *)
END;
END;
CalculateLigninParameters;
DeleteAllCohorts( first );
IF NOT everyYear THEN
IF allTypes THEN
FOR i:= MIN(Litter) TO MAX(Litter) DO
IF uLitt[i] 0.0 THEN CreateLitterCohort( first, uLitt[i], i ) END;
END; (* FOR *)
ELSE
CreateLitterCohort( first, uLitt[type], type )
END;
END;
END Initialize;
PROCEDURE Input;
VAR litter: LitterPtr;
i: Litter;
BEGIN
IF everyYear THEN
IF allTypes THEN
FOR i:= MIN(Litter) TO MAX(Litter) DO
IF uLitt[i] 0.0 THEN CreateLitterCohort( first, uLitt[i], i ) END;
END; (* FOR *)
ELSE
CreateLitterCohort( first, uLitt[type], type );
END;
END;
totCO2 := 0.0;
totNimmob := 0.0;
totNMin := 0.0;
litterM := 0.0;
litterN := 0.0;
litter := first;
WHILE litter NIL DO (* summation of total leaf litter *)
WITH litter^ DO
IF (type = leafFast) OR (type = leafMedium) OR (type = leafSlow) THEN
litterM := litterM + LOM;
litterN := litterN + LN;
END;
END; (* WHILE *)
litter := litter^.next;
END; (* WHILE *)
IF litterM 0.0 THEN gLNC := litterN / litterM / 0.48;
ELSE gLNC := 0.0;
END; (* IF *)
litterM := 0.0;
litterN := 0.0;
litter := first;
WHILE litter NIL DO (* summation of total litter *)
WITH litter^ DO
litterM := litterM + LOM;
litterN := litterN + LN;
END; (* WHILE *)
litter := litter^.next;
END; (* WHILE *)
totSOM := litterM + HOM; (* total soil organic matter *)
END Input;
PROCEDURE Dynamic;
BEGIN
Mineralization;
Immobilization;
uAvN := kNAtm + Rmax(totNMin - totNimmob, 0.0) * 1000.0;
END Dynamic;
PROCEDURE Output;
BEGIN
UpdateLitterCohorts;
END Output;
PROCEDURE Terminate;
BEGIN
DeleteAllCohorts( first );
IF ( (CurrentSimNr() MOD TRUNC(exp.nrRuns+0.5)) = 0 )
AND ExperimentRunning() AND (exp.type = manyRuns) THEN
DisplayStatArrays;
END;
EnableCommand( fMenu, litterCmd );
END Terminate;
(******************)
(* Menu command *)
(******************)
PROCEDURE LitterInput;