REAL(r64) Function SandiaCellTemperature(Ibc,Idc,Ws,Ta,fd,a,b,DT0)
! FUNCTION INFORMATION:
! AUTHOR G. Barker
! DATE WRITTEN unknown
! MODIFIED
! RE-ENGINEERED B. Griffith, Jan 2004 F77-> f90
! PURPOSE OF THIS FUNCTION:
! Returns cell temperature, deg C
!
! METHODOLOGY EMPLOYED:
! is this even used? duplicates separate functions above.
! combines function SandiaTcellFromTmodule with
! SandiaModuleTemperature
! REFERENCES:
! Equations (10) and (11) in Davis, M.W., A.H. Fanney, B.P. Dougherty. Measured versus
! predicted performance of building integrated photovoltaics,
! Solar 2002, Sunrise on the Reliable Energy Economy,
! June 15-19, 2002, Reno, NV.
! USE STATEMENTS:
! na
IMPLICIT NONE ! Enforce explicit typing of all variables in this routine
! FUNCTION ARGUMENT DEFINITIONS:
REAL(r64), INTENT(IN) :: Ibc ! beam radiation on collector plane W/m2
REAL(r64), INTENT(IN) :: Idc ! Diffuse radiation on collector plane W/m2
REAL(r64), INTENT(IN) :: Ws ! wind speed, m/s
REAL(r64), INTENT(IN) :: Ta ! ambient temperature, degC
REAL(r64), INTENT(IN) :: fd ! fraction of Idc used (empirical constant)
REAL(r64), INTENT(IN) :: a ! empirical constant
REAL(r64), INTENT(IN) :: b ! empirical constant
REAL(r64), INTENT(IN) :: DT0 ! (Tc-Tm) at E=1000 W/m2 (empirical constant known as dTc), deg C
! FUNCTION PARAMETER DEFINITIONS:
! na
! INTERFACE BLOCK SPECIFICATIONS:
! na
! DERIVED TYPE DEFINITIONS:
! na
! FUNCTION LOCAL VARIABLE DECLARATIONS:
! na
REAL(r64) :: E ! irradiance working variable
REAL(r64) :: Tm
E = Ibc + fd * Idc
Tm = E * Exp(a + b * Ws) + Ta
SandiaCellTemperature = Tm + (E / 1000.0d0) * DT0 ! E0=1000.0 W/m2
END FUNCTION SandiaCellTemperature