TYPE, PRIVATE :: SubcoolerData
LOGICAL :: CoilFlag = .FALSE. ! Flag to show if coil type load on system served by subcooler
CHARACTER(len=MaxNameLength) :: Name=' ' ! Name of Subcooler
CHARACTER(len=MaxNameLength) :: MechSourceSys=' ' ! Name of refrigeration system providing
! cool liquid to mechanical, needed for character comparison after systems read
INTEGER :: SubcoolerType = 0 ! Specifies subcooler type(0=liquid suction heat exchanger,1=mechanical)
INTEGER :: MechSourceSysID = 0 ! ID number of refrigeration system providing cool liquid to mechanical
REAL(r64) :: MechSCTransLoad = 0.0d0 ! Mechanical subcooler load transferred between suction groups, W
REAL(r64) :: MechSCTransEnergy = 0.0d0 ! Mechanical subcooler energy transferred between suction groups, W
REAL(r64) :: LiqSuctDesignDelT = 0.0d0 ! Liquid suction subcooler design subcooling, C
REAL(r64) :: LiqSuctDesignTliqIn = 0.0d0 ! Liquid suction subcooler design inlet temperature liquid, C
REAL(r64) :: LiqSuctDesignTvapIn = 0.0d0 ! Liquid suction subcooler design inlet temperature vapor, C
REAL(r64) :: MechControlTliqOut = 0.0d0 ! Mechanical subcooler design outlet temperature subcooled liquid, C
END TYPE SubcoolerData