Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real(kind=r64), | intent(in) | :: | Tc | |||
real(kind=r64), | intent(in) | :: | Isc0 | |||
real(kind=r64), | intent(in) | :: | Ibc | |||
real(kind=r64), | intent(in) | :: | Idc | |||
real(kind=r64), | intent(in) | :: | F1 | |||
real(kind=r64), | intent(in) | :: | F2 | |||
real(kind=r64), | intent(in) | :: | fd | |||
real(kind=r64), | intent(in) | :: | aIsc |
Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed arrows point from an interface to procedures which implement that interface. This could include the module procedures in a generic interface or the implementation in a submodule of an interface in a parent module. Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.
REAL(r64) Function SandiaIsc(Tc,Isc0,Ibc,Idc,F1,F2,fd,aIsc)
! FUNCTION INFORMATION:
! AUTHOR G. Barker
! DATE WRITTEN <date_written>
! MODIFIED na
! RE-ENGINEERED B. Griffith Jan 2004 F77 -> f90
! PURPOSE OF THIS FUNCTION:
! Returns Short-Circuit Current
! METHODOLOGY EMPLOYED:
! <description>
! REFERENCES:
! Equation (1) 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) :: Tc ! cell temperature (deg C)
REAL(r64), INTENT(IN) :: Isc0 ! Isc at Tc=25 C, Ic=1000 W/m2 (A)
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) :: F1 ! Sandia F1 function for air mass effects
REAL(r64), INTENT(IN) :: F2 ! Sandia F2 function of incidence angle
REAL(r64), INTENT(IN) :: fd ! module-specific empirical constant
REAL(r64), INTENT(IN) :: aIsc ! Isc temperature coefficient (degC^-1)
! FUNCTION PARAMETER DEFINITIONS:
! na
! INTERFACE BLOCK SPECIFICATIONS:
! na
! DERIVED TYPE DEFINITIONS:
! na
! FUNCTION LOCAL VARIABLE DECLARATIONS:
! na
! SandiaIsc=Isc0*((Ibc*F1*F2+fd*Idc)/1000.0)*(1.0+aIsc*(Tc-25.0))
! Barkers original (above) changed to match publish eq. (1) in reference
SandiaIsc=Isc0*F1*((Ibc*F2+fd*Idc)/1000.0d0)*(1.0d0+aIsc*(Tc-25.0d0))
! why hardwire E0 at 1000.0 ?, can this change? seems okay
End Function SandiaIsc