real(kind=r64), |
private, |
parameter | :: |
sigma | = | 5.6697d-8 | |
real(kind=r64), |
private, |
parameter | :: |
TKelvin | = | KelvinConv | |
integer, |
private, |
parameter | :: |
nume | = | 107 | |
integer, |
private, |
parameter | :: |
numt3 | = | 81 | |
real(kind=r64), |
private, |
parameter, DIMENSION(8) | :: |
AirProps | = | (/1.29d0, -0.4d-2, 2.41d-2, 7.6d-5, 1.73d-5, 1.0d-7, 0.72d0, 1.8d-3/) | |
real(kind=r64), |
private, |
DIMENSION(nume) | :: |
wle | = | (/0.3000d0, 0.3050d0, 0.3100d0, 0.3150d0, 0.3200d0, 0.3250d0, 0.3300d0, 0.3350d0, 0.3400d0, 0.3450d0, 0.3500d0, 0.3600d0, 0.3700d0, 0.3800d0, 0.3900d0, 0.4000d0, 0.4100d0, 0.4200d0, 0.4300d0, 0.4400d0, 0.4500d0, 0.4600d0, 0.4700d0, 0.4800d0, 0.4900d0, 0.5000d0, 0.5100d0, 0.5200d0, 0.5300d0, 0.5400d0, 0.5500d0, 0.5700d0, 0.5900d0, 0.6100d0, 0.6300d0, 0.6500d0, 0.6700d0, 0.6900d0, 0.7100d0, 0.7180d0, 0.7244d0, 0.7400d0, 0.7525d0, 0.7575d0, 0.7625d0, 0.7675d0, 0.7800d0, 0.8000d0, 0.8160d0, 0.8237d0, 0.8315d0, 0.8400d0, 0.8600d0, 0.8800d0, 0.9050d0, 0.9150d0, 0.9250d0, 0.9300d0, 0.9370d0, 0.9480d0, 0.9650d0, 0.9800d0, 0.9935d0, 1.0400d0, 1.0700d0, 1.1000d0, 1.1200d0, 1.1300d0, 1.1370d0, 1.1610d0, 1.1800d0, 1.2000d0, 1.2350d0, 1.2900d0, 1.3200d0, 1.3500d0, 1.3950d0, 1.4425d0, 1.4625d0, 1.4770d0, 1.4970d0, 1.5200d0, 1.5390d0, 1.5580d0, 1.5780d0, 1.5920d0, 1.6100d0, 1.6300d0, 1.6460d0, 1.6780d0, 1.7400d0, 1.8000d0, 1.8600d0, 1.9200d0, 1.9600d0, 1.9850d0, 2.0050d0, 2.0350d0, 2.0650d0, 2.1000d0, 2.1480d0, 2.1980d0, 2.2700d0, 2.3600d0, 2.4500d0, 2.4940d0, 2.5370d0/) | |
real(kind=r64), |
private, |
DIMENSION(nume) | :: |
e | = | (/0.0d0, 9.5d0, 42.3d0, 107.8d0, 181.0d0, 246.0d0, 395.3d0, 390.1d0, 435.3d0, 438.9d0, 483.7d0, 520.3d0, 666.2d0, 712.5d0, 720.7d0, 1013.1d0, 1158.2d0, 1184.0d0, 1071.9d0, 1302.0d0, 1526.0d0, 1599.6d0, 1581.0d0, 1628.3d0, 1539.2d0, 1548.7d0, 1586.5d0, 1484.9d0, 1572.4d0, 1550.7d0, 1561.5d0, 1501.5d0, 1395.5d0, 1485.3d0, 1434.1d0, 1419.9d0, 1392.3d0, 1130.0d0, 1316.7d0, 1010.3d0, 1043.2d0, 1211.2d0, 1193.9d0, 1175.5d0, 643.1d0, 1030.7d0, 1131.1d0, 1081.6d0, 849.2d0, 785.0d0, 916.4d0, 959.9d0, 978.9d0, 933.2d0, 748.5d0, 667.5d0, 690.3d0, 403.6d0, 258.3d0, 313.6d0, 526.8d0, 646.4d0, 746.8d0, 690.5d0, 637.5d0, 412.6d0, 108.9d0, 189.1d0, 132.2d0, 339.0d0, 460.0d0, 423.6d0, 480.5d0, 413.1d0, 250.2d0, 32.5d0, 1.6d0, 55.7d0, 105.1d0, 105.5d0, 182.1d0, 262.2d0, 274.2d0, 275.0d0, 244.6d0, 247.4d0, 228.7d0, 244.5d0, 234.8d0, 220.5d0, 171.5d0, 30.7d0, 2.0d0, 1.2d0, 21.2d0, 91.1d0, 26.8d0, 99.5d0, 60.4d0, 89.1d0, 82.2d0, 71.5d0, 70.2d0, 62.0d0, 21.2d0, 18.5d0, 3.2d0/) | |
real(kind=r64), |
private, |
DIMENSION(numt3) | :: |
wlt3 | = | (/.380d0, .385d0, .390d0, .395d0, .400d0, .405d0, .410d0, .415d0, .420d0, .425d0, .430d0, .435d0, .440d0, .445d0, .450d0, .455d0, .460d0, .465d0, .470d0, .475d0, .480d0, .485d0, .490d0, .495d0, .500d0, .505d0, .510d0, .515d0, .520d0, .525d0, .530d0, .535d0, .540d0, .545d0, .550d0, .555d0, .560d0, .565d0, .570d0, .575d0, .580d0, .585d0, .590d0, .595d0, .600d0, .605d0, .610d0, .615d0, .620d0, .625d0, .630d0, .635d0, .640d0, .645d0, .650d0, .655d0, .660d0, .665d0, .670d0, .675d0, .680d0, .685d0, .690d0, .695d0, .700d0, .705d0, .710d0, .715d0, .720d0, .725d0, .730d0, .735d0, .740d0, .745d0, .750d0, .755d0, .760d0, .765d0, .770d0, .775d0, .780d0/) | |
real(kind=r64), |
private, |
DIMENSION(numt3) | :: |
y30 | = | (/0.0000d0, 0.0001d0, 0.0001d0, 0.0002d0, 0.0004d0, 0.0006d0, 0.0012d0, 0.0022d0, 0.0040d0, 0.0073d0, 0.0116d0, 0.0168d0, 0.0230d0, 0.0298d0, 0.0380d0, 0.0480d0, 0.0600d0, 0.0739d0, 0.0910d0, 0.1126d0, 0.1390d0, 0.1693d0, 0.2080d0, 0.2586d0, 0.3230d0, 0.4073d0, 0.5030d0, 0.6082d0, 0.7100d0, 0.7932d0, 0.8620d0, 0.9149d0, 0.9540d0, 0.9803d0, 0.9950d0, 1.0000d0, 0.9950d0, 0.9786d0, 0.9520d0, 0.9154d0, 0.8700d0, 0.8163d0, 0.7570d0, 0.6949d0, 0.6310d0, 0.5668d0, 0.5030d0, 0.4412d0, 0.3810d0, 0.3210d0, 0.2650d0, 0.2170d0, 0.1750d0, 0.1382d0, 0.1070d0, 0.0816d0, 0.0610d0, 0.0446d0, 0.0320d0, 0.0232d0, 0.0170d0, 0.0119d0, 0.0082d0, 0.0158d0, 0.0041d0, 0.0029d0, 0.0021d0, 0.0015d0, 0.0010d0, 0.0007d0, 0.0005d0, 0.0004d0, 0.0002d0, 0.0002d0, 0.0001d0, 0.0001d0, 0.0001d0, 0.0000d0, 0.0000d0, 0.0000d0, 0.0000d0/) | |
integer, |
private |
| :: |
ngllayer | | | |
integer, |
private |
| :: |
nglface | | | |
integer, |
private |
| :: |
nglfacep | | | |
real(kind=r64), |
private |
| :: |
tout | | | |
real(kind=r64), |
private |
| :: |
tin | | | |
real(kind=r64), |
private |
| :: |
tilt | | | |
real(kind=r64), |
private |
| :: |
tiltr | | | |
real(kind=r64), |
private |
| :: |
hcin | | | |
real(kind=r64), |
private |
| :: |
hcout | | | |
real(kind=r64), |
private |
| :: |
Ebout | | | |
real(kind=r64), |
private |
| :: |
Outir | | | |
real(kind=r64), |
private |
| :: |
Rmir | | | |
real(kind=r64), |
private |
| :: |
rtot | | | |
real(kind=r64), |
private |
| :: |
gcon(5,5,3) | = | 0.0d0 | |
real(kind=r64), |
private |
| :: |
gvis(5,5,3) | = | 0.0d0 | |
real(kind=r64), |
private |
| :: |
gcp(5,5,3) | = | 0.0d0 | |
real(kind=r64), |
private |
| :: |
gwght(5,5) | = | 0.0d0 | |
real(kind=r64), |
private |
| :: |
gfract(5,5) | = | 0.0d0 | |
integer, |
private |
| :: |
gnmix(5) | = | 0 | |
real(kind=r64), |
private |
| :: |
gap(5) | = | 0.0d0 | |
real(kind=r64), |
private |
| :: |
thick(5) | = | 0.0d0 | |
real(kind=r64), |
private |
| :: |
scon(5) | = | 0.0d0 | |
real(kind=r64), |
private |
| :: |
tir(10) | = | 0.0d0 | |
real(kind=r64), |
private |
| :: |
emis(10) | = | 0.0d0 | |
real(kind=r64), |
private |
| :: |
rir(10) | = | 0.0d0 | |
real(kind=r64), |
private |
| :: |
AbsRadGlassFace(10) | = | 0.0d0 | |
real(kind=r64), |
private |
| :: |
thetas(10) | = | 0.0D0 | |
real(kind=r64), |
private |
| :: |
thetasPrev(10) | = | 0.0D0 | |
real(kind=r64), |
private |
| :: |
fvec(10) | = | 0.0D0 | |
real(kind=r64), |
private |
| :: |
fjac(10,10) | = | 0.0D0 | |
real(kind=r64), |
private |
| :: |
dtheta(5) | = | 0.0d0 | |
real(kind=r64), |
private |
| :: |
zir(10,10) | = | 0.0d0 | |
real(kind=r64), |
private |
| :: |
ziri(10,10) | = | 0.0d0 | |
real(kind=r64), |
private |
| :: |
ddeldt(10,10) | = | 0.0d0 | |
real(kind=r64), |
private |
| :: |
dtddel(10,10) | = | 0.0d0 | |
real(kind=r64), |
private |
| :: |
qf(10) | = | 0.0d0 | |
real(kind=r64), |
private |
| :: |
hf(10) | = | 0.0d0 | |
real(kind=r64), |
private |
| :: |
der(10,5) | = | 0.0d0 | |
real(kind=r64), |
private |
| :: |
dhf(10,5) | = | 0.0d0 | |
real(kind=r64), |
private |
| :: |
sour(10) | = | 0.0d0 | |
real(kind=r64), |
private |
| :: |
delta(5) | = | 0.0d0 | |
real(kind=r64), |
private |
| :: |
hcgap(5) | = | 0.0d0 | |
real(kind=r64), |
private |
| :: |
hrgap(5) | = | 0.0d0 | |
real(kind=r64), |
private |
| :: |
rgap(6) | = | 0.0d0 | |
real(kind=r64), |
private |
| :: |
rs(6) | = | 0.0d0 | |
real(kind=r64), |
private |
| :: |
arhs(6) | = | 0.0d0 | |
real(kind=r64), |
private |
| :: |
A23P | | | |
real(kind=r64), |
private |
| :: |
A32P | | | |
real(kind=r64), |
private |
| :: |
A45P | | | |
real(kind=r64), |
private |
| :: |
A54P | | | |
real(kind=r64), |
private |
| :: |
A67P | | | |
real(kind=r64), |
private |
| :: |
A76P | | | |
real(kind=r64), |
private |
| :: |
A23 | | | |
real(kind=r64), |
private |
| :: |
A45 | | | |
real(kind=r64), |
private |
| :: |
A67 | | | |
real(kind=r64), |
private |
| :: |
wlt(MaxSpectralDataElements,5) | = | 0.0d0 | |
real(kind=r64), |
private |
| :: |
t(MaxSpectralDataElements,5) | = | 0.0d0 | |
real(kind=r64), |
private |
| :: |
rff(MaxSpectralDataElements,5) | = | 0.0d0 | |
real(kind=r64), |
private |
| :: |
rbb(MaxSpectralDataElements,5) | = | 0.0d0 | |
real(kind=r64), |
private |
| :: |
tPhi(MaxSpectralDataElements,5) | = | 0.0d0 | |
real(kind=r64), |
private |
| :: |
rfPhi(MaxSpectralDataElements,5) | = | 0.0d0 | |
real(kind=r64), |
private |
| :: |
rbPhi(MaxSpectralDataElements,5) | = | 0.0d0 | |
real(kind=r64), |
private |
| :: |
tadjPhi(MaxSpectralDataElements,5) | = | 0.0d0 | |
real(kind=r64), |
private |
| :: |
rfadjPhi(MaxSpectralDataElements,5) | = | 0.0d0 | |
real(kind=r64), |
private |
| :: |
rbadjPhi(MaxSpectralDataElements,5) | = | 0.0d0 | |
integer, |
private |
| :: |
numpt(5) | = | 0 | |
real(kind=r64), |
private |
| :: |
stPhi(nume) | = | 0.0d0 | |
real(kind=r64), |
private |
| :: |
srfPhi(nume) | = | 0.0d0 | |
real(kind=r64), |
private |
| :: |
srbPhi(nume) | = | 0.0d0 | |
real(kind=r64), |
private |
| :: |
saPhi(nume,5) | = | 0.0d0 | |
real(kind=r64), |
private |
| :: |
top(5,5) | = | 0.0d0 | |
real(kind=r64), |
private |
| :: |
rfop(5,5) | = | 0.0d0 | |
real(kind=r64), |
private |
| :: |
rbop(5,5) | = | 0.0d0 | |
real(kind=r64), |
private |
| :: |
IndepVarCurveFit(10) | = | 0.0d0 | |
real(kind=r64), |
private |
| :: |
DepVarCurveFit(10) | = | 0.0d0 | |
real(kind=r64), |
private |
| :: |
CoeffsCurveFit(6) | = | 0.0d0 | |
real(kind=r64), |
private |
| :: |
tsolPhi(10) | = | 0.0d0 | |
real(kind=r64), |
private |
| :: |
rfsolPhi(10) | = | 0.0d0 | |
real(kind=r64), |
private |
| :: |
rbsolPhi(10) | = | 0.0d0 | |
real(kind=r64), |
private |
| :: |
solabsPhi(10,5) | = | 0.0d0 | |
real(kind=r64), |
private |
| :: |
solabsBackPhi(10,5) | = | 0.0d0 | |
real(kind=r64), |
private |
| :: |
solabsShadePhi(10) | = | 0.0d0 | |
real(kind=r64), |
private |
| :: |
tvisPhi(10) | = | 0.0d0 | |
real(kind=r64), |
private |
| :: |
rfvisPhi(10) | = | 0.0d0 | |
real(kind=r64), |
private |
| :: |
rbvisPhi(10) | = | 0.0d0 | |
real(kind=r64), |
private |
| :: |
CosPhiIndepVar(10) | = | 0.0d0 | |