TYPE SurfaceScreenProperties
INTEGER :: MaterialNumber =0 ! Material pointer for the screen
REAL(r64) :: BmBmTrans = 0.0d0 ! Beam solar transmittance (dependent on sun angle)
! (this value can include scattering if the user so chooses)
REAL(r64) :: BmBmTransBack = 0.0d0 ! Beam solar transmittance (dependent on sun angle) from back side of screen
REAL(r64) :: BmBmTransVis = 0.0d0 ! Visible solar transmittance (dependent on sun angle)
! (this value can include visible scattering if the user so chooses)
REAL(r64) :: BmDifTrans = 0.0d0 ! Beam solar transmitted as diffuse radiation (dependent on sun angle)
REAL(r64) :: BmDifTransBack = 0.0d0 ! Beam solar transmitted as diffuse radiation (dependent on sun angle) from back side
REAL(r64) :: BmDifTransVis = 0.0d0 ! Visible solar transmitted as diffuse radiation (dependent on sun angle)
! The following reflectance properties are dependent on sun angle:
REAL(r64) :: ReflectSolBeamFront = 0.0d0 ! Beam solar reflected as diffuse radiation when sun is in front of screen
REAL(r64) :: ReflectVisBeamFront = 0.0d0 ! Visible solar reflected as diffuse radiation when sun is in front of screen
REAL(r64) :: ReflectSolBeamBack = 0.0d0 ! Beam solar reflected as diffuse radiation when sun is in back of screen
REAL(r64) :: ReflectVisBeamBack = 0.0d0 ! Visible solar reflected as diffuse radiation when sun is in back of screen
REAL(r64) :: AbsorpSolarBeamFront = 0.0d0 ! Front surface solar beam absorptance
REAL(r64) :: AbsorpSolarBeamBack = 0.0d0 ! Back surface solar beam absorptance
REAL(r64) :: DifDifTrans = 0.0d0 ! Back surface diffuse solar transmitted
REAL(r64) :: DifDifTransVis = 0.0d0 ! Back surface diffuse visible solar transmitted
REAL(r64) :: DifScreenAbsorp = 0.0d0 ! Absorption of diffuse radiation
REAL(r64) :: DifReflect = 0.0d0 ! Back reflection of solar diffuse radiation
REAL(r64) :: DifReflectVis = 0.0d0 ! Back reflection of visible diffuse radiation
REAL(r64) :: ReflectScreen = 0.0d0 ! Screen assembly solar reflectance (user input adjusted for holes in screen)
REAL(r64) :: ReflectScreenVis = 0.0d0 ! Screen assembly visible reflectance (user input adjusted for holes in screen)
REAL(r64) :: ReflectCylinder = 0.0d0 ! Screen material solar reflectance (user input, does not account for holes in screen)
REAL(r64) :: ReflectCylinderVis = 0.0d0 ! Screen material visible reflectance (user input, does not account for holes in screen)
REAL(r64) :: ScreenDiameterToSpacingRatio = 0.0d0 ! ratio of screen material diameter to screen material spacing
INTEGER :: ScreenBeamReflectanceAccounting = 0 ! user specified method of accounting for scattered solar beam
END TYPE SurfaceScreenProperties