Nodes of different colours represent the following:
Solid arrows point from a parent (sub)module to the submodule which is descended from it. Dashed arrows point from a module being used to the module or program unit using it. Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! function attributes:
! INPUTS:
! General:
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | standard | ! Environment related: |
||
| integer, | intent(in) | :: | nlayer | ! Environment related: |
||
| real(kind=r64), | intent(in) | :: | tout | |||
| real(kind=r64), | intent(in) | :: | tind | |||
| real(kind=r64), | intent(inout), | dimension(MaxGap) | :: | gap | ||
| real(kind=r64), | intent(inout), | dimension(maxlay) | :: | thick | ||
| real(kind=r64), | intent(inout), | dimension(maxlay) | :: | scon | ||
| real(kind=r64), | intent(in), | dimension(maxlay2) | :: | emis | ||
| real(kind=r64), | intent(in) | :: | totsol | |||
| real(kind=r64), | intent(in) | :: | tilt | |||
| real(kind=r64), | intent(in) | :: | dir | |||
| real(kind=r64), | intent(in), | dimension(maxlay) | :: | asol | ! Gaps: |
|
| real(kind=r64), | intent(in), | dimension(maxlay1) | :: | presure | ||
| integer, | intent(in), | dimension(maxlay1, maxgas) | :: | iprop | ||
| real(kind=r64), | intent(in), | dimension(maxlay1, maxgas) | :: | frct | ||
| integer, | intent(in), | dimension(maxlay1) | :: | nmix | ||
| real(kind=r64), | intent(in), | dimension(maxgas, 3) | :: | xgcon | ||
| real(kind=r64), | intent(in), | dimension(maxgas, 3) | :: | xgvis | ||
| real(kind=r64), | intent(in), | dimension(maxgas, 3) | :: | xgcp | ||
| real(kind=r64), | intent(in), | dimension(maxgas) | :: | xwght | !! INPUTS/OUTPUTS: |
|
| real(kind=r64), | intent(out), | dimension(maxlay2) | :: | theta | ! Gaps: |
|
| real(kind=r64), | intent(out) | :: | ufactor | |||
| real(kind=r64), | intent(out) | :: | hcin | ! Layers: |
||
| real(kind=r64), | intent(inout) | :: | hin | ! OUTPUTS: ! Overall: |
||
| real(kind=r64), | intent(inout) | :: | hout | ! OUTPUTS: ! Overall: |
||
| real(kind=r64), | intent(out) | :: | shgc | |||
| integer, | intent(out) | :: | nperr | |||
| character(len=*), | intent(inout) | :: | ErrorMessage | |||
| integer, | intent(in), | dimension(2) | :: | ibc | ! Layers: |
|
| real(kind=r64), | intent(out), | dimension(maxlay) | :: | hg | ||
| real(kind=r64), | intent(out), | dimension(maxlay) | :: | hr | ||
| real(kind=r64), | intent(out), | dimension(maxlay) | :: | hs | ||
| real(kind=r64), | intent(out), | dimension(maxlay) | :: | Ra | !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! |
|
| real(kind=r64), | intent(out), | dimension(maxlay) | :: | Nu | !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! |
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.
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 Calc_EN673(standard, nlayer, tout, tind, gap, thick, scon, emis, totsol, &
tilt, dir, asol, presure, iprop, frct, nmix, xgcon,xgvis,xgcp,xwght, theta, ufactor, hcin, &
hin, hout, shgc, nperr, ErrorMessage, ibc, hg, hr, hs, Ra,Nu)
use TARCOGArgs, ONLY : GoAhead
use TarcogOutput
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!! function attributes:
!!! INPUTS:
!!! General:
integer, intent(in) :: nlayer, standard
!!! Environment related:
real(r64), intent(in) :: tout, tind, totsol, tilt, dir
integer, dimension(2), intent(in) :: ibc
!!! Layers:
real(r64), dimension(maxlay2), intent(in) :: emis
real(r64), dimension(maxlay), intent(in) :: asol
!!! Gaps:
integer, dimension(maxlay1, maxgas), intent(in) :: iprop
integer, dimension(maxlay1), intent(in) :: nmix
real(r64), dimension(maxlay1, maxgas), intent(in) :: frct
real(r64), dimension(maxlay1), intent(in) :: presure
real(r64), dimension(maxgas, 3), intent(in) :: xgcon, xgvis, xgcp
real(r64), dimension(maxgas), intent(in) :: xwght
!!!! INPUTS/OUTPUTS:
real(r64), dimension(maxlay), intent(inout) :: scon, thick
real(r64), dimension(MaxGap), intent(inout) :: gap
real(r64), intent(inout) :: hin, hout
!!! OUTPUTS:
!!! Overall:
integer, intent(out) :: nperr
character(len=*), intent(inout) :: ErrorMessage
real(r64), intent(out) :: ufactor
real(r64), intent(out) :: shgc
real(r64), intent(out) :: hcin
!!! Layers:
real(r64), dimension(maxlay2), intent(out) :: theta
!!! Gaps:
real(r64), dimension(maxlay), intent(out) :: hg, hr, hs
real(r64), dimension(maxlay), intent(out) :: Ra, Nu
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
real(r64), dimension(maxlay3) :: rs
real(r64) :: rtot, sft
!call propcon90(standard, mgas, gcon, gvis, gcp, grho, wght, nperr)
rtot=0.0d0
sft=0.0d0
if (GoAhead(nperr)) then
call EN673ISO10292(nlayer, tout, tind, emis, gap, thick, scon, tilt, iprop, frct,xgcon,xgvis,xgcp,xwght, &
presure, nmix, theta,standard, hg, hr, hs, hin, hout, hcin, ibc, rs, ufactor, Ra, Nu, nperr, &
ErrorMessage)
if (GoAhead(nperr)) then
rtot = 1.0d0/ufactor
call solar_EN673(dir, totsol, rtot, rs, nlayer, asol, sft, standard, nperr, ErrorMessage)
if (GoAhead(nperr)) then
shgc=sft
if (WriteDebugOutput) call WriteOutputEN673(OutArgumentsFile, DBGD, nlayer, ufactor, hout, hin, Ra, Nu, hg, hr, hs, nperr)
end if ! GoAhead after solar
end if ! GoAhead after EN673ISO10292
end if ! GopAhead after propcon90
end subroutine Calc_EN673