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