Index | Rundeck: E6TomaF40 | Created: Fri May 17 03:30:39 EDT 2024 |
taugas | Module: RADPAR | File: RADIATION.f |
Author :
Version:
Declaration:
subroutine taugas
- npu2 :
integer, parameter
- Initial Value
= 14
- npu :
integer, parameter
- Initial Value
= 5
- tlox :
real*8, parameter
- Initial Value
= 181.d0
- dtx :
real*8, parameter
- Initial Value
= 23.d0
- p0 :
real*8, parameter
- Initial Value
= 1013.25d0
- px :
real*8, parameter, dimension(NPX)
- Initial Value
= (/1000d0, 750d0, 500d0, 300d0, 200d0, 100d0, 50d0, 20d0, 10d0, 5d0, 2d0, 1d0, .5d0, .2d0, .1d0,.03d0,.01d0,.003d0,.001d0/)
- ngx :
integer, parameter, dimension(4)
- Initial Value
= (/12,12, 8,33/)
- ig1x :
integer, parameter, dimension(4)
- Initial Value
= (/ 2,14,26, 1/)
- pdpu2 :
real*8, parameter, dimension(NPU2)
- Initial Value
= (/1.d4, 1.d5,2.d5,5.d5, 1.d6,2.d6,5.d6, 1.d7,2.d7,5.d7, 1.d8,2.d8,5.d8, 1.d9/)
- pu :
real*8, parameter, dimension(NPU)
- Initial Value
= (/ 50.,200.,800.,3200.,12800./)
- igasx :
integer, parameter, dimension(21)
- Initial Value
= (/ 1, 2, 3, 1, 1, 2, 2, 3, 3, 6, 6, 6, 7, 7,13,13, 8, 8, 9, 9, 1/)
- kgx :
integer, parameter, dimension(21)
- Initial Value
= (/ 1, 2, 3, 2, 3, 1, 3, 1, 2, 1, 2, 3, 1, 3, 1, 3, 2, 3, 2, 3, 4/)
- nux :
integer, parameter, dimension(16)
- Initial Value
= (/25, 9, 9, 9, 9, 5, 5, 5, 5, 2, 2 ,2 , 2, 2, 2,2/)
- igux :
integer, parameter, dimension(16)
- Initial Value
= (/ 0,300,408,480,588,660,720,760 ,820,880,904,928,944,968,984,1008/)
- xkh2ow :
real*8, parameter, dimension(8)
- Initial Value
= (/ .432D-5,.943D-5,.188D-4,.352D-4,.623D-4,.105D-3,.170D-3,.262D-3 /)
- xkcfcw :
real*8, parameter, dimension(8, 2)
- Initial Value
= RESHAPE( (/ 11.0, 11.7, 11.5, 10.9, 10.3, 9.90, 9.90, 9.90, 5.75, 5.72, 5.95, 5.95, 5.90, 6.51, 6.51, 6.51 /) , (/8,2/) )
- pcf :
real*8, parameter, dimension(NLCF)
- Initial Value
= (/ 0.98981D+03,0.96840D+03,0.94446D+03,0.91796D+03,0.88891D+03, 0.85579D+03,0.81757D+03,0.77425D+03,0.72686D+03,0.67692D+03, 0.62545D+03,0.57296D+03,0.52098D+03,0.47104D+03,0.42365D+03, 0.37932D+03,0.33855D+03,0.30186D+03,0.26874D+03,0.23867D+03, 0.21115D+03,0.18567D+03,0.16172D+03,0.13900D+03,0.11800D+03, 0.99000D+02,0.81500D+02,0.65000D+02,0.50000D+02,0.37000D+02, 0.25500D+02,0.15000D+02,0.78100D+01,0.43900D+01,0.24700D+01, 0.13900D+01,0.78100D+00,0.43900D+00,0.24700D+00,0.13900D+00, 0.75000D-01,0.35000D-01,0.10000D-01/)
- dpcf :
real*8, parameter, dimension(NLCF)
- Initial Value
= (/ 0.20380D+02,0.22430D+02,0.25470D+02,0.27520D+02,0.30580D+02, 0.35670D+02,0.40770D+02,0.45860D+02,0.48920D+02,0.50960D+02, 0.51980D+02,0.53000D+02,0.50960D+02,0.48920D+02,0.45860D+02, 0.42810D+02,0.38720D+02,0.34660D+02,0.31590D+02,0.28540D+02, 0.26500D+02,0.24460D+02,0.23440D+02,0.22000D+02,0.20000D+02, 0.18000D+02,0.17000D+02,0.16000D+02,0.14000D+02,0.12000D+02, 0.11000D+02,0.10000D+02,0.43800D+01,0.24600D+01,0.13800D+01, 0.78000D+00,0.43800D+00,0.24600D+00,0.13800D+00,0.78000D-01, 0.50000D-01,0.30000D-01,0.20000D-01/)
- plbcf :
real*8, parameter, dimension(NLCF+1)
- Initial Value
= (/ 0.10000D+04,0.97962D+03,0.95719D+03,0.93172D+03,0.90420D+03, 0.87362D+03,0.83795D+03,0.79718D+03,0.75132D+03,0.70240D+03, 0.65144D+03,0.59946D+03,0.54646D+03,0.49550D+03,0.44658D+03, 0.40072D+03,0.35791D+03,0.31919D+03,0.28453D+03,0.25294D+03, 0.22440D+03,0.19790D+03,0.17344D+03,0.15000D+03,0.12800D+03, 0.10800D+03,0.90000D+02,0.73000D+02,0.57000D+02,0.43000D+02, 0.31000D+02,0.20000D+02,0.10000D+02,0.56200D+01,0.31600D+01, 0.17800D+01,0.10000D+01,0.56200D+00,0.31600D+00,0.17800D+00, 0.10000D+00,0.50000D-01,0.20000D-01,0.00000D+00/)
- dlog2 :
real*8, parameter
- Initial Value
= .30103d0
- ulmnh2 :
real*8, parameter
- Initial Value
= 1.85124d0
- ulmnch :
real*8, parameter
- Initial Value
= -.8160d0
- ulmnn2 :
real*8, parameter
- Initial Value
= -1.527d0
- ulmnf1 :
real*8, parameter
- Initial Value
= -4.780d0
- ulmno3 :
real*8, parameter
- Initial Value
= -1.368d0
- ulmnco :
real*8, parameter
- Initial Value
= 1.523d0
- ulmnf2 :
real*8, parameter
- Initial Value
= -4.524d0
- uso2s :
real*8, parameter
- Initial Value
= .042d0
- xtu :
real*8, dimension(nlcf, nrcf)
- xtd :
real*8, dimension(nlcf, nrcf)
- dxup :
real*8, dimension(nlcf, nwvcf, nrcf)
- dxdn :
real*8, dimension(nlcf, nwvcf, nrcf)
- pratcf :
real*8, dimension(NLCF)
- mlgas :
integer, dimension(21)
- i :
integer
- im :
integer
- l :
integer
- ll :
integer
- lcf :
integer
- lcfdn :
integer
- lcfup :
integer
- nlprat :
integer
- iulow :
integer
- iu :
integer
- ipx :
integer
- iaa :
integer
- itx :
integer
- igas :
integer
- ng :
integer
- kk :
integer
- ik1 :
integer
- ik2 :
integer
- ipu :
integer
- ik :
integer
- nu :
integer
- iua :
integer
- nsum :
integer
- iub :
integer
- ih2o0 :
integer
- ig :
integer
- icdlow :
integer
- ico20 :
integer
- io3low :
integer
- io30 :
integer
- iuw :
integer
- iu1 :
integer
- iu2 :
integer
- i2u1 :
integer
- i2u2 :
integer
- i3u1 :
integer
- i3u2 :
integer
- i6u1 :
integer
- i6u2 :
integer
- i7u1 :
integer
- i7u2 :
integer
- i8u1 :
integer
- i8u2 :
integer
- i9u1 :
integer
- i9u2 :
integer
- uh2o :
real*8
- uco2l :
real*8
- uo3ll :
real*8
- uch4l :
real*8
- un2ol :
real*8
- ucf1l :
real*8
- ucf2l :
real*8
- uso2 :
real*8
- uch4l1 :
real*8
- ch4rat :
real*8
- duh2 :
real*8
- du1 :
real*8
- du2 :
real*8
- duco :
real*8
- d2u1 :
real*8
- d2u2 :
real*8
- duo3 :
real*8
- d3u1 :
real*8
- d3u2 :
real*8
- duch :
real*8
- d7u1 :
real*8
- d7u2 :
real*8
- dun2 :
real*8
- d6u1 :
real*8
- d6u2 :
real*8
- duf1 :
real*8
- d8u1 :
real*8
- d8u2 :
real*8
- duf2 :
real*8
- d9u1 :
real*8
- d9u2 :
real*8
- sum1 :
real*8
- sum2 :
real*8
- sumpr :
real*8
- taut1 :
real*8
- taut2 :
real*8
- tauhfb :
real*8
- taucf :
real*8
- tauipg :
real*8
- tausum :
real*8
- tau11 :
real*8
- tau12 :
real*8
- qaa :
real*8
- qab :
real*8
- qba :
real*8
- qbb :
real*8
- pll :
real*8
- fpl :
real*8
- pu2 :
real*8
- u :
real*8
- up :
real*8
- ugas :
real*8
- fnu1 :
real*8
- uaa :
real*8
- uab :
real*8
- uba :
real*8
- ubb :
real*8
- wpb :
real*8
- wtb :
real*8
- wtpu :
real*8
- xa :
real*8
- xb :
real*8
- xk :
real*8
- xua :
real*8
- xub :
real*8
- waa :
real*8
- wab :
real*8
- wba :
real*8
- wbb :
real*8
- waaa :
real*8
- waab :
real*8
- waba :
real*8
- wabb :
real*8
- wbaa :
real*8
- wbab :
real*8
- wbba :
real*8
- wbbb :
real*8
- prat :
real*8, dimension(LX)
- wt :
real*8, dimension(LX)
- lcfofl :
integer, dimension(LX)
- qabove :
real*8, dimension(nlcf)
- uh2otl :
real*8, dimension(nlcf)
- duh2o1dn :
real*8, dimension(nlcf)
- duh2o2dn :
real*8, dimension(nlcf)
- iuh2o1dn :
integer, dimension(nlcf)
- iuh2o2dn :
integer, dimension(nlcf)
- ucmrcf :
real*8, parameter, dimension(NLCF)
- Initial Value
= (/ 0.10000D+01,0.11031D+01,0.12329D+01,0.14042D+01,0.16222D+01, 0.19138D+01,0.23456D+01,0.29937D+01,0.40048D+01,0.55959D+01, 0.81519D+01,0.12375D+02,0.19808D+02,0.32524D+02,0.54780D+02, 0.93174D+02,0.15748D+03,0.25287D+03,0.37309D+03,0.50049D+03, 0.60868D+03,0.71320D+03,0.84524D+03,0.10234D+04,0.12685D+04, 0.16078D+04,0.20909D+04,0.28557D+04,0.41673D+04,0.66299D+04, 0.12554D+05,0.26315D+05,0.59589D+05,0.10604D+06,0.18859D+06, 0.33480D+06,0.59602D+06,0.10608D+07,0.18872D+07,0.33520D+07, 0.59729D+07,0.11972D+08,0.30143D+08/)
- qbelow :
real*8, dimension(nlcf)
- uh2oul :
real*8, dimension(nlcf)
- duh2o1up :
real*8, dimension(nlcf)
- duh2o2up :
real*8, dimension(nlcf)
- iuh2o1up :
integer, dimension(nlcf)
- iuh2o2up :
integer, dimension(nlcf)
- ucmucf :
real*8, parameter, dimension(NLCF)
- Initial Value
= (/ 0.10701D+02,0.52946D+01,0.34738D+01,0.26072D+01,0.20943D+01, 0.17432D+01,0.15016D+01,0.13328D+01,0.12176D+01,0.11398D+01, 0.10879D+01,0.10532D+01,0.10317D+01,0.10186D+01,0.10108D+01, 0.10064D+01,0.10040D+01,0.10027D+01,0.10020D+01,0.10016D+01, 0.10014D+01,0.10012D+01,0.10010D+01,0.10008D+01,0.10006D+01, 0.10005D+01,0.10004D+01,0.10002D+01,0.10002D+01,0.10001D+01, 0.10000D+01,0.10000D+01,0.10000D+01,0.10000D+01,0.10000D+01, 0.10000D+01,0.10000D+01,0.10000D+01,0.10000D+01,0.10000D+01, 0.10000D+01,0.10000D+01,0.10000D+01/)
- dudp :
real*8, dimension(lx)
- ddudp :
real*8
- dxtru3_10 :
real*8, dimension(10)