6 SUBROUTINE prep_teb (DTCO, UG, U, USS, IG, I, TM, GDM, GRM, &
7 hprogram,hatmfile,hatmfiletype,hpgdfile,hpgdfiletype)
43 USE modi_prep_hor_teb_field
45 USE modi_prep_output_grid
47 USE modi_prep_teb_canopy
48 USE modi_prep_teb_garden
49 USE modi_prep_teb_greenroof
50 USE modi_goto_wrapper_teb_patch
68 USE yomhook
,ONLY : lhook, dr_hook
69 USE parkind1
,ONLY : jprb
71 USE modi_clean_prep_output_grid
82 TYPE(isba_grid_t
),
INTENT(INOUT) :: ig
83 TYPE(isba_t
),
INTENT(INOUT) :: i
88 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
89 CHARACTER(LEN=28),
INTENT(IN) :: hatmfile
90 CHARACTER(LEN=6),
INTENT(IN) :: hatmfiletype
91 CHARACTER(LEN=28),
INTENT(IN) :: hpgdfile
92 CHARACTER(LEN=6),
INTENT(IN) :: hpgdfiletype
98 REAL(KIND=JPRB) :: zhook_handle
104 IF (lhook) CALL dr_hook(
'PREP_TEB',0,zhook_handle)
108 iluout,tm%TG%CGRID,tm%TG%XGRID_PAR,tm%TG%XLAT,tm%TG%XLON)
118 hprogram,
'ZS ',hatmfile,hatmfiletype,hpgdfile,hpgdfiletype,1)
122 tm%TOP%CROAD_DIR = croad_dir
123 tm%TOP%CWALL_OPT = cwall_opt
125 DO jpatch=1,tm%TOP%NTEB_PATCH
128 gdm%TGD, gdm%TGDPE, grm%TGR, grm%TGRPE, jpatch)
132 hprogram,
'WS_ROOF',hatmfile,hatmfiletype,hpgdfile,hpgdfiletype, jpatch)
134 hprogram,
'WS_ROAD',hatmfile,hatmfiletype,hpgdfile,hpgdfiletype, jpatch)
139 hprogram,
'TI_BLD ',hatmfile,hatmfiletype,hpgdfile,hpgdfiletype, jpatch)
144 hprogram,
'TI_ROAD',hatmfile,hatmfiletype,hpgdfile,hpgdfiletype, jpatch)
149 hprogram,
'T_ROAD ',hatmfile,hatmfiletype,hpgdfile,hpgdfiletype, jpatch)
151 hprogram,
'T_WALLA',hatmfile,hatmfiletype,hpgdfile,hpgdfiletype, jpatch)
153 hprogram,
'T_WALLB',hatmfile,hatmfiletype,hpgdfile,hpgdfiletype, jpatch)
155 hprogram,
'T_ROOF ',hatmfile,hatmfiletype,hpgdfile,hpgdfiletype, jpatch)
158 hprogram,
'T_WIN1 ',hatmfile,hatmfiletype,hpgdfile,hpgdfiletype, jpatch)
159 IF (tm%TOP%CBEM ==
'BEM')
THEN
161 hprogram,
'QI_BLD ',hatmfile,hatmfiletype,hpgdfile,hpgdfiletype, jpatch)
163 hprogram,
'T_WIN2 ',hatmfile,hatmfiletype,hpgdfile,hpgdfiletype, jpatch)
165 hprogram,
'T_FLOOR',hatmfile,hatmfiletype,hpgdfile,hpgdfiletype, jpatch)
167 hprogram,
'T_MASS ',hatmfile,hatmfiletype,hpgdfile,hpgdfiletype, jpatch)
171 tm%T%CUR%TSNOW_ROOF%SCHEME=
'1-L'
173 hprogram,
'SN_ROOF',hatmfile,hatmfiletype,hpgdfile,hpgdfiletype, jpatch)
174 tm%T%CUR%TSNOW_ROAD%SCHEME=
'1-L'
176 hprogram,
'SN_ROAD',hatmfile,hatmfiletype,hpgdfile,hpgdfiletype, jpatch)
181 hprogram,
'T_CAN ',hatmfile,hatmfiletype,hpgdfile,hpgdfiletype, jpatch)
183 hprogram,
'Q_CAN ',hatmfile,hatmfiletype,hpgdfile,hpgdfiletype, jpatch)
199 tm%TG, tm%TOP, gdm, &
200 hprogram,hatmfile,hatmfiletype,hpgdfile,hpgdfiletype, jpatch)
202 tm%TG, tm%T, tm%TOP, gdm%TVG, grm, &
203 hprogram,hatmfile,hatmfiletype,hpgdfile,hpgdfiletype, jpatch)
207 DEALLOCATE(xwsnow_gd,xrsnow_gd,xtsnow_gd,xlwcsnow_gd,xagesnow_gd)
208 DEALLOCATE(xwsnow_gr,xrsnow_gr,xtsnow_gr,xlwcsnow_gr,xagesnow_gr)
214 tm%TOP%LCANOPY = lteb_canopy
221 IF (lhook) CALL dr_hook(
'PREP_TEB',1,zhook_handle)
subroutine prep_teb(DTCO, UG, U, USS, IG, I, TM, GDM, GRM, HPROGRAM, HATMFILE, HATMFILETYPE, HPGDFILE, HPGDFILETYPE)
subroutine prep_hor_teb_field(B, BOP, DTCO, IG, U, TG, T, TOP, HPROGRAM, HSURF, HATMFILE, HATMFILETYPE, HPGDFILE, HPGDFILETYPE, KPATCH)
subroutine clean_prep_output_grid
subroutine prep_teb_greenroof(DTCO, UG, U, USS, IG, I, TG, T, TOP, TVG, GRM, HPROGRAM, HATMFILE, HATMFILETYPE, HPGDFILE, HPGDFILETYPE, KPATCH)
subroutine goto_wrapper_teb_patch(B, DGCT, DGMT, T, TGD, TGDPE, TGR, TGRPE, KTO_PATCH)
subroutine prep_teb_garden(DTCO, UG, U, USS, IG, I, TG, TOP, GDM, HPROGRAM, HATMFILE, HATMFILETYPE, HPGDFILE, HPGDFILETYPE, KPATCH)
subroutine prep_ver_teb(B, T, TOP)
subroutine get_luout(HPROGRAM, KLUOUT)
subroutine prep_output_grid(UG, U, KLUOUT, HGRID, PGRID_PAR, PLAT, PLON)
subroutine prep_teb_canopy(TCP, TG)