Ar-GL.TR-83.0187 (Supplement)EWJVIRONMENTAL RESEARCH PAPERS, NO. 848
00•
Atmospheric Transmittance/Radiance:
Computer Code LOWTRAN 6 Supplement:
Program Listings
F. X. KNEIZYS
E. P. SHETTLE
W. 0. GALLERY
J. HK CHETWYND, Jr.
<L.W.ABRFU
J,. E, A. SELBY
Z
S. A. CLOUGH
R. W. FENN
DTIC
ELECT
S FEB10 W4
1 August 1983
B
Appovs4 for pubicet
OPTICAL PHYSICS DIVISION
d.•,ttuts
ittas..
on I uw ,-.
d
PROJECT 7670
AIR FORCE GEOPHYSICS LABORATORY
"aNSCOM
APO, 1,EASACHUSZ.T
S 01731
AIR FORCE SYSTEMS COMMAND, USAF
UI,, FILE COPY
This report has been reviewed by the ESD Public Affairs Office (PA)
is releasable to the National Technical Information Service (NTIS)
This technical report has been reviewed and is
and
approved for publication
FOR THE COMMANDER
BERTRAM D. 3CHURIN, Chief
Infrared Physics Bcanch
OHN S.
G
CtJOlit S.s
Optica
PW
, Dii
Ic
Division
qualified requestors may obtain additional :oples ftom the Lefenie Technical
Information Center.
All others shoul4 apply to the Watlor.l Technical
Information Service.
If your address has changed, or if you wish to be removed from the mallint
list, or if the addressee is no longer employed by your organization, please
notify AeGLiDAA, Hianscom AFB, ?A 01731.
This will assist us in maintaintna
Scurrent mailing list.
Do not return copies of this report unless contractual
on a specific document requires that it be re)turned.
blIlgations or notices
Unclassified
SECURITY CLASSIFICATION OF THIS PAGE (n~
Det*.
ntor. 4)
________________
PAGE
RE.R
TITANTA.O
READ
NSTRUTION
COMPUTER~BFOR
LFORM6__________
CODEETNG
AFG-TR83F18
I.
'1*F.
NoSu46 (upplent
AUTHO~te)
X. Kneizys
E. P. Shettle
W.O0. Galler
. CONTRACT OR GRANT NUM11E911()
J. H. Chetwynd, Jr.
L. W. Abreu
S. A. Clough
JI.A Selby*
R. W. Fenni
,
S. P;,.IkPORUING ORGANIZATOr
N;.
AN.
10.PROGRAM
ARES
II.
CONTROLkLNG OFPlCE
AANE
62101IF
ADOAGRESS
76700907
It. REPORT DATE
Alir Force Geophysics Laboratory (OPI)
1 August 1883
Hanscomn AFB
NSE
Massachusetts 01731
IC. MONITAORING AGIENCYNAME A AOORESS5(it diU*Eefo,,,.
low
ELEMENT. PROJECT, TASK
4 WORKUNIT NUM99PS
ADD""AREA
AN
%"a
Air Force Geophysics Laboratory
(OPI)
Hanscm
AFB78701402
Massachusetts 01731
t..IM*4* Olti..)
F A9
196
fS. SECURITY CL ASS. (of ltwo 000m)
Unclassified
*
.
Approved fork pablic release. distribution onlimited.
WI MSYRIUUTIONSTTMNWW
664lotftoNA0.4
1#
"6460
Grumman Aeroipueo Corporation
3
41Visible
O~
ric
~ tranaittaiunce
. ~e ~eI
f.I?
Atmiospheric radiuace
Y Infrared
*~~~~~~~~~~~
fl&e.In..
~w..d
t
~
Atmospheric
teIUAt-inosphw
optics
Sola r/ lunar
Rladiative transtar
Attenuation
AeooI4.
Scattering
64YNC
Ie.tp
Pe r
~
ot 4tW*#b
s1hi
upplatteht lusta t;, L
:WTHtAN 6 computer code for prod Ctung
atmnospheric traln dmttance ;atn ~ho thernial radjotion einitted by th iunlosphoeand -eartlh from 350 to 40, 000-eit-1 at a ~'rog.voluti(IIn gf 20
~.The
PrOgranii based on the L(Z)WTIIAN 5 (11101 econputter code. SkohaA i.unar
scattered radiation liua bee~n added to tho code. ag well us i%now spherical
retractive, goonietry subroutine and tin imnprovted water vapor cointinuum model.
Other maodifications to tMe code include a wind-dependent niarl~ijuio aerosol
tnodeC#A vertical structure acumsol Miodel, a cirrun irjoud iiioikl., 4110 A
-
Do
173
'NO.I6I3GWETEUnclassified
,2:*~,
GIYau~
teCualVv C&I&AMIIINC O T"9 *409 (NOWvote#.7L
Unclassified
SECURITY CLASSIFICATION OF THIS PAGK(Imi
Date EInt*e,)
(Contd)
20.
""rain model.
The computer code contains representative (geographical and seasonal)
atmospheric models and representative aerosol models with an option to
replace them with user-derived or measured values. The program can be run
in one of three modes, namely, to compute only atmospheric transmittance.
to compute atmospheric transmittance and radiance, or to compute atmospheric transmittance, atmospheric radiance, and scattered solar/lunar background radiance for a given slant path geometry.
Two new programs now available with the LOWTRAN 6 package, the plot
program and the filter function program, are listed in this supplement.
AV
U
"
a
f
~Unclassified
1.
INRDCTO4
"-4
Contents
Illustrations
S2.
2.
LOWTRAN 6 Main ProgrAm StructuRv
7
3.
Program Structure for the Non-Standard Model Subroutitie7
LroWtRAm Structure for th Air Mass
T
SubroutiEv
6
Program Structure for thte Shigle Scatteritig Geometry Subroutfues
Prlogram St-olctuirv for Ul.,2 Transtittatice Subroutittes
Plot Program StructuR-e
Filtor Program Structurue
9
9
.4.
S.
6.
7.
A.oession ior 6
NTIS
ORA&I
9*4
S|~
,•
[
.
Justifieatio- .
r
Distribuhtiton./
........
~Aval~a~bility MOBd
iidjaw
Sp"I"
Dist vail
,1..
[
]
!
DTIC TAB
I
Tables
1.
Description of LOWTRAN 6 Subroutines
10
2.
Description of SSGEO Subroutines
11
3.
Description of Air Mass Subroutines
12
4.
Description of TRANS Subroutines
13
5.
Description of Block Data Subroutines
14
6.
Listing of Computer Code LOWTRAN 6
15
7.
Descriptions of Plot Program Subroutines
164
8.
Listing of LOWTRAN 6 Plot Code
165
9.
Description of LOWTRAN Filter Program Subroutines
185
Listing of LOWTRAN 6 Filter Function Code
187
10.
4,j
I
i4.
S..
...
..
:-4
Atmospheric Transmittance/ Radiance:
Computer Code LOWTRAN 6
Supplement: Program Listings
1.
INTRODUMION
This supplement contains a brief description of the progratu structure and U
complete listting of the FORTRAN computer code for LOWTHAN 6. An index
idontifying the location of auch subroutino and a •htort description of the function of
eaeh subroutine is Included.
Section 3 eontatne the prograim structure asid complete listing of the LOWTRAN 6
plot program. An index and a brief description of oach subroutine is included.
Section 4 contuanis die program structure and complete listing of the LOWITAN 6
filter function progr'am. Anl index and brief description of cacti subroutine W,also
included,
The technical description of LOWTHAN 6
along with basic user instructions.
saanple input •nd ootput. and other spcialized vocUonS are detailed in the main
report.
2.
LOWTTAN 6 IMOGitAM SUCrUI•E
'the three progranis contained in thit supplement adhere principally to ANSI
standatrd t'FOTIAN 71% The major exception is the u" of type IHOLLEiRITH
instead of type CHARACTER for Otaracter data.
(lReceived for publication 29 July 1983)
5~
Figure 1 depicts the LOWTRAN code structure.
The NSMDL, GEe, SSGEO,
and TRANS subroutines are shown in Figures 2, 3, 4. and 5 respectively.
Table I
is a description of the main subroutines in LOWTRAN shown in Figure 1.
Tables 2.
3, and 4 contain descriptions of the SSGEO, GEO and TRANS subroutines respectively.
Table 5 has descriptions for the data subroutines.
The page number location for each subroutine is included in the above mentioned
tables.
The complete listing of the LOWTRAN 6 computer code is in Table 6.
3.
LOWTRLAN PLOT. PROGRAM STRUCTURE
The plot program for LOWTRAN 6 is a separate program package available
with LOWTRAN 6.
The plot code structure is shown in Figure 6.
of each subroutine and page number location are shown in Table 7.
Descriptions
(See Appendix A
(;f the main LOWTRAN 6 report for possible differences in system plotting routines.)
Table 8 is the complete listing of the LWWTRAN 6 plot program.
4.
FILTER FUNCTIONt PROGRA4M STRUCTURE
The filter function progrum is an independent program package available tor
use on LOWTIAN 6 Tape 7 output, The filter function code structure is shown In
F•gure 7.
M.scriptions of each subroutine a#W page number location are listed in
lTable 9.
A
*
Table 10 is the i•onplete listinig of the WWTHAN 6 filter function program.
A6
6
MARINE
SUBSOLj
VSA
I
I
NSMOL
sue,
.1ROUTINES
In
r
TRANS
SSGEO
YSTIDMDL
CIRSNSMDL
EAI
GEO
SEO'
RN6I
I sue.R
IROUTINES
I
TN
ROUTINESI
I
L- -
fj
Sue.
LOWTKAN 6 Main Progr~rtl- StiluetutrC. ThO b*eO OnCloged by' dadhes
ate nwodule8 of subroutine for the clt:uI•lton ot P.on-s-uldurd modols. cir mu
geo.metry, single scattering goo• otry and tran•mittaneu
Figure I.
Figure 2.
Program Structure for UW Non-stundard Model Subroutines
GEGEO
FNDHUN
~FDBETA
Figure 3.
Figuren 4.
RDC
Programn Structure for the Air Mass Subroutitnes
Proigt•am Structuro ftor the Sinlegi Scaltering Go•metry Subroutines
1%1
.ifiitire 5.
Program
ltStrrttuiug, for the Tra$1r;ntitallc' Sutbloutille,
,
cludel,-; the •1wilo ,itnjg 4tbthbelineg:
lcabtlled hlol ,uiar Attnutinanint
C3DTA. C4L)'A. CoRY'A. SL)296. SLF260. 1FtN296 asd4 IIN03
Thr
d~lv•)cd tc.
CiAiTA.
C2Dl'A.
PITOTA
E
.1I
41
IXSAXLEG
Figure 6.
Plot Prorgram Structure
kI•Uu"w ;.
Filtvr Pr~ige~m
AV
5tttitus'e
I1"able 1.
DI)scription of LWTRN6 Subroutines
Page
No.
LWTRN6
MARINE
CIRRUS
RANDOM
MAIN DRIVER PROGRAM.
CARDS.
READS CONTROL.
16
DETERMINES AEROSOL EXTINCTION AND
ABSORPTION COEFFICIENTS FOR THE NAVY
MARITIME MODEL.
GENERATES ALTITUDE PROFILES OF
92
CIRRUS CLOUD DENSITY.
89
CALLS MACHINE DEPENDENT FUNCTION RANF
WHICH IS A UNIFOX:RM RANDOM NUMBER
GENERATOR.
91
ARMY VERTICAL STRUCTURE ALGORITHM OF
AEROSOL EXTINCTION ANt) RELATIVE HUMIDITY
FOR LOW VISIBILITY I.OW CEILING CONDINTIONS.
FOR USER DEFINED ATMOSPHERIC OR AEROSOL
PROFILES.
97
RIESTRUCT'URES
TIHE ATMOSPHERIC
PROFILE
FMR FINER LAYERING
NEAR THE GROUND
F•R
USE W(TH THE VSA O|1TION,
REtAS MOttH27 DATA FOtR ANY V04AICAL
94
STR{UCT URE; ALGORITHM.
36
SVI-OL
CA LCU'LATES T1IE SUCI OLAR POINT ANGLES
BASED) UPON TIME; AND DAV,
84
STOMOL
SETS VP ATMOSPIIE{IUC PROFILES OF
ATThN UAIO DENSITICS.
37
VSA
NSMDL
LAkYVSA
RtDNSM
I
- AEUPUF
NGE•O
"NSSGO
EXA B IN
TRANS
33
COMPUTES SCALING FACTOR PROFILES
FOR AEROSOL2S. N3-I
DIlVF0I FORl AIR INMASS SV11O=1TNE-S,
CA 1,CU .ATVS ATTEINUATORI A MOUNTS FOPt
TII0 SlANT PATHI.
i
OBTAINS ATTENUATOR AN•OUNTS FI1O4
SCATTERING POINTS A-ONG OP-TICAL PATH
TO TIlE EXTIRATEFUIWSTRIAL SOURCE.
73
LOADIS A ROS I, EXt'IACTION AND
P AlW
SO •1 TION
COEPFFICIFNTS I.FOR THE APPROPU SATE MODEIL
AND RELATIVE HUMIDITY
to
CALCUI.VATE' TRANSMITTANC., AT*MOSPIIEIIC
RADIANCE. AND SOSAU 3 LU.NAR SCATTEARDI
RADiANCE FOR SLANT PATH.
61
RDA
Table 2.
Description of SSGEO Subroutines
Page
No.
SSGEO
PSIDEL
PSI
DEL
GEO
SCTANG
-
'5
OBTAINS ATTENUATOR AMOUNTS FROM
SCATTERING POINTS ALONG OPTICAL PATH
TO THE EXTRATERRESTRIAL SOURCE.
CALCULATES THE RELATIVE AZIMUTH
BETWEEN THE LINE OF SIGHT AND THE
DIRECT SOLAR/LUNAR PATH.
RETURNS SOLAR AZIMUTH RELATIVE TO
LINE OF SIGHT AT CURRENT SCATTERING
LOCATION.
73
77
79
RETURNS SOLAR ZENITH ANGLE AT ANY
POINT ALONG OPTICAL PATH.
80
DRIVER FOR AIR MASS SUBROUTINES.
CALCULATES ATTENUATOR AMOUNTS FOR
THE SLANT PATH.
41
RETURNS THE SCATTERING ANGLE AT ANY
POINT ALONG THE OPTICAL PATH.
78
11
Table 3.
Description of Air Mass Subioutines
Page
No.
DRIVER FOR AIR MASS SUBROUTINES.
CALCULATES ATTENUATOR AMOUNTS FOR
THE SLANT PATH.
41
INTERPRETS GEOMETRY INPUT PARAMETERS
INTO THE STANDARD FORM HI. H2, ANGLE.
AND LEN.
45
FNDHMN
CALCULATES HMIN. THE MINIMUM ALTITUDE
ALONG THE PATH AND PHI. THE ZENITH
ANGLE AT H2.
51
REDUCE
ELIMINATES SLANT PATH SEGMENTS WHICH
EXTEND BEYOND THE HIGHEST PROFILE
ALTITUDE.
48
CALCULATES ANGLE, GIVEN HI. H2 AND
BETA BY ITERATION.
49
DETERMINES TEE REFRACTED PATH AND
THE ABSORBEIu AMOUNTS THROUGH ALL THE
LAYERS.
54
DEFINES THE BOUNDARIES OF THE SLANT
PATH AND INTERPOLATES DENSITIES AT
THESE IA)UN DARIES.
57
CALCULATES THE PATH AND AMOUNTS
THROUGH ONE LAYER.
58
COMPUTES RADIUS OF CURVATURE OF' TT';.
REFRACTED RAY MOR A HORIZONTAL PATH.
53
FINDSH
FINDS 1-,AYbR IK)UNDARIES ANI SCALE HIEIGHT
AT GROUND FOR INDEX OF REFRACTION,
53
SCALHT
CALCULAT)"S SCALE HEIGHT OF INI)DEN OF
-REFRACTION.
53
ANDEX
COMPUTE4S INDE:X OF RE'FRACTION AT A
S PE.CIFIC HEIGHT.
53
PI,'RFO RMS HXI•)NENTIAL INTEi.RPOLATIONS
IFOR THE GEOMETRY HOUTINKS.
51
GEO
GEOINP
FDBETA
RFPATH
FILL
LAYE,,
RADREF
EXPINT
t4
12
Table 4.
Description of TRANS Subroutines
Page
No.
TRANS
AEREXT
HNO3
TRANFN
SOURCE
CALCULATES TRANSMITTANCE, ATMOSPHERIC
RADIANCE, AND SOLAR/LUNAR SCATTERED
RADIANCE FOR SLANT PATH.
61
INTERPOLATES AEROSOL ATTENUATION
COEFFICIENTS TO REQUIRED WAVENUMBER.
72
DETERMINES NITRIC ACID ABSORPTION
COEFFICIENT TO REQUIRED WAVENUMBER.
CALCULATES TRANSMITTANCE FOR OZONE,
72
UNIFORMLY MIXED GASES AND WATER VAPOR.
68
CONTAINS SOLAR INTENSITY DATA AND
CALCULATES LUNAR INTENSITY.
82
TNRAIN
CALCULATES TRANSMITTANCE OF RAIN AS
A FUNCTION OF RAIN RATE AND SLANT RANG E.
88
SSRAD
PERFORMS THE LAYER BY LAYER SINGLE
SCATTERING RADIANCE SUM.
81
PHASEF
INTERP
PF
CIDTA
C2DTA
CHOOSES CORRECT PHASE FUNCTION BASED
ON RELATIVE HUMIDITY, FREQUENCY,
SCATTERING ANGLE AND MODEL.
85
PERFORMS LINEAR OR LOGARIIHMIC
INTERPOLATION,
88
RETURNS THE APPROPRIATE PHASE FUNCTION
FROM THE STORED DATA BASE.
88
RETURNS WAVER VAPOR BAND ABSORPTION
COEFFICIENT AT REQUIRED WAVENUMBER.
67
RETURNS UNIPORMtY MIXED GASES
ABSORPTION COEFFICIENT AT REQUIRED
WAVENUMBER.
C3DTA
67
R ETIURNS OZONE HANI) A BSO RPTION
COEFFICI ENT AT R10EQUIRED WAVENUMBER.
IRETURNS N) CONTIN UUM A tSORVPTIION
COEFFICIE1T AT RE'QUIRED WAVENUMBER.
RUETURNS MOLECULAR SCATTERING ATTEN UA TION COEFFICIENT AT REQUIREID WAVENUMBER,
RETURNS OZONE' U. V. AND VISIBLE ABSORPTION
COEFFICIENT AT REQUIRED WAVENUNMtER.
LOADS SLELF BROADENEDD WATE.1R VAI)
CONTINUUM AT 296' K.
69
SLF260
LOADS SELF BROAZ)NIND WATERI VAPOK
CONTINUUM AT 280" K.
69
FRN-296
LOAtS FO REIGN BQOA DENtED WAT'R VA PORH
CONTINUUM AT 296" K.
IE I1FORMS INTERP)LATION FOR WATI-R VAI-OR
CONTIN UU M,
C4DTA
C6DTA
CODTA
SLF236
SINT
13
67
68
68
68
69
69
Table 5.
Description of Block Data Subroutines
Page
No.
MDTA
MODEL ATMOSPHERIC DATA.
102
TITLE
TITLES FOR OUTPUT.
105
PRFDTA
AEROSOL PROFILE DATA.
106
EXTDTA
AEROSOL EXTINCTION AND ABSORP7T ION DATA.
108
SF296
SELF BROADENED ABSORPTION COEFFICIENTS
FOR WATER VAPOR CONTINUUM AT 2960 K.
114
SELF BROADENED ABSORPTION COEFFICIENTS
FOR WATER VAPOR CONTINUUM AT 260 0 K.
122
FOREIGN BROADENED ABSORPTION
COEFFICIENTS FOR WATER VAPOR CONTINUUM
AT 2960 K.
LOWTRAN TRANSMITTANCE FUNCTIONS.
130
138
C1D
WATER VAPOR BAND MODEL ABSORPTION
COEFFICIENTS,
139
C2D
UNIFORMLY MIXED GASES BAND MODEL
ABSORPTION COEFFICIENTS.
144
C3D
OZONE BAND MODEL ABSORPTION
COEFFICIENTS.
NITROGEN CONTINUUM ABSORPTION
COEFFICIENTS AND UV OZONE ABSORPTION
C;)EFFACIENTS.
SF260
BFH20
TRFN
C4D
MARDTA
PHSDTA
NAVY MAFNE AEROSOL EXTINCTION AND
ABSOIRPTION DATA.
148
149
70 i.VERAGFD PHASE FUNCTIONS AND TRUTH
T\BLE ILENTIFYING CORRECT PHASE
FUNCfION.
II
147
153
S-9
A :
s.r:
. .
:
i•Ce
PROGRAM LWTRINS
LNT
100
PROGRAM LWTRN6(INPUT.i40,OUTPUT.140.TAPE7S140,TAPE5UINPUT,
LWT
105
LVT
LWT
110
110
LWT
LWT
AUTHORS
LWT
F.X.KNEIZYS
LWT
E. P. SHETTLE
LWT
W. D. GALLERY
LWT
J. H. CHETWYNO JR.
LW?
L. d. ABREU
LWT
J. E. A. SELBY
LWT
S. A. CLOUGH
LWt
R. W. FENN
LWT
LWT
PROGRAM LOWTRAN JALCULATES THE TRANSMITTANCE AND/OR RADIANCE
LWT
OF THE ArMOSPHERE
FROM 350 CM-1 TO 40000 CM-I (0.25 TO 28.57
LWT
MICRONS) AT 20 CM-1 SPECTRAL RESOLUTION ON A LINEAR
LWT
WAVENUMBER SCALE.
LWT
LWT
DETAILED MODEL AND PROGRAM DESCRIPTION CAN BE FOUND IN
LWT
KNEIZ'S, F. X..SHETTLE, a. P. *GALLERY, V. O..CHETWYND, J. H.. LWT
ARREU, L. W., SELBY. J. E. A., CLOUGH, S. A., FENN, R. W.
LW?
(1983) ATMOSPHERIC TRANSMIrTANCE/RADIANCE- COMPUTER CODE
LWT
LOWTRAN 6
LWT
AFGL TECHNICAL REPORT (IN PREPARATION)
LWT
125
I30
135
140
145
150
155
160
165
170
175
180
185
190
I
TAPES-OUTPUT)
C
C.*4*.t,9oe*o***W*S**$*$*.#**9e*t~
C
C
C
r
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
LOWTRAN6
(LAST REVISED JUNE,
****e~*ee*t*eo,.*S*********@***oieW•T
1983)
120
1gs
200
205
210
215
220
225
230
235
C***.**.&ee.*....
*
*...*
...
t*t9,.****ee****O,.4SS,,*,LWT
e*"
240
C
LWT 245
C
THE FOLUWWING CARDS SHOULD BE KEYPUNCHED BY THE USER
LWT 250
C
AND MAIf.ED TO
FX.KNEIZYS.AFGL/OPI.HANSCOM AFB.MASS 01731
LWT 255
C
THE CARDS WILL OF USED TO UPDATE THE AFGL MAtING LIST
LWY 260
C
AND FOR NOTIFICATION TO THE USER OF ERRORS IN THE CODE
LWT 265
C
LW? 270
C
LWT 275
C
(USE COLUUINS 21 TO 72)
LWT 280
C
.0.w
NAME
LWT 285
C
LOWTCE
COMIPANY
LWT 290
C
LTd?6 ADDUESS
LW? 295
C
LWT 300
C
LWT 305
4
4
C..4...... 4.....
*...• . * *.**e~e~tee*.# ee*ee **#e.**
q
o* oe..ee.•LW
310
C
PRIGRAM ACTIVATED BY SUOUISSION Of FIVE
(OR MORE)
LWY 315
C
i.ARD 3COUENCE AS FOLLOAS
LWT 320
C
LWT 325
C
CARDI
M1OELITYPEIEPASCT.MtM2.M3,1M.NOPRT.TSOUND.SALO
LVT 330
C
FORuAT(8I5.2FP1.3)
LW?
335
C
LWT 340
C
CARD 2
IHAZEISEA$N.tVULCNICSL.ICIRIVSA.VISWSSWVHRAINRT
LWT 345
FORMAT(GI.4F10,3)
LWY 350
C
LWT 35M
C
CARD 2A
CTHINCALT.ISEED
(|ClRet)
LWT 360
C
FOR&4(VtIO.3,110)
LWT 365
C
LW?
3?0
C
CARD 28
ZCVSA.ZTVSAZINVSA
(IVSAal)
LWT 375
C
FORMAT(3FtO.3)
LW? 360
C
LW? 365
C
CARD 2C MLTITLE
(400ELa7,IU.1)
LWT 390
10
SC
FORMAT(15,18A4)
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
LWT
LWT
(I TO ML) Z,P,T,DP,RH.WH,WOAHAZE,VISI,IHAI.ISELWT
FORMAT(3FiO.3,2F5.1,3ElO.3,F7.3.31i)
LW?
LWT
CARD 20
(1 TO IO)(DUMMY,EXTC(1,1),ABSC(,I,),1II,40)
LWT
FORMAT(4(F6.2,2F?.5))
(tHAZE.7)
LWT
LWT
HIH2,ANGLERANGE,BETA,ROLEN
FORMAT(SFIO.3,15)
LWT
LWT
CARD 30
HI,P.TDPRH.WH,WORANGE
(MODELmO)
LWT
FORMAT(3FlD.3,2FS.1,2EIO.3,FIO.3)
LWT
LWT
CARD 3A1
IPARMIPH,IDAYISOURC
(IEMSCT-2)
LWT
FORMAT(41S)
LWT
LWT
CARD 3A2 PARMI.PARM2,PARM3.PARM4,TIME,PSIPO,ANGLEM,G
LWT
FORMAT(BFio.3)
(IEMSCT*2)
LWT
LWT
CARD 381 NANGLS
(IPHRI)
LWT
FORMAT(15)
LWT
LWT
CARD 382(1 TO NANGLS)
(IPHsI)
LWT
(ANGF(I),F(I1,I),F(2,1).F(3,I).F(4,1),tl,,NANGLS)
LWT
FORMAT(FIO.3,4EIO.3)
LWT
LWT
V1, V2, DV
FORMAT(3FI0.3)
LWT
LWT
IRPT
FORMAT(15)
LWT
LW?
395
400
405
410
415
420
425
430
435
440
445
450
455
460
465
470
475
480
485
490
495
500
505
510
515
520
525
530
535
540
LWT
LWT
LWT
LW?
MODEL SELECTS ONE OF SIX GEOGRAPHICAL MODEL ATMOSPHERES LWT
OR SPECIFIES THAT USER-DEFINED METEROLOGICAL
LWT
DATA ARE TO BE USED.
LWT
LWT
LWT
IF METEOROLOGICAL DATA ARE SPECIFIEQHO(RIZONTAL PATH ONLYLWT
TROPICAL ATMOS91HERE
LWT
MIDLATITUDE SUMMER
LWT
MIOLATITUDE WINTER
kWt
SUBARTIC
SUMAER
LW?
SUDARTIC
WIN|Tff
LWT
1962 U.S, STANDARD ATMOSPHERE
LW?
IF A NEW MODEL AT14SPHERE( OR RADIOSONDE DATA) IS TO SE INLWT
LWT
LWT
1YPt INDICATES THE TYPE OF ATMOSPHERIC PATH
LWT
LW?
FOR A HORIZONTAL (CONSTANT-PRESSURE) PATH
LW?
VERTICAL OR SLANT PATIISETWEEN TWO ALTITUDmS
LW?
FOR A VERTICAL PATH TO SPACE
LWT
LWT
LW?
IEMSCT OETERMINES THE MOVE OF EXECUTION OF THE PROGRAM
LWT
550
555
560
565
570
575
580
585
590
595
600
605
610
615
620
625
630
635
640
045
050
655
660
665
670
6C5
680
CARD 2C
CARD 3
CARD 4
CARD 5
CARD I
MODEL-0
I
2
3
4
5
6
7
ITYP&e*
2
3
MODELTYYPEZEMSCT,MI.M2,M3,IM.NOPRTTBOUNDSALB
FQRMAT(85,2FI0.3)
LWf l1
17
C
C
C
C
C
C
C
C
C
C
C
C
C
IEMSCT-0
1
2
PROGRAM EXECUTION IN TRANSMITTANCE MODE.
PROGRAM EXECUTION IN RADIANCE MODE.
PROGRAM EXECUTION IN RADIANCE MODE WITH SOLAR/LUNAR
SCATTERED RADIANCE INCLUDED.
LWT
LWT
LWT
LWT
LWT
LWT
MI,M2,M3 ARE USED TO MODIFY OR SUPPLEMENT THE ALTITUDE
LWT
PROFILES OF TEMPERATURE AND PRESSUREWATER VAPORAND OZONELWT
LWT
M1.M2*M3=0 FOR NORMAL OPERATION OF PROGRAM
LWT
LWT
mi.
TROPICAL
TEMPERATURE AND PRESSURE PROFILES
LOT
2
MIDLATITUDE SUMMER.TEMPERATURE AND PRESSURE PROFILES
LWT
C
LWT
755
C
C
C
C
C
C
LWT
LWT
LWT
LWT
L!T
LWT
LWT
LWT
LWT
LWT
LWT
760
765
770
775
780
785
8
M2*1
2
1962 U.S.
STANDARD TEMPERATURE AND PRESSURE PROFILES
TROPICAL
WATER VAPOR PROFILE
MIDLATITUDE SUMMER WATER VAPOR PROFILE
C
C
C
C
C
6
M3%1
2
1962 U.S.
STANDARD WATER VAPOR PROFILE
TROPICAL
OZONE PROFILE
MIDLATITUDE SUMMER OZONE PROFILE
C
C
C
C
C
C
C
C
A
"".
690
695
700
705
710
715
720
725
730
735
740
745
750
C
c
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C.
SC
C
C
C
LWT
6
IM-O
R
I
1962 U.S.
STANDARD OZONE PROFILE
FOR NORMAL OPERATION OF PROGRAM OR WHEN SUBSEQUENT
F
CALCULATIONS ARE TO BE RUN WITH MODEL *?
WH4EN RADIOSONDE DATA ARE TO BE READ INITIALLY.
NOPRTvO FOR NORt4AL OPERATION OF PROGRAM,
C
I TO SUPRESS PRINTING OF TRANSMITTANCE /OR
AND ATMOSPHERIC PROFILES
RADIANCE TABLE
TSOUND USED IN RADIANCE MODE FOR SLANT PATHS WHICH
INTERSECT THE EARTH. IF TBOUND IS LEFT BLANK,
THE PROGRAM WILL USE THE TEMPERATURE OF THE FIRST
ATMOSPHERIC LAVER AS THE BOUNOARY TEMPERATURE
YBOUNO *TEMPERATURE OF THE EARTH AT THE LOCATION AT WHICH THE
CALCULATION IS TO BE PERFORMED.
SALO a SURFACE ALBEDO OF THE EARTH AT THE LOCATION
AND AVERAGE FRFQUENCY OF THE CALCULATION (0 TO 1.)
IF SALO IS LEFT BLANK THE PROORAM ASSUMES
THE SURFACE IS A SLACKBOOY.
CARD 2
LWT
LWT
LWT
LWT
LWT
LWT
LWT
LWT
LWT
LWT
LOT
LWT
LWT
LWT
LW!
LWT
LWT
LWT
LW!
LWT
LW?
LWT
LWT
LWT
LWT
L4T
790
795
800
805
810
815
820
825
030
835
840
845
050
855
860
065
870
875
880
885
890
895
900
905
9tO
915
920
925
930
935
940
945
I4AZEISEASNIVULC*,ICSTLdCIR,IVSAVIS.WSSWHNRAINRT
FORUAT(6|5,4F10.3)
LWT 955
LWT 960
LW?
965
IHAZE SELECTS THE TYPE Of EXTINCTION AND A DEFAULT
MUETROLOGIACL RANGE FOR THE BOUNORY-LAYE4 AEROSOL MODEL
LW!
LWT
LWT
18
970
976
2#0
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
"C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
LWT 985
LWT 990
LWT 995
LWT 1000
LWT 1005
IHAZE=O NO AEROSOL ATTENUATION INCLUDED IN CALCULATION.
LWT 1010
-1 RURAL EXTINCTIGN, 23-KM VIS.
1015
LWT
=2 RURAL EXTINCTION, S-KM VIS.
LWT 1020
=3 NAVY MARITIME EXTINCTIONSETS OWN VIS.
LWT 1025
(LOWTRAN 5 MODEL)
:4 MARITIME EXTINCTION, 23-KM VIS.
LWT 1030
=5 URBAN EXTINCTION, 5-KM VIS.
LWT 1035
-6 TROPOSPHERIC EXTINCTION, 50-KM VIS.
LWT 1040
-7 USER DEFINED (TEN CARDS)
LWT 1045
-8 FOGI (ADVECTION FOG) EXTINCTION, 0.2-KM VIS.
LWT 1050
VIS.
0.5-KM
.9 FOG2 (RADIATION FOG) EXTINCTION.
LWT 1055
LWT 1060
ISEASN SELECTS THE SEASONAL DEPENDENCE OF THE PROFILES
LWT 1065
FOR BOTH THE TROPOSPHERIC I TO 10 KM) AND
LWi 1070
STRATOSPHERIC(1O TO 30 KM) AEROSOLS.
LWT 1075
LWT 1080
ISEASN-0 DEFAULTS TO SEASON OF MODEL
LWT 1085
(MODEL 0,1,2.4,6.7) SUMMER
LWT 1090
WINTER
(MOOEL 3.5)
LWT 1095
-1 SPRING-SUMMER
LWT 1100
.2 FALL - WINTER
LWT 1105
LWT 1110
TYPE
IVULCN SELECTS BOTH THE PROFILE AND EXTINCTION
FOR THE STRATOSPHERIC AEROSOLS AND DETERMINES TRANSITION LWT 1115
LWT 1120
PROFILES ABOVE THE STRATOSPHERE TO 100 KM.
LWT 1125
LWT 1130
IVULCN-0 DEFAULT TO STRATOSPHERIC BACKGROUND
LWT 1135
-t STRATOSPHERIC BACKGROUND
LWT 1140
%2 AGED VOLCANIC TYPE/MODERATE VOLCANIC PROFILE
LWT 1145
.3 FRESH VOLCANIC TYPE/HIGH VOLCANIC PROFILE
LWT 1150
.4 AGED VOLCANIC TYPE/HIGH VOLCANIC PROFILE
LWT 1155
.5 FRESH VOLCANIC TYPE/MODERATE VOLCANIC PROFILE
L0T 1160
LUT 1155
ICSTL IS THE AIR MASS CHARATER(1 TO 10) ONLY USED WITH
LW? 1170
NAVY MARITIME MOOEL(I•AZE.3)
LWT 1175
LWT 1180
i1 OPEN OCEAN
tCSTL
LW? 1185
,
LWT 119t
LWT 1195
LWT 1200
INFLUENCE
10 STRONG CONTINENTAL
LW? 1205
ICIR DETEQMINEf THE INCLUSION OF CIRRUS CLOUD ATTENUATIONLWT 1210
LWT 1215
LWT 1220
NO CIRRUS
11IR.O
LWT 1225
*I
USE CIRRUS PROFILE
LWT 1230
LWT 1235
IVSA DETERMINES THE USE OF THE ARMY VERTICAL STRUCTURE
LWT 1240
ALGORITHM FOR AEROSOLS IN THE BOUNDARY LAYER.
LWT 1245
NOT USED
IVSA.O
LWT 1250
.1
VERTICAL STRUCTURE ALGORITHM
LWT 1285
LWT 1260
SPECIFIEDSU•C•SIDES
METIEIOLOOICAL RANGE (KM) (WHEN
VIS *
LWT
1265
IHAZE)
SET
VY
VALUE
OEFAULT
LWT 1270
12Se
LWt
WITH
(INAZE*3)
ONLY
CURRENT WIND SPEED (M/S).
WSS *
(0 TO 2KM ALTITUDE)
IF VIS IS ALSO SPECIFIED ON CARD 2 IT WILL OVERRIDE THE
DEFAULT IHAZE VALUE
10
.
C
WHH 24 HOUR AVERAGE WIND SPEED (M/S).
ONLY WITH (IHAZE-3)
LWT 1280
C
LWT 1285
C
RAINRT * RAIN RATE (MM/HR).
DEFAULT VALUE IS ZERO.
LWT 1290
C
LWT
1295
C..s*...9....°......*.*e=m*e=
*s**ee*e*sS****ses*eesee*eee*ess*ee...**eeLWT
1300
C
LWT 1305
C
OPTIONAL INPUT CARDS AFTER CARD 2
LWT 1310
C
SELECTED BY PARAMETERS ICIR,IVSAMOOEL.AND IHAZE ON CARD I AND 2. LWT 1315
C
LWT 1320
C
LWT 1325
C
CARD 2A
CTHIK.CALTISEED
(ICIR-1)
LWT 1330
C
FORMAT(2F1O.3,It0)
LWT 1335
C
INPUT CARD FOR CIRRUS ALTITUDE PROFILE
LWT 1340
C
SUBROUTINE WHEN ICIR - 1.
LWT 1345
C
LWT 1350
C
CHTIK
a CIRRUS THICKNESS (KM)
LWT 1355
C
0 USE THICKNESS STATISTICS
LWT 1360
C
.NE.
0 USE DEFINED THICKNESS
LWT 1365
C
CALT
a CIRRUS BASE ALTITUOE(KM)
LWT 1370
C
0 USE CALCULATED VALUE
LWT 1375
C
.NE. 0 USE DEFINED BASE ALTITUDE
LWT 1380
C
LWT 1305
C
ISEED
p RANDOM NUMBER INITIALIZATION FLAG.
LWT 1390
C
0 USE DEFAULT MEAN VALUES FOR CIRRUS
LWT 1395
C
.NE. 0 INITIAL VALUE OF SEED FOR RANF FUNCTION
LWT 1400
C
LWT 1405
C
LWt 1410
T 1415
C
LWT 1420
C
CARD 25
ZCVSA.ZTVSA.ZINVSA
(IVSA*1)
LW? 1425
C
FORMAT(3F0.3)
LWT 1430
C
INPUT CARD FOR ARMYVERTICAL STRUCTURE
LWT 1435
C
ALGORITHM SUBROUTINE WHEN IVSAIl,
LWT 1440
C
LWT 1445
C
ZCVSA * CLOUD CEILING HEIGHT (KM) *0 UNKNOWN HEIGHT
LW? 1450
C
ZCVSA LT 0 NO CLOUD CEILING
LWT 1455
C
ZCVSA OT 0 KNOWN CLOUD CEILING
LWT 1460
C
ZCVSA a 0 UNKNOWN CLOUD CEILING HEIGHT
LWT 1465
C
PROGRAM CALCULATES CLOUD HEIGHT
LWT 1470
C
LWT 1475
C
ZTVSA * THICKNESS OF CLOUD OR FOQ (KM),
LWT 1490
C
THICKNESS a 0 OEFAULTS TO 200 METERS
LW? 1465
C
LUT 1490
c
CZINVSAw HEIGHT OF THE INVERSION (4M)
LWT 1495
C 0 DEFAULTS TO 100 METERS
LW? 1500
C
LT 0 NO INVERSION LAVER
LWt 1505
c
LWT 1510
"•
C
.C
C
C
C
C
CARD 2C
(MOVEL*,IM10)
FORMAT(15.exA4)
ADDITIONAL ATMOSPHERIC MODEL
(MOODELO)
NEW MODEL ATMOSPHERE CAN BE INSERTED PROVI)EO THE
PARAMETERS MODEL AND IM ARE SET EQUAL TO ? AN I
RESPECTIVELY ON CARD 1.
ML*
NUMBER OF ATMOSPHERIC LEVELS TO AE INSERTED
(MAXIMUM OF 34)
C
C
C
C
C
MLTITLE
20
LWT
LWT
LWT
LWt
LWt
LW?
LW?
LWt
LVT
LWt
LWT
1$20
1525
1030
1535
1540
1641
1550
1855S
1510
15i1
1570
C
C
C
C
C
C
C
C
C
C
C
"C
C
C
C
C
C
C
C
C
C
C
C
C
CW
C
C
C
C
C
C
C
C
C
C
IDENTIFICATION
CARD 2C
(I TO ML)
Z.PT.DP,RH,WH,WO.AHAZE,V1SIHAI,ISEAiIVULl
FORMAT(3FIO.3,2F5.1,3E0.3.F7.3,311)
ALTITUDE OF LAYER (KM)
PRESSURE AT LAYER (MU)
TEMPERATURE (C)
DEW POINT (C)
RELITIVE HUMIDTY PERCENT
WATER DENSITY (GM/M3)
OoZONE DENSITY (GM/M3)
AEROSOL NUMBER DENSITY(NORMALIZED BY THE USER TO THE
REQUIRED METEOROLOGICAL RANGE USING THE LOWTRAN
EXTINCTION COEFFICIENTS)
Z .
P .
T .
OP RH
WH *
WO
AKAZE.
VIS1
INAI
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
c
Ii
C
a
ISEAt IVUL1 a
METEOROLOGICAL RANGE (KM) FOR ALTITUDEZ
AEROSOL EXTINCTION AND METEOROLOGICAL RANGE CONTROL
FOR THE ALTITUDE,Z
AEROSOL SEASON CONTROL FOR THE ALTITUDE.Z
AEROSOL PROFILE AND EXTINCTION CONTROL FOR ALTITUOEZ
CAPD 20 (DuMMYEXTC(1,I),A8SC(1.I),1.140)(IHAZE.7)
FORMAT(4(FE.2.2F7.S))
USER DEFINED AEROSOL EXTINCTION AND ABSORPTION
COEFFICIENTS WHEN IHAZE w 7 ON CARD 2.
ouMMY
"C
C
C
C
C
OF NEW MODEL ATMOSPHERE
TITLE-
a WAVELENGTH OF AEROSOL COEFFICIENT
(NOT USED BY PROGRAM BUT CORRESPONDING TO
WAVELENGTHS DEFINED IN ARRAY VX2
IN SUBROUTINE EXTDA)
- AEROSOL EXTINCTION COEFFICIENT
EXTC(I.)
ABSCIt.0) - AEROSOL ABSORPTION COEFFICIENT
CARD 3
NH a
142 a
AN3LE
RANCE
BETA
RD *
LWT 1575
LWT 1580
LWT 1585
LWT 1590
LWT 1595
LWT 1600
LWT 1605
LWT 1610
LWT 1615
LWT 1620
LWT 1625
LWT 1630
LWT 1635
LWT 1640
LWT 1645
LWT 1650
LWT 1655
LWT 1660
LWT 1665
LWT 1670
LWT 1675
LWT 1680
LWT 1685
LW? t690
1695
LW? ¶700
LWT 1705
LWT 1710
LWT 1715
LWT 1720
LWT 1725
LWT 1730
LWT 1735
LWT 1740
LWT 1745
LWT 1750
LWT 1755
LWT 1760
LWT 1765
LWt 1770
Lw? 1780
LWT 1765
FORMAT(0Ft0.3,15)
H.,H2,ANGLE,RANGiSETA,RO,LEN
USED TO DEFINE THE GEOMETRICAL PATH PARAJMEITERS FOR A GIVEN LWT 1790
LWT 1795
PROBLEM.
LW? 1800
LWT 1905
INITIAL ALTITUOE(KMI
LWT 1610
FINAL ALIITUDE(K-)
LWT IBIS
LWT 1020
IN THE RADIANCE MOOS OF THE PROGRAM EXECUTION
LWt 1821
Pit, TIll INITIAL ALTItUDE,ALWAYS DEFINES THE POSITION OF
LWt 1030
THE OBSERVER (OR SENSOP).
LIt 1P35
LW! 1640
*INITIAL flNITH ANGLE (DEGREES) AS MEASUREO FROM HI
Lwt 1645
*VATH LEN~H i!0)
LW? 1650
&EARTH CENTER ANCLE 5U9TENDED BY HI AND H2 IGEGREES)
LWT 161S
LWt 1680
RADIUS OF THE EARTH (IMI AT TYH P4R:ICULAQ GCOORAPHICAL
LWt 10S
LOCATION A W00ICH THE CALCULATION IS tO BE PdRFORAD.
C
C
C
C
C
C
,•i
IF RO BLANK
ATMOSPHERE.
PROGRAM USES RADIUS FOR APPROPATE MODEL
(MODEL 0 OR 7 DEFAULT - 6371.23 KM)
LEN -0 FOR NORMAL OPERATION OF PROGRAM
-1 SELECTS THE DOWNWARD TYPE 2 LONG PATH
C
IT IS NOT NECESSARY TO SPECIFY EVERY QUANITY GIVEN ABOVE
C
C
C
C
C
C
C
C
ONLY THOSE THAT ADEQUATELY
TO THE PARAMETER ITYPE
LWT
LWT
LWT
LWT
LWT
LWT
LWT 1900
LWT
LWT
LWT
ITYPEs1 READ H1,RANGE
LWT
*3 READ HIANGLE OR HI.HMIN
LWT
w2 READ H1,H2,ANGLE
OR HI,H2,RANGE
OR HIH2,BETA
LWT
OR HI,ANGLERANGE
LWT
LW7
C*oS**eoSS*oe.**.0S*,@* ... eo°ee..so*.s.**S**40000.oeo
...*eo*ooes.es....LWT
DESCRIBE THE PROBLEM ACCORDING
C
C
C
LWT
CARD 30
HI.P.TOP,RH,WH.WO,RANGE
(MODEL.0)
LWT
FORMAT(3F10.3.2FS.1,2EIO.3,FIO.3)
LWT
C
OPTIONAL CARD FOR HORIZONTAL PATHS (MODEL-O.ITYPEsi)LW'r
C
IF METEROLOGICAL DATA ARE TO BE USED FOR HORIZONTAL LUT
C
PATH ATMOSPHERIC TRANSMITTANCE CALCULATIONS. THEN
LWT
C
SET MODEL - 0 ON CARD 1. (ALSO SET ITYPEoll)
LWT
C
THE FOLLOWING PARAMETERS CAN THEN BE SPECIFIED ON
LWT
C
CARD 3
LVT
C
LW?
C
CARD 30
HIPTOP.RHWH.WO,RANGE
(MODEL-O)
LWT
C
FORMAT(3F10.3,2F5.1,2E10.3,FIO.3)
LWT
C
WHERE THE ABOVE PARAMETERS REFER TO ALTITUDE(KM),
LWT
C
PRESSURE(MB),AMBIENT TEMP(C),OtW POINT TEMP(C),
LWT
C
RELATIVE HUMIDITY(%).WATER VAPOR OENSITY(GM M-3),
LWT
C
OZONE DENSITY(GM/M*63),
AND PATH LENGTH (NM)
LWT
C
LWT
C..o............oQ................o............e........o.
eLNT
LWt
C
CARD 3AI
IPARMIPH.tOAYSOURC
(IEMSCT92)
LWT
C
FORMAT(415)
LW?
C
INPUT CARD FOR SOLAR/LUNAR SCATTERED RADIATION WHEN
LW?
C
IEMSCT * 2
LW?
C
LW?
C
IPARM *001.2 AND CONTROLS THE METHOD OF SPECIFYING THE
LWT
C
SOLAR/LUNAR GEOMUETRYON CARO 3A2,
kW?
"C
C
C
1905
1910
1915
1920
1925
1930
1935
1940
St945
1945
1950
1955
t960
1965
1970
1975
1980
1905
1990
1995
2000
2005
2010
2015
2020
2025
2030
2035
2040
2045
2050
2055
2060
2065
2070
2075
LWY2080
C
C
C
C
C
C
C
C
C
C
C
C
C
1870
1875
1880
1885
1890
1895
IpM.0
ot
'2
IWAY*
ISOURCO
a1
CARO 3A2
THE TYPE OF
PHA$E FUNCTION USED IN THE CALLWT
LW?
HENYEY-GREENSTE|N AEROSOL PHASE FUNCTION
LW?
USER SUPPLIED AfROSOL P1ASE FUNCTION (SEE CASO 38)
LWT
MIE GENERATta DATA BASE OF AEROSOL PHASE FUN4CTONS FOR TLMY
LOWTRXN WODELS.
LWT
LWT
DAY OF THE YEAR, tf.
F9O
I TO 36S
MokEUISiE)
LWI
LW?
tAYRATEORESTRIAL SOURCE IS THE SUN
LWt
EXTRATZE44STQIAL SOURCE IS Tij4 NOON
LWT
LWt
IPH DETERMINES
pARM.9.PAR*2.PARV3,PARR4,?IM",PSJPO,ANkLEUd.G
PFORMAtt1#l0.3)
(IEMAC?.2)
22
2005
2090
209s
2100
2105
2110
2115
2120
217%
2130
2135
2t40
LWt 2150
Lv? 2155
LWt 2160
SC
$
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
"C
C
LWT
LWT
LWT
LWT
LWT
LOT
FOR IPARM.O
LWT
LWT
PARMt- OBSERVER LATITUDE (-90 TO +90)
LWT
IS GREATER THAN 89.5 THE OBSERVER IS
NOTE- IF ABS(PARMI)
IN THLWt
ASSUMED TO BE AT EITHER THE NORTH OR THE SOUTH POLE.
THE DIRECTION OF LINE LWT
CASE THE PATH AZIMUTH IS UNDEFINED.
SIGHT MUST BE SPECIFIED AS THE LONGITUDE THAT THE PATH LIESLWT
THIS QUANTITY RATHER THAN THE USUAL AZIMUTH IS READ IN FOR LWT
PARM2- OBSERVER LONGITUDE (0 TO 360)
LOT
PARM3- SOURCE (SUN OR MOON) LATITUDE. SEE NOTE REGARDING SUN ANGLELWT
LWT
PARM4. SOURCE (SUN OR MOON) LONGITUDE
LWT
LWT
FOR IPARM-1
(TIME MUST BE SPECIFIEO.CANNOT SE USED WITN ISOURCwlLWT
LWT
LWT
PARMI* OBSERVER LATITUDE (-90 TO 490)
LWT
LWT
PARki2m OBSERVER LONGITUDE (0 TO 360)
PARM3.PARM4 ARE NOT REQUIRED
LWT
LWT
LW?
FOR IPARM*2
LWT
LOT
PARMI. AZIMUTHAL ANGLE BETWEEN THE OBSERVER'S LINE OF SIGHT
LWT
AND tHE OBSERVER-TO-SUN PATH, MEASURED FROM THE LINE
LWT
OF SIGHT, POSITIVE EAST Of NORTH. BETWEEN -140 AND tgO
LWT
PABM•62 THE SUN'S ZENITH ANGLE
LWT
LWT
PAR%3.PARMA4 ARE NOT REQUIRED
LWT
LWY
LWT
REMAINING CONTROL PARAMETERS
LVT
LW!
TIMte
GREENW1CH TIME IN DECIMAL HOUIS. ||, IE.945 AM 15 6,75.
SO
Pe IS 17.33 ETC.
LW?
LWI
PSIPG* PATH AZIMUTH (DEGREES EAST OF W0RTH. I.E. DUE GRATH It 0.0 LWT
Lt?
DUE EAST IS 90.0 ETC.
LVt
LOT
THE ANGLE FORMWO
ANGIMAOPtIASE ANGLE OF THE iGO-4. t.ELWT
BY THE SUN. WOON AND tA*1H (HOQUIMIO IF IS&JRCvt)
INPUT CARD FOR SOLAR/LUNAR SCATTERED RADIATION WHEN
IEMSCT - 2
DEFINITIONS OF PARMI,PARM2,PARM3,PARM4 DETERMINED BY
VALUE OF IPARM ON CARD 3A1.
01! 23e0
C
OR USE WITH HC
C
C
GO
C
C
CArD 331 NAR0IS
rORAIA(i )
ASV&1WY 'ACT04
~
PHASE
LW! 2395
LW? ;400
FPUNTION
~
2405
(IRHOtI)V?
24t0
LW? 241S
LOT 2420
c
C
C
C
C
2165
2170
2175
2180
2185
2190
2195
2200
2205
2210
2215
2220
2225
2230
2235
2240
2245
2250
2255
2260
2265
2270
2275
2280
2205
2290
2295
2300
2305
2310
2315
2320
2325
2330
233S
2340
2345
2350
2355
2360
2365
2370
2375
2330
7315
ItoUt cAst
4ANLSOe
NoltaR
Of
0GR USER OtFINED
amLS FOR Tkt
iCtItO*4INA"AS|iIti of 19)
H•ASV F04ct10s
MUstR DIFINjo PAst
W41N
ifl.t
LWt 2424
LW? 2430
LOT 3435
LOT 2340
LWt 2,,4S
C
tLWt 2455
23
wC
..
*C
C
C
C
C
C
*SC
C
C
C
C
C
C
C
C
C
CARD 382(1 TO NANOLS)
(IPH.?)
(ANGF(l).F(1,1) .F(2.I),F(3.I).FC4.I),I.I,NANOLS)
FORMAT(F1O.3,4E10.3)
INPUT CARD FOR USER DEFINED PHASE FUNCTION WHEN IPHut.
FOR AVERAGE FREQUENCY OF CALCULATION
ANOFtI). PHASE ANGLE IN DECIMAL DEGREES
(0.0 TO 180.0)
F(1,1)-
USER DEFINED PHASE FUNCTION AT ANGF(l)
BOUNDARY LAYER (0 TO 2KM))
P(2.1)-
USER DEFINED PHASE FUNCTION AT ANGF(I)
TROPOSPHERE(2 TO to KS)
F(3.1).
USER DEFINED PHASE FUNCTION A? ANGF(I)
SRAOSPHERE(10 TO 3D XN)
F(4,I).
USER DEFINED PHASE FUNCTION At ANGF(I)
MESOSPHEREI3O TO 100 KU)
C
C
C
C
v
C
C
C
C
C
.'1C
C
C
C
C
C
c
CARD a
vi. V2. Cv
FOAWAT(3f10.3)
THE SPECTRAL RANGE OVER WNICH DATA ARE REQUIRED AND
THE SPECTRAL INCREMENTS A? WHICH THE DATA ARE TO BE
PRINTED OUT IS DETERUINED BY CARD 4.
Vi V2 *
DV .
INITIAL FREQUENCY (*AVENUMQER CS-,
FINAL PREQUINCYIWAVENLPJU*R CM-1 )
FREQUENCY I.%CQEMENT (OR !ftP SIZE) (CS-I)
NOtE DV hMuS? UE A MULTIPLE Of 5 C4-1
C
'.%C
C
C
C
c
c
CARD S
IRPT.0
140T
UQAAMT(S)
To END PROsiRAM
C
9
aAtAo
DM1A CARDS 0l,2.3.4.5)
*3 Kli! USED
'3 RIA CARD 3
ftf CGEOMETRY CARD AND0 CARD f3
44 gREADCARD 4 to O'apDE PfltQUENCY AND C.ARDS
41 4 04 IRP?.2 WILL CAUSE P8802w& TO STOP
LT26
LW? 2465
LW? 2470
LWT 2475
Lw? 2480
LW? 2485
Lw? 2490
Lw? 2495
Lw? 2500
LW? 2505
LW? 2510
LW? 2515
LW? 2520
LV? 2525
LW? 2530
Lw? 2535
LUT?2540
LW? 2545
LW? 2550LW? 2555
Lw? 2560
Lw? 2570
LW? 2515
LVr 2SJ~1
LW? 25e5
LW? 2590
LWT 2595
Lw? aeao
W! 2600
LeT 2Q10
LW? 2615
LwT 3620
lLW?2625
LW?7$33
LW 2640
LW! 3045
LW? 2639
Lt? 20sfl
Lw! 261*
LW? 1043
Owl 2070
C*.**...***.*..*.....*****.**.**t**.*..t*.e*4e~t..4..t*LS!240
t
44,~J
I:~t
)fl
tAvt ItEVctM"I w.2.UNog!.sumDo&L
C~~fl341
If&CICIVJLMtkkII.ut.l.1.
.
1CA0
CCM~~43'10
jsA2tL,
WI4.1I3.W(4).NFNI)A4),31.i31!YIs.R34I
atg
*S
I
&Z
9).L
6)-.V"
9!
Lak
t 2non
L! 2730
Wiv 2740
COM'ýON /MARC/
RHH
COMMON /1iSRDTAi NANGLS.ANGF(50),F(4,50)
COMMON /MDLZ/
HMDLZ(8)
COMMON /ZVSALY/
ZVSA(10),RHVSA(IO),AHVSA(I:.,,IHVSA(10)
COMMON /TITL/ HHAZE(F It•,HSEASN(5,2),HVULCN(5,5),BLANK,VSB(9),
X HMET(5,2),HMODEL(5,b).
.RRAD(6,4)
C•=***HDATE AND HTIME CARRY
-I DATA AND TIME AND MUST BE DOUBLE
C*****PRECISION ON A 32 BIT WORD COMPUTER
Co
DOUBLE PRECISION HDATE,HTIME
DATA IRPT / 0 /
C*ý**IRD, ICR, AND IPU ARE UNIT NUMBERS FOR INPUT, OUTPUT, AND
C*****TAPE7 RESPECTIVELY
IRD = S
IPR = 6
IPU = 7
Co
OPEN (IRD,FILE='INPUT')
Co
OPEN (IPR,FILE==OUTPUT')
Co
OPEN (IPU,FILE='TAPE7')
PI=2.0*ASIN(1.0)
CA=PI/180.
DEG- 1.0/CA
C*****GCAIR IS THE GAS CONSTANT FOR AIR IN UNITS OF MB/(GM CM-3 K)
GCAIR = 2.87053E+3
LWT
LWr
LW T
LWT
LWT
LWT
LWT
LWT
LWT
LWT
LWT
LWT
LWT
LWT
LWT
LWT
LW'
LWT
LWT
LWT
LWT
LWT
LWT
2755
2760
2765
2770
2775
2780
2785
2790
2795
2800
2805
2810
2815
2820
2825
2830
2835
2840
2845
2850
2855
2860
2865
C*~****8IGNUM AND BIGEXP ARE THE LARGEST NUMBER ANO THE LARGEST ARGUMENT LW! 2870
C*****EXP ALLOWED AND ARE MACHINE DEPENDENT. THE NUMBERS USED HERE ARE FLWT
C*****A TYPICAL 32 BIT-WORD COMPU.ER.
LWT
BIGNUM = 1.0E30
LWT
BIGEXP = 87.0
LWT
KMAX=16
LWT
C*****NL IS THE NUMBER OF BOUNDARIES IN THE STANDARD MODELS I TO 6
LWT
C*****BOUNDARY 34 (AT 99999 KM) IS NO LONGER USED
LWT
NL = 33
LWT
Cw****CAL'.
TI&• AND DATE:
LWT
C*****THE USER MAY WISH TO INCLUDE SUBROUTINES FOATE AND FCLOCK WHICH
LWT
C*****RETURN THE DATE AND TIME IN MM/DD/YY AND HH.MM.SS FORMATS
LWT
C**W**RE'
CTIVELY.
THE R'EQUIRED ROUTINES FOR A CDC 6600 ARE INCLUDED ATLWT
C*****TiE WAIN PROGRAM IN COMMENT CARDS.
LWT
Co
CALL FDATE(HDATE)
LWT
CO
CALL FCLOCK(HTIME)
LWT
C
LWT
C*.
START CALCULATION
LWT
C
LWT
C
LWT
100 CONrINUE
LWT
WRITE(IPR,1000)
LW!
43CC
F0RMAT('lt,n0X,'***** LOWTRAN 6 a*..*)
LWT
CO
WRITE(IPR,1010) HDATE,HTIME
LWT
1010
FORMAT(f1,20X,'***4*
LOWTRAN 6 *****',t0X,2(lXA6,IX))
LWT
C
LWT
C**'**CARD I
LWT
C
LWT
RFAD(IRD,110)MODELITYPeIEMSCTMlM2.M3,tM,NOPRNTTBOUNDSALd
LWT
1110
PURMAT(8I5,2FIO,3)
LWT
C
LbT
WRLTE(IP',,•111)MODEL.ITYPE.IEMSCT.MI.M2,M3.IM,NOPRNTTSOUND,SALS
LWT
1111
FORMAT(O CARD I
sm-*1',8I6,2F10.3)
LwT
LWT
M-MODEL
NPR a NOPRNT
LWT
C***¢*CARD 2 AEROSOL MODEL
LW!
25
2875
2880
2885
2890
2895
2900
2905
2910
2915
2920
2925
2930
2935
2940
2945
2950
2955
2960
2965
2970
2975
2980
2985
2990
2995
3000
3005
3010
3015
3020
3025
:030
3035
3040
3045
2
READ(IRO,1200):HAZEISEASNIVULCNICSTL,:C:
SWRITE(IPR,
1200
2
:VSA,VIS,:SS,WHH,
LWT 3050
SRAINRT
FORMAT(615,4FIO.3)
IV01)IHAZE.ISEASN, IVULCN,ICSTL,ICIR.IVSAVIStwsS.WKHH
X RAINRT
1201
C
FORMAT('O CAR0 2
*****',615,4F10.3)
IF(VIS.LE.0.0.AND.IHAZE.CG.0)
VIS*VSB(IHAZE)
RHH- 0.
F(r4ODEL.EQ.O.OP.h'nDEL.EQ.7) GO TO 205
IF((4ODEL.EQ.3.jR.MOOEL.EQ.5).AND.ISEASN.EQ.O)
c
205
1205
210
ISEASN-2
IF(I:.IAZE.EQ.3) f-ALL MAR14E(VIS,MODEL.WSS,WHICSTL,EXTC.ABSCI)
ICH(1)-IHAZE
ICH(2)-6
ICH(3)-9+IVL'LCN
IF(RAINR7.EQ.0) GO TO 210
WRITE!IPR.1205) RAINRT
FORMAT('0 RAIN MODEL CALLED,
ICH(4)l15
IF(ICH(1).LE.0)ICH(1)-1
IF(ICH(3).LE.9)ICH(3)wi0
IFLQA-0
IFLGT-O
CTHIK,-99.
CALta-99.
ISEEoD-99
LWT
LWT
LWT
LWT
3055
3060
3065
3070
LWT
LWT
LWT
LWT
LWT
LWT
LWT
LWT
LWT
LWT
LWT
3075
3080
3085
3090
3091
3092
3093
3095
3105
3110
3115
LWT
LWT
LWT
LWT
LWT
LWT
LWT
LWT
LWT
LWT
3125
3130
3135
3140
3145
3150
3155
3160
3165
3170
LW! 3120
RAIN kATE I
1
,F9...
1
MN/HRI)
IF(ICIR.EQ.O)
00 TO 230
(0'•49CARD 2A CIRRUS CLOUDS
REAO(IRD.1210)CTHIK.cALT,ISEED
1210
FGRYtAT(2F10.3.110)
WRItE(IPR.1t21)CTNIK,CALT.ISEED
1211
FORJAT('0 CARO 2A *-00,2Ft0.3.ZI0)
IF(CT41K.NE.0) IFLGTs!
It(CALT.NE.0
IFL0A-l
IF(I$CE.D..Q.O) IFLGlw2
IF(ISEEDO.OQ.)
IFLGAv2
CALL C(IRUS(CTHIKCALT.ISEED.CPR08)
WRITE(IPR,1220)
1220
PORMAt(ISX.'CIRRUS ATTENUATION INCLUDED')
IV(IFLI~t.•.0)
WRITE(IPR,1221) CTHIP
1221
FORMA1it1SA.'CIRRUS ATTENUTION STATIST!CALLY OETERWENED TO 55'.
A FI03,'KM')
|F(IvL3T.FO.l) WRITE(IPti.1222) CTHIK
LWT
LWT
LWT
LWT
LWT
LWT
LWT
LWT
3175
3180
3185
3,90
3195
3200
3205
3210
LW!
LWT
LWT
LWY
LWT
LVT
LWf
LW!
LwT
3215
3220
3225
3230
3235
3240
3245
3250
3257,
1222
LW! 3260
1223
1224
F0R!AA!I15X,'CIAP.U5 THICKNESS USEq DETERMINED TO 8I',FIO.3.101M)
IPC(Z.$GT.LO,2i
RItE(IPR.1223) CTNIK
FORNAY(t5X.'CIRAVS THICKNESS DEFAULTED
TO MEAN VALUE OF
X l0-03.'KM,)
IF(-YFL0k.EOO) wRTE(!PR,1224)C-..
FOR.taTi5A,'CIRQUS BASE ALTITUDE Sy&TISCALLy DETERMIINC
',
TO MI,.
X f10.3.' KW)
It(IFLGA.EQ.)
WRITE(IPR,1225) CALT
1225
PQR4A1t5X,'CIR4U5 BASE ALTITUDE USES ODTERMINEO TO MI',
X pto.3.' K#Ak)
IP(IFL(OA.g0.2) W!lITEj!PR.1226) CAL?
1226
VGAMAT t5X.'CIRQA4
BASE AVITTUOt DEFAULTED TO MEAN VALUE Of'.
X FtOS,'KM')
132?
WAIE,
fO?•QIIl6X,IPROOAL|LtY
~R.1~2)CPT0CLw!
OF CLOUD OCCIJfRNG
2,6
28
LWT 3265
LV! 3270
LWY 3275
Lwt 3260
LV! 3205
LW! 3290
LW! 3295
LWt 3300
LW! 3305
LWT 3310
LWt 3315
LW! 3320
3325
L$',P?,,3330
LWt
X ' PERCENT')
CONTINUE
230
C*$$$$CARD 28 VERTICAL STRUCTURE ALGORITHM
ZCVSAu-99.
ZTVSA--99.
ZINVSAS-99.
IF( IVSA. EQ. 0 ) GO TO 240
READ (IRD.1230) ZCVSAZTVSA.ZINVSA
1230 FORMAT(3F10.3)
WRITE(IPR,1231)ZCVSAZTVSA,ZINVSA
1231 FORMAT(10 CARD 26 o**$s',3F10,3)
C
CALL VSA(IHAZEVIS.ZCVSA.ZTVSA.ZINVSA.ZVSA.RHVSA.AHVSAIHVSA)
C
IF (MOOEL.NE.7) ML-NL
240
00 250 1-1,5
IF(M.NE.0)HMODEL(I,7)-HMODEL(IM)
IF(M.EQ.O)HMOOEL(I,7)-HMOOEL(I,8)
250
IF (MODEL.NE.7.OR.IM.EQ.0) GO TO 260
C
C****OCARO 2C1 USER SUPPLIED ATMOSPHERIC PROFILE
C
READ (IRD,1250) ML.(HMODEL(I,7),IwI,5)
1250 FORMAT(I5,18A4)
WRITE(IPR,1251)ML,(HMODFL(T,7),I-1.5)
1251 FORMAT(IO CARD 2Clw$6**.I5,18A4)
CALL NSMDL
260
CONTINUE
C
C
C.oo-*CARO 20
C
IF(IHAZE.NE.7) GO TO 300
C6*006CARD 20 USER SUPPLIED AEROSOL EXTINCTION AND ABSORPTION
READ(IRD.1260)(DUMMY,EXTC(1.I),ABSC(1,I).I-1,4C)
1280 FORMAT(4(F6.2,2F7.5))
WRITE(IPR.1261)(EXTC(1,1),ABSC(I1,I),I18,40)
1261 FORMAT('0 CARD 20 wo*#,',4(6X,2F?.5))
CONTINUE
300
C
C
C*****CARD 3 GEOMETERY PARAMMTERS
C
IF (MOOEL.NE.0) 00 TO 310
C
C*#*.#CARD 34
C.****NORIZONYAL PATH MO0L vf0
c
C
ML.l
LENOO
NSMDL
CALL
00 TO 321
C
310 COWfINUE
C
IF(IVSAEQ.O) GO TO 312
C
Ce*e#OVSA OUTPUTS FINE LAYERING OF TH4 ATMO)SPHIRC NEAli THI GRO)UND
C
C2
LWT 3335
LWT 3340
LWT 3345
LWT 3350
LWT 3355
LWT 3360
LWT 3365
LWT 3370
LWT 3375
LWT 3380
LWT 3385
LWT 3390
LWT 3395
LWT 3400
LWT 3405
LWT 3410
LWT 3415
LIT 3416
LWT 3420
LWT 3425
LWT 3430
LWT 3435
LWT 3440
LWT 3445
LWT 3450
LWT 3455
LWT 3460
'WT 3465
LWT 3470
LWT 3475
LWT 3480
LWT 3485
LWT 3490
LWT 3495
LWT 3500
LWT 3505
LWT 3510
LWT 3515
LWT 3520
LWT 3525
LWT 3530
LWT 3535
LWT 3540
LWT 3545
LWT 3550
LWT 1555
LWT 3560
LWT 3565
LWT 3570
LWT 3573
LWT3580
LWT
LWT
LWY
Lwy
LWT
LWT
LWT
3585
3590
3S95
3000
3605
3610
3615
LWT 3620
312
C
C
Ma?
IF(MODEL.NE.O.AND.MODEL.NE.7)CALL NSMDL
CONTINUE
IF (MODEL.EQ.O)
LWT 2625
LWT 3630
LWT 3635
LWT 3640
LWT 3645
GO TO 320
LWT 3650
Cs****CARD 3
C
IF(IEMSCT.EQ.3) GO TO 315
READ(IRD,1312)H1,H2.ANGLERANGEBETA,RO.LEN
1312 FORMAT(VF10.3,15)
WRITE(IPR,1313)H1,H2.ANGLE,RANGEBETA,RO.LEN
1313 FORMAT('O CARD 3 *;****,6FI0.3,15)
GO TO 320
C*****CARD 3 FOR DIRECTLY TRANSMITTED SOLAR RADIANCE (IJEMSCT
315 CONTINUE
READ(IRD.1316) H',H2,ANGLE,IDAY,RO
1316 FORMAT(3F10.3,I5,5X,FIO.3)
WRITE(IPR,1317) H1,H2.ANGLE,IDAYRO
1317 FORMAT('O CARD 3'' ***.',3FlO.3,I5,5X,Fl0.3)
ITYPE - 3
RANGE - 0.0
BETA - 0.0
LEN - 0
CQ***s RO IS THE RADIUS OF THE EARTH
320
RE*6371.23
IF (MODEL.EQ.1)
RE=6376.39
IF (MODEL.EQ.4) RE,6356.91
IF (MODEL.EQ.5) RE-6356.91
IF (RO.GT,0.)
RExRO
C
321 CONTINUE
IPARM u-99
IPH
-99
IDAY :-99
ISOURC.--3
a 3)
C
PARMI a-99.
PARM2 '-99.
PARM3 -- 99.
PARM4 a-99.
TIME a-99.
PSIPO a-99.
ANGLEldw-99.
a
'-99.
SC
'I
IF (IEMSCT.NE.2) Go TO 330
C
C*"'.CARD 3W
C
READ(IRU,1320) IPARM.XIPH.IDAYISOURC
1320 FORMAT(415)
WRITE(IPR.321) IPARMIPH.IDAYISOURC
1321
FORN.AT(O CARD 3Al**.."',415)
C.
C*****CARO 3A2
C
ReAD(IRO.t322)PARMIPARM2.PARM3.PARM4.|MEPSIPO.ANGLEM.0
1322 FORMAT(OF1O.3)
28
LWT 3655
LWT 3660
LWT3665
LWT 3670
LWT3675
LWT 3680
LWT 3685
LWT 3690
LWT 3695
LWT 3700
LWT 3705
LWT 3710
LWT 3715
LWT 3720
LWT 3725
LWT 3730
LWT 3735
LWT 3740
LWT 3745
LWT 3750
LWT 3755
LWT 3760
LWT 3765
LWT 3770
LWT 3775
LWT 3780
LWT 3785
LWT 3790
LWT 3795
LWT
3800
LWT 3805
LWT 3810
LWT 3815
LWT 3820
LWT 3825
LWT 3830
LWT 3835
LWT 3840
LWT 3845
LWT 3850
LWT 3855
LWT 3860
LWT 3865
LWT 3870
LWT 3875
LWT 3880
LWT 3005
LWT 3090
LWT 3095
LWT 3900
LW? 3905
LWT 3910
LWT 3915
V
1323
C
WRITE(IPR.1323)PARMI,PARM2,PARM3,PARM4,TIMEPSIPO,ANGLEMG
FORMAT(1O CARD 3A2****a.SFO.3)
IF (IPH.NE.1)
GU TO 330
C
LWT 3950
C
!
LW
313S6):::::ED:PHSE FUNCTION
IiCRE**ADRD
%fC
LWT 3965
READ(IRD,1326)NANGLS
FORMAT(I5)
LWT 3970
WRITE(IPR, 1327)NANGLS
FORMAT(' CARD 361s.***',15)
LWT 3975
LWT 3980
LWT 3985
LWT 3990
LWT 3995
LWT 4000
LWT 4005
LWT 4010
LWT 4015
LWT 4020
LWT 4025
LWT 4030
LWT 4035
4040
LWT 4045
CONTINUE
IP(M400
READ(IRO,1400)VIV2,DV
FORMAT(3FIO.3)
:1400 (IPR,1401) V1,V2,OV
LWT 405S
LWT 4060
LWT 4065
4070
1327
C
C*****CARD 342
4C
),F(d,1),II,NANGLS)
READ(IRD,1324)(ANGF(I),F(D,I),F(2,VI),F(3,
1324 FORMAT(5EI0.3)
),F(2,O),F(3,I),F(4,V),I=INANGLS)
WRITE(IPR,1329)(ANGF(V),F(IV,
1329 FORMAT('O CARD 342*****',5EI0.3)
IFC
330 CONTINUE
C
IF (IRPT.EQ.3) GO TO 500
M tLWT
R
C*****CARD 4 WAVENUMBL
•WRITE
1401
500
1410
i!WRITE(IPR,1500)
SX
A500
FORMAT('O
CARD 4
IF(M2.NE.O)MM2%M2
LWT 4080
LWT 4085
LW? 4105
LWT 4090
LWT 4095
LWT 4100
LWT 4105
LWT 4110
LWT 4115
LWT 4120
LWT 4125
4030
IF(M3,NE,0)MMS3SM3
TO N10
IF(MOVEL.EQ.0) GUMMt.(HMODEL(I1,NMM1).Itsl.5),IMM2,(HUODEL(12.MM2),
LWT 4135
LWT
4140
LWT 4145
12*t,5).MM3,(H&IODEL(13,MM3),13vl,5)
FORMAT(CO ATMOSPHERIC MODEL'./,
XtOX,'TEMPERATURE a 1,14,5XSA4,/,
LWT 4150
LWT 4155
LWT 4180
IF (IRPT.EQ.4) GO TO 560
CONTINUE
MMC ME
(HTRRAD(I1,IEMSCT+MI),I
WRIrE(IPR,1410)
FORAT('O PROGRAM WILL COMPUTE ,6A4)
MOELRMAODEL
IF(MOELREQUO)MDEL*8
MMIlMOVEL
M IO.'2NMDEL
MM3CMOEL
IF(MI.NE.O)MMO MT
1
X
i••IF(IVULCNLE.O)
LWT
LWT 4075
*•****,3F10.3)
X tOW.WATER VAPOR a
€WI0
',1d,5X,SA4.,/
12,6)
LWT
LWT 4165
LWT 4170
LWT 4175
4t80
OZONE
VU4,5X,SA4) a
IHVULIVULCN•9
INMETal
LWT
LWT
LWT
LWT
LWT
IF(IVULCNGT.I)IHMETm2
IF(lIAZE.EQ.0) 00 TO 520
LWT 4205
LWt 4210
F(M.EQ,7) 00 TO 520
IF(ISEASK. EQ,O)ISEASNwt
IVULCNml
29
Oll"i
34
3955
LWT
LWT 3960
C*****READ USER DEFINED PHASE FUNCTION
1326
LWT 3920
LWT 3925
LWT 3930
LWT 3935
LWT 3940
4185
4190
4195
4200
'
XSWRIT.-(IPR.1510)(HHAZE(I,IHAZE),1-1,5),VIS,(HHAZE(12,6),12,i,5),
(HHAZE(II,6),II=1,5),(HSEASN(IA.ISEASN),IA-1,5),
X (HHAZE(I3,IHVUL),I3-1,5),
X (HVULCN(IB,IVULCN),IB1.5),(HSEASN(ICISEASN),ICulS),
(HHAZE(14,15),I4=1,5),(HMET(I5,IHMET),I5=1,5)
FORMAT('O AEROSOL MODEL',/,IOX,'REGIME',
A T35,'AEROSOL TYPE',T60,'PROFILE',T85,'SEASON',/,/,
B IOX,'BOUNDARY LAYER (0-2 KM)l,T35,5A4,T60,F5.1,
C ' KM VIS AT SEA LEVEL',/,IOX,'TROPOSPHERE
(2-10KM)',T35,
D 5A4,T60,SA4,T85,5A4,/,lOX,'STRATOSPHERE (IO-30KM)',
E T35,5A4,T60,SA4,TS5,5A4,/,IOX,'UPPER ATMOS (30-100KM)',
F T35,5A4,T60,5A4)
CONTINUE
IF(ITYPE.EQ.1) WRITE(IPR,1515) H1,RANGE
FORMAT('O HORIZONTAL PATH',/,tOX,'ALTITUDE - ',FIO.3,'
KM',/,
1
10X,'RANGE
'',F10.3,t' KM')
IF(ITYPE.EQ.2) WRITE(IPR,1516) HI,H2,ANGLE,RANGE,BETALEN
FORMAT'0 SLANT PATH, HI TO H2',/,
I
IOX,'H1
= ',F10.3,'
KM',/,10X,'H2
a ',FIO.3,' KM',/,
2
IOX.'ANCLE -,FI0.3,'
DEG',/,I0X,'RANGE
',FIO,3,' KM',/,
3
IOX,'BETA -',FIO.3,'
DEG',/,IOX,'LEN
- ',16)
IF(ITYPE.EQ.3) WRITE(IPR,1517) HI,[q2,ANGLE
FORMAT('O SLANT PATH TO SPACE',/,
1
10X. 'Hi
a 1,F10.3,' KM',/,IOX.'HMIN a ',FIO.3,1 KMU,/,
2
10X,'ANGLE - IFIO.3,' DEG')
IF (IEMSCT.NE.2) GO TO 550
LWT 4220
LWT
4215
LWT 4225
LWT 4230
LWT 4235
1510
LWT 4240
LWT 4245
LWT 4250
LWT 4255
LWT 4260
LWT 4265
LWT4270
520
LWT4275
LWT 4280
1515
LWT 4285
LWT 4290
LWT 4296
1516
LWT 4300
LWT 4305
LWT 4310
LWT 4315
LWT 4320
1517
LWT 4325
LWT 4330
LWT 4335
LWT 4340
C
LWT 4345
C**.**INTREPRET SOLAR SCATTERING PARAMETERS
LWT 4350
C
LWT 4355
C
LWT 4360
IF (IPARM.EQ.1)
CALL SUBSOL (PARM3,PARM4,TIME,IDAY)
LWT 4365
C
LWT4370
WRITE (IPR,1530)
LWT4375
1530 FORMAT('0 SINGLE SCATTERING CONTROL PARAMETERS SUMMARY '/)
LWT4380
IF(IPARM.NE.2) WRITE (IPR,1532) PARMI.PARM2.PARM3,PARM4,TIME,PSIPOLWT 4385
I,IDAY
LWT 4390
1532 FORMAT(lOXt'OBSERVER LATITUDE w',T35,F10,2.' 0D0 NORTH OF EQUATORILWT 4395
X,IO.'OBESRVER LONGITUDE "',T35,F10.2,' DEG WEST OF GREENWICH',/, LWT 4400
X IOX,'SUBSOLAR LATITUDE s',T35,FIO.2,' NORTH OF EQUATOR'./,
LWT 4405
X IOX,'SUBSOLAR LONGITUDE "1,T35,F10,2,' WEST OF GREENWICH',/,
LWT 4410
X i0X,'TIME (<O IS UNOEF)*',T35,FIO.3,
GREENWICH TIME',/,
LWT 4415
X IOX,'PATH AZIMUTH -'.T36,FO.3.'• 0EG EAST OF NORTH'./,
LWT 4420
X iOX,'OAY OF YEAR -',T35,I10)
LWT 4425
IF (IPARM.EQ,2) WRITE (IPR,15341PARMIPARM2,TIMEPSIPO,IOAY
LWTA430
1534 FORMAT(IOX,'RELATIVE AZIMUTH -',T35,FtO.3,'
0EG EAST OF NORTH',/. LWT 4435
X IOX,'SOLAR ZENITH w'.T35,FO.3.' DEG './.
LWT 4440
X IOX,'TIME (<0 UNDEF) x',T35,FIO.3,' GREENWICH TIME',/,
LWT 4445
x IOX,'PATH AZIMUTH ,',T35,F10.3,'
0EG EAST OF NORTW',/,
LWT 4450
X iOX,'OAY OF THE YEAR o',T35,16)
LWT4455
IF (ISOURC.EQ.0) WRITE (IPR, 1535)
.WT 4460
1535 FORMAT{'O EXTRATERRESTIAL SOURCE IS THE SUN')
LWT 4465
IF (ISOURC.EQ.I) WRITE (IPR,1536) ANGLEM
LWT4470
1536 FORMAT('O EXTRATERRESTIAL SOURCE IS THE MOON, MOON PHASE ANGLE alLWT 4475
X F10.2.' DECl)
LW? 4480
IF (IPH.EQO) WRITE (IPR,1538) 0
LWT 4405
1538 FORMAT(-O H-G PHASE FUNCTION ,OG',FIO.3)
LWT 4490
IF (IPH,EQ.1) WRITE (IPR.1540)
LWT 4495
1540 FORIAAT('O USER SUPPLIED PHASE FUNCTION')
LWT 4500
IF (IPH.EQ.2) WRITE (IPR,1542)
LWT 4501
"X
30
FORMAT('0 PHASE FUNCTION FROM MIE DATA BASE')
CONTINUE
VI =FLOAT(INT(V1/5.0+O.I))*5.0
V2 *FLOAT(INT(V2/5.0+O.1))*5.0
ALAMI-10000./V1
ALAM2= 10000. /V2
IF(OV.LT.5.)OV=5.
OV-FLOAT(INT(DV/5+0.1)*)5.0
WRITE (IPR,1555) VI,ALAMI,V2,ALAM2,DV
('
CM-I
VI u ',F12,1,'
1555 FORMAT('O FREQUENCY RANGE /,1OX,•
(',F10.2,
V2 - ',F12.1,' CM-I
X F10.2,' MICROMETERS)',/,IOX,'
CM-t'',F12.1,'
DV
AX MICROMETERS)',/IOX,
C
C****LOAD ATMOSPHERIC PROFILE INTO /MODEL/
C
CALL STOMDL
C
C****OTRACE PATH THROUGH THE ATMOSPHERE AND CALCULATE ABSORBER AMOUNTS
C
ISSGEO-0
CALL GEO (IERRORBENONG )
C
IF(IERROR.GT.O) GO TO 630
IERROR.EQ. -5) GO TO 557
IF(IEMSCT.EQ.3 .AND.
GO TO 558
557 CONTINUE
WRITE(IPR,1557)
1557 FORMAT('O DIRECT PATH TO SUN INTERSECTS THE EARTH: SKIP TO '
I
'NEXT CASE')
GO TO 630
558 CONTINUE
C
IF(IEMSCT.EQ.2)
X CALL SSGEO(IERROR,IPH,IPARM,PARMI .PARM2.PARM3,PARM4,PSIPO,G)
IF(IERROR.GT.0) GO TO 630
C
C
C***.*LOAD AEROSOL EXTINCTION AND ABSORPTION COEFFICIENTS
C
CALL EXABIN
c.LWT
C***.WRITE HEADER DATA TO TAPE 7
C
WRITE(IPU,1110)MOOELITYPE,IEMSCTMIM2,M3IM, NOPRNTTBOUNO,SALB
54O
WRITE(IPU,1200)IHAZEISEASN.IVULCNICSTL,ICIR, VSA,VIS,WSSWHH,
X RAINRT
WRITE(IPU,1210) CTHIK.CALTISEEO
WRITE(IPU,1230)ZCVSA,ZTVSA,ZINVSA
WRITE(IPU,1250) ML,(HMOOEL(I,MOEL),?ul,5)
IF(MOOEL.NE.O)WRITE (IPU,1312) HIH2,ANGLERANGE,BETAR0,LEN
IF(MODEL.EQO) WRITE(IPU.i560)(HMOLZ(K),K.1,8)
1560 FORtAAT(3FIO.3,2FS,1,uE1O.3,2FI0.3)
IPARM,ZPH,IDAY,ISOURC
WRITE(IPU,1320)
WRITE(IPU,1322) PARMIPAHM2,PARM3,PARM4,TIME,PSIPOANOLFJ,G
WRITE(IPU,1400) VlV2,DV
READ(IRD,1600)IRPT
1600 FORMAAT(IS)
WRITE(IPU,1600) IRPT
C
1542
550
31
LWT4510
LWT4515
LWT4520
LWT4525
LWT4530
LWT4535
LWT4540
LWT4545
LWT4550
LWi 4555
LWT 4560
LWT4565
LWT4570
LWT4575
LWT4580
LWT4585
LWT 4590
LWT4595
LWT4600
LWT 4605
LWT4610
LWT4615
LWT4620
LWT4625
LWT4630
LWT4635
LWT4640
LWT4645
LWT 4650
LWT4655
LWT4660
LWT4665
LWT4670
LWT4675
LWT4680
LW? 4685
ILWT4690
LWT4695
LWT4700
LWT4705
4710
LWT4715
LWT 4720
LWT4725
LWT 4730
LWT4735
LWT4740
LWT4745
LWT 4750
LWT4755
LWT4760
LWT4765
LWT4770
LWT4775
LWT 4780
LWT4785
LWT4790
LWT4795
LWT 4800
IRAINxO
LWT 4805
C*LWT IF(RAINRT.GT.O)
IRAIN-1
TRANS (IPH,ISOURC,IDAY,ANGLEM)
RCALL
6
C•*•**WRITE
1610
1620
630
C
1630
END OF FILE ON TAPE 7
CONTINUE
WRITE(IPU,1620)
FORMAT('-T.4)
CONTINUE
LWT
LWT
LWT
LWT
LWT
LWT 4855
FORMAT(IO CARD 5 **A**TE,5)
IF (IRPT.EO.0) GO TO 900
CS GO TO 900
IF (IRPT.GT.4)
GO TO 0100,900.300.400),
LWT 4895
LWT 4870
4890
LWT 4875
IRPT
cc
Co
4835
4840
4875
4880
4850
WRITE('IPR,1630)IRPT
900 STOP
CP
END
CP
THE FOLLOWING
Co
Co
Co
CO
CP
Ce
LWT 4810
4815
LWT 4820
LWT
4825
LwT 4830
NDLWT
TIME AND DATE SUBROUTINES APPLY TO A CDC 6600
SUBROUTINE FDATE(HDATE)
CALL DATE(GDATE)
HOATE-SHIFT(GOATE,6)
RETURN
END
SUBROUTINE FCLOCK(HTIME)
LWT 4880
LWT 4885
LWT 4890
LWT 4895
LWT
LWT
LWT
LWT
LWT
LWT
CO CALL CLOCK(GTIME)
HTIVESHIFT(QTIME,6)
RETURN
ENO
4900
4905
4910
4915
4940
4922
LWT 4930
LWT 4935
LT44
LWT 4940
32
SUBROUTINE NSMDL
t.**s****
*******
****
.*****
C***...
C
USED FOR USER DEFINED ATMOSPHERIC MODELS (MODEL=O OR 7)
DEFINES ALTITUDE DEPENDENT VARIABLES ZPTWHWO
LOADS HAZE INTO APPROPRATE LOCATION
C
C
****
AND HAZE
C....**h~*.*,,.*,...**********************A*********
COMMON /IFIL/IRDIPRIPUNPR
MODELITYPEIEMSCTM,.M2.M3.IMNOPRNT.TBOUNDSALB
COMMON /CARDI/
IHAZEISEASNIVULCNICSTLICIRIVSAVISWSSWHH,
COMMON /CARD2/
I
RAINRT
H1,H2,ANGLERANGEBETARELEN
COMMON /CARD3/
VIV2,DV
COM.ION /CARD4/
KMAXM.IKMAXNLML.IKLOISSGEO
COMMON /CNTRL/
RHH
COMMON /MART/
COMMON /MDATA/ZM(34),P(34,7),T(34,7),WH(34,.),WO(34,7).
X HMIX(34)
Z(34),PM(34).TM(34),RFNDX(34).DENSTY(16,34)
COMMON /MODEL/
COMMON RELHUM(34).HSTOR(34).ICH(4),VH(IB6)TX(16),W(16)
WPATH(68,16).TBBY(68)
COMMON
COMMON ABSC(4,40),EXTC(4,40),VX2(40)
ZVSA(IO).RHVSA(IO).AHVSA(IO),IHVSA(iO)
COMMON /ZVSALY/
COMMON /MDLZ/HMDLZ(8)
HZ(5,15).SEASN(5,2),VULCN(5.5),BLANK.VSB(9),
COMMON /TITL/
X HMET(5.2).HMODEL(5,8)
DIMENSION AHOL1(5),AHOL2(5).AHOL3(5),AHAST(34),AHLVSA(5)hAHUS(5),
1 ITY1(35).IH1(34).ISI(34),IVLI(34)
/
,4H
DATA AHLVSA/4HVSA .4HDEFI,4HNED ,4H
/
*4H
AHUS /4HUSER,4H DEF.4HINED,4H
DATA
C
C
C
F(A)
C
C
IS
SATURATED WATER WAPOR iJENSITY AT TEMP T,A-TZERO/T
F(A)=EXP(l8.9766-14.9595*A-2.43882*A*A)*A
CALL ORYSTR
IF(MODEL.EQ.7.ANO.IVSA.EQ.t;ýALL RDNSM(ML.IM)
IF(MODEL.EQ.O) M*MODEL
ICL-0
T0-273.15
ICi :
N27
IF(IVULCN.LE.O) IVULCN-1
IF(ISEASN.LE.O) ISEASNS1
FOR MODEL EQ ZERO
IHAl0
ISEAl 0
C
C
NSM
115
NSM
120
NSM
125
130
NSM
NSM
135
NSM
140
145
NSM
150
NSM
155
NSM
160
NSM
165
NSM
NSM *170
NSM
175
NSM *180
185
NsM
190
NSM
195
NSM
NSM
200
205
NSM
NSM
210
215
NSM
220
NSM
NSM
225
230
NSM
.NSM 235
240
NSM
245
NSM
250
NSM
NSM
255
260
NSM
NSM
265
NSM
270
275
NSM
280
NSM
NSM 285
290
NSM
295
NSM
300
NSM
305
NSM
310
NSM
315
NSM
320
NSM
NSM
NSM
NSM
NSM
325
330
335
340
345
KwK+t
NSM
NSM
NSM
NSM
IF(M.EQ.O)READ(IRD,8B)HI.P(t,?)hTMPDPRH.WH(K,7).WO(K,7),RANGE
NSM
350
355
360
365
IF(K.GT.1) GO TO 5
HMDLZ(I)oHi
HMDLZ(2)-P( ,7)
HIIOLZ(3)aTMP
NSM
NSM
NSM
NSM
375
380
305
390
LOOP OVER LAYERS
c
1
100
105
110
NSM
IVIJLl.0
VIS1-0.
AHAZE-0.
END OF MODEL ZERO DEFAULT
WRITE(IPR.100)
IF (M.NE.0)
K.0
C
NSM
NSM
NSM
33
370
5
7
8
C
C
C
10
17
HMOLZ(4)-DP
NSM
HMDLZ(5)=RH
NSM
HMDLZ(6)=WH(K,.7)
NSM
HMDLZ(7)-NO(K,7)
NSM
HMDLZ(8)=RANGE
NSM
IF(M.EQ.O)wRITE(IPR,90)HI,P(1,7),TMP,DP,RH,WH(K,7),WO(K,7),RANGE
NSM
IF(M.EQ.0) GO TO 8
NSM
IF(IVSA.EQ.1) GO TO 7
NSM
IF(M.EQ.7)READ(IRD,80)Z(K),P(K,7),TMP.DP,RH,WH(K,7),WO(K,7),AHAZE,NSM
IVISI,IHAIISEAIIVUL1
NSM
IF(IVSA.EQ.1)CALL LAYVSA(K,TMPDPRHAHAZEVIS1,IHAI,ISEA1,IVUL1)
NSM
WRITE(IPR,9!3)Z(K),P(K,7),TMPDP,RH,WH(K,7).WO(K,7),AHAZEVISt,
NSM
1 IHAI,ISEAI,IVULI
NSM
IF (MEQ.O) Z(K)=H1
NSM
AHAST(K)=AHAZE
NSM
IHAt
IS IHAZE FOR THIS LAYER
NSM
ISEAl IS ISEASN FOR THIS LAYER
NSM
IVULI IS IVULCN FOR THE LAYER
NSM
IF(ISEA1.EQ.0) ISEAI-ISEASN
NSM
IF(IHA1.GT.O.OR.IVULl.GT.0) GO TO 10
NSM
ITYAER-IHAZE
NSM
IF (Z(K).GT.2.O) ITYAER-6
NSM
IF (Z(K).GT.9.0) ITYAERvIVULCN+g
NSM
IF (Z(K).GT.30.) ITYAER-15
NSM
1HAI-IHAZE
NSM
IVULI IVULCN
NSM
GO TO 15
NSM
NSM
IF(IVUL1.GT.O)ITYAER=IVULI+9
IF(IHA1.GT.O) ITYAER.IHA1
NSM
IF(ITYAER.GT.15) ITYAER-15
NSM
IF(IHAI.LE.0) IHAIsIHAZE
NSM
IF(1VULI.LE.O) IVULIsIVULCN
NSM
15 IF (K.EQ.1) GO TO 20
NSM
NSM
GO TO 17
IF(N.EQ.7.ANO.ITYAER.EQ.6.ANO.Z(K).GT.2.0)
IF (ITYAER.EQ.ICH(ICI)) GO TO 20
NSM
IC1.ICI+1
NSM
ICL=0
NSM
IF(RH.GT.O.)RHH=RH
NSM
N&ICI+10
NSM
IF (ICI.LE.4) GO TO 20
NSM
XCI 4
NSM
N-14
NSM
ITYAER-ICH(ICt)
NSM
NSM
20 ICH(ICI)-ITYAER
LI.IfIX(Z(K)+Il.oE-6)+1
NSM
IF (Z(K).GE,25.0) J.(Z(K)-25.0)/5.0+2S.
NSM
IF (Z(K).GE.50.0) dJ(Z(K)-50.0)/20.0+31.
NSM
IF (Z(K).GE,70.0) U-(Z(K)-70.0)/30.0O32.
NSM
IF (J.GT.33) d.33
NSM
FACZ(K)-FLOAT(CJ-)
NSM
iF (iJ.LT.26) GO TO 25
NSM
FAC,(Z(K)-5.0QFLOAT(J-26)-25.)/5.
NSM
IF (J.OE.31) FAC-(Z(K)-50.0)/20.
*NSM
IF (J.GE.32) FACmjZ(K)-70.O)/30.
NSM
NSM
IF (FAC.GT.1,0) FAC1.0
25 L-d~t
NSM
T(K,7)vTMP+TO
NSM
IF (MW.G,,0) P(K,7).P(JM1).(P(L.Mt)/P(C.,M))..FAC
NSM
ZF(P(K,?).LE.0.)P(K,7).3.0E-4
NSmI
34
395
400
405
410
415
420
425
430
435
440
445
450
455
460
465
470
475
480
485
490
495
500
505
510
515
520
525
530
535
540
545
550
555
560
565
570
575
580
585
590
595
600
605
610
615
620
625
630
635
640
645
650
855
660
665
670
075
680
GUS
IF
(Mi .GT.0)
T(K.7)=T(d,M1)*(T(L.M1)/T(J,M1))**FAC
NSM
690
NSM
NSM
NSM
695
700
705
WH(K,7)-O.
NSM
710
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NNSM
715
720
725
730
735
740
745
750
755
760
765
770
775
780
785
790
795
800
810
810
815
820
823
830
935
040
845
850
855
865
865
870
885
880
085
ago
895
096
900
905
910
915
920
925
930
935
940
945
950
955
960
IF(Z(K).GE.IOO.)WH(K,7)=O.
IF(Z(K).GE.100.)GO TO 35
IF (M2.GT.O) WH(K,7)=WH(J,M2)*(WH(L,M2)/WH(j,M2))**FAC
IF(RH.GT.O.)
X
lF (WH(K,7).GT.O.0) GO TO 35
IF (RH.GT.O.0) GO TO 30
DPK-TO+OP
TT-T0/DPK
WH(K,7)-OPK*F(TT)/T(K,7)
Go TO 35
30 TA=TO/T(K,7)
WH(K, 7)F(TA)*O.OlRH
35 CONTINUE
IF (M3.GT.0) WO(K,7).WO(dM3)*(WO(L,M3)/WO(j.M3))*#FAC
HSTOR(K)=O.
IF (HMIX(d).LE.O.) GO TO 40
IF (HMIX(L).LE.O.) GO TO 40
HSTOR(K)=HMIX()f*(HMIX(L)/HMIX(J))h'FAC
40 CONTINUE
OENSTY(7,K)=O.
OENSTY(12,K)=O.
OENSTY(13,K)-O.
DENSTY(14,K)=O.
OENSTY(15,K)-O.
PS.P(K,7)/1013.0
TS-273.15/T(K,7)
WTEMP-WH(K.7)
RELHUM(K)-O.
IF(WTEMP.LE.O.) GO TO 45
RELHUM(K) - 100.0WTEMP/F(TS)
IF( RELHUM(K) .GT. 100.) RELHUM(K)-100.
0.) RELHUM(K)oO.
IF( RELHUM(K) .LT.
45
RHH-RELHUM(K)
RH.RHH
IF(IHAZE.EO.O) GO TO 50
IF (VISILE.O.0) VISI'VIS
IF (AHAZE.EQ,0.0) GO TO 47
OENSTY(NK).AHAZE
AHAZE IS IN LOWIRAN NUMBER QENSTY UNITS
€
Go TO 50NSM
lF(ITNAER.EQ.3,ANO.ICLEQ.0)CALL MARINE(VISl,MODELWSS,•ib44.ICSTL,
47
X EXTC.ASSC.ICI)
IF(ITYAER.EQ.3,ANO.ICL.EQ.O)VIS*VISI
INSM
CALL AERPRF (J,VISIHAZI,INAIISEAI,IVULiNN)
CALL AERPRF (LVISi.HAZ2,IMAiISEAIIVULt.NN)
HAZEU0.
IF ((HAZI.LE.O0).OR.(HAZ2,LE.O.0)) GO TO 50
HAZEGHAZI-(HAZ2/HAZI)&*FAC
OSNSTY(NK).HAZE
ITYItK).ITYAER
50
IHI(K) IlAI
IF(AHAZE,NE.0)IZl(K)--99
ISt(K)*ISEAI
IVLI(K)-IVULI
IF(K.LT.ML) GO TO I5
1
C
ENO OF LOOP
C
35
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
970
91?
C
IF(ML.LT.20) WRITE (IPR,903)
903
900
C
905
FORMAT(O ')
IF(ML.GE.20) WRITE (IPR,900)
')
FORMAT(1
WRITE(IPR,905)
FORMAT(T7,Z¾,T17,'pIT26,lT',T32,'REL H', T41,'H20'. T52,'03',
T80,'AEROSOL',/.T6,'(KM)',T16,'(MB)',T25,'(K)',T33,'(C)',
T39,'(GM M-3)',T49,'(GM M-3)P.T59,'TyPE',T6O.*PROFILE',
T101,'SEASON',/)
o0 60 KK-l,ML
DO 52 14*1,5
AHOLI( IJ)BLANK
AHOL2(IJ)-BLANK
AHOL3(IJ)-BLANK
52
IF(IHAZE.EQ.0) GO TO 60
ITYAER1ITYI(KK)
IHAt-IHI(KK)
ISEAt-ISI(KK)
IVULI-IVLI(KK)
00 54 Id-1,5
AHOLl(hJ).HZ(Id. ITYAER)
AHOL2(IJ).AHUS(IU)
IF(IVSA.EQ.I) AHOL2(IJ)-AHLVSA(IJ)
IF(AHAST(KK).EO.O) AHOL2(IU)-AHOLI(IJ)
IF (Z(KK),OT.2.0) AHOL3(IJ)-SEASN(IJZSEA1)
54
WRITE(IPR,915)Z(KK),P(IK,7),T(KK,7),RELHUM(KK),WH(KK.7)tWO(KK,7),
60
X AHOLI.AHOL2,AHOL3
FORMAT(2F10.3,2F8.2,tP2EI0.3,2X,5A4.1X,5A4.IX,5A4)
915
IF (ICI.GE.4) GO TO 75
68
IC2-ICi+4
DO 70 KKIC2,4
70 ICH(KK)zICH(KK-I)
75 CONTINUE
M-7
IF(MOOEELEQ-0)WRITE(IPR,903)
IF(MOOEL.NE.0) MOOELOM
RETURN
I
2
3
I0 FORMAT (3FtO.3,2FS.l.2EtO.3,EIO.3,F?.3.311)
85 FORMAT (3F10.3,2F5.l,2ElO.3,2Fi0.3)
90 FORMAT('O CARD 3* ****'.,3F0.3,2F5.t,l92El0.3.OPFIO.3,
X 'MOOEl ZERO INPUT')
95 FORMAT (3Et0,3,2F5.1,3EtO.3.FIO'3,413.4(IX,2A4.A2))
MODiEL ATMOSPHERE NO. 7)
100 FORMAT
ENO
36
NSM
NSM
goo
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
NSM
kIM
990
995
1000
1005
1010
1015
1020
1025
1030
1035
1040
1045
1050
1055
1060
1065
1070
1075
1080
1095
1090
1095
1100
1105
1110
1115
1120
1125
1130
1135
1140
1145
1110
1155
1160
1165
1170
11TS
1180
li15
1190
1195
1200
1205
1210r
905
SUBROUTINE
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
STDMOL
THIS SUBROUTINE LOADS ONE OF THE 6 STANDARD ATMOSPHERIC PROFILES
INTO COMMON/MODEL/ AND CALCULATES THE DENSITIES OF THE
VARIOUS ABSORBING GASES AND AEROSOLS
COMMON /IFIL/IRO.IPRIPU.NPR
COMMON /CARDI/ MODEL.ITYPE.IEMSCTMlM2,M3,IM,NOPRNTTBOUNDSALB
IHAZE,ISEASN.IVULCN,ICSTL,ICIR,IVSA.VIS.WSS,NHH,
COMMON /CARD2/
RAINRT
4
COMMON /CARD3/ HiH2,ANGLERANGE.BETA.RELEN
V1,V2,OV
COMMON /CARD4/
COMMON /MDATA/ Z(34),P(34.7).T(34.7).WH(34,7),WO(34.7),
X HMIXI34)
PI.CADEGGCAIR.BIGNUMBIGEXP
COMMON /CNSTNS/
COMMON /CNTRL/ KMAX.M,IKMAXNL,ML.IKLO,ISSGEO
ZM(34),PMN34),TM(34),RFNDX(34),DENSTY(16.34)
COMMON /MODEL/
COMMON RELHUM(34).HSTORL34),ICH(4).VlI(16).TXtI6).(I6)
WPATH(68,16).TBBY(68)
COMMON
COMMON ABSC(4,40).EXTCI4,40),VX2(40)
XLOSCH - LOSCHMIDT'S NUMBERMOLECULES CM-2.%M-i
DATA PZERO /1013.25/.TZERO/273.15/,XLOSCH/2,6868E24/
RV CAS CONSTANT FOR WATER IN MB/(GM M-3 K)
CON CONVERTS *ATER VAPOR FROM GM M-3 TO MOLECULES CM-3 KU-I
DATA RV/4.6152E-3/,CON/3.3429E21/
CONSTANTS FOR INDEX OF REFRACTION, AFTER EOLEN. 1965
DATA AO/83.42/,A/1/eS.0B/,A2/4.11/,
Bl/,140ES/.52/6.24E4/.CO/43.49/.CI/1.?OE4/
X
F(A) IS SATURATED WATER WAPOR DENSITY AT TEMP T.A-TZERO/T
F(Ab.EXPIIB.9766-14.9595A-2,43882#AOA)*A
420 CONTINUUM IS STORED AT 29" K R"L9RO IS AIR DENSITY AT 296 K
IN UNITS OF LOSCHMIOT'S
CALL DRYSTR
AHZERC-i273.1/2986.O)
LOAD ATMOSPII(RE
N
DROFILE INTO /40011L/
l*IM
Z FCMI,NE.O.AhlD.UNE.1)
M •M
IF(k2,NE.0.AN.M.NE.?)
w&3,M
IWIeM1
1M02wM2
~3.M
I~1M.N~0.h0.MI~E.)
if IM.Lf.T.)MlLs.N
DO 25 I'l.M
lM
NE.7iiL|MIU.M)
PU(tIiIljI
.MM)
P-P;t4 I)
IStu
C
STD
100
ST1
STD
STO
110
115
120
STD
STD
STD
S0D
STD
STD
SD
STD
SID
STD
SD
ST1
SID
STW
STD
SID
S1
STO
STD
ST1
SO
SID
SID
M10
STO
STO
STD
STO
StD
St
1S0
SO
SIt
130
135
140
t45
150
155
860
165
10
175
185
190
195
200
205
210
215
220
225
230
23C
240
245
250
255
260
265
210
275
380
295
295
$M0
St0
303
305
SID
310
SWO
in8
215
LT
315
SIDI 320
s"0 32S
STO *330
ItO
0
SID 340
Vo 346
350
ftEL34UM IS1*0CtýTE
$~L
to
3ns
SCALEO H20 OCtNSITt
0ENSv(t1I|- 0.t*VTcm.*v2"*0.#
SID
STO
10$
300
3
37
GO TO 15
IF (ZM(I).GT.2.0)
4Is
IS a TZERO / TT
KELHUM().IO0.O.O(MTEMP/F(TS))
CONTINUE
UNIFORMALY MIXED GASES DENSITYS
OENSTY(2,I).FliF2**O.?5
UV OZONE
OCNSTY(8,1).46.6667M0O(I MM3)
IR OZONE
OENSTY(3,I). OENSTY(8.I. F2..0.4
N2 CONTINUUM
OENSTY(4.I).0.S.FlF2
SELF BROADENED WATER
RHOAIR - Fl
RHOHI2O
CON *WTEMP/XLOSCH
RHOFRN - RHOAIR - RHON20
DENSTYi5,1)u XLOSCHNRH0420..2/RNZERO
FOREIGN BROADENED
OENSTY(O.I2)- XLOSCHNR0JHNORHOFRN/RHZERO
r.,LECULAR SCATTERING
- Fl
DENSTY(6,1)
0 TO
AEROSOL
FOR GO
IF(M.EQ.71
TO 2KM
20
C
C
C
C
4,
C
C
C
A
C
CALL AERPPF(1.VIS.AZE.IHAZE.ISEASN.IVULCN.N)
C
C
C
20
"C
520
525
530
535
ORNSTY(14,).O.
LOAD AERQSOLS
MEN•MYtN.I)PHAZE
DENSTt(N,,I)uv4AZE
CINTINUE
STD
S$O
STO
S1
SI
545
550
ss5
560
565
S1
SID
$10
510
575
5rQ
51
ABOVE 30KM
o
TO 2 KM)
OENSYISI)-QCLUMII)U§NSTY(12,t)
610
IlR.to.0) OEN$TY('6.SDfll
* QIAITIVITv
C
C%
afk4
C
FROM £Qn. 1%60-
:
IINP.10t)t
40
I-ANta Of EFRACIIoN
630
510
625
4003
$
:;D
Go to 40
:::
tu 1i0b
S54~(
CO iflhC4c
510
'15
MN'.1SItsI
'(mt1CV
4?5I*W
too
"
>?7,j~9~3
0.~tS~'Of
2 133.
0%4
$tO
00
S~f
'0)
40
505
St0
s$0 5lo
0310
CIQatu% CLOW
Itt
540
510SI595
SID 600
thO AINA* C-4M
Ori
.I)
t*4$1Y( 1t)01flht1OftI*.0
AVN.OT..I~rStu
>
510
515
DErlS1V19.I).0.
IF(ICnit;.GT.?)
C
1S0
S1
ST1
STD
SI0
JOUNDRYLAYER AEROSOL (0
RELITIVE HJK4|D0Y W"11•010 BY
•OEN$1Y|l$.I).RELHUMIIOE
?Y(7,1)
*ODENSItV
tY9)
NO LOt
USED
C
400
405
410
415
420
425
430
435
440
445
450
456
460
4q5
470
475
460
485
490
495
500
505
STD
AEROSOL FOR
C
395
S1
S10
STD
STD
0TD
STD
$TO
SD
SD
STO
STD
SD
STD
S1
S1
ST1
SD
5TO
51
51D
STD
SID
AEROSOL FOR 2 TO 9KM
OENST(12.1)-..
AEROSOL FOR 9 TO 30KM
OfNSTY(13, 12.0.
ENSTY(7.I 2.0.
4
STO
.tS
ttik.'I#*D'
t'.tJ3.
Itof1~2
).
Kt.tflo.
us'~
%to
51$
It 0
S5
.
AER
SUBROUTINE AERPRF (I,VISHAZE,IHAZE,ISEASN,IVULCN,N)
**************.**~**-*4**********************AER
**s**~***************** **
C
*A
WILL. COMPUTE DENSITY
PROFILES FCR AEROSOLS
AER
IOu
¶05
110
115
120
125
130
135
140
145
150
:55
160
165
170
175
180
185
190
195
200
205
210
215
220
225
230
235
240
245
250
255
260
265
270
275
280
285
290
295
300
305
310
315
320
325
330
335
340
345
350
355
360
365
370
373
380
365
390
5
40C
405
410
COMMON/PRFD /ZHT(34),HZ2K(34,5),FAWI50(34),FAWI23(34).SPSu5O(34),AER
ISPSU23(34),BASTFW(34),VUMOFW(34),HIVUFW(34),EXVUFW(34),OASTSS(34),AER
2VUMOSS(34).HIVUSSk34),EXVUSS(34),UPNATM(34),VUTONO(34),
AER
3VUTOEX(34),EXUPAT(34)
AER
DIMENSION VS(S)
AER
OATA VS/50.,23.,10.,5.,2./
AER
HAZE=0.
AER
N=7
AER
AER
IF (IHAZE.EQ.O).RETURN
IF (ZHT(I).GT.2.0) GO TO 15
AER
DO 5 J-2,5
AER
IF (VIS.GE.VS(d)) GO TO 10
AER
5 CONTINUE
AER
AER
J=5
AER
10 CONST=I./(1./VS(J)-1./4S(J-1))
HAZE=CONST*((HZ2K(I,d)-HZ2K(I,O-i))/VIS+NZ2K(I,4-l)/VS(J)-HZ2K(IJAER
1)/VS(0-1))
AER
RETURN
AER
15 IF (ZHT(I).GT.9.0) GO TO 35
AER
N.12
AIR
CONST-1./(l./23.-1./50.)
AER
IF (ISEASN.GT.1) GO TO 25
AER
IF (VIS.LE.23.) NAZE=SPSU23(I)
AER
IF (VIS.LE.23.) RETURN
AIR
IF (ZHT(I).GT.4.0) GO TO 20
AER
HAZE=CONST*((SPSU23(I)-SPSU50(I))/VIS+SPSUSO(I)/23.-SPSU23(I)/50.)AER
RETURN
AER
20 HAZE=SPSUEO(I)
AER
RETURN
AER
25 IF (VIS.LE.23.) HAZE=FAWI23(1)
AER
IF (VIS.LE.23.) RETURN
AEq
IF (ZHT(I).GT.4.O) GO TO 30
AER
HAZE=CONS1"*((FAWI23(I)-FAWISO(I))/VIS+FAWI5O(I)/23.-FAWI23(I)/50.)AER
RETURN
AER
30 HAZE=FAWI50(I)
AER
RETURN
AER
35 IF (ZHT(I).GT.30.0) GO TO 75
AER
N=13
AER
HAZE=BASTSS(I)
AER
IF (ISEASN.GT.I% GO TO 55
AER
;F (IVULCN.EQ.O) HAZE-BASTSS(I)
AIR
IF (IVULCN.EQ.0) RETURN
AER
GO TO (40,45,5O,50,45), IVULCN
AER
40 HAZE4BASTSS(I)
AIR
RETURN
AER
45 HAZEvVUMOSS(Z)
AER
RETURN
AER
50 HAZEvHIVUSS(Ij
AER
RETURN
AER
55 IF (IVULCN.EQ.0)
HAZE*BASTFW(I)
AER
IF (IVIJLCN.EQ,0) RETURN
AER
GO TO (60,65,70.70,65),
IVULCN
AER
AER
60 HAZE-BASTFW(I)
RETURN
AIR
65 HAZEvVUMOFW(0)
AIR
AER
RETURN
AIR
70 HAZEHIVUFW(l)
A&A
RETURN
AER
75 N"14
AEN 416
IF (IVULCN.GT.1) GO TO 80
AIR 420
HAZEUPNATM(I)
AIR
RETURN
425
LAI 430
EAR 436
AEA 440
80 HAZE*VUTONO(I)
RETURN
END
39
SiOW10T r t.
C
C
C
C
C
C
C
C
""g
10
900
.4
-0
'I V
L)RSI 1
TH( SIRATOSPHERIC 1t6 KM AND ABOVE)
THIS SUBROUTINE QFFLACfS
WATTR VAPOR PRODIl1E '5URtW IN MOLAAI.WIt H
A -I.;RY" WATER VArPR PRO- !.E CORRESPONDING. TO
A CUIJSTANi MASS MIX|NI RAIIf Or DR)MI
ID'DVMI(.2.6 1'PMM
FRQ'.' 1. PENNDOpr '171 ANALYSIS OF OZONE ANfl WATER VAPOR
FIlI(t MrA',UREMENJ1 DkJIA FA-EE-78-29)
TO ]I .,UUF THE ORl,' PWIOfI'E,
IPF. USER MUST INCLUDE A CA.L TU
ORYSIR IN THE MAIN PR•RPC AM
C................,.....
.
.**.
.**,ec$......$R
COM'.ON !IFIL/
I.V,IPR ,IPUNPR
COMM4UN/MDATA/
ZI.14),P134.7),
(34,7)TW41.34,7,WO(34,7).
HMIX( 341
1
DATA DRYMIX /2.GE-6/.RV /2.8705E-3/
00.0
DD
21,6
rwpY
too
DRY
DR(
DRY
DpY
DRY
DRY
DRY
DRY
Ito
115
120
125
f'30
135
140
145
150
DRY
155
DRY
160
DRY
165
DRY
170
DRY *175
DO I N--17,33
DRY .180
WN(N.)=UIRYMIX*P(N,I!/IRV*TIN.I))
DRY
185
WRIIEtIPR.900) E'liMIx
DRY
190
FORMAT(' WATER VAPOR PROFILE HAS BEEN REPLACED BY A'./,
DRY
195
X1 DRY WATER VAPOR PROFILE COdRRESPONDING TO A MASS MIXING RAT1O OF'ORY
200
XoIPEiO. t
DRY
205
RETURN
DRY
210
DRY 215
END
GEO
GEO
GEO
GEO
GEO
GEO
GEO
GEO
GEO
GEO
GEO
COMMON RELHUM(34),HSTOR(34),ICH(4),VH(18)tTX(16),M(16)
GEO
COMMON
WPATH(69,16),TBBY(68)
GEO
COMMON ABSC(4,40),EXTC(4,40),VX2(40)
GEO
COMMON /IFIL/IRD,IPR,IPU,NPR
GEG
COMMON /CARDI/
MODEL,ITYPEIEMSCT,Mi,M2,M3,IM,NOPRNT,TBOUND,SALB
GEO
COMMON /CARD2/ IHAZE,ISEASN,IVULCNICSTL,ICIR,IVSA.VISWSSWMNH,
GEO
I
RAINRT
GEO
COMMON /CARD3/ Hi,62,ANGLERANGE,BETAREE,LEN
GEO
COMMON /CARD4/ VI,V2,DV
GEO
COMMON /CNSTNS/ PICA,DEG,GCAIR,BIGNUM,BIGEXP
GEO
COMMON /CNTRL/ KMAXM,IKMAX,NLMLIKLO,ISSGEU
GEO
(-OMMON /MODEL/ ZM(34),PM(34),TM(34),RFNDX(34),DENSTY(16,34)
GEO
cOMMON /PARMTR/ RE,DELTASZMAX,IMAX,IMOD, IBMAXIPATH
GEO
COMMON /RFRPTH/ ZP(35),PP(35),TP(35),AFNOXP(35),SP(35),
GEO
GEO
1
PPSUM(35),TPSUM(35),RHOPSM(35),DENP(16,35),AMTP(16,35)
COMMON /SOLS/ AHI(68),ARH(68),
GEO
X
WPATHS(68,16),PA(68),PR(68),ATHETA(35),ADBETA(35),LJ(89),dTURNGEO
X ANGSUN
GEO
DIMENSION KMOL(16)
GEO
C*•e*.KMOt.(K) IS A POINTER USED TO REORDER THE AMOUNTS WHEN PRINTING
GEO
DATA KMOL/1,2.3,11,8,5,9,t0,4,6,7,12,13,14,16,t5/
CEO
C*e*s.INITIALIZE CONSTANTS AND CLEAR CUMULATIVE VARIABLES
GEO
C*.***OELTAS IS THE NOMINAL PATH LENGTH INCRENMENT USED IN THE RAY TRACEGEO
DELTAS - 5.0
GEO
IERROR - 0
GEO
RE - REE
GEO
IMOD a ML
GEO
IMAX - ML
GEO
Coa.**ZERO OUT CUMULATIVE VARIABLES
GEO
D tOO10 1,35
GEO
PPSUM(I) • 0.0
CEO
TPSUM(W) 4 0.0
GEO
RHOPSM(I) a 0.0
GEO
00 100 K.1,KMAX
GEO
AMTP(K,I) a 0.0
GEO
100 CONTINUE
CEO
ZMAX-ZM(IMAX)
GEO
IF(MOOEL.EQ.O)
GO TO 145
GEO
tF(ISSGEO.E0.1) 0O TO 200
GEO
IF(ITYPE.GE.2)
GO TO 200
GEO
Ce06asHORIZONTAL PATH, MODEL EQ I TO ?t
INTERPOLATE PROFILE TO HI
GEO
00 120 1*2,ML
OEO
12 a I
GEO
|F(H1.LT.ZMCI))
GO TO 130
GEO
CONTINUE
GEO
130 CONTINUE
GEO
11 * 12-1
GEO
FhC
(HI-ZM(ll))/(ZM(12)-ZM(lt0)
GeO
SUBROUTINE GEO(IERROR,BENDNG)
C***********4*************************.
*****************
C
THIS SUBROUTINE SERVES AS AN INTERFACE BETWEEN THE MAIN
SET
OF SUBROUTINES,
PROGRAM
'LWTRN6'
AND
THE
NEW
C
LOWTRAN6
C
INCLUDING 'GEOINPI,
'REDUCE',
'FDBETA',
'EXPINT',
tFNDHMN•,
C
'FINDSH',
'SCALHT',
'ANDEX',
'RADREF',
'RFPATHt,
'FILL#,
C
AND 'LAYER',
WHICH CALCULATE THE ABSORBER
C
AMOUNTS FOR A REFRACTED PATH THROUGH THE ATMOSPHERE.
THE INPUT PARAMETERS ITYPE, Hl, H2, ANGLE, RANGE, BETA, AND LEN
C
ALL FUNCTION IN THE SAME WAY IN THE NEW ROUTINES AS IN THE OLD.
"C
S120
100
105
110
115
120
125
130
135
140
145
150
155
160
165
170
175
180
185
190
195
200
205
210
215
220
225
230
235
240
245
250
255
260
265
270
275
280
285
290
295
300
305
310
315
320
325
330
335
340
345
350
355
360
355
370
375
380
305
390
41
.~
~~~~~~~rw6.'-du
V
-1.,'..%
~*~***
,.,f...,.9'
.*
*
-
'"
HI
JP(l)
CALL EXPINT(PP(1),PM(II),PM(I2),FAC)
TP(I) a TM(I1)+(TM(I2)-TM(Il))*FAC
00 140 Kx1,KMAX
CALL EXPINT(DENP(K,i),DENSTY(K,II),DENSTY(K,12),FAC)
140 CONTINUE
ABSORBER AMOUNTS FOR A HORIZONTAL PATH
HI,RANGE,MODEL
145 WRITE(IPR,36)
36 FORMAT(1OHORIZONTAL PATH AT ALTITUDE x ',F10.3,
t13)
,
' KM WITH RANGE a ItF10.3,' KM. MODEL
I
IKMAX - 1
IF(MODEL.EQ.0) TP(1)-TM(1)
TBBY(1) - TP(1)
DO 160 K=J,KMAX
IF(MOOEL.EQ.0) DENP(K,1) s DENSTY(K.1)
W(K) - DENP(K,1)*RANGE
WPATH(t,K) - W(K)
160 CONTINUE
WTEM a (296.0-TP(I))/(296.0-260.0)
!F(WTEM.LT.O.)WTEM-O.
IF(WTEM.GT.1)WTEM-I.
"C**.**CALCULATE
W(9)-W(S)*WTEM
WPATH(1,9) - W(9)
GO TO 320
200 CONToNUE
C****.SLANT PATH SELECTED
C**e**INTERPRET SLANT PATH PARAMETERS
CALL GEOINP(HIH2.ANGLE,RANGE,BETAITYPELEN,HMIN,PHIIERROR)
IF(IERROR.EQ.O) GO TO 210
IF(ISSGEO.NE.I)WRITE(IPR,38)
IERROR NE O END THIS CALCULATION AND SKIP TO#
38 FORMAT(1OGEO:
,' THE NEXT CASE')
1
RETURN
210 CONTINUE
***Cee
ACLCULATE THE PATH THROUGH THE ATMOSPHERE
IAMT - 1
CALL RFPATH(Hi,H2,ANGLEPHI,LENHMIN,IAMTBETA,RANGEBEN0MG)
C0*004UNFOLD LAYER AMOUNTS IN AMTP INTO THE CUMULATIVE
Ce4*.*AMOUNTS IN WPATH FROM Hl TO H2
DO 220 Ivl,IPATH
IF(Hl.EQ.ZP(I)) IHI - I
IF(H2.EQ.ZP(I)) IH2 a I
220 CONTINUE
%MAX a (IPATH-1)+LENo(MINO(IHI,2)-l)
IKMAX - %JMAX
Coe*.DOETERMINE LJ(J). WHICH IS THE NUMBER OF THE LAYER IN AMTP(KL),
C$4*06STARTING FROM HMIN, WHICH CORRESPONDS TO THE LAYER 4 IN
C.s*..WPATH(.iK), STARTING FROM HI
C.*s##6NITIAL DIRECTION OF PATH IS DOWN
L v IHI
LOEL a -1
GO TO 230
IF.(LEN,EQ.1 .DR. HI.GT,H2)
C*O4*.INITtAL DIRECTION OF PATH IS UP
L o 0
LOEL - I
230 CONT IUUE
-JTURN a 0
%JMAXI*tJMAX4i
00 2$0 iotd, jwMPl
42
,I4
GEO 395
GEO 400
0E0 405
GEO 415
GEO 420
GEO 425
GEO 430
GEO 435
GEO 440
GEO 445
GEO 450
GEO 455
GEO *456
GEO 460
050 465
GEO 470
GEO 475
GEO 480
GEO 485
GEO 490
GEO 495
GEO 500
GEO 505
GEO 510
GEO 515
GEO 520
GEO 525
GEO 530
GEO 535
GE5 540
GEO 545
GE0 550
GEO 555
GEO 560
GEO 565
GEO 570
GEO 575
GEO 580
GEO 585
GEO 590
GE0 595
GEO 600
GEO 605
GEO 610
GEO 615
GEO 620
GEO 625
GEO 630
GE0 635
0E0 640
GEO 645
5O0 650
GEO 655
OEO 660
0E5 665
GEO 670
GEO 679
0E0 $so
ago 65
C**,$*TEST FOR REVERSING DIRECTION OF PATH FROM DOWNTO UP
IF(L.NE.1 .OR. LDEL.NE.-1)
GO TO 240
JTURN
J
L - 0
LDEL = +1
240 CONTINUE
L - L+LDEL
LJ(d) - L
250 CONTINUE
C***$$LOAD TBBY AND WPATH
C***$$TBBY IS DENSITY WEIGHTED MEAN TEMPERATURE
AMTTOT-O.
255 K-1,KMAX
WPATH(1,K) - 0.0
265 J-l,JMAX
.Lx LO(W)
TBBY(J)
TPSUM(L)/RHOPSM(L)
AMTTOT=AMTTOT+RHOPSM(L)
dl - d-1
IF(JI.EQ.O)
dl - 1
00 260 K-I,KMAX
IF(K.EQ.9) GO TO 260
WPATH(J,K) - WPATH(J1,K)+AMTP(KL)
260 CONTINUE
WTEM - (296.0-TBBY(dJ)/(296.O-260.O)
IF(WTEM.LT.O.0) WTEM v 0.
IF(WTEM.GT.I.0) WTEM % 1.0
WPATH(J,9) = WPATH(J1,9)+WTEM*AMTP(6,L)
265
CONTINUE
00 270 K-1,KMAX
W(K) - WPATH(dMAXK)
270 CONTINUE
C*4*$.INCLUDE BOUNDARY EMISSION IF:
C*****
i. NON ZERO TBOUND IS READ IN ON CARD 1
C*$$$$
2. SLANT PATH INTERSECTS THE EARTH (TBOUNO
C$$$$$
SET TO TEMPERATURE OF LOWEST BOUNDARY)
IF(TBOUND.EQ.O.O.ANO.H2.EQ.ZM(lH)
TBOUNDuTM(l)
C*$*.$PRINT CUMULATIVE ABSORBER AMOUNTS
IF(NPR.EO.1) GO TO 315
WRITE(IPR,42)
42 FORMAT(////,' CUMULATIVE ABSORBER AMOUNTS FOR THE PATH FROM'
1
,' HI TO Z',//,T3,'J'tT9,'Z',TIB,'TBAR',T3O,'H20',
2
T42,'CO2÷',T54,'O3',T66,'HNO3', T77,1O3 UV',T86,'CNTMSLFI ',
+
TO98,'CNTMSLF2t,TIlWCNTMFRN'
3
/,TB,'(KM)',TI9,'(K)',T31,'(SCALED LOWTRAN UNITS).,
4
T62.'(ATM CM)',T74,'(ATM CM)',
5
T84,'(MOL CM-2)',T96,'(MOL CM-2)',TIOSl(MOL CM-2)1,/)
C**Os$OOING DOWN, LP
0,
0
GOING UP, LP a i
LP
1
IF(LENEQ.I .OR. HI.OT.H2)
LP a 0
00 300 dvt,JMAX
L % LJ(d)
IF(J.EQ.JTURN)
LP a I
LZ v L+LP
IF(NPR.NE.l)WRITE(IPR.44)d,ZP(LZ),TBSY(J),(WPATH(J.KMOL(K)),K.
X 1,8)
44 FORMAT(13,FS.3, F9,.2,IPEI,3)
300 CONTINUE
lF(NPR.NE. l)WRjTE(IPR,46)
"255
"0O
"00
GEO
GEO
GEO
GEO
GEO
GEO
GEO
GEO
GEO
GEO
GEO
GEO
GEO
GEO
GEO
GEO
GEO
GEO
GEO
GEO
GEO
GEO
CEO
GEO
GEO
GEO
CEO
GEO
GEO
GEO
GEO
GEO
GEO
GEO
GEO
GEO
GEO
GEO
CEO
CEO
GEO
GEO
CEO
GEO
CEO
GEO
GEO
CEO
CEO
CEO
GEO
GEO
GEO
CEO
GEO
GEO
QEO
GEO
rO.
690
695
700
705
710
715
720
725
730
735
740
745
750
755
760
765
770
775
780
785
790
795
800
805
810
815
820
825
830
835
840
845
850
855
860
865
870
875
880
885
890
895
900
905
910
9t5
920
925
930
935
940
945
950
955
960
965
970
907
Sao
43
.1%L6,L
.1C1
CONT',T28,'MOL SCAT',T43,
31,TT9,'AER 4',T09gl•CIRRUSl,/
46 IFORMAT(///,T3,'J',TO9,'Z',T17,'N2
'AER 1',T55t•AER 2*,T67,'AER
2
,TB,'(KM)l,/)
LP
1
IF(LEN.EQ.1
.OR.. HI.GT.H2) LP - 0
310 J=1,JMAX
L . Ld(j)
IF(dJ.EQ.JTURN) LP = I
LZ = L+LP
IF(NPR.NE.1)WRITE(IPR,48) JZP(LZ),(WPATH(J,KMOL(K)),Kg9,15)
48 FORMAT(I3,F9.3,1P7E12.3)
310 CONTINUE
C,****PRINT PATH SUMMARY
315
IF(ISSGEO.EQ.1) GO TO 320
WRITE(IPR,40)H1 ,H2.ANGLE,RANGE,BETA,PHI,HMIN,BENONG,LEN
40 FORMAT(//,'OSUMMARY OF THE GEOMETRY CALCULATION',//,
t IOX,'H1
',F10.3,'
KM',/,IOX,'H2
- ',F10.3,1 KM',/,
110xANGLE
= ',FIO.3,'
DEG',/,IOX,'RANGE
* ',FlO.3,' KM',/,
310X,'BETA
;,FIO.3,' DEG',/,tOX,'PHI
- ',FIO.3,' OEG',/,
4 IOX,'HMIN
',FiO.3,'
1
KM',/,10X.'BENDING u ',F1O.3,' DEG',/,
5 IOX,'LEN
',I10)
320 CONTINUE
C*****CALCULATE THE AEROSOL WEIGHTED MEAN RH
IF(W(7).GT.O.0 .AND. ICH(1).LE.7)
W(15) u W(15)/W(7)
IF(W(12).GT.0.0 .AND. ICH(1).GT.7) W(15) *W(l5)/W(12)
C*****PRINT TOTAL PATH AMOUNTS
IF(ISSGEO.EQ.1) RETURN
WRITE(IPR,50)
(W(KMOL(K)),K-1,16)
50 FORMAT(////,' EQUIVALENT SEA LEVEL TOTAL ABSORBER AMOUNTS$,//,
1
T18,'H20',T30,IC02+',T42,'03',T54,'HNO3',T65,103 UV',
2
T75,'CNTMSLFI',Ts7,'CNTMSLF2',TIOO,'CNTMFRN',
+ /,T20,'(SCALED LOWTRAN UNITS)',
3
TSO,'(ATM CM)',T63,'(ATM CM)',T73,
4
'(MOL CM-2)',T85,'(MOL CM-2)l,T97,'(MOL CM-2)},
+
//,IOX,lP8E12.3,///,
5
T15,'N2 CONT',T26,lMOL SCATt,T41o'AER VI, T53,'AER 21,
6
T65,'AER 3',T77, 'AER 41,T87,'CIRRUS',T99,'MEAN RNI/.
7
TgB,'(PRCNT)'.//,1OX,1P7Et2.3,OPF12.22
RETURN
END
"Do
GED
GEO
985
990
GEO
GEO
GEO
GEO
GEO
GEO
GEO
GEO
GEO
GEO
GEO
GEO
GEO
GEO
GEO
GEO
GEO
GEO
GEO
GEO
GEO
GEO
GEO
GEO
GEO
GEO
GEO
GEO
GEO
GEO
GEO
GEO
GEO
GEO
GEO
GEO
GE0
ago
995
1000
1005
1010
1015
1020
1025
1030
1035
1040
1045
1050
1055
1060
1065
1070
1075
1080
1085
1090
1095
1100
1105
1110
1115
1120
1125
1130
1135
1140
1145
1150
1155
1160
1165
1170
1175
1180
44
%X ?-
-L
v*
v.
*.,I-*wq~
.
*~.
1
SUBROUTINE GEOINP(HI,H2,ANGLE,RANGE,BETA,ITYPE,LENHMINPHI,
IERROR)
C
C
C
C
C
C
C
C
C
C
C
C
C
GIN
GIN
~
GEOINP INTERPRETS THE ALLOWABLE COMBINATIONS OF INPUT PATH
GIN
PARAMETERS INTO THE STANDARD SET HI,H2,ANGLE,PHI,HMIN, AND LEN.
GIN
THE ALLOWABLE COMBINATIONS OF INPUT PARAMETERS ARE- FOR ITYPE
2,GIN
(SLANT PATH HI TO H2) A. Hl, H2, AND ANGLE, B. HI, Ai4GLE, AND
GIN
RANGE, C. Hi, H2, AND RANGE, D. HI, H2, AND BETA
GIN
FOR ITYPE - 3 (SLANT PATH HI TO SPACE H2 = 100 KM),
GIN
A. HI AND ANGLE, B. Hl AND HMIN (INPUT AS H2).
GIN
THE SUBROUTINE ALSO DETECTS BAD INPUT (IMPOSSIBLE GEOMETRY) AND
GIN
ITYPE = 2 CASES WHICH INTERSECT THE EARTH, AND RETURNS THESE
GIN
CASES WITH ERROR FLAGS.
GIN
THE SUBROUTINE FNDHMN IS CALLED TO CALCULATE HMIN, THE MINIMUM
GIN
HEIGHT ALONG THE PATH, AND PHI, THE ZENITH ANGLE AT H2, USING THE GIN
ATMOSPHERIC PROFILE STORED IN /MODEL/
GIN
****************
********.***********.*****..***..***G*IN
COMMON /IFIL/ IRD,IPR,IPU,NPR
GIN
GIN
RE,DELTAS,ZMAX,IMAX,IMOD,IBMAXIPATH
COMMON /PARMTR/
COMMON /CNSTNS/
PI,CADEG,GCAIRtBIGNUMBIGEXP
GIN
ITER = 0
GIN
IF(ITYPE.NE.3) GO TO 120
GIN
C*****SLANT PATH TO SPACE
GIN
C*****NOTE: IF BOTH HMIN AND ANGLE ARE ZERO, THEN ANGLE IS
GIN
GIN
C*****ASSUMED SPECIFIED
IF(H2.NE.O.O)
GO TO 110
GIN
C*****CASE 3A: HI,SPACE,ANGLE
GIN
IF(NPR.NE.1)WRITE(IPR,10)
GIN
10 FORMAT(//,' CASE 3A: GIVEN HI,H2-SPACE,ANGLEI)
GIN
GIN
H2 - ZMAX
CALL FNDHMN(HI,ANGLE,H2,LEN,ITER,HMIN,PHI,IERROR)
GIN
IF(IERROREQ.-5) RETURN
-GIN
GO TO 200
GIN
110 CONTINUE
GIN
C*****CASE 35: H1,HMIN,SPACE
GIN
IF(NPR.NE.I)WRITE(IPR,12)
GIN
12 FORMAT(//,' CASE 3B: GIVEN HI, HMIN, H2-SPACE'.)
GIN
HIAIN - H2
GIN
iH2 = ZMAX
GIN
IF(HI.'LT.HMIN) GO TO 9001
GIN
CALL FNDHMN(HMIN,90.0,HILEN,ITER,HMIN,ANGLEIERROR)
GIN
CALL FNDHMN(HMIN,9O.0,H2,LEN,ITER,HMINPHI,'IERROR)
GIN
IF(HMIN.LT.NI)
LEN a I
GIN
GO TO 200
GIN
120 CONTINUE
GIN
IF(ITYPENE.2) 00 TO 9002
GIN
IF(RANGENE.O.0,OR.BETA.NE,.0,)
GO TO -30
GIN
C***.*CASE 2A! HN, H2, ANGLE
GIN
IF(NPR.NE.1)WRITE(IPR,16)
GIN
18 FORMAT(//, ' CASE 2A: GIVEN HI, H2, -NGLE')
GIN
IF(H1.GE.H2,AND.ANGLELE.90.0) GO TO 1004
GIN
IF(HI.EQ,0,0 ,AND. ANGLE.GT.90.0) GO TO 9007
GIN
IF(H2.LT.Hi.AND.ANGLE.GT.90.0,AND.NPR.NE,1)
IRITE(IPR,15) LEN
GIN
15 FORMAT(//,' EITHER A SHORT PATH (LEN-0) OR A LONG PATH ',
GIN
1
'THROUGH A TANGENT HEIGH' (LEN01) I3 PO(JIBLEt LEN * ',
GIN
2
13)
GIN
H2ST a H2
GIN
CALL FNDHiMN(HIANGLEH2,LEN,•ITRNMINPHI,IERROR)
GIN
IF(H2.NE.H2ST)
GD TO 9007
GIN
4
100
105
110
115
120
125
130
135
140
145
150
155
160
165
170
175
180
185
190
195
200
205
210
215
220
225
230
235
240
245
250
255
260
265
270
275
280
285
290
295
300
305
310
315
320
325
330
335
340
345
350
355
360
366
370
375
380
385
390
..
S•
•
.IF(BETA.EQ.O.O)
_CALL
GO TO 200
C-A130 CONTINUE
GO TO 133
FOBETA(Hl,H2,BETAANGLE,PHZ,#LEN,HMIN,IERROR)
GIN
GIN
GIN
GIN
395
400
405
400
133 CONTINUE
IF(ANGLE.EQ.O.o) GO TO 140
C=****CASE 28: Hl, ANGLE, RANGE
GIN
GIN
GIN
420
425
430
C****SASSUME NO REFRACTION
IF(NPR.NE.1)WRITE(IpRt18)
18 FORMAT(//,' CASE 28:. GIVEN Hi, ANGLE, RANGE',//
,
i
IOX,'NOTE: H2 IS COMPUTED FROM Hit ANGLE, AND RANGE
2
'ASSUMING NO REFRACTION')
RI • RE+HI
R2 w SQRT(RI**2+RANGE**2+2.0*RI*RANGE*CoS(+ANGLE/DEG))
H2 a R2-RE
GO TO 135
IF(H2.GE.O.O)
H2 x 0.0
R2 - RE+H2
RANGE = -RI*CDS(ANGLE/DEG)-SQRT(R2**2-RI**2*(SIN(ANGLE/DEG))**2)
IF(NPR.NE.1)WRITE(IPR,17) RANGE
17 FORMAT(//,IOX,'CALCULATED H2 IS LESS THAN ZERO:',/,
I
IOX,'RESET H2 - 0.0 AND RANGE a ',F10.3)
135 CONTINUE
C*****NOTE: GEOMETRIC PHI IS NEEDED TO DETERMINE LEN(O OR 1).
C*****PHI IS THEN RECOMPUTED IN FNDHMN
PHI * 180.0-ACOS((R2**2+RANGE**2-RI**2)/(2.0*R2*RANGE))*DEG
LEN
0
LEN a I
IF(ANGLE.GT.90.O.AND.PHI.GT.90.0)
CALL FNDHMN(HIANGLEH2.LENITER.HMIN,PHItIERROR)
GO TO 200
140 CONTINUE
C.****CASE 2C; HI, H2, RANGE
IF(NPR.NE.1)WRITE(IPR,19)
10 FORMATk//,' CASE 2C: G!VEN HI. H2, RANGE',//,
1
IOXW'NOTE: ANGLE IS COMPUTED FROM Hit H2, AND RANGE ',
'ASSUMING NO REFRACTION')
2
IF(ABS(HI-H2).GT.RANGE) GO TO 9003
RI - HI+RE
R2 a H2+RE
ANGLE - 180.0-ACOS((R1*12+RANGE**2-R2**2)/(2.0*RI*RANGE))*DEG
PHI - 180.O-ACOS((R2**2+RANGE*.2-R1**2)/(2.0.R2*RANGE)).DEG
LEN - 0
GIN
GIN
GIN
GIN
GIN
GIN
GIN
GIN
GIN
GIN
GIN
GIN
GIN
GIN
GIN
GIN
GIN
GIN
GIN
GIN
GIN
GIN
GIN
GIN
GIN
GIN
GIN
GIN
GIN
GIN
GIN
GIN
GIN
GIN
GIN
435
440
445
450
455
460
465
470
475
480
485
490
495
500
505
510
515
520
525
530
535
540
545
550
555
560
565
570
575
580
585
590
595
600
605
GIN
CALL FNDHMN(HI,ANGLEH2,LENITERHMIN,PHI.IERROR)
GIN
200 CONTINUE
C4*.**TEST IERROR AND RECHECK LEN
GIN
GIN
RETURN
IF(IERROR.NE.0)
GIN
LEN a 0
GIN
IF(HMIN.LY.AMINl(Hl.H2)) LEN - I
GIN
Co*sQ•REDUCE PATH ENDPOINTS ABOVE ZMAX TO ZMAX
GIN
IF(HMINGE.ZMAX) GO TO 9008
CALL REDUCE(HlH2,ANGLE.PHI.ITER) GIN
IF(HI.GT.ZMAX ,OR. H2.GT.ZMAX)
GIN
CS•***AT THIS POINT THE FOLLOWING PARAMETERS ARE DEFINED:
Coo*$*
HlH2,ANGLEPHI,HMINLEN
GIN
GIN
HI.H2,ANGLE.PHI,HMIN.LEN
IF(NPR.NE.1)WRITE(IPR,20)
GIN
20 FORMAT(///,l SLANT PATH PARAMETERS IN STANDARD FORM#,//,
',F1O.3,4 KM',/. GIN
1
KM',/,IOX,'H2
a ',F10.3,'
I l0X,'HI
'.F1O.3,' DEG'./.GIN
o '.FlO.3.- DEG',/.IOX,'PHI
2 IOX,'ANGLE
46
615
620
625
630
635
640
645
650
655
660
865
870
675
600
805
3
IOX,'HMIN
1,F1O.3,.
KM',/,1OX,'LEN
',10)
1
RETURN
O*****
C*****ERROR MESAGES
C*****GIN
9001 CONTINUE
WRITE(IPR,40) H1,HMIN
40 FORMAT('OGEOINP, CASE 3B (H1,HMINSPACE): ERROR IN INPUT DATA',
1
//,l0X,'Ht - ',Ft2.6,'
IS LESS THAN HWIN a ',F12.6)
GO TO 9900
9002 WRITE(IPR,42) ITYPE.ITYPE
42 FORMAT('OGEOINP: ERROR IN INPUT DATA, ITYPE NOT EQUAL T0 ',
1
' 2, OR 3.
ITYPE - ',410,E23.14)
GO TO 9900
9003 WRITE(IPR,43) HI,H2,RANGE
43 FORMAT('OGEOINP, CASE 2C (HIH2,RANGE): ERROR IN INPUT DATA',//,
110X,'ABS(H1-H2) GT RANGE; HI u ',F12.6,'
H2 a ',F12.6,
2
'
RANGE - ',F12.6)
GO TO 9900
9004 CONTINUE
WRITE(IPR,44)
H1,H2,ANGLE
44 FORMAT('OGEOINP, CASE 2A (Ht1,H2,ANGLE): ERROR IN INPUT DATA',
1 //,IOX,'H1 a ',F12.6,'
IS GREATER THAN OR EQUAL TO H2 a ',
2
F12.6 ,/,I0X,'AND ANGLE a ',F12.6,'
IS LESS THAN OR ',
3
'EQUAL TO 90.0')
GO TO 9900
9007 WRITE(IPR,48)
48 FORMAT('OGEOINP, ITYPE - 2: SLANT PATH INTERSECTS THE EARTH',
1
' AND CANNOT REACH H21)
GO TO 9900
9008 WRITE(IPR,50) ZMAX,HiH2,HMIN
50 FORMAT(' GEOINPTHE ENTIRE PATH LIES ABOVE THE TOP ZMAX ',
1
'OF THE ATMOSPHERIC PROFILE',//,IOX,'ZMAX
',G12.SSX,
2
'
HI
',G12.6,SX,'
H2 - 1,G12.6,'
HMIN
',G12.6)
1
9900 IERROR
I1
RETURN
END
47
GIN
GIN
GIN
GIN
690
695
700
705
710
GIN 715
GIN 720
GIN 725
GIN 730
GIN 735
GIN 740
GIN 745
GIN 750
GIN 755
GIN 760
GIN 765
GIN 770
GIN 775
GIN 780
GIN 785
GIN 790
GIN 795
GIN 800
GIN 805
GIN 810
GIN 815
GIN 820
GIN 825
GIN 830
GIN 835
GIN 840
GIN 845
GIN 850
GIN 855
GIN 860
GIN 865
GIN 870
SUBROUTINE REDUCE(HlH2,ANGLEPHI,ITER)
ZMAX IS THE HIGHEST LEVEL IN THE ATMOSPHERIC PROFILE STORED IN
COMMON /MODEL/.
IF HI AND/OR H2 ARE GREATER THAN ZMAX, THIS
SUBROUTINE REDUCES THEM TO ZMAX AND RESETS ANGLE AND/OR PHI
AS NECESSARY. THIS REDUCTION IS NECESSARYFOR EXAMPLE FOR
SATELLITE ALTITUDES, BECAUSE (1) THE DENSITY PROFILES ARE
POORLY DEFINED ABOVE ZMAX AND (2) THE CALCULATION TIME FOR
PATHS ABOVE ZMAX CAN BE EXCESSIVE ( EG. FOR GEOSYNCHRONOUS
ALTITUDES)
"......-*~***s***************.***#****
*****.**************.**************
COMMON /IFIL/ IRD,IPRIPU,NPR
COMMON /PARMTR/ REDELTAS,ZMAX,IMAX,IMOD,IBMAX,IPATN
COMMON /CNSTNS/ PICADEG,GCAIRBIGNUM,BIGEXP
IF(HI.LE.ZMAX .AND. H2.LE.ZMAX)
RETURN
CALL FINDSH(HiSH,GAMMA)
CPATH - ANDEX(HI,SHGAMMA)*(RE+HI)*SIN(ANGLE/DEG)
CALL FINDSH(ZMAX,SHGAMMA)
CZMAX w ANDEX(ZMAX.SH,GAMMA)*(RE+ZMAX)
ANGMAX
180.0-ASIN(CPATH/CZMAX)*DEG
IF(HI.LE.ZMAX) GO TO 120
Ht a ZMAX
ANGLE - ANGMAX
120 CONTINUE
IF(H2.LE.ZMAX)
GO TO 130
H2
ZMAX
PHI
ANGMAX
130 CONTINUE
WRITE(IPR,20) ZMAXANGMAX
20 FORMAT(///,' FROM SUBROUTINE REDUCE: *d,
1
4Xt'ONE OR BOTH OF HI AND H2 ARE ABOVE THE TOP OF THE 'o
2
'ATMOSPHERIC PROFILE ZMAX a 1,F10.3,. AND HAVE BEEN RESET
,
3
'TO ZMAX',/,4X,'ANGLE AND/OR PHI HAVE ALSO BEEN RESET TO •,
4
'THE ZENITH ANGLE AT ZMAX • ',FI0o.3,
DEG')
200 CONTINUE
RETURN
END
C
C
C
C
C
C
C
C
....
_4,8
'-1
i
48
RDU
100
RDU
RUU
RDU
RDU
RDU
RDU
RDU
RDU
J
RDU
RDU
RDU
ROU
RDU
RDU
RDU
RDU
RDU
ROU
ROU
ROU
ROU
RDU
ROU
ROU
RDU
RDU
ROU
ROU
RDU
OU
ROU
ROU
RDU
IOU
110
1i's
120
125
130
135
140
145
150
155
160
165
170
175
160
165
190
195
200
205
210
215
220
225
230
235
240
245
250
255
260
265
270
275
260
SUBROUTINE FDBETA(HI,H2,BETA,ANGLE,PHILENHMIN,IERROR)
C*******~ ******.**~***
C
GIVEN H1,H2,AND BETA (THE EARTH CENTERED ANGLE) THIS SUBROUTINE
C
CALCULATES THE INITIAL ZENITH ANGLE AT HI THROUGH AN ITERATWVE
C
PROCEDURE
Ce.***..***********
********s.*****
******.*.*.**.s****a***l**e*.ee*
COMMON /IFIL/ IRD,IPR,IPU,NPR
COMMON /PARMTR/
RE.OELTASZMAX,IMAX,IMODIBMAXIPATH
COMMON /CNSTNS/
PICA,DEG,GCA!RBIGNUMBIGEXP
DATA TOLRNC/I.OE-4/,ITERMX/IO/
IFLAG - 0
IF(HI.GT.H2) GO TO 100
IDRUER - 1
HA - HI
HG * H2
GO TO 120
100 CONTINUE
IORDER - -1
HA ý H2
H6 = HI
120 CONTINUE
Co****SET PARAMETER TO SUPRESS CALCULATION OF AMOUNTS
IAMT ' 2
C*****GUESS AT ANGLE, INTEGRATE TO FIND BETA, TEST FOR
C*w***CONVERGENCE, AND ITERATE
C**.*OFIRST CUESS AT ANGLE: USE THE GEOMETRIC SOLUTION(NO REFRACTION)
ITER - 1
rA - RE+HA
Rd 4 RE+HB
SG % SQRT(RA**2+RB**2-2.0*RA*RB*COS(BETA/DEG))
ANGLEI a 100.O-ACOS((RA*02+SG**2-RB**2)/(2.0.R&*SQ))*DEG
HMIN - HA
-I,(ANGLE-..T.0.0)
HMIN v RA*SIN(ANGLEI/DEG)-RE
IF(HMINGE.O.)
GO TO 310
IFLAG * I
HMIN = 0.0
CALL FNDHMN(HMIN,90.0,HALEN,ITERHMIN,ANGLEI,IERROR)
310 CONTINUE
IF(NPR.NE,1)WRITE(IPR,24)
BETA:',//,
24 FORMAT(///,' CASE 20: GIVEN HI, H2,
i
ITERATE AROUND AN.GLE UNTIL BETA CONVERGES=,//,
2
ITER
ANtET21,'BEIt.30,O
ETA'.T40,'RANGQ,
151'IHMIt'.T6.'PHI'.T7OBENDINGI,/,
3
4
TIO,'(DEG)',T21,'(DEG),.T30,.'(EG)lT4tiI(KM)'.
5
T51,'(KM)'TUO,(OEO),T71,'(DEG)',/)
LEN a 0
IF(ANGLEI.GT.90.0) LEN a I
CALL FNOPNN(HAANGLEI,HB,LENITER,NMINPHIIERROR}
LEN a 0
IF(HMIN.LT.HA) LEN a I
CALL RFPATH(HANBANGLEI,PHI,LENHNINIAMTBETA1,RANGE,OENDNO)
OBETA a BETA-BETAt
IF(NPR,NE.I)WRITE(IPR,26)ITERANGLEI.SETAI,0BETAtRANGINMINP*41,
X BENONG
26 FQRlJAT(I5,3Fl0.4,2Fl0.3,2Fl0.4)
IV(IFLAGEQ.
*AND. BETAtLT.0 ETA) O0 TO 9005
ITER a 2
OANU * (BETA/25.0)*h2
IF(DANO.0T.0.001) BANG a 0.001
~BET
49
BET
BET
BET
BET
BET
BET
BET
BET
BET
BET
BET
BET
BET
BET
BET
BET
BET
BET
BET
BET
BET
BET
BET
BET
BET
BET
BET
BET
BET
BET
BET
UET
BET
BET
BET
BET
BET
BET
3ET
BET
BET
BET
BET
BET
BET
BET
BET
BET
BET
BET
BET
BET
BET
BET
SET
BET
BET
GiT
100
105
110
115
120
125
130
135
140
145
150
155
160
165
170
175
180
t85
190
195
200
205
210
215
220
225
230
235
240
245
250
255
260
265
270
275
280
285
290
295
300
305
310
315
320
325
330
335
340
345
150
355
310
365
370
315
380
355
390
=••
!t
•LEN
A
SANGLEI
SET
SET
395
400
SLEN= 0
BET
405
IF(ANGLE2.GT.90.O) LEN = 1
CALL FNO•IN(HA,ANGLE2,HBLEN,ITER,HMIN,PHI,IERROR)
- 0
BET
BET
BET
410
415
420
BET
BET
BET
BET
BET
BET
BET
BET
BET
BET
BET
BET
BET
BET
BET
BET
BET
BET
BET
BET
BET
GET
BET
BET
BET
BET
BET
BET
BET
BET
BET
SET
BET
BET
BET
BET
SET
GET
BET
BET
1 ET
WE'
BET
Oc?
BET
s,
ET
at?
BET
BET
RET
SET
BET
SET
B
OEt
OET
*
O//.
f
SET
BET
Set
425
430
435
440
445
450
455
460
465
470
475
480
485
490
495
OO
505
510
515
520
525
630
535
540
545
550
555
560
565
570
575
5se
505
590
595
600
601
410
615
620
625
630
639
640
645
650
85s
Sao
$66
670
G75
goo
us
600
=ANGLEI-DANG
ANGLE2
I•
F(ANGLE2.LT.O.O)
SANGLE2
•0.0
IF(HMIN.LT.HA) LEN = 1
CALL RFPATH(HA,HB,AN3LE2,PHI,LEN,HMIN,IAMTBETA2tRANGEtBENDNG)
OBETA e BETA-BETA2
I(NPR.NE. )WRITE(IPR,26)ITERANGLE2,BETA2,DBETARANGEHMINPHI,
X BENONG
ANGLE3 = ANGLE2
.ETA3 = BETA2
IF(A8S(DBETA).LE.TOLRNC) GO TO 340
320 CONTINUE
ITER = ITER+1
ANGLE3 = ANGLE2+(ANGLE2-ANGLEI).(BETA-BETA2)/(BETA2-BETAI)
LEN - 0
IF(ANGLE3.GT.90.O) LEN - I
CALL FNDHMN(HAANGLE3.HBLENITER,HMIN,PHIIERROR)
LEN - 0
IF(HMIN.LT.HA) LEN - I
CALL RFPATH(HAHBtANGLE3.PHI,LENHMIN.IAMT,BETA3,RANGEBENDNG)
DSETA a BETA-BETA3
IF(NPR.NE.1)WRITE(IPR,26)ITER,ANGLE3,BETA3,DBETARANGEHMINPHI,
X BENONG
GO TO 900S
IF(BETA3.LT.BETA.AND.HMIN.LT.O.0)
- ANGLE2
ANGLE2 - ANGLE3
BETAI - BETA2
BETA2 - BETA3
IF(ABS(BETA-BETA3).LT.TOLRNC) GO TO 340
IF(ITER.OT.ITERMX) 00 TO 9006
GO TO 320
340 CONTINUE
Ic(HVIN.LT.O.O) 00 TO 9005
Ce****CONVERGE0 TO A SOLUTION
ANGLE w ANGLE3
BETA * BETA3
C6e060ASSIGN ANGLE ANO PHI TO PROPER Nt AND H2
IF(IORDER.EQ.1) 00 TO 350
TEMP * PHI
PHI * ANGLE
ANGLE a TEMP
350 CONTINUE
RETURN
C***
CO***ERROR MESSAGES
Ce.'.
_ .•END
9005 CONTINUE
IF(NPR.NE.I)WR|TE(IPR.45)
45 FORUAT('OFDGETA. CASE 2Q(HlH2,BETA)t REFRACTED TANGENT
SHEIMYT IS LESS THAN ZERO-PATH INTERSECTS THE EARTH',
//.O4.'OETA IS 100 LARGE FOR THIS HI AND H2')
a
GO TO 9900
0006 CONTINUE
IF(NPR.NE. i)WRITE(IP.46)HNH2,BETA.ITERAN0LEitSKTAI.ANGLE2,
I
SETA2,ANGOL3,ETA3
46 FORMAyt-OFOOETA, CASE 20 (Ht1,H2,8ETA)t SOLUTION DID NOT
M2
Q * ,I.,6,
* ', I2G2.'
CONic4tOE ./,IlMox
I
2
BETA
r1F2-6,'
ITERATIONS * ',14,//,
3
IOX.'LAST THREE ITERATIONS
4
*aFr6.9))
4
(IOAOANGLE
,FTS,9.
B
BElA
9900 IERROR • I
RETURN
soJ
"..'
SET
698
1
100
703
%tO
720
720
SUBROUTINE EXPINT(X.X1 ,X2,A)
EXPONENTIAL INTERPOLAT-rIN
IF(XI.EQ.o.0 .OR. X2.EQ.O.O)
X - X1*(X2/XI)**A
RETURN
100 X u XI+(X2-XI)A
'V•.t
SRETURN
Go TO loo
END
SUBROUINE FNDNMN(HIANGLEH2,LEN.ITER.HMINPHI.IERROR)
Ctb*O.l~dltll*n* *S*..*t w..4
C
C
C
c
C
CC
s..t *.*.er
Sete S
444*;* w#*i eftl
"c
C
BETWEEN THE LAYER BOUNDARIES,
AMOUNT AT THE GROUND GAMMA.
WXTH A SCALE HEIGHT
e
CPATH IS THE REFRACTIVE CONSTANT FOR THIS PATH AND
QASINDEX(sl).(RE*H1)4SSRNC(ANGLE).
COMMON /)FIL/ IROIPR.IPU.NPR
CODAON /PARMTR/ REOELTASZMAX.IMAXIMOO.ISMAX,IPATH
COMMON /CNSTNS/
PI.CA.OEGGCAIRBIGNUM.BIGEXP
COMMON /CNTRL/
KMAX,M.IKMAX,NLML.IKLO.ISSGEO
DATA OH/1.0/,ET#,/5.OE-8/
C***O*ETA MnAYBE TOO SMALL FOR SOME COMPUTERS. TRY 1.06-7 FOR 33 WIT
Ct*''WORoD MACHINES
C
CRFRCT IS REFRACTIVE CONSTANT FOR THE PATH
C
CUFICT(H) - (RE4HN)ANOEX(H,SII,GA4MA)
CALL FIKOSHtHI.SHSAMhA)
135
110
.15
120
1t5
130
135
140
lo
RU
145
.50
1"
HMN
155
160
HI
uN
HUN
10$
HM
*04
104
HlMN
170
175
GO
lBs
ISO
195
200
205
210
215
mm1
bUN
HNI
14
10$
AHUN
200
b.N
CLVUC;(st)
GOTO04
11* it-Ow*
Cisenlos U~tA CASES •I~gti.0•),
ALLI•
OW
MTe <t 0.0
LIN(AaIWI
MOLE/O IG)- *t
U
kTH
#4144300
1
AE
315
NT) *
In
3an
O10M
CALL
~
4
Ck5
CT
3
34
CI
*C.aP*
3U03
104
dtA tT00,
A~j
LLW O;Hr9
HT2.1N72-TItW).(C:PATN-C12)/(CTZ-CTI) .012
'4r
~
345
II4
* IMt
'1I&~Q0AtC~".4t)0
C
<4
220
34t2
l•
Iu stC
C
¢ON?
310
39MVt0
li)5
164•
FINDSII(NTt1,2H,OiAM*A)
1 Ct4
;230
bImUl 2360
WU
26410
CO2NTINUE
o00
(•AL.
220
235
164240
1"
24S
3" 290
mw4 215
HI
40
N?;U-1 CA.H N )
i05
HMN
HMhl
HUN
HMN
H1MN
WN
HN
CALL FINDSH(H12.SH.OAMMA)
Cliiv CQFRCT(NI)
lF(ABS(CPAtH/CH2),G:...0) GO TO 200
IF(ANGLE.GO.90.0)
C TO 400
LEN .0
CV
100
0N4 225
C.....toOL• PTATHRiJM¶Y AOTANGENTAG HEIC.I?.
"-"'
130
XUN
CPATH a CRFrRCT(Ht1)osIN(ANOLE/DfG)
WUIIN
* 1 CTO
4*3
XIN
.....lSHMH
SH A"D AN
N a 0
100
105
140
115
120
125
IHN
te
THIS SUBROUTINE CALCULATES THE MINIMUM ALTITUDE HMIN ALONG
THE REFRACTED PATH AND THE FINAL ZENITH ANGLE PHI.
THE PARAMETER LEN INDICATES WHETHER THE PATH GOES THROUGH
1
A TANGENT HEIGHT (LEN- ) OR NOT (LENsO).
IF ANGLE > 90 AND
HI > H2, THEN LEN CAN EITHER BE I OR 0, AND THE CHOICE IS
LEFT TO THE USER.
THE (INDEX OF REFRACTION - 1.0) 15 MODELED AS AN EXPONENTIAL
C
c
XIN
EN
XIN
XIN
XUN
XIN
frctlt
tO%~2'q4G'A#m
pAk
:f*T
vtA
O
s
HV
8
3 97.
tN 1
A'5
f
CALL FINDSH(HT3,SH,GAAIMA)
CT3 • CRFRCT(HT3)
DC * CPATH-CT3
IF(ABS((CPATH-CT3)/CPATH).LT.ETA)
'
GO TO 130
IF(N.0r.15) GO TO 210
STI - HT2
CTt 0 CT2
HT2 * HT3
CT2 - CT3
GO TO 120
130 CONTINUE
HT - HT3
HMIN - HT
GO TO 160
150 CONTINUE
IF(ISSGEO.EQ.O)
ZIERROPR.-5.
RETURN
-,
"f,;
155
HAN
'4N
HMN
HMN
MNU 415
HNMN 420
HMN 425
HMN 430
HMN 435
H1M
440
HUN
445
N,4N 450
NUN 455
HMN 460
HNN 465
HMN
470
HUN 475
MH.N 480
GO TO 155
CONT"INUE
CeS***TANGENT PATH INTERSECTS
H2 - 0.0
SHUIN
* 0.0
EARTH
LEN - 0
CH2 - CHIN
IF(ISSGEO.NE.l)WRITE(IPR.22) HNIANGLE
23 FORMAT(///.'
TANGENT PATH WITH Hi w ',F10.3.'
I
FI0.3,' INTERSECTS THE EARTH'.//. 10X.'N
2
'TO 0.0 AND LEN TO 0')
160 CONTINUE
C**'.*CAtCULATE THE ZENITH ANGLE PHI AT N2
PHI a ASIN(CPATH/CH2).OEG
'AND CANNOT 5E
REACHID')
t
DC: v CPATMt-PT3
mi
2
"-•VVM
.. FtEA
*3
C
**
-MWN 2
490
495
500
W5
HM4
515
K*%
MN 590
g59
2•4 VRVA
Q~UMI/'OVAOM SUijjR0UTI);t M00
2',/
t0A.'ITHE PrincctouQt
10 0INO THE TrAN4
t0•X.*wt3
45
HNN
RNU
KHN
NUN
IERROR a 2
210 RETUQ;N
CONT I Nut
Y.6
HUN
HNUN 505
MI1N 510
HUN 51t
K %4N 520
H IMU 525
H"U
530
NUN
535
H•d 540
NUN 545
NUN 550
M
555
NUN
bO6
MON 565
HMN
510
bO•
T5S
AND ANGLE v
HAS
.ENRESET
-(-ANGLE.LfE90.0
.04, LENEQ.1)
PHI a 1S0.0-PtI
RETURN
C.*#**tN2 "T TANGENT HEIGHT FOR THIS N41 AND ANQL
200 CUNTINUE
VR 1 i,? PR.20)
20 FQRt*&A('0H2 IS LESS THAN THE. TANGENT •$•&GIt? F
THIS PATN
i
395
400
405
410
"..%,'
a• %FtM.S,
K
WIN $tto
H UN 615
T Ka4Gmf 010 NOt
',13,'
k"A•
.
//0.1)
Soo
owl)
6120
,1
Kul4w
235
040
43.0
to•
4o
ii
tS2
N..-.
5
'1
.
V:•
',3' V-'a''.",,;''. +'y;"":":,+., -',WC'
- '-'': .,,€,,
'
eN,.:,.
*
/,
+ , ,•
;.
, .':,,.
: €,"•
, ...
,...
+
SH
SH
SH
SH
SH
SH
SH
SH
SH
SH
SH
SN
SN
SH
SH
SH
SH
SN
100
105
410
115
120
125
130
135
140
145
150
155
160
t65
170
175
180
185
SCL
100
SCL
SCL
SCt
SCL
SCL
SCL
SCL
SCL
SCL
SCL
SCL
SCL
SCL
SCL
SCL
SCL
SCL
SCL
SCL
110
115
120
125
130
135
140
145
150
155
160
165
170
175
O80
185
190
195
200
205
FUNCTION ANOiX(H,SH,GAMMA)
NOX
100
COMPUTES THE INDEX OF REFRACTION AT HEIGHT H, SH !S THE
SCALE HEIGHT, GAMMA IS THE VALUE AT H-O OF THE REFRACTIVITY
INDEX-1
NDX
HOE
N
NIX
NOX
NOX
NOX
NDX
NOX
Nox
110
115
120
125
130
135
140
145
150
t55
REF
*u.lIIIIIREP
100
105
REF
REF
110
115
REF
REF
REP
125
t3O
03
REP
REP
REF
REP
145
104
Is0
155
SUBROUTINE FINDSH(H,SH,GAMMA)
C****GIVEN AN ALTITUDE H, THIS SUBROUTINE FINDS THE LAYER BOUNDARIES
C*****ZM(I1) AND ZM(12) WHICH CONTAIN H, THEN CALCULATES THE SCALE
C*****HEIGHT (SH) AND THE VALUE AT THE. GROUND (GAMMA+I) FOR THE
C***.*INDEX OF REFRACTION
RE,DELTAS,ZMAX,IMAX,IMOD,IBMAXIPATH
COMMON /PARMTR/
COMMON /CNSTNS/ PICADEG,GCAIR,BIGNUM,BIGEXP
COMMON /MODEL/ Z(34),P(34).T(34),RFNDX(34),OENSTY(16,34)
00 100 IM-2,IMOD
12 - IM
GO TO 110
IF(Z(IM).GE.H)
100 CONTINUE
12 - IMOD
110 CONTINUE
11 - 12-1
CALL SCALHT(Z(I1),Z(I2),RFNDX(I1),RFNOX(I2),SH,GAMWA)
RETURN
END
¾]
SUBROUTINE SCALHT(ZIZ2,RFNDXt,RFNDX2,SH,GAMMA)
***********
******~****~*****
C*****.~
THIS SUBROUTINE CALCULATES THE SCALE HEIGHT SH OF THE (INDEX OF
REFRACTION-1.0) FROM THE VALUES OF THE INDEX AT THE ALTITUDES Z1
AND Z2 ( ZI < Z2). IT ALSO CALCULATES THE EXTRAPOLATED VALUE
GAMMA OF THE (INDEX-1.O) AT Z - 0.0
~105
C
C
C
C
HRATIO
RF1 - RFNDXI+1.OE-20
RF2 = RFNDX2+1.OE-20
- RFI/RF2
GO TO 100
IF(ABS(RATIO-1.O).LT.1.OE-O5)
SH = (Z2-ZI)/ALOG(RATIO)
GAMMA- RF1*(RF2/RF1)**(-Z1/(Z2-Zi))
GO TO lI0
100 CONTINUE
C*****THE VARIATION IN THE INDEX OF REFRACTION WITH HEIGHT IS
C*****iNSIGNIFICANT OR ZERO
SH - 0.0
GAMMA x RFNOXI
110 CONTINUE
RETURN
END
C
C
C
IF($SUEQ.0.0) 00 TO 10
ANOEX w I.O+GAM'AA*EXP(-H/SH)
RETURN
10 ANDEX - 1,0+GAMMA
RETURN
END
.i,*.II•
FUNCTION
**
*,
*#***RADREF(H,SHGAMMA)
C******4~t*
4
4 4
C
C
**.*.ti.I•~
.........
COMPUTES THE RADIUS OF CURVATURE OF TH1 REFRACTED RAY FOR
ooADIUS)
RADREF a ANDEX/ O(ANOEX)/D
HORIZONTAL PATH:
COMMON /CNSTNS/ P!,CA,DEO,GCAIR,BIGNUM,BIGEXP
IF(SH.EQ.O.O) GO TO 20
RAOREF a SH*I.O+EXP(H/SH)/QAMMA)
RETURN
20 RADREF v aIGNUM
RETURN
EtID
53
m
SUBROUTINE RFPATH(HI,H2,ANGLE,PHI,LENHMIN,IAMTBETA,RANGE,BENDNG)PTH
100
PTH 110
C
THIS SUBROUTINE TRACES THE REFRACTED RAY FROM HI WITH A
PTH
1i5
C
INITIAL ZENITH ANGLE ANGLE TO H2 WHERE THE ZENITH ANGLE IS PHI,
PTH 120
AND CALCULATES ThE ABSORBEk AMOUNTS (IF IAMT.EQ.1) ALONG
C
PTH 125
IT STARTS FROM THE LOWEST POINT ALONG THE PATH
C
THE PATH.
(THE TANGENT HEIGHT HMIN IF LEN a I OR HA - MIN(H1,H2) IF LEN u O)PTH 130
C
PTH 135
BETA AND RANGE ARE THE
AND PROCEEDS TO THE HIGHEST POINT.
C
PTH 140
EARTH CENTERED ANGLE AND THE TOTAL DISTANCE RESPECTIVELY
C
PTH 145
FOR THE REFRACTED FATH FROM H! TO H2
C
Cee...$sv.$,$**$$a.$..$,.$$.$s$$$$$$*$$s$$ae~ae~sese$$$e$$ees$$$$ea$$$esaPTH
•lO
PTH 155
COMMON /IFIL/ IRDIPR,IPU,NPR
PTH 160
RE.DELTAS,ZMAX,IMAXIMOD.IBMAXIPATH
COMMON /PARMTR/
PTH 165
COMMON /CNSTNS/ FICADEG,GCAIRBIGNUMBIGEXP
PTH 170
COMMON /RFRPTH/
ZPt35),PP(35),TP(35),RFNDXP(35).SP(35),
PTH 175
PPSUMi(35),TPSUM(35),RHOPSM(3S),DENP(16.35),AMTP(16,35)
1
PTH 180
COMMON /SOLS/ AHl(BG),ARH(68),
185
X
WPATHS(G8,16),PA(68).PR(68)tATHETA(35),ADBETA(35),LI(69),dTURNPTH
PTH 100
X ANGSUN
PTH 195
COMMON /CNTRL/ KMAX,M,IKMAX.NLML,IKLOISSGEO
PTH 200
DIMENSION HLOW(2)
CS
CHARATER*2 HLOW
PTH 205
PTH 210
DATA HLOW/2HHI.2HH2/
PTH 215
IF(HI.GT.H2) GO TO 90
PTH 220
IORDER a 1
PTH 225
HA - HI
PTH 230
H
NB
H2
PTH 235
ANGLEA - ANGLE
GO TO 95
PTH 240
PTH 245
90 CONTINUE
IORDER
-1
PTN 250
PTH 255
HA - H2
PTH 260
NB - HI
PTH 265
ANGLEA a PHI
95 CONTINUE
PTH 270
PTH 275
I
4NEXT
PTH 280
IF(IAMI.EQ.,
.AND. NPR.NE.1)
wRITE(IPR.20)
PTH 285
20 FORMAT('ICALCULATION OF THE REFRACTED PATH THROUGH THE ',
PTH 290
I
'ATMOSPHERE'.///,
t
PTH 295
4
T3,'II.1i',
ALTITUOEý,T2?7ITHETA ,T34,DRANGEý,T44,'RANGE@.
PIH 300
5
T53.'OBETA',T63,'EyTA•,T72,$PHI',T90O,08ENOITU?,tSENDINGQ.
PTH 305
m6
Y 98.'PAR'.T06,'TBAR'.T113,'RH05AR'./,
PIH 310
TO1,FROMt18.iTO,/,TO?,t(KM),I?,.(KM),T2T,'(OEG),
7
PIN
T(OEG)sT62,HObCPT~t,•COL
315
T36,'(KQ)',T45,'(IW),T53,
S
PTH 320
9
I0IE),8,OG~0O~6'I0.K'
PTH 325
i
fil.,t(G CM-3)'./)
IFtLEN.E0.O) GO TO 100
P"4' 330
Plol 335
C*.'*&LONG PATHt FILL IN THE SYMETRIC PART FROM Tka TAN4UNT HIJOHT
PIN 340
C.....,O HA
PIN 345
FILL(ItMINoHAJNEAT)
PTH 350
4,14A* ,'NEXT
PTH 355
100 COlN7NUE
PTH 360
Ctte**PILL IN THE REMAINING PATH FROM HA TO MG
PTH 365
G0 O 10ItO
IF(HA.IHQI)
PTN 370
CALL FILL(HA.H8,IJWtXT)
PTH 371
110 CONIIWU
PtH 310
a JNEXT
4 .AI.K
PIN If$
IPATH 0 WNAX
Py" 390
Cr.e"-WEGRATE EACH S&EGMiT OF TNE PATH
-
4ACALL
5:54
C-*.**CALCULATE
CPATH
SEPERATELY FOR LEN
*
0,1
IF(LEN.EQ.I) GO TO 115
CALL FINOSH(HA,SHGAMMA)
CPATH - (RE+HA)*ANOEX(HA.SH,GAMMA)*SIN(ANGLEA/DEG)
GO TO 116
.- •h4
115 CONTINUE
CALL FINOSH(HMIN,SH,GAMMA)
CPATH - (RE+HMIN)*ANDEX(HMINSH,GAMMA)
116 CUNTINUE
BETA = 0.0
S = 0.0
BENONG = 0.0
IF(LEN.EQ.0) 00 TO 140
C.***DO SYMETRIC PART, FROM TANGENT HEIGHT(HNIN) TO HA
IMLOW = 1
IHLOW - 2
IF(IOROER.EQ.-l)
NPR.Ni.1) WRITE(IPR.24) HLOW(IHLOW)
,AND.
IF(IAMT.EQ.1
,T7,'TANGENT',1T7,A2,/,T7,'HEIGHT'./)
24 FORMAT(
SINAI - 1.0
COSAI - 0.0
THETA - 90.0
.22 = dHA-I
00 120 4J1,d2
CALL SCALHT(ZP(.J),ZP(C+1),RFNOXP(d),RFNOXP(J+I),SH,GAMktA)
CALL LAYER(dSINAI.COSAI.CPATHNHGAMAIAMT,0SODEND)
OBENO - OBEND*DEG
PHI - ASIN(SINAI)*DEG
DOBETA - THETA-PHI+OBEND
PHI - 180.0-PHI
S a S+DS
BENONEG+DENO
N
BETA - BETA+OhETA
IF(IAMT.NE.1) GO TO 118
POAR a PPSUM(J)/RHOPSM(J)
TDAR - TPSUM(4)/RHOPSMtJ)
RHOBAR - RHOPSM(J)/OS
JZP(d),ZP(J+1),
NPR.NE.1) WRITE(IPR,22)
.AND.
PF(IAMT.EO.1
THETA.OS.S.0ETAABETA.PHZ.OBENOBENONG.PBART.?ARRt40IAR
I
,12,2F9.3,0F9.3,FO.2.IPE9,2)
22 FORMAT(
118 CONTINUE
IF(ISSGEO.EO.1) GO TO 119
A7HEYA(J)ETHETA
AO8EYA(.J)=OETA
110 CONTIHUE
THETA - IW0,0-PHI
120 CONTINUE
',**e**Dt)UDLt PATH QUANTITIES FOR THE OTHEq PART Of THE SYMITRZC PATH
BENONG - 2.0*OENONG
BETA v 2.0-BETA
S % 2.0-5
NPR,NE.i) WR:TE(IPR,20) 5,ETA,B9lNDN
CF(IAMY.EO.I .AND.
26 FORMATO0',TO.'0GOUBLE RANGE, BETA, BENDING'./.
.3,
IT0.'fOR &MMETRIC PART Of PATHT40,F,.3,T15I,8
TOS.F9.3,/)
2
JNEXT * dNA
GO To ISO
140 CONTINUE
C *
JOfAC
)TW PAT'
* I-PT1
PTH
395
PTH
PTH
PTH
400
405
410
PIN
415
PTH
PTH
PTH
PTH
PTH
PTH
PTH
PTH
PTH
PTH
PTH
PTH
PIN
PTH
PTH
PTH
PTH
PTH
PTH
PTH
PIN
PTH
PTH
PIN
PTH
PTH
PTH
PTH
PTH
PTH
PIN
PTH
PTH
PTHu
PTH
PIN
PTN
PTH
PTH
PTH
PIN
PTH
PIN
PIN
PIN
PTN
PTH
PTH
PIN
PTH
PIN
PTN
420
425
430
435
440
445
450
455
460
465
470
475
480
485
490
495
500
505
510
515
520
525
530
535
540
545
550
555
560
565
570
575
580
585
590
595
600
05
610
615
620
625
630
635
640
645
GiO
655
600
665
670
471
PtH
600
685
55
C*****ANGLEA IS THE ZENITH ANGLE AT HA IN DEG
C*****SINAI IS SIN OF THE INCIDENCE ANGLE
C*****COSAI IS CARRIED SEPERATELY TO AVOID A PRECISION PROBLEM
C**.**WHEN SINAI IS CLOSE TO 1.0
THETA - ANGLEA
IF(ANGLEA.GT.45.0) GO TO 145
SINAI - SIN(ANGLEA/DEG)
COSAI a -COS(ANGLEA/DEG)
GO TO 150
145 CONTINUE
SINAI - COS((90.O-ANGLEA)/DEG)
COSAI - -SIN((90.0-ANGLEA)/DEG)
150 CONTINUE
C*****O0 PATH FROM HA TO HB
IF(HA.EQ.HB) GO TO 170
dt - JNEXT
4J2 - JMAX-1
IHLOW - I
IHLOW a 2
IF(IOROER.EQ.-l)
IHIGH - MOD(IHLOW.2)+l
IF(IAMT.EQ.1 .ANO. NPR.NE.1) WRITE(IPR,28) NLOW(IHLOW),
HLOW(IHIGH)
1
TO ',A2,/)
20 FORMAT(' ',Ti1,A2,'
00 160 J-11,J2
CALL SCALHT(ZP(J).ZP(C+1).RFNDXP(J),RFNDXP(J+II.SH,GANMA)
CALL LAYER(d,SINAICOSAI,CPATH.SNtGAd•IAAMT,0S.OBEND)
OBEND a OBENVtOEG
PHI a ASIN(SINAI)*DEG
DBETA - THETA-PHI+O8END
PHI - 10.0-PHI
S w S+DS
BENONG * BENONG+OBENO
BETA x BETA+DBETA
IF(IAMT.NE.1) GO TO 158
PBAR -PPSUM(J)/RHOPSM(J)
TSAR a TPSUM(4)/RHOPSM(J)
RHOBAR - RHOPSM(J)/OS
IF(IAMI.EQ.1 .AND. NPR.NE.l) WRITE(IPRq22) J,ZP(J),ZP(d+1),
I
THETA.DSS,OBETA,BETAPHIDBEND,8ENONG,PBARTBARR4OBAR
158 CONTINUE
IF(ISSGEO.EQ.1) GO TO 159
AOBETA(O)*DBETA
ATHETA(J)ETHETA
159 CONTINUE
THETA a ¶80.0-PHI
160 CONTINUE
170 CONTINUE
IF(ISSOEO.EQ.O) ATHETA(WMAX)OTHETA
IF(IOROER.EQ.-I) PAI * ANOLEA
RANGE a S
RETURN
END
56
PTH
PTH
PTH
PTH
PTH
PTH
PTH
PTH
PTH
PTH
PTH
PTH
PTH
PTH
PTH
PTH
PTH
PTH
PTH
PTH
PTH
PTH
PTH
PTH
PTH
PTH
PTH
PTH
PTH
PTH
PTH
PTH
PTH
PTH
PTH
PTH
PTH
PTH
PTH
PTH
PTH
PTH
PTH
PTH
PTH
PTH
PTH
PTH
91H
PTH
PTN
PTH
690
695
700
705
710
7t1
720
725
730
735
740
745
750
755
760
765
770
775
780
785
790
795
800
805
810
615
820
825
830
635
840
845
850
855
860
866
870
875
8B6
885
890
895
900
905
910
915
920
925
930
93B
940
945
SUBROUTINE FILL(HAHB,dNEXT)
THIS SUBROUTINE DEFINES THE ATMOSPHERIC BOUNDARIES OF THE PATH
FROM HA TO HB AND INTERPOLATES (EXTRAPOLATES) THE DENSITIES TO
THESE BOUNDARIES ASSUMING THE DENSITIES VARY EXPONENTIALLY
WITH HEIGHT
C******
COMMON /IFIL/ IRD,IPR,IPU,NPR
Z(34),P(34),T(34),RFNDX(34),OENSTY(16.34)
COMMON /MODEL/
RE,DELTAS.ZMAXIMAXIMODIBMAXIPATH
COMMON /PARMTR/
COMMON /CNSTNS/ PI,CADEGGCAIRBIGNUM,BIGEXP
KMAX,M,IKMAXNL,ML,IKLOISSGEO
COMMON /CNTRL/
ZP(35),PP(35),TP(35),RFNDXP(35),SP(35),
COMMON /RFRPTH/
PPSUM(35),TPSUM(35),RHOPSM(3S),DENP(16,35),AMTP(16,35)
1
IF(HA.LT.HB) GO TO 90
WRITE(IPR,22) HA,HBJNEXT
22 FORMAT('OSUBROUTINE FILL- ERROR, HA .GE. HBI,//,
IOX,'HA HaB, JNEXT - ',2E25.15,I6)
I
STOP
90 CONTINUE
C*.***FIND Z(IA): THE SMALLEST Z(I).GT.HA
DO 100 I-1,MAX
IF(HA.GE.Z(I)) GO TO 100
IA a I
GO TO 110
100 CONTINUE
IA - IMAX+l
IS - IA
GO TO 130
C****.FINO Z(I8): THE SMALLEST Z(I).GE.HB
i1tO CONTINUE
DO 120 I-IAIMAX
IF(H3.GT.Z(I)) 00 TO 120
I
toB
GO TO 140
120 CONTINUE
138 IMAX+1
CONTINUE
C***.*INTERPOLATE DENSITIES TO HA, NB
ZP(JNEXT) a HA
12 - IA
IF(12.EQ.1) 12 m 2
IF(12.GT.IMAX) 12 a IMAX
12-1
I1
tHA-Z(I1))/(Z(12)-Z(I1))
A
CALL EXPINT(PP(JNEXT),P(|I),P(I2).A)
TP(dNEXT) a T(II)+(T(I2)-T(Il))*A
CALL EXPINT(RFNOXP(,NEXT),RFNDX(I1),RFNOX(12),A)
00 140 Krl ,KMAX
CALL EXPINT(DENP(KJNEXT),DENSTY(KI1t)oOENSTY(K,12),A)
140 CONTINUE
IM(ZAEQ.IB) GO TO 160
C**00.FILL IN DENSITIES BETWEEN HA AND H8
11 m :A
12 * 16-1
00 150 le11,12
JNEXT * iNEXT+l
28()
ZP(JNEXT)
P 1p()
PP•{JNEXT)
C
C
C
C
S
"I30
57
FLL
FLL
FLL
FLL
FLL
FLL
FLL
FLL
FLL
FLL
FLL
FLL
FLL
FLL
FLL
FLL
FLL
FLL
FLL
FLL
FLL
FLL
FLL
FLL
FLL
FLL
FLL
FLL
FLL
FLL
FLL
FLL
FLL
FLL
FLL
FLL
FLL
FLL
FLL
FLL
FLL
FLL
FLL
FLL
FLL
FLL
FLL
FLL
FLL
FLL
FLL
FLL
FLL
FLL
FLL
FLL
FLL
FLL
FLL
100
105
110
115
120
125
130
135
140
145
150
155
160
165
170
175
180
185
190
195
200
205
210
215
220
225
230
235
240
245
250
255
260
265
270
275
280
2U5
290
295
300
305
310
3t6
320
325
330
335
340
345
350
355
360
365
370
375
380
385
390
TP(JNEXT) - T(I)
RFNDXP(dNEXT) - RFNDX(I)
DO 150 K=1,KMAX
DENP(K,JNEXT) a DENSTY(K,X)
150 CONTINUE
160 CONTINUE
C***$*INTERPOLATE THE DENSITIES TO HS
JNEXT * JNEXT+1
ZP(JNEXT) - HB
12 - IS
IF(12.EQ.1) 12 = 2
IF(I2.GT.IMAX) 12 - IMAX
II
12-1
A * (HB-Z(I1))/(Z(12)-Z(I1))
CALL EXPINT(PP(JNEXT),P(Il),P(I2),A)
TP(JNEXT) - T(I1)+(T(12)-T(I1))*A
CALL EXPINT(RFNDXP(aNEXT),RFNDX(I1),RFNDX(12),A)
DO 170 K=1,KMAX
CALL EXPINT(DENP(K,JNEXT),DENSTY(K.11),DENSTY(K,12),A)
170 CONTINUE
44
S.'
395
400
405
410
415
420
425
430
435
440
445
450
455
460
465
470
475
480
485
490
RETURN
FLL
FLL
500
SUBROUTINE LAYER(J,SINAI,COSAI,CPATH,SNHGAMMA,IAMTS,BEND)
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
100
105
110
115
120
125
130
135
140
145
150
155
160
165
170
175
180
185
190
195
200
205
210
215
220
225
230
LAY
235
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
240
245
250
255
260
265
270
275
28U
205
290
295
300
300
310
315
320
325
330
335
34•
345
350
355
360
366
370
375
310
38S
390
END
THIS SUBROUTINE CALCULATES THE REFRACTED PATH FROM Zi TO Z2
WITH THE SIN OF THE INITIAL INCIDENCE ANGLE SINAI
$
COMMON /PARMTR/ RE,OELTAS,ZMIAX,IMAX,IMOO, I8MAX,IPATH
COMMON /CNSTNS/ PICA,DEG.GCAIR,BIGNUM,BIGEXP
COMMON /CNTRL/ KMAXM,IKMAX,NLML,IKLO,ISSGEO
ZP(35),PP(35),TP(35),RFNDXP(35),SP(35)t
COMMON /RFRPTH/
1
PPSUM(35),TPSUM(35),RHOPSM(35),OENP(16,35).AMTP(16,35)
DIMENSION HDEN(20),DENA(20),DENS(20)
DATA EPSILN/1.OE-5/
Co*i**INITIALIZE LOOP
N. 0
Zi = ZP(J)
Z2 " ZP(J+l)
HIl
ZI
R1 * RE+HI
ONMIN U DELTAS$*2/(2.0*Ri)
SINAII
SINAI
COSAII • COSAI
YI v COSAIle.2/2.0+COSAtI**4/8.0,COSAII**.83.0/48.0
Y3 v 0.0
X1 - -R1*COSAIf
RATIOl a RI/RAOREF(HI.SH.GAMMA)
OSOXI a 1.0/(I.O-RATIOloSINAIi**2)
OBNDXI l DSDXIeSRNAIl*RATIO1/Rl
S * 0.0
SEND - 0.0
IF(IAMT.EQ,2) GO TO 110
C*$$e**NITIALIZE THE VARIABLES FOR THE CALCULATION Of THE
Cs*e..ABSORBER AMOUNTS
PA ' PP(J)
Pe * PP(dJ*)
•P(J)
T
TA
TP(d+ )
T
TS
RHOA .. PA/(QCAIR*TA)
RHOL * PB/(OCAIR4TB)
OZ i ZP(U*I)-ZP(d)
HP a -OZ/ALOO(PB/PA)
00 TO 90
.
IF(A5•(RHOOHOA-I.O),LTEPSGLN)
HRHO a -OZIALOG(RHO/RHOA)
GO TO 95
90 HRHO 9 1.0G30
95 CONTINUE
00 105 KII.KMAX
DENA(K) 0 DENP(KJ)
OENB(K) a OEHP(KQJd)
aO yo loo
IF(OENA(K).eO.O .0OR. OENB(K).E0.0.0)
00 TO 100
tF(ASSIl.0-0ENAtK)/DENS(K)).LI.,PSILN)
CoooooUSE EXPONENTIAL INTERPOLATION
WOFNWK) * -O/ALOG(OENOB()i0ENA(K))
GO TO 105
C*.4**USE LINEAP •TNERPMLATIO4
100 NHEN(K) a 0.0
105 CONTINUE
110 CONTINUE
C"eit*
C*****LOOP THROUGH PATH
C
C
FLL
FLL
FLL
FLL
FLL
FLL
FLL
FLL
FLL
FLL
FLL
FLL
FLL
FLL
FLL
FLL
FLL
FLL
FLL
FLL
495
C*****INTEGRATE PATH QUANTITIES USING QUADRATIC INTEGRATION WITH
C*****UNEQUALLY SPACED POINTS
C*****
115 CONTINUE
N = N+1
-DOLTAS*COSAIi
DH
IF(OH.LT.DHMIN) OH - OHMIN
H3 - H1+DH
IF(H3.GT.Z2) H3 - Z2
OH - H3-HI
R3 - RE+H3
H2 - HI+DH/2.0
R2 - RE+H2"
SINAI2 a CPATH/(ANDEX(H2,SH,GAMMA)*R2)
SINAI3 - CPATH/(ANDEX(H3,SH,GAMMA)*R3)
RATIO2 - R2/RADREF(H2,SHGAMMA)
RATIO3 - R3/RAOREF(H3,SH,GAMMA)
GO TO 116
IF((1.0-SINAI2).GT.EPSILN)
Ca****NEAR A TANGENT HEIGHT. COSAI - -SQRT(1-SINAI**2) LOSES
C*****PRECISION. USE THE FOLLOWING ALGORITHM TO GET COSAI.
Y3 • Yi+(SINAII*(1.0-RATIOI)/RI+4.0*SINAI2*(1.O-RATI02)/R2+
SINAI3*(1.0-RATIO3)/R3)vDH/6.0
1
COSA13 - -SQRT(2.0.Y3-Y3**2)
X3 - -R3*COSAI3
DX a X3-X1
Wl - 0.5*DX
W2 - 0.0
W3 a O.5*DX
GO TO 118
C.****
116 CONTINUE
COSA12 - -SQRT(I.0-SINAI2**2)
COSAI3 a -SQRT(1.0-SINA13**2)
X2 - -R23COSA12
X3 - -R3*COSAI3
C*****CALCULAIE WEIGHTS
031 - X3-XI
032 - X3-X2
a X2-Xl
IF(O32.EQ.0.0 .OR. D21.EO.00) GO TO 117
WI - (2-032/021)*031/6.0
6
W2 a 031-=3/(032*021. .0)
W3 w (2.0-021/032)*D31/6.0
GO TO 110
itl CONOINUE
WI - 0.5*031
W2 a 0.0
W3 a 0.5*031
Coo$*#
1t8 CONTINUE
03DX2 w 1.0/(.0-RATIO20SINA12*02ý
0SOX3 a I.0/(I.O-RATIO30SINAI3602)
OBNDX2 * OS0X2*SINAI2aRATIO2/R2
0SDX3*SINAI3*RAT1O3iR3
9
DvNDX3
Ce#**e*NTEGRATE
OS a Wt*DSDXI+W2*DS0X2*W390SOX3
$a*DS
S
..0END a WlAO3NDXf+W2*D6NQX2+W3*O8NDX3
.UND * B5CENDSEND
m
)I~
59
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LA'
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY'
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
395
400
405
410
415
420
425
430
435
440
445
450
455
460
465
470
475
460
485
490
495
500
505
510
515
520
525
530
535
540
545
550
555
560
565
570
575
580
585
590
595
600
605
610
615
620
625
630
635
640
645
650
655
660
665
670
671
060
"6S
GO TO 150
IF(IAMT.EQ.2)
C*****CALCULATE AMOUNTS
DSDZ = DS/DH
= PA*EXP(-DH/HP)
RHOB = RHOA*EXP(-OH/HRHO)
GO TO 120
IF((DH/HRHO).LT.EPSILN)
PPSUM(J) = PPSUM(d)+DSDZ*(HP/(I.0+HP/HRHO))*(PA*RHOA-PB*RHOB)
TPSUM(J) ý TPSUM(J)+DSDZ*HP*(PA-PB)/GCAIR
RHOPS-M(J) - RHOPSM(J)+DSDZ*HRHO*(RHOA-RHOO)
GO TO 125
120 CONTINUE
PPSUM(d) - PPSUM(J)+0.5*DS*(PA*RHOA+PB*RHOB)
TPSUM(J) = TPSUM(J)+O.5*DS*(PA+PB)/GCAIR
RHOPSM(J) - RHOPSM(J)+O.5*OS*(RHOA+RHOS).
125 CONTINUE
00 140 K=l,KMAX
IF(ABS(HDEN(K)).EQ.O.O)GO TO 130
IF((DH/HDEN(K)).LT.EPSILN) GO TO 130
C*•.*.EXPONENTIAL INTERPOLATION
DENS(K) = DENP(Kd)*EXP(-(H3-Z1)/HOEN(K))
AMTP(K,J) - AMTP(K,J)+DSOZ*HDEN(K)*(DENA(K)-DENB(K))
GO 1O 140
130 CONTINUE
C*oe*"LINEAR INTERPOLATION
DENS(K) = DENP(KJ)+(DENP(K,d+I)-DENP(KJ))*(H3-Z1)/DZ
AMTP(K,J) - AMTP(Kd)90.5*(DENA(K)+DENB(K))*DS
CONTINUE
PA
P-B
RHOA - RHOB
DO 145 K-1,KMAX
145 DENA(K) - DENB(K)
150, CONTINUE
IF(H3.GE.Z2) GO TO 160
HI - H3
RI- R3
SINAII - SINAI3
RATIO1 a R.,TI03
Y1-Y3
COSAII a COSA13
X1 - X3
OSOXI w OSOX3
D0NDXI * OBNDX3
GO TO 115
160 CONTINUE
SINAI v SINAI3
COSAI * COSAI3
SP(J) a S
RETURN
END
"PS
4
"140
46
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
LAY
690
695
700
705
710
715
720
725
730
735
740
745
750
755
760
765
770
775
780
785
790
795
800
805
810
015
820
825
830
835
840
845
850
855
860
865
870
875
880
885
890
895
900
905
910
915
920
925
930
TRA 100
SUBROUTINE TRANS(IPH, ISOURC, IOAY,ANGLEM)
105
******************.***********.******.*******e*******O***R
C***.***.********
TRA ItO
CALCULATES TRANSMITTANCE AND RADIANCE VALUES BETWEEN V1 AND V2
C
TRA 115
FOR A GIVEN ATMOSPHERIC SLANT PATH
C
TRA 125
K
C
TRA 130
WATER VAPOR BANDS
1
C
TRA 135
C02,NO2.CO,CH4
GASSES
MIXED
UNIFORMILY
2
C
TRA 140
INFRARED OZONE
3
C
TRA 145
N2 CONTINUUM
4
C
TRA 150
H20 SELF BROADENED CONTINUUM AT 296
5
C
155
TRA
MOLECULAR (RAYLIEGH) SCATTERING
6
C
TRA 160
BOUNDRY LAYER AEROSOL (0 TO 2 KM)
7
C
165
TRA
TRANSMITTANCE)
(TX(7) IS TOTAL AEROSOL
C
TRA 170
ULTRAVIOLET OZONE
8
C
TRA 175
H20 SELF CONTINUUM 296-260 (TX(9) TOTAL TRANS)
9
C
TRA 180
H20 FORIGN CONTINUUM
10
C
TRA 185
(TX(10) IS AEROSOL ABSORPTION)
C
TRA 190
HN03 (NITRIC ACID)
11
C
TRA 195
KM)
(2-10
AEROSOL
TROPOSPHERIC
12
C
TRA 200
STRATOSPHERIC AEROSOL (10-30)
13
C
TRA 205
UPPER STRATOPHERIC (ABOVE 30KM)
14
C
TRA 210
AEROSOL WEIGHTED RELATIVE NUMITY (0 TO 2 KM)
15
C
TRA 215
CIRRUS CLOUDS
16
C
220
****************~A
Ca.*e..*******************************.s**ss**********
TRA 225
/IFIL/IRDIPRIPU,NPR
COMMON
TRA 230
MODEL,ITYPE,IEMSCTM1.M2,M3,IMNOPRNT,TBOUNOSALB
COMMON /CARDI/
TRA 235
IHAZE,ISEASN,IVULCN,ICSTL,ICIR,IVSAVIS,WSS.WHH,
COMMON /CARD2/
TRA 240
RAINRT
I
TRA 245
COMMON /CARD3/ HI,H2.ANGLE,RANGEBETARELEN
TRA 250
COMMON /CARD4/ VI,V2,DV
TRA 255
COMMON /CNSTNS/ AICADEGGCAIR,BIGNUM,BIGEXP
TRA 260
COMMON /CNTRL/ KMAXM,IKMAX,NL,ML.IKLO.ISSGEO
TRA 265
COMMON RELHUM(34),HSTOR(34).ICH(4),VH(16),TX(16),W(16)
TRA 270
WPATH(68,16),TBBY(68)
COMMON
TRA 275
COMMON ABSC(4,40),EXTC(4,40),VX2(40)
TRA 280
COMMON /AER/ XX1.XX2,XX3,XX4,YYI.YY2,YY3,YY4
TRA 285
COMMON /SOLS/ AHt(68),ARH(68),
290
X
WPATHS(68,Ie),PA(68).PR(68),ATHETA(35).ADSETA(35).LJ(69),,TURNTRA
TRA 295
X ANGSUN
TRA 300
COMMON /SRAD/ TEBI,TEB2,TASPITASP2,TMSPI.TMSP2,TEI2SV
TRA #301
ICALL.FPHS,FALB.FORUIT
COMMON /ICLL/
TRA 305
ABB(16)
DIMENSION
TRA 310
CFl/3.159E-28/,CF2/2.75E-04/
DATA
TRA 315
RADMINvl.OE+30
TRA 320
RADMAXs0.
TRA 325
TMOPIxPI*2.
TRA 330
EMISS-i.-$SAL
TRA 335
VRMINSO.
TRA 340
VRMAX.O.
TRA 345
sUM.sO.
TRA 350
SUMS a-99.
TRA 355
SUMSSRu-99.
360
TRA
RFLS 8-99.
TRA 365
RFLSOLo-99.
TRA 370
RAOSUMAO,
TRA 375
STSOL a 0.0
TRA 360
SSOL v 0.0
TRA 365
FACTOR%0.5
IRA 390
VieVil/5.
1.70m
•.•
..
~
IV2-V2/5.+.99
IVi -V1*5
IV2=IV2*5
IF (IV1.LT.350) IVl-35O
IF (IV2.GT.50000) IV2 50000
IF (DV.LT.5) Dys5
IOVMDV
IV% VI-IOV
IKLOw1
ICOUNT-O
ICALL
a0
a 0
ISCTTR
0
IF(IEMSCT.EQ.1 .OR. IEMSCT.EQ.2) IEMISS a i
IF(IEMSCT.EQ.2) ISCTTR - I
TRAIN-1.
IF(RAINRT.NE.0) TRAIN-TNRAIN(RAINRT)
TCRRIS - EXP(-MPATH(IKMAX,16)*2.)
WRITE(IPU,234) TRAINTCRRIS
FORMAT(2F8.4)
234
IF (IEMISS.EQ.0) IKMAXuIKLO
C*****BEGINING OF FREQUENCY LOOP
C
5 IVSlV+IDV
ITZERO.0
IPATHml
SUMV*0.
TLOLD-1.
TSOLDm1.
IF (ICOUNT.EQ.0) GO TO 15
IF (ICOUNT.EQ.50) GO TO 15
00 TO 20
15 ICOUNTO
IF(IEMSCT.EQ.O) WRITE(IPR,900)
IF(IEMSCT.EQ.1) WRITE(IPR,910)
WRITE(IPR,920)
IF(IEMSCT.EQ.3) WRITE(IPR,930)
20 00 25 K-4,KMAX
TX(K)-O.O
IF (K.LT.4) TX(K)t.0
25 CONTINUE
ICOUNTwICOUNTII
SUMO.0
VNIV
WATER SAND ASSORPTION
C*****
CALL CI0TA (ABB(i),V)
UNIFORMLY MIXED GASES
Cs*64.
CALL C20TA (ABB(2),V)
OZONE
C*.*..
CALL C30TA (A55(3),V)
C*#***
N2 CONTINUUM
C
CALL C4DTA(AKB(4),V)
C
WATER CONTINUUM
COO**#
CALL SLF29BtVSHNOTO)
CALL SLF260(V,SH2OTI)
FRN29(VFN2O)
_7T.20,
""EMISS
"IF(IEMSCT.EQ.2)
"CALL
02
N,•..,
IRA 395
IRA 400
TRA 405
TRA 410
IRA 415
IRA 420
IRA 425
IRA 430
TRA 435
TRA 440
TRA *445
IRA 445
TRA 450
IRA 455
TRA 460
IRA 465
IRA 470
TRA 475
TRA 460
TRA 485
IRA 490
IRA 500
TRA 505
IRA 510
TPA 515
IRA 520
IRA 525
IRA 530
IRA 535
IRA 540
IRA 545
IRA 550
IRA 555
IRA 560
IRA 565
IRA 570
IRA 575
IRA 560
IRA 585
IRA 590
IRA 595
IRA 600
IRA 605
IRA 610
IRA 615
IRA 620
IRA 625
IRA 630
IRA 635
IRA 640
IRA 645
IRA 650
IRA 655
IRA 660
IRA 665
IRA 670
IRA 675
IRA 600
RTA 685
_
Tlu260.
Co****PROTECT AGAINST EXPONENTIAL UNDERFLOW AT HIGH FREQUENCY
IF(V/(TI*0.6952).GT.8IGEXP) GO TO 105
XO-EXP(-V/(TO*0.6952))
RADFNO-V*(I.-XD)/(1.+XO)
XO.EXP(-V/(TI*0.6952))
RADFNI-V*(1.-XD)/(I.+XD)
FOG-(CFI*EXP(-CF2*V))
GO TO 108
105 CONTINUE
RAOFNO - V
RADFNI - V
FOG - 0.0
108 CONTINUE
ABB(5)=SH2OTO*RAOFNO
CALL C6DTA(ABB(6),V)
AB8(7)=O.
CALL C8DTA(ABB(8),V)
ASB(9)s(SH2OTI1RADFN1)-(SH2OTO*RADFNO)
ABB(1O)-(FH20+FOG)*RADFNO
C**.**HN03 ABSORPTION CALCULATION
CALL HN03 (V,ABB(11))
CALL AEREXT (V)
w-99.
TEBI
TE82SV--99.
_Cs***
COO*OOBEGINNING OF LAYER LOOP
DO 21O IK*IKLO,IKMAX
IF (IEMISS.EQ.O) GO TO 120
I
IF(lSCTTR.EQ.0) GO TO 116
III
CONTINUE
Cs****LOAD APPROPRIATE ABSORBER AMOUNTS INTO W(K)
IF(IPATH-2) 112,114,116
CONTINUE
112
Cs**e*LOAD W(K) WITH WPATHS(1,K) TO OBTAIN THE FIRST
Co-***SUN PATH TRANSMITTANCE
00 113 K-I, KfAX
W(K).WPATHS(1,K)
113
IF(Wtl).GE.O.0) GO TO 120
TX(6)-O.O
TX(?)=.0,
TX(9)-0.0
IX(IO)8O,0
G30 TO 206
CONTINUE
114
G"C"** LOAO W(K) WITH NPATH(KK)*+WPAYHS(IK+i#K)
Cooo**TO OBTAIN L PATH TRANSMITTANCES
""KPlnIK41
00 t11 K1,.KKAX
W(K)aWPATH(IK,K)4WPATHS(IKilI1K)
•IF(WPAT0S(IKP1).GEO.0) GO TO 120
tx(o)oO.O
TX(7)40.0
TX(9)vO.o
TX( I0)0.0
GO TO 20
CONTINUE
-.t8
Ct**o*LOAD WiK) WITH WPATH(LKK) TO OBTAIN 1T4 OPTICAL
Coe'*.PATH YRANSMITIANCES
115
63
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
IRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
690
695
700
705
710
715
720
725
730
735
740
745
750
755
760
765
770
775
780
785
790
795
800
805
810
815
820
825
830
835
840
845
850
855
860
865
670
8T5
880
885
190
895
900
905
910
915
920
925
930
935
940
945
950
955
960
965
970
97S
90
00 117 K-I,KMAX
117
W(K)-WPATH(IK,K)
120 CONTINUE
SUM-O.
00 125 JK=4,11
X(JK)-ABB(JK)*W(JK)
125 - IM-SUM+TX(JK)
14(5)-TX(5)÷TX(l0)+TX(9)
TX(1)-TRANFN(W(1),ABB(1),I)
TX(2)-TRANFN(W(2),ABB(2).1)
TX(3)-TRANFN(W(3),ABB(3).2)
TX(10)-YYl*W(7)+YY2*W(12)+YY3*W(13)+YY4*W(14)
TX(7)=XXI*W(7)+XX2.W(12)+XX3*W(13)+XX4*W(14)
SUM-SUM+TX(7)
TX(15)-W(16)*2.
SUM-SUM+TX( 16)
TX(9)-SUM
D0 205 K=4,KMAX
IF (TX(K).GT.BIGEXP) GO TO 200
TX(K)-EXP(-TX(K))
Go TO 205
200 TX(K)-I.0/BIGNUM
205 CONTINUE
TX(9)-TX(1)*TX(2)$TX(3)*TX(9)*TRAIN
IF(ISCTTR.EQ.O) 00 TO 209
206
CALL SSRAO(IPH,IK,ITZERO.IPATHV,SUMSSR)
IF(IPATH.EQ.3) GO To 208
IPATH-IPATH+l
GO TO 111
208
IPATH-2
209
IF (IV.GE.13000) TX(3)ITX(8)
ALAM-I.OE+04/V
IF (IEMSCT.EQ.0 .OR.
IEMSCT.EQ.3) GO TO 220
86K.BEFN(TBOY(IK),V)
TLNEWb(TX(9).TX(10))/(TX(7)*TX(6))
TSNEWu(TX(7)*TX(6))/TX(IO)
OTAUTLOLD-TLNEW
IF (DTAU.LT.I.OE-5.AND.TLNEW.LT.I.0E-5) GO TO 220
IFLOTAULE.0,) DTAUvO.
SUMVuSUMV.O.5*BUIK.OTAU.(TSOL0+TSNEW)
TLOLO'.TLNEW
TSOID*TSNEW
210 CONTINUE
220 CONTINUE.
C**'**ENO OF LAYER LOOP
IF (IV.GT.Iti) FACTOIR.O
IF (IV.GE.IV2) FACTOR'0.5
SUMA.SUUA4FACTOR.DV*(t1.0-YX(9))
C0 TO (300400,400,600) (1W•SCT*I)
300 CONTINUE
C*****TRANSMI tTAftCE ONLY
:X(lO)Nt.-TX(1O)
WRITE(IPU.906) vALAM.T
I.?7,Tx(tl),t0)
,$UMA
L9),(
M(N).
WRITEtIPU,907) VALAMl.T*g)u(Tu(K).kAt,7),TA(li),.1(1O),IUA
Go3 TO 700
400 CONTtNUD•
C....,AlMOSINERIC #A0IANCt ONLY
4*"*IeINCLUU0 (MISSION OF BOUNDARY AfEWUATEW GV TOTAL T••AI*t[S$IA
1P(180Ut40.LE.0.O)
.
.
.
.
GO TO 405
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
985
990
995
1000
1005
1010
1015
1020
1025
1030
1035
1040
1045
1050
1055
1060
1065
1070
1075
1080
1065
1090
1095
1100
TRA 1105
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
TRA
?RA
TRA
TRA
IRA
TRA
TRA
TR4
TRA
TRA
TRA
IRA
IRA
TRA
iRA
IA
TPA
tRA
1110
1115
1120
1125
1130
1135
1140
1145
1150
1155
1160
1165
1170
1176
118O
1105
1190
1I95
1200
1205
1210
1215
1220
1225
1230
1231
1240
1245
1250
1295
1260
1265
1270
IRA 112"
..
64
~, 4
-
'I
SSG.BBFN(TBOUND,V)*TX(g) 'EMISS
SUMV - SUJMV + SSG
405 SUMVV-SUMV
SUMV.(tI.OE+OA/V..2)*SUMV
!P(IEMSCT.EQ.2) GO TO 500
RADSUMSRAOSUM+DV* FACTOR' SUMV
WRITE( IPR,916J V,ALAM,SUMV ,SUMVY ,RAOSUM, TX(9)
WRITE(IPU.917) V.ALAMiSUMV.SUMVV.RADSUMIX(g)
SUMT.SUMV
SUMIT. SUMVV
GO To 700
500 CONTINUE
C0***SSOLAR SCATTERED RADIANCE
Ce***.WJLTLPLY SUMSSA BY THE EXTRATERRESTRIAL SOURCE STRENGTH SS
CALL SOURCE(VISOURlC.OAY.ANOLEM.SS)
SUMSSR.SU&ISSR*SS
C*..**SUM5SR IS THE SCATTERED RADIANCE IN (N/CM&2-STER-MICROMTIIE)
SUMSv(1 .0E4/V**2)*tSOMSSR
CI***.*RFLSOL ZS GRO0UND-REFLECTED DIRECT SO...CE RADIANCE
RFLSOL-0.
RFLS-O.
IF(N2.GT.0.) GO TO 510
IF(TEBI.LiE.0.) GO TO 510
IF(ANOSUN.GE.0.) RFLFACmSAL5*COS(AI4OSUN*CA)/TWOPl
RFLSOL*RFLFAC*TEB1 *SS
1QFLSa tG0E4/V**2.RFLS0L
510 CONTINUE
SUMY sSUMV*SUMtS+RF LS
SUWT T sS¶MVV4,SUMSSR+RP LSOL
RADSUM*RAUSUM+DV .FACTOP*SUlMT
WAIVEI!P926) VALAM.EUW VSUMVV,SUMS,SUNdSSR.RFLS.RFL$QL,
.~1 SfJ*T.SUJTTRADSUM.TX(9)
WRITI(ZIM4271 V,ALAM.SUUV,SUMVV.SUMSSUM5S,IPLS,RPLS0L.
SUMT.SUh6?I,RAGSIM*.TX~),TEGtT6S2SV
x
GO TO 700
600 CONTINUE
C40*66WREC11LY TRAIWa5VTTEP SOIAR IRRADIANCE
C*%**.SDLIL IS SOLAR IRRAOIA14CE IN W.4TS/(CM2 MICAMLT3R)
CALL S0URC4(V,0.f0AY,0-.0SQLlL)
EOL14 w~Z,10*/'
I5OLTV a SOLIVOTN(O)
ISOLIL a SOLRLbyx{9)
STSOL a 5TSOLISOLIV*OV*FACTQA
Mot1 * SSOL6SO1.IV*OV*FAcTOR
MRITI(IP4.936I V,A1,.YM SOL1V.T50LIL.5OL1V,$OL.IL,STSOL.550L.IN41)
V.LMI0ISLL5Uft1.70~SLT(~
$UNT 0 TSOL1V
*
SISOL
RA0OAJN
~WRIM~IP0.I937)
700 CONTINUE
MICA1~ASUT.K0.0) Go to 710
(SMýIM.WXDAA VRI9AA *V
IP(SUUT,.MRAW.1N) VRMINOV
*A0MUl.tUNT
lft(5UMkT.kk,QADfMIN
?10 CofigTIe
40 To 5
It (mv.m~~V)
LOOP
a#..~M
PIEurM
foP
T~14)IIAVfI~i141?20
!F~I~t.L.0
65
TRA 1280
TRA 1285
TRA 1290
IRA 1295
IRA 1300
IRA 1305
IRA 1310
TRA 1315
IRA 1320
tRA 1325
IRA 1330
IRA 1335
IRA 1340
IRA 1345
IRA 1350
IRA 1355
IRA 1360
IRA 1365
IRA 1370
TRA 1375
IRA 1350
IRA 1385
IRA 1390
IRA 1395
IRA 1400
IRA 1405
IRA 1100
IRA 1415
IRA 1420
IRA 1425
IRA 1430
IRA 1435
IRA 1440
IRA 1450
TA1S
IRA 1455
IRA 1460
IRA 1445
'IRA 1410
TPA 1475
IRA 1480
TPA 1415
TPA 1400
TPA 1955
111&1500
TPA 1503
IRA l5t0
TPA ISIS
IRA 1520
IRA I525
IRA 1520
IRA A1635
IRA
IRA
IRA
TPA
IRA
Ms4
M550
IS$$
1514
IS*$
1110
WRIE(IR.?O)RAOSuMA.RADSINVRMIN.RADMAXVRMAX
*
19
TRAINNINU
TRA 1575
REATA
TEA 1615
900 FORMAT (1H1,/ IX.SIN FREG WAVELENGTH TOTAL
H2O,5X,4NCOI2.,5A.TRA
I'OZOJE N42CON? 1420CON? MOL SCAT AEROSOL HNOS
'
TRA
*44'AEROSOLINTEGRATED'
TEA
2
/2X,148 CM-I MICRONlS,9(4X.S*ITRANS).4.1?TH AIS
TEA
3ABSORPTION,/)
IRA
910 FORMAT (1141.20X.I8I4RADIANCEfWATTS/CMW2-STER-XXz),
TRA
X /,'0
FREO,.TIO.'WAVLEN'.Tl9,ýATMOS EAOIANCE*,T39,
IRA
X
1NTEGRAL',T049.'TOTAL,./2X.ikCM-1)¾T10.'(MICRN)'.T19,'(CMA-s)'.TRA
X 129.'(MICRN)',T39,'(CM-I)',T49.'TRANS.,/)
TRA
930 FORMAT (1NI.45X,2BHRAOIANCE(WATIS/CM2-SIER-XXX).
TRA
X /.'0
FREQ',Y11.'WAVLEN;¾T~t,'ATMOS RAOIANCE¼.T4I.
TEA
X 'PATH SCATTERE0'?6I.'GROUND REVLECTEO*.TS5,'TOTAL-.I91.
IRA
X ' INTEGEAL',Ttl0.TODTAL'./2X,C(CM-1)'.TtO.'(M!CRNt)',T20,'(C*xI¶pTRA
X 3.t1E),4.C-).~.(!U~~o.(s14ro
TRA
930 FORMATIl'.22X,'IiARAOIAMCE (WATTSICUII(K*A)l.j
*I
'C FREQ',TIIO'WAVLEP4'.Tfl t TRANSMITTEO ¼1I45,
2
'SLR !1ITUAE'TOrL.,IRA
3
3X.'t
*-
4
IRA titO
IRA Ins5
1720
IRA 1725
~)\l.'MC~'I0'(CMei'TO{ECN'
V40. -(CM-1).?50.1Mc )t60.hR,.*IQIO.
IRA 1730
*
T60,'IRANSI)
CenSPCRL AATO LhI!~t(4
TlAt173$
RA t240
POMTl.?0f.,OO41,)TA
1745
90$
O...*SDE5CTRAL OATA
tU)4ITwI9U ta?)
IRA l785
93?fO
AtP,0Vl3jRZ9.2,0P3uq.41
03? FOMTt0t*ag9R,?,9f.
.-
720 FO
730
AITQSIS(
7$0 NOt-'IIQAE
*A
x
MINm~lRA0IANIS
TRA 1110
qA ties
4
CAC TO CIRRUS a '.JI*ý4)
MgM~'?AiISO
TO AIN
to~
',IF1O.4'j
At~
E
1635
1640
1645
1650
1655
1660
1665
1610
1675
1680
1605
1690
1695
1100
*
ItC3'VAITS C$9-2 STE.
4 t',11.34- WfityS
Aval¾ OP#10I.'4t'U-1'./qm&.1.
t-CM:2 M E- -1-1
TEA tits
IVA taco
,,
S
.taA
11
t#30
tiA* 1493
IRA 1414
Sto
66
i
FUNCTION BBFN(T,V)
BFN
100
C
BLANK BODY FUNCTION IN UNITS OF WATTS/(CM2 STER MICROMETER)
OFN
C*****e*4****************e*******a*.***+#v.**.**..s..**...a.*.....s.*.....sBN
COMMON /CNSTNS/ PICADEGGCAIRBIGNUM,•IGEXP
BFN
BBFN - 0.0
BFN
X a 1.43879*V/T
BFN
C..***PROTECT AGAINST EXPONENTIAL OVERLOW
BFP
IF(X.GT.BIGEXP) RETURN
BFN
BBFN - 1.190956E-16*V**B/(EXP(X)-i.0)
BFN
RETURN
8FN
END
BFN
110
115
120
125
130
135
140
145
150
155
SUBROUTINE CIDTA (C1L.V)
RETURNS WATER VAPOR BAND ABSORPTION COEFFICIENT AT WAVENUNBER V
COMMON /C1/CI(2580)
C1L=-5.
IF(V.LT.350.) RETURN
IF(V.GT.14520.) RETURN
IVsV
L=(IV-350)/5+1
IF(IV.GT.9195.AND.IV.LT.9875) RETURN
IF(IV.GE.98g7)L-(IV-9875)/5+1771
IF(IV.GT.12795.AND.IV.LT.13400) RETURN
IF(IV.GE.13400) Lu(IV-13400)/5+2356
CIL-CI(L)
RETURN
END
CIO
CID
CID
CID
CID
CID
CID
ClD
CID
CID
CID
CID
CIO
CID
CID
100
105
110
115
120
125
130
135
140
145
150
155
180
165
170
SUBROUTINE C2DTA (C2LV)
UNIFORMLY MIXED GASSES
COMMON/C2/ C2(1575)
C2L=-5.
IF(V.LT.500.) RETURN
IF(V.GE.13100.) RETURN
IV-V
L-(IV-500)/5+l
IF(IV.GT.8070.AND.IV.LE.12970) RETURN
IF(IV.GE.12950) L-(IV-12950)/5+1516
C2L-C2(L)
RETURN
END
C20
C2D
C2D
C20
C20
C20
C20
C20
C20
C20
C20
C20
C20
100
105
110
115
120
125
130
135
140
145
150
155
160
SUBROUTINE C3DTA (C3LV)
OZONE
COMMON /C3/ C3(640)
C3L'-5.
IF(V.LT.575.) RETURN
IF(VGT.3270.) RETURN
IVNV
L;(IV-576)/5+1
C3L-C3(L)
RETURN
J:,o
C3D
C30
C3D
C30
C30
C30
C30
C30
C3D
C31
C30
100
106
110
115
120
125
130
135
140
145
150
C
C *.
C ..
67
C **
C .0
C *s
C
C
C
SUBROUTINE C40TA (44L,V)
N2 CONTINJUM
COMMON /C4C8/ C4(133),C8(102)
C4LauO
IF(V. .T.2080.) RETURN
IF(V.GT.2740.) RETURN
IVw.V
L,(IV-2080)/5+1
C4LwC4(L)
RITURN
END
C4D
C40
C40
C49
C4D
C4D
C4D
C40
C4D
r40
C4D
100
105
110
115
120
125
130
135
140
145
150
SUBROUTINE C6DTA(C6L,V)
MOLECULAR SCATTERING
C6LwO.
IF(V.LE.3000.) RETURN
.CL'V'*4/(g.28799E*18-1.07123E+Og*V*.2)
RETURN
END
Co6
C6O
CoD
C60
CoD
Coo
C6D
100
105
110
115
120
125
130
SUBROUTINE C8DrA (COL,V)
OZONE U.V + VISIBLE
COMMON /C4CO/ C4(133).C8(102)
C8L-O.
IFP(VLT.13000.) RETURN
IF(V.GT.50000.) RETURN
IV*V
IF(IV.GT.24200.AND.iV.LT.2,500) RETURN
XIv(V-I30O.0)/200.O+I.
IF(IV.E.27500) XI.(V-2?500.0)/500O.57.
N-XI*1.001
XDXI'-FLUAI(N)
C8L-CBCN)+XA*(CO(N)-CO(N-I))
RETURN
END
Coo
coo
CoO
COO
CBO
Cho
Coo
COD
Coo
COO
CoD
Coo
coo
Coo
Coo
100
105
110
115
120
125
130
135
140
145
150
155
lao
165
170
FUNCTION TRANFNI•W.A85.J)
LOWTRANS CMPIRIC|AL FUNCTION FOR BAND MOOECTRA.4SMITTA.NE
K * I WATER AND UN:VORMALY MIXEO
IRV
IRV
Tar
TRA
RF
TRF
tag
TRF
TRY
TRA
TRY
tOO
105
Ito
l1i
¶20
124
130
135
t40
145
¶50
WR
TOP
TAP
Top
Is%
t60
I6S
170
K a 2 INFRARED OZONE.
C
COMNAON
/!RFWFO/ TR(6Y),FM(7),FO(O7)
OIMENSION C(a),O(2),F(07,2)
EQUIVALENCE (Y(AP).YlI)
DATA C/0.007107,0.05SI941,O /1.0565%. 2.36743/
TRANFNi&.
IP(w.LT.1.OE-20.0A.ASS.i.I.-.) RNIURN
X*ALOIO¶(W)*A§$
TRANfN0O.
IF(A. of, F(67,K) ) WEYU4N
|F(A.LTF(I.K))
TRANPN' 1. - C(K)eE*PAO(K)*X)
-IP(•.L.Y.(1,K))
Klw2
IF(A.0.GYt2,N))
RETURN
YAP
1t-33
DO 20 J1VKI.61
100
TR%
lB5
TRY 190
I
20
40
i7S
TRg
IP(A -Lt. F(OK) ) 00 T( 40
CONTINUE
TRANVN*TR(J) * (TR
O-TRU)
RETURN
).4F(2.K)-x)/cF(OK)-P(J-IK)
IWO
TAF
195
TfR
TOP
TRY
"t
TRY
200
20S
210
215
330
TAP 2
.1
~frA~A~,.
*
~
~
kip-
.~
**
~ ~
C
C
C
o.
SUBROUTINE SLF296(VlC,SH20TO)
LOADS SELF CONTINUUM 296K
COMMON /SH20/ VIV2,DVNPT,S296(2001)
CALL SIdr(VIVIC,DV,NPT.S296,SK20TO)
RETURN
END
SLF
SLF
SLF
SLF
SLF
SLF
100
105
110
115
120
125
SUBROUTINE SLF260(VICSH20TT1)
260K
LOADS SELF CONTINUUM
COMMON /S260/ VIV2.DV.NPTS260(2001)
CALL SINT(VI,V1CtDV,NPTS260,SH2OTI)
RETURN
END
F0
F60
FSO
F60
F60
FSO
100
105
110
115
M
125
SUBROUTINE FRN296(VIC.FH20)
LOAOS FOREIGN CONTINUUM 296K
COMMON /FH20/ V1.V2,OVNPTF296(2001)
CALL SINT(VIV1C.Ov,NPTF296,FH2O)
RETURN
END
FRN
FAN
FAN
FRN
FAN
FRN
100
105
110
115
120
125
INT
INV
INV
.NT
IN?
100
105
Ito
110
120
125
130
CIS
140
14B
130
IIl
lea
sUBROUTINE SINT(VIVICOV,NbT.CONTI.CONTO)
C
C
to
INTERPOLATION
FOrt CONTINUUM WITH LOWTRAN
DIMENSION CQNTI(2001)
CONTONO,
O
I((VIC-VI)/V, .00001
IF(I.GE.NPT)GO TO 10
CONTO#CONT|1|)
Im0DaAmjD(VtCt0 4 )
IF(IMOD.O1.0) cNMTO.(CON0I(I).rDTZI4t
CONTINUE
RETURN
60
INT
))/2.
INt
INt
IN?
|NT
ZNT
INT
INT
SUBROUTINE EXABIN
C
C
C
C
LOADS EXTINCTION AND ABSORPTION COEFFICIENTS FOR THE FOUR
AEROSOL ALTITUDE REGIONS
I
COMMON /CARD1/
COMMON /CARD2/
RAINRT
COMMON /CARD3/
COMMON /CARD4/
MODELITYPEIEMSCT.MI.M2.M3,IMNOPRNTTBOUNO.SALB
IHAZEISEASNIVULCN.ICSTLICIR.IVSA.VISMSS.WHH,
H1,H2,ANGLE.RANGEBETA.RE.LEN
VI,V2,DV
C
"
C
C
COMMON RELHUm(34).HSTOR(34),ICH(4),VH(16).TX(16),W(16)
wPATH(68,16),TBSY(68)
COMMON
COM'ON ABSC(4,40),EXTC(4,40),VXO(40
/
VX2(40),RUREXT(40,4),RURASS(40,4),URBEXT(40,4),
COMMON /EXTV
IURBABS(40.4).OCNEXT(40,4),.CNABS(40,4),TROEXT(40.4),TROABS(40.4),
2FO1EXT(40),FG1ABS(40),FO2EXT(40),FG2ABS$40)
3,BSTEXT(40).BSTABS(40)tAVOEXT(40).AVUA8S(40),FVOEXT(40
4),FVOABS(40),DMEEXT(40),DMEA8S(40)
DIMENSION RHZONE(4)
DATA RHZ0NE/O.,?0..80..99./
DO 5. 1-1,40
5 VXO(I)vVX2(I)
1101
IF (IHAZE.EQ.I) I112
IF(IHAZE.EQ.3) 11 a 2
DO 85 U-11.4
ITA-ICH(M)
ITC*ICH(M)-?
WRHvW(15)
IF (ICH(M),EQ.6.AND.M.NE.1)
MRH70.
THIS CODING DOES IOT ALLOW TROP RH DEPENDENT ABOVE EN(?.I)
DEFAULTS TO TROPOSPHERIC AT 70. PERCENT
DO t0 1.2,4
IF (WRH.LT.RHZONE(I))
GO TO t5
tO CONTINUE
S14
15 flat-,
1F(WRH.GT.DO.AN.WlRH.LT.99.i)ZALOG(too.0-WR¶4)
lX.ALOG( t00,-R4ZONE(|I))
XlwALOG(IOO.0-RHZONE(I))
If (WRH.GE.99.0) X.X2
(IRHALE.0.0) A*Xl
00 00 N4I,40
ANSCIM,N)O.,
EXTC¶M.N)0.
IF ITAOt. ) GO T0 4%
IFt¶IA. LE.0) GO tO00
RH ODEPNOEN-T AEROSOLS
W TO (20,20.2•25S,30,35)s
2-0. VALOG(RURtXT(N.I))
.vlALOO(RURE*ItN.II))
Z2.ALOG(RURAbS(N.0))
ZjtALGGtkURABS(N,tI))
00 TO 40
25 YitALOOOCNEAY(NI
lIF
C
_:
2*ZI.ALOOWCNAGS(N.,))
li*AtQ0(OCNAlk{N.Itj)
•.70
ITA
EXA
EXA
EXA
EXA
EXA
EXA
EXA
EXA
EXA
EXA
EXA
EXA
EXA
EXA
EXA
EXA
EXA
EXA
EXA
EXA
EXA
EXA
EXA
EXA
EXA
EXA
EXA
EXA
EXA
EXA
EXA
EXA
EXA
EXA
EXA
EXA
EXA
EXA
EXA
EXA
100
105
110
115
120
125
130
13S
140
145
150
155
160
165
170
175
180
165
190
195
200
205
210
215
220
225
230
235
240
245
250
255
260
265
210
275
280
285
290
295
EXA
EXA
EXA
KXA
EXA
EXA
EAA
tXA
300
305
310
315
320
325
330
335
340
345
350
fAA
EXA
EXA
CAA
tXA
EXA
IXA
EllA
0L
IA
355
380
3••
370
37"
315
3*
GO TO 40
30 Y2.ALOG(URBEXT(NI))
YlwALOG(URBEXT(NII))
Z2vALOG(URBA8S(N,I))
ZI.ALOG(URBABS(NII))
00 TO 40
35 Y2.ALOG(TROEXT(NI))
YiEALOG(TROEXT(Nott))
Z2-ALOG(TROASS(N,I))
Z1.ALOG(TROABS(N.1I))
40 Y.Yi+(Y2-YI) (X-X1)/(X2-AM)
ZK.ZI+(Z2-ZI).(X-XI)/(X2-Xt)
ABSC(M,N)-EXP(ZK)
"EXTC(MN)*EXP(Y)
GO TO 80
45 IF (ITA.GT.14) GO To 75
IF (ITC.LT.1) 00 TO 70
GO TO (50,55,60,6S.70,65,70),
50 ABSC(M,N)-FGIABS(N)
EXTC(M,N)-FG1EXT(N)
GO TO 80
55 ASSC(M,N)-FG2ABS(N)
EXTC(M,N)-FG2EXT(N)
GO TO 80
60 ASSC(M.N)*BSTABS(N)
_ETC(M,N).BSTEXA(N)
GO TO 80
65 ADSC(M,H)*AVOABS(N)
EXTC(MN)mAVOEXT(N)
GO TO 80
70 ABSC(UN)vFVOABS(N)
EXTC(MN)mFVOEXY(N)
GO TO 80
75 ABSC(MN)DMBEADS(N)
-EXTC(M.N)-DMUAXT(1N)
60 CONTINUE
B5 CONTINUE
JkRTURN
ITC
C
END
'I
711
EXA
EXA
EXA
EXA
EXA
EXA
EXA
EXA
EXA
EXA
EXA
EXA
EXA
EXA
EXA
EXA
EXA
EXA
EXA
EXA
EXA
EXA
EXA
EXA
EXA
EXA
EXA
EXA
EXA
EXA
EXA
EXA
EXA
EXA
EXA
EXA
EXA
EXA
EXA
395
400
405
410
415
420
425
430
435
440
445
450
455
460
465
470
475
480
485
490
495
500
505
510
515
520
525
530
535
540
545
550
555
560
565
570
575
560
595
BAm
590
SUBROUTINE AEREXT (V)
C
C
C
C
AEX
AEX
AEX
AEX
AEX
AEX
AEX
AEX
AEX
AEX
AEX
AEX
100
105
110
t-1S
120
125
130
135
140
145
150
155
AEX
AEX
AEX
AEX
AEX
AEX
AEX
AEX
AEX
160
165
170
175
180
185
190
195
200
AEX
AEX
AEX
AEX
AEX
AEX
AEX
AEX
AEX
205
210
215
220
225
230
235
240
245
RETURN
NOD
AEX
AEX
255
260
SUBROUTINE H0N3 (V.HABS)
HN3
HN3
100
105
INTERPOLATES AEROSOL EXTINCTION AND AMSORPTjgN COEFFICZENT
FOR THE WAVENUMBER, V.
t
COMMON /CARDI/ MODEL,ITYPE,IEMSCTM1 M2,M3,IMNOPRNTtTDOUNDSAL3
COMMON /CARU2/ IHAZI,ISEASN,IVULC',ICSTL.ICIRtZVSA,VISWS.Ws,.
RAINRT
COMMON /CARD3/ H1.H2,ANGLERANGE,BETA,RELEN
COMMON /CARD4/ V1,V2,DV
COMMON
/CNTRL/ KMAXtM, IKAX,NL,ML,IKLO,ISSG9O
COMMHON RELHUIM(34),KSTDq(34),ICN$,4),Vki(i6},TX(16).W(16)
COMMON
WP1;TH(68,1),TBBY(68)
COMMON
ABSC(4,40),EXT0(4,40),VX.(40)
COLMON /AER/ EXTV(4).ABSV(4)
00 5 10-.,4
.
AISV(1)-O.
X .MEXTV( t)-O
10 CONTINUE
IF (INAZE.EQ.0)
ALAM-I.0E+4/V
•.
RCTURN
O 10 N*1,40
XDNALAM-VX2(N)
0F (XD) 15.10,10
10 CONTINUE
0
N=4
15 VO-VX2(N)-VX2(N-1)
DO 20 1-1.4
EXTV(I)-(EXTC(l,N)-EXTC(IN"-I))*XO/VXD+EXTC(I,N)
ABSV(|)9(AE•C(|,N)-ABSC(IN-I))OXOIVX|HAOSC(I.N)
4
C
C
WlN03
C
1HN3
DIMENSION H1(11). H2(16), H3(13)
KN3
ARRAY 144CONTAI4S W103 ABS. COEFjCM-1ATM-4) FROM 950 10 920 CM-I HN3
DATA N1/2,t97,3.91tB,154,B.1S0.g.3I7,9.4IIIl.5II0,t1.tT,414113
C
SYATISTICAL BAND PARAMETERS
1043
C~KN
51
KN3
10,212.O.4
2,5.2?.1403,44.flg.g,76/
U78.3
ABS. COEF(CM-IATM-1) FROM 1MG5 Y1350 CM-I 1413
WAAY 02 CONTAINS
oAT H2•.E•,4611G.TS.IT~gIO.I~t.T4te.O.:.St33.9,•.HN3
C
C
AKRA
H3 CONTAINS 9403 ieS,
(•OEF(cm-tAum-1)
FROM 16TS 101133• to-$ HN3
DATA H2I5.O3,6.EO2,I4. t,.S,23.3I,23,t,:3.23,3t,0,3g,3,.v4N3
14,24,79,6171.420/
WABS4=.
IF tv.G•.40.0.•wOD,VL&.020,0) GO TO S
iF VGE.12T$?Q.ANt.V.Lf.130.O) Go TO to
If V.9.G,180.0AID.V-LS13.@) 00 TO1I
RITURN
I0
A13
13
1N3
kN3
HN3
W.43
1t0
115
120
125
130
135O
145
180
140
155
160
MBS
10
17%
9O0
1s5
M(F
1.(V,)/S,
aiTUNrit"
NASS*Ht1{t)
I•(V-IS7O.)/6.
NJ 200
H3 205
1411
200
MN3 210
HASs*N:(I)
RETURN
END
HN3
413
11N3
72
220
235
240
c
c
C
c
'
c
C
C
C
SUBROUTINE SSGEO(IERROR.IPH, IPARM,PARMI-PARM2,PARM3,PARM4,PSIPO,G)SSOG
IN,$ ROUTINE DRIVES THE LOWTRAN GEOMETRY ROUTINES REPEATEDLY
TO OBTAIN THE ABSORBER AMOUNTS FROM THE SCATTERING POINTS ON
•.DILOPARWT2
SSG
CONTINUE
PSOvPARMI
TNETAS.O.0
0MIS,90'?NTgAS
GO to53
CO"IlNuE
OISERAVE
IS AT 04 M•1•3
6N.
73
105
110
I15
120
125
130
135
140
145
150
155
160
165
170
Ils
ISO
105
190
0195
200
205
210
215
220
225
230
235
240
245
250
255
260
265
270
275
250
265
290
295
300
305
310
550
S
SSG,
320
g
325
5SG
$50
SSG
vS0
SSG
550
33S
340
345
350
355
360
%%a
310
3,5
395
370
SW1 37S
SSG
SSG
Tid NOOtH POL|k REM
100
$50
$so
ISO
PHlOsOO
4
556
SSO
SSG
SSG
SSG
COMMON RELHUM(34).HSTOR(34),ICH(4),VH(I6).TX(16),W(16)
SSG
COMMON WPATH(68,16),TSBY(691
SSG
COMMON ABSC(4.dO).EXTC(4,40),VX2(40)
SSG
COMMON /SOLS/ AHI(SB),ARH(68),
X
WPATHS(68.16).PA(68),PR(68),ATHETA(35),ADBETA(35),LiJ(69).TURN,SSO
SSG
X ANGSUN
SSG
COMMON /IFIL/ IRDIPR,IPU,NPR
SSG
MODEL.ITYPEIEMSCTM1,M2.M3,IM,NOPRNT,TSOUNDSALS
COMMON /CARDi/
SSG
COMMON /CARD2/ IHAZE,ISEASN,IVULCN.ICSTL,ICIRIVSA,VISVSSiwN,
SSG
I
RAINRT
SSG
COMMON /CARD3/ HIH2,ANGLE.RANGE,BETA.REE,LEN
SSG
COMMON /CARD4/ V1,V2.DV
550
COMMON /CNTRL/ KMAX,MM,IKMAXNL.MLIKLO.ISSGEO
SSG
COMMON /MOOEL/ ZM(34),PM(34),TM(34),RFNDX(34),OENSTY(t6.34)
SSG
COMMON /PARMTR/ REDELTASZMAX, IMAXIMOo.IBMAX.IPATH
SSG
COMMON /CNSTNS/ PI.CA.OEG.GCAIR,SIGNUM,BIGEXP
SSG
COMMON /RFRPTH/ ZP(35),PPt3S),TP(35),RFNDXP(35),SP(35),
SSG
I
PPSUM(35),TPSUMI35).RHOPSM(35),DENP(16.35),AMTP(16,35)
SSG
COMMON /USRDTA/ NANGLSANGF(50),F(4,50)
SSG
DIMENSION WPOU•I(68,16),TOUM(6B),LJD(6B).AZ(35),RHO(35)
SSo
MOLECULAR AND HENYEY-GREENSTEIN PHASE FUNCTIONS
SSG
NOTE: UNITS ARE (STER-1), XsCOS(SCATTERING ANGLE)
SSG
X*&2
PFMOL(X)u.OOS5+.O57OS
4
SSG
PFH0(G|
,I~utl.O-G0**2)(( .OPIo(I.Q4O*S22e3.OSG0OX)'l.S)
SSG
IKLO*I
SSG
v
I
NPR
SSG
ISSGEO9t
$S0
SPECIFY THE GEOMETRICAL CONFIGUIMATION
SSG
IF(IPARM.EQ.2) 00 TO I
SSO
THETAORPARMI
SSG
PH4IOPAR*2
SSG
THETAS*PARM3
SSG
PHtSAPARM4
GO To 5 00
IP(IPARM.NE.O)
IF(ASSIHEIAD)+L,I9T.,,)
TO
W 70 5
5
IF(t1HtAU.GtO.0.0) 00 10 4
.OSETVES IS AT ON WAR INK SOUTH POLE, REMAP TO EGUAt•i
WRIIMtIPRWI6)
'PSIPOAPSIPO-PHI$
.IHEIAO*O.O
sr
SSG
THE OPTICAL PATH TO THE EXTRATERRESTRIAL SOURCE, NECESSARY
TO 00 THE LAYER BY LAYER SINGLE SCATTERING RADIANCE CALCULATION.
GO TO a
I
S50
TO EQUATOR
S
C
C
C
10
11
C
C
THETAO-0.0
PHI 0.00
THETASmO.O
PHIS-90.-THETAS
SSG
SSG
SSG
SSG
395
400
405
410
WRITE(IPR,900)
iJTURNDaJTURN
IKMAXD-IKMAX+1
HID-H1
H20,H2
ANGD-ANGLE
SSG
SSG
SSG
SSG
SSG
SSG
SSG
SSG
SSG
420
425
430
435
440
445
450
455
460
8ETDOBETA
8ETA=O.
LENO-LEN
ITO.ITYPE
IMAXWML
DO 10 J-.,IMAX
AZ(J)-ZP(J)
RHO(J)xRELHUM(d)
$SO
SSG
SSG
SSG
SSG
SSG
SSG
SSG
470
475
480
495
490
495
B00
505
TBOUM(J)mTBBY(j)
LJD(J)vLJ(J)
IF(LJD(J).GT.IMAX)LUd(J)OIMAX
W0 11 KmI.KMAX
WPOUM(J,K).WPATH(d.K)
IMAX-IMAX-t
SSG
iSG
SSG
SSG
SSG
SSG
SSG
SSG
SSG
SSO
SSG
50
515
520
525
530
535
540
545
550
555
560
565
515
SSG
CONTINUE
SAVE OPTICAL PATH PARAMETERS AND AMOUNTS
00 11
SSG
4Jw1,IKMAXO
ESTABLISH PSIO AND DELO
XARBO-0
IF(ANGLE.LT.0.01.OR.ANGLG.GT.1?9.99)
IARBO*t
* 1CALL PSIDEL(THETAS.PHISTHETA0,PHIOPS|PO.PS)O.OL0, ZARIO)
C
C
C
980
-
652
INITIAL
CONDITIONS AT THE OSSERVER
IARS*IAABO
84TASTmO.0
IF(IARUO.EQ.0) P51SToPSIO
ANGLOoDELO
LOOP OVEi THE PONHT TO SUN PATHS TO OSTAIN AMOUNTS
WRITE( PR,950)
WRITWtA•,52)
POHRAt(' SCTTR SCTTR SUOTENOEO SOLAR
ilECULAR
*)
POINT ALT
ANULE
ZENITH
F9OA•RA
lASt P
'/)
O0 I0S LTli,.!WAX0.
C
S-
S|{LEN0,EOI.0R,.lURN0.NG.0.•,)
SORT PATH, uP
T1) 20
st~tI
tL.0,2t11!EAITAT*OOTAI.tS
THVTAtHllA(L)
PATH
RELATIVE
ZtNITN AZIMUTH
ICTT*
ANGLE
10
$so
SSG
SSG
550
SSG
SSG
SSG
C3
SSG
SSG
MOSSO
iSO
.
SO
550
415
510
510
•55
520
995
So0
605
WtO
615
620
6a5
030
435
640
645
SSG
550
O50
ass
SSO
640
675
s50
SO4
S30
go0
615
670
1364
"
00 to 3
74
20
C
25
30
35
C
955
40
C
C
w(K)-0.0
6o TO 100
so
C
s0
C
C
970
TO
S. ...
t
c
4'
SOLAQ ZEF•ITH QJNDINtj CORRECTIGN
Calto
F•ITEOI|•RTz{virlot7)
cOuOQ,
b•lN0
.
tO CORtN.••GH
-$ANGLE •CANtAGAKLE,TNTST,PSIIT.1A48)
ONASS FUNCTION "A"AY
LOAD MOLECU-.LAM
690
695
700
705
710
715
720
725
730
735
740
745
760
755
760
765
770
775
780
785
790
795
800
805
8tO
815
820
825
830
835
840
845
650
855
880
0865
970
SSG 815
$oss Sa
SSG
550
SS
SG
IERROR.-5 IF SCATTERING POINT IS IN THE SKAO4. ALSO SIT W(K)v,5.0
SSo
6O
sO
IF(IERRORNE.-S) GO
WRITE(IPR.L'O). L
550
SSG
iORMAT('
SCATTERING POINT ',13d I$ IN THE SHAW)
SSG
W(RK5.-0
00 70 Kat,MMM
ERR•Gsso
TO tOO
to0 G
M"OcT'No
•c
SSG
SSG
SSG
SSG
SSG
SSG
SSG
SSG
SSG
SSG
SSG
SSG
SSG
SSo
SSG
SSG
SSG
5SG
SSG
SSG
$SO
SO
SSG
SSG
SSG
5SG
SSG
SSG
SSG
SSO
SSG
SSG
5SG
SSG
SSG
$6
SSG
CALL GEO(IERROR..END•OG)
.
it
CONTINUE
LONG PATH, OR SHORT pATH DOWN
IF(L.GE.2) BETAST.BETAST+ADBETA(LJO(L-1))
IF(L.GE.JTURND) GO TO 25
LJPI*LdD(L)+l
HI.AZ(LJPI)
RELH-RHD(LJP1)
THTST-18O.-ATHETA(LJPt)
GO TO 30
LdoL-LJ0(L)
H1-AZ(LJOL)
RELH-RHD(LjDL)
THTST-ATHETA(LJOL)
IF(L.EQ.JTURND)THTST*80.-ATHETA(LJOL)
CONTINUE
AHI (L).H
ARH(-L)RELH
IF(L.LT.2) GO TO 35
PSIST-PSI(PSIO,DELO,BETAST,IARBIARBO)
ANGLO-OEL(PSIODELO.BETAST,4ARSO)
CORR0O.O
RANGEmUNKNOWN
ITYPE03
O0 90 JITER-1,4
M2 - 0.0
ANGLE-ANGLO-CORR
LEN.0
IF(ANGLE.LE.90.O) GO TO 40
LEN-I
WRITE(IPR,955) L
FORMAT('
SUN PATH 1,13,' PASSES THROUGH A TANGENT HEIGHT')
CONTINUE
HTOP-ZMAX
GO TO 60
IF("H.LT,HTOP.OR.LEN.EQ.1)
SCATTERING POINT IS AT OR ASOVE NTOP AND L4NmO.
SET.W(K)m0.0 AND CONTINUE
DO SO K-t,K.IX
865
ag0
695
000
105
M1
215
925
2S
20
930
$30
55I
gas
940
SSG
240
SSG
no
SSG
too
SSO
0?O
5300
C
C
105
C
C
PR( L)uPFMOL(COSANG)
LOAD AEROSOL PHASE FUNCTION ARRAY
HENYEY-GREENSTEIN
IF(IPH.NE.O) GO TO 105
PAC(L)=PFHG(GCOSANG)
GO TO 115
CONTINUE
IF(!PH.NE.1) GO TO 110
USER SUPPLIED PHASE FUNCTION
DETERMINE ALTITUDE AND ANGLE INDICES
M-4
IF(HI.LE.30.) M-3
IF(HI.LE.10.) M-2
SSG 985
SSG 990
SSG 995
SSG 1000
SSG 1005
SSG 1010
SSG 1015
SSG 1020
$SG 1025
SSG 1030
SSG 1035
SSG 1040
SSG 1045
DO 106 LL-1,NANGLS
IF(ANGF(H1).EQ.SANGLE) GO TO 115
IF(ANGF(LL).GT.SANGLE) GO TO 107
SSG 1055
SSG 1060
SSG 1065
IF(HI.LE.2.) Mal
100
107
CONTINUE
LPI-LL
110
C
LL-LL-I
CALL INTERP(2,SANGLE,ANGF(LL),ANGF(LPI).PA(L),F(M.LL),F(M,LPI))
GO TO 115
CONTINUE
V DEPENDENT MIE DATA BASE, SAVE SCATTERING ANGLE INSTEAD
SSG
SSG
SSG
SSG
SSG
1080
105
1090
1095
1100
CONTINUE
LOAD AMOUNTS FROM W(K) INTO WPATHS(L.K)
00 120 Kvli.KMAX
WPATHS(L,K)-W(K)
REVERSE SIGN CONVENTION (TO + E OF N) FOR PRINTED OUTPUT
PSIST2m-PSIST
WRITE(IPR.951)L.HI.BETAST,ANGLE,THTSTPS$ST2,SANOLEPR(L)
FOR*AT(IX.13,6(IX,F7,2). (OX.EI0.3))
CONTINUE
SSG
SSG
SSG
SS0
SSG
SSG
SSG
SSG
SSG
SSG
1110
1115
1120
1125
1130
1135
1140
1145
1150
1155
115
C
120
C
951
130
C
C
C
•i•!yBB•v)WWOWM(61)
!•00
PA(L).SANGLE
RESTORE OPTICAL PATH AMOUNTS
IKlMAXUI
KMAXD-i
HISHID
H2•H20
ANGSUN-ANWLE
ANGLvANG0
RANGE&RNOO
SETA'4ETD
LENOLEND
tTYtVEuTO
00 100 Jal.ixMANO
O D6
L•(••Lu!J)SSO
te9 Ki,tKMX
0PA
K3,0)•00"M(4,1)
"a24
9 OPRNT
SSG 1070
SSG 107S
SSG 110
SSG 1160
1les
3170
1175
1110
3385
1190
i3g5
1200
1205
1210
1215
1220
1225
SSG 1210
SSG 1230
SSG
SSG
350
550
SSO
SSG
SSG
SSG
SSG
$S0
SSG
MS
FORWATS
5S5 1240
SG 1245
SSG 1320
000
917
FOR~k4fT(2X.//,' SINL SCAtTERING POINT TO SOURCE PATHS *)
',Pt.3)
VORWV&
SOLAR ItST|H CORRECTION PON MO M *341|
S
1260
3SG 1263
020
025
fOA2ATt2X.'*f*
PORUAW41(/zli
.
C
C
C
"p7
SSG 1050
CSMSLAftV1 POINT-TO5OUACE ANOUN?& #001)
W00HUA?4L.) Ao.3,')
SSG 1255
5
270
$So 3143
i3J
FORMATAT
SG 128
THE SOU
IPOLE, PROBLEM HAS BE
EAPDTO THE EQUATOR')
FORMAT(2XTNETAD > B9.5. OBSERVER ASSUMED TO BE AT THE NORTH
961
SSG 1300
SSG 1305
IPOLF.. PRO1BLEM HAS BEEN REMAPPED TO THE EQUATOR')
RETURN
M5 1310
SSG 1315
END
SUBROUTINE PSIOEL(TNETASPHIS,THETAO.PHIO,PSIPO2,PSIo,DELO,IARBO) PSO
PSO
P30
THIS ROUTINE CALCULATES PSID (THE RELATIVE AZIMUTH BETWEEN THE
PSO
LINE OF SIGHT AND THE DIRECT SOLAR PATH, AT THE OBSERVER)
PSG
AND GILO (THE ANGLE SUBTENOED AT THE EARTH'S CENTER BY THE
PSO
OBSERVER AND THE SUS$OLAR POINT).
PSO
COMMON /PARMTR/ REDELTAS.ZMAXIMAX.EMOO,15MAX.IPATH
PSO
COMMON /CNSfl4S/ P),CA,OEG.GCAIR,BIGNUM.BIGEXP
PSO
DATA EPSILN/I .0-5
PS0
CHANGE CONVENTION FOR PSIPO FROM (EAST OF NORTH) TO (NOATh OF EASTPSO,
P50
FOR COMPUTATIONAL PURPOSES. RANGE IS -180 TO *160.
PSO
PSIPOwOG .0-PSI P02
PE0
IF(PSIPO.GT.l6O.0) PSIPO.PSIPO-360.0
P50
PSO
DPH!.PHIS-PHIO0
950
0TH? .THETAS-THETAO
PS0
THS*TNETAS/OE.G
P50
THYD. THETAOD/Ol
PS0
OP14.DPHI/OEG
PSO
SYS*SlN(YHTS)
PS0
SOO.SIN( THIO)
PSO
CTS.CQS(TNS)
CTOCOS INO)Ps0
C
C
C
C
C
C
C
C
c
'1
SSG 1320
C
C
100
105
110
115
120
125
130
135
140
145
150
155
160
165
170
ITS
IS0
¶85
190
195
200
205
210
215
SOPHR.SINtOPI4)
PS0
COPHISCOStO#¶)
T?5ITA¶4(THIS)
050
P50
224
SO
240
CALCULA~tGE LD, CHEITCFOR SPICIAL CASII%
tFAU(~'i),T.PIL)GO TO 10
pso
PSO
245
250
22S
230
SO
10
C
pso
PS0
260
00TO so
t~tA6S(OTNt),0T.4PSILW) WO TO 30
COLAI IO
tot
C
G4TOto
GENEVAL CASE
950
#so
las
loo
ISO
300
01 P5150 02 05100 MER ARBITRAlRY PS0
sNE4E 611EIT
310
Ot1.wABtDT)
'30
5#OLOL.E'IL)
C
O4IC)% $00 SPECIAL CAME
C
C
VERtICAL OOMAI, PAIN4. P1100 13 AUllV)ARY. tHtS CAME WAS FLA4410
IN 15040 9Y ISIMl1
[ARSO01
c
itT 5
0401401~ AND SUASOL44 P004"comclciO( lo30
Iso
aftvotIS
305
pso5 315
030 3.20
pto 126
OVO5 330
335
240
26S
350
ISS
0%0
IF(0tkO~tO.0.0) 144RL0,IA04W2
#So
11`04960.0Q.O1 to to t0
W60*0O.O.l23 009% PSID DtfINltE. PS100 ARSINMANY. OS350 A0SITIAR?010
PSO
150SAPSItRANY. $tRF(C1VILY.
STH P5S0IVO"D
C
C
40
c
C
OEL0;0
MACULAtt Otto i4#S.IS0,SIPO)
C
265
*70
2ss
tI4EA0040*0.0. 04Eth
0014.4
3$s
1o
UR
CIRCLE CONTAINtNG THE O&MRVER AU
IS OUEt AST-WASt AT I"I OSESVER
0513*0.0050
TE
ttWO
SOLPSO
380
050 3-ES
350
50
C
C
60
C
C
C
C
C
70
80
90
C
C
IF(DPHI.GT.O.O) PSISO-180.0
0o TO 90
IF(ABS(DENOIM).GT.EPSILN) GO TO 60
DENOMINATOR -0.0. ATAN(INFINITY),+90 OR -90
P0D
PSO
PSO
PSO
395
400
406
410
!F(OTHT.LT.O.O) PSzSOO-90.0
00 TO 90
GENERAL CASE
PSISO*DEG*ATAN(ANUMER/DENOM)
ATAN RETURNS ARGUMENTS BETWEEN -90 AND 90. MAY NEED TO CORRECT
NO CORRECTION NECESSARY
IFJDPHI.LT.O.0) GO TO 90
CORRECTION NECESSARY
IF(DPHI.GT.O.O) GO TO 70
OPHI-0.0
PSISO-90.O
*
?F(OTHT.LT.O.0) PSISOu-90.0
GO TO 90
OPHI.GT.O.O
IF(PSISo.GT.O.0) GO TO 80
PSISOwPSISO+180.O
GO TO 90
PSISO"PSISO-180.0
CONTINUE
PSIO.PSISO-PSIPO
RANGE OF PSO IS -180.0 TO 180.0, CORRECT IF NECESSARY
IF(PSIO.LT.-T6O.0) PSIG*PSIO+360.0
IF(PSIO.GT. 100.0) PSIO-PSIO-360.0
PSO
PSO
PSD
PSO
PSO
PSO
PSD
PSO
PSO
PSO
PSO
PSO
PS0
PS
PSO
PSD
PSU
PSO
PSO
Pso
PSO
PSO
PSO
PSD
PSO
420
425
430
435
440
445
450
455
460
465
470
475
480
485
490
495
500
505
510
515
520
525
530
535
540
PSISO-90.O
RETURN
PSO
ENO
FUNCTION SCTANG(ANGLSTTHTST.PSISTIARS)
C
C
C
C
FUNCTION SCTANG RETURNS THE SCATTERING ANGLE (THAT IS, THE
ANGLE BETWEEN THE SUN'S RAYS AND THE LINE OF SIGHT) AT ANY
POINT ALONG THE OPTICAL PATH.
NE.OELTAS.ZAAX. dMAX,|IMOID,IWAX.IPATH
COMMCN /PARMTR/
/CNSTS4s/
PICA.Dl,GC.AIRAIGNM•.IG*•P
coN
C
SUNIENvANOLST/0E4
PTHENuTNTHST/Ota
IC
C
SPECIAL CASES IF PSI IS ARBITRARY
$CTANGmOEG*ACOS(COS4SUNZIt).COS(PYNHZIEN)
*AtU*N
ONTINUE
PSI+PtSI?/OE0
GUNC4AL CASE
p.SIN(UtN) *StINJ VIEN) *.S( PI)*CuS(Swt
5CrA%*NG-*ACOs(X)
AETUAN
Usc
Ei4)*COS( TI4TZm)
415
545
ScT
SCT
SCT
SCT
SCT
SCT
SCr
SCT
SCT
SCT
0OO
105
110
115
120
125
130
135
140
14t;
S:T
tT
SYT
SET
SC?
Sc:
155
160
161
170
ItS
110
SCY
IflIANSEO.0) O0 TO to
C
PSO
SCI
stT
SCY
ISO
to$
t90
osS
200
FUNCTION
c
C
C
I1P|•li),ELO,RETA,IAR0,IARBO)
IF(IARBO.EQ.0) GO TO 5
SPECIAL CASES WHEN PSID 7S ARBITRARY
IAROxIARBOL
JF(IAPBO.EQ.I.0R.IARBO.EQ.3) RETURN
IF(SETA.LE.EPSILN) RETURN
PSI+IS0.0 (MCjýED OUT FROM4 UAOER THE SUN)
IARB-O
PSI-tBo.O
RETURN
PSI
PSI
PSI
PSI
PSI
PSI
PSI
PSI
PSI
PSI
PSI
PSI
PSI
PSI
PSI
PSI
PSI
PSI
105
110
I15
120
125
130
1i5
140
145
i"0
15s
too
i16
17O
175
too
105
PSIORaPSIO/DE0
PTI
200
IARBO0
ANUMERmSIN(DEL0A)*S!N(PSIOR)
DENOM-C-CS(BETAR)ISIN(OELOR)#COS(PSIOR|-$IN(BCTAP)eCO•(09LCI)
PSI
PSI
PSI
205
210
215
SPECIAL CASES
NUMERATOR afUS TO ZERO 1N THE FOLLOWING 3 CASES
DEL04O.0
IF(0DLO.GT,4E5ILN) GO TO 20
IFP(ETA.GT.fEILU) 6.0 TO 1O
IARO-2
•31
RETURN
PSj%0o.0
RETURN
PSI 220
PSI .225
PSI 230
PSI 235
PSI 240
FUNCTION PSI RE'URNS THE VALUE
ZOLAR AZIMUTH RELATIVE TO
S
THE LINE OF SIGHT, AT THE CURRENT SCATTERING LOCATION
COMMON /PA&TR/ RE,DOLEAS.ZMAX,IMAX.IMOO,IwX,IPATH
COMMON /cNSTNS/ PI,CA,OEG.CAIRIIGNUM,BIGEXP
OATA EPSILN/t.OE-5/
SDELOR-DELO/DF0
ELTAR-BETA/DEG
C
C
5
C
C
C
C 1)
to
C 2)
20
C
CONTINUE
GENERAL CASE
PSI40O.0
tF(ABS(PS•Oý.GTEPSILN)
THIS CASt #k 14AS
ý4j
GENERAL CAse
ZALI*
Irplo.L1.0-0) #4
.
"P
*0
PSI
PSI
PSI
250
"55
270
PSI
PtUO
PH
PSI
PS
PSI
PI
Pit
2?5
2U0
20
201
1"
295
300
30
PSI
PSI
PSI
310
320
~0t
AAN
A~CI~IS
315
0151
330
Xi35
Pil
359
sI
iii14
IETONPSI
IJ~~9~PSI
C
T~NI
265
2?0
PSI
PSI
ATO30
THE
.C
c2)
do
245
60 TO 40
C
0 3)
40
190
195
PSI
PSI
SCATYERING POINT 1$ OISECTtY
IAROv2
RETURN
IP(OETA.LT.OILO) PSI*0.
IF(8ETA.T.OELOA 09.$j6O.0
RET UN
PSIOSIRO.0
•oa
.#
T0St0S0,-:.
tP$IL )
TO 40
I SI
1•*a1 Lo.
,
,
'fu;•,...
CON" INut
DERW4INkYOR CANj0
G ZINO f(l l*dZ fOL 0VWQ#I CAUtS
30
t00
Ado
140
S~wS$4
~9
ahO 4Ott5
..
0.%
f4
.15
S
DEL
100
C
DEL
105
C
C
C
C
C
C
C
DEL
FUNCTION DEL RETVJRNS THE VALUE OF THE SUNS Zr.9ITH ANGLE
DEL
AT ANY POINT ALOnG THE OPTiCAL PATH BASED UiPCN STRAIGHT
ANGLE IS USED TO SPECIFY
DEL
LINE GMVETWY (NO REFRACr!ON). THI
THE SCA'TERING POINT TO SUN PATHS, THE BENDING DUE TO REFRACTION
DEL
ALONG THIS P.TH IS DEWYP1INED BY THE GEO ROUTINES. IF THE BENDING DEL
IS GREATER THAN ONE DEGREE THE ZENITH ANGLE IS CORRECTED ACCORDINGOEL
DEL
ANo THE PATH CALCULATION IS REPEATED.
OEL
COMMON /PARITR/
RE.OELTAS,ZMAXIMAXIMPD. "rXX.IPATH
DEL
P;,CA,DEG,GCAIQ,6lGNUM,8IGFAP
COMMON /CNFINS/
DEL
EPSILN/1.0E-5/
DATA
DEL
1FtIARO-.EQ.0) GO TO 10
DEL
DEL
SPECIAL Ct-$SS IF PSIO IS ARBITRARY
FUNCTION DELfPS,O.OELO,8ETA,IARGO)
C
C
10
•i~i•F.TR•DEL
110
115
120
125
t3O
135
140
145
150
M
160
165
170
175
IFf(
IAREO. F. I ) DIEL.DELO
DEL
lf(ZAROO.EQ.2) DEL-BETA
1F(EARBO.EQ.3) DELOO-0
RETUR•'
T
CON INUE
PSIOR*PS!OiDEG
DELOR-OELO/OEG
BETAR-BETA/DEG
GENERAL CASE
X 03 (O•ELOR).COVc
tBTAR).SIN(DE OR) -I
OEL=•cFA•$(X)
DEL
DEL
DEL
DEL
DEL
DEL
DEL
DEL
DEL
DEL
t10
185
190
195
200
205
210
215
220
225
230
OIL
235
END
5,s
8O3
NtSFTAR) -(PS$10)
C
C
C
C
10
"C
C
C
C
C
20
C
C
30
C
C
C
C
C
60
SSR
SSR
100
105
SSR
SSR
SSR
SSR
/CARDI/ MODtL,iTYPE,IEMSCT.M1,M2,M3,IM,NOPRNT,TBOUND,SALB
COMIMON
SSR
IHAZEISEASN,IVULCN,ICSTL.ICIR,IVSA,VISWSS,WHH,
COMMON /CARD2/
SSR
RAINRT
1
SSR
COIAMUN /CkRD3/ HI,H2,ANGLE,RANGEBETA,RE,LEN
6
SSR
),W(16)
RL;.HUM(34),HSTOR(34),ICH(4).VH(16),TX(1
COMMON
SSR
WPATH(68,16),TBBY(68)
COMMON
SSR
COMMON ABSC(4,40).EXTC(4,40),VX2(40)
SSR
COMMON /SOLS/ AH1(68),ARH(68),
MPATHS(68,16),PA(68),PR(68),ATHETA(35),ADBETA(35),LJ(69),JIURNSSR
X
SSR
X ANGSUN
SSR
COMMON /SRAD/ TEB1,TEB2,TASP1,TASP2,TMSPI,TMSP2,TEB2SV
SSR
IF(ITZERO.EQ.1) GO TO 60
SSR
T;:6=TX(6)
SSR
TX7-TX(7)
SSR
IX9=TX(9)
SSR
TX1O=TX(10)
SSR
IF(IPATH-2) 10,20,30
5SR
CONTINUE
SSR
ISKIP - 0
SSR
INITIAL CONDITIONS
SSR
SINGLE SCATTERING RADIANCE SUM
SSR
SUMSSR=O.0
SSR
OPTICAL PATH TRANSMITTANCES
SSR
TASP2=1.0
SSR
TMSP2=I.0
SSR
L PATH TRANSMITTANCE
SSR
TE82=TX9
SSR
MOLECULAR AND AEROSOL PHASE FUNCTIONS
SSR
PMOL?=PR(IK)
SSR
PAER2=PA(IK)
SSR
IF(IPH.EQ.2)
SSR
1 CALL PHASEF(V,AHI(IK),PA(IK),ARH(IK),PAER2)
SSR
RETURN
SSR
CONTINUE
$SR
CURRENT L PATH TRANSMITTANCE
SSR
TZBI=TY9
SSR
CURRENT MOLECULAR AND AEROSOL PHASE FUNCTIONS
SSR
PMOLI=PR(IK)
SSR
PAERIPA(IK)
SSR
!F( IPH.EQ.2)
SSR
1 CALL PHASEF(V,AHI(IK),PA(IK),ARH(IK),PAER1)
SSR
RETURN
SSA
CONTINUE
SSR
CURRENT OPTICAL PATH TRANSMITTANCES
SSR
TASPI)TX'7/TXI0
SSR
TMSPI=TX6
SSR
qTNrI.E SCATTERING RADIANCE CALCULATION
SSR
.OR.TMSP2.EQ.0.O *OR.
IFkTASPI.IQ.O.O .OR. TMSP1.EO,0.0
SSR
TASP2.EQ.0.0) GO TO 50
1
SSR
XAI-PACR1*TEB1/TASP1
SSR
XA2,dAER2*TE82/!ASP2
SSR
XMI .PMOLI*TEBI/TMSP1
SSR
XM2=PMOL2*TEB2/TMSP2
SSR
OTASP=TASP2-TASPI
SSR
DTMSP-TMSP2-TMSP1
SSR
COULD ADD A CHECK FOR SMALL DTMSP,OTASP AND BYPASS CALCULATION
SSR
SUMSSRSUMSSR+.5*(DTASP*(XAI+XA2)+DTMSP*(XMI+XM2))
SSR
TRANSMITTANI.Es
RESET 4 AND OPTICAL PATH
SSR
50 CONTINUE
SSR
TASP2-TASPI
SSR
TEB2SV*TEB2
SSR
TMSP2-TMSPl
SSR
TEB2.TEBI
SSR
RESET PHASE FUNTION VALUES
SSR
PAER2-PAER1
SSR
PMOL2-PMOL1
SSR
CONTINUE
SSR
RETURN
SSR
END
110
1t5
120
125
130
135
140
145
150
155
160
165
170
175
180
185
190
195
200
205
210
215
220
225
230
235
240
245
250
255
260
265
270
275
280
285
290
295
300
305
310
315
320
325
330
335
340
345
350
355
360
365
370
375
380
385
390
395
400
405
410
415
420
425
430
435
440
445
450
455
460
465
LUBROUTINE SSRAD(IPH,IK,ITZERC,IPATH,V,SUMSSR)
SUBROUTTNE SSRAD PERFORMS THE LAYER BY LAYER SINGLE SCATTERING
RADIANCE SUM.
81
C
C
C
C
C
C
C
*.C
SUBROUTINE SOURCE(VVISOURCIDAY,ANGLE.SS)
SAC 100
COMMON /ICLL/
ICALL,FPHS,FALB,FORSIT
SRC *101
SRC 110
SUBROUITNE SOURCE CONTAINS THE SOLAR INTENSITY DATA AS A
FUNTION OF WAVELENGTH. THIS ROUTINE IS ALSO CAPABLE OF CALCULATINGSAC
115
LUNAR INTENSITYBASED ON THE PHASE ANGLE BETWEEN THE SUN, MOON ANDSC
120
EARTH. CORRECTIONS ARE MADE FOR THE SUN'S ELLIPTIC ORBIT.
SAC 125
SAC 130
SRC 135
DIMENSION NDAY(13),RAT(i3),PHS(17),ALB(29),VSUN(210),ESUN(210)
SAC 140
DATA NDAY/1,32,60,91,121,151,181,212,243,273,304,334,366/
SAC 145
DATA RAT/1,034,1.U30,1.019.1.001,.985t.972,.967,.971,.982,
SAC 15O
.998,1.015,1.029,1.034/
1
SAC 155
DATA PHS/100.,73.2,57.8,42.3t32.0,23.3,1.67,12.4,8.7,6.7,
SAC 160
1
4.7,3.6,2.401.2,0.9,0.4,,002/
SAC 165
DATA ALB/.O01,,01t,.03.,075,.,.13,.155,.17,.178,.185,.2,.211,
I
.231,.25,.275,.289,.285,.287,.3..29,.3,.31,.313,.319,.329
SRC 170
I
-. 339,.345,.350,.5/
SAC 175
WAVELENGTH (MICROMETERS) AT WHICH SOLAR INTENSTY DATA IS STORED
SAC 180
SAC 185
DATA VSUN/.1i5,.120,.125,.130..140,.150,.I8O,
SAC 190
SAC 195
I .170,.180,.190,.200,.210,.220,.225,.230,.235,.240,,245,.250,
2 .255,.260,.265,.270,.275,.280,.285,.290,.295,.300,.305,.310,
SAC 200
3 .315,.320,.325,.330,.335,.340,.345,.350,.355,.360,,365,.370,
SRC 205
4 .375,.380,.385,.390,.395,.400,.405,.410,.415,.420,.425,.430,
SAC 210
5 .435,.440,.445,.450,.455,.460,.465,.470,.475,.480,.485,.490,
SAC 215
6 .495,.500,.505,.510,.515,.520,.525,.530,.535,.540,,545,.550,
SAC 220
SAC 225
7 .555,,560,..65,.570,.575,.SBO,.585,.590t.595,.600,.605,.610,
SAC 230
8 .620,.630,.640°.6VO,.660,.670,.680,.690,.700,.710,.720,,730,
9I .740,.750,.760,.770,.730,.790,.000,,810,.820..830,,840,.850,
,.0,.930..990,.960,.960..970,
55,,86
0,.870t.8,.890.9,.90
SAC
SAC
235
240
I .980,.990,1.00,1.05,1.10,1.15,1.20,1.25.1.30,1.35,1.40,1.45,
2 1.50,1.55,1.60,.65,1.70,1.75,1.80,1.85,1.90,1,95,2,O0,2.10,
3 2.20,2.30,2.40,2,50,2.60,2.70,2.80,2.90,3.00,3,10,3.20,3.30,
4 3.4)0,3.50,3.60,J.70,3.80,3.90,4.00,4.10,4.20,4.30,4.40,4.50,
5 4.60,4-70,4.80,4.90,5.00,6.OO,7.0O,8.OO,9.00,lO.0,11.Ot2.0,
8 13.0,14.0,15.O,18.0,17.0,18.0,19.O,20.0,25.0,30.0,35.0,40.O,
7 5O.0,60.0,8O.0,10O.,120.,15t'.,2OO.,250.,300.,400.,1000./
SOLAR INTENSITY IN UNITS OF WATTS M-2 MICROMETER-I
SRC
SRC
SAC
SAC
SAC
SRC
SAC
SAC
SAC
SAC
SAC
SAC
SAC
SAC
SAC
SAC
SAC
SAC
SAC
SAC
SAC
SAC
SAC
SAC
SAC
SRC
SAC
SAC
SAC
SAC
245
250
255
260
265
270
275
280
285
290
295
300
305
310
315
320
325
330
335
340
345
350
355
360
365
370
375
380
385
390
C
DATA ESUN/.007,.9,.007,.0O7,.O3Qt,.O7,.230,.630,
I 1 21,2.71,10.7,22.9,57.5,64.t,66.7,59,3.63.0,72.3,70.4,104.,
2 130.,135.,232.,204.,222.,315.,482.,584ý,.514.,603.,689.,764.,
3 830.,975.,1059.,1081.,t074.,1069.,T093.,1083.,1068,,1132.,
4 1181.,1157.,1120.,1098.,1098. ,1189.1429.,1644.,1751.,1774.,
5 1747,,1693,,1639.,1663.,1810,,1922.,2006,,2057.,2066.,2048.,
J 2033,,2044.,2074,,1976.,1950,,1960.,1942,,1920.,1882.,1833.,
7 1833-,1852.,1842.,1818.,1783.,1754.,1725..1720.,1695..1705,t
8 1712,,1719.,1715.,1712.,1700.,1682.,1668.,1647.,1635.,1602.,157
9 0.,1544.,1511.,1486.,1456.,1427.,.402,,1396.,1344.,1314.,1290.,
1 1260.,1235.,121..1185 .,1159,,1134.,1l09.,085, ,10860,t036.,
I 1013.,990,,968.,947.,926..908.,891.,880.,8669,856.,047.,837.,
2 820o,803.,785.,767.,748.,668..593.,535.,485.,430.,397.,358.,
3 337,,312.,288.,,67.,245,,223,,202.,180.,159.,142.,126,,114.,
4 103.,90.,79.,69.,62.,55.,48,,43.,39.,35.,31.,26.,22.6,19.2,
5 16,6,14.6,13.5,12.3,11.1,10.3,9.5,8.7,7.8,7.1,1¾5,5.92,5.35,
6 4.86,4.47,4.11,3.79,1,82,.99,.585..367,,241,.le,.17,.0851,
7 .0634,,0481,.0371,,0291,,0231,.0186,,0152,6.17E-3,2,97E-3,
a 1,60E-3,9,42E-4,3.91E-4.1,90E-4,6.16E-5,2.576-5,1.260-S,
B 5.23E-6,1.69E-6,7.OOE-7,3,40E-7,1lOE-7,0.o0
V.IOOOO./VV
82
IF(ISOURC.NE.1) GO TO 50
IF(ICALL.EQ.1) GO TO 20
C
C
C
MOON PHASE ANGLE FACTOR
10
C
C
C
20
GEOMETRICAL ALBEDO OF THE MOON
30
40
C
C
C
so
55
60
70
c0
90
C
C
C
100
120
130
140
C
FPHS-0.0
IF(ANGLE.GT.160.) GO TO 20
IP-ANGLE/tO.
IF(FLOAT(IP*10).EOMANGLE) GO TO 10
FPHS-PHS(IP+I)+(ANGL-10.*IP)*(PHS(IP+2)-PHS(IP+I))/1O.
GO TO 20
FPHS-PHS(IP+1)
FALB-0.4
IF(V.GE.5.) GO TO 40
IF(V.GT.2.8) GO TO 30
SIIV*10
FALBDALB(Ii)+(ALB(11+Ih-ALB(I1))*(V-II*0.1)*10.
GO TO 40
FALB.ALB(28)+(ALB(29)-ALB(28))*(V-2.8)/2.2
CONTINUE
SUN ELLIPTIC ORBIT FACTOR
IF(ICALL.EQ.1) GO TO 90
FORBIT=O.0
IF(IDAY.GT.0 .AND. IDAY.LT.367) GO TO 55
FORBIT = 1.0
GO TO 90
CONTINUE
00 60 i.1,13
fF(NOAY(1).EQ.lDAY) GO TO 6O
IF(NDAY(I).GT.IOAY) GO TC 70
CONTINUE
FORBIT-RAT(I-1)+(IOAY-NDAY(I-1))s(RAT(U)-RAT(I-1))/(NDAY(I)
-NOAY(I-1))
1
GO TO 90
FORBIT-RAT(I)
CONTINUE
ICALL, 1
SOLAR INTENSITY
SS-.0O
RETURN
IF(V.LT.VSUN(1).OR.V.GE.VSUN(210))
DO 100 ImI,210
IF(VSUN(I).GE.V) GO TO 120
CONTINUE
IF(VSUN(I).EQ.V) GO TO 130
SS=(ESUN(I)-ESUN(I-1))*(V-VSUN(I-l))/(VSUN(I)-VSUN(t'I))
+ESUN(I-1)eFORBIT
I
00 TO 140
SS=ESUN(I)*FORBIT
SS-SS*FPHS.FALB*2.04472E-7
IF(ISOURC.EQ.1)
CONVERT W/M-2-MICRON TO W/CM-2-MICRON
Ss.SS..0001
RETURfi
END
83
SRC
SRC
SAC
SAC
SAC
SRC
SRC
SRC
SAC
SAC
SAC
SAC
SRC
SAC
SAC
SAC
SRC
SRC
SAC
SAC
SAC
SAC
SAC
SAC
SAC
SAC
SAC
SAC
SAC
SAC
SAC
SAC
SAC
SAC
SAC
SRC
SAC
SAC
SAC
SAC
SAC
SAC
SAC
SAC
SAC
SAC
SAC
SAC
SAC
SAC
SAC
SAC
SRC
SAC
SAC
SPC
SAC
SAC
SAC
SAC
395
400
405
410
415
420
425
430
435
440
445
450
455
460
465
470
475
480
485
490
495
500
50$
510
515
520
525
530
535
540
545
550
555
560
565
570
575
580
565
590
595
600
605
610
615
620
625
630
635
640
645
650
655
660
665
670
67$
680
685
00
SUBROUTINE SUBSOL(THETASýPHIS,TIME,IDAY)
•'''c
C
C
C
C
C
C
C
C
C
C
C
C
C
.4
10
20
30
40
SBS
SOS
100
105
SUBROUTINE SUBSOL CALCULATES THE SUBSOLAR POINT ANGLES
SBS
THETAS AND PHIS BASED UPON IDAY AND TIME. SINCE EACH
SOS
YEAR IS 365.25 DAYS LONG THE EXACT VALUE OF THE DECLINATION
SBS
ANGLE CHANGES FROM YEAR TO YEAR.
FOR PRECISE VALUES CONSULT
SBS
' THE AMERICAN EPHEMERIS AND NAUTICAL ALMANAC'
PUBLISHED YEARLY
BBS
BY THE U.S. GOVT. PRINTING OFFICE.
ALSO, THE SOLAR POSITION
SBS
IS CHARACTERIZED BY 25 POINTS BELOW; THIS SHOULD PREDICT THE SUBSOSBS
ANGLES WITHIN ONE DEGREE.
FOR INCREASED ACCURACY ADD MORE DATA
SBS
POINTS
SOS
SBS
THE EQUATION OF TIME, EQT, IS IN MINUTES
SBS
THE DECLINATION ANGLE, DEC IS IN DEGREES
SBS
SOS
COMMON /MODEL/ ZM(34),PM(34),TM(34),RFNDX(34),DENSTY(16,34)
SBS
COMMON /IFIL/ IRD,IPR,IPU,NPR
SBS
DIMENSION NDAY(25),EQT(25),DEC(25)
SBS
DATA NDAY /1,9,21,32,44,60,91,121,141,152,160,172,182,
SBS
I 190,202,213,244,274,305,309,325,335,343,355,366/
SBS
DATA DEC /-23.07,-22.22,-20.08,-17.32.-13.62,-7.88.4.23,
SBS
1 14.83, 20.03,21.95,22.87,23.45,23.17,22.47,20.63,18.23,B.0,,
SBS
2 -2.88,-14.18,-15.45,-19.75.-21.68,-22.75,-23.43,-23.07/
SBS
DATA EQT /-3,23,-6.83,-11.17,-13.57,-14.33,-12.63,-4.2,
SBS
I 2.83,3.57,2.45,1.10,-1.42,-3.52,-4.93,-6.25,-6.28,-0.25,
SBS
2 10.02,16.35,16.38,14.3,11.27,8.02,2.32,-3.23/
SSS
IF(IDAY.LT.1.OR.IDAY.GT.366)
GO TO 900
SBS
110
115
120
125
t30
135
140
145
150
155
160
165
170
175
180
185
190
195
200
205
210
215
220
225
230
IF(TIME.LT.O.O.OR.TIME.GT.24.0)
GO TO 910
SBS
DO ID Imt,25
SBS
IF(NDAY(I).EQ.IDAY) GO TO 30
SBS
IF(NDAY(I).GT.IDAY) GO TO 20
SBS
I-I-1
SBS
EQTIME-EQT(I)+(EQT(1+1)-EQT(l))*(IDAY-NDAY(I))/(NDAY(I+1)-NDAY(I))SBS
DECANGaDEC(I)+(DEC(I+1)-DEC(I))*(IDAY-NOAY(I))/(NDAY(1+t)-NDAY(I))SBS
GO TO 40
SBS
EQTIFAEwEQT(I)
SBS
OECANG-DEC(I)
SBS
THETAS-DECANG
SOS
EQTIME-EQTIME/60.0
SRS
PHIS-15.O*(TIME+EQTIME)-180.O
.235
240
245
250
255
260
265
270
275
280
290
290
i•IF(PQB.LT.O.O)
PHISuPHIS÷360,O
900
REIURN
WRITE(IPR,9oi)
BID91
WRITE(IPR,902)
STOP
002
FORMAT('
901
FORMAT('
STOP
IDAY
FROM SUBSOL
- IDAY OUT OF RANGE,
IDAY&1,I0)
TIME
FROM SUBSOL -
TIME OUT OF RANGE,
END
84
TIME-l,9t2.5)
SOS
SBS
SOS
SOS
SOS
295
300
305
310
315
SBS
5BS
325
320
SOS
330
SBS
340
SOS
335
SUBROUTINE PHASEF(V,ALT,ANGLE,RHPHFA)
c
C
C
C
C
C
C
C
"C
C
C
C
C
C
C
C
cC
C
C
C
C
C
C
C
C
C
C
C
c
C
999
C
so
I,.
14
1%
t
.8"
RETURNS THE AEROSOL PHASE FUNCTION FROM THE STORED DATA BASE
THE TRUTH TABLE MNUM(27,26) STORED IN COMMON/MNMPHS/
IN SUBROUTINE PHSDTA IS QUERIED TO DETERMINE THE PROPER PHASE
FUNCTION NEEDED.
THE 27 POSITIONS REPRESENT THE 27 SPECIFIC FREQUENCIES SHOWN IN
DATA STATEMENT WAVE .2-40 MICRONS.
THE NUMBERS STORED IN THESE 27 POSITIONS REPRESENT THE CORRECT
PHASE FUNCTIONS CHOSEN FROM THE DATA STATEMENT PHSFNC4S 1-70
POSSIBLE CHOICES.
THE 26 DATA STATEMENTS EACH HAVING 27 FREQUENCIES REPRESENT THE
FOLLOWING 26 MODELS;
80%RH
3-RURAL
70%RH
2=RURAL
ORH
I.RURAL
6-MARITIME 70%RH
ORH
5-MARITIME
99%RH
4-RURAL
ORH
9=URBAN
8aMARITIME 99%RH
7.MARITIME 80%RH
99%RH
80%RH 12-URBAN
70%RH 11=URBAN
10-URBAN
14-OCEANIC 70%RH 156OCEANIC 80RH
O%RH
13.OCEANIC
17-TROPOSPH O%RH 18-TROPOSPH 70RH
16=OCEANIC 99%RH
19*TRUPOSPH 80%RH 20-TROPOSPH 99%RH 21-STRATOSPHERIC
23mFRESH VOLCANIC 24mRADIATION FOG
22-AGED VOLCANIC
26-METEORIC DUST
25-ADVECTIVE FOG
IN THE PRESENT VERSION THE 4 OCEANIC MODELS 13-16
ARE NOT UTILIZED.
COMMON /IFIL/ IRDIPRIPU,NPR
MODEL,ITYPEIEMSCTMIM2,M3,IM,NOPRNTTBOUNO,SALB
COMMON /CAROl/
IHAZEISEASNIVULCN.ICSTL.ICIRIVSA.VISWSS.WHH.
COMMON /CAR02/
RAINRT
I
COMMON/MNMPHS/ MNUM(27,26).PHSFNC(34,70)
DIMENSION RHPTS(4),WAVE(27),ANG(34)
DATA ANG /0.,2.,4.,8.,8.,10.,12.,16..20.,24.,28.,32.,36.t40.
1,50.60.,70,.,8O.,90.,100.,110..120..125.,130.,135.,140.,145.
2,150.,155.,160.,165.,170.,175.,180./
DATA WAVE /.2,.3,.55,.6943.1.0B,1.536.2.0,2.5,2.7.3.,3.2,3.39
1,5.,6.,7.2,7.9,8,7,9.2,10.0,10.59,12.5,15,0,t7.2,18.5,21.3,30.
2,40.0/
DATA RHPTS /0.0,70.0,0.0,99.0/
PHFA0.O
ALAMI,.0E4/V
IF(ANGLE.LT.O.O.OR.ANGLE.GT.¶80.0) GD TO 900
GO TO 910
IP(ALAM.LTWAVE(I),OR.ALAM.GT.WAVE(27))
DETERMINE THE AEROSOL MODEL NUMBER
IF(ALT.GT.2.0) GO TO 95
IF(IHAZE.EQ.7) WRITE(IPR,B99)
FORMAT(I IHAZE.7 INACTIVE, CONTINUING WITH PHFA*O.0')
O0 TO 400
IF(IHAZE.EQ.OOR.IHAZE.EQ.7J
IF(IHAZE.GE.8) O0 TO 90
0-2KM BOUNDARY LAYER MODELS. RH DEPENDENT
DO 50 I111,4
,IN1
IF(RHPTS(I).EQ.RH) GO TO 70
IF(RHPTS(I).GT.RH) 00 TO 60
CONTINUE
PHS
100
PHS
105
PHS
PHS
PHS
PHS
PHS
PHS
PHS
PHS
PHS
PHS
PHS
PHS
PHS
PHS
PHS
PHS
PHS
PHS
PHS
pHS
PHS
PHS
PHS
PHS
PHS
PHS
PHS
PHS
PHS
PHS
PHS
PHS
PHS
PHS
PHS
PHS
PHS
PHS
PHS
PHS
PHS
PHS
PHS
PHS
PHS
PH5
PHS
PHS
PHs
PHS
p1S
PHS
PHS
PHS
PHS
pHS
PHS
110
115
120
125
130
135
140
145
150
156
160
165
170
175
180
185
190
195
200
205
210
215
220
225
230
235
240
245
250
255
260
265
270
275
280
165
290
295
300
305
310
315
320
325
330
335
340
345
350
355
360
385
370
375
380
385
390
60
70
s0
C
C
C
C
C
90
05
C
110
C
C
C
C
C
120
130
C
C
140
IRHLO-Id1
1RHHI8I
GO TO 60
IRHLO-I
I 4RHHX-I
CONTINUE
RURAL MODEL
IF(IHAZE.EQ.1.OR.IHAZE.EQ.2) NNO-O
MARITIME MODEL
tF(IHAZE.EQ.3.OR.IHAZE.EQ.4) NNO4
URBAN MODEL
IF(IHAZE.EQ.5) NNOne
TROPOSPHERIC MODEL
IF(IHAZE.EQ.6) NNO-16
NNINNO+IRHLO
GO TO 130
0-2KM FOG MODELS, NO RH DEPENDENCE
IF(IHAZE.EQ.8) NN-24
IF(IHAZE.EQ.9) NN-2d
GO TO 130
tF(ALT.GT.10.) GO TO 110
TROPOSPHER:I MODEL
2-10KM
NNal8
00 TO 130
IF(ALT.GT.30.) GO TO 120
10-30KM STRATOSPHERIC MODELS
BACKGROUND MODEL
IF(IVULCN.EQ,.O.R.IVULCN.EQ.1) NN-21
AGED VOLCANIC MODEL
IF(IVULCN.EQ.2.OR.IVULCN.EQ.4) NN*22
FRESH VOLCANIC
IF(IVULCN.EQ.3.OR.IVULCN.EQ.5) NN-23
GO TO 130
30-100KM METEORIC MODEL
NN,26
IRH.O
DETERMINE THE BOUNDING ANGLE INDICES
210 1l.1,34
DO
loll
IF(ANG(l).EQ.ANGLE)
IF(ANG(l).GT.ANGLE)
230
GO
GO TO
TO 220
395
400
405
410
415
420
425
430
435
440
445
450
455
480
465
470
475
480
485
490
495
500
5C5
510
51$
520
525
530
535
540
545
530
555
560
565
570
515
580
585
590
P1S
PHS
595
600
210
220
CONTINUE
IANGiBl-C
XANG-2ml
PH$
PHS
pHs
605
640
615
230
GO TO 240
IANGlu!
IANG2-1
pHS
pHs
PHS
PHS
p•HS
PHS
Pits
620
62S
630
635
640
645
650
240
C
C
250
260
CONTINUE
DETERMINE THE BOUNDING WAVELENGTH INDICES
00 250 liat,27
IF(WAVE(l).EQ.ALAM)
IF(WAVE(|).GT.ALAIA)
CONTINUE
IWAV1-I1
WAV2-l
GO TO 280
UO TO 270
00 TO 260
pHs 660
pHS 605
PHsS 67
PHS 675
PHs 6LI
PS Gas
86
IL
PHS
PHS
PH$
PHS
PHS
PHS
PHS
PHs
PHS
PHS
PHS
PHS
PHS
P14S
PHS
VtHS
PHS
P1S
PHS
PHs
PHS
PHs
PHS
PHS
pHs
pHS
PHS
PHS
pHS
PH$
PHS
PHs
PHS
PHs
PHS
PH4S
P1S
PHS
PHS
PHS
270
280
Cc
C
C
C
C
C
C
C
C
C
C
290
310
C
C
320
330
IWAVI-I
IWAV2-I
CONrINUE
FUNCTION PF CHOOSES DESIRED PHASE FUNCTION FROM LOOK UP TABLE
WHERE IWAV IS FREQ. AND NN IS MODEL NO.
MNUM(IWAV,NN)
WAVELENGTH INTERPOLATION ONLY USES PFI1 AND PF21
ANGLE INTERPOLATION ONLY USES PFI1 AND PF12
WAVELENGTH AND ANGLE INTERPOLATION USES PF11,PF21 AND PFI2,PF22.
PFII-PF(NNIWAV1,IANGI)
PF21.PF(NNIWAV2,IANGI)
PF12.PF(NN,IWAVI.IANG2)
PF22,PF(PN,IWAV2,IANG2)
INTERPOLATE IN WAVELENGTH THEN ANGLE
IF(IWAVI.EQ.IWAV2) GO TO 310
IF(IANGI.EQ.IANG2) GO TO 290
BOTH INTERPOLATIONS ARE NECESSARY
CALL INTERP(2,ALAM,WAVE(IWAV1),WAVE(IWAV2),YANOI,
iPFII.PF21)
CALL INTERP(2,ALAM.WAVE(IWAVI),WAVE(IWAV2),YANG2,
1PF12,PF22)
CALL INTERP(2,ANGLE,ANG(IANG1),ANG(IANG2),Y,YANGI,YANO2)
GO TO 330
ONLY WAVELENGTH INTERPOLATION IS NECESSARY
CALL INTERP(2,ALAMWAVE(IWAVI),WAVE(IWAV2),YPFIt,
IPF21)
GO TO 330
IF(IANGI.EQ.IAN02) GO TO 320
ONLY ANGLE INTERPOLATION IS NECESSARY
CALL INTERP(2.ANGLE.ANG(IANGi).ANG(IANGQ).Y.PFli
IPF12)
GO TO 330
NO INTERPOLATION IS NECESSARY
Y.PINNIWAV1,IANGl)
CONTINUE
PHFAGY
C
HUMIOITY DEPENUENCE
GO TO 400
IF(ALT.GT.2.0.OR.NN.GE.17.OR.IRHLO.EO.IRNHI)
I-U(|RH.EQ.I) (0 TO 340
NN*NNO+IRHHI
PHFAI&PHFA
IRHI
GO TO 280
CONTINUE
340
PHFA2-PHFA
CALL INTERP(1,RHRNPTS(IRILO),RHPTS(IR104)I
CPHFAPHFAIPHFA2)
CONTINUE
400
RETURN
900 WRITE(IPR,901) ANGLE
901 FORMAT('OFROM PHASEF- SCATTERINO ANGLE 15 OUT OF RANGE,
.'ANGLE a ',E12.5)
I
STOP
910 WRITE(IPR,911) ALAM
O1 FQRMAT'O0FROM PHASEF- ALAN IS OUT Of RANGE, ALAM u ',E12.5)
STOP
END
C
87
PHS
PHS
PHS
p1s
PHS
PHS
PHS
PHS
PHS
PHS
PHS
PHS
PHs
PH5
PHs
PHS
pH5
PHS
PHs
PHS
PHS
PHS
PHs
PHS
PHS
PHS
PHS
PHS
PHS
PHS
PHS
PHS
pH$
PHS
PH$
PH$
PHs
P14S
p14s
P1S
PH$
Ph4
PHs
PHs
PHS
PHS
PHs
PHs
PHs
PH9
PHS
PHS
PH$
Otis
OHS
91S
PHs
PHS
,PHS
P14
690
695
700
705
710
715
720
725
730
735
740
745
750
755
760
765
770
775
780
785
790
795
800
805
810
615
820
825
830
835
840
845
850
855
860
865
870
875
880
685
890
895
900
905
910
915
920
925
930
935
940
945
950
955
960
96S
970
975
980
M9
C
C
C
C
C
C
100
FUNCTION PF(NNId)
CALL THE APPROPRIATE PHASE FUNCTION
COMMON/MNMPHS/ MNUM(27,26).PHSFNC(34,70)
M-MNUM(I.NN)
PFwPHSFNC(JM)
RETURN
END
PF
PF
PF
PF
PF
PF
PF
100
105
110
115
120
125
130
SUBROUTINE INTERP(INTYPE,X,Xl,XPF.FIVF2)
SUBROUTINE INTERP INTERPOLATES TO OETERMINE THE VALUE Of F
AT X. GIVEN FI AT Xl ANO F2 AT X2.
INTYPE-i FOR LINEAR INTERPOLATION
INTYPEu2 FOR LOGARITHMIC INTERPOLATION
ITYPEmINTYPE
IF(F1.LE.O.O.OR.F2.LE.0.O) ITYPEal
IF(ITYPE.EQ.-2) GO TO 100
LINEAR INTERPOLATION
F*Fi*(X-XI)e(f2-F1)/(X2-XI)
RETURN
CONTINUE
AIsALOG(FI)
A2mALOG(F3)
A*Ai+(X-Xt)*(A2-At)/(X2-XI)
FmEXP(A)
INT
INT
INT
INT
INT
INT
INT
INT
INT
INT
INT
INT
INT
INT
INT
INT
100
105
110
115
120
125
130
135
140
145
1SO
155
160
165
1TO
175
END
INT
165
FUNCTION TNRAIN(RR)
TNR
TNR
TNR
'YNR
TNR
TNR
TNR
too
105
110
115
120
125
130
140
145
170
175
RETURN
CcC
INT
CCC
CCC
CCC
COMMON /CNSTNS/ PICADEG.GCAIR,5IONUM.BIGEXP
COMMQN /CARD3/ HIH2,ANGLE,RANGEl,8TARELEN
CALCULATES TRANSMISSION DUE TO RAIN AS A FUNCTION OF
RRURAIN RATE IN MM/HR
RANGEuSLANT RANGI KM
CCC
CCC
ASSUMES A MARSHALL-PALMER RAIN DROP SIZE O$IS•IRUTION
N(D)*NZERO&EXP(-A*O)
CCC
CCC
A%41.*RR**(-0.21)
OeDROP DIAMETER (CM)
TNR
TNR
INR
TNR
TNR
REAL NZERO
DATA NZERO /9000./
TNR
TNR
ccc
CCC
cc
CCC
CCC
CcC
NZEROu9.R3 (M1-i)
(M-3)
INR
160
135
150
15s
teo
ITNR165
INN
TNR
TNR
041t./90*.#O21
INR
TNR
TNR
INR
TNR
IF(RR.L9.O)TNRAIN.1.
IF(RR.LtO)RETURN
TNRAINuEXPA(PZ*NZEROeIANGO/A**3)
RETURN
STN
88
too
IBS
19o
Igs
200
205
210
215
220
CIA
SUBROUTINE CIRRUS(CTHIK,CALT,ISEED,CPROD)
CIA
C.****54.**0.0o.$o*s.'*..*.'*o***o*.*te'e*o**"'Se.So'**S****o*o'*'*
'I
C* ROUTINE TO GENERATE ALTITUDE PROFILES OF CIRRUS DENSITY
V.J. POST
C* PROGRAMMED BY
-NOAA/MPL
Cs
R.A. RICHTER
BOULDER, COLORADO
C*
Cs
01/27/1981
Cs
C* INPUTSI
CIRRUS THICKNESS (KM)
CHTIK
C*
Cs
0 - USE THICKNESS STATISTICS
C*
.NE. 0 - USER DeFINES THICKNESS
Ce
CAL?
- CIRRUS BASE ALTITUDE (KNM)
Cs
Co
0 - USE CALCULATED VALUE
CIA
CIA
CIR
0*
CIR
** CIA
0
CIA
**
CIA
so CIA
s* CIR
*'
CIA
so CIA
so CIA
so CIA
Cs
C*
C*
C.
C:
Co
Ce
CIR
se CIA
so CIR
so CIA
so CIA
*0
CIR
a'
CIR
s* CIR
*e
CIA
00
CIR
4* CIA
so CIA
so CIA
so CIR
so CIR
'o
CIA
a*
CIA
Cs
-,
.RE. 0 v USER DEFINES BASE ALTITUIAE
C'
C'
C*
C'
C'
C'
Ce
CC
C&
C*
C*
C*
C'
**
*
s' CIA
0
ICIR
-
CIRRUS PRESENCE FLAG
0 - NO CIRRUS
.NE- 0 * USE CIRRUS PROFILE
MODEL
-
ATMOSPHERIC MODEL
1-5 AS IN MAIN PROGRAM
MODEL - 0,6,7 NOT USED SET TO 2
C.
Ca
so
ISEED
OUTPUTS1
CTHIK
CALT
DENSTY(14.I)
CPRG5
Co
RANDOM NUMBER INITIALIZATION FLAG.
0 a USE DEFAULT MEAN VALUES FOR CIRRUS
.NE. 0 v INITIAL VALUE OF SEED FOR RAMF
FUNCTION. CHANGE SEED VALUE EACH RUX FOR
DIFFERENT RANDOM NUMOER SEQUENCES. THIS
PROVIOES FOR STATISTICAL -ETERMINATION
OF CIRRUS BASE ALTITUDE AND THIC"4SS,
-
-
CIRRUS
CIRRUS
ARRAY,
CIRRUS
o* CIA
THICKNESS (KM)
'.
BASE ALTITUDE (KM)
so
ALTITUDE PROFILE OF CIRRUS O(#SITY*%
40
PROBABILITY
so
CIA
CIA
CIA
CIR
CIA
SCIA
C
C
C
MODEL, ITYPC.IEMCTM1.M2,M3,IM,NQiRNT.TIOJNDSALI
COMW-ON
/qARDt/
COMMON /CA4D2/
I4AZEiSEASNIVULtN,ICSTL.tCIRIVSAVIS,MSSWMNH.
RAINRY
I
COMMON RELHUM(34).HSTOR(34),ICH(4).VH(IS),TNX(IOh)M(t)
COAMMN /CNRL/ KMAX,M,IMAXNLMLIKLOISSGOf
COitMON /CARDA/ VtV2,Ov
CONMON /MODEL/ A (34),PM(34).TM(34),RFNOA(34).DENSY(16,34)
DKOLNSION COASE(S,2),TS•AT(il),AT6A(5).CAMtANt()
DIMENSION CBASEt(S),COASE2$C)
EOUIVALENCE tCSASEI(I),COASE(l.I))dCiASE2(t),CSASI(I,2))
DATA.
DATA
DATA
DATA
CAVIAN
PTAU
CeASEl
COASE2
0.0, 640, 7,O, 5.0 /
/ 0,0, 0,4, 0.5, 0.45., 0.4/
/ I.5, 1,3, 4.5, 4.5, 2.5 /
/16,S,13,S,14,0, 9.5,10,0 /
/ 11.0,
/ .,O.201..5O9. ,S5..64,,.692,
DATA TSIAT
. 0.920. 0.g00, 0.02, 1.00 /
89
CIA
CIA
CIA
100
105
110
115
120
125
130
135
140
145
150
5S5
IGO
105
170
17S
160
165
190
195
200
208
210
215
220
225
230
235
240
245
250
255
260
265
270
275
280
265
290
295
300
CIA
CIA
CIA
CIA
CIA
CIA
305
310
315
320
3263S0
335
340
34S
CIA
CIA
CIA
CIA
CIA
35%
380
35t
310
375
CIA
CIA
CIA
CIA
CIA
350
360
us
310
C
C
SET CIRRUS PROBABILITY AND PROFILE TO ALL ZEROES
CPROB - 0.0
MOL - MUDEL
C
00 10 1.1,34
DENSTY(16.I).0.
10
C
C CECKIF SSRWANTS TO USE A THICKNESS VALUE HE PROVIDES, CALCULATE
A STATISTICAL THICKNESS, OR USE A MEAN THICKNESS (ISEED *0).
DEFAULTED MEAN CIRRUS THICKNESS IS 1.0 KM.
C
C
C
C
C
C
C
C
C
IF ICTH!K .GT. 0.0 ) GO TO 25
IF CISEED .NE. 0 ) GO TO 15
CTHIK - 1.0
Go TO 25
CALCULATE CLOUD THICKNESS USING LOWTRAN CIRRUS THICKNESS STATISTICS
NOTE - THIS ROUTINE USES A UNIFORM RANDOM NUMBER GENERATOR
FUNCTION (RANF) WHICH RETURNS A NUMBER BETWEEN 0 AND 1.
TNI3 FEATUAE IS MACHINE DEPENOENTI!
15
C
C
C
C
C
C
CALL RANSET(ISEEP)
URN - RANDObJ(IOUM)
DO 20 1 a 1, 10
IF (URN .GE, TSTAT(I) .ANO. URN .0.. TSTAY(1+1)) CYNIK *1-1
20 CONTINUE
CINIK a CTNIK / 2.0 + RANOOM(IZUM) I2,0
DENCIR IS CIRRUS DENSITY IN WM-1
25 OENCIR a 0.07 * CTH!K
BASE HLIG14T CALCULATIONS
IF i WIOE. .LT. I
OQR. MODEL -07. 5
CPROO w 100.0 9 ATA(O(WOL
C
C
c
10MAA * COAS~tMOL,21 - CTHIX
BRANGE , WMAX - CRASEIAM.L1)
It
CALl QOT.!.0
00D TO 27
if I SEED .Nt. 0 vGO TO 20
CALT ix CAMEN(MDlk)
Go TO a?
SCAL?
BIP.HG6 * ANUOA4IWOM)* CSASE(MOL I)
1:
PUT CIPRVS OCNSIVY N~ C04ACCI ALTITUDE SINS. IF 4O~lEL *
CI.NTIRPOLAtI 8406@.11 FOO iQ-SANOAO ALTITUDE
~OIWUA,494$
2?
C
C
C
C
VOML *2
I$(UODEi.
to. 7) 1;0 To 60
00 301
2. 14
MIF XtE. IVI *A4. I ML. 1V2) OMSTV(1;.I.I)
"
"
.
~'fUt
AOJUW;T FIRST Alto LAST CIRRUS LEV"L IF CLOU0 DESi
PILL EACH LEVOL,
90
bmiq~
kOf INTIRELY
CIA
CIA
CIA
CIA
CIA
CIA
CIA
CIA
CIA
CIA
CIA
CIA
CIA
CIA
CIA
CIA
CIA
CIA
CIA
CIA
CIA
CIR
CIA
CIR
CIA
CIA
CIA
CIA
CIA
CIA
CIA
CIA
CIA
CIa
CIA
CIR
CIA
CIA
CIA
CIA
CIA
CIA
CIA
CIA
ClIA
CIA
CIA
CIA
CIA
C~l$
395
400
405
410
415
420
425
430
435
440
445
450
455
460
465
470
475
460
405
490
495
500
505
510
516
520
525
530
535
540
545
550
555
560
g05
570
575
560
SOS
590
595
G00
605
$t0
M1
620
025
630
635
CIA
CIA
CIA
CIA
CIA
CIA
cgs
400
9Ot5
670
676
co0
CIA ES&
IHGTI
. INT(
690
CALT )CR
CIA
CIR
CIA
CIA
CIA
CIR
CIA
700
700
705
710
715
720
725
ZUIN - (1
ZMAX a Z(1+1)
DENOM • ZMAX - ZMIN
DENCIR
D
IF(BOTTOM.LE.ZMIN ,AND. TOP.GE.ZMAX) OENSTY(06,I)
TOP.LT.ZMAX)
IF(BOTTOM.OE.ZMIN .AND.
OENSTY(16.1) a DENCIR * CTNIK/OENOM
*
TOP.GE.ZMAX .ANO. SOTTOM.LT.ZMAX)
IF( OTTOM.GE.ZMIN .AND.
OtNSTY(16.1) - OEN.IA * (ZMAX - BOTTOM)/ DENOM
*
IF(BOTTOM.LTZMIN .AND. TOP.LE.Z•AX .ANP.TOP.GT.ZMIN)
ENM
OENSTY(IG..) * OEMIR * (TOP - ZMIN) I
D
TO CONTINUE
RETURN
aw
CIA
CIR
CIR
CIA
CIA
CIR
CIA
CIR
CIA
CIA
CIA
CIA
CIA
CIR
CIA
CIR
CIA
CIA
CIR
CIA
CIA
CIR
CIA
CIA
730
735
740
745
750
755
160
765
770
775
760
78S
790
795
Boo
605
s1o
015
820
825
830
035
640
645
FUNCTIO-4 RAKAO.3(I04UN)
AANF 15 A UNIFORM RANDOM NKUKh|R GORERATOR WHICH RETURNS A
NUMPER SEYtIEEN 0 AND 1.0. Qw iF s MAglkt OIPINaguy.
0A'lO0HRANF()
PETUCN
.R00
goo
0O0
li.0
too
100
10S
$t0
ItS
140
C
IHGT2 - INT( CALT
IF( 1H1T1 . NE . IHGT2 ) GO TO 35
DENSTY(16,IHGTI+1) m OENSTY( 16,IHGTI+i)*CTNIK
36 RETURN
CALT - IHOT1 )
PCTI 2 1.0 35
- OENSTY(1t.IHGTII)
OENSTY(16,HGTI+l)
PCT2 a ( CALT + CTHIK) - IK4T2
* PCTJ
- OENSTY(16,lHGT2+1)
* PCT2
OENSTY(16.1HGT2+t)
RETURN
C
C
C
INTERPOLATE DENSTY(16.1)
FOR USER SUPPLIED ALTITUOE ROUNWAIES
60 TOP - CALT + CTHIK
BOTTOM e CALT
IF (TOP .LT. Z(1)) RETURN
IF (BOTTOM .GT. Z(ML)) RETURN
- 1
IML70- ML
1-1.16ý
00
CO
co
,_!•
'91
4
C
C
c
C
C
C
C
C
C
C
C
C
C
c
C
C
C
SUBROUTINE
MARINE(VIS.MODEL.WS, IH,ICSTL,BEXT.ABSINL)
THIS SUBROUTINE DETERMINES AEROSOL E.T & ABS COEFFICIENTS
FOR THE NAVY MARITIME MODEL
COOED BY STYJ GATIHMAN
NRL
INPUTSMSS - CURRENT MIND SPEED (M/S)
WHH a 24 HOUR AVERAGE WIND SPEED (M/S)
RHH a RELATIVE HUMIDITY (PERCENTAGE)
VIS a METEOROLOGICAL RANGE (X(M)
ICTL * AIR MASS CHARACTER I a OPEN OCEAN
10 a STRONG CONTINENTAL INFLUENCE
MODEL * MODEL ATMOSPHERE
OUTPUTSBEXT a EXTINCTION COEFFICIENT (NM-i)
BABS v ABSORPTION COEFFICIEN#T (KM-I)
C
COMMON /MART/ RHN
COMMON /IFIL/IRD.IPR.IPUNPR
COMMON /CNSTNS/ PICA.DEGGCAIRDIGNUM,IGIEXP
COkNON/A/YiQEXT(40.4).T2QEXT(40,4) .T3QEXT(40,4),
TIQABS(40.4).T2QABS(40.4),T3QABS(40,4),ALAM(40).AREL(4)
COMMON/AER/Al. A2, A3
DIMENSION MSPD(8). sjXT(4,40),
8ABS(4,40)
DIMENSION RHO(S)
DATA MSPO/6.9. 4.1. 4.1. 10.29, 6.69. 12.35, 7.3, 6.9/
DATA RHO/80., 75.63. 76.2. 77.13, 75.24, 60.53, 45.69, 94./
PISC a P1/1000.0
WRITE(IPR,090)
C
C
C
10
C
CHECK LIMITS 0F MOODL VALIDITY
RH a RAH
IF(RHH.GT.0.) Ga TO I0
RHvlH0(MOOELt )
IF(WS.QT.20.0) WS20.
FMuN,GT.20.0) wt4 £ 20.
lF(RHX~t.gT.9
) RH * 98.
IF(Rb.0.T50.0,ANO.Rl4,Gf0.0) RH * SO.
|IV(ICSTJ.LTI.OR.|CSTY.GT.'O) ICSTL * 3
FIND SIZE DSTRISTUTION PARAMETEIS FROM MEtMLY IMNPUT
Ift201.Lk,0.) WR(TEIttPn,20)
IF|WH t.E. 0.0) UN a vSPO(•MOOL
IPw.L..WRIYC(IPI.9301
I•(+S,•.,,)
I)
1
CCASTONI;
~l~l|•~q3)WAR
MAR
MAR
MAR
MAR
MAR
MAR
MAR
MAR
MAR
MAR
MAR
MAR
MAR
MAR
MAR
MAR
MAR
MAR
MAR
MAR
MAR
MAR
MAR
MAR
MAR
MAR
MAR
MAR
MAR
MAR
MAR
MAR
MAR
100
105
110
115
120
125
130
135
140
145
150
155
10
165
170
175
180
185
190
195
200
205
t10
215
220
225
230
235
245
245
250
355
2-0
MAR
265
MAR
MAR
MAR
MAR
MAR
MAR
MAR
MAR
MAR
MAR
MAR
W
MAR
MAR
3Cs
I IS A RIELATIVE tfU*0101"
Ot.F.OWINI GWITN
TO Nti ATTNUATIrNlo• tfPICI!Nt"
•.(
Al*Z000,0.*tCSL*ICSTI.
A2 *
*3 *2
c
I
ondY
340
.MA
C
C
C
270
275
280
205
290
295
300
305
310
31s
320
325
330
:t.•HiO0.t[•.{
|.#HtOO
•lC"9t|•
VAA
Mao
**a
35s$
360
36S
310
} }**0333MA•R
I
0.,S)
i.t-61
a
WAR
379
O
3t3
MARnso
FIND EXTINCTION AT 0.55 MICRONS AND NORMALIZE TO 1.
C
C
C
c
INTERPOLATE FOR RELATIVE HUMIDITY
40
42
C
C
0o 40
J-2,4
IF(RH.LE.AREL(J)) GO TO 42
CONTINUE
DELRHtAREL(j)-AREL(J-I)
DELRHV*RH-AREL(J-1)
RATIO.DELRHV/OELRH
OQ.1TI0EXT(4,.J-1)+(TIQEXT(4,j)-TtQEXT(4,d-t)).RATIO
QE2-T20EXT(4,.J-I)+CT2QEXT!4,J)-T2Q0XT(4.J-1))ORATIO
QE3aT3Q0EXT(4,d-1)+(T3QEXT(4..)-T3QEXT(4,J-1)).RATIO
TOTAL a Ati10.**QEi + A2*1O.e*QE2 + A3a*10.0
3
EXTSS-PISC*TOTAL/F
IF METEOROLOLICAL RANGE NOT SPECIFIED.FIND FROM METEOR DATA
IF(VIS.LE.O.) VIS-3.912/(EXT55+0.01159)
CC1 ,/EXTSS)*(PISC/F)
Al -C*Al
A2-COA2
A3oC*A3
C
C
C
CALCULATE NORMALIZEO ATTENUATION CZOFlCIEi4TS
DO 45
1-1,40
T1XV * YTQEXT(I,J-1)
-2XV
- T29EXT(*.J-1)
* (YtQEXT(I,,J)
*
- TIOEX1(T.4pt))*RATIo
(720EAT(I.4) -
TaOcXr(t.•-t))AATIO
.3XV
1TAV - T3OEXT(I.j-1)
1IQAUS(IJ-1) ** (739EXTO,d)
(TIOABS(I.J) -- T3QEAT(I.41))*QAlIO
TlOA8S(ZJ-i).RATl
TWAVa Y2QAtS(.,J-I)
(V2OA55$,,J) -72A85(I.4-t))'RAIU)
T3AV v T30ASS(Ij-1) 4 tT3QA8SfiJ) PaX•(NL.1).Al.1O**(TtXV)*A2.1g..CT2XVI.A).tO..tT•XV)
8At$NL.j.AtJ*it*ZO*'cI
45
4U
535
MAR 540
MAR 54S
MAR 550
W3QAS(1..J-l)).RAYIO
MAR
S55
MAR
GOo
MAR 560
510
?
"10
sW
MAR
U
US kof S-ottl1 0. A DEPAukI vAtut is Ustol)
94 NOT SPACIPhIKA. A OlfAALt VALUI IS UUtO')
VA
ORf
Rksh
0
613
420
tl0.*f~AIRMS
.3
MAR
395
400
405
4t0
415
420
425
430
435
440
445
450
455
460
465
470
47S
4-0
485
490
495
500
505
510
515
520
525
53Q
WAR
WA
0*ACQItAlV)O
90 FGAW4TV0
OU F44MAT('O
-II
(t3&v)
O.NTINUE
tVRITU
S0IpasoviE
EYLMAR
49
*x*
V)4.A3.14tI•&V)4.•j*tQ
MAR
MAR
MAR
MAR
MAR
MAR
MAR
MAR
MAR
MAR
MAR
MAR
MAR
MAR
MAR
MAR
MAR
MAR
MAR
MAR
MAR
MAR
MAP
MAR
MA"
MAR
MAR
MAR
O
C14kARADIYV
SUBROUTINE LAYVSA(KTMPDP.RH,AHAZE.VISt.IHA1,ISEAI.IVULI)
THIS SUBROUTINE RESTRUCTURES THE ATMOSPHERIC PROFILE
TO PROVIDE FINER LAYERING NEAR THE GROUND FOR USE WITH
THE V.S.A. OPTION - IT RETURNS PRESSURE,TEMPERATURE,
AND AMOUNTS TO SUBROUTINE NSMbI.
COnEING BEFORE 100 CoNTINUE IS FOR STANDARD MODELS
C
C
C
C
C
C
C
C
CODEING AFTER 100 MERGES MODEL 7 WITH V.5.A.
MODELO AND IVSA-1 NOT ALLOWED
COMMON /CNTRL/ KMAX.M.IKMAXNL.MtL,IKLO.ISSGEO
COMMON /MODEL/ Z(34)
MOOELITYPEIEMSCT.MIM2.M3,IM,NOPRNTTBOUND.SALS
COMMON /ZARDI/
INAZEISEASN.IVULCNICSTL.ICIRIVSA.VISMSS.MNM.
COSJON /CAR02/
RAINRR
I
COMMON /MDATA/ZM(34),P(34.7),T(34,T,IhH(34.TL)WO(34,7),
X HMIX(34)
CO•MAON /ZVSALY/ ZVSA(IO).RHVSA(IO).ANVSA(IO),INVSA(IO)
COMMON/NSINP/AINP(?.24)
COMMON /IFIL/IRD.IPR.IPU.NPR
TMPN(34),DPN(34).RHN(34).kI*4134.ANAN(34)
DIMENSION ZNEM(24)
OATA ZNED/1.,2..3.,4.t5..,..,S.,S..lO..tt..l2..
C 14..1L..tS..20.,22.,25.,30.,3I.,4Q.,50..tQ,,i00./
ISAVSAZV.A(9)
FLt.jE,0O.MDI.A~lGG TO i00
.LS
.LV
TMPO.
DP0,
D
&idob
",VS
"DIMENSION
w(KJ)4:
.
i*?.*
toLYS
IVULIO
1P4I4.0I.91 (w 14
A!l,.
LVI 100
LVS 105
LVS 110
LVS 115
LVS 120
LVS 125
LVS 130
LVS 135
LVY 145
LVS 150
LVS .151
LVS 155
LVS 160
LVS t65
LVS .17Q
1tT)
LV$
LYS 100
LVS t85
LVS ISO
LVs 195
LYS 200
LVS 205
LVI 210
kVy 215
LNS 220
225
230
LVS 235
240
tLVI 245
LS 250
LYS 255
LVS 280
vs263
270
LVS 375
LVI 260
LVS 205
L VI 21 0
R
-.
IF•TQ
300
•LVY
.
'"IVI,•.t
305
4LVYOMVS
If1ltJ0)0.OI
LYS
LVI
310
315
330
1330
I~iaEVA.Y.2)WL33LYS
I-VS Ito
tS."W~~I0L
t*tt~*
110.10 IDZtK.Zbt
1o13k ?C101k
043L1VR&
L kyi
:aI Int0.tA4
C
C
WC
to0
kliM LAVEfhRS
COWh1
.SAIOO
VI
LYS
VI
LYS
LVI
390
us
345
its
340
LV%
1-V
360
343
SZVSA(I
0)=ZVSA(9)÷0.01
4
110
115
wz.•
LVS
395
RHVSA(10)=O.
AAHVSA(10)=o.
LVS
LVS
400
405
IHVSA(10)=O
LVS
410
:ML=Ml.
LVS
415
IF(MOOEL.EQ.O)WRITE (IPR.900)
IF(MODEL.EQ.O)RETLRN
IF(K.GT.1) GO TO 200
.L.LML+10
IF(ML.GT.34 WRITE(IPR,910)
IF(ML.GT.34)ML-34
J.1
KN-1
L-1
IFK%.0T.!0)GO TO 140
dL-J-1
IF(JL.LT.l).JL,JP*4L+t
IF(ZVSA(KN).EQ.AINP(I,JL))GO TO 150
IF(ZVSA(KN).CQ.AINP(t,.JP))GO TO 150
IF (ZlSA(KCi).GT.AINP(t.JL).AND.ZVSA(KN).LT.AINP(1,P))GO
Go To 140
Z(L)AZV$A(KN)
DIF.AINP(1.JP)-AINP(t .JL)
OZ-ZVSA(4N)-AINP(I,JL)
-NOZji~Ip
P(L,7-t1AINP(2,JP)-AINP(2,JýL)*OLIN+AINP(2,JL)
ICL.?) e.
-MPN(L),(AINP(3.dP)-AINP(JJL)).OLIN.AINP(3,JL)
I....
.,.J•
P
.•
0R)ACNP
3.JL.0LIN+A7NP(4,0L)
HiN
)
LVS
LVS
LVS
LVS
LVS
LVS
LYS
LVS
LVS
LYS
LVS
LVS
LVS
LVS
LVS
LVS
LVS
LVS
LYS
LYS
•Lv
kVS
LVS
LVS
LS
LVS
420
425
430
435
440
445
450
455
460
465
470
475
480
485
490
495
500
505
510
515
520
525
530
535
540
545
LYS
150
LI'S
560
LVS
565
tV$
LVS
LVS
rsiM
6V0
TO 115
•(L,7)-(AYNP(6.,JP)-liNPý(7,JL).}.ULIN+AINP(6,dL)
W
...
HN(L),tHVSA(KN)
00AHAN'
t122
•;';•
AHV54(KN)
P( L, T,)a tItIP'2,Jl.I
AJ U•2. 00) /A|INP (2,JL)
FAC
I(IP3J)L,,OO,•3•)L,
GO TO 124
t:H(LYS
? MP'd[f,}A|N4(3,.A )* (A AN(
,vP I/Al-UP(3,J |)..FAC
1? tF$(4
F%40
|NP(4,d•*,t !,QL0N
t/rl
il {JP).
AN
44,)L-.LE..)*-A f
2
I , JL)
Jbt"N=
00
Sao
590
V
v
I.5
660
LYS
610
LVL•
12
OT
30LS-1
•-420
1..
'AIU %.
2
00M13
thP(.
IM
114VELYSWi
A1tPj3
I
. 1t)
FA
Y
3
145
WH(L,7)-AINP(6,J)
WO(L,7)-AINP(7,,d)
INN(L)-0
IF(KN.LE.9) IHN(L)&IPVSA(KN)
AHAN(L)-O.
IF(KN.LE.9) GO TO 160
IF(J.E9.-JL)GO TO 200
IF(L.EQ.ML)GO TO 200
L-L+I
150
160
200
JdJ+l
GO TO 110
ML-ML-I
dIjdJl
GO TO 115
KL-KN-I
IF(KL.LE.O)KL-1
KP-KL+I
01FoZVSA(KP)-ZVSA(KL)
OZ.AlNP(1,J)-ZVSA(KL)
OLIN-DZ/DIF
AHAN(L)-(AHVSA(KP)-AJVSA(KL)).OLZN.AHVSA(KL)
GO TO 145
TMPOTMPN(K)
V1SIMO.
ISEAI-0
IVULI-0
OP-DPN(K)
RH, RHN(K)
IHAwIHN(K)
AHAZE-AHAN(K)
RETURN
9000'
FORMAT('
ERROR Wk•IDL 50O0-AND ARMY M•nEL CANNOT MIX')
.•MAT(-t
ER1A L.Gt 24 AND ARMY MODEL TOO I.AER TRUNCAM01t)
E2FND
S!I0
C
NsRuUUTINE RONSM(MLo 1)
C
?HIS SUI8O~ltlNl REAMS WDOEL 7 OATA WtHENi
JSVA EQ I
C
COWN/NSINP/AINP(7,24)
COWAIN
.
')N I IN
690
695
700
705
710
715
720
725
LVS
730
LVS
LVS
LVS
LVS
LVS
LVS
LVS
LVS
LVS
LVS
LVS
LVS
LVS
LVS
LVS
LV$
LVS
LVS
LV$
LVS
LVS
LVS
IVS$
L$•
LV$
735
740
745
750
755
780
765
770
775
780
765
790
795
800
805
ae0
615
820
825
830
035
840
J45
650
ROm
mou t.00
05
Rmo ItO
Rom IIS
ai0e. t
*04~:R~~,1UIP
12
00 20 10,00)(AINP(61).
-ImIL
READ.(
I) *,7)
29
LVS
LV$
LVS
LVS
LVS
LVS
LVS
LVS
ROK 130
RON
OW•0140
-I
R
#•bllkROMl
145
155
06
SUBROUTINE VSA(IHAZE,VIS,CEILHT,DEPTHZINVHT,Z,RHANAZE,
C
C
C
C
C
C
€
C
SC
•
***VISIBILITY
Sc
zC
T
zZNV
C
C
C
C
C
C€
C
C
C"
C
SC
•-.C
1
IS ASSUMED TO
AE
THE SURFACE VISIBILITY***
VSA
165
VSA
VSA
VSA
VSA
VSA
VSA
VSA
VSA
VSA
VSA
VSA
175
104
185
190
195
2900
205
210
215
220
225
VSA
VSSA
VSA
VSA
VSA
VSA
VSA
VSA
VSA
230
235
240
245
250
255
260
265
270
CLOUD DEPTH
CEILINGINHEIGHT
N M
-C40UD
M I
INVERSION HEIGHT IN M
SEE BELOW FOR MORE INFORMATION ABOUT ZC, IT,
AND ZINV
'B-aNITIAL EXTUNCTION AT THE SURF:E (CONT312/VIS)
ZALGO
THE DEP T OF THE LAYER FOR THE ALGORITHM
CLYPUT AROM VSAS
Z
a HEIGHT IN KM
kH
a RELATIVE HUMIDITY AT HEIGHT Z IN PERCENT
AHAZE a EXTINCTION AT HEIGHT Z IN KU40-1
I'
HMAX
AEROSAL
B
TYPE FORIN HEIGHT
•MAXIMUM
HEIGHT
KM USEDZ IN VSA,
2.0 KMIVSA
VSA
275
280
VSA
290
235
VSA
VSA
VSA
VSA
295
300
305
310
HERE 'A'
#Z' IS A
THEFUNCTION
HEIOHT OF
AT ZuO.O AND IS ALWAYS POSITIVE, VSA
IN EXT55
KILOMETERS,
VSA
'5' AND 'C' ARE FUNCTIONS OF CLOUD CONDITIONS AND THE SURPACVSA
VISIBILITY (EITHER A OR 5 CAN GE POSITIVE 0R NEOATIV[), VSk
'EXT55' lb THE VISIOILE EXTINCTION COEFFICIENT IN Ild1s-l.
VSA
VSk
THEREFORE, THERE ARE 4 CASES OEPEND114G ON THE SIGNS OF 1S' AND 'C'VSA
CEILHT AND ZINVHY ARE USED AS SWITCHES TO DETERMINE WHICH CALSE
VSA
USE.
TOIESURFACE EXTINCTION
I0
S CALCULATED FROMITHEVA3S
VISIBILITY USING D,3.912/VIS-O.012
THE YOUR CASES A09 AS FOLLOMSVSA
VSA
CASE, I
FOG/CLOU0 CONDITIONS
VSA
'0' LT 0.0. 'C' LT 0-0
VSA
320
315
325
C
€
C
C
C
C
C
C
¢
THE SLANT PATH CALCULATION USES THE FOLLOWING FUNCTDONA
tXT5SoA*EXP(G*EXP(C*Z))
C
~TO
101 GE T.064 fKMov-1
FOR A CLOUD 7,064 KMo*-i
THE CLOUD BASE ANO
1411
97
-.1
NOT NECESSAR1LY
C
S•C
•';•T4
150
155
160
VAiAbLES USED IN VSA
C
C
C
C
SC
VSA
VSA
VSA
ENSITY NEAR THE GROUNDIINCLUDNNI
IAZE - THE TYPE OF AEROSOL
ViS
a VISIBILITY IN KM
CEULPT - THE CLOUD CEILING HEIGHT IN KM
DEPTF
THE CLOUD/FOG DEPTH IN KM
Z
ENVHTTHE HEIGHT A
OF INVERSION OR BOUNDARY LAVER IN-Kd
C
C
""
KN AND 2 KM
ARMY)
THESE PROFILES ARE AT 9 HEIGHTS
I
BETWEEN
E
C
F
C
C
C
C
C
100
105
140
180
120
125
130
135
140
145
CREATES A PROFILE OF AEROSOL
CLOUDS AND FOG
C
H)
VSA
VSA
VSA
VSA
VSA
VSA
VSA
VSA
VSA
VSA
VERTICAL STRUCTURE ALGORITHM
V
BNC
CFROM ATMOPHERIC SCL ENCESILAN (U.S
WHITE
NHC SANDS N.O.
IS
IS THE ISOUNDARY VALUE AT
THE VERTICAL O|$YA*Cl
YSA
VSA
VsA
330
335
340
34D
350
360
365
370
375
300
365
380
-C
INTO THE CLOUD.
S€
C
C
C
C
C
C
•,*••C
VSA
395
VSA
400
CLOUD CEILING PRESENT
'S' GT 0.0, 'C' GT 0.0
'D' GT 0.398 KM**-l IS CASE 2 FOR HAZY/FOG
D SURFACE
'0'
LE 0.398 CONDITIONS
KM**-t IS CASE 2' FOR CLEAR/HAZY
SURFACE CONDITIONS
VSA
VSA
VSA
VSA
VSA
VSA
VSA
VSA
VSA
405
410
415
420
425
430
435
440
445
VARIABLE USED:
VSA
450
VARIABLE USED:
DEFAULT:
u2
C
c
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
DEPTH
DEPTH OF FOG/CLOUD IS 0.2 KM WHEN
'DEPTH' IS 0.0
DEFAULTS:
CEILHT (MUST
BE GE 0.0)
CASE 2 - CEILHT IS CALCULATED FROM
SURFACE EXTINCTION OR
CASE 2' - CEILHT IS 1.8 KM WHEN
'CEILHT' IS 0.0
s3
RADIATION FOG OR INVERSION OR BOUNDARY LAYER PRESENT
5''LT 0,0. 'C' GT 0.0
VIS LE 2.0 KM DEFAULTS TO A RADIATION FOG AT THE
GROUND AND OVERRIDES INPUT BOUNDARY AEROSOL TYPE
VIS GT 2.0 KM FOR AN INVERSION OR BOUNDARY LAYER
WITH INPUT BOUNDARY AEROSOL TYPE
** IHAZE*9 (RADIATION FOG) ALWAYS DEFAULTS TO A
RADIATION FOG NO MATTER WHAT THE VISIBILITY IS.
SWITCH VARIABLE: CEILHT (MUST BE LT 0.0)
VARIABLE USED:
ZINVHT (MUST BE GE 0.0)
*0 CEILHT MUST BE LT 0.0 FOR ZINVHT TO BE USED at
HOWEVER, IF DEPTH IS GT 0.0 AND ZINVHT IS EQ 0.0.
THE PROGRAM WILL SUBSTITUTE DEPTH FOR ZINVHT.
** OEFAULT2
FOR A RADIATION FOG ZINVHT IS 0.2 Ki
FOR AN INVERSION LAYER ZINVHT 15 3.0 KM
m4
NO CLOUD CEILING, INVERSIUN LAYER. OR BOUNDARY
LAYER PRESENT. I.E. CLEAR SKIES
EXTINCTION PROFILE CONSTANT WITH HEIGHT
COMMON /IFIL/IRDIPRIPUNPR
C
c•
C
C
DIMENSION Z(1O),R9(1O),AHA•l(lO),IH(1O)
DIMENSION AA(2).CC(2).EE(4).A(2).B(2).C(2).FACt(9).FAC2(9)
REAL KMTOMI
VSA
VSA
VSA
505
590
595
DATA AA/92.1.0.390/,CC/-O..O,.Ot.S/,.MTOM/IO00,O/
THE
LAST
3 VALUES
OF AND
CE 50.0
BELOWKM,
ARE RESPECTIVELYE
ATINCTIONS
EQUAL
FOR VIHAIZLT||S
TO 5.0,
23-0,
VSA
VSA
VSA
600
60s
Gt0
iFDATA
AEE.Ov4.0.?024,0.1?OO92O.O7S24i
D
NATA
FEI/O.O,0V3.,0O.0,0O5,0.1,0,5l.O.3,45.1.01
OATA Fg/.O.3OiOt,3,.,O60TtO/VSA
VSA
VSk
615
620
62.5
W
VSA
VSA
*30
635
VSA
VSA
VSA
VSrA
VSA
$40
6*6
00O
&SS
otO
VSA
vsA
$A%
670
011
HITI(A.P.591)
UPPER LIMIT ON VERTICAL DISTAJk•R
2 KM
ZHIGHS2O000.
WANUXZHICA4
IFtVmSGf,O.O)Go Yo 5
"OPAUtt FOR VISIBILITY DEPENDS 0,4 THE• VALUE OF |HAZE,
SIF(IHAZf.[Q.RI$vI*O.
.
.IF( IAZE.1Q.0)VIS,0.5
|F{HAZ.CO•.G.
IAZ||Q.JVI•.OVSA
|Fr INAZE.40.MVi5*60.O
1.,
,98
VSA 455
VSA 460
VSA 465
VSA 470
VSA 475
VSA 480
VSA 485
VSA 490
VSA 495
VSA 500
VSA 505
VSA 510
VSA 515
VSA 520
VSA 525
VSA 530
VSA 535
VSA 540
VSA 545
VSA 550
VSA 555
VSA 580
VSA 565
VSA 570
VSA 575
VSA 540
VSA
"S
C
VIA
VIA
E00
$65
C
IF ?HE SURFACE EXTINCTION IS 0-EATER THAN THE UPPER LIMIT OF 92.1 VIA
610
VIA
ag0
VIA
VIA
490
095
VIA
VIA
505
tic
C
5
C
C
C
C
C
C
C
C
C
C
10
C
C
j
IF(IHAZE.EO.3)VIS-??????
D.3.912/VIS-0.012
Ie(K.EQ.2)O, EE(l)
A(K)*AA(l)
!0*-1.
RUN THE ALGORITHM
IF(D.GE.AA(ti))A(K).*Q10.O
C(K-C(1
~l({2T,LE.o,0)WRITE(|PR
16(21'.ýE.O.0)WRITE(|f•Rl
0
tF(ZT.Gv','.O)WRITE(IPR
C
C
C
C
.20
VIA
WITH AN UPPER LIMIT Of '0001.t
"VSA
.603)
.604)
.0tI)IT
VSA
Sif7Hf DjSlC& FROM THE GROUND TO THE CLOUD/FOG TOP IS LESS
ONLY CALCULLATE UP TO THE CUM
LLL
)Os
VSA
TIU
2.0.•
GO TO
t
690
695
700
705
710
715
720
725
730
735
740
745
750
755
760
765
770
775
780
785
790
795
600
005
810
615
820
025
630
035
840
845
850
VSA
VSA
VSA
VSA
ZC-CEILHT*KMTOM
VSA
ZT.DEPTH.KMTON
VSA
ZINV-ZINVHT*KMTOM
VSA
IHAZE-9 (RADIATION FOG) IS ALWAYS CALCULATED AS A RADIATION FOG.
VSA
IF(IHAZE.EO.9)ZC.-1.0
VSA
ALSO, CHECK TO SEE IF THE FOG DEPTH FOR A RADIATION FOG
VSA
WAS INPUT TO DEPTH INSTEAD OF THE CORRECT VARIABLE ZINVHT.
VSA
IF(IHAZE.EQ.9.AND.ZT.GT.O.O.AND.ZINV.EQ.O.O)ZINVUZT
VSA
VSA
'IC' DEFINES WHICH CASE TO USE.
VSA
tC=2
VSA
IF(D.GE.EE(1).ANDZC.GE.0.O)IC-1
VSA
VSA
IF(ZC.LT.O.O.AND.IC.EQ.2)IC*3
VSA
IF(ZINV.LT.Q.O.AND.IC.EQ.3)IC'4
VSA
2 AND 2'.
'ICC' IS FOR THE TWO CASES;
VSA
ICC,0
VSA
IF(IC.EQ.2)ICC-1
VSA
IF(D.LE.AA(2).AND.IC.EQ.2)ICC&2
VSA
K-I
VSA
IF(ICCEQ.2)GO TO 30
VSA
GO TO (10.20,40,60),IC
VSA
DEtTH FOG/CLOUD: INCREASING EXTINCTION WITH HEIGHT FROM VSA
CASE I:
VSA
TOP.
TO
CLOUD/FOG
BASE
CLUUD/FOG
VSA
cONTINUE
VIA
IF(ZC.LT.HMAX.AND.IC.EQ.2)K.2
VSA
ICw-I WHEN A CLOUD IS PRESENT AND THE PATH GOSS INTO IT.
VSA
USE CASE 2 OR 2' BELOW CLOUD AND CASE I INSIDE IT.
VSA
IF(K.EO,2)IC.(-t)
THE PASE IýF THE CLOUD HAS AN EXTINCTION COEFFICIENT OF ?.064 KMI-.VSA
C
CASE 21
655
975
$11s
00
0$
HAZY/LIGHTLY FGGOY:
UP TO THE CkOUO
IHCQEASING EXTINCTION WITAH N
ASt.
414T
VIA
93S
VSA
340
VIA
A(K)*AA(Q)
.0001VIA
IFtZCE0,OO)CEi•iALcGIa•OatE!A"))/(ALOO(OIA(K))))/C¢t2)
99
300
VSA
945
050
VIA
900l
VIA
UD
C
C
C
30
C
C
C
C
40
VSA
BUT LESS VSA
VSA
A(K)-D*0.9
VSA
E-EE(1)
VSA
IF(ZC.EQ.o.O)WRITE(IPR
.600)
VSA
IF(ZC.EO.O.0)WRITE(IPR
.618)
VSA
IF(ZC.GT.O.O)WRITE(IPR
*610)ZC
VSA
IF(ZC.EQ.O.O)ZC.1800.
VSA
GO TO 60
VSA
VSA
CASE 3: NO CLOUD CEILING BUT A RADIATION FOG OR AN INVERSION
VSA
OR BOUNDARY LAYER PRESENT; DECREASING EXTINCTION WITH
VSA
HEIGHT UP TO THE HEIGHT OF THE FOG OR LAYER.
VSA
A(K)-D*1.1
VSA
E.EE(3)
VSA
IF(INAZE.EQ.2.0P.IHAZE.EQ.5)E.EE(2)
VSA
IF(IHAZE.EQ.6.OR,(VIS.GT,2.0.AND.IHAZE.NE.9))E.EE(4)
VSA
IF(E.GT.O)E.Do0.99g99
VSA
IF(ZT.GT.O.O.AND.ZINV.EQ.O.O.AND.VIS.LE.2.0)ZINV.ZT
VSA
IF(ZINV.EQ.o.O.AND.VIS.GT.2.0.ANIO.IHAZE.NE.9)WRITE(IPR
0601)
VSA
CASE 21:
CLEAR/HAZY; INCREASING EXTINCTION WITH HEIGHT,
SO THAN CASE 2, UP TO THE CLOUD BASE.
IF(ZINV.EQ.0.0.AND.(VIS.LE.2.0.OR.IHAZE.EQ.9))WRITE(IPR
IF(ZINV.EQ.O.O.AND.(vlS.LE.2-.OR.IHAZE.EQ.9))WRITE(IPR
$
C
C
C
60
IFtZINV.GT.O.O.AND.VIS.GT.2.0.ANODIHAZE.NE.9)WRITE(IPR
IF(ZINV.GT.O.O.ANO.(VIS.LE.2.0.OR.4HAZEEQ,9))WRITE(IPR
IF(ZINV.EQ.O.O.AND.VIS.GT.2.0.AND.IHAZENE.9)91NV,2000
IF(ZINV.EQ.O.O.AND.VIS.LE.2.0.OR.aHAZE.EO.))ZINV200
)*AAX&AMINt(ZINV.dMAA)
ZC0.0
t;lt.0TO,;NA,
MilI.t41i&IZ~A.()U~()zz)
VSA
VSA 1090
1095
e12)ZINV VSA
.614)ZINVVSA
VSA
VSA
VSA
VSA
VSA
CASE 41 NO CLOUD CEILING OR INVERSION kAYIR; CONSTANT CXTIKCVSA
TION WITH HEIGHT.
VSA
IF(IC.NE.4)B(K).ALOG(O/A(K))
VSA
|F(IC.EQ.4)WRITE(IPR
.013)
VSA
IF(i).EQ.2)C(K).A•O0CALOc|E/A(K))/S(K))/ZC
VSA
IF(IC.EQ.3)C(K).ALOG(ALOG(E/A(K))/I(K))/ZIKV
VsA
IF(Z•.LT.HMAX.AN0,K.EQ,.ANOaC.|EQ.2)GO
10
VSA
(ZC.IWAX)
VSA
'AAO.tIA
VSA
.IF(IC.LT.0JZALGO.ZC
VSA
WRITMEIPR
.619)
VSA
I|(tICL1,O)Nt
V$A
VSA
DO 70 161.9
VIA
IFCIC.VI,.OA•NSt.EO,5)A
V3A
ttIF~C.Lt0,A•NDIIQ,$)ZAOOHWAX-RC
VSA
zII)*,ALQGo*tl.0-fAC2( 0-tIk)
VIA
[IF(|C.EO~t)l(I),ALGoIFAC1(|)
VSA
"IF(IC-EQ.,)NMAX*AMIN1
C
.605)
.604)
t,:i•.G:)ZI):ALG0:*.04AC2(,I-•
)
tiL't.L?.0,ANodtI.EQ.?.OR.I.EQ.s)zI).zs*ILoo.FtACI(3.|.)O}
~ft.zCV$A
....
|I(|t.I0.4)Ah&I)iA
PII~C.LVO.Allk•[a.OL
IP(A$26I.;
IC(11•u•)
li
l~tO
|M(fli0.S52,AkO.,AHAZ)I(I))<fl|a
IH(~vGOS•ILOtXX~ll))•S,0?Vsh
J
100
985
990
995
1000
1005
1010
1015
t020
1025
1030
1035
1040
1045
1050
1055
1060
1065
1070
1075
1070
1085
1100
1105
1110
1115
1120
1125
1130
1135
1140
1145
1150
1155
1160
1165
117g
1175
1110
1115
11%0
119S
1200
1205
1210
1215
1220
VSAI 1220
VIA '149
VIA 123S
VIA 125
1245
VSA 13S0
V5A 1250
VIA 1270
VSA 2125
1315
VIA 1210
C
C
C
IH(I)-IHAZE
IF A RADIATION FOG IS PRESENT (I.E. VIS<.2.0 KM ANOD IC3).
IN IS SET TO 9 FOR ALL LEVELS.
IF(VISIB.LE.2.0.AND.IC.EO.3)IH(I).9
FOR A DEPTH FOG/CLOUD CASE,
NH-8 DENOTING AN ADVECTION FOG.
IF(IC.EQ.I.OR.(IC.LT.O.AND.I.GE.5))IH(I).S
WRITE(IPR .820)Z(I).RH(I),ANAZE(I),VISIB.IH(I)
TO CONTINUE
HMAX-HMAX/KMiTOM
RETURN
FORMAT(SO VERTICAL STRUCTURE ALGORITHM (VSA) USED')
FORMAT(IN ,50X,28HCLOUD CEILING HEIGHT UNKNOWN)
FORMAT(IH ,5OX,42HINVERSION OR BOUNDARY LAYER HEIGHT UNKNOWN,/.
1 IN .50X,39HVSA WILL USE A DEFAULT OF 2000.0 METERS./)
FORMAT(1H ,SOX,27HRADIATION FOG DEPTH UNKNOWN)
FORMAT(IH 50X.39HVSA WILL USE A DEFAULT OF 1800.0 METERS./)
FOJUAT(SX,t0HHESGNT(KM),5X,THR.H.(%),5X.16NEXTINCTION(KJI-1).
I
5X.ISHVIS(3.912/EXTN).5X.SHIHAZE,/)
FORMAT(7X,F7.4,7X,F5.1 ,X.Et2.4.IIXF?.4,1QX,12)
VSA
VSA
VSA
VSA
VSA
VSA
VSA
VSA
VSA
1280
1285
1290
1295
1300
1305
1310
1315
1320
1325
1330
1335
1340
1345
1350
1355
1360
1365
1370
1375
FORMAT(IH .39X,35HVSA WILL USE A CALCULATED VALUE Of ,FJ.I,
7H METERS./)
FORMAT(IH .50X,I9HCLDUO DEPTH UNKNOWN)
FORMAT(•N t50X,30HVS& WILL USE A DEFAULT OF 200.0 METERS./)
FORMAT(IH .50X,24HCLOUD CEILING HEIGHT 1S .Fg.l.?H METEIS./)
FORMAT(IH .50X,t5HCLOUD DEPTH IS ,F14.1.TH METERS,/)
FORMAT(IN ,50.30HINVERSION OR BOUNDARY LAYER HEIGHT IS ,F7.t,
I.7H METERS,/)
FORMAT(IH ,SOX.26HDEpTH OF RADIATION FOG IS .F?.t,.H METERS,/)
FORMAT(IN
,50X,43NTHERE IS NO INVERSION Ol EIUNDARY LAYMR OR *
f3HCLQUO PRESENT,/)
VSA
VSA
VSA
VSA
VSA
VSA
VSA
VSA
VSA
VSA
VSA
1380
1385
1390
1325
1400
1405
1410
1415
1420
1425
1430
C
-
599
600
601
605
618
619
520
602
603
604
610
611
612
SI
614
6.13
VSA
VSA
VSA
VSA
VSA
VSA
VSA
VSA
VGA
VSA
1
END
VSA
VGA 1435
101
h
CoP
c
C
C
C
C
C
C
C
4,'
SC?
BLOCK DATA MOTA
BLOCK DATA
MOT 100
MDT 105
uDiT 110
MODEL ATMOSPHERE DATA
MOT 115
MOT 120
COMMON /CNTRL/ "IaAX.M,IKMAX,NL,ML,IKLO.ISSGEO
MOT 125
NL IS NUMBER OF LAYERS IN PROFILES 1 TO 6
MOT 130
LAYEN 34 (AT 99999KM) 1S NO LONGER USED
MDOT 135
MOT 140
COMMON /MDATA/ Z(34),P(34.7),T(34.7),WN(34,7).WO(34,7).
MOT 145
X HMIX(34)
MDT 150
COMMON/MDATA/ZZ(34).pl(34),Pg(34).P3(34).P4(34),PS(34),9P(34).
MOT 155
X P7(34),T1(34),T2(34).T3(34).T4(34),T5(34),TS(34),T7(34),
MDT 160
X WNH(34),WNH2(34).WH3(34),NH4(34),WH5(34).wH6(34),WH7(34),
MDT
065
KWOl(34),tO2(34).WO3(34).,G4(34),WOS(34).WO6(34),WO7(34).
X4
MOT 170
KXNMIX(34)
MDT 175
OATA NL /33/
MOT iSo
DATA ZZ/
MOT 185
1
0.,
1.,
2.,
3.,
4..
5.,
6.,
7.,
8..
MDT 190
9
2
9.,
10.,
11.,
12.,
13.,
14.,
15.,
16.,
IT.,
MOT 195
3
18,.
19.,
20.,
21.,
22.,
23.,
24..
25.,
30..
MOT 200
4
35..
40.,
45.,
50..
70.,
100.,99999./
MOT 205
DATA P1/
MOT 210
1 1.013E+03. 9.0401*02. 6.0501*02. 7.150E*02, 6.330*.02, 5.S059*02,MOT 215
2 4,9204*02, 4.3201402. 3.760,*02, 3.2S0E*02. 2.660E+02, 2.4?OE*02,MDT 220
3 2.1301.02, 1.020E+02. 1.560E102. 1.320E*02.
.1101E+02, 9.370QO1.MOT 225
4 7.8901E01, 8.660E*01. 5.650E101, 4.800E.01, 4.0901E01, 3.500EO1I.MDT
230
5 3.000+01, 2.5701*01. 1.2201*01, 6.000.EOO, 3.050.00, l.590E10.MDT
235
4 0.540E-01. 5.790E-02, 3.0001-04, 0.
MDT 240
DATA P2,
MOT 245
I 1.013E -3, 9.0201*02. Q,020E.0O,
7.1001*02, 6,2801+02. 5.5406*02,MOT 250
2 4.670E+02, 4.200E*02. 3.720E*02, 3.2401.02. 2.610E*02. 2.430102.MOT 255
3 2.090E.02.
,?799E*02. 1.530,02o. t.300E*02. 1.110,402, 9.500E*1,MOy 260
4 0.120E*01, 6.950f*01. S.9SOE*01, 5.100fOsl, 4.370t.01, 3.76.OE*0,MOT 265
5 3.220f*01.
2.7TOE701. 1.320E101. 6.5201*00, 3.330E*.0, 1.760E*00,MOT 270
6 9.510E-01, 6.110E-02. 3.000E-04, 0.
M O4T 275
DATA P3/
MOT 2*0
1 1.0182!003. 6.9739402, 7,6971.02. 6.9381*02. 6.00IE402. S.3t3t*.0?.MO! 265
3 4.627f*0,. 4.01,C402. 3'4736*02,
2-993E602. 2.5659*02, 2.199E*02.UoT
230
3 1,682E*0.,
1.101E402. 1.3781*02. 1.16t0*03. 1,0041*01,
.6103E*01.Mot
29s
4 ?,U60E*01,
54020t01. .0(1*4.01,
4.2??1.00.
3.910E*01, 3.340E*01,0M?
300
5 2.643E*01, 2.4409401, I,1100*01, 5.7901100. 2.53OeO. ttlll.*00O,11
303
6 59.83O-Ol.
4.470t-02. 3.0001-04, 0.
/
ot
33 4.
2
.0*02. g4, .02.
7,0131.02.
J61,
.02. B0*0.
,
0-5
.tOt
1.97Tt*01, 1,7004*02, 1,sg01.O2,
1,460t*02, t-26O0*02.
9,0:40t,
,01*O.1WO
4% 7 ,9801*01, 4.400~eto,
S.9001toa,
3.0?TO*Oi. 4ý3ejot.01, 3.750t*01,00TJ
6• 3.22t(601. 2.YdOf*Olý t,340t*Ot, 6.4104*o0, 3,4004*O00•ti-6Ol10O,.1a•
6
9.410t-01. ?1.[070-0.
3.004t-04,
0.
l
1,17t[*O,
6.,1"t
.=344C*01
2JOS3,4•0
1.020t*01.
4MI0E*00o
•
4.10st•*03,
3.0ot0[,3
0,t4K.
.O4•.
:[OcJa,3 , 06I42
•EO,
I •~~~~.11geO•
102
*02.
325
330
31S
340
30•
/mot
OAT&. via
S4I
310
Mof
6ý3,•C?*i.
5.1st*O2.NAOf
2,24M000.
t,4l3K*OOm3f
315
3S0
37%
o•,tr
N.0• Ito
2
3
4
5
6
4.722E+02, 4.111,+02.
1.940E+02, 1.65SE*02.
7.565E+01, 6.467E+01,
2.972E+01, 2.549E+O1,
7.97?E-01, 5.520E-02.
DATA P7 /3400.
DATA TI/
1 2.997E+02, 2.937E+02.
2 2.636E502, 2.570E+02.
3 2.236E*02, 2.1703+92,
4 1.988E+02, 2.027E+02.
5 2.192E*02, 2.214E*02.
6 2.702E502. 2.189E.02,
DATA T2/
1 2.942E.02, 2.897E502.
3 2.612E*02. 2.547E502.
3 2.223E*02. 2.1589E02.
4 2.168E*02, 2.179E*02.
5 2.2399+02, 2.251E[02.
3.585E02, 3.080E+02,
1.417E+02, 1.211E+02.
5.529E+01, 4.729E+01,
1.197E+01, 5.746E.00.
/
3.008E-04, 0.
2.650E.02,
1.035E+02,
4.047E+01,
2.871E+00,
2.877E+02,
2.503E+02,
2.103E.02,
2.067E+02,
2.321E+02,
2.1OOE+02,
2.837E,02,
2.436E+02.
9.037E+02.
2.107E+02.
2.431E+02,
2.150E*02/
2.77.E+02,
2.370E02,
t.970.+02,
2.146E+02,
2.540E502.
2.852E.02,
2.442E.02,
2.157E+02.
2.192E*02.
2.337E+02.
2.7925,02.
2.417E502,
2.1575+02.
2.204E502.
2.452E*02.
2.732E502,
2.353E+02,
2.15?E702,
2.216E*02.
2.575T02,
* 2.757E+02. 2.1.IEo02. 2.10oo.02. 2.o100o02/
S1
2.2?OE,02,MDT
6.850E+01,MOT
3.4675+01,MDT
1.491E+00.MOT
MOT
MDOT
MOT
2.703E+02,MOT
2.301E+02.MOT
1.948[+02,MT
2.IOE*02.M1T
2.64E+,02.NOT
MOT
MOT
2.672E+02.U0T
2.288E023,MOT
2.i57.E02ODT
2.22aE+.02,OT
2.699E•.2,UOT
NOT
395
400
405
410
415
420
425
430
435
440
445
450
455
460
465
470
475
480
465
490
DATA T3/
I 2.722.E02,
2 2.43T7402.
3 2.1875.02.
4 2.15?E*02.
5 2.152E*02,
6 2.657E#02,
DATA 74/
I 2.872E03o,
22.5317202,
2.81?7,02, 2.763E*02, 2.709Eo02, 2.655.+02,
2.46
00*02,
2,3920*00.
2,252E*02.
4 2.52E*o2,
5 2.256**020
4 2.??1*e0o,
DATA TV/
2.572E602.
550
2.220205
2.2521402.
2.252Eo2.
0,70.252C02.*D?
2,252E,0*,
5.5o4N62tt
2.7369*o0.? 15
1
02,
2.0.%t02, 2.35tt0
a.o16Eeos, 2.1001*02, 5.100E*02/
MDT ,50
lor
W6
2,59t(*02. 2.SS91402. 2,5211*02, 2.47?E*02. 2,409E*0O,1M0t 570
2.687E*02.
2.377E502,
2.162•502.
2.152E+02.
2.152E02.
2.307E*02,
2.652E+02,
2.317?[02,
2.177E+02.
2.1525*02,
2.174E*02,
2.tOE,02.
2.617E.02.
3.2575*02.
2.172E*02,
2.152E*02.
2.279E.02.
2.OOE.02/
2.557E*02,
2.19?7÷02,
2.16?E*02,
2.152E*02.
2.432E*02,
MOT 495
2.497*102.M1T 500
505
2.1925*02.NOT
2,162402,N1T SI0
2.152E502,NOT 515
3.5855E02.N07T 520
NOT 525
MOT 530
2.6.5o,02.MOT 535
2.252E+O2NDT
N.322E*02,
540
2 2.341E*02, 2.273E*02. 2.200E*02, 2,172E*02. 2.1721#02. 2.4?olt*o2.uo
STS
4 2.1500*0O,
2.3001-01.
220012.mt. 2.0t*02O
5
3OT
.010.223*0.23?*2
690
O.25E02.NOT54
2.300E*6,.2.5E0 .2ý790.OT
222*0.225C.
3 2.T6i#2
2.25E025. 202*2
0 2.S3,ti*02. 2,4579*02, 2.|100*02,2 IOO?*,O2.
.*?,•OT
M,1*3 593
1•2-102C402.2..817T•*02. 2.7520E *
2-467C602
tS|02.
2.2(0
,
.2.SS7*O2.,401 605
2i2.02t*02. 2.421*02,3=•|0,
2,62*2.23#16•02. 1,233E*02. 2.16#1e02.IADT 61
3
2.1OO41MI
SlO0•0•
A-0CA2
21.304?t02.
I•• I,90|04Ol.
1,3OV401. ý0.10-0t0
.0•0
•]•
!6,.m
"9.
.41,DE01*0,
2,061l02* 2.t#19*02.4i0?
2.07t*0O,.147*?0l..
i|0•0
2 .400t-03,
4.
212tOst
00[0.4,0[,2-9CO
2.16102-.• 2.110t-0. 3.1r0402-.%Dit
.2,34ttoz. 2M.100'4, 2.OO2-*02.0of
4.10t*t00-.
1S,0tOt,,
1.20CE01.00
,,6~.00,1"04.
.?Cut-0I. 3.40o-.O4. t.O{O.4G•3
010E-4
1.0t-1
1•o
v
0.
1
St4
420
t10
4.200t-0.I, 1.95050,14.DT
6Sl•
SCOE0[*O0
1,00f-O0,.vot
*-SO
.300t-,s.AM-0,OT
9,9%
OT41
3 6.000E-03. 1.800E-03,
4 5.000£-04. 4.900E-04,
5 6.000E-04, 6.700E-04.
6 6.300E-08, 1.400E-07.
DATA W!3/
I 3.500E÷00,.2.500E+00,
2 2.100E-01, 8.500E-02.
3 6.000E-03. 1.800-E03.
4 5.OOE-04. 4.900E-04,
5 6.000E-04, 6.700E-04.
6 6.300E-06. 1.400E-07.
DATA WH4./
I 9.IOCE+00. G.OOOE*00.
2 5.400E-01, 2.900'-01,
3 6.OOOE-03, 1.800-E03.
4 5.000E-04. 4.90CE-04.
5 6.0001-04. 6.700E-04,
6 5.300E-06. 1.400E-07.
OATA VMS/
1 1.200E+00. 1.200E*00.
2 9.800E-1,. 5.4006-02.
3 2.600E-03. 1.8OOE-03.
4 5.000E-04. 4.900E-04.
5 6.0001-04. 6.700E-04.
6 6.300E-06. t.400E-07.
DATA W!46/
I 5.9006*00. 4.200E,00.
2 3.OOE-01. 2.100E-01.
3 3.700E-03. 1.80CE-03.
4 4.400E-04, 4.400E-04.
5 G.1006-04. 6.O0oE-04.
1.000E-03:
4.S0OC-04,
3.600E-04,
1.000E-09,
1.800E+00,
3.500E-02.
I.OOE-03,
4.500E-04,
3.600E-04.
1.0006-09,
4.200E100.
1.300E-01,
1.0006-03,
4.500E-04,
3.600E-04,
1.000E-09.
9.400E-01,
I.1QOE-02,
1.000E-03,
4.500E-04,
3.600E-04,
1.000E-09,
2.900E.00,
1.200E-01.
8,400E-04.
4.400E-04,
3.8006-04.
6 i.20"OC-S, 1.500E-07. 1.0006-090
DATA W"? /3400.
S
DATA WG0/
55.OO1-05. 5.600n-05. $14001-05.
2 4.300E-05. 4.100E-05. 3.0O0E-05.
3 4.300o-Q5. 4.500E-05. C,50-05,.
4 9.000-E05. 1.4001-04. 1.20O0-04,
S 3.,•OE-04. 3,400E-04. 2,4006-04,
4 4.300(-00. 0.6001-08. 4.3001-ut.
0t ,
2/
*6.Oo!-as,4,00o
*.oo•o.0,
C
A 2,0001-04.
S3.2o0064.
4,300.-06• ,
0.
MOT
/
M•T
i?
NOT
5.100C-05. 4.7006-05, 4.500-05.MOT
3.O0-05. 3.9001-05. 4.'t00-05,MOT
4.70OF-OS, 4,1001-05. *.900E-05.MOT
2.400t-04. 2.104E,04. 3.202-04,41c'
1,3001-05,
941001-O$, 4,1001-o0.
0.
/
WIV
Wit
,
001-05s.
W01•--cs *20
645
O6o
$55
660
165
S70
P'IS
660
$t
ass
%2MO
19
655
3.2006-04. 3.4004-04, 3.6001-04. 3.4401-04, 39.400-0.MOV
113001-03,MO.
3.000t-04, 2I.O80-04. 9.0009-45. 4.1001-"0.
I
8/
05. .4.300C1-1 0,
MOT
91
15
930
4.6o0-65, 0.gp01-06,IiOt
930
23
2.6Q01-04. 3.0004-04. 3.=301-04, 3.4Ot-04. 3.600•-44. 344001-04.40f
4 4,16OU-04, 4.3041-04. 4.100-04. 4.1•00-04, 4.300E-04. S,900.-44.MO?
640
849
"6
.,00-0,.40ot-OS.
-
2 1.01-5
S,.
690
7.600E-04. 6.4001-04. 5.$OE-04.MDvT
(95
5.100E-04. 5.t00[-04, 5.400E-04,010D
700
Io100-04, 4.3001-05. t.9001-05,MOT
MOT 705
0
0.
MOT 710
715
1.200E+00, 0.600t-01. 3.8o0E-01,MOT
720
1.600E-02, 7.500E-03, 6.900E-03.MOT
7.6OOE-04. 6.4006-04, 5.OOE-04.UOT 725
730
5.100E-04. 5.100E-04. 15.4OQE-04,*0Y
1.100E-04, 4.300E-05, i.900E-0.MIOT 735
0.
/
MOT 740
MOT 745
2.7001+00, 1.7001+00, I.OOOE.00,MOT 750
4.200E-02. 1.500F-02, 9.400E603.MOT 755
7.600E-04. 6.400E-04, 5.600E-04,MOT 760
5.1006-04. 5.1001-04, 5.400E-04.MOT 765
.tOOE-04, 4.300E-05. 1.900E-"5.ODT 770
MOT 775
I
0.
MOT 710
6.8006-01. 4.1001-01. 2.00CE-01,M6OT 765
8.400E-03. 5.500E-03. 3.800E-03.MOT 790
7.600E-04. 6.400E-04. 5.6001-04.OUT 795
5.100E-04, 5.100E-04. 8.4009-04.MOT 800
1.100E-04. 4.300[-05. t.900.-05.MO0
805
MOT 810
0
0.
MOT @i5
.•0
1.600.*00. 1.tO10010. *.4009-01.1MO?
6025
4.600E-02. 1.S006-02, l.2009-03.1C
830
7.2009-04. 5.100E-'04. 5.300E-04,MO?
4.6000-04. 5.200-04., 5.7009-04,OT 135
640
1.6001-04. 6.70OC-05. 3.20041-05.11D0
40.*-05, 4.0oot-OS,
.T001-08. I.000-05, 1.2001-Og. 1-fac104. 2.10at-04,UP?
6 3,030604. 3.4604-04. 1~0F44
* 4,30t-O4. 11.400t-06- 4.30OL1-r,
1 4.900-45,
6003-.*.
2?.l001-cs. 1.,001-OS. ..
2.60,1-04. 2.01-04,
2 0t00F0-,
A. 1.009,04, 4,0t
* 2.6001-4.
".8004o-.
4
OATS u~
1
2
*
4
9
"I.
4,1045
ýS
,§Qjt-m4
V-2644-064 411009-09. 114009-4S..UPI60
not
/i
-.
6.0031-09,
C.O1•-cS,
$.40.-0S,
4Ctool-OS.Uot
1O0|I-3.
'.I01-•4.
1
tI.*0Ol[04,
3.2009-04. 3,40•o0"' , 2,0oo|0,lTr
3.6021-04
2,6.10t-04. t.00t-04. *.0
0.
a.
t-t,
6,101-6. 4.300
4,i01cots
*21
3.2006-04, 3.0001-94.401
OS1 4.0409-01
/
4.1001-Os. 4,310t1Q.
4.5.01-0,
90#
1.101.-44,MO7
90
971
off
l.C30100S1M-%
"S
Nt0
uiOt tlS
4.14DE-9s.140 1,000
i.206•-04.4001 l*S
o010
1
6lt.20-144
4.3001§,-4,Wft. loIS
t•-.009-5.1001 1020
WtlOIS
Vat 10o0
5,4oi0-GS, 5.0001-8S. 4.6001-0S. 4,S60E-01,Mot 103)
1.3001-04.0•01 logo
6.20o0-oS.
04s
2.400ti-4. 3.1t01"-64.MO
".teon-04. O.000-0s.
t.9001-04, T.1tc-c-s.
2 t0oot-44.
6..4o0-04.
4,7600-0-,
4.I409-0s,
o
1.loot-as.
4.001-os.
4.001.-4. 4.1100t04.
.2400t-04. 6.0001-04.
3.c1oo -C44. 24C01•1-0a.
-ov-.
S4.30o0-0o6. *.S
OATS IF"I
S.
s.0oo-os, 4.001d-05S
23 1.6000-04,
.?O04-Oe.
4.001-0,s, ViA.CE-0o.
4.0001-04. c."O6..04.
S.'60t9-0-4, 5.101-04.
k.Stot-04, ,.200,-Ce,
4..300t--i. 0.
'Ia cc1--34. i.Slf-o0.
iS 3.8o01-04. 3.40oica4.
1SO
).1004-04. 2.IC3E-04. 3.9200t-4. 3I-IM-04.O0l'
4. 6"1-09. t.?70--0.,ot I0rS
t.1001-04,
2.001t-04.
S*.IO1•-CSW,'S.49
* 4.0coot -6. I .60C1t.0L 4.1001-11. 0.
MO5T so"C
MOT
DATA 0 " 21*0
4 . /0611
I
MVO1•70
TIOS ?t114S 1t*9 FP4M IVk4S 0tO1ft
"OW•Ul NIXING
•(-W)P3
%
"Of 1073
OWtA
10*0
II2.0.2.l,2.).3.0.3.,U•I•t
/. KIt! /40-..1.01-39.
O~~.lt;.0.3)i.0.S.1.2!.l*!.4.1 .6.10t.8,
*
?,4.2I.S.I.6.g.3.11.3.61.O.2.t.O0)0.fS*O.O/
sot 1065
vat 1060
.-
104
Ce
(
BLOCK
BLOCK
TIT
TIT
DATA TITLE
DATA
TITLE INF1ORUATION'
COUMVN /TITL/ HHAZE(5.15).HSEASN(5,2).HVULCN(5.5).SLANM,VS(9),
X HMET(S.2).1H4OEL(5.8),HTRRAD(6.4)
DATA VS8 /23.,5..O..23..5..50..23..0.2.0.5/
DATA BLANK/4H
/
DATA HHAZE /
4H
,4H
*41H
I 4HRURA.4HL
.4H
.4H
.4H
2 4HRURA,.4HL
14H
3 4HNNAIY.4H MAR,4H1TIM.4HE
.4m
.4H
4 4HMARI.4HTlUE.,4H
.4H
.4H
.41
5 4HUVRA.4HN
.4H
6 414
P.4HOSPH.414ERIC,4H
.4H
7 4HUSER.4H DEFn,4;INEO.4H
4HF0GI,.4H (AD.4HVECT.4MTION.4H)
9 4HF0G2,4H(RAD.4M4ATI.4H0N) .4H
A 4H13ACK,4AGROU.4H4,4D S.4HTRAT.4HO
.4H
0 4HAGE,4H VOL.4HCANI,4HC
.*4
*
C 4H14ES.4HH VO.4HLCAN,4WIC
,
.4H
o 4MAGED,414 VOL.4HCANi.,4HC
.4H
E 4HFRKS.,4HH VO.4HCAMI.4HC
/
.4m
F 4NMETE,4IIORIC.4m gUS.O•NT
HSEA.N /
.4N4
I 4HSPl, 4Hb4IG-S,4HUMMJE. 4HR
I
.4W
.4),H
24-HFALL,4H-WIN,4NER
DATA svuL~ct j
,
$,4HT9AT.4tO
I 4HGACK.4HGRQ0U.444O
2 4HA3[0,C4
VOL,4MC&Nj.4A"L*.4ADEjRA,
3 4H4~kES.4HH VO,4HLCAN 4HIC-4.4)HIN
4 d14A4E0.4H VOL.41ICANI,4H4C•H4I,4H; M
V0.4HCA•4I ,4c-qO.4KO(IA/
5 akfNTa.sli
OAT;. k-'ET/
I 4H.AR'JUM.44AL
.41
.4H
.4H
.
.4M4U.4"
2) 4HTuA.,4HSjlýT.4HCN
"8
IATA
A
T~x
*
.4.i
,
4t
.4•IT1.H .4
J)041
h
~A4n M
*).041
4"
MO
A,
.40~AtA~
34~~.4I4C4.4094hA..
310
TI?
390
TIT
300
TIT
Tit
TIT
320
1
Tit
340
76o
34
A
*
TIT 110
TIT
115
TIT 120
TIT
125
TIT
130
TIT
135
140
TIT
145
TIT
t1O
TIT
TIT
155
TIT
160
165
TIT
TIT ?7O
TIT
175
TIT
110
1615
TIT
t90
TIT
TI?
195
TIT 200
TIT 205
TIT 210
TIT 215
TIT 220
229
TIT
TIT
230
TIT
235
TIT
240
245
TIT
TIT
2-50
TIT
255
TIT
260
TIT
265
TIT
2?0
*t1
L
*O..u
,4t 041A0T
.4-rc.1ý
1 A-"
M41
6kO 411,
;$4I
2
4".%
4 4143AU41i
.414
*4'
Ih1)t .414I
100
105
105
• !BLOCK
DATA
SC#8BLOCK
SC
C
CC
CCC
CCC
FRF
1
120
M=
PRP
PRF
PRF
PRF
PRF
PRA
PRF
130
139
t4o
145
55O
t55
160
PRP
PRF
PRF
PRA
PRA
PR$
OAF
tes
1-70
175
190
leS
190
tIs
VUTONO.TRANSITION FROM VOLCANIC TO NORMAL
PRP
VUTO2ASTRANSIT!ON FROM VOLCANIC TO EPTREMCPr
EXUPAT.EXTREME UPPER ATMOSPHrRIC
CCC
PAR
COKMONIPRFP
/ZHI(34),HZ2Kt34,s).FAbISO(34),FAW123(34).SPSuOc(34).PpF
ISPSU23134).U3ASTFV(34).VU.40F4W34).NtVUPWCU4),zXVUFW(34).sASysst4s).PRf
200
205
210
2t15
220
C
HZ2Kz5 VSPROFILES>2-9KM
FAWISOsFALL/WINTER
PCCC
FAWI23FALL/WINTEP
SPSUSO.SPAING/SUMMER
SPSU23.SPRING/SUMMER
>2-3OKM
Ccc
Ccc
Ccc
Cc
~~2VUMOSS(
•%,•
SOK-M.23KMM,¶oa.5IW.2XM
50KM VIS
23KM VIS
50KM VIS
23K1i VIS
BASTPFWBACKGROUNO STRATOSPHERIC
VUMOFWdMOOERATE VOLCANIC
NIVUFW.HIGI VOLCANIC
ECCC
XVUVFW.!XTREME VOLCANIC
SASYTSS.VuMOSs.XSVUSSE*VUSS.
>30- tOOKM
UPNATM.NORMAL UPPER ATMOSPHERIC
Ccc
CCC
Cce
,
P
o-2KM
Ccc
4CCC
FALL/WINTER
FALW/WINTER
FALL/WINTER
FALL/WINTER
SPRING/SLAER
34). HIVUSS t34 ), E XY-•(34). UPNA ?ME34 ) oUTCW,(30k).
Par
3VUTOEIZ(3).EZ-UPAT(34)
DATA ZiT/
*
_
0..
S 9"
* ..
153..
DATA
t '3
.
1.,
to.,•
40.,
,•))ZK
2..
it..
0.I.
*
45..
-02,
DATA
3..
12..
21.
so,,
•)..•(•
4..
13..
t0..
5,.
14.,
6.,
is..,
t OO,.gggt,/
H[-;
4 H•(I
7.*
t ..
25..
.,
IT..
)
3.79EA01...250,/,F
SYW
/30 "
4
.951fl0.
3.S4(-Q3, 3.211-03.
/ *0,.
.41*4tol14t2.
0.CO'1.to21"C.
3 .Pt-~.
.ft04.
4.05EC43. 6..'M-03. 3.531C-04,
.5D-A
2:f-*
43-4-S .7*0.1
1.19C-03' :,*o.!-#. 3.25ýt'3),
,fol
2.8-3
.931t03,
a 273-Ci4.411"3.2. 1ct 03. t" ,~-*3. 1.351-03. I.oat'04.
3 9,t04-t, 0.404-04, ft.Mt-t4. 4,Cfl404. 1.601-09 .7*0./
I5
-04
lVU
PAPF
PRY
O•
RIF
22•5
230
236
240
24-5
245,
25S
260
2ass2,
oueIr
I I.
-4
6,43t-03, 9.156d-03. 3,549-03. w.3tl-O3. 3.3719-0)
WAA itP43
/3*01.
2.acg-OZ. ,.301-02. A0.511-9*, 3.Sat-03. 2.31&-03. .41 t-,03.
0,091-0I. 1*0421
*tala~
PRF
PRF
PRY
9
/3-.i,,
2-60f,-02. Sj.30-02.
j3
DtAA HASv2
DATA
-v~ I4
t00
Plr
tOS
P a x; t i0
DATA
CCC
CCC
%
PRF
AEROSOL PROFILE DATA
-PP
Ccc
N%
PIRFDTA
/40.M
gpI
Fai 210
•Oc
0
04$9,320
9F
paP 3ss
For3
W~ 310
360
.04?
341-
OAF
340
sts 34M
FP
Po
35
lob
FatP
4
SI
S2
1.71E-03, 2.31E-03, 3.25E-03, 4.52E-03,
2 9.42E-03, 1.07E-02, 1.10E-02, 8.60E-03,
3 1.46E-03, 8.90E-04, 5.80E-04, 4.09E-04,
/10*0.,
EXVUFW
DATA
1 1.71E-03, 2.31E-03, 3.25E-03, 4.52E-03,
2.35E-02, 6.10E-02, i.ooE-oi, 4.00E-02,
3 1.46E-03, 8.90E-04, 6.80E-04, 4.09E'04,
/10*0.,
DATA
BASTSS
1 1.14E-03, 7.99E-04, 6.41E-04, 5.17E-04,
2 3.82E-04, 4.25E-04, 5.20E-04, 5.81E-04,
4.20E-04, 3.00E-04, 1.98E-04, 1.31E-04,
DATA
VUMOSS
/10*0.,
1 1.851-03, 2.12E-03, 2.45E-03, 2.80E-03,
2 2.73E-03, 2.46E-03, 2.10E-03, 1.71E-03,
3 8.60E-04, 6.60E-04, 5.15E-04, 4.09E-04.
DATA
HIVUSS
/10*0.,
1 1.85E-03, 2.12E-03, 2.45E-03, 2.80E-03,
2 8.11E-03, 1.20E-02, 1.52E-02, 1.53E-02,
3 4.50E-03, 2.40E-03, 1.28E-03, 7.76E-04,
/10*0.,
EXVUSS
DATA
1 1.85E-03, 2.12E-03, 2.45E-03, 2.80E-03,
2 8.11E-03, 1.27E-02, 2.32E-02, 4.85C-02,
3 6.10E-03, 2.40E-03, 1.28E-03, 7.76E-04,
/26*0.,
DATA UPNAIM
1 3.32E-05, 1.64E-05, 7.99E-06, 4.01E-06,
2 931E-10, 0.
/
DATA VUTONO
/26*0.,
1 7.60E-05, 2.45E-05, 7.99E-06, 4.01E-06,
/
2 9.31E-10, 0.
DATA VUTOEX
/26*0.,
1 7.60E-05, 7.20E-05, 6.95E-05, 6.60E-05,
/
2 4.50E-07, 0.
/26*0.,
DATA EXUPAT
I 3.32E-05, 4.25E-05, 5.59E-05, 6.60E-05,
/
2 4.50E-07, 0.
END
"3
*
107
"(I
6.40E-03, 7.81E-03,
5.10E-03, 2.70E-03,
7.60E-05 ,7*0./
6.401-03, 1.01E-02,
9.15E-03, 3.13E-03,
7.e0E-05 ,7*0./
4.'2E-04, 3.95E-04,
5.89E-04, 5.02E-04,
3.32E-05 ,7*0./
2.89E-03, 2.92E-03,
t.35E-03, 1.09E-03,
7.60E-05 ,7*0./
3.60E-03, 5.23E-03,
1.17E-02, 7.09E-03,
7.60E-05 ,7t*O./
3.60E-03, 5.23E-03,
1.OOE-01, S.SOE-02,
7.601-05 ,7004/
2.10E-06,
1.60E-07,
2.10E-06,
1.60E-07,
5.04E-05,
1.03E-05,
5.04E-05,
1.03E-05,
PRF
PRF
PRF
PRF
PRF
PRF
PRF
PRF
PRF
PRF
PRF
PRF
PRF
PRF
PRF
PRF
PRF
PRF
PRF
PRF
PRF
PRF
PRF
PRF
PRF
PRF
PRF
PRF
PRF
395
400
405
410
415
420
425
430
435
440
445
450
455
460
465
470
475
480
485
490
495
500
505
510
515
520
525
530
535
PRF
PRF
PRF
PRF
PRF
PRF
PRF
540
545
550
555
560
565
570
co
CCC
CCC
CCC
CCC
CCC
CCC
CCC
CCC
CCC
CCC
CCC
CCC
CCC
CCC
CCC
CCC
CCC
CCC
CCC
CCC
CCC
CCC
CCC
C
C
C
C
C
C
C
C
E4T
EXT
EXT
EXT
ALTITUDE REGIONS FOR AEROSOL EXTINCTION COEFFICIENTS
EXT
EXT
EXT
0-2KM
EXT
RURABSSRURAL ABSORPTION
RUREXT&RURAL EXTINCTION
EXT
URBABS-URBAN ABSORPTION
URBEXTUURSAN EXTINCTION
EXT
OCNEXT-MARITIME EXTINCTION OCNABS-MARITIME ABSORPTION
TROEXT-TROPSPHER EXTINCTION TROABS-TROPOSPHER ABSORPTION EXT
EXT
FOiEXT.FOG1 .2KM VIS EXTINCTION FGIABS-FOOI ABSORPTION
EXT
FG2ABSwFOG2 A$OSRPTIOW
FG2EXT-FOO2 .5KM VIS EXTINCTION
EXT
>2-9KM
TROEXT.TROPOSPHER EXTINCTION TROABS.TROPOSPHER ABSORPTIONEXT
EXT
>9-30KM
EXT
BSTEXT-BACKGROUND STRATOSPHERIC EXTINCTION
EXT
ABSORPTION
BSTABS-BACKGROUND STRATOSPHERIC
EXT
AVOEXTvAGED VOLCANIC EXTINCTION
EXT
AVOAFS.AGED VOLCANIC ABSORPTION
EXT
FVOEXT.FRESH VOLCANIC EXTINCTION
EXT
FVOABSuFRESH VOLCANIC ABSORPTION
EXT
>30-100KM
EXT
DMEEXTuMETEORIC DUST EXTINCTION
EXT
OMEABS.METEORIC OUST ABSORPTION
EXT
EXT
AEROSOL EXTINCTION AND A8SORPTION DATA
BLOCK DATA EXTOTA
BLOCK DATA
EAT
/VX2(40).RUREXT(40,4),ýtURAS(40,4).URBEXT(40,4),
COMMON /EXTO
IURBABS(40,4),OCNEXT(40.4).,CNABS(40.4),TROEXT(40.4),TROAGS(40.4).
2FG1EXT(40),FG1ABS(401.F,2EXT(40).FG2ABS(40).
BSTEXT(40),BSTABS(40),AVOEXT(40).AVOA•S(40).FVOE*T(40)
3
4),FVOABS(40).OMEEXT(GO),OMEABS(40)
/ VX2(40),RURE:(40),RURE2(40).RUR53(40),PURE4(40),
COMMON /EXTO
A RURAt(40),RURA2(40),RURA3(40),RURA4(40),
A URBE1(40),URBE2(40),JRBE3(40),uRaE4(40).
A URDAI(40),URBA2(40),URnUA3(40).URBA4(40),
X OCNEt(40),OCNE2l4O).OCNE3(40),OCN4E4(40).
X OCNAIt(40).OCNA240),OCNA3(40),OCNA4(40),
A TROEI(40),TROE2(40),TROE3(40),TR0E4(40),
X TROAI(40),TROA2(40),TsOA3(40).TROA4(40),
2FGIEXf(40),FG1ABS(40' 'O2EXT(40).FG2A0S(40),
3
5STEXT(40).BSTAISS ý),AVOEAT(40),AVOABS(40),PVEXT(40),
4 FVOABS(40).ODEEXT ,i,L-¾A',S(40)
DATA VX2 /
1.5360.
1.0600,
.0943,
5500,
.331,.
,3000.
.2000.
3.7500,
3.3923,
3.0000.
2.7000,
2.5000.
2.2500,
* 2,0000,
6.5000,
7,2000.
6.2000,
6.0000.
5.5000.
4.5000.
5.0000,
*
9.0000. 9.2000. 10,0000. to.5910,
8.2000.
0.7000.
* 7.9000,
* 11.0000. 11.5000, 12.5000, 14.8000. 15.0000, 16.4000, 17.2000,
180.5000, 21.3000, 25.0000, 30.0000. 40,0000/
DATA RUREI j
.24070,
.75203, .41943,
I 2.09201, 1.74502, 1.60500, 1,00000.
.09956,
.10437,
.11t9t,
.13247,
.12234.
.13304,
2 ,Ma709,
.07025,
.07009, .07Mt6, .0?7191.
.07001,
.08049,
3 ,ot00 ,
.00152.
*080?6.
.12929,
Qasal0
.12194.
4 .44481, .043,3,
5 .0746•,
.06000 .00032,
.04249,
.0504, .00000. .00%92,
.04304/
.0459.
05171.
.04051.
6 .0722,
DAYA QUAE2
103
I'
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
CAT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EAT
EAT
tXT
90X?
100
105
11t
115
Ito0
125
130
135
140
145
150
155
160
165
170
175
160
185
190
195
200
205
210
215
220
225
230
235
240
245
250
255
260
265
270
275
280
2S5
290
295
300
305
310
315
320
325
330
335
340
345
380
355
360
36!
370
3M
390
38%
360
1.7416S,
1.59981,
1.00000,
.75316,
.42f71,
.24323,
.15100,
.13608,
.09475,
.08728,
.04899,
.04525.
.07380,
A.06880,
.06304,
.06443,
DATA RURE3 /
1 2.07082, 1.71456,
2 .18456,
.14677,
3 .10481,
.09709,
4 .06247.
.05601,
5 .07266,
.07044,
6 .08051,
.07677,
DATA RURE4 /
1 1.65076, 1.47886,
2 .23468,
.20772,
3 .16139,
.15424,
4 .12968,
.12601,
5 .09873,
.10418,
6 .15184,
.13849,
DATA RURAl /
1 .67198,
.11937,
2 .01968,
.02070,
3
.01462,
.01310,
4 .02023,
.03962,
5 .02557,
.02342,
6 .02958,
.03500,
DATA RURA2 /
1 .62969,
.10816,
2 .01829,
.01899.
3 .01044,
.. 13i3,
4 .02835,
.03854,
S .02816,
.02616,
6 .03734. .03956,
DATA RURA3 /EAT
1 .51899,
.082?8,
2 .01S13.
.01481,
3 .010104,
M01582,
4 .02930.
.01677.
5 :03513,
.03958,
4 .05614. .05209,
04TA RURA4 /
t ,21943,
.02848,
.9 .011S-,
.00698,
3 .03361,
.02949,
4 .04380,
.045SI,
5 .00171,
.0743?,
6 .10766, .09407,
DATA U14l1 /
1 1.0•91,. 4.63316,
.2 .20392.
tW940S,
3 .12715,
.11000,
4 .00760, .08652.
0 .04595. .01198,
4 .06354,
.0#17?,
DATA UR8U2 /
, 1,05502, 1.04094,
2 .21014, .14043.
3 .12728,
.11051.
.12430,
.09076,
.12165,
.06329,
.05538,
.13222,
.07639,
.12741,
.05791,
.04867,
.13823,
.07797,
.12778,
.06646,
.04519/
.11076,
.07876,
.09032,
.06639,
.10323,
.07943,
.07962,
.07443,
1.57962,
.13234,
.08918,
.1M:05,
.07443,
.06658,
1.00000,
.13405,
.09380,
.12595,
.08146,
.05747,
.76095,
.20316,
.09709,
.12348,
.08810.
.05184/
.43228,
.12873,
.08791,
.08741,
.08563,
.25348,
.11506,
.08601,
.07703,
.08962,
1.40139, 1.00000,
.18532,
.17348,
.14557,
.16215,
.13551,
.13582,
.13241,
.15924,
.12S63, .11076,
.80652,
.35114,
.16766,
.13228,
.16139,
.09001,'
.80595,
.20006.
.14994,
.11070,
.15949,
.32259,
.17386,
.14032,
.09994,
.15778,
S2.09544,
2
3
4
5
6
.08506,
.02101,
.01627,
.06178,
.02177,
.03241,
.05930,
.05652,
.02013,
.072R5,
.02827,
.03297,
.05152,
.02785,
.02165,
.08120,
.03943,
.03380/
.05816,
.01316,
.02367,
.04032,
.03114,
.05006,
.00867,
.03538,
.03177,
.036",
.07671,
.01962,
.01327,
.06684t
.03101,
.03601,
.05380,
.05525,
.OJ8V,
.07272,
.03741,
.03525,
.04684,
.06815,
.02U22,
.08036,
.04829,
.03503/
.05335,
.01652,
.02832,
.03987,
.040M2,
.04614,
.00867,
.03487,
.03247,
.04399,
.05816,
.01633,
.01677,
.06209,
.05152.
.04608,
.04082,
.05278,
.04816,
.06%11,
.06241,
.04190,
.03570,
.13690,
.04367,
.07475,
.0693?,
.04095!
.04151,
.02494,
.03013,
.03092,
.06203,
.03620.
.00860,
.03443,
.03494,
.06215,
.01443.
.01329,
.02652,
.05380,
.10M,
.08430,
.01342,
.06108,
.09437,
.05715,
.13010,
.07348.
.01171,
.24690,
.08506,
.05899,
.- 2190,
.08161/
.01437,
.05323,
.25S4I,
.04061,
,11734,
.01323,
u1430,
.04627,
.05253.
.11411.
1.618071, 1.00000,
.17886,
.18127,
.11234, .10801,
.11937,
.124390
.07563, .06,52,
.05373,
.04724,
.77165,
.16133,
.10500,
.1229?,
.07:09,
.04051/
.47025,
.30006,
.14000,
.10361,
.10342,
.09707, .09057,
,14642, .o'In,
1.53070,
.17205,
,110#0,
.7?704,
.21410,
1132M.
.464i9,
.15354,
.10543,
1.00000.
.17202.
.1130,
O09
.t476S,
.29407,
.14081.
.10247,
EXT
395
400
405
410
415
420
425
430
435
440
445
450
455
460
465
470
475
480
#65
490
495
500
509
510
515
520
525
530
535
5#0
s4s
550
555
560
5
EXT 570
KIT 571
EXT 500
EXT 560
EXT s5O
cxT 505
IXT 6O4
4XT 605
EXT 610
EXT W15
EXT 690
KX? 625
EXT 630
CXT 635
EXt 640
WXT 64W
EX? 650
KXA 655
EXT 660
KXT 665
fXt 670
EXT e6e
9X?
$60
aXt "
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EAT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
4XT
EXT
EXT
EXT
4
.08696,
.06161,
.12013,
.12416,
.12304,
.09614,
.08842,
EXT
690
5
6
.08487,
.07825,
08285,
.07323,
.08361,
.06367,
.08430,
.05500,
.08880,
.04747/
.08449,
.08601,
EXT
EXT
695
700
.77709,
.26475,
.117S3,
.11063,
.10386,
.05253/
.46263,
.15456,
.10392,
.08703,
.09943,
.28690,
.13563,
.09766,
.08025,
.09886,
.83646,
.37854,
.15709,
.11108,
.15766,
.09101/
.55025,
.20494,
.13513,
.09911,
.15513,
.35342,
.18665,
.12481,
.09209,
.15203,
.29222,
.10025,
.06544,
.08101,
.05133,
.03146/
.20886,
.08759,
.06449,
.05753,
.04348,
.15658,
.08184,
.06665,
.05272,
.04443,
.24070,
.15101,
.06797,
.07956,
.06880.
.03741/
.17399,
.07880,
.05975,
.05525,
.06127.
.13146,
.06949,
.06013,
.05104,
.06019,
.17785,
.19639,
.06899,
.06854,
.08411,
.041?1/
.12968,
.06722,
.05291,
.04892,
.07728,
.09804,
.05316,
,05101,
.04797,
.07475,
.04671,
.26690,
.00557,
.04861,
.12177,
.064-St
.03424,
.05810,
.05405,
.04684,
.11734,
.02633,
.02285,
.04576,
,05177,
.11335,
705
710
715
720
725
730
735
740
745
750
755
760
765
770
775
780
785
790
795
800
805
010
815
820
325
630
835
840
845
050
855
860
865
870
875
810
£85
690
895
900
905
910
915
920
925
DATA URSE3 /
1 1.96430, 1.64032, 1.52392, 1.00000,
2 .20J10,
.17981,
.16101,
.16614,
3 .12215,
.11361,
.10500,
.11715,
4 .08443,
.08057,
.10943,
.11342,
5 .0?888,
.08032,
.09101,
.10070,
6 .09152,
.08247,
.06089,
.07152,
DATA URBE4 /
1 1.41266, 1.33816, 1.29114, 1.00000,
2 .25285, .21576,
.18310,
.16215,
j
.14778,
.13892,
.12943,
.15525,
4 .11759,
.11494,
.11487,
.11329,
5
.09342,
.10120,
.13177,
.15696,
6 .14532,
.13030
.11785,
.10411,
DATA URBAI /
I
.784.t7
.58975,
.54285,
.36184,
2 .12329,
.11462,
.10747,
.11797,
3 .07506.
.07006,
.06741,
.06601,
4 .06218, .06949,
.07316,
.07462,
3
.04899,
.04734,
.04494,
.04443,
6 .03994,
.03981,
.03633.
.03468,
DATA URSA2 /
1 .69032,
.49367,
.45165. .29741,
2
.10354,
.09589,
.09025.
.10411,
3 .06570,
.06095,
.05829,
.07171,
4 .05509.
.06051,
.07139,
.07494.
5 .0089, .05291,
.05866,
.06390,
6 .05525,
.05070,
.04500,
.04076,
DATA URBA3 /
1 .54848,
.37101,
.33734,
.21949,
2 .07804,
.07165,
.08791,
.08563,
3 .05316,
.04088,
.04620,
.07570,
4 .04734,
.05025,
.06171,
.06570,
5 .05057,
.05655,
.07127,
38095,
* .06886.
.060w9,
'I222,
.04536,
tATA UReAq /
1 .15975.
.10000M,
.09013,
.05785.
.06241,
.02364,
2 .02525, .01975,
.03044,
.09027,
3 .03hi0, .03386,
4 .04392,
.04424t .04671,
.04791,
5 .06158.
.0747S,
10342,
.12146,
6 .t0608,
.00' I,
.00063,
.089a8,
DATA OCNEI
I I,4,576, 1.32614, 4.26171, 1.00000.
2
.48006,
.42044,
.38310,
.35075,
3
.24905,
,l003S,
S.01373.
* .07234,
DATA DOMNK
S1,36924,
2
3
.54006,
.3145e,
4
6
6
.14209,
.09215,
.13600,
.69M33,
.42268,
.7020.,
.32276,
.56487,
.28310,
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
.21194,
.16734,
.1419g
.10?03.
.15070,
015665,
.06029,
.05044,
M0713,
.06297, .05431,
.05329,
j
1.23443, 1.2003f, 1.00000,
.50247, .22215,
.45036,
.36209,
.2747f,
.21019,
.2 32,
4
.14639,
.04902,
.t507O,
.10221,
.08156,
.1205?,
.00367,
EXT
IXT
930
035
EXT
EXT
940
.91367,
.50589,
.27510,
.7708t,
.43746,
*21059,
.64937,
.38076,
.16941,
.17002,
.12070,
.020t,
.16a25,
.11MO0,
.1v341/
.1165,
.13833,
.09750,
.'4311,
.4215,
.09373,
.1*47?.
.1656,
.10532,
.0468,
110
.074t/
.07703,
PAT
tXT
EXT
EXT
945
050
9g5
960
965
IXT 970
WXT 376
eXT ON
ADATA
*6
46
V3
''4
OCNE3 /
1.22259, 1,14627,
.72930, .66582,
.49551, .44671,
.26437. .25228,
.15373, .16791,
.27610, .23966,
00464 I
I 1.09133, 1.06601,
2 .93671, .92867,
3 .65797, .92595,
4 .62722, .60228,
5 .35899, .37316,
6 .60000, .55392,
DATA OCNAI /
1 .30987, .04354,
2 .00816, .01146,
3 .00500, .00601,
4 .01671, .02538,
5 .01152, .01082,
.03741, .03804,
DATA OCNA2 /
1 .23387, .03127,
2 .00937, .009t1,
3 .02057, .01816,
4 .03190, .03788,
5 .04329, .05424,
6 .09551, .08241.
DATA OCNA3 /
1 .13025. .01557,
2 .01335, .00728,
3 .05114, .04342,
4 .06589, .06791.
5 .09899, .12481,
6 .20335, .17278,
DATA OCNA4 /
1 .03506, .00323,
2 .03082. .01101.
.12686, .11215
4 .15956. .15842,
5 ,21709, .25652.
* .39025, .35488,
DATA TROEI
1 2.21222, 1.82753,
2 .05165, .03801,
3 .01032, .00016,
.01484, .02418,
5 .00937, .00061,
6 .01114. .01297.
DATA TROfa /
1 2.21519. 1.62260,
2 .05475, .04044.
3 .01127, .00886.
4 .01475, .02285,
6S .01101, .01120.
o .01513, .01657.
DATA TROE3 /
1 2.M902, 1.79402.
1
2
a
4
6
*DATA
20046
06Q
1.t1842. 1.00000,
.62165, .49962,
.37886, .35924,
.2490S. .23975,
.22361, .26348,
.20209, .16430,
.94766,
.67940,
.4336?,
.22766,
.28677,
.14943/
.87538,
.66448,
.37019,
.17604,
.29082,
.80418,
.59253,
.30842,
.15316,
.29038,
1.05620, 1.00000.
.90411, .80253,
.78747, .168646,
.56335, .63729,
.46854, .56234,
.50367, .43578.
.97506,
.89222,
.76209,
.51861,
.56690,
.35949/
.94791,
.94462,
.75266,
.43449,
.60348,
.94203,
.92146,
.69658,
.37196,
.60563,
.02880,
.0167?,
.00753,
.03481,
.01070.
.03759,
.01797.
.03310t
.01595,
.03405,
.01563,
.04209,
.01488.
.03360,
.02943,
.03801,
.02063,
.07692/
.01766,
.00715l
.00994,
.01608,
.03171,
.01582,
.00443,
.01367,
.01310,
.03810,
.02070,
.01576,
.01685.
.04532.
.07823.
.07158,
.0129?,
.05576,
.08025,
.04544.
.09728,
.06506,
.01063,
.23487,
.09044,
.04715,
.10057,
.09203/
.01285,
.03949,
.03677,
.03405,
.10247,
.01190,
.00905,
.03139,
.03614,
.10222.
.01013,
.01810.
.03709,
.07247,
.17867,
.14877,
.00646,
.09835,
.17456,
.07329,
.t2019*
.12171o
.00532,
.37329,
.16466.
.07449.
.22228,
.12430/
.00665,
.09703.
.08785,
.07025.
.22051,
.00722,
.01968,
.06800,
.07962,
.21595,
.00215.
.03741,
.09884,
.15905,
.33222,
.32006.
.00139,
.20101.
.39100,
.15901,
.39639.
.27715,
.00114,
.47608,
.31778.
M1651,
.39804,
.25348/
.00171,
.21165,
.20513,
.18506,
.4029?,
.00532,
.05234,
iG8658,
.18323,
.40025.
1.67032. 1.00000,
,02q94, .04571,
.00861, .00994,
.03165, .03385,
.00023. .01139,
.01268.
.01418.
.72424.
.02463,
.01057,
.04247,
.01924,
.0146?/
.35272,
.01539,
.01139
M0601,
.01234s
.15234.
.01146.
.01747,
.01215.
401348,
1.66657, t.00000,
.03082, .04620,
.00806, .01449,
.03215, .03494,
.01297. .01753.
.01458, .01532,
.72525,
.06272.
.01399,
.04285,
.02465,
.01502/
.35401,
.01867,
.01226,
.01652o
.01741,
.15449.
.01266,
,01728,
.01304,
.01768,
1.64436, 1.00000,
.73207,
.26443.
.16276,
039
058
.19,.23..14,
EXT 965
EXT otb
EXT 995
EXT 1000
EXT 1005
EXT 1010
EXT 1015
EXT 1020
EXT 1025
EXT 1030
EXT 1035
EXT 1040
EXT 1045
EXT 1050
EXT 1055
EXT 1060
EXT 1065
EXT 1070
EXT 1075
EXT 1080
EXT 1085
EXT 1090
EXT 1095
EXT 1100
EXT 1105
EXT 1110
EXT Ill5
EXT 1120
EXT 1125
EXT 1130
EXT 1135
EXT 1140
EXT 1145
EXT 1150
EXT 115
E#T 1160
EXT 1165
UXT 117
EXT 1175
EXT limo
EXT li85
EXT 1190
EXT 1195
EXT 1200
EXT 1205
EXT 1210
EXT 1215
EXT 1220
EXT 1225
EXT 1230
EXT 1235
EXT 1240
EXT 1248
EXT 1250
EXT lass
EXT 1260
EXT 1265
EXT 1270
CTt7
3 .01386,
.01076,
.00968,
.02551,
4
.01437,
.01994.
.03127o
.03513,
5 .01519,
.01791,
.02538,
.03272,
6 '.02551.
.02228,
.01937,
.01804,
OATA TROE4 /
1 1.75691 , 1.54029, 1.45962, 1.00000,
2 .11329,
.08101, .05506,
.04043,
3 .02601.
.01968,
.01468,
.04962.
4 .01532,
.01633,
.02259,
.02487,
.02399,
.03247,
.05285,
.06462,
.04861,
.03753,
.02968.
.02348,
TROA1 /.09905,
1 DATA
.6 9 671.
.06563,
.04101,
2
.00873,
.00918,
.00930,
.03215,
3 .00557, .00494, .00646, .0067
4 .01481, .02418, .02886, .03070,
5 .00873,
.00816,
.00797,
.01133,
6 .01101,
.01291,
.01266,
.01418,
DATA TROA2 /
1 .65000,
.08791,
.05818,
.03652,
2 .00810.
.00842.
.00687,
.03139,
3 .00595,
.00519.
.00646,
.01304,
4 .01449,
.02278,
.02930,
.03184,
5 .01044,
.01076,
.01272,
.01741,
.6 .01506,
.01551,
.01456,
.01532,
DATA TROA3 /
1 .52804.
.06367,
.04158,
.02033,
2 .00658,
.00646,
.00709,
.02949,
3 .00677,
.00582.
.00646,
.02361,
4 .01386,
.01968,
.028486
.03203.
5 .01462,
.01747,
.02513.
.03253,
6
.02538,
.02215,
.01930,
.01797,
DATA TROA4 /
1 .19829,
.01042,
.01215.
.00791,
2 .00361,
.00253,
.00399,
.02570,
3 .00873,
.00728,
.00658,
.04481,
4 .01310,
.01469,
.01958,
.02184,
5
.02342,
.03203,
.05234,
.06399.
6
.04810,
.03715,
.02949,
.02335.
DATA FOIEXT /
1 .98519,
.99158.
.99069, 1.00000,
a 1,04146. 1.04696, 1.05323, 1.05886,
3 1.09272, 1.10367, 1.11684, 1.10430.
4 1.1720U, 1.1?278. 1.20133, 1,21246,
5 1.05004, .90291, 1.01120, 1,10911,
6 1,18544. 1.21582, 1.24814, 1.26842,
OATA FOIASS /
1
.00012. 0.00000, 0.00000, 0.00000.
2 .10861,
.03892.
.13272,
.47133,
3 .37373,
.34601.
.31967,
.55190.
4 .45943,
.45910,
.46089.
.46241,
5
.51468,
.53101,
,S5206. .59605,
* .02335,
.64120, .65627,
.627,
DATA F02XT /
1 .94791,
.96215,
.9003.,1.00000.
2 1.29570, 1.39203, 1.41120, 1.04715,
3 1.t$709, 1.04307,
.02354,
.71Y47,
4 .47677, .43171, .30734,
U3i259,
1
.24406, .290t., .42611,
. WWO1.
112
.02222,
.04076,
.03816,
.01791/
.01468,
.01722,
.03038,
.01690,
.01513,
.02886.
.77816,
.25291,
.04247,
.02595.
.06608,
.02165/
.03354,
.43139,
.06816,
.02234,
.01728,
.05930,
.21778,
.03703,
.01797,
.01092,
.05525,
.03627,
.02810,
.01285,
.00937,
.04032,
.01911,
.01487/
.00513,
.01025,
.01494,
.01215,
.00316.
.01646,
.01139,
.01329,
.02994,
.03949.
.01247,
.04063,
.02462,
.01582/
.03278,
.00646,
.01095,
.01544,
.01722,
.02557,
.00316,
.01620,
.01234,
.01747,
.02184.
.10013,
.01994,
.03854,
.03797.
.01791/
.02443,
.00966,
.01266,
.01620,
.03019,
.01937,
.00310,
.01544,
.01449.
.02861,
.00665,
.20690.
.03525,
.02367,
.0653,.
.02158/
.00778,
.01715,
.01646.
.01608,
.0587,
.00652,
.00316,
.014095,
.01816,
.05456,
1.00576,
1.04899,
1.11307,
1.21949,
1.11462,
1.20500/
0.00000,
,49696,
.55095,
.463.5,
.50899,
.68392/
1.01747, 1.03177.
1.00023. 1.07004,
1.12899, 1.14987,
1.22677, 1.15589,
1.14471, 1.16247,
.00095,
.45785,
.49987,
.47190.
.6038,
.01513,
.17912,
.46342.
.40905,
.61158.
1.00937. 1.05177, 1.12519,
1.10416, 1.43295, 1.45272,
.9240S,
.?9342,
.60266,
.3114,
.24460,
,2601,
.67124,
.51086.
.$SM.
M
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
1280
1285
1290
1295
1300
1305
1310
1315
1320
1325
1330
1335
1340
1345
1350
1355
1360
1365
1370
1375
1380
1385
1390
1395
1400
1405
1410
1415
1420
1425
1430
1435
1440
1445
1450
1455
1460
1465
1470
1475
1480
1485
1490
1495
1500
1505
1510
151I
1520
EXT 1525
EXT 1530
EXT 1835
EXT 1640
EXT 1545
EXT 1550
EXT 1555
lAf I960
EXT ISCS
i1 rtsso
.54247,
.43981, .34475,
.24905,
.19291/
DATA F02ASS /
.00013,
1 0.00000, 0.00000, 0.00000, 0.00000, 0.00000,
2 .01987,
.00620,
.02323,
.17209,
.57930,
.19810,
3 .09639,
.08000,
.06582,
.34589,
.32703,
.17025,
4 .11818,
.11627,
.11519,
.11535,
.11601,
.12329,
5 .18633,
.24057,
.35411,
.44886,
.45095,
.45215,
6 .41778,
.34430,
.27823,
.21063,
.17867/
DATA 8STEXT /
1 1.48671, 1.55462, 1.51506, 1.00000,
.70633,
.28867,
2 .04184,
.02728,
.01848,
.01335,
.06513,
.08930,
3 .04786,
.04278,
.05810,
.05367,
.04392,
.03342,
4 .11867,
.14709,
.12734,
.09291,
.08778,
.05019,
5 .05734,
.03576,
.01975,
.01892,
.01956,
.03685,
.00589/
6 .01715,
.01820,
.00835,
.00633,
DATA
SSTABS
/
T0.00000, 0.00000. 0.00000, 0.00000, 0.00000, 0.00000,
6
.00247,
.03475,
.12633,
.14468,
.44278,
.09994,
.06532,
.04456,
.04070,
.04152,
.00019,
2 .00127,
.00158,
.00291,
.00405,
.05880,
.08297,
.06019,
3 .04519,
.04133,
.05703,
.05266,
.04304,
.03285,
.04437,
4 .11816,
.14633,
.12639,
.09215,
.08722,
.04968,
.04044,
6 .05709,
.03551,
.01962,
.01892,
.01949,
.03665,
.04146,
3 .01709,
.01620,
.00835,
.00633,
.00589/
DATA AVOEXT /
1 1.14880, 1.19171, 1.18013, 1.00000,
.84873.
.53019,
.27968,
2 .14551,
.11070,
.08633,
.07184,
.0o076,
.04506,
.03399,
3 .02095,
.01538,
.01266,
.01019,
.00994,
.01044,
.01361,
4 .01791.
.02278,
.02918,
.03108,
.0•234,
.03456,
.03184,
5 .02772,
.02475, .01715,
.01563,
.01665,
.01648,
.01734,
6 .01772,
.01076,
.01051,
.01133,
.01329/
DATA AVOAOS /
1 .44816, .11259,
.08500,
.05272,
.04082,
.02449,
.01487,
2 .01019,
.00867,
.00842,
.00842,
.00949.
.00741,
.00487,
3 .00316,
.00335.
.00399,
.00449,
.00525,
.00685,
.01114,
4 .01652.
.02177,
.02437,
.02506,
.02858,
.03006.
.02861,
5 .02513,
.02205,
.01520,
.01532,
.01633,
.01620,
.01?09,
6 .01741,
.01057.
.01038,
.01127,
.01329/
DATI FVOEXT /
S.88715, .92532, .94013. 1.00000, 1.03013, 1.05975, 1.01171,
2 .88677,
.2538,
.76361,
.71563,
.67424,
.60589.
.55057,
3 .45222,
.37646, .32316,
.25519.
.22720. .20525,
.17810.
4 .14491,
.14152,
.37639,
.44551,
,44405,
.42222,
.36462,
5 .32351,
.27519,
.15728,
.10627.
.10861.
.10886,
.11665.
6 .1312?,
.i0108,
.06557. .06411,
.05741/
DATA PVOADS /
1 .41502,
.22$92, .19106,
.14460,
.12475,
.09158,
.050601,
S.04943, .04387, .04342, .04399. .05076. .04133, .02629,
3 .01924,
.01981,
.02297, .02475,
.02178,
.03411,
.05335,
4 .07133,
.08016,
.15342,
.18506,
.19384,
.20791,
.18449,
5 .16101,
.13759,
.00456,
,06886,
.07273,
.07387, .07956,
6 .08705,
.06032,
.05747,
.05133,
.05323/
DATA D8EEXT /
1 1.05019, 1.05080, 1.05259, 1.00000,
,94949,
.61456,
.66051,
2 .54380. .49133,
.44877,
.41671,
.39043. .34770.
.32004,
3 .29?22,
.27500, .25002,
.22820,
.21632, .20253, .17266,
4
.14905,
.14234,
.14062, .15057,
.18399,
.3600,
.24401,
5 .27791,
.25076.
.15272,
.09601,
.09456.,
.
6146,.12373,
O .10340,
.12190,
.12924, .06530,
.04100/
DATA O•EASS /
.00152.
.00M4,
.00506.
1 .00063.
.00791,
.0 R29, 403720,
2 .01596, .07538,
.00043,
.10051,
.t1614,
.13310,
.14346,
.09006,
.10709,
1Y076,
.12462, .11104,
3 .14633, .13728,
4 .02734,
.09000,
.10304.
.11005.
.13437,
.19551,
.20095,
.10651,
.06023,
.12320,
.06605,
.10410. .02285,
S ,22494,
6 .16164,
.09035, .10582s
,06769,
.03247/
SEXY
113
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
1575
1580
1585
1590
1595
1600
1605
1610
1615
1620
1625
1630
1635
1640
1645
1650
1655
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
EXT
1660
1665
1670
1675
1680
1685
1690
1695
1700
1705
1710
1715
1720
1725
1730
1735
1740
1745
1750
1755
1760
1765
1770
1775
1780
1765
EXT
1790
EXT
EXT
EXT
EXT
t795
1000
1605
1810
115
1620
1IM5
1830
1635
1640
1145
ol50
toss
1680
1865
1070
1675
1080
1085
190
l0,03
EXT
IXT
EXT
fXT
EXT
EXT
EXT
EXT
EXT
EXT
IXT
EXT
EXT
EXW
EXT
IXT
CO
C
C
C
C
C
C
C
C
SC
8SF
9SF
BSF
WATER VAPOR qONTINUUM - SELF BROADENED ABSORPTION COEFFICIENTS 29685F
1SF
5SF
COMMON /SH20/ Vl.V2,DVNPTS2i6(2001)
COMMON /sH20/ VlV2,DVNPTSOOO1(50) ,SOO5i(50) ,SOtOl(50) $0151(50)BSF
8SF
1,S0201(50)oSO251(50).SO301(50),SO351(50),SO401(50),S0451(50)
5SF
2,S0501150),SOSS1(50),SO601C50),SO651(S0).SOOi(5O),S0751(10)
3.S080t(50),S0851(50),S0901(50),S0951(50)
9SF
5SF
4,SiOOi(50),SI051(BO),SI0Cl(50),SI151(50),51201(50),SI2St(SO)
5SF
5,S1301(50),S1351(50),$1401(50),S1451(50)
aSF
6,SISOI(50),S1551(50),StOl(5O),S1651(50),SI701(50),S?517(50)
5SF
,1SiBOI(50),S1851(50),SB901(50),S1951(50),S2001(i)
BSF
9SF
DIMENSION S298(2001)
8SF
EQUtVALENCE(S296(1),S0001(1))
8SF
NSF
DATA V1.V2,OVNPT /
5SF
2001/
10.0.
1
0.0,
20000.0.
SSF
5SF
5SF
DATA S0001/
9SF
C 1.0162E-21, 1.0573E-21, l.1109E-21. 1.2574E-21, 1.3499E-21,
1SF
C 1.4327.-21, 1,5065E-21, 1.5164E-21, 1.5022E-21, 1.3677E-21,
9.F
C 1.3115E-21, 1.2253E-21, 1.1271E-21. 1.0070E-21, 8.7495E-22,
6SF
C 8.0118E-22, 6.9940E-22, 6.2034E-22. 5.6057E-22, 4.7663E-22,
C 4.2450E-22, 3.6690E-22, 3.3441E-22, 3.0711E-22, 2.5205E-22,
6SF
8SF
C 2.2113E-22, 1.8880E-22, 1.6653E-22, 1.4826E-22, 1.2065E-22,
C i.0709L-22, 9.7783E-23, 7.72745-23. 6.7302E-23, 5.6164E-21,
8SF
9SF
C 4.90892-23, 4.1497E-23, 3.5823E-23, 3.1124E-23. 2.6414E-23,
1SF
C 2.31G7E-23, 2.0156E-23, 1.7829E-23. 1.5666E-23, 1.3926E-23,
9SF
C 1.2338E-23, 1.0932E-23. 9.7939E-24, 8.8241E-24, 7.9173E-24/
bSF
DATA S0051/
5SF
C 7.1296E-24, 6.4179E-24, 5.8031E-24. 5.2647E-24, 4.7762E-24,
aSF
C 4.3340E-24, 3.9355E-24, 3.5887E-24, 3.2723E-24. 2.9919E-24,
BSF
C 2.7303E-24, 2.5013E-24. 2.2876E-24. 2,09246-24, 1.9193E-24.
8SF
C 1.7618E-24, 1.618BE-24. 1.4891E-24, 1.3717E-24, 1.2647E-24,
OSF
C 1.1071E-24, 1.0786E-24. 9.9785E-25, 9.2350E-25, 8.5539E-25,
C 7,83715-25, 7.3?0lE-25, 6.8677E-25, 6.3993E-25, 5.9705E-25.
1SF
1SF
C 5,578BE-25, 5.2196E-25. 4.0699E-25, 4.5865E-25, 4.3079t-25,
6SF
4.05265E-25, 3.1082E-25. 3.60255-25, 3.4039E-25, 3.2203E-25.
C 3.0511E5Z5. 2.b949E-25, 2.7505E-26. 2.6170E-25. 2.49335-25,
6SF
C 2.3766E-20, 2.2722E-25. 2.1736E-25, 2.06191-25. 1.9966E-25/
8SF
9SF
DATA S001/
8SF
C I.Q78E-25, 1.0442E-25, 1.7760E-25, 1.7127E-25, 1.6541E-25,
6SF
C l.f497E-25. 1.5495E-25, 1.50341-25. t.46146-25, 1,42301-25,
U 1.3883E-25, 1.357?E-25. 1.3304E-25, 1.3069E-23, 1.26970-25,
6SF
C 1.2732E-25, t.262SE-25, 1.256E5-25. 1,2944E-25, 1.26046-25,
6SF
ISF
C t.2719E-25, 1.2003E-25. 1.3164E-25, 1.35681E-25, i.4181E-25.
.406CE-25, 1.50091-25,
t.77-1
.0148E-W5
2.0258BE25.
9SF
100
105
110
I1l
120
123
13'
13
140
145
150
155
10
165
170
175
180
185
190
195
200
205
210
215
220
225
230
235
240
245
250
255
260
265
270
275
250
285
290
295
300
305
310
315
320
325
330
335
340
345
350
6SF
6SF
8SF
BSF
ISF
1SF
asF
1F
355
360
355
370
375
380
3S1
3$0
BLOCK DATA SF296
BLOCK DATA
C 2.2456E-25.
C 4.0129t-25,
C 1.004GE-24,
C 1.07115-24,
DATA 501t/
3J,164E-24,
C 3.7433t-24,
C 2;34041-24,
"C
2.5502f-25,
5,905SE-25,
1.1496E-24,
2.0285E-24.
2.9103E-25.
6,09?7E-35,
1.29435-24,
2.2623E-24.
3.36406-24,
3.4503E-24,
2.0385824,
3.0084E-24, 3.9454t-24, 3.07121-24,
3.10031-24, 2.00271-24, 2.52631-24,
2,44421-24. 2.75212-24, 2.9048-34-4.
114
3.3612E-25.
7.5360E-25,
1.9049C-24.
2.6780E-24,
3.99965-25,
0.7213E-25,
1.69739-24,
3,17686-24/
C 3.0489E-24,
C 2.9482E-24,
C 1.7708E-24,
C 9.4224E-25,
C 5.1619E-25,
C 2.6440E-25,
C 1.4097E-25,
DATA 50201/
C 7.1460E-26,
C 3.9033E-26.
C 2.2919E-26,
C 1.4631E-26,
C 9.9256E-27,
C 7.09.14E-27,
C 5.2143E-27.
C 3.9405S-27,
C 3.07145-27,
C 2.45014-27,
DATA S0251/
C 2.0082E-27,
C 1.6894E-27,
C 1.4808E-27,
C 1.3569E-27,
C 1.2391.=27,
C 1,1491E-27,
C 1.1191E-27,
C 1.1213E-27,
C 1.4066E-27,
C 2.6v53E-27.
DATA 50301/
C 6.26335-27,
C 1.01C2E-26,
C 1.3130E-26
C 1.0120E-26,
C 1,1967E-26,
C 1.45925-26,
C I.W0tE-26.
C 1.7690E-26,
C 2.8039E-26,
C 4,8704E-26.
DATA S0351/
C 9,7609E-26,
C 2,1694E-25,
C 4.9313E-25,
C 0.121GE-25,
C 9,?9?8E-25,
C 1.05505-24,
C 9.51592-25,
C 1.0595E-24,
C 5.6295E-"5,
C I.tljOE-25,
DATA S0401/
C S6AOX3E-Ri.
C 3.239SE-20;
C 1.7931E-26,
C 1,040•4-26,
C 8.2t371-27,
C 3.dod4E-27,
C 2.3"7E5-27,
3.2646E-24,
2.8711E-24,
1.6101E-24,
B.1256E-25,
4.5140E-25,
2.3107E-25,
1.2052E-25,
3.3880E-24,
2.6068E-24,
1.3911E-24,
7.3667E-25,
4.0273E-25,
2.0749E-25,
1.0759E-25,
3.3492E-24,
2.2683E-24,
1.2013E-24.
6.2233E-25,
3.3268E-25,
1.8258E-25,
9.1400E-26,
3.0987E-24.
1.9996E-24,
1.0544E-24,
5.5906E-25.
3.0258E-25,
1.64595-25,
8.1432E-26/
6.4006E-26,
3.47405-26.
2.0846E-26,
1.3513E-26,
9.2505E-27,
6.65805-27,
4.9169E-27,
3.7403E-27,
2.93135E-27,
2.3640E-27,
5.6995E-26,
3.1269E-26,
1.8983E-26,
1.2461E-26,
8-6367E-27,
6.2580E-27,
4.6431E-27,
3.5544E-27,
2.80035-27,
2.2591E-27.
4.9372E-26,
2.8059E-26,
1.7329E-26,
1,1519E-26.
8.0857E-27,
5.8853E-27,
4.3898E-27,
3.3819E-27,
2.6777E-27,
2.1701E-27,
4.4455E-26,
2.5558E-26,
1.5929E-26,
1.0682E-26,
7.5674E-27,
5.5333E-27,
4.1564E-27,
3.2212E-27,
2.5626--27,
2.08668-27/
1.8027E-27,
1.5557E-27,
1.4093E-27,
1.2714E-2?,
1.1728E-27,
1.1228E-27,
1;l068E-27.
1.2322E-27,
1.9449E-27.
4.4482E-27,
1.7439E-27,
1.5195E-27,
1.3828E-27,
1.2541E-27,
1.1644E-27,
1.1224E-27
1.1109E-27.
1.3025E-27,
2.2662E-27,
5.3852E-27/
1.9349E-27.
1.64OOE-27,
1.4603E-27,
1.3270E-27,
1.2102E-27,
1.1305E-27,
1.1151E-27,
1.8665E-27,
1,5953E-27,
1.4337E-27,
1.2984E-27,
1.1878E-27,
1.1235E-27,
1.1098E-27,
1.1431E-27. 1.1826E-27,
1.5657E-27, 1.7214E-27,
3.1723E-27, 3.7028E-27,
7.2175E-27,
1.0620E-26,
1.2056E-26,
9.4795E-27,
1.2672E-26,
1.4598E-26,
1.4984E-26,
1.9277E-26,
3.1345E-26,
5.5351E-26,
7.7626E-27.
1.1201E-26.
1,23505-26,
9.2858E-27,
1.3418E-26.
1.4774E-26,
1.5181E-26,
2,110?E-26,
3.5822E-26,
.34450-26,
8.7248E-27,
1.2107E-26,
1.1489E-26.
9.8060E-27,
1.3864E-26,
1.4726E-26.
1.5888E-26,
2.3068E-26,
3.9051E-26.
7.26905-26,
9.6759E-27.
1.2998E-26,
1.0819E-20,
1.09991-268
1.4330E-26,
1.4820E-26,
1.6850E-26.
2.5347E-26,
4.3422E-26,
8.2974E-26/
1.1237E-25,
2.5487E-25,
5.59005-25.
8,9335C-25,
1.000,E-24,
1.0432E-24,
1,00585-24,
100062E-24,
4.65021-25,
1.4030E-26,
1.3197E-25,
3.0092E-25,
8.2968E-25,
9,2151E-25,
1,0702E-24,
1.0420E-24,
1.073BE-24,
9.1742E-25,
3.80711-25,
1.2049E-2i,
1.5540E-25,
3.538SE-25.
7.10600-25,
9.2?7g9-25,
1,1026E-24,
9.8900E-25,
1,1550E-24,
0,4492E-25,
3072tE-25,
9.6754E-26,
1.07M41-25,
4,2764E-25,
7.7699E-25,
9,4643E-25,
t402861-24,
9.4992E-25,
1t12290-24,
0.8099S-25,
2.32971-25,
7.91921-26/
9.6468E-20,
2.85255-26,
t.6104E-26,
9,43005-27,
5.634SE-27,
3.48t0t-27,
2.190,5-27,
4.%904E-26,
4.22895-26. 3.68d6E-26,
t,99491-26,
1.2997E-29. 1,1559t-a6,
7.61336-21, 6.0623t-2?,
7.
4.6246E-27, 4C19061-2V,
2.6795C-2?, 2.62852-27.
1.6384-2?7, 1asp475-27,
2-6363E-26, 2,2431E-26,
1,4431t-26,
6.4597E-27,
5.1076E-27.
3.15941-27.
2,00521-27,
115
:I
6SF 395
BSF 400
5SF 405
8SF 410
8SF 415
8SF 420
8SF 425
8SF 430
BSF 435
BSF 440
8SF 445
8SF 450
8SF 455
BSF 460
1SF 465
8SF 470
1SF 475
8SF 480
BSF 485
BSF 490
8SF 495
8SF 500
8SF 505
8SF 510
OSF 515
8SF 520
NSF 525
8SF 530
8SF 535
8SF 540
8SF 545
OSF 550
8SF 555
8SF 580
8SF 565
8SF 570
8SF 575
1SF 580
BSF 585
aSF 590
8SF 595
6SF 500
1SF 605
8SF 6I0
1SF
6SF
O$F
1SF
OSF
1SF
5SF
6SF
OSF
esF
SF
615
620
6G5
630
635
640
646
85O
$65
6$0
8s5
F 670
ISF 615
ISp
460
GSF
C 1.5469E-27,
C 1.0237E-27,
6.9985E-28,
DATAS0451/
C 5.0418E-28,
C 3.9695[-28,
C 3.2302E-28,
C 2.6746E-28,
C 2.4909E-28,
C 2.6451E-28,
C 3.0701E-28.
C 3.9875E-28,
C 5.7030E-28,
C 8.9979E-28,
DATA 50501/
C 1.5394E-27.
C 2.8109E-27,
C 8.1941E-27,
C 1.7197E-26,
C 4.5140E-26.
C 6.9121E-26.
C 6.5809E-26,
C 9.0044E-26,
C 9.3629E-26,
C 7.8613E-26,
DATA 50551/
C 3.?167E-26,
C 1.3250E-26,
C 5.1395E-27,
C 2.4723E-27,
C 1.38209-27,
C 6.2764E-28,
C 4.9851E-20,
C 3.0683E-20,
C 1.94090-28,
C l.2543E-28,
S0601/
C 0.4806E-29,
C 6.9930E-29,
C 4.3722E-29,
C 3.3002E-29,
C 2.06881-29,
C 2.6724E-29,
C 2.706e--29,
C 2.99521-29,
C 3.7037E-29.
C 5.0210E-29,
DATA 50651/
C 7.5s11g-29,
C 1.2792-28,
C 2.4506E-20,
C 4.9282t-20,
C 1.1542E-27,
0 2.01271-27,
C 3.4810E-21,
C 3.6091E"27.
C 6.20009-27,
iC 0.03351-27,
DATA 30701/
"DATA
1.4204E-27, 1.3068E-27, 1.2036E-27,
9.4592E-28, 8.7530E-28, 8.1121E-28,
6.5189E-28, 6.0874E-28, 5.6989E-26,
1.1095E-2?,
7.5282E-28,
5.3530E-28/
4.7745E-28, 4.5367E-28,
3.8094E-28, 3.6482E-28,
3.08542-28, 2.9696E-28,
2.5982E-28, 2.5510E-28,
2.5013E-28, 2;5216E-28,
2.6978E-28, 2.7687E-28,
3.2058E-28. 3.3695E-28.
4.2458E-28, 4.5480E-28,
6.2067E-28, 6.7911E-28,
9.9870E-28, 1.1102E-2?,
4.3253E-28.
3.4897E-28,
2.8567E-28.
2.5121E-28,
2.5589E-28,
2.8600E-28,
3.5558E-28,
4.8858E-28,
1.4579E-28,
1.2343E-27,
4.1309E-28,
3.3500E-28,
2.7600E-28,
2.4922E-28,
2.6049E-28,
2.9643E-28,
3.7634E-26,
5.2599E-28,
8.1902E-28,
1.3732E-27/
1.7318E-27.
3.2236E-27,
7.4897E-27.
2.1399E-26,
6.0653E-26,
6.9005E-26.
7.3496E-26,
9.49651-'6,
9.5944E-26,
7.156?E-26,
1.938ZE-27,
3.7760E-27,
9.2041E-27,
2.6266E-26.
5.8485E-26.
6.9861E-26,
8.0311E-26.
9.4909E-26,
9.5459E-26,
6.2677E-26,
2.1819E-27,
4.4417E-27,
1.1574E-26,
3.3424E-26.
6.5856E-26,
6.8200E-25.
8.3186E-26,
9.0160E-26,
8.9919E-28,
5.1899E-26.
2.466E-27,
5.2422E-27.
1.4126E-26,
3.8418E-26,
6.8937E-26,
6.80892E-26,
8.4260E-26,
9.14941-26,
0.6040E-26,
4.4188E-26/
3.0638E-26,
1.0928E-26.
4.3500E-27.
2.1709E-27.
1.2389E-27,
7.41912E-2,
4,5044E-28.
2.7979E-28,
1.7770E-26.
1.1551E-28.
2.5573E-26,
8.9986E-27.
3.7584E-27.
1.9294E-27,
1,1189E-27,
6.7085E-28,
4.0916E-29,
2.5495E-28,
1.6260E-28,
1.0655E-26,
2.0317E-26,
7.4653E-27.
3.2633E-27.
1.72581-27.
i.0046E-27,
6.0708E-28.
3.7220E-2C,
2.3286E-29.
1.4885E-28,
9.65652-20.
1.6371E-26,
6.1111E-27,
2.8413E-27,
1.5492E-27,
9.0832E-26,
5.4963E-28,
3.36786-28,
2,1233E-28,
t.3674E-28,
9.1391E-29/
7.60996-29,
5,60962-29.
4.1250E-29,
3.24992-29,
2.50502-29,
2.6049C-29,
2.73D72-29.
3.1020E-29,
3.9076E-29,
5.402?E-29,
7.3547E-29,
5.25921-29.
3.9081E-29,
3.1324E-29.
2.7545E-20,
-.6042E-29,
2.77031-29,
3.22539-29.
4.1385E-29,
5.6303E-29,
6.86701-29,
4.9352E-29.
3,711RE-29,
3.0313E-29,
2.7?49E-29,
2.6729E-29,
2.63S61-39.
3.33471-29,
4,39227-29,
0.320OIE29,
6.41312-29,
4.6354E-29,
3.5372E-22.
2.94381-29,
2.69079-20,
2,11712-29,
2.906?E-29,
3.52321-29,
4,86611-29,
8.08781-29/
0.3930E-29,
1.4021E-29,
2.8113E-24.
5.73591-28,
1.3604E-27,
2.9211E-27.
3.9499S-27,
3.707le-2?,
S.05305-27,
C,29301-27.
6,336-27•
9.19524-29, 1.2e8-28,
1.6437E-20, 1.0074C-28,
3.26301-28, 3.7305E-26.
6.0743E-28, 7.0421E-28.
1.03379-27, 2.00561-27,
3.31040-27. 3.73970-27,
3.9508f-27, 3.7652t-27,
4,09259-27, 4.27179-2',
6.95311-27, 16.1094-21,
7.3065E-27,
116
1.13889-26.
2.11601-2,
4.22349-20,
9.02641-28,
2.32521-2?,
3.205•-27,
3.50892-27,
4.02419-27,
6,5080-27,
7.46741-27/
5SF
BSF
8SF
BSF
NSF
ISf
8SF
8SF
BSF
8SF
BSF
6SF
8SF
BSF
ISF
SF
8SF
8SF
1SF
BSF
SF
BSF
1SF
6SF
8SF
6SF
1SF
1SF
8SF
8SF
SSF
8SF
8SF
1SF
8SF
8SF
1SF
1SF
6SF
6SF
6sF
OSF
1SF
aSF
aSF
ISP
asp
ISP
1SF
OSF
ISV
1SF
ISF
aS?
aSP
aspF
aSP
aSp
SP
690
695
700
705
710
715
720
725
730
735
740
745
750
755
70
765
770
775
780
705
790
795
600
805
610
815
820
825
630
835
840
145
050
655
860
865
670
ITS
a0g
M85
690
695
t00
90s
910
915
920
925
930
935
940
945
305
5ss
S00
04
970
971
11"
C 7.9193-27,
C I.2899E-26,
C 2.6599E-26.
C 4.0551E-26,
C 4.6739E-26,
C 4.9022E-26.
C 5.3231E-26,
C 5.45855-26,
C 2.2993E-26,
C 6.79512-27,
DATA S0751/
C 3.14272-27,
C 1.7162E-27,
C 1.0092E-27,
C 0.04145-28,
C 3.4363E-28,
C 1,9939E-28,
8.3627E-27, 9.12672-27.
1.4447E-26, 1.72682-26,
2.8920E-26, 3.3059E-26,
489-26. 4.292-26,
4.9482E-26, 5.11182-26,
4.8449E-26, 4.8094-26,
5.7382E-26, 6.23502-26,
4.9032E-26, 4.30095-28,
1.7099E-26, 1.38702-26,
5.5336E-27, 4.6439E-27.
1.0021E-26.v
2.0025E-28,
3.5425E-26,
4.42102-26,
5.0986E-26,
4.6111E-25.
6.09512-28,
3.47762-28,
1.0750E-26,
4.0243E-27,
1.121SE-26,
2.3139E-26,
3.9522E-26,
4.5614E-26,
4.9417E-26,
4.93782-26,
5.72812-26,
2.81082-26,
6.5191E-27,
3.53685-27/
2.7775E-27,
1,51152-27,
9.0795E-28,
5.45642-28,
3.0703E-28,
1.8049E-28,
2.179$E-27,
1.2236E-27.
7.4691E-28.
4.35012-28,
2.4831E-28,
1.48632-28,
1.9249E-27,
1.11392-27,
6.74862-28,
3.87672-28,
2.2241E-28,
1.34602-28,
8SF 985
8SF 990
8SF 995
8F10
8SF 1005
8SF 1010
5SF 1015
8SF 1020
8SF t025
8SF 1030
6SF 1035
8SF 1040
8SF 1045
8SF 1050
8SF 1055
8SF 1060
8SF 1065
C1.2212E-28, 1.11555-28, 1.01852-28. 9.3417E-29, 8.5671E-29,
C7.8292E-29, 7.1749E-29, 6.5856E-29. 6.05682-29, 5.5835E-29,
8SF 1070
8SF 1075
2.4486E-27,
1.34792-27,
8.2214E-;S,
4.8754E-28,
2.75622-28,
1.63692-28,
DAT*
CAT
1.
08231/9
C 4.7976E-29,
C 1.5718E-29,
C 2.2172E-27,
C 2.7889E-27,
C 1.00752-28,
C 1302953-29,
t 3,67975-29,
C 1,0798E-27,
C 2.0445E-27,
C 23339E2-27,
C 3.0025E-27,
SBOIJ1SF
1115
C 1.330-29,t.869E29.
.812E-9. tTME29.1.772E-9,
.86-9
.79-9
.7G-9
4.09595-28,
e.234E2-27,
7.2528E-27.
92,412E-27.
1.0949E-27,
13,4100-27,
3,1105E-27
1.92442-2?.
6.22076-26,
235032E-21.
3.74992-2,
6.04325-29, 6.6304E-2,9.07.6459-29,
71.4104E-29. 163341E-27, 7.2079E-29,
7.3012E-29. 2.61865-27. 0.32919-29,
2.34021-27, 2.07952E-27, 2.1946t-28,
1.3.6177-27. 3.491S-27, 3147389-27,
1.40221-20. 3.7772-27, 3.62851E-20.
3.22321-2O7, .5304E-29. 9.0764E-28,
1.64404-27. 1-6hlit-27, *.94131-20/
2.3003E-.27. 4.53125-27 , 3.9005-2.
2.83441-27. 2.52901-26, 2.92371-27,
31.6761E-27. 3.41981-27. 3.24390-27,
8SF 11400
8.14-9
SF 1145
6SF
OSF
8SF
8OF
OSP
5SF
5SF
&SF
asp
OSF
5sF
1120
112S
117
1175
1140
11"9
1190
1195
92705
1215
1150
C 3.690E6-27. 6,24602-27. 3.75205-29, 3.7770E-29, 3.02905[-27.
C'4.27994-29, .770- 3.SBOO1-29.
3.02031-29,
2.361952.281E-29.
C 2.43112-29, 2.57i25-29, 1.8692E-27.. 1.70362-27, 0.4913E-28/
C 7,32772-29, .2078E4-28. 5.05391-2g, 4.52571-20, 39003E2330,
C 7.49721-20, 6,1203E-28. 2.8132E-28. 2.5250t-20, 5.2837C-30,
C 2.0131E28-3. 4.45431-3, 1.11561-20 ,3 222E6-26. 1,2401t-20.
CAtA10t-4
?9 1.041-0
.04-2.752C2)
C 3.084GE-293, 62.9535-30, 5.7252E-20, 2.56300C2-3
2.26101-20,
C .2,10?81-29, 2.0734C2-,
3.03.0730. 9, .76611-30 2.006E5-2.30
C29 3 .2.9
1.54724-2-3
1.46921-2g.. 1.44012-29. 1.40910-29.
C 1,32771-20, t1.294E-2-3 0.421VI-20, 9.2772[-30, 0.37123-30.
SF 1125
asp 1230
OSF l23s
USF 1240
OSP 1245
asp 1215
5.2O-0
SF 1220
lisp 1220
Is( 1260
5F 27
asp 1270
C
.15-3tClW3.523t3,
a?14
C ,32-0
.43-01.15-0.394t3,3371-0
A?15
C. 3.40-0
.93E3.2646-0
.9G-0
.3SM0
"DTA0211as
'5
C
.3
.9#e3,2214-0
P16
t3.207E3.tt0t3.176C3.t43t3.
C4.10-0
.44-0
t.33?C30.1.34U-0,
.2?-0
.421C3,17
IO16
.4i-0
.0l-0
4"-.$SOI-0
FW
017
""C
C 1.70795-30,
C 2.6463E-30,
C 2.8058E-30,
C 2.9031E-30.
C 4.2673E-30,
C 4.6339E-30,
DATA SI001,
C 4.9589E-30,
C 6.09321-30.
C 1.093SE-29,
C 2.7284E-29,
C 6.1787E-29,
C 9.95585-29,
C 1.0719E-28,
C1
C 1.84175-28
C 3.05631-28,
C 5.0397E-28,
DATA 51051/
C 7.7728E-28,
C 9.7533E-28.
C 1.0494E-27,
C 1.1184E-27.
C 1.41185-27,
C 6.4362E-28,
C 1.9319E-28,
C 1.13831-28.
C 1.2883E-28.
C 1.4529E-28,
DATA SItO1/
C 1.4704E-28,
C 1.2336E-2e,
C 1.6540E-26,
C 1.09981-28,
C 3.2233.-29.
C 1.0948.-29,
C 5.57565-30,
C 3.16705-30.
C 1.6970E-30,
CDATA
1.2031E-30,
S;1151/
C 9.28421-31,
C 6.3316E-31.
C 5.954?E-31.
C 0.6T7AE-3t,
C i.67S11-30.
C 2.3240E-30,
C 2.2791E-30.
C 3.65921-3D,
C S.1920E-30.
C 2.001?d-30,
DATA SI20M/
C i.9008GE-29,
C 3.1591E-29,
9 3.260i1-29.
C 4.0SD.•.-20,
C 4.544•.:04,
C 4.1060f-19.
C 2,1795C-20.
C 7.60331-30,
1.8691E-30,
2.7087E-30,
2.7227E-30,
3.1030E-30,
4.3879E-30,
4.6716E-30.
2.0081E-30.
2.7313E-30,
2.73561-30,
3.37451-30,
4.54881-30,
4.7024E-30,
2.1740E-30,
2.3352E-30,
2.8012E-30.
3.8152E-30,
4.7179E-30,
4.7931E-30,
2.4847E-30,
2.9511E-30,
2.8034E-30,
4.0622E-30.
4.6140E-30,
4.8503E-30/
4.9499E-30, 5.0363E-30,
6.6469E-30, 7.4076E-30.
1.2593E-29, 1.49131-29.
3.2159E-29, 3.7426E-29,
6.8237E-29, 7.94211-29,
1.0232E-28, 1.0591E-28.
1.1526E-26, 1.2962E-28,
2.0725E-28, 2.3426E-28,
3.34381-28, 3.6317E-28.
5.3315E-28. 5.9185E-28,
5.3184E-30. 5.6451E-30,
8.3605E-30, 9.4698E-30,
1.8099E-29. 2.1842E-29,
4.5226E-29, 5.36132-29,
9.0002E-29, 9.6841E-29,
1.0657E-28, 1.0441f-28,
1.4336E-28. 1.6150E-28,
2.56191-28. 2.7828E-28,
4.0400E-28..1 45561-28,
6.5311E-28, 6.9188E-28/
7.9789E-28,
1.0007E-27,
1.0303E-27.
1.2364E-27,
1.33711-27,
5.0243E-28.
1.6196E-28.
1.12211-28,
1.3295E-2•,
1.46e5E-28.
8.77681-28.
1.0992E-27.
1.0436E-27,
1.4881E-27,
1.000?E-27.
2.9400E-20.
1.28175-28,
1.1661E-28,
1.4240E-28,
1.4790E-28,
9.1773E-20,
1.08641-27,
1.0537E-27,
1.4723E-27,
7.9628E-28,
2.3443E-280,
1.18631-28,
1.2157E-28,
1.4614.-28,
t.4890E-28/
1.4142E-28. 1.3374E-28.
1.2546E-28. 1.3085F.-28,
1,6144E-281. 15282E-28,
9.6956E-29. 7.0881-1-29.
2.5020E-29, 1,9985•E-29,
9.4141E-30, C.1465.-30,
4.9P051-30. 4-3961E-30,
2.86687-30, 2ý5745E-30.
1.7239E-30, 1.5659E-30,
1.10255-30. 1.0262E-30,
1.2746E-28,
1.4090E-28,
1.4358E-28,
5.576?E-29,
1.5634E-29.
7.15171-30,
3.91111E-30.
2.3212E-30,
1,4301E-30,
9.51305-3t,
t.2172-268.
1,5215E-21,
1.26491-28,
4.2792E-29.
1.3015E-29.
6.29061-30.
3.522TE-30,
2.09461-30.
1.31041-30,
0.8595E-31/
7.77271-31.
61244E-31,
6.163SE-3i1,
1.0052E-30.
1.9239E-30.
2.4081E-30.
2,4047E-30,
4.19A51-30,
6.?V709-30,
1.15.U-20.,
6.493GE-31,
1.1575E-30.
2.17481-30.
2.39301-30,
2.53051-30.
4.6505•-30,
7.33501-30.
1.3999-29.,
1.9261E-3t.
5.96C8E-31,
S.GiOE-3t,
7.0745E•-31.
1.362ai-30.
2.2654E-30,
2.2370E-30,
2.18073-30,
S.0990t-30.
8.14301-30,
1,4101-29.
6.5994-31,
5.8032E-31.
7.0802E-31,
1,51261-30,
2.2902E-30,
2.•24761-30,
3,17411-30,
5.58071-30,
4.9235t-30.
1.764IL-29/
2.20041-29,
346552t-29,
3.323*8-44,
4.1677E-39,
4.4144T7.29,
4.3640-29,
1,7880t-22,
6.391M-30,
2.46011-29,
3.44•04-29,
3.1446t-29.
4,53S11-29.
5;261S2E-9,
3.9530"-29,
1.43091-20,
5.649W-30,
2.721$1-29.
3.3046t-29.
4.0795t-29,
4.40V7I-29.
5.i4OGE-29,
3.24479-24.
.135641-29,
4.954t#-30,
•.0376C-29.
3.31101-29.
4.02941t-9,
4.2744t-29,
5.02751t-23.
2.84091-29,
9.19031-30,
4.57632-3o,
8.65981-26,
1.0650E-27.
1.0031E-27.
1.3651E-27,
1.1902E-27,
3.81331-28,
1.4221E-28,
1.1574E-28,
1.42431-2R.
1.4974E-21,
7.31991-31.
Il
6SF 1280
8SF 1285
8SF 1290
8SF 1295
8SF 1300
8SF 1305
BSF 1310
5SF 1315
8SF 1320
BSF 1325
WSP 1330
8SF 1335
8SF 1340
6SF 1345
BSF 1350
OSF 1355
8SF 1360
6SF 1365
BSF 1370
8SF 1375
@SF 1380
85F 1385
1SF 1390
BSF 1395
8SF 1400
8SF t405
6SF 1410
4SF 1415
6SF 1420
1SF 1425
6SF 1430
1SF 1435
6SF 1440
1SF 1445
OSF 1450
8SF 1455
8SF 1460
ISF 1455
BSF
1470
GiSF 1475
6F5 1470
8SF t405
9SP 1490
6SF 1495
asp 1500
6SF 1505
ISF 1510
aSF 1515
SF S1620
a5s 1525
6SF 1530
8SF 1535
*&r IS40
lSF I54S
aSp 1550
SpF 1556
5SF 1580
aSp 1565
asF st7o
,"
C 4.3898E-30,
f:4.93J4E-30,
DATA S1251V
C 4.8928E-30,
C 4.7260E-30,
C 4.33092-30t
C 5.0166E-30,
C 2.6289E-30,
C 7.8207E-31,
C 3.06822-31,
C 1.7162E-31,
C 1.046!E-31,
C 7.3322E-32,
DATA 51301/
C 5.9387E-32,
C 5.70032-32.
C 6.4232E-32,
C 8.2612E-32,
C 1.1692E-31,
C 1.7905E-31.
C 3.00C2E-31,
C 5.2123E-31,
C 9.6453E-31.
C 2.0766E-30,
DATA S1351/
C 4.7663E-30,
C 9.5144E-30,
C 1.43752-29,
C 2.6679E-29,
C 4.49032-29,
C 5.6704E-29.
C 6.3778E-29,
C 5.6905E-29,
C 7.6078E-29,
C 4.00999-29,
DATA S1401/
C 1.201•E-29.
C 6.52911-30,
C 5.0490t-30,
C 7.0400E-30,
C 9.2342E-30,
C 1.22191-29,
C 1.1609V-29.
C 1.142t1-29,
C 1.4312;-29,
C 6.16440-30,
OATA %4ISI/
C 1.5176E-30,
C ?.390G5-31.
S.i5-31,
C 3.101RE-31,
C I,613O31-i
C 1.05440-32,
C 0,493S'34-,
C 5.29M33-32,
4.3505E-30,
5.1122E-30,
4.3671E-30,
5.16492-30,
4.5329E-30,
5.0965E-30,
4.7947E-30,
4.5756E-30,
4.4182E-30,
4.6799E-30,
2.1029E-30,
6.24512-31.
2.69002-31,
t.5391C-31,
9.6578E-32,
6.9414E-32,
4.798SE-30,
4.5400'-30,
4.67352-30,
4.3119E-30,
1.7011E-30,
5.048tE-31,
2.3778E-31,
1.3877E-31,
8.9579E-32,
6.6037E-32.
4.9071E-30, 4.8867E-30,
4.5993E-30, 4.4042E-30,
5.0378E-30, 5.2204E-30,
3.8803E-30, 3.3291E-30,
1.3345E-30, 1.0224E-30,
4.1507E-31, 3.5419E-31,
2.1343E-31, 1.9182E-31,
1.2619E-31, 1.1450E-31,
8.3463E-32, 7.8127E-32,
8.3285E-32, 6.10952-32/
5.8118E-32,
5.7670E-32.
6.6918E-32,
8.7972E-32,
1.26482-31,
1.9740E-31ý
3.4235E-31,
5.0497E-31,
1.1223E-30,
2.4523E-30.
5.7260E-32, 5.6794E-32,
5.8717E-32, 6.0151E-32,
7.0065E-32. 7.3705E-32,
9.4009E-32. 1.0079E-31,
1.3723E-31, 1,4935E-31,
2.1898E-31. 2.4419E-31,
3.7841E-31. 4.1929E-31,
6.5294E-31, 7.40386-3t,
1.27862-30, 1.48821-30,
2.0591E-30, 3.3388E-30,
5.48582-30.
1.0481E-29,
1.5831E-29,
3,0777E-29,
4.8931E-29,
6.0345E-29,
6.1876E-29.
5,89311-29.
7.30986-29,
3.19331-29.
6.3377F-30,
1.13566-29.
1.7323E-29,
3.4321E-29,
5.2253E-29.
6.10792-29,
5.861E2-29,
6.2476E-29,
6.7573E-29,
2.42906-29.
7.18868-30,
1.2339E-29,
1.9671E-29,
3.81922-29,
5.40402-29,
6.2576E-29.
5.7036E-29,
6.8291E-29,
5,98271-29,
1.84151-29,
6.4164E-30,
1.3396E-29,
2.2975E-29,
4.27111-29,
5,6397E-29,
6.4039E-29,
5.5640E-29,
7.4522E-29,
5.09217-29,
1.45951-29/
1.01641-29,
6.14771-30,
5.85071-30.
7,23131-30.
9.67541-30,
1,2413E-29,
1,09911-29.
1.22TOE-29,
1.32101-29,
4.620I3-30.
8.7433E-30,
5.92541-30,
5.9636(-30,
7.5524E-30,
1.02931-29.
1.2613t-29,
1.06001-29,
t.3370Z-29,
I.-•92-2I9,
3.4164C-30.
1.Tf1i-30.
5.01509-30,
6.24011-30,
,06631-30,
'.06951-29,
1.26711-29,
1,0570E-29,
1.4742C-29,
1,00SI1-29,
2.1412C-30.
7.00411-30,
5.75911-30,
0.54719-30.
6.33461-30,
1,13309-29,
t.23251-29,
1,0811t-29,
1.4941-29,
1,2560•-30.
4.?72SH-31.
C4740Z9-3t.
2.01092-31.
1.5039t-31,
0,7159t-32.
4,11951-32,
6.33302-32,
1.0920t-30.
6.|1409-31.
4,-11OH-31,
2,61•10-31,
1,3*491-31,
7.9901-32.
8.92333t32.
5.2212t-32.
9.44111-31,
8.71129-31.
3.7421t-31,
2.2615-31,
1.22951-31,
7.ZV731-32,
5.59241-33,
6.39.23-32,2
0.37331-31,
S.364OV-31.
3-4440M-31.
2.04090-31,
ilol`0?-31,
6.0031t-32,
5,41119-33,
4.5C62-31.
t.880S6-31.
1.,2$71-31, 1.102lo-31s
C 5,03221-32, 5.9433t-32, 4.31411-32..6.o01691-2,
C DATA
l,256i-32,
t.40S0-3.2.
%l50l/
C I.J63t-3,.
1.1543•-3'I. 1.90034-31.
I
11
I "li
1.210?9*.31,
4.88272-30,
4.95512-30/
5.67112-32,
6.1984E-32,
7.7873E-32,
1.0840E-31,
1.6313E-31,
2.7426E-31,
4.67761-31.
6.47931-31,
1.7799E-30,
4.0531E-30/
7,93917-30,
1.34571-30/
7.80161-32.
2.40646-31,
8SF
6SF
6SF
BSF
BSF
6SF
BSF
8SF
BSF
6SF
6SF
BSF
8SF
BSF
8SF
8SF
1575
1580
1585
1590
1595
1600
1005
1610
1615
t620
1625
1630
1635
1640
1645
1650
BSF
8SF
8SF
8SF
5SF
1555
1660
1665
1670
1675
1880
1665
1690
1695
1700
1705
1710
1715
1720
1725
1730
1735
1740
174I
1750
1755
1760
1765
5SF
BSF
8SF
6SF
8SF
8Sp
OSF
6SF
6SF
6SF
1SF
IS?
3SF
5SF
6SF
1SF
aSF
asF
3SF 1770
BSF 1775
6SF 1730
OSF
l76
6asF 1710
aSp 1703
4SF 1400
as5 10M
asF 1610
asp lots
tO
W59 1821
aSF 1330
W9 1l#s
OSf 1040
603 lils
asp 1os0
61
061
Of 1060
opF 1344
C 2.6777E-3i,
C
C 4.6283E-31,
1.0852E-30.
C2.2485E-30.
2.51148-30.
3.2543E-31,
6.5490E-31,
1.49t68-30.
3.5536E-31,
7.6803E-31,
1.774SE-30,
3.9942E-31,
BSF 1870
3.1319E-30,
9.0053E-3i,
2.0073E-30,
3.33058-30,
BSF 1875
8SF
1880
BSF 1885
2.7715E-30.
C 3.5059E-30.
3.S746£-30,
3.63118-30.
3.7344E-30.
3.6574Er30,
8SF 1890
C 3.7539E-30,
C 4.3977E-30.
C 5.2344E-30,
C 4.9181E-30.
DATA SI551/
C 1.8631E-30,
3.9434E-30,
4.6062E-30.
5.6752E-30.
4.3272E-30.
1.4587E-30,
6.iO56E-31,
3.634?E-31,
3.5469E-31,
4.64762-31.
5.51582-31.
6.8230E-31.
6.3813E-31.
6.8810E-31.
3.1742E-31,
4.35I08-30. 4.3340E-30,
4.7687E-30, 4.6457E-30,
5.87028-30. 5.6603E-30.
3.5681E-30, 2.8814E-30,
1.1782E-30. 9.8132E-31.
5.3459E-31, 4.7116E-31.
3.50?1E-31, 3.3897E-31,
3.8111E-31. 3.8675E-31,
4.97612-31. 5.v3802-31.
5.6864E-31, 5.9311E-31,
6.66942-31. G.G0182-31.
6.4741E-31. 6.8630E-31.
6.41042-3t. 5.813G8-31.
2.5581E-31, 1.8824E-31,
4.2588 -30,
4.85788-30,
5.3784E-30,
2.3320E-30/
4-3094E-32.
8SF
8SF
8SF
9SF
6SF
8SF
BSF
6SF
1SF
8SF
8SF
6SF
8SF
8SF
8SF
115F
8SF
2-.3139-32,
1.55081-32,
BSF 1980
SSF 1085
C 8.91704-31,
C 3.81252-31,
C 3.3563E-31.
C 4.34752-31,
C 5.38026-31,
C 6.7893E-31,
C 6.5893E-31,
C 7.0687T-31.
C 3.76252-31,
C%•
9.69198"32,
DATA
S1601/
C 3.7190E-32.
C 2.1025E-32,
1
2.9751E-31,
5.4556E-31,
1.2946E-30.
7.353H-32.
6.098S8-32.
3.2520E-32.
1.9257E-32.
2.8756E-32. 2.56S08-32,
1.?7??E-32. 1.8539E-32.
5.0742E-32.
8.25282-31.
4.1878E-31,
3.35418-3,,
4.1333E-31,
5.41352-31,
6.3827E-31,
6.4663E-31,
7.0255E-3,.
4.7242-31t,
1.3303E-31/
1895
1900
1905
1910
1915
1920
1925
1930
1935
1940
1945
1950
195S
1960
1965
19?5
1970
"4-32, .43-32,
1.2514e-32. 1.2437E-32. t.3417E-32.
1.3157E-32.
1ý3596g-32. 1.4144E-32.
1.649?E-32.
t.1544E-32.
1.4
5657E
t3GE/2 1.0?3BE-32,
.4T
2.3354E-32. 2.529?1-32. 2.7403E-32.
3.5$331-32. 3.9374E-32. 4.3415E-32
CDA
5.9316E-32.
132.1?.46)3-3',
6
.7433
0TA
$1651t
1.29-3,
1.2592E-32.
1.4806C-32.
2.0094E-32.
2.994WE-3.:
C007491-34,
I..382-2-32
1.32702-32.
1.2023E-32.
1.55*8G-32,
2.1626E-32.
3.270GE-32:
5.3602E-32,
9.07471-32/
8SF I'm
85p 2000
sF 2005
85F
1990
S$F 2010
aSp 015
ISSF202S
2020
8SF
f! 1.1350g-3i,
C 2.4504E-31.
C 5.?85SE-31,
C i.311-30,
1 7110E-3t.
2.WE'-3i1,
3.9979E-31, 4.0704E-31,
943
-31
.4t-0,
2.31071-30.
5.$58UE-30.
aSp 030
85F 2035
8UF 2040
aSF 2045
C 6
G,3
C•
.1o3S-3o,
0t31 . 6,.M(MC-30,
6, 17*0-M0, 6.91249-30,
0,30d4
-30. 6.44itl-3O,
Ct
M-3o, 6.92M5-30.
4.6,140-30.
asJp;cgs
2OYQ
as#
C
C
C
C
C
C! 4.2630[-30.
4
1,3101E-31.
2,9180 -31.
1.540SE-31,
3,4t91
E-31,
96,757O-31,
7.9103E-31.
1.55M-30. 12
I.057ZG-30,
30.
4,51541-30.
4.0303C-10.
4.942A,30.
5.3109t-30.
asp aoss
.77MtS-30,
4.3•3
0,03T1C-30.
5,7??dt-30t
C 4,6944k3-0,
3,74351-30, 2.9494E-30.
2.214C-30,
1.0115t-30.
4SF
0fis
C 4-0221f-3|.
4ý39•10-31ý
C.31914-31.
6.11SM-It.•
ot
III$
I.QQ
4,•441-311
-30
0-3-t 31
120
list 2415
I
C
C
C
C
C
.,C
5.0002E-32,
3.5215E-32,
2.0707E-32,
9.5175E-33,
5.35482-33,
4.2638E-32, 3.94612-21,
3.0018E-32, 2.65586-32,
1.51142-32. i.2941E-32,
7.32532-3-. 6.5551E-33,
4.4413k-Q3, 4.06002-33,
3.7599E-32,
2.3928E-32,
1.1004E-32,
5.9098E-33,
3.71881-'3/
BSF
BSF
8SF
BSF
8SF
2164
2170
2175
2180
2185
cDATA
SIO/93SF290
3.4121E-33,
3.13S62-33,
2.8856E-33,
2.659*2-33,
2.45332---,
R5F 2195
C
C
C
C
1.0224E-33,
7.4626E-34,
5.61212-34,
4,34112-34,
3.44272-34,
2.7868E-34,
2.29212-34,
1.9407-33,
1.34372-33,
9.5767E-34,
7.03252-34,
5.3195E-34,
4.13672-34,
3.2952E-34,
2.6770E-34,
2.2076E-34,
1.72902-33,
1.2527r-3L,
8.981i
-,,
8.6352E-.,*,
5.0479E-34,
3.94562-34,
3.15662-34,
2.57302-34,
2.1271E-34,
1.66952-4J,
1.16932-33,
8.43352-34,
6.26762-34,
4.79532-34
3.7670E-3*.
3.02612-34,
2.4745E-34,
2.05042-34/
1.90732-34,
1.6000E-34,
1.3495E-34,
1.14222-34,
9.08702-35,
8.2257E-35,
6.98912-35t
5.9399E-35,
5.0404E-35,
4.29022-35,
1.84042-34,
1.54592-34,
1.3049E-34,
1.10502-34,
9.37472-35,
7.9617E-35,
6.76532-35,
5.74992-35,
4.88682-35,
4.1527E-35,
1.7764E-34,
1.4939E-34,
1.2620E-34,
1.06912-34,
9.07272-35,
7.7064E-35,
6.54882-35,
5.5659E-35.
4.73032-35,
4.0196E-35,
1.71512-34,
1.44392-34,
1.2206E-34,
1.03452-34,
8.78082-35,
7.4594E-35,
6.33922-35,
5.3878E-35,
4.5788E-35.
3.8907E-35/
3SF 2200
8SF 2205
8SF 2210
8SF 2215
8SF 2220
8SF 2225
8SF 2230
BSF 2235
GSF 2240
8SF 2245
8SF 2250
BSF 2255
8SF 2260
CSF 2265
8SF 2270
BSF 2275
8SF 2280
8SF 2286
BSF 2290
8SF 2295
BSF 2300
BSF 2305
8SF 2310
BSF 2315
8SF 2320
BSF 2325
8SF 2330
8SF 2335
BSF 2340
8SF 2345
8SF 2380
8SF 2355
8SF 2360
8SF 2365
8SF 2370
8SF 2375
BSF 2380
BSF 2385
8SF 2390
8SF 2395
BSF 2400
8SF 2405
OSF 2410
BSF 2415
BSF 2420
DSF 2435
2.26632-33,
1.5512E-33,
1.0927E-33,
7.92852-34,
5.92742-34,
C 4.56022-34,
C 3.5996E-34,
C 2.9030E-34,
C 2.38092-34,
DATA $1851/
C 1.97722-34,
C 1.6564E-34,
C 1.395SE-34,
C 1.1807E-34,
0;1.00102-34,
C 8.4906E-35,
C 7.2204E-35,
C 6.13632-35,
C 5.21532-35,
C 4.4322E-35,
DATA S1901/
C 3.76592-35,
C 3.19912-35,
C 2.71672-35,
C 2.3064E-35,
C 1.9574E-35,
C 1.6607E-35,
C 1.4084E-35,
C 1.13412-35,
C 1.01202-35,
C 8.57342-36,
DATA 5;951/
C 7.260GE-36,
C 6.1466E-36,
C 5.20152-36,
C 4.40022-36,
C 3.7209E-36,
C 3.1454E-36,
C 2.65792-36,
C 2.24512-30,
C 1.89502-36,
C t.60032-36,
DATk S2001/
C 1.3503E-36/
"C
c
4.55782-32,
3.2467E-32,
1.7575E-32,
8.2a94E-33,
4.86972-33.
2.09602-33,
1.44292-33,
3.6451E-35, 3.52812-35,
3.09632-35, 2.99672-33,
2.62923E-35, 2.5446E-35,
2.2320E-35, 2.16002-35,
1.89422-35, 1.8329E-35,
1.60692-35, 1.5548E-35,
1.3627L-35, 1.3185E-35,
1.1552E-35, 1.11772-35,
9.7900E-36, 9.470'i736,
36
8.29332-36, 8.02kci,
7.02292-36,
5.9449E-36,
5.03052-36,
4.2552r-36,
3.5981- 36,
3.04131-36,
2.5697ý-36,
2.1?05E-36,
1.83272-36,
1.54692-36,
c "929E-36,
t?.,498E-36,
4.86502-36,
4.11492-36,
3.47922-36,
2.94062-36,
2.48452-36,
2.0484E-36,
1.77182-36,
1.49522-36,
END
121
3.4149E-35, 3.30522-35,
? 90042-35, -8071E-35,
!.4626E-35, 2.3833E-35,
2.0903E-35, 2.0228E-35,
1.77362-35, 1.7163E-35,
1.5044E-35, 1.4557E-35,
1.2757E-35, 1.2342E-35,
1.08132-35, 1.04612-35,
9.16182-36, 8.86282-36,
7.7600.-36, 7.5062E-36/
6.57032-36,
5.5610E-36,
4.70492-3',
3,9792E-36,
3.36422-36,
2.84322-36,
2.40202-36,
2.02862-36,
1.71262-36,
1.4453F-36,
6.35502-36,
5.3783E-36,
4.5S002-30,
3..79E-36,
3.25302E3$,
2.74902-36,
2.3223E-36,
1.96112-36,
1.65552-36,
1.39702-36/
.4
860
100
860
B6O
WATER VAPOR CONTINUUM - SELF BROADENED ABSORPTION COEFFICIENTS 260860
060
CMMON /S260/ Vl,V2,DV,NPT,S260(2001)
860
COMMON /S260/ V1,V2,DV,NPT,S0001(50)ý$O051(50),S0101(50),S0151(50)B5O
8BO
1.S0201(50),S0251(50),S030t(50),S0351(90),50401(50),S0451(50)
860
.•S3501(50),S0551(50),50601i50),SO651(50),S0701(50),$0751(50)
3,SO801(50),S0851(50),S0901(50),S0951(5Q)
860
4.S1001(50),S10S1(50),S1101(50),S1151(50),S1201(501,SI251(50)
860
105
110
115
120
125
130
135
140
145
150
BLOCK DATA SF260
1
C
C
C
C
BLI.OCKDATA
i,S1301(5O),S1351(50),S1401(50),S1451(50)
6,S15S.i(50).S1551(50),S164 v(50),S165l(5C01.l701(50),S1751(50)
7,Si801(50),s1851(50),S19C1(50),Sl951(,OjS2001(1)
CB60
C
0.
.
DIMENSION S260(1)
EQUIVALtNCE (S260(1),S0001(1))
DATA VI.V2.DV.NPT /
3.0,
20000.0,
C
C
DA(A SO001/
1.60r7E-21,
2.2454E-21,
1.9712E-21,
i.1626E-21,
5.9688E-22,
2.986JE-22,
1.3932E-22.
6.4967E 23,
3.2824E-23.
1.9?05F-23.
DATA 50051/
C 1.1803E-23,
C 7.6319E-24,
C 5.0768E-24,
C 3.4325E-24,
C 2.3630E-24.
C 1,6544-24,
C lttil17F-24,
C 8.6272E-25,
C 6.1613E-25,
C 4.97611-25,
DATA 50101/
C $.94911-25,
C 3.2374L-25,
C 2.75471-25,
C 2,4502E-25.
C 2,34031-2d,
C 2.52345-25,
C 34,3202E-25,
C 0,1071H-26,
C 1.33271-24,
0 2.020E-24.
DATA S0151/
C 4.52071-24,
C 3.B51E-24.
C 3,7131.1-24,
C
C
C
C
C
C
C
C
C
C
10.0,
2001/
1.7045E-21,
2.34285-21,
1.8317E-21.
1.00981-21,
5.1117E-22.
2.5252E-22.
!.tP43E-22,
5.S 1tE-2J,
2.912CE-23,
1.71451-23,
1.77505-21,
2.3399E-21,
1.6724E-21,
8.9033E-22.
4.6218E-22,
2.2075E-22,
1.0079E-22,
4.8444E-23.
2.6102E-23.
1.5573E-23,
2.0036E-21,
2.3022E-21.
1.4780E-21,
7.9770E-22.
4.2179E-22.
1.9209E-22,
8.7667E-23,
4.2552E-23,
2.3370E-23,
4.4206E-23.
2.1347E-21,
2.0724E-21,
1.2757E-21,
6.74165-22,
3.4372E-22.
1.58161-22,
7.4094E-23,
3.6953E-23,
2.1100E-23,
1.2931E-23/
1.0774E-23,
7.01491-24.
4.6880E-24,
3.18095-24,
2,1977E-24.
1.5442E-24,
1.1076F-24,
8.12b3f-25,
6,118IC-25,
4.7395E-25,
9.8618E-24,
G.4637E-24.
4.3317E-24,
2.9501E-24.
2.0452E-24.
1.44251E-4,
i.039t1-24,
7.66079-25,
5.8001E-25,
4.51971.-35
9.0496E-24,
5.9566E-24,
4.001q7E-24,
2.7302E-24,
1.9042E-24,
1.3486E-24.
9.7563E-25,
7.2302E-25.
5.5048E-25,
4.3155E-25,
8.3071E-24.
5.4907E-24.
3.7064E-24,
2.5430E-24,
t.77406-24.
1.2618E-24,
9.1606E-25.
6.8311E-25,
5.230?E-25,
4.1256E-25/
3.7049E-25,
3.1244E-26,
2.0014E-25.
2.4203E-25.
2.35103E-.5
2.60321-25,
3.6035E-25.
7.20311-25,
I.S3901-24,
2 ,80??E-24.
3.6324F-2%,
3.0201E-25.
2.01471-25,
2.•891E-35,
2.36941-25.
2.7119E-25,
4.0732E-25,
0.S9609-25.
1.7513E-24,
3.25900-24.
3.49081-25,
2.9240E-25,
2.55511-25,
2.3663E-25.
2.4032E-25.
2.0631E-25,
4.5923(-25,
9.8042E-25,
2.0605C-24.
3.0624E-24.
3.35940-25,
2.0356E-25,
2.5029E-25.
2.3531E-25,
2,4519E-25,
3.00405-"5,
5.3373f-IIS,
1,1469t-24.
2.36091-24,
4.t5101-24/
4,2336t-24, 5.4500d-24,
5.3005t-24, 4.2020E-24.
3.025a-24, 3.96376-24,
3.105E
3.0.
5.0250E-24. 5.00001-24.
4.39151-24. 4.03439-24,
4.46751-24, 4.70 21-24.
47012
B60
BOO
860
155
160
165
170
860 175
B60 180
B60 185
B6O 190
8360 195
660 200
860 205
860 210
B60 215
860 220
860 225
860 230
BOO 235
860 240
860 245
660 250
8B0 255
560 260
860 265
880 270
860 275
60 280
$50 2a5
560 290
860 29S
BOO 300
60 305
560 310
800 315
880 320
060 325
860 330
060 336
560 340
860 345
800 350
800 355
660 360
060 363
800 370
N00 375
a8O
380
860 385
N60 360
C 4.9022E-24,
C 4.5473E-24,
C 2.6367E-24,
C 1.3651E-24,
C 7.4788E-25,
C 3.7856E-25,
C 2.0279E-25,
DATA S0201/
C
C 1.0802E-25,
6.42342-26,
C 4,1716E-PO,
C 2.9172E-26,
C 2.1359E-26,
C 1.6185E-26,
C 1.2545E-26.
C 9.9250E-27,
C 8.0046E-27,
C 6.5648E-27,
DATA S0251/
C 5.46932-27,
C 4.63812-27,
C 4.0459E-27,
C 3.6254E-27.
C 3.2655E-27,
C 2.97492-27,
C 2.78562-27,
C 2.65482-27,
C 2.9236E-27,
C 4.4692E-27,
DATA S0301/
C 9,3716E-27,
C 1.56272-26.
C 2.0716E-26.
C 1.6657E-26,
C 1.9953E-26,
C 2.3209E-26,
C 2.2779E-26,
C 2.S290o-26,
C 3.0013E-26,
C 6.61OOE-26,
DATA 50351/
C i.283IR-25,
C 2.7940E-25,
C 6.0305E-25,
C 1,28132-24,
C 1.5144E-24,
C 1.6429E-24.
4
""2
4--
5.2076E-24,
4,3952E-24.
2.3767E-24,
1.1874E-24,
6.5438E-25,
3.3034E-25,
1.75268-25,
5.367E-24,
3.9614E-24,
2.0427E-24,
1.07358-24,
5.8248E-25,
2.9592E-25,
1.5714E-25,
5.27S5E-24,
3.4086E-24,
1.75952-24,
9.04P0E-25,
4.8076E-25,
2.6088E-25,
1.3553E-25,
4.8244E-24,
2.9733E-24,
1.5493E-24,
8.1149E-25,
4.34882-25,
2.34978-25,
1.21452-25/
9.7681E-26,
5.8391E-26,
3.8649E-76,
2.73482-26,
2.0159E-26,
1.53586-26,
1.19518-26,
9.49352-27,
7.6834E-27,
6.3214E-27,
8.8196E-26,
5,3532E-26.
3.5893E-26,
2.5644E-26,
1.9051E-26,
1.4584E-26,
1.1395E-26,
9.0873E-27,
7.3800E-27.
6.0909E-27,
7.8291E-26,
4.9079E-26,
3.3406E-26.
2.4086E-26.
1.8031E-268
1.3881E-26,
1.0873E-28,
8.70502-27,
7.09312-27,
5.8725E-27.
7.1335E-26,
4.53782-26,
3.1199E-26,
2.2664E-26,
1.7074E-26,
1.31798-26,
1.0384E-26,
8.3446E-27,
6,8217E-27,
5.6655E-27/
5.2835E-27,
4.5007E-27,
3.9532E-27,
3.5420E-27,
3.18652-27.
2.9184E-27,
2.7509E-27,
2.6617E-27,
3.035E-27,
5.0761E-27,
5.1077E-27,
4.3728E-27,
3.8662E-27,
3.4617E-27,
3.1203E-77,
2.8795E-27.
2.7152E-27,
2.6916E-27,
3.28548-27,
5.7715E-27,
4.9416E-27,
4.2550E-27.
3.78552-27,
3.3838E-27,
3.0670E-27.
2.8501E-27,
2.6844E-27.
2.7372E-27,
3.5481E-27,
6.77232-27,
4.7853E-27,
4.14502-27,
3.7041E-27,
3.3212E-27,
3.0252E-27,
2.8202E-27,
2.6642E-27,
2.80942-27,
3.9377E-27,
8.06688-27/
1.0797E-22,
1.6519E-?6,
2,04332-26,
1.5070E-2•,
2.09752-28.
2.29982-26,
2.23462-26.
2,7340E-26,
4,3334E-26,
7.47092-26,
1,0689E-26, t.32172-26.
1.7601E-26, 1.9060E-26,
1.9752E-26, 1.8466E-26,
1.5633E-26, 1.6520E-26,
2.2016E-26, 2.2542E-26,
2.3056E-26. 2.2757E-26.
2.2445E-26, 2.3174E-26,
2.9720E-26, 3.2332E-26,
4.9088E-26, 5.34282-26,
0,5019E-26, 9.6835E-26.
1.4814E-26,
2.0474E-26,
1.7526E-26,
1.8471E-26,
2.308tE-26,
2.2685E-26,
2.4284E-26,
3.5392E-26,
5.9142E-26,
1.0984E-25/
1.70802-25,
3.994JE-23,
8.7398E-25.
1,3952E-24,
1.6512-24,
1.6543E-24.
1,727?E-24,
1.18072-24,
6,1962E-25.
,63802E-25.
2.0103E-25,
4.6429E-25,
1,0034E-24,
1.4204E-24,
1.713-5-24,
1.5944E-24,
1.8307E-24.
1.2364E-24,
4.1415E-25,
1.33042-25,
2.41482-25,
5,8633E-25,
1,1169E-24,
1.46152-24,
1.68312-24.
1,5404E-24,
.76222-24,
9.75786-25,
3,134?E-25.
1.111?E-25/
7,1512E-26,
3.890SE-26.
ý.2902C-26,
1.410TE-28,
0,99011-27,
5.9045E-27.
3.94372-27,
0.2092C-26, 5.•252"-20,
3.4079"-26. 3.1089E-25,
2.0001C-2 4, 1.0703E-26,
1.2839E-20. 1,1706E-20,
6.23942-27, 7.5567E-27,
5.4263C-2?, 6.00331-27,
3.$497-27?, 3.37818M-2,
1.4664E-25,
3.2855E:25.
7.6048E-25,
1,3354E-24,
1.54752-24,
t.0353E-24.
S1.54SOE-24, 1.6297E-24.
C 1,63002-24, 1.5213E-34,
C 7.91402-25, 6,4741E-25,
C 2,5125E-25. 2.0027E-25,
DATA S0401/
C 9.4992E-20, 6.15IE2-26,
C 4.9000"-26, 4,3447E-20.
C 2.40ttS-26. 2,54902-24.
C 1.703SE.-0. 156382C-26.
C 1.07109-26, 9.l09OC-2?,
C 6.94340-27, 6.3067C-27.
C 4.6l162-27. 4.2052d-27,
860
860
860
560
860
860
860
B60
560
860
860
860
860
860
860
860
860
860
860
860
860
860
860
860
860
860
860
860
860
560
B60
860
860
580
060
860
860
860
560
680
860
880
860
5o0
060
860
860
800
S80
860
560
860
880
660
660
860
860
I60
8"0
395
400
405
410
415
420
425
430
435
440
445
450
455
480
465
470
475
480
485
490
495
500
505
510
515
520
525
530
535
540
545
550
655
560
565
570
575
580
t85
590
595
600
605
610
615
620
625
630
635
640
045
650
655
860
668
67S
675
G80
6s
C 3.1292E-27, 2.9011E-27,
C 2.1582E-27, 2.0081E-27,
2.6915:-27, 2.4989E-27,
i.8700E-27, 1.7432E-27,
2.32155-27,
1.62641-27,
B60 690
'B60 $95
C 1.5191E-27,
1.4207E-27,
1.3306E-27,
1.2484E-27,
1.1737E-27/
8O8
700
C 1.105SE-27, 1.0451E-27,
C 8.5697E-28, 8.1945E-28,
6.8923E-28, 6.5869E-28,
C 5.6744E;28, 5.5016E-28,
C 5.1737E-28, 5.1603E-28,
C 5.2918E-28, 5.3589E-28,
C 5.8968E-28, 6.0973E-28,
C 7.2686E-28, 7.6541E-28,
C 9,7851E-28, 1.0516E-27,
9.9060E-28,
7.8308E-28,
6.3308E-28,
5.3813E-28,
5.1656E-28,
5.4560E-28,
6.3432E-28,
8.0991E-28,
1.134SE-27,
9.4135E-28,
7.4808E-28,
6.0840E-28,
5.2792E-28,
5.1989E-28,
5.5869E-28e
6.6245E-28,
8.5950E-28,
1.2295E-27,
8.9609E-28,
7.1686E-28,
5.8676E-28,
5.2097E-28.
5.24679-28,
5.7403E-28,
6.9353E-23,
9.1429E-28,
1.3335E-27,
860
860
860
BO0
BO0
860
860
860
860
710
71M
720
726
730
735
740
745
715
860
B60
860
860
580
B60
880
860
Boo
560
860
S60
860
860
B60
860
860
860
860
860
ago
560
P60
660
560
80
no0
B60
80
g60
t60
860
160
560
560
800
NO
660
860
S60
760
765
771
77
780
785
790
795
600
605
810
61$
820
602
630
835
840
845
660
655
660
665
670
DATA S0451/
"C
C 1.4485-27, 1.5864E-27, 1.7412E-27, 1.9140E-27. 2.10785-27/
DATA S0501/
C 2.3369E-27,
C 4.0566E-27,
C 8.3045E-27,
C 2.2210E-26,
C 6.2289E-26,
C 1.0485E-25,
2.6996E-27,
4.5969E-27,
9.9021E-27,
2,7831E-26,
7.1167E-26,
1.0641E-25,
1.1696E-25,
C t.4264E-25, 1.4985E-25,
C 1.4963E-25, 1.5208E-25,
C 1.1727E-25, 1.0515E-25,
DATA S0551/
C 5.0623E-26, 4.1105E-26,
C 1.7335E-26, 1.4302E-26,
C 7.0589E-27, 6.0750E-27,
C 3.6625E-27, 3.2509E-27,
C 2.1421E-27, 1.9366E-27,
C 1.3354E-27, 1.2097E-27,
C 8.4245E-28, 7.70049-28.
C 5.47429-28, 5.0450E-28,
C 3.6541E-28, 3.3803E-28,
C 2.4905E-28, 2.3146E-28,
DATA 50601/
C 1,75175-28, 1,6396E-28,
C !.2724E-28, 1.1965E-28.
C 9.4662E-29, 8,9553E-29,
C 7.3721E-29, 7.0707E-29,
C 6.1817E-29. 6.0239E-29,
C 5.6368E-29, 5.5940E-29.
C 54'83V-29, 5.6243E-29,
C 6.0429E-29, 6.2211E-29,
C 7.23365E-9, 7,5739E-29,
C 9.3992E-29, 1.0004E-28.
DATA S0651/
C 1.33116-26, 1.4455E-28,
C 2.,0930E-28, 2.3348E-20,
C 3.7485E-28, 4.2569E-28,
C-7.1901E-28 8,.2921E-26,
C 1.5971E-27, 1.0927E-27,
C 3.7024E-27, 4.2059E-27,
S1.0497E-25,
2.8848E-27, 3.2169E-27,
5.3094E-27, 6.1458E-27,
1.2042E-26, 1.4914E-26,
3.4533E-26, 4.4446E-26,
8.3949E-26, 9.6417E-26,
1.0898E-25, 1.0763E-25,
1.2654E-25, 1.302S9E-25,
1.4999E-25, 1.431?E-25,
1.4942E-25, 1.3879E-25,
9.0073E-26, 7.3133E-28,
3.5991E-27,
7.1155E-27,
1.81455-26,
5.1989E-26,
1.0313E-25,
1.0506E-25,
1.3175E-25,
1.4616E-25,
1.3087E-25,
6.1161E-26/
3.3915E-26,
1.1847E-26,
5.3176E-27,
2.9156E-27.
1.7626E-27,
1.1029E-27,
7.0636E-28,
4.6470E-28,
3,1279E-28,
20.1539E-28,
2.6711E-26,
9.9434E-27,
4.69355-27,
2.6308E-27,
1.5982E-27,
1,0063E-27,
0.4923E-28,
4.20819-28,
2.8955E-28,
2.0079E-28,
2.1464E-26,
8,2689E-27t
4.1541E-27,
9.3819E-27,
1.45675-27,
9.2003E-28,
5.9503E-28,
3.9550E-28,
2.685SE-28,
1.8746E-28/
1.5niGE-26,
1.1267E-20,
8.4985E-29,
6.8047E-29,
5.8922E-29,
5.6669E-29.
5.6883E-22,
6.4282E-29,
7.9562E-22,
1.06845-26,
1.44265-28,
1.06175-28,
8.0007E-29,
6.5702E-29,
5.7824E-29,
5.55835-29,
5.7900E-29,
6.6634E-29,
8.3779Z-29,
1.14509-28,
1.3543E-28,
1.0010E-26,
7.70435-29,
6.3634E-29,
5.7019M-29,
5,5653E-29,
5,69645-29,
6.93068-29,
0.6575E-29,
1.23201-26/
1.57541-28,
2.,6074E-26,
4,9915-208,
9.5513E-28.
2.26439-2?,
4,9432E-27,
1.7254E-26, 1.89215-26,
2.92211-29, 3.27701-28,
5.56065-26, 6.23931-28,
.,11119-27, 1,3143E-27,
2.7860E-27, 3.2591-?27,
5,55431-27, 8.7498E-27,
C 5.9210E-27, 8.1005E-27. 8.15177-2?, 5.91931-27, 5.66021-27.
C 5.7403-2?, 66.00-SOE2?, 6,4723E-27, 6.7073E--27 7.54155-27,
C *.0982'-27, 9.78599-27, 9.1430E-27, 9.4459E-27, 9.93479-27,
9.876E-27,1'?
.01539-26, 1.00681-26, 1.03533-26, 1.03931-26/
DATA SO701/
o
124
860
860
no0
70S
755
675
0o6
68s
890
895
900
90g
910
$15
920
925
930
935
94
94
950
9g5
960
NO 965
a60 370
6o 976
no0
o
C 1.07221-26,
C 1.6537E-26,
C 3.4858E-26,
C 6.0503E-26,
C 7.23055-26,
C 7.7657E-26,
C 8.5799E-26,
C 8.2034E-26,
C 3.1517E-26,
C 9.46865-27,
DATA S0751/
C 4.68091-27,
C 2.6415E-27,
C 1.5939E-27,
C 9.6884E-28.
C 5.7256E-28,
C 3.54671-28,
C 2.3056E-28,
C 1.5491E-28,
C 1.05931-28,
C 7.42268-29,
DATA 50801/
C 5.3877E-29,
C 4.13361-29,
C 3.5804E-29,
C 3.9804E-29,
C 5.12971-29,
C 7.53181-29,
C 1.05491-28,
C 1.18381-28,
C 1.4360E-28,
C 1.8352E-28,
DATA 50851/
C 1.94111-28,
C 2.5050E-28,
C 5.2240E-28,
C 1.4341E-27.
C 2.9884E-27,
C 3,6580-E27,
C 4.667?E-27,
C 5.2238E-27,
C 5.6522E-27,
C 2.8932E-27,
DATA $0901/
9.8482E-28,
C 4,9021E'28,
C 3,0120"-20,
C 1.7414E-28,
C 1.0737E-28,
C 8.48561-2g,
C 3.7852E-29,
C 2.2031E-29,
C 1.35761-29,
C 9.1673E-30.
DATA 50051/
C 6.2593&-30,
C 4,49311-30,
C 3,4245"-30,
S2,89779-30,
SC
1.11381-26,
1.8662E-26,
4.0167E-26,
6.4687E-26,
7.6732E-26,
7,7411E-26,
9.16591-26,
7.2297E-26,
2.4469E-26,
7.8486E-27,
1.1923E-26.
2.2473E-26,
4.66755-26,
6.5396E-26,
7.9783E-26,
7.8816E-26,
9.8646E-26,
6.2324E-26,
1.8816E-26,
6.6970E-27,
1.2947E-25,
2.6464E-26,
5.0983E-26,
6.79865-26,
7.9846E-26,
7.8136E-26,
9.4920E-26,
4.9315E-26,
1.4627E-28,
5.8811E-27,
1.4431E-26,
3.1041E-26,
5.7997E-26,
7.0244E-26,
7.7617E-26,
8.0051E-26,
8.76701-26,
3.9128E-26,
1.16985-26,
5.21985-27/
4.1671E-27,
2.3409E-27,
1.43681-27,
8.76888-28,
5.1769E-29,
3.2502E-28,
2.12671-28,
1.4329E--28,
9.84751-29,
6.9379E-29.
3.7006E-27,
2.0991E-27,
1.3050E-27,
7.8956E-28,
4.7037E-28,
2.98271-28,
1.9610E-28,
1.3265E-28,
9.1585E-29,
6.4950E-29,
3.3066E-27,
1.9132E-27,
1.t8835-27,
7.1024E-28,
4.2901E-28,
2.73895-28,
1.8133E-28,
1.2300E-28,
8.5256E-29,
6.09111-29,
2.93871-27,
1.7519E-27,
1.07721-27,
6.3824E-20,
3.8970E-28,
2,61151-28,
1.6775E-28,
1.1420E-28,
7.9525E-29,
5.7242E-29/
5.0821E-29,
3.9632E-29,
3.5776E-29,
4.1742E-29,
5.52910-29,
7.99472-29,
1.1064E-28.
1.1917E-28,
1.5057E-28,
1.8722E-28,
4.8051E-29,
3.8185E-29,
3.62531-29,
4.3581E-29,
5.91256-29,
8.64381-29,
1.17021-28,
1.2131E-28,
1.6247E-28,
1.9112E-28,
4.5554E-29,
3.7080E-29,
3.71135-29,
4.53061-29,
6.4956E-29.
9.7227E-29,
1.2043E-28,
1.24761-28,
1.7284E-28,
1.9092E-28,
4.3315E-29,
3.6296E-29,
3.81511-29,
4.77381E-29,
7.0362E-29,
1.0130E-28,
1.1781E-28,
1.3511E-28,
1.8420E-28,
1.93111-28/
1.9884E-28, 2.0508E-28,
2.7596E-28, 3.1231E-28,
6.3236E-28, 7.7522E-28,
1.67981-27, 1.9825E-27,
3.3247E-27, 3,4938E-27,
3.7124E-27, 3.7030E-27,
4.7507E-27, 4.9653E-27,
5,46901-27, 5.6569E-27,
5.41235-27, 4.7904E-27,
2.3655E-27, 1.8592E-21,
2.1510E-28,
3.6260E-28,
9.8688E-28.
2.28981-27,
34583E-27.
4.1536E-27,
5.37955-27,
5.9844E-27,
4.28511-27,
1.49435-27,
2.31435-28,
4.3410E-28,
1.1859E-27,
2.6257E-27,
3.71805-27,
4.66561-27,
5.49575-27,
5.9835E-27,
3.56031-27,
1.1971E-27/
8,36751-28,
4.5387E-28,
2.7032E-28,
1,67065-28,
9.63001-29,
5.8037E-29,
3.39156-29,
1.97861-29.
1.2518E-29,
6.50840-30,
7,0270E-28,
4,13401-28,
2.4236E-28,
1.4192E-20,
8.8179E-29,
5.2093E-29,
3.00895-29,
1.78909-29#
1.1587E-29,
7.Di47E-30,
6.2496E-28,
3,74531-28,
2.1500E-28,
1.3204E-28,
1,26191-29,
4,72051-29.
2.7335E-29,
1,6268E-29,
1.07261-29,
7.2882E-30,
5.49991-28,
3.32981-28,
1.89885-28,
1,1759E-28,
7.22641-29,
4.1749F-29,
2.43901-29,
1.4030E-29,
9,.91060-30,
6.7342E-30/
5,8294E-30,
4,2357E-30,
3.2776E-30,
2.83126-30,
5.44351-30,
4.00231-30,
3.14691-30,
2.0817•-30,
5.027WE-30,
3.7909E-30,
3.03771-30,
2.9976,-30,
4,78001-30,
3,59996-30,
2.94791-30,
3,00045-30.
125
-•
.
860
860
960
660
860
880
860
860
860
860
860
860
860
860
860
860
880
860
860
860
860
560
860
860
860
860
860
860
860
860
B60
860
860
860
560
80
560
560
560
50
060
880
560
660
No
560
860
860
800
560
860
560
NO
86O
B50
I60
NO
No0
No
985
990
995
1000
1005
1010
1015
1020
1025
1030
1035
1040
1045
1050
1058
1060
1065
1070
1075
1080
1085
1090
1095
1100
1105
1110
1115
1120
1125
1130
1135
1140
1145
1150
1155
1160
1185
1170
117"
1180
1185
1110
1195
1200
1205
1210
1218
1220
1225
1230
1235
1240
1245
1250
1285
1260
1265
1270
¶175
tC
.A
7'C
C 3.1719E-30, 3.38986-30, 3.58576-30,
C 4.541E-30, 4.69496-30, 4.7594E-30,
o 4,975E-30. 4.8369E-30, 4.8829E-3O,
C 5.1954E-30, 5.53526-30, 5.99296-30,
C 7.43176-30, 7.60396-30, 7.83136ý-30,
C 7.8312E-30, 7.85372-30, 7.8872E-30,
DATA S1001/
C 8.28086-30, 625251-30, 8.38576-30,
o 0.86815-30, 10629E-29, 1.1659E-29,
C 1.62546-29. 1.84256-29, 2.14286-29,
0 3.75706-29, 4.43546-29, 5.18026-29,
o 8.7474E-29, 9.80376-29, 1.1582E-28,
O 1.50256-28, 1.55806-28, 1.62286-28,
o 1.63936-28, 1.75456-28, 1.95906-20,
C 2.70506-28, 3.02146-28, 3.37335-28,
4.2660E-28, 4.63856-28, 4.09556-28,
C 6.89486-28, 7.36496-26, 4.26026-20,
DATA051S/
C1.13196-27, 1.17906-27, 1.29416-27,
1.83-27, S.5300E-27, 1.84196-27,
C 1.64946-27, 1.63276-27, 1.60675-27,
C 1.81066-27, 1.9857E-27, 2.1696E-27,
C 2.14026-27, 1.98926-27, 1.73626-27,
C 08.781E-24, 8.86896-28, 5.20826-28,
C 2.7364t-28, 2.32006-28, 2.05906-28,
C 1.66216-26, 1.64336-28, 1.69536-20,
o 1.9107E-28, 1.9875E-28, 2.14166-28.
C 2.2171-28, 2.25346-28. 2.30296-28,
DATA S1101/
C 2.60696-28,
o 1.59606-28,
C 4.51136-29,
o 1,6749E-29,
o 9.01666-30,
C 5.32906-30,
0 3.35291-30.
o 2,23556-30,
DATA 51151/
C 1.5929E-30,
O1.23076-30,
o 1.1066E-30,
o 1,4153E-30,
o 2.57466-30,
o 3.68226-30.
o 3.06536-30,
o 8,69326-30.
o 0.8910E-30.
0 1.31096-29,
DATA S1201/
o 284686E-39,
C 4.60853t-29,
o 5.1119E'-29,
C 6.32066-29,
7.V1921-29,
0 7.2411E-29,
C 2.09446-29,
C 1.081.35-29,
3.83586-30,
4.95296-30,
5.00472-30,
6.71486-30,
6.06846-30,
6.01856-30,
4.3131E-30,
5.15635-30,
5.0203E-30.
7.11211-30,
7.65536-30,
6.10046-30/
8.79206,30,
1.2922E-29,
2.54776-29,
6.27896-29,
1.32936-28,
1.64136-28,
2.14496-28,
3.64876-28,
5.53136-28,
9.2212E-28,
9.24516-30,
1.43876-29,
3.0379E-29,
7.48946-29,
1.44716-28,
1.60206-28,
2.36566-20,
3.93536-20,
6.09236-28,
9.00806-28/
1.3199E-27,
1.7095E-27,
1.6909E-27.
2.33856-27,
1.43086-27,
4.04276-28,
1.8676E-28,
1.71346-28,
2.15566-28,
2.28286-28,
1.3914E-27,
1.69886-27,
1.71181-27,
2.27766-27,
1.11586-27,
3.26606-,28,
1.7329E-28,
1.794895-28,
2.22891-28,
2.31436-28/
2.5097E-28,
1.23866E-28.
3.5523E-29,
1.4624E-29,
8.1079E-30,
4.8590E-30.
3.0789E-30,
2.07836-30,
2.33182-28.
9.93406-29,
2.68446-29,
1.28096-29.
7.22196-30,
4.41116-30,
2.8288E-30,
1.03706-30,
2.15436-28,
7.75026-29,
2.33946-29,
1.13596-29,
6.49226-30,
4.01946-30,
2.6069E-30.
1.80866-30,
1.8942E-28,
5.94626-29,
1.95846-29,
1.00876-29,
5.8803E-30,
3.66446-30,
2.41266-30,
1.69486-30/
1.5013E-30,
V.18656-30,
1.12166-30,
1,5962E-30,
2,96001-30,
3.83636-30,
3.95076-30,
6,35996-30,
9.34006-30,
1.4725E-29.
1,4193E-30,
1.15026-30,
1,15295-30,
1.60466-30,
3.37076-30,
3.82866-30,
4.02506-30,
7.0281E-30,
1.00766-29,
1.70286-29,
1.34706-30,
1.12436-30,
1.2171E-30,
2.09366-30,
3.52676-30,
3.58835-30,
4.44356-30,
7.57776-30,
1.09456-29,
1,96196-29,
1.28416-30,
1.1099E-30.
1.31286E-30,
2.31656-30,
3.59536-30,
3.81546-30,
4,9889E-30,
0,1279E-30.
1.10996-29,
2.35276-29/
3,03276-29,
4.95536-29,
5.2283E-29,
6.5173E-29,
7.89906-29.
6.45116-29,
2.0317E-29.
0.0136E-30.
3.43986-20,
4.95516-29,
5.82976-29,
7,16956-ag,
81.34616-29,
5.73306-29.
t-93099-20,
7.93t3t-30,
3.67976-29,
5.10626-29,
6.34396-29.
1.0520E-29,
83.19466-29.
4,81056-29,
1,53316-29,
7.1843E-30,
4.4115E-29,
5.09966-29,
6.26756-29,
6.889566-22,
7.71536-29,
3.6962E-29,
1.26331-29,
6.64651-30,
126
680
8N0
880
860
MO0
360
860
160
880
360
MO0
360
360
060
360
880
BOO
360
160
360
860
660
360
860
880
860
860
860
360
1300
1305
1310
1315
1320
1325
1330
1335
1340
1345
1310
1355
1360
1365
1370
1375
1380
1385
1390
1395
1400
1405
1410
1415
1420
060
360
560
660
580
360
860
860
360
060
860
360
860
380
880
660
880
860
560
060
560
880
N80
680
580
060
660
no0
1435
1440
1445
1450
1456
1460
1485
1470
1475
1480
1485
14900
1495
1500
1505
1510
1515
1520
1525
1530
1535
1540
1545
1550
1558
1580
less
1670
1280
1285
lisa
1291
1
'
SC
C 6.42258-30,
C 7.46946-30,
DATA S1251/
C 7.6220E-30,
C 7.4103E-30,
C 7.0212E-30,
C 7.80042-30,
C 3.79452-30,
C 1.1567E-30,
C 4.9576E-31,
C 2.9419E-31,
C 1.9067E-31,
C 1.4135E-31,
DATA S1301/.
C 1.1962E-31,
C 1.1697E-31,
C 1.3070E-31,
C 1.62982-31,
C 2.2036E-31,
C 3.1849E-31,
C 5.0940E-31,
C 7.97112-31,
C 1.3531E-30,
C 2.7014E-30,
DATA S1351/
C 6.2251-E30,
C 1.2973E-29,
C 1,9830E-29,
C 3.6907E-29,
C 6.47302-29,
C 8.59092-29,
C 9.90362-29,
C 9.13152-29,
C 1.18M32-28,
C 5.71502-29,
DATA S1401/
C 1,7267E-29,
C 9.46802-30,
C 8.339SE-30,
C 1.01122-29,
C 1.3690E-29,
C 1,797E-29,
C 1.84862-29,
C 1.05362-29,
C 2.1833E-29,
C 8.7375E-30,
DATA 61451/
2.3735E-30,
C 1.15112-30,
C 7.76042-31,
C 5.0508E-31,
C 3.031e2-31,
C 1.7313E-31,
C 1.21751-31,
C 1.0012E-31,
C 1.0002C-31,
C 1.3372E-31,
DATA S1501/
C 2.29124-31,
6.39808-30,
7.7946E-30,
6.45982-30, 6.74282-30,
7.9395E-30, 7.8716E-30,
7.0270E-30,
7.6933E-30/
7.48258-30,
7:1979E-30,
7.15482-30,
V.17125-30,
3.01182-30,
9.4183E-31,
4.4137E-31,
2.6703E-31,
1.7800E-31,
1.35192-31,
7.48052-30,
7.16862-30,
7.5253E-30,
6.4972E-30,
2.4241E-30,
7.76602-31,
3.94592-31,
2.43658-31,
1.6695E-31,
1.2992E-31,
7.6492E-30,
7.1142E-30,
4.23758-30,
4.8675E-30,
1.48162-30,
5.66162-31,
3.24782-31,
2.0606E-31,
1.4887-231,
1.2223E-31/
1.1775F-31,
1.18392-31,
1.3553E-31,
1.7214E-31,
2.3590E-31,
3.4654E-31,
5.5624E-31,
8.79762-31,
1.5404E-30,
3.1716E-30,
1.16572-31, 1.1605E-31,
1.20482-31, 1.2319E-31,
1.4113E-31, 1.47542-31,
1.8236E-31, 1.9372E-31,
2.5317E-31, 2.7242E-31,
3.79232-31, 4.1695E-31.
6.06672-31, 6.6261E-31,
9.68842-31, 1.07752-30,
1.7315E-30, 1.9862E-30.
3.6957E-30, 4.3233E-30,
1.1619E-31,
1.26S92-31,
1,54808-31,
2.0635E-31,
2.94002-31,
4.6055E-31,
7.2692E-31,
1.20938-30,
2.33412-30,
5.25666-30/
7.21492-30,
1.4442E-29,
2.1720E-29,
4.26252-29,
7.14832-29,
9.1890E-29,
9.6712E-29,
9.5092E-29,
1.1296E-28,
4.4884E-29,
8.3958E-30,
1.5638E-29,
2,3662E-29,
4.79462-29,
7.7432E-29,
9.3124E-29,
9.2036E-29,
1.0027E-28,
1.01342-28,
3.40272-29,
9.5931E-30,
1.6974E-29,
2.6987E-29,
5.3848E-29,
8.08512-29,
9.5936E-29,
9.04662-29,
1.08768-28,
8.8245E-29,
2.60546-29,
1.1382E-29,
1.0489E-29,
3.1697E-29,
6.08972-29,
8.50132-29,
9.87872-29,
8.93802-29,
1.1744E-28,
7.3930E-29,
2.07902-29/
1.12342-29,
8.3157E-30,
8.8814E-30,
1.18102-29,
1.6552E-29,
1.9917E-29.
1.7163E-29,
2.3237E-29,
1.4596E-29,
3.6?562-30,
1.0186E-29,
8.22262-30,
9.3607E-30,
1.2267E-29,
1.7321E-29,
1.9357E-29,
1.7623E-29,
2.3259E-29,
1.11908-29,
2,9155E-30/
1.9590E-30,
1.054G8-30,
7.1971E-31.
4.5932E-31,
2.6769E-31,
1.59048-31,
1.1542E-31,
9,83796-32,
1.04180-31,
1.4841E-31,
1.66382-30, 1.45492-30,
9.65112-31, 9.0469E-31,
6.62132-31, 6.1063-31.
4.1997E-31, 3.76728-31.
2.3874E-31. 2.1333E-31,
1,4684E-31, 1.36982-31.
1.10240-31. t.06028-31t
9,74082-32, 9.7564E-32,
1t0.06E-31, 1.1859-31.
1.64572-31, 1,86012-31,
1.29472-30,
8.61702-31,
5,58818-31,
3.3972E-31,
1.9073E-31,
1.2873E-31,
-60
1.02637-31,
9,8613E-32,
1.2351E-31,
2,05509-3t/
2.5968-31,
2.9137F-31,
3.48461-31,
1.4724E-29, 1.27222-29,
8.8854E-30, 8.5127E-30.
8.32942-30, 8,4725E-30,
1.0412E-29, 1.0948E-29,
1.4512E-29, 1.5588E-29,
1.92102-29, 1.9686E-29,
1.7575E-29, 1.7113E-29,
1.9765E-29, 2.1334E-29,
1.9785E-29, 1,73068-29,
6.53812-30, 4.86772-30,
127
7.6511"-30,
7.3403E-30,
8.0444E-30,
5.7573E-30,
1.9100E-30,
6.52702-31,
3.57592-31,
2.2412E-31,
1.5729E-31,
1.25632-31,
3.23662-31,
860
860
060
860
860
860
860
860
660
860
860
*60
660
860
860
860
960
860
860
860
860
860
860
B60
860
860
660
060
860
860
960
860
860
860
860
860
860
860
860
860
860
860
860
860
050
860
960
860
to
060
860
880
660
Bo
960
860
Bo0
580
1575
1580
1585
1590
1595
1600
1605
1610
1615
1620
1625
1630
1635
1640
1645
1650
1655
1660
1665
1670
1675
1680
1885
1690
1695
1700
1705
1710
1715
1720
1725
1730
1735
1740
1745
1750
1755
1760
1705
1770
1775
1780
1788
t790
1795
1000
1805
1810
1815
4820
1925
1830
1635
1840
1845
1060
l855
1600
le8a
*
C 3.8462E-31,
C 0.19009-31,
C 1.4185E-30.
-C 3.0971E-30,
C 5.24366-30,
C 5.8790E-30,
C 6.9329E-30,
C S.38969-30,
C 7.3097E-30,
4.2190E-31,
7.1953E-31,
1.7017E-30,
3.5129E-30,
5.4098E-30,
6.1526E-30,
7.2971E-30,
9.0111E-30,
6.33576-30,
4.5629E-31,
0.536G9-31t
1.9813E-30,
3.9405E-30,
5.55429-30,
6.8034E-30,
7.65466-30,
9.1994E-30,
5.1371E-30,
4.9022E-31,
9.96999-3i,
2.3959E-30,
4.51940-30,
5.7794E-30,
6.7956E-30,
7.5078E-30,
8.7189E-30,
4.0936E-30,
5.4232E-31,
1.1734E-30,
2.7304E-30,
4.8932E-30,
5.6992E-30,
6.68649-30,
7.8406E-30,
8.14266-30,
3.2918E-30/
860
860
960
860
860
860
860
960
Sao
1870
t875
1880
1885
1890
1895
1900
1905
1910
2.625SE-30, 2.0724E-30,
1.01208-30, 8.9629-31,
5.5205E-3l, 5.2262E-31,
4.80327-31, 5.0836E-31,
6.38096-31, 6.88406-31,
C3.64790-32, 3.41536-32,
1.06879-30,
7.84589-31
3.63136-31,
5.46692-31,
7.4590E-31,
38.95916-31,
1.41616-30,
S.SC269-31
4.84579-31,
5.5790E-31,
7.8249E-31,
9.34879-32,
1.19893-30,
6.0935E-31,
4.7884E-31,
6.0066E-31,
8.3371E-31,
1.00668-30,
S60
860
860
660
860
560
1920
1925
1930
1935
19480
1985
CDATA S1551/
C
C
C
C
C
•
SC
Sa
1915
C 1.0765E-30, 2.0851E-30, 1.08619-30,
C 1.0796E-302
1.0523E-30, 1.0674-30,
C 1.1404E-30, 1.0901E-30, 9.91056E-3.
CDATA
5.45955-31,
4.54506-31,
6 St601/
.7153E-32,
2.66120-32, 3.6313E-32,
1.05539-30, 1.0460E-30,
1.12610-302 2.14313-30,
8.8077E-31, 6.9926E-31,
2.61462-31, 1.9463E-31/
960 1950
860 1955
560 1960
860
1960
960
1970
80
0.31-26.75-3,24963.
1990
C 6.40?0E-31,
C 9.0966--32,
C 3.67909-32,
C 2.7153E-32,
C 2.4053E-32,
C 2.53556-32,
C 3.848E-32,
C 4.1555E-32,
C 6.0086E-32,
C 9.3096E-32,
DATA S1651/
C 6.58383-30,
C 3.0899E-31,
860
B60
860
560
B60
560
360
860
B60
860
560
860
660
C
C
C
C
C
C
1.6621E-30,
3.65849-30,
061500E-30,
9.64§94-301
i.03569
29.
8.9016-31,
S1019-29,
3.06587-31
1.1583E-31,
1.0282-31,
3.41139-32,
2.62206-321
2.39889-32,
2.61031-32,
3.2518E-32,
4.4587E-32,
0.5171E-32,
1.028-2931,
9.54926-32,
4.1407E-32,
3.18603-32,
2.53619-32,
2.4087E-32,
2,7019.-32,
3.4405E-32,
4.7801E-32,
7.0884E-32,
1.14079-31,
7.07737-32,
4.38106-32,
2.99426-32,
2.4705E-32,
2.4349E-32,
2.81175-32,
3.6522E-32,
5.1462E-32,
7.7357E-32,
1.2690E-31,
6.96428-32,
1.4186-32,
2.54348-32,
2.42902-32,
2.47710-32,
2.9383E-32,
3.09024-32,
5.55397-32,
8.48310-32,
1.4143-31/
1.7992E-310
3.62289-310
2.0523E-31,
4.2053E-30,
2.3342E-31,
4.9059E-31,
2.6578E-31,
5.92730-31,
2.0127E-30, 2.35869-30,
4.1279E-31, 4.6591E-30,
6.58786-38, 7.116E6-31,
9736805-30, 980142E:-0,
l*002
1.940269-39,
7.29175-31,
-'729,-89.7071E-3l1
1.10169--29.
.70710E-31,
,58.2298-31,
2.70509-30,
5.2220E-30,
7.9372E-30,
1.0202E-29,
i'8368E-230
1.08499-29,
1.1673E-30,
3.1923-30,
3.0950E-30,
5.5246-E30,
8.6975E-30,
i98203E'29,
1.04920E-29,
1.0929E-29.
5.70096-31,
1.4091E-30,
93202,5-30, 8.1113-30/
1975
1280
1985
1990
1992
2000
2005
2010
2015
2020
2025
2030
2035
60 2045
860 2050
960 2055
660 2066
860
Boo
2070
B60 2065
2045
B68
2108
C 1.0971E-293
DATA S1781/
C
.0818E-30.
C 2
6.83509-30,
1.6915E-30. 4.29059-30,
1.4051E-30. 3.33494-30,
1.10679-30,
5.5369E-30,
1.0158E-30,
2.64809-30,
860
860
060
860
2075
2010
2090
2085
SC
C 1.99816-30,
C
t124669-31,
C 3.65879-31.
3.7629E-31.
c , 6672E-31,
C 9:2634E-31,
7.9175E-31,
4,72I85-31,
3,5865E-31,
3.9308E-31t
6.2130E-31.
9,8085E-31,
7.04409-31,
4.34540-31,
3.5955E-31,
4.1829E-31.
,8067SE-31,
1.0830E-30,
6,3453E-31,
4.0226E-31,
3,5928E-31,
4.48069-31,
7.8111E-31,
1-1949E-30,
5.700l9-30,
3,7615E-31,
3.6298E-31,
5.05349-31,
B.4591|-31,
1.25119-30,
860
860
660
860
060
060
2095
2100
2105
2110
211t
M12
1.4342E-30,
1.5821E-30,
1.4874E-30.
1.5425E-30.
1.4920E-30,
4.493?E-30/
•'C
C
C 1.3394E-30,
1.5972E-30, 1.3505E-30,
1.5972E-30,
DATA 51151/
C .5008E-30. 1.S521E-30t
1.9012E-30, 2.017SE-30,
€ .06-30,
9.92-31,
C3.2736E-31, 2,6t1?I-31,
1.63259-30,
1-9359E-30,
03 -.31,
2.1909E-31,
1.6924E-30. 1.0265e-30,
1.70e95-30, 1.5197-30,
D.03-31, 4.23159"31,
1.82BOE-31, 1,5752E-31,
340
600
600
860
560
580
800
2126
2130
2135
2140
2145
M!5
2155
CG 1.3855-3t,
1.1002E-31,
0.1634E-32, 0.844a2-32,
No 2160
i.0969E--2,
1.2280-31.
1.04606--291
128
C 8.01696-32,
C 5.7780E-32,
C 3.4684E-32,
C 1.6849E-32,
C 1.00156-32,
DATA SiSo1/
C 6.6716E-33,
C 4.$093E-33,
C 3.26216-33,
C 2.3581E-33,
C 1.74086-33,
C 1.3131E-33.
C 1.0124F-33,
C 7.97356-34,
C 6.4053E-34,
C 5.23646-34,
DATA $1851/
C 4.3441E-34,
C 3.64676-34,
C 3.08916-34,
C 2.63446-34,
C 2.2576E-34,
C 1.9411E-34,
C 1.67276-34,
C 1.44386-34.
C 1.24716-34,
C 1.0779E-34,
DATA S1901/
C 9.3193E-35,
C 8.0586E-35,
C 6.9687E-35,
C 6.02606-35,
C 5.21046-35,
C 4.50476-35,
C 3.8939E-35,
C 3.3655E-35,
C 2.9082E-35,
C 2.5126E-36,
51951/
C 2.17046-35,
C 1.8744E-35,
C 1.61846-35,
C 1.39716-35.
C 1.20569-3S5,
C 1.04056-35,
C 8.9758E36,
C 7.74146-36,
C 0.67526-36,
C 6.7546E-36,
DATA $2001/
C 4.95946-36/
"DATA
C
7.2855E-32,
5.3478E-32,
2.96816-32,
1.4863E-32,
9.1435E-33,
6.8734E-32,
4.96526-32,
2.5791E-32,
1.3291E-32,
8.4612E-33,
6.4121E-32,
4.4043E-32,
2.2339E-32,
1.2021E-32,
7.80366-33,
6.14716-32,
3.9862E-32,
1.9247E-32,
1.0947E-32,
7.2100E-33/
6.1821E-33,
4.2937E-33,
3.0520E-33,
2.2154E-33,
1.64256-33,
1.2444E-33,
9.8358E-34,
7.62026-34,
6.1442E-34,
5.03896-34,
5.7353E-33,
4.00346-33,
2.85786-33,
2.08326-33,
1.55116-33,
1.18036-33,
9.1789E-34,
7.2882E-34,
5.89786-34,
4.8516E-34,
5.3269E-33,
3.7361E-33,
2.6782E-33,
1.96056-33.
1.46616-33,
1.12056-33,
8,7509E-34,
6.97606-34,
6.66506-34,
4.67386-34,
4.9526E-33,
3.48956-33,
2.5120E-33,
1.8466E-33,
1.38696-33,
1.0646E-33,
8.3496E-34,
6.68226-34,
5.4448E-34,
4.50486-34/
4,19116-34,
3.52546-34,
2.9909E-34,
2.55356-34,
2.18996-34,
1.88396-34,
1.6240E-34,
1.40196-34,
1.21126-34,
1.0469E-34,
4.0453E-34,
3.40936-34,
2.89656-34,
2.47556-34,
2.1245E-34,
1.82856-34,
1.57686-34,
1.3614E-34.
1.17646-34,
1.0169E-34,
3.90636-34,
3.2960E-34,
2.8056E-34,
2.4002E-34,
2.06136-34,
1.77496-34,
1.53106-34.
1.32216-34,
1.1425E-34,
9.8775E-35,
3.77356-34,
3.19146-34,
2.71856-34,
2.32766-34,
2.0002E-34,
1.72306-34,
1.48676-34,
1.28406-34,
1.10976-34,
9.5943E-35/
9.05226-35,
7.82786-35,
6.7691E-38,
5.8533E-35,
5.08106-35,
4.3763E-35,
3.7820E-35,
3.26866-35,
2,8244E-35,
2.44016-35,
8.79286-35,
7.8036E-35,
8.57526-35,
5.68566-35,
4.9158M-35,
4.24976-35,
3.67336-35,
3.1746E-35,
2.74316-35,
2.36976-35,
8.5409E-35,
7.38586-35,
0.3866E-35,
5.5226E-35,
4.7748E-35,
4.12776-35,
3.5677E-35,
3.0832E-35,
2.6640E-35,
2.30146-36.
8.2982E-35,
7.1/42E-35,
6.20386-35,
5.3642E-35,
4,63786-35,
.. 0916-35,
3.4651E-35,
2.9944E-35,
2.58726-35,
2.23496-35/
2,1077E-35,
1.82026-35,
1,57166-35,
1,3566E-35,
1.17086-35,
1.01026-35,
0,7142E-36,
7,5154E-36,
6.48001-36,
5.58601-36,
2.0468'-35,
1.76756-35,
1.5260E-35,
1.31726-35,
1,1368E-35,
9.8079E-36,
8.46026-36.
7.2966E-36,
6.29066-36,
5.42249-36,
1.9877E-35,
1.7164E-35,
1.4819E-35,
1.27906-35,
1,10376-351
9.52246-36,
8.21366-36,
7.0030E-36,
6.10606-36,
5.26361-36,
1.9302E-35,
1.66676-35,
1.43896-35,
1,24196-35,
1.07106-35,
9.24516-36,
7.97406-36,
6.87611-36,
5.92801-36,
ENOO
129
5.10941-36/
660
360
860
860
860
660
660
060
660
860
660
880
860
960
860
860
860
860
560
860
860
680
860
860
660
660
860
860
060
860
560
660
B60
660
860
560
560
N0
60
860
660
860
160
860
060
060
860
660
680
660
t60
860
2165
2170
2175
2180
2185
2190
2195
2200
2205
2210
2215
2220
2225
2230
2235
2240
2240
2259
2255
2260
2285
2270
2276
2280
2285
2290
2295
2300
2305
2310
2315
2320
2325
2330
2335
2340
2346
2350
2355
2360
2365
2370
2375
2380
2365
2390
2395
2400
2405
2410
2415
3420
2I
425
Co
C
C
C
C
C
i
C
C
C
S0
BLOCK DATA BFH20
BLOCK DATA
BFH 100
SFH 105
BFH 110
WATER VAPOR CONTINUUM - FOREIGN BROADENED ABSORPTION COEFFICIENTS SFH 115
S
FH 120
COMMON /FH20/ VI,V2,DV,NPT,F296(2001)
BFH 125
COMMON /FH20/ VIV2,DV.NPTF0001(5O),F0051(50),F0101(50),F0151(50)6FH 130
-,F0201(50),FO251(50),FO301(50),FO351(50),FO401(50),F0451(50)
SFH 135
2,FO501(50),FO551(50),FO601(50),FO6Sl(5O),FO701(50),FO751(50)
BFH 140
3,FO801(50),FO851(50),FO901(50),FO951(50)
SFH 145
4,FlOOl(50),F1051(50),FlOI (50),FI151(50),FI201(50),F1251(50)
BFH 150
5,Fl301(50),Fl351(SO),F1401(50),F1451(50)
SFH 155
6,F1501(50),F1551(50),F1601(50),F1651(5O),F1701(SO),F1751(50)
SFH 160
7,F18OI(50),F1851(50),F1901(SO),F19S1(50),F2001(1)
SFH
165
COMMON /FRND/IENTER
BFH 170
SBFH 175
FH 180
DIMENSION F296(1)
BFH 185
EQUIVALENCE (F296(1),FOO01(1))
SFH 190
DATA VI,V2,DV,NPT /
PFH 195
1
0.0,
20000.0,
10.0.
2001/
SFH 200
SF1 205
SFH 210
DATA FO001/
aFH 215
1.103SE-22, 1.1715E-22, 1.2859E-22, 1,5326E-22, 1.6999E-22,
BFH 220
C 1.8321E-22, 1.9402E-22. 1.9570E-22, 1.9432E-22, 1.7572E-22,
SFH 225
C 1.6760E-22, 1.5480E-22, 1.3984E-22, 1.2266E-22, 1.0467E-22,
SFH 230
C 9.45269-23, 8.0485E-23, 6.9484E-23, 6.1416E-23. 5.0941E-23,
BFH 235
C 4.4836E-23, 3.8133E-23, 3.4608E-23, 3.1487E-23, 2.4555E-23,
SFH 240
C 2.0977E-23, 1.7266E-23, 1.4920E-23, 1.2709E-23, 9.808fE-24,
SFH 245
C 8.5063E-24, 6.8822E-24, 5.3809E-24, 4.4679E-24, 3.3774E-24,
SFH 250
C 2.7979E-24, 2.1047E-24, 1.6511E-24, 1.2993E-24, 9.3033E-25,
BFH 255
C 7.43602-25, 5.642SE-25, 4.5442E-25, 3.4575E-25, 2.7903E-25,
SF14 260
C 2.1374E-25, 1.6075E-25, 1.3022E-25. 1.0962E-25, 8.5959E-26/
SFH 265
DATA F005i/
SFH 270
C 6.9125E-26, 5.3808E-26, 4.3586E-26, 3.6394e-26, 2.9552E-26,
SFH 275
C 2.3547E-26, 1.8463E-26. 1.6036E-26, 1.3483E-26. 1.1962E-26.
BF1 280
C 1.0333E-26, 8.4484E-27, 6.7195E-27, 5.0947E-27, 4.2343E-27,
SFH 265
C 3.4453E-27, 2.7830E-27. 2.3063E-27, 1.99511-27, 1.7087E-27,
SFH 290
C 1.4393E-27, 1.2575E-27, 1.0750E-2?, 8.2325E-28, 5.7524E-28,
SFH 295
C 4.4482E-28, 3.8106E-28, 3.4315E-28, 2.9422E-28, 2.5069E-26,
SFH 300
C 2.2402E-28, 1.9349E-28. 1,6152E-28, 1.220SE-28, 8.95.0-E29,
IFH 305
C 7.1322E-29, 6.1028E-29, 5.2938E-29, 4.5350E-29, 3.497?E-29,
BFH 310
C 2,95112-29, 2.4734E-29, 2,05082-29, 1.8507E-29. 1.8373E-29,
SF14 315
C 1.5171E-29. 1.3071E-29, 1.2462E-29, 1.2t486-29, 1.25909-29/
SFH 320
DATA F0101/
8FH 325
C 1.3153E-29, 1.3301E-29, 1.4483E-29, 1.6944E-29, 2.0559E-29,
SFH 330
C 2.2954E-29, 2.62211-29. 3.2606E-29, 4.2392E-29. 5.21711-29,
SF4 335
C 6.2553E-29, 8.2t48-29. 9,5842E-29, 1,1280E-28, t.362GE-28,
SFN
C 1,7535E-28, 2.157GE-20, 2,483BE-2k). 3.0014E-20, 3.8485E-28,
8FH 340
345
C 4.7440E-28, 5.5202E-28, 7.080?E-28, 9.6570E-29. 1,397GE-27,
OFH 300
C 1.8391E-27, 2.320?E-27, 2.9960E-21, 4.(408E-27, 5.9280E-27,
SF1 355
C 7.848E2-27, 1.0047E-26, t.4676E-26, 1.9325E-26, 2.6587E-26,
SFM 360
C 3,45346-20, 4.4376E-26, 5.8061E-26, 7.0141E-20, 8.4937E-26,
SFH 365
C 1.0t88E-25, 1.2034E-25, 1.3937E-25, 1,6595C-25, 1.9259E-25,
SF1 370
C 2.10209-25, 2.3681E-25, 2,70840-25, 3,25M0D-25, 3.5460E-25/
FPH 375
DATA F0151/
IF1 310
C 3.9109E-25, 4.2891E-25. 4.7757E-25, 5.09811-25, 5,05271-25,
IPH 335
C 4.8616E-25, 4.40O1E-25, 3.7982E-25, 3.26671-25, 2,77945-25,
SF14 390
130
C
C
C
C
C
2.4910E-25,
3.80105-25,
3.77165-25,
2.0631E-25,
9.8552E-26,
2.73161-25, 3.2579E-25,
4.3323E-25, 4.3004E-25,
3.2386E-25, 2.7409E-25,
1.54465-25, t.29695-25,
7.23651-26, 5.9137E-26,
3.54996-25,
3.9790E-25,
2.3626E-25,
1.101E-25,
5,2759E-28,
3PM
SFH
SF14
1FH
BSF1
39$
400
405
410
415
1.7848E-26, i.58655E-26, 145695-26,
7.40971-27, 6.3443E-27, 4.81311-27,
1.19866-26,
4.0942E-27/
2.$4885-27,.2.34615-27,
8.5396E-28. 6.9261E-28,
2.59951-28, 2.02255-28,
8.5277E-29, 6.5249E-29,
2.78471-29t 2.4570E-29,
1.6559E-29, 1.4910E-29,
6.0769E-30. 4.5646E-30,
1.32911-30, 9.7974E-31,
4.6471E-31, 4.0209E-31,
2.7762E-31, 2.7935E-31,
1.73971-27,
5.40011-26,
i.57101-28,
5.0117E-29,
2.3359E-29,
1.27941-29,
3.3111E-30,
7.8271E-31t
3.5227E-31,
3.2012E-31,
1.4684E-27,
4.5430E-28,
1.30271-28,
3.99061-29,
2.0599E-29,
9.62291-30,
2.44281-30,
6.3833E-31,
3.1212E-31,
3.95256-*/
6.8027E-31, 9.39541-31,
3.4827E-30. 4.69681-30.
1.21021-29, 1.4146E-29,
1.87421-29, 1.87005-29,
2.0381E-29, 2.0122E-29,
1.9870E-29, 2.0465E-29,
2.10471-29, 1.93341-29,
1.40161-29, 1.5459E-29,
4.44391-29, 5,8341E-29,
2.2694E-28, 2.9466E-28.
1.2986E-30,
6.23800-30,
1.6154E-29,
1.6582E-29,
2.04361-29,
2.15561-29,
1.73571-29,
1.75761-29,
8.0757E-29,
3.92781-28,
1.64765-30,
7.91061-30,
1.75101-29,
1.96575-29,
2.12i3E-29.
2.2222E-29,
1.5754E-29,
2.16451-29,
1.16581-26,
5.2145E-28/
3PH
8FH
8FH
F14
PFH
O1P
PFH
8FM
1FP
SFH
5FM
IFN
S14N
8FH
5FP
1FH
5PF
OF"
SF4
PFH
1FM
8FH
1PH
SFH
5FH
1FH
SF#4
OFP
PFH
425
43
43
440
445
450
455
460
465
470
4T5
480
485
490
495
500
505
510
515
520
525
530
535
540
545
550
555
560
565
2.43755-25,
4.1353E-25.
3.6360E-25,
1.8371E-25,
2.0649E-26.
C 4.86601-26, 4.1321E-26, 3.59161-26, 2.76401-26, 2.46929-26,
C 2.1016E-26,
C 9.4693E-27,
DATA F0201/
C 3.3316E-27,
C 1.0953E-27,
C 3.2791E-28,
C 1.0229E-20,
C 3.23325-29,
C 1.84361-29,
C 8.0054E-30,
C 1.8007E-30,
C 5.44251-31,
C 2.8840C-31,
DATA F0251/
C5.03031-31,
C 2.53311-30,
C 1.00281-29,
C 1.8575E-29,
C 2.1204E-29,
C 2.0742E-29,
C 2.1977E-29,
C 1.43981-29,
-C 2.94801-29,
C 1.6793E-28,
DATA F0301/
C 6.4378E-28,
C 1.1489E-27,
C 1.5454E-27,
C 9.3486E-28,
7,7947E-28. 8.5321E-28, 9.78481-28, 1.0999E-27,
1.2082E-27, i.2822E-27, 1.4053E-27, 1.52381-27,
1.50191-27, 1.40481-27? 1.23591-27, 1.0858E-27,
8.16381-28, 7.76901-28, 8.4625E-28, 1.0114E-27,
C 1.1430E-27, 1.2263E-27. 1.3084E-27, 1.33801-27, 1.3573E-27,
C 1.3441E-27, 1.2962E-27, 1.26381-27,
C 1.0871E-27, 9.89431-28, 9.1877E-28.
C 9,•9295-28, 1.01551-27. 1.12631-27,
1.1934E-27,
9.1050E-28,
1.23705-27,
1.13711-27,
9.3213E-28,
1.38361-27,
2.1329E-27. 2.30451-27, 2.5611E-27,
4.0770E-27. 4,97711-27, 5.8081E-27/
C 1.54001-27,
C 2.9261E-27,
DATA F0351/
C 7.2895E-27,
C 2.0677E-16,
C 5.6891E-26,
C t,0980E-25,
C 1.2039E-25,
C 1.3420E-25,
C 1,15166-25,
C 1.38575-25,
C e.582tt-26,
C 1,4853E-26,
DATA F0401/
- 2.4992E-27,
8.7402E-27, 1.0795E-26,
2.5294E-26. 3.1123E-26,
6,62611-26, 7,6246E-26,
1.12871-25, 1,16701-25,
1.2253E-25, 1.3294E-25,
1.3003E-25, 1.26450-25,
1.2494E-25, 1.3655E-25,
1.31201-25, 1.1791E-25.
5.1959E-26, 4.0158E-20,
1.0365E-26, 7.39381-27,
i.83631-27,
1.45911-27,
1.1300E-27, 9.05Ee-28o,
S3.2512E-20,
C 1.3871E-20,
C 8,2282E-29,
C 1.8344t-29,
2.92581-28,
1.235-20.
4.3799E-29.
1.2689E-291
2.4M2•e.-2,
9.6940E-29,
3.5545E-29,
1.04034"-29.
2.1209E-20.
7.7730E-29,
2.75271-29,
3.45601-30,
1.76561-27.
3.42591-27,
1,3384E-26,
3.7900E-26,
6.7730E-26,
1,1635S-25,
1.40055-25,
1.171M5-25,
1.4931E-25,
1,0637E-25,
3.01311-25.
4.97521-27,
1.720B1-26,
4,7752E-26,
9.8672E-26,
1.17689-25,
1.38541-25,
1.f25SE-25,
1.4649E-25,
8. 2760-26,
2.04025-20,
3.4148E-27/
C 7.3697E-20, 6.0252E-2(8. 5.10668-26, 4.26601-26, 3.8t63E-26.
ii13
131
1.6302E-20,
0.22761-29,
2.09501-29,
6.34611-30.
SF14
3PM
420
576
5FH 575
1FP 580
SF14 535
F14H590
5FM 595
SFH 600
6FH 605
MF4 610
1PM 615
1FH 620
8OM 625
1FM 630
5FH 635
SFH 640
SFH
1
45
8PH 650
FH 655a
IF"
H60
SF1 C55
IPM 670
1PH 675
P1PM600
PH "S
3.5220E-30,
8.92063-31,
2.5068E-31,
3.2415E-31,
2.7879E-30,
7.0596E-31,
2.2088E-31,
4.6116E-31,
2.3021E-30, 1.6167E-30,
5.8310E-31, 4.4004E-31,
2.2579E-31, 2.2637E-31,
6.5346E-31, 9.4642E-31/
1.8211E-30,
4,6730E-30,
4.0311E-30,
2.1152-E30,
2.2464E-30,
2.8378E-30,
2.5655E-30,
3.1667E-30.
5.6584E-30,
1.50473-29,
2.4052E-30,
4.7942E-30,
3.736?E-30,
1.9799E-30.
2.3785E-30,
2.6297E-30,
2.7184E-30,
3.4343E-30,
6.9791E-30.
1.8583E-29,
S.0•70E-30,
4.68133-30,
3.3149E-30,
1.8636E-30,
2.56843-30,
2.6903E-30,
2-9013E-30,
3.7365E-30,
8.6569E-30.
2.2357E-29,
3.55311-30,
4.5997E-30,
2.9281E-30,
1.90851-30,
2.7499E-30,
2.7035E-30,
3.0565E-30,
4.0269E-30,
1.0393E-29,
2.649$E-29/
3.9927E-29,
1.0285E-28,
4.5442E-28.
2.1358E-27,
6.2240E-27.
S.69393-27,
8.6909E-27,
1.2017E-26,
1.2356E-26,
6.98455-27,
4.6818E-29,
1.3919E-28,
6.3370E-28,
2.7825E-27.
7.3004E-27,
8.6541E-27,
9.7945E-27,
1.1915E-26,
1.2404E-26,
7.6639E-27.
5.5555E-29,
1.8786E-28,
9.0628E-28,
3.7673E-27,
6.3384E-27.
8.2055E-27,
1.0394E-26,
1.1259E-26,
1.1716E-26,
6.15173-27,
6.6609E-29.
2.5150E-28,
1.2116E-27,
4.4894E-27,
8.7933E-27,
7.7273E-27,
1.0646E-26.
1.15491-26,
1.1149E-268
5.0887E-27/
3.2474E-27.
7.7724E-28,
1.6301E-28,
4.9034E-29.
2.3647E-29.
1.28361-29,
5.6147E-30,
2.4584E-30,
t.0497E-30,
3.6914E-31,
2.56983-27,
5.7302E-20,
1.2806E-28,
4.1985E-29.
2.1249E-29,
1.0682E-29,
4.8268E-30,
2.07423E-30,
8.503SE-31,
3.22629-31,
1.8893E-27,
4.21783-26,
1.0048E-28,
3.6944E-29,
1.6172E-29,
9.2312E-30,
4.1534E-30,
1.7840E-30,
6.7008P-31,
3.0749E-31,
1.4009E-27,
2.9603E-28,
7.8970E-29,
3.2586E-29.
1.6224E-29,
7.9220E-30
3.310$E-30,
1.4664E-30,
5.6355E-31,
3.0316E-31/
3.0666E-31, 3.1315E-31,
2.35783-31, 2,04693-31,
2.9730E-32. G.t0f4-32,
6.0145E-32, 4.5105E-32.
7.?4073E-32. 7,851OZ-32, 8.60399-ý32, 9,1995E-32,
C 1.1059E-31, 1,268E7-31, 1.07305-3,1.
03224-32,
3.0320E-31,
1.69063-31.
6.7528t-32,
7.053?E-32.
1.0094E-31,
6.27341-31,
C i,107TC-31.
C 6.749S6E-32.
C 4.7657E-30,
C 1.1732E-30,
C 3.1534E-31,
C 2.5705E-31,
DATA F0451/
C 1.2809E-30,
C 4.2402E-30,
C 4.5788E-30,
C 2.5231E-30,
C 2.0786E-30,
C 2.6982E-30,
C 2.5394E'-30,
C 3.0791E-30,
C 4.7260E-30,
C 1.2067E-29,
DATA F0501/
C 3.2483E-29,
C 8.2139E-29,
C 3.3130E-28,
C 1.5927E-27,
C 5.44423-27,
C 6.8080E-27,
C 7.5989E-27,
C 1.1509E-26,
C 1.1938E-28,
C 1.0073E-26,
DATA F0551/
C 4.12693-27,
C 1.0340E-27,
C 2.1945E-28,
C 6.11333-29,
C
C
C
C
C
C
2.7362E-29,
1.5158E-29,
6.6174E-30,
2.,8275E-30,
1.2390E-30.
4.3323E-31,
DATA F0601/
C 2.9447E-31,
2.8259E-31.
C S1.4012E-31.
6.3133E-32,
S1.0040E-31,
C 1.0923E-31,
DATA F0651/
C 6.4260E-31,
C 2.7349E-30,
C 1.01U53-20,
C 3.01141-20.
2o9901E-31,
2,6065E-3t,
1.I8616-31.
5,859gE-32,
9.62561-32.
7.311E-32,
1.0941E-3,.
3.3334E-3t,
6.3202f-32.
4.0173-32,
1,2226E-31,
2,8707|-31,
7,48519-32,
6-83940-32,
1,305BE-3t.
3.46031-34,
6.90OVE-32,
9.26539-32.
'.6193F-31,
4.625•5-3t/
6.0209E-31.
3,7193E-30,
1.2b85g9-20,
3.7405-20,
1,136SE-30,
4,62161-30.
1.653S-29,
4.65049-29.
1,596t1-30,
9,1966s-30,
3.0316E-29.
6.9145t-29.
2.0605E-30,
7.71503-30,
2.3913E-29,
7.d3401-29.
C 1.02046-24, 1.30101-26k 1.64413-24, 2.14769-24. 2.54929-20.
C 2.97606-2S, 3.38203-28. 4.00079-24. 4.,404t-2
C 4.ttl3tE-23. 4.62391-M0
4.46493-26, 4.01221-2.2
4.5765B-N0,
3.60861-28.
C 3.6184E-29, 3.7606E-2-. 4.1415?-24. 4.37501-21,. 5.tIS03-26.
C 6.60$49-26, S,1020-3,
6.45121-28, 6.94M04-26. 6.00241-2U.
?.7144s-24. 1.07406-261/
6.976"T401.
C 6.48939.-2. T.Lo0l-8,
132
44
1PH
1FM
690
695
1FH
1FM
6FH
1FP
BFH
6FH
3FP
1FM
5FP
6FP
1FH
6FH
1FH
8FH
3IN
1PM
5PM
6FH
1P
1FM
6PF
RFH
PFH
5FH
8FP
1O
8FH
8FH
5P
8FM
PFH
6FP
BFH
1PM
1FP
1PM
5FH
SFH
OFH
1FP
IFN
6FP
700
705
710
715
720
725
730
735
740
745
750
755
760
765
770
175
780
785
790
795
00
805
610
815
820
825
830
835
840
845
I50
055
660
665
870
675
#80
835
090
395
"00
"0S
IMH
3PM
SFH
IFP
PF"
OFN
PFH
IFP
atM
910
915
920
925
930
935
940
943
IS0
6r4
9"0
aPm
INH
I7
976
No
SPI4 951
arm
U4
96S
1%
DATA F07¢1/
C 7.3764E-28,
C 1.28510-27,
C 2.98871-27,
C 5.0720E-27,
C 5.6944E-27,
C 6.01911-27,
C 6.6905E-27,
C 7.2193E-27,
C 2.52071-27,
C 4.1122E-28,
DATA F0751/
C 1.3970E-28,
C 6.87041-29,
C 3.97681-29,
C 2.2135E-29,
C 8.42541-30,
C 2.6745E-30,
C 9.10891-31,
C 4.5074E-31,
C 1.97911-31,
C 7.8255E-32,
DATA F0801/
C 3.99841-32,
C 5.00901-32,
C 2.5304E-31,
C 1.0136E-30,
C 2.13701-30,
C 4.4350E-30.
C 6.5896E-30,
C 0,60811-30,
C 7.7263E-30.
C 1.0155E-29,
DATA 1081I/
C 8.73479-30,
C 1,005t1-29,
C 3.27391-29.
C 1.20551-26,
C 2,5ISE-28,
C 2.7954E-20.
C 3.77911-21,
C 4.02791-21,
C 4.64991-20,
C 2.46541!-2,
DATA M090t/
C 6.37911-29,
C 3,47491-E-29
C I.41M1-29.
C• 7.32E-30,
C 4,346lt-30,
0F
7.66161-28,
1.4749E-27,
3.44931-27,
5.37811-27,
6.1123E-27,
5.77621-27.
7.40955-27,
6.37221-27,
1.82131-27,
2.88991-28,
8.4182E-29,
1.64071-27,
4.03361-27,
5.3285E-27.
6.4317E-27,
5.7241E-27.
8.2121E-27,
5.43161-27,
1.26581-27,
2.17401-26,
9.38381-28, 1.07611-27,
2.2109E-27, 2.6392E-27#
4.35511-27, 4.9231E-27,
5.44961-27. 5.57071-27,
6.4581E-27, 6.199E-27,
5.7013E-27. 6.0160E-27,
8.0947E-27, 7.6145E-27,
4.2186E-27, 3.25289-27,
8.67481-28, 6.02161-28,
1.79901-26, 1.55931-28/
1.22380-28,
5.7615E-29,
3.52021-29,
t.94551-29,
6,7414E-30,
2.2053E-30.
8.0672E-31,
3.76691-31,
1.6964E-31,
6.36981-32,
1.05391-28,
5.04341-29,
3.1854E-29,
1.62461-29,
5.46671-30,
1.8162E-30,
8.87481-31,
3.20821-31,
1.3887E-31.
5.3265E-32,
9.23861-29.
4.6886E-29,
2.90091-29,
1.33686-29,
4.5005E-30,
1.4935E-30.
6.2668E-31.
2,8085E-31,
1.1179E-31,
4.65886-32,
7.84811-29,
4.3770E-29,
2.57631-29,
1.0842E-29,
3.49321-30,
1.1619-30,
5.5715E-31,
2.4836E-31,
9.7499E-32,
4.44981-32/
3.7513E-32.
6.5801E-32,
3.5403E-31,
1.23110-30,
2.5228E-30,
4.7760E-30.
6.8753E-30,
6.42321-30.
6.16691-30.
1.0194-29.
3.7176E-32,
6.7787E-32,
4.85431-31,
1.4203E-30,
!.9816E-30.
5.2357E-30,
7.2349E-30.
6.34851-30,
9,03241-30,
1.01566-29,
3.9141E-32,
1.27161-31,
5,46401-31.
1.5969E-30,
3.45561-30,
0.0827E-30.
7.276VE-30,
6.43110-30,
9.7643E-30.
9.67921-30,
4.2702E-32,
1.83751-31.
8.0911E-31,
1.60931-30,
3.96601-30.
6.36351-30.
6.623E-30,
7.22351-30.
1.0535E-29,
9.27251-30/
8.44845-30.
1,15111-29,
4.31946-29.
1.43031-26,
2.77771-28,
2.7524E-28,
3.8?131-26,
4.24SI-25,
4.71021-2•.
1.9543M-28,
6.2647E-30.
1.4037E-29,
5.69021-29,
1.69661-23,
2.09431-20,
2.70401-26,
4.0135E-28,
4.52201-1.
4.22040-2,
1.460M-20,
6-4363E-30,
lS0661-29.
?.79241-29,
1.95421-26,
2.86731-24,
3.Lt541-23.
4.24241-26,
4.0943E-21,
3.7704t-20,
1.11719-24,
9.12611-30.
2.4493C-29,
9.73761-29.
2.22335-28,
2.9417C-21,
3,05431-2,
4.30041-29,
5.01721-26.
3.007i2-2g,
4.33671-29/
5.0790E-29.
,2423E-29,
1.24409-29.
6.60061-30,
3.0446t-30,
4.00SE-209.
2,0217E-29.
1.00944-32,
5.75491-30.
3.5591-30.
3.3851t-29,
1'.191t-29,
9.3565t-30.
5.4304t-30.
3.4432E-30.
2.71321-39,
1,6971-2#.
7T4491-30.
4.7311-30,
2.b20-30,
C 3.409201-30, 2,'27S2-30, 1,04061Z-30, 1.03fdi-20, 1.32611-W
C 1.t1098-30. 6.1606-31t. 7.6014t-31
C 4.01371,31. 3.0416t-31. 0.3210!.31.
N
4
31,
t.f7lgf-3l,
0601-3t,
1.35416-31,
c 11.07Mf-31. 9.3026?1
9.94123
-TOI-32. 41f-S. 7.aft13123,
C 6.$6292-32, 6.924U1-32. 6.351SE-33. 3.52684-32i 2.2S111-321
OAfs 'O@Sq!|
I .61.01-32,
1.14t3t-32,
6.4931-f3. 7.0803t-33,
6.17471-23.
C 4.04941-33, 3.66281-33. 3.3670t-233. 3.i34t1.-23. 2-9394t-33,
C 2.60801-33, 3.120S2-33, 3.7294t-33.
"413
6.ow94m-33, 6,?091a-3a,
985
1FH 990
SFH 995
SFH 1000
SF1 1005
,F4 1010
SF1 1015
SF1 1020
8FH 1025
6FP 1030
SFH 1035
SF1 1040
8FH 1045
8FH 1050
SF1 1055
SF1 1060
SF1 1065
6FH 1070
SF1 1075
OFH 1060
SFH 1085
SF1 1090
SFH 1095
SFH 1100
SFH 1105
8PM 1110
SFH 111I
S1FH 1120
6FH 1125
5PM 1130
1FP 1135
F11 1140
3PM 1145
SF1 1150
SF1 1155
IF1 1110
4;H 1165
SF1 1170
SF1 1t15
6r" 1190
SFN 1135
I3k 1t"6
OF" tie5
I914 1200
O1P 1205
511 1210
F1P1215
IF" 1l20
3PH 1226
6. 1230
611I23
W,
SF111240
Irk 124s
arm 1350
so" 1S
1's5
*os 126S
6104
1ava
"mItaI
C 1.0455E-32,
7.3193E-32
7
C 2.19169-31.,
C 2.2160E-314
C 2.0023E-31,
C 3.6923E-31,
C 3.3037E-31,
DATA FOOI
C 2.3708E-31,
G 1.4408E-31,
C 4.01605-31,
C 2.0998E-30,
C 6.3617s-30,
C 1.0978E-29,
C 9.6590E-30,
C 1.8655E-29,
C 3.3037E-29.
C 5.8044R-29.
F1051/
C DATA
9.4359E-29,
1.5230E-32,
_1.9406E-32,
2.2750E-31,
2.0381E-31,
2.2344E-31.
3.7486E-31,
3.1724E-31.
2.3932E-32,
1.2193E-31,
2.2902E-31,
1.9903E-31,
2.5450E-31.
3.8124E-31,
2.9840E-31,
3.42311-32,
1.4742E-31,
2.30881-31,
2.0086E-31,
3.1228E-31,
3.8317E-31,
2.83011-31.
5.05151-32,
1.92691-31,
2.40029-31,
1.93049-31,
3.45601-31,
3.47379-31,
2.58572-31/
1.9452E-31,
1.5483E-31,
5.2287E-31,
2.6083E-30,
7.1415E-30.
1.10521-29.
1.0332E-29.
2.1465E-29,
3.6347E-29,
6.1916E-29.
1.6232E-31,
1.8642E-31,
?.2754E-31.
3.30825-30.
6.5953E-30,
1.10955-29,
1-1974t-29,
2.4779E-29,
3.9587E-29,
6.9613E-29,
1.5174E-31,
2.3664E-31,
1.0511E-30,
4.3638E-30,
9.9715E-30,
1.0641E-29,
1.3612E-29.
2.7370E-29.
4.47011-29,
7.7863E-29,
1.42069-31,
3.01811-31,
1.45311-30,
5.3132E-30,
1.0796E-29,
9.781WE-30,
1.5829E-29,
2.9915-29,
5.0122t-29,
0.28204-29/
9.7397E-29.
i.2194E-28.
1.2$115-28.
1.561E7-28,
1.7812E-28.
5.24899-29,
9.3744E-30,
7.4234E-30.
1.3363E-29,
1.65571-29,
1.0656E-20,
1.3145E-28,
1.1805E-28,
1.78861-20,
1.5521E-20,
3.56731-29.
7.8379E-30,
4.6656s-30,
1.5025E-29,
1.7035E-29.
1.0746E-28.
1.3738E-26,
1.2159E-26.
1.99331-20,
1.2593E-28,
2.42015-a9,
6.-960E-30,
9.49721-30.
1.536%E-29,
1.6916t-29,
1.1210-286,
1.36341-26,
1.23905-25,
1.2865-20,
9.5535-39,
1.69775-29,
0.64515-30,
1.07919-29.
1.61525-29,
1.7231E-29/
1.6475K-29,
1.4028-29,
2.10201-29.
1.01069-29.
1.6699C-30,
2.3161E-31,
0.4519E-32,
3.61735-32,
1.035S1-32.
C 2.6642t-33, 2.103K5-33.
vAta V1151t
C 0.35SE0-34. *.4t2SC-34.
C C1.07421-136
1.5439t-33.
,601TE-33, 1.009111-32.
1.5335E-29.
1.5192E-22,
1.9942E-22,
7.65401-30,
1.11325-30,
1.76149-31,
6.53*92-32,
32.6061-33,
7.30641-33,
1.64609-33.
1.4272E-29,
1.70605-29,
1.16541-29,
5.7022t-30,
6.1469t-31,
1.4340t-31,
S.4113t-32,
2.2724t-32,
5.45001-33,
1.2640.*36.
1.3282.E-29.
1.90859-29,
1.63919-29,
3.22471-30.
4.52559-31.
1.16011-31,
4.16142-32,
lO743U3..3,
4.0$51C-33,
1.01501-33/
C 1.t9-51-28,
C 1.3011E-26,
C 1.3625E-28,
C 1.90006-20,
C 7.2987E-29,
C 1.24565-29,
C 6.6521C-30.
C 1.23591-29,
C 1.61044-29.
DATA FM011/
C 1.7175E-29,
C 1.3459E-29,
C 2.13f1t-29,
C 1.3552E-20,
C 2.5441E-30,
C 3.1106t-3t.
C 9.1148C-32,
C 4.061?7-32,
S1.34V41-33,
C
7.3051i-34. 6.0t1t-34,
.29l9t-34.
3.1394E-33.
41,FH
C60539
1.4004-32. 3-1224t-31.
3.276SP-32, 3.39111-32.
.4565t-32. 6,310U4-32. 1.4141-32, 3.11MV-11, 134W1g-31.
C 5.156
--31,
1.9403.-6t.
1431.c 2.350st-31, S2f9•-40.1.
.2@31-3i,
.93041-21. 4
t30-3t.
Cc 3.11-031-31,
!,4M4
-310• 3.1612t--31,
t-,1. 4.11"U-31.
1.0144t-31. 2.1 Mt|~1-. 2.00R-31.
4.l?CUl-31. SAM.
•C 5.•0*M-34
DATA
c
C
0,24W20
'.
314|
Ft
0.3?4AO-31,
?.TMO["31.
74110-31,.g
IMM-3i,
012011
SIF 1260
SFH 1265
SFH 1290
F14 1236
IF" 1300
SFI 1305
BFI 1310
IF" 131s
F14 1320
@FI 1325
IF1 1330
F14 1335
BFI 1340
GFI 1345
SFN 1350
BF1 135S
oF1 1360
BF1 1365
SF1 1370
8F# 1375
SF1 1360
$F1 1345
F1H1390
IF" 1385
F14 1400
F14 1405
SF1 1410
SF1 1415
SF1 1420
F1N 142S
F14 1430
F14 1435
SF" 1440
ONH 144S
BFI 1450
if" 145s
elm 1440
IFN 146$
F14 147*
so"41475
CI 1410
so"14 1t53
109
atH 141%
IF"
logo
0, I
M
PH Ist0
PH Is
PH
It"
1S30
1531
10%HI
3,4512t-30. 4.13221-30. 442431-10. 4,0111t-30.
3•i
.!104 -30, $A l
C•O10. 4.4914•'30. 9.0193•0-,
9~ll|3.41SilU-30.
.#-4..W
fiMtt-30.
3.9002U40.
-3.11
134
3AUU$2|0.
6.4-3•0.{}0
WNH 1541[
ItH tIj
3.11419-'30.
arm is"4
.V
C 5.6048E-31,
C 7.8471E-31,
C 4.9075E-31,
DATA F1251/
C 5.3163E-31.
C 5.4409E-31,
C 4.9050E-31,
C 6.4367E-31,
C 2.9651E-31,
C 4.8805E-32,
C 6.2755E-33,
C .2.4903E-33,
C 6.4511E-34,
C 1.6923E-34,
DATA F1301/
C 1.1925E-35,
C 6.99085-37,
C 6.09585-38,
C 1.4020E-36,
C 3,1074E-35,
5.2179E-34,
C 5.2132E-33,
C 1.1515E-32,
C 3.413S5E-32,
C 1.2724E-31,
DATA F1351/
C 4.17885-31,
C 9.7143E-i1,
C 1.4539E-30,
C 3.0096E-30,
C 5.5043E-30,
C 7.06805-30,
C 6.02L3E-30,
C 6.5844E-30,
C 1.0229E-29,
C 4.74915-30,
DATA F1401/
C 8.6715E-31,
C 3.97285-31,
C 4.68315-31,
C 7.0801E-31,
C 1.0349r-30,
C 1.5005E-30,
C 1.4034E-30,
C 1.3612E-30,
"C
C 1.9079E-30,
C 6.8706E-31,
DATA F1451/
C 8.01425-32,
C 2.3996E-32,
C 2.3595E-32,
C 1.6114E-32,
C 7,2359E-33,
C 1.0826E-33,
C 1,7040E-34,
C 3.7647E-35,
C 4.77086-34,
2.3•98E-33,
'DATA
F1501/
1N
4.2457E-31,
3 10655-31,
5.30695-31,
3.4505E-31,
3.4204E-31,
5.5236E-31,
2.9881E-31,
3.9140E-31,
5.5309E-31,
2.7865E-31,
4.3606E-31,
5.3832E-31/
5.1783E-31,
5.2659E-31,
5.1700E-31,
5.99085-31,
2.2286E-31,
3.1747E-32,
4.9752E-33,
1.9316e-33,
5.3300E-34,
1.1816E-34,
5.2042E-31,
5.1696E-31,
5.6818E-31,
5.4470E-31,
1.6742E-31,
2.0057E-32,
4.0047E-33,
1.49c5E-33,
4 3741E-34,
6.7071E-35,
5.4422E-31,
5.1726E-31,
6.3129E-31,
4.7903E-31,
1.1827E-31,
1.2550E-32,
3.5602E-33,
1.2059E-33,
3.4916E-34,
3.6474E-35,
5.5656E-31,
4.9003E-31,
6.6542E-31,
3.9669E-31,
7.7739E-32,
8.7434E-33,
3.0930E-33,
8.7242E-34,
2.6560E-34,
2.0686E-35/
6.8948E-36,
3.7896E-37,
6.u13E-38,
2.7167E-36,
5.4789E-35,
8.8554E-34,
6.3519E-33,
1.4034E-32,
4.5517E-32,
1.6478E-31,
3.9661e-36,
2.02805-37,
1.7201E-37,
5.14785-36,
9.5640E-35,
1.4764E-33,
7.3174E-33,
1.6594E-32,
5.58325-32,
2.0588E-31,
2.2576E-36,
1.1016E-37,
3.4964E-37,
9.5500E-36,
1.66355.34,
2.3331E-33,
8.3752E-33,
2.1021E-32,
7,2303E-32,
2.55435-31,
1.2669E-35,
6.7816E-3d,
7.07225-37,
1.7376E-35,
2,9145E-34,
3.5996E-33,
9.8916E-33*,
2.74165-32,
9.9484E-3d,
3.36256-31/
5.0081C-31,
1.08055-30,
146049E-30,
3.5816E-30,
6.0324E-30,
7.5218E-30,
7.7271E-30,
7.1163E-30,
3.9296E-30,
3.5280"-30,
6.0144E-31,
1.17135-30,
1.7680E-30,
4.0851E-30,
6.4983E-30,
7.57235-30,
7.1576E-30,
7.7503E-30,
8.99i1E-30,
2.4349E-30,
6.9599E-31,
1.2711E-30,
2.0557E-30,
4.61115-30,
6.74985-30,
7.7840E-30,
6.7819E-30,
8.8152E-30.
7.7813E-30,
1.6502E-30,
8.4406E-31,
1.37275-30,
2.49675-30,
5.21975-10,
7.05455-30t
8.00815-30,
6.4753E-30,
9.R0226-30,
0.37855-30,
1.1622E-30/
6.7360E-31,
3.90005-$1,
4.8921E-31,
7.4555E-31,
1.1047E-30,
1.5268E-30,
1.30025-30,
1.52255-30,
5.39105-31,
3.9803E-31,
5.1995E-31,
7.9754E-31,
1.2024E-30,
1.5535E-30,
1.2225E-30,
1.7202E-30,
4.5554E-31, 4.13005-31,
4.1514E-31, 4.3374E-31,
5.7242E-31, 6.2759E-31,
8.7616E-31, 9,1171E-31,
1.29905-30, 1.3725E-30,
1.5623E-30, 1.5009E-3C,
1.1989E-30, 1.2411E-30,
1.9471E-30, 1.9931E-30,
1.747E4.64665-1,
96-, 30
2.9723E-21,
1,2625E-30, 9.3332S-3
I.U5086-31, 1.2106E-31/
5.4066E-32,
2.3804E-32,
2.2575E-32,
1.4422E-32,
6.3307E-33,
7.2364E-34,
9.2181E-35,
5.64285-35,
6.9789E-34,
3.6636E-33,
3.9329E-32, 3,1665E-32,
2.3242E-32, 2.44765-32,
2.1298E-32, 2.C088E-32,
1.2946E-32, 10837S-32,
3.8837E-33, 2•.66785-33,
4.52015-34, 3.08035-34,
5.2934E-35, 3.5774E-35,
9.5139E-38, 1.7322E-34,
9.72675-34, 1.4662h-33,
4.79606-33, 6,51296-33,
135
2,7420E-32,
2.5331E-32,
1.6263E-32,
9.12829-33,
1,6769E-33,
2.2377E-34,
3.1431E-35,
2.88292-34,
1.9429E-33,
7.76381-33/
8FH 1575
BFH 1580
1FH 1585
BFH 1590
SF8 1595
SFH 1600
MFH 1605
ONH t610
SFH 1615
BFH 1620
SFH 1625
SF8 1630
SFH 1635
BFH 1640
BFH 1645
BFH 1650
SFH 1655
SFH 1660
BFH 1665
P8H 1670
SF8 1675
BFH 1680
S8N 1685
SF8 1690
BFH 160
BFH 1700
BFH 1705"
8FH 1710
SF8 1715
BFH 1720
SFH 1725
BFH 1730
8FH 1735
SFH 1740
SFH 1745
SFH 1750
O8H 1•6S
SFH 1760
P8H 1765
SFH 1770
SF8 1775
BFH 1780
S8
1765
SF8 1790
SF8 1795
8FH
SFH
5FH
IF
SF8
SFH
SFH
BFH
SFH
SF8
S8N
IFN
OFN
INH
1800
1M8
1810
1815
1020
1825
1830
1835
1840
1845
1850
1665
1160
IM8
C
C
C
C
C
C
9.3774E-33,
1.9069E-32,
3.43652-32,
1.0974E-31,
2.6733E-31,
4.3670E-31,
4.42682-31,
C 5.45878-31,
C 6.6981E-31,
C 6.46068-31,
DATA F1551/
C 1.9162E-31,
C 4.79628-32,
C 2.21882-32,
C 2.5459E-32,
C 4.4610E-32,
C 6.1278E-32,
C 8.26082-32,
C 7.8468--32,
C 9.2547E-32,
C 4.4470E-32,
DATA FIGOI/
C 5.26452-33,
C 3.29682-34,
C 1.4968E-35,
C 3.6717E-37,
C 4.38358-39,
C 5.17088-40,
C 3.04058-3a,
C 9.97858-37,
C 2.0198E-33,
C 3,2858E-34,
DATA F1651/
C 2.52668-33,
C 1.1914E-32,
C 4.49808-32.
C 1.2983E-31.
C 3.0918E-31.
C 5.114M -31,
C 8.1064E-31,
C 7.9225E-31,
C 8.3405E-31,
C 9.004E-31,
DATA F1701/
C 5.67972-31.
C 1.17338-31,
C 3.26108-32,
C 1.8107E-32,
C 1.29107-32,
C 1.08438-32,
C 4.0100-3U.,
C 7.2505E-32,
C 1.0723E-3t,
C 1.24938-31,
DATA Ft751/
C 1.09408-31.
C 1.6480C-31,
C 1,08446-31,
C t.05698-33,
"C
Y.
1.1467E-32,
2.1352E-32,
4.31818-'32,
1.3742E-31,
3.02478-'31,
4.4685E-31,
4.68658-31,
5.6360E-31,
7.4319E-31,
5.54958-31,
1.35478-32,
2.30718-32,
5.61072-32,
1.6337E-31,
3.3737E-31,
4 48812-31,
5.34262-31,
5.7740E-31,
7.7977E-31.
4.39448-31,
1.5686E-32,
1.47598-32,
7.0017E-32,
2.01578-31,
3.86182-31,
4.55268-31,
5.4020E-31,
5.6426E-31,
7.5539E-31,
3.37692-31,
1.68938-32,
2.8247E-32,
8.6408E-32,
2.34418-31,
4.1343-31,
4.3628E-31,
5.3218E-11,
6.0399E-31,
1.1610E-31,
2.5771E-31/
1.36988-31,
4.0811E-32,
2.2139E-32,
2.92958-32,
4.9371E-32,
6.2940E-32,
8.49718-32.
7.5943E-32,
6.9322E-32,
3.58818-32,
1.01738-31,
3.3912E-32,
2.2499E-32,
3.41968-32,
5.43728-32,
6.494?E-32,
8.3484E-32,
7.9096E-32,
8.2177E-32
2.6748E-32,
7.8925E-32,
2.8625E-32,
2.276,E-32,
3.6155E-32,
5.73048-32,
6.8174E-32,
8.18882-32,
8.6869E-32,
7.34088-32,
1.70748-32,
6.19388-32,
2.4504E73&4
2.3985E-32,
4.07338-32,
6.1640E-32,
7.5190E-32,
7.85528-32,
9.13038-32,
5.79568-32,
9.67008-33/
2.9943E-33,
1.8499E-34,
7,5244E-36,
1.6076E-37.
1.6587E-39,
1.19572-39,
6.4059E-38.
1.88028-35,
3.5665E-35.
V.51955-34,
1.73162-33.
1.0192E-34.
3.6852E-36,
6.8341E-39,
6.3044E-40,
2.78538-39,
1.31698-37,
3.47888-30,
6.30538-35,
8.62318-34.
1.00398-33,
5.5015E-35.
1.75688-36,
2.81958-38,
2.90148-40,
6.3427E-39,
2.64438-17.
6.3328E-36,
1.1309E-34,
1.2776E-33,
5.78598-34,
2.9040E-35,
8.14648-37,
1.1286E-38,
2.71462-40,
1.40708-38,
5.19178-37,
1.13708-35,
2.12068-34,
1.7780E-33/
3.6254E-33,
1.60868-32,
5.53582-32,
1.62708-31,
3.49308-31,
5.4108"-31,
8.1973E-31,
7.6256E-31,
.3774E-31,
9.25228-31,
5.1398E-33,
2.04698-32,
6.79638-32,
1.9609E-31,
3.9330E-31.
5.607?E-31,
8.1894E-31.
7.8468E-31,
6.58702-31
9.89138"-1,
6.82898-33,
2.57618-32,
8.5720E-32,
2.26689-31,
4.42088-31,
6.50508-31,
9.3081E-31,
0,0041E-31,
0.6104E-31,
7,9301E-31,
8.7481"-33,
3.4964E-32,
1.0700E-31,
2.59538E-3$.
4.6431E-31,
7.2128E-31,
8.02408-31,
8.15858-31,
8.8516E-31,
6,65851-31/
4.4163C-31,
8.5273E-32,
2.8577E-32,
1.63958-32,
1.34755-32,
2.06028-32,
4.C668E-32,
7.66378-32.
1.07498-31,
1.25599-31,
3.23698-31,
6.3805E-32,
2.5210E-32,
1.48908-32,
1.4689C-32,
2.39748-32,
5.22128-32,
4.51138-32.,
1.13806-31,
1,23328-31.
2.32598-31, 1.8935E-31,
4. qC38E
3.0931E-32.
2.2913E-32, 2.0341E-32,
1.35168-32, 1,25428-32,
1.3568O-32, 1,t5498-32,
2,7294E-32, 3.3353E-32,
5.8056E-32, 6.59918-32.
9.4832E-32, 9.98789-32,
1,1774t-3t, 1.174M6-31,
1-11828-31, 1.108SE-31/
!,11788-31,
1.7403C-31,
8.091S5-32M
1.12019-32,
1.20039-31,
1.?0040-31,
548615t-32.
6.23359-33.
1.30378-31,
4.5117t-31,
3.7194t-32,
6.02701-33,
136
Y
1,47309-31,
1,33391-31,
0.51948-32,
4,.20•1-33,
SFH 1870
IFN 187*
SFH 1880
SFH 1885
SFH148sa0
SF1 1895
SFH 1900
SF4 1905
SF141910
SF1 t915
SFN 1920
SFH 1923
OFH 1930
SFH 1935
8¥H 1940
IFN 1945
SF1 1950
8FH 1955
SFH 1960
SF1 1965
SF1 1970
BFH 1975
SF1 1980
SF141985
SFH 1990
SFH 1995
SFH 2000
EFM 2005
SFH 2010
6FH 2015
SFH 2020
SFH 2025
SFH 2030
SFH 20315
5ON 2040
BFH 2045
PH 2050
SFH 2055
SFH 2060
GFH 2065
SF1 2070
SFH 2075
SFH 2080
SF1 2085
SF1 2090
UF1 2095
SFH 2100
SFM 2105
OFH 2110
IMH 2115
SF1 2120
Sr1 2125
FPH 2130
$FH 2135
aF1 2140
SF1 2145
SF1 2150
IF" 21a5
P71HAls
"C4.1313E-33,
C 2.3062E-33,
C 2.1927E-33,
C 1.1393E-33,
C 1.6821E-34,
C 9.9828E-36,
DATA F1801/
C 4.9656E-37,
C 1.4273E-38,
C 2.08755-40,
C 0.
C 0.
C O.
C 0.
C 0.
cO.
C o.
DATA FI,51/
CO.
C 0.
C 0.
C 0.
C 0.
C 0.
C 0.
C 0.
C
C
C
C
C
0.
0.
0.
0.
4).
0.
0.
0.
0.
0.
0.
.0.
0.
0.
O.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
,.
0,
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
01
0.
0.
0.
0,
0*
DATA F2001/
C O.
0.
0.
0.
C 0.
C
.
c 0.
mo"
0.
0.
0.
0.
C.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
O,
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
0.
,0.
0.
O.
0.
0.
0.
0.
0.
0.
0,.,
0.
O,
0.
0.,
0.
0.
0.
0.
0.
0.
0.
0,
0.
0.
0.
0.
0.
0.
0.
. 0.
. 0.
, 0.
0.
0,
0,
0.
o,
0.
0.
0
00.0.
/
0.
Q0.
/
0.
0.
0.
0.
0.
g
0SF
o0,
0.
0.
,0,
0.
0.
0.
BFH
BFH
BFH
8FH
BFH
BFH
8FH
BFH
BFH
5FM
2165
2170
2175
2180
2185
2190
2195
2200
2205
2210
8FH 2215
ONH 2220
BFH 2225
BFH 2230
BFH 2235
8FH 2240
SFH2245
B5H 2250
SFH 2255
8FH 2260
5PF 2265
PFH2270
SF1 2275
PFH2260
BFH 2235
OFP 2290
0.
0.
0.
0.
0.
/
0.
0,
0.
,
BFH 2295
FH 2300
8FH 2305
OC.
NP 2310
OFM 2315
BFH 2320
BFH 2325
ONP 2330
PFH2335
SF1 2340
FH 2345
SFH 2350
ON#2355
OFM 2360
OFM 2365
PFH2370
2375
FH 2380
BFM 2305
H 2390
SFH 2395
OFM 2400
8FH
BFH 2405
R410
OFH 2415
1PM 2420
8
2425
DFP 2430
END
137
'ILA..'.
2.5292E-33,
2.21035-33,
1.4521E-33,
2.7165E-34,
1.7429E-35,
9.39855-37/
0.
0.
0.
C 0.
2.7730E-33,
2.1213E-33,
1.6592E-33,
4.3337E-34,
3.0320E-35.
1.74195-36,
6.3695E-38, 3.05545-30,
1.23315-39, 5.14851-40,
0.
0.
0.
C O.
DATA F1901/
C 0.
C 0.
C 0.
C 0.
C 0.
C 0.
C 0.
C 0.
C 0.
C 0.
DATA P1951/
C 0.
3.2575E-33,
2.1556E-33,
1.9533E-33,
6.20775-34,
5.3093E-35,
3.16725-36.
2.5652E-37, 1.2942E-37,
6.489O5-39, 2.86915-32,
0.
0.
0.
C 0.
-
3.6243Z-33,
2.1126E-33,
2.0794E-33,
8.3772E-34,
9.5407E-35,
5.6622E-36,
ce
C
C
BLOCK DATA TRFN
BLOCK DATA
LOWTRAN TRANSMITTANCE FUNCTIONS
COMMON /TRFWFO/
TR(67),FW(67),FO(67)
DATA TR/
1 .9988,
.9980,
.9960, .9940,
.9920,
.9900,
.9800,
.9700,
2 .96C00
.9500,
.9400,
.9300,
.9200,
.9100,
.9000,
.8900,
3 .8600,
.8400,
.8200,
.8000,
.7800,
.7600, .7400,
.7200,
4 .7000t
.6800,
.6600,
.6400,
.6200,
.6000,
.5800,
.5600,
5 .5400t
.5200,
.5000,
.4800,
.4600,
.4400,
.4200,
.4000,
6 .3800,
.3600,
.3400,
.3200,
.3000,
.2800,
.2600,
.2400,
7 .2200,
.2000,
.1800, .1600,
.1400,
.1200,
.1000, .0800,
8 .0600,
.0400,
.0300,
.0200.
.0150,
.0100,
.0080,
.0060,
9 .0040, .0020, .0010/
FW WATER VAPOR AND UNIFORMALY MIXED TRANSMITTANCE TABLE
DATA FW/
1-2.3468,-2.0362,-1.6990,-1.4815,-1.3279,-i.2007, -. 7825, -. 5229.
2 -. 3468, -. 1938. -. 0655,
.0414,
.1553,
.2430,
.3324,
.4838,
3 .6128,
.7243,
.8261.
.9191,
1.0000, 1.0792, 1.1461, 1.2122,
4 1.2672, 1.3284, 1.3892, 1.4409, 1.4956, 1.5441, 1.5966, 1.6435,
5 1.6857, 1.7340, 1.7782, 1.8261, 1.8692, 1.9191, 1.9638, 2.0086,
6 2.0607, 2.1038, 2.1461, 2.1875, 2.2304, 2.2788, 2.3263, 2.3717,
7 2.4183, 2.4698, 2.5159, 2.5740, 2.6284, 2.6902, 2.7559, 2.8261,
2.9031, 3.0000, 3.0607, 3.1461, 3.2041, 3.2718, 3.3054, 3.3444,
9 3.3979, 3.4914, 3.5682/
F INFRARED 0 OZONE TRANSMITTANCE TABLE
DATA FO/
1-1.6778,-1.3980,-1.1192, -. 9508, -. 8239. -. 7258, -. 4318, -. 2366,
2 -. 1074, 0.0000,
.0969,
.1761,
.2304.
.3ol0,
.3522,
.4624,
3 .5563,
.6435,
.7243,
.7924,
.8573,
.9191,
.9731, 1.0253.
4 1.0719, 1.1173, 1.1614, 1.2095, 1.2480, 1.2900, 1.3263, 1.3617,
5 1.3979, 1,4393, 1.4698, 1.4983, 1.5314, 1.5682, 1.6021, 1.6335,
8 1.6721, 1.7076. 1.7402, 1.7924, 1.8325, 1.8865, 1.9395, 2.0000,
7 2.0607, 2.1206, 2.1903, 2.2652, 2.338$, 2.4313, 2.5185, 2.6435,
8 2.7853, 2.9777, 3.1072, 3.2553, 3.3617, 3.4771, 3,5563, 3.6233,
9 3.7076, 3.8325, 3.9345/
END
"8
*
C
138
TRE 100
TRE 105
TRE 110
TRE 115
TRE 120
TRE 125
TRE 130
TRE 135
TRE 140
TRE 145
TRE 150
TRE 155
TRE 160
TRE 165
TRE 170
TRE 175
TRE 180
TRE 18$
TRE 190
TRE 195
TRE 200
TRE 205
YRE 210
TRE 215
TRE 220
TRE 225
TRE 230
TRE 235
TRE 240
TRE 245
TRE 250
TRE 255
TRE 260
TRE 265
TRE 270
TRE 275
TRE 280
CS
C
C
C
C
C
C
C
C
BLOCK DATA CID
BLOCK DATA
WATER VAPOR BAND MODEL ABSORPTION COEFFICIENTS
Cl LOCATION I
V a 350 CM-1
CI LOCATION 1770 V " 9195 CM-I
CI LOCATON 1771 V . 9875 CM-1
CI LOCATION 2355 V
12795 CM-I
CI LOCATION 2356 V '
13400 CM-I
Ct LOCATION 2580 V a 14520 CM-I
COMMON 1C1/CI(2580)
COMMON /CI/ C01(190),C191(190),C381(190),C571(190),C761(190),
X C951(190),C1141(1BO),C1331(190),CI521(1gO),CtI7I(190),
X C1801(190),C2091(190),C2281(190),C2471(110)
DATA CO1/
¶ 3.93, 3.72, 3,54, 3.42, 3.37, 3.37, 3.36, 3.33, 3.25, 3.13,
2 3.02, 2.96, 2.97, 3.00, 3.08, 3.12, 3.08, 3.03, 3.00, 3.01,
3 3.03, 3.07, 3.05, 3.01, 2.94, 2.83, 2.71, 2.62, 2.58, 2.57,
4 2.62, 2.67, 2.72, 2.71, 2.60, 2.46, 2.35, 2.26, 2.22, 2.23,
5 2.19, 2.17, 2.17, 2.20, 2.28, 2.34, 2.42, 2.39, 2.20, 2.01,
6 1.92, 1.83, 1.78, 1.79, 1.81, 1.84, 1.83, 1,80, 1.71, 1.51,
7 1.39, 1.30, 1.25, 1.18, 1.19, 1.18, 1.21, 1.33, 1.47, 1.53,
8 1.54, 1.36, 1.12,
.89,
.69,
.49,
.60,
.71,
.79,
.99,
9 .86,
.73,
.53,
.43,
.61, .52,
.67,
.73,
.80,
.83,
$ .80,
.63,
.47,
.32, -. 08, -. 21, -.29, -. 21, -. 01,
.08,
$ .16,
.09, -. 03, -. 21, -. 37, -. 35, -. 30. -. 31, -. 37. -. 42,
$ -. 48, -. 42, -. 40, -. 39, -. 43, -. 77, -. 83. -. 80, -. 79, -. 60,
$ -. 50, -. 42, -. 39, -. 38, -. 37, -. 40, -.51, -.67, -. 82, -.58,
$ -. 40, -.32, -. 21, -. 09, -. 18, -. 16, -.19, -. 28, -. 33, -. 35,
$ -. 28, -. 22, -. 10, -. 05, -. 11, -. 13, -.27, -. 27, -. 18, ".06,
$ .11,
.23,
.26,
.19,
.11.
0.00, -.09, .02,
.08, .12,
$ .22,
.28
.39,
.54, .68,
.75,
.79,
.79,
.71,
.69,
$ .76,
.88, 1.01,.I.18, 1.18, 1.14, t.05, 1.02, 1.11, 1.23,
S 1.41, 1.75, 1.83, 1.99, 2.05. 2.03, 2.00, 1.96, 1.90, 1.86/
DATA Ci19/
1 1.91, 2.08, 2.24, 2.41, 2.63, 2.68, 2.67, 2.73, 2.79, 2.81,
2 2.91, 2.93, 3.02, 3.16, 3.23, 3.30. 3.34, 3.43, 3.57, 3.59,
3 3.59, 3.58, 3.57, 3,01, 3.71, 3.71, 3.69, 3.64, 3.60, 3.68,
4 3.80, 3.95, 4.05. 4.05, 4.02, 3.99, 3.96, 4.0., 4.13, 4.22,
54.35, 4.49, 4.58, 4,62, 4.63, 4.61, 4.57, 4,56, 4.56, 4.53,
6 4.49, 4.46, 4.40, 4.28, 4.14, 3.92, 3.63, 3.35, 3.16, 3.10,
7 3.24, 3.47, 3,66, 3,80, 3.93, 4,00, 4.04, 4.15, 4.23, 4.31,
* 4.35, 4.31, 4.23, 4.20, 4,24, 4.28, 4.35, 4.42, 4.42, 4.44,
9 4.48, 4.40, 4.30, 4,22, 4.13, 4.07, 4.12, 4,19, 4.22, 4.23,
$ 4.16, 4.04, 3.99, 3.94, 3.93, 3.91, 3.86, 3,83, 3.80, 3.78,
$ 3.90. 3,54, 3.40, 3.30, 3.31, 3.42, 3,52, 3.52, 3.49, 3,41,
$ 3.21, 3.14, 3.10. 3.08, 3.11, 2.98, 2.88, 2.78, 2.74, 2.76,
aDC
DCI
DCI
DCI
DCI
DCI
DCI
DCI
DCI
DCI
DOC
DCI
D05
DCI
DCI
DCI
D~
I
DCI
DCI
DCt
DCI
DCI
DCI
DCI
DCI
DCI
DCI
DCI
OCI
DCI
DCi
DCI
DCI
DCI
DCI
DCt
DCI
DCI
DCI
DCI
DCi
DCI
DCI
OCI
OCi
DCI
100
105
110
115
120
123
130
135
140
145
150
155
160
165
179
175
180
185
190
195
200
205
210
215
220
225
230
235
240
245
250
255
260
265
279
275
210
285
290
295
300
305
310
315
320
325
$ 2.72, 2.76,, 2.82. 2,85, 2.80,
2.75, 2.64, 2.60, 2.81, 2.64,
OCI
330
$ 2.56, 2.49, 2.37, 2.25, 2.14, 2.08, 2.11, 2.20, 2.31, 2.26,
$ 2.15, 2.06, 1.90, 2.03, 2.05, 1.96, 1.54, 1.72, t.64, 1.59,
S 1.57, 1,57, 1.60, 1.63, 1.51, 1,36, 1.07,
.91,
.87,
,92,
t1.04, 1.01,
.92,
,84,
.92,
.97, 1.01, 1.06, 1.10, 1,06,
S 1.01,
.91,
.79, ,55,
.47, .41,
.39,
.80, .34,
.33,
S ,30,
.43,
.46, ,45,
.38,
.27,
.21,
.22,
.29,
o37/
DATA C381/
1 .383, .37,
.29, .1I,
.13,
.11,
.03 .-. 05, -. 12, -. 24,
DCi
OCI
DCI
DcI
OCI
OCI
OCI
DCI
335
340
345
350
355
300
365
370
2
-. 31, -. 39.l -'.43, -. 50, ".59, -.,32,-1,43,-I.,5I,-IB3,-1,74,
68, '.73o -. 80, -. 02,li.06,
3-I.14,-1,22,-I.27,-1.29,-1.33,-1
DCI
DCI
4-I,82,'-I.g,-2.09,-2.21,-2.21,-2.24,-2.27,-2,36,-2,S
,-2,S5,
8II70,
"..63,-,1.57 ,-356,2.56,-:.67,'2.69,- .4?,-2.41, -f,62,
Del
DCI
275
310U
315
139
8-0
6-2.52,-2.42,-2.29,-2.14,-2.00,-1.87,-1.71,-1.51,-I.39,-1.27,
7-1.12,-I.01, -. 89, -. 75, -. 68, -. 57, -. 47, -. 42, -. 32, -. 27,
8 -. 26, -. 19, -. 13, -. 11, ".0l
.05,
.08,
.17,
.25,
.31,
.41,
.43,
.44,
.43,
.36,
.35,
.31,
.25,
.25,
.22,
$ .21,
.33,
.49,
.65,
.76,
.71,
.51,
.30,
.13,
.10,
$ .17,
.24,
.31,
.38,
.45,
.51,
.56,
.60,
.63,
.62,
$
.63,
.64,
.66,
.69,
.76,
.75,
.74,
.70,
.62,
.53,
$ .46,
.39,
.38,
.37,
.38,
.42,
.47,
.50,
.58,
.69,
$ .67,
.62,
,64,
.68,
.76,
.90, 1.11, 1.13, 1.10,
.97t
$
.98, 1.17, 1.38, 1.52, 1.70. 1.76, 1.84, 1.92, 1.90, 1.87,
$ 1.91, 2.02, 2.13, 2.10, 2.18 2.22, 2.25, 2.03, 2.01, 1.77,
$ 1.93, 2.19, 2.28, 2.14, 2.15, 2.22, 2.01, 2.14, 2.26, 2.36,
S 2.51, 2.66, 2.73, 2.68, 2.69, 2.64, 2.22, 1.95, 1.61, 1.11,
S .88,
.83,
.89, 1.20, 1.62, 1.82, 1.99, 2.01, 2.14, 2.16/
DATA C571/
1 2.21, 2.30, 2.33, 2.42, 2.50, 2.51, 2.49, 2.46, 2.42, 2.37,
2 2.37, 2.33, 2.31, 2.43. 2.56, 2.61, 2.63, 2.60, 2.50, 2.36,
3 2.41, 2.34, 2.31, 2.32, 2.40, 2.27, 2.32, 2.22, 2.09, 2.08,
4 2.17, 2.41, 2.77, 2.68, 2.49, 2.29, 2.23, 2.42, 2.61, 2.58,
.5 2.49, 2.40, 2.39, 2.51, 2.60, 2.68, 2.68, 2.70, 2.82, 2.83,
6 2.82, 2.81, 2.84, 2.86, 2.91, 2.96, 3.03, 3.08, 3.21, 3.30,
7 3.40, 3.52, 3.49, 3.46, 3.51t 3.54, 3.56, 3.55, 3.57, 3.61,
8 3.71, 3.80, 3.92, 3,99, 4.06, 4.02, 4.06, 4.12, 4.28, 4.30t
9 4.22, 4.32, 4.42, 4.53, 4.64, 4.55, 4.40, 4.28, 4.32, 4.38,
$ 4.37, 4.24, 4.13, 4.14, 4,20, 4.25, 4.32, 4.35, 4.31, 4.27,
S 4.25, 4.27, 4.31, 4.36, 4.41, 4.52, 4.59, 4.71, 4.79, 4.81,
S 4.73, 4.61, 4.42, 4.28, 4.08, 4.00, 3.88, 3.86, 3.92, 3.98,
$ 4.12, 4,18, 4.31, 4.37, 4.42, 4.50, 4.53, 4.58, 4.59, 4.61,
$ 4.61, 4.59, 4.53, 4.49, 4.44, 4.41, 4.40, 4.34, 4.30, 4.26,
$ 4.09. 3.98, 3.87, 3.78, 3.77, 3.79, 3.75, 3.72, 3.62, 3.56,
$ 3.51, 3.48, 3.32, 3.18, 3.07, 2.96, 2.87, 2.80, 2.68, 2.58,
S 2.59, 2.51, 2.59, 2.57, 2.50, 2.42, 2.32, 2.20, 2,12, 2.00,
$ 1.92, 1.79, 1.63, 1.60, 1.69, 1.78, 2.04, 2.00, 1.81, 1.70,
* 1.63, 1.61, 1.60, 1.49, 1.14, 1.35, 1.64, 1.69. 1.70, 1.59/
DATA C761/
1 1.45, 1.29, 1,19, 1.08, 1.02, 1.04, 1.10, 1.16, 1.20, 1.23,
2 1.22, 1.08, 1.08, 1.06,
.89,
.93,
.73,
.58, .54,
.77,
3 .81,
.74,
.71,
.57,
.49.
.43,
.38,
.12,
.10,
20
4 .41,
.37,
.31,
.11,
-. 13, -. 21, -. 32, -. 36, -. 39, -. 33
5 -. 39, -. 45, -. 50, -. 56, -. 62, -. 68, -. 77, -. 84, -. 91,-1.00,
6-1.11 ,-1,19,-I.28,-l.31 ,-1.39,-l.43,-1.48,-I .52,-l,57,-I .60,
7-1.61,-I.o0,-1.se,-I.51,-1.42,-1.32,-I.26,-1.15,-1.00,
-. 83,
8 -.71, -. 61, -. 52, -,43, -. 368 -. 30, -. 21, -. 19, -. 17, -. 15,
9 -. 13. -. 17, -. 19, -. 12, -.06. -. 01, 0.00, -011,
-. 23, -. 32,
S -. 44, -. 51, -. 46, -. 47, -,42, -. 40t -. 40, -. 39, -. 37, -. 35,
$ -. 48, -. 75,-.13,-I.58,-1.80,-1,66,-1.52,-I,35,-I,19,-I.02
S -.68, -. 66, -. 65, -. 63, -.62, -. 66, -. 73, -. 79, -. 88, -. 64.
*$-.70, -.59, -.43, -. 39, -.50. -. 61, -. 74, -.79, -. 76, -.69,
S -. 62, -.69, -. 52, -. 48, -. 48, -. 42, -. 39, -. 38, -. 33, -. 29,
$ -. 26, -. 23, -.22. -.20, -. 37, -. 50, -,60, -. 60, -.51, -,46,
4 -. 42, -. 43, -. 45, -. 35, -.24, -. 14, -. 08, -. 08, 0.00.
.11,
$ ,32,
,43,
.42.
.32,
,23,
.22,
.28, .45,
.55, .62,
$
.65 ,.71,
.75, .80,
.83,.85,
.- 7,. 90, .93,
1.00,
5 1,04, 1.15, 1.22, 1.32, 1.31, 1.32, 1,33, 1,48, 1.76, 1.67/
DATA C9S1/
1 2.01, 1.92, 1.00, 1.89, 1.92, 1.98, 2.03, 2.39, 2.31, 2.48,
2 2.70, 2,71, 2.76, 2.78, 2.70, 2,77, 3.00, 2.94, 3.05, 2.94,
3 3.23, 3,20, 3,19, 3.32, 3.11, 3.41, 3.31, 3.36, 3.46, 3.36,
4 3.39. 3,50, 3.41, 3.22. 3.19, ,.96. 2.70, 2.98, 3.02, 2,.2,
"9
140
-v.
DCI
DCI
OCi
DC1
DCl
DCl
DCl
DCI
DCl
DC1
DCI
DCI
DCI
DCI
DCl
DCl
DC1
DCI
DCI
DCI
DCI
DeI
DCI
DCI
DCI
DCl
DCI
DCI
DCI
DCI
DCI
DCI
DCI
DeI
DCI
DCl
DCI
DeC
DO1
DCl
DCI1
DeC
DeI
DCI
DC
DC1
Dei
Dc
DCI
DCt
OCI
DCI
DCI
DCt
DeI
DCI
DCI
395
400
405
410
415
420
425
430
435
440
445
450
455
460
465
470
475
480
485
490
495
s5c'
50"
510
515
520
525
530
535
540
545
550
555
560
585
570
5?7
58
569
590
595
600
605
610
615
620
625
630
635
640
645
650
655
65o
M1
670
175
DCe g80
DOI
UD
5 2.98, 2.86, 2.92, 2.92, 3.05, 3.22, 3.60, 3.76, 3.81, 3.96,
S63.76, 3.62, 3.34, 3,06, 3.$1,' 3.16, 3.37, 3.41, 3.30, 3.33,
Oct
Dc1
690
695
- .48,-l.50,-1.52,-1.57,-1.61 ,-1.66,-1.70,-l.72,-1.78,-1.61/
DATA C1141/
1-1.89,-1.92,-2.00,-2.08,-2.18,-2.24,-2.31,-2.40,-2.48,-2.54,
2-2.6t ,-2.71,-2.83,-2.95.-3.10,-5.00,-5.00,-5.00,-5.00,-5.00,
3-5,00,-5.00,-5. 0,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,
4-5,00,-5.00,-5. 0,-5.00.-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,
5-5.00,-5.00,-5.|0 -5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,
6-5.00,-5.0
0,-S.00,-5.00,-5.00,-5.00,-5.0,-6.00,-5.00,-5.00,
7-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,
8-5.00,-5.00,-5.000-5.00,-5.00.-5.00,-5.00.-5.00.-5.00,-5.00,
9-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5,00,-5.00,-5.00,-5.00,
S-3.78,-3.33,-3.01,-2.82,"2.68,-2.49,-2.30,-2.13,-2.00,-1.81,
S-1.60,-1.41,-1.13, -. 90,'-.79, -. 63, -. 48, -. 36, -. 28, -. 16.
S -. 06.
.08,
.20, .28,
.41,
.54,
.69, .80,
.92, 1.04,
$ 1.19, 1.19, 1.01,
.98, 1.02, 1.19, 1,29, 1.30, 1.29, 1.38,
$ 1.19, 1.39, 1.42, 1.43, 1.70, t.62, 1.54, 1.41, 1.53, 1.86,
$ 1.96, 1.97, 2.02, 2.01, 1,94, 1.94, 1.83, 2.03, 2.21, 2.42,
$ 2.30, 2.16, 2.02, 2.02, 2.02, 2.13, 1.90, 1.71, 2.01, 1.56,
S 1.56, 1.51, 1.30, 1.63, 1.64, 1.67, 1.70, 2.22, 2.39, 2.38,
$ 2.30, 1.93, 2.39, 2.49, 2.52, 2.87, 2.21, 2.18, 2.40, 2.41,
S 2,45. 2.51, 2.23, 2.49, 2.30, 2.61, 2.72, 2.52, 2.63, 2.56/
DATA C1331/
1 2.51, 2.70, 2.62, 2,62, 2.80, 2.74, 2.79, 2,74, 2.70, 2.88,
OCI
DCI
OCI
DC1
D
981
OCI
DCI
DCI
Oct
OCI
DCi
OcI
OCI
DCI
OCI
DCI
DCI
DCI
DCI
DCI
OCt
DcI
760
765
770
775
780
785
790
?5
800
805
810
815
89.
825
830
835
*'40
z45
850
855
860
865
870
3
4
5
6
DcI 8G0
;X1
8e5
ODc 890
DCi
895
Oct 900
OC1 905
OCI
910
OcI
915
DCI
920
Oct 925
DCW 930
ONI
935
tCI940
DCI
945
001 950
W0t 955
9O
N
7 3.33, 3.51 3.48, 3.43, 3.62, 3.31, 3.40, 3;50, 3.61, 3.49,
83.46, 3.42, t.19, 3.18, 3.30, 3.00, -. 99, 3.21, 3.11, 3.14,
9 3.10, 2.72, 2.81, 2.95, 2.69, 2.73. 2.72, 2:47, 2.51, 2.60,
$ 2.42, 2.37, 2.73, 1.91, 107, 1.81, 1.78, 1.53, 1.51, 1.62,
s 1.59, 1.90, 1.42, 1.32, 1.22, 1.12, 1.08, 1.02,
.97,
.92,
$ .90,
.87,
.84,
.82,
.79.
.78,
.6,
.75,
.72,
.71,
S .71,
.70,
.69,
.67, .61,
.59, .52,
.48,
.41,
.39,
S .38,
.33,
.32,
.30,
.30, .30,
.29,
.28,
.27,
.26,
S .25,
.23,
.22,
.21,
.20,
.18,
.14,
.13,
.06,
.01,
5 -. 03, -. 07, -. 11, -. 16, -. 21, -. 24, -. 29, -. 32, -. 38, -. 41,
S$-.45,
-1.I0t'1.13,-1.19,-'1.22,-1.28,-1.30,-1.33,-1.36,-1.39,•,1.43,
-.50, -. ,54, -. 61, -. 69, -. 76, -.84, -. 90, -. 97,-1.01,
--
2 2.81,
2.72, 2.76, 2.84, 2.92, 2.98, 2.89. 2.88, 3.02, 3.09,
3.26, 3.03, 3.14, 3:28, 3.03, 3.11, 3.15, 3.30, 3.31, 3.22,
3.00. 3,08, 3.34, 3.40, 3.37, 3.32, 3.08, 3.09, 3.09, 3.01,
3.07, 3.07, 3.31, 3.21, 3.31, 3.67, 3.58, 3.79, 3.70, 3.49,
3.39, 3.11, 3013, 3.01, 3.10, 3,01, 3.19, 3.32, 3.43, 3.35,
7 3.40, 3.39, 3.39, 3.51, 3.54, 3.42, 3.50, 3.67, 3,59, 3.63,
8 3.66, 3.48, 3.39, 3,29, 3.31, 3.41, 3.23. 3.32, 3.12, 2.91,
9 2.91, 2.75, 2.78, 2.72, 2.62, 2.58, 2.32, 2.22, 2.00, 1.97,
S 1.68, 1,62, 1.64, 1.53, 1.56, 1.51, 1.52, 1.48, 1.42, 1.42,
S 1.40, 1.41, 1.43, 1.56, 1.52, 1.51, 1.52, 1.39, 1.39, 1.30,
S 1,09, 1.16, 1.21, 1.20, 1.22, 1.20,. 1.18, 1.20, 1.19, 1.17,
S i.10, 1,10, 1.09, 1.10, 1.11, 1.04,
.98,
.90,
.00, .Qf,
S .90, .90, .86,
.71,
,79,
.70, ,71, .67,
.62,
.53,
S .42,
.31,
.20,
.01, -. 08, -. 17, -. 20, -. 35, -. 44, -.5Oc
$ -. 83, -. 73, -. 83, -,93,-1.04,-1.14;-1.24,-1,34,-1.44,-1.54,
S_
I.4,1,74,-i.94,-I.94,-2.04,-2.14,-2,24,-2.34,-2.44,-2.54,
$-2.64,-2,74,-2.84,-2.94,-3,04,-3.14,-3.24,-3.34,-3,44,-3.54,
$-3.64,'-3.74, 3.04,-3.94,.4.04,-5.00,-5,00, -5,00-5.00, -;00/
DATA C1521/Iga
1"5.00,'5.00,-5.00,-5,00,-5,00,'5,00,'5,00,-5,00,'- 600,fg,00,
2-5,00,-5.00,-5.00,-5,00,-5.00,-5.00,-5.00,-5,00,-'.00.-,.00,
3-6.00,'5.00,-5.00,-.00 ,"5.00,-5.00,-5.0,-5,00,-i.0C 5.O0,
"141
.~.
•
,
OCt
OCt
DCI
OCt
001
OCI
OCI
DCI
OCI
OC1
DCI
0C1
VC1
-1
' OCt
OCt
700
705
710
715
72C
725
730
735
740
745
755
750
875
870
975
60
4-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.0o,-5.'00,-S.00,-5.00,
5-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,
S-5.00,-S.O0,-5.00,-5.0O,-5.00,-S.00,-5.00,-5.0.-5.00,-5.00,
7-5.00,-5.00,-5.00,-5.O0,-5.00,-5.00.,-5.00,-5.00.-5.00.-5.00,
8-4.15,-4.06,-3.97,-3.88,-3.79,-3.70,-3.61,-3.52,-3.43,-3.34,
9-3.25,-3.16,-3.07,-2.9,-2.89,-2.80,-2.71,-2,52,-2.53,-2.44,
$-2.35,-2.26,-2.18,-2.09,-2.00,-1.91,-1.82,-1.73,-1.64,-1.55,
S-.4,-.3,1.8,1.9,-.1,-.0,-.92, -. 83, -. 74, -. 65,
$ -. 56, -. 47, -. 38, - 29, -. 20, -. 14, -. 09, -. 02,
.03,
.10,
$ .17,
.22,
.30,
.35,
.41,
.45, .42,
.40,
.431
.46,
S .50, .59,
.71, .84,
.93, 1.01, 1.06, 1.07, 1.02, 1.01,
$ 1.12, 1.23, 1.24, 1.28, 1.34, 1.43, 1.52, 1.56, 1.59, 1.56,
S 1.51, .1.81, 1.50, 1.70, 1.62, 1.92, 1.94, 1.89, 1,81, 1.45,
$ 1.30, 1.28, 1.43, 1.50, 1.49, 1.55, 1.48, 1.32, 1.39, 1.53,
$ 1.82, 2.23, 2.61, 2.51,.2.20, 1.86, 1.61, 1.19, 1.32, 1.52,
$1.70,
1.90, 2.01, 1.92, 1.91, 2.12, 2.10, 2.01, 2.18, 1.99/
DATA C1711/
1 2.11, 2.28, 2.21, 2.13, 2.00, 1.91, 1.92, 1.97, 1.88, 1.91,
2.1.91, 1.92, 1.93, 1.74, 1.61. 1.58, 1.27, 1.20. 1.10, 1.11,
3 .99,
.86,
.71,
.60,
.44,
.31,
.19,
.03, -. 07, -. 21,
4 -. 35, -. 49, -. 64, -. 79, ".94,-1.11,-1.24,-I.41-1 .57,-1.73,
5-1.91 ,-2.09,-2.27,-2.45,-2.63,-2.81 ,-2.99,-3.18,-3.37,-3.56,
6-3.75,-3.94,-4.13,-4.31,-4.49,-4.66,-4.83,-4.99,-5.14,-5.28,
7-5.00,-5.00,-5.00,-5.00,-S,00,-5.00,-.00,-5.00,-4.68,-4.26,
8-3.89,-3.S7,-4.32,-3.11,-2.91,-2.89,-2.7g9,-2.74,-2.63,-2.47,
9"2. 9,-2.20,-2.17,-2.23,-2.27,-2.32,-2.12,-2.08,-2.07,-2.07,
S-2.07,-1.98,-1.77,-1.70,-1.63,-1.60,-I.59,-1.43,-1.21,-1.15,
1.09,-1.13,-1,29,-1.19, ".98,
--. 93, ".87, -. 91, -. 88, -. 71,
$ -. 62, -. 59, -. 58, -. 63, -. 58, -. 39. -. 22, -. 14, -. 06, -. 01,
$ -. 01, -. 08, -. 20, -. 16, -. 02,
.18,
.32,
.42,
.37,
.23,
$
.12,
.15,
.28,
.59,
.43,
.58, .53,
.44,
.39,
.38,
$
.35,
.23,
.26,
.19,
,08,
.10,
.18,
.27,
.38,
.43,
$ .32,
.37,
.58,
.64,
67,
.98, 1.00. 1.02, 1.13, 1.00,
$ 1.08, 1.16, 1.16, 1.30, 1.41, 1.40, 1.32, 1.32, 1.37, 1.42,
$ 1.50, 1.42, 1.38, 1.36, 1.38, 1.49, 1.63, 1.62, 1.62, 1.70,
S 1.68, 1.60, 1.56, 1.56, 1.63, 1.64, 1.56, 1.49, 1.49, 1.52/
DATA C1901/
1 1.58, 1.62, 1.62, 1.61, 1.61, 1.62, 1.63, 1,71, 1.72, 1.70,
2 1.70, 1.67, 1.62, 1.66, 1.70, 1.67, 1.56, 1,49, 1.42, 1.38,
3 1.25, 1.20, 1.13, 1.14, 1.19, 1.29, 1.50. 1.72, 1.86, 1.78,
4 1.82, 1.88, 1.82, 1.89, 1.99, 2.00, 2.14, 2,04, 2.02, 2.02,
6 1.98, 1.90, 1.83, 1.81. 1.72, 1.69, 1.59, 1.50, 1.36, 1.20,
6 .99,
.63,.43,
.29,
.16, .05,
.02,
.03,
03,.01,
7 -. 08, -.18, -. 20, -. 11, -. 06. -. 03, -. 14, -. 21, -. 00, -. 08,
.8 ,10,
.18, .11,
.32,
.42,
.44,
.38,
.28, .42,
.43,
9 .41. .33, .32, .d1,.50, .46, -31.I.8, .08, .20,
S .21 ,.34,
.36,
.20,
.35,
.39,
.42,
.38,
.32,
.30,
S016, -. 01, -. 23, -. 41. -. 52, -. 48, -. 58, -. 81, -. 48, -. 23,
$ -. 03,
.21,
.36, .39,
.47,.14,
-40,
.51,
.59,
.53,
$ .69,
.57,
.48,
.52,
.82,
59,
.55,
,50,.,32,
.26,
$.11,
-.08, -. 10, -. 1,8, -. 43, -. 62, -. ,8,-1.09,-1.16,-I.31,
$-1.45,-1,49,-t,78,-1.91."2.01,-1.97,-1.97,-1.97,-1.97,-2.26,
$-2.20,-2.0i.-1.99,-2.00,-2.04,-2.37,-2.49,-2.44,-2.36,-2.32,
S-2.19,-2.10,-2.25,-2.16,-2.36,-2.44,-2.40,-2.49,-2,48,-2.43,
$-2.40,-2.36,-2.40,-2.49,-2.59,-2.68,-2.89,-3.28,-3.51,-3.74,
$-3.97.-4.20,-4.43,-4.56,-4,6e9,-5.00.-5.00,-5.00o.-.00,-5.00/
DATA C2091/
1-5.00,-5.00,-5.00,-5.00,-5.00.-5.00,-5-00.-5.00,-5.G01-5.00,
0,
S3-6.00,"5.00,"5,.00,-5.00,-5.00,-5.00,-5,80,-5.00,-5.00,"
142
OCI
DC1
OC1
DIO
DCI
0cI
OC1
985
990
995
1000
1005
1010
1015
OCI 1020
DCI 1025
DCI 1030
DCI 1035
DCI 1040
DCI 1045
OCI 1050
DCI 1055
DCI 1060
OCt 1065
DC1 1070
DCI 1075
DCI 1080
OCI 1085
DCI 1090
OCI 1095
OC1 1100
DCI 1105
OCt 1110
DCI 1115
DCI 1120
DCI 1125
DCI 1130
DCI 1135
DCI 1140
DCI 1145
DcI 1150
DCI 1155
DCI 1160
DCI 1185
OCI 1170
DCO 1175
DCI 1180
DCI 1185
DCI 1190
DCI 1195
DCI 1200
DCI 1205
DCI 1210
DOCI1215
DCI 1220
OCI 1225
DCI 1230
DOC 1235
OCI 1240
OCI 1245
DCI 1250
OCI 1255
DCI 1260
DC1 1265
DCt 1270
DCI 1275
-,.
5.00,-5.00-5,00,5,00,-5.00,-8.00,-5.00,
.
4-5.00,-5.00,-*.00,-5.00,-5.00,-5.00,-5.00,-5.00,-S.00,-5.00,
5-5.,000-6.aO
.-S
.00,-5.00,-5.00,-5.00
,-s.00,-5.00o,-5.00,
6-5.00,-5.00,-5,004-5.00,-5.00,-3.7i,-3.56,-3.40,-3.21,-3.06,
7-2.90,-2.74,-2.60,-2.46,-2.32,-2.17.-2.03,-I.87,-1.79,-1.74.
6-I.83,-1.82,-t.71,-I.58,-t.49,-1.46,-1.46,-1.49,-1.45,-I.25.
9-1.241-1.0S, -. 90,-1.06, -. 91, -. 91,-1.01, -. 99, -. 87, ".92,
$ -. 79, -. 42, -. 54, -. 38, -. 42, -. 48, -. 34, -. 27, -. 17, -. 28,
$ -. 38, -. 22, -. 30, -. 08, -. 01, -. 20,
.06,
.10,
.06,
.14,
S -. 12, -. 02, -. 02, -. 13, -. 11, -. 10, -. 06, -. 05, -. 04, -. 10,
$ -. 04, -. 06, -. 21,.-.38, -. 61, -. 40, -. 31, -. 42, -. 58, -. 57,
$ -. 54, -. 24,
.11,
.51,
.81,
.79,
.62,
.26, -. 31, -. 67,
$ -. 80, -. 88, -. 50, -. 39, -. 10,
.09,
.06,
.08,
.18,
.21,
$
.13,
.32,
.35,
.51,
.60,
.S1,
.51,
.40,
.40,
.43,
S .42,
.33,
.43,
.34,
.22,
.13, -. 11, -. 31, -. 31, -. 41.
$ -. 41, -. 39, -. 53, -. 69, -. 84, -. 88,-1.01,-l.I0,-1.19,-1.29,
St-1.45,-1.49,-.67,-1.67,-1.51,-1.66,-1.60,-1.69,-1.83,.I.51/
DATA C2201/
1-1.42,-1.40,-1.24,-I.38,-1.31,-1.30,-1.30,-1.28,-1.39,-1.33,
2-I.40,-1.35,-1.37,-1.39,-l.41,-1.49,-I.48,-1.58,-1.47,-1.46,
3-l.41,-1.42,-1,48,-I.41,-1.31,-1.15,-I.13,-1.20,-1.41,-1.88,
4-2.08,-2.08,-2.22,-2.35,-2.35,-1.98,-1.92,-1.78,-1.57,-1.69,
5-I.70,-t.70,-1.$0,-t.84,-1.50,-1.58,-1.42,-1.29,-1.38,-l.28,
6-1.8,-.58-1,4,-,53-1.8,-148,I.5,-I58,1.6,-179,
7-2.00,-2.16,-1.99,-2.23,-2.04,-2.04,-2.39,-2.74,-3.09,-3.44,
8-3.79,-4.14,-4.49,-4.84,-5,19.-2.46,-2.26,-1.99,-2.01,-2.14,
9-2.31,-2.15,-2,01,-1.99,-2.14,-2.41,-2.12,-1.99,-1.04,-l.79,
$-171,-I.78.-1.72,-1.68,-1.78,-1.52,-I,3s,-I.2g,-1.22,
-. 91,
S -. 90.-I.01, -. 76, -. 90, -. 90, -. 90,-1.19,-l.00, -. 79, -. 68,
$ -. 68, -. 73, -. 85, -. 85, -. 61, -. 61, -. 48, -. 51, -. 92, ".03,
$ -. 61, -. 41, -. 29, -. 29, -. 61, -. 74, -. 19, -. 18, 0.00,
.19.
$ -. 10,
.20,
,20,
.02,
.20, -. 01,
.18,
.20t
.11, 0.00,
S -. 37, -. 10,
.02,
.16,
.20, 0.00. .09,
.09,
.09, .07,
S
S
$
$
.22,.lt.11, .21. .09, .21, .20, .37, .28, .07,
.09, -. 29, -. 69, -. 69, -. 74, -. 88,-1.01, -. 86, -. 54, -. 19,
.19,
.23,
.21,
.29,
.28,
.29,
.52,
.54,.51,
.60,
.40,
.49,
.48, ,46,
.49,
.27,
.06, -. 33, -. 81,-i.17/
DATA C2471/
1--.11,-1.37,-I,52,.I.54,-1-94,"2.06, 2"06,-2.t4,-1.96,-2.00O,
2-2.00,-2.08,-2,23,-2.31,-2.31,-2.53,-2.31,-2.31,-2.31,-2.28,
3--2.34,-2.34,-1,91,'1.82,'1.89,-1,56,-1"84,'1.91,-t.75,-I03,
4-1,76,-1.54,-1,98,-I.80,-I,66,-1,89,-1.56,-s,60,-I.71,-I,36,
5-1.38,-1.44,-1,48,-1.40,'-1.48,-I35,-I.45,-I.49,-I.85,-1,39,
6-I.23,'.1.!8-1.18,-I.34,-1.36,-1,23,-I,23,-I,37,-1,30o-1,40.
g"2.42,-2.58,-2,58,-2,80,-2.5B,-2,43,-1,88,-1.50,-I.26,-I16,t
9-i,23,-t.10,-1.23.-I1.0, -.03, -. 80, -. 80, -. 80, -. 889, ".7,
S -. 97, -. 91, -. 92,-1.13,-ID24,-1.50, 1.89,-2.l6,-2,32,-2,53,
$-3.91,-4.20,-4.49,-4.78,-5.07,-4.07,.-50?,-5.07,-5.07,-5,07/
"D
4
'U
•--
143
DCI
DCI
DCO
DCI
DOC
DCI
DCI
DCI
DCI
DCI
DCO
DCI
OCt
DCO
DCI
DCI
DCI
1280
1285
1290
1295
1300
1305
1310
1315
1320
1325
1330
1335
1340
1345
1350
1355
1360
DCI
DCI
DCI
DCI
DCI
1370
1375
1380
1385
1390
DCO 1365
DO 1395
DCI 1400
DCI 1405
DCI 1410
D(CI 1415
DCO 1420
DCI 1425
DCI 1430
0CI 1435
DOC 1440
OCI 1445
DCI
DCI
0CI
OCI
CI
VCt
DCI
DCI
DCI
OCI
0(CI
DC1
DCI
DOI
OCt
1450
1455
14W0
1485
1470
1475
1480
1485
1490
1495
1505
1510
ISIt
1520
1535
co
C
C
C
C
"C
C
C
BLOCK DATA C20
BLOCK DATA
UNIFORMLY MIXED GASES BAND MODEL ABSORPTION COEFFICIENTS
INCLUDING C02,CO,N20,CH4
C2 LOCATION I
V a 500
CO-1
C2 LOCATION 1515 V - 8070
CM-I
C2 LOCATION 1516 V a 12950
CM-1
C2 LOCATION 1575 V a 13245 ON-1
COMMON/C2/ C2(1575)
COMMON /C2/COOI(190),CI91(190),C381(190),C,71(190),C781(190),
C951(190),C1141(190),C1331(190).C1521(55)
DATA C001 /
0C2
OCi
DC2
DC2
0C2
0C2
D02
DC2
D02
DC2
DC2
0C2
100
105
i10
115
120
125
130
135
140
145
150
155
2 -. 71, -. 51, -.ao, -. 06,
.22,
.49,
.76, 1.08, 1.29, 1.56,
3 1.76, 1.91, 2.08, 2.23, 2.36, 2.51, 2.72, 2.90, 3.12, 3.37,
4 3.56, 3.69, 3.79, 3.86, 3.88, 3.86, 3.73, 3.58, 3.38, 3.17,
5 2.86, 2.73, 2.52, 2.31, 2.17, 2.01, 1.89, 1.77, 1.63, 1.47,
6 1.21,
.92,
.53,
.23, -. 17, -. 53, -. 74, -. 81, -. 84, -. 88,
7-1.00,-1..18,-1.42,-1.61,-1.86,-2.10,-2.29,-2.51,-2.72,-2.91,
8-3.14,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,-5.0o,-5.00,-5.O0,
9-5.O0t-2.68,-2.47,-2.19,-1.97,-1.71,-1.50,-1.32,-1.21,-1.13,
S-1.09,-1.li ,-1.10,-1.09,-1.01 ,-1.01,-1.11,-1.33,-1.66,-2.13,
$-2.51,-2.83,-2.71,-2.39,-2.09,-1.78,-I.59,-1.33,-1.18,-t.01,
s -. 96, -. 91, -. 90, -,87, -. 80, -. 79, -. 86,-I.07,-1,28,-1.69,
S-2.11,-2.74,-3.09,-3.50,-3.03,-2.58,-2.23,-1,89,-1.54,-1.28,
-1. 13,-1.I11,-1.16,-1.20,-1.23,-1.21 ,1 .17,-l.12,-1.15,-1. 19,
$-1.20,-1.17,-1.02, -. 89, -. 68, -. 42, -.24, -. 01,
.18,
.40,
$ .57,
.77,
.96, 1.07, 1.13, 1.11, 1.08, 1.15, 1.27, 1.33,
S 1.44, 1.40, 1.13,
.89,. .63,
.54,
.65,
.78, .81,
.86,
$ .82,
.68,
.47,
.14,
-. 12, -. 48, -. 92,-1.43,-1.89,-2.32,
S-2.8l,-S.00,-5.00,-5.00.-3.14,-2.47,-2.00,-1.71,-1.59,-1.61/
DATA C191 /
1-1.69,-1.82,-1.87,-1.90,-,.94,-2.04,-2.10,-2.23,-2.32,-2.48,
2-2.71,-2.88,-3.09,-2.99,-2.43,-2.00,-1.69,-1.42,-1.38,-I.49,
3-I.70,-2.01 ,-2.41 ,-2,64,-2,63,-2.49,-2.38,-2.27,-2.16,-2.05,
4-1.94,-1.83,-1.76,-I.71,-1.70 -1.72,-1.81,-1.92,-2,03.-2.27,
5-2.61,-3.21 ,-4.01,-5.001-5.00,-5.00,'5
.00,-S.00,-5.00,-5.00,
8-5.0o.-5.00,-5.oo,-S.00OO
,
-S.0
+-5.00,-5.00.-5.00,-S.OO,-5.O0,
7-5.00,-5.00o-.00o,-5.00.-5.00,-5.00,-5.00,-5.00,-5.00,-5.O0,
8-5.O0.-5.00,
.- 5.00.-5.00.-5.00,-5.00O-4.30,-3.42,-3.17,-2.98.
9- .83,-I.71 _,-2.67,-2.67,-2.68.-2,58,-2.33,-2o01,-1.64,-1.32,
$ -. 97, -. 76, -. 63, -. 59, -. 60. -. 63, -. 69, -. ,7,-1.08,-1.26,
$-1.53,-1.87,-1.91,-1.93,-2.02,-2,21,-2.48,-2.60,-3,0g,-3,l11
0C2
002
DC2
DC2
DC2
DC2
0C2
002
0C2
0C2
0C2
DC2
002
002
0C2
0C2
0C2
0C2
0C2
0C2
D02
OC2
0C2
0C2
002
0C2
DC2
0C2
0C2
002
165
170
175
180
185
190
195
200
205
210
215
220
225
230
235
240
245
250
255
260
265
270
275
290
205
290
295
300
305
310
0C2
315
320
325
330
335
340
345
350
355
360
385
310
375
360
"X
1-4.25.-3.70,-3.20,-2.75,-I.90,-t.'73,-1.51,-1.29,-1.11, -.91.
$-3.09,-2,93,-2.76,-2.39,-2.01,-I.69,-I.35. -. 99, -.63, -.26,
s 0.00,
.08,
.11
,.12,
.12,
.07,
.01, -. 98, -.23, -.40,
$ -,51, -. 53, -. 57, -.60. -. 61, -. 73, -. 81, -,95,-I.05,1,02,
$-.91, -. 68, -.41, -. 09,
,18,
.41,
.78, 1.00, 1.18, 1.39,
$ 1.51, 1.58, 1.68. 1.71, 1.00, 1.91, 2.02, 2,18, 2,32, 2.50,
S 2.61, 2,9,
2.81. 2.89, 2,95, 3,04, 3.14, 3.27, 3.41, 3.55,
$ 3.72, 3.00. 4.03, 4,22, 4.42, 4,81, 4.71, 4.73, 4.65, 4.63,
S 4.72, 4.78, 4.79, 4.50, 3.62, 3,28, 2.79, 2,30, 1.0,6 1.35/
DATA C361 /
1 .32, -. 24,-1.0 ,-2.18,-2,01,'1,79,-1,5.1-1.32,-1.20,-1,15,
2"-,.12,-1 ,18,-l.25,-It.26,-1 .20,-t,1I7,-t. 20,-1.32, -1.54,-l.s4,
3";.1B '2.0,-.26
-2.1.'+71-I.8,.01o".i,
-.61. -.49.
4 -. 45s -. 47, -. 49, -.46, ".,37, -,31
-34,
-. 49, ",75,1.1l,
6-1,43,-2,01,-3,60,-2.UA,-2.87,-2,?4,=2.51
,-2.42,-2,381,-3,ag,
6-2.42,-2.46,-2.49,-2.49.-2.43.-2.43,-2.46,-2,53.-2.8.
-2.?4,
7"2. 02.-2.9?,-2.163,-2.SI +-2,79,-2,,-2.63
144
.
I48,".40,42433,
002
002
0C2
0C2
0C2
0C2
002
0C2
002
0C2
DCI
MC
0C2
002
002
0
1600
365
3
8-2.26,-2.23,-2.20,-2.09,-2.02,-1.96,-1.88,-1.84,-1.86,-1.86,
9-1.87,-1.83,-1.79,-1.73,-1.68,-1.64,-1.69,-t.74,-1.79,-I.87,
$-1.78,--.63,-1.50,-1.37,-1.21,-1.00, -,83, -. 69, -. 53, - 41,
t4-. 30, -. 19, -. 09, -. 14, .02,
.10, .16,
.18,
.23,
.26,
$ .27,
.26,
.24,
.22,
.17,
.12,
.07, -. 01, -. 07, -. 09,
$ .3z,
.72.
.91,
1.12, 1.03,
.67,
.18, -. 11, -. 38,
.29,
$ -. 17, -. 08, 0.00,
.09,
.13,
.18, .24,
.27,
.29,
.30,
$ .29,
.26,
.23,
.21,
.13,
.09,
.02, -. 04, -. 18,--.32,
$ -. 51, -. 72, -. 98,-1.18f-1.50,-1.62,-1.81,-2.04,-2.29,-2.49,
S-2.62,-2.87,-3.03,-3.21,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,
$-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,'4.01,-3.36,-3,011-2.63,
$'2.32,-2.09,-1.96,-1.94o-2.00,-2.i4,-2.26,-2.20,-2.02,-1.82/
DATA C571 /
1-1.59,-1.43,-1.38.-1.46,-1.64,-1.90,-2.09.-2.64,-2.91,-3.28,
3-2.51,-2.20,-1,80,-1.49,,1.22, -. 97, -. 72, -.49. -. 20,
.03,
4 .20,
.36,
.51,
.61,
.67,
.83, 1.00, 1.22, 1.38, 1.56,
6 1.70, 1.86, 2.01. 2.20, 2.31, 2.47, 2.61, 2.76, 2.92, 3.01,
6 3,05, 3.02, 2.98, 2.98, 3.01, 3.03, 2.97, 2.78, 2.44, 2.13,
7 1,83,.1.59, 1.49, 1.50, 1.67, 1.94, 2.22, 2.50, 2.71, 2.93,
8 3.12, 3.18, 3.17, 3.15, 3.21, 3.26, 3.19, 2.98, 2.59, 2.14,
9 1.70, 1.22,
.55, -. 27,-1.09,-2.54,-3.00,-2.94,-2.78,-2.68,
$-2.61,-2.60,-2.63,-2.60,-2.57,-2.53.-2.57,-2.64,-2.77,-3.04,
$-3.38,--3.98,-5.00,-5.00,-5.0',-5.00,-5.00,-5.00,-5.00,-5.00,
S-'.00.-5.00,-5.00,-E.00,-5.00,-5,00,-5.00,-5.00,-5.00,-5.00,
S-5.00,-4.00,-3.73,-3.62,-3.59,-3.53,-3.56,-3.57,-3.63,-3.51,
$-3.45,-3.37,-3.26.-3.21,-3.18,-3.27,-3.J6,-3,60,-3.96t-5.00,
$-9.00,-5.00,'5.00,-5.0U,-5.00,-5.00,-5.00,-5.00,-5.00,-5.0u,
$-5.00,-5.00,-5.0o,-5,00,-5.00,-5.00,-S.00,-5.00,-5.00,-5.00,
$-5.00,-5.00,-5.00,-5.00,-4.62,-4.07,-3.89,-3.7b,-3.67,-3.56,
$S3.42,-3.35,-3.20,-3.10,-3,14,-3.11,-3.09.-3.10,-3.¶2,-3.23,
-$3.30,-3.36,-3.37,-3..9,-3.1',.S.08,-3,00,-2.93,-2.89,ý2.91/
DATA C?Mi /
1-3.00,-3..08,-3.16,-3.31,-3.48,-3,71,-3.98,-.0 5.0~0o,-6,0. 00C2
2-5.00,-4.52,-3.98,-3.69,-3.42.-3.18,-2,95,-2.77,-2.61,-2.48,
3-2.41,-2.41,-2.40.-2.38,-2.34.-2.27.-2.21,-2.31,-2,48,-2.a73,
4-3.21,-4,13,-5.00,-5.00.-5.00,-'.
00,-5.00,-5.00,-5.00,-5.0,
5-5.00,-5.Oo0S0,-5.00,-5
,oo,-5.00,-5.0.,00,-5.oo,-5.00,-5.00,
6-5.00,-5.00,-4.13.-4.02,-3.99,-3.96,-3.87.-3.73,-3.51,-3.29,
8"2.57,-2,162,-2.51,-3.04,-3,21 .- 3,3P,-34.42,-3.36,-3;,2,,-3,03.
•]$
395
400
405
410
418
420
425
430
435
440
445
0C2
DC2
DC2
0C2
DC2
DC2
DC2
002
OC2
002
CI2
0C2
DC2
DC2
XC2
DC2
M02
OC2
470
475
480
485
490
495
500
505
51P
515
520
525
530
535
540
545
550
555
560
565
570
575
590
565
595
DC2
DC2
DC2
DCC
002
DCI
450
455
460
9-2.93,-2..(0,-g.64,,-2.52,-2.37,-2,2•,-2,20,-2.13,-2.07,-2.02.
$-1•fl-168,t.7
,'.63
'1.4,1.3
,-120 -1.6,-.911, -. 94,
$ -. 86, -i76, -. 52, -. 31, -. 09, ,.3. .30,
.37, ,38,
,36,
$ .35,
.35,
.39,
.46,
.46,
.41,
.23, -. 08i -. 38, -. 6?,
$ -. 88, -. 96, -. 98, -. 87, -.67, -. 36, -.12. .14,
.44,
.6e,
S ,90. 1.11, 1.19, 1.24, 1.25, 1.26, 1,27, 1.51, 1.59, 1,50,
S 1.28,
.71,
.11,
.28., -,67,-1.32,-1,1,-5,-1,4-1,16,
$ -,M,
59, -.1.01,
27, -.t.03.
On,
.29,
.73,
.92,
.91,
.79, -. .91,
.00, .57.
.72,
.63,
.38.
.12. -..73.
21,
3 -. 47, -. 67-t3,-1,2.I67,-2.31,-2,?6,-3,24,-3.49,-3.51,-3,47,
VC2
C,2
DC2
002
600
605
610
0M2
0.2
2
002
M~
M0
620
625
630
635
040
645
S-3.39,-3,37,-3.43,-3.53,-3.50,-3.36,-3.18,-3.07,-2.96,-3.08/
DATA 0951 /
t-3.14,-3.12,-3,23,-3.07,-2,83,-2.47,-2.23,-2.07.-1,91,-t.7O,
2-I1.63,-I .48,-i ,2?,-1,23,-1 .26,-1 .40.-i .67,-I1.98,-2.2S,-2.17,
OC2
DC2
o02
002
650
645
6"0
665
3-3.74,-5.00,-5.00,-5.00,-5.00.-5.00,-S.00,-s.00.-5.00.-B.00,
4-5.00.-5.00,-..00,-5.00--5.00,-S.0,-50
I".0-U,00,-5.00,-5,300,-5,00,-5
,0
.00,-5.00,-5.0-5o00,-5.00,-5,O0,
,00,,-6,00,
*6-1.,00,-5. O0 ,4.00.-5. 00,-5.00,-5,00,-5.00,-$.QO0,-S.0O0,"l.4O0
145
V%
DC2
0C2
DC2
DC2
CC2
DC2
DC2
DC2
DC2
DC2
0¢2
MC
DC2
DC2
002
DCa
002
002
$15
W70
67M
600
e
7-5.00,-s.00,.,00 ,-6. O,-5.O0,-0
1-5.ON: 1.20:45100
0:S
-5.0o,-5.OO,-S.0O,-5.000-,.00,,
_ "5.O0,-S.00,-.00,-5. 00,-6,00.,-5.00,-5.00,-5.o05.o,-S,0,
O.
S-$. 00p-5.00io,-0,-5,00,'4.00,-.00,-.00,0.00,-5.0,.00oo,
$-5. O0,-5.O0,-,00,*".00,-.00,-5.00,-I.00,-5.00,-6
-,00.00,
S,-.
.0-5.
SS-5.O0,-5,00,-5.00,-5.@0,-5.00,-5.00,-1.00,-5.O0,-5.00,-5.00,
S-5.0O0,-S.O0,-5.O0,-.
--
0.-S.O0,-,00,
5.0,-S.00,-5.o00,,.00,
O0,-5.O0,-5,00,-5.@0,-5.0@,-5.00,-6.O0,
DCI
M,:5.O0,-s.0,-.o,-.qo,
690
DCIC€$
0DC2 700
0¢I 705
¢DC 710
DC2
DC2 715
710
DC€315T2
$-5.00,-5.00,-4.91,-4.79,-4.61,-4.461,-4.40,-4.2I,-4.17,-3.90,
S-3.73,-3.,sr,-3.6!,-3.12,-3.73,-3.6g,1
3-.31,-3.1I,-2.91,-2.13,
-1.41 ,-2.!71,-2.16,-2.211,-2.,-29,-2.21,-I1.01,-1,1 ,-1.09,
$-2.27,--.59g-2.98,-3.35,-3.69,-3.79,-3.6e,- 3 .53,-3.41,-3.3,,
-3.31 ,-J.11,-2.17,-:i.69,-I.31),-2,11 ,-1.13,-.U,-1.41,-1,/
DATA C1141 I
1-1.0•, -. 89, -. 68, -. 54, -. 71, -. 79, -. 79, -. 66, -. 49, -. 54,
2 -. 86,-1.37,-2.08,-3.44,-3.46,-3.72,-3.74,-3.19,-3.31,--I.g1,
3-1.51,-2.21,-1.64,-1.34,-1.08, -. 06, -. 72, -. 61, -. 70, -. 72,
4 -.67, -. 57, -. 38, -. 51, -.
5-4.57,-4.62,-4.78,-4.87,-5.00,-5.00,-3.00,-5.00,-5.00,-5.00,
6-4.93,-4.46,-2.99,-3.45,-2.9g,-2.63,-2.30,-2.09,-2.02,-2.12,
7-2.18,-2.13,-2.04.-1.76,-1.83,-2.08,-2.26,-2.1 .- 3.01,-3.15,
1-3.22,-3.29,-3.58,-3.S,-4.46,-4.18,-5.00,-5.00,-5.00,-5.00,
-5.00,-5.00
-5.00,-5.00,-6.OG,--.00.-5.OO.-5.00.-5.00,-s,00,
$-4.81,-4.52,-4.it,-3.69,-3.0g,-2.99,-2.91,-2.hs,-3.19,-:.3,,
S-3.30,-3.62,-3,89,-3.R3,-3.73,-3.53,-3.37,-3.19,-3,.0,-2.79,
S-1.52,-2.36,-:.24,-2.1,,-2.32,-2.4t,-2.29,-2.06,-2.00,-2.!1,
$-1.47,-.91
,-3,57,-4.9,-5.0O0-5.00,-5.00,-5.00,-5.00,-4.g1,
$-4,18,-3,39,-3,57,-3.30,-S.02,-I,74,-I,51,-2.,30,-t,9i1,-1,73,
DC2 730
MCI 735
2DC740
DICI 745
2DO750
DC1 755
DCI2 7.•
OC2 7T5
DCI 770
C7.-1.32,-1.81,-2.74,-3.18,-4o31,
DCI
775
DCI 760
MC 765
DO2 790
DC2 795
DCI 600
MCI S0O
DCa 910
DC2 015
DC2 6115
620
DCI3
$-1.57,-1.31,-l.2!,-1.11, -. 98, -. 17, -. 70, -. 60, -. 37, -.10,
S -. 04, -. 04, -. 06, -. 16, -.18, -.19, -. 23, -. 45,-1.02,-t.97,
$S-2.70,-3.71,-4.01,-4.20,-4.35,-4.51,-4.73,-4.0,-5.00-5.,.00,
DCI 630
MCI 635
IDCI
640
3-5.00.-5.00,-5.00.-5.00,-5.Q00-5.00,-5.00.-5.00,-5.0o0-5.00.
$-5.00,-5.00,-5. oo ,"e.00,-5.O0-.0
0,sO-0.00.-s.00,'-5.00,.-9.. 0/
DC2
DI
645
6150
DATA C1331 /
1-5.00,-5.00,-5.0o,-5.00,-5.00,-5.00.-5.00,-5.Qo,-LoD,-0.00,
31"5.00,"5.00,-5.00,-5.00.-5.00.-0.00,-5.00,-s.00,-s.00,-s.00o
DCI
DCI
DCI
855
660
665
S3-5. O0I.00,-5.O-5.OO,-5.00.-60. 0.-. 00,-5.0@,-s.00.-$.0,
4-5300.-5.00,-5.00,-5.00.-9.00.-5.00,-5.00.-5.00,-5.00,.-5.00,
0
DCI
1DCI
470
1SO
D(CI
DCI2
DCI,
661
690
195
6-5.00,-5.00,-5,0O0 -4. ? I -4.3t ,-3,99.,-3.618,-3,50,-3.34,-3.I,31
7-3.23,-3.25.-3,24,-3.18,-3.l0.-3.07.-3.10,-3.41,-3.67,-4.,I
6-4,66,-5,00,-5,00,-5,,00,-5*00,-5,00,-0.00 .- s, 0,-4,St ,-4.I!,
91-2.73,-3.411,-I, 17,-23.90,-2,73,'-2,63 ,-31.50,-2,59,-21.57,-:1,49,
S-31.42,-31.30.-3.46,-31.00313.031, 2.49,'4.16,-.0.+'.005.00,-5I.Oo
•'•''1•8$"5.00,'5.00,'5.00.-5,00,-5.00,"0.00.-5.00,'5,00,-4,117,-4,50.
DCI 6100
DC;I 905S
D(;I 610
1-4,1i1,-3.90,-S.66,-3.S6,-3.5i,-3.51,-3.,-3.49.-3.416,3,34,
$-3.34,-3,47 ,-S.SD ,-3.11?,-4.:13,-4,59,-5.0O,-5.00,-0.00,-S. O0
*-S. 0f,-0.00,-0.0Q,-5. 00,-50.00-5.00,'0.OE").-5.0O0,-6.00, -4. g3
DC2
0CCI 915
9310
0DC1 625
S-4,51 ,-4.1Q,-S.1I,--3.3:,'2,-.031.74,-2,43,-31.01,-I,,-t,0
:-I.19,-I.02, -.81, .-,70, -.13,
13,-l.301047,
1",5?7,11,-t,80 1 1:',-2,04,-I,11,-2.sa,'3,47,'31,6,
6-2.97,-3.10,-3.29,:
3,44 -3.63,-3,1 ,-21064,15,-4,31,-41,
1-4.71 ,-4.60,-6.00,-5.00,-5.00'
5.00.-S.0
0g5.00o,-4."3/
DATA C16t /
1-3.2.34,-I,059,-2-1.I2,-),'1.57,-1,S4,-I.t*,-1,0o-,-,.-.64,
a ..45, -. 33, -. 14, -.
,06 .00, .21,
.39,
.52,
.61,
.12,
.1 ,
.04, 1.020, 1.12, 1.14, 1,3t, 1.17, 1.06,
.86,
."0,
4
1.3?7
,1,56 1.74, 1.70, 1.46, 1.13,
.73,
.224,
*I -. .97,
61,-I1.13,
.67,-3.46,"5.00,.4.00,-9.0@,.-6.Q0,-.Cg.0,-4.C0,-S..,0,
01DCI930
DCI
D.0,-t.05,-t
35
DCI 940
DCI 945
DCI 950
Oc; "S
MCI no0
MI 666
DO 670
M2 1M
W7s
DC:I
0-.-.NDO O0,0,,0@,.4.00 ,-6.00,'6.00I
0¢I2
"aw
146
6
No1e,
CO
C
C
C
4
•
•
ILOCK DATA C3O
SL•CK DATA
OZONE BAND MODEL ABSORPTION COEFFICIIENTS
Cs LOCATION I
V a 575
CM-I
C3 LOCATION 510 V a 3270 CM-I
COMN /C3/ C3(540)
COMMON /C3/ COOI(10Q),C19/(190),C311(160)
DATA COO /
i-4.15,-3.51,-3.00,-2.54,-2.12.-1.76,-1.50,-1.21, -. 66, -. 49,
2 -. 29, -. 10.
.02, ".12,
.24,
.32,
.43,
.52,
.56,
.65,
3 .72,
-79.
.76,
.72,.
66, .64,
.6,
.79,
.9t, .413,
4 .60, .71,
.68,
.58,
.49,
.42,
.34,
.26,
.14,
.02,
5 -. 14, -. 35, -. 51, -. 74. -. 8,-I.17,1.40,-1.51,-2.I1,-:.47,
6-2.13,-3.24,-S.59,-3.94,-5.00,-5.00,-500,--5.00,-5.00,-5.00,
?-5.00,-5.00,-5.00,-U.00.-5.00,-4.46,-4.00,-3.50,-3.14,-2.78,
8-2.41,-2.10,-I.78,-1.49,-1.20, -. 20,
.15,
.35,
.57, .78,
9 .95, 1.20, 1.40, 1.65, 1.80, 1.97, 2.10. 2.211 2.31, 2.30,
S2.40, 2.42, 2.58. 2.52, 2.20, 2.48, 2.54, 2.45, 2.30, 2.00,
S 1.20,
.95,.92,
.0,
.D0, .89,
.90,
.92, .94,
.95,
$
.96
.
,.g0,.80,
.68. .55,
.40,
.30,
.19, .01,
S -.02. -.11, -. 22, -. 41, -.56o -.?t -. 9,-1.03,-1.10,-1.33,
$-1.e0.-t.76,-I.90,-2.02,-2.21,-2.40.-2g.1,-2.79,-3.00,-3.22,
S-3.6I,-4.11,-5.O00-5.0O.-$.DD -5.00,.5.00,-5.00,-5.00,-5.Q.0,
$-5.00,-,D0,.-5.00,-5.00,-5.00,-5.00.-5.00,-5.00,-5.00,-5.O0,
$-5,o0,-5.O0,-5.0o,-S.oo0.0,-5.oo.-5.00,-5.€00.'SD•5.00,-5,Co,
OC3
DC3
DC3
0,3
DC3
0C3
0C3
DC3
DC3
003
DC3
DC3
CIS
DC3
DC3
DC3
DC3
003
OC3
DC3
OCIDC3
DC3
0(3
1DC3
If5
1,0
175
1S0
15
190
195
200
205
210
215
2210
$-5.00.-5.00,-5.00.
D0,-5.00,-5.00,-5.00,-5.00,-5.00,-5.00,.
$.i.00,-5.00,B5.O0,'5.00,-5.0O,-5.00,-5.OD.-.00D,-5.O0.-50oo/
DATA C191 /
1-5.00,-5.00,-B.0O,-S.00.-5.D0,-5.00,-5.00,-5.00,-S.00,-5.0tI,
2-5.O0,-5.OO,-5.O00-5.00,"4.111,-3.01 ,-3.55.-3.41 ,-3.0S,-2,S9,
DC3
DCI
DC3
DC3
1003
225
230
235
240
245
N-2.44,-1.10,-:103,-I,16.-1.71 -1.SS,-1.48.-t.3g,-1.26.-1.l3.
4 ".1". -. 01, -. 65, -. 49, -.35, -. 22, -.it, -. 06, -. 021, -. 09.
5 -. 18, -. 14, .06,
.26. -. 02, -. 42, -.40, -. 02. -. 60, -. 74,
6 -. 74, -. 79, -. 84, -. 89, -.05, -. 41, -.76. -.70. -. 68, -.84,
T -.55, -.66, -. 72, -. 78, -. 84
.90,-l4.
1.-11-.24,.-I.33,
003
OC3
9-1.g+,-1,93,-I.07,-I.1,-1 .76,- .71 ,-1.05,-.59,.1.511,-144,
$'++.36.-1,2D1.t1,-1.00.
".90, -- 69, -.7T, -.09. --59, -. 49.
$ -.37. -.25, -.18, -. t0. 0.00
.10, .27,
.3,.
.07, .75,
8 .93, 1.11, 1.20, 1.33. 1.44, 1.45. 1.40, 1.46, 1.64, 1.•6.
$ 1.49. 1.23,
.66,
.38, -. 33, -. 71, -.66, -.56, -. 490 -. 44,
1 -. 40. -. 40, -. 46, :-.53, -;84,4, -.1,
",Sg
,D1.94,-t.21.
DC3
00
PC303
DC3
DC2
260
285
290
295
300
305
S-$o001,-$,I6,-3.50,"B.721,-3.04,-5,005.00,-5.00,S.Ot0,-5.00,
11-5.0,O,-5,00, -S.00,-5,,-S,0.)0,-5.0S.O,-5,O0,-5O0, -S.•o,
%3
00.3
315
320
$-•, 00,-5,O0,-$.400,-5, O0,-5.00,6.00 ,i.00.-'5.00,'5.DO.-5.DO/
DATA C341 /
1-5,00,-.0O,.-5.O0,-5,00•,.5,,o.-S.00,.5.00,-)+.00-S.00,-SQ,
•2 s..oo,-+,O0-,O0,-s.O
,-s.a
O O,,"•..O,-s
.,-s.o s.tO
.- ,-50o,-sO0,
DC3
DC3
DCI
DC3
330
335
340
345
*238.5,0-2..,0,-3.00,-4.00,.4.00,-05,0,+'.00,-.@0-'4.0,,'3.60,--5,63,
.*
-,l
-.1 , -.-.
.
4,-,.19+
."l40,
45.
a-31,37,-+.2,lO-I.i,-2,4T,-)',I+3
.
77, .24.
1
-. .7
-. 86
.03,
,0.
'.%1,
04,-. -.
03. -. .6
.34,
4,-l.73,-I+
-. 49,
-,41.
7 -. ,S. "•.V. -.17, -. 18.-t '.If)4. ,.74.1,4,-1.
71,
DC3
DVI3
DC)
003
0-3
375
*1
34
340
SI0
CC3
3DC
0
390
I 3
~~
-. 1.
"-.54.
-',
+_.'- -•,•+•
:'I'6
'-1
,.3
.
27,
'.3+12.
~
. 031,
~
.1i.
-266
I+to
1 .41,
.40.9, l4. .60, .iD.
.414,
.23.+ t.
!-.%S, '.1.77+1)3.
-,11+ "_A9,
,41
92.
-.
",0
-T+,-+).
.674
,e.
.66
+'G.le -.6s.
-. YO, -.72. *62i,
-. •-.00',40IC3-,,I+|-
147
4.
~
.304
.47,
-.It, *.31.
.as, +'0,
1.07, -.6c
41
|
100
105
110
115
120
125
130
135
140
145
IS1
155
160
250
255
260
C)3 U65
DC3 270
D0
00
350
003 its
D3400
003 40%
40
4•1
SLOCK DATA C40
SLOCK DATA
COON /C4CS/ C401(1I4),C4II5(19).CS(102)
N2 CONTINUUM ASSORPTION COEFFICIENIS
04 LOCATION
I
V a 2080 CM-I
C4 LOCATION
133 V a 2740 CM-1
DATA C401 /
I 2.93E-04, 3.868-04, 5.09E-04, 6.56E-04,
2 1.31E-03, 1.73E-03, 26270-03, 2.730-03,
3 5.468-03, 1.919-03, 9.0OE-03, 1.13t-02.
4 1.960-02, 2.131-02, 2.36E-02, 2.638-02,
5 3.521-02, 3.60-01, 3.924-02, 4.621-02,
0 5.30E-02, 5.631!-02, 1.1E-02, 6.30E-02,
S?1.IBE-02i 7.39E-02, 1.10--02. 1.104-02.
8.70E-02, 9-13E-02, 9..6E-02. 9.0OE-02.
9 1.652-01, I.2
01- t.695-01,. 1.05-02,
51.233-0E
4.9E-01. 1.01E-02, 1.10-01.
S3 I.09E-01,
.IE-01, 1061E-01,
1.240-01.
t.078-01, 1.126-01.
1.02S-9t. 9.90E-02.
CS
c
C
C
I
t
8.65E-02.
5.50E-02, 0.20E-02.
4.05E-02.
N
7.65&-02.
4.SOE-02, 7.05E-02.
4.C0E-02.
4.601-04. 4.95E-03,
3.360-03, 3.95E-03.
1.36E-02, 8.331-02,
2.90E-02, 3.615-02.
4.60-02, 4.95E-02,
1.128-02, 6.69E-02,
1.131-02, 6.39E-02,
1.20E-01. 1.360-02.
1.51-021.3.1-02,
1.12E-01, 1.12E-01.
1.13E-01, 9.009-02.
1.12E-01,
9.50E-02.
0C4
DC4
0C4
0C4
0C4
DC4
DC4
DC4
0C4
0C4
0C4
0C4
DC4
0C4
0C4
0C4
DC4
DC4
004
100
105
110
115
120
125
130
135
140
145
150
155
160
165
190
175
100
185
190
6.50E-02.
3.75E-02, 6.101-02,
3.50V"02.
OC4
OC4
192
200
QC4
DC4
OC4
210
215
220
DC4
OC4
0C4
DC4
DC4
225
23:0
235
240
a*0
OC4
Oct
Oc
255
2'60
.265
27;30
S3.10F,-02, 2.65E-02, 2.502-02. 2.20E-02. 1.95E-02. 1.759-02,
$1.60t-02, 1.40E-02. 1.2011-02. 1.051-02, 9.509-93,
S11001-03, ?,00-03. 6,508-03, GMQE-93. 5.50Z-036
S -. 0103.
3M-3.3.0E03,.Q-3 2.50E"03,
S2.00-03. 1.95E-03, I.TOF-03, 1.601-03. 1.501-03.
DATA C4115 /
I 1.54E-03. I.S01-03, 1.476-03, 1,341-03, 1.25t-03,
2 S.06E-04, 7.53E-04, 6.41E-04. 5,091-04. 4.04-04,
4I,0?-05/
!c
c
,;•[DAT
-
C
c
c
9.00E-03.
4.756-03,
2.308-03.
1.S09'o03/
1.081-03,
3.301-04,
4H
OZONE[H20U.V.CONtlIUM
+ -C4
VSI8IUL BAND VL0•, AGWAP•TIONi CD"4F
CSDLOCATION•
I
V o• 1300O CMlS SLOCATION 56
V s 24240 Cii-I
C LOCATION
CS LOCATION
87
102
ca SD•-
I 4.5Q1-03,
2 2M001-02.
23 o,541-V
4 1.213-01,
59 03101
I 5.50.-02,
' 2.091-0i
, V09-03,
9 2.$M-03.
"a
V o 27500
V %50000
.,009-03. t.ol7-02,
2.45E103, 3.07C-02.
T1.621E-01. 3,t62-02.
1,11t-01.
I.Itc3ol,
.. . 0.24E--02,
1.2V1-O:.
44?11-0•. 4.0"t-01.
1.60t-02, 1.11t-02.
S501D-03, .1 0--01,
I.E-03.
-1401-03.
C.CM--C4
t,101-02. 1.327-02.
3.142-02. 4.711-02.
t•1Ot-o1. 1.04101,,
f-tsl1-l,
.574-02. 7.071•t:#
36.7101'.
3.,at-03.
1.6t-03, 1.17t-02.
3,70t-0", 3-20t-"0,
(1151-04. 2.10f-04.
2..041-3. 7.31t-03.
6.16181.
4
V.021t40.
4. I
. .
"
S .1 0
. s""• O,. I- 20-0 1, 2..
"*01. 3.61t*01,
6
b.0Fi~ 1.31.3,1.5102. 2A041.Ot. 1,a2t*02,
*2.01tiM.2 3.#2142* 3,3.M02.0. 3,641.2. 3.,?)C403.
S 21`449#02.
1.48.3
.413
~402.0. It5142.
I 165.0. .0#~1.4.471$Qt,
.810
33.532.1
S 1.5171.1,'40, I.Uol.I
.40tlI650140.
148
OC4
245
0C4 ••0
t265
V.4 295
I.T1t-0.
S.8E-02,
1,201-01.
1.9t-001.1t3-0!,
6.SV-021,
3.546-02.
7 .0-03,
3.101-0,S.
0.
2.031-02.
1.1s1*00.
5.
,62*•t.
2.1tc#02.
2.14ti.0"4
1.151*01.
3,00061i.
OCt4
DC4
Oct
0%4
Oct
OC4
-004
04
Oct
604
300
30S
310
315
330
335
330
33%
3•0
34
004 350
Oct US.
430
i~ts3
Oct 310
IX4 Vs6
Ott140
6
Uo4o/
1
BLOCK DATA MARDTA
BLOCK DATA
DMA
DMA
100
105
MARINE AEROSOL EXTINCTION AND ABSORPTION DATA
-NRL
CODED BY STU GATHMAN
DMA
DMA
DMA
DMA
115
120
125
130
lT4CABS(40,4),T2QAS(40,4),T3QABS(40,4),ALAM(40),AREL(4)
DIMENSION AD(40),A2(40),A3(40),A4(40)
DIMENSION 81(40),E2(40),83(40),E4(40)
DIMENSION C1(40),C2(40),03(40),C4(40)
.DIMENSION Dl(40),.2(40),D3(40),D4(40)
DIMENSION EA(40),E2(40),E3(40),E4(40)
DIMENSION F(40)(0)T2QEXTF3(40),F4(40)
EQUIVALENCE (A1(1), T3QEXT(1,1)),
(A2(t), T1QEXT(1,2)),
T1QEXT(1,4))
+(A3(),
T1OEXT(1,3)), (A4(1),
DMA
DMA
DMA
DMA
DMA
DMA
DMA
DMA
135
140
145
150
155
100
160
170
175
EQUIVALENCE (BD(4),
(03(1),
+•
EQUIVALENCE (c3(i),
(CI(l),
EQUIVALENCE (D1(1),
C
C
•
COMMON/A/TIQEXT(40,4),T2QEXT(40,4),T3QEXT(40,4),
T1QEXT(I,1)),
T2QEXT(1,3))t
T3QEXT(1,3))}
T3QEXT(1,1)),
T1QABS(I,1)),
(02(1),
(84(1),
(C4(I),
(C2(1),
(D2(4),
T2QEXT(1,2)),
TIQAXT(1,4))
T30EXT(I.4))
T3QEXT(1,2))t
T4QASS(1,2)),
DMA
DMA
DMA
DMA
DMA
100
205
195
190
200
(03(1), TQABS(1,3)),
T20ABS(I,3))t
+(E3(l),
EQUIVALENCE
(E1(1),
+EQUIVALENCE
(F1(1)t T2QABS(1,1)),
T3QABS(1,1)),
(04(1),
(E4(1).
(F2(l),
(E2(1),
T1QABS(1,4))
T2QAB5(1,4))
T3QABS(1,2))o
T2QABS(1,2)),
DMA
DMIA
DMA
DMA
205
21
220
212
DMA
DMA
DMA
DMA
DiAA
DMA
DMA
DMA
DMA
DMA
DMA
DMA
DMA
DMA
DMA
DMA
DMA
DMA
DMA
DMA
DMA
DMA
DMA
DMA
DMA
DMA
DMA
OMA
OMA
OMA
DMA
WIA
DMA
oA
225
230
235
240
245
250
255
260
265
270
275
280
285
290
295
300
305
310
315
320
325
330
335
340
345
350
355
350
365
370
375
380
365
390
+
•
4+
+
(F3(1), T3QABS(1,3)), (F4(1), T3QABS(1,4))
DATA ALAM/
*
.2000,
.3000,
.3371,
.5500,
.6943,
1.0000,
*
2.0000,
2.2500,
2.5000,
2.7000,
3.0000,
3.3923,
*
4.5000, 5.0000,
5.5000,
6.0000,
6.2000,
6.5000,
*
7.9000,
8.2000,
8.7000,
9.0000, 9.2000, 10.0000,
* 11.0000, 41.5000, 12.5000, 14.8000, 15.0000, 16.4000,
* 18.5000, 21.300D, 25.0000, 30.0000, 40.0000/
DATA AREL/50.,85.,95.,98./
DATA Al/
-3.3075, -3.4388, -3.4998, -3.8225, -4.0134, -4.4214,
* -5.1635, -5.3158, -5.4223, -5.0061,
-4.5105, -5.3517,
* -5.7705, -5.8315, -5.8432, -5.1790, -5.2918, -5.6851,
* -5.6737, -5.8064, -5.5378, -5.Szl4, -5.5150, -5.6582,
* -5.5235, -5.3676, -l.1767, --5.0918, -5.0916, -5.1300.
*'-5.1980, -".3116, -5.4009, -5.4869, -5.4794/
DATA A2/
* -2.8367, -2.9363, -2.9800, -3.2310, -3.3906, -3.7440,
* -4.4371,
-4.6037, -4.7610, -4.3752, -0.8438, -4,8259,
* -5.0863, -5.1774, -5.2542,
-4.5523, -4.6578, -4.9749,
* -5.1210. -6 0976, -5.0614, -5,0535, -5.0398,
-5.0783,
* -4.8738, -4.7253, -4.5080, -4.4250, -4.4269, -4.4040,
* -4.5466, -4.6661, -4.7701,
-4.8804, -4.9063/
DATA A3/
* -2.3685, -2.4287, -2.4534,
-2.6259, -2.7481, -3.0376,
* -3.6604, -3.8213,
-3.9963, -3.7279, -3.2000, -3.8573,
* -4.3378, -4.4459, -4.5631, -3.9208, -4.0099, -4.3220,
* -4.5059, -4.5055, -4.4942,
-4,4890, -4.4811, -4.4716,
* -4,2468, -4.0955, -3.8765,
-3.7923, -3.7946, -3.8304,
* -3.9176, -4.-397, -4.1491,
-4.2678, -4.3079/
DATA A4/
* -1,6952, -1.6992,
-1.7007, -1,7688, -1.6314, -2,0198,
-2,7276, -2.2526, "2.6929,
* -2.5113, -2.6490, -2.8160,
* -3.1498, -3.2625, -3.4079, -2.9515, -2.9968, -3.2674,
"*
149
I%
2'
1.5380,
3.7500,
7.2000,
10.5910,
17.2000,
-4.8412,
-5.7325,
-5.6307,
-5.6047,
-5.1459,
-4.1271,
-4.9986,
-5.0804.
-4.'.)779,
-4.4902,
-3.3752,
-4.1858,
-4,4654,
-4.3569,
-3.8590,
-2.2794,
-1.,J477,
-3.4312,
* -3.4956, -3.5142,
* -3.3106,
* -2.9782,
DATA 6,1
* -0.5741,
* -0.7237,
* -1.0927,
s -1.4649,
* -1.6417,
* -1.4667,
DATA 62/
* -0.1808,
* -0.2204,
* -0.5277,
* -0.9055.
* -1.1017,
* -0.8307,
DATA 83/
* 0.2478,
* 0.2935,
* 0.0701,
* -0.2739,
S-0.5142,
* -0.2117,
DATA 64/
* 0.9239,
* 1.0193,
• 0.9306,
* 0.6907,
* 0.3974,
•
0.6899,
DATA €1/
2,1467,
4 2.1925,
* 2.2514,
• 2.2500,
* 2.1734,
s 2.1776.
DATA C2/
* 2.5481,
4 2.5795.
* 2.6334,
• 2.8606,
a 2,5260,
0 2,5979,
DATA C3/
* 2.9792.
* 3.0130,
* 3.0470.
* 3.0036,
* 2.9200,
0 3.0439,
DATA CA/
* 3.6515,
* 3.606,
* 3.6997,
* 3.72061.
• 3.6M37,
3.?209,
-3.1626,
-3.1016,
-3.5311,
-2.9455,
-3.2146,
-3.5369,
-2.8564,
-3.3390,
-3.5377,
-2.8588,
-3.3886/
-3.5240,
-2.8915,
-3.4172,
-2.9211,
-0.5495,
-0.7859,
-1.1616,
-1.5231,
-1.5982,
-1.5804,
-0.5407,
-0.8664,
-1.2559.
-1.4562.
-1.4677,
-1.6833,
-0.5337,
-0.9424,
-1.2119,
-1.4176,
-1.3923,
-1.7932,
-0.5059,
-0.7780,
-1.1776,
-1.4141,
-1.3911,
-1.8237/
-0.5367,
-0.8613,
-1.2870,
-1.5730,
-1.4067,
-0.6309,
-0.9585,
-1.4164,
-1.6324,
-1.4207,
-0.1611,
-0.2730,
-0.5937,
-0.9551,
-1.0291,
-0.9352,
-0.1540,
-0.3465,
-0.6966,
-0.9551,
-0.8689,
-1.0393,
-0.1458,
-0.4413,
-0.6662,
-0.9511,
-0.7683,
-1.1631,
-0.1069,
-0.2715,
-0.6037,
-0.9598,
-0.7673,
-1.2354/
-Q.1254,
-0.3017,
-0.7099,
-l.0A24,
-0.7772,
-0.160e,
-0.3917,
-0.8351,
-1.1186,
-0.7922,
0.2556,
0.2573,
0.0141,
-0.3153,
-0.4411,
-0.3013,
0.2585.
0.2006,
-0.0792,
-0.3508.
-0.2920,
-0.3962,
0.2629,
0.1027,
-0.0844,
-0.3700,
-0.1710,
-0.5177,
0.3062,
0.3021,
0.2291,
0.2511,
-0.0062, -0.0893,
-0.3873, -0.4950,
-0.1693, -0.1716,
-0.6123/
0.3207,
0.1858,
-0.1973,
-0.5325,
-0.1827,
0.9234,
1.0076,
0.6965,
0.6597,
0.4483,
0.6286.
0.9233,
0.9877.
0.8359,
0.6125,
0.5830,
0.5576,
0.9221,
0.9061,
0.7859,
0.5825,
0.8954,
0.4580,
0.9536,
0.9596,
0.8642,
0.5812,
0.6983,
0.3481/
0.9578,
1.0192,
0.8244,
0.4575,
0.7068,
1.0162,
0.9964,
0.7549,
0.3987,
0.7036,
2.1504,
2.2131,
2.2518,
2.2349,
2.1401.
2.1613,
2.1518,
2.2110.
2.2426,
2.2426,
2.1221,
2.1333,
2.1516,
2.2005,
2.2225,
2.2489,
2.1400,
2.0841,
2.1601,
2.1968,
2.2368,
2.2491,
2.1514,
2.0095/
2.1671,
2.2282,
2.2431,
2.2426,
2.1749,
2.1870,
2.2326,
2.2404,
2.2065,
2.5503,
2.5987,
2.6345,
2.6452,
2,4991,
2.5925,
2,551t,
2.60R0,
2.6273,
2.6430,
2.5099,
2.5?03,
2.5448,
2.5956,
2.8104,
2,6460,
2.5541,
2.5493,
2.5522,
2,5876,
2.6269,
2.6415,
2,5671,
2.40804/
2.5752,
2.6117,
2.6391,
2.6010,
2.50•.,
2.5831,
2.6242,
2.6020,
2.5591,
3.5911,
2.9801,
3.0119,
3.0449,
3.0733,
2.9424,
3.0459,
2.9805,
3.0240,
3.0409,
3.0640,
2.9601,
3.0435.
2.9769,
3.0201,
1.0416,
3,0592,
3.0119,
3,0304,
2.9037,
3.0125,
3.0450,
3.0546,
3.0146,
2.9664/
2,9969,
3.0290,
3.0620,
3.0320,
3.0301,
3.0095,
3.0428,
340903,
2,9902,
3.0363,
3.0520.
3,672p,
3.6944.
3.7210,
LOW,
3.
3.7202,
3:6533,
3. 814,
3,6900,
3,7155,
3.6603,
3.73.0A.
3.,540,
3.6473,
3.6996,
3,7014,
3,6956,
3.7387,
3,6S74,
3.6771,
3.7009,
3.7157,
3.6977,
3.7230/
3,6607,
3.6673,
3.7121.
3.711?,
3.70",
3.0752,
5.6962,
3.7340,
3.6906,
3,713S,
ISO
2.1771,
DMA
DMA
DMA
rAA
DMA
DMA
DMA
DMA
DMA
DMA
DNA
DMA
DMA
DMA
DMA
DMA
DMA
DMA
DMA
DMA
DMA
DMA
WMA
DMA
DMA
DMA
DMA
DMA
DMA
DMA
DMA
DMA
DMA
DMA
DMA
DMA
DMA
OMA
DMA
DMA
395
400
405
410
415
420
425
430
435
440
445
450
455
460
465
470
475
480
485
490
495
500
50-5
510
515
520
525
530
535
540
545
550
555
560
56tV
570
575
590
505
590
595
600
605
610
£15
620
a25
630
935
640
£45
650
55
DMA
DMA
DMA
VMA
OMA
DMA
DMA
DMA
DMA
OMA
DMA
DMA
•A
o"A 6a0
OMA 065
DMA 070
OKA 6Vs
DNA £10
OVA 606
DATA Q1/
_* 7.7606, -7.8138,
-7.8353,*-7,6303,
-7.7777,
DNA 00
-7.5148,
-6.9697,
DMA
6S
UMA 700
OA 701
* -6.11,
-5.6171,
OMA 710
DMA 711
-*
5.5265, -5.3992,
"-5.1965; -5.3120,
DMA 720
ONA 721
DATA 02/
MA 7230
-?.5S91, -7.9463, -7.6693, -7.6720. -7.6065, -7.2080, -6.6040,
OMA 735
-5.9094,
-6.0402, -5.6344, -4,4462, -3.6933, -4.9655, -6.7236,
OMA 740
• -5.3670, -5.4040, -5.4134, -4.5697, -4.o96, -5.0266, -5.1251,
DMA 745
• -5.1500, -5.1168, -5.0787, -5.0697, -5.0543, -5.0073, -4.9924,
OMA 750
• -4.6765, -4.7260, -4.5091, -4.4260, -4.4260, -4.4651t -4.4912,
CIlA 755
4. -4.5475, -4.6669, -4.7706, -4.6807, -4.9065/
OMA 760
I"
DATA D3/
DMA 765
- -7.3839, -7.4591, -7.4907, -7.5015, -7.4267, -0.9782, -4.1115,
0 -5.3320, -5.8303, -5.1375, -3.6595, -3.2737, -4.3476, -5.1330,
OMA 770
DMA 775
• -4.7424, -4.7905, -4.8257, -3.9497, -4.0652, -4.4132, -4.5402,
, -4.5603, -4.5492, -445280, -4.5184, -4.5071, -4.4858, -4.3850,
DMA 750
DMA 765
* -4.2507, -4.0979. -3.8746, -3.7946, -3.7972, -3.6321, -3.6622,
OMA 790
-4.3082/
* -3.9198, -4.0415, -4.1504, -3.2687,
DMA 795
DATA 04/
qMA 800
* -6.9467, -1.0906, -7.1590, -7.2396, -7,1295, -6.3047, -5.2250,
OMA 605
* -4.3913, -4.0138, -4.2512, -2.9555, -2.3736, -3.3713, -4.1797,
OMA 810
4 -3.7645, -3.8391, -3,8896, -3.0159, -3,1187, -3.4077, -3.6117,
DMA 915
0 -3.6326, -3.6324, -3.6235, -3.6153, -3.6070. -3.5613, -3.4341,
DMA 620
* -3.3206, -3.1692, -2.9518, -2.9642, -2.e666, -2.8995, -2.9291,
DMA S25
0 -2.9861, -3.1082. -3.2197, -3.3425, -3.3900/
OMA 630
DATA El/
OMA 635
0 "*,1705, -4.1963, -4.2063, -4.1266, -4.0441, -3.7452, -3.1712,
DMA *40
* -2.5963, -2.5294, -2.2355. -1.4984, -1.0273, -1.7946, -2.4096,
DMA 645
0 -2,1791, -2.1972, -2.1647, -1.5024. -1.5747, -1.3526, -1.9156,
OMA 650
* -1.957, -1.9055, -1.8233, -1.8050, -1.7053, -1.9447, -1.9098,
OMA 355
o -1.8439, -1.7270, -1.5405, -1.4544, -1.4532, -1.4763, -1.4894,
DMA 660
* -1.5359. -1.6463, -1.7393, -1.6354, -1.9422/
DMA 665
DATA 92/
DMA 670
* -4.0364, -4.0927, -4.0729, -4.0213, -3.9061, -3.5498, -2.6358,
DMA 675
o -2.1337. -2.2627, -1.8616, -0.9846, -0.5156, -1.2001, -1.8993,
DMA N60
* -1.5831, -1.6215, -1.6451, -0.9323, -0.9859, -1.2771, -1.3921,
ODA U5
0 -1.4241, -1.4077, -1.3685. -i,3568, 't.3446, -1.3974, -1.3197,
ODA 690
* -1.2354, -1.1127, -0.9269, -0.6346, -0.6343, -0.0503, -0.$670,
* -0.9084. -1.0119, -1.1094, -1.2214. -1.2647/
DRA 695
DMA 900
DATA U3/
OVA 905
* -3.8575, -3.9117. -3.9336, -3.8643, -3.7519, -3.2464, -2.3765,
DMA 910
"0-1.5840. -1.0758, -1.4045, "0.4651, -0,0282, -0.6065, -1.3211,
DMA 215
# -0.9739, -1.0177, -1.0654, -0.3653, -0.4032, -0,6017# -0.6120,
"-018409, -0.6395, -0.8254, -0.9193, -0.8125, -0.151, -0,7274, DA P20
QMA 925
-0.0426, -0.5262. -0.3544, -0.2571, -0.2563, -0.2648. -0.2768.
OMA 930
* -0,3124, -0.4027, -0.4930, -0.6036, -0.6605/
DATA 14/
DMA 935
DIA 940
* -3.4262, -3.6621, -3,0245, -3.6154, -3.5032, -2.6505, -1.5090,
DMA 945
-0.5654, 0,3125, 0.6827, 0.2590, "0.4128,
* -0.6912, -1.0979,
OMA 950
0.4690, 0.489, 0.2105, 0.0870,
* -0.0613. -0.1030. -001598.
DRA 653
0.0563. 0.0507,
.OSb?, 0,0620, 0.0792, 0.1597,
0 0612,
0.2330,
0.3320, 0.4751,
0.5671. 0.5695, 0.5709, 0.5636.
OMA 90
DMA 9M5
0.A768,
0.4093,
0.3163.
0.2577/
& 0.5435,
OIA 010
DATA PI/
DA 675
7,
-0,5604, -0.5104. -0.4212, -0.0900, 0.4663,
* -0599.
1.383?, 1•,043,
1,.943, 1.6s4, 1.20, OMA "0
* 1.0326, 1.0997,
o•
-0.3960, -6.3271, -4.005, -5.0656,
%#197697,-5.9073, -5.940, -5.1920,
-4.5455, 5.6074, -6.2374,
-5.3128, -5.6171, -5.515,1,
-5.5477, -5.5451, -5.5248, -5.666t, -1.6094,
-5.1774, -5.0924, -5.0922, -5.1306, -0.1469,
-5.4012. -5.4801, -5.4705/
X:
3
,il
151
INK
•
1 4563,
1.6570,
1.7261,
t
*1.91
.:DATA F2/
1.4532,
1-6811,
1.7763,
1.4784,
1.7406,
1.8491,
1,8461,
1.7614,
1.6867,
2.6533,
2.7799,
DATA F4/
* 0.1750,
0 2.7921,
* 3.2303,
* 3.3215,
. 3.3666,
0 3.43!,
END
ý41,
..
~M .~W
-
•
1.67JB,
MA
995
1.9135,
1.9154,
OMA 995
0.0696,.
2.1301,
2.1606,
2.1204,
2.3387,
0.7952,
1.6979,
2.1126,
2.1504,
2.3420,
3033, -0.2717,
834: -02.1368,
:.4
.21,
2.5364, -0.0633,
2.6979,
2.4531t
2.7168,
2.7144,
2.5871t 2.4300,
2.5971,
2.6015,
2.6044,
2.6612,
2.7190,
2.7572,
2.7592,
2.7802,
2.7767,
2.7627,
2.7525/
0.3368,
2.6050,
2.6374,
2.0010,
2.7705,
1.2184,
2.2107,
2.5939,
2.6295,
2.7749,
0.0418, -0.0203, -0.0789,
2.4415,
2.9025,
3.2424,
3.2194,
3.2001,
3.3884,
3.3223, 3.3260,
3.3279,
3.3776,
3.3917,
3.4141,
3.4456, 3.4537, 3.4572,
0.9248,
3.3148,
3.3494,
3.3364,
3.4348,
2.0179,
3.0046,
3.3241,
3.3547,
3.4294,
4, .8849,
1.5572,
1.8166,
•4 -,
l
1.6857,
DMA 990
-0.4483, -0.4587, -0.4073,
* 1.4548,
1.3737,
1.6260,
2.0995,
* 1.9564,
1.9399,
1.9-00,
2.2741,
*
2.1004,
2.1074,
2.934p,
2.1447,
2.1811,
2.2215
2.2777,
2.3246,
• 2.3435,
2.3329,
2.11§, 2.2891,
-DATA F3/
•
1.7005,
1.6983,
S-0.4215,
1.9791,
2.4693,
t2-555,
1.6293,
1.7711,
1.9012,
152
1.6043/
-0.3085,
2.2816,
2.26:0,
2.1515,
2.3268,
2.2719/
0.0501,
3.3113,
3.3859,
3.3303,
3.4156,
3.4606/
DA10
DMA 1005
DMA 1010
DMA 1015
DMA 1020
DMA 1025
DMA 1030
DMA 1.035
DMA 1040
DMA 1045
DMA 1050
DMA 1055
DMA 1060
OMA1065
OMA 1070
DMA 1075
DMA 1080
DMA 1485
DMA 1090
DkMA 1095
DMA 1100
DMA 1105
DMA 1110
CS
CCC
CCC
CCC
CCC
C
PON
PH4
PHD
PON
ROUTINE TO STORE TABLE TO CALL UP PROPER PHASE FUNCTION
PHO
AND 7O AVERAGE PHASE FUNCTIONS
PHD
PHD
COMMON/MNMPHS/ MNUM(2T,26),PHSFNC(34,70)
PHO
COMMON/MNMPHS/MUM1(27),MUM2(27),MUM3(27),MUM4(27),IMUMB(27),
IWJMS(27),MuM8(27) ,MUU(27)MUM((27) ,MumUO(27(),MUMII(2?),MUM12(27),PNO
PHD
2MUM13(27),MUM14(27),MUMI5(27),MUMI6(27),MUMI7(27),NU¥MI(27),
PHD
3MUMIS(27),MUM2O(27),MUM2I(27).MUU22(27),MUM23(27),MUM24(27),
PHD
4MUM25(27),MUM2e(27),PNSFI(34).PHSF2(34),PHSF3(34),PHSF4(34),
PON
SPHSFP(34),PHSF6(34),PHSF7(34),PHSFS(34),PHSF9(34),
GPHSFIO(34),PHSFII(34).PHSF12(34),PHSF13(34),PHSF14(34),PHSF15(34),PNO
7PHSF16(34).PHSF1?(34),PHSF1S(34),PHSF19(34),PHSR2O(34),PHSF2I(34),PHD
6PSF22(34),P1SF23(34),PHSF24(34),PMSF25(34),PH4SP26(34),PIISF27(34),PHD
9PHSF28(34),PHSF29(34),PHSF30(34),PHSF31(34),PHSF32(34),PHSF33(34),PHD
9PHSF34(34),PHSF35(34),PHSF36(34),PHSF37(34),PHSF38(34),PHSF39(34),P14D
1PHSF40(34),PHSF41(34).PHSF42(34),PHSF43(34),PHSF44(34),P14SF45(34),PH0
2PHSF46(34),PHSF47(34).PHSF48(34)IPHSF49(34),PHSFSO(34),PHSF5I(34).PHO
3PHSF52(34),PHSF53(34).PHSF54(34),PHSFS5(34) P*ISF56(34),PHSF57(34),PH0
4PHSF58(34),PHSF69(34),PHSF6O(34),PHSFSI(34),PHSF62(34),PHSF63(34),P1D
5P14SFO4(34),PHSF65(34),PHSF68(34),PHSF67(34),PHSFS(34),PSPF69(34),PN4D
PHD
OPHSF7O(34)
PHD
DATA MUMI/ 3, 5. 4, 4. 4, 6, 8,22,21,22,26,26,
PHD
C26,27,29, 1,34,34,34,34,33,33,36,36,36,36,23/
PHO
DATA MUM2/ 3, 5, 4, 4. 4. 6. 8,22,21,21,22,26,
PHD
C26,27,29, 1,34,33,33,33,46,46,34,34.36.36,23/
PHD
DATA MUM3/ 3, 5. 5, 5,19. 6, 8,21, 7,21,22. 8,
PH0
C26, 1.27, 1,46,46,46,29,29,46,34,34,34,36,23/
PH0
DATA MU44/58,58a,62,62,62,63,63,63,60,64.64,64,
PHO
C21,70,65,65,65,65.66,66,65,27,29,29,46,33,34/
PHD
DATA MUM5/5B.11.lt.11,20,20,20,28,28,16,16,16,
PHO
C16,37.37.37,32,36,32,32,32,36,23,23.23,38.25/
PHD
DATA MUM6/ 9,5I.lt,13.13.26,26,26o27,29,46.28.
PHD
C28,29,28.28,37,37.37,37,34,36,36,36.23,23,38/
PHD
DATA MUM7/ 9, 9.14,14.14,15,15,15,66,65,27,26,
PHD
C29,27,29,29,29,29,29.29,46,34.36.35,36,23.23/
PONO
DATA MUMI/5?,T7,g.969.69,6S,68,66,81,70,.021.
PHD
C 7.66, 1. 1. 1, 1,6.66, 1,29,46.46,33.34,36/
PH0
DATA MU&9/ 2,16,22,,19.19, 6,2,22.22.22,22.22,
PH0
C29.29,46.29,34,34.34,34.34,34,36,36.36,23,23/
PH0
DATA UMIO/ 21, 3,1,18,19, 6,22,22,21,22,22,22,
PHU)
C27,27,29.27,33,33,46,46.46.33.34,34,36,36.23/
PH4
DATA MUM1l/ 2. 3,18.18,19, 6.22,2,. 7,22,22.22,
PHD
C27,27.27,27,46,29.29.29,29.46,33,34,34,36,36/
PH1
DAGA MUUI2/58,50.62.62,62.62.63,$3,60,64.64.64,
PHO
C21,60, 7,7.S,65,66,67,G5, 7,27,27.29.40,33/
PHO
DATA mLt'13/10,59,11.11,13,20,20,28.28,16..1S.t
P14O
C16.37.37.37,32,36.32,32,32.36,23.23,23.30,25/
7
P14O
DATA MUM14/l0,10,l4.144,t3,3,26,26,2 ,29,29,20,
PH0
C28,29,2t.20,37,37,37,3?,33.32,36,38,23.23.38/
PON
7.66,65,27,26,
DATA MU7.8//t,69,t4,14,t45,
3
PHD
.C29, I,,;,29.29,29,g9*29,46,34.36.35, 6,23,23/
P14
P
V36/47,57,G9,60,69,6,.I,68,6I,?0,S0.2l,
DATA
PONO
1,29,46,46.33.34,36/
,
.66;00.
I,
1,
7.60.
PHU0
DATA MUMl7/29,gt.32,32,3S.36,23,23,23,30.38.30,
PON
PD
DATA &WMIS/29,IU,32,32,2,38,23,23.23,30,34,38,
BLOCK DATA PMSDTA
BLOCK DATA
"C
"C25,25.25.25,25,25.25,25,35,35,35,35,35,40,39/
153
I4'IM
100
105
110
115
120
125
130
135
140
143
150
155
160
165
170
175
180
185
190
198
200
205
210
215
220
225
230
235
240
245
250
255
260
265
270
275
260
285
290
295
300
305
310
315
320
325
330
335
340
345
350
355
300
365
070
375
380
305
390
C38,25,25,25,25,25,25,25,35,35,35,35,35,40,39/
DATA MUM19/29.28.37,37.32,36,36,23,23,23,23,23,
C38,25,25,25,25,25,25,25,36,35,35t35.35,40,40/
DATA MUM20/15,26,28,28,37,37,32,32,32,23,23,23,
C23,38.38,38,38,25,25,25,25,35,35,35,35,35,40/
DATA MUM21/20,20,37,37,24,23,38,25,25,35,35,35,
C40,40,39,39,39,39o39,39,39,39,39,39,39,39,39/
DATA MUM22/ 7,20,16,37,32,32,24,23,23,23,38,3e,
C25,25,35,35,35,25,35,35,40,40,40,40,40,39,39/
DATA MUM23/17,51,13,13,20,20,28,28,37,37,37,37,
C32,32,24,24,23,23 36,38,38,38,38,38,38,25,35/
1,26,
DATA MUM24/47,30,55,55,55,13,15,12,42,12,
C44,52,44,44,45,45,45,45,24.23,38,38,38.25,35/
DATA MUM25/48,53,31,•1,31,41,41,41t49,17,17,17,
C56,50,43,43,57,61.42,54,42,12,12,12,12, 1,44/
DATA MUM26/59,59,11,11,20,20,28,28,46,46,46,
C33,33,34,34,34,34,36,36,36,36,23,23,23,38,38/
DATA PHSF1/
4.81387,
4.26047,
3.42600,
2.74953,
C
1.44553,
.94765,
.62704t
C
1.78847,
.14632,
.10720,
C
.28987,
.20375,
.01093,
.00764,
C
.02882,
.01703,
.00418,
.00411,
C
.00482,
.00431,
.00436,
.00412,
.00419,
.00428,
C
.00433,
.00421,
.00435/
C
.00443,
DATA PHSF2/
4.36700,
2.73667,
2.10567,
C
100.88000,
.55317,
1.36333,
1.11900,
.77513,
C
.13437,
C
.30047,
.22690,
.17367,
.01795,
.01266,
C
.04350,
.02714,
.00655, .00639,
C
.00780,
.00683.
.00669,
.00682,
C
.00636,
.00649,
.00606,
.00646/
c
.00626,
.00582,
DATA PHSF3/
2.33100,
1.80220,
C
75.07600,
3.77580,
.74470,
.54766,
C
1.23720,
1.03680,
.14476,
.31120,
.23880,
.18506,
C
.0143t,
C
.04851,
.03047,
.02022,
C
.00996,
.00785,
.00763,
.00756,
.00881,
C
.00780,
.00809,
.00843,
.00871,
.00940/
C
.00813,
.00790,
DATA PHSF4/
3.29400,
1,58300,
1.07677,
C
14.14110,
.52827,
.43880,
C
.73207,
.64758,
.25337,
.24070,
.17523,
C
.30452,
.02365,
.07169,
.04755.
.03263,
C
.01397,
.01396,
.01420,
,01557,
C
.01754,
.0164t,
.01545,
C
.01473,
.02512/
.02139,
.02370,
C
.01992,
DATA PHSF5/
C
31.33400,
3.0U280.
1.63600,
1.272604
.65320,
.51696,
C
.94204,
.83026,
.16520,
.32551,
.25926,
.20702,
C
*.C
C
C
c
.05921,
.0165,
.01192,
.4i1iio,
DAtA P4HSFG/
C
13.63333,
.03704,
.02S34,
.01o09,
.01059,
.01303,
.01134,
.01061,
.01447,
.02001,
.01070,
.01610,
.02256/
a.74067,
2.I717,
1,73800#
2.21493,
.42183,
.05307,
.00582,
.00409,
.00442,
4.68067,
.40393,
.07407,
.00958,
.00633.
.00671,
1.49120,
.41000.
.09148,
.01086,
.00762,
.O00O8,
.85635.
.365654
.11100,
.01855,
.0t424,
.01194,
1.06020,
.40994,
.09733,
.01312,
PHo
.01116, PHO
.01727, PH4)
PH4O
P40o
1,6167?. P440
154
11
PHD
PHD
PHD
PHD
PHD
PHD
PH4)
PHD
PH4
PH4
PH0
PH0
PH0
PHD
PHD
PHD
PHD
PH4
PHU
PH0
PHD
PHi)
PH4
PHU
PHD
PH0
PHD
PH0
PH4
PH0
PH0
P440
P140
P44
PW40
PH0
PH4
PH0
PH0
PH
PH'0
PH4
PH0
PH0
PH4
PH0
Pl40
P14O
PH0
PH4
PlH4
PHD
PH40
" l
395
400
405
410
415
420
425
430
435
440
445
450
455
460
465
410
475
480
485
490
495
500
505
510
515
520
525
530
535
540
545
550
555
560
565
510
575
510
505
5190
595
600
605
610
615
620
625
630
635
640
645
650
655
660
66M
670
V7s
660
141
C
.89500,
.25947,
C
c'
C
.06489,
C
.01625,
C
.01600,
C
.02003,
DATA PHSF7/
C
10.69213,
C
1.65050,
C
.24998,
C
.03232,
C
.00711,
C
.00723,
C
.00864,
DATA PHSF8/
C
10.29225,
C
1.18950,
C
.27068,
C
.04975,
C
.01188,
c
.01392,
.02003,
C
DATA PHSF9/
C
232.30000,
C
.97050,
C
.24957,
C
.04015,
C
.00674,
C
.00775,
C
.02123,
DATA PHSFIO/
C
286.85000,
C
.81960,
C
.19903,
C
.03807,
C
.00512,
C
.00580,
C
.04016,
DATA PHSFII/
c
15.3657t,
c
1.05749,
C
.27140,
c
.05498,
c
.01007,
c
.01243,
C
403592,
DATA PHSFI2/
c
5684100,
C
2.57040,
c
.18026,
O
.01547,
C
.00413,
C
.00305,
C
.00400,
DATA PHSPI3/
1.90311,
C
1.32733,
C
.25062,
DC
.04425,
4
.71377,
.21512,
.04418,
.01521,
.01670,
.01962,
.50818,
.17950,
.03126,
.01510,
.01758,
.01969,
.31612,
.09782,
.01072,
.01550.
.01958,
7.32563,
1.25550,
.18219,
.02036,
.00672,
.00753,
.00843,
4.66850,
.77671,
.13565,
.01381,
.00671,
.00783,
.00793,
3.15175,
.51168,
.10291,
.01015,
.00680,
.00813,
.00865/
2.23700,
.35194,
.05530,
.00813,
.00698,
.00841,
5.75700,
.94123,
.21203,
.03251,
.01148,
.01522,
.01932,
3.34100,
.640337
.16803,
.02247,
.01166,
.01656,
.01776,
2.19450,
.46530,
.13445,
.01667,
.01210,
.01776,
.02043/
1.56850,
.35098,
.07989,
.01344,
.01285,
.0197,
13.73667,
.77753,
.19523,
.02414,
.00569,
.01205,
.02409,
3.92300,
.55393,
.15503,
.01485,
.00549,
.01820,
.03397t
1.97167,
.41583,
.12260,
.01040,
.00550,
.02141,
.05439/
1.29767,
.31763,
.06875,
.00803,
.00615,
.02076,
20.19500,
.60855,
.16210,
.02275,
.00400,
.00954,
.04524,
5.34175,
.40505,
.13158,
.01373.
.00412,
.01947,
.06312,
2.25050,
.30698,
.10705,
.00983,
.00401t
03101,
.08295/
1.24273,
.24148,
.06313,
.00704,
.00456,
.03784,
6.08614,
.84297,
.21037,
.03568,
.00986,
.01473,
.03702,
3.15543,
.58904,
017669,
.02444,
.00983,
.0187t,
1.98500,
.44120,
.14371,
.01753,
.01019,
.02423,
1.39671,
.34216,
.08723,
.01339,
.01094,
.03204,
.04492,
.05004/
5.44440,
1S93040,
.11514,
.00986.
.00392,
.00385,
.00368,
4.90680,
1,03104
.07816,
.00697,
.00307,
.00386.
.00352,
4.15660,
.54702,
.05551,
.00542,
.00385,
.00391,
.00366/
3.34160.
.30330.
.02729,
.00457.
.00385,
.00401.
6.06467,
1.00068,
.20709,
.02794,
3,93056,
.05342,
.111222,
.01187,
2.63t71,
.46637,
.12811,
.01336.
1.1287,
.34663,
.07347,
.01033,
VI
S155
%.,
.39290,
.15035,
.02336,
.01520,
.01860,
.02072/
PHD
PHD
PHO
PHD
PHO
PHD
PHD
PRO
PHD
PHD
PHO
PNO
PHD
PHD
PHD
PH4
PHO
PRO
PHO
PHD
P14
P14
PH1
PRO
PHD
PHO
P1O
PHO
PHD
P1O
PHO
PHD
PNo
PHD
PHRO
PHO
PHO
PH4
PH4
P14
PRO
PHD
PRO
PRO
PRO
P1O
PRO
PNO
P9O
PNo
P9O
P1O
P1O
PNO
PKL
P940
PM0
P94O
*0
690
695
700
705
710
715
720
725
730
735
740
745
750
755
780
765
770
775
780
785
790
795
800
805
810
815
820
825
830
835
840
845
850
855
860
865
870
875
80o
865
190
895
900
905
910
915
920
925
930
935
940
945
950
955
960
9I6
970
975
Mo
C
.00874,
C
.01171,
C
.02767,
DATA PHSF14/
C
41.20875,
C
1.23475,
C
.24819,
C
.03649,
C
.00657,
C
.01210,
C
.02356,
DATA PHSFIS/
C
7.98100,
C
1.58178,
C
.28203,
C
.03329,
C
.00645,
C
.00942,
C
.01451,
DATA PHSF16/
C
1.52473,
c
.92088,
C
.32742,
C
.06361,
C
.01330,
C
.01373,
C
.02003,
DATA PHSF17/
C
143.02500,
C
.67675.
c
.04883,
C
.00942,
c
.00302,
C
.00275,
C
.00332.
DATA PHSF18/
c 26.74167,
.88390,
SC
c
.32113,
.06289,
C
.01225,
C
.01020,
C
.01061,
DATA PHSFI9/
C
16.76000,
C
.76794,
C
.28896,
C
.06978.
C
.01572,
C
c
.01407,
C
.01603.
DATA PHSF20/
C
3.35750,
C
1.10167,
.C
129989,
C
.05339,
C
.01097,
C
.01289,
c
.02615,
.00818,
.01423,
.02690,
.00637,
.01759,
.02058,
.00894,
.02129,
.03550/
.01001,
.02494,
11.84363,
.93516,
,19145,
.02176,
.00643,
.01618,
.02652,
5.00750,
.60986,
.14831,
.01390,
.00671,
.01839,
.02694,
2.73650,
.43641,
.11555,
.00974,
.00741,
.01979,
.04004/
1.74425,
.32733,
.06356,
.00759,
.00906,
.02104,
5.58389,
1.24011,
.20701,
.01999,
.00646,
.01038,
.01415,
3.8107,
.80424,
.15369t
.01295,
.00683,
.01112,
.01176,
2.75011,
.55144,
.11570,
.00920,
.00743,
.01187,
.01646/
2.05900,
.39021,
.05985,
.00726,
.00833,
.01290,
1.44645,
.81802,
.26255,
.04130,
.01222,
.01491,
.02225,
1.30800.
.64725,
.21129t
.02819,
.01213,
.01635,
.02715,
1.16736,
.1405,
.17075,
.02041,
.01235,
.01784,
.03082/
1.03716,
.40964,
.10236,
.01583,
.01288.
.01906,
55.03750,
.40423,
.03665,
.00664,
.00283,
.00283,
.00347,
11.00250,
.18580.
.02858,
.00497,
.00277,
.00298.
.00373,
3.10675,
.10582,
.02291t
.00397,
.00273,
.00314,
.00359/
1.29675,
.06884.
.01418,
.00337,
.00272,
.00324,
.78022,
3.70000,
.62040.
1.13800,
.49727,
1,24160,
1.02157,
.39937.
.25863.
.04050.
.01083,
.01030,
.01071,
.0880,
.02733.
.01046,
.01043,
.01107,
.16910,
.01952,
.01025,
.01053,
,01138/
4.67840.
.65496,
.24060,
.04606.
.01429,
.01430,
.01613.
2.10000,
.51386,
.20054,
.03245.
.01397.
.01401,
.01037,
1.29420,
.41986,
.16730,
.02379.
.01394,
.01529,
.01668/
2.77033.
.98003.
423472,
.03443,
.01015,
,01512,
.02623,
2,20467,
,69731,
018552,
.02340,
.01022,
.01829.
.02990,
1,77208,
.51360,
.14705,
.016690
.01002,
.022M8,
.03817/
P10 gas
P140 990
PHD 995
PHU 1000
PHD 1005
P14D 1010
PO0 1015
PO401020
P1O 1025
PHD 1030
P40 1035
PRO 1040
PH4 1045
PHD 1050
PHD 1055
P1401060
PHO 1065
PHD ;274
PHD 1075
P10 logo
P10 1085
P10 1090
PHD 1095
POD 1100
PHO 1105
PHO 1110
PH4 1115
PHD 1120
P1O 1125
PHO 1130
PHO 1135
PHO 1140
PHO 1145
PHD 1150
PHO 1155
POO 1160
P14 1170
OHD
1165
PON
PHD 1175
1180
P140 1165
PHU 1190
PH40 1195
P14O1200
.94964. PHD 1205
.34756, PHD 1210
.10712. PON 1215
.01863, P10 1220
.01309, PHD 1225
.01572, P40 1230
P1O 1235
P14 1240
1.43950, PO4 1245
.38854, PHD 12580
.8660.
PoN 1255
.01308, #ON 1260
.01W45, PON 126S
.02580, PHU 12y0
ONO 1215
.10153.
.01491.
.01017,
.01059,
S.
156
4LI
DATA PHSF21/
13.35245,
1.45664,
.24620,
C
.03890,
C
.00921,
C
.00985,
C
.01277,
DATA PHSF22/
C
9.49578,
C
1.32672,
C
.25044,
C
.04717,
.01264,
C
.01280,
C
.01447,
DATA PHSF23/
C
.45555,
C
.40929,
C
.25771,
C
.09162,
C
.03009,
C
.02946,
C
.03232,
.DATA PNSF24/
C
.51072,
C
.47514,
C
.30902,
C
.09070,
C
.02000,
C
.01767,
C
.01948,
DATA PHSF25/
C
.21327,
C
.20606,
C
.16793,
C
.09060,
C
.04990,
C
.06028,
C
.06973,
DATA PHSF26/
C
4.10720,
C
1.36400,
C
.31103,
C
.04208,
c
.00837,
C
.00974,
C
.01468,
DATA PHSF2?/
DW
C
4.37885,
C
1.49815,
c
.30308,
C
.03932,
C
.00753,
C
.00068,
C
.0075,
DATA PHSF2S/
C
1.9262,
c
C
"C
*
"C
"1
Ca
i
4
t,001,
7.66691,
1.10655,
.18557,
.02523,
.00801,
.01039,
.01220,
4.51555,
.69522,
.14266,
.01742,
.00886,
.01090,
.01131,
2.89018,
.47093,
.11148,
.01294,
.00906,
.01163.
.01247/
1.99645,
.33483,
.06369,
.01044,
.00940,
.01232,
6.01133,
1.02483
.19334,
,03185,
.01208,
.01321,
.01422,
3.71372,
.66094,
.15224,
.02271,
.01207,
01365t
.01407,
2.49106,
.45784,
.12179,
.01730,
.01220,
.01405,
.01456/
1.77633,
.33285,
.07358,
.01421,
.01245,
.01436,
.45332,
.39319,
.22804,
.06691,
.02875,
.03000,
.03276,
.44686,
.35887,
.20101,
.05037t
.02860,
.03059.
.03305,
.43683,
.32388,
.17671,
.03979,
.02871,
.03120,
.03315/
.42405,
.28985,
.12722,
.03345,
.02902,
.03179,
.50922,
.46072,
.27072,
.06070,
.01816,
.01792,
.01984,
.50476,
.42698,
.23504,
.04188.
.01773,
.01826,
.02009.
.49744,
.38890,
.20254,
.03042,
.01753,
.01866,
.02019/
.48752,
.34888,
.13652,
.02372,
.01753,
.01907,
.21298,
.20305,
.16754,
.07368,
.05307,
.06253,
.07077,
.21208,
.19588,
.14702,
.06147,
.05380,
.06468,
.07140.
.21060,
.18741,
.13659,
.05381,
.05581,
.06664,
.07161/
.20856,
.17798,
.11191,
.05020,
.05801,
.06834,
3.38127,
1.13140,
.23368,
.02647,
.00791.
.01087,
.01320,
2.61113,
.79725.
.17766.
.01753,
.00800,
.01219,
.01237.
2.06147,
.57362,
.13659,
.01255,
.00831,
.01347,
.01467/
1,86320t
.41947,
.07413,
.00978,
.00988,
.01446,
3.70265,
1.22035,
.2242.,
.02424.
.00684,
.00679.
..00705,
2.97685,
.53140,
,16839,
.01607,
.00668,
.00892,
.00703,
2.33720,
.58200,
.12816,
.01161,
.00061,
.00706,
.00721/
1.05900.
.41824.
.06644,
.00894,
.00681,
.00715,
1.84586.
.95572,
1.62014,
.73436,
1.42568,
.56007,
1.24733.
.43899,
.
157
AA
PH0 1280
PHO 1285
PHD 1290
PHD 1295
PH0 1300
PHD 1305
PH0 1310
PHD 1315
PHU 1320
PHD 1325
PHD 1330
PH0 1335
PHO 1340
PHO 1345
PHD 1350
PH0 1355
PHO 1360
PHD 1365
PH1 1370
PH1 1375
PHO 1380
PHD 1385
PHD 1390
PHO 1395
PH0 1400
PHD 1405
PHD 1410
PH0 1415
PHD 1420
PH0 1425
PH0 1430
PHD 1435
PRO 1440
PHD 1445
PHO 1450
PH1 1455
PH8 t460
PH0 1465
PHU 1470
PRO 1475
PHD 1480
PH0 1485
PHO 1490
PHR 1495
P14o1500
PO 1505
PHD 1510
PHD 1515
PO 1520
PHI) 1525
PHD 1530
PRO 1535
PRO 1540
PHD 154S
PHO 1550
PH1 1555
PRO 1580
PHO 1865
PRO01570
C
.33874,
C
.05440,
C
.01031,
C
.01043,
C
.01405,
DATA PHSF29/
C
2.72707,
C
1.28665,
C
.32473,
C
.04783,
C
.00911,
C
.00787t
C
.00830,
DATA PHSF30/
C
183.60000,
C
.63540,
C
.20860,
C
.02460.
C
.00234,
C
.01403,
C
.01240.
DATA PHSF31/
C 1565.50000,
C
.59477,
C
.20973,
C
.01947,
C
.00164,
C
.02986,
C
.00765,
DATA PHSF32/
C
.79503,
C
.66092,
C
.32563,
C
.07727,
C
.01717,
C
.01607,
C
.01872,
P1SF33/
C
1.56126,
C
.92302,
C
.31378,
t
"DATA
S.06594.
C
.01592,
0
.01325.
C
.01330,
DATA PHSF34/
c
1.22457,
C
.78708,
C
.30321.
C
.07323,
C
.01924,
C
.01550.
C
.0152,
DATA PMSF35/
C
.15944,
C
.16620,
C
.13638,
C
.06027,
C
,06702,
.26371,
.03397,
.00946,
.01123,
.01340.
.20635,
.02253,
.00938t
.01222,
.01391,
2.52017,
1.08932,
.24695,
.02980,
.00819,
.00708,
.00629,
2.15725,
.78963,
.18977,
.01981,
.00796,
.00812,
.00847,
1.81463,
.58023,
.14727,
.01414,
.00784,
.00825,
.00868/
32.48000,
.54470,
.16570,
.01160.
.00355,
.02285,
.01544,
3.18400,
.41140,
.12700,
.00650,
.00326,
.01565,
.02607,
1.30100,
.33110,
.09546,
.00370,
.00308,
.01398,
.04655/
.85020,
.26080,
.04755,
.00264,
.00528,
.01362,
9.96867,
.52513,
.16157,
.007M3,
.00254,
.01362,
.00818,
1.73233,
.42173,
.11973,
.00346.
.00438.
.01200,
.00986,
.92547,
.33793,
.09043,
.00177,
.00358,
.00992.
.05756/
.70240,
.24700,
.04400,
.00138,
.00653,
.00867,
.78714.
.619q4,
.27208,
.05125,
.01576,
.01656,
.00965,
.76605.
.537368
.22676,
.03541,
.01552.
.017130
.02093,
.7360t,
.45896,
.10879,
.02586,
.01551,
.01764,
.02164/
.70017,
.38796,
.11979,
.02025,
.01571,
.01814.
1.49306,
.61176,
.25238.
.04424,
.01439,
.01315,
.01355,
1.34900,
.63177,
.2043R,
.03123,
.01392,
.01310.
,013a1,
1,19444,
.49621,
.16659,
.02339.
.01360,
.01308,
.01392/
1.19085,
.70433,
.24916,
.05065b
.01727,
.01532,
.0t5".
1,08010,
.50565.
,20585.
,03666.
.01663,
.01522,
.01327.
.98050.
.45677,
.17099,
.02794,
.01614,
.01523,
.01640/
.67944,
.37107.
,11000.
.02253.
.01577,
.01536,
.1593M,
.15479,
.1583.
.15131,
.12309,
.00322,
.0606.
.16825,
.14701,
.11727?,
.0?702,
.06,47.
.15134,
.14199.
t-0055.
,056:1.
.07146.
.,3030.
.07250.
.0822
5L15
"-*
V . ,r
'÷,
.,
-,*,
+
.,i
.¾-
.*•
f
e
.
.
.16235,
.01601,
.00951,
.01328,
.01521/
.09181,
.01230,
.00985,
.01405,
1.52555,
.43t61,
.08150,
.01091,
.00781,
.00831,
1.05046.
.39304,
.10271,
.01858.
.01339.
.01314,
PHD 1575
PHD 1500
PHO 1585
PHD 1590
PH1 1595
PH0 1600
PHO 1605
PHD 1610
PH0 1616
PH0 1620
PHU 1625
PH0 1630
PHD 1635
PHU 1640
PH0 1645
PHD 1650
PHU 1655
PHo 1660
PHD 1665
PHOD1670
PHD 1675
PH0 1680
PHD 1685
PH0 1690
PH0 1695
PH0 1700
PH0 1705
PHD 1710
PH0 1715
PHD 1720
PH0 1725
PH0 1730
PHO 1735
PHO 1740
PH1 1745
PH4 1750
PHU 1756
P14 1760
PH0 1765
PH0 1770
PH0 1775
PH0 1780
P10 1785
PH0 1790
PHD 1795
PHO 1800
PH0 1805
PHO 1t10
PH0 1315
P10 1820
P1H01025
PAD 1830
PH0 1035
PH0 1840
PHU 1644
PH0 18W0
9H1 1655
P00 1860
M 1885
C
.07479,
AYA .08826,
DATA PHSF36/ *
C
.72999,
.58366,
C
C
.29081,
C
.08253,
.02352,
C
C
.02127,
C
.02273,
DATA PHSF37/
1.15457,
C
.87581,
C
.34834,
C
.06398,
c
C
.01250,
C
.01191,
C
.01422,
DATA PHSF38/
.31056,
C
.29365,
C
.21708,
C
.09621,
C
.03792,
C
.03972,
C
.04433.
PHSF39/
.12377,
C
0
C
.12185,
C
.10974,
C
.07013,
C
.06565,
C
.09196,
C
011144.
DATA PHSF40/
C
.13400,
C
.13180,
C
.11785,
C
.07940,
C
.06323,
C
.00613.
C
.10 3,
DATA PHSF4t1/
C
227.93333,
.71013,
C
C
.18920,
,01854.
C
C
.00157.
C
.0w476
C
Q0it?,
DATA PHSP42/
,0.,21e7.
C
C
2.62733,
c
.44107,
C
.00956,
C
,00163.
c
"DATA
C
.00126,
C
.00120,
OATA 5H43/
.07805,
.08970,
.08112,
.09058,
.08390,
.09088/
.72086,
.54390,
.24724,
.05810,
.02183,
.02146,
.02314,
.689632,
.46850,
.21025,
.04253,
.02142,
.02171,
.02351,
.86227,
.40091,
.17893,
.03278,
.02122,
.02202,
.02367/
1.13481.
.80158,
.27905,
.04055,
.01143.
.01242,
.01450,
1.08837,
.66139,
.22360.
.02712,
.01126,
.01301,
.01526,
1.02208,
.53812,
.17950,
.01935,
.01130,
.01357,
.01585/
.30982,
.28698,
.19865,
.07365,
.03722,
.04071,
.04490,
.30766,
.27149,
.18081.
.05766,
.03748,
.04172,
.04526,
.30415,
.25411,
.16385,
.04714,
.03804,
.04270,
.04539/
.12369,
.12102,
.10592,
.06762,
.07304,
.09670,
.M1349.
.12346,
.11893,
.10181.
.06192,
.07747.
.10114.
.11477.
.12308,
.11632t
.09752,
.05964,
.08219,
.105t6,
.11519/
.13391,
.13085,
.11344,
.06955.
.06951.
.09032,
.10522,
.1336?1
.12842,
.10872.
.06267.
.07336.
.09426,
.10634,
.13321.
.12541,
:10383,
.05932,
.07751.
.09782,
.10673/
32.03000,
.50040,
M4303,
.00866.
.00266.
.00903,
.00603,
4.13107.
.43330,
.10600,
.00431,
.00434,
.00635,
.012$65,
1.54367,
.33043,
.08045,
.00239,
.00724,
.007M5,
.02051/
9*39467,
1.73200,
.08952.
.00562.
.00445,
?.618033,
.85247,
M.0o950
.003S4,
.00139,
6.%9200.
.43620,
.0041s,
.00231,
.00134.
.O0M,
.001t5,
.00420.
.00105,
V
ISO
MOM42,
.0040/
PH4 1870
PHD 1875
PHD 1880
.62369, PHD 1885
.34178, PHO 1890
.12047, PHD 1895
.02688, PRO 1900
.0211W, PHD 1905
.02235, PHO 1910
PHD 1915
PHO 1920
.95035, PHID 1925
.43402, PH0 1930
.10538, PHD 1935
.01490, PHD 1940
.01153, PHD 1945
.01399, PHD 1950
PHD 1955
PHD 1960
.29944, PKD 1965
.23575, PHD 1970
.12623, PHO 1975
.04092, PRO 1980
.03881, P4ID 1985
.04358, PHD 1990
PHU 1995
P14 2000
.12254, PHD 2005
.11324, PHO 2010
,08650. PRO 2015
.06097, PR4O2020
.08708, PlOD2025
.10862. PRO 2030
PHD 2035
PH0 2040
143259, PR0 2045
.12165, PRO 2050
.09125, P4402055
.05961, PR4O20G0
.0618t. 94402065
.0091, 91NO 2070
P44 2075
P0 2080
.95123, P4I02065
.25093, PHD 2090
.03915. PRO 2095
.00169. P4402100
.01132, PRO 2105
.00?lt, PHU02110
P40 2115
PRO 2120
3,67533, PRO 2124
.08631,
.23963. P44 2V30
.04154, PR0 2133
.-00195, P1O 3140
,00426, P44 2145
.0020. P•402180
PHO 2355
I40 2160
C
V!C
IC
23.70500.
1.S1300.
C
.12825,
C
.01871,
C
.00303,
C
.00334,
C
.00510,
DATA PHSF44/
C
1.13310,
C
.97348,
C
.40884,
c
.05080,
C
.00651,
C
.00525,
C
.00624,
DATA PI4SF4S/
C
.61443,
C
.57447.
C
.38970,
C
.08293,
C
.01027,
c
.00801,
C
.00879,
DATA PHSF46/
C
2,066t5.
C
1.07421,
C
.31969,
C
.05837,
C
.01288.
C
.01077,
c
.01069.
DATA PH.SF47/
C 1088.10000.
C
.53970,
.20715,
c
.02778.
.004ý20,
C
C
.00265,
.01o689
DATA P14SF48/
C 18500.00000,
c
.44240,
C
Mtoo10
c
.02554,
C
V~0370,
c
.00113,
c
.'439.
N
DATA m4svFo/
c
19,go0goo.
c
*C
c
C
C
t. 19,
.01ý, ,
.0028 ,
.00345,
.00600,
12. 14500,
.39850,
.07598,
.00710,
.00290,
.00349,
.00344,
6.16400,
.24525,
.05932,
.00485.
.00302,
.00354,
.00472/
2.96850,
.17225,
.03272,
.00363,
.00318,
.00388,
1.12586,
.91266,
.31800,
.02813,
.00563,
.00538,
.00656,
1.10518,
.77952,
.24506.
.01701,
.00539,
.00551,
.00681,
1.07182,
.64406,
.18784,
.01126,
.00526,
.00571t
.00692/
1.02708,
.51826,
.09626,
.00818,
.00522,
.00595.
.61273,
.55783,
.31913,
.04868,
.00875,
.00810,
.00893,
.60783,
.51803,
.27140,
.02942,
.00834,
.00804,
.00903.
.59967,
.47153,
.22780,
.01892,
.00011,
.00842,
.00906/
.58847,
.42127,
.14030,
.01327.
.00800,
.00861,
1.93640,
.92677,
.25144,
.03804.
.01180,
.01073.
1.45810,
.53175.
.15944,
401931,
.01099,
.01070,
.01105/
1.24945.
.01078,
1.69345,
.89739,
0t9943,
.02624.
.01123,
.01072.
.01095,
16.32500.
.48015.
.15820.
.01325.
.00169,
2.3,5900,
.37245,
.13160.
.00679,
.00154,
1,00958,
.30310,
t107l0,
.00344.
.00137,
102153.
.03180,
.09370/
2.63400.
.05070.
.56200.
91402355
ONO02360
.49050. 94402385
t12770.
.00365.
.10750.
.00203.
.00200, P4402330
.7-15,
.01227.
.40360.
17010.
.01105.
.091196
.00549.
OWB.08
.55520.
.06352.
.00642,
60.01000.
461600.
.046%3.
.00341k,
.00*92,
.00407,
.00010.
.00430.
.00124,
*C
19.81000,
.00131,
DATA WSF550/
4,bOV00*,
3).47000,
C .290.
.602.
c
.0570,
.030"7,
C
.0332t.
.35560.
.02025.
.31400,
.41021,
.09421.
.01523.
.01084,
.01068.
.67300,
.24865.
.05689,
.00306.
.00145.
P1402185
PHO 2170
P1402175
P1402180
PHD 215
P1402190
PHO 2195
PHD 2200
PHD 2205
PHO 2210
P1402215
P1402220
PHD 2225
PHO 2230
P1402235
P1402240
P1402245
P1402250
P1402255
PHD 2260
PHD 2265
P1402270
P1402275
P1402280
P1402285
P1402290
P1402295
P1402300
P1402305
P1402310
P1402315
P1402320
P4402325
P4402330
P1402335
PHD 2340
PHO 2345
.01971, P1402350
.25730. 94402370
.05190, 94402375
.001 12,
.02803.
101407.
.00112,
.02019o
.00720/
3.56500,
.19510,
.03474,
.00200,
2.26800,
.12640,
-02M.C
.00143,
.001069,
.0006t,
.00097, ON402425
s04096. P4402430
41.64800.
.14010,
.02411,
P1402440
2.69300, mo4 2445
.06104, P4402450
.010.07, ho4 2455
.00123,
.0025t.
10-28000.
.270304
.0268M.
180
.00101.
.00340/
100113. P1402365
.01751. P1402390
PR402395
PR402400
.94870, P4402405
101022, Poo 2410
.01264. PAD02415
.00120. P40 2420
94403435
C
c
.00620,
.00141,
c
.00141,
C
.00198,
DATA PHSF51/
C
45.72000,
C
1.11400,
c
.1"350,
C
.03S46.
.0061o,
c
C
.00614,
C
.02602,
DATA PHSF52/
C
1.32800,
C
1.16200,
C
.440600
c
.03392,
c
.00377,
C
.00260,
C
.00294.
DATA PHSF53/
C 8232.00000,
.49710.
C
.21110,
C
.01954,
C
.00166,
C
.01906,
.00387,
.00129,
.0065,
.00125.
.00198,
.00122,
.00118,
.00118,
.00117,
.00113M
.001M7,
.00113/
8.45200,
.39640,
.10220,
.01560,
3.-8600,
.26220,
.08533,
.01103,
.01031,
.03071.
.01534,
.03320/
1.34900,
1.08700.
.32530,
.0178M,
.0031?,
.0027.
.00306,
1.32400.
M1840,
.23580,
.01037,
.00298,
.00268.
.00314,
1.28300,
.74460,
.16900,
.00676,
.00284,
.00274,
.00317/
.95120.
.38980,
.12260,
.00272,
.00383.
.01420,
.00690,
.65890.
.33700,
.09209,
.0011,
.00124,
.01077,
.04226/
9.07700,
22.66000,
.72990.
.12410,
.02333,
.00530,
C
.00782,
3.42700,
.52530.
.tb430,
.00754,
.00334,
.01831,
.00667,
c
13.40000,
12.72000,
"C
DATA PHSF54/
C
C
C
c
c
c
2.58600,
.10950,
.00682,
.00006.,
.0005o.
.00056.
DATA P14SF55/
C
36.42000,
c
.1763,
S
C
.+iC'57,
1.56500.
.0697?,
.003?5.
.00073,
C
.91460,
c
.13450,
SC
+0213.
C
.00263,
cC
o00o4.
C
.00"40,
OATA 824585?/
'4
C
*
c
C
C
1696400000,
c
703
.22103,
.0214,
.00409,
.665t0,
.04630,
.00228,
.00066,
.0005o.
.000U.
23.44333.
.47%07,
.15540.
.01620,
C
.0(01.436,
.00459,
C
.0lf45,
.0105C,
c
.01907,
.03025,
ON8SF561'
C DATA40-.4900,
31,63000.
A.
.00517,
.00763,
.02902.
.695c0.
.104.0.
Oi52:.
.0021*.
.00070,
.01245.
1-9,47000.
62117.
.17217
a0I ',.
.0040,0
.000o,
.00050.
.
.00500,
0.74400,
.32580.
.03174,
.00153,
.00064,
.00055,
.00050/
.00161. PH0 2460
.00120. PRO 2465
.00127,
1.89401,
.19430,
.05456,
.00801,
.00547,
.10150,
.01380.
.001ti,
.00061,
.723500.
.085so.
.00490.
.003".
.00640,
*01440/
.17450,
.0371?.
-0014,0.
.00464.
.00451.
"m4 2610
PRO 2695
P0 2700
ok020705
PH0 2710
P84O 2715
POO 2720
.07463. '*40 2725
W0II.
4104710
.00470.
.05409,
.00390.
. 6"
.0. . . 4,1..
.00324.
2610
2615
2620
2625
P*0 2640
814 2645
P1D 2550
P8O 2655
P-40 2660
PH1 21*5
PR0 2610
814 2375
2690S5
t.72400, 8*O
O9t02
.34070,
,04291.
+00762,
.00305.
.00603,
.0M103.
.00636.
P10
PHO
P0o
840
.00055. PH0 2630
81o 2635
1.40100.
.26417,
.05233.
.00472,
.01141,
.0160,
.133P1.
400104,
ON0 2505
4.24600, 8140 2609
3.11067.
.34257,
.09483.
.00503,
.00777,
.01607.
.05115/
4.14500,
944900.ý
.36210,
2470
2475
2480
2485
2490
2495
2500
PH142510
P1H0 2515
PH0 2520
1.22900, P140 2525
198190, PH4 2530
.07319, PHO 2535
.00484, P40 2540
.00274, f%2545
.00253. PHO2550
PH0 2555
P10 25"80
.52640, PHO 2565
.25360, PH1) 2570
.04939, PH802575
.00134, PHO 2580
.00127. PHO 2585
.00904.
PHO92590
PHO 2595
P40 2600
.03235,
4.42400.
4623,
.12417.
.00950.
.005m4,
.01000,
.03941,
12.10000,
.156,
,489-52*
PH0
PHO
PH0
PHO
PO0
PHO
PhD
.00464.
8140 2730
P40 2135
P4 2740
ONO02140
+C
S ..
. 0 o.
.... .. .. 10 06.
L
4
4k.
*C
ADATA
tDATA
44C
4,
Ac
.01679,
.01597,
C
DATA PHSPS9/
5.54850,
525.35000,
1.38725,
1.10400.
C
.20945,
C
.27970,
c
.0378,
.02289,
.00717,
.00653,
C
.01127,
C
.00922,
.01583,
c
M0839,
PHSFS9/
10.86983,
C
56.57000,
.80615.
C
1.05680,
.19167.
.23833t
C
.03126.
C
.04670,
.00765
.00850,
C
.01199.
c
.00973,
.04801,
C
.04421.
DATA PHSF6O/
14.69200.
C
37.27000,
1.2601120,
.13978.
c .19292,
.02568,
.01635,
.00569,
.00527.
C
.0051e.
.00511,
C
.00528.
C
.00527.
PIISP61/
24.610333,
14.20000.
1.38367.
C
2.03700,
.16947,
.11343.
C
C .01203.
.00726.
.00198.
C .00214,
C .001591.
.00153,
C
.00185,
.00209.
ATA P145102/
C 101.15266,
5.3965?.
.978%,.
c
1.13054.
.24639.
.32319,
C
.04423,
,02355a.
.00703,
.00715,
C
.01007,
.c
.O0u01.
.01204,
.01176,
DATA 9143763/
" "4.02600. 10,67620,
C 1.06302,
.85470,
.21070.
C
.26s96.
.042310.
.037id,
C
.00071,
C
.0047?,
C
01174,
.020
C .01377,
.0
D,
ATA PJA59044
C
34421023.
:2.06500,
C109054
.17230.
C 2111 .t'b.~.
gutv4.
405054,
.0tlu'
101210.
C
012241.
M0371,
o .09860.
0951
Sl.
o
DATA0n601/
.02321,
.08917/
3.30200,
.74203,
.t5915.
.01510.
.00661.
.01384.
.01491.
2.40225,
.52213.
.12258,
.01074,
.006900
.01888,
.02015/
4.30450,
.53590,
.15529,
.02128,
.00767.
.0623,
.05991.
2.32817.
.39175,
.12653,
.01493,
.00787,
.02446.
.06067/
6.79420.
.66076.
.10406.
.01116.
.00516.
.00528.
.00536,
3.81000.
.41350.
.07926,
.00922,
.00510,
.00537,
.00549/
5.06633.
5.35:67,
.43463.
.72373,
.05503.
.07807
.0031?.
.00455,
.0018?,
.00177.
.00150.
.00l5l.
.0016, 006/
3.28043.
.73370.
.18674.
.01609,
.00710,
.01030.
.01243.
1.60271,
.50023.
.14650.
.01102,
.00742.
.09076,
.01444,t
3.91160.
.60534.
1106136
.01l4,.
.009011
01145,
. 1628.01
3, 94380.
4.04132.
;41401.
2.91%93.
.48.
'it?.
.011144,
.01273,
.024163,
'01261,
.01417.
.61512,
162
.45,450.
.193048.
.01371.
.00110.
*0120g.
.om"94
6"1,
.014391
.0*73
P1402755
P1402760
1.79275. PHD 2765
.37803. P1402770
.08615. P1402775
.00837, PHU02780
.0071,l PHD 2765
.01743. P1402790
P1402795
P1402800
1.488:7 P9402905
.30123, P1102810
.07717. P9402915
.01091, PRO02820
.00840. P9402825
.03802, P1402830
P1403835
P4402940
2.39800. P1402845
.27594, P1402850
.04329. 91402055
.00657. P14028860
.00500. P1402965
.0053?, P1402870
PHO 26T5
P1402880
3.14833. 8%4028655
.26167. P1402890
.02512. P1402895
.0024?, 91402900
.00160. PHU029053
.00181. P1402910
P9402915
P1402920
1.32757. P1402'45
.42SL9. 99402930
.0762?, P1402S35
.0090t. "942940
.007971 994 2945
.04129, P1402950
P94O 215$
9*4029
1.42060. 9940 2905
.34"0, he4 1970
.0?149. 9940 2067
.0084*. 0k0 268o
.01014. Poo 3245
.021501 0903910
2181
PW4 3000
I.56550
"9 2005
tI,0440 3901
.074491 N0 ot30$
03020
.O#l
.01:30. 994) 3025
1091"j. 09*0 3030
PRO03035S
9403040
1.77586,
.25995,
.02794,
.00521,
.00464,
.00509,
PHSF56/
C
7.73378,
C
1.16389,
C
.26146,
.'2194,
C
C
.00314,
.00251,
C
C
.00268,
DATA PHSF67/
C
13.24333,
C
1.97200,
C
.19823,
C
.01789,
.00298,
C
C
.00265,
.00308,
C
DATA PHSF68/
C
37.10000,
C
1.45750,
.24170,
C
C
.02644,
C
.0046e,
.01124,
C
.01355,
C
DATA PHSr69/
C
256.51429,
.94431,
C
C
.22174,
C
.02848,
.00434,
C
C
.01636,
.01673,
C
DATA PHSF7O/
27.44667,
C
C
1.89500,
C
.17420t
.01785,
C
C
.00407,
C
.00359,
C
.00366,
END
'C
C
C
C
C
C
"DATA
1.36529,
.18501,
.01684,
.00476,
.00470,
.00498,
.84649,
.13442,
.01103,
.00465,
.00479,
.00479,
.55343,
.09951f
.00787,
.00460,
.00490,
.00491/
.37399,
.05039,
.00614,
.00460,
.00502,
6.31989,
1.51900,
.17967,
.01241,
.00278,
.00251,
.00274,
4.61211,
.93560.
.12618,
.00766,
.00267,
.00252,
.00268t
3.41189,
.59521,
.09038,
.00519,
.00259,
.00256,
.00273/
2.56922,
.38946,
.04241,
.00386,
.00254,
.00261,
'.1.06100,
1.37267,
.13693,
.01040,
.00273,
.00265,
.0319,
7.42300,
.75370,
.09689,
.00660,
.00268,
.00266,
ý00262,
4.70567,
.45857,
.07004,
.00460,
.00266,
.00270,
.00275/
1.98533.
.29573,
.03369.
.00351.
.0026',
.00282.
12.65667,
1.09982,
.17635,
.01502,
.00549t
.01140,
.01701,
5.63100,
.69772,
.13072,
.00935,
.00635t
.01090,
.01486,
3.16800,
.47462,
.09747,
.00640,
.00767,
.01055,
.02554/
2.05233,
.33515,
.04922,
.00503,
.00953,
.01125,
19.73571,
.72756,
.17010,
.01561,
.00493,
.01849,
.02178,
5.24714,
.50319,
.13151.
.00902,
.00535,
.01647,
.02754,
2.3077!,
.37583,
.10155,
.00592,
.00629,
.01539,
.05075/
1.36100,
.28504,
.05367,
.00443.
.00897,
.01496.
14.67667,
1.32600,
.11977,
,0111o ,
.00377,
.00360,
.00367,
7.63033,
.71323,
.08514,
,00766,
.00369,
.00361,
.00307,
4.46200,
.41983,
.06224,
.00573,
.00363,
.00363,
.00369/
2.82633,
.26377,
.03144,
.00466,
.00360,
.00365,
163
PHD 3050
PHD 3055
PH0 3060
PHD 3065
PHD 3070
PHD 3075
PHD 3080
PHD 3085
PHD 3090
PHD 3095
PHD 3100
PHD 3105
PHD 3110
PHD 3115
PHI13120
PHD 3125
PHO 3130
PHD 3135
PHD 3140
PHU 3145
PHD 3150
PHD 3155
PH0 3160
PHD 3165
PHD 3170
PHD 3175
PHD 3180
PHD 3185
PH0 3190
PHD 3195
PHD 3200
PH0 3205
PHD 3210
PHD 3215
PHU 3220
PHU 3225
PHD 3230
PHO 3235
PH0 3240
PH0 3245
PHD 3250
PH0 3255
PH0 3260
PHD 3285
P4D 3270
PH0 3275
PHO 3280
"Table 7.
Descriptions of Plot Program Subroutines
Page
No.
LOWPLT
AXISL
AXLOG
PLTDTA
IDRAW
MAIN DRIVER PROGRAM.
4 CONTROL CARDS.
READS
166
PLOTS A LABELED LINEAR AXIS.
PLOTS A LABELED LOGARITHMIC AXIS.
174
177
READS LOWTRAN DATA FROM TAPE 7.
DETE:1MINES WHICH VARLIBLE TO PLOT.
173
SETS UP DATA TO BE PLOTTED.
WHICH TYPE OF LINE TO PLOT.
180
DETERMINES
DASH2
PLOTS A DASHED LINE.
04
DOT
PLOTS A DOTTED LINE.
PLOTS A LINE WITH ALTERNATiNG
DASHES AND DOTS.
PLOTS A LINE WITH ALTERNATING
JDASH AND TWO DOTS.
181
DSHDOT
DSHDT2
164
183
182
Table 8.
Listing of LOWTRAN 6 Plot Code
Pages 165 to 184
165
*im"
PROGRAM LOWPLT(INPUT.OUTPUTTAPESmINPUT.TAPEGUOUTPUT,TAPF?,
1ITAPE3g)
CCC
CCC
"CCC
""
CCC
CCC
CCC
CCC
CCC
Cec
CCC
CCC
CCC
CCC
CCC
CCC
CCC
CCC
CCC
CCC
CCC
CCC
CCC
CCC
CCC
CCC
CCC
CCC
CCC
CCC
CCC
CCC
CCC
CCDC
*
****0*0
LOWTRAN SIX PLOT PROGRAM
*******....************
PROGRAM WRITTEN BY
FRANCIS X. KNEIZYS
JAMES H. CHETWYND JR.
LEONARD W. ABREU
ERIC P. SHETTLE
THE PLOT PROGRAM WILL PLOT SEVERAL FILES OF OUTPUT DATA FROM
TAPE 7 AS OUTPUT FROM STANDARD LOWTRAN SIX RUNS.
TO INITIATE PPOGPAM AN IDENTIF!CATION CARD OF 30 HOLERITH
CHARACTERS IS READ IN FOLLOWED BY TWO CARDS DEFINING THE
AXISWAVELENGTIISDELTA.LENGTH OF X AXIS AND Y AXIS AND
TYPE Or PLOT DESIRED.
THE FOURTH INPUT CARD IS READ IN SUBROUTINE PLTOTA
AND IT CONTROLS THE PLOTTING OF THE VARIOUS VARIABLES
OUTPUT BY LOWTRAN SIX
THE FIFTH INPUT CARD IS READ AFTER PLOTTING AND
AT DETERMINE WHETHER
S
PLOTTING ON THE SAME PLOT IS DESIRED
AND ALSO DETERMINES WHETHER TO REWIND AND PLOT THE SAME FILE
TO PLOT MULTIPLE FILEi FROM TAPE 7;
THE FOUR INPUT CARDS MUST BE INPUT FOR EACH FILE TO BE PLOTTED
TO END PLOYS:
SET XSIZEj4EGATIVE ON LAST INPUT CARD.
*
COMMON /DXDY/ DXADYPFRSEG.YRMINIXAXZIS.IYAXIS.PFRENDYRMAX.
C ITYPIVPVR.,EMSCT
DIMENSION PROOID(3)
DIMENSION ACROL(Q),ACAO2(8),ACR02A(8).ACRD2O(8).ACRD3C(g)
DIMENSION ACRO3(8),ACRO30(8),ACD3AI(8),ACD3A2(6).ACRD4(B)
DIMENSION DUWiY(8)
DIlENSION RADC(4).RADMI4),RAOCLG(3).RAOMLG(3).WAVL(2)
DIMENSION WAVN(2),TRAN(2)
DIMENSION CARDOtl).CARO2(S),CARD2A(2).CAR0DB(2),CARD3(3)
DIMENSION CARD3Q(3),CRO3AI(4),CRD3A2(5)
DATA RAOC/1OHRADIANCE(.IIONO
WATTS/,10HCM2-STfR-C.4H-t1)/
WATTS/.,OHCM-STER-M,4HUCI•ý'
DATA RADOM/OHRAOIANCE(I.IONO
DATA RAO•LR/tOHRAOAUNCE(W,IOHATTS/CM2-S,9HTER-CM-l)/
OATA RADMLO/IOHRADIANCE(W.tOMATTS/CM2-SOMTER-MICR)/
DATA WAVL/!oNWAVSLENOTH.)Of
(AICRON) I
(CM-I)
/
0ATA WAVN/l0HWAVENUMbLR,4OH
DATA ?RAN/0OHYAANSMWSTASkNCf/
DATA CARt/tO4l00DEL, IYPIOH
0E.,IE$TTMtO.Mi
3,IM.
5AL#/
IIOHNOPRT. TBO.3NII
DATA CA0O2/iOHINAZtISEA.lOHSN, IVULCA¢,IOICSTLz,|IB,
4 IVSAVIS.,IONNSSWHH.RA.4NtNRT/
DATA CARD2A/IOHCTf|I1ACALT,6H$,|SEO/
DATA CAA020/10MZCVSA.ZTVS.ISAAZINSA/
DATA CAAitDO/iQHl.H3.AWOLlO~tE,RA*UoI,SITA.ROoLEM/
SIIOH
16
V•
OPI/AFOL
OPI/AFGL
OPI/AFGL
OPA/AFGL
100
105
110
115
120
125
130
135
140
145
150
155
160
165
170
175
180
186
190
195
200
205
210
215
220
225
230
235
240
245
250
255
PLY 260
PLT 265
PLY 270
PLY 275
PLT 260
PLY 205
PLY 290
PLY 295
OLT 300
PLY 305
PLY 310
PLY 315
PLY 320
PLY 325
PLT 330
POt
335
PLT 340
PLY 345
PtT 350
PLY 355
PLY
M00
F.OT 303
PLT 370
PLY 376
PLT 330
PLT 365
fIT 3as0
PLT
PLT
PLT
PLT
PLT
PLY
PLY
PLY
PLT
PLT
PLT
PLT
PLT
PLY
PLT
PLT
LT
;LT
PLT
PLT
PLT
PLY
PLT
PLY
PLY
PLY
PLY
PLY
PLY
PLY
PLY
PLY
*CCC
kIEOF-0
CCC
(,,CC
CCC
CCC
CCC
CCC
CCC
CCC
CCC
CCIC
CCC
CCC
CCC
CCC
CCC
CCC
CCC
CCC
CCC
CCC
CCC
5
CCIC
CCC
Ccc
Cvc
ccC
CCC
Ccc
DATA CARO30/1OHHIP.YDP::IOHRH,WH.WO.R:4NANGE/
PLY
395
DATA CRD3A2/IQHPARMI ,PARM,ION2,P.ARM3,PA.IONRM4,TZMI&,P.
PLY
405
PLY
PLY
PLY
PLY
PLY
PLY
PLY
PLT
PLT
PLT
PLT
PLY
PLY
PLY
PLT
PLY
PLT
PLY
PLY
PLY
PLY
PLY
PLY
PLY
PLY
OLY
PLY
PLY
PLY
PLY
PLY
PLY
PLT
PLY
420
425
430
43S
440
445
450
455
460
469
470
475
40')
465
490
495
500
505
510
515
520
525
530
535
540
545
550
555
560
545
570
675
580
595
PLY
PLY
PLY
PLY
PLY
PLY
PLY
PLY
PLY
PLY
PLY
OLY
PLY
PLY
OLT
PLY
595
600
605
610
615
620
625
030
035
640
645
*s0
655
860
665
670
678
OLT
668
ITYP-O
ITYPSI
ITYPm2
ITYP-3
IXAXIS*0
*IXAXIS-1
IYAXISwO
IYAXIS.1
RADIANCE PER MICRON VS MICRONS
RADIANCE PER CM-I VS CM-I
TRANSMITTANCE VS MICRONS
TRANSMITTANCE VS CM-1
X-AXIS
X-AXIS
Y-AXIS
Y-AXIS
WILL
WILL
WILL
WILL
BE
BE
BE
BE
LINEAR
LOGIO
LINEAR
LOGIO
ISAMPYu0
IRPT-I
READ (5.80) (PROGID(I),ImI,3).SCALE
WRITE (6,85) (PROGID(I),I*;,3),SCALE
CALL PLTID3(PROG1D.900.O,I1.0,SCALE.4)
CALL PLOY(1.0.1.O,-3)
XSIZE.LENGTH OF X-AXIS IN INCHES
PPROEGaBEGINNZNG FREQUENCY ON PLOT IN CM-I OR MICRONS
PFRENDUENDING FREQUENCY ON PLOT IN CM-i ON MICRONS
DX*IP'REND-PFRSEG)/XSIZE
ADVuNO. OF DIVISIONS IN YEN INCHES OF PAPER
YRMIN AND YAMAX ARE LOGARITHMS BASE 10 OF MINIMUM AND MAXIMUM
RADIATION VALUES WHICH CAN BE PLOTTED
IN PLOTTING TRANSMITTANCE OR RADIANCE LINEARLY
YAMIN AND YRMAX BECOME THE LIMITING VALUES OF THE TAXIS.
NUMBER OF DECIMAL PLACES ON A LINEAR YAXAS
NAIYOEC SPECIFIES T141E
REWIND 7
READ (5,08) XSIZE.PPRSEG.PFREND,DELYAX,ITYPIXAXIS.NUMFIL
IF(XSIZE.LE.0.) GO 10 M~
WRITE (0.90) XSIlE.PFR8EG.GPFRENDO.ILTAX,ITYP.IXAXZS,NLUFZL
DX.( PFRENo-PFflS*.C)/XSIZE
ANUMMv PrREND-PFR59G)/OELTAX
NUMX&ANUMX* .5
DlILX4XSI1E/ANUMM
READ (5.89) YSIYE,YRMilNYWAAX,D8I.AY,ZCAV.IVAXS.iOVOEC
IF(DELTAY I.LE. 0.0) DELTAYwi.0
A0V &tYRMAX-YRMIN)/YSIZE
ANUMY. CYRMAX-VRI4IN)/OELTAY
NUMYPANUMY4,5
DIVLY*YStZE/ANUM3Y
WRITE 16.02) YIERNNYMKOTACVIASHY0CPLY
NUMFIL CONTROLS SPtC:FIU VIL4 NO, OF LOwYRANl TAPf 7 DATA
to BE PLOTTED.
cc If
IT WILL PLOY THE NEXT AVAILAML
NUVNFILO
If NUNFIL" It W*- PLOT FAGM TtaNIUMUNG. FILa
l$L.
SPICIfIlD 8IV
0 kUkFILLY,1) GO TO It
MIE OF DATA.
PLY
590
SNNF.1
REWIND
:
GO TO 12
PLY
PLY
PLY
690
695
700
READ (7,101) DUMMY
CONTINUE
READ (7,99) DUM
WO TO 11
PLY
PLY
PLT
PLY
710
71S
720
725
PLY
PLY
740
745
PLT
PLY
PLT
PLT
PLT
PLT
PLY
PLY
PLY
PLY
PLY
PLT
PLT
PLY
PLT
PLT
PLT
PLY
PLT
PLY
PLT
PLT
PLT
PLY
PLY
PLY
PLY
PLY
PLY
PLY
PLY
PLY
PLY
PLY
PLY
PLY
PLY
PLT
0?LT
PLY
PLY
OLT
PLY
PLY
PLY
750
755
760
765
770
775
780
785
790
795
800
805
810
815
820
825
030
835
840
045
850
85S
860
665
870
875
680
Bel
885
890
S25
900
901
910
915
920
925
930
035
940
945
a50
955
9o
07S
970
IF(NUMFIL. EQ.NNF)
D 9 I.,l'O
00
N
'IiNN.NF+
•'•IF(DUM.NE.-9999.)
11
I1
F(NUMFIL.EQ.NNF)
12
-
*
.,_
4
CCC
CCC
CCC
CCC
CCC
CCC
CCC
CCC
CCC
CCC
CCC
CCC
CCC
CCC
CCC
CCC
CCC
CCC
CCC
CCC
FLt
PLT
PLY
GO TO 12
GO TO 8
CONTINUE
THE LOWTRAN SIX PLOT PROGRAM EXPECTS TEN INPUT CARDS ON TAPE 7
WHICH WAS GENERATED FROM A LOWTRAN RUN.
THERE CAN BE SEVERAL SETS OF DATA AND INPUT CARDS SEPERATED BY
AN END OF FILE, WHICH IS CODED -9999. IN C01. 1-6
THE INPUT CARDS ARE AS LISTED IN THE LOWTRAN INSTRUCTIONS
THE MANDATORY CARDS OUTPUT TO TAPE 7 ARE
CARDICARD2,CARD2ACARD2B,CAR02C,CARD3. OR OPTIONAL CARD3
(MODELuO), CARD3AI.CARD3A2,CARD4 AND CARDS.
IN A GIVEN RUN SEVERAL OF THESE CARDS MAYNOT BE UTILIZED
IN THAT EVENT THEIR VARIABLES WILL BE REPRESENTED BY -99
IN THE OUTPUT DATA ON TAPE 7 DURING A NORkAL EMISSION RUN FOR
EXAMPLE SEVERAL OF THE VARIABLES ARE NOT UTILIZED IN THIS CASE
THEIR VARIABLES WILL BE REPRESENTED BY -99 ALSO.
READING AND WRITING INPUT CARDS TO THE PLOT
IF(ISAMPT.GTO) GO TO t3
READ (7,100) MODEL.ITYPE.IEMSCT,MiM2.M3,1NNOPRTTBOINDSALS
BACKSPACE 7
READ (7.101) ACROI
IF(IEMSCT.EQO) WRITE (6.102)
IC(jEMSC.EQ.t) WRITE (6.103)
IF(IEIASCT.EQ.2) WRITE (6,104)
IF(lEMSC-TfO.3)WRITE (5.105)
WRITE (6.100) MODEL.ITYPE.IEMSCT,MI2,M30,IMNOPUT,TSOOUOSALI
YTS?,0
T
CALL SYM6OL(XT,YT,0.12,CARO1O0.O,40)
YT*VT-O.2
CALL SVMBOL(XT VYT,0.12,ACROt.0.O*80)
READ (7,101)
ACRD2
WRITE (8.lOt) AGROC
YvýTY-O.4
CALL SYM8OL(XY,YT,0.12,CARD2.0.0,54)
VT.YT-.7
CALL SvmwOL(xT4YVO,012,AC402*O.O,&0)
READ (70,01)
ACRD02A
W'qtlt (60101) ACR02A
VY'.Y-0,4
CALL SV.WL(XT4YT,0.t2,CARO2A,.0,16)
CALL S•O|TY,~•AlDADOB)PLY
4(o
(•.%0l)
705
725
735
OLT 07%
ACRO26
1i
*%I%,N.'.%.'~~%
k>
WRITE (8,101) ACR02B
YToYT-0.4
CALL SYM8OL(XT,YT,0.12,CARD2B,0.0,1S)
YT.YT-0.2
CALL SYMBOL(XT,YT,0.12,ACRD2B,0.0.80)
READ (7,101 ) ACR02C
WRITE (8,101) ACR02C
YT.YT-0.4
CALL SYMBOL(XT,YT,0.12,8HM-.,TITIE,0.0,8)
YTYT-0.2
CALL SYMBOL(XT,YT,0.12,ACRU2C,0.0,80)
IF(MODEL.NE.0) READ (7,101 ) ACRD3
IF(MODEL.NE.0) WRITE (6,101) ACR03
IF(MODEL.EQ,0) READ (7,101 ) ACRD30
IF(MODEL.EQ.0) WRITE (6,101) ACRD30
YT*YT-0.4
IF(MODEL.NE.0) CALL SYMB0L(XT,YT,0.12,CARD3,O.0.29)
IF(MOOEL.EQ.0) CALL SYMBOL(XTYT,0.12,CARD30,0.0,24)
YT.YT-0.2
IF(MODEL.NE.0) CALL SYMBOL(XT,YT,0.12.ACRD3,0.0t80)
IF(MQlOEL.EQ.0) CALL SYM8OL(XT,YT,0.12,ACRO3O,0,0,80)
READ (7,101 ) ACD3Al
WRITE (8,101) ACD3Al
YTuYT-0.4
CALL SYMB0L(XT,YT,0.12.CRD3A1,0.0.21)
NYTuYT-0.2
51 up~ T0 PLOT
PIT 980
PLT 985
PIT 990
PIT 995
PIT 1000
PIT 1005
PIT 1010
PIT 1015
PIT 1020
PIT 1025
PIT 1030
PIT 1035
PIT 1040
PIT 1045
PLT 1050
PLY 1055
OIT 1060
PIT 106S
PIT 1070
PIT 1075
PIT 1080
PIT 1085
PIT 1090
PIT 1095
PIT 1100
PLYITM10
PLT 111
PLT 1ll3
PIT 1120
PIT 1126
PLY 1130
PIT 1135
PIT 1140
PLT 11450
PY15
PY15
PLY 1160
PLY 1165
PLY 1170
PLT 1175
PLT l160
PIT 1185
PVT 1190
PIT li195
PLT 1200
OLT 1205
OLT 1210
PL* 1215
PLY 1220
CALL
CALL
CALL
CALL
CALL
CALL
PL 13
PLY (235
OLT~~,S62
LT 1240
PLt 124S
PLY 1230
Ott 126S
CALL SyMB0L(XT0T,0.12,ACD3A1,0.0,80)
READ (7,101 ) AkCO3A2
WRITE (6,101) ACD3A2
YT.YT-0.4
CALL SYMOOL(XT.YT,0.12,CRD3A2.0.0,43)
VT.YT-0,2
CALL SYMG0I(XT,YT,0.12.AC03A2.0.0,80)
READ It,10l ) ACRD4
WRITE (6.101) ACRD4
YToYT-0.4
M~L SYM8OL(XT.VT,0.12,ONVIV2,0V,0.0,8)
YT*YT-0.2
CALL SVM8OLCXYVY,0.12.ACPO4.0,.0.0)
READ (7,500 )IRPT
OAiSAE7
)ACRO5
*EAD (7,501
W.IITE
(0140t) ACROS
YfaYT-0.4
CALL SYmUUL(Xf.YT,0,t2.4IIIRPT,0.0,4)
YY.VT-0.2
CALL SYU8OL(Xt,YT,0.il,AClkS05.0,5~)
CCC
CCC
Pt.0T(l8.0,0,0.-3)
PI0T(O,0,VSIZl.3)
PL0Y(XIZE.040,2)
PLOT(0.,0.,2)
L0T0?q,,YSllt.21
'ICALL
CCC
ccc
OLT
1280
PLY 1245
PL0Yt0.,~Y~ltU,)
sltiUP To P"A AXIS
OLT 1214
169
CCC
IYPWR.ALCOGI (DELTAY)
IF((ITYP.EQ.OQR.ITYP.6Q.1) .AND. IYAXIS.EQ.0) SFYO10...(-IYPWR)
NUMCX=PFREND-PFRBEG
CYCLX-XSIZE/FLOAT (NUMCX)
NUMCY-YRPJAX-YRMIN
CYCLY-YSIZE/FLOAT (NUMCY)
IF((ITYP.EQ.0.0R.ITYP.EQ.2) .AND. IXAXIS.EQ.o)
XCALL AXISL (0.0,0.0,WAVL,-20,NUMX,DIVLX,1,
X PFRBEG,OELTAX,1,0.,.125,1.0,0,0,0)
IF((ITYP.EQ.0.OR.ITYP.EQ.2) .AND. IXAXISEQ.i)
XCALL AXLOG(0.0,0.0,WAVL.-20.NUUCX.CYCLX,
X PFRBEG,0.O,0.125,1,0,0,0.0)
xF((1TYP.EQ,1.0R.ITYP.EQ.3) .AND. ?XAXIS.SQ.0)
XCALL AXISL(0.0,0,0,WAVN,-20,NUMX,DXVLX,t,
X pPRBEGOELTAX,-1,0.,.125,lO,0,0,0)
IF((ITYP.EQ.1.0R.ITYPEQ.3) .AND. IXAXIS.EQ.t)
XCALL AXLOG(0.0,0.0,WAVN,-20.NUMCXCYCL*.
X PFRBEG,0.0,0.125,1,0,0.0,0)
IF(ITYP.EQ.0 .AND. IYAXIS.EQ.0)
XCALL AXISL(0..0.,RAON,34,NUMY,
XOIVLY, 3,YRMIN4SFY,DELTAY.SFYNUYOEC,90.,0.15.t.1.0,0,0)
IF(ITYP.EQ.0 .AND. IYAXIS.EQ.1)
XCALL AXLOG(0., .0.*RAOMLG,29,NUMCYCYCLY.
x
YRMIN.90.,0.15,1.1.2.0,0)
IF(ITYP.EQ.1 .AND. IYAXIS.EQ.0)
XCALL AXISL(0. .0..RADC,34.NUtaY,
XDIVLY. 3.YRMAIN.SFY.OELTAY.SFY,NU'IOEC,90.,0.15.l.l.0,0,0)
IF(IYYP .EQ.1 .AND. ZYAXIS.EQ.I)
XCALL AXLOG(0.,0..RAACLG.29.NUMCY,CYCLV,
x
YRMI1N,90.,..15.10I,2.0.0)
1P((ITYP .EQ.2.0M.TYP E50.3) .AND. IYAXIS.Eg.0)
X CALL AXISL(0. ,0.,TRAN'.13.NUMY.OIVLY,2.YRMYN.OELYAY,
XAMYDEC.90.0,.J.12 .1.12,0,0)
IF((ITYP .EQ,2.OR.IYVP .EQ.3) .AND. IYAXIS.EQ.l)
x CALL AKLOGOC..0.,YRAN,13.NUMCYCYCLY.YRMIN,
X 90.0.-125.1.1,.0,00)
IV(IYYP EQ0.0 .AND. IYAXIS.EQ.0)
KCALL AXISL(X(SIZE,0..RADi,-34,
)INUMY, 0IVLf.3,YRII1N.SFYDELYAY.SFY.NMY0I(C,0Q.,.I5.1,.@.0,00)
IF(ITVP E.5. ,AND. IYAXIS.EQ,1)
ACALL AK0(S~,.RDL,2,UCPLY
I CVCLYVRYMIN,90. .15.1,1,2,0,0
IF(IYYP Es).1 *AND. IYAXIS.50.0)
MCALL AMS(SIE0.PO,34
XNUIAV, 0lVLY,3.YPUlNOSFY,05LYAY.SFY.IYYDtC.g0.,.15. 1 t,100,00)
itftlyvP
E.t. A*ND. IvAKISRQ.I)
PLY
1280
1265
1290
1295
1300
1305
1310
1315
1320
1325
1330
1335
1340
1345
1350
1355
1360
1385
1370
1375
1380
1385
1390
1305
1400
1405
1410
1415
1420
1425
1430
1435
1440
1"45
1450
1455
1486
1465
14470
PLY 1475
14160
PLY 1465
PLY t420
L 1425
OLT 1500
OLT 1505
XCALL AXLOOIKSIZS,0,,AAOCLG,-2l,iAJMCY,
XCYCLY.YRRIN,90,...l5.10,2,040)
tFI(IYYP .E0,2.QR.IIVP .fO.Si .AND. IYAXIS.50.0)
X CALL AXISL 5S12E5O.0,AN.l13,NIM.D4,VLY,2,YtIAlN,
PLY
PLY
PLY
PLT
IF1((ZYYP -10,2,OA.ITYP .10.3) .AND. IVAXES.gQ.1)
x C.ALL AL0tt01R,-3McVCCYI
X 90-04 125,.1.,0.0,0)
PLY Ms3
PLY 1540
PLY Ms4
KOLAY~~V0C,9,0,I25I,12.00)PLY
A!CCC
PLY 1275
PLY
PLY
PLT
PLY
PLY
PLT
PLT
PLY
PLY
PLY
PLY
PLY
PLY
PLY
PLY
PLT
PLY
PLY
PLY
PLY
PLY
PLY
PLY
PLY
PLY
PLY
PLY
PLY
PLY
PLY
PLY
PLY
PLY
PLY
PLY
PLY
PLY
PLY
WDAMtOUND KIAPIA fk5C040
At FILI
170
IS PLOT190 ON UK~ POW
1510
1515
1520
t525
I530
OLT I1(0
13
*CCC
14
16
CCC
CCC
*CCC
CCC
CCC
CCC
00 14 1n.110
READ (7,101) DUJMMY
WRITE (6,101) DUMMY
CONTINUE
CONYINUL.
READ IN DATA TO BE PLOTTED
ITRP CONTROLS THE PLOT OF TRANSMISSION VARIABLES
ITRPv0O PLOTS TOTAL TRANSMISSION
ITIP*I-7 PLOTS H2O.CO2AQZONE,2CONT.N2CNT.MOLSCTAERtTRN
XT.O.
b.CCC
CCC
CCC
CCC
CCC
CcC
CCC
CCC
CCC
CCC
CCC
CCC
CCC
CCC
Ccc
of
62
CCC
CCC
ýCCC
63.
64
6-3
6.
Go
C-CC
cc-C
SUBROUTINE PLYOTA is CALLED TO IMPLEMENT THE READING
IN AND PLOTTING OF TRANSMISSION AND OR EMISSION VALUES
FROM TAPE?.
CALL PLTOTA( ICRY, IEOF)
ISAMFLuC
ISANFLuI
NORMAL ADVANCE TO NEXT FILE
REWIND AND 0O TO SAME FILE
ISAMPYSO
NORMAL ADVANCE TO NEXT PLOT
ISAMPTuI
PLOY ON SAME PLOY
ISAMFL AND ISAMPY ARE SET TO HANDLE THE NEXT FILE Of DATA
TO SE PLOTTED.
READ (5,94) ISAMFL,ISAMPT
WRITE (6.94) ISAMFL.ISAHPY
IF(ISAMFL.07.O) G0 TO 63
IF(ISAMPTQT.0) GO TO 62
XT*XSIZE*2.0
CALL PLOT(XY,QO..-3)
CONITINUE
RECYCYCLE TO PLOT THE NEXT FILI Of DATA
GO TO 5
PLY
PL7
PLY
PLY
PLY
PLY
PLY
1570
1575
1580
1S58
1590
1595
1600
PLY 1605
PLY 1610
PLY
PLY
PLY
PLY
PLT
PLY
PLY
PLY
PLY
PLY
PLY
PLY
PLY
PLY
PLY
PLY
PLY
OLT
PLY
PLY
PLY
PLT
PLY
PLY
PLY
PKY
PLY
PLY
PLY
PLY
161S
1620
1625
1630
1635
1640
1645
1650
1655
16600
1665
1670
I6I5
1680
1685
1690
1695
1700
1705
1710
1715
1720
t725
1730
1735
1740
1745
1750
17SS
1790
PLY 1745
CON'INUE
111 IEOPNfi.t) 6O TO 64
REWINDOI
00 TO II
NEO~ul
REWIND 7
00 60 10.110
READ (7.141) DURMY -PLY
PLY 1770
PLY 1775
PLY 1710
PLY 1745
PLY 1190
OLT 1705
PLY 1600
1105
RE-AD (7.99) ouhl
PLY Isis
NIOF*ftEOP'1
PLY 161$5
IP(UMN.9S9~00 TO 57
IJ(EOP.EQMGoU) GO to fig
Go to as
IEOtalcor-1
00 106
PLOTTIl*
0V,2M GoO10
'4
PLY 1620
PLI 1130
PLY 1035
OLT 194
Ol
LT 1431
PLY t150
PLY 1613
CONTINUE
SCALL
PLOT(XT,0.O,-3)
!•999
CCC
CCC
"so
"85
a
98
89
90
92
94
99
100
101
102
103
104
105
500
501
"-
.80 FORMAT(3AIO,F1O.4)
FORMAT(IH,5X,3AA¶O,Fr0.4//)
FORMAT(4FI0.4,315)
FORMAT(FIO.4,3E10.2.315)
FORMAT(//4F10.4,315)
FORMAT(FIO.4,3E1o.2,315//)
FORMAT(215)
FORMAT(F?.0)
FORMAT(815,2F10.3)
FORMAT(SAIO)
FORMAT(IOX,14H TRANSMISSION II)
FORMAT(10X,IOH RADIANCE //)
FOOMAT(IOX,32H RADIANCE WITH SOLAR SCATTERING II)
FORMAT(1OX,25H DIRECT SOLAR IRRADIANCE ii)
FORMAT(15)
FORMAT(AS)
CALL ENDPLT
STOP
END
-.
•
I
PLT 1870
1865
PLT
172
PLT
PLT
PLT
PLT
PLY
PLT
PLT
PLT
PLT
PLT
PLT
PLT
PLT
PLT
PLT
PLT
PLT
PLT
PLT
PLT
PLT
1875
1880
1885
1890
1695
1900
1905
1910
1915
1920
1925
1930
1935
1940
1945
1946
1950
1955
1960
1985
97TO
CCC
CCC
CCC
CCC
CCC
CCC
CCC
CCC
CCC
CCC
CCC
CCC
CCC
CCC
CCC
UCC
CCC
CCC
CCC
CCC
CCC
CCC
CcC
CCC
SUBROUTINE PLTDTA(ICRV.IEOF)
ROUTINE TO READ TAPE7 EMISSIONS AND TRANSMISSIONS
AND PLOT VARIOUS VALUES.
ITRP-O PLOTS TOTAL TRANSMISSION
ITRP-t-7 PLOTS H20,CO2.OZONE,N2CONT,H2OCONTMOLSCT,AERTRN
ITRP-0-10 PLOTS UN03,AERASS OR INTEG. ASS
COMMON /DXDY/ 0X,ADYPFRBEGYRMIN,IXAXIS,IYAXIS,PFREND,1YRM,
C ITYP,IYPWJ,IEMSCT
DIMENSION RAD(40O)tV(40).TR•(10),RADVAL(9)
IRAD AND ITRP-O PLOTS TOTAL TRANSMITTANCE
IF IEMSCT-1
IRAD.I
PLOTS ATMOSPHERIC RADIANCE PER CM-1 VS CM-1
IRAD-2 PLOTS ATMOSPHERIC RADIANCE PER MICRONS VS MICRONS
IF IEMSCTw2
IRAOs1 TO 8 PLOTS ATMOSPHERICSCATTERED.REFLECTED AND TOTAL
RADIANCE PER CM-I VS CM-1 AND MICRONS VS MICRONS RESPECTIVELY
IF IEMSCTu3
IRAO.t TO 4 PLOTS TRANSMITTED SOLAR 1RRADIANCE AND INCIDENT
SOLAR IRRADIANCE PER CA-1 VS CM-I AND MICRONS VS, MICRONS
RESPECTIVELY
TRANSwO.
READ (5.94) IRADtTRP
WRITE (0.94) IRAD.ITRP
-
20
l
REAP (7.900) RAIN.CIRRUS
WRITE (6.900) RAINCIRRUS
IF(IEMSCT.DT.0) READ (7,1000) FREQ.ALAM.(RAOVAL(K),KSI,9).
ITRANS
IF(ItMSC?,EO.0) READ (7,1100) FREQ.ALAM.TRANS,(TRM(|),Z.1.IO)
!F{FREO.EQ.-Oo.) GO TO 50
CONTINUE
dvT'.j
•.
A
5
S•1
230
235
240
245
250
255
260
275
7TA 225
240
aes
20
.IF(jTRP .GT. 0) RAO(d).TRIM(IYRP)
-IFtTVP.(Q.Ii.ITYPt0.*) V(dJ).tQ
p(%ftj).LT.PrQvIG) GO TO 20
ITV(J).6V.PFRtNO) GO M0 20
if
•ANO.
.EI440,,TG
IRAD.OfO)
OAD)**RAOVAL(IRAO)
If(4ll
9
10
6 1* 42
OTA
PTA
OVA
OTA
OVA
OVA
M35
300
305
310
31S
395
OTA
400
OTA
44W
CtA
OtA
OVA
41s
420
4W
420
OVA
OVA
440
44
to 20
..
C -LOT
DATA
t ...
40
OTA
OTA
PTA
DtA
OTA
OTA
OTA
OTA
OT&
OVA
.
CCC
1"t
100
105
110
115
120
125
130
135
140
141
145
150
155
156
160
161
162
163
165
170
171
172
175
180
181
185
190
195
210
215
220
%JrNvaj
V(J)ýALAM
IFI|yap MEO. 0) RAO(J)*TRANS
•j*
Ccc
C-tC
OTA
OTA
PTA
OTA
DTA
OTA
OTA
OTA
PTA
PTA
OTA
OTA
DTA
OTA
OTA
OTA
OTA
DTA
OTA
OTA
PTA
PTA
OTA
OTA
DTA
OTA
OTA
OTA
OTA
OTA
OTA
C~COVA
!t
Of LIKE PLOTI
I'SCONtROLLEM SV Tt VALUE OP ICAV
AWAWO
SabQ0011#4N 01A0 CAPtA INS YtM U59 Of (C4V I 01W
VARIOUS yvols Of iLOtTEO t.Nis
CALL OAYAV(.M.ADJFmu.iCAV)
OTA
Oa
OVA
410
4)s
WRITE (6,2000) V(I).RAOOl),V(unaJ),RAOCJFKU)
00 TO GO
V(I )'V(399)
RAPI I)sRAO(399)
J302
GO TO 20
50
CONTINUE
IEOF IEOF4.I
JwY Ta%-1
JFNU-4-1
IP(JWT.LE.I) GO TO 60
00 TO 40
60
CONTINUE
94
FORMAT(8L5)
900
FORIAAT(2P9.4)
1000 FORMATCF7.0,P8.3,3E9.2,FS.4)
1100 FORM4AT(PT.0,FS.3,10F6.4.F12.4)
2000 FORMAT(2(PiO.3,E10.3))
RETURN
ENO
*IF(d.LT.399)
C
C
4%C
C
C
C
C
C
c
C
c
±C
C
C
C
C
C
C
C
C
c
C
C
o
0
C
C
4.
..
-.
jaiw
6
C
E' pn;A @".~lt
SYK
ISO
W9
Fo* A MAJlol DIVISIO
Ofl
tCIVtSALE IQMAW* OlSIA01uiOlS
C
-*." IUAGE
WMOE
3? supttt O&GE
DONECIMLOC0W0E,0
PS e T
C
C NOV40 EisL Ikemuo tIJP*DE
SI INC ovdBSAT (0.0E #Als O. 1.6 MaIS.v
C
C -HIH IS INSSSKtICllO SrtGIWU4G*4183
IN
TWHE014
N
C
C. LkR EQSA toC tRE
P WWII
RESSE
LO
tSALEL
WM4
uuLTIt~t1
C
L31N54) SP
iC
C C084/VIOT
2IIO.
tPQ%3
SAtM14WL
tWý
tl1C
I
450
455
460
465
470
475
480
485
490
495
500
605
510
515
520
525
530
535
540
545
SUBROUTINE AXISICK, Y. AGO. N. NUMOIV, OIVLEN. NUNSUS, 060141W,
AL ¶00
1 PELNIJS. NUNODEC. THETA. HEIGHT, NRPTNTURH
WOUND, LSUPR, LTURI4)AXL 105
AEL 110
WOIQ3IED VERSION OF ARISL
AWL 115
AWL 120
WRITTEN BY RICKARD L..TAYLOR
RAOC/ET
EEC
NOVEMBER ¶980
AWL 125
AXL 130
ROUTINE TO PLOY A LABELLED LINEAR AXIS
AWL 135
c
AXL 140
AWL 145
X AND Y ARE T141STARTING COORDINATES OF THE A"IS RELATIVE TO THE
MXL 150
AOL 155
CURRENT ORIGIN
MXL 169
AWL 165
3CC) IS TN! LABEL OF THE AXIS EAPRESSED AS A HOLLERITH CONSTANT
AXL ITO
AXL 175
N £5 THE HWUldER OF CHARACTERS IN 1141LABEL
AnL tob
MXL 13$
%ý4ýTIVE U PEACES TN! LABEL ON THE CLOCKWISE SIDE Of THE AXIS AWL 1999
AXL 195
POSITIVE N PLACES THE LASCL ON THE COUNTERCLOCKWISE MOE9
AWL 200
AWL 305
NUUOIV IS YOE NUS-SER Of MAJOR DIVISIONS
AWll 310
Alt, 215
OIVLEN IS THE LENGTH IN4INCHES Of A 0"f 0DIVISION
AWL 220
AWL 225
NUSSUS IS YOIENUbER Of MNOR
1 PIVISIONS PER v&'iR DIVISION
AWL 230
All *135
1 GIVES NO SUBDIVISION TICS, 3 GIVES ONE SUiOIVISION TIC, ETC. AlL 240
AWL 241
ISO"W IS THE NWOC 0EVFOTHE 3960ISRN OF THE AXIS
AWL 250
PELt
..
DTA
OTA
OTA
PTA
OTA
PTA
OTA
0Th
PTA
DTA
PTA
PTA
PTA
PTA
PTA
PTA
PTA
CTA
PTA
PTA
A41WI
o
AWL 320
AWL 345
AWL
AWL
AML
AWL
AOL
S2t)
353
236
300
370
AWL 316
A
4
AlL 335%
AOL 390
I"$1A
OIf44Yt"S
O4
c
334
.YMIN
COMMON /OXDY/ OXADYPFR8EG, YRMIN.IXAXs$.lAXIS, PFRENDYRMAX,
C ITYPIYPWR.IEMSCT
DIMENSION BCD(l)
THETA1-THETA-90.*NTURN
P -2. * ASIN(t.)
ANGLE * (P1/180.) 0 THETA
SINANG * SIN(ANGLE)
COSANG * COS(ANGLE)
SCGNAX * FLOAT(ISIGN(1,N))
SIZMAJ * 0.25 * HEIGHT + 0.05
OFFST-HEIGHT*1.5
OXMAJ - -SIZMAJ * SINANO * SIGNAX
OYMAJ - SIZMAJ * COSANG
$GNA'
S
OXMIN - 0.5 * DXMAJ
O
0.6
,
OYMAJ
NSUB - NUMSUB
.LT. 1) USUB % I
SUSDIV * DIVLEN / FLOAT(USUB)
SCOSIZ • 1.26 • NEZONT
SYIAS * (-0.50 + SIGN(i.25. SIGNAXI) * HIGHT
OYMAJ
NABS - IABS(N)
.CDLLN afFLOAT(NABS) - 0.4) *
S - DOVLEN % FLOATINUMUIV)
OIVCOS a OIVLEN * COSANG
DIVRI.N aDIVVLEN 0 SINANG
S
UMUu HEIGHT
"IP(NUMSUB
c C
C
C
--
~1YrIc
~AX).
C
ORA
DIVISION NUMBERS
NDIV * 0
NOXV,
OAAL
10
DIGITS a 0.0
XTIC
*
UtVC0S4FLOAT(NOIV)
V
DIvsIN*F).OAY(N0IV)
PF(NOPT ,E. 0)
0 TO 2G0
NSUPQ 0 U|V - (Nt|v/NAPT),NRPt
IF(14SUPR 3 .- . 0) GO TO 20
t(1trEN4 .10. 1 .04- QUO~ .90- 2)
ARO,
W~nV 14. 0)
U10 TO 20
ZF(tNOM .10,
.04. N0SP"
to0.3)
.AND, N01V .50k. NIMU~
GO To 20
I
0!VNUSINUv 0 CVOLUW*FW.AT(Rlttv)
IP(ASsioVUNUM)
.O. 10.01 DO,
IGTS *AL-AtIV
'iajN|
0IGITs a AINttO|G5 *M
* t.
'.Os
0912
-2)
1FlOIVNkw.'~
0.0) DIGMT * 0101yr
.
A1p1k14Av 014115 4 V0*~tW0MMOC) 4
0
iIM~
~
AXL
AXL
AXL
AXL
AXL
AXL
AXL
AXL
A1
IJIL
AXL
AXL
AXL
AUL
390
395
405
410
415
420
425
430
435
44P
445
450
455
460
AXL
AXL
AXL
AX)
AXL
AXL
AXL
AXL
AXL
AXL
AXL
AXL
AX)
470
475
480
485
490
495
500
505
510
515
520
530
525
$35
AXL
540
AX).
AXL
AX)
AXL.
AX)
AX)
AXL
AM).
AAL
AA.
450
050
$55
W0
A-6
570
515
500
545
5W0
5)
09
e00
AIL
A
U0S
6l1t0
AXL
X..§t
AX). US
x~lAst.
501
1TSWWA3.N50N
40 7)S
S•
SIAS)•-.*Si
A"
...
AA*CD,
-..
465
KAS*SAM
Ax).
AL
a44
W
JA
ON
4C
L
0
--
-
a-*
U
t
*
lF(S!ZNAX .LT.
30 CONTINUE
C
C
; C
.
TICWRAKS
TAM
CAlL
CALL PLOT(XTIC
~eCALL
SWIM" m 51D"
SLZ'0)
, YT?,
, 3)
C
C
4
3).
3)
"
"VIA•SI,
0.
MORSS .10. a)
lo~ks~o-Alt
nTU4tI
T
.g
C .YaAwIMiMSLICSN
Y.O4 YJAS#1 -*COA
ttliauscr.NE.3
sTo .04,
tP'IEI.
79.0
795
L
AXL
AXL,
MXL
605
010
8Dt
820
t
XRILAS.SINANG
Go00
to 55
C 191A,"5,1*S-A iG7St|ASI*C
AXL
AAL
ARIAS w 0.5'jS COLIN)
YvolS * (-0.50 *st,
l(3.3'. -'MAX))
*
190%
A - vUIL$*S)mNkft4 t ioAS.COsMG
VMS
L
AXL
"L
I.
R
765
4XL
AXL
AXL
KXL
LAMEL
lr.L.-upq .
AXL
AXL 770
AXL #75
Mi
780
MXL 785
M0"Axts
LXXL
0CL
700
705
?10
715
720
725
69"
AXI..740
AXL., 745
ALt 750
AXL 755
AXL 760
C
C€AX
C
SO CALL PLQT(XYfI,
YteC.
A*.PILOT(X. 7.ý 2)
C
C
YSTIC.OYNIN,
VSTIC. 3)
AXL
AXL
AXL
,C
XL
ALt 730
AXL. 73S
IF(NUMSUB .LE.
1) GO TO 40
DO 30 Jm2.NULSUS
SUlLEN ' SUO.IV.FLOAT(-1-t)
XSTIC
XTIC + SUBLEN * COSANG
YSTIC a YTIC + SUBLEN 0 SINANG
CALL PLOT(XSTIC.
30 CONTINUE
40 NOZY m NOYV *1
GOTo 10
690
AXL
AXL
PLOTlXTC+OXMAA. Yt1C.EwNA4.2)
IF(NOIV .EQ. KNIOW)
70
TO
CALL PLOT(XSTICODXMIN,
AXI,
ALi.
AML
ALi
L
LtL
ASL
0
800
825
630
835
140
$45
£50
35$
P60
75
680
US
690
495
101
LI*03
V,•O)SANOYOI
CALL SMhb
AOLIbS.005. 6=1h14 bCO. T'MjA1 WA$S)
.I~ftAG1..
1TO 000
.0
tej tfntoy.g ,O0 ta,i#LA§4.O) Go To so
M4A44tVPALt
zO*4'1fl'sý-o 10
t~tifl
AMt
800
Lii.
*01
gig
93%
*t. 930
ALt
L
ypsV45 1-3s-Al
t..M
"..
tLA L
-
948
SUBROUTINE AXLOG(X,
I
C
C
C
C
C
C
C
C
THETA,
HEIGHT.
WRITTEN BY RICHARD L.
Y,
BCD,
NRPT,
TAYLOR
N,
NUMCYC,
NTURN,
NOEND,
RAC/ET
CYCLENt
LSUPR,
EEC'
BEGEXP,
LAX
1O00
LTURN)
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
105
110
115
120
125
130
135
140
146
NOVEMBER 1980
ROUTINE TO PLOT A LABELLED LOGARITHMIC AXIS
C
LAX
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
LAX
155
160
165
170
LAX
LAX
LAX
LAX
N IS THE NUMBER OF CHARACTERS IN THE LABEL
LAX
LAX
NEGATIVE N PLACES THE LABEL ON THE CLOCKWISE SIDE OF THE AXIS LAX
LAX
POSITIVE N PLACES THE LABEL ON THE COUNTERCLOCKWISE SIDE
LAX
LAX
NUMCYC IS THE NUMBER OF CYCLES DESIRED
LAX
LAX
CYCLEN IS THE LENGTH OF ONE CYCLE IN INCHES
LAX
LAX
BEGEXP IS THE EXPONE.NT FOR THE BEGINNING OF THE AXIS
LAX
LAX
THETA IS THE ANGLE OF THE AXIS IN DEGREES (0.0 FOR X, 90.0 FOR Y) LAX
LAX
HEIGHT IS THE HEIGHT IN INCHES OF THE TENS
LAX
LAX
NRPT IS THE REPEAT FACTOR FOR THE SCALE NUMBERS (USUALLY INTEGER 1) LAX
LAX
WHEN NRPT IS ZERO THE SCALE NUMBERS WILL BE SUPPRESSE•;
LAX
LAX
WHEN NRPT a 2, EVERY 2ND SCALE NUMBER WILL BE PRODUCED;
LAX
LAX
WHEN NRPT - 3, EVERY 3RD SCALE NUMBER WIlL BE PRODUCED; 'ITC. LAX
LAX
NTURN EQUAL TO I TURNS THE AXIS NUMBERS BY 90 DEGREES CLOCKWISE,
LAX
-1 TURNS NUMBERS lY 90 DEGREES COUNTERCLOCK(WISE, 0 FOR NO TURNLAX
LAX
NOEND EQUAL TO I SUPPRESSES THE NUMBERS AT EITHER END OF THE AXIS,
LAX
LAX
NOEND EQUAL TO 2 SUPPRESSES ONLY THE STARTING NUMBER, AND NOENDLAX
LAX
EQUAL TO 3 SUPPRESSES ONLY THE ENDING NUMBER
LAX
LAX
LSUPR EQUAL TO I SUPPRESSES THE LABEL
LAX
LAX
LTURN EQUAL TO I TURNS THE LABEL BY 90 DEGREES CLOCKWISE,
LAX
-i TURNS LABEL BY 90 DEGRZES COUNTERCLOCKWISE, 0 FOR NO TURN LAX
LAX
LAX
COMMON/TITLOC/XPOS, YPOS
LAX
175
180
185
190
195
200
205
210
215
220
225
230
23U
240
245
250
255
260
265
270
275
280
265
290
295
300
305
310
315
320
325
330
335
340
345
350
355
360
365
370
375
380
385
390
X AND Y ARE THE STARTING COORDINATES OF THE AXIS RELATIVE
TO THE
CURRENT ORIGIN
BCD IS THE LABEL OF THE AXIS tXPRESSED AS A HOLLERITH CONSTANT
177
'N
150
LAX
LAX
LAX
COMMON /DXDY/ DX,ADY,PFRSEG,YRMIN,IXAXIS,IYAXIS,PFREND,YRMAX,
C ITYP,IYPWR,IEMSCT
DIMENSION BCD(l), SUBDIV(1O), DIVLOG(8)
DATA
DIVLOG / 0.301029995664, 0.477121254720, 0.602059991328,
1
0.698970004336, 0.778151250384, 0.845098040014,
2
0.903089986992, 0.954242509439/
THETAlTHETA-90.*NTURN
PT - 2. * ASIN(1.)
ANGLE - (PI/180.) * THETA
SINANG - SIN(ANGLE)
COSANG - COS(ANGLE)
SIGNAX
--
- FLOAT(ISIGN(1,
t
k
*
C
C
C
C
C
N))
SIZMAJ - 0.25 * HEIGHT + 0.05
OFFST-HEIGHT1i.5
DXMAJ - -SIZMAJ * SINANG * SIGNAX
DYMAJ - SIZMAJ * COSANG * SIGNAX
DXMIN - 0.5 * DXMAJ
DYMIN a 0.5 * DYMAJ
6CDS:Z - 1.25 * HEIGHT
ENLARGwI.5
EXOSIZ - 0.60 * HEIGHT *ENLARG
NABS - IABS(N)
BCDLEN - (FLOAT(NABS) - 0.4) * BCDSIZ
S - CYCLEN * FLOAT(NUMCYC)
NUMTIC a 2 -MIN1(1.0, CICLEN)
NUMLOG - 8 / NUMTIC
XBIAS - 1.85*HEIGHT *ENLARG
YBIAS m 0.70*HEIGHT *ENLARG
EXPSX - -YBIAS*S!NANG + XBIAS*COSANG
EXPBY - YBIAS*COSANG + XBIAS*SINANG
IF (NTURN .Eq. 0) GO TO 5
EXPOX - XBIAS * SINANG + YBIAS o COSANG
EXPBY - YBIAS s SINANG - XBIAS * COSANG
5 DO 10 1-2,9
SUBOIV(I) - DIVLUG(I-1)*CYCLEN
10 CONTINUE
NNUM9
NUMCYC + I
StZMAX , EXPSIZ
EXP - BKGEXP
00 20 Im1,NNUMB
DIGITS - 0.0
IF.A6$(EXP) .GE. 10.0) DIGITS - ALOGIO( ABS(EXP)
OIQ•l'
w AINT(DIGITS + 1.OF-12) + 0.7
I(EXP .LT. 0.0)
DIl(ITS - DIGITS + 1.0
SIZNUM - DIGITS * EXPSIZ
IF(SIZMAK *LT. SIZNUM)
SIZMAX * SIZNUM
20 EXP - EXP + 1.0
SIZNUM * SIZMAX + 2.04HVIGHT
DRAW CYCLE NUMBERS AND EXPONENTS
NCYCLE - 0
EXP u BEGEXP
.XIAS * -O.74MEIGHT
YBIAS v (-0.50 + SIGN(1.25,
XSIASI 0.
YBIAS *0.
SIGNAX))
A..
178
* HEIGHT
)
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
391
392
395
400
405
410
415
420
425
430
435
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
445
450
455
460
465
470
475
480
485
490
495.
500
505
510
515
520
525
530
535
540
545
550
555
560
565
570
575
560
585
590
595
600
6U5
610
615
620
625
630
635
640
645
650
65i
6S0
Of,($
67,
675
LAX
440
IF(NTURN.EQ.O) GO TO 25
XBIASI-XBIAS+HEIGFiT*0.5
Y8IASI YBIAS1-OFFST-SIZNUM
IF(N.LT.0) YBIAS1 . YBIAS+OFFST
TENBX - -YBIAS*SINANG + XBIAS*CCSANG
25
C +YBIASI*SINANG - XBIASI*COSANG
TENBY - YBIAS*CPSANG + XBIAS*SINANG
C -YBIASI*COSANG -X8IASI*SINANG
30 XTIC a X + FLOAT(NCYCLE)*CYCLEN*COSANG
YTIC - Y + FLOAT(NCYCLE)*CYCLEN*SINANG
IF(NRPT .EO. 0) GO TO 40
NSUPR - NCYCLE - (NCYCLE/NRPT)*NRPT
IF(NSUPR .NE. 0) GO TO 40
,AND.
NCYCLE .EQ. 0)
NOEND .EQ. 2)
IF((NOENO .EQ. 1 .OR.
I
GO TO 40
IF((NOEND .EQ. 1 .OR.
NOEND .EQ. 3)
.AND.
NCYCLE .EQ. NUMCYC)
GO TO 40
1
XPOS - XTIC + TENBX
YPOS * YTIC + TENBY
CALL SYMBOL(XPOS, YPOS, HEIGHT, 2H10, THETAI, 2)
CALL NUMBER((XPOS+EXPBX), (YPOS+EXPBY), EXPSIZ, EXP. THETA1, -1)
40 CONTINUE
C
C
DRAW TIC MARKS
C
C
C
, 3)
, YTIC
CALL PLOT(XTIC
YTIC+CYMAiJ 2)
CALL PLOT(XTIC+DXMAJ,
GO TO 70
IF(NCYCLE .EQ. NUMCYC)
IF(NRPT ,LT. 0) GO TO 60
DO 50 ILOG=1,NUMLOG
S. ILOGONUMTIC + I/NUMTIC
XLOG - XTIC + SUBOIV(I)*COSANG
YLOG - YTIC + SUBDIV(I)*SINANG
CALL PLOT(XLOG+OXMIN, YLOGeDYMIN, 3)
CALL PLOT(XLOG, YLOG, 2)
50 CONTINUE
60 NCYCLE w NCYCLE + 1
EXP - EXP + 1.0
00 TO 30
C
C
C
DRAW AXIS
C
C
70 CALL PLOT(XTIC, YTIC, 3)
CALL PLOT(X, Y, 2)
C
C
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
680
685
690
695
700
705
710
715
720
725
730
735
740
745
750
755
760
705
770
775
780
705
790
795
800
805
810
815
820
825
830
835
840
845
850
855
860
865
870
875
880
885
890
895
900
905
910
915
920
925
C
LAX
935
LAX
LAX
LAX
LAX
LAX
LaX
L.X
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
LAX
945
950
955
960
905
970
975
980
985
990
995
1000
1005
1010
1011
1012
1013
1014
1015
1016
1017
1018
1020
1025
C
DRAW LABEL
LAX
LAX
C
IF(LSUPR ,EQ. I
XBIAS - 0.5*(S YBIAS a (-0.50 +
THETA2 a THETA XBIAS2m0.
OFFST*HEIOHTe2.5
NABS .EQ. 0)
,OR.
BCOLEN)
SIGNO3.25 SIGNAX))
9g. 0 LTU*N
RETURN
* BCOSIZ
YBIA52m -SIZNUM-OFFST
IF (N .LT,
0) YBIAS2*OFFST
IF (LTURN .EQ. 0) 00 TO 80
XBIAS2 - XB/AS -O.5.(S-HEIGHT)
SO XPOS a X - YUIAS*SINANG + XBIASOCOSANG
C +YBIAS2*SINANG - XBIAS2*COSANG
YPOS a Y + YBIASOCOSANG + XBIAS*SINANG
C -YBIAS2*COSANG -XBIAS2*SINANG
IF(IEMSCT.NE.3 ,OR. ITYP.GT.l) GO TO 80
IF(THETA.EQ.0.0) GO TO 85
YPOS-YPOS-0.375
IP(N.Lr.0) CALL SYM8OL.((XPOS+0.5,)YPOSBCOSIz,2HIR,THETA2,2)
IF(N.GT.O) CALL SYMBOL(XPOS,YPOS,BCOSIZ,2HIRTHETA2,2)
YPOSvYPOS+O.375
85 CON'INUE
IF(K'.LT.0) CALL SYMBOL((XPOS+0.5).YPOS,OCDSIZBCD,THETA2,NABS)
IF(N.GT.0) CALL SYMBOL(XPOS, YPOS, BCOSIZ. BCD, TNEA2, NABS)
RETURN
EN0
930
940
LAX 1030
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
SDIMENSION
"SUBROUTINE DRAW(X,Y,NPT,ICURVE)
DRW
ORW
ORW
X - XARRAY TO BE PLOTTED
DRW
Y * YARRAY TO BE PLOTTED
DRW
NPT * NUMBER OF POINTS TO BE PLOTTED
ORW
ICURVE INDICATES THE TYPE OF CURVE DRAWN
DRW
ICURVE - I SOLID LINE WITHOUT SYMBOLS
ORW
ICURVE - 2 DASHED LINE WITHOUT SYMBOLS
DRW
ICURVE - 3 DOTTED LINE WITHOUT SYMBOLS
ORW
ICURVE a 4 ALTERNATING DASHES & DOTS WITHOUT SYMBOLS
DRW
ICURVE v 5 ALTERNATING UASHES & 2 DOTS WITHOUT SYMBOLS
DRW
ICURVE . 6 TO 10 SAME AS I TO 5 WITH SYMBOLS AT EVERY POINT
DRW
THE SYMBOL CHOSEN IN THIS PROGRAM IS NO. 2 OF
ORW
THE LIST OF SYMBOLS AVAILABLE IN THE. CALCOMP SYSTEM
DRW
ICURVE .GT. 10 ALTERNATING DASHES OF DIFFERENT LENGTHS
DRW
(THE ONES' DIGIT)*O.1 INCHES WITH (THE TENS' DIGIT)*O.1 INCDRW
ICURVE .LT.
0 DATA POINTS ONLY,
WITH ABS(ICURVE) a SYMBOL NUMBDRW
DAM
COMMON /DXDY/
DXDY, XMIN,YMIN, LOGLNX,LOGLNY, XMAXVL,YMAXVL
DRW
X(NPT), Y(NPT), XT(1OO)t YT(100)
DRAWS DIFFERENT KINDS OF CURVES FOR
DATA KSYM,
KT - KSYM
CCC
CCC
CCC
IF(ICURVE .LE.
-1)
1.
0.05/
KT a -ICURVE
200
205
210
ORW
215
DRW
IF ICURVE IS INPUT AS 0 RESET TO 1 TO PLOT LINE
C
ORW
ORW
END
220
:RW
225
DRW
230
IF(ICURVE.EQ.O) ICURVE-I
PLOT THE X, Y PAIRS IN GROUPS OF 100 POINTS
NEXT - I
LAST - NEXT + 99
IF(LAST .LE. NPT) N - 100
IF(LAST .GT. NPT) N . NPT - NEXT + I
IF(LAST .GT. NPT) LAST a NPT
RETURN
100
105
110
115
120
125
130
135
140
145
150
155
160
165
170
175
180
185
190
195
DRW
DRW
DRW
DRW
DRW
ORW
DRW
ORW
DRW
DRW
C
DRW
DO 10 M - NEXTLAST
DRW
I1 M + 1 - NEXT
ORW
C
IF DOING LOG OR SEMI-LOG PLOTY
CONVERT X AND/OR Y TO LOG(X)
ORW
IF( LOGLNX .EQ. 0) XT(U) - X(M)
DAW
IF( LOGLNX .EQ. 1 .AND. X(M) .GT, 0.) XT(I) g ALOGIO(X(M))
DRW
IF( LOGLNX .EQ. I .AND. X(M) .LE. 0.) XT(I) a XMIN
DAW
IF( ,OGLNY .EQ. 0) YT(I) - Y(M)
DRW
IF( LOGLNY .EQ. I AND. Y(M) .GT. 0.) YT(I) w ALOGIO(Y(M))
DRW
IF( LOGLNY .EQ. I .AND. Y(M) .LE. 0.) YT(I) a YMIN
DRW
6
IF X OR Y OUTSIDE OF PLOT FORCE TO NEAREST EDGE OF PLOT ORW
IF(XT(I) .LT.
XMIN) XT(I) v XMIN
DRW
IF(XT(I) .GT. XMAXVL) XT(I) a XMAXVL
ORM
IF(YT(I) .GT, YMAXVL ) YT(I) w YMAXVL
DRW
IF(YT(I) .LT. YMIN ) YT(I) a YMIN
ORW
10 CONTINUE
ORW
c
CHOOSE TYPE OF CURVE PLOTTED DEPENDING ON ICURVE
DRW
IF(ICURYE .LE,-I) CALL LINE (XTYT,Nt,-tKT,XMIN,OX,YMIN,DYSIZ) ORW
IF(ICURVE .EQ.
I) CALL LINE (XTYT,N,I,OKTXMIN,DXYMIN,DY,,0O)
DRW
IF(ICURVE .EQ. 2)CALL DASH2(XT,YT,N,i,0,KT,XMINOX,YMIN,DY,.1,I,1)DRW
IF(ICURVE .EQ. 3) CALL O0T(XTYTNt,OKT,XMIN,DX,YMIN,DY,.o0)
DRW
IF(ICURVE .EQ. 4)CALL DSHOOT(XT,YT,Ntl,0,KTXMIN,DX,YMIN,DY,.08)
DRW
IF(ICURVE .EO. S)CALL OSHDT2(XTYT.N,I,0.,TXMINDX,YMZNODY,.0)
DRW
IF( ICURVE *EQ. 6) CALL LINE(XT,YT,N,I,dKT,XMINDXYMIN,OY,
SIZ)
DRW
IF(ICURVE .EQ.?)CALL DASH2(XT.YT,N,t.JKT.XA4IN.DX,YMINDVSIZ.i.IlnAW
IF(ICURVE EQ, 8) CALL DOt(XTYT,N,1,JKTXMINDXYMINDY, SUZ)
ORW
IF(ICURVE EQ. 9)CALL DSHDDT(XT,YTN,1,JKT,XMINDX,YMZNDY, SIZ) DRW
IF(ICURVE .EQ, IO)CALL DSHDT2(XT 1 YTNt,J,KT,XMINDX,YMIN,DYSIZ) DRW
IF(ICURVE .LE. 10) GO TO 20
ORW
c
FOR ICURVE 0GT. 10,
DETERMINE LENGTH OF DASHES
DRW
LDASHI a ICURVE/IO
ORD
LDASHU - ICURVE-IOOLOASHI
DRW
CALL DASH2(KT,YT,N,IO,OXMIN,DX,YMIN,DY,,OB,LDASHILDASN2)
ORW
20 CONTINUE
DRW
NEXT a LAST
DAM
IF(LAST ,LT. NPTJ GO TO 5
DPW
c
.
J, SIZ/2.
Y VS X
235
240
245
250
255
260
265
270
275
280
285
290
295
300
305
310
315
320
325
330
335
340
345
350
355
360
365
370
375
330
385
390
395
400
405
410
415
420
425
430
435
440
445
450
455
DAW 460
180
SUBROUTINE DOT(X,Y,N,K.NUMSYM,JSYMXMIN,DX.YUIN,DY,SYMSZE)
CCC
CCC
CCC
10
20
150
200
250
40
300
DRAWS A DOTTED LINE
DIMENSION X(N),Y(N),XD(200),YD(200)
COMMON/XXDYYD/XD,YD
DATA ISYMB,NUMDOT,DOTSIZDOTLEFN/5, -1, 0.03, 0.09/
IF (NUMSYM .LT. 0) 00 TO 250
XDOT - DX * DOTLEN
YOOT - DY * DOTLEN
RESID - DOTLEN
MB a K+i
00 200 1 a MBtN.K
XLEN - (X(I)-X(I-K))/OX
YLEN a (Y(I) - Y(I-K))/DY
SLEN - SQRT(XLEN **2 + YLEN *02)
IF(SLEN .LE. 0.) GO TO 200
TLEN - SLEN + RESID
NDOT - 0
IF ( TLEN ,LT. DOTLEN ) GO TO 150
NDOT
INT(TLEN / DOTLEN)
XSTEP • XDOT * XLEN/SLEN
YSTEP a YDOT a YLEN/SLEN
SS - 1, - RESID/DOTLEN
YO(I) - SS * YSTEP + Y(I-K)
XD(1) - SS * XSTEP + X(I-K)
IF ( NDOT .LT. 2 ) GO TO 20
DO 10 J a 2,NDO1
XD(J) a XD(J-i) + XSTEP
YO(J) - YO(J-1) + YSTEP
CONTINUE
CONTINUE
CALL LINE (XDYONOOT,INUMOOTISYMB,XMINDX,YMIN,DYDOTSIZ)
RESID a TLEN - NDOT 0 DOTLEN
CONTINUE
CONTINUE
IF(NUMSYM .EQ.
0) GO 10 300
IF(NUNtSYM .LT. 0) NUMSYM - IABS(NUMSYM)
00 40 MN - I.NNUMSYM
CALL SYMDOL((X(MN)-XNIN)/DX.(Y(MN)-YMIN)/OYSYMSZEJSYM,0.0,-t)
CONTINUE
•
CONTINUE
RETURN
END
181
P,
OT
DT
DT
DT
0T
DT
DT
OT
OT
DT
OT
OT
0T
D?
DT
OT
DT
DT
OT
OT
OT
DT
OT
DT
OT
OT
OT
DT
OT
OT
DT
DT
0?
OT
DT
DT
OT
OT
DT
DT
DT
OT
100
105
110
115
120
125
130
135
140
145
150
155
160
165
170
175
180
185
190
195
200
205
210
215
220
225
230
235
240
245
250
255
260
265
270
275
280
285
290
295
300
305
810
315
CCC
CCC
CCC
STLEN
SUBROUTINE DSHDT2(X,Y,N,KNUMSYUJSYM,XMIN,OX.YMIN,DYSYMSZE)
DRAWS A LINE WITH ALTERNATING DASH AND 2 DOTS
DIMENSION X(N),Y(N),XO(20O),YD(200)
COMMON/XXDYYD/XDYo
DATA DOTLEN/0.09/
KPT - 0
IF (NUMSYM .LT. 0) GO TO 250
XDOT - OX * DOTLEN
YDOT a DY * DOTLEN
RESID a DOTLEN
MG a Kel
DO 200 1 a MB.NK
XLEN • (X(I)-X(I-K))/DX
YLEN - (Y(I) - Y(I-K))/DY
SLEN - SQRT(XLEN **2 + YLEN **2)
IF(SLEN .LE. 0.) GO TO 200
• SLEN + RESID
NDOT a 0
IF ( TLEN .LT. DOTLEN ) GO TO 150
NDOT
tNT(TLEN / DOTLEN)
XSTEP * XOOT * XLEN/SLEN
YSTEP a YDOT * YLEN/SLEN
SS - 1. - RESID/DOTLEN
YO(1) * SS * YSTEP * Y(I-K)
XOD() * SS * XSTEP + X(I-K)
IF ( NOOT .LT. 2 ) 00 TO 20
00 tO J a 2.NDOT
XD(J) a XO(J-1) + XSTEP
YOM() - YD(J-1) * YSTEP
10 CONTINUE
20 CONTINUE
DO 30 Lw iNDOT
KPT a KPT + 1
IF(KPT .EQ. 1) CALL PLOTA(XD(L)-XMIN)/OX,(YO(L)-YMIN)/DY,3)
IF(KPT .EQ. 5) CALL PLOT((XD(L)-XMIN)/oDX(YO(L)-YMIN)/DY,2)
IF(KPT .EQ. 6)
+CALL SYMBOL((XD(L)-XMIN)/DX,(YD(L)-YMIN)/DY,.03,5,0.O,-I)
IF(KPT .EQ. 7)
+CALL SYMBOL((XDOL)-XMIN)/DX,(YD(L)-VMIN)/DY,.03,5,0,O,-I)
IF(KPT .EQ. 7) KPT a 0
30
CONTINUE
IF(KPT G0E. I .AND. KPT .LE.4)
+CALL PLOT((X(I)-XMIN)/DX,(Y(I)-YMIN)/OY,2)
0I0 RESID a TLEfJ - NOOT * DOTLEN
200 CONTINUE
250
CONTINUE
IP(NUMSYM .EQ. 0) Go TO 300
IF(NUMSYM .LT. 0) NUMSYM 0 IABS(NUMSYM)
00 40 MN a 1,N,NUMSYM
40
300
CALL SYMBOL((X(MN)-XMIN)/0X
CONTINUE
CONTINUE
RETURN
END
, (V(MN)-VMIN)/CaY.SYuSZE,JSVM,0.O,-I)
A
182
002
002
0D2
OD2
DD2
002
002
0D2
0D2
002
0D2
D02
100
105
110
115
120
125
130
135
140
145
150
155
D02
165
002
0D2
002
DD2
002
002
002
002
002
002
002
002
D02
D02
002
002
002
002
002
D02
002
OD2
0D2
002
D02
002
002
002
002
D02
175
180
185
19I
195
200
205
210
215
220
225
230
235
240
245
250
255
260
265
270
275
280
285
290
295
300
305
310
315
320
325
330
335
340
345
0D2
002
002
002
002
002
OD2
002
002
002
002
D02
002
160
170
350
355
380
365
370
375
SUBROUTINE DSN4OT(X,Y.NK,NUMSYMJSYM,XMIN.DX,YMIN,DY.SYMSZE)
Ccc
CCC
CCC
DRAWS A I.INE WITH ALTERNATING DASHES AND DOTS
DIMENSION X(N),Y(N).XD(200),YD(20O)
COMMON/XXDYYD/XD.YD
DATA DOTLEN/0.09/
KPT " 0
IF (NUMSYM .LT. 0) GO TO 250
XOOT - OX s DOTLEN
YOOT - DY * DOTLEN
RESID a DOTLEN
MS - K+I
DO 200 1 - MBN.K
XLEN v (X(C)-X(I-K))/DX
YLEN v (Y(I) - Y(I-K))/DY
SLEN v SQRT(XLEN 4.2 + YLEN '.2)
IF(SLEN .LE. 0.) GO TO 200
TLEN a SLEN + RESID
NHOT - 0
IF ( TLEN .LT. DOTLEN ) GO TO 150
NDOT a INT(TLEN / DOTLEN)
XSTEP - XDOT * XLEN/SLEN
YSTEP a VOOT * YLEN/SLEN
SS " 1. - RESID/DOTLEN
YO(l) a SS * YSTEP + Y(I-K)
X0(1) a SS s XSTEP + X(I-K)
IF ( NDOT ,LT. 2 ) GO TO 20
00 10 J a 2,NDOT
XD(J) a XD(d-1) + XSTEP
YD(U) - YO(q-1) * YSTEP
10 CONTINUE
20 CONTINUE
DO 30 L - 1.NDOT
KPT a KPI + I
IF(KPT .EQ. 1) CALL PLOT((X0(L)-XMIN)/DX,(Y0(L)-YMIN)/DY,3)
IF(KPT .EQ. 3) CALL PLOT((XD(L)-XMIN)/DX,(YO(L)-YMIN)/DY.2)
tFJKPT 4EQ, 4)
+CALL SYMBL((XD(L)-XMIN)/DX,(YD(L)-YMIN)/DY,.03,5,0.0,-I)
IF(KPI .EQ. 4) KPT a 0
CONTINUE
30
IF(KPT Gf5.I .ANO, KPT ,LE.2)
+CALL PLOT((X(I)-XMIN)/OX.(Y(I)-YMIN)/OY,2)
150 RESOD a TLEN - HOOT # DOTLEN
200 CONTINUE
250
CONTINUE
IP(NUM$YM .EQ. 0) GO TO 300
IF(NUMSYM .LT. 0) NUMSYM a IAS8(NUMSVM)
Do 40 tAN - I NNUMSYM
CALL SYM5OL((X(MN)-XNIN)/DX.(Y(MN)-YMIN)/DY.SYMSZEJSYM,0.01-i)
CONTINUE
40
CONTINUE
300
RETURN
END
183
N
DHD 100
0*4 105
ONO 110
0*0 115
OOD 120
O0 125
00 130
0NO 135
0*D 140
0O40 145
00 150
0HD 155
OHD 160
0HD 165
OHD 170
00 175
*O4 160
ONO 188
0HD 190
0HD 495
04
200
ONO 205
O*4
210
DHD 215
0*4 220
DHD 225
0HD 230
OHD 235
OD 240
O04 245
04
250
255
04
OO 260
0NO 265
00 270
OHD 275
OO 280
O0O 285
O00 290
ONO 295
OD 300
OO 305
O04 310
0NO 315
04
320
OHD 325
OHD 330
00 335
ONO 340
OO 345
0*40 350
OHD 355
ON0 360
0*40 365
SUBROUTINE DASH2(XY.N,K,NUMSYM.JSYMXMIN,0XYMINDYSYKSZE,
DH2
100
VARIABLE LENGTH DASH ROUTINE
DH2
10
DIMENSION
X(N),Y(N),XD(200),YD(200)
COMMON/XXDYYD/XD,YD
D)12
130
DH2
DH2
D42
DH2
DH2
DH2
OD2
D1M2
OH2
DH2
DH2
OH2
DH2
OH2
DH2
DP2
W2
DH2
DH2
DM2
DH2
DM2
DH2
DH2
DM2
DH2
DM2
DH2
DM2
DM2
OD2
DH2
OM2
DM2
DH2
D142
DH2
DH2
DM2
OH2
DM2
OH2
D12
DH2
DH2
DH2
OD2
DH2
OH2
DH2
DH2
OH2
135
140
145
150
155
160
165
170
175
180
t85
190
195
200
205
210
215
220
225
230
235
240
245
250
255
260
265
270
275
280
285
290
295
300
305
310
315
320
325
330
335
340
345
350
355
360
365
370
375
310
345
ýLDASHI,LDASH2)
CCe
CCC
Ccc
DH2
OH2
OH2
DATA DOTLEN/O.1/
KPT = 0
IF (NUMSYM *LT. 0) GO TO 250
Ml
I + LDASHI
MS2 - Ml + I
M2 - MS2 + LDASH2
XDOT
DX * DOTLEN
D
YDOT - DY * DOTLEN
RESID - DOTLEN
MB - K+I
Do 200 1 - MB,NK
XLEN - (X(I)-X(I-K))/DX
YLEN = (Y(I) - Y(I-K))/DY
SLEN - SQRT(XLEN -*2 + YLEN *02)
IF(SLEN .LE. 0.) GO TO 200
TLEN a SLEN + RESID
NOOT - 0
IF ( TLEN .LT.
DOTLEN ) GO TO 150
NOOT = INT(TLEN / DOTLEN)
XSTEP
XDOT * XLEN/SLEN
A
YSTEP
YOOT * YLEN/SLEN
Y
SS - I. - RESID/DOTLEN
YO(1) - SS # YSTEP + Y(I-K)
XO(1) a SS * XSTEP + X(Z-K)
IF ( NOOT .LT.
2 ) Go TO 20
DO 10 d - 2,NDOT
XD(JW a XD(J-l) . XSTEP
YD(d) a YO(d-J)
4 YSTEP
10 CONTINUE
20 CONTINUE
00 30 L * 1,NOOT
KPT a KPT +1
IF(KPT .EQ. 1) CALL. PLOT((XD(L)-XMIN)/oX.(YD(L)-YMIN)/DY,3)
IF(KPT ,EQ..,Ml-) CALL PLOT((XD(L)-XMIN)/DXtY0(L)-YMIN)/DY,2)
IF(KPT ,EQ. MS2) CALL PLOT((XD(L)-XMIN)/DX,(YD(L)-YMIN)/DYS)
IF(KPT *EQ. M2 ) CALL PLOT((XD(L)-XMIN)/DX,(YO(L)-YMIN)/Y,.)
IF(KPT E. M2) KPT v 0
30
CONTINUE
IFPCPT .CL•,I ,AND. KPT .LT. MI)
+CALL PLOT{(X(()-XMIN)/OX,(Y(i)-YMzN)/0Y,2ý
IF(KPT .GE, MS2 -AND. KPT *LT. M2)
*CALL PLOT((XtI)-XMIN)/OX,(Y(I)-YMIN)/0V,2)
150 RESID a TLEN - MOOT * DOTLEN
200 CONTINUE
260
CONTINUE
IF(NUhtSYM .EQ. 0) GO TO 300
IF(NUMSYM
LT, 0) NUMSYM a IABS(NUMSYM)
DO 40 MN a 1,NNUMSYM
CALL SYMBOL((X(MN)-XMIN)/DX.(Y(IAN)-YMIN)/0YSYMSZEJSYM.0.0,-l)
40
CONTINUE
300
CONTINUE
AITURN
END
DH2
d442
184
105
110
120
125
290
338
Table 9.
Description of LOWTRAN Filter Programs Subroutines
Page
No.
LOWFIL
WAVEN
0%
BRACK
INTLOG
MAIN DRIVER PROGRAM. READS CONTROL
CARDS AND TAPE7 OUTPUT FROM LOWTRAN.
FUNCTION VS WAVENUMBER (CM-)
FINDS THE LOWTRAN WAVENUMBERS,
WHICH BRACKET THE SYSTEM RESPONSE
FUNCTION.
INTERPOLATES A PAIR OF VECTORS
F(I) = f(x ) AND X(I) = x. 1 = 1 2 ... N,
TO A NEV SET OF COO&DINATES
FNEW (J)
= f(x!)
j= 1,2,...M.
BIGFIL
& XNEW (J)
195
196
x
195
INTRAD
ROUTINE TO FIND THE MAXIMUM VALUE
OF THE SYSTEM RESPONSE FUNCTIONS.
INTEGRATES THE EMITTED OR SCATTERED
RADIANCE FROM LOWTRAN TIMES THE
SYSTEM RESPONSE FUNCTION.
BLKBDY
WEIGHTS THE SYSTEM RESPONSE FUNCTION
INTGRT
BY A BLACKBODY RADIANCE.
FINDS THE AVERAGE VALUE OF THE
TRANSMITTANCE FROM LOWTRAN WEIGHTED
BY THE SYSTEM RESPONSE FUNCTION.
COMBT
188
CHANGES A SYSTEM RESPONSE FUNCTION
VS WAVELENGTH (pm) TO A RESP9NSE
194
194
196
194
FINDS THE WEIGHTUD AVERAGE TRANSMITTANCE
DUE TO WATER VAPOR (BOTH BJAND-TYPL'AND
CONTINUUM COMBINED) AND ALL THE OTHER
GASES COMBINED.
185
196
'.
Table 10.
Listing of LDWTRAN 6 Filter Function Code
Pages 187 to 196
4.•
:'Se
U14
'18
PROGRAM LOWFIL(INPUT,OUTPUTTAPEUINPyPJT.TAPEOGCUTPUT,TAPET)
C
C
C
C
C
C
C
C
C
C
C
LONTRAN 6 FILTER FUNCTION PROGRAM
PROGRAM WRITTEN BY
ERIC P SHETTLE
JOHN 0 WISE
LEONARD W A5REU
C-----ILTER
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
C
1.)
FUNCTION CONTROL INPUTS-------------------.-----.
CARD I NF,NEM.IFT.TEMP,IPRINTNLOW (315, F1O.2, 215)
NF - NUM8ER OF FILTERS (I5)
IF NF > 0 REAO IN NF FILTERS (NF<.15)
IF NF w 0 USE PRECEDING FILTERS AND LOWTRANOUTPUT, WITH
OPTION TO CHANGE BLACKBOOY TEMPERATURE.
IF(NF < o) STOP FILTER PROGRAM
NEW w OPTION TO USE SAME LOWTRAN DATA SET FOR NEAT FILTERGiNO, IUYES--REWINDS LOWTRAN FILE (I5)
IFT a OPTION TO ENTER BLACKBODY TEMPERATURE
DiNO BLACKRODY. l*FOLD IN BLACKBoOY TEMPERATURE (15)
TEMP - BLACKBODY TEMPERATURE IN DEGREES KELVIN (P10.2)
IPRINT . DATA PRINT CONTROL (15)
IF IPRINT?@.0. PRINT LOMTRAN TRANSMITTANCES AND INFO
BELOW
IF IPRI•W
S., PRINT FILTER FUNCTION WITH GLACKUGOY
FUNCTION FOLDED IN.
IF IPRINT<S, ONLY PRINT FINAL TRANSMITTANCES.
NLOW a NUMBER Of LOWTRAN FILES TO BE READ (15)
REPEAT CARDS 2 AND 3 NF TIMES
2.) CARD 2 IOFItNOOEl.IFWV,NW (2A10. 315)
IOFIL w FILTER IOENTIFICATION 2A30)
KODE a FILTER NUMBER (15)
IFPV a OPTION TO CONVERT FROM WAVELENGTH TO W&VENUMERO*YES, t*ND JIS)
kw
NU4MBER
OF WAVELENGTHS FOR THE FILTER (IS) t"Wcalg)
C
C
C
C
C
C
OPA/AFGL
OPA/AFGL
OPI/AFGL
C!-.-.-
3.) CARD 3 (WAVE(I). fF(I), I1,NW) (FREE FORULT-AS MANY CAMA
AS NEIO0O fOp Nv WAVELENGTHS)
WAVt * WAVELtNGTH OR WAVENUMSER
PF v CURRESPONDING FILTER FUNCTION
#ROtIAM ASSUS 0ELT1R FUNCTION INPUTS ARE ON TAPES AND
LO"TRA11OUTPUT FILES ARE ON TAPE?.
---------
-
---.3................
DIM
IVF(1).
0
%ION IV"IIS), i)
MF(IS),
O1IVNSIO.N SIOFI(1$),TRRDNDC9(.
OWSO
NVLtIS)
OIMENS101 IOFILLSl5). KOMI($5). FPVV(OS).
olMEStION Nm(ot)
DIMENSIO f#1lI(500), TRNRD(9•t,)
DIMENSION ACND2A020),AOD2O(20),ACRD2C(O).ACO3AI(20).ACO3A2(20)
C0iO./ /WAVE(80.1S).
F0440,15), QST(SOO.t0),V*UtSO).ALAM(s0o)
C0M*0N/AVMjVIST0POIP.RAKGE
I PEAW(M,93C) NP, NEW, IFT. TEMP. IPRINT. NLOW
WRITE
(6to15) Nf, NEW, IFT. TEMP. |IPINY. kLoM
IFAMP .0i. 0) NOIL
NF
PFi
FIL
FP1
FiL
Fit
Fit
Fit
Fit
FIL
Fi1
FIL
FIL
100
105
110
115
120
125
130
135
140
145
150
155
Fi
160
Fi1
FiP
FiL
FIL
Fit
FiP
V:L
P11
FPL
Fit
fit
FP1
FiP
F11
Fi1
FP1
FlP
Fit
P1i
Fi1
Fi1
ek
ft
Fi1
pit
PIL
165
tO
175
180
185
190
195
200
205
210
216
220
225
230
235
240
245
250
255
260
265
2TO
2735
280
25s
290
Fil
Pfi
FIt
FIP
OIL
FP3
300
305
310
315
320
325
Il
:30
OIL
P31
Fi1
340
346
Pit
pit
FIL
P3L
fIt,
P21
Fit
PFi
350
366
360
365
370
376
350
3U5
Fit
340
340
ZF(NF .EQ.
tF(NF .LT.
c
0) GO TO 140
0) 00 TO 801
00 120 L-i.NFIL
READ(S,920) (IOFIL(IL).Ias,5), KODE(L), IFWV(L), NW(L)
NY - NW(L)
RE.AD(5,*) (WAVE(K,L), FF(K,L), KmlNT)
IF(IFWV(L).EQ.1) 00 TO 50
WRITE (6,930)
(IDFIL(1,L). 1-1,5). KOOE(L), IFWV(L). NW(L),
(AVE(K,L)
AL
FFAKK.L). K(L,NT)
C
c
C
-
S•c
CRNVERT
FROM WAVELENGTH TO
NECESSARY
IF
REVERSE ORDER OF FILTER FUNCTION•S KAVENLI)ER
C
,-
CALL WAVENlWAVE(I.L),
S50
CON IINUEFi
WRITE
C
AND WAVEgNI4ERS TO
COMPATIBLE WITH LOWTRAN.
(6,940)
,
Ki
FF(I.L),NT)
(IDFIL(I,L),
!01,5).
KOOE(L),
tFWV(L).
Nil(L)t
*(WAVE(K.L),
FF(KL), Kw1.NY)
120 CONTINUE
IF NEW GE I USE PRECEDINGALOWTUAN DATA READ,
140 IP(NEW .-G. 1) REWIND 7
C
C
*.'..**...*
C
C
C
O
READ IN LOQWRAN DATA FILE
READ LOWTVAN HEADER CARDS
READ IN LOWTRAN DATA FILE FROM TAPE--WAVENUMO.R VS
TRANSMITTANCE FOR THE NINE UOLECULAR AND AEROSOL O•UoNENIS
00 400 KK*t.NLOW
c
WRITE (6,945)
READ (7.050) MDOEL.lITVPE,IEMSCT.t.M2,F3. (VNOPRT.TIOUNO.SALI
WRITE 46.950) MODEL.ITYPEIEMSCT.M1,M2,W3,IM.NOPRTTSNDSAL#
RIAO (7.952)
•]*V|S.bSSIHHAINT
NRITE (5.952) IHAZE. IEASk,IVULK.lAmt!. 1CT•
R. vA.
*VIS.Wio4•$.,AINH•i
READ (7,254) ACQ02A
WAITE (0.254) ACU02A
READ
Mos96t) AC6RO2
.%SITE1 (6.9541 AC0024)
.i
REAM
(0.0-4) ACR2eC
WRITE (6,uS4) ACRO0O
IF(-MOEL.NM.0) READ (?,956)
IfPt(ODILNEO) WRITE (,3S3) btH2,MANOLE,A*NG,#ETA.RO,LIM
IFINODILtcQ.0) 11CA0 (7.2i
N1. P.1.004
v0.W"V.sAspit
.P(,-lO1L..g•.o)
*
WRITE (6.SO) rn.PsT.0p,..€
URI~"
% 0541 AcD3&
READ
MUM62
* READ
-- m
395
400
405
410
415
420
425
430
435
440
445
450
Fit
FIt
455
400
465
Fit
470
Fit
45
480
FP1 485
FiP 490
Fit 495
FP1 500
Fi1 505
FsOse*400@***404*4*44
P31
510
F11 51S
Fit
520
Fi
52S
Fi1 530
FiL 535
PFit 540
FiL 545
Fit
550
FitL 555
P11 560
FHAtIEASAIVULCN.ICSIL,|CIR,IVSA,
P1F. 565
FItL
?70
t31 575
Fit15600
Ilt SOS
OIL
590
SOS
9
F11 600
PIt. 605
P|i
iNt.H0.ERacEuITA,1.6N
610
ilL 415
11. 6.20
#iL 18S
PAL 430
PAL. M1
Fit 040
fit. 048
(6."0) V1.V0.0V
(6,96.g#0t
vlt.v3ov
fit. M8
Fi
481
140,t
READ (7,W~31 R41N.CIQRUS
All * tNTW(2 - VWDY0) 4 1
; P#INIi.~l0Go)
00 10 '45
IF(ItM•STf.Q.O) UNT?
fb
.W%..O.Rmi
READ (7.054) AC03AI
woItt 06.954) ACOIAI
REIAD (,.954)
AC03AI
FIL
FiL
FiL
Fi
Fi1
F11.
FiL
Fi
FiP
FPt
FiL
FPt
Fit
PIt.
PAIN.CIMUS
P11
Fil
PAIL
FIP
40
470
Vs5
"a
4
IF(IEMSCT.GT.0) WRITE
145 CONTI1RUE
00 15C.
IF(IEMiSCT.EQ.O) READ
IF(TE41SCT.GT.0) READ0
IF(ZPRINT .LT. 10) Go
IF(IEIISCf.EQ.0) WRITE
IF(IEMSCT.OT.0) WRITE
150 CONTINUE
~J1,NP
¶C
I
FiL 690
FiL 605
FiL 700
(7.964) VKUMJ) ALAM(d).
P
FATJ.)IiO)
705
(7.966) VNU(%J), ALAM{.))
RT(,1I.,O
FiL 710
TO 130
FiL 71
(6,965) VNU(J), ALAM(J). (RST(.i,Z),1*l,9 )Fit
720
(6.967) "W(,J), ALAM(d), RIqZu,0
FiL 725
FiL 730
?iL 735
,745
F:iI
TIS PAR
C
OFTEPOGAVOLLOSOE
NT
C
BR7
EC
FTHL)TAN
INPUT
FUNCTIONFO
CAL
IMPRINT.
Wt
5.
O.It..IL()
NVL
UCIN
C~
CALI40(FltWVO
C
Fit
Fi.
y
IA.L
34Is. NVL(4
O
7
605
fit* 820A
VNUJI). VMJI IA)
Fit.
INEPLT IN.
I NPUT
,LFIt'LTE FUCINRSVSST
c
5
Ft
E.5)
*WIE(6.97)
i
FILTE770WNR~eNES
.nRN
WAVENUMSRSý
tV.WkCI.)
to a IL~(lL?,)
I
(6,969) RAIN.CIRRUS
I?
it
25
-3
~.44
t-RNIVNMUS
~
Fit44
.M.FL.VJt)
V()
i
ik45
IF(IPRINT.GE.5 -AND. IFT.EO.i) WRITE (a.975)
IF(IPRINT.GE.5 .AND. IFT.EQ.1)
ýWRITE (6,976) (VNU(M),FILr(M-?A.1).RST(MA.IE).U.IA,15)
INTGRT(PELI.RST(IA.1O),NVLIL).TRNAO(9.L))
thCALL
260 CONTINUE
c INEGRAE
TE PAH ROIANE.SATTEED ADIAJ4CE.REFLECT90 RADIANCE
970
975
980
985
FiL
995
JI
1
010
CALL 1?4TRAD(FILT.RST(ZA.1).NVL(L).DV.TRNRO(Z.L))
TRRONO(I.)TNDIL/IFL
FiL t03O
1
01
CAL NTGRT(FLT.RST(IA.l0).HVLCL).-7RNAV(O,U))
00 TO 290
Fit. 1089
FiL 1070
FiL 1010
c
C
FiL
FIL
FiL
FiL
c
N4EV3ATE ALL MOLECULES
FiL 1020
OIL 1095
RASIfAC
WATERV)
Fit. 1105
CTL4I4.YMI1
0
IF
f
"
*~QA*
CALL
iiMz.
U.
~L
l WRITE (6.97,5
~.VF~L.
~ IA,~ATV~
*(fI-Q~
Lt.RST(1&At.
WY
i
w4jk,
i.12
IA$V)Fit.
t~xNR0(l.L))
1133
F7
it. 1140
pit. tim
011."11~
R(IL.110
11t. 1175
')L)tit;
~t-ILN.9010) WAItt
I
It'
N(1O.L)
160t*)
fit 1140
**A1N*cIRIWs
vis, IH,
F.
3A$V
~l(U.AAs
OIL. 1190
M0110
04,
tit. 1221
,It
#It 122s
9*11 . (4~~j~
045i
1
WVRE 16,100fit12
4'WMt
~.)VITC
(0,944) tP00,00.1k)
I(Q)#&.I*.0)
t~*I
do To 30
*Oitft
(6.601 fPW&1I.t)
"101
fi
ls
OIL. lass
P11 IMU
290 qONTINUE
(6,988)
IF(MODEL.EQ.0) WRITE (6.986) VISTOP,P,RAHGETEMP,
*YRNRD(IL),TRNRD(3,L),TRNRO(5,L),TRNRD(7,L).TRNRD(9,L),
*,
KOOE(L). (IOPIL(IL).I1 ,5)
SITE
IF(MODEL.NE.0) WRITE (6,987) VIsTEMP,TRNRO(1,L).TRNRD(3,L),
.4
TRNRO(ý.L),TANR047,L),TRN4O(gL),KOOE(L),(IOFIL(IL)-Iu1,5)
WRITE (6,989)
IF(MODEL.EQ.O) WRITE (6,996) TRRONO(lL),TRRONO(3.L).TRRDNO(SL),
S÷TRRDNO(7,L)
-=
F(MODEL.NE.O)
WRITE (6,997)
TRRONqO(tL),TNRDON(3,L),TRRDOo(5,L),
-TIRRNO(T-L)
300 CONTINUE
C
C
C
TEST FOR ENP-OF-FLE.
0 SEPARATES FILES WITH A -9999.
CODE IN THE
C LOWTRAN
FIST WOD(F7.0)
FOLLOWING THE LAST RECORD
Of DATA OUTPUT.
C
READ (7.999) DUR
IF (DUM.EQ.-S999.)
c
FPL
FIL
FIL
FP1
FIL
FiL
1290
1295
1300
1305
1310
1ý310
FIL
Fit
FIL
F1L
Fit
1320
1325
1330
1335
1340
FIt
1350
FIL 135S
GO TO 400
FIL 1360
1365
1370
1375
1380
Fit 1385
FIL
FIL
FiL
F3L
ý:ONTIWUE
STOP
-FIL
801
ORMA!(!/INO,2X,12N
C -
1285
1270.
1275
1200
1285
Ft1345
310 WRITE (6,998)
STOP
400 CONTINUE
90 TO1
C
FIL
FtL
FIL
FIL
P11
Fit 1390
139.5
I
FNL 1400
ORKATS ¢OXo5HFILYD,3XtIFWV
gi0 "FORIOT(315, F10.2. 215)
915 F6RMAT.(21H1 NUMOER OF ',ILTEASs , If,. 2X, 4NNEW-: 15. 2X. 4HIfTw.
.*MM .2X.
HTEMPIRATUREO.
f104., 2x. ?Hl0RINT-.I5,2X.6H9L-ltm, |
920 FOKMAT(SA4. 315)
93'1 FORMAT!//lHO.2X.12,4 F14YTR NAME.IOX,5HFtLT#,•M,"IFWV
NiW.
+j2X,5A4.2X,315,-'.9(1•l4 WAVEL
FF )/9(V0.3,F6.2))
FpMAT(2x,i2N rILIER NAME.10?X,5•4•ILTf,2X,8H1FWV
•WO,
./2•.8A4,23•.35/1•,9 1 14N WAVEK
PP )/9(FS.1.F6.2))
94S PORM~AY(//1#4O,2.0(NS,
22H LOW[TRA*$ CONTROL DAIA
Fit
.FIL
Fit
FIL
FIL
FIL
1405
1410
141S
i420
1425
100
FIL 1435
FIL 1440
FP1 1445
Ft 40o
94!
,I
9%0 TO1WAT(.b1,2F.3)
952 FOqMAT(6IS,4Pf0.3)
gS FOWIAT(2oA4)
FIc 1480
FiL 1465
FIL 1470
$00
FiL 14•5
Fit 1400
Fit 14905
950 rOOMAI(8P10,3,I5)
958~Fit.
95b fOlmAT(3FiO,3,2F•.iý,2IO.3,#IO.3)
P11. 14?S
1410
OIL 1480
R*?AI(3f10.3)
002 FORMAT ( t )
"93
FPoPmW(2.O,4)
964 F0PiT(2f.0.FV.3,9F9.4)
988 FUJRP7,0O.S.9E92.30.1
4)O.
OIL 1505
•I.)
961
8 F0AMUAT(/8X.42H LIRAU TAPE 7 nUTPUT
I
IAANSMWSSIGN CAMA.
/3X.s4T wAvtN
WAVEL
YOT TAi
MH20
C02o
443H N2 COST "2~0 CCNY 1101SCt 490t;U1
HN.O3 /)
9CG FOAMTft/,42M ýI0ARAN 4&P0 1 OUYPUV
tM|S1ION CASE
+/2X.5ZH WAV(N
WAMF1
*61
00 REPI9F
!IA,;)1A44C1
EUITRO 1ADIANCE
YCIAL RA01AKS.
192
03
!
F~A?.,PE0~P1~4
it. 1015
Fit 1520
,
,
CATRRAMAMINCI
INS0OXL.
OIL 1530
*IL 1114
'IL 1540
PIt. 1545
OfPt).
1530
FIL ibil
c9
ZI
viq
S+
+101 TOT TRANS/)
13,
970 FORMAT(//18X,30HSUMMARY OF CALCULATIONS WITH ,7HFtLTEmE,
+ 2X, 12HFILTER NAME , 5A4/)
2X,
315,
NVL-,
IVL,
15H4
IVF,
072 FORMAT(2X,
+24HLOWTRAN WAVENUMBERS FROM, F10.2, 2X, 2HTO, F10.2.
+ /30X,41HFILTER RESPONSES AND TOTAL TRANSMITTANCES/)
975 FORMAT(/30X,42HFILTER RESPONSES WITH BLACKBODY EMtSSIVITY/)
975 FORMAT( IX, 5(25HWAVE
RESP
T
,ox), /
5(F7.0, 1PE9.2, OPF?.3,3X))
TRANSMITTANCES,
AVERAGE
WEIGHTED
SENSOR
977 FORMAT(//36X,39H
.9H OZONE
C02
H20 BAND ,9H
+/21X.9HTOT TRANS,12H
+2X,9H N2 CONT ,2X,NHH20 CONT ,9H MOL SCT ,2X,9HAER TRANS,
)
+9H HN03
978 FORMAT(21H CONSTITUENT TRANS.*, 9(13, iX, F5.3,1H.))
4,TMGAw , F6.3,4X,7HTRAINu ,J6.3,
F6.3, 4X,
980 FORMAT(2X, 7H T2TOD9,
+ 4X.9HTCIRRUSm ,J6.3)
OP
P
RANGE S8TEMP ,
9a2 FORMAT(/41N
VIS
T
NAME, /,
+32HTTOT TH20 TGAS TAER FILT#
F6.0, FPO.3, F6.0, 2FS.3,lX,2F5.3, IS, 5A4)
+F5.1, 2F6,.,
NAMEr/,
BSTEMP TTOT TH20 TGAS TAER FILTO
VIS
983 FORMAT(/49H
+3X.F5.1,IX.PF.0,4F5.3,IX,15.5A4)
*6TEMP,
RANGE
P
OP
T
VIS
FORMAT(/41H
904
NAME,
+32H EMIT RAD TOT TRNS FILTO
*/,FS.1,2F6.1,F6.0,FIO.3.F6.O,IPEIO.3.OPFIO.3.lSSA4)
NAME,
OBTEMP EMIT RAD TOT TRNS FILTO
985 FORMAT(/45H VIS
N/,FS.I,IX,FP.O,tPEIO.3.OPFIO.3,65,5A4)
RANGE OBTEMP,
P
OP
T
VIS
986 FORMAT(411H
TOT TRNS FILTm
+62H EMIT RAO SCAT RAO REFL RAD TOT RAD
÷/.F5.1 ,276.$,F6;O.,1O.3.F6.D.1P4E10.3,0PFtO.3,I5,5A4)
5STEMP,
987 FORMATI/13H VIS
TOT TRNS FIATI
REFP kAD TOT RAI
EMIT R0D SCtT RAO
+/,F$.IIX,F .P,,lP4F10.3.OPFIO.3.15,:3A4)
9886FORAT(//OX,38H SENSO WEIGHTED WNtEGRATED RADIANCES )
959 PORMAT(//16rP.32H ri1.TIR NCRVALIZEO RAOIANCES)
994 FOR)Al(/41XSH EMIT RAO,/,4AX,•PEIO.3)
896 FQR%:AT(/16X,9H EMIT RAO,/ la3Xllij.3)
TOr *AO,
9.6 FPOMAY(/41X.39H EMI! RAD SCAT RAD REFL RAO
÷/,41x.,P4E10.3)
TOT RAO,
P.7 FORW4A(/,12X,+9H EMWTRAD SCAT PAD AORF RAO
1/,t2., 1P4010.3)
*8993 FORMAT(36H EUPIOP--&ND OF FILE NOT ENCOUNTERE)
FORMAT(FlO)
END
"402H
V
.
"Q09
153
FIL
FPL
FIL
FIL
FIL
FIL
FiL
FiL
FPL
Fit
FPIL
FiL
Fit
FiL
Fit
FiP
Fi
FPL
FPL
Fit
Fit
pit
FiP
Fit
FPt
FPt
FiP
NAME.1FIL
fik
Fil
b9,FIL
Fit
P1k
FIL
FiP
Fit
FIL
FIl
fi
FIl
FiL
FP1
Fi.
1556
1560
1565
1570
1675
1580
1585
1590
1595
1600
1605
1610
1615
1620
1625
1630
1635
1640
1645
1650
1655
1660
1665
1670
1675
I400
1585
1690
1695
1700
1705
17TO
1715
1720
1725
17T0
1735
1740
1745
1750
1755
S7po
1I
C
HSSBOT~
OMUE
RPZIA
INTEGRATION, WITI
NNT 110
DIMENSION F(N), T(N)
+ CF(N).T(N)))/2.0
s (P()T(1))
TSUM
SUM .(F(I)
+ F(N))/2.O
NUM*N-I
N12
INT 130
INT 135
TNT 140
DO 200 1.2,NUM
TNT
145
TRT
TNT
155
110
165
E00NDuN
TNT
175
SUBROUTINE
310 100
IR
05
R 10 O
SUN
UN
FMIRO
20 OTHISNURUIEPRgM
NITOAINFRFFLSUNCIN
ADTR RAANSC)AON
H
AXISSU
SINGFI(F.TNoD.SIO)
S
c31
CCC
TISUROUTINE
POC0E
LRFORS A FINTEGRATIUE FO6ITRFNCIN
cCCT ANDLTO
NORMCEALIZTONG
H OT NAXIAS REUL
cC
GaANCFINSSIOTN
NTA
DIMENSION F(N)%R
310.
.01IRO3
tA(PiI) .0?. 310T~)
3115
1
120
31025
130
1S'40)Gi
145
BIG00
SUBROUTINE INTLOG(XA,
*
C
C
C
C
C
C
C
C
C
C
YA,
NA,
INTERPOLATES UNDER THE ASSUMPTIONI
I
5
10
20
25
"30
-
YA(NA).
XB(NS).
I + I
)/(YA(t)-YA(£I)
)
ILO
31
ILG
ILG
ILO
ILG
ILO
ILO
ILO
ILG
ILO
IL
100
105
110
115
120
125
130
135
140
145
150
155
I.LQ
LG
160
Jos
ILQ
ILG
IL3
ILG
ILG
110
ILG
IL0
IL0
ILO
IL£
ILG
ILG
IL
11.0
170
175
180
165
190
195
200
205
210
315
220
225
230
245
240
£LO
255
£1. 245
ILO 250
Ito 260
IL.
I1 .20215
SO CONTINUE
RETURN
ENO
SUBROUTINE VAVIN(WAVi,
VP NV)
Nvv
DIMENSION WAVE(NW), vF(Nd)
tie
t00
WYE
Ito
Its
MV9
THIS SUBROUTINE CONVERT$ AN ARRAY OP VAVELENGThS TO
REVlRSING Y4T101W* Of THJ VAVtW.l61WVt
AN ARRAY OP WAVE•USIRS•.
Ik THE PROCESS.
M * NW/J2
00 200 10i."
R itNO-1..
#R0Q * 1.14/WAVECI)
-tAVE()
v 1 ,4/WAVI(K!t)
1
.Vt
VAVECK) * FROQ
IS * pr(t)
PVj I)* ff(K)
pF(K) * PS
200 CONtINUE
L * 2M
;tt
tF(L .0., NV) GO TO 300
GO t0 400
300 WANC(l) • 1.14/WAVtCI)
400 RETURi
ENDa
V%
YB(NB)
1
GO TO 50
40 XB(J) a XA(1)
C
c
.0E. Y6(N8)
DO 50 J - 1,NB
IF(YB(J)-YA(I) ) 20, 40, 10
IF(3 .EQ. NA) GO TO 25
I a I + I
IF(YB(J) .GT. YA(3) ) GO TO 5
GO TO 25
IF(I .EQ. 1) 1 - 2
11 - I - I
.LE. 0. ) GO TO 30
IF(XA(1)bXA(CI)
Z - XA(I)/XA(II)
IF( ABS(Z-1.) .LT. 0.1 ) GO TO 30
H - (YA(I) -YA(II) )/ALOG(ZJ
XS(J) a XA(II)oEKP( (YB(d)-YA(II) )/H)
GO TO 50
XB(d) - XA(II) * (XA(1)-XA(II) )*(YU(,J)-YA(£I)
! •
(l1,,..,NA)
a.,NB
,J.'.
X a XOOEXP(-Y/H)
NOTE: MUST HAVE YA(t) .LE. YB(1)& YA(NA)
WHERE THE Y'S ARE IN ASCENDING ORDER
DIMENSION XA(NA),
C
C
YBl, NB)
THIS TAKES A SET OF DATA POINTS XA(I) VS YA(I)
AND GIVEN ANOTHER SET OF Y VALUES: YB(:) t
ABUd).
FINDS THE CORBESPONDING X VALUES:
*
c
X,
sOs
120
01 12$
yvV 130
'Vg
"vI
09
"vt
UVl
vvi
WYE
liVi
WEY
WV
WVc
VVt
UVt
ro
a13
140
141
I10
1s5
too
So5
t10
ITS
tOo
1t
Ito
Its
200
9oS
2143)
c
C
C
C
SUBROUTINE BRACK(WVNI,
DIMENSION VIN(NW)
V!N. NW, DV. IFRST, LAST,
PICKS OUT THE APPROPRIATE INDEXES OF A LARGER ARRAY
CORRESPONDING TO THE POSITIONING OF A SMALLER ARRAY.
IFRST - INT((VIN(1) - WVNI)/DV)
LAST - INT((VIN(NW) - WVNI)/DV)
NUMBER w LAST - IFRST + 1
RETURN
END
SUBROUTINE BLKBOY(TEMP,
C
C
c
C
c
NUMBER)
FF.
+ I
+ 2
NW, WAVE)
O FFM.
40
16tk•;0
I$j5
SOU,5K
RETURN
ILK
ti0
END
6LA
tSo
CO*
t00
0A0 A4q0 01I05 COINUUl to to
0t
of
t WATER IRAOMItTAN¶c5, okathtIsNES 9S flt
hAH$ tAhNc4S t0cce
OtY ThME
UNIN LY 4W411i.
Q. At$
0IA
M EN
• 1• 1"Its
Ow
1t0
11%
t•o
SAOUtIt CM•l`(V,
C~1Hi
1S)?H5
ott"INIOK '(so).
10 * 1A * N
00 200 L*IA. II
2I00 €COT Iut
T. R,
tI.
VAT.
GA3)
CtQmINE- IE91c
V
Ott*
YImts SiIRtig
c
100
105
110
It5
110
125
130
135
140
145
150
BLK 100
BLK t05
BLK 110
THIS SU•0I7TpE MODIFIES THE FUNCT1ON *FPv SY INCORPORATING THE
ASSOCIATED WAVENUMBER ARRAY "D A FIX0O SLACK80OY TEMPaRATURE
§LK Its
INTO THEV•LACKSODY EQUATION,
BLK 120
BLK 125
DIMENSION FFINW). WAVE(O)
OLK 130
IF(TEMP. LE.0.0) GO TO 30t
SLK 135
O0 20C I-1,MWM
OLK 140
FF(I) : (,1:9Ogso:-:::wA:E(L::,3)/:E0(:.43e79*:v:(0/Th
) .)SL91t05
20o COTINUE
C
BCK
BCK
BCK
8CK
sCK
6CK
5CK
5CK
5CK
5CK
5CK
yOt
WIT14 ItH fITXA g$*S0*t4 M 445T)4
1'(600.10),
wm~bo0).- 0Tyaj100
"M
5
CmW
Ito
140S
COW ISO
C0
-o
Itos?
CALL INYG401F. WTH1.N,&')
CALL tNT¶ltt.
rita N'
"s,
ottu"
COM
CON
tam
Its
I)W1
00II
Ca*
Ito