7 ptstep, pdqs_town,pqf_bld,pqf_town, pflx_bld, &
9 prn_road, ph_road, ple_road, pgflux_road, &
10 prunoff_road, pirrig_road, &
11 prn_wall_a, ph_wall_a, pgflux_wall_a, &
12 prn_wall_b, ph_wall_b, pgflux_wall_b, &
13 prn_roof, ph_roof, ple_roof, pgflux_roof, &
15 prn_strlroof, ph_strlroof, &
16 ple_strlroof, pgflux_strlroof, &
18 prn_greenroof, ph_greenroof, &
19 ple_greenroof, pgflux_greenroof, pg_greenroof_roof, &
20 prunoff_greenroof, pdrain_greenroof, pirrig_greenroof, &
21 prn_garden,ph_garden,ple_garden,pgflux_garden, &
22 prunoff_garden, pdrain_garden, pirrig_garden, &
23 prn_blt,ph_blt,ple_blt,pgflux_blt, &
24 pabs_sw_roof,pabs_lw_roof, &
25 pabs_sw_snow_roof,pabs_lw_snow_roof, &
26 pabs_sw_road,pabs_lw_road, &
27 pabs_sw_snow_road,pabs_lw_snow_road, &
28 pabs_sw_wall_a, pabs_lw_wall_a, &
29 pabs_sw_wall_b, pabs_lw_wall_b, &
30 pabs_sw_garden,pabs_lw_garden, &
31 pabs_sw_greenroof,pabs_lw_greenroof, &
32 ph_bld_cool, pt_bld_cool, &
33 ph_bld_heat, ple_bld_cool, ple_bld_heat, &
34 ph_waste, ple_waste, phvac_cool, &
35 phvac_heat, pcap_sys, pm_sys, pcop, &
36 pq_sys, pt_sys, ptr_sw_win, pfan_power, &
37 pabs_sw_win, pabs_lw_win, &
38 ptcool_target, ptheat_target, pqin, &
39 pabs_sw_panel, pabs_lw_panel, prn_panel, &
40 ph_panel, pther_prod_panel, pphot_prod_panel, &
41 pprod_panel, pther_prod_bld, pphot_prod_bld )
75 USE modi_cumul_diag_teb_n
77 USE yomhook
,ONLY : lhook, dr_hook
78 USE parkind1
,ONLY : jprb
90 REAL,
INTENT(IN) :: ptstep
91 REAL,
DIMENSION(:),
INTENT(IN) :: pqf_bld
92 REAL,
DIMENSION(:),
INTENT(IN) :: pflx_bld
93 REAL,
DIMENSION(:),
INTENT(IN) :: pqf_town
94 REAL,
DIMENSION(:),
INTENT(IN) :: pdqs_town
95 REAL,
DIMENSION(:),
INTENT(IN) :: prn_road
96 REAL,
DIMENSION(:),
INTENT(IN) :: ph_road
97 REAL,
DIMENSION(:),
INTENT(IN) :: ple_road
98 REAL,
DIMENSION(:),
INTENT(IN) :: pgflux_road
99 REAL,
DIMENSION(:),
INTENT(IN) :: prunoff_road
100 REAL,
DIMENSION(:),
INTENT(IN) :: pirrig_road
101 REAL,
DIMENSION(:),
INTENT(IN) :: prn_wall_a
102 REAL,
DIMENSION(:),
INTENT(IN) :: ph_wall_a
103 REAL,
DIMENSION(:),
INTENT(IN) :: pgflux_wall_a
104 REAL,
DIMENSION(:),
INTENT(IN) :: prn_wall_b
105 REAL,
DIMENSION(:),
INTENT(IN) :: ph_wall_b
106 REAL,
DIMENSION(:),
INTENT(IN) :: pgflux_wall_b
107 REAL,
DIMENSION(:),
INTENT(IN) :: prn_roof
108 REAL,
DIMENSION(:),
INTENT(IN) :: ph_roof
109 REAL,
DIMENSION(:),
INTENT(IN) :: ple_roof
110 REAL,
DIMENSION(:),
INTENT(IN) :: pgflux_roof
111 REAL,
DIMENSION(:),
INTENT(IN) :: prunoff_roof
112 REAL,
DIMENSION(:),
INTENT(IN) :: prunoff_town
113 REAL,
DIMENSION(:),
INTENT(IN) :: prn_strlroof
114 REAL,
DIMENSION(:),
INTENT(IN) :: ph_strlroof
115 REAL,
DIMENSION(:),
INTENT(IN) :: ple_strlroof
116 REAL,
DIMENSION(:),
INTENT(IN) :: pgflux_strlroof
117 REAL,
DIMENSION(:),
INTENT(IN) :: prunoff_strlroof
118 REAL,
DIMENSION(:),
INTENT(IN) :: prn_greenroof
119 REAL,
DIMENSION(:),
INTENT(IN) :: ph_greenroof
120 REAL,
DIMENSION(:),
INTENT(IN) :: ple_greenroof
121 REAL,
DIMENSION(:),
INTENT(IN) :: pgflux_greenroof
122 REAL,
DIMENSION(:),
INTENT(IN) :: pg_greenroof_roof
123 REAL,
DIMENSION(:),
INTENT(IN) :: prunoff_greenroof
124 REAL,
DIMENSION(:),
INTENT(IN) :: pdrain_greenroof
125 REAL,
DIMENSION(:),
INTENT(IN) :: pirrig_greenroof
126 REAL,
DIMENSION(:),
INTENT(IN) :: prn_garden
127 REAL,
DIMENSION(:),
INTENT(IN) :: ph_garden
128 REAL,
DIMENSION(:),
INTENT(IN) :: ple_garden
129 REAL,
DIMENSION(:),
INTENT(IN) :: pgflux_garden
130 REAL,
DIMENSION(:),
INTENT(IN) :: prunoff_garden
131 REAL,
DIMENSION(:),
INTENT(IN) :: pdrain_garden
132 REAL,
DIMENSION(:),
INTENT(IN) :: pirrig_garden
133 REAL,
DIMENSION(:),
INTENT(IN) :: prn_blt
134 REAL,
DIMENSION(:),
INTENT(IN) :: ph_blt
135 REAL,
DIMENSION(:),
INTENT(IN) :: ple_blt
136 REAL,
DIMENSION(:),
INTENT(IN) :: pgflux_blt
138 REAL,
DIMENSION(:),
INTENT(IN) :: pabs_sw_roof
139 REAL,
DIMENSION(:),
INTENT(IN) :: pabs_sw_snow_roof
140 REAL,
DIMENSION(:),
INTENT(IN) :: pabs_lw_roof
141 REAL,
DIMENSION(:),
INTENT(IN) :: pabs_lw_snow_roof
142 REAL,
DIMENSION(:),
INTENT(IN) :: pabs_sw_road
143 REAL,
DIMENSION(:),
INTENT(IN) :: pabs_sw_snow_road
144 REAL,
DIMENSION(:),
INTENT(IN) :: pabs_lw_road
145 REAL,
DIMENSION(:),
INTENT(IN) :: pabs_lw_snow_road
146 REAL,
DIMENSION(:),
INTENT(IN) :: pabs_sw_wall_a
147 REAL,
DIMENSION(:),
INTENT(IN) :: pabs_lw_wall_a
148 REAL,
DIMENSION(:),
INTENT(IN) :: pabs_sw_wall_b
149 REAL,
DIMENSION(:),
INTENT(IN) :: pabs_lw_wall_b
150 REAL,
DIMENSION(:),
INTENT(IN) :: pabs_sw_garden
151 REAL,
DIMENSION(:),
INTENT(IN) :: pabs_lw_garden
152 REAL,
DIMENSION(:),
INTENT(IN) :: pabs_sw_greenroof
153 REAL,
DIMENSION(:),
INTENT(IN) :: pabs_lw_greenroof
155 REAL,
DIMENSION(:),
INTENT(IN) :: ph_bld_cool
157 REAL,
DIMENSION(:),
INTENT(IN) :: pt_bld_cool
159 REAL,
DIMENSION(:),
INTENT(IN) :: ph_bld_heat
161 REAL,
DIMENSION(:),
INTENT(IN) :: ple_bld_cool
163 REAL,
DIMENSION(:),
INTENT(IN) :: ple_bld_heat
165 REAL,
DIMENSION(:),
INTENT(IN) :: ph_waste
167 REAL,
DIMENSION(:),
INTENT(IN) :: ple_waste
169 REAL,
DIMENSION(:),
INTENT(IN) :: phvac_cool
171 REAL,
DIMENSION(:),
INTENT(IN) :: phvac_heat
173 REAL,
DIMENSION(:),
INTENT(IN) :: pcap_sys
175 REAL,
DIMENSION(:),
INTENT(IN) :: pm_sys
177 REAL,
DIMENSION(:),
INTENT(IN) :: pcop
178 REAL,
DIMENSION(:),
INTENT(IN) :: pq_sys
179 REAL,
DIMENSION(:),
INTENT(IN) :: pt_sys
180 REAL,
DIMENSION(:),
INTENT(IN) :: ptr_sw_win
182 REAL,
DIMENSION(:),
INTENT(IN) :: pfan_power
183 REAL,
DIMENSION(:),
INTENT(IN) :: pabs_sw_win
184 REAL,
DIMENSION(:),
INTENT(IN) :: pabs_lw_win
186 REAL,
DIMENSION(:),
INTENT(IN) :: ptcool_target
187 REAL,
DIMENSION(:),
INTENT(IN) :: ptheat_target
188 REAL,
DIMENSION(:),
INTENT(IN) :: pqin
190 REAL,
DIMENSION(:),
INTENT(IN) :: pabs_sw_panel
191 REAL,
DIMENSION(:),
INTENT(IN) :: pabs_lw_panel
192 REAL,
DIMENSION(:),
INTENT(IN) :: prn_panel
193 REAL,
DIMENSION(:),
INTENT(IN) :: ph_panel
194 REAL,
DIMENSION(:),
INTENT(IN) :: pther_prod_panel
195 REAL,
DIMENSION(:),
INTENT(IN) :: pphot_prod_panel
196 REAL,
DIMENSION(:),
INTENT(IN) :: pprod_panel
197 REAL,
DIMENSION(:),
INTENT(IN) :: pther_prod_bld
198 REAL,
DIMENSION(:),
INTENT(IN) :: pphot_prod_bld
202 REAL(KIND=JPRB) :: zhook_handle
205 IF (lhook) CALL dr_hook(
'DIAG_MISC_TEB_N',0,zhook_handle)
206 IF (dgmto%LSURF_MISC_BUDGET)
THEN
207 dgmt%CUR%XQF_BLD = pqf_bld
208 dgmt%CUR%XFLX_BLD = pflx_bld
209 dgmt%CUR%XQF_TOWN = pqf_town
210 dgmt%CUR%XDQS_TOWN = pdqs_town
211 dgmt%CUR%XRN_ROAD = prn_road
212 dgmt%CUR%XH_ROAD = ph_road
213 dgmt%CUR%XLE_ROAD = ple_road
214 dgmt%CUR%XGFLUX_ROAD = pgflux_road
215 dgmt%CUR%XRN_WALL_A = prn_wall_a
216 dgmt%CUR%XH_WALL_A = ph_wall_a
217 dgmt%CUR%XGFLUX_WALL_A = pgflux_wall_a
218 dgmt%CUR%XRN_WALL_B = prn_wall_b
219 dgmt%CUR%XH_WALL_B = ph_wall_b
220 dgmt%CUR%XGFLUX_WALL_B = pgflux_wall_b
221 dgmt%CUR%XRN_ROOF = prn_roof
222 dgmt%CUR%XH_ROOF = ph_roof
223 dgmt%CUR%XLE_ROOF = ple_roof
224 dgmt%CUR%XGFLUX_ROOF = pgflux_roof
225 dgmt%CUR%XRN_STRLROOF = prn_strlroof
226 dgmt%CUR%XH_STRLROOF = ph_strlroof
227 dgmt%CUR%XLE_STRLROOF = ple_strlroof
228 dgmt%CUR%XGFLUX_STRLROOF = pgflux_strlroof
229 dgmt%CUR%XRN_GREENROOF = prn_greenroof
230 dgmt%CUR%XH_GREENROOF = ph_greenroof
231 dgmt%CUR%XLE_GREENROOF = ple_greenroof
232 dgmt%CUR%XGFLUX_GREENROOF = pgflux_greenroof
233 dgmt%CUR%XG_GREENROOF_ROOF = pg_greenroof_roof
234 dgmt%CUR%XRUNOFF_TOWN = prunoff_town
235 dgmt%CUR%XRUNOFF_GARDEN = prunoff_garden
236 dgmt%CUR%XRUNOFF_ROAD = prunoff_road
237 dgmt%CUR%XRUNOFF_ROOF = prunoff_roof
238 dgmt%CUR%XRUNOFF_STRLROOF = prunoff_strlroof
239 dgmt%CUR%XRUNOFF_GREENROOF = prunoff_greenroof
240 dgmt%CUR%XDRAIN_GARDEN = pdrain_garden
241 dgmt%CUR%XDRAIN_GREENROOF = pdrain_greenroof
242 dgmt%CUR%XIRRIG_ROAD = pirrig_road
243 dgmt%CUR%XIRRIG_GARDEN = pirrig_garden
244 dgmt%CUR%XIRRIG_GREENROOF = pirrig_greenroof
245 dgmt%CUR%XRN_GARDEN = prn_garden
246 dgmt%CUR%XH_GARDEN = ph_garden
247 dgmt%CUR%XLE_GARDEN = ple_garden
248 dgmt%CUR%XGFLUX_GARDEN = pgflux_garden
249 dgmt%CUR%XRN_BLT = prn_blt
250 dgmt%CUR%XH_BLT = ph_blt
251 dgmt%CUR%XLE_BLT = ple_blt
252 dgmt%CUR%XGFLUX_BLT = pgflux_blt
254 dgmt%CUR%XABS_SW_ROOF = pabs_sw_roof
255 dgmt%CUR%XABS_LW_ROOF = pabs_lw_roof
256 dgmt%CUR%XABS_SW_SNOW_ROOF = pabs_sw_snow_roof
257 dgmt%CUR%XABS_LW_SNOW_ROOF = pabs_lw_snow_roof
258 dgmt%CUR%XABS_SW_ROAD = pabs_sw_road
259 dgmt%CUR%XABS_LW_ROAD = pabs_lw_road
260 dgmt%CUR%XABS_SW_SNOW_ROAD = pabs_sw_snow_road
261 dgmt%CUR%XABS_LW_SNOW_ROAD = pabs_lw_snow_road
262 dgmt%CUR%XABS_SW_WALL_A = pabs_sw_wall_a
263 dgmt%CUR%XABS_LW_WALL_A = pabs_lw_wall_a
264 dgmt%CUR%XABS_SW_WALL_B = pabs_sw_wall_b
265 dgmt%CUR%XABS_LW_WALL_B = pabs_lw_wall_b
266 dgmt%CUR%XABS_SW_GARDEN = pabs_sw_garden
267 dgmt%CUR%XABS_LW_GARDEN = pabs_lw_garden
268 dgmt%CUR%XABS_SW_GREENROOF = pabs_sw_greenroof
269 dgmt%CUR%XABS_LW_GREENROOF = pabs_lw_greenroof
271 IF (top%CBEM==
'BEM')
THEN
272 dgmt%CUR%XH_BLD_COOL = ph_bld_cool
273 dgmt%CUR%XT_BLD_COOL = pt_bld_cool
274 dgmt%CUR%XH_BLD_HEAT = ph_bld_heat
275 dgmt%CUR%XLE_BLD_COOL= ple_bld_cool
276 dgmt%CUR%XLE_BLD_HEAT= ple_bld_heat
277 dgmt%CUR%XH_WASTE = ph_waste
278 dgmt%CUR%XLE_WASTE = ple_waste
279 dgmt%CUR%XHVAC_COOL = phvac_cool
280 dgmt%CUR%XHVAC_HEAT = phvac_heat
281 dgmt%CUR%XCAP_SYS = pcap_sys
282 dgmt%CUR%XM_SYS = pm_sys
284 dgmt%CUR%XQ_SYS = pq_sys
285 dgmt%CUR%XT_SYS = pt_sys
286 dgmt%CUR%XTR_SW_WIN = ptr_sw_win
287 dgmt%CUR%XFAN_POWER = pfan_power
289 dgmt%CUR%XABS_SW_WIN = pabs_sw_win
290 dgmt%CUR%XABS_LW_WIN = pabs_lw_win
292 dgmt%CUR%XTCOOL_CUR_TARGET = ptcool_target
293 dgmt%CUR%XTHEAT_CUR_TARGET = ptheat_target
294 dgmt%CUR%XCUR_QIN = pqin
297 IF (top%LSOLAR_PANEL)
THEN
298 dgmt%CUR%XABS_SW_PANEL = pabs_sw_panel
299 dgmt%CUR%XABS_LW_PANEL = pabs_lw_panel
300 dgmt%CUR%XRN_PANEL = prn_panel
301 dgmt%CUR%XH_PANEL = ph_panel
302 dgmt%CUR%XTHER_PROD_PANEL = pther_prod_panel
303 dgmt%CUR%XPHOT_PROD_PANEL = pphot_prod_panel
304 dgmt%CUR%XPROD_PANEL = pprod_panel
305 dgmt%CUR%XTHER_PROD_BLD = pther_prod_bld
306 dgmt%CUR%XPHOT_PROD_BLD = pphot_prod_bld
317 IF (lhook) CALL dr_hook(
'DIAG_MISC_TEB_N',1,zhook_handle)
subroutine diag_misc_teb_n(DGCT, DGMT, DGMTO, TOP, PTSTEP, PDQS_TOWN, PQF_BLD, PQF_TOWN, PFLX_BLD, PRUNOFF_TOWN, PRN_ROAD, PH_ROAD, PLE_ROAD, PGFLUX_ROAD, PRUNOFF_ROAD, PIRRIG_ROAD, PRN_WALL_A, PH_WALL_A, PGFLUX_WALL_A, PRN_WALL_B, PH_WALL_B, PGFLUX_WALL_B, PRN_ROOF, PH_ROOF, PLE_ROOF, PGFLUX_ROOF, PRUNOFF_ROOF, PRN_STRLROOF, PH_STRLROOF, PLE_STRLROOF, PGFLUX_STRLROOF, PRUNOFF_STRLROOF, PRN_GREENROOF, PH_GREENROOF, PLE_GREENROOF, PGFLUX_GREENROOF, PG_GREENROOF_ROOF, PRUNOFF_GREENROOF, PDRAIN_GREENROOF, PIRRIG_GREENROOF, PRN_GARDEN, PH_GARDEN, PLE_GARDEN, PGFLUX_GARDEN, PRUNOFF_GARDEN, PDRAIN_GARDEN, PIRRIG_GARDEN, PRN_BLT, PH_BLT, PLE_BLT, PGFLUX_BLT, PABS_SW_ROOF, PABS_LW_ROOF, PABS_SW_SNOW_ROOF, PABS_LW_SNOW_ROOF, PABS_SW_ROAD, PABS_LW_ROAD, PABS_SW_SNOW_ROAD, PABS_LW_SNOW_ROAD, PABS_SW_WALL_A, PABS_LW_WALL_A, PABS_SW_WALL_B, PABS_LW_WALL_B, PABS_SW_GARDEN, PABS_LW_GARDEN, PABS_SW_GREENROOF, PABS_LW_GREENROOF, PH_BLD_COOL, PT_BLD_COOL, PH_BLD_HEAT, PLE_BLD_COOL, PLE_BLD_HEAT, PH_WASTE, PLE_WASTE, PHVAC_COOL, PHVAC_HEAT, PCAP_SYS, PM_SYS, PCOP, PQ_SYS, PT_SYS, PTR_SW_WIN, PFAN_POWER, PABS_SW_WIN, PABS_LW_WIN, PTCOOL_TARGET, PTHEAT_TARGET, PQIN, PABS_SW_PANEL, PABS_LW_PANEL, PRN_PANEL, PH_PANEL, PTHER_PROD_PANEL, PPHOT_PROD_PANEL, PPROD_PANEL, PTHER_PROD_BLD, PPHOT_PROD_BLD)
subroutine cumul_diag_teb_n(DGCT, DGMT, TOP, PTSTEP)