Index | Rundeck: E6F40 | Created: Fri May 17 03:30:27 EDT 2024 |
therml | Module: RADPAR | File: RADIATION.f |
Author :
Version:
Declaration:
subroutine therml
- px :
real*8, dimension(9)
- Initial Value
= (/1001.,973.,934.,865.,752.,603.,439.,283.,156./)
- alg2 :
real*8
- Initial Value
= .30103d0
- taumnl :
real*8
- Initial Value
= -2.20412d0
- r6 :
real*8, parameter
- Initial Value
= .16666667D0
- r24 :
real*8, parameter
- Initial Value
= 4.1666667D-02
- a :
real*8, parameter
- Initial Value
= 0.3825D0
- b :
real*8, parameter
- Initial Value
= 0.5742D0
- c :
real*8, parameter
- Initial Value
= 0.0433D0
- kapa :
real*8, parameter
- Initial Value
= .286d0
- ta :
real*8
- tb :
real*8
- tc :
real*8
- p1 :
real*8
- p2 :
real*8
- p3 :
real*8
- p4 :
real*8
- dt1cpt :
real*8
- dthalf :
real*8
- cltaux :
real*8
- cltaus :
real*8
- clcosb :
real*8
- ctx :
real*8
- dt2 :
real*8
- dt1 :
real*8
- ctg :
real*8
- dg2 :
real*8
- dg1 :
real*8
- wt1 :
real*8
- wt2 :
real*8
- wt3 :
real*8
- wt4 :
real*8
- wt5 :
real*8
- wt6 :
real*8
- wt7 :
real*8
- wt8 :
real*8
- bg :
real*8
- dnacum :
real*8
- dnbcum :
real*8
- dnccum :
real*8
- tauag :
real*8
- tauap :
real*8
- taubp :
real*8
- taucp :
real*8
- tauax :
real*8
- taubx :
real*8
- taucx :
real*8
- xtrdl :
real*8
- btop :
real*8
- bbot :
real*8
- bbar :
real*8
- tx :
real*8
- plbn :
real*8
- f :
real*8
- taua :
real*8
- taub :
real*8
- tauc :
real*8
- bdif :
real*8
- bbta :
real*8
- bbtb :
real*8
- bbtc :
real*8
- trana :
real*8
- tranb :
real*8
- tranc :
real*8
- dec :
real*8
- deb :
real*8
- dea :
real*8
- coalb1 :
real*8
- coalb2 :
real*8
- coalb3 :
real*8
- fdnabc :
real*8
- una :
real*8
- unb :
real*8
- unc :
real*8
- funabc :
real*8
- pfw :
real*8
- dpf :
real*8
- ctp :
real*8
- dp1 :
real*8
- dp2 :
real*8
- taubg :
real*8
- taucg :
real*8
- ddflux :
real*8
- xtrul :
real*8
- fsum :
real*8
- xfsum :
real*8
- pll :
real*8
- dtau0 :
real*8
- tauplg :
real*8
- ap1 :
real*8
- ap2 :
real*8
- xtf :
real*8
- xtfacn :
real*8
- ena :
real*8, dimension(LX)
- enb :
real*8, dimension(LX)
- enc :
real*8, dimension(LX)
- tra :
real*8, dimension(LX)
- trb :
real*8, dimension(LX)
- trc :
real*8, dimension(LX)
- dna :
real*8, dimension(LX)
- dnb :
real*8, dimension(LX)
- dnc :
real*8, dimension(LX)
- wtlb :
real*8, dimension(LX)
- wtlt :
real*8, dimension(LX)
- rijtck :
real*8, dimension(6, 33)
- fdxtck :
real*8, dimension(3, 33)
- femtck :
real*8, dimension(3, 33)
- albtck :
real*8, dimension(3, 33)
- clpi0 :
real*8, dimension(33)
- clpi0k :
real*8
- k :
integer
- l :
integer
- ll :
integer
- ii :
integer
- itl :
integer
- ict :
integer
- it1 :
integer
- it2 :
integer
- ip1 :
integer
- ip2 :
integer
- icg :
integer
- ig1 :
integer
- ig2 :
integer
- imol :
integer
- ipf :
integer
- icp :
integer
- itlt :
integer, dimension(LX)
- itlb :
integer, dimension(LX)
- ip :
integer
- ipx0 :
integer
- itau1 :
integer
- itau2 :
integer
- ltopa :
integer
- lcl :
integer, dimension(LX)
- ia :
integer
- iaa :
integer
- ic :
integer
- iu :
integer
- lvlo :
integer
- lvhi :
integer
- lskip :
integer
- lcbot :
integer
- nclds :
integer
- icomb :
integer