| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| real(kind=r64), | intent(in) | :: | Ibc | |||
| real(kind=r64), | intent(in) | :: | Idc | |||
| real(kind=r64), | intent(in) | :: | Ws | |||
| real(kind=r64), | intent(in) | :: | Ta | |||
| real(kind=r64), | intent(in) | :: | fd | |||
| real(kind=r64), | intent(in) | :: | a | |||
| real(kind=r64), | intent(in) | :: | b | 
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 SandiaModuleTemperature(Ibc,Idc,Ws,Ta,fd,a,b)
          ! FUNCTION INFORMATION:
          !       AUTHOR         G. Barker
          !       DATE WRITTEN   unknown
          !       MODIFIED       na
          !       RE-ENGINEERED  B.Griffith December 2003
          ! PURPOSE OF THIS FUNCTION:
          ! Returns back-of-module temperature, deg C
          ! METHODOLOGY EMPLOYED:
          ! apply sandia temperature model, This is module temp or back of
          ! of the panel.  A seperate correction handles delta T for actual cell
          ! REFERENCES:
          ! from G. Barker's TRNSYS implementation
          ! Equations (10)  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
          ! FUNCTION PARAMETER DEFINITIONS:
          ! na
          ! INTERFACE BLOCK SPECIFICATIONS:
          ! na
          ! DERIVED TYPE DEFINITIONS:
          ! na
          ! FUNCTION LOCAL VARIABLE DECLARATIONS:
     REAL(r64)  :: E ! total irradiance working variable
     E = Ibc + fd * Idc
     SandiaModuleTemperature = E * Exp(a + b * Ws) + Ta
  END Function SandiaModuleTemperature