Index | Rundeck: P1SoM40 | Created: Fri May 10 03:30:18 EDT 2024 |
seto2a | Module: RADPAR | File: RADIATION.f |
Author :
Version:
Declaration:
subroutine seto2a( geto2a_flag )
- geto2a_flag :
integer, optional
- nw :
integer, parameter
- Initial Value
= 18
- nz :
integer, parameter
- Initial Value
= 11
- nko2 :
integer, parameter
- Initial Value
= 6
- sfwm2 :
real*8, parameter, dimension(NW)
- Initial Value
= (/ 2.196E-3, 0.817E-3, 1.163E-3, 1.331E-3, 1.735E-3, 1.310E-3, 1.311E-3, 2.584E-3, 2.864E-3, 4.162E-3, 5.044E-3, 6.922E-3, 6.906E-3,10.454E-3, 5.710E-3, 6.910E-3,14.130E-3,18.080E-3/)
- sigma :
real*8, parameter, dimension(NW, NKO2)
- Initial Value
= RESHAPE( (/ 2.74E-19, 2.74E-19, 2.74E-19, 2.74E-19, 2.74E-19, 2.74E-19, 4.33E-21, 4.89E-21, 6.63E-21, 1.60E-20, 7.20E-20, 1.59E-18, 2.10E-21, 2.32E-21, 3.02E-21, 6.30E-21, 3.46E-20, 7.52E-19, 5.95E-22, 9.72E-22, 2.53E-21, 7.57E-21, 7.38E-20, 7.44E-19, 3.33E-22, 1.02E-22, 4.09E-21, 1.63E-20, 8.79E-20, 3.81E-19, 1.09E-21, 1.16E-21, 1.45E-21, 3.32E-21, 2.00E-20, 4.04E-19, 1.15E-21, 1.30E-21, 1.90E-21, 4.89E-21, 2.62E-20, 4.08E-19, 3.90E-22, 4.90E-22, 9.49E-22, 3.33E-21, 2.14E-20, 2.39E-19, 1.29E-22, 2.18E-22, 8.28E-22, 3.46E-21, 1.94E-20, 1.06E-19, 6.26E-23, 7.80E-23, 2.62E-22, 1.83E-21, 1.25E-20, 3.95E-20, 2.74E-23, 3.58E-23, 8.64E-23, 4.03E-22, 2.13E-21, 1.95E-20, 1.95E-23, 2.44E-23, 4.89E-23, 2.87E-22, 1.95E-21, 1.36E-20, 1.84E-23, 1.96E-23, 2.71E-23, 8.52E-23, 6.48E-22, 3.89E-21, 1.80E-23, 1.81E-23, 1.87E-23, 2.69E-23, 1.34E-22, 1.52E-21, 1.80E-23, 1.80E-23, 1.82E-23, 2.40E-23, 5.71E-23, 5.70E-22, 1.76E-23, 1.76E-23, 1.76E-23, 1.76E-23, 1.76E-23, 3.50E-23, 1.71E-23, 1.71E-23, 1.71E-23, 1.71E-23, 1.71E-23, 2.68E-23, 1.00E-23, 1.00E-23, 1.00E-23, 1.00E-23, 1.00E-23, 1.00E-23/) , (/ NW, NKO2 /) )
- wtko2 :
real*8, parameter, dimension(NKO2)
- Initial Value
= (/0.05,0.20,0.25,0.25,0.20,0.05/)
- stpmol :
real*8, parameter
- Initial Value
= 2.68714D+19
- ztable :
real*8, save, dimension(LX+1, 11)
- nl0 :
integer, save
- ifirst :
integer, save
- Initial Value
= 1
- fsum :
real*8
- summol :
real*8
- zcos :
real*8
- wsum :
real*8
- tau :
real*8
- dlflux :
real*8
- wti :
real*8
- wtj :
real*8
- i :
integer
- j :
integer
- k :
integer
- l :
integer
- ji :
integer
- jj :
integer
- n :
integer
- ll :
integer