SUEWS API Site
Documentation of SUEWS source code
suews_ctrl_const.f95
Go to the documentation of this file.
1! sg feb 2012 - added some comments
2! sg feb 2012 - changed number of surfaces to allocatable array
3! lj jun 2012 - snow part added
4! HW, LJ Oct 2014 - fixes to the structure
5! HCW 03 Mar 2015 - tidied
6! HCW 03 Jul 2015 - added albedo max & min to SUEWS_NonVeg.txt (min not used), SUEWS_Veg.txt, SUEWS_Water.txt (min not used)
7! LJ 06 Jul 2015 - changed alb_snow, albsnowmin and albsnowmax to SnowAlb, SnowAlbMin and SnowAlbMax (to be systematic with
8! other variables). Similarly denssnow changed to SnowDens. cMDS_SnowAlb=29 added.
9! HCW 10 Mar 2016 - variable vsmd added for soil moisture of vegetated surfaces
10! TS 14 Mar 2016 - multiple addtions for AnOHM
11! HCW 14 Jun 2016 - updated columns for ESTM and column names for AnOHM
12! HCW 26 Aug 2016 - CO2 flux added
13! HCW 16 Jan 2017 - WhereWhen module added to store info relating to grid and datetime
14! MH 16 Jun 2017 - Added biogenic CO2 and edited Site_Select
15! MH 21 Jun 2017 - Added anthropogenic CO2 and edited Site_Select
16
17!==================================================================================================
18MODULE allocatearray
19
20 IMPLICIT NONE
21
22 ! ---- Set parameters for reading in data ------------------------------------------------------
23! #ifdef nc
24! INTEGER, PARAMETER:: MaxNumberOfGrids = 90000 !Max no. grids !TS changed to 90000 for large-scale simulation based on netCDF IO
25! #else
26 INTEGER, PARAMETER :: maxnumberofgrids = 10000 !Max no. grids !HCW changed to 2000 from 10000 so prog can run on windows (2GB lim)
27! #endif
28 INTEGER, PARAMETER :: maxlinesmet = 8640 !Max no. lines to read in one go (for all grids, ie MaxLinesMet/NumberOfGrids each)
29
30 ! ---- Surface types ---------------------------------------------------------------------------
31 INTEGER, PARAMETER :: nsurf = 7 !Total number of surfaces
32 INTEGER, PARAMETER :: nvegsurf = 3 !Number of surfaces that are vegetated
33 INTEGER, PARAMETER :: nsurfincsnow = nsurf + 1 !Number of surfaces + snow
34 ! INTEGER, DIMENSION(MaxNumberOfGrids) :: nsurf_roof_grid !Number of extra roof facets (e.g., green roofs, etc.)
35 ! INTEGER, DIMENSION(MaxNumberOfGrids) :: nsurf_wall_grid !Number of extra building facets (e.g., green walls, etc.)
36 INTEGER, PARAMETER :: ndepth = 5 !Number of depth levels for facets
37 ! INTEGER, PARAMETER :: nlayer_max = 5 !max Number of allowed roof types
38 INTEGER, PARAMETER :: nlayer_max = 100 !max Number of allowed roof types
39
40 ! SPARTACUS related
41 INTEGER, PARAMETER :: nspec = 1 !Number of spectral bands
42 INTEGER, PARAMETER :: nsw = 1 !Number of shortwave bands
43 INTEGER, PARAMETER :: nlw = 1 !Number of longwave bands
44 INTEGER, PARAMETER :: ncol = 1 !Number of tiles used: SUEWS does not have multiple tiles so ncol=1
45
46 INTEGER, PARAMETER :: pavsurf = 1, & !When all surfaces considered together (1-7)
47 bldgsurf = 2, &
48 conifsurf = 3, &
49 decidsurf = 4, &
50 grasssurf = 5, & !New surface classes: Grass = 5th/7 surfaces
51 bsoilsurf = 6, & !New surface classes: Bare soil = 6th/7 surfaces
52 watersurf = 7, &
53 excesssurf = 8, & !Runoff or subsurface soil in WGWaterDist
54 nsurfdonotreceivedrainage = 0, & !Number of surfaces that do not receive drainage water (green roof)
55 ivconif = 1, & !When only vegetated surfaces considered (1-3)
56 ivdecid = 2, &
57 ivgrass = 3
58
59 REAL(kind(1d0)), DIMENSION(nsurf) :: sfr_surf !Surface fractions [-]
60
61 ! ---- Set number of columns in input files ----------------------------------------------------
62 INTEGER, PARAMETER :: ncolumnssiteselect = 105 !SUEWS_SiteSelect.txt
63 INTEGER, PARAMETER :: ncolumnsnonveg = 24 !SUEWS_NonVeg.txt
64 INTEGER, PARAMETER :: ncolumnsveg = 38 !SUEWS_Veg.txt
65 INTEGER, PARAMETER :: ncolumnswater = 22 !SUEWS_Water.txt
66 INTEGER, PARAMETER :: ncolumnssnow = 25 !SUEWS_Snow.txt
67 INTEGER, PARAMETER :: ncolumnssoil = 9 !SUEWS_Soil.txt
68 INTEGER, PARAMETER :: ncolumnsconductance = 13 !SUEWS_Conductance.txt
69 INTEGER, PARAMETER :: ncolumnsohmcoefficients = 4 !SUEWS_OHMCoefficients.txt
70 INTEGER, PARAMETER :: ncolumnsestmcoefficients = 52 !SUEWS_ESTMCoefficients.txt ! S.O. 04 Feb 2016
71 INTEGER, PARAMETER :: ncolumnsanthropogenic = 39 !SUEWS_AnthropogenicEmission.txt
72 INTEGER, PARAMETER :: ncolumnsirrigation = 26 !SUEWS_Irrigation.txt
73 INTEGER, PARAMETER :: ncolumnsprofiles = 25 !SUEWS_Profiles.txt
74 INTEGER, PARAMETER :: ncolumnswgwaterdist = 10 !SUEWS_WithinGridWaterDist.txt
75 INTEGER, PARAMETER :: ncolumnsbiogen = 9 !SUEWS_BiogenCO2.txt
76 INTEGER, PARAMETER :: ncolumnsmetforcingdata = 24 !Meteorological forcing file (_data.txt)
77 INTEGER, PARAMETER :: ncolsestmdata = 13 !ESTM input file (_ESTM_Ts_data.txt))
78
79 ! ---- Set number of columns in output files ---------------------------------------------------
80 INTEGER, PARAMETER :: ncolumnsdataoutsuews = 87, & !Main output file (_5.txt). dataOutSUEWS created in SUEWS_Calculations.f95
81 ncolumnsdataoutsnow = 103, &
82 ncolumnsdataoutsolweig = 31, &
83 ncolumnsdataoutbeers = 34, &
84 ncolumnsdataoutbl = 22, &
85 ncolumnsdataoutestm = 5 + 27, &
86 ncolumnsdataoutehc = 5 + 7*2 + 15*(1 + 4 + 2)*2, &
87 ncolumnsdataoutdailystate = 49, &
88 ncolumnsdataoutrsl = 30*4 + 5 + 13 + 2, &
89 ncolumnsdataoutdebug = 5 + 103 + 14 + 5 + 4 + 3 + 1, &
90 ncolumnsdataoutspartacus = 5 + 7 + 4*15 + 3 + 6*15 + 2*15 + 4
91
92 ! ---- Define input file headers ---------------------------------------------------------------
93 CHARACTER(len=20), DIMENSION(ncolumnsSiteSelect) :: headersiteselect_file !Header for SiteSelect.txt
94 CHARACTER(len=20), DIMENSION(ncolumnsNonVeg) :: headernonveg_file !Header for the nonveg surface
95 CHARACTER(len=20), DIMENSION(ncolumnsNonVeg) :: headernonveg_reqd !Expected header for the nonveg surface
96 CHARACTER(len=20), DIMENSION(ncolumnsVeg) :: headerveg_file !Header for the veg surface
97 CHARACTER(len=20), DIMENSION(ncolumnsVeg) :: headerveg_reqd !Expected header for the veg surface
98 CHARACTER(len=20), DIMENSION(ncolumnsWater) :: headerwater_file !Header for water surface
99 CHARACTER(len=20), DIMENSION(ncolumnsWater) :: headerwater_reqd !Expected header for water surface
100 CHARACTER(len=20), DIMENSION(ncolumnsSnow) :: headersnow_file !Header for Snow surface
101 CHARACTER(len=20), DIMENSION(ncolumnsSnow) :: headersnow_reqd !Expected header for Snow surface
102 CHARACTER(len=20), DIMENSION(ncolumnsSoil) :: headersoil_file !Header for soils
103 CHARACTER(len=20), DIMENSION(ncolumnsSoil) :: headersoil_reqd !Expected header for soils
104 CHARACTER(len=20), DIMENSION(ncolumnsConductance) :: headercond_file !Header for conductances
105 CHARACTER(len=20), DIMENSION(ncolumnsConductance) :: headercond_reqd !Expected header for conductances
106 CHARACTER(len=20), DIMENSION(ncolumnsOHMCoefficients) :: headerohmcoefficients_file !Header for soils
107 CHARACTER(len=20), DIMENSION(ncolumnsOHMCoefficients) :: headerohmcoefficients_reqd !Expected header for soils
108 CHARACTER(len=20), DIMENSION(ncolumnsESTMCoefficients) :: headerestmcoefficients_file !Header for soils ! S.O. 04 Feb 2016
109 CHARACTER(len=20), DIMENSION(ncolumnsESTMCoefficients) :: headerestmcoefficients_reqd !Expected header for soils ! S.O. 04 Feb 2016
110 CHARACTER(len=20), DIMENSION(ncolumnsAnthropogenic) :: headeranthropogenic_file !Header for QF
111 CHARACTER(len=20), DIMENSION(ncolumnsAnthropogenic) :: headeranthropogenic_reqd !Expected header for QF
112 CHARACTER(len=20), DIMENSION(ncolumnsIrrigation) :: headerirrigation_file !Header for Irrigation
113 CHARACTER(len=20), DIMENSION(ncolumnsIrrigation) :: headerirrigation_reqd !Expected header for Irrigation
114 CHARACTER(len=20), DIMENSION(ncolumnsProfiles) :: headerprofiles_file !Header for Profiles
115 CHARACTER(len=20), DIMENSION(ncolumnsProfiles) :: headerprofiles_reqd !Expected header for Profiles
116 CHARACTER(len=20), DIMENSION(ncolumnsWGWaterDist) :: headerwgwaterdist_file !Header for Profiles
117 CHARACTER(len=20), DIMENSION(ncolumnsWGWaterDist) :: headerwgwaterdist_reqd !Expected header for Profiles
118 CHARACTER(len=20), DIMENSION(ncolumnsBiogen) :: headerbiogen_file !Header for Biogen
119 CHARACTER(len=20), DIMENSION(ncolumnsBiogen) :: headerbiogen_reqd !Expected header for Biogen
120
121 ! ---- Define output file headers --------------------------------------------------------------
122 INTEGER, DIMENSION(:), ALLOCATABLE :: usecolumnsdataout !Column numbers used to select output variables
123 ! If change lengths in SUEWS_Output.f95, also need to adjust here
124 CHARACTER(len=14*ncolumnsDataOutSUEWS) :: headeruse, formatuse, headerusenosep, formatusenosep !Header and format in correct form
125 CHARACTER(len=52*ncolumnsDataOutSUEWS) :: longnmuse
126 CHARACTER(len=14*ncolumnsDataOutSUEWS) :: unitsuse
127 CHARACTER(len=3*ncolumnsDataOutSUEWS) :: aggreguse
128 CHARACTER(len=4*ncolumnsDataOutSUEWS) :: colnosuse
129
130 ! ---- Define arrays to store input information from SiteInfo spreadsheet ----------------------
131 REAL(kind(1d0)), DIMENSION(:, :), ALLOCATABLE :: siteselect !Stores info from SiteSelect.txt
132 REAL(kind(1d0)), DIMENSION(:, :), ALLOCATABLE :: nonveg_coeff !Coefficients for the nonveg surfaces
133 REAL(kind(1d0)), DIMENSION(:, :), ALLOCATABLE :: veg_coeff !Coefficients for the veg surfaces
134 REAL(kind(1d0)), DIMENSION(:, :), ALLOCATABLE :: water_coeff !Coefficients for the water surface
135 REAL(kind(1d0)), DIMENSION(:, :), ALLOCATABLE :: snow_coeff !Coefficients for snow
136 REAL(kind(1d0)), DIMENSION(:, :), ALLOCATABLE :: soil_coeff !Coefficients for soil
137 REAL(kind(1d0)), DIMENSION(:, :), ALLOCATABLE :: conductance_coeff !Coefficients for conductances
138 REAL(kind(1d0)), DIMENSION(:, :), ALLOCATABLE :: ohmcoefficients_coeff !Coefficients for OHMCoefficients
139 REAL(kind(1d0)), DIMENSION(:, :), ALLOCATABLE :: estmcoefficients_coeff !Coefficients for ESTMCoefficients ! S.O. 04 Feb 2016
140 REAL(kind(1d0)), DIMENSION(:, :), ALLOCATABLE :: anthropogenic_coeff !Coefficients for AnthropogenicEmissions
141 REAL(kind(1d0)), DIMENSION(:, :), ALLOCATABLE :: irrigation_coeff !Coefficients for Irrigation
142 REAL(kind(1d0)), DIMENSION(:, :), ALLOCATABLE :: profiles_coeff !Coefficients for Profiles
143 REAL(kind(1d0)), DIMENSION(:, :), ALLOCATABLE :: wgwaterdist_coeff !Coefficients for WithinGridWaterDist
144 REAL(kind(1d0)), DIMENSION(:, :), ALLOCATABLE :: biogen_coeff !Coefficients for BiogenCO2
145
146 ! ---- Define arrays for model calculations ----------------------------------------------------
147 INTEGER, DIMENSION(:), ALLOCATABLE :: grididmatrix !Array containing GridIDs in SiteSelect after sorting
148 INTEGER, DIMENSION(:), ALLOCATABLE :: grididmatrix0 !Array containing GridIDs in SiteSelect in the original order
149 REAL(kind(1d0)), DIMENSION(:, :), ALLOCATABLE :: surfacechar !Array for surface characteristics
150 REAL(kind(1d0)), DIMENSION(:, :, :), ALLOCATABLE :: metforcingdata !Array for meteorological forcing data
151 REAL(kind(1d0)), DIMENSION(:, :), ALLOCATABLE :: metforcingdata_grid !Array for meteorological forcing data of one grid used by AnOHM
152 REAL(kind(1d0)), DIMENSION(:, :, :), ALLOCATABLE :: estmforcingdata !Array for ESTM forcing data
153 REAL(kind(1d0)), DIMENSION(:, :), ALLOCATABLE :: modeldailystate !DailyState array
154 REAL(kind(1d0)), DIMENSION(:), ALLOCATABLE :: dailystatefirstopen
155 REAL(kind(1d0)), DIMENSION(:, :, :), ALLOCATABLE :: modeloutputdata !Output data matrix
156 REAL(kind(1d0)), DIMENSION(:, :, :), ALLOCATABLE :: dataoutsuews !Main data output matrix
157 REAL(kind(1d0)), DIMENSION(:, :, :), ALLOCATABLE :: dataoutrsl !Main data output matrix
158 REAL(kind(1d0)), DIMENSION(:, :, :), ALLOCATABLE :: dataoutbl !CBL output matrix
159 REAL(kind(1d0)), DIMENSION(:, :, :), ALLOCATABLE :: dataoutsolweig !SOLWEIG POI output matrix
160 REAL(kind(1d0)), DIMENSION(:, :, :), ALLOCATABLE :: dataoutbeers ! BEERS output matrix
161 REAL(kind(1d0)), DIMENSION(:, :, :), ALLOCATABLE :: dataoutdebug !debugging info matrix
162 REAL(kind(1d0)), DIMENSION(:, :, :), ALLOCATABLE :: dataoutspartacus !SPARTACUS output matrix
163 REAL(kind(1d0)), DIMENSION(:, :, :), ALLOCATABLE :: dataoutsnow !Main data output matrix
164 REAL(kind(1d0)), DIMENSION(:, :, :), ALLOCATABLE :: dataoutestm !ESTM output matrix
165 REAL(kind(1d0)), DIMENSION(:, :, :), ALLOCATABLE :: dataoutehc !EHC output matrix
166 REAL(kind(1d0)), DIMENSION(:, :, :), ALLOCATABLE :: dataoutdailystate !DailyState output array
167
168 ! -------- output per each timestep ----------------------------------------------------------------
169 REAL(kind(1d0)), DIMENSION(5) :: datetimeline ! output of datetime info per each timestep
170 REAL(kind(1d0)), DIMENSION(ncolumnsDataOutSUEWS - 5) :: dataoutlinesuews ! output of SUEWS results per each timestep
171 REAL(kind(1d0)), DIMENSION(ncolumnsDataOutSnow - 5) :: dataoutlinesnow ! output of snow results per each timestep
172 ! REAL(KIND(1D0)), DIMENSION(ncolumnsDataOutRSL - 5) ::dataOutLineRSL ! output of snow results per each timestep
173 REAL(kind(1d0)), DIMENSION(ncolumnsDataOutRSL - 5 + 12) :: dataoutlinersl ! output of snow results per each timestep
174 REAL(kind(1d0)), DIMENSION(ncolumnsdataOutSOLWEIG - 5) :: dataoutlinesolweig ! output of snow results per each timestep
175 REAL(kind(1d0)), DIMENSION(ncolumnsDataOutBEERS - 5) :: dataoutlinebeers ! output of snow results per each timestep
176 REAL(kind(1d0)), DIMENSION(ncolumnsDataOutDebug) :: dataoutlinedebug ! output line for debugging info
177 REAL(kind(1d0)), DIMENSION(ncolumnsDataOutSPARTACUS) :: dataoutlinespartacus ! output line for SPARTACUS per each timestep (1hr?)
178 REAL(kind(1d0)), DIMENSION(ncolumnsDataOutDailyState - 5) :: dailystateline ! output of DailyState results per each timestep
179
180 REAL(kind(1d0)), DIMENSION(:, :), ALLOCATABLE :: metfordisagg !Array for original met forcing data (for disaggregation)
181 REAL(kind(1d0)), DIMENSION(:), ALLOCATABLE :: metfordisaggprev, metfordisaggnext !Stores last and next row of met data
182
183 REAL(kind(1d0)), DIMENSION(:, :), ALLOCATABLE :: estmfordisagg !Array for original ESTM forcing data (for disaggregation)
184 REAL(kind(1d0)), DIMENSION(:), ALLOCATABLE :: estmfordisaggprev, estmfordisaggnext !Stores last and next row of ESTM data
185
186 ! ---- Define array for hourly profiles interpolated to tstep ----------------------------------
187 ! REAL(KIND(1d0)),DIMENSION(:,:,:),ALLOCATABLE:: TstepProfiles
188 ! REAL(KIND(1d0)),DIMENSION(:,:), ALLOCATABLE:: AHProf_tstep
189 ! REAL(KIND(1d0)),DIMENSION(:,:), ALLOCATABLE:: WUProfM_tstep
190 ! REAL(KIND(1d0)),DIMENSION(:,:), ALLOCATABLE:: WUProfA_tstep
191 ! REAL(KIND(1d0)),DIMENSION(:,:), ALLOCATABLE:: HumActivity_tstep
192 ! REAL(KIND(1d0)),DIMENSION(:,:), ALLOCATABLE:: TraffProf_tstep
193 ! REAL(KIND(1d0)),DIMENSION(:,:), ALLOCATABLE:: PopProf_tstep
194
195 REAL(kind(1d0)), DIMENSION(0:23, 2) :: ahprof_24hr !Anthropogenic heat profiles for (1)weekdays / (2)weekends
196 REAL(kind(1d0)), DIMENSION(0:23, 2) :: humactivity_24hr !Human actvity profiles for (1)weekdays / (2)weekends
197 REAL(kind(1d0)), DIMENSION(0:23, 2) :: traffprof_24hr !Traffic profiles for (1)weekdays / (2)weekends
198 REAL(kind(1d0)), DIMENSION(0:23, 2) :: popprof_24hr !Population profiles for (1)weekdays / (2)weekends
199 REAL(kind(1d0)), DIMENSION(0:23, 2) :: wuprofm_24hr !Hourly profiles for water use (manual irrigation)
200 REAL(kind(1d0)), DIMENSION(0:23, 2) :: wuprofa_24hr !Hourly profiles for water use (automatic irrigation)
201
202 ! ---- For ESTM
203 REAL(kind(1d0)), ALLOCATABLE, DIMENSION(:, :) :: ts5mindata !surface temperature input data
204 REAL(kind(1d0)), ALLOCATABLE, DIMENSION(:) :: ts5mindata_ir !=ts5mindata(ir,:), ts input for the current timestep
205 REAL(kind(1d0)), ALLOCATABLE, DIMENSION(:) :: tair24hr
206 REAL(kind(1d0)), DIMENSION(ncolumnsDataOutESTM - 5) :: dataoutlineestm !ESTM output for the current timestep and grid
207
208 ! ---- For ESTM_ext
209 REAL(kind(1d0)), DIMENSION(ncolumnsDataOutEHC - 5) :: dataoutlineehc !ESTM output for the current timestep and grid
210
211 ! Column numbers for TstepProfiles
212 INTEGER :: ctp_enusewd = 1, &
213 ctp_enusewe = 2, &
214 ctp_wumanuwd = 3, &
215 ctp_wumanuwe = 4, &
216 ctp_wuautowd = 5, &
217 ctp_wuautowe = 6, &
218 ctp_snowcwd = 7, &
219 ctp_snowcwe = 8, &
220 ctp_humactivitywd = 9, &
221 ctp_humactivitywe = 10, &
222 ctp_traffprofwd = 11, &
223 ctp_traffprofwe = 12, &
224 ctp_popprofwd = 13, &
225 ctp_popprofwe = 14
226 !-----------------------------------------------------------------------------------------------
227
228 ! ---- Water balance for each surface ---------------------------------------------------------
229 !These variables are expressed as depths [mm] over each surface(is); the depth therefore varies with sfr_surf(is)
230 REAL(kind(1d0)), DIMENSION(nsurf) :: addwater !Water from other surfaces (WGWaterDist in SUEWS_ReDistributeWater.f95) [mm]
231 REAL(kind(1d0)), DIMENSION(nsurf) :: addwaterrunoff !Fraction of water going to runoff/sub-surface soil (WGWaterDist) [-]
232 ! N.B. this is not an amount; drain(is)*AddWaterRunoff(is) is the amount [mm]
233 REAL(kind(1d0)), DIMENSION(nsurf) :: chang !Change in state [mm]
234 REAL(kind(1d0)), DIMENSION(nsurf) :: drain !Drainage of each surface type [mm]
235 REAL(kind(1d0)), DIMENSION(nsurf) :: evap !Evaporation from each surface type [mm]
236 REAL(kind(1d0)), DIMENSION(nsurf) :: runoff !Runoff from each surface type [mm]
237 REAL(kind(1d0)), DIMENSION(nsurf) :: runoffsoil !Soil runoff from each soil sub-surface [mm]
238 REAL(kind(1d0)), DIMENSION(nsurf) :: smd_nsurf !Soil moisture deficit of each sub-surface [mm]
239 REAL(kind(1d0)), DIMENSION(nsurf) :: smd_nsurfout !Soil moisture deficit of each sub-surface (written out) [mm]
240 REAL(kind(1d0)), DIMENSION(nsurf) :: soilstore_surf !Soil moisture of each surface type [mm]
241 REAL(kind(1d0)), DIMENSION(nsurf) :: soilstoreold !Soil moisture of each surface type from previous timestep [mm]
242 REAL(kind(1d0)), DIMENSION(nsurf) :: state_surf !Wetness status of each surface type [mm]
243 REAL(kind(1d0)), DIMENSION(nsurf) :: stateout !Wetness status of each surface type (written out) [mm]
244 REAL(kind(1d0)), DIMENSION(nsurf) :: stateold !Wetness status of each surface type from previous timestep [mm]
245 REAL(kind(1d0)), DIMENSION(nsurf) :: rss_nsurf !Surface resistance after wet/partially wet adjustment for each surface
246
247 REAL(kind(1d0)), DIMENSION(nsurf) :: wetthresh_surf !When state_id > WetThresh, RS=0 limit in SUEWS_evap [mm] (specified in input files)
248 REAL(kind(1d0)), DIMENSION(nsurf) :: statelimit_surf !Limit for state_id of each surface type [mm] (specified in input files)
249
250 REAL(kind(1d0)), DIMENSION(1) :: waterdepth !Depth of open water
251
252 ! ---- Soil characteristics specified in input files -------------------------------------------
253 REAL(kind(1d0)), DIMENSION(nsurf) :: sathydraulicconduct !Saturated hydraulic conductivity for each soil subsurface [mm s-1]
254 REAL(kind(1d0)), DIMENSION(nsurf) :: soildepth !Depth of sub-surface soil store for each surface [mm]
255 REAL(kind(1d0)), DIMENSION(nsurf) :: soilstorecap_surf !Capacity of soil store for each surface [mm]
256
257 ! ---- Within-grid water distribution matrix ---------------------------------------------------
258 REAL(kind(1d0)), DIMENSION(nsurf + 1, nsurf - 1) :: waterdist !Within-grid water distribution to other surfaces and runoff/soil store [-]
259
260 ! ---- Drainage characteristics ----------------------------------------------------------------
261 REAL(kind(1d0)), DIMENSION(6, nsurf) :: storedrainprm !Storage capacities and drainage equation info for each surface
262 ! 1 - min storage capacity [mm]
263 ! 2 - Drainage equation to use
264 ! 3 - Drainage coeff 1 [units depend on choice of eqn]
265 ! 4 - Drainage coeff 2 [units depend on choice of eqn]
266 ! 5 - max storage capacity [mm]
267 ! 6 - current storage capacity [mm]
268 !-----------------------------------------------------------------------------------------------
269
270 ! ---- Define arrays at daily timestep ---------------------------------------------------------
271 INTEGER, PARAMETER :: ndays = 366 !Max no. days in a year used to specify size of daily arrays
272 !! Could delete NDays and allocate these elsewhere once no. days is known
273 ! REAL(KIND(1d0)),DIMENSION( 0:ndays, 5):: GDD !Growing Degree Days (see SUEWS_DailyState.f95)
274 ! REAL(KIND(1d0)),DIMENSION(-4:ndays, 6):: HDD !Heating Degree Days (see SUEWS_DailyState.f95)
275 ! REAL(KIND(1d0)),DIMENSION( 0:ndays, 9):: WUDay !Daily water use for EveTr, DecTr, Grass [mm] (see SUEWS_DailyState.f95)
276 ! REAL(KIND(1d0)),DIMENSION(-4:ndays, nvegsurf):: LAI !LAI for each veg surface [m2 m-2]
277
278 REAL(kind(1d0)), DIMENSION(nvegsurf) :: gdd_id, gdd_id_prev !Growing Degree Days (see SUEWS_DailyState.f95)
279 REAL(kind(1d0)), DIMENSION(nvegsurf) :: sdd_id !Growing Degree Days (see SUEWS_DailyState.f95)
280 REAL(kind(1d0)) :: tmin_id, tmax_id, lenday_id
281 REAL(kind(1d0)), DIMENSION(12) :: hdd_id
282 REAL(kind(1d0)), DIMENSION(9) :: wuday_id, wuday_id_prev !Daily water use for EveTr, DecTr, Grass [mm] (see SUEWS_DailyState.f95)
283 REAL(kind(1d0)), DIMENSION(nvegsurf) :: lai_id, lai_id_prev !LAI for each veg surface [m2 m-2]
284
285 ! Seasonality of deciduous trees accounted for by the following variables which change with time
286 ! REAL(KIND(1d0)),DIMENSION( 0:ndays):: DecidCap !Storage capacity of deciduous trees [mm]
287 ! REAL(KIND(1d0)),DIMENSION( 0:ndays):: porosity !Porosity of deciduous trees [-]
288 ! REAL(KIND(1d0)),DIMENSION( 0:ndays):: albDecTr !Albedo of deciduous trees [-]
289 ! REAL(KIND(1d0)),DIMENSION( 0:ndays):: albEveTr !Albedo of evergreen trees [-]
290 ! REAL(KIND(1d0)),DIMENSION( 0:ndays):: albGrass !Albedo of grass[-]
291
292 REAL(kind(1d0)) :: albmin_dectr, & !Min albedo for deciduous trees [-]
293 albmax_dectr, & !Max albedo for deciduous trees [-]
294 capmin_dec, & !Min storage capacity for deciduous trees [mm] (from input information)
295 capmax_dec, & !Max storage capacity for deciduous trees [mm] (from input information)
296 pormin_dec, & !Min porosity for deciduous trees
297 pormax_dec, & !Max porosity for deciduous trees
298 albmin_evetr, & !Min albedo for evergreen trees [-]
299 albmax_evetr, & !Max albedo for evergreen trees [-]
300 albmin_grass, & !Min albedo for grass [-]
301 albmax_grass !Max albedo for grass [-]
302
303 ! Replicate arrays needed for DailyState, adding dimension to identify the grid, HCW 27 Nov 2014
304 !! Could delete MaxNumberOfGrids and allocate these elsewhere once NumberOfGrids is known
305 ! REAL(KIND(1d0)),DIMENSION( 0:ndays, 5,MaxNumberOfGrids):: GDD_grids
306 ! REAL(KIND(1d0)),DIMENSION(-4:ndays, 6,MaxNumberOfGrids):: HDD_grids
307 ! REAL(KIND(1d0)),DIMENSION( 0:ndays, 9,MaxNumberOfGrids):: WUDay_grids
308 ! REAL(KIND(1d0)),DIMENSION(-4:ndays, nvegsurf,MaxNumberOfGrids):: LAI_grids
309
310 REAL(kind(1d0)), DIMENSION(nvegsurf, MaxNumberOfGrids) :: gdd_id_grids
311 REAL(kind(1d0)), DIMENSION(nvegsurf, MaxNumberOfGrids) :: sdd_id_grids
312 REAL(kind(1d0)), DIMENSION(MaxNumberOfGrids) :: tmin_id_grids
313 REAL(kind(1d0)), DIMENSION(MaxNumberOfGrids) :: tmax_id_grids
314 REAL(kind(1d0)), DIMENSION(MaxNumberOfGrids) :: lenday_id_grids
315 REAL(kind(1d0)), DIMENSION(12, MaxNumberOfGrids) :: hdd_id_grids
316 REAL(kind(1d0)), DIMENSION(9, MaxNumberOfGrids) :: wuday_id_grids
317 REAL(kind(1d0)), DIMENSION(nvegsurf, MaxNumberOfGrids) :: lai_id_grids
318
319 ! REAL(KIND(1d0)),DIMENSION( 0:ndays,MaxNumberOfGrids):: albDecTr_grids
320 ! REAL(KIND(1d0)),DIMENSION( 0:ndays,MaxNumberOfGrids):: DecidCap_grids
321 ! REAL(KIND(1d0)),DIMENSION( 0:ndays,MaxNumberOfGrids):: porosity_grids
322 !
323 ! REAL(KIND(1d0)),DIMENSION( 0:ndays,MaxNumberOfGrids):: albEveTr_grids
324 ! REAL(KIND(1d0)),DIMENSION( 0:ndays,MaxNumberOfGrids):: albGrass_grids
325
326 REAL(kind(1d0)), DIMENSION(MaxNumberOfGrids) :: decidcap_id_grids
327 REAL(kind(1d0)), DIMENSION(MaxNumberOfGrids) :: albdectr_id_grids
328 REAL(kind(1d0)), DIMENSION(MaxNumberOfGrids) :: albevetr_id_grids
329 REAL(kind(1d0)), DIMENSION(MaxNumberOfGrids) :: albgrass_id_grids
330 REAL(kind(1d0)), DIMENSION(MaxNumberOfGrids) :: porosity_id_grids
331
332 REAL(kind(1d0)) :: decidcap_id
333 REAL(kind(1d0)) :: albdectr_id
334 REAL(kind(1d0)) :: albevetr_id
335 REAL(kind(1d0)) :: albgrass_id
336 REAL(kind(1d0)) :: porosity_id
337
338 ! AnOHM related: added by TS 01 Mar 2016
339 ! store AnOHM coef. of all sfc. by TS 09 Apr 2016
340 ! REAL(KIND(1d0)),DIMENSION( 0:ndays,MaxNumberOfGrids):: Bo_grids
341 ! REAL(KIND(1d0)),DIMENSION( 0:ndays,MaxNumberOfGrids):: mAH_grids
342 ! REAL(KIND(1d0)),DIMENSION( 0:ndays,MaxNumberOfGrids):: a1AnOHM_grids
343 ! REAL(KIND(1d0)),DIMENSION( 0:ndays,MaxNumberOfGrids):: a2AnOHM_grids
344 ! REAL(KIND(1d0)),DIMENSION( 0:ndays,MaxNumberOfGrids):: a3AnOHM_grids
345 ! REAL(KIND(1d0)),DIMENSION( 0:ndays,MaxNumberOfGrids,nsurf,3):: a123AnOHM_gs
346 REAL(kind(1d0)) :: xbo ! daily Bowen ratio
347 !! store water states for AnOHM iteration, by TS 13 Apr 2016
348 !REAL(KIND(1d0)),DIMENSION(0:ndays,MaxNumberOfGrids,nsurf):: soilmoistDay !Soil moisture of each surface type at the end of a day [mm], 13 Apr 2016 TS
349 !REAL(KIND(1d0)),DIMENSION(0:ndays,MaxNumberOfGrids,nsurf):: stateDay !Wetness status of each existing surface type at the end of a day [mm], 13 Apr 2016 TS
350
351 ! Day of week, month and season (used for water use and energy use calculations, and in OHM)
352 ! INTEGER,DIMENSION(0:ndays,3)::DayofWeek !1 - day of week; 2 - month; 3 - season
353 !-----------------------------------------------------------------------------------------------
354
355 ! --- Vegetation phenology ---------------------------------------------------------------------
356 ! Parameters provided in input information for each vegetation surface (SUEWS_Veg.txt)
357 REAL(kind(1d0)), DIMENSION(nvegsurf) :: baset !Base temperature for growing degree days [degC]
358 REAL(kind(1d0)), DIMENSION(nvegsurf) :: basete !Base temperature for senescence degree days [degC]
359 REAL(kind(1d0)), DIMENSION(nvegsurf) :: gddfull !Growing degree days needed for full capacity [degC]
360 REAL(kind(1d0)), DIMENSION(nvegsurf) :: sddfull !Senescence degree days needed to initiate leaf off [degC]
361 REAL(kind(1d0)), DIMENSION(nvegsurf) :: laimin !Min LAI [m2 m-2]
362 REAL(kind(1d0)), DIMENSION(nvegsurf) :: laimax !Max LAI [m2 m-2]
363 REAL(kind(1d0)), DIMENSION(nvegsurf) :: maxconductance !Max conductance [mm s-1]
364 REAL(kind(1d0)), DIMENSION(4, nvegsurf) :: laipower !Coeffs for LAI equation: 1,2 - leaf growth; 3,4 - leaf off
365 !! N.B. currently DecTr only, although input provided for all veg types
366 INTEGER, DIMENSION(nvegsurf) :: laitype !LAI equation to use: original (0) or new (1)
367 !real(kind(1d0))::GDDmax,SDDMax ! Max GDD and SDD across all veg types [degC] (removed HCW 03 Mar 2015)
368
369 REAL(kind(1d0)), DIMENSION(nvegsurf) :: biogenco2code, & !Biogenic CO2 Code for SUEWS_BiogenCO2.txt
370 alpha_bioco2, &
371 beta_bioco2, &
372 theta_bioco2, &
373 alpha_enh_bioco2, &
374 beta_enh_bioco2, &
375 resp_a, &
376 resp_b, &
377 min_res_bioco2
378
379 !No longer used (removed HCW 27 Nov 2014)
380 !real(kind(1d0)),dimension(0:23)::runT ! running average T for the day
381 !real(kind(1d0)),dimension(0:23)::runP ! running total Precip for the day
382 !real (kind(1d0))::avT_h, totP_h ! daily running average Temp, Total precip
383 !-----------------------------------------------------------------------------------------------
384
385 ! ---- Variables related to NARP ---------------------------------------------------------------
386 REAL(kind(1d0)), DIMENSION(nsurf) :: alb !Albedo of each surface type [-]
387 REAL(kind(1d0)), DIMENSION(nsurf) :: emis !Emissivity of each surface type [-]
388
389 REAL(kind(1d0)) :: bulkalbedo !Bulk albedo for whole surface (areally-weighted)
390
391 ! Radiation balance components for different surfaces
392 REAL(kind(1d0)), DIMENSION(nsurf) :: tsurf_ind, & !Surface temperature for each surface [degC]
393 tsurf_ind_snow, & !Snow surface temperature for each surface [degC]
394 tsurf_ind_nosnow
395 REAL(kind(1d0)), DIMENSION(nsurf) :: kup_ind, & !Outgoing shortwave radiation for each surface [W m-2]
396 kup_ind_snow, & !Outgoing shortwave radiation for each snow surface [W m-2]
397 kup_ind_nosnow
398 REAL(kind(1d0)), DIMENSION(nsurf) :: lup_ind, & !Outgoing longwave radiation for each surface [W m-2]
399 lup_ind_snow, & !Outgoing longwave radiation for each snow surface [W m-2]
400 lup_ind_nosnow
401 REAL(kind(1d0)), DIMENSION(nsurf) :: qn1_ind, & !Net all-wave radiation for each surface [W m-2]
402 qn1_ind_snow, & !Net all-wave radiation for each snow surface [W m-2]
403 qn1_ind_nosnow
404
405 ! ---- NARP-specific parameters ----------------------------------------------------------------
406 REAL(kind(1d0)) :: narp_lat, narp_long, narp_year, narp_tz, &
407 narp_alb_snow, narp_emis_snow, narp_trans_site
408 REAL(kind(1d0)) :: narp_g(365) !!QUESTION: Should this be NDays? - HCW
409 INTEGER :: narp_nperhour
410 REAL(kind(1d0)), ALLOCATABLE :: narp_kdown_hr(:)
411 ! Constants required
412 REAL(kind(1d0)), PARAMETER :: deg2rad = 0.017453292, &
413 rad2deg = 57.29577951, &
414 sigma_sb = 5.67e-8
415 !-----------------------------------------------------------------------------------------------
416
417 ! ---- OHM coefficients ------------------------------------------------------------------------
418 REAL(kind(1d0)), DIMENSION(nsurf + 1, 4, 3) :: ohm_coef !Array for OHM coefficients
419 REAL(kind(1d0)), DIMENSION(nsurf + 1) :: ohm_threshsw, ohm_threshwd !Arrays for OHM thresholds
420 REAL(kind(1d0)) :: a1, a2, a3 !OHM coefficients, a1 [-]; a2 [h]; a3 [W m-2]
421 ! REAL(KIND(1d0)),DIMENSION(:,:),ALLOCATABLE:: qn1_store, qn1_S_store !Q* values for each timestep over previous hr (_S for snow)
422 ! REAL(KIND(1d0)),DIMENSION(:,:),ALLOCATABLE:: qn1_av_store, qn1_S_av_store !Hourly Q* values for each timestep over previous 2 hr
423 ! REAL(KIND(1d0)),DIMENSION(:),ALLOCATABLE::qn1_store_grid,qn1_av_store_grid
424 ! REAL(KIND(1d0)),DIMENSION(:),ALLOCATABLE::qn1_S_store_grid,qn1_S_av_store_grid
425
426 REAL(kind(1d0)), DIMENSION(:), ALLOCATABLE :: tair_av_grids
427 REAL(kind(1d0)), DIMENSION(:), ALLOCATABLE :: qn_av_grids, qn_s_av_grids
428 REAL(kind(1d0)), DIMENSION(:), ALLOCATABLE :: dqndt_grids, dqnsdt_grids
429 REAL(kind(1d0)) :: qn_av, dqndt
430 REAL(kind(1d0)) :: tair_av
431 REAL(kind(1d0)) :: qn_s_av, dqnsdt
432
433 !-----------------------------------------------------------------------------------------------
434
435 ! ---- Snow-related variables ------------------------------------------------------------------
436 REAL(kind(1d0)), DIMENSION(nsurf) :: changsnow, & !Change in snowpack in mm
437 maxsnowvol, & !! Maximum snow volume
438 snowwater, & !!Liquid water in the snow pack of ith surface
439 ev_snow, & !!Evaporation from snowpack in mm
440 mw_ind, & !Melt water from individual surface in mm
441 mw_indday, & !!Melt water per day from each surface type in m3
442 runoffsnow, & !!Runoff from snowpack in mm and in m3
443 snowdens, & !Density of snow
444 snowfrac, & !!Surface fraction of snow cover
445 icefrac, &
446 snowinit, &
447 snowdepth, & !Depth of snow in cm
448 snowtosurf, & !Meltwater flowing from snow to surface
449 volswe, &
450 statefraction, & !Fraction of state that can freeze
451 freezmelt, & !Amount of freezing meltwater in mm for the ith surface area
452 qm_freezstate, & !Heat by freezing of surface state
453 freezstate, & !Amount of freezing state in mm for the ith surface area
454 freezstatevol, &
455 qm_melt, & !Heat consumption by snow melt
456 qm_rain, & !Heat by rain falling on snow
457 rainonsnow, & !Liquid precipitation falling on snow ()
458 snowpacklimit, &
459 deltaqi
460
461 REAL(kind(1d0)), DIMENSION(nsurf, MaxNumberOfGrids) :: icefrac_grids
462
463 REAL(kind(1d0)), DIMENSION(nsurf) :: snowpack, & !Amount of snow on each surface in mm
464 snowpackold
465 INTEGER, DIMENSION(nsurf) :: heig, & !snow layer height
466 snowcoverforms, &
467 snowcalcswitch = 0 !Defines if snow related balance is made
468 !-----------------------------------------------------------------------------------------------
469
470 ! ---- Grid connections ------------------------------------------------------------------------
471 !! Grid connections needs coding, currently no water transfer between grids
472 ! Added HCW 14 Nov 2014
473 INTEGER, PARAMETER :: nconns = 8 !Number of grids for between-grid connections
474 REAL(kind(1d0)), DIMENSION(nconns) :: gridtofrac !Fraction of water moving to the grid specified in GridTo [-]
475 REAL(kind(1d0)), DIMENSION(nconns) :: gridto !Grid that water moves to
476 !!character(len=15),dimension(2,MaxNumberOfGrids)::GridConnections !List of different grid corrections
477 !!real (kind(1d0)),dimension(MaxNumberOfGrids):: GridConnectionsFrac !Fraction of water moving between the different grids
478 !-----------------------------------------------------------------------------------------------
479
480 ! ---- AnOHM related variable, added by TS, 01 Mar 2016 ---------------------------------------------------------------
481 REAL(kind(1d0)), DIMENSION(MaxNumberOfGrids) :: a1anohm, a2anohm, a3anohm ! OHM coefficients, a1 [-]; a2 [h]; a3 [W m-2]
482 REAL(kind(1d0)), DIMENSION(MaxNumberOfGrids) :: mahanohm ! daily mean AH [W m-2]
483 REAL(kind(1d0)), DIMENSION(MaxNumberOfGrids) :: boanohmstart ! initial Bo for interation [-]
484 REAL(kind(1d0)), DIMENSION(MaxNumberOfGrids) :: boanohmend ! final Bo for interation [-]
485 REAL(kind(1d0)), DIMENSION(nsurf) :: cpanohm ! heat capacity [J m-3 K-1]
486 REAL(kind(1d0)), DIMENSION(nsurf) :: kkanohm ! thermal conductivity [W m-1 K-1]
487 REAL(kind(1d0)), DIMENSION(nsurf) :: chanohm ! bulk transfer coef. [-]
488 !-----------------------------------------------------------------------------------------------
489
490 !------------------- ESTM variables for SUEWS surfaces---------------------------------------------------------
491 INTEGER :: nlayer !Number of vertical layers
492 INTEGER, DIMENSION(:), ALLOCATABLE :: nlayer_grids !Number of vertical layers for each grid
493
494 ! roof
495 REAL(kind(1d0)), DIMENSION(:), ALLOCATABLE :: sfr_roof
496 REAL(kind(1d0)), DIMENSION(:), ALLOCATABLE :: tsfc_roof
497 REAL(kind(1d0)), DIMENSION(:, :), ALLOCATABLE :: k_roof
498 REAL(kind(1d0)), DIMENSION(:, :), ALLOCATABLE :: cp_roof
499 REAL(kind(1d0)), DIMENSION(:, :), ALLOCATABLE :: dz_roof
500 REAL(kind(1d0)), DIMENSION(:), ALLOCATABLE :: tin_roof
501 REAL(kind(1d0)), DIMENSION(:), ALLOCATABLE :: alb_roof
502 REAL(kind(1d0)), DIMENSION(:), ALLOCATABLE :: emis_roof
503 REAL(kind(1d0)), DIMENSION(:), ALLOCATABLE :: state_roof
504 REAL(kind(1d0)), DIMENSION(:), ALLOCATABLE :: statelimit_roof
505 REAL(kind(1d0)), DIMENSION(:), ALLOCATABLE :: wetthresh_roof
506 REAL(kind(1d0)), DIMENSION(:), ALLOCATABLE :: soilstore_roof
507 REAL(kind(1d0)), DIMENSION(:), ALLOCATABLE :: soilstorecap_roof
508 REAL(kind(1d0)), DIMENSION(:, :), ALLOCATABLE :: temp_roof
509 ! larger container arrays for different grids
510 REAL(kind(1d0)), DIMENSION(:, :), ALLOCATABLE :: tsfc_roof_grids
511 REAL(kind(1d0)), DIMENSION(:, :), ALLOCATABLE :: sfr_roof_grids
512 REAL(kind(1d0)), DIMENSION(:, :, :), ALLOCATABLE :: k_roof_grids
513 REAL(kind(1d0)), DIMENSION(:, :, :), ALLOCATABLE :: cp_roof_grids
514 REAL(kind(1d0)), DIMENSION(:, :, :), ALLOCATABLE :: dz_roof_grids
515 REAL(kind(1d0)), DIMENSION(:, :), ALLOCATABLE :: tin_roof_grids
516 REAL(kind(1d0)), DIMENSION(:, :), ALLOCATABLE :: alb_roof_grids
517 REAL(kind(1d0)), DIMENSION(:, :), ALLOCATABLE :: emis_roof_grids
518 REAL(kind(1d0)), DIMENSION(:, :), ALLOCATABLE :: state_roof_grids
519 REAL(kind(1d0)), DIMENSION(:, :), ALLOCATABLE :: statelimit_roof_grids
520 REAL(kind(1d0)), DIMENSION(:, :), ALLOCATABLE :: wetthresh_roof_grids
521 REAL(kind(1d0)), DIMENSION(:, :), ALLOCATABLE :: soilstore_roof_grids
522 REAL(kind(1d0)), DIMENSION(:, :), ALLOCATABLE :: soilstorecap_roof_grids
523 REAL(kind(1d0)), DIMENSION(:, :, :), ALLOCATABLE :: temp_roof_grids
524
525 ! wall
526 REAL(kind(1d0)), DIMENSION(:), ALLOCATABLE :: sfr_wall
527 REAL(kind(1d0)), DIMENSION(:), ALLOCATABLE :: tsfc_wall
528 REAL(kind(1d0)), DIMENSION(:, :), ALLOCATABLE :: k_wall
529 REAL(kind(1d0)), DIMENSION(:, :), ALLOCATABLE :: cp_wall
530 REAL(kind(1d0)), DIMENSION(:, :), ALLOCATABLE :: dz_wall
531 REAL(kind(1d0)), DIMENSION(:), ALLOCATABLE :: tin_wall
532 REAL(kind(1d0)), DIMENSION(:), ALLOCATABLE :: alb_wall
533 REAL(kind(1d0)), DIMENSION(:), ALLOCATABLE :: emis_wall
534 REAL(kind(1d0)), DIMENSION(:), ALLOCATABLE :: state_wall
535 REAL(kind(1d0)), DIMENSION(:), ALLOCATABLE :: statelimit_wall
536 REAL(kind(1d0)), DIMENSION(:), ALLOCATABLE :: wetthresh_wall
537 REAL(kind(1d0)), DIMENSION(:), ALLOCATABLE :: soilstore_wall
538 REAL(kind(1d0)), DIMENSION(:), ALLOCATABLE :: soilstorecap_wall
539 REAL(kind(1d0)), DIMENSION(:, :), ALLOCATABLE :: temp_wall
540 ! larger container arrays for different grids
541 REAL(kind(1d0)), DIMENSION(:, :), ALLOCATABLE :: tsfc_wall_grids
542 REAL(kind(1d0)), DIMENSION(:, :), ALLOCATABLE :: sfr_wall_grids
543 REAL(kind(1d0)), DIMENSION(:, :, :), ALLOCATABLE :: k_wall_grids
544 REAL(kind(1d0)), DIMENSION(:, :, :), ALLOCATABLE :: cp_wall_grids
545 REAL(kind(1d0)), DIMENSION(:, :, :), ALLOCATABLE :: dz_wall_grids
546 REAL(kind(1d0)), DIMENSION(:, :), ALLOCATABLE :: tin_wall_grids
547 REAL(kind(1d0)), DIMENSION(:, :), ALLOCATABLE :: alb_wall_grids
548 REAL(kind(1d0)), DIMENSION(:, :), ALLOCATABLE :: emis_wall_grids
549 REAL(kind(1d0)), DIMENSION(:, :), ALLOCATABLE :: state_wall_grids
550 REAL(kind(1d0)), DIMENSION(:, :), ALLOCATABLE :: statelimit_wall_grids
551 REAL(kind(1d0)), DIMENSION(:, :), ALLOCATABLE :: wetthresh_wall_grids
552 REAL(kind(1d0)), DIMENSION(:, :), ALLOCATABLE :: soilstore_wall_grids
553 REAL(kind(1d0)), DIMENSION(:, :), ALLOCATABLE :: soilstorecap_wall_grids
554 REAL(kind(1d0)), DIMENSION(:, :, :), ALLOCATABLE :: temp_wall_grids
555
556 ! standard suews surfaces
557 ! INTEGER :: nsurf !Number of surf facets
558 ! REAL(KIND(1D0)), DIMENSION(:), ALLOCATABLE :: sfr_surf
559 REAL(kind(1d0)), DIMENSION(:), ALLOCATABLE :: tsfc_surf
560 REAL(kind(1d0)), DIMENSION(:, :), ALLOCATABLE :: k_surf
561 REAL(kind(1d0)), DIMENSION(:, :), ALLOCATABLE :: cp_surf
562 REAL(kind(1d0)), DIMENSION(:, :), ALLOCATABLE :: dz_surf
563 REAL(kind(1d0)), DIMENSION(:), ALLOCATABLE :: tin_surf
564 REAL(kind(1d0)), DIMENSION(:, :), ALLOCATABLE :: temp_surf
565 ! INTEGER :: nsurf_grids !Number of surf_grids facets
566 REAL(kind(1d0)), DIMENSION(:, :), ALLOCATABLE :: tsfc_surf_grids
567 REAL(kind(1d0)), DIMENSION(:, :, :), ALLOCATABLE :: k_surf_grids
568 REAL(kind(1d0)), DIMENSION(:, :, :), ALLOCATABLE :: cp_surf_grids
569 REAL(kind(1d0)), DIMENSION(:, :, :), ALLOCATABLE :: dz_surf_grids
570 REAL(kind(1d0)), DIMENSION(:, :), ALLOCATABLE :: tin_surf_grids
571 REAL(kind(1d0)), DIMENSION(:, :, :), ALLOCATABLE :: temp_surf_grids
572 !-----------------------------------------------------------------------------------------------
573
574 !------------------- SPARTACUS variables for SUEWS subsurfaces----------------------------------------------
575 ! INTEGER, PARAMETER :: JPRD = SELECTED_REAL_KIND(13,300) ! same as kind(1d0)
576 REAL(kind(1d0)), DIMENSION(:), ALLOCATABLE :: height
577 REAL(kind(1d0)), DIMENSION(:), ALLOCATABLE :: building_frac
578 REAL(kind(1d0)), DIMENSION(:), ALLOCATABLE :: veg_frac
579 REAL(kind(1d0)), DIMENSION(:), ALLOCATABLE :: building_scale
580 REAL(kind(1d0)), DIMENSION(:), ALLOCATABLE :: veg_scale
581 REAL(kind(1d0)), DIMENSION(:), ALLOCATABLE :: veg_ext
582 REAL(kind(1d0)), DIMENSION(:), ALLOCATABLE :: veg_fsd
583 REAL(kind(1d0)), DIMENSION(:), ALLOCATABLE :: veg_contact_fraction
584 ! REAL(KIND(1D0)), DIMENSION(:, :), ALLOCATABLE :: alb_roof
585 ! REAL(KIND(1D0)), DIMENSION(:, :), ALLOCATABLE :: alb_wall
586 REAL(kind(1d0)), DIMENSION(:, :), ALLOCATABLE :: roof_albedo_dir_mult_fact
587 REAL(kind(1d0)), DIMENSION(:, :), ALLOCATABLE :: wall_specular_frac
588 ! REAL(KIND(1D0)), DIMENSION(:, :), ALLOCATABLE :: emis_roof
589 ! REAL(KIND(1D0)), DIMENSION(:, :), ALLOCATABLE :: emis_wall
590
591 REAL(kind(1d0)), DIMENSION(:, :), ALLOCATABLE :: height_grids
592 REAL(kind(1d0)), DIMENSION(:, :), ALLOCATABLE :: building_frac_grids
593 REAL(kind(1d0)), DIMENSION(:, :), ALLOCATABLE :: veg_frac_grids
594 REAL(kind(1d0)), DIMENSION(:, :), ALLOCATABLE :: building_scale_grids
595 REAL(kind(1d0)), DIMENSION(:, :), ALLOCATABLE :: veg_scale_grids
596 REAL(kind(1d0)), DIMENSION(:, :), ALLOCATABLE :: veg_ext_grids
597 REAL(kind(1d0)), DIMENSION(:, :), ALLOCATABLE :: veg_fsd_grids
598 REAL(kind(1d0)), DIMENSION(:, :), ALLOCATABLE :: veg_contact_fraction_grids
599 REAL(kind(1d0)), DIMENSION(:, :, :), ALLOCATABLE :: roof_albedo_dir_mult_fact_grids
600 REAL(kind(1d0)), DIMENSION(:, :, :), ALLOCATABLE :: wall_specular_frac_grids
601
602 ! SPARTACUS input variables
603 INTEGER :: n_vegetation_region_urban, &
604 n_stream_sw_urban, n_stream_lw_urban
605 REAL(kind(1d0)) :: sw_dn_direct_frac, air_ext_sw, air_ssa_sw, &
606 veg_ssa_sw, air_ext_lw, air_ssa_lw, veg_ssa_lw, &
607 veg_fsd_const, veg_contact_fraction_const, &
608 ground_albedo_dir_mult_fact
609 LOGICAL :: use_sw_direct_albedo
610 !------------------- ESTM_ext variables for heterogeneous facets---------------------------------------------------------
611 REAL(kind(1d0)), DIMENSION(5, nsurfIncSnow) :: zsurf_suewssurfs, &
612 ksurf_suewssurfs, &
613 rsurf_suewssurfs
614
615 !-----------------------------------------------------------------------------------------------
616
617 !---------------------------------- Column numbers ---------------------------------------------
618
619 ! ---- Set column numbering for SurfaceChar ----------------------------------------------------
620 ! Columns 1:80 are the same as in SiteSelect.txt and defined below
621 INTEGER :: cc !Column counter
622 INTEGER, PARAMETER :: ccendsi = ncolumnssiteselect
623
624 ! Applicable to each surface
625 INTEGER, DIMENSION(nsurf) :: c_albmin = (/(cc, cc=ccendsi + 0*nsurf + 1, ccendsi + 0*nsurf + nsurf, 1)/) !Min. albedo
626 INTEGER, DIMENSION(nsurf) :: c_albmax = (/(cc, cc=ccendsi + 1*nsurf + 1, ccendsi + 1*nsurf + nsurf, 1)/) !Max. albedo
627 INTEGER, DIMENSION(nsurf) :: c_emis = (/(cc, cc=ccendsi + 2*nsurf + 1, ccendsi + 2*nsurf + nsurf, 1)/) !Emissivity
628 INTEGER, DIMENSION(nsurf) :: c_stormin = (/(cc, cc=ccendsi + 3*nsurf + 1, ccendsi + 3*nsurf + nsurf, 1)/) !Min. storage capacity (canopy)
629 INTEGER, DIMENSION(nsurf) :: c_stormax = (/(cc, cc=ccendsi + 4*nsurf + 1, ccendsi + 4*nsurf + nsurf, 1)/) !Max. storage capacity (canopy)
630 INTEGER, DIMENSION(nsurf) :: c_wetthresh = (/(cc, cc=ccendsi + 5*nsurf + 1, ccendsi + 5*nsurf + nsurf, 1)/) !Threshold for wet evaporation [mm]
631 INTEGER, DIMENSION(nsurf) :: c_statelimit = (/(cc, cc=ccendsi + 6*nsurf + 1, ccendsi + 6*nsurf + nsurf, 1)/) !Limit for surface state [mm]
632 INTEGER, DIMENSION(nsurf) :: c_dreq = (/(cc, cc=ccendsi + 7*nsurf + 1, ccendsi + 7*nsurf + nsurf, 1)/) !Drainage equation
633 INTEGER, DIMENSION(nsurf) :: c_drcoef1 = (/(cc, cc=ccendsi + 8*nsurf + 1, ccendsi + 8*nsurf + nsurf, 1)/) !Drainage coef. 1
634 INTEGER, DIMENSION(nsurf) :: c_drcoef2 = (/(cc, cc=ccendsi + 9*nsurf + 1, ccendsi + 9*nsurf + nsurf, 1)/) !Drainage coef. 2
635 INTEGER, DIMENSION(nsurf) :: c_soiltcode = (/(cc, cc=ccendsi + 10*nsurf + 1, ccendsi + 10*nsurf + nsurf, 1)/) !Soil type code
636
637 ! N.B. not included in SUEWS_Water.txt
638 INTEGER, DIMENSION(nsurf) :: c_snowlimpat = (/(cc, cc=ccendsi + 11*nsurf + 1, ccendsi + 11*nsurf + nsurf, 1)/) !Snow limit for patchiness
639 ! N.B. currently only in SUEWS_NonVeg.txt
640 INTEGER, DIMENSION(nsurf) :: c_snowlimrem = (/(cc, cc=ccendsi + 12*nsurf + 1, ccendsi + 12*nsurf + nsurf, 1)/) !Snow limit for removal
641 ! AnOHM TS
642 INTEGER, DIMENSION(nsurf) :: c_cpanohm = (/(cc, cc=ccendsi + 13*nsurf + 1, ccendsi + 13*nsurf + nsurf, 1)/) !heat capacity, AnOHM TS
643 INTEGER, DIMENSION(nsurf) :: c_kkanohm = (/(cc, cc=ccendsi + 14*nsurf + 1, ccendsi + 14*nsurf + nsurf, 1)/) !heat conductivity, AnOHM TS
644 INTEGER, DIMENSION(nsurf) :: c_chanohm = (/(cc, cc=ccendsi + 15*nsurf + 1, ccendsi + 15*nsurf + nsurf, 1)/) !bulk transfer coef., AnOHM TS
645
646 ! Find current column number
647 INTEGER, PARAMETER :: ccendi = (ccendsi + 15*nsurf + nsurf) !add columns for AnOHM, AnOHM TS
648
649 ! Applicable to vegetated surfaces only
650 INTEGER, DIMENSION(NVegSurf) :: c_baset = (/(cc, cc=ccendi + 0*nvegsurf + 1, ccendi + 0*nvegsurf + nvegsurf, 1)/) !Base temp. for leaf-on
651 INTEGER, DIMENSION(NVegSurf) :: c_basete = (/(cc, cc=ccendi + 1*nvegsurf + 1, ccendi + 1*nvegsurf + nvegsurf, 1)/) !Base temp. for leaf-off
652 INTEGER, DIMENSION(NVegSurf) :: c_gddfull = (/(cc, cc=ccendi + 2*nvegsurf + 1, ccendi + 2*nvegsurf + nvegsurf, 1)/) !GDD for full LAI
653 INTEGER, DIMENSION(NVegSurf) :: c_sddfull = (/(cc, cc=ccendi + 3*nvegsurf + 1, ccendi + 3*nvegsurf + nvegsurf, 1)/) !SDD for start of leaf-fall
654 INTEGER, DIMENSION(NVegSurf) :: c_laimin = (/(cc, cc=ccendi + 4*nvegsurf + 1, ccendi + 4*nvegsurf + nvegsurf, 1)/) !Min. LAI
655 INTEGER, DIMENSION(NVegSurf) :: c_laimax = (/(cc, cc=ccendi + 5*nvegsurf + 1, ccendi + 5*nvegsurf + nvegsurf, 1)/) !Max. LAI
656 INTEGER, DIMENSION(NVegSurf) :: c_porositymin = (/(cc, cc=ccendi + 6*nvegsurf + 1, ccendi + 6*nvegsurf + nvegsurf, 1)/) !Min. Porosity
657 INTEGER, DIMENSION(NVegSurf) :: c_porositymax = (/(cc, cc=ccendi + 7*nvegsurf + 1, ccendi + 7*nvegsurf + nvegsurf, 1)/) !Max. Porosity
658 INTEGER, DIMENSION(NVegSurf) :: c_gsmax = (/(cc, cc=ccendi + 8*nvegsurf + 1, ccendi + 8*nvegsurf + nvegsurf, 1)/) !Max. conductance
659 INTEGER, DIMENSION(NVegSurf) :: c_laieq = (/(cc, cc=ccendi + 9*nvegsurf + 1, ccendi + 9*nvegsurf + nvegsurf, 1)/) !LAI equation
660 INTEGER, DIMENSION(NVegSurf) :: c_leafgp1 = (/(cc, cc=ccendi + 10*nvegsurf + 1, ccendi + 10*nvegsurf + nvegsurf, 1)/) !Leaf growth power 1
661 INTEGER, DIMENSION(NVegSurf) :: c_leafgp2 = (/(cc, cc=ccendi + 11*nvegsurf + 1, ccendi + 11*nvegsurf + nvegsurf, 1)/) !Leaf growth power 2
662 INTEGER, DIMENSION(NVegSurf) :: c_leafop1 = (/(cc, cc=ccendi + 12*nvegsurf + 1, ccendi + 12*nvegsurf + nvegsurf, 1)/) !Leaf-off power 1
663 INTEGER, DIMENSION(NVegSurf) :: c_leafop2 = (/(cc, cc=ccendi + 13*nvegsurf + 1, ccendi + 13*nvegsurf + nvegsurf, 1)/) !Leaf-off power 2
664 INTEGER, DIMENSION(NVegSurf) :: c_biogenco2code = (/(cc, cc=ccendi + 14*nvegsurf + 1, ccendi + 14*nvegsurf + nvegsurf, 1)/) !Biogenic CO2 Code
665 ! Find current column number
666 INTEGER, PARAMETER :: ccendp = (ccendi + 14*nvegsurf + nvegsurf)
667
668 ! Applicable to water surfaces only
669 INTEGER :: c_waterdepth = (ccendp + 1)
670
671 ! Find current column number
672 INTEGER, PARAMETER :: ccendw = (ccendp + 1)
673
674 ! Applicable to snow only
675 INTEGER :: c_snowrmfactor = (ccendw + 1)
676 INTEGER :: c_snowtmfactor = (ccendw + 2)
677 INTEGER :: c_snowalbmin = (ccendw + 3)
678 INTEGER :: c_snowalbmax = (ccendw + 4)
679 !integer:: c_SnowAlb = (ccEndW+ 5)
680 INTEGER :: c_snowemis = (ccendw + 6)
681 INTEGER :: c_snowtau_a = (ccendw + 7)
682 INTEGER :: c_snowtau_f = (ccendw + 8)
683 INTEGER :: c_snowplimalb = (ccendw + 9)
684 INTEGER :: c_snowsdmin = (ccendw + 10)
685 INTEGER :: c_snowsdmax = (ccendw + 11)
686 INTEGER :: c_snowtau_r = (ccendw + 12)
687 INTEGER :: c_snowcrwmin = (ccendw + 13)
688 INTEGER :: c_snowcrwmax = (ccendw + 14)
689 INTEGER :: c_snowplimsnow = (ccendw + 15)
690
691 ! Find current column number
692 INTEGER, PARAMETER :: ccendsn = (ccendw + 15)
693
694 ! Soil information
695 INTEGER, DIMENSION(nsurf) :: c_soildepth = (/(cc, cc=ccendsn + 0*nsurf + 1, ccendsn + 0*nsurf + nsurf, 1)/) ! Volumetric SM capacity
696 INTEGER, DIMENSION(nsurf) :: c_soilstcap = (/(cc, cc=ccendsn + 1*nsurf + 1, ccendsn + 1*nsurf + nsurf, 1)/) ! Volumetric SM capacity
697 INTEGER, DIMENSION(nsurf) :: c_ksat = (/(cc, cc=ccendsn + 2*nsurf + 1, ccendsn + 2*nsurf + nsurf, 1)/) ! Saturated hydraulic conductivity
698 INTEGER, DIMENSION(nsurf) :: c_soildens = (/(cc, cc=ccendsn + 3*nsurf + 1, ccendsn + 3*nsurf + nsurf, 1)/) ! Soil Density
699 INTEGER, DIMENSION(nsurf) :: c_soilinfrate = (/(cc, cc=ccendsn + 4*nsurf + 1, ccendsn + 4*nsurf + nsurf, 1)/) ! Soil infiltration rate
700 INTEGER, DIMENSION(nsurf) :: c_obssmdepth = (/(cc, cc=ccendsn + 5*nsurf + 1, ccendsn + 5*nsurf + nsurf, 1)/) ! Depth of SM obs
701 INTEGER, DIMENSION(nsurf) :: c_obssmmax = (/(cc, cc=ccendsn + 6*nsurf + 1, ccendsn + 6*nsurf + nsurf, 1)/) ! Obs maximum SM [kg kg-1 OR m3 m-3]
702 INTEGER, DIMENSION(nsurf) :: c_obssnrfrac = (/(cc, cc=ccendsn + 7*nsurf + 1, ccendsn + 7*nsurf + nsurf, 1)/) ! Obs fraction of soil without rocks
703
704 ! Find current column number
705 INTEGER, PARAMETER :: ccendso = (ccendsn + 7*nsurf + nsurf)
706
707 ! Surface conductance
708 INTEGER :: c_gsg1 = (ccendso + 1)
709 INTEGER :: c_gsg2 = (ccendso + 2)
710 INTEGER :: c_gsg3 = (ccendso + 3)
711 INTEGER :: c_gsg4 = (ccendso + 4)
712 INTEGER :: c_gsg5 = (ccendso + 5)
713 INTEGER :: c_gsg6 = (ccendso + 6)
714 INTEGER :: c_gsth = (ccendso + 7)
715 INTEGER :: c_gstl = (ccendso + 8)
716 INTEGER :: c_gss1 = (ccendso + 9)
717 INTEGER :: c_gss2 = (ccendso + 10)
718 INTEGER :: c_gskmax = (ccendso + 11)
719 INTEGER :: c_gsmodel = (ccendso + 12)
720
721 ! Find current column number
722 INTEGER, PARAMETER :: ccendgs = (ccendso + 12)
723
724 ! OHM codes
725 INTEGER, DIMENSION(nsurfIncSnow) :: c_ohmcode_swet = (/(cc, cc=ccendgs + 0*nsurfincsnow + 1, &
726 ccendgs + 0*nsurfincsnow + nsurfincsnow, 1)/) !OHM code (summer wet)
727 INTEGER, DIMENSION(nsurfIncSnow) :: c_ohmcode_sdry = (/(cc, cc=ccendgs + 1*nsurfincsnow + 1, &
728 ccendgs + 1*nsurfincsnow + nsurfincsnow, 1)/) !OHM code (summer dry)
729 INTEGER, DIMENSION(nsurfIncSnow) :: c_ohmcode_wwet = (/(cc, cc=ccendgs + 2*nsurfincsnow + 1, &
730 ccendgs + 2*nsurfincsnow + nsurfincsnow, 1)/) !OHM code (winter wet)
731 INTEGER, DIMENSION(nsurfIncSnow) :: c_ohmcode_wdry = (/(cc, cc=ccendgs + 3*nsurfincsnow + 1, &
732 ccendgs + 3*nsurfincsnow + nsurfincsnow, 1)/) !OHM code (winter dry)
733 INTEGER, DIMENSION(nsurfIncSnow) :: c_a1_swet = (/(cc, cc=ccendgs + 4*nsurfincsnow + 1, &
734 ccendgs + 4*nsurfincsnow + nsurfincsnow, 1)/) !OHM a1 (summer wet)
735 INTEGER, DIMENSION(nsurfIncSnow) :: c_a2_swet = (/(cc, cc=ccendgs + 5*nsurfincsnow + 1, &
736 ccendgs + 5*nsurfincsnow + nsurfincsnow, 1)/) !OHM a2 (summer wet)
737 INTEGER, DIMENSION(nsurfIncSnow) :: c_a3_swet = (/(cc, cc=ccendgs + 6*nsurfincsnow + 1, &
738 ccendgs + 6*nsurfincsnow + nsurfincsnow, 1)/) !OHM a3 (summer wet)
739 INTEGER, DIMENSION(nsurfIncSnow) :: c_a1_sdry = (/(cc, cc=ccendgs + 7*nsurfincsnow + 1, &
740 ccendgs + 7*nsurfincsnow + nsurfincsnow, 1)/) !OHM a1 (summer dry)
741 INTEGER, DIMENSION(nsurfIncSnow) :: c_a2_sdry = (/(cc, cc=ccendgs + 8*nsurfincsnow + 1, &
742 ccendgs + 8*nsurfincsnow + nsurfincsnow, 1)/) !OHM a2 (summer dry)
743 INTEGER, DIMENSION(nsurfIncSnow) :: c_a3_sdry = (/(cc, cc=ccendgs + 9*nsurfincsnow + 1, &
744 ccendgs + 9*nsurfincsnow + nsurfincsnow, 1)/) !OHM a3 (summer dry)
745 INTEGER, DIMENSION(nsurfIncSnow) :: c_a1_wwet = (/(cc, cc=ccendgs + 10*nsurfincsnow + 1, &
746 ccendgs + 10*nsurfincsnow + nsurfincsnow, 1)/) !OHM a1 (winter wet)
747 INTEGER, DIMENSION(nsurfIncSnow) :: c_a2_wwet = (/(cc, cc=ccendgs + 11*nsurfincsnow + 1, &
748 ccendgs + 11*nsurfincsnow + nsurfincsnow, 1)/) !OHM a2 (winter wet)
749 INTEGER, DIMENSION(nsurfIncSnow) :: c_a3_wwet = (/(cc, cc=ccendgs + 12*nsurfincsnow + 1, &
750 ccendgs + 12*nsurfincsnow + nsurfincsnow, 1)/) !OHM a3 (winter wet)
751 INTEGER, DIMENSION(nsurfIncSnow) :: c_a1_wdry = (/(cc, cc=ccendgs + 13*nsurfincsnow + 1, &
752 ccendgs + 13*nsurfincsnow + nsurfincsnow, 1)/) !OHM a1 (winter dry)
753 INTEGER, DIMENSION(nsurfIncSnow) :: c_a2_wdry = (/(cc, cc=ccendgs + 14*nsurfincsnow + 1, &
754 ccendgs + 14*nsurfincsnow + nsurfincsnow, 1)/) !OHM a2 (winter dry)
755 INTEGER, DIMENSION(nsurfIncSnow) :: c_a3_wdry = (/(cc, cc=ccendgs + 15*nsurfincsnow + 1, &
756 ccendgs + 15*nsurfincsnow + nsurfincsnow, 1)/) !OHM a3 (winter dry)
757
758 INTEGER, DIMENSION(nsurfIncSnow) :: c_ohmthresh_sw = (/(cc, cc=ccendgs + 16*nsurfincsnow + 1, &
759 ccendgs + 16*nsurfincsnow + nsurfincsnow, 1)/) !OHM Threshold (summer/winter)
760 INTEGER, DIMENSION(nsurfIncSnow) :: c_ohmthresh_wd = (/(cc, cc=ccendgs + 17*nsurfincsnow + 1, &
761 ccendgs + 17*nsurfincsnow + nsurfincsnow, 1)/) !OHM Threshold (wet/dry)
762
763 ! ESTM code for each surface inclduing snow
764 INTEGER, DIMENSION(nsurfIncSnow) :: c_estmcode = (/(cc, cc=ccendgs + 18*nsurfincsnow + 1, &
765 ccendgs + 18*nsurfincsnow + nsurfincsnow, 1)/) !ESTM code
766
767 ! Find current column number
768 INTEGER, PARAMETER :: ccendo = (ccendgs + 18*nsurfincsnow + nsurfincsnow)
769
770 ! Anthropogenic Emissions
771 INTEGER :: c_baset_hc = (ccendo + 1)
772 INTEGER :: c_qf_a1 = (ccendo + 2)
773 INTEGER :: c_qf_b1 = (ccendo + 3)
774 INTEGER :: c_qf_c1 = (ccendo + 4)
775 INTEGER :: c_qf_a2 = (ccendo + 5)
776 INTEGER :: c_qf_b2 = (ccendo + 6)
777 INTEGER :: c_qf_c2 = (ccendo + 7)
778 INTEGER :: c_ahmin_wd = (ccendo + 8)
779 INTEGER :: c_ahmin_we = (ccendo + 9)
780 INTEGER :: c_ahslopeheating_wd = (ccendo + 10)
781 INTEGER :: c_ahslopeheating_we = (ccendo + 11)
782 INTEGER :: c_ahslopecooling_wd = (ccendo + 12)
783 INTEGER :: c_ahslopecooling_we = (ccendo + 13)
784 INTEGER :: c_tcriticheating_we = (ccendo + 14)
785 INTEGER :: c_tcriticheating_wd = (ccendo + 15)
786 INTEGER :: c_tcriticcooling_we = (ccendo + 16)
787 INTEGER :: c_tcriticcooling_wd = (ccendo + 17)
788 INTEGER :: c_enprofwd = (ccendo + 18)
789 INTEGER :: c_enprofwe = (ccendo + 19)
790 INTEGER :: c_co2mwd = (ccendo + 20)
791 INTEGER :: c_co2mwe = (ccendo + 21)
792 INTEGER :: c_traffprofwd = (ccendo + 22)
793 INTEGER :: c_traffprofwe = (ccendo + 23)
794 INTEGER :: c_popprofwd = (ccendo + 24)
795 INTEGER :: c_popprofwe = (ccendo + 25)
796 INTEGER :: c_minqfmetab = (ccendo + 26)
797 INTEGER :: c_maxqfmetab = (ccendo + 27)
798 INTEGER :: c_minfcmetab = (ccendo + 28)
799 INTEGER :: c_maxfcmetab = (ccendo + 29)
800 INTEGER :: c_frpddwe = (ccendo + 30)
801 INTEGER :: c_frfossilfuel_heat = (ccendo + 31)
802 INTEGER :: c_frfossilfuel_nonheat = (ccendo + 32)
803 INTEGER :: c_ef_umolco2perj = (ccendo + 33)
804 INTEGER :: c_enef_v_jkm = (ccendo + 34)
805 INTEGER :: c_fcef_v_kgkmwd = (ccendo + 35)
806 INTEGER :: c_fcef_v_kgkmwe = (ccendo + 36)
807 INTEGER :: c_co2pointsource = (ccendo + 37)
808 INTEGER :: c_trafficunits = (ccendo + 38)
809
810 ! Find current column number
811 INTEGER, PARAMETER :: ccenda = (ccendo + 38)
812
813 ! Irrigation
814 INTEGER :: c_iestart = (ccenda + 1)
815 INTEGER :: c_ieend = (ccenda + 2)
816 INTEGER :: c_intwu = (ccenda + 3)
817 INTEGER :: c_faut = (ccenda + 4)
818 INTEGER :: c_h_maintain = (ccenda + 5)
819 INTEGER, DIMENSION(3) :: c_ie_a = (/(cc, cc=ccenda + 5 + 0*3 + 1, ccenda + 5 + 0*3 + 3, 1)/) ! Automatic irrigation coeffs
820 INTEGER, DIMENSION(3) :: c_ie_m = (/(cc, cc=ccenda + 5 + 1*3 + 1, ccenda + 5 + 1*3 + 3, 1)/) ! Manual irrigation coeffs
821 INTEGER, DIMENSION(7) :: c_daywat = (/(cc, cc=ccenda + 11 + 0*7 + 1, ccenda + 11 + 0*7 + 7, 1)/) ! Irrigation allowed on each day
822 INTEGER, DIMENSION(7) :: c_daywatper = (/(cc, cc=ccenda + 11 + 1*7 + 1, ccenda + 11 + 1*7 + 7, 1)/) ! Fraction properties using irrigation allowed on each day
823
824 ! Find current column number
825 INTEGER, PARAMETER :: ccendir = (ccenda + 11 + 1*7 + 7)
826
827 ! Hourly profiles
828 INTEGER, DIMENSION(24) :: c_hrprofenusewd = (/(cc, cc=ccendir + 0*24 + 1, ccendir + 0*24 + 24, 1)/) ! Energy use, weekdays
829 INTEGER, DIMENSION(24) :: c_hrprofenusewe = (/(cc, cc=ccendir + 1*24 + 1, ccendir + 1*24 + 24, 1)/) ! Energy use, weekends
830 INTEGER, DIMENSION(24) :: c_hrprofwumanuwd = (/(cc, cc=ccendir + 2*24 + 1, ccendir + 2*24 + 24, 1)/) ! Water use, manual, weekdays
831 INTEGER, DIMENSION(24) :: c_hrprofwumanuwe = (/(cc, cc=ccendir + 3*24 + 1, ccendir + 3*24 + 24, 1)/) ! Water use, manual, weekends
832 INTEGER, DIMENSION(24) :: c_hrprofwuautowd = (/(cc, cc=ccendir + 4*24 + 1, ccendir + 4*24 + 24, 1)/) ! Water use, automatic, weekdays
833 INTEGER, DIMENSION(24) :: c_hrprofwuautowe = (/(cc, cc=ccendir + 5*24 + 1, ccendir + 5*24 + 24, 1)/) ! Water use, automatic, weekends
834 INTEGER, DIMENSION(24) :: c_hrprofsnowcwd = (/(cc, cc=ccendir + 6*24 + 1, ccendir + 6*24 + 24, 1)/) ! Snow clearing, weekdays
835 INTEGER, DIMENSION(24) :: c_hrprofsnowcwe = (/(cc, cc=ccendir + 7*24 + 1, ccendir + 7*24 + 24, 1)/) ! Snow clearing, weekends
836 INTEGER, DIMENSION(24) :: c_hrprofhumactivitywd = (/(cc, cc=ccendir + 8*24 + 1, ccendir + 8*24 + 24, 1)/) ! Human activity, weekdays
837 INTEGER, DIMENSION(24) :: c_hrprofhumactivitywe = (/(cc, cc=ccendir + 9*24 + 1, ccendir + 9*24 + 24, 1)/) ! Human activity, weekends
838 INTEGER, DIMENSION(24) :: c_hrproftraffwd = (/(cc, cc=ccendir + 10*24 + 1, ccendir + 10*24 + 24, 1)/) ! Traffic, weekdays
839 INTEGER, DIMENSION(24) :: c_hrproftraffwe = (/(cc, cc=ccendir + 11*24 + 1, ccendir + 11*24 + 24, 1)/) ! Traffic, weekends
840 INTEGER, DIMENSION(24) :: c_hrprofpopwd = (/(cc, cc=ccendir + 12*24 + 1, ccendir + 12*24 + 24, 1)/) ! Population, weekdays
841 INTEGER, DIMENSION(24) :: c_hrprofpopwe = (/(cc, cc=ccendir + 13*24 + 1, ccendir + 13*24 + 24, 1)/) ! Population, weekends
842
843 ! Find current column number
844 INTEGER, PARAMETER :: ccendpr = (ccendir + 13*24 + 24)
845
846 ! Within-grid water distribution (for each surface)
847 INTEGER, DIMENSION(nsurf) :: c_wgtopaved = (/(cc, cc=ccendpr + 0*nsurf + 1, ccendpr + 0*nsurf + nsurf, 1)/) !Water dist to Paved
848 INTEGER, DIMENSION(nsurf) :: c_wgtobldgs = (/(cc, cc=ccendpr + 1*nsurf + 1, ccendpr + 1*nsurf + nsurf, 1)/) !Water dist to Bldgs
849 INTEGER, DIMENSION(nsurf) :: c_wgtoevetr = (/(cc, cc=ccendpr + 2*nsurf + 1, ccendpr + 2*nsurf + nsurf, 1)/) !Water dist to EveTr
850 INTEGER, DIMENSION(nsurf) :: c_wgtodectr = (/(cc, cc=ccendpr + 3*nsurf + 1, ccendpr + 3*nsurf + nsurf, 1)/) !Water dist to DecTr
851 INTEGER, DIMENSION(nsurf) :: c_wgtograss = (/(cc, cc=ccendpr + 4*nsurf + 1, ccendpr + 4*nsurf + nsurf, 1)/) !Water dist to Grass
852 INTEGER, DIMENSION(nsurf) :: c_wgtobsoil = (/(cc, cc=ccendpr + 5*nsurf + 1, ccendpr + 5*nsurf + nsurf, 1)/) !Water dist to BSoil
853 INTEGER, DIMENSION(nsurf) :: c_wgtowater = (/(cc, cc=ccendpr + 6*nsurf + 1, ccendpr + 6*nsurf + nsurf, 1)/) !Water dist to Water
854 INTEGER, DIMENSION(nsurf) :: c_wgtorunoff = (/(cc, cc=ccendpr + 7*nsurf + 1, ccendpr + 7*nsurf + nsurf, 1)/) !Water dist to runoff
855 INTEGER, DIMENSION(nsurf) :: c_wgtosoilstore = (/(cc, cc=ccendpr + 8*nsurf + 1, ccendpr + 8*nsurf + nsurf, 1)/) !Water dist to sub-surface soil
856
857 ! Find current column number
858 INTEGER, PARAMETER :: cbendwg = (ccendpr + 8*nsurf + nsurf)
859
860 ! Biogenic CO2
861 INTEGER, DIMENSION(nvegsurf) :: c_alpha_bioco2 = (/(cc, cc=cbendwg + 0*nvegsurf + 1, cbendwg + 0*nvegsurf + nvegsurf, 1)/)
862 INTEGER, DIMENSION(nvegsurf) :: c_beta_bioco2 = (/(cc, cc=cbendwg + 1*nvegsurf + 1, cbendwg + 1*nvegsurf + nvegsurf, 1)/)
863 INTEGER, DIMENSION(nvegsurf) :: c_theta_bioco2 = (/(cc, cc=cbendwg + 2*nvegsurf + 1, cbendwg + 2*nvegsurf + nvegsurf, 1)/)
864 INTEGER, DIMENSION(nvegsurf) :: c_alpha_enh_bioco2 = (/(cc, cc=cbendwg + 3*nvegsurf + 1, cbendwg + 3*nvegsurf + nvegsurf, 1)/)
865 INTEGER, DIMENSION(nvegsurf) :: c_beta_enh_bioco2 = (/(cc, cc=cbendwg + 4*nvegsurf + 1, cbendwg + 4*nvegsurf + nvegsurf, 1)/)
866 INTEGER, DIMENSION(nvegsurf) :: c_resp_a = (/(cc, cc=cbendwg + 5*nvegsurf + 1, cbendwg + 5*nvegsurf + nvegsurf, 1)/)
867 INTEGER, DIMENSION(nvegsurf) :: c_resp_b = (/(cc, cc=cbendwg + 6*nvegsurf + 1, cbendwg + 6*nvegsurf + nvegsurf, 1)/)
868 INTEGER, DIMENSION(nvegsurf) :: c_min_res_bioco2 = (/(cc, cc=cbendwg + 7*nvegsurf + 1, cbendwg + 7*nvegsurf + nvegsurf, 1)/)
869
870 ! Find current column number
871 INTEGER, PARAMETER :: ccendb = (cbendwg + 7*nvegsurf + nvegsurf)
872
873 !ESTM
874 ! Roof/surface characteristics for all surfaces including snow
875 INTEGER, DIMENSION(nsurfIncSnow) :: &
876 c_surf_thick1 = [(cc, cc=ccendb + 0*nsurfincsnow + 1, ccendb + 0*nsurfincsnow + nsurfincsnow, 1)], &
877 c_surf_k1 = [(cc, cc=ccendb + 1*nsurfincsnow + 1, ccendb + 1*nsurfincsnow + nsurfincsnow, 1)], &
878 c_surf_rhocp1 = [(cc, cc=ccendb + 2*nsurfincsnow + 1, ccendb + 2*nsurfincsnow + nsurfincsnow, 1)], &
879 c_surf_thick2 = [(cc, cc=ccendb + 3*nsurfincsnow + 1, ccendb + 3*nsurfincsnow + nsurfincsnow, 1)], &
880 c_surf_k2 = [(cc, cc=ccendb + 4*nsurfincsnow + 1, ccendb + 4*nsurfincsnow + nsurfincsnow, 1)], &
881 c_surf_rhocp2 = [(cc, cc=ccendb + 5*nsurfincsnow + 1, ccendb + 5*nsurfincsnow + nsurfincsnow, 1)], &
882 c_surf_thick3 = [(cc, cc=ccendb + 6*nsurfincsnow + 1, ccendb + 6*nsurfincsnow + nsurfincsnow, 1)], &
883 c_surf_k3 = [(cc, cc=ccendb + 7*nsurfincsnow + 1, ccendb + 7*nsurfincsnow + nsurfincsnow, 1)], &
884 c_surf_rhocp3 = [(cc, cc=ccendb + 8*nsurfincsnow + 1, ccendb + 8*nsurfincsnow + nsurfincsnow, 1)], &
885 c_surf_thick4 = [(cc, cc=ccendb + 9*nsurfincsnow + 1, ccendb + 9*nsurfincsnow + nsurfincsnow, 1)], &
886 c_surf_k4 = [(cc, cc=ccendb + 10*nsurfincsnow + 1, ccendb + 10*nsurfincsnow + nsurfincsnow, 1)], &
887 c_surf_rhocp4 = [(cc, cc=ccendb + 11*nsurfincsnow + 1, ccendb + 11*nsurfincsnow + nsurfincsnow, 1)], &
888 c_surf_thick5 = [(cc, cc=ccendb + 12*nsurfincsnow + 1, ccendb + 12*nsurfincsnow + nsurfincsnow, 1)], &
889 c_surf_k5 = [(cc, cc=ccendb + 13*nsurfincsnow + 1, ccendb + 13*nsurfincsnow + nsurfincsnow, 1)], &
890 c_surf_rhocp5 = [(cc, cc=ccendb + 14*nsurfincsnow + 1, ccendb + 14*nsurfincsnow + nsurfincsnow, 1)]
891 ! Find current column number
892 INTEGER, PARAMETER :: ccendestmb = (ccendb + 14*nsurfincsnow + nsurfincsnow)
893 ! Other ESTM characteristics are for built surfaces only
894 INTEGER :: c_wall_thick1 = (ccendestmb + 1)
895 INTEGER :: c_wall_k1 = (ccendestmb + 2)
896 INTEGER :: c_wall_rhocp1 = (ccendestmb + 3)
897 INTEGER :: c_wall_thick2 = (ccendestmb + 4)
898 INTEGER :: c_wall_k2 = (ccendestmb + 5)
899 INTEGER :: c_wall_rhocp2 = (ccendestmb + 6)
900 INTEGER :: c_wall_thick3 = (ccendestmb + 7)
901 INTEGER :: c_wall_k3 = (ccendestmb + 8)
902 INTEGER :: c_wall_rhocp3 = (ccendestmb + 9)
903 INTEGER :: c_wall_thick4 = (ccendestmb + 10)
904 INTEGER :: c_wall_k4 = (ccendestmb + 11)
905 INTEGER :: c_wall_rhocp4 = (ccendestmb + 12)
906 INTEGER :: c_wall_thick5 = (ccendestmb + 13)
907 INTEGER :: c_wall_k5 = (ccendestmb + 14)
908 INTEGER :: c_wall_rhocp5 = (ccendestmb + 15)
909 INTEGER :: c_internal_thick1 = (ccendestmb + 16)
910 INTEGER :: c_internal_k1 = (ccendestmb + 17)
911 INTEGER :: c_internal_rhocp1 = (ccendestmb + 18)
912 INTEGER :: c_internal_thick2 = (ccendestmb + 19)
913 INTEGER :: c_internal_k2 = (ccendestmb + 20)
914 INTEGER :: c_internal_rhocp2 = (ccendestmb + 21)
915 INTEGER :: c_internal_thick3 = (ccendestmb + 22)
916 INTEGER :: c_internal_k3 = (ccendestmb + 23)
917 INTEGER :: c_internal_rhocp3 = (ccendestmb + 24)
918 INTEGER :: c_internal_thick4 = (ccendestmb + 25)
919 INTEGER :: c_internal_k4 = (ccendestmb + 26)
920 INTEGER :: c_internal_rhocp4 = (ccendestmb + 27)
921 INTEGER :: c_internal_thick5 = (ccendestmb + 28)
922 INTEGER :: c_internal_k5 = (ccendestmb + 29)
923 INTEGER :: c_internal_rhocp5 = (ccendestmb + 30)
924 INTEGER :: c_nroom = (ccendestmb + 31)
925 INTEGER :: c_alb_ibld = (ccendestmb + 32)
926 INTEGER :: c_em_ibld = (ccendestmb + 33)
927 INTEGER :: c_ch_iwall = (ccendestmb + 34)
928 INTEGER :: c_ch_iroof = (ccendestmb + 35)
929 INTEGER :: c_ch_ibld = (ccendestmb + 36)
930 ! Find current column number
931 INTEGER, PARAMETER :: ccendestmm = (ccendestmb + 36)
932 ! For Paved surfaces, there are 3 possible ESTM classes (with _Surf characteristics only)
933 INTEGER, DIMENSION(3) :: c_surf_thick1_paved = (/(cc, cc=ccendestmm + 0*3 + 1, ccendestmm + 0*3 + 3, 1)/)
934 INTEGER, DIMENSION(3) :: c_surf_k1_paved = (/(cc, cc=ccendestmm + 1*3 + 1, ccendestmm + 1*3 + 3, 1)/)
935 INTEGER, DIMENSION(3) :: c_surf_rhocp1_paved = (/(cc, cc=ccendestmm + 2*3 + 1, ccendestmm + 2*3 + 3, 1)/)
936 INTEGER, DIMENSION(3) :: c_surf_thick2_paved = (/(cc, cc=ccendestmm + 3*3 + 1, ccendestmm + 3*3 + 3, 1)/)
937 INTEGER, DIMENSION(3) :: c_surf_k2_paved = (/(cc, cc=ccendestmm + 4*3 + 1, ccendestmm + 4*3 + 3, 1)/)
938 INTEGER, DIMENSION(3) :: c_surf_rhocp2_paved = (/(cc, cc=ccendestmm + 5*3 + 1, ccendestmm + 5*3 + 3, 1)/)
939 INTEGER, DIMENSION(3) :: c_surf_thick3_paved = (/(cc, cc=ccendestmm + 6*3 + 1, ccendestmm + 6*3 + 3, 1)/)
940 INTEGER, DIMENSION(3) :: c_surf_k3_paved = (/(cc, cc=ccendestmm + 7*3 + 1, ccendestmm + 7*3 + 3, 1)/)
941 INTEGER, DIMENSION(3) :: c_surf_rhocp3_paved = (/(cc, cc=ccendestmm + 8*3 + 1, ccendestmm + 8*3 + 3, 1)/)
942 INTEGER, DIMENSION(3) :: c_surf_thick4_paved = (/(cc, cc=ccendestmm + 9*3 + 1, ccendestmm + 9*3 + 3, 1)/)
943 INTEGER, DIMENSION(3) :: c_surf_k4_paved = (/(cc, cc=ccendestmm + 10*3 + 1, ccendestmm + 10*3 + 3, 1)/)
944 INTEGER, DIMENSION(3) :: c_surf_rhocp4_paved = (/(cc, cc=ccendestmm + 11*3 + 1, ccendestmm + 11*3 + 3, 1)/)
945 INTEGER, DIMENSION(3) :: c_surf_thick5_paved = (/(cc, cc=ccendestmm + 12*3 + 1, ccendestmm + 12*3 + 3, 1)/)
946 INTEGER, DIMENSION(3) :: c_surf_k5_paved = (/(cc, cc=ccendestmm + 13*3 + 1, ccendestmm + 13*3 + 3, 1)/)
947 INTEGER, DIMENSION(3) :: c_surf_rhocp5_paved = (/(cc, cc=ccendestmm + 14*3 + 1, ccendestmm + 14*3 + 3, 1)/)
948 ! Find current column number
949 INTEGER, PARAMETER :: ccendestmmp = (ccendestmm + 14*3 + 3)
950 ! For Bldgs surfaces, there are 5 possible ESTM classes (all characteristics)
951 INTEGER, DIMENSION(5) :: c_surf_thick1_bldgs = (/(cc, cc=ccendestmmp + 0*5 + 1, ccendestmmp + 0*5 + 5, 1)/)
952 INTEGER, DIMENSION(5) :: c_surf_k1_bldgs = (/(cc, cc=ccendestmmp + 1*5 + 1, ccendestmmp + 1*5 + 5, 1)/)
953 INTEGER, DIMENSION(5) :: c_surf_rhocp1_bldgs = (/(cc, cc=ccendestmmp + 2*5 + 1, ccendestmmp + 2*5 + 5, 1)/)
954 INTEGER, DIMENSION(5) :: c_surf_thick2_bldgs = (/(cc, cc=ccendestmmp + 3*5 + 1, ccendestmmp + 3*5 + 5, 1)/)
955 INTEGER, DIMENSION(5) :: c_surf_k2_bldgs = (/(cc, cc=ccendestmmp + 4*5 + 1, ccendestmmp + 4*5 + 5, 1)/)
956 INTEGER, DIMENSION(5) :: c_surf_rhocp2_bldgs = (/(cc, cc=ccendestmmp + 5*5 + 1, ccendestmmp + 5*5 + 5, 1)/)
957 INTEGER, DIMENSION(5) :: c_surf_thick3_bldgs = (/(cc, cc=ccendestmmp + 6*5 + 1, ccendestmmp + 6*5 + 5, 1)/)
958 INTEGER, DIMENSION(5) :: c_surf_k3_bldgs = (/(cc, cc=ccendestmmp + 7*5 + 1, ccendestmmp + 7*5 + 5, 1)/)
959 INTEGER, DIMENSION(5) :: c_surf_rhocp3_bldgs = (/(cc, cc=ccendestmmp + 8*5 + 1, ccendestmmp + 8*5 + 5, 1)/)
960 INTEGER, DIMENSION(5) :: c_surf_thick4_bldgs = (/(cc, cc=ccendestmmp + 9*5 + 1, ccendestmmp + 9*5 + 5, 1)/)
961 INTEGER, DIMENSION(5) :: c_surf_k4_bldgs = (/(cc, cc=ccendestmmp + 10*5 + 1, ccendestmmp + 10*5 + 5, 1)/)
962 INTEGER, DIMENSION(5) :: c_surf_rhocp4_bldgs = (/(cc, cc=ccendestmmp + 11*5 + 1, ccendestmmp + 11*5 + 5, 1)/)
963 INTEGER, DIMENSION(5) :: c_surf_thick5_bldgs = (/(cc, cc=ccendestmmp + 12*5 + 1, ccendestmmp + 12*5 + 5, 1)/)
964 INTEGER, DIMENSION(5) :: c_surf_k5_bldgs = (/(cc, cc=ccendestmmp + 13*5 + 1, ccendestmmp + 13*5 + 5, 1)/)
965 INTEGER, DIMENSION(5) :: c_surf_rhocp5_bldgs = (/(cc, cc=ccendestmmp + 14*5 + 1, ccendestmmp + 14*5 + 5, 1)/)
966 INTEGER, DIMENSION(5) :: c_wall_thick1_bldgs = (/(cc, cc=ccendestmmp + 15*5 + 1, ccendestmmp + 15*5 + 5, 1)/)
967 INTEGER, DIMENSION(5) :: c_wall_k1_bldgs = (/(cc, cc=ccendestmmp + 16*5 + 1, ccendestmmp + 16*5 + 5, 1)/)
968 INTEGER, DIMENSION(5) :: c_wall_rhocp1_bldgs = (/(cc, cc=ccendestmmp + 17*5 + 1, ccendestmmp + 17*5 + 5, 1)/)
969 INTEGER, DIMENSION(5) :: c_wall_thick2_bldgs = (/(cc, cc=ccendestmmp + 18*5 + 1, ccendestmmp + 18*5 + 5, 1)/)
970 INTEGER, DIMENSION(5) :: c_wall_k2_bldgs = (/(cc, cc=ccendestmmp + 19*5 + 1, ccendestmmp + 19*5 + 5, 1)/)
971 INTEGER, DIMENSION(5) :: c_wall_rhocp2_bldgs = (/(cc, cc=ccendestmmp + 20*5 + 1, ccendestmmp + 20*5 + 5, 1)/)
972 INTEGER, DIMENSION(5) :: c_wall_thick3_bldgs = (/(cc, cc=ccendestmmp + 21*5 + 1, ccendestmmp + 21*5 + 5, 1)/)
973 INTEGER, DIMENSION(5) :: c_wall_k3_bldgs = (/(cc, cc=ccendestmmp + 22*5 + 1, ccendestmmp + 22*5 + 5, 1)/)
974 INTEGER, DIMENSION(5) :: c_wall_rhocp3_bldgs = (/(cc, cc=ccendestmmp + 23*5 + 1, ccendestmmp + 23*5 + 5, 1)/)
975 INTEGER, DIMENSION(5) :: c_wall_thick4_bldgs = (/(cc, cc=ccendestmmp + 24*5 + 1, ccendestmmp + 24*5 + 5, 1)/)
976 INTEGER, DIMENSION(5) :: c_wall_k4_bldgs = (/(cc, cc=ccendestmmp + 25*5 + 1, ccendestmmp + 25*5 + 5, 1)/)
977 INTEGER, DIMENSION(5) :: c_wall_rhocp4_bldgs = (/(cc, cc=ccendestmmp + 26*5 + 1, ccendestmmp + 26*5 + 5, 1)/)
978 INTEGER, DIMENSION(5) :: c_wall_thick5_bldgs = (/(cc, cc=ccendestmmp + 27*5 + 1, ccendestmmp + 27*5 + 5, 1)/)
979 INTEGER, DIMENSION(5) :: c_wall_k5_bldgs = (/(cc, cc=ccendestmmp + 28*5 + 1, ccendestmmp + 28*5 + 5, 1)/)
980 INTEGER, DIMENSION(5) :: c_wall_rhocp5_bldgs = (/(cc, cc=ccendestmmp + 29*5 + 1, ccendestmmp + 29*5 + 5, 1)/)
981 INTEGER, DIMENSION(5) :: c_internal_thick1_bldgs = (/(cc, cc=ccendestmmp + 30*5 + 1, ccendestmmp + 30*5 + 5, 1)/)
982 INTEGER, DIMENSION(5) :: c_internal_k1_bldgs = (/(cc, cc=ccendestmmp + 31*5 + 1, ccendestmmp + 31*5 + 5, 1)/)
983 INTEGER, DIMENSION(5) :: c_internal_rhocp1_bldgs = (/(cc, cc=ccendestmmp + 32*5 + 1, ccendestmmp + 32*5 + 5, 1)/)
984 INTEGER, DIMENSION(5) :: c_internal_thick2_bldgs = (/(cc, cc=ccendestmmp + 33*5 + 1, ccendestmmp + 33*5 + 5, 1)/)
985 INTEGER, DIMENSION(5) :: c_internal_k2_bldgs = (/(cc, cc=ccendestmmp + 34*5 + 1, ccendestmmp + 34*5 + 5, 1)/)
986 INTEGER, DIMENSION(5) :: c_internal_rhocp2_bldgs = (/(cc, cc=ccendestmmp + 35*5 + 1, ccendestmmp + 35*5 + 5, 1)/)
987 INTEGER, DIMENSION(5) :: c_internal_thick3_bldgs = (/(cc, cc=ccendestmmp + 36*5 + 1, ccendestmmp + 36*5 + 5, 1)/)
988 INTEGER, DIMENSION(5) :: c_internal_k3_bldgs = (/(cc, cc=ccendestmmp + 37*5 + 1, ccendestmmp + 37*5 + 5, 1)/)
989 INTEGER, DIMENSION(5) :: c_internal_rhocp3_bldgs = (/(cc, cc=ccendestmmp + 38*5 + 1, ccendestmmp + 38*5 + 5, 1)/)
990 INTEGER, DIMENSION(5) :: c_internal_thick4_bldgs = (/(cc, cc=ccendestmmp + 39*5 + 1, ccendestmmp + 39*5 + 5, 1)/)
991 INTEGER, DIMENSION(5) :: c_internal_k4_bldgs = (/(cc, cc=ccendestmmp + 40*5 + 1, ccendestmmp + 40*5 + 5, 1)/)
992 INTEGER, DIMENSION(5) :: c_internal_rhocp4_bldgs = (/(cc, cc=ccendestmmp + 41*5 + 1, ccendestmmp + 41*5 + 5, 1)/)
993 INTEGER, DIMENSION(5) :: c_internal_thick5_bldgs = (/(cc, cc=ccendestmmp + 42*5 + 1, ccendestmmp + 42*5 + 5, 1)/)
994 INTEGER, DIMENSION(5) :: c_internal_k5_bldgs = (/(cc, cc=ccendestmmp + 43*5 + 1, ccendestmmp + 43*5 + 5, 1)/)
995 INTEGER, DIMENSION(5) :: c_internal_rhocp5_bldgs = (/(cc, cc=ccendestmmp + 44*5 + 1, ccendestmmp + 44*5 + 5, 1)/)
996 INTEGER, DIMENSION(5) :: c_nroom_bldgs = (ccendestmmp + 44*5 + 5 + 1)
997 INTEGER, DIMENSION(5) :: c_alb_ibld_bldgs = (ccendestmmp + 44*5 + 5 + 2)
998 INTEGER, DIMENSION(5) :: c_em_ibld_bldgs = (ccendestmmp + 44*5 + 5 + 3)
999 INTEGER, DIMENSION(5) :: c_ch_iwall_bldgs = (ccendestmmp + 44*5 + 5 + 4)
1000 INTEGER, DIMENSION(5) :: c_ch_iroof_bldgs = (ccendestmmp + 44*5 + 5 + 5)
1001 INTEGER, DIMENSION(5) :: c_ch_ibld_bldgs = (ccendestmmp + 44*5 + 5 + 6)
1002
1003 !Last column number for SurfaceChar array
1004 INTEGER, PARAMETER :: maxncols_c = (ccendestmmp + 44*5 + 5 + 6)
1005 !-----------------------------------------------------------------------------------------------
1006
1007 ! ---- Set column numbering for ModelOutputData ------------------------------------------------
1008 ! Applicable to each surface
1009 INTEGER, PARAMETER :: ccmod = 32
1010 INTEGER, DIMENSION(nsurf) :: cmod_state = (/(cc, cc=ccmod + 0*nsurf + 1, ccmod + 0*nsurf + nsurf, 1)/) !Above ground state
1011 INTEGER, DIMENSION(nsurf) :: cmod_soilstate = (/(cc, cc=ccmod + 1*nsurf + 1, ccmod + 1*nsurf + nsurf, 1)/) !Below ground state (soil store)
1012 INTEGER, DIMENSION(nsurf) :: cmod_snowwaterstate = (/(cc, cc=ccmod + 2*nsurf + 1, ccmod + 2*nsurf + nsurf, 1)/) !Liquid (melted) water
1013 INTEGER, DIMENSION(nsurf) :: cmod_snowpack = (/(cc, cc=ccmod + 3*nsurf + 1, ccmod + 3*nsurf + nsurf, 1)/) !SWE
1014 INTEGER, DIMENSION(nsurf) :: cmod_snowfrac = (/(cc, cc=ccmod + 4*nsurf + 1, ccmod + 4*nsurf + nsurf, 1)/) !Snow fraction
1015 INTEGER, DIMENSION(nsurf) :: cmod_snowdens = (/(cc, cc=ccmod + 5*nsurf + 1, ccmod + 5*nsurf + nsurf, 1)/) !Snow density
1016
1017 !Last column number for ModelOutputData array
1018 INTEGER, PARAMETER :: maxncols_cmod = ccmod + 5*nsurf + nsurf
1019 !-----------------------------------------------------------------------------------------------
1020
1021 ! ---- Set column numbering for ModelDailyState ------------------------------------------------
1022 ! Applicable to each surface
1023 INTEGER, PARAMETER :: ccmds = 30
1024 INTEGER, DIMENSION(nsurf) :: cmds_snowdens = (/(cc, cc=ccmds + 0*nsurf + 1, ccmds + 0*nsurf + nsurf, 1)/) !Snow density
1025
1026 !Last column number for ModelDailyState array
1027 INTEGER, PARAMETER :: maxncols_cmds = ccmds + 0*nsurf + nsurf
1028 !-----------------------------------------------------------------------------------------------
1029
1030 ! ---- Set column numbering for ESTM_Ts_data input file ===-------------------------------------
1031 ! HCW 15 June 2016
1032 INTEGER, PARAMETER :: cts_iy = 1
1033 INTEGER, PARAMETER :: cts_id = 2
1034 INTEGER, PARAMETER :: cts_it = 3
1035 INTEGER, PARAMETER :: cts_imin = 4
1036 INTEGER, PARAMETER :: cts_tiair = 5
1037 INTEGER, PARAMETER :: cts_tsurf = 6
1038 INTEGER, PARAMETER :: cts_troof = 7
1039 INTEGER, PARAMETER :: cts_troad = 8
1040 INTEGER, PARAMETER :: cts_twall = 9
1041 INTEGER, PARAMETER :: cts_twall_n = 10
1042 INTEGER, PARAMETER :: cts_twall_e = 11
1043 INTEGER, PARAMETER :: cts_twall_s = 12
1044 INTEGER, PARAMETER :: cts_twall_w = 13
1045
1046END MODULE allocatearray
1047!==================================================================================================
1048
1049!==================================================================================================
1050MODULE initial
1051
1052 IMPLICIT NONE
1053
1054 INTEGER :: firstyear, & !First year to run (specified in SiteSelect.txt)
1055 lastyear, & !Last year to run (specified in SiteSelect.txt)
1056 firstgrid, & !First grid to run (as in SiteSelect)
1057 lastgrid, & !Last grid to run (as in SiteSelect)
1058 numberofgrids, & !Number of grids
1059 gridcounter, & !Counter for grids (i.e. from 1 to NumberOfGrids)
1060 readblocksmetdata, & !Number of blocks of met data to read (for each grid, for each year)
1061 readblocksorigmetdata, & !Number of blocks of original met data to read (for each grid, for each year)
1062 readlinesmetdata, & !Number of lines of met data in each block (for each grid)
1063 readlinesorigmetdata, & !Number of lines of original met data in each block (before downscaling)
1064 readlinesorigestmdata, & !Number of lines of original ESTM data in each block (before downscaling)
1065 readlinesorigmetdatamax, & !No. lines of original met data in each block (adjusts for last block (equivalent of irMax))
1066 readlinesorigestmdatamax, & !No. lines of original ESTM data in each block
1067 nlinesorigmetdata, & !Number of lines in original met data file
1068 nlinesorigestmdata, & !Number of lines in original ESTM data file
1069 nlinesmetdata, & !Number of lines in Met Forcing file
1070 nlinesestmdata, & !Number of lines in ESTM Forcing file
1071 nlinessiteselect, & !Number of lines in SUEWS_SiteSelect.txt
1072 nlinesnonveg, & !Number of lines in SUEWS_NonVeg.txt
1073 nlinesveg, & !Number of lines in SUEWS_Veg.txt
1074 nlineswater, & !Number of lines in SUEWS_Water.txt
1075 nlinessnow, & !Number of lines in SUEWS_Snow.txt
1076 nlinessoil, & !Number of lines in SUEWS_Soil.txt
1077 nlinesconductance, & !Number of lines in SUEWS_Conductance.txt
1078 nlinesohmcoefficients, & !Number of lines in SUEWS_OHMCoefficients.txt
1079 nlinesestmcoefficients, & !Number of lines in SUEWS_ESTMCoefficients.txt
1080 nlinesanthropogenic, & !Number of lines in SUEWS_AnthropogenicEmission.txt
1081 nlinesirrigation, & !Number of lines in SUEWS_Irrigation.txt
1082 nlinesprofiles, & !Number of lines in SUEWS_Profiles.txt
1083 nlineswgwaterdist, & !Number of lines in SUEWS_WGWaterDist.txt
1084 nlinesbiogen, & !Number of lines in SUEWS_BiogenCO2.txt
1085 nlines, & !Number of lines in different files
1086 skippedlines, & !Number of lines to skip over before reading each block of met data
1087 skippedlinesorig, & !Number of lines to skip over before reading each block of data from original met file
1088 skippedlinesorigestm, & !Number of lines to skip over before reading each block of data from original ESTM file
1089 iv5 !Counter for code matching.
1090
1091END MODULE initial
1092!==================================================================================================
1093
1094!==================================================================================================
1095MODULE data_in
1096
1097 IMPLICIT NONE
1098
1099 CHARACTER(len=90) :: progname = 'SUEWS_V2021a'
1100
1101 ! ---- Run information ------------------------------------------------------------------------
1102 CHARACTER(len=20) :: filecode !Set in RunControl
1103 CHARACTER(len=150) :: fileinputpath, & !Filepath for input files (set in RunControl)
1104 fileoutputpath !Filepath for output files (set in RunControl)
1105 ! ---- File names -----------------------------------------------------------------------------
1106 CHARACTER(len=150) :: fileout, & !Output file name
1107 filechoices, & !Run characteristics file name
1108 filestateinit, & !Run characteristics file name
1109 filemet, & !Meteorological forcing file name
1110 fileorigmet, & !Original meteorological forcing file name (i.e. before downscaling)
1111 fileorigestm, & !Original ESTM forcing file name (i.e. before downscaling)
1112 filedscdmet, & !Downscaled meteorological forcing file name
1113 filedscdestm, & !Downscaled ESTM forcing file name
1114 filedaily, & !Daily State output file name
1115 fileestmts, & !ESTM input file name
1116 solweigpoiout, & !SOLWEIG poi file name
1117 blout, & !CLB output file name
1118 fileout_tt, & !Output file name (for resolution at model time-step)
1119 estmout_tt
1120
1121 INTEGER :: skipheadersiteinfo = 2 !Number of header lines to skip in SiteInfo files
1122 INTEGER :: skipheadermet = 1 !Number of header lines to skip in met forcing file
1123
1124 ! ---- Model options set in RunControl --------------------------------------------------------
1125 INTEGER :: emissionsmethod, & ! anthropogenic emissions method
1126 basetmethod, & ! base temperature method for HDD/CDD calculations used in QF module
1127 cbluse, & !CBL slab model used (1) or not used (0)
1128 multiplemetfiles, & !Indicates whether a single met file is used for all grids (0) or one for each grid (1)
1129 multipleinitfiles, & !Indicates whether a single initial conditions file is used for all grids (0) or one for each grid (1)
1130 multipleestmfiles, & !Indicates whether a single ESTM input data file is used for all grids (0) or one for each grid (1)
1131 multiplelayoutfiles, & !Indicates whether a single grid layout input data file is used for all grids (0) or one for each grid (1)
1132 keeptstepfilesin, & !Delete (0) or keep (1) input met files at resolution of tstep (used by python, not fortran)
1133 keeptstepfilesout, & !Delete (0) or keep (1) output files at resolution of tstep (used by python, not fortran)
1134 resolutionfilesin, & !Specify resolution of input file [s]
1135 resolutionfilesout, & !Specify resolution of output file [s]
1136 resolutionfilesinestm, & !Specify resolution of ESTM input file [s]
1137 writeoutoption, & !Choose variables to include in main output file
1138 netradiationmethod, & !Options for net all-wave radiation calculation
1139 ohmincqf, & !OHM calculation uses Q* only (0) or Q*+QF (1)
1140 storageheatmethod, & !OHM (1); QS in met file (2); AnOHM(3); ESTM(4)
1141 snowuse, & !Snow part used (1) or not used (0)
1142 ! SOLWEIGuse, & !SOLWEIG part used (calculates Tmrt and other fluxes on a grid, FL)
1143 smdmethod, & !Use modelled (0) or observed(1,2) soil moisture
1144 waterusemethod, & !Use modelled (0) or observed (1) water use
1145 roughlenmommethod, & !Defines method for calculating z0 & zd
1146 disaggmethod, & ! Sets disaggregation method for original met forcing data
1147 disaggmethodestm, & ! Sets disaggregation method for original met forcing data
1148 raindisaggmethod, & ! Sets disaggregation method for original met forcing data for rainfall
1149 rainamongn, & ! Number of subintervals over which to disaggregate rainfall
1150 kdownzen, & ! Controls whether Kdown disaggregation uses zenith angle (1) or not (0)
1151 suppresswarnings = 1, & ! Set to 1 to prevent warnings.txt file from being written
1152 diagmethod, & !Specify the approach for near surface diagnostic: 0, MOST; 1, RSL; 2, Auto (MOST+RSL)
1153 diagnose, & !Set to 1 to get print-out of model progress
1154 diagnosedisagg, & !Set to 1 to get print-out of met forcing disaggregation progress
1155 ! ncMode, & !Write output file in netCDF (1) or not (0) , TS, 09 Dec 2016
1156 ! nRow, & !number of rows of checker board layout in the netCDF output, TS, 09 Dec 2016
1157 ! nCol, & !number of columns of checker board layout in the netCDF output, TS, 09 Dec 2016
1158 diagnosedisaggestm, & !Set to 1 to get print-out of ESTM forcing disaggregation progress
1159 diagqn, diagqs !Set to 1 to print values/components
1160
1161 ! For more complex downscaling allow different RainAmongN for different intensities
1162 INTEGER, DIMENSION(5) :: multrainamongn ! RainAmongN for each intensity bin
1163 REAL(kind(1d0)), DIMENSION(5) :: multrainamongnupperi ! Upper bound of intensity bin for which to apply MultRainAmongN
1164
1165 ! ---- Model options currently set in model, but may be moved to RunControl at a later date
1166 INTEGER :: albedochoice, & !No additional albedo varaition (0); zenith angle calculation (1)
1167 !Currently set to 0 in SUEWS_Initial
1168 inputmetformat, & !Defines format for met input data: LUMPS format(1) or SUEWS format(10)
1169 !Currently set to 10 in SUEWS_Initial
1170 evapmethod, & !Evaporation calculated according to Rutter (1) or Shuttleworth (2)
1171 !Currently set to 2 in OverallRunControl
1172 laicalcyes, & !Use observed (0) or modelled (1) LAI
1173 !Currently set to 1 in OverallRunControl
1174 writedailystate !Daily state file written (1)
1175 !Currently set to 1 in SUEWS_Initial
1176
1177 ! ---- Other options used within model --------------------------------------------------------
1178 INTEGER :: ldown_option !Parameterisation used for downward longwave radiation (1/2/3)
1179
1180 ! ---- Output file numbers --------------------------------------------------------------------
1181 INTEGER :: lfnout, & !Error Output write units
1182 lfnoutc, & !Clean output write units
1183 lfnold !!Was used for GridConnections
1184
1185 INTEGER :: outputformats !Used to control writing out of output file format
1186
1187 ! ---- Other options set in RunControl --------------------------------------------------------
1188 REAL(kind(1d0)) :: timezone !Timezone (GMT=0)
1189
1190 ! ---- Variables in alphabetical order --------------------------------------------------------
1191 !! Add units
1192 REAL(kind(1d0)) :: alpha_qhqe, & !Alpha parameter used in LUMPS QH and QE calculations [-]
1193 alt, & !Altitude [m]
1194 ! avdens, & !Average air density, moved to by TS, 27 Aug 2019
1195 avkdn, & !Average downwelling shortwave radiation
1196 avrh, & !Average relative humidity
1197 avts, & !Average surface temperature
1198 avu1, & !Average wind speed
1199 avu10_ms, & !Average wind speed at 10 m
1200 azimuth, & !Sun azimuth in degrees
1201 baset_hc, & !Base temperature for QF
1202 buildenergyuse, & ! Building energy use
1203 co2mwd, & !Diurnal activity profile (weekday)
1204 co2mwe, & !Diurnal activity profile (weekend)
1205 co2pointsource, & !CO2 point source [kg C day-1]
1206 e_mod, & !Modelled latent heat flux with LUMPS [W m-2]
1207 ef_umolco2perj, & !CO2 emission factor for fuels used for building heating [umol CO2 J-1]
1208 emis_snow, & !Emissivity of snow
1209 enef_v_jkm, & !Heat release per vehicle per meter of travel [J km-1 veh-1]
1210 enprofwd, & !Diurnal energy use profile (weekday)
1211 enprofwe, & !Diurnal energy use profile (weekend)
1212 fc, & !CO2 flux [umol m-2 s-1]
1213 fc_anthro, & !CO2 flux (anthropogenic part) [umol m-2 s-1]
1214 fc_biogen, & !CO2 flux (biogenic part) [umol m-2 s-1]
1215 fc_build, & !CO2 flux (building energy use component) [umol m-2 s-1]
1216 fc_metab, & !CO2 flux (human metabolism component) [umol m-2 s-1]
1217 fc_photo, & !CO2 flux (photosynthesis component) [umol m-2 s-1]
1218 fc_point, & !CO2 flux (Point source component) [umol m-2 s-1]
1219 fc_respi, & !CO2 flux (non-human respiration component) [umol m-2 s-1]
1220 fc_traff, & !CO2 flux (traffic component) [umol m-2 s-1]
1221 fcld, & !Cloud fraction modelled
1222 fcld_obs, & !Cloud fraction observed
1223 frfossilfuel_heat, & !Fraction of fossil fuels used for building heating relative to district heating
1224 frfossilfuel_nonheat, & !Fraction of fossil fuels used for energy consumption relative to district heating
1225 frpddwe, & !Fraction of weekend population to weekday population
1226 h_mod, & !Modelled sensible heat flux with LUMPS [W m-2]
1227 kclear, & !Theoretical downward shortwave radiation
1228 kdiff, & !Diffuse shortwave radiation
1229 kdir, & !Direct shortwave radiation
1230 kup, & !Upward shortwave radiation
1231 lai_obs, & !LAI for study area provided in met forcing file
1232 lat, & !Latitude
1233 ldown, & !Downward longwave radiation
1234 ldown_obs, & !Downwelling longwave radiation
1235 lng, & !Longitude
1236 lup, & !Upward longwave radiation
1237 maxfcmetab, & !Maximum (day) CO2 from human metabolism
1238 maxqfmetab, & !Maximum (day) anthropogenic heat from human metabolism
1239 minfcmetab, & !Minimum (night) CO2 from human metabolism
1240 minqfmetab, & !Minimum (night) anthropogenic heat from human metabolism
1241 popdensnighttime, & ! Nighttime population density [ha-1] (i.e. residents)
1242 popprofwd, & !Diurnal profile for population density (weekday)
1243 popprofwe, & !Diurnal profile for population density (weekend)
1244 precip, & !Precipitation per timestep [mm]
1245 precip_hr, & !Precipitation [mm hr-1]
1246 press_hpa, & !Station air pressure in hPa
1247 pres_kpa, & !Station air pressure in kPa
1248 q2_gkg, & ! Specific humidity at 2 m
1249 qe, & !Observed latent heat flux
1250 qe_obs, &
1251 qf_build, & !Anthropogenic heat flux from building [W m-2]
1252 qf_metab, & !Anthropogenic heat flux from human metabolism [W m-2]
1253 qf_traff, & !Anthropogenic heat flux from traffic [W m-2]
1254 qf_obs, & !Observed anthropogenic heat flux
1255 qf_sahp, & !Anthropogenic heat flux calculated by SAHP
1256 qf_sahp_base, & !Anthropogenic heat flux calculated by SAHP (temp independent part)
1257 qf_sahp_heat, & !Anthropogenic heat flux calculated by SAHP (heating part only)
1258 qf_sahp_ac, & !AC contribution
1259 qh, & !Observed sensible heat flux
1260 qh_obs, &
1261 qh_r, & !Sensible heat flux calculated using resistance method
1262 qn1, & !Net all-wave radiation for the study area
1263 qn1_bup, &
1264 qn1_obs, & !Observed new all-wave radiation
1265 qn1_s, & !Total net all-wave radiation for the SnowPack
1266 qn1_snowfree, & !Total net all-wave radiation for the snowfree surface
1267 qs_obs, & !Observed storage heat flux
1268 qsanohm, & !Simulated storage heat flux by AnOHM, TS 30 May 2016
1269 qsestm, & !Simulated storage heat flux by ESTM, TS 30 May 2016
1270 snow, & !snow cover
1271 snowfrac_obs, & !Observed snow cover
1272 temp_c, & !Air temperature
1273 t2_c, & !Air temperature at 2 m, TS 20 May 2017
1274 trafficunits, & !Option for traffic units (1=[veh km m-2 day-1] 2=[veh km cap-1 day-1])
1275 traffprofwd, & !Diurnal traffic profile (weekday)
1276 traffprofwe, & !Diurnal traffic profile (weekend)
1277 trans_site, & !Atmospheric transmissivity
1278 tsurf, & !Surface temperature
1279 wdir, & ! Wind direction
1280 wu_m3, & !Water use provided in met forcing file [m3]
1281 xsmd, & !Measured soil moisture deficit
1282 year, & !Year of the measurements
1283 zenith_deg !Sun zenith angle in degrees
1284
1285 REAL(kind(1d0)), DIMENSION(2) :: qf_a, qf_b, qf_c, & !Qf coefficients
1286 ah_min, & !Minimum anthropogenic heat flux (AnthropHeatMethod = 1)
1287 ah_slope_heating, & !Slope of the antrhropogenic heat flux calculation (AnthropHeatMethod = 1)
1288 ah_slope_cooling, &
1289 fcef_v_kgkm, &
1290 ! NumCapita, &
1291 popdensdaytime, &
1292 baset_heating, & !Critical temperature
1293 baset_cooling, & !Critical cooling temperature
1294 trafficrate, & !Traffic rate
1295 qf0_beu
1296
1297 ! INTEGER,DIMENSION(2)::DayLightSavingDay !DOY when daylight saving changes
1298 INTEGER :: startdls !DOY when daylight saving starts
1299 INTEGER :: enddls !DOY when daylight saving ends
1300
1301 INTEGER :: ncblstep !number of time steps of Runge-kutta methods in one hour
1302
1303 !---------Water bucket (see B. Offerle's PhD)----------------------------------
1304 REAL(kind(1d0)) :: drainrt, & !Drainage rate of the water bucket [mm hr-1]
1305 rainbucket, & !RAINFALL RESERVOIR [mm]
1306 raincover, &
1307 rainmaxres, & !Maximum water bucket reservoir [mm]
1308 rainres, & ! [mm]
1309 tempveg !TEMPORARY VEGETATIVE SURFACE FRACTION ADJUSTED BY RAINFALL
1310
1311 !---------SOLWEIG variables---------------------------------------------------
1312 REAL(kind(1d0)) :: absl, & ! Absorption coefficient of longwave radiation of a person
1313 absk, & ! Absorption coefficient of shortwave radiation of a person
1314 heightgravity, & ! Centre of gravity for a standing person
1315 transmin, & ! Tranmissivity of K through decidious vegetation (leaf on)
1316 transmax ! Tranmissivity of K through decidious vegetation (leaf off)
1317
1318 INTEGER :: posture, & ! 1.Standing, 2.Sitting
1319 usevegdem, & ! With vegetation (1)
1320 row, & ! Y coordinate for point of interest
1321 col, & ! X coordinate for point of interest
1322 onlyglobal, & ! if no diffuse and direct SW, then =1
1323 solweigpoi_out, & ! write output variables at point of interest
1324 tmrt_out, & ! write output Tmrt grid
1325 lup2d_out, & ! write output Lup grid
1326 ldown2d_out, & ! write output Ldown grid
1327 kup2d_out, & ! write output Kup grid
1328 kdown2d_out, & ! write output Kdown grid
1329 gvf_out, & ! write output GroundViewFActor grid
1330 solweig_ldown, & ! 1= use SOLWEIG code to estimate Ldown, 0=use SEUWS
1331 outinterval, & ! Output interval in minutes
1332 runforgrid ! If only one grid should be run. All grids -999
1333
1334 CHARACTER(len=150) :: dsmpath, & ! Path to DSMs
1335 dsmname, & ! Ground and building DSM
1336 cdsmname, & ! Canopy DSM
1337 tdsmname, & ! Trunk zone DSM
1338 svfpath, & ! Path to SVFs
1339 svfsuffix, & !
1340 buildingsname ! Boolean matrix for locations of building pixels
1341
1342 !--------- AnOHM related variables----------------------------------
1343 ! to be added here
1344
1345END MODULE data_in
1346!==================================================================================================
1347
1348MODULE snowmod
1349 IMPLICIT NONE
1350
1351 REAL(kind(1d0)) :: adjmeltfact, & !Factor between melt and freezing factors
1352 snowfallcum, & !Cumulative snowfall
1353 fwh, & !Weighted freezing water
1354 lvs_j_kg, & !Latent heat of sublimation in J/kg
1355 mwh, & !Weighted hourly water melt
1356 mwstore, & !Meltwater storage
1357 preciplimit, & !Temperature limit when precipitation occurs as snow
1358 preciplimitalb, & !Precipitation limit for albedo change (in mm)
1359 qm, & !Snow melt associated heat flux
1360 qmfreez, & !Energy released in freezing of meltwater or surface state
1361 qmrain, &
1362 qn1_snow, & !Net all-wave radiation of SnowPack
1363 qn1_nosnow, & !Same for the snow free surface
1364 radmeltfact, & !Radiation melt factor
1365 snowalb, & !Snow albedo
1366 snowalbmin, & !Minimum snow albedo
1367 snowalbmax, & !Maximum snow albedo
1368 snowdensmin, & !Minimum density of snow
1369 snowdensmax, & !Maximum density of snow
1370 snowlimbldg, & !Snow removal limits for roofs in mm)
1371 snowlimpaved, & !Snow removal limits for paved surfaces in mm)
1372 swe, & !Weighted snow water equivalent (in mm)
1373 tau_a, & !Time constans related to albedo change
1374 tau_f, &
1375 tau_r, & !Time constant for density increase.
1376 tempmeltfact, & !Temperature melt factor
1377 volday, & !Volume of the melted water per day
1378 zf, &
1379 waterholdcapfrac, & !Water holding capacity factor
1380 crwmin, & !Free water holding capacity of deep SnowPack
1381 crwmax !Free water holding capacity of shallow SnowPack
1382
1383 REAL(kind(1d0)), DIMENSION(2) :: snowremoval = 0 ! Removal of snow in mm
1384 REAL(kind(1d0)), DIMENSION(0:23, 2) :: snowprof_24hr ! Timing of snow removal (0 or 1) Hourly, WD/WE
1385
1386 INTEGER :: snowfractionchoice = 2 !Choice how fraction of snow is calculated
1387
1388END MODULE snowmod
1389!===================================================================================
1390
1391!==================================================================================================
1392MODULE defaultnotused
1393 IMPLICIT NONE
1394 REAL(kind(1d0)) :: notused = -55.55, reall, nan = -999, pnan = 999
1395 INTEGER :: notusedi = -55, ios_out
1396 INTEGER :: errorchoice, warningchoice !errorChoice/warningChoice defines if problems.txt/warnings.txt is opened for the first time
1397END MODULE defaultnotused
1398!==================================================================================================
1399
1400!==================================================================================================
1401MODULE time
1402 INTEGER :: iy, & !Year
1403 id, & !Day of year
1404 it, & !Hour
1405 imin, & !Minutes
1406 isec, & !Seconds
1407 dls !day lightsavings =1 + 1h) =0
1408
1409 REAL(kind(1d0)) :: dectime !Decimal time
1410 REAL(kind(1d0)) :: tstepcount !Count number of timesteps in this day
1411 INTEGER :: nofdaysthisyear !Based on whether leap year or not
1412 INTEGER :: dt_since_start ! time since simulation starts [s]
1413
1414 INTEGER :: iy_prev_t, id_prev_t !Value of iy and id at previous timestep
1415
1416END MODULE time
1417!==================================================================================================
1418
1419!===================================================================================
1420MODULE mod_grav
1421 REAL(kind(1d0)) :: grav = 9.80665 !g - gravity - physics today august 1987
1422END MODULE mod_grav
1423
1424!===================================================================================
1425
1426!===================================================================================
1427MODULE thresh
1428 REAL(kind(1d0)) :: ipthreshold_mmhr = 10 !Threshold for intense precipitation [mm hr-1]
1429
1430END MODULE thresh
1431
1432!===================================================================================
1433MODULE gas
1434 ! press (mb) ea (mb)
1435 IMPLICIT NONE
1436 REAL(kind(1d0)) :: comp = 0.9995
1437 REAL(kind(1d0)) :: epsil = 0.62197 !ratio molecular weight of water vapor/dry air (kg/mol/kg/mol)
1438 REAL(kind(1d0)) :: epsil_gkg = 621.97 !ratio molecular weight of water vapor/dry air in g/kg
1439 REAL(kind(1d0)) :: dry_gas = 8.31451 !Dry gas constant (J/k/mol)
1440 REAL(kind(1d0)) :: gas_ct_wat = 461.05 !Gas constant for water (J/kg/K)
1441 REAL(kind(1d0)) :: molar = 0.028965 !Dry air molar fraction in kg/mol
1442 REAL(kind(1d0)) :: molar_wat_vap = 0.0180153 !Molar fraction of water vapor in kg/mol
1443 REAL(kind(1d0)) :: gas_ct_dry = 8.31451/0.028965 !j/kg/k=dry_gas/molar
1444 REAL(kind(1d0)) :: gas_ct_wv = 8.31451/0.0180153 !j/kg/kdry_gas/molar_wat_vap
1445END MODULE gas
1446
1447!**********************************************
1448MODULE mod_z
1449 REAL(kind(1d0)) :: zzd, & !Active measurement height (meas. height-displac. height)
1450 z0m, & !Aerodynamic roughness length
1451 zdm, & !Displacement height
1452 z0m_in, & !Aerodynamic roughness length set in SiteSelect
1453 zdm_in, & !Displacement height set in SiteSelect
1454 z !Windspeed height
1455 REAL(kind(1e10)) :: z0v !Roughness length for vapour
1456END MODULE mod_z
1457
1458!**********************************************
1459MODULE resist !Variables related surface resistance calculations (P. 1744 in G&O1991)
1460 IMPLICIT NONE
1461 REAL(kind(1d0)) :: th, & !Maximum temperature limit
1462 tl, & !Minimum temperature limit
1463 kmax, & !Annual maximum hourly solar radiation
1464 g1, g2, g3, g4, & !Fitted parameters related to
1465 g5, g6, s1, s2, & !surface res. calculations
1466 tc, & !Temperature parameter 1
1467 tc2 !Temperature parameter 2
1468 INTEGER :: gsmodel !Choice of gs parameterisation (1 = Ja11, 2 = Wa16)
1469END MODULE resist
1470
1471!**********************************************
1472MODULE moist
1473 IMPLICIT NONE
1474
1475 REAL(kind(1d0)) :: avcp, & !Specific heat capacity
1476 dens_dry, & !Dry air density kg m-3
1477 avdens, & !Average air density
1478 dq, & !Specific humidity deficit
1479 ea_hpa, & !Water vapour pressure in hPa
1480 es_hpa, & !Saturation vapour pressure in hPa
1481 lv_j_kg, & !Latent heat of vaporization in [J kg-1]
1482 tlv, & !Latent heat of vaporization per timestep [J kg-1 s-1] (tlv=lv_J_kg/tstep_real)
1483 psyc_hpa, & !Psychometric constant in hPa
1484 psycice_hpa, & !Psychometric constant in hPa for snow
1485 s_pa, & !Vapour pressure versus temperature slope in Pa
1486 s_hpa, & !Vapour pressure versus temperature slope in hPa
1487 sice_hpa, & !Vapour pressure versus temperature slope in hPa above ice/snow
1488 vpd_hpa, & !Vapour pressure deficit in hPa
1489 vpd_pa, & !Vapour pressure deficit in Pa
1490 waterdens = 999.8395 !Density of water in 0 cel deg
1491
1492END MODULE moist
1493!**********************************************
1494
1495MODULE gis_data
1496 IMPLICIT NONE
1497
1498 REAL(kind(1d0)) :: areaunir, & !Unirrigated area
1499 areair, & !Irrigated area
1500 bldgh, & !Mean building height
1501 faibldg, & !Frontal area fraction of buildings
1502 faitree, & !Frontal area fraction of trees
1503 faievetree, & !Frontal area fraction of evergreen trees
1504 faidectree, & !Frontal area fraction of deciduous trees
1505 grassfractionirrigated, & !Irrigated grass fraction for LUMPS
1506 pavedfractionirrigated, & !Irrigated paved area fraction for LUMPS
1507 treeh, & !Mean tree height
1508 evetreeh, & !Height of evergreen trees
1509 dectreeh, & !Height of deciduous trees
1510 treefractionirrigated, & !Irrigated tree fraction for LUMPS
1511 veg_fr, & !Vegetation fraction from land area
1512 !- For LUMPS - dependent on user choice & water
1513 vegfraction, & ! sum of vegetation -not including water
1514 impervfraction, & ! sum of surface cover fractions for impervious surfaces
1515 pervfraction, & ! sum of surface cover fractions for pervious surfaces
1516 nonwaterfraction, & ! sum of surface cover fractions for all except water surfaces
1517 areazh !=(sfr_surf(BldgSurf)+sfr_surf(ConifSurf)+sfr_surf(DecidSurf)) !Total area of buildings and trees
1518
1519 INTEGER :: idgis, & !Time integers used in the code
1520 itgis, & !
1521 veg_type = 1 !Defines how vegetation is calculated for LUMPS
1522
1523END MODULE gis_data
1524
1525!************************************************************
1526MODULE sues_data
1527 IMPLICIT NONE
1528
1529 INTEGER :: tstep, & !Timestep [s] at which the model is run (set in RunControl)
1530 tstep_prev, & !Timestep [s] of previous timestamp !NB: not used by SUEWS, but by WRF-SUEWS for adaptive time step
1531 nsh, & !Number of timesteps per hour
1532 nsd, & !Number of timesteps per day
1533 nsdorig, & !Number of timesteps per day for original met forcing file
1534 t_interval, & !Number of seconds in an hour [s] (now set in OverallRunControl)
1535 npertstepin, nperestm ! Number of model time-steps per input resolution (ResolutionFilesIn/Tstep)
1536
1537 REAL(kind(1d0)) :: nsh_real, & !nsh cast as a real for use in calculations
1538 tstep_real, & !tstep cast as a real for use in calculations
1539 npertstepin_real, nperestm_real !Nper as real
1540
1541 REAL(kind(1d0)) :: halftimestep !In decimal time based on interval
1542
1543 !Options for model setup (switches, etc) mainly set in RunControl
1544 INTEGER :: stabilitymethod, & !Defines stability functions used (set in RunControl)
1545 roughlenheatmethod !Defines method for calculating roughness length for heat (set in RunControl)
1546
1547 INTEGER :: in
1548 INTEGER :: is !Integer to count over surface types
1549
1550 !These are variables which currently have been removed from SuesInput.nml
1551 INTEGER :: aerodynamicresistancemethod = 2 !The method used to calculate aerodynamic resistance
1552
1553 INTEGER :: ie_start, & !Starting time of water use (DOY)
1554 ie_end !Ending time of water use (DOY)
1555
1556 REAL(kind(1d0)), DIMENSION(2) :: surplusevap !Surplus for evaporation in 5 min timestep
1557 ! sg -- need to determine size
1558
1559 !Variables listed in SuesInput.nml
1560 REAL(kind(1d0)) :: flowchange, & !Difference between the input and output flow in the water body
1561 pipecapacity, & !Capacity of pipes to transfer water
1562 runofftowater, & !Fraction of surface runoff going to water body
1563 smcap, & !Volumetric/gravimetric soil moisture capacity
1564 soildensity, & !Bulk density of soil
1565 soildepthmeas, & !Soil depth of the measured soil moisture
1566 soilrocks, & !Fraction of rocks in soil
1567 surfacearea, & !Surface area of the study area [m2]
1568 surfacearea_ha, & !Surface area of the study area [ha]
1569 waterbodytype, & !If water body type is pond/lake (=1) or river (=2)
1570 waterstorcap, & !Capacity of water body when surface is wet
1571 wuareaevetr_m2, & !Water use area (evergreen trees) [m2]
1572 wuareadectr_m2, & !Water use area (deciduous trees) [m2]
1573 wuareagrass_m2, & !Water use area (grass) [m2]
1574 wuareatotal_m2, & !Water use area (total) [m2]
1575 wu_evetr, & !Water use for evergreen trees/shrubs [mm]
1576 wu_dectr, & !Water use for deciduous trees/shrubs [mm]
1577 wu_grass !Water use for grass [mm]
1578
1579 !Other related to SUES
1580 REAL(kind(1d0)) :: additionalwater, & !Water flow from other grids
1581 ch_per_interval, & !Change in state per interval
1582 chsnow_per_interval, & !Change in snow state per interval
1583 di_dt, & !Water flow between two stores
1584 dr_per_interval, & !Drainage per interval
1585 ev_per_interval, & !Evaporation per interval
1586 surf_chang_per_tstep, & !Change in surface state per timestep [mm] (for whole surface)
1587 tot_chang_per_tstep, & !Change in surface and SoilState per timestep [mm] (for whole surface)
1588 nwstate_per_tstep, & !State per timestep [mm] (for whole surface, excluding water body)
1589 state_per_tstep, & !State per timestep [mm] (for whole surface)
1590 drain_per_tstep, & !Drainage per timestep [mm] (for whole surface, excluding water body)
1591 runoff_per_tstep, & !Runoff per timestep [mm] (for whole surface)
1592 runoffsoil_per_tstep, & !Runoff to deep soil per timestep [mm] (for whole surface, excluding water body)
1593 ev_per_tstep, & !Evaporation per timestep [mm] (for whole surface)
1594 qe_per_tstep, & !QE [W m-2] (for whole surface)
1595 p_mm, & !Inputs to surface water balance
1596 pin, & !Rain per time interval
1597 fai, & !Areally weighted frontal area fraction
1598 pai, & !Areally weighted plan area fraction
1599 rb, & !Boundary layer resistance
1600 ! Water leaving each grid for grid-to-grid connectivity
1601 runoffagimpervious, & !Above ground runoff from impervious surface [mm] for whole surface area
1602 runoffagveg, & !Above ground runoff from vegetated surfaces [mm] for whole surface area
1603 runoffwaterbody, & !Above ground runoff from water surface [mm] for whole surface area
1604 runoffpipes, & !Runoff in pipes [mm] for whole surface area
1605 runoffagimpervious_m3, & !Volume of above ground runoff from impervious surface [m3]
1606 runoffagveg_m3, & !Volume of above ground runoff from vegetated surfaces [m3]
1607 runoffwaterbody_m3, & !Volume of above ground runoff from water surface [m3]
1608 runoffpipes_m3, & !Volume of runoff in pipes [m3]
1609 runoff_per_interval, & ! Total water transported to each grid for grid-to-grid connectivity
1610 addimpervious, & !Water from impervious surfaces of other grids [mm] for whole surface area
1611 addveg, & !Water from vegetated surfaces of other grids [mm] for whole surface area
1612 addwaterbody, & !Water from water surface of other grids [mm] for whole surface area
1613 addpipes, & !Water in pipes from other grids [mm] for whole surface area
1614 runoffsoil_per_interval, &
1615 qe_per_interval, & !latent heat per interval
1616 soilmoistcap, &
1617 soilstate, & !Area-averaged soil moisture [mm] for whole surface
1618 st_per_interval, & !Surface state per interval
1619 surpluswaterbody, & !Extra runoff that goes to water body [mm] as specified by RunoffToWater
1620 tlv_sub, &
1621 overuse = 0, &
1622 zh !Areally weighted roughness element height
1623
1624 !Calculation of u*,stability and aerodynamic resistance
1625 REAL(kind(1d0)) :: h, & !Kinematic sensible heat flux [K m s-1] used to calculate friction velocity
1626 l_mod, & !Monin-Obukhov length (either measured or modelled)
1627 psim, & !Stability function of momentum
1628 psih, & !Stability function of heat
1629 ra, & !Aerodynamic resistance
1630 rasnow, & !Aerodynamic resistance over snow
1631 tstar, & !T*
1632 ustar, & !Friction velocity
1633 z0_gis !Roughness length for momentum from gis input file
1634
1635 !Surface resistance related variables
1636 REAL(kind(1d0)) :: resistsurf, & !Surface resistance
1637 gdq, & !G(dq)
1638 qnm, & !QMAX/(QMAX+G2)
1639 gq, & !G(Q*)
1640 gtemp, & !G(T)
1641 gl, & !G(LAI)
1642 sdp, & !S1/G6+S2
1643 smd, & !Soil moisture deficit of the soil surface layer
1644 vsmd, & !Soil moisture deficit for vegetated surfaces only (QUESTION: what about BSoil?)
1645 gs, & !G(Soil moisture deficit)
1646 gsc, & !Surface Layer Conductance
1647 rss !Surface resistance after wet/partially wet adjustment
1648
1649 !SUES latent heat flux related variables
1650 REAL(kind(1d0)) :: vdrc, & !Second term up in calculation of E
1651 numpm, & !Numerator of PM equation
1652 sp, & !Term in calculation of E
1653 sae, & !Same
1654 ev, & !Evaporation
1655 rst, & !Flag in SUEWS_Evap (gets set to 1 if surface dry; 0 if surface wet)
1656 qeph, & !Latent heat flux (W m^-2)
1657 qeout !Latent heat flux [W m-2]
1658
1659 REAL(kind(1d0)), DIMENSION(:), ALLOCATABLE :: qhforcbl, qeforcbl ! Stores previous timestep qh and qe for CBL model. Added by HCW 21 Mar 2017
1660 INTEGER :: qh_choice ! selection of qh use to drive CBL growth 1=Suews 2=lumps 3=obs
1661
1662 !Water use related variables
1663 REAL(kind(1d0)) :: ext_wu, & !External water use for the model timestep [mm] (over whole study area)
1664 faut, & !Fraction of irrigated area using automatic irrigation
1665 h_maintain, & ! ponding water depth to maintain [mm] (over whole study area)
1666 int_wu, & !Internal water use for the model timestep [mm] (over whole study area)
1667 irrfracpaved, & !Fraction of paved which are irrigated
1668 irrfracbldgs, & !Fraction of buildings which are irrigated
1669 irrfracevetr, & !Fraction of evergreen trees which are irrigated
1670 irrfracdectr, & !Fraction of deciduous trees which are irrigated
1671 irrfracgrass, & !Fraction of grass which is irrigated
1672 irrfracbsoil, & !Fraction of bare soil which is irrigated
1673 irrfracwater, & !Fraction of water which is irrigated
1674 internalwateruse_h !Internal water use [mm h-1]
1675
1676 ! 7 - number of days in week
1677 REAL(kind(1d0)), DIMENSION(7) :: daywatper, & !% of houses following daily water
1678 daywat !Days of watering allowed
1679 ! REAL(KIND(1d0)), DIMENSION(0:23, 2):: WUProfM_24hr, & !Hourly profiles for water use (manual irrigation)
1680 ! WUProfA_24hr !Hourly profiles for water use (automatic irrigation)
1681
1682 REAL(kind(1d0)), DIMENSION(3) :: ie_a, ie_m !Coefficients for automatic and manual irrigation models
1683
1684END MODULE sues_data
1685
1686!**********************************************
1687!===================================================================================
1688MODULE vegphenogy
1689 IMPLICIT NONE
1690 REAL(kind(1d0)) :: vegphenlumps, deltalai
1691END MODULE vegphenogy
1692
1693MODULE filename
1694 CHARACTER(len=90) :: smithfile !file for NARP
1695END MODULE filename
1696
1697MODULE initialcond
1698
1699 REAL(kind(1d0)) :: laiinitialevetr, &
1700 laiinitialdectr, &
1701 laiinitialgrass, &
1702 porosity0, &
1703 decidcap0, &
1704 albdectr0, &
1705 albevetr0, &
1706 albgrass0, &
1707 temp_c0, &
1708 gdd_1_0, &
1709 gdd_2_0, &
1710 soilstorepavedstate, &
1711 soilstorebldgsstate, &
1712 soilstoreevetrstate, &
1713 soilstoredectrstate, &
1714 soilstoregrassstate, &
1715 soilstorebsoilstate, &
1716 snowwaterpavedstate, &
1717 snowwaterbldgsstate, &
1718 snowwaterevetrstate, &
1719 snowwaterdectrstate, &
1720 snowwatergrassstate, &
1721 snowwaterbsoilstate, &
1722 snowwaterwaterstate, &
1723 snowpackpaved, &
1724 snowpackbldgs, &
1725 snowpackevetr, &
1726 snowpackdectr, &
1727 snowpackgrass, &
1728 snowpackbsoil, &
1729 snowpackwater, &
1730 snowalb0 !,&
1731 ! BoInit !initial Bo for AnOHM, TS 13 Jul 2016 ! removed, TS 30 Jan 2018
1732
1733 INTEGER :: id_prev
1734
1735END MODULE initialcond
1736
1737!-------------------------------------------------
1738!New modules for the column numbers
1739
1740!-------------------------------------------------------------------------
1741MODULE colnamesmodeldailystate
1742
1743 IMPLICIT NONE
1744
1745 !========== Columns for ModelDailyState array =========================
1746
1747 INTEGER :: cmds_id_prev = 3, &
1748 cmds_hdd1 = 4, &
1749 cmds_hdd2 = 5, &
1750 cmds_tempc = 6, &
1751 cmds_tempcrm = 7, &
1752 cmds_precip = 8, &
1753 cmds_dayssincerain = 9, &
1754 cmds_tempcold1 = 10, &
1755 cmds_tempcold2 = 11, &
1756 cmds_tempcold3 = 12, &
1757 cmds_gddmin = 13, &
1758 cmds_gddmax = 14, &
1759 cmds_gdd1_0 = 15, &
1760 cmds_gdd2_0 = 16, &
1761 cmds_laiinitialevetr = 17, &
1762 cmds_laiinitialdectr = 18, &
1763 cmds_laiinitialgrass = 19, &
1764 cmds_porosity = 20, &
1765 cmds_albevetr = 21, &
1766 cmds_albdectr = 22, &
1767 cmds_albgrass = 23, &
1768 cmds_decidcap = 24, &
1769 cmds_snowfallcum = 25, &
1770 cmds_laievetr = 26, &
1771 cmds_laidectr = 27, &
1772 cmds_laigrass = 28, &
1773 cmds_snowalb = 29, &
1774 cmds_boratio = 30, & ! noontime Bowen ratio, added by TS
1775 cmds_a1anohm = 31, & ! a1 of AnOHM, added by TS
1776 cmds_a2anohm = 32, & ! a2 of AnOHM, added by TS
1777 cmds_a3anohm = 33 ! a3 of AnOHM, added by TS
1778
1779END MODULE colnamesmodeldailystate
1780
1781!-------------------------------------------------------------------------
1782MODULE colnamesinputfiles
1783
1784 IMPLICIT NONE
1785
1786 INTEGER :: ccc !Column counter
1787
1788 ! Column names and numbers must match the input files
1789
1790 !========== Columns for SUEWS_SiteSelect.txt ==========================
1791 ! Columns 1:97 are the same for SurfaceChar
1792 INTEGER :: c_grid = 1, &
1793 c_year = 2, &
1794 c_startdls = 3, &
1795 c_enddls = 4, &
1796 ! Site info
1797 c_lat = 5, &
1798 c_lng = 6, &
1799 c_tz = 7, &
1800 c_area = 8, &
1801 c_alt = 9, &
1802 c_z = 10, &
1803 ! Time info
1804 c_id = 11, &
1805 c_it = 12, &
1806 c_imin = 13, &
1807 ! Surface fractions
1808 c_frpaved = 14, &
1809 c_frbldgs = 15, &
1810 c_frevetr = 16, &
1811 c_frdectr = 17, &
1812 c_frgrass = 18, &
1813 c_frbsoil = 19, &
1814 c_frwater = 20, &
1815 ! Irrigated fractions
1816 c_irrpavedfrac = 21, &
1817 c_irrbldgsfrac = 22, &
1818 c_irrevetrfrac = 23, &
1819 c_irrdectrfrac = 24, &
1820 c_irrgrassfrac = 25, &
1821 c_irrbsoilfrac = 26, &
1822 c_irrwaterfrac = 27, &
1823 ! Height information
1824 c_hbldgs = 28, &
1825 c_hevetr = 29, &
1826 c_hdectr = 30, &
1827 c_z0m = 31, &
1828 c_zdm = 32, &
1829 c_faibldgs = 33, &
1830 c_faievetr = 34, &
1831 c_faidectr = 35, &
1832 ! Population
1833 c_popdensday = 36, &
1834 c_popdensnight = 37, &
1835 c_trafficrate_wd = 38, & ! Mean traffic rate in modelled area [veh km m-2 s-1] Weekday
1836 c_trafficrate_we = 39, & ! Mean traffic rate in modelled area [veh km m-2 s-1] Weekend
1837 c_qf0_beu_wd = 40, & ! Building energy use for modelled area [W m-2] - QUESTION: could change units?
1838 c_qf0_beu_we = 41, &
1839 ! Codes for different surfaces
1840 c_pavedcode = 42, & ! Links characteristics in SUEWS_NonVeg.txt
1841 c_bldgscode = 43, & ! Links characteristics in SUEWS_NonVeg.txt
1842 c_evetrcode = 44, & ! Links characteristics in SUEWS_Veg.txt
1843 c_dectrcode = 45, & ! Links characteristics in SUEWS_Veg.txt
1844 c_grasscode = 46, & ! Links characteristics in SUEWS_Veg.txt
1845 c_bsoilcode = 47, & ! Links characteristics in SUEWS_Veg.txt
1846 c_watercode = 48, & ! Links characteristics in SUEWS_Water.txt
1847 ! LUMPS info
1848 c_lumpsdr = 49, &
1849 c_lumpscover = 50, &
1850 c_lumpsmaxres = 51, &
1851 ! NARP info
1852 c_narptrans = 52, &
1853 ! Code for conductances
1854 c_condcode = 53, & ! Links characteristics in SUEWS_Conductance.txt
1855 ! Code for snow
1856 c_snowcode = 54, & ! Links characteristics in SUEWS_Snow.txt
1857 ! Codes for human impacts on energy, water and snow
1858 c_snowprofwd = 55, & ! Snow-clearing profile in SUEWS_Profile.txt (weekdays)
1859 c_snowprofwe = 56, & ! Snow-clearing profile in SUEWS_Profile.txt (weekends)
1860 c_qfcode = 57, & ! Links anthropogenic heat info in SUEWS_AnthropogenicEmission.txt
1861 c_irrcode = 58, & ! Links irrigation info in SUEWS_Irrigation.txt
1862 c_wprofmanuwd = 59, & ! Links to water-use profile in SUEWS_Profile.txt (manual irrigation, weekdays)
1863 c_wprofmanuwe = 60, & ! Links to water-use profile in SUEWS_Profile.txt (manual irrigation, weekends)
1864 c_wprofautowd = 61, & ! Links to water-use profile in SUEWS_Profile.txt (automatic irrigation, weekdays)
1865 c_wprofautowe = 62, & ! Links to water-use profile in SUEWS_Profile.txt (automatic irrigation, weekends)
1866 ! Flow information
1867 c_flowchange = 63, & ! Difference in input & output flows for water surface
1868 c_runofftowater = 64, & ! Fraction of above-ground runoff flowing to water surface
1869 c_pipecapacity = 65, & ! Pipe capacity [mm]
1870 ! Runoff (to 8 adjacent grids)
1871 c_gridconnection1of8 = 66, &
1872 c_fraction1of8 = 67, &
1873 c_gridconnection2of8 = 68, &
1874 c_fraction2of8 = 69, &
1875 c_gridconnection3of8 = 70, &
1876 c_fraction3of8 = 71, &
1877 c_gridconnection4of8 = 72, &
1878 c_fraction4of8 = 73, &
1879 c_gridconnection5of8 = 74, &
1880 c_fraction5of8 = 75, &
1881 c_gridconnection6of8 = 76, &
1882 c_fraction6of8 = 77, &
1883 c_gridconnection7of8 = 78, &
1884 c_fraction7of8 = 79, &
1885 c_gridconnection8of8 = 80, &
1886 c_fraction8of8 = 81, &
1887 ! Runoff within grid (for each surface type)
1888 c_wgpavedcode = 82, & ! Links to SUEWS_WaterDistibuteWithinGrid.txt
1889 c_wgbldgscode = 83, & ! Links to SUEWS_WaterDistibuteWithinGrid.txt
1890 c_wgevetrcode = 84, & ! Links to SUEWS_WaterDistibuteWithinGrid.txt
1891 c_wgdectrcode = 85, & ! Links to SUEWS_WaterDistibuteWithinGrid.txt
1892 c_wggrasscode = 86, & ! Links to SUEWS_WaterDistibuteWithinGrid.txt
1893 c_wgbsoilcode = 87, & ! Links to SUEWS_WaterDistibuteWithinGrid.txt
1894 c_wgwatercode = 88, & ! Links to SUEWS_WaterDistibuteWithinGrid.txt
1895 ! Additional info for ESTM
1896 c_areawall = 89 ! Wall surface fraction (Awall/Agridcell)
1897
1898 INTEGER, DIMENSION(3) :: c_fr_estmclass_paved = (/(ccc, ccc=90, 92, 1)/) ! Fraction of Paved surface with ESTM Class 1-3
1899 INTEGER, DIMENSION(3) :: c_code_estmclass_paved = (/(ccc, ccc=93, 95, 1)/) ! Code for Paved surface ESTM Class 1-3
1900 INTEGER, DIMENSION(5) :: c_fr_estmclass_bldgs = (/(ccc, ccc=96, 100, 1)/) ! Fraction of Bldgs surface with ESTM Class 1-5
1901 INTEGER, DIMENSION(5) :: c_code_estmclass_bldgs = (/(ccc, ccc=101, 105, 1)/) ! Code for Bldgs surface ESTM Class 1-5
1902
1903 !========== Columns for SUEWS_NonVeg.txt ==========================
1904 INTEGER :: ci_code = 1, &
1905 ci_albmin = 2, &
1906 ci_albmax = 3, &
1907 ci_emis = 4, &
1908 ci_stormin = 5, &
1909 ci_stormax = 6, &
1910 ci_wetthresh = 7, &
1911 ci_statelimit = 8, &
1912 ci_dreq = 9, &
1913 ci_drcoef1 = 10, &
1914 ci_drcoef2 = 11, &
1915 ci_soiltcode = 12, &
1916 ci_snowlimpat = 13, &
1917 ci_snowlimrem = 14, &
1918 ci_ohmcode_swet = 15, &
1919 ci_ohmcode_sdry = 16, &
1920 ci_ohmcode_wwet = 17, &
1921 ci_ohmcode_wdry = 18, &
1922 ci_ohmthresh_sw = 19, &
1923 ci_ohmthresh_wd = 20, &
1924 ci_estmcode = 21, & ! ESTM code for each surface (if 0 use codes in SiteSelect instead)
1925 ci_cpanohm = 22, & ! heat capacity, added by TS AnOHM
1926 ci_kkanohm = 23, & ! heat conductivity, added by TS AnOHM
1927 ci_chanohm = 24 ! bulk transfer coef., added by TS AnOHM
1928
1929 !========== Columns for SUEWS_Veg.txt ============================
1930 INTEGER :: cp_code = 1, &
1931 cp_albmin = 2, &
1932 cp_albmax = 3, &
1933 cp_emis = 4, &
1934 cp_stormin = 5, &
1935 cp_stormax = 6, &
1936 cp_wetthresh = 7, &
1937 cp_statelimit = 8, &
1938 cp_dreq = 9, &
1939 cp_drcoef1 = 10, &
1940 cp_drcoef2 = 11, &
1941 cp_soiltcode = 12, &
1942 cp_snowlimpat = 13, &
1943 cp_baset = 14, &
1944 cp_basete = 15, &
1945 cp_gddfull = 16, &
1946 cp_sddfull = 17, &
1947 cp_laimin = 18, &
1948 cp_laimax = 19, &
1949 cp_porositymin = 20, &
1950 cp_porositymax = 21, &
1951 cp_gsmax = 22, &
1952 cp_laieq = 23, &
1953 cp_leafgp1 = 24, &
1954 cp_leafgp2 = 25, &
1955 cp_leafop1 = 26, &
1956 cp_leafop2 = 27, &
1957 cp_ohmcode_swet = 28, &
1958 cp_ohmcode_sdry = 29, &
1959 cp_ohmcode_wwet = 30, &
1960 cp_ohmcode_wdry = 31, &
1961 cp_ohmthresh_sw = 32, &
1962 cp_ohmthresh_wd = 33, &
1963 cp_estmcode = 34, &
1964 cp_cpanohm = 35, & ! heat capacity, added by TS AnOHM
1965 cp_kkanohm = 36, & ! heat conductivity, added by TS AnOHM
1966 cp_chanohm = 37, & ! bulk transfer coef., added by TS AnOHM
1967 cp_biogenco2code = 38
1968
1969 !========== Columns for SUEWS_Water.txt ===============================
1970 INTEGER :: cw_code = 1, &
1971 cw_albmin = 2, &
1972 cw_albmax = 3, &
1973 cw_emis = 4, &
1974 cw_stormin = 5, &
1975 cw_stormax = 6, &
1976 cw_wetthresh = 7, &
1977 cw_statelimit = 8, &
1978 cw_waterdepth = 9, &
1979 cw_dreq = 10, &
1980 cw_drcoef1 = 11, &
1981 cw_drcoef2 = 12, &
1982 cw_ohmcode_swet = 13, &
1983 cw_ohmcode_sdry = 14, &
1984 cw_ohmcode_wwet = 15, &
1985 cw_ohmcode_wdry = 16, &
1986 cw_ohmthresh_sw = 17, &
1987 cw_ohmthresh_wd = 18, &
1988 cw_estmcode = 19, &
1989 cw_cpanohm = 20, & ! heat capacity, added by TS AnOHM
1990 cw_kkanohm = 21, & ! heat conductivity, added by TS AnOHM
1991 cw_chanohm = 22 ! bulk transfer coef., added by TS AnOHM
1992
1993 !========== Columns for SUEWS_Snow.txt ================================
1994 INTEGER :: cs_code = 1, &
1995 cs_snowrmfactor = 2, &
1996 cs_snowtmfactor = 3, &
1997 cs_snowalbmin = 4, &
1998 cs_snowalbmax = 5, &
1999 cs_snowemis = 6, &
2000 cs_snowtau_a = 7, &
2001 cs_snowtau_f = 8, &
2002 cs_snowplimalb = 9, &
2003 cs_snowsdmin = 10, &
2004 cs_snowsdmax = 11, &
2005 cs_snowtau_r = 12, &
2006 cs_snowcrwmin = 13, &
2007 cs_snowcrwmax = 14, &
2008 cs_snowplimsnow = 15, &
2009 cs_ohmcode_swet = 16, &
2010 cs_ohmcode_sdry = 17, &
2011 cs_ohmcode_wwet = 18, &
2012 cs_ohmcode_wdry = 19, &
2013 cs_ohmthresh_sw = 20, &
2014 cs_ohmthresh_wd = 21, &
2015 cs_estmcode = 22, &
2016 cs_cpanohm = 23, & ! heat capacity, added by TS
2017 cs_kkanohm = 24, & ! heat conductivity, added by TS
2018 cs_chanohm = 25 ! bulk transfer coef., added by TS
2019
2020 !========== Columns for SUEWS_Soil.txt ================================
2021 INTEGER :: cso_code = 1, &
2022 cso_soildepth = 2, &
2023 cso_soilstcap = 3, &
2024 cso_ksat = 4, &
2025 cso_soildens = 5, &
2026 cso_soilinfrate = 6, &
2027 cso_obssmdepth = 7, &
2028 cso_obssmmax = 8, &
2029 cso_obssnrfrac = 9
2030
2031 !========== Columns for SUEWS_Conductance.txt =========================
2032 INTEGER :: cc_code = 1, &
2033 cc_gsg1 = 2, &
2034 cc_gsg2 = 3, &
2035 cc_gsg3 = 4, &
2036 cc_gsg4 = 5, &
2037 cc_gsg5 = 6, &
2038 cc_gsg6 = 7, &
2039 cc_gsth = 8, &
2040 cc_gstl = 9, &
2041 cc_gss1 = 10, &
2042 cc_gss2 = 11, &
2043 cc_gskmax = 12, &
2044 cc_gsmodel = 13 !Options for surface conductance calculation (1 - Ja11, 2 - Wa16)
2045
2046 !========== Columns for SUEWS_OHMCoefficients.txt =====================
2047 INTEGER :: co_code = 1, &
2048 co_a1 = 2, &
2049 co_a2 = 3, &
2050 co_a3 = 4
2051
2052 !========== Columns for SUEWS_ESTMCoefficients.txt =====================! ! S.O. 04 Feb 2016
2053 INTEGER :: ce_code = 1, &
2054 ce_surf_thick1 = 2, & !Characteristics for 5x roof/surface layers
2055 ce_surf_k1 = 3, &
2056 ce_surf_rhocp1 = 4, &
2057 ce_surf_thick2 = 5, &
2058 ce_surf_k2 = 6, &
2059 ce_surf_rhocp2 = 7, &
2060 ce_surf_thick3 = 8, &
2061 ce_surf_k3 = 9, &
2062 ce_surf_rhocp3 = 10, &
2063 ce_surf_thick4 = 11, &
2064 ce_surf_k4 = 12, &
2065 ce_surf_rhocp4 = 13, &
2066 ce_surf_thick5 = 14, &
2067 ce_surf_k5 = 15, &
2068 ce_surf_rhocp5 = 16, &
2069 ce_wall_thick1 = 17, & ! Characteristics for 5x external wall layers (used for Bldgs surfaces only)
2070 ce_wall_k1 = 18, &
2071 ce_wall_rhocp1 = 19, &
2072 ce_wall_thick2 = 20, &
2073 ce_wall_k2 = 21, &
2074 ce_wall_rhocp2 = 22, &
2075 ce_wall_thick3 = 23, &
2076 ce_wall_k3 = 24, &
2077 ce_wall_rhocp3 = 25, &
2078 ce_wall_thick4 = 26, &
2079 ce_wall_k4 = 27, &
2080 ce_wall_rhocp4 = 28, &
2081 ce_wall_thick5 = 29, &
2082 ce_wall_k5 = 30, &
2083 ce_wall_rhocp5 = 31, &
2084 ce_internal_thick1 = 32, & ! Characteristics for 5x internal wall layers (used for Bldgs surfaces only)
2085 ce_internal_k1 = 33, &
2086 ce_internal_rhocp1 = 34, &
2087 ce_internal_thick2 = 35, &
2088 ce_internal_k2 = 36, &
2089 ce_internal_rhocp2 = 37, &
2090 ce_internal_thick3 = 38, &
2091 ce_internal_k3 = 39, &
2092 ce_internal_rhocp3 = 40, &
2093 ce_internal_thick4 = 41, &
2094 ce_internal_k4 = 42, &
2095 ce_internal_rhocp4 = 43, &
2096 ce_internal_thick5 = 44, &
2097 ce_internal_k5 = 45, &
2098 ce_internal_rhocp5 = 46, &
2099 ce_nroom = 47, &
2100 ce_alb_ibld = 48, &
2101 ce_em_ibld = 49, &
2102 ce_ch_iwall = 50, &
2103 ce_ch_iroof = 51, &
2104 ce_ch_ibld = 52
2105
2106 !========== Columns for SUEWS_AnthropogenicEmission.txt ===================
2107 INTEGER :: ca_code = 1, &
2108 ca_baset_hc = 2, &
2109 ca_qf_a1 = 3, & !Weekday
2110 ca_qf_b1 = 4, & !Weekday
2111 ca_qf_c1 = 5, & !Weekday
2112 ca_qf_a2 = 6, & !Weekend
2113 ca_qf_b2 = 7, & !Weekend
2114 ca_qf_c2 = 8, & !Weekend
2115 ca_ahmin_wd = 9, & !Weekday
2116 ca_ahmin_we = 10, & !Weekend
2117 ca_ahslopeheating_wd = 11, & !Weekday
2118 ca_ahslopeheating_we = 12, & !Weekend
2119 ca_ahslopecooling_wd = 13, & !Weekday
2120 ca_ahslopecooling_we = 14, & !Weekend
2121 ca_tcriticheating_wd = 15, & !Weekday
2122 ca_tcriticheating_we = 16, & !Weekend
2123 ca_tcriticcooling_wd = 17, & !Weekday
2124 ca_tcriticcooling_we = 18, & !Weekend
2125 ca_enprofwd = 19, & !Weekday
2126 ca_enprofwe = 20, & !Weekday
2127 ca_co2mwd = 21, & !Weekday
2128 ca_co2mwe = 22, & !Weekend
2129 ca_traffprofwd = 23, & !Weekday
2130 ca_traffprofwe = 24, & !Weekend
2131 ca_popprofwd = 25, & !Weekday
2132 ca_popprofwe = 26, & !Weekend
2133 ca_minqfmetab = 27, &
2134 ca_maxqfmetab = 28, &
2135 ca_minfcmetab = 29, &
2136 ca_maxfcmetab = 30, &
2137 ca_frpddwe = 31, &
2138 ca_frfossilfuel_heat = 32, &
2139 ca_frfossilfuel_nonheat = 33, &
2140 ca_ef_umolco2perj = 34, &
2141 ca_enef_v_jkm = 35, &
2142 ca_fcef_v_kgkmwd = 36, &
2143 ca_fcef_v_kgkmwe = 37, &
2144 ca_co2pointsource = 38, &
2145 ca_trafficunits = 39
2146
2147 !========== Columns for SUEWS_Irrigation.txt ==========================
2148
2149 INTEGER :: cir_code = 1, &
2150 cir_iestart = 2, &
2151 cir_ieend = 3, &
2152 cir_intwu = 4, &
2153 cir_faut = 5, &
2154 cir_h_maintain = 6, &
2155 cir_ie_a1 = 7, &
2156 cir_ie_a2 = 8, &
2157 cir_ie_a3 = 9, &
2158 cir_ie_m1 = 10, &
2159 cir_ie_m2 = 11, &
2160 cir_ie_m3 = 12, &
2161 cir_daywat1 = 13, &
2162 cir_daywat2 = 14, &
2163 cir_daywat3 = 15, &
2164 cir_daywat4 = 16, &
2165 cir_daywat5 = 17, &
2166 cir_daywat6 = 18, &
2167 cir_daywat7 = 19, &
2168 cir_daywatper1 = 20, &
2169 cir_daywatper2 = 21, &
2170 cir_daywatper3 = 22, &
2171 cir_daywatper4 = 23, &
2172 cir_daywatper5 = 24, &
2173 cir_daywatper6 = 25, &
2174 cir_daywatper7 = 26
2175 !========== Columns for SUEWS_Profile.txt =============================
2176
2177 INTEGER :: cc !Column counter
2178
2179 INTEGER :: cpr_code = 1
2180 INTEGER, DIMENSION(24) :: cpr_hours = (/(cc, cc=2, 25, 1)/) ! Hourly profile data
2181
2182 !========== Columns for SUEWS_WithinGridWaterDist.txt =================
2183
2184 INTEGER :: cwg_code = 1, &
2185 cwg_topaved = 2, &
2186 cwg_tobldgs = 3, &
2187 cwg_toevetr = 4, &
2188 cwg_todectr = 5, &
2189 cwg_tograss = 6, &
2190 cwg_tobsoil = 7, &
2191 cwg_towater = 8, &
2192 cwg_torunoff = 9, &
2193 cwg_tosoilstore = 10
2194
2195 !========== Columns for SUEWS_BiogenCO2.txt ===================
2196 INTEGER :: cb_code = 1, &
2197 cb_alpha = 2, &
2198 cb_beta = 3, &
2199 cb_theta = 4, &
2200 cb_alpha_enh = 5, &
2201 cb_beta_enh = 6, &
2202 cb_resp_a = 7, &
2203 cb_resp_b = 8, &
2204 cb_min_r = 9
2205
2206END MODULE colnamesinputfiles
2207
2208!----------------------------------------------------------------------------------------
2209
2210!----------------------------------------------------------------------------------
2211MODULE wherewhen
2212 ! Stores grid and datetime info
2213
2214 INTEGER :: gridid !Grid number (as specified in SUEWS_SiteSelect.txt)
2215 CHARACTER(LEN=10) :: gridid_text !Grid number as a text string
2216 CHARACTER(LEN=15) :: datetime ! YYYY DOY HH MM
2217
2218END MODULE wherewhen
2219
2220!----------------------------------------------------------------------------------
2221MODULE mathconstants
2222
2223 REAL(kind(1d0)), PARAMETER :: pi = 3.14159265359
2224 REAL(kind(1d0)), PARAMETER :: dtr = 0.0174532925, rtd = 57.2957795
2225
2226END MODULE mathconstants
2227
2228!----------------------------------------------------------------------------------
2229MODULE physconstants
2230
2231 REAL(kind(1d0)), PARAMETER :: c2k = 273.15 !Celsius to Kelvin
2232 REAL(kind(1d0)), PARAMETER :: sbconst = 5.67051e-8 !Stefan Boltzmann constant [W m-2 K-4]
2233 REAL(kind(1d0)), PARAMETER :: jtoumolpar = 4.6 ! Convert PAR from W m-2 to umol m-2 s-1
2234 REAL(kind(1d0)), PARAMETER :: kdntopar = 0.46 ! Conversion from Kdn to PAR, originally from Tsubo and Walker (2005), used in Bellucco et al. (2017)
2235
2236END MODULE physconstants
allocatearray::decidcap_id_grids
real(kind(1d0)), dimension(maxnumberofgrids) decidcap_id_grids
Definition suews_ctrl_const.f95:326
allocatearray::addwater
real(kind(1d0)), dimension(nsurf) addwater
Definition suews_ctrl_const.f95:230
allocatearray::headeruse
character(len=14 *ncolumnsdataoutsuews) headeruse
Definition suews_ctrl_const.f95:124
allocatearray::unitsuse
character(len=14 *ncolumnsdataoutsuews) unitsuse
Definition suews_ctrl_const.f95:126
allocatearray::hdd_id_grids
real(kind(1d0)), dimension(12, maxnumberofgrids) hdd_id_grids
Definition suews_ctrl_const.f95:315
allocatearray::dataoutehc
real(kind(1d0)), dimension(:, :, :), allocatable dataoutehc
Definition suews_ctrl_const.f95:165
allocatearray::c_wall_thick4_bldgs
integer, dimension(5) c_wall_thick4_bldgs
Definition suews_ctrl_const.f95:975
allocatearray::zsurf_suewssurfs
real(kind(1d0)), dimension(5, nsurfincsnow) zsurf_suewssurfs
Definition suews_ctrl_const.f95:611
allocatearray::c_gddfull
integer, dimension(nvegsurf) c_gddfull
Definition suews_ctrl_const.f95:652
allocatearray::statelimit_wall
real(kind(1d0)), dimension(:), allocatable statelimit_wall
Definition suews_ctrl_const.f95:535
allocatearray::biogen_coeff
real(kind(1d0)), dimension(:, :), allocatable biogen_coeff
Definition suews_ctrl_const.f95:144
allocatearray::pormax_dec
real(kind(1d0)) pormax_dec
Definition suews_ctrl_const.f95:292
allocatearray::gridtofrac
real(kind(1d0)), dimension(nconns) gridtofrac
Definition suews_ctrl_const.f95:474
allocatearray::c_internal_rhocp4_bldgs
integer, dimension(5) c_internal_rhocp4_bldgs
Definition suews_ctrl_const.f95:992
allocatearray::qn1_ind_nosnow
real(kind(1d0)), dimension(nsurf) qn1_ind_nosnow
Definition suews_ctrl_const.f95:401
allocatearray::dqndt_grids
real(kind(1d0)), dimension(:), allocatable dqndt_grids
Definition suews_ctrl_const.f95:428
allocatearray::nsw
integer, parameter nsw
Definition suews_ctrl_const.f95:42
allocatearray::bldgsurf
integer, parameter bldgsurf
Definition suews_ctrl_const.f95:46
allocatearray::modeldailystate
real(kind(1d0)), dimension(:, :), allocatable modeldailystate
Definition suews_ctrl_const.f95:153
allocatearray::snowpack
real(kind(1d0)), dimension(nsurf) snowpack
Definition suews_ctrl_const.f95:463
allocatearray::c_surf_thick5
integer, dimension(nsurfincsnow) c_surf_thick5
Definition suews_ctrl_const.f95:875
allocatearray::a2
real(kind(1d0)) a2
Definition suews_ctrl_const.f95:420
allocatearray::estmcoefficients_coeff
real(kind(1d0)), dimension(:, :), allocatable estmcoefficients_coeff
Definition suews_ctrl_const.f95:139
allocatearray::heig
integer, dimension(nsurf) heig
Definition suews_ctrl_const.f95:465
allocatearray::c_kkanohm
integer, dimension(nsurf) c_kkanohm
Definition suews_ctrl_const.f95:643
allocatearray::c_surf_k3_bldgs
integer, dimension(5) c_surf_k3_bldgs
Definition suews_ctrl_const.f95:958
allocatearray::ncolumnssoil
integer, parameter ncolumnssoil
Definition suews_ctrl_const.f95:67
allocatearray::dataoutspartacus
real(kind(1d0)), dimension(:, :, :), allocatable dataoutspartacus
Definition suews_ctrl_const.f95:162
allocatearray::tsfc_wall_grids
real(kind(1d0)), dimension(:, :), allocatable tsfc_wall_grids
Definition suews_ctrl_const.f95:541
allocatearray::ncolumnssiteselect
integer, parameter ncolumnssiteselect
Definition suews_ctrl_const.f95:62
allocatearray::soilstorecap_wall_grids
real(kind(1d0)), dimension(:, :), allocatable soilstorecap_wall_grids
Definition suews_ctrl_const.f95:553
allocatearray::c_wall_thick1_bldgs
integer, dimension(5) c_wall_thick1_bldgs
Definition suews_ctrl_const.f95:966
allocatearray::dz_wall
real(kind(1d0)), dimension(:, :), allocatable dz_wall
Definition suews_ctrl_const.f95:530
allocatearray::tmin_id
real(kind(1d0)) tmin_id
Definition suews_ctrl_const.f95:280
allocatearray::chanohm
real(kind(1d0)), dimension(nsurf) chanohm
Definition suews_ctrl_const.f95:487
allocatearray::snow_coeff
real(kind(1d0)), dimension(:, :), allocatable snow_coeff
Definition suews_ctrl_const.f95:135
allocatearray::c_surf_rhocp2
integer, dimension(nsurfincsnow) c_surf_rhocp2
Definition suews_ctrl_const.f95:875
allocatearray::c_hrproftraffwd
integer, dimension(24) c_hrproftraffwd
Definition suews_ctrl_const.f95:838
allocatearray::soilstorecap_surf
real(kind(1d0)), dimension(nsurf) soilstorecap_surf
Definition suews_ctrl_const.f95:255
allocatearray::siteselect
real(kind(1d0)), dimension(:, :), allocatable siteselect
Definition suews_ctrl_const.f95:131
allocatearray::humactivity_24hr
real(kind(1d0)), dimension(0:23, 2) humactivity_24hr
Definition suews_ctrl_const.f95:196
allocatearray::anthropogenic_coeff
real(kind(1d0)), dimension(:, :), allocatable anthropogenic_coeff
Definition suews_ctrl_const.f95:140
allocatearray::c_cpanohm
integer, dimension(nsurf) c_cpanohm
Definition suews_ctrl_const.f95:642
allocatearray::c_ohmcode_wwet
integer, dimension(nsurfincsnow) c_ohmcode_wwet
Definition suews_ctrl_const.f95:729
allocatearray::ts5mindata
real(kind(1d0)), dimension(:, :), allocatable ts5mindata
Definition suews_ctrl_const.f95:203
allocatearray::headernonveg_reqd
character(len=20), dimension(ncolumnsnonveg) headernonveg_reqd
Definition suews_ctrl_const.f95:95
allocatearray::c_ch_iwall_bldgs
integer, dimension(5) c_ch_iwall_bldgs
Definition suews_ctrl_const.f95:999
allocatearray::c_internal_rhocp1_bldgs
integer, dimension(5) c_internal_rhocp1_bldgs
Definition suews_ctrl_const.f95:983
allocatearray::freezmelt
real(kind(1d0)), dimension(nsurf) freezmelt
Definition suews_ctrl_const.f95:436
allocatearray::cts_iy
integer, parameter cts_iy
Definition suews_ctrl_const.f95:1032
allocatearray::wgwaterdist_coeff
real(kind(1d0)), dimension(:, :), allocatable wgwaterdist_coeff
Definition suews_ctrl_const.f95:143
allocatearray::c_hrprofsnowcwe
integer, dimension(24) c_hrprofsnowcwe
Definition suews_ctrl_const.f95:835
allocatearray::soilstore_wall_grids
real(kind(1d0)), dimension(:, :), allocatable soilstore_wall_grids
Definition suews_ctrl_const.f95:552
allocatearray::c_wall_k1_bldgs
integer, dimension(5) c_wall_k1_bldgs
Definition suews_ctrl_const.f95:967
allocatearray::c_ohmthresh_sw
integer, dimension(nsurfincsnow) c_ohmthresh_sw
Definition suews_ctrl_const.f95:758
allocatearray::dailystatefirstopen
real(kind(1d0)), dimension(:), allocatable dailystatefirstopen
Definition suews_ctrl_const.f95:154
allocatearray::tin_surf_grids
real(kind(1d0)), dimension(:, :), allocatable tin_surf_grids
Definition suews_ctrl_const.f95:570
allocatearray::tsurf_ind_nosnow
real(kind(1d0)), dimension(nsurf) tsurf_ind_nosnow
Definition suews_ctrl_const.f95:392
allocatearray::c_surf_k1
integer, dimension(nsurfincsnow) c_surf_k1
Definition suews_ctrl_const.f95:875
allocatearray::ncolsestmdata
integer, parameter ncolsestmdata
Definition suews_ctrl_const.f95:77
allocatearray::headeranthropogenic_reqd
character(len=20), dimension(ncolumnsanthropogenic) headeranthropogenic_reqd
Definition suews_ctrl_const.f95:111
allocatearray::headernonveg_file
character(len=20), dimension(ncolumnsnonveg) headernonveg_file
Definition suews_ctrl_const.f95:94
allocatearray::waterdepth
real(kind(1d0)), dimension(1) waterdepth
Definition suews_ctrl_const.f95:250
allocatearray::conifsurf
integer, parameter conifsurf
Definition suews_ctrl_const.f95:46
allocatearray::c_ie_a
integer, dimension(3) c_ie_a
Definition suews_ctrl_const.f95:819
allocatearray::c_internal_thick3_bldgs
integer, dimension(5) c_internal_thick3_bldgs
Definition suews_ctrl_const.f95:987
allocatearray::c_surf_thick4
integer, dimension(nsurfincsnow) c_surf_thick4
Definition suews_ctrl_const.f95:875
allocatearray::headerwgwaterdist_file
character(len=20), dimension(ncolumnswgwaterdist) headerwgwaterdist_file
Definition suews_ctrl_const.f95:116
allocatearray::smd_nsurf
real(kind(1d0)), dimension(nsurf) smd_nsurf
Definition suews_ctrl_const.f95:238
allocatearray::albmin_grass
real(kind(1d0)) albmin_grass
Definition suews_ctrl_const.f95:292
allocatearray::dataoutlinedebug
real(kind(1d0)), dimension(ncolumnsdataoutdebug) dataoutlinedebug
Definition suews_ctrl_const.f95:176
allocatearray::ccendir
integer, parameter ccendir
Definition suews_ctrl_const.f95:825
allocatearray::cp_wall_grids
real(kind(1d0)), dimension(:, :, :), allocatable cp_wall_grids
Definition suews_ctrl_const.f95:544
allocatearray::c_internal_k3_bldgs
integer, dimension(5) c_internal_k3_bldgs
Definition suews_ctrl_const.f95:988
allocatearray::maxncols_cmod
integer, parameter maxncols_cmod
Definition suews_ctrl_const.f95:1018
allocatearray::emis_wall_grids
real(kind(1d0)), dimension(:, :), allocatable emis_wall_grids
Definition suews_ctrl_const.f95:548
allocatearray::headerusenosep
character(len=14 *ncolumnsdataoutsuews) headerusenosep
Definition suews_ctrl_const.f95:124
allocatearray::c_surf_rhocp2_paved
integer, dimension(3) c_surf_rhocp2_paved
Definition suews_ctrl_const.f95:938
allocatearray::metfordisagg
real(kind(1d0)), dimension(:, :), allocatable metfordisagg
Definition suews_ctrl_const.f95:180
allocatearray::statelimit_surf
real(kind(1d0)), dimension(nsurf) statelimit_surf
Definition suews_ctrl_const.f95:248
allocatearray::c_sddfull
integer, dimension(nvegsurf) c_sddfull
Definition suews_ctrl_const.f95:653
allocatearray::c_beta_bioco2
integer, dimension(nvegsurf) c_beta_bioco2
Definition suews_ctrl_const.f95:862
allocatearray::metforcingdata_grid
real(kind(1d0)), dimension(:, :), allocatable metforcingdata_grid
Definition suews_ctrl_const.f95:151
allocatearray::headerwater_reqd
character(len=20), dimension(ncolumnswater) headerwater_reqd
Definition suews_ctrl_const.f95:99
allocatearray::ground_albedo_dir_mult_fact
real(kind(1d0)) ground_albedo_dir_mult_fact
Definition suews_ctrl_const.f95:605
allocatearray::dataoutlinesolweig
real(kind(1d0)), dimension(ncolumnsdataoutsolweig - 5) dataoutlinesolweig
Definition suews_ctrl_const.f95:174
allocatearray::changsnow
real(kind(1d0)), dimension(nsurf) changsnow
Definition suews_ctrl_const.f95:436
allocatearray::ccendpr
integer, parameter ccendpr
Definition suews_ctrl_const.f95:844
allocatearray::c_wgtorunoff
integer, dimension(nsurf) c_wgtorunoff
Definition suews_ctrl_const.f95:854
allocatearray::c_ohmcode_sdry
integer, dimension(nsurfincsnow) c_ohmcode_sdry
Definition suews_ctrl_const.f95:727
allocatearray::c_wgtograss
integer, dimension(nsurf) c_wgtograss
Definition suews_ctrl_const.f95:851
allocatearray::ccendw
integer, parameter ccendw
Definition suews_ctrl_const.f95:672
allocatearray::c_a2_swet
integer, dimension(nsurfincsnow) c_a2_swet
Definition suews_ctrl_const.f95:735
allocatearray::state_surf
real(kind(1d0)), dimension(nsurf) state_surf
Definition suews_ctrl_const.f95:242
allocatearray::c_surf_k1_bldgs
integer, dimension(5) c_surf_k1_bldgs
Definition suews_ctrl_const.f95:952
allocatearray::soildepth
real(kind(1d0)), dimension(nsurf) soildepth
Definition suews_ctrl_const.f95:254
allocatearray::c_wgtobldgs
integer, dimension(nsurf) c_wgtobldgs
Definition suews_ctrl_const.f95:848
allocatearray::cpanohm
real(kind(1d0)), dimension(nsurf) cpanohm
Definition suews_ctrl_const.f95:485
allocatearray::soilstorecap_wall
real(kind(1d0)), dimension(:), allocatable soilstorecap_wall
Definition suews_ctrl_const.f95:538
allocatearray::c_a1_wwet
integer, dimension(nsurfincsnow) c_a1_wwet
Definition suews_ctrl_const.f95:745
allocatearray::porosity_id
real(kind(1d0)) porosity_id
Definition suews_ctrl_const.f95:336
allocatearray::basete
real(kind(1d0)), dimension(nvegsurf) basete
Definition suews_ctrl_const.f95:358
allocatearray::tsfc_roof
real(kind(1d0)), dimension(:), allocatable tsfc_roof
Definition suews_ctrl_const.f95:496
allocatearray::narp_tz
real(kind(1d0)) narp_tz
Definition suews_ctrl_const.f95:406
allocatearray::ncolumnsconductance
integer, parameter ncolumnsconductance
Definition suews_ctrl_const.f95:68
allocatearray::cts_twall
integer, parameter cts_twall
Definition suews_ctrl_const.f95:1040
allocatearray::ncolumnsohmcoefficients
integer, parameter ncolumnsohmcoefficients
Definition suews_ctrl_const.f95:69
allocatearray::c_gsmax
integer, dimension(nvegsurf) c_gsmax
Definition suews_ctrl_const.f95:658
allocatearray::c_soilstcap
integer, dimension(nsurf) c_soilstcap
Definition suews_ctrl_const.f95:696
allocatearray::c_soildens
integer, dimension(nsurf) c_soildens
Definition suews_ctrl_const.f95:698
allocatearray::snowdepth
real(kind(1d0)), dimension(nsurf) snowdepth
Definition suews_ctrl_const.f95:436
allocatearray::c_a1_swet
integer, dimension(nsurfincsnow) c_a1_swet
Definition suews_ctrl_const.f95:733
allocatearray::c_ohmcode_swet
integer, dimension(nsurfincsnow) c_ohmcode_swet
Definition suews_ctrl_const.f95:725
allocatearray::alb_roof
real(kind(1d0)), dimension(:), allocatable alb_roof
Definition suews_ctrl_const.f95:501
allocatearray::temp_surf_grids
real(kind(1d0)), dimension(:, :, :), allocatable temp_surf_grids
Definition suews_ctrl_const.f95:571
allocatearray::chang
real(kind(1d0)), dimension(nsurf) chang
Definition suews_ctrl_const.f95:233
allocatearray::ccendb
integer, parameter ccendb
Definition suews_ctrl_const.f95:871
allocatearray::c_soildepth
integer, dimension(nsurf) c_soildepth
Definition suews_ctrl_const.f95:695
allocatearray::c_surf_thick3_bldgs
integer, dimension(5) c_surf_thick3_bldgs
Definition suews_ctrl_const.f95:957
allocatearray::dataoutsolweig
real(kind(1d0)), dimension(:, :, :), allocatable dataoutsolweig
Definition suews_ctrl_const.f95:159
allocatearray::deg2rad
real(kind(1d0)), parameter deg2rad
Definition suews_ctrl_const.f95:412
allocatearray::c_wgtoevetr
integer, dimension(nsurf) c_wgtoevetr
Definition suews_ctrl_const.f95:849
allocatearray::boanohmstart
real(kind(1d0)), dimension(maxnumberofgrids) boanohmstart
Definition suews_ctrl_const.f95:483
allocatearray::c_surf_rhocp2_bldgs
integer, dimension(5) c_surf_rhocp2_bldgs
Definition suews_ctrl_const.f95:956
allocatearray::state_wall
real(kind(1d0)), dimension(:), allocatable state_wall
Definition suews_ctrl_const.f95:534
allocatearray::traffprof_24hr
real(kind(1d0)), dimension(0:23, 2) traffprof_24hr
Definition suews_ctrl_const.f95:197
allocatearray::n_vegetation_region_urban
integer n_vegetation_region_urban
Definition suews_ctrl_const.f95:603
allocatearray::c_hrprofenusewe
integer, dimension(24) c_hrprofenusewe
Definition suews_ctrl_const.f95:829
allocatearray::ohm_threshwd
real(kind(1d0)), dimension(nsurf+1) ohm_threshwd
Definition suews_ctrl_const.f95:419
allocatearray::ahprof_24hr
real(kind(1d0)), dimension(0:23, 2) ahprof_24hr
Definition suews_ctrl_const.f95:195
allocatearray::c_daywatper
integer, dimension(7) c_daywatper
Definition suews_ctrl_const.f95:822
allocatearray::tin_roof_grids
real(kind(1d0)), dimension(:, :), allocatable tin_roof_grids
Definition suews_ctrl_const.f95:515
allocatearray::c_surf_rhocp5_bldgs
integer, dimension(5) c_surf_rhocp5_bldgs
Definition suews_ctrl_const.f95:965
allocatearray::smd_nsurfout
real(kind(1d0)), dimension(nsurf) smd_nsurfout
Definition suews_ctrl_const.f95:239
allocatearray::building_frac_grids
real(kind(1d0)), dimension(:, :), allocatable building_frac_grids
Definition suews_ctrl_const.f95:592
allocatearray::c_soilinfrate
integer, dimension(nsurf) c_soilinfrate
Definition suews_ctrl_const.f95:699
allocatearray::c_ch_ibld_bldgs
integer, dimension(5) c_ch_ibld_bldgs
Definition suews_ctrl_const.f95:1001
allocatearray::temp_wall_grids
real(kind(1d0)), dimension(:, :, :), allocatable temp_wall_grids
Definition suews_ctrl_const.f95:554
allocatearray::c_surf_rhocp4_bldgs
integer, dimension(5) c_surf_rhocp4_bldgs
Definition suews_ctrl_const.f95:962
allocatearray::c_internal_thick1_bldgs
integer, dimension(5) c_internal_thick1_bldgs
Definition suews_ctrl_const.f95:981
allocatearray::beta_enh_bioco2
real(kind(1d0)), dimension(nvegsurf) beta_enh_bioco2
Definition suews_ctrl_const.f95:369
allocatearray::c_hrprofwuautowd
integer, dimension(24) c_hrprofwuautowd
Definition suews_ctrl_const.f95:832
allocatearray::c_laimax
integer, dimension(nvegsurf) c_laimax
Definition suews_ctrl_const.f95:655
allocatearray::estmfordisaggprev
real(kind(1d0)), dimension(:), allocatable estmfordisaggprev
Definition suews_ctrl_const.f95:184
allocatearray::ccendsn
integer, parameter ccendsn
Definition suews_ctrl_const.f95:692
allocatearray::headerwater_file
character(len=20), dimension(ncolumnswater) headerwater_file
Definition suews_ctrl_const.f95:98
allocatearray::headersnow_file
character(len=20), dimension(ncolumnssnow) headersnow_file
Definition suews_ctrl_const.f95:100
allocatearray::c_a2_sdry
integer, dimension(nsurfincsnow) c_a2_sdry
Definition suews_ctrl_const.f95:741
allocatearray::c_statelimit
integer, dimension(nsurf) c_statelimit
Definition suews_ctrl_const.f95:631
allocatearray::c_ie_m
integer, dimension(3) c_ie_m
Definition suews_ctrl_const.f95:820
allocatearray::tin_wall_grids
real(kind(1d0)), dimension(:, :), allocatable tin_wall_grids
Definition suews_ctrl_const.f95:546
allocatearray::ohm_coef
real(kind(1d0)), dimension(nsurf+1, 4, 3) ohm_coef
Definition suews_ctrl_const.f95:418
allocatearray::c_alpha_bioco2
integer, dimension(nvegsurf) c_alpha_bioco2
Definition suews_ctrl_const.f95:861
allocatearray::stateold
real(kind(1d0)), dimension(nsurf) stateold
Definition suews_ctrl_const.f95:244
allocatearray::nconns
integer, parameter nconns
Definition suews_ctrl_const.f95:473
allocatearray::temp_roof
real(kind(1d0)), dimension(:, :), allocatable temp_roof
Definition suews_ctrl_const.f95:508
allocatearray::c_surf_k4_paved
integer, dimension(3) c_surf_k4_paved
Definition suews_ctrl_const.f95:943
allocatearray::min_res_bioco2
real(kind(1d0)), dimension(nvegsurf) min_res_bioco2
Definition suews_ctrl_const.f95:369
allocatearray::wetthresh_wall
real(kind(1d0)), dimension(:), allocatable wetthresh_wall
Definition suews_ctrl_const.f95:536
allocatearray::lai_id
real(kind(1d0)), dimension(nvegsurf) lai_id
Definition suews_ctrl_const.f95:283
allocatearray::veg_ssa_lw
real(kind(1d0)) veg_ssa_lw
Definition suews_ctrl_const.f95:605
allocatearray::maxnumberofgrids
integer, parameter maxnumberofgrids
Definition suews_ctrl_const.f95:26
allocatearray::ncolumnsdataoutbl
integer, parameter ncolumnsdataoutbl
Definition suews_ctrl_const.f95:80
allocatearray::state_roof
real(kind(1d0)), dimension(:), allocatable state_roof
Definition suews_ctrl_const.f95:503
allocatearray::cts_it
integer, parameter cts_it
Definition suews_ctrl_const.f95:1034
allocatearray::c_drcoef2
integer, dimension(nsurf) c_drcoef2
Definition suews_ctrl_const.f95:634
allocatearray::dqnsdt_grids
real(kind(1d0)), dimension(:), allocatable dqnsdt_grids
Definition suews_ctrl_const.f95:428
allocatearray::ccenda
integer, parameter ccenda
Definition suews_ctrl_const.f95:811
allocatearray::c_ch_iroof_bldgs
integer, dimension(5) c_ch_iroof_bldgs
Definition suews_ctrl_const.f95:1000
allocatearray::cts_twall_w
integer, parameter cts_twall_w
Definition suews_ctrl_const.f95:1044
allocatearray::c_ksat
integer, dimension(nsurf) c_ksat
Definition suews_ctrl_const.f95:697
allocatearray::narp_kdown_hr
real(kind(1d0)), dimension(:), allocatable narp_kdown_hr
Definition suews_ctrl_const.f95:410
allocatearray::headerveg_file
character(len=20), dimension(ncolumnsveg) headerveg_file
Definition suews_ctrl_const.f95:96
allocatearray::gridto
real(kind(1d0)), dimension(nconns) gridto
Definition suews_ctrl_const.f95:475
allocatearray::air_ext_sw
real(kind(1d0)) air_ext_sw
Definition suews_ctrl_const.f95:605
allocatearray::dataoutlinesnow
real(kind(1d0)), dimension(ncolumnsdataoutsnow - 5) dataoutlinesnow
Definition suews_ctrl_const.f95:171
allocatearray::baset
real(kind(1d0)), dimension(nvegsurf) baset
Definition suews_ctrl_const.f95:357
allocatearray::tsfc_roof_grids
real(kind(1d0)), dimension(:, :), allocatable tsfc_roof_grids
Definition suews_ctrl_const.f95:510
allocatearray::dz_surf
real(kind(1d0)), dimension(:, :), allocatable dz_surf
Definition suews_ctrl_const.f95:562
allocatearray::ccendestmb
integer, parameter ccendestmb
Definition suews_ctrl_const.f95:892
allocatearray::metfordisaggnext
real(kind(1d0)), dimension(:), allocatable metfordisaggnext
Definition suews_ctrl_const.f95:181
allocatearray::c_obssmmax
integer, dimension(nsurf) c_obssmmax
Definition suews_ctrl_const.f95:701
allocatearray::c_leafgp2
integer, dimension(nvegsurf) c_leafgp2
Definition suews_ctrl_const.f95:661
allocatearray::cts_troad
integer, parameter cts_troad
Definition suews_ctrl_const.f95:1039
allocatearray::resp_b
real(kind(1d0)), dimension(nvegsurf) resp_b
Definition suews_ctrl_const.f95:369
allocatearray::narp_long
real(kind(1d0)) narp_long
Definition suews_ctrl_const.f95:406
allocatearray::c_chanohm
integer, dimension(nsurf) c_chanohm
Definition suews_ctrl_const.f95:644
allocatearray::c_surf_thick2_bldgs
integer, dimension(5) c_surf_thick2_bldgs
Definition suews_ctrl_const.f95:954
allocatearray::longnmuse
character(len=52 *ncolumnsdataoutsuews) longnmuse
Definition suews_ctrl_const.f95:125
allocatearray::ncolumnsmetforcingdata
integer, parameter ncolumnsmetforcingdata
Definition suews_ctrl_const.f95:76
allocatearray::sfr_surf
real(kind(1d0)), dimension(nsurf) sfr_surf
Definition suews_ctrl_const.f95:59
allocatearray::a2anohm
real(kind(1d0)), dimension(maxnumberofgrids) a2anohm
Definition suews_ctrl_const.f95:481
allocatearray::albevetr_id_grids
real(kind(1d0)), dimension(maxnumberofgrids) albevetr_id_grids
Definition suews_ctrl_const.f95:328
allocatearray::qn_s_av_grids
real(kind(1d0)), dimension(:), allocatable qn_s_av_grids
Definition suews_ctrl_const.f95:427
allocatearray::c_internal_rhocp2_bldgs
integer, dimension(5) c_internal_rhocp2_bldgs
Definition suews_ctrl_const.f95:986
allocatearray::nlayer_grids
integer, dimension(:), allocatable nlayer_grids
Definition suews_ctrl_const.f95:492
allocatearray::statefraction
real(kind(1d0)), dimension(nsurf) statefraction
Definition suews_ctrl_const.f95:436
allocatearray::laipower
real(kind(1d0)), dimension(4, nvegsurf) laipower
Definition suews_ctrl_const.f95:364
allocatearray::c_wall_k3_bldgs
integer, dimension(5) c_wall_k3_bldgs
Definition suews_ctrl_const.f95:973
allocatearray::ncolumnsprofiles
integer, parameter ncolumnsprofiles
Definition suews_ctrl_const.f95:73
allocatearray::alb_wall_grids
real(kind(1d0)), dimension(:, :), allocatable alb_wall_grids
Definition suews_ctrl_const.f95:547
allocatearray::resp_a
real(kind(1d0)), dimension(nvegsurf) resp_a
Definition suews_ctrl_const.f95:369
allocatearray::rsurf_suewssurfs
real(kind(1d0)), dimension(5, nsurfincsnow) rsurf_suewssurfs
Definition suews_ctrl_const.f95:611
allocatearray::dataoutlinesuews
real(kind(1d0)), dimension(ncolumnsdataoutsuews - 5) dataoutlinesuews
Definition suews_ctrl_const.f95:170
allocatearray::c_wall_k5_bldgs
integer, dimension(5) c_wall_k5_bldgs
Definition suews_ctrl_const.f95:979
allocatearray::c_snowlimpat
integer, dimension(nsurf) c_snowlimpat
Definition suews_ctrl_const.f95:638
allocatearray::c_ohmthresh_wd
integer, dimension(nsurfincsnow) c_ohmthresh_wd
Definition suews_ctrl_const.f95:760
allocatearray::laimax
real(kind(1d0)), dimension(nvegsurf) laimax
Definition suews_ctrl_const.f95:362
allocatearray::c_a3_wwet
integer, dimension(nsurfincsnow) c_a3_wwet
Definition suews_ctrl_const.f95:749
allocatearray::wuprofm_24hr
real(kind(1d0)), dimension(0:23, 2) wuprofm_24hr
Definition suews_ctrl_const.f95:199
allocatearray::c_surf_rhocp1_bldgs
integer, dimension(5) c_surf_rhocp1_bldgs
Definition suews_ctrl_const.f95:953
allocatearray::cp_surf_grids
real(kind(1d0)), dimension(:, :, :), allocatable cp_surf_grids
Definition suews_ctrl_const.f95:568
allocatearray::headerprofiles_reqd
character(len=20), dimension(ncolumnsprofiles) headerprofiles_reqd
Definition suews_ctrl_const.f95:115
allocatearray::sfr_roof
real(kind(1d0)), dimension(:), allocatable sfr_roof
Definition suews_ctrl_const.f95:495
allocatearray::dataoutsnow
real(kind(1d0)), dimension(:, :, :), allocatable dataoutsnow
Definition suews_ctrl_const.f95:163
allocatearray::c_surf_k5_paved
integer, dimension(3) c_surf_k5_paved
Definition suews_ctrl_const.f95:946
allocatearray::c_stormin
integer, dimension(nsurf) c_stormin
Definition suews_ctrl_const.f95:628
allocatearray::runoffsoil
real(kind(1d0)), dimension(nsurf) runoffsoil
Definition suews_ctrl_const.f95:237
allocatearray::colnosuse
character(len=4 *ncolumnsdataoutsuews) colnosuse
Definition suews_ctrl_const.f95:128
allocatearray::c_daywat
integer, dimension(7) c_daywat
Definition suews_ctrl_const.f95:821
allocatearray::emis
real(kind(1d0)), dimension(nsurf) emis
Definition suews_ctrl_const.f95:387
allocatearray::wall_specular_frac_grids
real(kind(1d0)), dimension(:, :, :), allocatable wall_specular_frac_grids
Definition suews_ctrl_const.f95:600
allocatearray::snowpackold
real(kind(1d0)), dimension(nsurf) snowpackold
Definition suews_ctrl_const.f95:463
allocatearray::c_wall_rhocp1_bldgs
integer, dimension(5) c_wall_rhocp1_bldgs
Definition suews_ctrl_const.f95:968
allocatearray::headersnow_reqd
character(len=20), dimension(ncolumnssnow) headersnow_reqd
Definition suews_ctrl_const.f95:101
allocatearray::alb_roof_grids
real(kind(1d0)), dimension(:, :), allocatable alb_roof_grids
Definition suews_ctrl_const.f95:516
allocatearray::k_wall_grids
real(kind(1d0)), dimension(:, :, :), allocatable k_wall_grids
Definition suews_ctrl_const.f95:543
allocatearray::ccendgs
integer, parameter ccendgs
Definition suews_ctrl_const.f95:722
allocatearray::ncolumnswater
integer, parameter ncolumnswater
Definition suews_ctrl_const.f95:65
allocatearray::ncolumnsdataoutsuews
integer, parameter ncolumnsdataoutsuews
Definition suews_ctrl_const.f95:80
allocatearray::sdd_id_grids
real(kind(1d0)), dimension(nvegsurf, maxnumberofgrids) sdd_id_grids
Definition suews_ctrl_const.f95:311
allocatearray::gdd_id
real(kind(1d0)), dimension(nvegsurf) gdd_id
Definition suews_ctrl_const.f95:278
allocatearray::c_hrprofsnowcwd
integer, dimension(24) c_hrprofsnowcwd
Definition suews_ctrl_const.f95:834
allocatearray::tmin_id_grids
real(kind(1d0)), dimension(maxnumberofgrids) tmin_id_grids
Definition suews_ctrl_const.f95:312
allocatearray::ccendsi
integer, parameter ccendsi
Definition suews_ctrl_const.f95:622
allocatearray::dataoutlineestm
real(kind(1d0)), dimension(ncolumnsdataoutestm - 5) dataoutlineestm
Definition suews_ctrl_const.f95:206
allocatearray::lai_id_grids
real(kind(1d0)), dimension(nvegsurf, maxnumberofgrids) lai_id_grids
Definition suews_ctrl_const.f95:317
allocatearray::ccendo
integer, parameter ccendo
Definition suews_ctrl_const.f95:768
allocatearray::emis_roof_grids
real(kind(1d0)), dimension(:, :), allocatable emis_roof_grids
Definition suews_ctrl_const.f95:517
allocatearray::grididmatrix0
integer, dimension(:), allocatable grididmatrix0
Definition suews_ctrl_const.f95:148
allocatearray::formatusenosep
character(len=14 *ncolumnsdataoutsuews) formatusenosep
Definition suews_ctrl_const.f95:124
allocatearray::c_wall_rhocp3_bldgs
integer, dimension(5) c_wall_rhocp3_bldgs
Definition suews_ctrl_const.f95:974
allocatearray::capmin_dec
real(kind(1d0)) capmin_dec
Definition suews_ctrl_const.f95:292
allocatearray::c_a3_sdry
integer, dimension(nsurfincsnow) c_a3_sdry
Definition suews_ctrl_const.f95:743
allocatearray::cts_id
integer, parameter cts_id
Definition suews_ctrl_const.f95:1033
allocatearray::tmax_id_grids
real(kind(1d0)), dimension(maxnumberofgrids) tmax_id_grids
Definition suews_ctrl_const.f95:313
allocatearray::veg_ext
real(kind(1d0)), dimension(:), allocatable veg_ext
Definition suews_ctrl_const.f95:581
allocatearray::decidcap_id
real(kind(1d0)) decidcap_id
Definition suews_ctrl_const.f95:332
allocatearray::ncolumnsanthropogenic
integer, parameter ncolumnsanthropogenic
Definition suews_ctrl_const.f95:71
allocatearray::building_scale
real(kind(1d0)), dimension(:), allocatable building_scale
Definition suews_ctrl_const.f95:579
allocatearray::temp_roof_grids
real(kind(1d0)), dimension(:, :, :), allocatable temp_roof_grids
Definition suews_ctrl_const.f95:523
allocatearray::usecolumnsdataout
integer, dimension(:), allocatable usecolumnsdataout
Definition suews_ctrl_const.f95:122
allocatearray::tair_av
real(kind(1d0)) tair_av
Definition suews_ctrl_const.f95:430
allocatearray::ncolumnsdataoutsolweig
integer, parameter ncolumnsdataoutsolweig
Definition suews_ctrl_const.f95:80
allocatearray::ncolumnsdataoutestm
integer, parameter ncolumnsdataoutestm
Definition suews_ctrl_const.f95:80
allocatearray::c_surf_k2_bldgs
integer, dimension(5) c_surf_k2_bldgs
Definition suews_ctrl_const.f95:955
allocatearray::c_surf_k5
integer, dimension(nsurfincsnow) c_surf_k5
Definition suews_ctrl_const.f95:875
allocatearray::dataoutlineehc
real(kind(1d0)), dimension(ncolumnsdataoutehc - 5) dataoutlineehc
Definition suews_ctrl_const.f95:209
allocatearray::volswe
real(kind(1d0)), dimension(nsurf) volswe
Definition suews_ctrl_const.f95:436
allocatearray::veg_contact_fraction
real(kind(1d0)), dimension(:), allocatable veg_contact_fraction
Definition suews_ctrl_const.f95:583
allocatearray::boanohmend
real(kind(1d0)), dimension(maxnumberofgrids) boanohmend
Definition suews_ctrl_const.f95:484
allocatearray::air_ssa_sw
real(kind(1d0)) air_ssa_sw
Definition suews_ctrl_const.f95:605
allocatearray::soilstore_roof
real(kind(1d0)), dimension(:), allocatable soilstore_roof
Definition suews_ctrl_const.f95:506
allocatearray::ncolumnsveg
integer, parameter ncolumnsveg
Definition suews_ctrl_const.f95:64
allocatearray::metfordisaggprev
real(kind(1d0)), dimension(:), allocatable metfordisaggprev
Definition suews_ctrl_const.f95:181
allocatearray::ev_snow
real(kind(1d0)), dimension(nsurf) ev_snow
Definition suews_ctrl_const.f95:436
allocatearray::dataoutdebug
real(kind(1d0)), dimension(:, :, :), allocatable dataoutdebug
Definition suews_ctrl_const.f95:161
allocatearray::c_wgtowater
integer, dimension(nsurf) c_wgtowater
Definition suews_ctrl_const.f95:853
allocatearray::cp_roof_grids
real(kind(1d0)), dimension(:, :, :), allocatable cp_roof_grids
Definition suews_ctrl_const.f95:513
allocatearray::soilstore_surf
real(kind(1d0)), dimension(nsurf) soilstore_surf
Definition suews_ctrl_const.f95:240
allocatearray::water_coeff
real(kind(1d0)), dimension(:, :), allocatable water_coeff
Definition suews_ctrl_const.f95:134
allocatearray::tsfc_surf_grids
real(kind(1d0)), dimension(:, :), allocatable tsfc_surf_grids
Definition suews_ctrl_const.f95:566
allocatearray::c_hrprofpopwe
integer, dimension(24) c_hrprofpopwe
Definition suews_ctrl_const.f95:841
allocatearray::lenday_id_grids
real(kind(1d0)), dimension(maxnumberofgrids) lenday_id_grids
Definition suews_ctrl_const.f95:314
allocatearray::c_surf_thick3
integer, dimension(nsurfincsnow) c_surf_thick3
Definition suews_ctrl_const.f95:875
allocatearray::cmod_snowfrac
integer, dimension(nsurf) cmod_snowfrac
Definition suews_ctrl_const.f95:1014
allocatearray::sfr_wall_grids
real(kind(1d0)), dimension(:, :), allocatable sfr_wall_grids
Definition suews_ctrl_const.f95:542
allocatearray::laitype
integer, dimension(nvegsurf) laitype
Definition suews_ctrl_const.f95:366
allocatearray::cmds_snowdens
integer, dimension(nsurf) cmds_snowdens
Definition suews_ctrl_const.f95:1024
allocatearray::state_wall_grids
real(kind(1d0)), dimension(:, :), allocatable state_wall_grids
Definition suews_ctrl_const.f95:549
allocatearray::nlw
integer, parameter nlw
Definition suews_ctrl_const.f95:43
allocatearray::c_ohmcode_wdry
integer, dimension(nsurfincsnow) c_ohmcode_wdry
Definition suews_ctrl_const.f95:731
allocatearray::building_scale_grids
real(kind(1d0)), dimension(:, :), allocatable building_scale_grids
Definition suews_ctrl_const.f95:594
allocatearray::dz_surf_grids
real(kind(1d0)), dimension(:, :, :), allocatable dz_surf_grids
Definition suews_ctrl_const.f95:569
allocatearray::c_surf_k1_paved
integer, dimension(3) c_surf_k1_paved
Definition suews_ctrl_const.f95:934
allocatearray::height
real(kind(1d0)), dimension(:), allocatable height
Definition suews_ctrl_const.f95:576
allocatearray::maxncols_c
integer, parameter maxncols_c
Definition suews_ctrl_const.f95:1004
allocatearray::nonveg_coeff
real(kind(1d0)), dimension(:, :), allocatable nonveg_coeff
Definition suews_ctrl_const.f95:132
allocatearray::cmod_snowwaterstate
integer, dimension(nsurf) cmod_snowwaterstate
Definition suews_ctrl_const.f95:1012
allocatearray::c_surf_k5_bldgs
integer, dimension(5) c_surf_k5_bldgs
Definition suews_ctrl_const.f95:964
allocatearray::ksurf_suewssurfs
real(kind(1d0)), dimension(5, nsurfincsnow) ksurf_suewssurfs
Definition suews_ctrl_const.f95:611
allocatearray::veg_ssa_sw
real(kind(1d0)) veg_ssa_sw
Definition suews_ctrl_const.f95:605
allocatearray::narp_alb_snow
real(kind(1d0)) narp_alb_snow
Definition suews_ctrl_const.f95:406
allocatearray::cp_wall
real(kind(1d0)), dimension(:, :), allocatable cp_wall
Definition suews_ctrl_const.f95:529
allocatearray::c_wgtosoilstore
integer, dimension(nsurf) c_wgtosoilstore
Definition suews_ctrl_const.f95:855
allocatearray::tsurf_ind_snow
real(kind(1d0)), dimension(nsurf) tsurf_ind_snow
Definition suews_ctrl_const.f95:392
allocatearray::albgrass_id_grids
real(kind(1d0)), dimension(maxnumberofgrids) albgrass_id_grids
Definition suews_ctrl_const.f95:329
allocatearray::tair24hr
real(kind(1d0)), dimension(:), allocatable tair24hr
Definition suews_ctrl_const.f95:205
allocatearray::c_laimin
integer, dimension(nvegsurf) c_laimin
Definition suews_ctrl_const.f95:654
allocatearray::c_surf_rhocp4_paved
integer, dimension(3) c_surf_rhocp4_paved
Definition suews_ctrl_const.f95:944
allocatearray::ncolumnsdataoutbeers
integer, parameter ncolumnsdataoutbeers
Definition suews_ctrl_const.f95:80
allocatearray::headerohmcoefficients_reqd
character(len=20), dimension(ncolumnsohmcoefficients) headerohmcoefficients_reqd
Definition suews_ctrl_const.f95:107
allocatearray::biogenco2code
real(kind(1d0)), dimension(nvegsurf) biogenco2code
Definition suews_ctrl_const.f95:369
allocatearray::sathydraulicconduct
real(kind(1d0)), dimension(nsurf) sathydraulicconduct
Definition suews_ctrl_const.f95:253
allocatearray::lenday_id
real(kind(1d0)) lenday_id
Definition suews_ctrl_const.f95:280
allocatearray::narp_lat
real(kind(1d0)) narp_lat
Definition suews_ctrl_const.f95:406
allocatearray::qn_s_av
real(kind(1d0)) qn_s_av
Definition suews_ctrl_const.f95:431
allocatearray::storedrainprm
real(kind(1d0)), dimension(6, nsurf) storedrainprm
Definition suews_ctrl_const.f95:261
allocatearray::air_ssa_lw
real(kind(1d0)) air_ssa_lw
Definition suews_ctrl_const.f95:605
allocatearray::rainonsnow
real(kind(1d0)), dimension(nsurf) rainonsnow
Definition suews_ctrl_const.f95:436
allocatearray::rad2deg
real(kind(1d0)), parameter rad2deg
Definition suews_ctrl_const.f95:412
allocatearray::soilstore_roof_grids
real(kind(1d0)), dimension(:, :), allocatable soilstore_roof_grids
Definition suews_ctrl_const.f95:521
allocatearray::bulkalbedo
real(kind(1d0)) bulkalbedo
Definition suews_ctrl_const.f95:389
allocatearray::c_alpha_enh_bioco2
integer, dimension(nvegsurf) c_alpha_enh_bioco2
Definition suews_ctrl_const.f95:864
allocatearray::kkanohm
real(kind(1d0)), dimension(nsurf) kkanohm
Definition suews_ctrl_const.f95:486
allocatearray::theta_bioco2
real(kind(1d0)), dimension(nvegsurf) theta_bioco2
Definition suews_ctrl_const.f95:369
allocatearray::conductance_coeff
real(kind(1d0)), dimension(:, :), allocatable conductance_coeff
Definition suews_ctrl_const.f95:137
allocatearray::c_hrprofpopwd
integer, dimension(24) c_hrprofpopwd
Definition suews_ctrl_const.f95:840
allocatearray::nspec
integer, parameter nspec
Definition suews_ctrl_const.f95:41
allocatearray::ncolumnsnonveg
integer, parameter ncolumnsnonveg
Definition suews_ctrl_const.f95:63
allocatearray::waterdist
real(kind(1d0)), dimension(nsurf+1, nsurf - 1) waterdist
Definition suews_ctrl_const.f95:258
allocatearray::mw_indday
real(kind(1d0)), dimension(nsurf) mw_indday
Definition suews_ctrl_const.f95:436
allocatearray::kup_ind_nosnow
real(kind(1d0)), dimension(nsurf) kup_ind_nosnow
Definition suews_ctrl_const.f95:395
allocatearray::emis_roof
real(kind(1d0)), dimension(:), allocatable emis_roof
Definition suews_ctrl_const.f95:502
allocatearray::kup_ind_snow
real(kind(1d0)), dimension(nsurf) kup_ind_snow
Definition suews_ctrl_const.f95:395
allocatearray::tsfc_surf
real(kind(1d0)), dimension(:), allocatable tsfc_surf
Definition suews_ctrl_const.f95:559
allocatearray::ncolumnswgwaterdist
integer, parameter ncolumnswgwaterdist
Definition suews_ctrl_const.f95:74
allocatearray::c_surf_thick1
integer, dimension(nsurfincsnow) c_surf_thick1
Definition suews_ctrl_const.f95:875
allocatearray::soilstoreold
real(kind(1d0)), dimension(nsurf) soilstoreold
Definition suews_ctrl_const.f95:241
allocatearray::narp_emis_snow
real(kind(1d0)) narp_emis_snow
Definition suews_ctrl_const.f95:406
allocatearray::c_wgtopaved
integer, dimension(nsurf) c_wgtopaved
Definition suews_ctrl_const.f95:847
allocatearray::c_internal_thick4_bldgs
integer, dimension(5) c_internal_thick4_bldgs
Definition suews_ctrl_const.f95:990
allocatearray::cbendwg
integer, parameter cbendwg
Definition suews_ctrl_const.f95:858
allocatearray::qm_freezstate
real(kind(1d0)), dimension(nsurf) qm_freezstate
Definition suews_ctrl_const.f95:436
allocatearray::cp_surf
real(kind(1d0)), dimension(:, :), allocatable cp_surf
Definition suews_ctrl_const.f95:561
allocatearray::c_a3_wdry
integer, dimension(nsurfincsnow) c_a3_wdry
Definition suews_ctrl_const.f95:755
allocatearray::cmod_snowdens
integer, dimension(nsurf) cmod_snowdens
Definition suews_ctrl_const.f95:1015
allocatearray::c_hrprofwumanuwe
integer, dimension(24) c_hrprofwumanuwe
Definition suews_ctrl_const.f95:831
allocatearray::narp_g
real(kind(1d0)), dimension(365) narp_g
Definition suews_ctrl_const.f95:408
allocatearray::ohm_threshsw
real(kind(1d0)), dimension(nsurf+1) ohm_threshsw
Definition suews_ctrl_const.f95:419
allocatearray::c_min_res_bioco2
integer, dimension(nvegsurf) c_min_res_bioco2
Definition suews_ctrl_const.f95:868
allocatearray::c_resp_b
integer, dimension(nvegsurf) c_resp_b
Definition suews_ctrl_const.f95:867
allocatearray::lai_id_prev
real(kind(1d0)), dimension(nvegsurf) lai_id_prev
Definition suews_ctrl_const.f95:283
allocatearray::tsurf_ind
real(kind(1d0)), dimension(nsurf) tsurf_ind
Definition suews_ctrl_const.f95:392
allocatearray::k_roof_grids
real(kind(1d0)), dimension(:, :, :), allocatable k_roof_grids
Definition suews_ctrl_const.f95:512
allocatearray::headersoil_file
character(len=20), dimension(ncolumnssoil) headersoil_file
Definition suews_ctrl_const.f95:102
allocatearray::evap
real(kind(1d0)), dimension(nsurf) evap
Definition suews_ctrl_const.f95:235
allocatearray::c_internal_rhocp5_bldgs
integer, dimension(5) c_internal_rhocp5_bldgs
Definition suews_ctrl_const.f95:995
allocatearray::sigma_sb
real(kind(1d0)), parameter sigma_sb
Definition suews_ctrl_const.f95:412
allocatearray::metforcingdata
real(kind(1d0)), dimension(:, :, :), allocatable metforcingdata
Definition suews_ctrl_const.f95:150
allocatearray::c_albmin
integer, dimension(nsurf) c_albmin
Definition suews_ctrl_const.f95:625
allocatearray::ccendso
integer, parameter ccendso
Definition suews_ctrl_const.f95:705
allocatearray::veg_contact_fraction_grids
real(kind(1d0)), dimension(:, :), allocatable veg_contact_fraction_grids
Definition suews_ctrl_const.f95:598
allocatearray::c_internal_k5_bldgs
integer, dimension(5) c_internal_k5_bldgs
Definition suews_ctrl_const.f95:994
allocatearray::ncolumnsdataoutspartacus
integer, parameter ncolumnsdataoutspartacus
Definition suews_ctrl_const.f95:80
allocatearray::ccmod
integer, parameter ccmod
Definition suews_ctrl_const.f95:1009
allocatearray::wuday_id_prev
real(kind(1d0)), dimension(9) wuday_id_prev
Definition suews_ctrl_const.f95:282
allocatearray::k_roof
real(kind(1d0)), dimension(:, :), allocatable k_roof
Definition suews_ctrl_const.f95:497
allocatearray::headerirrigation_reqd
character(len=20), dimension(ncolumnsirrigation) headerirrigation_reqd
Definition suews_ctrl_const.f95:113
allocatearray::ncolumnsdataoutrsl
integer, parameter ncolumnsdataoutrsl
Definition suews_ctrl_const.f95:80
allocatearray::aggreguse
character(len=3 *ncolumnsdataoutsuews) aggreguse
Definition suews_ctrl_const.f95:127
allocatearray::ccendestmm
integer, parameter ccendestmm
Definition suews_ctrl_const.f95:931
allocatearray::headeranthropogenic_file
character(len=20), dimension(ncolumnsanthropogenic) headeranthropogenic_file
Definition suews_ctrl_const.f95:110
allocatearray::cts_imin
integer, parameter cts_imin
Definition suews_ctrl_const.f95:1035
allocatearray::lup_ind_nosnow
real(kind(1d0)), dimension(nsurf) lup_ind_nosnow
Definition suews_ctrl_const.f95:398
allocatearray::wetthresh_roof
real(kind(1d0)), dimension(:), allocatable wetthresh_roof
Definition suews_ctrl_const.f95:505
allocatearray::c_obssmdepth
integer, dimension(nsurf) c_obssmdepth
Definition suews_ctrl_const.f95:700
allocatearray::soilstorecap_roof
real(kind(1d0)), dimension(:), allocatable soilstorecap_roof
Definition suews_ctrl_const.f95:507
allocatearray::veg_frac
real(kind(1d0)), dimension(:), allocatable veg_frac
Definition suews_ctrl_const.f95:578
allocatearray::k_surf
real(kind(1d0)), dimension(:, :), allocatable k_surf
Definition suews_ctrl_const.f95:560
allocatearray::capmax_dec
real(kind(1d0)) capmax_dec
Definition suews_ctrl_const.f95:292
allocatearray::a1anohm
real(kind(1d0)), dimension(maxnumberofgrids) a1anohm
Definition suews_ctrl_const.f95:481
allocatearray::beta_bioco2
real(kind(1d0)), dimension(nvegsurf) beta_bioco2
Definition suews_ctrl_const.f95:369
allocatearray::c_hrproftraffwe
integer, dimension(24) c_hrproftraffwe
Definition suews_ctrl_const.f95:839
allocatearray::c_wall_rhocp5_bldgs
integer, dimension(5) c_wall_rhocp5_bldgs
Definition suews_ctrl_const.f95:980
allocatearray::mw_ind
real(kind(1d0)), dimension(nsurf) mw_ind
Definition suews_ctrl_const.f95:436
allocatearray::qn1_ind_snow
real(kind(1d0)), dimension(nsurf) qn1_ind_snow
Definition suews_ctrl_const.f95:401
allocatearray::datetimeline
real(kind(1d0)), dimension(5) datetimeline
Definition suews_ctrl_const.f95:169
allocatearray::c_hrprofwumanuwd
integer, dimension(24) c_hrprofwumanuwd
Definition suews_ctrl_const.f95:830
allocatearray::dataoutlinersl
real(kind(1d0)), dimension(ncolumnsdataoutrsl - 5+12) dataoutlinersl
Definition suews_ctrl_const.f95:173
allocatearray::c_surf_thick5_bldgs
integer, dimension(5) c_surf_thick5_bldgs
Definition suews_ctrl_const.f95:963
allocatearray::c_wall_k2_bldgs
integer, dimension(5) c_wall_k2_bldgs
Definition suews_ctrl_const.f95:970
allocatearray::c_a3_swet
integer, dimension(nsurfincsnow) c_a3_swet
Definition suews_ctrl_const.f95:737
allocatearray::addwaterrunoff
real(kind(1d0)), dimension(nsurf) addwaterrunoff
Definition suews_ctrl_const.f95:231
allocatearray::surfacechar
real(kind(1d0)), dimension(:, :), allocatable surfacechar
Definition suews_ctrl_const.f95:149
allocatearray::cmod_snowpack
integer, dimension(nsurf) cmod_snowpack
Definition suews_ctrl_const.f95:1013
allocatearray::albevetr_id
real(kind(1d0)) albevetr_id
Definition suews_ctrl_const.f95:334
allocatearray::ivgrass
integer, parameter ivgrass
Definition suews_ctrl_const.f95:46
allocatearray::statelimit_wall_grids
real(kind(1d0)), dimension(:, :), allocatable statelimit_wall_grids
Definition suews_ctrl_const.f95:550
allocatearray::snowwater
real(kind(1d0)), dimension(nsurf) snowwater
Definition suews_ctrl_const.f95:436
allocatearray::narp_trans_site
real(kind(1d0)) narp_trans_site
Definition suews_ctrl_const.f95:406
allocatearray::c_surf_thick4_paved
integer, dimension(3) c_surf_thick4_paved
Definition suews_ctrl_const.f95:942
allocatearray::snowcoverforms
integer, dimension(nsurf) snowcoverforms
Definition suews_ctrl_const.f95:465
allocatearray::c_stormax
integer, dimension(nsurf) c_stormax
Definition suews_ctrl_const.f95:629
allocatearray::c_surf_rhocp3
integer, dimension(nsurfincsnow) c_surf_rhocp3
Definition suews_ctrl_const.f95:875
allocatearray::wetthresh_roof_grids
real(kind(1d0)), dimension(:, :), allocatable wetthresh_roof_grids
Definition suews_ctrl_const.f95:520
allocatearray::grididmatrix
integer, dimension(:), allocatable grididmatrix
Definition suews_ctrl_const.f95:147
allocatearray::freezstatevol
real(kind(1d0)), dimension(nsurf) freezstatevol
Definition suews_ctrl_const.f95:436
allocatearray::wuprofa_24hr
real(kind(1d0)), dimension(0:23, 2) wuprofa_24hr
Definition suews_ctrl_const.f95:200
allocatearray::gdd_id_prev
real(kind(1d0)), dimension(nvegsurf) gdd_id_prev
Definition suews_ctrl_const.f95:278
allocatearray::c_snowlimrem
integer, dimension(nsurf) c_snowlimrem
Definition suews_ctrl_const.f95:640
allocatearray::xbo
real(kind(1d0)) xbo
Definition suews_ctrl_const.f95:346
allocatearray::dataoutlinespartacus
real(kind(1d0)), dimension(ncolumnsdataoutspartacus) dataoutlinespartacus
Definition suews_ctrl_const.f95:177
allocatearray::formatuse
character(len=14 *ncolumnsdataoutsuews) formatuse
Definition suews_ctrl_const.f95:124
allocatearray::c_surf_rhocp1_paved
integer, dimension(3) c_surf_rhocp1_paved
Definition suews_ctrl_const.f95:935
allocatearray::c_frfossilfuel_nonheat
integer c_frfossilfuel_nonheat
Definition suews_ctrl_const.f95:802
allocatearray::c_baset
integer, dimension(nvegsurf) c_baset
Definition suews_ctrl_const.f95:650
allocatearray::roof_albedo_dir_mult_fact
real(kind(1d0)), dimension(:, :), allocatable roof_albedo_dir_mult_fact
Definition suews_ctrl_const.f95:586
allocatearray::c_emis
integer, dimension(nsurf) c_emis
Definition suews_ctrl_const.f95:627
allocatearray::soilstorecap_roof_grids
real(kind(1d0)), dimension(:, :), allocatable soilstorecap_roof_grids
Definition suews_ctrl_const.f95:522
allocatearray::albmax_dectr
real(kind(1d0)) albmax_dectr
Definition suews_ctrl_const.f95:292
allocatearray::c_resp_a
integer, dimension(nvegsurf) c_resp_a
Definition suews_ctrl_const.f95:866
allocatearray::c_surf_thick2
integer, dimension(nsurfincsnow) c_surf_thick2
Definition suews_ctrl_const.f95:875
allocatearray::sdd_id
real(kind(1d0)), dimension(nvegsurf) sdd_id
Definition suews_ctrl_const.f95:279
allocatearray::c_nroom_bldgs
integer, dimension(5) c_nroom_bldgs
Definition suews_ctrl_const.f95:996
allocatearray::sddfull
real(kind(1d0)), dimension(nvegsurf) sddfull
Definition suews_ctrl_const.f95:360
allocatearray::c_internal_k2_bldgs
integer, dimension(5) c_internal_k2_bldgs
Definition suews_ctrl_const.f95:985
allocatearray::c_internal_k4_bldgs
integer, dimension(5) c_internal_k4_bldgs
Definition suews_ctrl_const.f95:991
allocatearray::c_surf_k4_bldgs
integer, dimension(5) c_surf_k4_bldgs
Definition suews_ctrl_const.f95:961
allocatearray::laimin
real(kind(1d0)), dimension(nvegsurf) laimin
Definition suews_ctrl_const.f95:361
allocatearray::albmin_dectr
real(kind(1d0)) albmin_dectr
Definition suews_ctrl_const.f95:292
allocatearray::ncolumnsdataoutsnow
integer, parameter ncolumnsdataoutsnow
Definition suews_ctrl_const.f95:80
allocatearray::headerveg_reqd
character(len=20), dimension(ncolumnsveg) headerveg_reqd
Definition suews_ctrl_const.f95:97
allocatearray::headerbiogen_reqd
character(len=20), dimension(ncolumnsbiogen) headerbiogen_reqd
Definition suews_ctrl_const.f95:119
allocatearray::c_hrprofhumactivitywe
integer, dimension(24) c_hrprofhumactivitywe
Definition suews_ctrl_const.f95:837
allocatearray::headerohmcoefficients_file
character(len=20), dimension(ncolumnsohmcoefficients) headerohmcoefficients_file
Definition suews_ctrl_const.f95:106
allocatearray::estmfordisagg
real(kind(1d0)), dimension(:, :), allocatable estmfordisagg
Definition suews_ctrl_const.f95:183
allocatearray::porosity_id_grids
real(kind(1d0)), dimension(maxnumberofgrids) porosity_id_grids
Definition suews_ctrl_const.f95:330
allocatearray::tin_surf
real(kind(1d0)), dimension(:), allocatable tin_surf
Definition suews_ctrl_const.f95:563
allocatearray::estmfordisaggnext
real(kind(1d0)), dimension(:), allocatable estmfordisaggnext
Definition suews_ctrl_const.f95:184
allocatearray::ncolumnsestmcoefficients
integer, parameter ncolumnsestmcoefficients
Definition suews_ctrl_const.f95:70
allocatearray::watersurf
integer, parameter watersurf
Definition suews_ctrl_const.f95:46
allocatearray::profiles_coeff
real(kind(1d0)), dimension(:, :), allocatable profiles_coeff
Definition suews_ctrl_const.f95:142
allocatearray::tin_wall
real(kind(1d0)), dimension(:), allocatable tin_wall
Definition suews_ctrl_const.f95:531
allocatearray::grasssurf
integer, parameter grasssurf
Definition suews_ctrl_const.f95:46
allocatearray::c_surf_thick1_paved
integer, dimension(3) c_surf_thick1_paved
Definition suews_ctrl_const.f95:933
allocatearray::headerprofiles_file
character(len=20), dimension(ncolumnsprofiles) headerprofiles_file
Definition suews_ctrl_const.f95:114
allocatearray::alpha_enh_bioco2
real(kind(1d0)), dimension(nvegsurf) alpha_enh_bioco2
Definition suews_ctrl_const.f95:369
allocatearray::headercond_reqd
character(len=20), dimension(ncolumnsconductance) headercond_reqd
Definition suews_ctrl_const.f95:105
allocatearray::dz_roof_grids
real(kind(1d0)), dimension(:, :, :), allocatable dz_roof_grids
Definition suews_ctrl_const.f95:514
allocatearray::statelimit_roof
real(kind(1d0)), dimension(:), allocatable statelimit_roof
Definition suews_ctrl_const.f95:504
allocatearray::alb_wall
real(kind(1d0)), dimension(:), allocatable alb_wall
Definition suews_ctrl_const.f95:532
allocatearray::nsurfdonotreceivedrainage
integer, parameter nsurfdonotreceivedrainage
Definition suews_ctrl_const.f95:46
allocatearray::roof_albedo_dir_mult_fact_grids
real(kind(1d0)), dimension(:, :, :), allocatable roof_albedo_dir_mult_fact_grids
Definition suews_ctrl_const.f95:599
allocatearray::c_estmcode
integer, dimension(nsurfincsnow) c_estmcode
Definition suews_ctrl_const.f95:764
allocatearray::wuday_id
real(kind(1d0)), dimension(9) wuday_id
Definition suews_ctrl_const.f95:282
allocatearray::albdectr_id
real(kind(1d0)) albdectr_id
Definition suews_ctrl_const.f95:333
allocatearray::dataoutrsl
real(kind(1d0)), dimension(:, :, :), allocatable dataoutrsl
Definition suews_ctrl_const.f95:157
allocatearray::nvegsurf
integer, parameter nvegsurf
Definition suews_ctrl_const.f95:32
allocatearray::dataoutsuews
real(kind(1d0)), dimension(:, :, :), allocatable dataoutsuews
Definition suews_ctrl_const.f95:156
allocatearray::cmod_soilstate
integer, dimension(nsurf) cmod_soilstate
Definition suews_ctrl_const.f95:1011
allocatearray::soil_coeff
real(kind(1d0)), dimension(:, :), allocatable soil_coeff
Definition suews_ctrl_const.f95:136
allocatearray::wall_specular_frac
real(kind(1d0)), dimension(:, :), allocatable wall_specular_frac
Definition suews_ctrl_const.f95:587
allocatearray::narp_year
real(kind(1d0)) narp_year
Definition suews_ctrl_const.f95:406
allocatearray::qn_av
real(kind(1d0)) qn_av
Definition suews_ctrl_const.f95:429
allocatearray::c_surf_k3
integer, dimension(nsurfincsnow) c_surf_k3
Definition suews_ctrl_const.f95:875
allocatearray::headerirrigation_file
character(len=20), dimension(ncolumnsirrigation) headerirrigation_file
Definition suews_ctrl_const.f95:112
allocatearray::lup_ind
real(kind(1d0)), dimension(nsurf) lup_ind
Definition suews_ctrl_const.f95:398
allocatearray::height_grids
real(kind(1d0)), dimension(:, :), allocatable height_grids
Definition suews_ctrl_const.f95:591
allocatearray::c_biogenco2code
integer, dimension(nvegsurf) c_biogenco2code
Definition suews_ctrl_const.f95:664
allocatearray::runoff
real(kind(1d0)), dimension(nsurf) runoff
Definition suews_ctrl_const.f95:236
allocatearray::ccmds
integer, parameter ccmds
Definition suews_ctrl_const.f95:1023
allocatearray::albdectr_id_grids
real(kind(1d0)), dimension(maxnumberofgrids) albdectr_id_grids
Definition suews_ctrl_const.f95:327
allocatearray::c_surf_rhocp5_paved
integer, dimension(3) c_surf_rhocp5_paved
Definition suews_ctrl_const.f95:947
allocatearray::rss_nsurf
real(kind(1d0)), dimension(nsurf) rss_nsurf
Definition suews_ctrl_const.f95:245
allocatearray::ivdecid
integer, parameter ivdecid
Definition suews_ctrl_const.f95:46
allocatearray::veg_scale_grids
real(kind(1d0)), dimension(:, :), allocatable veg_scale_grids
Definition suews_ctrl_const.f95:595
allocatearray::a3
real(kind(1d0)) a3
Definition suews_ctrl_const.f95:420
allocatearray::veg_fsd_const
real(kind(1d0)) veg_fsd_const
Definition suews_ctrl_const.f95:605
allocatearray::c_surf_thick4_bldgs
integer, dimension(5) c_surf_thick4_bldgs
Definition suews_ctrl_const.f95:960
allocatearray::c_surf_thick2_paved
integer, dimension(3) c_surf_thick2_paved
Definition suews_ctrl_const.f95:936
allocatearray::dz_roof
real(kind(1d0)), dimension(:, :), allocatable dz_roof
Definition suews_ctrl_const.f95:499
allocatearray::k_surf_grids
real(kind(1d0)), dimension(:, :, :), allocatable k_surf_grids
Definition suews_ctrl_const.f95:567
allocatearray::bsoilsurf
integer, parameter bsoilsurf
Definition suews_ctrl_const.f95:46
allocatearray::albmax_grass
real(kind(1d0)) albmax_grass
Definition suews_ctrl_const.f95:292
allocatearray::stateout
real(kind(1d0)), dimension(nsurf) stateout
Definition suews_ctrl_const.f95:243
allocatearray::pormin_dec
real(kind(1d0)) pormin_dec
Definition suews_ctrl_const.f95:292
allocatearray::temp_surf
real(kind(1d0)), dimension(:, :), allocatable temp_surf
Definition suews_ctrl_const.f95:564
allocatearray::ncolumnsdataoutdailystate
integer, parameter ncolumnsdataoutdailystate
Definition suews_ctrl_const.f95:80
allocatearray::c_surf_thick1_bldgs
integer, dimension(5) c_surf_thick1_bldgs
Definition suews_ctrl_const.f95:951
allocatearray::wuday_id_grids
real(kind(1d0)), dimension(9, maxnumberofgrids) wuday_id_grids
Definition suews_ctrl_const.f95:316
allocatearray::snowdens
real(kind(1d0)), dimension(nsurf) snowdens
Definition suews_ctrl_const.f95:436
allocatearray::maxncols_cmds
integer, parameter maxncols_cmds
Definition suews_ctrl_const.f95:1027
allocatearray::lup_ind_snow
real(kind(1d0)), dimension(nsurf) lup_ind_snow
Definition suews_ctrl_const.f95:398
allocatearray::c_surf_k2
integer, dimension(nsurfincsnow) c_surf_k2
Definition suews_ctrl_const.f95:875
allocatearray::ncolumnsdataoutehc
integer, parameter ncolumnsdataoutehc
Definition suews_ctrl_const.f95:80
allocatearray::c_surf_rhocp3_paved
integer, dimension(3) c_surf_rhocp3_paved
Definition suews_ctrl_const.f95:941
allocatearray::c_surf_rhocp5
integer, dimension(nsurfincsnow) c_surf_rhocp5
Definition suews_ctrl_const.f95:875
allocatearray::deltaqi
real(kind(1d0)), dimension(nsurf) deltaqi
Definition suews_ctrl_const.f95:436
allocatearray::c_wgtodectr
integer, dimension(nsurf) c_wgtodectr
Definition suews_ctrl_const.f95:850
allocatearray::ncol
integer, parameter ncol
Definition suews_ctrl_const.f95:44
allocatearray::c_internal_rhocp3_bldgs
integer, dimension(5) c_internal_rhocp3_bldgs
Definition suews_ctrl_const.f95:989
allocatearray::c_soiltcode
integer, dimension(nsurf) c_soiltcode
Definition suews_ctrl_const.f95:635
allocatearray::ohmcoefficients_coeff
real(kind(1d0)), dimension(:, :), allocatable ohmcoefficients_coeff
Definition suews_ctrl_const.f95:138
allocatearray::emis_wall
real(kind(1d0)), dimension(:), allocatable emis_wall
Definition suews_ctrl_const.f95:533
allocatearray::c_beta_enh_bioco2
integer, dimension(nvegsurf) c_beta_enh_bioco2
Definition suews_ctrl_const.f95:865
allocatearray::c_porositymax
integer, dimension(nvegsurf) c_porositymax
Definition suews_ctrl_const.f95:657
allocatearray::ts5mindata_ir
real(kind(1d0)), dimension(:), allocatable ts5mindata_ir
Definition suews_ctrl_const.f95:204
allocatearray::nsurf
integer, parameter nsurf
Definition suews_ctrl_const.f95:31
allocatearray::pavsurf
integer, parameter pavsurf
Definition suews_ctrl_const.f95:46
allocatearray::c_em_ibld_bldgs
integer, dimension(5) c_em_ibld_bldgs
Definition suews_ctrl_const.f95:998
allocatearray::dqnsdt
real(kind(1d0)) dqnsdt
Definition suews_ctrl_const.f95:431
allocatearray::tmax_id
real(kind(1d0)) tmax_id
Definition suews_ctrl_const.f95:280
allocatearray::c_surf_k3_paved
integer, dimension(3) c_surf_k3_paved
Definition suews_ctrl_const.f95:940
allocatearray::dataoutlinebeers
real(kind(1d0)), dimension(ncolumnsdataoutbeers - 5) dataoutlinebeers
Definition suews_ctrl_const.f95:175
allocatearray::cts_tsurf
integer, parameter cts_tsurf
Definition suews_ctrl_const.f95:1037
allocatearray::c_theta_bioco2
integer, dimension(nvegsurf) c_theta_bioco2
Definition suews_ctrl_const.f95:863
allocatearray::albmax_evetr
real(kind(1d0)) albmax_evetr
Definition suews_ctrl_const.f95:292
allocatearray::headerbiogen_file
character(len=20), dimension(ncolumnsbiogen) headerbiogen_file
Definition suews_ctrl_const.f95:118
allocatearray::headersiteselect_file
character(len=20), dimension(ncolumnssiteselect) headersiteselect_file
Definition suews_ctrl_const.f95:93
allocatearray::c_porositymin
integer, dimension(nvegsurf) c_porositymin
Definition suews_ctrl_const.f95:656
allocatearray::veg_ext_grids
real(kind(1d0)), dimension(:, :), allocatable veg_ext_grids
Definition suews_ctrl_const.f95:596
allocatearray::ndays
integer, parameter ndays
Definition suews_ctrl_const.f95:271
allocatearray::dataoutbl
real(kind(1d0)), dimension(:, :, :), allocatable dataoutbl
Definition suews_ctrl_const.f95:158
allocatearray::cts_twall_n
integer, parameter cts_twall_n
Definition suews_ctrl_const.f95:1041
allocatearray::wetthresh_surf
real(kind(1d0)), dimension(nsurf) wetthresh_surf
Definition suews_ctrl_const.f95:247
allocatearray::c_leafgp1
integer, dimension(nvegsurf) c_leafgp1
Definition suews_ctrl_const.f95:660
allocatearray::c_surf_thick5_paved
integer, dimension(3) c_surf_thick5_paved
Definition suews_ctrl_const.f95:945
allocatearray::c_surf_k4
integer, dimension(nsurfincsnow) c_surf_k4
Definition suews_ctrl_const.f95:875
allocatearray::cp_roof
real(kind(1d0)), dimension(:, :), allocatable cp_roof
Definition suews_ctrl_const.f95:498
allocatearray::a1
real(kind(1d0)) a1
Definition suews_ctrl_const.f95:420
allocatearray::alb
real(kind(1d0)), dimension(nsurf) alb
Definition suews_ctrl_const.f95:386
allocatearray::irrigation_coeff
real(kind(1d0)), dimension(:, :), allocatable irrigation_coeff
Definition suews_ctrl_const.f95:141
allocatearray::kup_ind
real(kind(1d0)), dimension(nsurf) kup_ind
Definition suews_ctrl_const.f95:395
allocatearray::building_frac
real(kind(1d0)), dimension(:), allocatable building_frac
Definition suews_ctrl_const.f95:577
allocatearray::c_obssnrfrac
integer, dimension(nsurf) c_obssnrfrac
Definition suews_ctrl_const.f95:702
allocatearray::ndepth
integer, parameter ndepth
Definition suews_ctrl_const.f95:36
allocatearray::qm_melt
real(kind(1d0)), dimension(nsurf) qm_melt
Definition suews_ctrl_const.f95:436
allocatearray::c_wall_thick5_bldgs
integer, dimension(5) c_wall_thick5_bldgs
Definition suews_ctrl_const.f95:978
allocatearray::modeloutputdata
real(kind(1d0)), dimension(:, :, :), allocatable modeloutputdata
Definition suews_ctrl_const.f95:155
allocatearray::runoffsnow
real(kind(1d0)), dimension(nsurf) runoffsnow
Definition suews_ctrl_const.f95:436
allocatearray::veg_frac_grids
real(kind(1d0)), dimension(:, :), allocatable veg_frac_grids
Definition suews_ctrl_const.f95:593
allocatearray::c_alb_ibld_bldgs
integer, dimension(5) c_alb_ibld_bldgs
Definition suews_ctrl_const.f95:997
allocatearray::c_hrprofwuautowe
integer, dimension(24) c_hrprofwuautowe
Definition suews_ctrl_const.f95:833
allocatearray::cmod_state
integer, dimension(nsurf) cmod_state
Definition suews_ctrl_const.f95:1010
allocatearray::headercond_file
character(len=20), dimension(ncolumnsconductance) headercond_file
Definition suews_ctrl_const.f95:104
allocatearray::ivconif
integer, parameter ivconif
Definition suews_ctrl_const.f95:46
allocatearray::c_surf_thick3_paved
integer, dimension(3) c_surf_thick3_paved
Definition suews_ctrl_const.f95:939
allocatearray::state_roof_grids
real(kind(1d0)), dimension(:, :), allocatable state_roof_grids
Definition suews_ctrl_const.f95:518
allocatearray::c_surf_rhocp1
integer, dimension(nsurfincsnow) c_surf_rhocp1
Definition suews_ctrl_const.f95:875
allocatearray::icefrac_grids
real(kind(1d0)), dimension(nsurf, maxnumberofgrids) icefrac_grids
Definition suews_ctrl_const.f95:461
allocatearray::maxconductance
real(kind(1d0)), dimension(nvegsurf) maxconductance
Definition suews_ctrl_const.f95:363
allocatearray::c_hrprofhumactivitywd
integer, dimension(24) c_hrprofhumactivitywd
Definition suews_ctrl_const.f95:836
allocatearray::statelimit_roof_grids
real(kind(1d0)), dimension(:, :), allocatable statelimit_roof_grids
Definition suews_ctrl_const.f95:519
allocatearray::ncolumnsbiogen
integer, parameter ncolumnsbiogen
Definition suews_ctrl_const.f95:75
allocatearray::sfr_roof_grids
real(kind(1d0)), dimension(:, :), allocatable sfr_roof_grids
Definition suews_ctrl_const.f95:511
allocatearray::excesssurf
integer, parameter excesssurf
Definition suews_ctrl_const.f95:46
allocatearray::c_wall_rhocp4_bldgs
integer, dimension(5) c_wall_rhocp4_bldgs
Definition suews_ctrl_const.f95:977
allocatearray::c_wgtobsoil
integer, dimension(nsurf) c_wgtobsoil
Definition suews_ctrl_const.f95:852
allocatearray::qn1_ind
real(kind(1d0)), dimension(nsurf) qn1_ind
Definition suews_ctrl_const.f95:401
allocatearray::snowcalcswitch
integer, dimension(nsurf) snowcalcswitch
Definition suews_ctrl_const.f95:465
allocatearray::headerestmcoefficients_reqd
character(len=20), dimension(ncolumnsestmcoefficients) headerestmcoefficients_reqd
Definition suews_ctrl_const.f95:109
allocatearray::cts_twall_e
integer, parameter cts_twall_e
Definition suews_ctrl_const.f95:1042
allocatearray::ccendp
integer, parameter ccendp
Definition suews_ctrl_const.f95:666
allocatearray::c_a1_wdry
integer, dimension(nsurfincsnow) c_a1_wdry
Definition suews_ctrl_const.f95:751
allocatearray::popprof_24hr
real(kind(1d0)), dimension(0:23, 2) popprof_24hr
Definition suews_ctrl_const.f95:198
allocatearray::headersoil_reqd
character(len=20), dimension(ncolumnssoil) headersoil_reqd
Definition suews_ctrl_const.f95:103
allocatearray::headerestmcoefficients_file
character(len=20), dimension(ncolumnsestmcoefficients) headerestmcoefficients_file
Definition suews_ctrl_const.f95:108
allocatearray::gddfull
real(kind(1d0)), dimension(nvegsurf) gddfull
Definition suews_ctrl_const.f95:359
allocatearray::c_a2_wdry
integer, dimension(nsurfincsnow) c_a2_wdry
Definition suews_ctrl_const.f95:753
allocatearray::c_laieq
integer, dimension(nvegsurf) c_laieq
Definition suews_ctrl_const.f95:659
allocatearray::cts_tiair
integer, parameter cts_tiair
Definition suews_ctrl_const.f95:1036
allocatearray::ncolumnsirrigation
integer, parameter ncolumnsirrigation
Definition suews_ctrl_const.f95:72
allocatearray::temp_wall
real(kind(1d0)), dimension(:, :), allocatable temp_wall
Definition suews_ctrl_const.f95:539
allocatearray::dataoutdailystate
real(kind(1d0)), dimension(:, :, :), allocatable dataoutdailystate
Definition suews_ctrl_const.f95:166
allocatearray::dataoutestm
real(kind(1d0)), dimension(:, :, :), allocatable dataoutestm
Definition suews_ctrl_const.f95:164
allocatearray::veg_coeff
real(kind(1d0)), dimension(:, :), allocatable veg_coeff
Definition suews_ctrl_const.f95:133
allocatearray::air_ext_lw
real(kind(1d0)) air_ext_lw
Definition suews_ctrl_const.f95:605
allocatearray::a3anohm
real(kind(1d0)), dimension(maxnumberofgrids) a3anohm
Definition suews_ctrl_const.f95:481
allocatearray::c_wall_k4_bldgs
integer, dimension(5) c_wall_k4_bldgs
Definition suews_ctrl_const.f95:976
allocatearray::dz_wall_grids
real(kind(1d0)), dimension(:, :, :), allocatable dz_wall_grids
Definition suews_ctrl_const.f95:545
allocatearray::ccendestmmp
integer, parameter ccendestmmp
Definition suews_ctrl_const.f95:949
allocatearray::veg_fsd_grids
real(kind(1d0)), dimension(:, :), allocatable veg_fsd_grids
Definition suews_ctrl_const.f95:597
allocatearray::dailystateline
real(kind(1d0)), dimension(ncolumnsdataoutdailystate - 5) dailystateline
Definition suews_ctrl_const.f95:178
allocatearray::drain
real(kind(1d0)), dimension(nsurf) drain
Definition suews_ctrl_const.f95:234
allocatearray::tair_av_grids
real(kind(1d0)), dimension(:), allocatable tair_av_grids
Definition suews_ctrl_const.f95:426
allocatearray::c_a1_sdry
integer, dimension(nsurfincsnow) c_a1_sdry
Definition suews_ctrl_const.f95:739
allocatearray::c_surf_rhocp4
integer, dimension(nsurfincsnow) c_surf_rhocp4
Definition suews_ctrl_const.f95:875
allocatearray::k_wall
real(kind(1d0)), dimension(:, :), allocatable k_wall
Definition suews_ctrl_const.f95:528
allocatearray::estmforcingdata
real(kind(1d0)), dimension(:, :, :), allocatable estmforcingdata
Definition suews_ctrl_const.f95:152
allocatearray::c_leafop1
integer, dimension(nvegsurf) c_leafop1
Definition suews_ctrl_const.f95:662
allocatearray::maxsnowvol
real(kind(1d0)), dimension(nsurf) maxsnowvol
Definition suews_ctrl_const.f95:436
allocatearray::sfr_wall
real(kind(1d0)), dimension(:), allocatable sfr_wall
Definition suews_ctrl_const.f95:526
allocatearray::snowtosurf
real(kind(1d0)), dimension(nsurf) snowtosurf
Definition suews_ctrl_const.f95:436
allocatearray::c_surf_rhocp3_bldgs
integer, dimension(5) c_surf_rhocp3_bldgs
Definition suews_ctrl_const.f95:959
allocatearray::c_wetthresh
integer, dimension(nsurf) c_wetthresh
Definition suews_ctrl_const.f95:630
allocatearray::nlayer_max
integer, parameter nlayer_max
Definition suews_ctrl_const.f95:38
allocatearray::dqndt
real(kind(1d0)) dqndt
Definition suews_ctrl_const.f95:429
allocatearray::dataoutbeers
real(kind(1d0)), dimension(:, :, :), allocatable dataoutbeers
Definition suews_ctrl_const.f95:160
allocatearray::snowpacklimit
real(kind(1d0)), dimension(nsurf) snowpacklimit
Definition suews_ctrl_const.f95:436
allocatearray::headerwgwaterdist_reqd
character(len=20), dimension(ncolumnswgwaterdist) headerwgwaterdist_reqd
Definition suews_ctrl_const.f95:117
allocatearray::veg_scale
real(kind(1d0)), dimension(:), allocatable veg_scale
Definition suews_ctrl_const.f95:580
allocatearray::c_internal_thick2_bldgs
integer, dimension(5) c_internal_thick2_bldgs
Definition suews_ctrl_const.f95:984
allocatearray::gdd_id_grids
real(kind(1d0)), dimension(nvegsurf, maxnumberofgrids) gdd_id_grids
Definition suews_ctrl_const.f95:310
allocatearray::maxlinesmet
integer, parameter maxlinesmet
Definition suews_ctrl_const.f95:28
allocatearray::c_internal_k1_bldgs
integer, dimension(5) c_internal_k1_bldgs
Definition suews_ctrl_const.f95:982
allocatearray::ncolumnssnow
integer, parameter ncolumnssnow
Definition suews_ctrl_const.f95:66
allocatearray::c_a2_wwet
integer, dimension(nsurfincsnow) c_a2_wwet
Definition suews_ctrl_const.f95:747
allocatearray::hdd_id
real(kind(1d0)), dimension(12) hdd_id
Definition suews_ctrl_const.f95:281
allocatearray::qn_av_grids
real(kind(1d0)), dimension(:), allocatable qn_av_grids
Definition suews_ctrl_const.f95:427
allocatearray::wetthresh_wall_grids
real(kind(1d0)), dimension(:, :), allocatable wetthresh_wall_grids
Definition suews_ctrl_const.f95:551
allocatearray::c_leafop2
integer, dimension(nvegsurf) c_leafop2
Definition suews_ctrl_const.f95:663
allocatearray::tin_roof
real(kind(1d0)), dimension(:), allocatable tin_roof
Definition suews_ctrl_const.f95:500
allocatearray::nsurfincsnow
integer, parameter nsurfincsnow
Definition suews_ctrl_const.f95:33
allocatearray::soilstore_wall
real(kind(1d0)), dimension(:), allocatable soilstore_wall
Definition suews_ctrl_const.f95:537
allocatearray::c_internal_thick5_bldgs
integer, dimension(5) c_internal_thick5_bldgs
Definition suews_ctrl_const.f95:993
allocatearray::freezstate
real(kind(1d0)), dimension(nsurf) freezstate
Definition suews_ctrl_const.f95:436
allocatearray::c_hrprofenusewd
integer, dimension(24) c_hrprofenusewd
Definition suews_ctrl_const.f95:828
allocatearray::c_dreq
integer, dimension(nsurf) c_dreq
Definition suews_ctrl_const.f95:632
allocatearray::sw_dn_direct_frac
real(kind(1d0)) sw_dn_direct_frac
Definition suews_ctrl_const.f95:605
allocatearray::snowinit
real(kind(1d0)), dimension(nsurf) snowinit
Definition suews_ctrl_const.f95:436
allocatearray::c_albmax
integer, dimension(nsurf) c_albmax
Definition suews_ctrl_const.f95:626
allocatearray::decidsurf
integer, parameter decidsurf
Definition suews_ctrl_const.f95:46
allocatearray::c_wall_rhocp2_bldgs
integer, dimension(5) c_wall_rhocp2_bldgs
Definition suews_ctrl_const.f95:971
allocatearray::qm_rain
real(kind(1d0)), dimension(nsurf) qm_rain
Definition suews_ctrl_const.f95:436
allocatearray::ncolumnsdataoutdebug
integer, parameter ncolumnsdataoutdebug
Definition suews_ctrl_const.f95:80
allocatearray::albgrass_id
real(kind(1d0)) albgrass_id
Definition suews_ctrl_const.f95:335
allocatearray::c_surf_k2_paved
integer, dimension(3) c_surf_k2_paved
Definition suews_ctrl_const.f95:937
allocatearray::ccendi
integer, parameter ccendi
Definition suews_ctrl_const.f95:647
allocatearray::veg_fsd
real(kind(1d0)), dimension(:), allocatable veg_fsd
Definition suews_ctrl_const.f95:582
allocatearray::icefrac
real(kind(1d0)), dimension(nsurf) icefrac
Definition suews_ctrl_const.f95:436
allocatearray::c_wall_thick2_bldgs
integer, dimension(5) c_wall_thick2_bldgs
Definition suews_ctrl_const.f95:969
allocatearray::mahanohm
real(kind(1d0)), dimension(maxnumberofgrids) mahanohm
Definition suews_ctrl_const.f95:482
allocatearray::c_drcoef1
integer, dimension(nsurf) c_drcoef1
Definition suews_ctrl_const.f95:633
allocatearray::cts_twall_s
integer, parameter cts_twall_s
Definition suews_ctrl_const.f95:1043
allocatearray::albmin_evetr
real(kind(1d0)) albmin_evetr
Definition suews_ctrl_const.f95:292
allocatearray::tsfc_wall
real(kind(1d0)), dimension(:), allocatable tsfc_wall
Definition suews_ctrl_const.f95:527
allocatearray::c_basete
integer, dimension(nvegsurf) c_basete
Definition suews_ctrl_const.f95:651
allocatearray::alpha_bioco2
real(kind(1d0)), dimension(nvegsurf) alpha_bioco2
Definition suews_ctrl_const.f95:369
allocatearray::cts_troof
integer, parameter cts_troof
Definition suews_ctrl_const.f95:1038
allocatearray::snowfrac
real(kind(1d0)), dimension(nsurf) snowfrac
Definition suews_ctrl_const.f95:436
allocatearray::c_wall_thick3_bldgs
integer, dimension(5) c_wall_thick3_bldgs
Definition suews_ctrl_const.f95:972
allocatearray::veg_contact_fraction_const
real(kind(1d0)) veg_contact_fraction_const
Definition suews_ctrl_const.f95:605
colnamesinputfiles::cpr_hours
integer, dimension(24) cpr_hours
Definition suews_ctrl_const.f95:2180
colnamesinputfiles::c_code_estmclass_bldgs
integer, dimension(5) c_code_estmclass_bldgs
Definition suews_ctrl_const.f95:1901
colnamesinputfiles::c_code_estmclass_paved
integer, dimension(3) c_code_estmclass_paved
Definition suews_ctrl_const.f95:1899
colnamesinputfiles::c_fr_estmclass_bldgs
integer, dimension(5) c_fr_estmclass_bldgs
Definition suews_ctrl_const.f95:1900
colnamesinputfiles::c_fr_estmclass_paved
integer, dimension(3) c_fr_estmclass_paved
Definition suews_ctrl_const.f95:1898
data_in
Definition suews_ctrl_const.f95:1095
data_in::emis_snow
real(kind(1d0)) emis_snow
Definition suews_ctrl_const.f95:1192
data_in::lfnoutc
integer lfnoutc
Definition suews_ctrl_const.f95:1181
data_in::fileout
character(len=150) fileout
Definition suews_ctrl_const.f95:1106
data_in::filedscdestm
character(len=150) filedscdestm
Definition suews_ctrl_const.f95:1106
data_in::qf_sahp_ac
real(kind(1d0)) qf_sahp_ac
Definition suews_ctrl_const.f95:1192
data_in::enprofwe
real(kind(1d0)) enprofwe
Definition suews_ctrl_const.f95:1192
data_in::drainrt
real(kind(1d0)) drainrt
Definition suews_ctrl_const.f95:1304
data_in::buildenergyuse
real(kind(1d0)) buildenergyuse
Definition suews_ctrl_const.f95:1192
data_in::netradiationmethod
integer netradiationmethod
Definition suews_ctrl_const.f95:1125
data_in::qn1_snowfree
real(kind(1d0)) qn1_snowfree
Definition suews_ctrl_const.f95:1192
data_in::cbluse
integer cbluse
Definition suews_ctrl_const.f95:1125
data_in::evapmethod
integer evapmethod
Definition suews_ctrl_const.f95:1166
data_in::qf_sahp_base
real(kind(1d0)) qf_sahp_base
Definition suews_ctrl_const.f95:1192
data_in::usevegdem
integer usevegdem
Definition suews_ctrl_const.f95:1318
data_in::resolutionfilesin
integer resolutionfilesin
Definition suews_ctrl_const.f95:1125
data_in::fc_build
real(kind(1d0)) fc_build
Definition suews_ctrl_const.f95:1192
data_in::absl
real(kind(1d0)) absl
Definition suews_ctrl_const.f95:1312
data_in::qn1_bup
real(kind(1d0)) qn1_bup
Definition suews_ctrl_const.f95:1192
data_in::lup
real(kind(1d0)) lup
Definition suews_ctrl_const.f95:1192
data_in::fc_traff
real(kind(1d0)) fc_traff
Definition suews_ctrl_const.f95:1192
data_in::col
integer col
Definition suews_ctrl_const.f95:1318
data_in::timezone
real(kind(1d0)) timezone
Definition suews_ctrl_const.f95:1188
data_in::rainres
real(kind(1d0)) rainres
Definition suews_ctrl_const.f95:1304
data_in::buildingsname
character(len=150) buildingsname
Definition suews_ctrl_const.f95:1334
data_in::q2_gkg
real(kind(1d0)) q2_gkg
Definition suews_ctrl_const.f95:1192
data_in::filecode
character(len=20) filecode
Definition suews_ctrl_const.f95:1102
data_in::minqfmetab
real(kind(1d0)) minqfmetab
Definition suews_ctrl_const.f95:1192
data_in::resolutionfilesinestm
integer resolutionfilesinestm
Definition suews_ctrl_const.f95:1125
data_in::trafficunits
real(kind(1d0)) trafficunits
Definition suews_ctrl_const.f95:1192
data_in::heightgravity
real(kind(1d0)) heightgravity
Definition suews_ctrl_const.f95:1312
data_in::multiplemetfiles
integer multiplemetfiles
Definition suews_ctrl_const.f95:1125
data_in::rainmaxres
real(kind(1d0)) rainmaxres
Definition suews_ctrl_const.f95:1304
data_in::alpha_qhqe
real(kind(1d0)) alpha_qhqe
Definition suews_ctrl_const.f95:1192
data_in::frfossilfuel_heat
real(kind(1d0)) frfossilfuel_heat
Definition suews_ctrl_const.f95:1192
data_in::diagqs
integer diagqs
Definition suews_ctrl_const.f95:1125
data_in::transmax
real(kind(1d0)) transmax
Definition suews_ctrl_const.f95:1312
data_in::ldown2d_out
integer ldown2d_out
Definition suews_ctrl_const.f95:1318
data_in::qsanohm
real(kind(1d0)) qsanohm
Definition suews_ctrl_const.f95:1192
data_in::co2pointsource
real(kind(1d0)) co2pointsource
Definition suews_ctrl_const.f95:1192
data_in::qsestm
real(kind(1d0)) qsestm
Definition suews_ctrl_const.f95:1192
data_in::fileoutputpath
character(len=150) fileoutputpath
Definition suews_ctrl_const.f95:1103
data_in::avu10_ms
real(kind(1d0)) avu10_ms
Definition suews_ctrl_const.f95:1192
data_in::ohmincqf
integer ohmincqf
Definition suews_ctrl_const.f95:1125
data_in::fcld_obs
real(kind(1d0)) fcld_obs
Definition suews_ctrl_const.f95:1192
data_in::diagqn
integer diagqn
Definition suews_ctrl_const.f95:1125
data_in::smdmethod
integer smdmethod
Definition suews_ctrl_const.f95:1125
data_in::qf_sahp_heat
real(kind(1d0)) qf_sahp_heat
Definition suews_ctrl_const.f95:1192
data_in::multrainamongnupperi
real(kind(1d0)), dimension(5) multrainamongnupperi
Definition suews_ctrl_const.f95:1163
data_in::ldown
real(kind(1d0)) ldown
Definition suews_ctrl_const.f95:1192
data_in::fcef_v_kgkm
real(kind(1d0)), dimension(2) fcef_v_kgkm
Definition suews_ctrl_const.f95:1285
data_in::lfnold
integer lfnold
Definition suews_ctrl_const.f95:1181
data_in::tsurf
real(kind(1d0)) tsurf
Definition suews_ctrl_const.f95:1192
data_in::fc_biogen
real(kind(1d0)) fc_biogen
Definition suews_ctrl_const.f95:1192
data_in::laicalcyes
integer laicalcyes
Definition suews_ctrl_const.f95:1166
data_in::absk
real(kind(1d0)) absk
Definition suews_ctrl_const.f95:1312
data_in::qf0_beu
real(kind(1d0)), dimension(2) qf0_beu
Definition suews_ctrl_const.f95:1285
data_in::diagnosedisagg
integer diagnosedisagg
Definition suews_ctrl_const.f95:1125
data_in::cdsmname
character(len=150) cdsmname
Definition suews_ctrl_const.f95:1334
data_in::multrainamongn
integer, dimension(5) multrainamongn
Definition suews_ctrl_const.f95:1162
data_in::transmin
real(kind(1d0)) transmin
Definition suews_ctrl_const.f95:1312
data_in::fileestmts
character(len=150) fileestmts
Definition suews_ctrl_const.f95:1106
data_in::snowuse
integer snowuse
Definition suews_ctrl_const.f95:1125
data_in::lng
real(kind(1d0)) lng
Definition suews_ctrl_const.f95:1192
data_in::qf_a
real(kind(1d0)), dimension(2) qf_a
Definition suews_ctrl_const.f95:1285
data_in::qe
real(kind(1d0)) qe
Definition suews_ctrl_const.f95:1192
data_in::trans_site
real(kind(1d0)) trans_site
Definition suews_ctrl_const.f95:1192
data_in::ef_umolco2perj
real(kind(1d0)) ef_umolco2perj
Definition suews_ctrl_const.f95:1192
data_in::inputmetformat
integer inputmetformat
Definition suews_ctrl_const.f95:1166
data_in::maxqfmetab
real(kind(1d0)) maxqfmetab
Definition suews_ctrl_const.f95:1192
data_in::filedaily
character(len=150) filedaily
Definition suews_ctrl_const.f95:1106
data_in::progname
character(len=90) progname
Definition suews_ctrl_const.f95:1099
data_in::lai_obs
real(kind(1d0)) lai_obs
Definition suews_ctrl_const.f95:1192
data_in::precip_hr
real(kind(1d0)) precip_hr
Definition suews_ctrl_const.f95:1192
data_in::fc_photo
real(kind(1d0)) fc_photo
Definition suews_ctrl_const.f95:1192
data_in::traffprofwd
real(kind(1d0)) traffprofwd
Definition suews_ctrl_const.f95:1192
data_in::ldown_obs
real(kind(1d0)) ldown_obs
Definition suews_ctrl_const.f95:1192
data_in::filestateinit
character(len=150) filestateinit
Definition suews_ctrl_const.f95:1106
data_in::qf_obs
real(kind(1d0)) qf_obs
Definition suews_ctrl_const.f95:1192
data_in::keeptstepfilesin
integer keeptstepfilesin
Definition suews_ctrl_const.f95:1125
data_in::disaggmethodestm
integer disaggmethodestm
Definition suews_ctrl_const.f95:1125
data_in::enprofwd
real(kind(1d0)) enprofwd
Definition suews_ctrl_const.f95:1192
data_in::ah_slope_heating
real(kind(1d0)), dimension(2) ah_slope_heating
Definition suews_ctrl_const.f95:1285
data_in::enddls
integer enddls
Definition suews_ctrl_const.f95:1299
data_in::fc_point
real(kind(1d0)) fc_point
Definition suews_ctrl_const.f95:1192
data_in::gvf_out
integer gvf_out
Definition suews_ctrl_const.f95:1318
data_in::resolutionfilesout
integer resolutionfilesout
Definition suews_ctrl_const.f95:1125
data_in::fc_respi
real(kind(1d0)) fc_respi
Definition suews_ctrl_const.f95:1192
data_in::suppresswarnings
integer suppresswarnings
Definition suews_ctrl_const.f95:1125
data_in::qf_build
real(kind(1d0)) qf_build
Definition suews_ctrl_const.f95:1192
data_in::fileout_tt
character(len=150) fileout_tt
Definition suews_ctrl_const.f95:1106
data_in::filechoices
character(len=150) filechoices
Definition suews_ctrl_const.f95:1106
data_in::snowfrac_obs
real(kind(1d0)) snowfrac_obs
Definition suews_ctrl_const.f95:1192
data_in::baset_hc
real(kind(1d0)) baset_hc
Definition suews_ctrl_const.f95:1192
data_in::co2mwe
real(kind(1d0)) co2mwe
Definition suews_ctrl_const.f95:1192
data_in::lup2d_out
integer lup2d_out
Definition suews_ctrl_const.f95:1318
data_in::emissionsmethod
integer emissionsmethod
Definition suews_ctrl_const.f95:1125
data_in::kdir
real(kind(1d0)) kdir
Definition suews_ctrl_const.f95:1192
data_in::ldown_option
integer ldown_option
Definition suews_ctrl_const.f95:1178
data_in::qf_metab
real(kind(1d0)) qf_metab
Definition suews_ctrl_const.f95:1192
data_in::precip
real(kind(1d0)) precip
Definition suews_ctrl_const.f95:1192
data_in::ah_min
real(kind(1d0)), dimension(2) ah_min
Definition suews_ctrl_const.f95:1285
data_in::year
real(kind(1d0)) year
Definition suews_ctrl_const.f95:1192
data_in::baset_heating
real(kind(1d0)), dimension(2) baset_heating
Definition suews_ctrl_const.f95:1285
data_in::snow
real(kind(1d0)) snow
Definition suews_ctrl_const.f95:1192
data_in::qn1_s
real(kind(1d0)) qn1_s
Definition suews_ctrl_const.f95:1192
data_in::multiplelayoutfiles
integer multiplelayoutfiles
Definition suews_ctrl_const.f95:1125
data_in::lat
real(kind(1d0)) lat
Definition suews_ctrl_const.f95:1192
data_in::popprofwe
real(kind(1d0)) popprofwe
Definition suews_ctrl_const.f95:1192
data_in::wu_m3
real(kind(1d0)) wu_m3
Definition suews_ctrl_const.f95:1192
data_in::diagmethod
integer diagmethod
Definition suews_ctrl_const.f95:1125
data_in::qf_sahp
real(kind(1d0)) qf_sahp
Definition suews_ctrl_const.f95:1192
data_in::writeoutoption
integer writeoutoption
Definition suews_ctrl_const.f95:1125
data_in::e_mod
real(kind(1d0)) e_mod
Definition suews_ctrl_const.f95:1192
data_in::co2mwd
real(kind(1d0)) co2mwd
Definition suews_ctrl_const.f95:1192
data_in::albedochoice
integer albedochoice
Definition suews_ctrl_const.f95:1166
data_in::skipheadersiteinfo
integer skipheadersiteinfo
Definition suews_ctrl_const.f95:1121
data_in::tempveg
real(kind(1d0)) tempveg
Definition suews_ctrl_const.f95:1304
data_in::startdls
integer startdls
Definition suews_ctrl_const.f95:1298
data_in::ah_slope_cooling
real(kind(1d0)), dimension(2) ah_slope_cooling
Definition suews_ctrl_const.f95:1285
data_in::svfsuffix
character(len=150) svfsuffix
Definition suews_ctrl_const.f95:1334
data_in::press_hpa
real(kind(1d0)) press_hpa
Definition suews_ctrl_const.f95:1192
data_in::onlyglobal
integer onlyglobal
Definition suews_ctrl_const.f95:1318
data_in::outinterval
integer outinterval
Definition suews_ctrl_const.f95:1318
data_in::diagnose
integer diagnose
Definition suews_ctrl_const.f95:1125
data_in::fc_anthro
real(kind(1d0)) fc_anthro
Definition suews_ctrl_const.f95:1192
data_in::h_mod
real(kind(1d0)) h_mod
Definition suews_ctrl_const.f95:1192
data_in::solweigpoiout
character(len=150) solweigpoiout
Definition suews_ctrl_const.f95:1106
data_in::basetmethod
integer basetmethod
Definition suews_ctrl_const.f95:1125
data_in::qf_c
real(kind(1d0)), dimension(2) qf_c
Definition suews_ctrl_const.f95:1285
data_in::qn1_obs
real(kind(1d0)) qn1_obs
Definition suews_ctrl_const.f95:1192
data_in::filemet
character(len=150) filemet
Definition suews_ctrl_const.f95:1106
data_in::qs_obs
real(kind(1d0)) qs_obs
Definition suews_ctrl_const.f95:1192
data_in::qh_obs
real(kind(1d0)) qh_obs
Definition suews_ctrl_const.f95:1192
data_in::multipleinitfiles
integer multipleinitfiles
Definition suews_ctrl_const.f95:1125
data_in::tmrt_out
integer tmrt_out
Definition suews_ctrl_const.f95:1318
data_in::waterusemethod
integer waterusemethod
Definition suews_ctrl_const.f95:1125
data_in::fc
real(kind(1d0)) fc
Definition suews_ctrl_const.f95:1192
data_in::avrh
real(kind(1d0)) avrh
Definition suews_ctrl_const.f95:1192
data_in::maxfcmetab
real(kind(1d0)) maxfcmetab
Definition suews_ctrl_const.f95:1192
data_in::qn1
real(kind(1d0)) qn1
Definition suews_ctrl_const.f95:1192
data_in::keeptstepfilesout
integer keeptstepfilesout
Definition suews_ctrl_const.f95:1125
data_in::storageheatmethod
integer storageheatmethod
Definition suews_ctrl_const.f95:1125
data_in::trafficrate
real(kind(1d0)), dimension(2) trafficrate
Definition suews_ctrl_const.f95:1285
data_in::svfpath
character(len=150) svfpath
Definition suews_ctrl_const.f95:1334
data_in::qf_traff
real(kind(1d0)) qf_traff
Definition suews_ctrl_const.f95:1192
data_in::enef_v_jkm
real(kind(1d0)) enef_v_jkm
Definition suews_ctrl_const.f95:1192
data_in::fileinputpath
character(len=150) fileinputpath
Definition suews_ctrl_const.f95:1103
data_in::qh
real(kind(1d0)) qh
Definition suews_ctrl_const.f95:1192
data_in::fcld
real(kind(1d0)) fcld
Definition suews_ctrl_const.f95:1192
data_in::avts
real(kind(1d0)) avts
Definition suews_ctrl_const.f95:1192
data_in::qf_b
real(kind(1d0)), dimension(2) qf_b
Definition suews_ctrl_const.f95:1285
data_in::rainamongn
integer rainamongn
Definition suews_ctrl_const.f95:1125
data_in::kdown2d_out
integer kdown2d_out
Definition suews_ctrl_const.f95:1318
data_in::kup2d_out
integer kup2d_out
Definition suews_ctrl_const.f95:1318
data_in::filedscdmet
character(len=150) filedscdmet
Definition suews_ctrl_const.f95:1106
data_in::disaggmethod
integer disaggmethod
Definition suews_ctrl_const.f95:1125
data_in::posture
integer posture
Definition suews_ctrl_const.f95:1318
data_in::tdsmname
character(len=150) tdsmname
Definition suews_ctrl_const.f95:1334
data_in::kclear
real(kind(1d0)) kclear
Definition suews_ctrl_const.f95:1192
data_in::lfnout
integer lfnout
Definition suews_ctrl_const.f95:1181
data_in::solweig_ldown
integer solweig_ldown
Definition suews_ctrl_const.f95:1318
data_in::multipleestmfiles
integer multipleestmfiles
Definition suews_ctrl_const.f95:1125
data_in::frpddwe
real(kind(1d0)) frpddwe
Definition suews_ctrl_const.f95:1192
data_in::pres_kpa
real(kind(1d0)) pres_kpa
Definition suews_ctrl_const.f95:1192
data_in::kdownzen
integer kdownzen
Definition suews_ctrl_const.f95:1125
data_in::kup
real(kind(1d0)) kup
Definition suews_ctrl_const.f95:1192
data_in::ncblstep
integer ncblstep
Definition suews_ctrl_const.f95:1301
data_in::dsmpath
character(len=150) dsmpath
Definition suews_ctrl_const.f95:1334
data_in::traffprofwe
real(kind(1d0)) traffprofwe
Definition suews_ctrl_const.f95:1192
data_in::raincover
real(kind(1d0)) raincover
Definition suews_ctrl_const.f95:1304
data_in::solweigpoi_out
integer solweigpoi_out
Definition suews_ctrl_const.f95:1318
data_in::row
integer row
Definition suews_ctrl_const.f95:1318
data_in::writedailystate
integer writedailystate
Definition suews_ctrl_const.f95:1166
data_in::roughlenmommethod
integer roughlenmommethod
Definition suews_ctrl_const.f95:1125
data_in::zenith_deg
real(kind(1d0)) zenith_deg
Definition suews_ctrl_const.f95:1192
data_in::runforgrid
integer runforgrid
Definition suews_ctrl_const.f95:1318
data_in::kdiff
real(kind(1d0)) kdiff
Definition suews_ctrl_const.f95:1192
data_in::estmout_tt
character(len=150) estmout_tt
Definition suews_ctrl_const.f95:1106
data_in::raindisaggmethod
integer raindisaggmethod
Definition suews_ctrl_const.f95:1125
data_in::diagnosedisaggestm
integer diagnosedisaggestm
Definition suews_ctrl_const.f95:1125
data_in::fileorigestm
character(len=150) fileorigestm
Definition suews_ctrl_const.f95:1106
data_in::avu1
real(kind(1d0)) avu1
Definition suews_ctrl_const.f95:1192
data_in::popprofwd
real(kind(1d0)) popprofwd
Definition suews_ctrl_const.f95:1192
data_in::temp_c
real(kind(1d0)) temp_c
Definition suews_ctrl_const.f95:1192
data_in::wdir
real(kind(1d0)) wdir
Definition suews_ctrl_const.f95:1192
data_in::skipheadermet
integer skipheadermet
Definition suews_ctrl_const.f95:1122
data_in::popdensdaytime
real(kind(1d0)), dimension(2) popdensdaytime
Definition suews_ctrl_const.f95:1285
data_in::xsmd
real(kind(1d0)) xsmd
Definition suews_ctrl_const.f95:1192
data_in::minfcmetab
real(kind(1d0)) minfcmetab
Definition suews_ctrl_const.f95:1192
data_in::baset_cooling
real(kind(1d0)), dimension(2) baset_cooling
Definition suews_ctrl_const.f95:1285
data_in::dsmname
character(len=150) dsmname
Definition suews_ctrl_const.f95:1334
data_in::alt
real(kind(1d0)) alt
Definition suews_ctrl_const.f95:1192
data_in::fc_metab
real(kind(1d0)) fc_metab
Definition suews_ctrl_const.f95:1192
data_in::azimuth
real(kind(1d0)) azimuth
Definition suews_ctrl_const.f95:1192
data_in::avkdn
real(kind(1d0)) avkdn
Definition suews_ctrl_const.f95:1192
data_in::rainbucket
real(kind(1d0)) rainbucket
Definition suews_ctrl_const.f95:1304
data_in::t2_c
real(kind(1d0)) t2_c
Definition suews_ctrl_const.f95:1192
data_in::popdensnighttime
real(kind(1d0)) popdensnighttime
Definition suews_ctrl_const.f95:1192
data_in::fileorigmet
character(len=150) fileorigmet
Definition suews_ctrl_const.f95:1106
data_in::qh_r
real(kind(1d0)) qh_r
Definition suews_ctrl_const.f95:1192
data_in::qe_obs
real(kind(1d0)) qe_obs
Definition suews_ctrl_const.f95:1192
data_in::outputformats
integer outputformats
Definition suews_ctrl_const.f95:1185
data_in::blout
character(len=150) blout
Definition suews_ctrl_const.f95:1106
data_in::frfossilfuel_nonheat
real(kind(1d0)) frfossilfuel_nonheat
Definition suews_ctrl_const.f95:1192
defaultnotused::nan
real(kind(1d0)) nan
Definition suews_ctrl_const.f95:1394
defaultnotused::pnan
real(kind(1d0)) pnan
Definition suews_ctrl_const.f95:1394
defaultnotused::notused
real(kind(1d0)) notused
Definition suews_ctrl_const.f95:1394
defaultnotused::reall
real(kind(1d0)) reall
Definition suews_ctrl_const.f95:1394
filename::smithfile
character(len=90) smithfile
Definition suews_ctrl_const.f95:1694
gas::comp
real(kind(1d0)) comp
Definition suews_ctrl_const.f95:1436
gas::molar_wat_vap
real(kind(1d0)) molar_wat_vap
Definition suews_ctrl_const.f95:1442
gas::gas_ct_dry
real(kind(1d0)) gas_ct_dry
Definition suews_ctrl_const.f95:1443
gas::epsil_gkg
real(kind(1d0)) epsil_gkg
Definition suews_ctrl_const.f95:1438
gas::epsil
real(kind(1d0)) epsil
Definition suews_ctrl_const.f95:1437
gas::gas_ct_wat
real(kind(1d0)) gas_ct_wat
Definition suews_ctrl_const.f95:1440
gas::dry_gas
real(kind(1d0)) dry_gas
Definition suews_ctrl_const.f95:1439
gas::gas_ct_wv
real(kind(1d0)) gas_ct_wv
Definition suews_ctrl_const.f95:1444
gas::molar
real(kind(1d0)) molar
Definition suews_ctrl_const.f95:1441
gis_data
Definition suews_ctrl_const.f95:1495
gis_data::vegfraction
real(kind(1d0)) vegfraction
Definition suews_ctrl_const.f95:1498
gis_data::veg_fr
real(kind(1d0)) veg_fr
Definition suews_ctrl_const.f95:1498
gis_data::pavedfractionirrigated
real(kind(1d0)) pavedfractionirrigated
Definition suews_ctrl_const.f95:1498
gis_data::faibldg
real(kind(1d0)) faibldg
Definition suews_ctrl_const.f95:1498
gis_data::bldgh
real(kind(1d0)) bldgh
Definition suews_ctrl_const.f95:1498
gis_data::evetreeh
real(kind(1d0)) evetreeh
Definition suews_ctrl_const.f95:1498
gis_data::nonwaterfraction
real(kind(1d0)) nonwaterfraction
Definition suews_ctrl_const.f95:1498
gis_data::dectreeh
real(kind(1d0)) dectreeh
Definition suews_ctrl_const.f95:1498
gis_data::areazh
real(kind(1d0)) areazh
Definition suews_ctrl_const.f95:1498
gis_data::treeh
real(kind(1d0)) treeh
Definition suews_ctrl_const.f95:1498
gis_data::faievetree
real(kind(1d0)) faievetree
Definition suews_ctrl_const.f95:1498
gis_data::veg_type
integer veg_type
Definition suews_ctrl_const.f95:1519
gis_data::areaunir
real(kind(1d0)) areaunir
Definition suews_ctrl_const.f95:1498
gis_data::pervfraction
real(kind(1d0)) pervfraction
Definition suews_ctrl_const.f95:1498
gis_data::idgis
integer idgis
Definition suews_ctrl_const.f95:1519
gis_data::treefractionirrigated
real(kind(1d0)) treefractionirrigated
Definition suews_ctrl_const.f95:1498
gis_data::faidectree
real(kind(1d0)) faidectree
Definition suews_ctrl_const.f95:1498
gis_data::areair
real(kind(1d0)) areair
Definition suews_ctrl_const.f95:1498
gis_data::faitree
real(kind(1d0)) faitree
Definition suews_ctrl_const.f95:1498
gis_data::itgis
integer itgis
Definition suews_ctrl_const.f95:1519
gis_data::impervfraction
real(kind(1d0)) impervfraction
Definition suews_ctrl_const.f95:1498
gis_data::grassfractionirrigated
real(kind(1d0)) grassfractionirrigated
Definition suews_ctrl_const.f95:1498
initial::nlinesirrigation
integer nlinesirrigation
Definition suews_ctrl_const.f95:1054
initial::skippedlinesorig
integer skippedlinesorig
Definition suews_ctrl_const.f95:1054
initial::readlinesmetdata
integer readlinesmetdata
Definition suews_ctrl_const.f95:1054
initial::nlinesohmcoefficients
integer nlinesohmcoefficients
Definition suews_ctrl_const.f95:1054
initial::gridcounter
integer gridcounter
Definition suews_ctrl_const.f95:1054
initial::nlinessiteselect
integer nlinessiteselect
Definition suews_ctrl_const.f95:1054
initial::nlinesprofiles
integer nlinesprofiles
Definition suews_ctrl_const.f95:1054
initial::readblocksmetdata
integer readblocksmetdata
Definition suews_ctrl_const.f95:1054
initial::nlinesestmdata
integer nlinesestmdata
Definition suews_ctrl_const.f95:1054
initial::nlinesorigmetdata
integer nlinesorigmetdata
Definition suews_ctrl_const.f95:1054
initial::numberofgrids
integer numberofgrids
Definition suews_ctrl_const.f95:1054
initial::nlinesorigestmdata
integer nlinesorigestmdata
Definition suews_ctrl_const.f95:1054
initial::nlineswgwaterdist
integer nlineswgwaterdist
Definition suews_ctrl_const.f95:1054
initial::nlineswater
integer nlineswater
Definition suews_ctrl_const.f95:1054
initial::nlinesestmcoefficients
integer nlinesestmcoefficients
Definition suews_ctrl_const.f95:1054
initial::nlinesconductance
integer nlinesconductance
Definition suews_ctrl_const.f95:1054
initial::skippedlines
integer skippedlines
Definition suews_ctrl_const.f95:1054
initial::readlinesorigestmdatamax
integer readlinesorigestmdatamax
Definition suews_ctrl_const.f95:1054
initial::nlinesbiogen
integer nlinesbiogen
Definition suews_ctrl_const.f95:1054
initial::readlinesorigmetdata
integer readlinesorigmetdata
Definition suews_ctrl_const.f95:1054
initial::readlinesorigmetdatamax
integer readlinesorigmetdatamax
Definition suews_ctrl_const.f95:1054
initial::nlinesanthropogenic
integer nlinesanthropogenic
Definition suews_ctrl_const.f95:1054
initial::readlinesorigestmdata
integer readlinesorigestmdata
Definition suews_ctrl_const.f95:1054
initial::nlinesmetdata
integer nlinesmetdata
Definition suews_ctrl_const.f95:1054
initial::skippedlinesorigestm
integer skippedlinesorigestm
Definition suews_ctrl_const.f95:1054
initial::nlinesnonveg
integer nlinesnonveg
Definition suews_ctrl_const.f95:1054
initial::readblocksorigmetdata
integer readblocksorigmetdata
Definition suews_ctrl_const.f95:1054
initialcond::porosity0
real(kind(1d0)) porosity0
Definition suews_ctrl_const.f95:1699
initialcond::snowwaterbldgsstate
real(kind(1d0)) snowwaterbldgsstate
Definition suews_ctrl_const.f95:1699
initialcond::snowpackbsoil
real(kind(1d0)) snowpackbsoil
Definition suews_ctrl_const.f95:1699
initialcond::snowpackgrass
real(kind(1d0)) snowpackgrass
Definition suews_ctrl_const.f95:1699
initialcond::snowwatergrassstate
real(kind(1d0)) snowwatergrassstate
Definition suews_ctrl_const.f95:1699
initialcond::soilstoredectrstate
real(kind(1d0)) soilstoredectrstate
Definition suews_ctrl_const.f95:1699
initialcond::decidcap0
real(kind(1d0)) decidcap0
Definition suews_ctrl_const.f95:1699
initialcond::laiinitialgrass
real(kind(1d0)) laiinitialgrass
Definition suews_ctrl_const.f95:1699
initialcond::albdectr0
real(kind(1d0)) albdectr0
Definition suews_ctrl_const.f95:1699
initialcond::soilstorepavedstate
real(kind(1d0)) soilstorepavedstate
Definition suews_ctrl_const.f95:1699
initialcond::snowpackdectr
real(kind(1d0)) snowpackdectr
Definition suews_ctrl_const.f95:1699
initialcond::laiinitialevetr
real(kind(1d0)) laiinitialevetr
Definition suews_ctrl_const.f95:1699
initialcond::snowpackevetr
real(kind(1d0)) snowpackevetr
Definition suews_ctrl_const.f95:1699
initialcond::soilstorebldgsstate
real(kind(1d0)) soilstorebldgsstate
Definition suews_ctrl_const.f95:1699
initialcond::snowwaterbsoilstate
real(kind(1d0)) snowwaterbsoilstate
Definition suews_ctrl_const.f95:1699
initialcond::soilstoregrassstate
real(kind(1d0)) soilstoregrassstate
Definition suews_ctrl_const.f95:1699
initialcond::snowwaterdectrstate
real(kind(1d0)) snowwaterdectrstate
Definition suews_ctrl_const.f95:1699
initialcond::temp_c0
real(kind(1d0)) temp_c0
Definition suews_ctrl_const.f95:1699
initialcond::snowwaterpavedstate
real(kind(1d0)) snowwaterpavedstate
Definition suews_ctrl_const.f95:1699
initialcond::albevetr0
real(kind(1d0)) albevetr0
Definition suews_ctrl_const.f95:1699
initialcond::laiinitialdectr
real(kind(1d0)) laiinitialdectr
Definition suews_ctrl_const.f95:1699
initialcond::snowwaterwaterstate
real(kind(1d0)) snowwaterwaterstate
Definition suews_ctrl_const.f95:1699
initialcond::albgrass0
real(kind(1d0)) albgrass0
Definition suews_ctrl_const.f95:1699
initialcond::snowpackwater
real(kind(1d0)) snowpackwater
Definition suews_ctrl_const.f95:1699
initialcond::snowalb0
real(kind(1d0)) snowalb0
Definition suews_ctrl_const.f95:1699
initialcond::snowpackbldgs
real(kind(1d0)) snowpackbldgs
Definition suews_ctrl_const.f95:1699
initialcond::soilstoreevetrstate
real(kind(1d0)) soilstoreevetrstate
Definition suews_ctrl_const.f95:1699
initialcond::snowwaterevetrstate
real(kind(1d0)) snowwaterevetrstate
Definition suews_ctrl_const.f95:1699
initialcond::gdd_2_0
real(kind(1d0)) gdd_2_0
Definition suews_ctrl_const.f95:1699
initialcond::soilstorebsoilstate
real(kind(1d0)) soilstorebsoilstate
Definition suews_ctrl_const.f95:1699
initialcond::snowpackpaved
real(kind(1d0)) snowpackpaved
Definition suews_ctrl_const.f95:1699
initialcond::gdd_1_0
real(kind(1d0)) gdd_1_0
Definition suews_ctrl_const.f95:1699
mathconstants::dtr
real(kind(1d0)), parameter dtr
Definition suews_ctrl_const.f95:2224
mathconstants::pi
real(kind(1d0)), parameter pi
Definition suews_ctrl_const.f95:2223
mathconstants::rtd
real(kind(1d0)), parameter rtd
Definition suews_ctrl_const.f95:2224
mod_grav
Definition suews_ctrl_const.f95:1420
mod_grav::grav
real(kind(1d0)) grav
Definition suews_ctrl_const.f95:1421
mod_z
Definition suews_ctrl_const.f95:1448
mod_z::zdm
real(kind(1d0)) zdm
Definition suews_ctrl_const.f95:1449
mod_z::z0v
real(kind(1e10)) z0v
Definition suews_ctrl_const.f95:1455
mod_z::z
real(kind(1d0)) z
Definition suews_ctrl_const.f95:1449
mod_z::z0m
real(kind(1d0)) z0m
Definition suews_ctrl_const.f95:1449
mod_z::zdm_in
real(kind(1d0)) zdm_in
Definition suews_ctrl_const.f95:1449
mod_z::zzd
real(kind(1d0)) zzd
Definition suews_ctrl_const.f95:1449
mod_z::z0m_in
real(kind(1d0)) z0m_in
Definition suews_ctrl_const.f95:1449
moist::s_pa
real(kind(1d0)) s_pa
Definition suews_ctrl_const.f95:1475
moist::s_hpa
real(kind(1d0)) s_hpa
Definition suews_ctrl_const.f95:1475
moist::avcp
real(kind(1d0)) avcp
Definition suews_ctrl_const.f95:1475
moist::dens_dry
real(kind(1d0)) dens_dry
Definition suews_ctrl_const.f95:1475
moist::avdens
real(kind(1d0)) avdens
Definition suews_ctrl_const.f95:1475
moist::dq
real(kind(1d0)) dq
Definition suews_ctrl_const.f95:1475
moist::psycice_hpa
real(kind(1d0)) psycice_hpa
Definition suews_ctrl_const.f95:1475
moist::es_hpa
real(kind(1d0)) es_hpa
Definition suews_ctrl_const.f95:1475
moist::psyc_hpa
real(kind(1d0)) psyc_hpa
Definition suews_ctrl_const.f95:1475
moist::ea_hpa
real(kind(1d0)) ea_hpa
Definition suews_ctrl_const.f95:1475
moist::vpd_pa
real(kind(1d0)) vpd_pa
Definition suews_ctrl_const.f95:1475
moist::waterdens
real(kind(1d0)) waterdens
Definition suews_ctrl_const.f95:1475
moist::vpd_hpa
real(kind(1d0)) vpd_hpa
Definition suews_ctrl_const.f95:1475
moist::lv_j_kg
real(kind(1d0)) lv_j_kg
Definition suews_ctrl_const.f95:1475
moist::tlv
real(kind(1d0)) tlv
Definition suews_ctrl_const.f95:1475
moist::sice_hpa
real(kind(1d0)) sice_hpa
Definition suews_ctrl_const.f95:1475
physconstants::c2k
real(kind(1d0)), parameter c2k
Definition suews_ctrl_const.f95:2231
physconstants::jtoumolpar
real(kind(1d0)), parameter jtoumolpar
Definition suews_ctrl_const.f95:2233
physconstants::kdntopar
real(kind(1d0)), parameter kdntopar
Definition suews_ctrl_const.f95:2234
physconstants::sbconst
real(kind(1d0)), parameter sbconst
Definition suews_ctrl_const.f95:2232
resist::g1
real(kind(1d0)) g1
Definition suews_ctrl_const.f95:1461
resist::th
real(kind(1d0)) th
Definition suews_ctrl_const.f95:1461
resist::tl
real(kind(1d0)) tl
Definition suews_ctrl_const.f95:1461
resist::s2
real(kind(1d0)) s2
Definition suews_ctrl_const.f95:1461
resist::tc
real(kind(1d0)) tc
Definition suews_ctrl_const.f95:1461
resist::g3
real(kind(1d0)) g3
Definition suews_ctrl_const.f95:1461
resist::s1
real(kind(1d0)) s1
Definition suews_ctrl_const.f95:1461
resist::g4
real(kind(1d0)) g4
Definition suews_ctrl_const.f95:1461
resist::tc2
real(kind(1d0)) tc2
Definition suews_ctrl_const.f95:1461
resist::g6
real(kind(1d0)) g6
Definition suews_ctrl_const.f95:1461
resist::g2
real(kind(1d0)) g2
Definition suews_ctrl_const.f95:1461
resist::kmax
real(kind(1d0)) kmax
Definition suews_ctrl_const.f95:1461
resist::g5
real(kind(1d0)) g5
Definition suews_ctrl_const.f95:1461
snowmod::snowfallcum
real(kind(1d0)) snowfallcum
Definition suews_ctrl_const.f95:1351
snowmod::snowprof_24hr
real(kind(1d0)), dimension(0:23, 2) snowprof_24hr
Definition suews_ctrl_const.f95:1384
snowmod::lvs_j_kg
real(kind(1d0)) lvs_j_kg
Definition suews_ctrl_const.f95:1351
snowmod::fwh
real(kind(1d0)) fwh
Definition suews_ctrl_const.f95:1351
snowmod::qn1_snow
real(kind(1d0)) qn1_snow
Definition suews_ctrl_const.f95:1351
snowmod::snowlimpaved
real(kind(1d0)) snowlimpaved
Definition suews_ctrl_const.f95:1351
snowmod::snowalbmax
real(kind(1d0)) snowalbmax
Definition suews_ctrl_const.f95:1351
snowmod::adjmeltfact
real(kind(1d0)) adjmeltfact
Definition suews_ctrl_const.f95:1351
snowmod::zf
real(kind(1d0)) zf
Definition suews_ctrl_const.f95:1351
snowmod::radmeltfact
real(kind(1d0)) radmeltfact
Definition suews_ctrl_const.f95:1351
snowmod::crwmax
real(kind(1d0)) crwmax
Definition suews_ctrl_const.f95:1351
snowmod::qn1_nosnow
real(kind(1d0)) qn1_nosnow
Definition suews_ctrl_const.f95:1351
snowmod::qmrain
real(kind(1d0)) qmrain
Definition suews_ctrl_const.f95:1351
snowmod::tau_r
real(kind(1d0)) tau_r
Definition suews_ctrl_const.f95:1351
snowmod::qmfreez
real(kind(1d0)) qmfreez
Definition suews_ctrl_const.f95:1351
snowmod::tempmeltfact
real(kind(1d0)) tempmeltfact
Definition suews_ctrl_const.f95:1351
snowmod::waterholdcapfrac
real(kind(1d0)) waterholdcapfrac
Definition suews_ctrl_const.f95:1351
snowmod::volday
real(kind(1d0)) volday
Definition suews_ctrl_const.f95:1351
snowmod::qm
real(kind(1d0)) qm
Definition suews_ctrl_const.f95:1351
snowmod::mwh
real(kind(1d0)) mwh
Definition suews_ctrl_const.f95:1351
snowmod::snowremoval
real(kind(1d0)), dimension(2) snowremoval
Definition suews_ctrl_const.f95:1383
snowmod::snowdensmin
real(kind(1d0)) snowdensmin
Definition suews_ctrl_const.f95:1351
snowmod::snowlimbldg
real(kind(1d0)) snowlimbldg
Definition suews_ctrl_const.f95:1351
snowmod::snowalbmin
real(kind(1d0)) snowalbmin
Definition suews_ctrl_const.f95:1351
snowmod::mwstore
real(kind(1d0)) mwstore
Definition suews_ctrl_const.f95:1351
snowmod::preciplimitalb
real(kind(1d0)) preciplimitalb
Definition suews_ctrl_const.f95:1351
snowmod::snowdensmax
real(kind(1d0)) snowdensmax
Definition suews_ctrl_const.f95:1351
snowmod::snowalb
real(kind(1d0)) snowalb
Definition suews_ctrl_const.f95:1351
snowmod::tau_a
real(kind(1d0)) tau_a
Definition suews_ctrl_const.f95:1351
snowmod::swe
real(kind(1d0)) swe
Definition suews_ctrl_const.f95:1351
snowmod::tau_f
real(kind(1d0)) tau_f
Definition suews_ctrl_const.f95:1351
snowmod::preciplimit
real(kind(1d0)) preciplimit
Definition suews_ctrl_const.f95:1351
snowmod::crwmin
real(kind(1d0)) crwmin
Definition suews_ctrl_const.f95:1351
snowmod::snowfractionchoice
integer snowfractionchoice
Definition suews_ctrl_const.f95:1386
sues_data
Definition suews_ctrl_const.f95:1526
sues_data::soilmoistcap
real(kind(1d0)) soilmoistcap
Definition suews_ctrl_const.f95:1580
sues_data::h
real(kind(1d0)) h
Definition suews_ctrl_const.f95:1625
sues_data::qeforcbl
real(kind(1d0)), dimension(:), allocatable qeforcbl
Definition suews_ctrl_const.f95:1659
sues_data::runoffsoil_per_tstep
real(kind(1d0)) runoffsoil_per_tstep
Definition suews_ctrl_const.f95:1580
sues_data::surplusevap
real(kind(1d0)), dimension(2) surplusevap
Definition suews_ctrl_const.f95:1556
sues_data::gl
real(kind(1d0)) gl
Definition suews_ctrl_const.f95:1636
sues_data::irrfracgrass
real(kind(1d0)) irrfracgrass
Definition suews_ctrl_const.f95:1663
sues_data::irrfracbldgs
real(kind(1d0)) irrfracbldgs
Definition suews_ctrl_const.f95:1663
sues_data::wu_grass
real(kind(1d0)) wu_grass
Definition suews_ctrl_const.f95:1560
sues_data::dr_per_interval
real(kind(1d0)) dr_per_interval
Definition suews_ctrl_const.f95:1580
sues_data::faut
real(kind(1d0)) faut
Definition suews_ctrl_const.f95:1663
sues_data::stabilitymethod
integer stabilitymethod
Definition suews_ctrl_const.f95:1544
sues_data::ra
real(kind(1d0)) ra
Definition suews_ctrl_const.f95:1625
sues_data::aerodynamicresistancemethod
integer aerodynamicresistancemethod
Definition suews_ctrl_const.f95:1551
sues_data::zh
real(kind(1d0)) zh
Definition suews_ctrl_const.f95:1580
sues_data::vsmd
real(kind(1d0)) vsmd
Definition suews_ctrl_const.f95:1636
sues_data::surpluswaterbody
real(kind(1d0)) surpluswaterbody
Definition suews_ctrl_const.f95:1580
sues_data::nsd
integer nsd
Definition suews_ctrl_const.f95:1529
sues_data::wu_evetr
real(kind(1d0)) wu_evetr
Definition suews_ctrl_const.f95:1560
sues_data::qh_choice
integer qh_choice
Definition suews_ctrl_const.f95:1660
sues_data::sae
real(kind(1d0)) sae
Definition suews_ctrl_const.f95:1650
sues_data::runoffpipes_m3
real(kind(1d0)) runoffpipes_m3
Definition suews_ctrl_const.f95:1580
sues_data::gsc
real(kind(1d0)) gsc
Definition suews_ctrl_const.f95:1636
sues_data::resistsurf
real(kind(1d0)) resistsurf
Definition suews_ctrl_const.f95:1636
sues_data::overuse
real(kind(1d0)) overuse
Definition suews_ctrl_const.f95:1580
sues_data::ustar
real(kind(1d0)) ustar
Definition suews_ctrl_const.f95:1625
sues_data::ext_wu
real(kind(1d0)) ext_wu
Definition suews_ctrl_const.f95:1663
sues_data::addveg
real(kind(1d0)) addveg
Definition suews_ctrl_const.f95:1580
sues_data::runoffagimpervious
real(kind(1d0)) runoffagimpervious
Definition suews_ctrl_const.f95:1580
sues_data::st_per_interval
real(kind(1d0)) st_per_interval
Definition suews_ctrl_const.f95:1580
sues_data::runoffagimpervious_m3
real(kind(1d0)) runoffagimpervious_m3
Definition suews_ctrl_const.f95:1580
sues_data::addpipes
real(kind(1d0)) addpipes
Definition suews_ctrl_const.f95:1580
sues_data::is
integer is
Definition suews_ctrl_const.f95:1548
sues_data::ev_per_interval
real(kind(1d0)) ev_per_interval
Definition suews_ctrl_const.f95:1580
sues_data::runoffwaterbody_m3
real(kind(1d0)) runoffwaterbody_m3
Definition suews_ctrl_const.f95:1580
sues_data::runofftowater
real(kind(1d0)) runofftowater
Definition suews_ctrl_const.f95:1560
sues_data::fai
real(kind(1d0)) fai
Definition suews_ctrl_const.f95:1580
sues_data::waterstorcap
real(kind(1d0)) waterstorcap
Definition suews_ctrl_const.f95:1560
sues_data::runoff_per_tstep
real(kind(1d0)) runoff_per_tstep
Definition suews_ctrl_const.f95:1580
sues_data::int_wu
real(kind(1d0)) int_wu
Definition suews_ctrl_const.f95:1663
sues_data::rb
real(kind(1d0)) rb
Definition suews_ctrl_const.f95:1580
sues_data::numpm
real(kind(1d0)) numpm
Definition suews_ctrl_const.f95:1650
sues_data::npertstepin
integer npertstepin
Definition suews_ctrl_const.f95:1529
sues_data::ev_per_tstep
real(kind(1d0)) ev_per_tstep
Definition suews_ctrl_const.f95:1580
sues_data::vdrc
real(kind(1d0)) vdrc
Definition suews_ctrl_const.f95:1650
sues_data::rss
real(kind(1d0)) rss
Definition suews_ctrl_const.f95:1636
sues_data::daywat
real(kind(1d0)), dimension(7) daywat
Definition suews_ctrl_const.f95:1677
sues_data::wuareatotal_m2
real(kind(1d0)) wuareatotal_m2
Definition suews_ctrl_const.f95:1560
sues_data::z0_gis
real(kind(1d0)) z0_gis
Definition suews_ctrl_const.f95:1625
sues_data::additionalwater
real(kind(1d0)) additionalwater
Definition suews_ctrl_const.f95:1580
sues_data::pin
real(kind(1d0)) pin
Definition suews_ctrl_const.f95:1580
sues_data::wuareaevetr_m2
real(kind(1d0)) wuareaevetr_m2
Definition suews_ctrl_const.f95:1560
sues_data::flowchange
real(kind(1d0)) flowchange
Definition suews_ctrl_const.f95:1560
sues_data::gq
real(kind(1d0)) gq
Definition suews_ctrl_const.f95:1636
sues_data::ie_start
integer ie_start
Definition suews_ctrl_const.f95:1553
sues_data::qe_per_interval
real(kind(1d0)) qe_per_interval
Definition suews_ctrl_const.f95:1580
sues_data::wuareagrass_m2
real(kind(1d0)) wuareagrass_m2
Definition suews_ctrl_const.f95:1560
sues_data::nperestm
integer nperestm
Definition suews_ctrl_const.f95:1529
sues_data::l_mod
real(kind(1d0)) l_mod
Definition suews_ctrl_const.f95:1625
sues_data::gs
real(kind(1d0)) gs
Definition suews_ctrl_const.f95:1636
sues_data::halftimestep
real(kind(1d0)) halftimestep
Definition suews_ctrl_const.f95:1541
sues_data::irrfracevetr
real(kind(1d0)) irrfracevetr
Definition suews_ctrl_const.f95:1663
sues_data::soildensity
real(kind(1d0)) soildensity
Definition suews_ctrl_const.f95:1560
sues_data::state_per_tstep
real(kind(1d0)) state_per_tstep
Definition suews_ctrl_const.f95:1580
sues_data::smd
real(kind(1d0)) smd
Definition suews_ctrl_const.f95:1636
sues_data::tlv_sub
real(kind(1d0)) tlv_sub
Definition suews_ctrl_const.f95:1580
sues_data::pai
real(kind(1d0)) pai
Definition suews_ctrl_const.f95:1580
sues_data::runoff_per_interval
real(kind(1d0)) runoff_per_interval
Definition suews_ctrl_const.f95:1580
sues_data::chsnow_per_interval
real(kind(1d0)) chsnow_per_interval
Definition suews_ctrl_const.f95:1580
sues_data::ie_end
integer ie_end
Definition suews_ctrl_const.f95:1553
sues_data::tstep_real
real(kind(1d0)) tstep_real
Definition suews_ctrl_const.f95:1537
sues_data::soilrocks
real(kind(1d0)) soilrocks
Definition suews_ctrl_const.f95:1560
sues_data::qhforcbl
real(kind(1d0)), dimension(:), allocatable qhforcbl
Definition suews_ctrl_const.f95:1659
sues_data::ie_a
real(kind(1d0)), dimension(3) ie_a
Definition suews_ctrl_const.f95:1682
sues_data::smcap
real(kind(1d0)) smcap
Definition suews_ctrl_const.f95:1560
sues_data::psih
real(kind(1d0)) psih
Definition suews_ctrl_const.f95:1625
sues_data::t_interval
integer t_interval
Definition suews_ctrl_const.f95:1529
sues_data::sdp
real(kind(1d0)) sdp
Definition suews_ctrl_const.f95:1636
sues_data::surfacearea_ha
real(kind(1d0)) surfacearea_ha
Definition suews_ctrl_const.f95:1560
sues_data::irrfracdectr
real(kind(1d0)) irrfracdectr
Definition suews_ctrl_const.f95:1663
sues_data::addwaterbody
real(kind(1d0)) addwaterbody
Definition suews_ctrl_const.f95:1580
sues_data::irrfracbsoil
real(kind(1d0)) irrfracbsoil
Definition suews_ctrl_const.f95:1663
sues_data::pipecapacity
real(kind(1d0)) pipecapacity
Definition suews_ctrl_const.f95:1560
sues_data::addimpervious
real(kind(1d0)) addimpervious
Definition suews_ctrl_const.f95:1580
sues_data::roughlenheatmethod
integer roughlenheatmethod
Definition suews_ctrl_const.f95:1544
sues_data::irrfracwater
real(kind(1d0)) irrfracwater
Definition suews_ctrl_const.f95:1663
sues_data::ch_per_interval
real(kind(1d0)) ch_per_interval
Definition suews_ctrl_const.f95:1580
sues_data::nsdorig
integer nsdorig
Definition suews_ctrl_const.f95:1529
sues_data::rst
real(kind(1d0)) rst
Definition suews_ctrl_const.f95:1650
sues_data::nperestm_real
real(kind(1d0)) nperestm_real
Definition suews_ctrl_const.f95:1537
sues_data::runoffagveg_m3
real(kind(1d0)) runoffagveg_m3
Definition suews_ctrl_const.f95:1580
sues_data::daywatper
real(kind(1d0)), dimension(7) daywatper
Definition suews_ctrl_const.f95:1677
sues_data::gdq
real(kind(1d0)) gdq
Definition suews_ctrl_const.f95:1636
sues_data::nsh_real
real(kind(1d0)) nsh_real
Definition suews_ctrl_const.f95:1537
sues_data::nsh
integer nsh
Definition suews_ctrl_const.f95:1529
sues_data::sp
real(kind(1d0)) sp
Definition suews_ctrl_const.f95:1650
sues_data::qnm
real(kind(1d0)) qnm
Definition suews_ctrl_const.f95:1636
sues_data::qeph
real(kind(1d0)) qeph
Definition suews_ctrl_const.f95:1650
sues_data::qeout
real(kind(1d0)) qeout
Definition suews_ctrl_const.f95:1650
sues_data::tot_chang_per_tstep
real(kind(1d0)) tot_chang_per_tstep
Definition suews_ctrl_const.f95:1580
sues_data::ev
real(kind(1d0)) ev
Definition suews_ctrl_const.f95:1650
sues_data::qe_per_tstep
real(kind(1d0)) qe_per_tstep
Definition suews_ctrl_const.f95:1580
sues_data::nwstate_per_tstep
real(kind(1d0)) nwstate_per_tstep
Definition suews_ctrl_const.f95:1580
sues_data::rasnow
real(kind(1d0)) rasnow
Definition suews_ctrl_const.f95:1625
sues_data::irrfracpaved
real(kind(1d0)) irrfracpaved
Definition suews_ctrl_const.f95:1663
sues_data::drain_per_tstep
real(kind(1d0)) drain_per_tstep
Definition suews_ctrl_const.f95:1580
sues_data::surf_chang_per_tstep
real(kind(1d0)) surf_chang_per_tstep
Definition suews_ctrl_const.f95:1580
sues_data::tstep_prev
integer tstep_prev
Definition suews_ctrl_const.f95:1529
sues_data::runoffwaterbody
real(kind(1d0)) runoffwaterbody
Definition suews_ctrl_const.f95:1580
sues_data::tstep
integer tstep
Definition suews_ctrl_const.f95:1529
sues_data::wuareadectr_m2
real(kind(1d0)) wuareadectr_m2
Definition suews_ctrl_const.f95:1560
sues_data::p_mm
real(kind(1d0)) p_mm
Definition suews_ctrl_const.f95:1580
sues_data::runoffsoil_per_interval
real(kind(1d0)) runoffsoil_per_interval
Definition suews_ctrl_const.f95:1580
sues_data::surfacearea
real(kind(1d0)) surfacearea
Definition suews_ctrl_const.f95:1560
sues_data::ie_m
real(kind(1d0)), dimension(3) ie_m
Definition suews_ctrl_const.f95:1682
sues_data::npertstepin_real
real(kind(1d0)) npertstepin_real
Definition suews_ctrl_const.f95:1537
sues_data::in
integer in
Definition suews_ctrl_const.f95:1547
sues_data::soilstate
real(kind(1d0)) soilstate
Definition suews_ctrl_const.f95:1580
sues_data::runoffagveg
real(kind(1d0)) runoffagveg
Definition suews_ctrl_const.f95:1580
sues_data::internalwateruse_h
real(kind(1d0)) internalwateruse_h
Definition suews_ctrl_const.f95:1663
sues_data::soildepthmeas
real(kind(1d0)) soildepthmeas
Definition suews_ctrl_const.f95:1560
sues_data::tstar
real(kind(1d0)) tstar
Definition suews_ctrl_const.f95:1625
sues_data::h_maintain
real(kind(1d0)) h_maintain
Definition suews_ctrl_const.f95:1663
sues_data::runoffpipes
real(kind(1d0)) runoffpipes
Definition suews_ctrl_const.f95:1580
sues_data::di_dt
real(kind(1d0)) di_dt
Definition suews_ctrl_const.f95:1580
sues_data::waterbodytype
real(kind(1d0)) waterbodytype
Definition suews_ctrl_const.f95:1560
sues_data::wu_dectr
real(kind(1d0)) wu_dectr
Definition suews_ctrl_const.f95:1560
sues_data::psim
real(kind(1d0)) psim
Definition suews_ctrl_const.f95:1625
sues_data::gtemp
real(kind(1d0)) gtemp
Definition suews_ctrl_const.f95:1636
thresh::ipthreshold_mmhr
real(kind(1d0)) ipthreshold_mmhr
Definition suews_ctrl_const.f95:1428
time::dt_since_start
integer dt_since_start
Definition suews_ctrl_const.f95:1412
time::id_prev_t
integer id_prev_t
Definition suews_ctrl_const.f95:1414
time::nofdaysthisyear
integer nofdaysthisyear
Definition suews_ctrl_const.f95:1411
time::iy_prev_t
integer iy_prev_t
Definition suews_ctrl_const.f95:1414
time::dectime
real(kind(1d0)) dectime
Definition suews_ctrl_const.f95:1409
time::tstepcount
real(kind(1d0)) tstepcount
Definition suews_ctrl_const.f95:1410
vegphenogy::deltalai
real(kind(1d0)) deltalai
Definition suews_ctrl_const.f95:1690
vegphenogy::vegphenlumps
real(kind(1d0)) vegphenlumps
Definition suews_ctrl_const.f95:1690
wherewhen::gridid_text
character(len=10) gridid_text
Definition suews_ctrl_const.f95:2215
wherewhen::datetime
character(len=15) datetime
Definition suews_ctrl_const.f95:2216
Generated on Mon Mar 25 2024 14:48:38 for SUEWS API Site by doxygen 1.10.0