Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
character(len=MaxNameLength), | public | :: | Name | = | Blank | ||
character(len=MaxNameLength), | public | :: | Construction | = | Blank | ||
character(len=MaxNameLength), | public | :: | Environment | = | Blank | ||
character(len=MaxNameLength), | public | :: | EnvrSchedule | = | Blank | ||
character(len=MaxNameLength), | public | :: | EnvrVelSchedule | = | Blank | ||
character(len=MaxNameLength), | public | :: | EnvrZone | = | Blank | ||
character(len=MaxNameLength), | public | :: | EnvrAirNode | = | Blank | ||
real(kind=r64), | public | :: | Length | = | 0.0d0 | ||
real(kind=r64), | public | :: | PipeID | = | 0.0d0 | ||
character(len=MaxNameLength), | public | :: | InletNode | = | Blank | ||
character(len=MaxNameLength), | public | :: | OutletNode | = | Blank | ||
integer, | public | :: | InletNodeNum | = | 0 | ||
integer, | public | :: | OutletNodeNum | = | 0 | ||
integer, | public | :: | TypeOf | = | 0 | ||
integer, | public | :: | ConstructionNum | = | 0 | ||
integer, | public | :: | EnvironmentPtr | = | 0 | ||
integer, | public | :: | EnvrSchedPtr | = | 0 | ||
integer, | public | :: | EnvrVelSchedPtr | = | 0 | ||
integer, | public | :: | EnvrZonePtr | = | 0 | ||
integer, | public | :: | EnvrAirNodeNum | = | 0 | ||
integer, | public | :: | NumSections | = | 0 | ||
real(kind=r64), | public | :: | FluidSpecHeat | = | 0.0d0 | ||
real(kind=r64), | public | :: | FluidDensity | = | 0.0d0 | ||
real(kind=r64), | public | :: | MaxFlowRate | = | 0.0d0 | ||
real(kind=r64), | public | :: | FluidSectionVol | = | 0.0d0 | ||
real(kind=r64), | public | :: | InsideArea | = | 0.0d0 | ||
real(kind=r64), | public | :: | OutsideArea | = | 0.0d0 | ||
real(kind=r64), | public | :: | SectionArea | = | 0.0d0 | ||
real(kind=r64), | public | :: | PipeHeatCapacity | = | 0.0d0 | ||
real(kind=r64), | public | :: | PipeOD | = | 0.0d0 | ||
real(kind=r64), | public | :: | PipeCp | = | 0.0d0 | ||
real(kind=r64), | public | :: | PipeDensity | = | 0.0d0 | ||
real(kind=r64), | public | :: | PipeConductivity | = | 0.0d0 | ||
real(kind=r64), | public | :: | InsulationOD | = | 0.0d0 | ||
real(kind=r64), | public | :: | InsulationCp | = | 0.0d0 | ||
real(kind=r64), | public | :: | InsulationDensity | = | 0.0d0 | ||
real(kind=r64), | public | :: | InsulationConductivity | = | 0.0d0 | ||
real(kind=r64), | public | :: | InsulationThickness | = | 0.0d0 | ||
real(kind=r64), | public | :: | InsulationResistance | = | 0.0d0 | ||
real(kind=r64), | public | :: | CurrentSimTime | = | 0.0d0 | ||
real(kind=r64), | public | :: | PreviousSimTime | = | 0.0d0 | ||
real(kind=r64), | public, | ALLOCATABLE, DIMENSION(:) | :: | TentativeFluidTemp | |||
real(kind=r64), | public, | ALLOCATABLE, DIMENSION(:) | :: | FluidTemp | |||
real(kind=r64), | public, | ALLOCATABLE, DIMENSION(:) | :: | PreviousFluidTemp | |||
real(kind=r64), | public, | ALLOCATABLE, DIMENSION(:) | :: | TentativePipeTemp | |||
real(kind=r64), | public, | ALLOCATABLE, DIMENSION(:) | :: | PipeTemp | |||
real(kind=r64), | public, | ALLOCATABLE, DIMENSION(:) | :: | PreviousPipeTemp | |||
integer, | public | :: | NumDepthNodes | = | 0 | ||
integer, | public | :: | PipeNodeDepth | = | 0 | ||
integer, | public | :: | PipeNodeWidth | = | 0 | ||
real(kind=r64), | public | :: | PipeDepth | = | 0.0d0 | ||
real(kind=r64), | public | :: | DomainDepth | = | 0.0d0 | ||
real(kind=r64), | public | :: | dSregular | = | 0.0d0 | ||
real(kind=r64), | public | :: | OutdoorConvCoef | = | 0.0d0 | ||
character(len=MaxNameLength), | public | :: | SoilMaterial | = | Blank | ||
integer, | public | :: | SoilMaterialNum | = | 0 | ||
integer, | public | :: | MonthOfMinSurfTemp | = | 0 | ||
real(kind=r64), | public | :: | AvgGroundTemp | = | 0.0d0 | ||
real(kind=r64), | public | :: | AvgGndTempAmp | = | 0.0d0 | ||
integer, | public | :: | PhaseShiftDays | = | 0 | ||
real(kind=r64), | public | :: | MinSurfTemp | = | 0.0d0 | ||
real(kind=r64), | public | :: | SoilDensity | = | 0.0d0 | ||
real(kind=r64), | public | :: | SoilDepth | = | 0.0d0 | ||
real(kind=r64), | public | :: | SoilCp | = | 0.0d0 | ||
real(kind=r64), | public | :: | SoilConductivity | = | 0.0d0 | ||
real(kind=r64), | public | :: | SoilRoughness | = | 0.0d0 | ||
real(kind=r64), | public | :: | SoilThermAbs | = | 0.0d0 | ||
real(kind=r64), | public | :: | SoilSolarAbs | = | 0.0d0 | ||
real(kind=r64), | public | :: | CoefS1 | = | 0.0d0 | ||
real(kind=r64), | public | :: | CoefS2 | = | 0.0d0 | ||
real(kind=r64), | public | :: | CoefA1 | = | 0.0d0 | ||
real(kind=r64), | public | :: | CoefA2 | = | 0.0d0 | ||
real(kind=r64), | public | :: | FourierDS | = | 0.0d0 | ||
real(kind=r64), | public | :: | SoilDiffusivity | = | 0.0d0 | ||
real(kind=r64), | public | :: | SoilDiffusivityPerDay | = | 0.0d0 | ||
integer, | public | :: | AvgAnnualManualInput | = | 0 | ||
real(kind=r64), | public, | ALLOCATABLE, DIMENSION(:,:,:,:) | :: | T | |||
logical, | public | :: | BeginSimInit | = | .TRUE. | ||
logical, | public | :: | BeginSimEnvrn | = | .TRUE. | ||
logical, | public | :: | FirstHVACupdateFlag | = | .TRUE. | ||
logical, | public | :: | BeginEnvrnupdateFlag | = | .TRUE. | ||
logical, | public | :: | SolarExposed | = | .TRUE. | ||
real(kind=r64), | public | :: | SumTK | = | 0.0d0 | ||
real(kind=r64), | public | :: | ZoneHeatGainRate | = | 0.0d0 | ||
integer, | public | :: | LoopNum | = | 0 | ||
integer, | public | :: | LoopSideNum | = | 0 | ||
integer, | public | :: | BranchNum | = | 0 | ||
integer, | public | :: | CompNum | = | 0 | ||
logical, | public | :: | CheckEquipName | = | .TRUE. |
TYPE PipeHTData
! Input data
CHARACTER(len=MaxNameLength) :: Name = Blank ! name of the component
CHARACTER(len=MaxNameLength) :: Construction = Blank ! construction object name
CHARACTER(len=MaxNameLength) :: Environment = Blank ! keyword: 'Schedule', 'OutdoorAir', 'Zone'
CHARACTER(len=MaxNameLength) :: EnvrSchedule = Blank ! temperature schedule for environmental temp
CHARACTER(len=MaxNameLength) :: EnvrVelSchedule = Blank ! temperature schedule for environmental temp
CHARACTER(len=MaxNameLength) :: EnvrZone = Blank ! zone providing environmental temp
CHARACTER(len=MaxNameLength) :: EnvrAirNode = Blank ! outside air node providing environmental temp
REAL(r64) :: Length =0.0d0 ! total pipe length [m]
REAL(r64) :: PipeID =0.0d0 ! pipe inside diameter [m]
CHARACTER(len=MaxNameLength) :: InletNode = Blank ! inlet node name
CHARACTER(len=MaxNameLength) :: OutletNode = Blank ! outlet node name
INTEGER :: InletNodeNum =0 ! inlet node number
INTEGER :: OutletNodeNum =0 ! outlet node number
INTEGER :: TypeOf =0 ! Type of pipe
! derived data
INTEGER :: ConstructionNum =0 ! construction ref number
INTEGER :: EnvironmentPtr =0
INTEGER :: EnvrSchedPtr =0 ! pointer to schedule used to set environmental temp
INTEGER :: EnvrVelSchedPtr =0 ! pointer to schedule used to set environmental temp
INTEGER :: EnvrZonePtr =0 ! pointer to zone number used to set environmental temp
INTEGER :: EnvrAirNodeNum =0 ! pointer to outside air node used to set environmental temp
INTEGER :: NumSections =0 ! total number of nodes along pipe length
REAL(r64) :: FluidSpecHeat =0.0d0 ! fluid Cp [J/kg.K]
REAL(r64) :: FluidDensity =0.0d0 ! density [kg/m3]
REAL(r64) :: MaxFlowRate =0.0d0 ! max flow rate (from loop/node data)
REAL(r64) :: FluidSectionVol =0.0d0 ! volume of each pipe section (node) [m^3]
REAL(r64) :: InsideArea =0.0d0 ! pipe section inside surface area [m^2]
REAL(r64) :: OutsideArea =0.0d0 ! pipe section outside surface area [m^2]
REAL(r64) :: SectionArea =0.0d0 ! cross sectional area [m^2]
REAL(r64) :: PipeHeatCapacity =0.0d0 ! heat capacity of pipe section [J/m.K]
REAL(r64) :: PipeOD =0.0d0 ! pipe outside diameter [m]
REAL(r64) :: PipeCp =0.0d0 ! pipe materail Cp [J/kg.K]
REAL(r64) :: PipeDensity =0.0d0 ! pipe material density [kg/m3]
REAL(r64) :: PipeConductivity =0.0d0 ! pipe material thermal conductivity [W/m.K]
REAL(r64) :: InsulationOD =0.0d0 ! insulation outside diameter [m]
REAL(r64) :: InsulationCp =0.0d0 ! insulation specific heat [J/kg.K]
REAL(r64) :: InsulationDensity =0.0d0 ! insulation density [kg/m3]
REAL(r64) :: InsulationConductivity=0.0d0 ! insulation conductivity [W/m.K]
REAL(r64) :: InsulationThickness =0.0d0 ! insulation thickness [m]
REAL(r64) :: InsulationResistance =0.0d0 ! Insulation thermal resistance [m2.K/W]
REAL(r64) :: CurrentSimTime =0.0d0 ! Current simulation time [hr]
REAL(r64) :: PreviousSimTime =0.0d0 ! simulation time the report data was last updated
REAL(r64), ALLOCATABLE, DIMENSION(:) :: TentativeFluidTemp
REAL(r64), ALLOCATABLE, DIMENSION(:) :: FluidTemp ! arrays for fluid and pipe temperatures at each node
REAL(r64), ALLOCATABLE, DIMENSION(:) :: PreviousFluidTemp
REAL(r64), ALLOCATABLE, DIMENSION(:) :: TentativePipeTemp
REAL(r64), ALLOCATABLE, DIMENSION(:) :: PipeTemp
REAL(r64), ALLOCATABLE, DIMENSION(:) :: PreviousPipeTemp
INTEGER :: NumDepthNodes =0 ! number of soil grid points in the depth direction
INTEGER :: PipeNodeDepth =0 ! soil depth grid point where pipe is located
INTEGER :: PipeNodeWidth =0 ! soil width grid point where pipe is located
REAL(r64) :: PipeDepth =0.0d0 ! pipe burial depth [m]
REAL(r64) :: DomainDepth =0.0d0 ! soil grid depth [m]
REAL(r64) :: dSregular =0.0d0 ! grid spacing in cartesian domain [m]
REAL(r64) :: OutdoorConvCoef =0.0d0 ! soil to air convection coefficient [W/m2.K]
CHARACTER(len=MaxNameLength) :: SoilMaterial =Blank ! name of soil material:regular object
INTEGER :: SoilMaterialNum =0 ! soil material index in material data structure
INTEGER :: MonthOfMinSurfTemp =0 ! month of minimum ground surface temperature
REAL(r64) :: AvgGroundTemp =0.0d0 ! annual average ground temperature [C]
REAL(r64) :: AvgGndTempAmp =0.0d0 ! annual average amplitude of gnd temp [C]
INTEGER :: PhaseShiftDays =0 ! shift of minimum gnd surf temp from 1/1 [days]
REAL(r64) :: MinSurfTemp =0.0d0 ! minimum annual surface temperature [C]
REAL(r64) :: SoilDensity =0.0d0 ! density of soil [kg/m3]
REAL(r64) :: SoilDepth =0.0d0 ! thickness of soil [m]
REAL(r64) :: SoilCp =0.0d0 ! specific heat of soil [J/kg.K]
REAL(r64) :: SoilConductivity =0.0d0 ! thermal conductivity of soil [W/m.K]
REAL(r64) :: SoilRoughness =0.0d0 ! ground surface roughness
REAL(r64) :: SoilThermAbs =0.0d0 ! ground surface thermal absorptivity
REAL(r64) :: SoilSolarAbs =0.0d0 ! ground surface solar absorptivity
REAL(r64) :: CoefS1 =0.0d0 ! soil surface finite difference coefficient
REAL(r64) :: CoefS2 =0.0d0 ! soil surface finite difference coefficient
REAL(r64) :: CoefA1 =0.0d0 ! soil finite difference coefficient
REAL(r64) :: CoefA2 =0.0d0 ! soil finite difference coefficient
REAL(r64) :: FourierDS =0.0d0 ! soil Fourier number based on grid spacing
REAL(r64) :: SoilDiffusivity =0.0d0 ! soil thermal diffusivity [m2/s]
REAL(r64) :: SoilDiffusivityPerDay =0.0d0 ! soil thermal diffusivity [m2/day]
INTEGER :: AvgAnnualManualInput =0 ! flag for method of bringing in annual avg data yes-1 no-0
REAL(r64), ALLOCATABLE, DIMENSION(:,:,:,:) :: T ! soil temperature array
LOGICAL :: BeginSimInit =.TRUE. ! begin sim and begin environment flag
LOGICAL :: BeginSimEnvrn =.TRUE. ! begin sim and begin environment flag
LOGICAL :: FirstHVACupdateFlag =.TRUE.
LOGICAL :: BeginEnvrnupdateFlag =.TRUE.
LOGICAL :: SolarExposed =.TRUE. ! Flag to determine if solar is included at ground surface
REAL(r64) :: SumTK =0.0d0 ! Sum of thickness/conductivity over all material layers
REAL(r64) :: ZoneHeatGainRate =0.0d0 ! Lagged energy summation for zone heat gain {W}
INTEGER :: LoopNum =0 ! PlantLoop index where this pipe lies
INTEGER :: LoopSideNum =0 ! PlantLoop%LoopSide index where this pipe lies
INTEGER :: BranchNum =0 ! ..LoopSide%Branch index where this pipe lies
INTEGER :: CompNum =0 ! ..Branch%Comp index where this pipe lies
LOGICAL :: CheckEquipName =.TRUE.
END TYPE PipeHTData