Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
character(len=MaxNameLength), | public | :: | Name | = | ' ' | ||
character(len=MaxNameLength), | public | :: | WatertoWaterHPType | = | ' ' | ||
integer, | public | :: | WWHPPlantTypeOfNum | = | 0 | ||
logical, | public | :: | Available | = | .false. | ||
logical, | public | :: | ON | = | .false. | ||
logical, | public | :: | IsOn | = | .false. | ||
logical, | public | :: | MustRun | = | .false. | ||
real(kind=r64), | public | :: | SourceSideDesignMassFlow | = | 0.d0 | ||
real(kind=r64), | public | :: | LoadSideDesignMassFlow | = | 0.d0 | ||
real(kind=r64), | public | :: | RatedLoadVolFlowCool | = | 0.0d0 | ||
real(kind=r64), | public | :: | RatedSourceVolFlowCool | = | 0.0d0 | ||
real(kind=r64), | public | :: | RatedCapCool | = | 0.0d0 | ||
real(kind=r64), | public | :: | RatedPowerCool | = | 0.0d0 | ||
real(kind=r64), | public | :: | CoolCap1 | = | 0.0d0 | ||
real(kind=r64), | public | :: | CoolCap2 | = | 0.0d0 | ||
real(kind=r64), | public | :: | CoolCap3 | = | 0.0d0 | ||
real(kind=r64), | public | :: | CoolCap4 | = | 0.0d0 | ||
real(kind=r64), | public | :: | CoolCap5 | = | 0.0d0 | ||
real(kind=r64), | public | :: | CoolPower1 | = | 0.0d0 | ||
real(kind=r64), | public | :: | CoolPower2 | = | 0.0d0 | ||
real(kind=r64), | public | :: | CoolPower3 | = | 0.0d0 | ||
real(kind=r64), | public | :: | CoolPower4 | = | 0.0d0 | ||
real(kind=r64), | public | :: | CoolPower5 | = | 0.0d0 | ||
integer, | public | :: | CoolCapNegativeCounter | = | 0 | ||
integer, | public | :: | CoolCapNegativeIndex | = | 0 | ||
integer, | public | :: | CoolPowerNegativeCounter | = | 0 | ||
integer, | public | :: | CoolPowerNegativeIndex | = | 0 | ||
real(kind=r64), | public | :: | RatedLoadVolFlowHeat | = | 0.0d0 | ||
real(kind=r64), | public | :: | RatedSourceVolFlowHeat | = | 0.0d0 | ||
real(kind=r64), | public | :: | RatedCapHeat | = | 0.0d0 | ||
real(kind=r64), | public | :: | RatedPowerHeat | = | 0.0d0 | ||
real(kind=r64), | public | :: | HeatCap1 | = | 0.0d0 | ||
real(kind=r64), | public | :: | HeatCap2 | = | 0.0d0 | ||
real(kind=r64), | public | :: | HeatCap3 | = | 0.0d0 | ||
real(kind=r64), | public | :: | HeatCap4 | = | 0.0d0 | ||
real(kind=r64), | public | :: | HeatCap5 | = | 0.0d0 | ||
real(kind=r64), | public | :: | HeatPower1 | = | 0.0d0 | ||
real(kind=r64), | public | :: | HeatPower2 | = | 0.0d0 | ||
real(kind=r64), | public | :: | HeatPower3 | = | 0.0d0 | ||
real(kind=r64), | public | :: | HeatPower4 | = | 0.0d0 | ||
real(kind=r64), | public | :: | HeatPower5 | = | 0.0d0 | ||
integer, | public | :: | LoadSideInletNodeNum | = | 0 | ||
integer, | public | :: | LoadSideOutletNodeNum | = | 0 | ||
integer, | public | :: | SourceSideInletNodeNum | = | 0 | ||
integer, | public | :: | SourceSideOutletNodeNum | = | 0 | ||
integer, | public | :: | HeatCapNegativeCounter | = | 0 | ||
integer, | public | :: | HeatCapNegativeIndex | = | 0 | ||
integer, | public | :: | HeatPowerNegativeCounter | = | 0 | ||
integer, | public | :: | HeatPowerNegativeIndex | = | 0 | ||
integer, | public | :: | SourceLoopNum | = | 0 | ||
integer, | public | :: | SourceLoopSideNum | = | 0 | ||
integer, | public | :: | SourceBranchNum | = | 0 | ||
integer, | public | :: | SourceCompNum | = | 0 | ||
integer, | public | :: | LoadLoopNum | = | 0 | ||
integer, | public | :: | LoadLoopSideNum | = | 0 | ||
integer, | public | :: | LoadBranchNum | = | 0 | ||
integer, | public | :: | LoadCompNum | = | 0 |
TYPE GshpSpecs
CHARACTER(len=MaxNameLength) :: Name = ' ' ! user identifier
INTEGER :: WWHPPlantTypeOfNum = 0 ! equipment type num
LOGICAL :: Available = .false. ! need an array of logicals--load identifiers of available equipment
LOGICAL :: ON = .false. ! simulate the machine at it's operating part load ratio
REAL(r64) :: COP = 0.0d0 ! Coefficient of Performance of the machine
REAL(r64) :: NomCap = 0.0d0 ! Nominal Capcity of the HeatPump
REAL(r64) :: MinPartLoadRat = 0.0d0 ! Minimum operating Part Load Ratio
REAL(r64) :: MaxPartLoadRat = 0.0d0 ! Maximum operating Part Load Ratio
REAL(r64) :: OptPartLoadRat = 0.0d0 ! Optimal operating Part Load Ratio
REAL(r64) :: LoadSideVolFlowRate = 0.0d0 ! Design Flow Rate on the Load side m3/sec
REAL(r64) :: LoadSideDesignMassFlow = 0.d0 ! Design flow rate (kg/s)
REAL(r64) :: SourceSideVolFlowRate = 0.0d0 ! Design Flow Rate on th Source Side m3/sec
REAL(r64) :: SourceSideDesignMassFlow = 0.d0 ! Design flow rate (kg/s)
INTEGER :: SourceSideInletNodeNum = 0 ! Node number on the inlet side of the plant
INTEGER :: SourceSideOutletNodeNum = 0 ! Node number on the outlet side of the plant
INTEGER :: LoadSideInletNodeNum = 0 ! Node number on the inlet side of the Load Side
INTEGER :: LoadSideOutletNodeNum = 0 ! Node number on the outlet side of the Load Side
REAL(r64) :: SourceSideUACoeff = 0.0d0 ! Source Side heat transfer coeff W/K
REAL(r64) :: LoadSideUACoeff = 0.0d0 ! Load Side heat transfer coeff W/K
REAL(r64) :: CompPistonDisp = 0.0d0 ! compressor piston displacement m3
REAL(r64) :: CompClearanceFactor = 0.0d0 ! compressor clearance factor
REAL(r64) :: CompSucPressDrop = 0.0d0 ! deltap , compressor suction and discharge pressure drop Pascals
REAL(r64) :: SuperheatTemp = 0.0d0 ! deltatsh , super heating °C
REAL(r64) :: PowerLosses = 0.0d0 ! constant part of electro mechanical power losses watts Joules/sec
REAL(r64) :: LossFactor = 0.0d0 ! loss factor used ot define the electro mechanical
! loss that is supposed to be proportional to the theoretical power
REAL(r64) :: HighPressCutOff = 0.0d0 ! Maximum Design Pressure on the Load Side Pascals
REAL(r64) :: LowPressCutOff = 0.0d0 ! Minimum Design Pressure on the Source Side Pascals
! Added by Arun 6-27-02
! to implement cycletime - removed 9/10/2013 LKL
LOGICAL :: IsOn = .false.
LOGICAL :: MustRun = .false.
!loop topology variables
INTEGER :: SourceLoopNum = 0 ! source side plant loop index number
INTEGER :: SourceLoopSideNum = 0 ! source side plant loop side index
INTEGER :: SourceBranchNum = 0 ! source side plant loop branch index
INTEGER :: SourceCompNum = 0 ! source side plant loop component index
INTEGER :: LoadLoopNum = 0 ! load side plant loop index number
INTEGER :: LoadLoopSideNum = 0 ! load side plant loop side index
INTEGER :: LoadBranchNum = 0 ! load side plant loop branch index
INTEGER :: LoadCompNum = 0 ! load side plant loop component index
END TYPE GshpSpecs