40 USE modd_prep_teb, ONLY : cfile_teb, ctype, cfilepgd_teb, ctypepgd, &
41 cfile_ws, ctype_ws, xws_roof, xws_road, &
42 cfile_ts, ctype_ts, xts_roof, xts_road, xts_wall, &
43 xti_bld, xti_road, xq_can, xhui_bld_def, xhui_bld, &
44 xws_road_def, xws_roof_def, xti_bld_def, xt_can
53 USE yomhook
,ONLY : lhook, dr_hook
54 USE parkind1
,ONLY : jprb
69 REAL(KIND=JPRB) :: zhook_handle
71 IF (lhook) CALL dr_hook(
'DEFAULT_PREP_TEB',0,zhook_handle)
93 xti_bld_def = 19. + xtt
102 IF (lhook) CALL dr_hook(
'DEFAULT_PREP_TEB',1,zhook_handle)
subroutine default_prep_teb