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

Appendix 215
FROM SimBase IMPORT DeclM, IntegrationMethod, NoDynamic, RTCType, DeclP,
StashFiling, DeclMV, Tabulation, NoAbout, Graphing, NoInput,
RemoveM, CurrentTime, MDeclared, GetGlobSimPars;
FROM TabFunc IMPORT TabFUNC, DeclTabF, Yie, RemoveTabF;
FROM DMEntryForms IMPORT FormFrame, WriteLabel, RadioButtonID, DefineRadioButtonSet,
RadioButton, UseEntryForm;
FROM DMFiles IMPORT Lookup, ReadChar, GetReal, EOF, EOL, Close, TextFile,
Response, Reset, SkipGap, GetExistingFile, legalNum;
FROM DMStrings IMPORT AssignString;
FROM DMMenus IMPORT InstallCommand, InstallAliasChar, InstallSeparator,
Separator, AccessStatus, Marking, Command, SeparatorPosition,
RemoveSeparatorAtCommand, RemoveCommand, DisableCommand,
EnableCommand;
FROM DMMessages IMPORT Warn;
FROM StochStat IMPORT StatArray, Prob2Tail, DeclStatArray, notExistingStatArray,
PutValue, DeclDispMV, DisplayArray;
FROM SimGraphUtils IMPORT timeIsIndep;
FROM RandNormal IMPORT InstallU;
FROM RandGen IMPORT U;
FROM Jacobi IMPORT Vector;
FROM MultiNormal IMPORT MultiN;
FROM SYSTEM IMPORT Exp;
FROM ForestBase IMPORT Month, site, RemoveConstEnvironment, DeclConstEnvironment,
fe, uDD, uDrStr, uWiT, uAET, fMenu, Power, Rmax, Rmin, exp,
ExperimentType, DeclMonitoringProc, RemoveMonitoringProc,
DeclStatArrayForOutput, GetCurClimate, Climate;
CONST
kDays = 30.5;
modIdent = "ForClim-E";
modDescrStoch = "ForClim-E: Abiotic environment";
modDescrFileW = "ForClim-E: Weather data from file";
modDescrFileE = "ForClim-E: Bioclimatic variables from file";
TYPE
EnvironmentType = ( undefE, stochE, fileW, fileE );
VAR
a, b, rTVect, rPVect, zeroSDVect: ARRAY [Jan..Dec] OF REAL;
month: Month;
uPET, k1, k2, k3, k4, k5, k6, k7, k8, kPM,
tSuMod, tWiMod, tSDSuMod, tSDWiMod, pSuMod, pWiMod, pSDSuMod, pSDWiMod,
tMod, pMod, tSDMod, pSDMod, currWater, kPMod,
meanAET, meanDD, meanDrStr, meanWiT,
tzero, hm: REAL;
tSuTab, tWiTab, tSDSuTab, tSDWiTab, pSuTab, pWiTab, pSDSuTab, pSDWiTab,
corrDDTab: TabFUNC;
time, modifier: ARRAY [1..20] OF REAL;
fileName: ARRAY [0..63] OF CHAR;
inF: TextFile;
declEMod: EnvironmentType;
fceCmd, chooseEnvCmd: Command;
uAETStatArray, uDDStatArray, uDrStrStatArray, uWiTStatArray: StatArray;
PROCEDURE EmptyProc; BEGIN END EmptyProc;
PROCEDURE RemoveAllWeatherTabFuncs;
BEGIN
(* assumes that RemoveTabF will not inform on attempts to remove nonexisting TabFs *)
RemoveTabF( corrDDTab );
RemoveTabF( tSuTab ); RemoveTabF( tWiTab );
RemoveTabF( tSDSuTab ); RemoveTabF( tSDWiTab );
RemoveTabF( pSuTab ); RemoveTabF( pWiTab );
RemoveTabF( pSDSuTab ); RemoveTabF( pSDWiTab );
tSuMod := 0.0; pSuMod := 0.0; tWiMod := 0.0; pWiMod := 0.0;
tSDSuMod := 1.0; tSDWiMod := 1.0; pSDSuMod := 1.0; pSDWiMod := 1.0;
END RemoveAllWeatherTabFuncs;
PROCEDURE CalculateWeatherModifiers;
VAR t: REAL;
BEGIN
t := CurrentTime();
tSuMod := Yie( tSuTab, t );
pSuMod := Yie( pSuTab, t );
IF declEMod = stochE THEN
tWiMod := Yie( tWiTab, t );
tSDSuMod := Yie( tSDSuTab, t );
tSDWiMod := Yie( tSDWiTab, t );
pWiMod := Yie( pWiTab, t );
pSDSuMod := Yie( pSDSuTab, t );
pSDWiMod := Yie( pSDWiTab, t );
END; (* IF *)
END CalculateWeatherModifiers;