SUBROUTINE BEM_INIT(YBEM)
TYPE(BEM_t), INTENT(INOUT) :: YBEM
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (LHOOK) CALL DR_HOOK("MODD_BEM_N:BEM_INIT",0,ZHOOK_HANDLE)
NULLIFY(YBEM%XF_WATER_COND)
NULLIFY(YBEM%XHC_FLOOR)
NULLIFY(YBEM%XTC_FLOOR)
NULLIFY(YBEM%XD_FLOOR)
NULLIFY(YBEM%XTCOOL_TARGET)
NULLIFY(YBEM%XTHEAT_TARGET)
NULLIFY(YBEM%XTI_BLD)
NULLIFY(YBEM%XT_FLOOR)
NULLIFY(YBEM%XT_MASS)
NULLIFY(YBEM%XQIN)
NULLIFY(YBEM%XQIN_FRAD)
NULLIFY(YBEM%XSHGC)
NULLIFY(YBEM%XSHGC_SH)
NULLIFY(YBEM%XU_WIN)
NULLIFY(YBEM%XTRAN_WIN)
NULLIFY(YBEM%XGR)
NULLIFY(YBEM%XFLOOR_HEIGHT)
NULLIFY(YBEM%XEFF_HEAT)
NULLIFY(YBEM%XINF)
NULLIFY(YBEM%XF_WASTE_CAN)
NULLIFY(YBEM%XAUX_MAX)
NULLIFY(YBEM%XQIN_FLAT)
NULLIFY(YBEM%XHR_TARGET)
NULLIFY(YBEM%XT_WIN2)
NULLIFY(YBEM%XQI_BLD)
NULLIFY(YBEM%XV_VENT)
NULLIFY(YBEM%XCAP_SYS_HEAT)
NULLIFY(YBEM%XCAP_SYS_RAT)
NULLIFY(YBEM%XT_ADP)
NULLIFY(YBEM%XM_SYS_RAT)
NULLIFY(YBEM%XCOP_RAT)
NULLIFY(YBEM%XT_WIN1)
NULLIFY(YBEM%XALB_WIN)
NULLIFY(YBEM%XABS_WIN)
NULLIFY(YBEM%XT_SIZE_MAX)
NULLIFY(YBEM%XT_SIZE_MIN)
NULLIFY(YBEM%XUGG_WIN)
NULLIFY(YBEM%LSHAD_DAY)
NULLIFY(YBEM%LNATVENT_NIGHT)
NULLIFY(YBEM%LSHADE)
NULLIFY(YBEM%XSHADE)
NULLIFY(YBEM%CNATVENT)
NULLIFY(YBEM%XNATVENT)
NULLIFY(YBEM%XN_FLOOR)
NULLIFY(YBEM%XGLAZ_O_BLD)
NULLIFY(YBEM%XMASS_O_BLD)
NULLIFY(YBEM%XFLOOR_HW_RATIO)
NULLIFY(YBEM%XF_FLOOR_MASS)
NULLIFY(YBEM%XF_FLOOR_WALL)
NULLIFY(YBEM%XF_FLOOR_WIN)
NULLIFY(YBEM%XF_FLOOR_ROOF)
NULLIFY(YBEM%XF_WALL_FLOOR)
NULLIFY(YBEM%XF_WALL_MASS)
NULLIFY(YBEM%XF_WALL_WIN)
NULLIFY(YBEM%XF_WIN_FLOOR)
NULLIFY(YBEM%XF_WIN_MASS)
NULLIFY(YBEM%XF_WIN_WALL)
NULLIFY(YBEM%XF_WIN_WIN)
NULLIFY(YBEM%XF_MASS_FLOOR)
NULLIFY(YBEM%XF_MASS_WALL)
NULLIFY(YBEM%XF_MASS_WIN)
IF (LHOOK) CALL DR_HOOK("MODD_BEM_N:BEM_INIT",1,ZHOOK_HANDLE)
END SUBROUTINE BEM_INIT