| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| character(len=MaxNameLength), | public | :: | Name | = | ' ' | ||
| character(len=MaxNameLength), | public | :: | ITSType | = | ' ' | ||
| integer, | public | :: | ITSType_Num | = | 0 | ||
| integer, | public | :: | MapNum | = | 0 | ||
| integer, | public | :: | UratePtr | = | 0 | ||
| real(kind=r64), | public | :: | ITSNomCap | = | 0.0d0 | ||
| integer, | public | :: | PltInletNodeNum | = | 0 | ||
| integer, | public | :: | PltOutletNodeNum | = | 0 | ||
| integer, | public | :: | LoopNum | = | 0 | ||
| integer, | public | :: | LoopSideNum | = | 0 | ||
| integer, | public | :: | BranchNum | = | 0 | ||
| integer, | public | :: | CompNum | = | 0 | ||
| real(kind=r64), | public | :: | DesignMassFlowRate | = | 0.d0 |
TYPE IceStorageSpecs
! Input data
CHARACTER(len=MaxNameLength) :: Name =' ' ! User identifier
CHARACTER(len=MaxNameLength) :: ITSType =' ' ! Ice Thermal Storage Type
INTEGER :: ITSType_Num = 0 ! Storage Type as number (IceOnCoilInternal,IceOnCoilExternal)
INTEGER :: MapNum = 0 ! Number to Map structure
INTEGER :: UratePtr =0 ! Charging/Discharging SchedulePtr: u value schedule
REAL(r64) :: ITSNomCap =0.0d0 ! Design nominal capacity of Ice Thermal Storage [J] (user input in GJ)
INTEGER :: PltInletNodeNum =0 ! Node number on the inlet side of the plant
INTEGER :: PltOutletNodeNum =0 ! Node number on the outlet side of the plant
!loop topology variables
INTEGER :: LoopNum =0
INTEGER :: LoopSideNum =0
INTEGER :: BranchNum =0
INTEGER :: CompNum =0
REAL(r64) :: DesignMassFlowRate = 0.d0
END TYPE IceStorageSpecs