40 USE yomhook
,ONLY : lhook, dr_hook
41 USE parkind1
,ONLY : jprb
51 REAL,
POINTER,
DIMENSION(:) :: XROAD_DIR
52 REAL,
POINTER,
DIMENSION(:) :: XGARDEN
53 REAL,
POINTER,
DIMENSION(:) :: XGREENROOF
54 REAL,
POINTER,
DIMENSION(:) :: XBLD
55 REAL,
POINTER,
DIMENSION(:) :: XROAD
56 REAL,
POINTER,
DIMENSION(:) :: XCAN_HW_RATIO
57 REAL,
POINTER,
DIMENSION(:) :: XBLD_HEIGHT
58 REAL,
POINTER,
DIMENSION(:) :: XWALL_O_HOR
59 REAL,
POINTER,
DIMENSION(:) :: XROAD_O_GRND
60 REAL,
POINTER,
DIMENSION(:) :: XGARDEN_O_GRND
61 REAL,
POINTER,
DIMENSION(:) :: XWALL_O_GRND
62 REAL,
POINTER,
DIMENSION(:) :: XWALL_O_BLD
63 REAL,
POINTER,
DIMENSION(:) :: XZ0_TOWN
64 REAL,
POINTER,
DIMENSION(:) :: XSVF_ROAD
65 REAL,
POINTER,
DIMENSION(:) :: XSVF_GARDEN
66 REAL,
POINTER,
DIMENSION(:) :: XSVF_WALL
70 REAL,
POINTER,
DIMENSION(:) :: XALB_ROOF
71 REAL,
POINTER,
DIMENSION(:) :: XEMIS_ROOF
72 REAL,
POINTER,
DIMENSION(:,:) :: XHC_ROOF
73 REAL,
POINTER,
DIMENSION(:,:) :: XTC_ROOF
74 REAL,
POINTER,
DIMENSION(:,:) :: XD_ROOF
75 REAL,
POINTER,
DIMENSION(:) :: XROUGH_ROOF
80 REAL,
POINTER,
DIMENSION(:) :: XALB_ROAD
81 REAL,
POINTER,
DIMENSION(:) :: XEMIS_ROAD
82 REAL,
POINTER,
DIMENSION(:,:) :: XHC_ROAD
83 REAL,
POINTER,
DIMENSION(:,:) :: XTC_ROAD
84 REAL,
POINTER,
DIMENSION(:,:) :: XD_ROAD
88 REAL,
POINTER,
DIMENSION(:) :: XALB_WALL
89 REAL,
POINTER,
DIMENSION(:) :: XEMIS_WALL
90 REAL,
POINTER,
DIMENSION(:,:) :: XHC_WALL
91 REAL,
POINTER,
DIMENSION(:,:) :: XTC_WALL
92 REAL,
POINTER,
DIMENSION(:,:) :: XD_WALL
93 REAL,
POINTER,
DIMENSION(:) :: XROUGH_WALL
97 REAL,
POINTER,
DIMENSION(:) :: XRESIDENTIAL
104 REAL,
POINTER,
DIMENSION(:) :: XH_TRAFFIC
106 REAL,
POINTER,
DIMENSION(:) :: XLE_TRAFFIC
108 REAL,
POINTER,
DIMENSION(:) :: XH_INDUSTRY
110 REAL,
POINTER,
DIMENSION(:) :: XLE_INDUSTRY
115 REAL,
POINTER,
DIMENSION(:) :: XTI_ROAD
119 REAL,
POINTER,
DIMENSION(:) :: XWS_ROOF
120 REAL,
POINTER,
DIMENSION(:) :: XWS_ROAD
121 REAL,
POINTER,
DIMENSION(:,:) :: XT_ROOF
122 REAL,
POINTER,
DIMENSION(:,:) :: XT_ROAD
123 REAL,
POINTER,
DIMENSION(:,:) :: XT_WALL_A
124 REAL,
POINTER,
DIMENSION(:,:) :: XT_WALL_B
126 REAL,
POINTER,
DIMENSION(:) :: XAC_ROOF
127 REAL,
POINTER,
DIMENSION(:) :: XAC_ROAD
128 REAL,
POINTER,
DIMENSION(:) :: XAC_WALL
129 REAL,
POINTER,
DIMENSION(:) :: XAC_TOP
130 REAL,
POINTER,
DIMENSION(:) :: XAC_ROOF_WAT
131 REAL,
POINTER,
DIMENSION(:) :: XAC_ROAD_WAT
133 REAL,
POINTER,
DIMENSION(:) :: XQSAT_ROOF
134 REAL,
POINTER,
DIMENSION(:) :: XQSAT_ROAD
136 REAL,
POINTER,
DIMENSION(:) :: XDELT_ROOF
137 REAL,
POINTER,
DIMENSION(:) :: XDELT_ROAD
141 REAL,
POINTER,
DIMENSION(:) :: XT_CANYON
142 REAL,
POINTER,
DIMENSION(:) :: XQ_CANYON
190 TYPE(teb_t),
INTENT(INOUT) :: yteb
191 INTEGER,
INTENT(IN) :: kto_patch
192 REAL(KIND=JPRB) :: zhook_handle
195 IF (lhook) CALL dr_hook(
'MODD_TEB_N:TEB_GOTO_PATCH',0,zhook_handle)
197 yteb%CUR => yteb%ALP(kto_patch)
199 IF (lhook) CALL dr_hook(
'MODD_TEB_N:TEB_GOTO_PATCH',1,zhook_handle)
204 TYPE(teb_t),
INTENT(INOUT) :: yteb
205 INTEGER,
INTENT(IN) :: kpatch
207 REAL(KIND=JPRB) :: zhook_handle
208 IF (lhook) CALL dr_hook(
"MODD_TEB_N:TEB_INIT",0,zhook_handle)
209 ALLOCATE(yteb%ALP(kpatch))
210 yteb%CUR => yteb%ALP(1)
212 nullify(yteb%ALP(jp)%XROAD_DIR)
213 nullify(yteb%ALP(jp)%XGARDEN)
214 nullify(yteb%ALP(jp)%XGREENROOF)
215 nullify(yteb%ALP(jp)%XBLD)
216 nullify(yteb%ALP(jp)%XROAD)
217 nullify(yteb%ALP(jp)%XCAN_HW_RATIO)
218 nullify(yteb%ALP(jp)%XBLD_HEIGHT)
219 nullify(yteb%ALP(jp)%XWALL_O_HOR)
220 nullify(yteb%ALP(jp)%XROAD_O_GRND)
221 nullify(yteb%ALP(jp)%XGARDEN_O_GRND)
222 nullify(yteb%ALP(jp)%XWALL_O_GRND)
223 nullify(yteb%ALP(jp)%XWALL_O_BLD)
224 nullify(yteb%ALP(jp)%XZ0_TOWN)
225 nullify(yteb%ALP(jp)%XSVF_ROAD)
226 nullify(yteb%ALP(jp)%XSVF_GARDEN)
227 nullify(yteb%ALP(jp)%XSVF_WALL)
228 nullify(yteb%ALP(jp)%XALB_ROOF)
229 nullify(yteb%ALP(jp)%XEMIS_ROOF)
230 nullify(yteb%ALP(jp)%XHC_ROOF)
231 nullify(yteb%ALP(jp)%XTC_ROOF)
232 nullify(yteb%ALP(jp)%XD_ROOF)
233 nullify(yteb%ALP(jp)%XALB_ROAD)
234 nullify(yteb%ALP(jp)%XEMIS_ROAD)
235 nullify(yteb%ALP(jp)%XHC_ROAD)
236 nullify(yteb%ALP(jp)%XTC_ROAD)
237 nullify(yteb%ALP(jp)%XD_ROAD)
238 nullify(yteb%ALP(jp)%XALB_WALL)
239 nullify(yteb%ALP(jp)%XEMIS_WALL)
240 nullify(yteb%ALP(jp)%XHC_WALL)
241 nullify(yteb%ALP(jp)%XTC_WALL)
242 nullify(yteb%ALP(jp)%XD_WALL)
243 nullify(yteb%ALP(jp)%XH_TRAFFIC)
244 nullify(yteb%ALP(jp)%XLE_TRAFFIC)
245 nullify(yteb%ALP(jp)%XH_INDUSTRY)
246 nullify(yteb%ALP(jp)%XLE_INDUSTRY)
247 nullify(yteb%ALP(jp)%XTI_ROAD)
248 nullify(yteb%ALP(jp)%XWS_ROOF)
249 nullify(yteb%ALP(jp)%XWS_ROAD)
250 nullify(yteb%ALP(jp)%XT_ROOF)
251 nullify(yteb%ALP(jp)%XT_ROAD)
252 nullify(yteb%ALP(jp)%XT_WALL_A)
253 nullify(yteb%ALP(jp)%XT_WALL_B)
254 nullify(yteb%ALP(jp)%XAC_ROOF)
255 nullify(yteb%ALP(jp)%XAC_ROAD)
256 nullify(yteb%ALP(jp)%XAC_WALL)
257 nullify(yteb%ALP(jp)%XAC_TOP)
258 nullify(yteb%ALP(jp)%XAC_ROOF_WAT)
259 nullify(yteb%ALP(jp)%XAC_ROAD_WAT)
260 nullify(yteb%ALP(jp)%XQSAT_ROOF)
261 nullify(yteb%ALP(jp)%XQSAT_ROAD)
262 nullify(yteb%ALP(jp)%XDELT_ROOF)
263 nullify(yteb%ALP(jp)%XDELT_ROAD)
264 nullify(yteb%ALP(jp)%XT_CANYON)
265 nullify(yteb%ALP(jp)%XQ_CANYON)
266 nullify(yteb%ALP(jp)%XROUGH_ROOF)
267 nullify(yteb%ALP(jp)%XROUGH_WALL)
268 nullify(yteb%ALP(jp)%XRESIDENTIAL)
269 yteb%ALP(:)%XDT_RES=0.
270 yteb%ALP(:)%XDT_OFF=0.
272 IF (lhook) CALL dr_hook(
"MODD_TEB_N:TEB_INIT",1,zhook_handle)
subroutine teb_init(YTEB, KPATCH)
subroutine teb_goto_patch(YTEB, KTO_PATCH)