IndexRundeck: E6F40Created: Fri May 17 03:30:27 EDT 2024

taugas
Module: RADPAR
File: RADIATION.f
Summary:
Author :
Version:
Declaration:
Variables:
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)

Simplex Website Curator: Igor Aleinov — NASA Official: Gavin A. Schmidt

Contact GISS — NASA Privacy Policy — Accessibility