SUBROUTINE TEB_INIT(YTEB)
TYPE(TEB_t), INTENT(INOUT) :: YTEB
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (LHOOK) CALL DR_HOOK("MODD_TEB_N:TEB_INIT",0,ZHOOK_HANDLE)
NULLIFY(YTEB%XROAD_DIR)
NULLIFY(YTEB%XGARDEN)
NULLIFY(YTEB%XGREENROOF)
NULLIFY(YTEB%XBLD)
NULLIFY(YTEB%XROAD)
NULLIFY(YTEB%XCAN_HW_RATIO)
NULLIFY(YTEB%XBLD_HEIGHT)
NULLIFY(YTEB%XWALL_O_HOR)
NULLIFY(YTEB%XROAD_O_GRND)
NULLIFY(YTEB%XGARDEN_O_GRND)
NULLIFY(YTEB%XWALL_O_GRND)
NULLIFY(YTEB%XWALL_O_BLD)
NULLIFY(YTEB%XZ0_TOWN)
NULLIFY(YTEB%XSVF_ROAD)
NULLIFY(YTEB%XSVF_GARDEN)
NULLIFY(YTEB%XSVF_WALL)
NULLIFY(YTEB%XALB_ROOF)
NULLIFY(YTEB%XEMIS_ROOF)
NULLIFY(YTEB%XHC_ROOF)
NULLIFY(YTEB%XTC_ROOF)
NULLIFY(YTEB%XD_ROOF)
NULLIFY(YTEB%XALB_ROAD)
NULLIFY(YTEB%XEMIS_ROAD)
NULLIFY(YTEB%XHC_ROAD)
NULLIFY(YTEB%XTC_ROAD)
NULLIFY(YTEB%XD_ROAD)
NULLIFY(YTEB%XALB_WALL)
NULLIFY(YTEB%XEMIS_WALL)
NULLIFY(YTEB%XHC_WALL)
NULLIFY(YTEB%XTC_WALL)
NULLIFY(YTEB%XD_WALL)
NULLIFY(YTEB%XH_TRAFFIC)
NULLIFY(YTEB%XLE_TRAFFIC)
NULLIFY(YTEB%XH_INDUSTRY)
NULLIFY(YTEB%XLE_INDUSTRY)
NULLIFY(YTEB%XTI_ROAD)
NULLIFY(YTEB%XWS_ROOF)
NULLIFY(YTEB%XWS_ROAD)
NULLIFY(YTEB%XT_ROOF)
NULLIFY(YTEB%XT_ROAD)
NULLIFY(YTEB%XT_WALL_A)
NULLIFY(YTEB%XT_WALL_B)
NULLIFY(YTEB%XAC_ROOF)
NULLIFY(YTEB%XAC_ROAD)
NULLIFY(YTEB%XAC_WALL)
NULLIFY(YTEB%XAC_TOP)
NULLIFY(YTEB%XAC_ROOF_WAT)
NULLIFY(YTEB%XAC_ROAD_WAT)
NULLIFY(YTEB%XQSAT_ROOF)
NULLIFY(YTEB%XQSAT_ROAD)
NULLIFY(YTEB%XDELT_ROOF)
NULLIFY(YTEB%XDELT_ROAD)
NULLIFY(YTEB%XT_CANYON)
NULLIFY(YTEB%XQ_CANYON)
NULLIFY(YTEB%XROUGH_ROOF)
NULLIFY(YTEB%XROUGH_WALL)
NULLIFY(YTEB%XRESIDENTIAL)
YTEB%XDT_RES=0.
YTEB%XDT_OFF=0.
IF (LHOOK) CALL DR_HOOK("MODD_TEB_N:TEB_INIT",1,ZHOOK_HANDLE)
END SUBROUTINE TEB_INIT