TYPE WindowBlindProperties
CHARACTER(MaxNameLength+1) :: Name=' '
INTEGER :: MaterialNumber =0 ! Material pointer for the blind
! Input properties
INTEGER :: SlatOrientation=0 ! HORIZONTAL or VERTICAL
INTEGER :: SlatAngleType =FixedSlats ! FIXED or VARIABLE
REAL(r64) :: SlatWidth = 0.0d0 ! Slat width (m)
REAL(r64) :: SlatSeparation = 0.0d0 ! Slat separation (m)
REAL(r64) :: SlatThickness = 0.0d0 ! Slat thickness (m)
REAL(r64) :: SlatCrown = 0.0d0 ! the height of the slate (length from the chord to the curve)
REAL(r64) :: SlatAngle = 0.0d0 ! Slat angle (deg)
REAL(r64) :: MinSlatAngle = 0.0d0 ! Minimum slat angle for variable-angle slats (deg) (user input)
REAL(r64) :: MaxSlatAngle = 0.0d0 ! Maximum slat angle for variable-angle slats (deg) (user input)
REAL(r64) :: SlatConductivity = 0.0d0 ! Slat conductivity (W/m-K)
! Solar slat properties
REAL(r64) :: SlatTransSolBeamDiff = 0.0d0 ! Slat solar beam-diffuse transmittance
REAL(r64) :: SlatFrontReflSolBeamDiff = 0.0d0 ! Slat front solar beam-diffuse reflectance
REAL(r64) :: SlatBackReflSolBeamDiff = 0.0d0 ! Slat back solar beam-diffuse reflectance
REAL(r64) :: SlatTransSolDiffDiff = 0.0d0 ! Slat solar diffuse-diffuse transmittance
REAL(r64) :: SlatFrontReflSolDiffDiff = 0.0d0 ! Slat front solar diffuse-diffuse reflectance
REAL(r64) :: SlatBackReflSolDiffDiff = 0.0d0 ! Slat back solar diffuse-diffuse reflectance
! Visible slat properties
REAL(r64) :: SlatTransVisBeamDiff = 0.0d0 ! Slat visible beam-diffuse transmittance
REAL(r64) :: SlatFrontReflVisBeamDiff = 0.0d0 ! Slat front visible beam-diffuse reflectance
REAL(r64) :: SlatBackReflVisBeamDiff = 0.0d0 ! Slat back visible beam-diffuse reflectance
REAL(r64) :: SlatTransVisDiffDiff = 0.0d0 ! Slat visible diffuse-diffuse transmittance
REAL(r64) :: SlatFrontReflVisDiffDiff = 0.0d0 ! Slat front visible diffuse-diffuse reflectance
REAL(r64) :: SlatBackReflVisDiffDiff = 0.0d0 ! Slat back visible diffuse-diffuse reflectance
! Long-wave (IR) slat properties
REAL(r64) :: SlatTransIR = 0.0d0 ! Slat IR transmittance
REAL(r64) :: SlatFrontEmissIR = 0.0d0 ! Slat front emissivity
REAL(r64) :: SlatBackEmissIR = 0.0d0 ! Slat back emissivity
! Some characteristics for blind thermal calculation
REAL(r64) :: BlindToGlassDist = 0.0d0 ! Distance between window shade and adjacent glass (m)
REAL(r64) :: BlindTopOpeningMult = 0.0d0 ! Area of air-flow opening at top of blind, expressed as a fraction
! of the blind-to-glass opening area at the top of the blind
REAL(r64) :: BlindBottomOpeningMult = 0.0d0 ! Area of air-flow opening at bottom of blind, expressed as a fraction
! of the blind-to-glass opening area at the bottom of the blind
REAL(r64) :: BlindLeftOpeningMult = 0.0d0 ! Area of air-flow opening at left side of blind, expressed as a fraction
! of the blind-to-glass opening area at the left side of the blind
REAL(r64) :: BlindRightOpeningMult = 0.0d0 ! Area of air-flow opening at right side of blind, expressed as a fraction
! of the blind-to-glass opening area at the right side of the blind
! Calculated blind properties
! Blind solar properties
REAL(r64), DIMENSION(37,MaxSlatAngs) :: SolFrontBeamBeamTrans= 0.0d0 ! Blind solar front beam-beam transmittance vs.
! profile angle, slat angle
REAL(r64), DIMENSION(37,MaxSlatAngs) :: SolFrontBeamBeamRefl = 0.0d0 ! Blind solar front beam-beam reflectance vs. profile angle,
! slat angle (zero)
REAL(r64), DIMENSION(37,MaxSlatAngs) :: SolBackBeamBeamTrans = 0.0d0 ! Blind solar back beam-beam transmittance vs. profile angle,
! slat angle
REAL(r64), DIMENSION(37,MaxSlatAngs) :: SolBackBeamBeamRefl = 0.0d0 ! Blind solar back beam-beam reflectance vs. profile angle,
! slat angle (zero)
REAL(r64), DIMENSION(37,MaxSlatAngs) :: SolFrontBeamDiffTrans= 0.0d0 ! Blind solar front beam-diffuse transmittance
! vs. profile angle, slat angle
REAL(r64), DIMENSION(37,MaxSlatAngs) :: SolFrontBeamDiffRefl = 0.0d0 ! Blind solar front beam-diffuse reflectance
! vs. profile angle, slat angle
REAL(r64), DIMENSION(37,MaxSlatAngs) :: SolBackBeamDiffTrans = 0.0d0 ! Blind solar back beam-diffuse transmittance
! vs. profile angle, slat angle
REAL(r64), DIMENSION(37,MaxSlatAngs) :: SolBackBeamDiffRefl = 0.0d0 ! Blind solar back beam-diffuse reflectance
! vs. profile angle, slat angle
REAL(r64), DIMENSION(MaxSlatAngs) :: SolFrontDiffDiffTrans = 0.0d0 ! Blind solar front diffuse-diffuse transmittance
! vs. slat angle
REAL(r64), DIMENSION(MaxSlatAngs) :: SolFrontDiffDiffTransGnd= 0.0d0 ! Blind ground solar front diffuse-diffuse transmittance
! vs. slat angle
REAL(r64), DIMENSION(MaxSlatAngs) :: SolFrontDiffDiffTransSky= 0.0d0 ! Blind sky solar front diffuse-diffuse transmittance
! vs. slat angle
REAL(r64), DIMENSION(MaxSlatAngs) :: SolFrontDiffDiffRefl = 0.0d0 ! Blind solar front diffuse-diffuse reflectance
! vs. slat angle
REAL(r64), DIMENSION(MaxSlatAngs) :: SolFrontDiffDiffReflGnd = 0.0d0 ! Blind ground solar front diffuse-diffuse reflectance
! vs. slat angle
REAL(r64), DIMENSION(MaxSlatAngs) :: SolFrontDiffDiffReflSky = 0.0d0 ! Blind sky solar front diffuse-diffuse reflectance
! vs. slat angle
REAL(r64), DIMENSION(MaxSlatAngs) :: SolBackDiffDiffTrans = 0.0d0 ! Blind solar back diffuse-diffuse transmittance
! vs. slat angle
REAL(r64), DIMENSION(MaxSlatAngs) :: SolBackDiffDiffRefl = 0.0d0 ! Blind solar back diffuse-diffuse reflectance
! vs. slat angle
REAL(r64), DIMENSION(37,MaxSlatAngs) :: SolFrontBeamAbs = 0.0d0 ! Blind solar front beam absorptance vs. slat angle
REAL(r64), DIMENSION(37,MaxSlatAngs) :: SolBackBeamAbs = 0.0d0 ! Blind solar back beam absorptance vs. slat angle
REAL(r64), DIMENSION(MaxSlatAngs) :: SolFrontDiffAbs = 0.0d0 ! Blind solar front diffuse absorptance vs. slat angle
REAL(r64), DIMENSION(MaxSlatAngs) :: SolFrontDiffAbsGnd = 0.0d0 ! Blind ground solar front diffuse absorptance vs. slat angle
REAL(r64), DIMENSION(MaxSlatAngs) :: SolFrontDiffAbsSky = 0.0d0 ! Blind sky solar front diffuse absorptance vs. slat angle
REAL(r64), DIMENSION(MaxSlatAngs) :: SolBackDiffAbs = 0.0d0 ! Blind solar back diffuse absorptance vs. slat angle
! Blind visible properties
REAL(r64), DIMENSION(37,MaxSlatAngs) :: VisFrontBeamBeamTrans= 0.0d0 ! Blind visible front beam-beam transmittance
! vs. profile angle, slat angle
REAL(r64), DIMENSION(37,MaxSlatAngs) :: VisFrontBeamBeamRefl = 0.0d0 ! Blind visible front beam-beam reflectance
! vs. profile angle, slat angle (zero)
REAL(r64), DIMENSION(37,MaxSlatAngs) :: VisBackBeamBeamTrans = 0.0d0 ! Blind visible back beam-beam transmittance
! vs. profile angle, slat angle
REAL(r64), DIMENSION(37,MaxSlatAngs) :: VisBackBeamBeamRefl = 0.0d0 ! Blind visible back beam-beam reflectance
! vs. profile angle, slat angle (zero)
REAL(r64), DIMENSION(37,MaxSlatAngs) :: VisFrontBeamDiffTrans= 0.0d0 ! Blind visible front beam-diffuse transmittance
! vs. profile angle, slat angle
REAL(r64), DIMENSION(37,MaxSlatAngs) :: VisFrontBeamDiffRefl = 0.0d0 ! Blind visible front beam-diffuse reflectance
! vs. profile angle, slat angle
REAL(r64), DIMENSION(37,MaxSlatAngs) :: VisBackBeamDiffTrans = 0.0d0 ! Blind visible back beam-diffuse transmittance
! vs. profile angle, slat angle
REAL(r64), DIMENSION(37,MaxSlatAngs) :: VisBackBeamDiffRefl = 0.0d0 ! Blind visible back beam-diffuse reflectance
! vs. profile angle, slat angle
REAL(r64), DIMENSION(MaxSlatAngs) :: VisFrontDiffDiffTrans = 0.0d0 ! Blind visible front diffuse-diffuse transmittance
! vs. slat angle
REAL(r64), DIMENSION(MaxSlatAngs) :: VisFrontDiffDiffRefl = 0.0d0 ! Blind visible front diffuse-diffuse reflectance
! vs. slat angle
REAL(r64), DIMENSION(MaxSlatAngs) :: VisBackDiffDiffTrans = 0.0d0 ! Blind visible back diffuse-diffuse transmittance
! vs. slat angle
REAL(r64), DIMENSION(MaxSlatAngs) :: VisBackDiffDiffRefl = 0.0d0 ! Blind visible back diffuse-diffuse reflectance
! vs. slat angle
! Long-wave (IR) blind properties
REAL(r64), DIMENSION(MaxSlatAngs) :: IRFrontTrans = 0.0d0 ! Blind IR front transmittance vs. slat angle
REAL(r64), DIMENSION(MaxSlatAngs) :: IRFrontEmiss = 0.0d0 ! Blind IR front emissivity vs. slat angle
REAL(r64), DIMENSION(MaxSlatAngs) :: IRBackTrans = 0.0d0 ! Blind IR back transmittance vs. slat angle
REAL(r64), DIMENSION(MaxSlatAngs) :: IRBackEmiss = 0.0d0 ! Blind IR back emissivity vs. slat angle
END TYPE WindowBlindProperties