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

More documents

Recommendations

Info

236 Appendix littW, (* woody litter *) littT, (* twig litter *) littR: REAL; (* root litter *) littF: ARRAY [1..3] OF REAL; (* foliage litter *) PROCEDURE CreateSpecies( VAR first, newSp: SpeciesPtr ); PROCEDURE CreateCohort( VAR first: CohortPtr; kInitDBH: REAL; nrTrees: INTEGER ); PROCEDURE MergeCohorts( VAR sp: SpeciesPtr ); PROCEDURE DeleteCohort( VAR first, cohort, prevCo: CohortPtr ); PROCEDURE DeleteAllCohorts( VAR sp: SpeciesPtr ); PROCEDURE DeleteAllSpecies( VAR first: SpeciesPtr ); PROCEDURE SelectSpecies( title, checkBoxText: ARRAY OF CHAR; VAR flag, okButtonPressed: BOOLEAN ); (* Produces a modal window with 'title' as the title, a list of the currently present species, a check box labelled 'checkBoxText', a 'Cancel' and an 'OK' button. The selected species are flagged using the boolean variable sp^.specSelected, and the variable 'flag' contains the value of the check box. All variables should be ignored if okButtonPressed is FALSE! *) PROCEDURE EditParameters; (* produces entry forms where species can be selected and their parameters can be edited; allows also to perform a reset of species parameters *) PROCEDURE ResetSpeciesParameters( sp: SpeciesPtr ); PROCEDURE ResetAllSpeciesParameters; END FCPBase. The code of the implementation module FCPBase is available upon request from the author. Module ForClimS DEFINITION MODULE ForClimS; (**************************************** Module ForClimS (Version 2.4) Copyright (c) 1994 by Harald Bugmann and Swiss Federal Institute of Technology Zürich ETHZ Version written for: MacMETH_V3.2.1 (1-Pass Modula-2 implementation) Purpose Soil organic matter turnover model, adapted from the LINKAGES model by Pastor & Post (1985) Remarks none Programming o Design hb 23.12.1992 o Implementation hb 23.12.1992 Swiss Federal Institute of Technology Zurich ETHZ CH-8092 Zurich Switzerland Last revision of definition: 23.12.1992 ****************************************) PROCEDURE DeclForClimS; PROCEDURE RemoveForClimS; END ForClimS. IMPLEMENTATION MODULE ForClimS; (**************************************** Model: ForClim-S Copyright ©1992 by Harald Bugmann and Swiss Federal Institute of Technology Zurich ETHZ, Department of Environmental Sciences Systems Ecology Group Grabenstr. 3 CH-8952 Schlieren/Zurich Version written for: 'Dialog Machine' DM_V2.2 (User interface) MacMETH_V3.2 (1-Pass Modula-2 implementation) ModelWorks MW_V2.2 (Modelling & Simulation)
Appendix 237 Purpose Simulation model for soil organic mass & nitrogen dynamics Remarks Based on the model by Pastor & Post (1985, 1986) Implementation and Revisions: ============================ Author Date Description ------ ---- ----------- hb 5. 2.1992 First implementation (DM 2.2, MacMETH 3.2) hb 7. 2.1992 Major bugs fixed; rewritten with mass as state var hb 9. 2.1992 Rewritten (dynamic lists) hb 19. 2.1992 Implementation finished hb 23. 3.1992 Model renamed to FORCLIM-S hb 23.12.1992 adapted for 6 litter types (usage within ForClim) reverted to mass dynamics instead of mass hb 5. 3.1993 adapted for output of statistical data ****************************************) FROM SimMaster FROM SimBase FROM DMSystem FROM DMMenus IMPORT CurrentSimNr, ExperimentRunning, ExperimentAborted; IMPORT DeclM, IntegrationMethod, DeclSV, RTCType, DeclP, StashFiling, DeclMV, Tabulation, NoAbout, Graphing, GetGlobSimPars, RemoveM, MDeclared, CurrentTime; IMPORT CurrentDMLevel, InstallTermProc; IMPORT Command, AccessStatus, Marking, Separator, InstallCommand, DisableCommand, EnableCommand, InstallSeparator, RemoveSeparatorAtCommand, RemoveCommand, SeparatorPosition; FROM DMEntryForms IMPORT FormFrame, WriteLabel, RadioButtonID, DefineRadioButtonSet, RadioButton, CheckBox, UseEntryForm; FROM DMMessages IMPORT Warn, Abort; FROM DMStorage IMPORT Allocate, Deallocate; FROM ForestBase IMPORT fs, Litter, uLitt, uAvN, uAET, DeclConstSoil, RemoveConstSoil, fMenu, exp, ExperimentType, DeclStatArrayForOutput, DeclMonitoringProc, RemoveMonitoringProc, Rmax, Rmin; FROM StochStat IMPORT StatArray, Prob2Tail, DeclStatArray, notExistingStatArray, DeclDispMV, DisplayArray, PutValue; FROM SimGraphUtils IMPORT timeIsIndep; CONST modIdent = "ForClim-S"; modDescr = "ForClim-S: Soil C/N turnover model"; TYPE LitterPtr = POINTER TO LitterNode; LitterNode = RECORD LOM, (* litter organic matter *) LOMNew, LOMinit, (* initial LOM *) LN, (* litter nitrogen *) LNNew, gLign : REAL; (* lignin content *) type: Litter; (* litter type *) next: LitterPtr; (* pointer for list management *) END; VAR startupLevel: CARDINAL; first, prev: LitterPtr; type: Litter; statArrAvN, statArrLitM, statArrHumM : StatArray; kInitN, kCritN: ARRAY [ MIN(Litter) .. MAX(Litter) ] OF REAL; kNC, kLignA, kLignB, gNMR, decMlt, kAET, kMin, k1, k2, k3, k4, k5, k6, mLoss, kLeach, litterM, litterN, totSOM, litterCO2, gLNC, gAETM, humusNMin, HOM, HOMNew, humCN, HN, HNNew, gImmob, totCO2, totNimmob, totNMin, kNAtm, meanAvN, meanLitM, meanHumM, tzero, hm: REAL; ok, allTypes, everyYear: BOOLEAN; fcsCmd, litterCmd: Command; PROCEDURE EmptyProc; BEGIN END EmptyProc; (************************************) (* Procedures for list management *) (************************************) PROCEDURE CreateLitterCohort( VAR first: LitterPtr; m: REAL; type: Litter ); VAR litter: LitterPtr; BEGIN Allocate( litter, SIZE(LitterNode) ); IF litter = NIL THEN Abort( "", "Insufficient memory!", "" ) END; litter^.next := first; litter^.LOM := m; litter^.LOMNew := m; litter^.LOMinit := m;
Page 1:
Diss. ETH No. 10638 On the Ecology
Page 4 and 5:
ii Table of contents A BSTRACT.....
Page 6 and 7:
iv APPENDIX .......................
Page 8 and 9:
vi Harald BUGMANN, 1994: On the eco
Page 10 and 11:
viii Harald BUGMANN, 1994: Aspekte
Page 13 and 14:
1 1 . Introduction 1.1 Climatic cha
Page 15 and 16:
Introduction 3 1.2 Methods for the
Page 17 and 18:
Introduction 5 in a changing climat
Page 19 and 20:
Introduction 7 Their integrative ca
Page 21 and 22:
Introduction 9 (1984) provides a mo
Page 23 and 24:
Introduction 11 The main advantage
Page 25 and 26:
13 2 . Analysis of existing forest
Page 27 and 28:
Analysis of existing forest gap mod
Page 29 and 30:
Page 31 and 32:
Page 33 and 34:
Page 35 and 36:
Page 37 and 38:
Page 39 and 40:
The forest model FORCLIM 45 carbon
Page 41 and 42:
The forest model FORCLIM 47 TREE GR
Page 43 and 44:
The forest model FORCLIM 49 gBFlag
Page 45 and 46:
The forest model FORCLIM 51 Disturb
Page 47 and 48:
The forest model FORCLIM 53 decay o
Page 49 and 50:
The forest model FORCLIM 55 the est
Page 51 and 52:
The forest model FORCLIM 57 3.3 Mod
Page 53 and 54:
The forest model FORCLIM 59 Light a
Page 55 and 56:
The forest model FORCLIM 61 Overall
Page 57 and 58:
The forest model FORCLIM 63 D (cm)
Page 59 and 60:
The forest model FORCLIM 65 a) b) c
Page 61 and 62:
The forest model FORCLIM 67 Growth
Page 63 and 64:
The forest model FORCLIM 69 Stress-
Page 65 and 66:
The forest model FORCLIM 71 Tab. 3.
Page 67 and 68:
The forest model FORCLIM 73 3.3.2 F
Page 69 and 70:
The forest model FORCLIM 75 where k
Page 71 and 72:
The forest model FORCLIM 77 NITROGE
Page 73 and 74:
The forest model FORCLIM 79 peratur
Page 75 and 76:
The forest model FORCLIM 81 of degr
Page 77 and 78:
The forest model FORCLIM 83 microcl
Page 79 and 80:
The forest model FORCLIM 85 Tab. 3.
Page 81 and 82:
The forest model FORCLIM 87 3.4.3 F
Page 83 and 84:
The forest model FORCLIM 89 All the
Page 85 and 86:
The forest model FORCLIM 91 The mas
Page 87 and 88:
The forest model FORCLIM 93 FORCLIM
Page 89 and 90:
Behaviour of FORCLIM along a transe
Page 91 and 92:
Page 93 and 94:
Page 95 and 96:
Page 97 and 98:
Page 99 and 100:
Page 101 and 102:
Page 103 and 104:
Page 105 and 106:
Page 107 and 108:
Page 109 and 110:
Page 111 and 112:
Page 113 and 114:
Page 115 and 116:
Parameter sensitivity & model valid
Page 117 and 118:
Page 119 and 120:
Page 121 and 122:
Page 123 and 124:
Page 125 and 126:
Page 127 and 128:
Page 129 and 130:
Page 131 and 132:
Page 133 and 134:
Page 135 and 136:
Page 137 and 138:
Page 139 and 140:
Page 141 and 142:
Page 143 and 144:
Page 145 and 146:
Page 147 and 148:
153 6 . Model applications Climatic
Page 149 and 150:
Model applications 155 The simulate
Page 151 and 152:
Model applications 157 6.2 Possible
Page 153 and 154:
Model applications 159 simulation s
Page 155 and 156:
Model applications 161 Simulation e
Page 157 and 158:
Model applications 163 At the site
Page 159 and 160:
Model applications 165 Bever Biomas
Page 161 and 162:
Model applications 167 tainty inher
Page 163 and 164:
Model applications 169 scenario cho
Page 165 and 166:
Discussion 171 Finally, the analysi
Page 167 and 168:
Discussion 173 bitrarily chosen par
Page 169 and 170:
Discussion 175 comparably small imp
Page 171 and 172:
Discussion 177 end of the 21st cent
Page 173 and 174:
Conclusions 179 Ecological factors
Page 175 and 176:
Conclusions 181 species composition
Page 177 and 178:
References 183 Begon, M., Harper, J
Page 179 and 180: References 185 Burger, H., 1951. Ho
Page 181 and 182: References 187 Faber, P.J., 1991. A
Page 183 and 184: References 189 Huntley, B. & Birks,
Page 185 and 186: References 191 Leemans, R. & Prenti
Page 187 and 188: References 193 Olson, J.S., 1963. E
Page 189 and 190: References 195 Rudloff, W., 1981. W
Page 191 and 192: References 197 Smith, T.M., Leemans
Page 193 and 194: References 199 Whittaker, R.H., 195
Page 195 and 196: Appendix 201 II. Derivation of para
Page 197 and 198: Appendix 203 Tab. A-4: Tree species
Page 199 and 200: Appendix 205 Tab. A-7: Values for m
Page 201 and 202: Appendix 207 The minimum winter tem
Page 203 and 204: Appendix 209 Tab. A-11: Shade toler
Page 205 and 206: Appendix 211 Tab. A-14: Climatic pa
Page 207 and 208: Appendix 213 IV. Source code of the
Page 209 and 210: Appendix 215 FROM SimBase IMPORT De
Page 211 and 212: Appendix 217 END; (* IF *) prevDay
Page 213 and 214: Appendix 219 PROCEDURE InitializeFW
Page 215 and 216: Appendix 221 InstallSeparator( fMen
Page 217 and 218: Appendix 223 FROM FCPFileIO IMPORT
Page 219 and 220: Appendix 225 modelSp^.p.kHm := sens
Page 221 and 222: Appendix 227 DeclMV( meanLitt[leafS
Page 223 and 224: Appendix 229 Swiss Federal Institut
Page 225 and 226: Appendix 231 (*********************
Page 227 and 228: Appendix 233 BEGIN WITH sp^ DO d :=
Page 229: Appendix 235 Definition module FCPB
Page 233 and 234: Appendix 239 END Immobilization; PR
Page 235 and 236: Appendix 241 CONST lem = 3; VAR ef:
Page 237 and 238: Appendix 243 Purpose Provides the b
Page 239 and 240: Appendix 245 Example of a text file
Page 241 and 242: Appendix 247 Tab. A-15: Lower end o
Page 243 and 244: Appendix 249 Tab. A-17: Percentage
Page 245 and 246: Appendix 251 Tab. A-19: Significant
Page 247 and 248: Appendix 253 VI. Derivation of para
Page 249 and 250: Appendix 255 Tab. A-21: Species-spe
Page 251 and 252: Appendix 257 Tab. A-22 (continued)
show all

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

Create successful ePaper yourself

Delete template?

Save as template?