Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real(kind=r64), | intent(in) | :: | OPENNESS | |||
real(kind=r64), | intent(in) | :: | EPSLW0 | |||
real(kind=r64), | intent(in) | :: | TAULW0 | |||
real(kind=r64), | intent(out) | :: | EPSLW | |||
real(kind=r64), | intent(out) | :: | TAULW |
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.
SUBROUTINE OPENNESS_LW(OPENNESS, EPSLW0, TAULW0, EPSLW, TAULW)
!
! SUBROUTINE INFORMATION:
! AUTHOR John L. Wright and Nathan Kotey, University of Waterloo,
! Mechanical Engineering, Advanced Glazing System Laboratory
! DATE WRITTEN unknown
! MODIFIED na
!
! RE-ENGINEERED na
! PURPOSE OF THIS SUBROUTINE:
! Modifies long wave properties for shade types characterized by openness.
! Applies to shade type: insect screen, roller blind, drape fabric
!
! METHODOLOGY EMPLOYED:
! na
!
! REFERENCES:
! na
! USE STATEMENTS:
! na
IMPLICIT NONE
! SUBROUTINE ARGUMENT DEFINITIONS:
REAL(r64), INTENT(IN) :: OPENNESS ! shade openness (=tausbb at normal incidence)
REAL(r64), INTENT(IN) :: EPSLW0 ! apparent LW emittance of shade at 0 openness
! (= wire or thread emittance)
! typical (default) values
! dark insect screen = .93
! metalic insect screen = .32
! roller blinds = .91
! drape fabric = .87
REAL(r64), INTENT(IN) :: TAULW0 ! apparent LW transmittance of shade at 0 openness
! typical (default) values
! dark insect screen = .02
! metalic insect screen = .19
! roller blinds = .05
! drape fabric = .05
REAL(r64), INTENT (OUT) :: EPSLW ! returned: effective LW emittance of shade
REAL(r64), INTENT (OUT) :: TAULW ! returned: effective LW transmittance of shade
! SUBROUTINE PARAMETER DEFINITIONS:
! na
!
! INTERFACE BLOCK SPECIFICATIONS
! na
!
! DERIVED TYPE DEFINITIONS
! na
!
! SUBROUTINE LOCAL VARIABLE DECLARATIONS:
! na
!
EPSLW = EPSLW0*(1.0d0 - OPENNESS)
TAULW = TAULW0*(1.0d0 - OPENNESS) + OPENNESS
RETURN
END SUBROUTINE OPENNESS_LW