DaylightingManager Module

Used By

Functions

CalcObstrMultiplier DayltgGlarePositionFactor DayltgSkyLuminance

Subroutines

DayltgAveInteriorReflectance CalcDayltgCoefficients CalcDayltgCoeffsRefMapPoints CalcDayltgCoeffsRefPoints CalcDayltgCoeffsMapPoints FigureDayltgCoeffsAtPointsSetupForWindow FigureDayltgCoeffsAtPointsForWindowElements InitializeCFSDaylighting InitializeCFSStateData AllocateForCFSRefPointsState AllocateForCFSRefPointsGeometry CFSRefPointSolidAngle CFSRefPointPosFactor FigureDayltgCoeffsAtPointsForSunPosition FigureRefPointDayltgFactorsToAddIllums FigureMapPointDayltgFactorsToAddIllums GetDaylightingParametersInput GetDaylightingParametersDetaild CheckTDDsAndLightShelvesInDaylitZones GetLightWellData DayltgGlare DayltgGlareWithIntWins DayltgExtHorizIllum DayltgCrossProduct DayltgPierceSurface DayltgHitObstruction DayltgHitInteriorObstruction DayltgHitBetWinObstruction DayltgInteriorIllum DayltgInteriorTDDIllum DayltgElecLightingControl DayltgInterReflectedIllum ComplexFenestrationLuminances DayltgInterReflectedIllumComplexFenestration DayltgDirectIllumComplexFenestration DayltgDirectSunDiskComplexFenestration ProfileAngle DayltgClosestObstruction DayltgSurfaceLumFromSun DayltgInteriorMapIllum ReportIllumMap CloseReportIllumMaps CloseDFSFile DayltgSetupAdjZoneListsAndPointers DayltgInterReflIllFrIntWins CalcMinIntWinSolidAngs CheckForGeometricTransform WriteDaylightMapTitle

Variables

Type	Visibility	Attributes		Name		Initial
integer,	public		::	TotWindowsWithDayl	=	0
integer,	private		::	OutputFileDFS	=	0
real(kind=r64),	private		::	DaylIllum(MaxRefPoints)	=	0.0d0
real(kind=r64),	private		::	PHSUN	=	0.0d0
real(kind=r64),	private		::	SPHSUN	=	0.0d0
real(kind=r64),	private		::	CPHSUN	=	0.0d0
real(kind=r64),	private		::	THSUN	=	0.0d0
real(kind=r64),	private		::	PHSUNHR(24)	=	0.0d0
real(kind=r64),	private		::	SPHSUNHR(24)	=	0.0d0
real(kind=r64),	private		::	CPHSUNHR(24)	=	0.0d0
real(kind=r64),	private		::	THSUNHR(24)	=	0.0d0
real(kind=r64),	private		::	EINTSK(4,MaxSlatAngs+1,24)	=	0.0d0
real(kind=r64),	private		::	EINTSU(MaxSlatAngs+1,24)	=	0.0d0
real(kind=r64),	private		::	EINTSUdisk(MaxSlatAngs+1,24)	=	0.0d0
real(kind=r64),	private		::	WLUMSK(4,MaxSlatAngs+1,24)	=	0.0d0
real(kind=r64),	private		::	WLUMSU(MaxSlatAngs+1,24)	=	0.0d0
real(kind=r64),	private		::	WLUMSUdisk(MaxSlatAngs+1,24)	=	0.0d0
real(kind=r64),	private		::	GILSK(4,24)	=	0.0d0
real(kind=r64),	private		::	GILSU(24)	=	0.0d0
real(kind=r64),	private		::	EDIRSK(4,MaxSlatAngs+1,24)
real(kind=r64),	private		::	EDIRSU(MaxSlatAngs+1,24)
real(kind=r64),	private		::	EDIRSUdisk(MaxSlatAngs+1,24)
real(kind=r64),	private		::	AVWLSK(4,MaxSlatAngs+1,24)
real(kind=r64),	private		::	AVWLSU(MaxSlatAngs+1,24)
real(kind=r64),	private		::	AVWLSUdisk(MaxSlatAngs+1,24)			Allocatable daylight factor arrays -- are in the ZoneDaylight Structure
real(kind=r64),	private,	ALLOCATABLE	::	TDDTransVisBeam(:,:)
real(kind=r64),	private,	ALLOCATABLE	::	TDDFluxInc(:,:,:)
real(kind=r64),	private,	ALLOCATABLE	::	TDDFluxTrans(:,:,:)
integer,	private,	ALLOCATABLE, DIMENSION(:,:)	::	MapErrIndex
integer,	private,	ALLOCATABLE, DIMENSION(:,:)	::	RefErrIndex
logical,	private,	ALLOCATABLE, DIMENSION(:)	::	CheckTDDZone
character(len=2500),	private		::	mapLine

Functions

private function CalcObstrMultiplier(GroundHitPt, AltSteps, AzimSteps)

Arguments

Type	Intent	Attributes		Name
real(kind=r64),	intent(in),	DIMENSION(3)	::	GroundHitPt
integer,	intent(in)		::	AltSteps
integer,	intent(in)		::	AzimSteps

Return Value real(kind=r64)

private function DayltgGlarePositionFactor(X, Y)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=r64)				::	X
real(kind=r64)				::	Y

Return Value real(kind=r64)

private function DayltgSkyLuminance(ISky, THSKY, PHSKY)

Arguments

Type		Name
integer	::	ISky
real(kind=r64)	::	THSKY
real(kind=r64)	::	PHSKY

Return Value real(kind=r64)

Subroutines

private subroutine DayltgAveInteriorReflectance(ZoneNum)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	ZoneNum

public subroutine CalcDayltgCoefficients()

Arguments

None

private subroutine CalcDayltgCoeffsRefMapPoints(ZoneNum)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ZoneNum

private subroutine CalcDayltgCoeffsRefPoints(ZoneNum)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ZoneNum

private subroutine CalcDayltgCoeffsMapPoints(ZoneNum)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ZoneNum

private subroutine FigureDayltgCoeffsAtPointsSetupForWindow(ZoneNum, iRefPoint, LoopWin, CalledFrom, RREF, VIEWVC, iWin, iWin2, NWX, NWY, W2, W3, W21, W23, LSHCAL, InShelfSurf, ICtrl, ShType, BlNum, WNORM2, ExtWinType, IConst, RREF2, DWX, DWY, DAXY, U2, U23, U21, VIEWVC2, Rectangle, Triangle, MapNum, MapWindowSolidAngAtRefPt, MapWindowSolidAngAtRefPtWtd)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ZoneNum
integer,	intent(in)			::	iRefPoint
integer,	intent(in)			::	LoopWin
integer,	intent(in)			::	CalledFrom
real(kind=r64),	intent(in),		DIMENSION(3)	::	RREF
real(kind=r64),	intent(in),		DIMENSION(3)	::	VIEWVC
integer,	intent(out)			::	iWin
integer,	intent(out)			::	iWin2
integer,	intent(out)			::	NWX
integer,	intent(out)			::	NWY
real(kind=r64),	intent(out),		DIMENSION(3)	::	W2
real(kind=r64),	intent(out),		DIMENSION(3)	::	W3
real(kind=r64),	intent(out),		DIMENSION(3)	::	W21
real(kind=r64),	intent(out),		DIMENSION(3)	::	W23
integer,	intent(out)			::	LSHCAL
integer,	intent(out)			::	InShelfSurf
integer,	intent(out)			::	ICtrl
integer,	intent(out)			::	ShType
integer,	intent(out)			::	BlNum
real(kind=r64),	intent(out),		DIMENSION(3)	::	WNORM2
integer,	intent(out)			::	ExtWinType
integer,	intent(out)			::	IConst
real(kind=r64),	intent(out),		DIMENSION(3)	::	RREF2
real(kind=r64),	intent(out)			::	DWX
real(kind=r64),	intent(out)			::	DWY
real(kind=r64),	intent(out)			::	DAXY
real(kind=r64),	intent(out),		DIMENSION(3)	::	U2
real(kind=r64),	intent(out),		DIMENSION(3)	::	U23
real(kind=r64),	intent(out),		DIMENSION(3)	::	U21
real(kind=r64),	intent(out),		DIMENSION(3)	::	VIEWVC2
logical,	intent(out)			::	Rectangle
logical,	intent(out)			::	Triangle
integer,	intent(in),	optional		::	MapNum
real(kind=r64),	intent(inout),	optional	DIMENSION(:,:)	::	MapWindowSolidAngAtRefPt
real(kind=r64),	intent(inout),	optional	DIMENSION(:,:)	::	MapWindowSolidAngAtRefPtWtd

private subroutine FigureDayltgCoeffsAtPointsForWindowElements(ZoneNum, iRefPoint, LoopWin, CalledFrom, WinEl, iWin, iWin2, iXelement, iYelement, SkyObstructionMult, W2, W21, W23, RREF, NWYlim, VIEWVC2, DWX, DWY, DAXY, U2, U23, U21, RWIN, RWIN2, RAY, PHRAY, LSHCAL, COSB, ObTrans, TVISB, DOMEGA, THRAY, IHitIntObs, IHitExtObs, WNORM2, ExtWinType, IConst, RREF2, Triangle, TVISIntWin, TVISIntWinDisk, MapNum, MapWindowSolidAngAtRefPt, MapWindowSolidAngAtRefPtWtd)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ZoneNum
integer,	intent(in)			::	iRefPoint
integer,	intent(in)			::	LoopWin
integer,	intent(in)			::	CalledFrom
integer,	intent(in)			::	WinEl
integer,	intent(in)			::	iWin
integer,	intent(in)			::	iWin2
integer,	intent(in)			::	iXelement
integer,	intent(in)			::	iYelement
real(kind=r64),	intent(inout)			::	SkyObstructionMult
real(kind=r64),	intent(in),		DIMENSION(3)	::	W2
real(kind=r64),	intent(in),		DIMENSION(3)	::	W21
real(kind=r64),	intent(in),		DIMENSION(3)	::	W23
real(kind=r64),	intent(in),		DIMENSION(3)	::	RREF
integer,	intent(in)			::	NWYlim
real(kind=r64),	intent(in),		DIMENSION(3)	::	VIEWVC2
real(kind=r64),	intent(in)			::	DWX
real(kind=r64),	intent(in)			::	DWY
real(kind=r64),	intent(in)			::	DAXY
real(kind=r64),	intent(in),		DIMENSION(3)	::	U2
real(kind=r64),	intent(in),		DIMENSION(3)	::	U23
real(kind=r64),	intent(in),		DIMENSION(3)	::	U21
real(kind=r64),	intent(out),		DIMENSION(3)	::	RWIN
real(kind=r64),	intent(out),		DIMENSION(3)	::	RWIN2
real(kind=r64),	intent(out),		DIMENSION(3)	::	RAY
real(kind=r64),	intent(out)			::	PHRAY
integer,	intent(inout)			::	LSHCAL
real(kind=r64),	intent(out)			::	COSB
real(kind=r64),	intent(out)			::	ObTrans
real(kind=r64),	intent(out)			::	TVISB
real(kind=r64),	intent(out)			::	DOMEGA
real(kind=r64),	intent(out)			::	THRAY
integer,	intent(out)			::	IHitIntObs
integer,	intent(out)			::	IHitExtObs
real(kind=r64),	intent(in),		DIMENSION(3)	::	WNORM2
integer,	intent(in)			::	ExtWinType
integer,	intent(in)			::	IConst
real(kind=r64),	intent(in),		DIMENSION(3)	::	RREF2
logical,	intent(in)			::	Triangle
real(kind=r64),	intent(inout)			::	TVISIntWin
real(kind=r64),	intent(inout)			::	TVISIntWinDisk
integer,	intent(in),	optional		::	MapNum
real(kind=r64),	intent(inout),	optional	DIMENSION(:,:)	::	MapWindowSolidAngAtRefPt
real(kind=r64),	intent(inout),	optional	DIMENSION(:,:)	::	MapWindowSolidAngAtRefPtWtd

private subroutine InitializeCFSDaylighting(ZoneNum, IWin, NWX, NWY, VIEWVC, RefPoint, NRefPts, iRefPoint, CalledFrom, MapNum)

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! Allocation for each complex fenestration state reference points !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ZoneNum
integer,	intent(in)			::	IWin
integer,	intent(in)			::	NWX
integer,	intent(in)			::	NWY
real(kind=r64),	intent(in),		dimension(3)	::	VIEWVC
real(kind=r64),	intent(in),		dimension(3)	::	RefPoint
integer,	intent(in)			::	NRefPts
integer,	intent(in)			::	iRefPoint
integer,	intent(in)			::	CalledFrom
integer,	intent(in),	optional		::	MapNum

private subroutine InitializeCFSStateData(StateRefPoint, DaylghtGeomDescr, ZoneNum, iWin, RefPoint, curFenState, NBasis, NTrnBasis, AZVIEW, NWX, NWY, W2, W21, W23, DWX, DWY, WNorm, WinElArea, CalledFrom, MapNum)

Arguments

Type	Intent	Optional	Attributes		Name
type(BSDFRefPoints),	intent(inout)			::	StateRefPoint
type(BSDFRefPointsGeomDescr),	intent(inout)			::	DaylghtGeomDescr
integer,	intent(in)			::	ZoneNum
integer,	intent(in)			::	iWin
real(kind=r64),	intent(in),		dimension(3)	::	RefPoint
integer,	intent(in)			::	curFenState
integer,	intent(in)			::	NBasis
integer,	intent(in)			::	NTrnBasis
real(kind=r64),	intent(in)			::	AZVIEW
integer,	intent(in)			::	NWX
integer,	intent(in)			::	NWY
real(kind=r64),	intent(in),		dimension(3)	::	W2
real(kind=r64),	intent(in),		dimension(3)	::	W21
real(kind=r64),	intent(in),		dimension(3)	::	W23
real(kind=r64),	intent(in)			::	DWX
real(kind=r64),	intent(in)			::	DWY
real(kind=r64),	intent(in),		dimension(3)	::	WNorm
real(kind=r64),	intent(in)			::	WinElArea
integer,	intent(in)			::	CalledFrom
integer,	intent(in),	optional		::	MapNum

private subroutine AllocateForCFSRefPointsState(StateRefPoint, NumOfWinEl, NBasis, NTrnBasis)

Arguments

Type	Intent		Name
type(BSDFRefPoints),	intent(inout)	::	StateRefPoint
integer,	intent(in)	::	NumOfWinEl
integer,	intent(in)	::	NBasis
integer,	intent(in)	::	NTrnBasis

private subroutine AllocateForCFSRefPointsGeometry(RefPointsGeomDescr, NumOfWinEl)

Arguments

Type	Intent	Optional	Attributes		Name
type(BSDFRefPointsGeomDescr),	intent(inout)			::	RefPointsGeomDescr
integer,	intent(in)			::	NumOfWinEl

private subroutine CFSRefPointSolidAngle(RefPoint, RWin, WNorm, RefPointMap, RefPointGeomMap, iWin, CurFenState, NTrnBasis, curWinEl, WinElArea)

Arguments

Type	Intent	Attributes		Name
real(kind=r64),	intent(in),	dimension(3)	::	RefPoint
real(kind=r64),	intent(in),	dimension(3)	::	RWin
real(kind=r64),	intent(in),	dimension(3)	::	WNorm
type(BSDFRefPoints),	intent(inout)		::	RefPointMap
type(BSDFRefPointsGeomDescr),	intent(inout)		::	RefPointGeomMap
integer,	intent(in)		::	iWin
integer,	intent(in)		::	CurFenState
integer,	intent(in)		::	NTrnBasis
integer,	intent(in)		::	curWinEl
real(kind=r64),	intent(in)		::	WinElArea

private subroutine CFSRefPointPosFactor(RefPoint, RefPointMap, iWin, CurFenState, NTrnBasis, AZVIEW)

Arguments

Type	Intent	Attributes		Name
real(kind=r64),	intent(in),	dimension(3)	::	RefPoint
type(BSDFRefPoints),	intent(inout)		::	RefPointMap
integer,	intent(in)		::	iWin
integer,	intent(in)		::	CurFenState
integer,	intent(in)		::	NTrnBasis
real(kind=r64),	intent(in)		::	AZVIEW

private subroutine FigureDayltgCoeffsAtPointsForSunPosition(ZoneNum, iRefPoint, iXelement, NWX, iYelement, NWY, WinEl, iWin, iWin2, iHour, iSunPos, SkyObstructionMult, RWIN2, RAY, PHRAY, LSHCAL, InShelfSurf, COSB, ObTrans, TVISB, DOMEGA, ICtrl, ShType, BlNum, THRAY, WNORM2, ExtWinType, IConst, AZVIEW, RREF2, LoopWin, IHitIntObs, IHitExtObs, CalledFrom, TVISIntWin, TVISIntWinDisk, MapNum, MapWindowSolidAngAtRefPtWtd)

fcw Is this needed?

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ZoneNum
integer,	intent(in)			::	iRefPoint
integer,	intent(in)			::	iXelement
integer,	intent(in)			::	NWX
integer,	intent(in)			::	iYelement
integer,	intent(in)			::	NWY
integer,	intent(in)			::	WinEl
integer,	intent(in)			::	iWin
integer,	intent(in)			::	iWin2
integer,	intent(in)			::	iHour
integer,	intent(inout)			::	iSunPos
real(kind=r64),	intent(in)			::	SkyObstructionMult
real(kind=r64),	intent(in),		DIMENSION(3)	::	RWIN2
real(kind=r64),	intent(in),		DIMENSION(3)	::	RAY
real(kind=r64),	intent(in)			::	PHRAY
integer,	intent(in)			::	LSHCAL
integer,	intent(in)			::	InShelfSurf
real(kind=r64),	intent(in)			::	COSB
real(kind=r64),	intent(in)			::	ObTrans
real(kind=r64),	intent(in)			::	TVISB
real(kind=r64),	intent(in)			::	DOMEGA
integer,	intent(in)			::	ICtrl
integer,	intent(in)			::	ShType
integer,	intent(in)			::	BlNum
real(kind=r64),	intent(in)			::	THRAY
real(kind=r64),	intent(in),		DIMENSION(3)	::	WNORM2
integer,	intent(in)			::	ExtWinType
integer,	intent(in)			::	IConst
real(kind=r64),	intent(in)			::	AZVIEW
real(kind=r64),	intent(in),		DIMENSION(3)	::	RREF2
integer,	intent(in)			::	LoopWin
integer,	intent(in)			::	IHitIntObs
integer,	intent(in)			::	IHitExtObs
integer,	intent(in)			::	CalledFrom
real(kind=r64),	intent(inout)			::	TVISIntWin
real(kind=r64),	intent(inout)			::	TVISIntWinDisk
integer,	intent(in),	optional		::	MapNum
real(kind=r64),	intent(in),	optional	DIMENSION(:,:)	::	MapWindowSolidAngAtRefPtWtd

private subroutine FigureRefPointDayltgFactorsToAddIllums(ZoneNum, iRefPoint, iHour, iSunPos, iWin, loopWin, NWX, NWY, ICtrl)

Arguments

Type	Intent		Name
integer,	intent(in)	::	ZoneNum
integer,	intent(in)	::	iRefPoint
integer,	intent(in)	::	iHour
integer,	intent(inout)	::	iSunPos
integer,	intent(in)	::	iWin
integer,	intent(in)	::	loopWin
integer,	intent(in)	::	NWX
integer,	intent(in)	::	NWY
integer,	intent(in)	::	ICtrl

private subroutine FigureMapPointDayltgFactorsToAddIllums(ZoneNum, MapNum, iMapPoint, iHour, iWin, loopWin, NWX, NWY, ICtrl)

Arguments

Type	Intent		Name
integer,	intent(in)	::	ZoneNum
integer,	intent(in)	::	MapNum
integer,	intent(in)	::	iMapPoint
integer,	intent(in)	::	iHour
integer,	intent(in)	::	iWin
integer,	intent(in)	::	loopWin
integer,	intent(in)	::	NWX
integer,	intent(in)	::	NWY
integer,	intent(in)	::	ICtrl

private subroutine GetDaylightingParametersInput()

Arguments

None

private subroutine GetDaylightingParametersDetaild(TotDaylightingDetailed, ErrorsFound)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	TotDaylightingDetailed
logical,	intent(inout)			::	ErrorsFound

private subroutine CheckTDDsAndLightShelvesInDaylitZones()

Arguments

None

private subroutine GetLightWellData(ErrorsFound)

Arguments

Type	Intent	Optional	Attributes		Name
logical,	intent(inout)			::	ErrorsFound

private subroutine DayltgGlare(IL, BLUM, GLINDX, ZoneNum)

Arguments

Type		Name
integer	::	IL
real(kind=r64)	::	BLUM
real(kind=r64)	::	GLINDX
integer	::	ZoneNum

public subroutine DayltgGlareWithIntWins(GLINDX, ZoneNum)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=r64),	intent(out)			::	GLINDX(2)
integer,	intent(in)			::	ZoneNum

private subroutine DayltgExtHorizIllum(HISK, HISU)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=r64)				::	HISK(4)
real(kind=r64)				::	HISU

private subroutine DayltgCrossProduct(A, B, C)

Arguments

Type		Name
real(kind=r64)	::	A(3)
real(kind=r64)	::	B(3)
real(kind=r64)	::	C(3)

private subroutine DayltgPierceSurface(ISurf, R1, RN, IPIERC, CP)

Arguments

Type	Intent		Name
integer,	intent(in)	::	ISurf
real(kind=r64),	intent(in)	::	R1(3)
real(kind=r64),	intent(in)	::	RN(3)
integer,	intent(out)	::	IPIERC
real(kind=r64),	intent(inout)	::	CP(3)

private subroutine DayltgHitObstruction(IHOUR, IWin, R1, RN, ObTrans)

fw following check on mirror shadow surface can be removed with addition of above fw check on ShadowSurfPossibleObstruction (which is false for mirror shadow surfaces)

Arguments

Type	Intent		Name
integer,	intent(in)	::	IHOUR
integer,	intent(in)	::	IWin
real(kind=r64),	intent(in)	::	R1(3)
real(kind=r64),	intent(in)	::	RN(3)
real(kind=r64),	intent(out)	::	ObTrans

private subroutine DayltgHitInteriorObstruction(IWin, R1, R2, IHIT)

Arguments

Type	Intent		Name
integer,	intent(in)	::	IWin
real(kind=r64),	intent(in)	::	R1(3)
real(kind=r64),	intent(in)	::	R2(3)
integer,	intent(out)	::	IHIT

private subroutine DayltgHitBetWinObstruction(IWin1, IWin2, R1, R2, IHIT)

Arguments

Type	Intent		Name
integer,	intent(in)	::	IWin1
integer,	intent(in)	::	IWin2
real(kind=r64),	intent(in)	::	R1(3)
real(kind=r64),	intent(in)	::	R2(3)
integer,	intent(out)	::	IHIT

public subroutine DayltgInteriorIllum(ZoneNum)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	ZoneNum

public subroutine DayltgInteriorTDDIllum()

Arguments

None

public subroutine DayltgElecLightingControl(ZoneNum)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	ZoneNum

private subroutine DayltgInterReflectedIllum(ISunPos, IHR, ZoneNum, IWin)

Arguments

Type		Name
integer	::	ISunPos
integer	::	IHR
integer	::	ZoneNum
integer	::	IWin

private subroutine ComplexFenestrationLuminances(IWIN, WinEl, NBasis, IHR, iRefPoint, ElementLuminanceSky, ElementLuminanceSun, ElementLuminanceSunDisk, CalledFrom, MapNum)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	IWIN
integer,	intent(in)			::	WinEl
integer,	intent(in)			::	NBasis
integer,	intent(in)			::	IHR
integer,	intent(in)			::	iRefPoint
real(kind=r64),	intent(out),		dimension(NBasis, 4)	::	ElementLuminanceSky
real(kind=r64),	intent(out),		dimension(NBasis)	::	ElementLuminanceSun
real(kind=r64),	intent(out),		dimension(NBasis)	::	ElementLuminanceSunDisk
integer,	intent(in)			::	CalledFrom
integer,	intent(in),	optional		::	MapNum

private subroutine DayltgInterReflectedIllumComplexFenestration(IWin, WinEl, IHR, ZoneNum, iRefPoint, CalledFrom, MapNum)

Arguments

Type	Intent	Optional		Name
integer,	intent(in)		::	IWin
integer,	intent(in)		::	WinEl
integer,	intent(in)		::	IHR
integer,	intent(in)		::	ZoneNum
integer,	intent(in)		::	iRefPoint
integer,	intent(in)		::	CalledFrom
integer,	intent(in),	optional	::	MapNum

private subroutine DayltgDirectIllumComplexFenestration(IWin, WinEl, IHR, ZoneNum, iRefPoint, CalledFrom, MapNum)

Arguments

Type	Intent	Optional		Name
integer,	intent(in)		::	IWin
integer,	intent(in)		::	WinEl
integer,	intent(in)		::	IHR
integer,	intent(in)		::	ZoneNum
integer,	intent(in)		::	iRefPoint
integer,	intent(in)		::	CalledFrom
integer,	intent(in),	optional	::	MapNum

private subroutine DayltgDirectSunDiskComplexFenestration(iWin, ZoneNum, iHour, LoopWin, iRefPoint, NumEl, AZVIEW, CalledFrom, MapNum, MapWindowSolidAngAtRefPtWtd)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	iWin
integer,	intent(in)			::	ZoneNum
integer,	intent(in)			::	iHour
integer,	intent(in)			::	LoopWin
integer,	intent(in)			::	iRefPoint
integer,	intent(in)			::	NumEl
real(kind=r64),	intent(in)			::	AZVIEW
integer,	intent(in)			::	CalledFrom
integer,	intent(in),	optional		::	MapNum
real(kind=r64),	intent(in),	optional	dimension(:,:)	::	MapWindowSolidAngAtRefPtWtd

public subroutine ProfileAngle(SurfNum, CosDirSun, HorOrVert, ProfileAng)

Arguments

Type		Name
integer	::	SurfNum
real(kind=r64)	::	CosDirSun(3)
integer	::	HorOrVert
real(kind=r64)	::	ProfileAng

private subroutine DayltgClosestObstruction(RecPt, RayVec, NearestHitSurfNum, NearestHitPt)

Arguments

Type	Intent		Name
real(kind=r64),	intent(in)	::	RecPt(3)
real(kind=r64),	intent(in)	::	RayVec(3)
integer,	intent(out)	::	NearestHitSurfNum
real(kind=r64),	intent(out)	::	NearestHitPt(3)

private subroutine DayltgSurfaceLumFromSun(IHr, Ray, ReflSurfNum, ReflHitPt, LumAtReflHitPtFrSun)

Arguments

Type	Intent		Name
integer,	intent(in)	::	IHr
real(kind=r64),	intent(in)	::	Ray(3)
integer,	intent(in)	::	ReflSurfNum
real(kind=r64),	intent(in)	::	ReflHitPt(3)
real(kind=r64),	intent(out)	::	LumAtReflHitPtFrSun

public subroutine DayltgInteriorMapIllum(ZoneNum)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	ZoneNum

public subroutine ReportIllumMap(MapNum)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	MapNum

public subroutine CloseReportIllumMaps()

Arguments

None

public subroutine CloseDFSFile()

Arguments

None

private subroutine DayltgSetupAdjZoneListsAndPointers()

Arguments

None

public subroutine DayltgInterReflIllFrIntWins(ZoneNum)

Arguments

Type	Intent	Optional	Attributes		Name
integer				::	ZoneNum

private subroutine CalcMinIntWinSolidAngs()

Arguments

None

private subroutine CheckForGeometricTransform(doTransform, OldAspectRatio, NewAspectRatio)

Arguments

Type	Intent		Name
logical,	intent(inout)	::	doTransform
real(kind=r64),	intent(inout)	::	OldAspectRatio
real(kind=r64),	intent(inout)	::	NewAspectRatio

private subroutine WriteDaylightMapTitle(mapNum, unitNo, mapName, environmentName, zonenum, refPt1, refPt2, zcoord)

Arguments

Type	Intent		Name
integer,	intent(in)	::	mapNum
integer,	intent(in)	::	unitNo
character(len=*),	intent(in)	::	mapName
character(len=*),	intent(in)	::	environmentName
integer,	intent(in)	::	zonenum
character(len=*),	intent(in)	::	refPt1
character(len=*),	intent(in)	::	refPt2
real(kind=r64),	intent(in)	::	zcoord

All Modules

AirflowNetworkBalanceManager AirflowNetworkSolver BaseboardElectric BaseboardRadiator Boilers BoilerSteam BranchInputManager BranchNodeConnections ChillerAbsorption ChillerElectricEIR ChillerExhaustAbsorption ChillerGasAbsorption ChillerIndirectAbsorption ChillerReformulatedEIR CondenserLoopTowers ConductionTransferFunctionCalc ConvectionCoefficients CoolTower CostEstimateManager CrossVentMgr CTElectricGenerator CurveManager DataAirflowNetwork DataAirLoop DataAirSystems DataBranchAirLoopPlant DataBranchNodeConnections DataBSDFWindow DataComplexFenestration DataContaminantBalance DataConvergParams DataConversions DataCostEstimate DataDaylighting DataDaylightingDevices DataDefineEquip DataDElight DataEnvironment DataErrorTracking DataGenerators DataGlobalConstants DataGlobals DataHeatBalance DataHeatBalFanSys DataHeatBalSurface DataHVACControllers DataHVACGlobals DataInterfaces DataIPShortCuts DataLoopNode DataMoistureBalance DataMoistureBalanceEMPD DataOutputs DataPhotovoltaics DataPlant DataPlantPipingSystems DataPrecisionGlobals DataReportingFlags DataRoomAirModel DataRootFinder DataRuntimeLanguage DataShadowingCombinations DataSizing DataStringGlobals DataSurfaceColors DataSurfaceLists DataSurfaces DataSystemVariables DataTimings DataUCSDSharedData DataVectorTypes DataViewFactorInformation DataWater DataWindowEquivalentLayer DataZoneControls DataZoneEnergyDemands DataZoneEquipment DaylightingDevices DaylightingManager DELIGHTMANAGERF DELIGHTMANAGERF DemandManager DesiccantDehumidifiers DirectAirManager DisplacementVentMgr DualDuct DXCoils DXFEarClipping EarthTube EconomicLifeCycleCost EconomicTariff EcoRoofManager ElectricBaseboardRadiator EMSManager EvaporativeCoolers EvaporativeFluidCoolers ExteriorEnergyUse ExternalInterface FanCoilUnits Fans FaultsManager FluidCoolers FluidProperties FuelCellElectricGenerator Furnaces General GeneratorDynamicsManager GeneratorFuelSupply GlobalNames GroundHeatExchangers HeatBalanceAirManager HeatBalanceHAMTManager HeatBalanceIntRadExchange HeatBalanceManager HeatBalanceMovableInsulation HeatBalanceSurfaceManager HeatBalFiniteDiffManager HeatingCoils HeatPumpWaterToWaterCOOLING HeatPumpWaterToWaterHEATING HeatPumpWaterToWaterSimple HeatRecovery HighTempRadiantSystem Humidifiers HVACControllers HVACCooledBeam HVACDuct HVACDXHeatPumpSystem HVACDXSystem HVACHXAssistedCoolingCoil HVACInterfaceManager HVACManager HVACMultiSpeedHeatPump HVACSingleDuctInduc HVACStandAloneERV HVACUnitaryBypassVAV HVACUnitarySystem HVACVariableRefrigerantFlow HWBaseboardRadiator ICEngineElectricGenerator IceThermalStorage InputProcessor InternalHeatGains ISO_C_FUNCTION_BINDING ISO_C_FUNCTION_BINDING LowTempRadiantSystem ManageElectricPower MatrixDataManager MicroCHPElectricGenerator MicroturbineElectricGenerator MixedAir MixerComponent MoistureBalanceEMPDManager MundtSimMgr NodeInputManager NonZoneEquipmentManager OutAirNodeManager OutdoorAirUnit OutputProcessor OutputReportPredefined OutputReportTabular OutsideEnergySources PackagedTerminalHeatPump PackagedThermalStorageCoil Photovoltaics PhotovoltaicThermalCollectors PipeHeatTransfer Pipes PlantCentralGSHP PlantChillers PlantComponentTemperatureSources PlantCondLoopOperation PlantHeatExchangerFluidToFluid PlantLoadProfile PlantLoopEquip PlantLoopSolver PlantManager PlantPipingSystemsManager PlantPressureSystem PlantUtilities PlantValves PollutionModule PondGroundHeatExchanger PoweredInductionUnits Psychrometrics Pumps PurchasedAirManager RefrigeratedCase ReportSizingManager ReturnAirPathManager RoomAirModelManager RoomAirModelUserTempPattern RootFinder RuntimeLanguageProcessor ScheduleManager SetPointManager SimAirServingZones SimulationManager SingleDuct SizingManager SolarCollectors SolarReflectionManager SolarShading SortAndStringUtilities SplitterComponent SQLiteProcedures SQLiteProcedures StandardRatings SteamBaseboardRadiator SteamCoils SurfaceGeometry SurfaceGroundHeatExchanger SystemAvailabilityManager SystemReports TARCOGArgs TARCOGCommon TARCOGDeflection TARCOGGasses90 TARCOGGassesParams TARCOGMain TARCOGOutput TARCOGParams TarcogShading ThermalChimney ThermalComfort ThermalEN673Calc ThermalISO15099Calc TranspiredCollector UFADManager UnitHeater UnitVentilator UserDefinedComponents VariableSpeedCoils vectors VentilatedSlab WaterCoils WaterManager WaterThermalTanks WatertoAirHeatPump WatertoAirHeatPumpSimple WaterUse WeatherManager WindowAC WindowComplexManager WindowEquivalentLayer WindowManager WindTurbine ZoneAirLoopEquipmentManager ZoneContaminantPredictorCorrector ZoneDehumidifier ZoneEquipmentManager ZonePlenum ZoneTempPredictorCorrector

DaylightingManager Module

Uses:

Used By

Variables

Functions

private function CalcObstrMultiplier(GroundHitPt, AltSteps, AzimSteps)

Arguments

Return Value real(kind=r64)

private function DayltgGlarePositionFactor(X, Y)

Arguments

Return Value real(kind=r64)

private function DayltgSkyLuminance(ISky, THSKY, PHSKY)

Arguments

Return Value real(kind=r64)

Subroutines

private subroutine DayltgAveInteriorReflectance(ZoneNum)

Arguments

public subroutine CalcDayltgCoefficients()

Arguments

private subroutine CalcDayltgCoeffsRefMapPoints(ZoneNum)

Arguments

private subroutine CalcDayltgCoeffsRefPoints(ZoneNum)

Arguments

private subroutine CalcDayltgCoeffsMapPoints(ZoneNum)

Arguments

Arguments

Arguments

private subroutine InitializeCFSDaylighting(ZoneNum, IWin, NWX, NWY, VIEWVC, RefPoint, NRefPts, iRefPoint, CalledFrom, MapNum)

Arguments

private subroutine InitializeCFSStateData(StateRefPoint, DaylghtGeomDescr, ZoneNum, iWin, RefPoint, curFenState, NBasis, NTrnBasis, AZVIEW, NWX, NWY, W2, W21, W23, DWX, DWY, WNorm, WinElArea, CalledFrom, MapNum)

Arguments

private subroutine AllocateForCFSRefPointsState(StateRefPoint, NumOfWinEl, NBasis, NTrnBasis)

Arguments

private subroutine AllocateForCFSRefPointsGeometry(RefPointsGeomDescr, NumOfWinEl)

Arguments

private subroutine CFSRefPointSolidAngle(RefPoint, RWin, WNorm, RefPointMap, RefPointGeomMap, iWin, CurFenState, NTrnBasis, curWinEl, WinElArea)

Arguments

private subroutine CFSRefPointPosFactor(RefPoint, RefPointMap, iWin, CurFenState, NTrnBasis, AZVIEW)

Arguments

Arguments

private subroutine FigureRefPointDayltgFactorsToAddIllums(ZoneNum, iRefPoint, iHour, iSunPos, iWin, loopWin, NWX, NWY, ICtrl)

Arguments

private subroutine FigureMapPointDayltgFactorsToAddIllums(ZoneNum, MapNum, iMapPoint, iHour, iWin, loopWin, NWX, NWY, ICtrl)

Arguments

private subroutine GetDaylightingParametersInput()

Arguments

private subroutine GetDaylightingParametersDetaild(TotDaylightingDetailed, ErrorsFound)

Arguments

private subroutine CheckTDDsAndLightShelvesInDaylitZones()

Arguments

private subroutine GetLightWellData(ErrorsFound)

Arguments

private subroutine DayltgGlare(IL, BLUM, GLINDX, ZoneNum)

Arguments

public subroutine DayltgGlareWithIntWins(GLINDX, ZoneNum)

Arguments

private subroutine DayltgExtHorizIllum(HISK, HISU)

Arguments

private subroutine DayltgCrossProduct(A, B, C)

Arguments

private subroutine DayltgPierceSurface(ISurf, R1, RN, IPIERC, CP)

Arguments

private subroutine DayltgHitObstruction(IHOUR, IWin, R1, RN, ObTrans)

Arguments

private subroutine DayltgHitInteriorObstruction(IWin, R1, R2, IHIT)

Arguments

private subroutine DayltgHitBetWinObstruction(IWin1, IWin2, R1, R2, IHIT)

Arguments

public subroutine DayltgInteriorIllum(ZoneNum)

Arguments

public subroutine DayltgInteriorTDDIllum()

Arguments

public subroutine DayltgElecLightingControl(ZoneNum)

Arguments

private subroutine DayltgInterReflectedIllum(ISunPos, IHR, ZoneNum, IWin)

Arguments

private subroutine ComplexFenestrationLuminances(IWIN, WinEl, NBasis, IHR, iRefPoint, ElementLuminanceSky, ElementLuminanceSun, ElementLuminanceSunDisk, CalledFrom, MapNum)

Arguments

private subroutine DayltgInterReflectedIllumComplexFenestration(IWin, WinEl, IHR, ZoneNum, iRefPoint, CalledFrom, MapNum)

Arguments