50 USE yomhook
,ONLY : lhook, dr_hook
51 USE parkind1
,ONLY : jprb
63 TYPE(bem_t),
INTENT(INOUT) :: b
69 REAL(KIND=JPRB) :: zhook_handle
75 IF (lhook) CALL dr_hook(
'STORES_HVAC_AUTOSIZE',0,zhook_handle)
84 il =
SIZE(b%CUR%XM_SYS_RAT)
86 dtb%LDATA_M_SYS_RAT = .true.
87 ALLOCATE(dtb%XPAR_M_SYS_RAT(il))
88 dtb%XPAR_M_SYS_RAT = b%CUR%XM_SYS_RAT
90 dtb%LDATA_CAP_SYS_RAT = .true.
91 ALLOCATE(dtb%XPAR_CAP_SYS_RAT(il))
92 dtb%XPAR_CAP_SYS_RAT = b%CUR%XCAP_SYS_RAT
94 dtb%LDATA_CAP_SYS_HEAT = .true.
95 ALLOCATE(dtb%XPAR_CAP_SYS_HEAT(il))
96 dtb%XPAR_CAP_SYS_HEAT = b%CUR%XCAP_SYS_HEAT
98 bop%LAUTOSIZE = .false.
99 dtb%LDATA_T_SIZE_MIN = .false.
100 dtb%LDATA_T_SIZE_MAX = .false.
105 IF (lhook) CALL dr_hook(
'STORES_HVAC_AUTOSIZE',1,zhook_handle)
subroutine stores_hvac_autosize(B, BOP, DTB)