TYPE InfiltrationData
CHARACTER(len=MaxNameLength) :: Name =' '
INTEGER :: ZonePtr = 0 ! Which zone infiltration is in
INTEGER :: SchedPtr = 0 ! Schedule for infiltration
INTEGER :: ModelType = 0 ! which model is used for infiltration
! Design Flow Rate model terms
REAL(r64) :: DesignLevel =0.0D0
REAL(r64) :: ConstantTermCoef =0.0D0
REAL(r64) :: TemperatureTermCoef =0.0D0
REAL(r64) :: VelocityTermCoef =0.0D0
REAL(r64) :: VelocitySQTermCoef =0.0D0
! Effective Leakage Area, Sherman Grimsrud terms
REAL(r64) :: LeakageArea =0.0D0 ! "AL" effective air leakage area
REAL(r64) :: BasicStackCoefficient =0.0D0 ! "Cs" Stack coefficient
REAL(r64) :: BasicWindCoefficient =0.0D0 ! "Cw" wind coefficient
! Flow Coefficient, AIM-2, Walker and Wilson terms
REAL(r64) :: FlowCoefficient =0.0D0 ! "c" Flow coefficient
REAL(r64) :: AIM2StackCoefficient =0.0D0 ! "Cs" stack coefficient
REAL(r64) :: AIM2WindCoefficient =0.0D0 ! "Cw" wind coefficient
REAL(r64) :: PressureExponent =0.0D0 ! "n" pressure power law exponent
REAL(r64) :: ShelterFactor =0.0D0 ! "s" shelter factor
LOGICAL :: EMSOverrideOn = .FALSE. ! if true then EMS is requesting to override
REAL(r64) :: EMSAirFlowRateValue = 0.0D0 ! value EMS is setting for air flow rate
LOGICAL :: QuadratureSum = .FALSE. ! If quadrature sum of zone air balance method is used
INTEGER :: OABalancePtr =0 ! A pointer to ZoneAirBalance If quadrature is true
END TYPE InfiltrationData