MODULE PARA_FILE implicit none integer, parameter :: & & nvx = 100, & & nv1x = nvx + 1 integer, parameter :: mbs = 6, & & mbir = 12, & & mb = 18, & & mbx = 18, & & mby = 10 integer, parameter :: nc = 8 integer, save :: ngroup = 3, & & nclouds , & & nsubcld integer, parameter :: nrh = 8, & & naer = 18, & & mxat = 7, & & mxac = naer integer, parameter :: nsub = 5 , & & nfuo = 15 , & & nwo = 75 integer, parameter :: icoln = 3 END module PARA_FILE MODULE control_para use PARA_FILE implicit none integer, save :: NFRACT = 0, & & NAERO = 1, & & NINHO = 0 , & & NINHO_VERT, & & NPDE = 2, & & NGAS = 0, & & NOZONE = 1 , & & NICE = 2 integer, save :: itps(mxac) = 0 , & & nfraca = 1 , & & ivd = 1 , & & ifg = 0 , & & iaform = 3 , & & n_atau = 1 logical, save :: d4s = .true. , & & d2s = .false., & & d4ir = .false., & & d2ir = .true. , & & edding, quadra, hemisp logical, save :: pderandom = .false. real, save :: umco2 = 345.0 , & & umch4 = 1.6 , & & umn2o = 0.28 , & & umco = 0.16 , & & umo2 = 2.0948E+05, & & umno = 0.0005 , & & umso2 = 0.001 , & & umno2 = 0.001 , & & umch3cl= 0.5E-3 , & & umCFC11= 0.22E-3 , & & umCFC12= 0.375E-3 integer, save :: no2s = 1, & & nco2s = 1, & & nso2s = 1, & & nch4s = 1, & & nnol = 1, & & nno2l = 1, & & nso2l = 1, & & nch3cll = 1, & & ncos = 1, & & nn2os = 1, & & nh2ocs = 1, & & nh2os = 1, & & no3s = 1, & & nh2ol = 1, & & no3l = 1, & & nco2l = 1, & & nn2ol = 1, & & nch4l = 1, & & nh2ocl = 1, & & nrayle = 1, & & nCFC11l = 1, & & nCFC12l =1 end module control_para module module_ozone implicit none integer, parameter :: np = 75 integer :: i real :: pres(np,5), ozone(np,5) data (pres(i,1),i=1,np)/ & 0.0006244, 0.0008759, 0.0012286, 0.0017234, 0.0024174, & 0.0033909, 0.0047565, 0.0066720, 0.0093589, 0.0131278, & 0.0184145, 0.0258302, 0.0362323, 0.0508234, 0.0712906, & 0.1000000, 0.1402710, 0.1967600, 0.2759970, 0.3871430, & 0.5430, 0.7617, 1.0685, 1.4988, 2.1024, 2.9490, & 4.1366, 5.8025, 8.1392, 11.4170, 16.0147, 22.4640, & 31.5105, 44.2001, 62.0000, 85.7750, 109.5500, 133.3250, & 157.1000, 180.8750, 204.6500, 228.4250, 252.2000, 275.9750, & 299.7500, 323.5250, 347.3000, 371.0750, 394.8500, 418.6250, & 442.4000, 466.1750, 489.9500, 513.7250, 537.5000, 561.2750, & 585.0500, 608.8250, 632.6000, 656.3750, 680.1500, 703.9250, & 727.7000, 751.4750, 775.2500, 799.0250, 822.8000, 846.5750, & 870.3500, 894.1250, 917.9000, 941.6750, 965.4500, 989.2250, & 1013.0000/ data (ozone(i,1),i=1,np)/ & 0.1793E-06, 0.2228E-06, 0.2665E-06, 0.3104E-06, 0.3545E-06, & 0.3989E-06, 0.4435E-06, 0.4883E-06, 0.5333E-06, 0.5786E-06, & 0.6241E-06, 0.6698E-06, 0.7157E-06, 0.7622E-06, 0.8557E-06, & 0.1150E-05, 0.1462E-05, 0.1793E-05, 0.2143E-05, 0.2512E-05, & 0.2902E-05, 0.3313E-05, 0.4016E-05, 0.5193E-05, 0.6698E-05, & 0.8483E-05, 0.9378E-05, 0.9792E-05, 0.1002E-04, 0.1014E-04, & 0.9312E-05, 0.7834E-05, 0.6448E-05, 0.5159E-05, 0.3390E-05, & 0.1937E-05, 0.1205E-05, 0.8778E-06, 0.6935E-06, 0.5112E-06, & 0.3877E-06, 0.3262E-06, 0.2770E-06, 0.2266E-06, 0.2020E-06, & 0.1845E-06, 0.1679E-06, 0.1519E-06, 0.1415E-06, 0.1317E-06, & 0.1225E-06, 0.1137E-06, 0.1055E-06, 0.1001E-06, 0.9487E-07, & 0.9016E-07, 0.8641E-07, 0.8276E-07, 0.7930E-07, 0.7635E-07, & 0.7347E-07, 0.7065E-07, 0.6821E-07, 0.6593E-07, 0.6368E-07, & 0.6148E-07, 0.5998E-07, 0.5859E-07, 0.5720E-07, 0.5582E-07, & 0.5457E-07, 0.5339E-07, 0.5224E-07, 0.5110E-07, 0.4999E-07/ data (pres(i,2),i=1,np)/ & 0.0006244, 0.0008759, 0.0012286, 0.0017234, 0.0024174, & 0.0033909, 0.0047565, 0.0066720, 0.0093589, 0.0131278, & 0.0184145, 0.0258302, 0.0362323, 0.0508234, 0.0712906, & 0.1000000, 0.1402710, 0.1967600, 0.2759970, 0.3871430, & 0.5430, 0.7617, 1.0685, 1.4988, 2.1024, 2.9490, & 4.1366, 5.8025, 8.1392, 11.4170, 16.0147, 22.4640, & 31.5105, 44.2001, 62.0000, 85.9000, 109.8000, 133.7000, & 157.6000, 181.5000, 205.4000, 229.3000, 253.2000, 277.1000, & 301.0000, 324.9000, 348.8000, 372.7000, 396.6000, 420.5000, & 444.4000, 468.3000, 492.2000, 516.1000, 540.0000, 563.9000, & 587.8000, 611.7000, 635.6000, 659.5000, 683.4000, 707.3000, & 731.2000, 755.1000, 779.0000, 802.9000, 826.8000, 850.7000, & 874.6000, 898.5000, 922.4000, 946.3000, 970.2000, 994.1000, & 1018.0000/ data (ozone(i,2),i=1,np)/ & 0.2353E-06, 0.3054E-06, 0.3771E-06, 0.4498E-06, 0.5236E-06, & 0.5984E-06, 0.6742E-06, 0.7511E-06, 0.8290E-06, 0.9080E-06, & 0.9881E-06, 0.1069E-05, 0.1152E-05, 0.1319E-05, 0.1725E-05, & 0.2145E-05, 0.2581E-05, 0.3031E-05, 0.3497E-05, 0.3980E-05, & 0.4478E-05, 0.5300E-05, 0.6725E-05, 0.8415E-05, 0.1035E-04, & 0.1141E-04, 0.1155E-04, 0.1143E-04, 0.1093E-04, 0.1060E-04, & 0.9720E-05, 0.8849E-05, 0.7424E-05, 0.6023E-05, 0.4310E-05, & 0.2820E-05, 0.1990E-05, 0.1518E-05, 0.1206E-05, 0.9370E-06, & 0.7177E-06, 0.5450E-06, 0.4131E-06, 0.3277E-06, 0.2563E-06, & 0.2120E-06, 0.1711E-06, 0.1524E-06, 0.1344E-06, 0.1199E-06, & 0.1066E-06, 0.9516E-07, 0.8858E-07, 0.8219E-07, 0.7598E-07, & 0.6992E-07, 0.6403E-07, 0.5887E-07, 0.5712E-07, 0.5540E-07, & 0.5370E-07, 0.5214E-07, 0.5069E-07, 0.4926E-07, 0.4785E-07, & 0.4713E-07, 0.4694E-07, 0.4676E-07, 0.4658E-07, 0.4641E-07, & 0.4634E-07, 0.4627E-07, 0.4619E-07, 0.4612E-07, 0.4605E-07/ data (pres(i,3),i=1,np)/ & 0.0006244, 0.0008759, 0.0012286, 0.0017234, 0.0024174, & 0.0033909, 0.0047565, 0.0066720, 0.0093589, 0.0131278, & 0.0184145, 0.0258302, 0.0362323, 0.0508234, 0.0712906, & 0.1000000, 0.1402710, 0.1967600, 0.2759970, 0.3871430, & 0.5430, 0.7617, 1.0685, 1.4988, 2.1024, 2.9490, & 4.1366, 5.8025, 8.1392, 11.4170, 16.0147, 22.4640, & 31.5105, 44.2001, 62.0000, 85.7000, 109.4000, 133.1000, & 156.8000, 180.5000, 204.2000, 227.9000, 251.6000, 275.3000, & 299.0000, 322.7000, 346.4000, 370.1000, 393.8000, 417.5000, & 441.2000, 464.9000, 488.6000, 512.3000, 536.0000, 559.7000, & 583.4000, 607.1000, 630.8000, 654.5000, 678.2000, 701.9000, & 725.6000, 749.3000, 773.0000, 796.7000, 820.4000, 844.1000, & 867.8000, 891.5000, 915.2000, 938.9000, 962.6000, 986.3000, & 1010.0000/ data (ozone(i,3),i=1,np)/ & 0.1728E-06, 0.2131E-06, 0.2537E-06, 0.2944E-06, 0.3353E-06, & 0.3764E-06, 0.4176E-06, 0.4590E-06, 0.5006E-06, 0.5423E-06, & 0.5842E-06, 0.6263E-06, 0.6685E-06, 0.7112E-06, 0.7631E-06, & 0.1040E-05, 0.1340E-05, 0.1660E-05, 0.2001E-05, 0.2362E-05, & 0.2746E-05, 0.3153E-05, 0.3762E-05, 0.4988E-05, 0.6518E-05, & 0.8352E-05, 0.9328E-05, 0.9731E-05, 0.8985E-05, 0.7632E-05, & 0.6814E-05, 0.6384E-05, 0.5718E-05, 0.4728E-05, 0.4136E-05, & 0.3033E-05, 0.2000E-05, 0.1486E-05, 0.1121E-05, 0.8680E-06, & 0.6474E-06, 0.5164E-06, 0.3921E-06, 0.2996E-06, 0.2562E-06, & 0.2139E-06, 0.1723E-06, 0.1460E-06, 0.1360E-06, 0.1267E-06, & 0.1189E-06, 0.1114E-06, 0.1040E-06, 0.9678E-07, 0.8969E-07, & 0.8468E-07, 0.8025E-07, 0.7590E-07, 0.7250E-07, 0.6969E-07, & 0.6694E-07, 0.6429E-07, 0.6208E-07, 0.5991E-07, 0.5778E-07, & 0.5575E-07, 0.5403E-07, 0.5233E-07, 0.5067E-07, 0.4904E-07, & 0.4721E-07, 0.4535E-07, 0.4353E-07, 0.4173E-07, 0.3997E-07/ data (pres(i,4),i=1,np)/ & 0.0006244, 0.0008759, 0.0012286, 0.0017234, 0.0024174, & 0.0033909, 0.0047565, 0.0066720, 0.0093589, 0.0131278, & 0.0184145, 0.0258302, 0.0362323, 0.0508234, 0.0712906, & 0.1000000, 0.1402710, 0.1967600, 0.2759970, 0.3871430, & 0.5430, 0.7617, 1.0685, 1.4988, 2.1024, 2.9490, & 4.1366, 5.8025, 8.1392, 11.4170, 16.0147, 22.4640, & 31.5105, 44.2001, 62.0000, 85.7750, 109.5500, 133.3250, & 157.1000, 180.8750, 204.6500, 228.4250, 252.2000, 275.9750, & 299.7500, 323.5250, 347.3000, 371.0750, 394.8500, 418.6250, & 442.4000, 466.1750, 489.9500, 513.7250, 537.5000, 561.2750, & 585.0500, 608.8250, 632.6000, 656.3750, 680.1500, 703.9250, & 727.7000, 751.4750, 775.2500, 799.0250, 822.8000, 846.5750, & 870.3500, 894.1250, 917.9000, 941.6750, 965.4500, 989.2250, & 1013.0000/ data (ozone(i,4),i=1,np)/ & 0.2683E-06, 0.3562E-06, 0.4464E-06, 0.5387E-06, 0.6333E-06, & 0.7301E-06, 0.8291E-06, 0.9306E-06, 0.1034E-05, 0.1140E-05, & 0.1249E-05, 0.1360E-05, 0.1474E-05, 0.1855E-05, 0.2357E-05, & 0.2866E-05, 0.3383E-05, 0.3906E-05, 0.4437E-05, 0.4975E-05, & 0.5513E-05, 0.6815E-05, 0.8157E-05, 0.1008E-04, 0.1200E-04, & 0.1242E-04, 0.1250E-04, 0.1157E-04, 0.1010E-04, 0.9063E-05, & 0.8836E-05, 0.8632E-05, 0.8391E-05, 0.7224E-05, 0.6054E-05, & 0.4503E-05, 0.3204E-05, 0.2278E-05, 0.1833E-05, 0.1433E-05, & 0.9996E-06, 0.7440E-06, 0.5471E-06, 0.3944E-06, 0.2852E-06, & 0.1977E-06, 0.1559E-06, 0.1333E-06, 0.1126E-06, 0.9441E-07, & 0.7678E-07, 0.7054E-07, 0.6684E-07, 0.6323E-07, 0.6028E-07, & 0.5746E-07, 0.5468E-07, 0.5227E-07, 0.5006E-07, 0.4789E-07, & 0.4576E-07, 0.4402E-07, 0.4230E-07, 0.4062E-07, 0.3897E-07, & 0.3793E-07, 0.3697E-07, 0.3602E-07, 0.3506E-07, 0.3413E-07, & 0.3326E-07, 0.3239E-07, 0.3153E-07, 0.3069E-07, 0.2987E-07/ data (pres(i,5),i=1,np)/ & 0.0006244, 0.0008759, 0.0012286, 0.0017234, 0.0024174, & 0.0033909, 0.0047565, 0.0066720, 0.0093589, 0.0131278, & 0.0184145, 0.0258302, 0.0362323, 0.0508234, 0.0712906, & 0.1000000, 0.1402710, 0.1967600, 0.2759970, 0.3871430, & 0.5430, 0.7617, 1.0685, 1.4988, 2.1024, 2.9490, & 4.1366, 5.8025, 8.1392, 11.4170, 16.0147, 22.4640, & 31.5105, 44.2001, 62.0000, 85.7750, 109.5500, 133.3250, & 157.1000, 180.8750, 204.6500, 228.4250, 252.2000, 275.9750, & 299.7500, 323.5250, 347.3000, 371.0750, 394.8500, 418.6250, & 442.4000, 466.1750, 489.9500, 513.7250, 537.5000, 561.2750, & 585.0500, 608.8250, 632.6000, 656.3750, 680.1500, 703.9250, & 727.7000, 751.4750, 775.2500, 799.0250, 822.8000, 846.5750, & 870.3500, 894.1250, 917.9000, 941.6750, 965.4500, 989.2250, & 1013.0000/ data (ozone(i,5),i=1,np)/ & 0.1993E-06, 0.2521E-06, 0.3051E-06, 0.3585E-06, 0.4121E-06, & 0.4661E-06, 0.5203E-06, 0.5748E-06, 0.6296E-06, 0.6847E-06, & 0.7402E-06, 0.7959E-06, 0.8519E-06, 0.9096E-06, 0.1125E-05, & 0.1450E-05, 0.1794E-05, 0.2156E-05, 0.2538E-05, 0.2939E-05, & 0.3362E-05, 0.3785E-05, 0.4753E-05, 0.6005E-05, 0.7804E-05, & 0.9635E-05, 0.1023E-04, 0.1067E-04, 0.1177E-04, 0.1290E-04, & 0.1134E-04, 0.9223E-05, 0.6667E-05, 0.3644E-05, 0.1545E-05, & 0.5355E-06, 0.2523E-06, 0.2062E-06, 0.1734E-06, 0.1548E-06, & 0.1360E-06, 0.1204E-06, 0.1074E-06, 0.9707E-07, 0.8960E-07, & 0.8419E-07, 0.7962E-07, 0.7542E-07, 0.7290E-07, 0.7109E-07, & 0.6940E-07, 0.6786E-07, 0.6635E-07, 0.6500E-07, 0.6370E-07, & 0.6244E-07, 0.6132E-07, 0.6022E-07, 0.5914E-07, 0.5884E-07, & 0.5855E-07, 0.5823E-07, 0.5772E-07, 0.5703E-07, 0.5635E-07, & 0.5570E-07, 0.5492E-07, 0.5412E-07, 0.5335E-07, 0.5260E-07, & 0.5167E-07, 0.5063E-07, 0.4961E-07, 0.4860E-07, 0.4761E-07/ end module module_ozone module ice0 USE PARA_FILE implicit none real, save :: ap(3,mb), bp(4,mb), cps(4,4,mbs), dps(4,mbs),& & cpir(4,mbir) data ap /-6.656e-3, 3.686, 0.00, & & -6.656e-3, 3.686, 0.00, & & -6.656e-3, 3.686, 0.00, & & -6.656e-3, 3.686, 0.00, & & -6.656e-3, 3.686, 0.00, & & -6.656e-3, 3.686, 0.00, & & -7.770e-3, 3.734, 11.85, & & -8.088e-3, 3.717, 17.17, & & -8.441e-3, 3.715, 19.48, & & -9.061e-3, 3.741, 26.48, & & -9.609e-3, 3.768, 34.11, & & -1.153e-2, 4.109, 17.32, & & -8.294e-3, 3.925, 1.315, & & -1.026e-2, 4.105, 16.36, & & -1.151e-2, 4.182, 31.13, & & -1.704e-2, 4.830, 16.27, & & -1.741e-2, 5.541, -58.42, & & -7.752e-3, 4.624, -42.01 / data bp /.10998E-05, -.26101E-07, .10896E-08, -.47387E-11, & & .20208E-04, .96483E-05, .83009E-07, -.32217E-09, & & .13590E-03, .73453E-03, .28281E-05, -.18272E-07, & & -.16598E-02, .20933E-02, -.13977E-05, -.18703E-07, & & .46180E+00, .24471E-03, -.27839E-05, .10379E-07, & & .42362E-01, .86425E-02, -.75519E-04, .24056E-06, & & .19960E+00, .37800E-02, -.14910E-04, .00000E+00, & & .30140E+00, .26390E-02, -.11160E-04, .00000E+00, & & .39080E+00, .12720E-02, -.55640E-05, .00000E+00, & & .31050E+00, .26030E-02, -.11390E-04, .00000E+00, & & .20370E+00, .42470E-02, -.18100E-04, .00000E+00, & & .23070E+00, .38300E-02, -.16160E-04, .00000E+00, & & .56310E+00, -.14340E-02, .62980E-05, .00000E+00, & & .52070E+00, -.97780E-03, .37250E-05, .00000E+00, & & .32540E+00, .34340E-02, -.30810E-04, .91430E-07, & & .10280E+00, .50190E-02, -.20240E-04, .00000E+00, & & .39640E+00, -.31550E-02, .64170E-04, -.29790E-06, & & .80790E+00, -.70040E-02, .52090E-04, -.14250E-06 / data cps / .22110E+01, -.10398E-02, .65199E-04, -.34498E-06, & & .32201E+01, .94227E-03, .80947E-04, -.47428E-06, & & .41610E+01, .74396E-03, .82690E-04, -.45251E-06, & & .51379E+01, .51545E-02, .11881E-04, -.15556E-06, & & .22151E+01, -.77982E-03, .63750E-04, -.34466E-06, & & .31727E+01, .15597E-02, .82021E-04, -.49665E-06, & & .40672E+01, .25800E-02, .71550E-04, -.43051E-06, & & .49882E+01, .86489E-02, -.18318E-04, -.59275E-07, & & .22376E+01, .10293E-02, .50842E-04, -.30135E-06, & & .31549E+01, .47115E-02, .70684E-04, -.47622E-06, & & .39917E+01, .82830E-02, .53927E-04, -.41778E-06, & & .48496E+01, .15998E-01, -.39320E-04, -.43862E-07, & & .23012E+01, .33854E-02, .23528E-04, -.20068E-06, & & .31730E+01, .93439E-02, .36367E-04, -.38390E-06, & & .39298E+01, .16424E-01, .10502E-04, -.35086E-06, & & .47226E+01, .25872E-01, -.77542E-04, -.21999E-07, & & .27975E+01, .29741E-02, -.32344E-04, .11636E-06, & & .43532E+01, .11234E-01, -.12081E-03, .43435E-06, & & .56835E+01, .24681E-01, -.26480E-03, .95314E-06, & & .68271E+01, .42788E-01, -.45615E-03, .16368E-05, & & .19655E+01, .20094E-01, -.17067E-03, .50806E-06, & & .28803E+01, .36091E-01, -.28365E-03, .79656E-06, & & .34613E+01, .58525E-01, -.46455E-03, .13444E-05, & & .39568E+01, .81480E-01, -.64777E-03, .19022E-05 / data dps / .12495E+00, -.43582E-03, .14092E-04, -.69565E-07,& & .12363E+00, -.44419E-03, .14038E-04, -.68851E-07,& & .12117E+00, -.48474E-03, .12495E-04, -.62411E-07,& & .11581E+00, -.55031E-03, .98776E-05, -.50193E-07,& & -.15968E-03, .10115E-04, -.12472E-06, .48667E-09,& & .13830E+00, -.18921E-02, .12030E-04, -.31698E-07 / data cpir / .79550, 2.524e-3, -1.022e-5, 0.000e+0,& & .86010, 1.599e-3, -6.465e-6, 0.000e+0,& & .89150, 1.060e-3, -4.171e-6, 0.000e+0,& & .87650, 1.198e-3, -4.485e-6, 0.000e+0,& & .88150, 9.858e-4, -3.116e-6, 0.000e+0,& & .91670, 5.499e-4, -1.507e-6, 0.000e+0,& & .90920, 9.295e-4, -3.877e-6, 0.000e+0,& & .84540, 1.429e-3, -5.859e-6, 0.000e+0,& & .76780, 2.571e-3, -1.041e-5, 0.000e+0,& & .72900, 2.132e-3, -5.584e-6, 0.000e+0,& & .70240, 4.581e-3, -3.054e-5, 6.684e-8,& & .22920, 1.724e-2, -1.573e-4, 4.995e-7 / end module ice0 MODULE ice1 USE PARA_FILE implicit none real, save :: ap(3,mb), bp(4,mb), cps(4,4,mbs),& & cpir(4,mbir) data ap / & & -0.67163E-03, 0.33056E+01,0.0,& & 0.25307E-03, 0.32490E+01,0.0,& & -0.75524E-03, 0.33083E+01,0.0,& & -0.20332E-02, 0.33865E+01,0.0,& & 0.40939E-02, 0.29870E+01,0.0,& & -0.27583E-02, 0.34436E+01,0.0,& & -7.770e-3, 3.734, 11.85,& & -8.088e-3, 3.717, 17.17,& & -8.441e-3, 3.715, 19.48,& & -9.061e-3, 3.741, 26.48,& & 0.160239, 0.495375, -4.38738,& & 0.165637, -0.438836, 1.54020,& & 0.172217, -1.49513, 10.56623,& & -1.026e-2, 4.105, 16.36,& & -1.151e-2, 4.182, 31.13,& & -1.704e-2, 4.830, 16.27,& & -1.741e-2, 5.541, -58.42,& & -7.752e-3, 4.624, -42.01 / data bp / & & -0.14661E-06, 0.79495E-07,-0.10422E-09, 0.40232E-12,& & -0.15417E-05, 0.11489E-04,-0.77147E-08, 0.22160E-10,& & -0.13287E-02, 0.91493E-03,-0.39410E-05, 0.12610E-07,& & -0.21311E-02, 0.22827E-02,-0.13400E-04, 0.42169E-07,& & 0.22764E+00, 0.21902E-02,-0.16743E-04, 0.53032E-07,& & 0.59555E-01, 0.73777E-02,-0.66056E-04, 0.21750E-06,& & .19960E+00, .37800E-02, -.14910E-04, .00000E+00,& & .30140E+00, .26390E-02, -.11160E-04, .00000E+00,& & .39080E+00, .12720E-02, -.55640E-05, .00000E+00,& & .31050E+00, .26030E-02, -.11390E-04, .00000E+00,& & 0.236894, 2.10402E-03, -3.72955E-06, 0.0,& & 0.315225, 9.38232E-04, 1.50649E-06, 0.0,& & 0.605243, -3.92611E-03, 2.12776E-05, 0.0,& & .52070E+00, -.97780E-03, .37250E-05, .00000E+00,& & .32540E+00, .34340E-02, -.30810E-04, .91430E-07,& & .10280E+00, .50190E-02, -.20240E-04, .00000E+00,& & .39640E+00, -.31550E-02, .64170E-04, -.29790E-06,& & .80790E+00, -.70040E-02, .52090E-04, -.14250E-06 / data cps / & & 0.21669E+01, 0.60980E-02,-0.51311E-04, 0.16359E-06,& & 0.31475E+01, 0.13021E-01,-0.11601E-03, 0.39174E-06,& & 0.39659E+01, 0.19928E-01,-0.17921E-03, 0.61170E-06,& & 0.47800E+01, 0.27383E-01,-0.25550E-03, 0.89151E-06,& & 0.21239E+01, 0.77499E-02,-0.67918E-04, 0.22104E-06,& & 0.29759E+01, 0.17892E-01,-0.16332E-03, 0.55093E-06,& & 0.36695E+01, 0.28083E-01,-0.25791E-03, 0.87487E-06,& & 0.43547E+01, 0.38785E-01,-0.36448E-03, 0.12530E-05,& & 0.20993E+01, 0.96178E-02,-0.80757E-04, 0.26200E-06,& & 0.28430E+01, 0.22690E-01,-0.19531E-03, 0.64687E-06,& & 0.34225E+01, 0.36169E-01,-0.31196E-03, 0.10358E-05,& & 0.39823E+01, 0.50008E-01,-0.43848E-03, 0.14699E-05,& & 0.21425E+01, 0.11157E-01,-0.95207E-04, 0.31235E-06,& & 0.28169E+01, 0.26990E-01,-0.22856E-03, 0.75086E-06,& & 0.33128E+01, 0.43749E-01,-0.36819E-03, 0.12080E-05,& & 0.37561E+01, 0.61160E-01,-0.51896E-03, 0.17125E-05,& & 0.24200E+01, 0.10132E-01,-0.10016E-03, 0.34703E-06,& & 0.33717E+01, 0.28367E-01,-0.27592E-03, 0.94834E-06,& & 0.40569E+01, 0.50860E-01,-0.49069E-03, 0.16791E-05,& & 0.45865E+01, 0.76301E-01,-0.73397E-03, 0.25063E-05,& & 0.18487E+01, 0.21654E-01,-0.19873E-03, 0.65778E-06,& & 0.24532E+01, 0.45341E-01,-0.40790E-03, 0.13452E-05,& & 0.28329E+01, 0.71119E-01,-0.62733E-03, 0.20535E-05,& & 0.31031E+01, 0.98340E-01,-0.86055E-03, 0.28151E-05/ data cpir / .79550, 2.524e-3, -1.022e-5, 0.000e+0,& & .86010, 1.599e-3, -6.465e-6, 0.000e+0,& & .89150, 1.060e-3, -4.171e-6, 0.000e+0,& & .87650, 1.198e-3, -4.485e-6, 0.000e+0,& & 0.884846, 7.52769E-05, 4.57733E-06, 0.0,& & 0.901327, 2.03758E-04, 2.95010E-06, 0.0,& & 0.873900, 1.45318E-03, -6.30462E-06, 0.0,& & .84540, 1.429e-3, -5.859e-6, 0.000e+0,& & .76780, 2.571e-3, -1.041e-5, 0.000e+0,& & .72900, 2.132e-3, -5.584e-6, 0.000e+0,& & .70240, 4.581e-3, -3.054e-5, 6.684e-8,& & .22920, 1.724e-2, -1.573e-4, 4.995e-7 / end module ice1 module ice2 USE PARA_FILE implicit none real, save :: ap(3,mb), bp(4,mb), cps(4,4,mbs), & & cpir(4,mbir) data ap / & & -0.64677E-03, 0.33011E+01,0.0,& & 0.23815E-03, 0.32478E+01,0.0,& & -0.77298E-03, 0.33016E+01,0.0,& & -0.19129E-02, 0.33670E+01,0.0,& & 0.38836E-02, 0.29973E+01,0.0,& & -0.25061E-02, 0.34079E+01,0.0,& & -0.72292E-02, 0.39678E+01,-0.46245E+01,& & -0.67346E-02, 0.39617E+01,-0.79098E+01,& & -0.47141E-02, 0.38009E+01,-0.81660E+01,& & -0.56489E-02, 0.38568E+01,-0.10588E+02,& & -0.33227E-02, 0.37198E+01,-0.13477E+02,& & 0.19701E-02, 0.31871E+01,-0.14325E+02,& & 0.37022E-02, 0.28155E+01,-0.79752E+01,& & -0.35191E-02, 0.37224E+01,-0.83436E+01,& & -0.34959E-02, 0.38216E+01,-0.13755E+02,& & 0.20353E-02, 0.33879E+01,-0.18617E+02,& & 0.16361E-01, 0.17992E+01,-0.11970E+02,& & 0.14346E-01, 0.19940E+01,-0.10167E+02/ data bp / & & -0.15305E-06, 0.78389E-07,-0.93003E-10, 0.34497E-12,& & -0.15038E-05, 0.11493E-04,-0.92019E-08, 0.29366E-10,& & -0.10781E-02, 0.90739E-03,-0.41236E-05, 0.14202E-07,& & -0.10333E-02, 0.22434E-02,-0.13639E-04, 0.45620E-07,& & 0.22894E+00, 0.21857E-02,-0.17349E-04, 0.57582E-07,& & 0.68828E-01, 0.69573E-02,-0.62363E-04, 0.20979E-06,& & 0.59839E-01, 0.75571E-02,-0.68839E-04, 0.23079E-06,& & 0.13450E+00, 0.72025E-02,-0.68179E-04, 0.22822E-06,& & 0.28174E+00, 0.42956E-02,-0.40260E-04, 0.12953E-06,& & 0.24245E+00, 0.48477E-02,-0.43431E-04, 0.13681E-06,& & 0.21341E+00, 0.46168E-02,-0.37410E-04, 0.11202E-06,& & 0.32426E+00, 0.11704E-02, 0.24626E-05,-0.33332E-07,& & 0.70501E+00,-0.66540E-02, 0.71716E-04,-0.25446E-06,& & 0.55066E+00,-0.23799E-02, 0.23737E-04,-0.81566E-07,& & 0.35188E+00, 0.18514E-02,-0.12929E-04, 0.30513E-07,& & 0.21492E+00, 0.14011E-02, 0.29171E-05,-0.30313E-07,& & 0.42357E+00,-0.49128E-02, 0.70966E-04,-0.27077E-06,& & 0.87266E+00,-0.11806E-01, 0.12572E-03,-0.44277E-06/ data cps /& & 0.21950E+01, 0.64077E-02,-0.58201E-04, 0.19809E-06,& & 0.31750E+01, 0.13464E-01,-0.12124E-03, 0.41560E-06,& & 0.40066E+01, 0.20698E-01,-0.18702E-03, 0.64513E-06,& & 0.48109E+01, 0.28022E-01,-0.25505E-03, 0.88452E-06,& & 0.21409E+01, 0.83265E-02,-0.77257E-04, 0.26333E-06,& & 0.29819E+01, 0.19038E-01,-0.17613E-03, 0.60173E-06,& & 0.36742E+01, 0.29982E-01,-0.27781E-03, 0.95121E-06,& & 0.43428E+01, 0.40884E-01,-0.38049E-03, 0.13067E-05,& & 0.21134E+01, 0.10157E-01,-0.89914E-04, 0.30549E-06,& & 0.28446E+01, 0.23970E-01,-0.21102E-03, 0.71452E-06,& & 0.34206E+01, 0.38277E-01,-0.33655E-03, 0.11403E-05,& & 0.39634E+01, 0.52522E-01,-0.46311E-03, 0.15716E-05,& & 0.21606E+01, 0.11313E-01,-0.99848E-04, 0.34042E-06,& & 0.28358E+01, 0.27652E-01,-0.23926E-03, 0.80881E-06,& & 0.33357E+01, 0.44943E-01,-0.38565E-03, 0.13007E-05,& & 0.37770E+01, 0.62525E-01,-0.53623E-03, 0.18096E-05,& & 0.24414E+01, 0.96108E-02,-0.95027E-04, 0.33279E-06,& & 0.34245E+01, 0.27146E-01,-0.26426E-03, 0.91883E-06,& & 0.41454E+01, 0.48851E-01,-0.47192E-03, 0.16348E-05,& & 0.47101E+01, 0.73455E-01,-0.70741E-03, 0.24459E-05,& & 0.18737E+01, 0.20963E-01,-0.19401E-03, 0.65811E-06,& & 0.24880E+01, 0.44265E-01,-0.40044E-03, 0.13519E-05,& & 0.29039E+01, 0.69461E-01,-0.61988E-03, 0.20909E-05,& & 0.32145E+01, 0.95849E-01,-0.84973E-03, 0.28707E-05/ data cpir /& & 0.79895E+00, 0.35846E-02,-0.31820E-04, 0.10048E-06,& & 0.83578E+00, 0.33185E-02,-0.33102E-04, 0.11457E-06,& & 0.84854E+00, 0.33870E-02,-0.34599E-04, 0.11851E-06,& & 0.83022E+00, 0.35984E-02,-0.36656E-04, 0.12776E-06,& & 0.82852E+00, 0.33183E-02,-0.31509E-04, 0.10367E-06,& & 0.84345E+00, 0.35875E-02,-0.37050E-04, 0.12789E-06,& & 0.79099E+00, 0.56487E-02,-0.64916E-04, 0.23789E-06,& & 0.73544E+00, 0.60058E-02,-0.64662E-04, 0.22728E-06,& & 0.68437E+00, 0.71137E-02,-0.73409E-04, 0.25328E-06,& & 0.64675E+00, 0.70088E-02,-0.67836E-04, 0.22898E-06,& & 0.60556E+00, 0.10268E-01,-0.11526E-03, 0.42515E-06,& & 0.34014E+00, 0.18152E-01,-0.20230E-03, 0.72649E-06/ end module ice2 module ice3 USE PARA_FILE implicit none real, save :: ap(3,mb), bp(4,mb), cps(4,4,mbs),& & cpir(4,mbir) data ap / & & -0.22016E-04, 0.32681E+01,0.0,& & 0.12188E-03, 0.32550E+01,0.0,& & -0.18585E-03, 0.32718E+01,0.0,& & 0.73530E-03, 0.32308E+01,0.0,& & 0.73767E-03, 0.31625E+01,0.0,& & 0.12974E-02, 0.32103E+01,0.0,& & -0.12934E-02, 0.34613E+01, 0.40581E+01,& & -0.13767E-02, 0.34660E+01, 0.15185E+01,& & 0.33221E-02, 0.30377E+01, 0.55140E+01,& & 0.29569E-02, 0.31035E+01, 0.34176E+01,& & -0.20300E-03, 0.35017E+01,-0.68412E+01,& & 0.44879E-02, 0.31449E+01,-0.94957E+01,& & 0.39821E-03, 0.29640E+01,-0.63663E+01,& & 0.29569E-02, 0.31035E+01, 0.34176E+01,& & 0.56276E-02, 0.30863E+01, 0.99194E+00,& & 0.67180E-02, 0.31267E+01,-0.99073E+01,& & 0.16936E-02, 0.28752E+01,-0.23543E+02,& & 0.54571E-02, 0.27078E+01,-0.17463E+02/ data bp / & & 0.16316E-06, 0.54817E-07, 0.36986E-09,-0.22368E-11,& & -0.85219E-06, 0.11496E-04,-0.88702E-08, 0.21682E-10,& & -0.34149E-03, 0.87766E-03,-0.33187E-05, 0.68249E-08,& & 0.26483E-02, 0.21342E-02,-0.11387E-04, 0.25795E-07,& & 0.22760E+00, 0.24953E-02,-0.23548E-04, 0.85937E-07,& & 0.10340E+00, 0.59974E-02,-0.51220E-04, 0.14912E-06,& & 0.55175E-01, 0.89243E-02,-0.86399E-04, 0.28587E-06,& & 0.13600E+00, 0.82607E-02,-0.84916E-04, 0.29040E-06,& & 0.28989E+00, 0.47980E-02,-0.50181E-04, 0.17083E-06,& & 0.25460E+00, 0.47274E-02,-0.40477E-04, 0.11072E-06,& & 0.18254E+00, 0.72527E-02,-0.77454E-04, 0.27677E-06,& & 0.25897E+00, 0.50864E-02,-0.55346E-04, 0.20977E-06,& & 0.66416E+00,-0.54835E-02, 0.62850E-04,-0.23567E-06,& & 0.51584E+00,-0.48797E-03,-0.17487E-05, 0.21836E-07,& & 0.30470E+00, 0.50329E-02,-0.59993E-04, 0.23202E-06,& & 0.14576E+00, 0.51099E-02,-0.46454E-04, 0.16438E-06,& & 0.31106E+00, 0.76981E-04, 0.13539E-04,-0.67635E-07,& & 0.82940E+00,-0.10849E-01, 0.12883E-03,-0.49980E-06/ data cps / & & 0.22527E+01, 0.41826E-02,-0.27863E-04, 0.51918E-07,& & 0.33013E+01, 0.84364E-02,-0.50901E-04, 0.73560E-07,& & 0.42027E+01, 0.12899E-01,-0.78291E-04, 0.12000E-06,& & 0.50756E+01, 0.17483E-01,-0.10792E-03, 0.17462E-06,& & 0.21646E+01, 0.84005E-02,-0.87726E-04, 0.32575E-06,& & 0.30331E+01, 0.19327E-01,-0.20159E-03, 0.75104E-06,& & 0.37486E+01, 0.30803E-01,-0.32426E-03, 0.12203E-05,& & 0.44480E+01, 0.41734E-01,-0.43891E-03, 0.16490E-05,& & 0.21446E+01, 0.95320E-02,-0.84259E-04, 0.26274E-06,& & 0.29123E+01, 0.22681E-01,-0.19885E-03, 0.61148E-06,& & 0.35209E+01, 0.36583E-01,-0.32255E-03, 0.10010E-05,& & 0.41047E+01, 0.49951E-01,-0.43946E-03, 0.13583E-05,& & 0.22211E+01, 0.93276E-02,-0.73117E-04, 0.19007E-06,& & 0.29628E+01, 0.23702E-01,-0.18567E-03, 0.48482E-06,& & 0.35287E+01, 0.39121E-01,-0.30633E-03, 0.80293E-06,& & 0.40513E+01, 0.54047E-01,-0.41858E-03, 0.10766E-05,& & 0.25291E+01, 0.64430E-02,-0.55084E-04, 0.15403E-06,& & 0.36475E+01, 0.19350E-01,-0.16755E-03, 0.47994E-06,& & 0.45208E+01, 0.36084E-01,-0.31598E-03, 0.92179E-06,& & 0.52466E+01, 0.55654E-01,-0.49374E-03, 0.14669E-05,& & 0.20079E+01, 0.16692E-01,-0.13662E-03, 0.33622E-06,& & 0.27495E+01, 0.35998E-01,-0.28704E-03, 0.68874E-06,& & 0.33031E+01, 0.56774E-01,-0.44330E-03, 0.10408E-05,& & 0.37818E+01, 0.77181E-01,-0.58492E-03, 0.13077E-05/ data cpir / & & 0.78501E+00, 0.36642E-02,-0.32975E-04, 0.10320E-06, & & 0.84318E+00, 0.32789E-02,-0.35798E-04, 0.13097E-06,& & 0.85345E+00, 0.35780E-02,-0.39064E-04, 0.13795E-06,& & 0.84642E+00, 0.29944E-02,-0.29113E-04, 0.94027E-07,& & 0.84123E+00, 0.32419E-02,-0.34203E-04, 0.12155E-06,& & 0.88427E+00, 0.20139E-02,-0.16185E-04, 0.39207E-07,& & 0.84345E+00, 0.35780E-02,-0.39064E-04, 0.13795E-06,& & 0.76728E+00, 0.54533E-02,-0.64807E-04, 0.24744E-06,& & 0.73460E+00, 0.47274E-02,-0.40477E-04, 0.11072E-06,& & 0.71306E+00, 0.37901E-02,-0.31358E-04, 0.98649E-07,& & 0.68108E+00, 0.68342E-02,-0.77162E-04, 0.29712E-06,& & 0.36188E+00, 0.18668E-01,-0.23332E-03, 0.93219E-06/ end module ice3 module ice4 USE PARA_FILE implicit none real, save :: ap(3,mb), bp(4,mb), cps(4,4,mbs), & & cpir(4,mbir) data ap / & & -6.94267E-04, 3.31172, 0.0, & & 2.42688E-04, 3.24538, 0.0,& & -8.22686E-04, 3.31108, 0.0,& & -2.12999E-03, 3.41040, 0.0,& & 4.12799E-03, 2.94434, 0.0,& & -2.81017E-03, 3.47101, 0.0,& & -0.54779E-02, 0.38141E+01,-0.35115E+01,& & -0.36198E-02, 0.37028E+01,-0.60244E+01,& & -0.12878E-02, 0.35247E+01,-0.61794E+01,& & -0.13401E-02, 0.34879E+01,-0.78947E+01,& & 0.21520E-02, 0.32356E+01,-0.98746E+01,& & 0.90323E-02, 0.25316E+01,-0.94046E+01,& & 0.95264E-02, 0.23578E+01,-0.45991E+01,& & 0.31740E-03, 0.34090E+01,-0.60680E+01,& & 0.25572E-02, 0.32852E+01,-0.97985E+01,& & 0.99831E-02, 0.26650E+01,-0.13217E+02,& & 0.23221E-01, 0.12725E+01,-0.80370E+01,& & 0.19658E-01, 0.15584E+01,-0.68965E+01/ data bp / & & -1.90654E-07, 7.99431E-08, -1.11983E-10, 4.15792E-13,& & -1.80331E-06, 1.14576E-05, -8.31389E-09, 2.49253E-11,& & -1.26043E-03, 8.91064E-04, -3.69938E-06, 1.20770E-08,& & -2.89280E-03, 2.22542E-03, -1.25859E-05, 3.96889E-08,& & 0.227105 , 2.15505E-03, -1.60964E-05, 5.08333E-08,& & 4.57593E-02, 7.37355E-03, -6.32047E-05, 2.02681E-07,& & 0.54473E-01, 0.71064E-02,-0.60728E-04, 0.19806E-06,& & 0.12661E+00, 0.69131E-02,-0.61519E-04, 0.19884E-06,& & 0.27278E+00, 0.41893E-02,-0.36266E-04, 0.10986E-06,& & 0.23686E+00, 0.47057E-02,-0.39838E-04, 0.12117E-06,& & 0.21461E+00, 0.41148E-02,-0.29280E-04, 0.79693E-07,& & 0.33820E+00, 0.50237E-03, 0.10415E-04,-0.60484E-07,& & 0.72475E+00,-0.70319E-02, 0.72574E-04,-0.24826E-06,& & 0.55964E+00,-0.27349E-02, 0.27096E-04,-0.90958E-07,& & 0.35859E+00, 0.13519E-02,-0.65991E-05, 0.77184E-08,& & 0.23389E+00, 0.64041E-03, 0.10444E-04,-0.51927E-07,& & 0.46362E+00,-0.61419E-02, 0.80126E-04,-0.28778E-06,& & 0.89760E+00,-0.12410E-01, 0.12780E-03,-0.43608E-06/ data cps / & & 2.16219, 7.20717E-03, -6.34955E-05, 2.06684E-07,& & 3.10521, 1.51838E-02, -1.32897E-04, 4.35736E-07,& & 3.89785, 2.33975E-02, -2.05648E-04, 6.78808E-07,& & 4.66416, 3.16646E-02, -2.80302E-04, 9.30739E-07,& & 2.11638, 8.73893E-03, -7.75891E-05, 2.53203E-07,& & 2.92743, 1.99400E-02, -1.76613E-04, 5.78123E-07,& & 3.59051, 3.13439E-02, -2.78084E-04, 9.12872E-07,& & 4.22785, 4.27741E-02, -3.81332E-04, 1.25635E-06,& & 2.09066, 1.04640E-02, -8.85004E-05, 2.87737E-07,& & 2.79526, 2.45527E-02, -2.06207E-04, 6.67845E-07,& & 3.34547, 3.90920E-02, -3.27779E-04, 1.06251E-06,& & 3.85962, 5.36759E-02, -4.51564E-04, 1.46690E-06,& & 2.12392, 1.19818E-02, -1.01064E-04, 3.27937E-07,& & 2.75806, 2.89005E-02, -2.38183E-04, 7.64875E-07,& & 3.21670, 4.67146E-02, -3.81077E-04, 1.21969E-06,& & 3.60999, 6.50332E-02, -5.30308E-04, 1.69843E-06,& & 2.38854, 1.09261E-02, -1.04240E-04, 3.50074E-07,& & 3.28763, 3.04339E-02, -2.85683E-04, 9.52203E-07,& & 3.91175, 5.43371E-02, -5.05866E-04, 1.67954E-06,& & 4.37193, 8.12484E-02, -7.53536E-04, 2.49656E-06,& & 1.79111, 2.24369E-02, -1.96602E-04, 6.30520E-07,& & 2.32802, 4.69355E-02, -4.01338E-04, 1.27852E-06,& & 2.66199, 7.33749E-02, -6.18366E-04, 1.96580E-06,& & 2.87716, 1.01409E-01, -8.49488E-04, 2.70447E-06/ data cpir / & & 0.80828E+00, 0.35457E-02,-0.32593E-04, 0.10616E-06,& & 0.83099E+00, 0.33684E-02,-0.32271E-04, 0.10833E-06,& & 0.84393E+00, 0.33526E-02,-0.32787E-04, 0.10919E-06,& & 0.82449E+00, 0.36684E-02,-0.36170E-04, 0.12336E-06,& & 0.82025E+00, 0.33894E-02,-0.30349E-04, 0.94896E-07,& & 0.82851E+00, 0.38298E-02,-0.37428E-04, 0.12370E-06,& & 0.77099E+00, 0.60819E-02,-0.67227E-04, 0.23893E-06,& & 0.71680E+00, 0.62920E-02,-0.64410E-04, 0.21714E-06,& & 0.66987E+00, 0.74566E-02,-0.75205E-04, 0.25469E-06,& & 0.62566E+00, 0.77781E-02,-0.73834E-04, 0.24131E-06,& & 0.57878E+00, 0.11177E-01,-0.12254E-03, 0.44038E-06,& & 0.31494E+00, 0.18856E-01,-0.20582E-03, 0.72328E-06/ end module ice4 module ice5 USE PARA_FILE implicit none real, save :: ap(3,mb), bps(4,mbs), bpir(4, mbir), & & cp(4,mb), dps(4,mbs) data ap / & & -2.9172062e-05, 2.5192544e+00, 0.0,& & -2.2948980e-05, 2.5212550e+00, 0.0,& & -2.9772840e-04, 2.5400320e+00, 0.0,& & 4.2668223e-04, 2.4933372e+00, 0.0,& & 4.3226531e-04, 2.4642946e+00, 0.0,& & 9.5918990e-05, 2.5232218e+00, 0.0,& & -2.308881e-03, 2.814002e+00, 1.072211e+00,& & -2.465236e-03, 2.833187e+00,-4.227573e-01,& & -3.034573e-03, 2.900043e+00,-1.849911e+00,& & -4.936610e-03, 3.087764e+00,-3.884262e+00,& & -8.178608e-03, 3.401245e+00,-8.812820e+00,& & -8.372696e-03, 3.455018e+00,-1.516692e+01,& & -1.691632e-03, 2.765756e+00,-8.331033e+00,& & -4.159424e-03, 3.047325e+00,-5.061568e+00,& & -9.524174e-03, 3.587742e+00,-1.068895e+01,& & -1.334860e-02, 4.043808e+00,-2.171029e+01,& & 3.325756e-03, 2.601360e+00,-1.909602e+01,& & 4.919685e-03, 2.327741e+00,-1.390858e+01 / data bps / & & 1.3540265e-07, 9.9282217e-08, -7.3843168e-11, 3.3111862e-13,& & -2.1458450e-06, 2.1984010e-05, -4.4225520e-09, 1.0711940e-11,& & 1.4027890e-04, 1.3919010e-03, -5.1005610e-06, 1.4032930e-08,& & 5.7801650e-03, 2.4420420e-03, -1.1985030e-05, 3.3878720e-08,& & 2.7122737e-01, 1.9809794e-03, -1.5071269e-05, 5.0103900e-08,& & 1.6215025e-01, 6.3734393e-03, -5.7740959e-05, 1.9109300e-07 / data bpir / & & 4.346482e-01, 1.721457e-02,-1.623227e-04, 5.561523e-07,& & 7.428957e-01, 1.279601e-02,-1.391803e-04, 5.180104e-07,& & 8.862434e-01, 1.226538e-02,-1.523076e-04, 6.000892e-07,& & 7.152274e-01, 1.621734e-02,-1.868544e-04, 7.078738e-07,& & 5.874323e-01, 1.876628e-02,-2.045834e-04, 7.510080e-07,& & 5.409536e-01, 1.949649e-02,-2.050908e-04, 7.364680e-07,& & 1.195515e+00, 3.350616e-03,-5.266996e-05, 2.233377e-07,& & 1.466481e+00,-2.129226e-03,-1.361630e-05, 1.193649e-07,& & 9.551440e-01, 1.309792e-02,-1.793694e-04, 7.313392e-07,& & 3.003701e-01, 2.051529e-02,-1.931684e-04, 6.583031e-07,& & 2.005578e-01, 2.132614e-02,-1.751052e-04, 5.355885e-07,& & 8.869787e-01, 2.118409e-02,-2.781429e-04, 1.094562e-06 / data cp / & & 7.4812728e-01, 9.5684492e-04, -1.1151708e-06, -8.1557303e-09,& & 7.5212480e-01, 1.1045100e-03, -2.9157100e-06, -1.3429900e-09,& & 7.5320460e-01, 1.8845180e-03, -9.7571460e-06, 2.2428270e-08,& & 7.7381780e-01, 2.2260760e-03, -1.4052790e-05, 3.7896870e-08,& & 8.7020490e-01, 1.6645530e-03, -1.4886030e-05, 4.9867270e-08,& & 7.4212060e-01, 5.2621900e-03, -5.0877550e-05, 1.7307870e-07,& & 7.962716e-01, 3.003488e-03,-2.082376e-05, 5.366545e-08,& & 8.472918e-01, 2.559953e-03,-2.182660e-05, 6.879977e-08,& & 8.741665e-01, 2.455409e-03,-2.456935e-05, 8.641223e-08,& & 8.522816e-01, 2.523627e-03,-2.149196e-05, 6.685067e-08,& & 8.609604e-01, 2.200445e-03,-1.748105e-05, 5.176616e-08,& & 8.906280e-01, 1.903269e-03,-1.733552e-05, 5.855071e-08,& & 8.663385e-01, 2.797934e-03,-3.187011e-05, 1.217209e-07,& & 7.984021e-01, 3.977117e-03,-4.471984e-05, 1.694919e-07,& & 7.363466e-01, 4.798266e-03,-4.513292e-05, 1.525774e-07,& & 7.260484e-01, 2.664334e-03,-1.251136e-05, 2.243377e-08,& & 6.891414e-01, 6.192281e-03,-6.459514e-05, 2.436963e-07,& & 4.949276e-01, 1.186174e-02,-1.267629e-04, 4.603574e-07 / data dps / & & 1.1572963e-01, 2.5648064e-04, 1.9131293e-06, -1.2460341e-08,& & 1.1360752e-01, 2.4156171e-04, 2.0185942e-06, -1.2876106e-08,& & 1.1241170e-01, -1.7635186e-07, 2.1499248e-06, -1.2949304e-08,& & 1.0855775e-01, -3.2496217e-04, 3.4207304e-06, -1.6247759e-08,& & 5.7783360e-02, -4.1158260e-04, 4.2361240e-06, -1.7204950e-08,& & 1.1367129e-01, -1.9711061e-03, 1.6078010e-05, -5.1736898e-08 / end module ice5 module ice6 USE PARA_FILE implicit none real, save :: ap(3,mb), bp(4,mb), cps(4,4,mbs), dps(4,mbs),& & cpir(4,mbir) data ap / & & -0.38746E-03, 0.32973E+01,0.0,& & -0.50694E-03, 0.32985E+01,0.0,& & 0.71712E-03, 0.32223E+01,0.0,& & -0.98125E-03, 0.33230E+01,0.0,& & 0.87834E-03, 0.31841E+01,0.0,& & -0.34512E-03, 0.32746E+01,0.0,& & -7.770e-3, 3.734, 11.85,& & -8.088e-3, 3.717, 17.17,& & -8.441e-3, 3.715, 19.48,& & -9.061e-3, 3.741, 26.48,& & -9.609e-3, 3.768, 34.11,& & -1.153e-2, 4.109, 17.32,& & -8.294e-3, 3.925, 1.315,& & -1.026e-2, 4.105, 16.36,& & -1.151e-2, 4.182, 31.13,& & -1.704e-2, 4.830, 16.27,& & -1.741e-2, 5.541, -58.42,& & -7.752e-3, 4.624, -42.01 / data bp / & & 0.38590E-07, 0.72370E-07, 0.31022E-10,-0.14691E-12,& & 0.17300E-05, 0.11233E-04, 0.17393E-08,-0.12202E-10,& & 0.18169E-02, 0.72681E-03,-0.26276E-06,-0.27928E-08,& & 0.78700E-02, 0.17288E-02,-0.28655E-05,-0.20102E-08,& & 0.23621E+00, 0.16462E-02,-0.78390E-05, 0.16004E-07,& & 0.11644E+00, 0.52256E-02,-0.31336E-04, 0.69178E-07,& & .19960E+00, .37800E-02, -.14910E-04, .00000E+00,& & .30140E+00, .26390E-02, -.11160E-04, .00000E+00,& & .39080E+00, .12720E-02, -.55640E-05, .00000E+00,& & .31050E+00, .26030E-02, -.11390E-04, .00000E+00,& & .20370E+00, .42470E-02, -.18100E-04, .00000E+00,& & .23070E+00, .38300E-02, -.16160E-04, .00000E+00,& & .56310E+00, -.14340E-02, .62980E-05, .00000E+00,& & .52070E+00, -.97780E-03, .37250E-05, .00000E+00,& & .32540E+00, .34340E-02, -.30810E-04, .91430E-07,& & .10280E+00, .50190E-02, -.20240E-04, .00000E+00,& & .39640E+00, -.31550E-02, .64170E-04, -.29790E-06,& & .80790E+00, -.70040E-02, .52090E-04, -.14250E-06 / data cps / & & 0.21659E+01, 0.22216E-02,-0.59640E-05, 0.16482E-07,& & 0.31725E+01, 0.52862E-02,-0.23595E-04, 0.68774E-07,& & 0.39577E+01, 0.91975E-02,-0.59064E-04, 0.18597E-06,& & 0.48731E+01, 0.13409E-01,-0.10001E-03, 0.29756E-06,& & 0.21148E+01, 0.35792E-02,-0.14387E-04, 0.33916E-07,& & 0.29802E+01, 0.86827E-02,-0.43013E-04, 0.10745E-06,& & 0.36496E+01, 0.14548E-01,-0.88220E-04, 0.24029E-06,& & 0.44246E+01, 0.21138E-01,-0.14383E-03, 0.38506E-06,& & 0.21080E+01, 0.45474E-02,-0.12614E-04, 0.13394E-07,& & 0.28827E+01, 0.10920E-01,-0.38268E-04, 0.62198E-07,& & 0.34763E+01, 0.18024E-01,-0.76309E-04, 0.15170E-06,& & 0.41410E+01, 0.26250E-01,-0.13345E-03, 0.29134E-06,& & 0.21644E+01, 0.60657E-02,-0.23328E-04, 0.37156E-07,& & 0.28683E+01, 0.14231E-01,-0.52725E-04, 0.81739E-07,& & 0.34205E+01, 0.22708E-01,-0.86359E-04, 0.13936E-06,& & 0.39875E+01, 0.32511E-01,-0.14175E-03, 0.26516E-06,& & 0.24762E+01, 0.57563E-02,-0.37849E-04, 0.95587E-07,& & 0.34989E+01, 0.16372E-01,-0.10394E-03, 0.25605E-06,& & 0.42810E+01, 0.29538E-01,-0.18603E-03, 0.45460E-06,& & 0.49398E+01, 0.44821E-01,-0.28585E-03, 0.70220E-06,& & 0.19379E+01, 0.14271E-01,-0.83150E-04, 0.17824E-06,& & 0.26709E+01, 0.29022E-01,-0.15863E-03, 0.32130E-06,& & 0.31501E+01, 0.45697E-01,-0.23729E-03, 0.45482E-06,& & 0.35520E+01, 0.63575E-01,-0.32729E-03, 0.62582E-06/ data cpir / .79550, 2.524e-3, -1.022e-5, 0.000e+0,& & .86010, 1.599e-3, -6.465e-6, 0.000e+0,& & .89150, 1.060e-3, -4.171e-6, 0.000e+0,& & .87650, 1.198e-3, -4.485e-6, 0.000e+0,& & .88150, 9.858e-4, -3.116e-6, 0.000e+0,& & .91670, 5.499e-4, -1.507e-6, 0.000e+0,& & .90920, 9.295e-4, -3.877e-6, 0.000e+0,& & .84540, 1.429e-3, -5.859e-6, 0.000e+0,& & .76780, 2.571e-3, -1.041e-5, 0.000e+0,& & .72900, 2.132e-3, -5.584e-6, 0.000e+0,& & .70240, 4.581e-3, -3.054e-5, 6.684e-8,& & .22920, 1.724e-2, -1.573e-4, 4.995e-7 / end module ice6 module ice7 USE PARA_FILE implicit none real, save :: ap(3,mb), bp(4,mb), cps(4,4,mbs), & & cpir(4,mbir) data ap / & & -0.38746E-03, 0.32973E+01,0.0,& & -0.50694E-03, 0.32985E+01,0.0,& & 0.71712E-03, 0.32223E+01,0.0,& & -0.98125E-03, 0.33230E+01,0.0,& & 0.87834E-03, 0.31841E+01,0.0,& & -0.34512E-03, 0.32746E+01,0.0,& & -0.50589E-03, 0.33265E+01, 0.38436E+01,& & -0.38765E-02, 0.37526E+01,-0.21254E+01,& & -0.48168E-02, 0.38393E+01,-0.41956E+01,& & -0.80184E-02, 0.42143E+01,-0.94178E+01,& & -0.84545E-02, 0.42523E+01,-0.14044E+02,& & -0.78583E-02, 0.43559E+01,-0.23802E+02,& & 0.16759E-03, 0.32759E+01,-0.10914E+02,& & -0.56504E-02, 0.40831E+01,-0.85350E+01,& & -0.11870E-01, 0.48843E+01,-0.19757E+02,& & -0.11976E-01, 0.49646E+01,-0.32042E+02,& & 0.43393E-02, 0.30397E+01,-0.25740E+02,& & 0.50587E-02, 0.29157E+01,-0.20003E+02/ data bp / & & 0.38590E-07, 0.72370E-07, 0.31022E-10,-0.14691E-12,& & 0.17300E-05, 0.11233E-04, 0.17393E-08,-0.12202E-10,& & 0.18169E-02, 0.72681E-03,-0.26276E-06,-0.27928E-08,& & 0.78700E-02, 0.17288E-02,-0.28655E-05,-0.20102E-08,& & 0.23621E+00, 0.16462E-02,-0.78390E-05, 0.16004E-07,& & 0.11644E+00, 0.52256E-02,-0.31336E-04, 0.69178E-07,& & 0.11837E+00, 0.59707E-02,-0.37381E-04, 0.82247E-07,& & 0.18890E+00, 0.56695E-02,-0.39054E-04, 0.92022E-07,& & 0.32556E+00, 0.35682E-02,-0.27697E-04, 0.70817E-07,& & 0.26624E+00, 0.44710E-02,-0.32194E-04, 0.77848E-07,& & 0.20286E+00, 0.52926E-02,-0.33796E-04, 0.73155E-07,& & 0.26761E+00, 0.33641E-02,-0.16682E-04, 0.24691E-07,& & 0.63681E+00,-0.32014E-02, 0.23511E-04,-0.59634E-07,& & 0.53407E+00,-0.93014E-03, 0.46540E-05,-0.99015E-08,& & 0.33019E+00, 0.30715E-02,-0.21409E-04, 0.47927E-07,& & 0.15758E+00, 0.34101E-02,-0.11554E-04, 0.77336E-08,& & 0.32540E+00,-0.24775E-03, 0.19549E-04,-0.79449E-07,& & 0.81081E+00,-0.73585E-02, 0.60735E-04,-0.16801E-06/ data cps / & & 0.21659E+01, 0.22216E-02,-0.59640E-05, 0.16482E-07,& & 0.31725E+01, 0.52862E-02,-0.23595E-04, 0.68774E-07,& & 0.39577E+01, 0.91975E-02,-0.59064E-04, 0.18597E-06,& & 0.48731E+01, 0.13409E-01,-0.10001E-03, 0.29756E-06,& & 0.21148E+01, 0.35792E-02,-0.14387E-04, 0.33916E-07,& & 0.29802E+01, 0.86827E-02,-0.43013E-04, 0.10745E-06,& & 0.36496E+01, 0.14548E-01,-0.88220E-04, 0.24029E-06,& & 0.44246E+01, 0.21138E-01,-0.14383E-03, 0.38506E-06,& & 0.21080E+01, 0.45474E-02,-0.12614E-04, 0.13394E-07,& & 0.28827E+01, 0.10920E-01,-0.38268E-04, 0.62198E-07,& & 0.34763E+01, 0.18024E-01,-0.76309E-04, 0.15170E-06,& & 0.41410E+01, 0.26250E-01,-0.13345E-03, 0.29134E-06,& & 0.21644E+01, 0.60657E-02,-0.23328E-04, 0.37156E-07,& & 0.28683E+01, 0.14231E-01,-0.52725E-04, 0.81739E-07,& & 0.34205E+01, 0.22708E-01,-0.86359E-04, 0.13936E-06,& & 0.39875E+01, 0.32511E-01,-0.14175E-03, 0.26516E-06,& & 0.24762E+01, 0.57563E-02,-0.37849E-04, 0.95587E-07,& & 0.34989E+01, 0.16372E-01,-0.10394E-03, 0.25605E-06,& & 0.42810E+01, 0.29538E-01,-0.18603E-03, 0.45460E-06,& & 0.49398E+01, 0.44821E-01,-0.28585E-03, 0.70220E-06,& & 0.19379E+01, 0.14271E-01,-0.83150E-04, 0.17824E-06,& & 0.26709E+01, 0.29022E-01,-0.15863E-03, 0.32130E-06,& & 0.31501E+01, 0.45697E-01,-0.23729E-03, 0.45482E-06,& & 0.35520E+01, 0.63575E-01,-0.32729E-03, 0.62582E-06/ data cpir / & & 0.81089E+00, 0.16243E-02,-0.31561E-05,-0.79532E-08,& & 0.86014E+00, 0.17674E-02,-0.94067E-05, 0.17704E-07,& & 0.86338E+00, 0.21946E-02,-0.15417E-04, 0.37614E-07,& & 0.85780E+00, 0.17558E-02,-0.86896E-05, 0.13392E-07,& & 0.86534E+00, 0.15068E-02,-0.65455E-05, 0.78494E-08,& & 0.88588E+00, 0.18314E-02,-0.13509E-04, 0.34430E-07,& & 0.83432E+00, 0.32058E-02,-0.26575E-04, 0.72447E-07,& & 0.76777E+00, 0.37283E-02,-0.28309E-04, 0.72651E-07,& & 0.73123E+00, 0.33814E-02,-0.19619E-04, 0.40249E-07,& & 0.69978E+00, 0.29035E-02,-0.15833E-04, 0.35895E-07,& & 0.65075E+00, 0.58411E-02,-0.46674E-04, 0.12976E-06,& & 0.36707E+00, 0.12097E-01,-0.97415E-04, 0.26174E-06/ end module ice7 module water1 USE PARA_FILE implicit none real, save :: re(nc), fl(nc), bz(nc,mb), wz(nc,mb), gz(nc,mb) data re / 4.18, 5.36, 5.89, 6.16, & & 9.27, 9.84, 12.10, 31.23 / data fl / 0.05, 0.14, 0.22, 0.28, & & 0.50, 0.47, 1.00, 2.50 / data bz / 15.11, 40.25, 59.81, 72.43,& & 83.69, 73.99, 128.17, 120.91,& & 15.74, 41.70, 61.52, 74.47,& & 85.78, 75.59, 130.46, 121.84,& & 16.38, 43.52, 64.84, 77.97,& & 87.31, 77.36, 134.30, 124.06,& & 17.57, 45.78, 66.44, 80.15,& & 90.49, 79.90, 137.56, 125.92,& & 18.19, 46.63, 69.39, 82.20,& & 91.46, 79.99, 138.21, 126.08,& & 21.30, 51.88, 77.77, 87.02,& & 94.91, 83.55, 143.46, 128.45,& & 22.44, 57.35, 84.41, 103.50,& & 103.49, 84.17, 152.77, 132.07,& & 18.32, 52.69, 76.67, 100.31,& & 105.46, 92.86, 157.82, 133.03,& & 17.27, 50.44, 74.18, 96.76,& & 105.32, 95.25, 158.07, 134.48,& & 13.73, 44.90, 67.70, 90.85,& & 109.16, 105.48, 163.11, 136.21,& & 10.30, 36.28, 57.23, 76.43,& & 106.45, 104.90, 161.73, 136.62,& & 7.16, 26.40, 43.51, 57.24,& & 92.55, 90.55, 149.10, 135.13,& & 6.39, 21.00, 33.81, 43.36,& & 66.90, 63.58, 113.83, 125.65,& & 10.33, 30.87, 47.63, 60.33,& & 79.54, 73.92, 127.46, 128.21,& & 11.86, 35.64, 54.81, 69.85,& & 90.39, 84.16, 142.49, 135.25,& & 10.27, 33.08, 51.81, 67.26,& & 93.24, 88.60, 148.71, 140.42,& & 6.72, 24.09, 39.42, 51.68,& & 83.34, 80.72, 140.14, 143.57,& & 3.92, 14.76, 25.32, 32.63,& & 60.85, 58.81, 112.30, 145.62 / data wz / .999999, .999999, .999999, .999999,& & .999998, .999999, .999998, .999997,& & .999753, .999700, .999667, .999646,& & .999492, .999470, .999344, .998667,& & .995914, .994967, .994379, .993842,& & .991385, .990753, .988908, .974831,& & .983761, .978981, .976568, .974700,& & .963466, .959934, .953865, .897690,& & .702949, .683241, .679723, .669045,& & .642616, .632996, .629776, .588820,& & .947343, .929619, .924806, .914557,& & .877169, .867047, .853661, .737426,& & .919356, .896274, .885924, .881097,& & .812772, .781637, .775418, .637341,& & .874717, .861122, .847850, .851677,& & .787171, .772952, .753143, .618656,& & .764750, .752410, .736529, .743435,& & .671272, .659392, .639492, .549941,& & .807536, .808700, .795994, .805489,& & .750577, .755524, .709472, .571989,& & .753346, .772026, .767273, .777079,& & .751264, .760973, .712536, .568286,& & .632722, .676332, .684631, .693552,& & .707986, .717724, .682430, .552867,& & .288885, .348489, .371653, .380367,& & .454540, .465769, .475409, .493881,& & .261827, .306283, .321340, .333051,& & .392917, .406876, .417450, .484593,& & .295804, .339929, .352494, .365502,& & .416229, .430369, .435267, .491356,& & .301214, .354746, .369346, .381906,& & .433602, .447397, .447406, .486968,& & .243714, .318761, .344642, .352770,& & .427906, .438979, .445972, .477264,& & .109012, .187230, .226849, .224976,& & .331382, .335917, .374882, .457067 / data gz / .838, .839, .844, .847,& & .849, .860, .853, .859,& & .809, .810, .819, .823,& & .823, .849, .833, .843,& & .774, .787, .781, .792,& & .812, .836, .815, .833,& & .801, .802, .793, .793,& & .814, .829, .818, .832,& & .877, .873, .879, .880,& & .885, .899, .891, .908,& & .783, .769, .777, .756,& & .764, .776, .770, .797,& & .818, .805, .824, .830,& & .815, .801, .820, .845,& & .810, .802, .826, .840,& & .829, .853, .840, .868,& & .774, .766, .799, .818,& & .815, .869, .834, .869,& & .734, .728, .767, .797,& & .796, .871, .818, .854,& & .693, .688, .736, .772,& & .780, .880, .808, .846,& & .643, .646, .698, .741,& & .759, .882, .793, .839,& & .564, .582, .637, .690,& & .719, .871, .764, .819,& & .466, .494, .546, .609,& & .651, .823, .701, .766,& & .375, .410, .455, .525,& & .583, .773, .637, .710,& & .262, .301, .334, .406,& & .485, .695, .545, .631,& & .144, .181, .200, .256,& & .352, .562, .413, .517,& & .060, .077, .088, .112,& & .181, .310, .222, .327 / end module water1 module rayle1 USE PARA_FILE implicit none real, save :: ri(mbs) data ri / 0.9022e-5, 0.5282e-6, 0.5722e-7, & & 0.1433e-7, 0.4526e-8, 0.1529e-8 / end module rayle1 module rain1 USE PARA_FILE implicit none real, save :: rwc, brn(mb), wrnf(mb), grn(mb) data rwc / 0.5 / data brn / 1.5377, 1.5377, 1.5379, 1.5385, 1.5396, 1.5417,& & 1.5454, 1.5478, 1.5512, 1.5559, 1.5600, 1.5642,& & 1.5647, 1.5741, 1.5862, 1.5993, 1.6149, 1.6765 / data wrnf /.999932, .97096, .74627, .56719, .53023, .53815,& & .53233, .52884, .53192, .52969, .52716, .52321,& & .51904, .53859, .55169, .55488, .55334, .55218 / data grn / .88323, .89067, .92835, .96626, .97553, .96626,& & .97226, .97663, .97216, .97467, .97745, .98156,& & .98584, .96374, .94218, .93266, .92990, .90729 / end module rain1 module graup1 USE PARA_FILE implicit none real, save :: gwc, bg(mb), wgf(mb), gg(mb) data gwc / 0.5 / data bg / 0.83939,0.83940,0.83940,0.83941,0.83946,0.83951, & & 0.83967,0.83979,0.83995,0.84029,0.84058,0.84097, & & 0.84143,0.84286,0.84418,0.84825,0.85421,0.87477 / data wgf / 0.999911,0.97115,0.56192,0.53156,0.52579,0.53846, & & 0.53296,0.53017,0.53182,0.53180,0.52959,0.52446, & & 0.52342,0.54914,0.55258,0.54307,0.53160,0.55474 / data gg / 0.89218,0.89940,0.96820,0.97816,0.98141,0.96373, & & 0.97173,0.97559,0.97330,0.97327,0.97626,0.98274, & & 0.98396,0.94673,0.94213,0.95539,0.97097,0.93183 / end module graup1 module numericals implicit none real, dimension(4) :: a, u, p0d, p1d, p2d, p3d real, dimension(4,4) :: p11d, p22d, p33d data a / 0.5, 0.5, 0.5, 0.5 / data u / -0.7886752, -0.2113247, 0.2113247, 0.7886752 / data p0d / .100000E+01, .100000E+01, .100000E+01, .100000E+01 / data p1d / -.788675E+00, -.211325E+00, .211325E+00, .788675E+00 / data p2d / .433013E+00, -.433013E+00, -.433013E+00, .433013E+00 / data p3d / -.433940E-01, .293394E+00, -.293394E+00, .433940E-01 / data p11d / .311004E+00, .833334E-01,-.833334E-01,-.311004E+00,& & .833334E-01, .223291E-01,-.223291E-01,-.833334E-01,& & -.833334E-01,-.223291E-01, .223291E-01, .833334E-01,& & -.311004E+00,-.833334E-01, .833334E-01, .311004E+00 / data p22d / .937501E-01,-.937501E-01,-.937501E-01, .937501E-01,& & -.937501E-01, .937501E-01, .937501E-01,-.937501E-01,& & -.937501E-01, .937501E-01, .937501E-01,-.937501E-01,& & .937501E-01,-.937501E-01,-.937501E-01, .937501E-01 / data p33d / .941520E-03,-.636577E-02, .636577E-02,-.941520E-03,& & -.636577E-02, .430400E-01,-.430400E-01, .636577E-02,& & .636577E-02,-.430400E-01, .430400E-01,-.636577E-02,& & -.941520E-03, .636577E-02,-.636577E-02, .941520E-03 / end module numericals module band implicit none integer, private :: i, j, k real, save :: hk_1(10), fko3_1(10), & & hk_2(8), coeh2o_2(3,11,8), & & hk_3(12), coeh2o_3(3,11,12), & & hk_4(7), coeh2o_4(3,11,7), & & hk_5(12), coeh2o_5(3,11,12), & & hk_6(5), coeh2o_6(3,11,5), & & hk_7(2), coeh2o_7(3,19,2), & & hk_8(3), coeh2o_8(3,19,3), & & hk_9(4), coeh2o_9(3,19,4), & & hk_10(4), coeh2o_10(3,19,4), & & coech4_10(3,19), coen2o_10(3,19), & & hk_11(3), coeh2o_11(3,19,3), & & coech4_11(3,19), coen2o_11(3,19), & & hk_12(5), coeo3_12(3,19,5), coeh2o_12(3,19), & & hk_13(2), coeh2o_13(3,19,2), & & hk_14(10), coehca_14(3,19,10), coehcb_14(3,19,10), & & hk_15(12), coehca_15(3,19,12), coehcb_15(3,19,12), & & hk_16(7), coeh2o_16(3,19,7), & & hk_17(7), coeh2o_17(3,19,7), & & hk_18(8), coeh2o_18(3,19,8) data hk_1 / .24, .16, .24, .28, .03,& & .016, .01, .008, .008, .008 / data fko3_1 / .2204e-08,.1207e-01,.4537e-01,.1032e+00,.1740e+00,& & .1210e+01,.7367e+01,.2050e+02,.8100e+02,.2410e+03 / data hk_2 / .71, .11, .06, .06, .04, .016, .0034, .0006 / data ( ( ( coeh2o_2(k,j,i), i = 1, 8 ), j = 1, 11 ), k = 1, 3 ) / & & -.1735E+02,-.1407E+02,-.1268E+02,-.1131E+02,-.9261E+01,-.6666E+01,& & -.3937E+01,-.5448E+00,-.1690E+02,-.1365E+02,-.1232E+02,-.1101E+02,& & -.9058E+01,-.6574E+01,-.3914E+01,-.5529E+00,-.1643E+02,-.1323E+02,& & -.1195E+02,-.1068E+02,-.8840E+01,-.6475E+01,-.3889E+01,-.6143E+00,& & -.1598E+02,-.1282E+02,-.1157E+02,-.1035E+02,-.8598E+01,-.6339E+01,& & -.3848E+01,-.6636E+00,-.1551E+02,-.1241E+02,-.1119E+02,-.1001E+02,& & -.8342E+01,-.6178E+01,-.3788E+01,-.8181E+00,-.1506E+02,-.1201E+02,& & -.1082E+02,-.9692E+01,-.8073E+01,-.6017E+01,-.3703E+01,-.9003E+00,& & -.1446E+02,-.1154E+02,-.1042E+02,-.9332E+01,-.7810E+01,-.5846E+01,& & -.3576E+01,-.1083E+01,-.1394E+02,-.1112E+02,-.1005E+02,-.8992E+01,& & -.7548E+01,-.5674E+01,-.3477E+01,-.1266E+01,-.1351E+02,-.1076E+02,& & -.9722E+01,-.8702E+01,-.7334E+01,-.5531E+01,-.3401E+01,-.1524E+01,& & -.1311E+02,-.1044E+02,-.9422E+01,-.8423E+01,-.7117E+01,-.5383E+01,& & -.3410E+01,-.1785E+01,-.1274E+02,-.1015E+02,-.9162E+01,-.8190E+01,& & -.6949E+01,-.5236E+01,-.3477E+01,-.2082E+01, .2407E-02, .2847E-02,& & .3768E-02, .4626E-02, .5631E-02, .4542E-02, .3475E-02,-.3085E-02,& & .2428E-02, .2805E-02, .3412E-02, .3893E-02, .4773E-02, .3998E-02,& & .2742E-02,-.2556E-02, .2428E-02, .2721E-02, .3077E-02, .3161E-02,& & .4019E-02, .3224E-02, .2512E-02,-.1884E-02, .2449E-02, .2617E-02,& & .2763E-02, .2658E-02, .3286E-02, .2617E-02, .1989E-02,-.1740E-02,& & .2512E-02, .2470E-02, .2470E-02, .2282E-02, .2512E-02, .1926E-02,& & .1465E-02,-.2612E-02, .2554E-02, .2303E-02, .2303E-02, .1842E-02,& & .2030E-02, .1340E-02, .1068E-02,-.1413E-02, .2449E-02, .2198E-02,& & .2030E-02, .1465E-02, .1528E-02, .9838E-03, .1005E-02,-.1099E-02,& & .2868E-02, .2198E-02, .1968E-02, .1382E-02, .1172E-02, .5652E-03,& & .6070E-03,-.1662E-02, .3077E-02, .2219E-02, .1800E-02, .1277E-02,& & .1005E-02, .3349E-03, .2512E-03,-.1195E-02, .3182E-02, .2219E-02,& & .1758E-02, .1172E-02, .7326E-03, .4815E-03, .6280E-04,-.1880E-02,& & .3265E-02, .2114E-02, .1696E-02, .1298E-02, .4187E-03, .4187E-03,& & -.3768E-03,-.1467E-02,-.1180E-04,-.1294E-04,-.1142E-04,-.7232E-05,& & -.8754E-05,-.1484E-04,-.8373E-05, .1028E-04,-.1218E-04,-.1142E-04,& & -.9515E-05,-.1522E-05,-.9134E-05,-.1484E-04,-.3425E-05, .1142E-06,& & -.1294E-04,-.9895E-05,-.7231E-05,-.4187E-05,-.7612E-05,-.3806E-05,& & .1522E-05,-.3882E-05,-.1256E-04,-.8754E-05,-.7612E-05,-.6470E-05,& & -.4948E-05,-.3425E-05, .4948E-05,-.1054E-04,-.1370E-04,-.6089E-05,& & -.8373E-05,-.5709E-05,-.3045E-05,-.3806E-05, .5328E-05, .8678E-05,& & -.1370E-04,-.6851E-05,-.8373E-05,-.1522E-05,-.3425E-05, .0000E+00,& & .1256E-04,-.1572E-04,-.1484E-04,-.7231E-05,-.7992E-05,-.4567E-05,& & -.2664E-05,-.3807E-06,-.1522E-05, .2169E-05,-.1713E-04,-.9515E-05,& & -.6089E-05,-.6851E-05,-.3045E-05,-.1142E-05, .1903E-05, .9363E-05,& & -.1560E-04,-.9134E-05,-.5328E-05,-.4948E-05, .0000E+00, .7611E-06,& & -.6851E-05, .1252E-04,-.1522E-04,-.8373E-05,-.6089E-05,-.6089E-05,& & -.3805E-06,-.1142E-05,-.3807E-06, .2512E-05,-.1599E-04,-.7231E-05,& & -.5709E-05,-.4567E-05, .1522E-05,-.2284E-05,-.3941E-10, .5290E-05/ data hk_3 / .34, .11, .1, .09, .12, .1, & & .06, .04, .026, .01, .0035, .0005 / data ( ( ( coeh2o_3(k,j,i), i = 1, 12 ), j = 1, 11 ), k = 1, 3 ) / & & -.1900E+02,-.1515E+02,-.1344E+02,-.1224E+02,-.1081E+02,-.9337E+01,& & -.7965E+01,-.6585E+01,-.4578E+01,-.2247E+01, .1747E+00, .3083E+01,& & -.1854E+02,-.1471E+02,-.1300E+02,-.1181E+02,-.1039E+02,-.8927E+01,& & -.7576E+01,-.6238E+01,-.4317E+01,-.2119E+01, .1888E+00, .3033E+01,& & -.1808E+02,-.1426E+02,-.1257E+02,-.1137E+02,-.9966E+01,-.8513E+01,& & -.7177E+01,-.5885E+01,-.4053E+01,-.1977E+01, .2245E+00, .3005E+01,& & -.1763E+02,-.1381E+02,-.1213E+02,-.1094E+02,-.9542E+01,-.8094E+01,& & -.6779E+01,-.5524E+01,-.3788E+01,-.1796E+01, .2961E+00, .2828E+01,& & -.1716E+02,-.1337E+02,-.1170E+02,-.1051E+02,-.9116E+01,-.7677E+01,& & -.6381E+01,-.5153E+01,-.3493E+01,-.1607E+01, .3850E+00, .2660E+01,& & -.1670E+02,-.1295E+02,-.1127E+02,-.1008E+02,-.8690E+01,-.7265E+01,& & -.5991E+01,-.4799E+01,-.3212E+01,-.1438E+01, .4582E+00, .2588E+01,& & -.1596E+02,-.1231E+02,-.1067E+02,-.9501E+01,-.8151E+01,-.6793E+01,& & -.5588E+01,-.4458E+01,-.2940E+01,-.1257E+01, .4888E+00, .2260E+01,& & -.1530E+02,-.1184E+02,-.1017E+02,-.8992E+01,-.7661E+01,-.6369E+01,& & -.5213E+01,-.4145E+01,-.2701E+01,-.1108E+01, .4239E+00, .1974E+01,& & -.1481E+02,-.1144E+02,-.9756E+01,-.8573E+01,-.7255E+01,-.5994E+01,& & -.4868E+01,-.3829E+01,-.2485E+01,-.9738E+00, .3343E+00, .1667E+01,& & -.1439E+02,-.1108E+02,-.9360E+01,-.8183E+01,-.6885E+01,-.5646E+01,& & -.4559E+01,-.3555E+01,-.2314E+01,-.8904E+00, .2169E+00, .1289E+01,& & -.1402E+02,-.1073E+02,-.8987E+01,-.7817E+01,-.6551E+01,-.5335E+01,& & -.4278E+01,-.3316E+01,-.2147E+01,-.8695E+00, .1587E-01, .8658E+00,& & .1132E-01, .8855E-02, .6698E-02, .5296E-02, .4396E-02, .3370E-02,& & .3245E-02, .4145E-02, .4731E-02, .4756E-02, .3116E-02,-.2763E-02,& & .1135E-01, .8917E-02, .6657E-02, .5170E-02, .4207E-02, .3056E-02,& & .2868E-02, .3433E-02, .3726E-02, .4109E-02, .2836E-02,-.3119E-02,& & .1135E-01, .8980E-02, .6615E-02, .5045E-02, .4061E-02, .2847E-02,& & .2491E-02, .2847E-02, .2910E-02, .2671E-02, .2396E-02,-.3245E-02,& & .1135E-01, .9043E-02, .6594E-02, .4940E-02, .3914E-02, .2638E-02,& & .2156E-02, .2261E-02, .2051E-02, .1978E-02, .1566E-02,-.3203E-02,& & .1139E-01, .9085E-02, .6531E-02, .4835E-02, .3768E-02, .2428E-02,& & .1842E-02, .1612E-02, .1591E-02, .1279E-02, .7201E-03,-.2763E-02,& & .1143E-01, .9085E-02, .6447E-02, .4752E-02, .3684E-02, .2261E-02,& & .1570E-02, .1235E-02, .1151E-02, .7243E-03, .6489E-04,-.2240E-02,& & .1135E-01, .9001E-02, .5694E-02, .4438E-02, .3412E-02, .1968E-02,& & .1235E-02, .9420E-03, .8792E-03, .5045E-03,-.1821E-03,-.1936E-02,& & .1174E-01, .9273E-02, .5882E-02, .4689E-02, .3454E-02, .1947E-02,& & .1151E-02, .6070E-03, .6698E-03, .9420E-04,-.6740E-03,-.2707E-02,& & .1218E-01, .9336E-02, .6050E-02, .4731E-02, .3475E-02, .1863E-02,& & .1151E-02, .4605E-03, .3768E-03,-.1214E-03,-.4396E-03,-.1903E-02,& & .1235E-01, .9294E-02, .6029E-02, .4584E-02, .3370E-02, .1800E-02,& & .1068E-02, .2303E-03, .1675E-03,-.4501E-03,-.7571E-03,-.1149E-02,& & .1233E-01, .9315E-02, .6029E-02, .4438E-02, .3203E-02, .1842E-02,& & .9629E-03, .0000E+00,-.2198E-03,-.5338E-03,-.9721E-03,-.7661E-03,& & -.3692E-04,-.3844E-04,-.2588E-04,-.1180E-04,-.1066E-04,-.3426E-05,& & -.2664E-05, .7611E-06, .6089E-05,-.4568E-06,-.2077E-04,-.1142E-04,& & -.3730E-04,-.3806E-04,-.2360E-04,-.1256E-04,-.1180E-04,-.4567E-05,& & -.3425E-05,-.2284E-05,-.1522E-05,-.4225E-05,-.9940E-05,-.4187E-05,& & -.3501E-04,-.3844E-04,-.2131E-04,-.1256E-04,-.9896E-05,-.3806E-05,& & -.4186E-05, .7612E-06,-.1903E-05, .4110E-05, .1789E-05,-.2169E-04,& & -.3425E-04,-.3882E-04,-.1941E-04,-.1294E-04,-.9515E-05,-.4567E-05,& & -.4186E-05, .1522E-05,-.4187E-10, .4605E-05,-.2588E-05, .6470E-05,& & -.3501E-04,-.3730E-04,-.1751E-04,-.1332E-04,-.1066E-04,-.3806E-05,& & -.4567E-05,-.1142E-05,-.3045E-05, .1104E-05,-.1058E-04, .2816E-04,& & -.3578E-04,-.3501E-04,-.1751E-04,-.1332E-04,-.1218E-04,-.3806E-05,& & -.3425E-05,-.3806E-06,-.4187E-05,-.6090E-06,-.6965E-05,-.3463E-04,& & -.3578E-04,-.3349E-04,-.1675E-04,-.9895E-05,-.9515E-05,-.6090E-05,& & -.6470E-05,-.3807E-06,-.5328E-05,-.4186E-06,-.3996E-05, .2074E-04,& & -.3540E-04,-.3083E-04,-.1789E-04,-.9896E-05,-.1104E-04,-.6470E-05,& & -.5709E-05, .3425E-05,-.4567E-05, .3463E-05, .5633E-05,-.3159E-05,& & -.3730E-04,-.2740E-04,-.1484E-04,-.1066E-04,-.1142E-04,-.6470E-05,& & -.6470E-05, .1522E-05,-.1522E-05,-.3045E-05, .3197E-05,-.1039E-04,& & -.3425E-04,-.2284E-04,-.1370E-04,-.1028E-04,-.1104E-04,-.8373E-05,& & -.4948E-05, .1903E-05,-.7612E-06,-.1104E-05, .2455E-05,-.3805E-07,& & -.3235E-04,-.2093E-04,-.1294E-04,-.1142E-04,-.1180E-04,-.6851E-05,& & -.3045E-05,-.7611E-06, .1256E-05,-.7231E-06, .9924E-05, .3578E-05/ data hk_4 / .52, .21, .11, .1, .04, .015, .005 / data ( ( ( coeh2o_4(k,j,i), i = 1, 7 ), j = 1, 11 ), k = 1, 3 ) / & & -.1722E+02,-.1402E+02,-.1202E+02,-.1001E+02,-.7702E+01,-.5273E+01, & & -.6530E+00,-.1677E+02,-.1359E+02,-.1164E+02,-.9662E+01,-.7419E+01, & & -.5001E+01,-.6040E+00,-.1630E+02,-.1316E+02,-.1125E+02,-.9303E+01, & & -.7092E+01,-.4750E+01,-.5715E+00,-.1584E+02,-.1274E+02,-.1086E+02, & & -.8939E+01,-.6751E+01,-.4458E+01,-.4928E+00,-.1538E+02,-.1232E+02, & & -.1048E+02,-.8579E+01,-.6399E+01,-.4191E+01,-.4683E+00,-.1493E+02, & & -.1192E+02,-.1011E+02,-.8241E+01,-.6065E+01,-.3910E+01,-.4310E+00, & & -.1440E+02,-.1145E+02,-.9643E+01,-.7873E+01,-.5710E+01,-.3668E+01, & & -.3304E+00,-.1391E+02,-.1104E+02,-.9238E+01,-.7479E+01,-.5367E+01, & & -.3387E+01,-.3604E+00,-.1348E+02,-.1069E+02,-.8918E+01,-.7122E+01, & & -.5086E+01,-.3152E+01,-.3030E+00,-.1310E+02,-.1037E+02,-.8626E+01, & & -.6790E+01,-.4815E+01,-.2945E+01,-.4789E+00,-.1275E+02,-.1011E+02, & & -.8347E+01,-.6484E+01,-.4584E+01,-.2788E+01,-.5807E+00, .7934E-02, & & .9231E-02, .1005E-01, .9043E-02, .8164E-02, .8980E-02, .6403E-02, & & .7954E-02, .9169E-02, .9797E-02, .8687E-02, .7724E-02, .7954E-02, & & .6652E-02, .7954E-02, .9043E-02, .9608E-02, .8499E-02, .7347E-02, & & .7473E-02, .6382E-02, .7996E-02, .8980E-02, .9378E-02, .8289E-02, & & .7264E-02, .6594E-02, .6674E-02, .8059E-02, .8938E-02, .9294E-02, & & .8227E-02, .7201E-02, .6678E-02, .7032E-02, .8122E-02, .8896E-02, & & .9189E-02, .8038E-02, .7033E-02, .5987E-02, .5475E-02, .8268E-02, & & .9064E-02, .8792E-02, .7975E-02, .6573E-02, .5087E-02, .4657E-02, & & .8541E-02, .8980E-02, .9085E-02, .7996E-02, .6133E-02, .4501E-02, & & .3860E-02, .8813E-02, .9043E-02, .9294E-02, .8122E-02, .5861E-02, & & .4354E-02, .3964E-02, .8875E-02, .8834E-02, .9797E-02, .8164E-02, & & .5463E-02, .4417E-02, .3270E-02, .8938E-02, .8771E-02, .1005E-01, & & .8247E-02, .5589E-02, .4835E-02, .3033E-02,-.1484E-04,-.2169E-04, & & -.2436E-04,-.2588E-04,-.1142E-04,-.1142E-05,-.1519E-04,-.1522E-04, & & -.2055E-04,-.2131E-04,-.2398E-04,-.4948E-05,-.1675E-04,-.3593E-04, & & -.1522E-04,-.2055E-04,-.1865E-04,-.2207E-04,-.4948E-05,-.1180E-04, & & -.1237E-04,-.1598E-04,-.2017E-04,-.1903E-04,-.2284E-04,-.1028E-04, & & -.1865E-04,-.2381E-04,-.1713E-04,-.2017E-04,-.1827E-04,-.2169E-04, & & -.1218E-04,-.9515E-05,-.2415E-04,-.1827E-04,-.2093E-04,-.1637E-04, & & -.1827E-04,-.9134E-05,-.8373E-05,-.1243E-04,-.1560E-04,-.1865E-04, & & -.1599E-04,-.1256E-04,-.1066E-04,-.1142E-05,-.2181E-04,-.1675E-04, & & -.1560E-04,-.1522E-04,-.1675E-04,-.1865E-04,-.1865E-04,-.9522E-05, & & -.1332E-04,-.1370E-04,-.1446E-04,-.2055E-04,-.1142E-04,-.2512E-04, & & -.3343E-04,-.1294E-04,-.1294E-04,-.1751E-04,-.2512E-04,-.1560E-04, & & -.2854E-04,-.7003E-05,-.8753E-05,-.1028E-04,-.1751E-04,-.2512E-04, & & -.1713E-04,-.1713E-04,-.1245E-04 / data hk_5 / .13, .14, .13, .16, .18, .14, & & .07, .02, .016, .008, .004, .002 / data ( ( ( coeh2o_5(k,j,i), i = 1, 12 ), j = 1, 11 ), k = 1, 3 ) / & & -.1499E+02,-.1267E+02,-.1118E+02,-.9696E+01,-.7992E+01,-.6323E+01, & & -.4414E+01,-.2961E+01,-.1715E+01,-.1406E+00, .1612E+01, .3689E+01, & & -.1454E+02,-.1223E+02,-.1075E+02,-.9277E+01,-.7576E+01,-.5915E+01, & & -.4043E+01,-.2630E+01,-.1449E+01, .2314E-01, .1708E+01, .3744E+01, & & -.1408E+02,-.1178E+02,-.1031E+02,-.8851E+01,-.7154E+01,-.5503E+01, & & -.3666E+01,-.2288E+01,-.1141E+01, .2772E+00, .1819E+01, .3788E+01, & & -.1363E+02,-.1134E+02,-.9876E+01,-.8423E+01,-.6733E+01,-.5091E+01, & & -.3286E+01,-.1938E+01,-.8649E+00, .5349E+00, .1969E+01, .3795E+01, & & -.1318E+02,-.1091E+02,-.9452E+01,-.8004E+01,-.6309E+01,-.4677E+01, & & -.2904E+01,-.1595E+01,-.5641E+00, .7592E+00, .2109E+01, .3783E+01, & & -.1275E+02,-.1048E+02,-.9028E+01,-.7585E+01,-.5892E+01,-.4267E+01, & & -.2524E+01,-.1274E+01,-.2782E+00, .9376E+00, .2257E+01, .3714E+01, & & -.1180E+02,-.9887E+01,-.8492E+01,-.7014E+01,-.5390E+01,-.3834E+01, & & -.2156E+01,-.9775E+00,-.3129E-01, .1151E+01, .2330E+01, .3592E+01, & & -.1114E+02,-.9367E+01,-.8002E+01,-.6514E+01,-.4928E+01,-.3435E+01, & & -.1835E+01,-.7064E+00, .2153E+00, .1309E+01, .2422E+01, .3488E+01, & & -.1074E+02,-.8941E+01,-.7582E+01,-.6116E+01,-.4536E+01,-.3072E+01, & & -.1521E+01,-.4651E+00, .4053E+00, .1465E+01, .2374E+01, .3260E+01, & & -.1041E+02,-.8545E+01,-.7180E+01,-.5745E+01,-.4177E+01,-.2735E+01, & & -.1245E+01,-.2356E+00, .5786E+00, .1516E+01, .2263E+01, .3074E+01, & & -.1008E+02,-.8149E+01,-.6804E+01,-.5409E+01,-.3855E+01,-.2427E+01, & & -.9857E+00,-.4939E-01, .7060E+00, .1483E+01, .2159E+01, .2745E+01, & & .9985E-02, .8373E-02, .7431E-02, .6866E-02, .4584E-02, .2952E-02, & & .3098E-02, .3768E-02, .4013E-02, .3960E-02, .3228E-02, .3203E-02, & & .1007E-01, .8436E-02, .7368E-02, .6657E-02, .4375E-02, .2617E-02, & & .2742E-02, .3286E-02, .3192E-02, .2992E-02, .2612E-02, .1968E-02, & & .1019E-01, .8457E-02, .7264E-02, .6426E-02, .4187E-02, .2365E-02, & & .2324E-02, .2614E-02, .2736E-02, .2068E-02, .2085E-02, .1005E-02, & & .1028E-01, .8478E-02, .7138E-02, .6259E-02, .3998E-02, .2156E-02, & & .1926E-02, .1953E-02, .2250E-02, .1844E-02, .1869E-02,-.6489E-03, & & .1030E-01, .8478E-02, .7033E-02, .6112E-02, .3852E-02, .1989E-02, & & .1716E-02, .1763E-02, .1432E-02, .1193E-02, .1306E-02,-.5861E-03, & & .1042E-01, .8499E-02, .6887E-02, .5987E-02, .3768E-02, .1800E-02, & & .1549E-02, .1712E-02, .1287E-02, .7389E-03, .7222E-03,-.1130E-02, & & .8227E-02, .7201E-02, .6866E-02, .5903E-02, .3412E-02, .1591E-02, & & .1402E-02, .1346E-02, .1041E-02, .8185E-03, .3349E-03,-.4815E-03, & & .8268E-02, .6992E-02, .7159E-02, .6384E-02, .3286E-02, .1591E-02, & & .1271E-02, .1202E-02, .9187E-03, .6531E-03,-.4187E-03,-.7954E-03, & & .8478E-02, .7159E-02, .7117E-02, .6447E-02, .3349E-02, .1528E-02, & & .9964E-03, .9210E-03, .6112E-03, .6259E-03,-.3768E-03,-.1298E-02, & & .8520E-02, .7075E-02, .7096E-02, .6405E-02, .3245E-02, .1528E-02, & & .1011E-02, .7877E-03, .7536E-03, .9001E-04,-.6719E-03,-.1026E-02, & & .8561E-02, .6950E-02, .7033E-02, .6280E-02, .2993E-02, .1528E-02, & & .6698E-03, .5847E-03, .2847E-03,-.6280E-04,-.9420E-03,-.1444E-02, & & -.1408E-04,-.2664E-04,-.1180E-04,-.1903E-04,-.9515E-05, .3806E-06, & & -.6851E-05,-.3806E-05,-.4834E-05,-.3239E-05,-.2284E-05,-.1028E-04, & & -.1484E-04,-.2550E-04,-.1142E-04,-.1827E-04,-.9515E-05, .3805E-06, & & -.4948E-05, .3806E-06,-.2664E-06, .1058E-04,-.1012E-04,-.1142E-04, & & -.1560E-04,-.2512E-04,-.1256E-04,-.1865E-04,-.9134E-05, .1142E-05, & & -.3425E-05, .2474E-05,-.9781E-05,-.1519E-05,-.7916E-05,-.1294E-04, & & -.1560E-04,-.2474E-04,-.1180E-04,-.2017E-04,-.7992E-05, .3805E-06, & & -.2283E-05,-.4453E-05,-.1180E-05,-.5138E-05,-.4453E-05,-.3425E-05, & & -.1522E-04,-.2550E-04,-.9896E-05,-.1903E-04,-.9134E-05,-.1142E-05, & & -.7611E-06,-.5252E-05,-.4567E-06,-.4643E-05,-.4567E-06,-.4567E-05, & & -.1294E-04,-.2512E-04,-.1028E-04,-.2055E-04,-.9896E-05,-.4567E-05, & & -.2284E-05,-.5100E-05,-.4339E-06,-.9515E-06,-.1252E-04,-.7612E-06, & & -.2246E-04,-.1370E-04,-.1066E-04,-.1598E-04,-.8754E-05,-.5328E-05, & & -.6622E-05,-.5138E-05,-.8754E-07,-.9515E-06, .6090E-05, .4187E-05, & & -.3463E-04,-.1599E-04,-.1218E-04,-.2093E-04,-.9515E-05,-.4567E-05, & & -.1104E-05,-.1903E-05,-.1488E-05,-.3730E-05,-.4567E-05, .3045E-05, & & -.3463E-04,-.1675E-04,-.1294E-04,-.1979E-04,-.1066E-04,-.4187E-05, & & -.4034E-05,-.2893E-05,-.2588E-05,-.9401E-05, .2284E-05, .3045E-05, & & -.2778E-04,-.1522E-04,-.1560E-04,-.1751E-04,-.1256E-04,-.5709E-05, & & -.2474E-05,-.2577E-05,-.2284E-05,-.4187E-06, .7650E-05,-.3425E-05, & & -.3083E-04,-.1827E-04,-.1370E-04,-.1751E-04,-.1104E-04,-.9515E-05, & & -.6318E-05,-.4358E-05,-.7613E-07, .4643E-05, .4415E-05, .1028E-04/ data hk_6 / .3, .2, .2, .2, .1 / data ( ( ( coeh2o_6(k,j,i), i = 1, 5 ), j = 1, 11 ), k = 1, 3 ) / & & -.1905E+02,-.1602E+02,-.1472E+02,-.1307E+02,-.1024E+02,-.1823E+02, & & -.1555E+02,-.1427E+02,-.1266E+02,-.9938E+01,-.1749E+02,-.1508E+02, & & -.1381E+02,-.1225E+02,-.9641E+01,-.1684E+02,-.1462E+02,-.1337E+02, & & -.1185E+02,-.9367E+01,-.1630E+02,-.1417E+02,-.1294E+02,-.1145E+02, & & -.9123E+01,-.1578E+02,-.1373E+02,-.1251E+02,-.1108E+02,-.8881E+01, & & -.1517E+02,-.1327E+02,-.1209E+02,-.1072E+02,-.8653E+01,-.1463E+02, & & -.1284E+02,-.1169E+02,-.1040E+02,-.8453E+01,-.1421E+02,-.1244E+02, & & -.1133E+02,-.1014E+02,-.8312E+01,-.1382E+02,-.1207E+02,-.1100E+02, & & -.9887E+01,-.8220E+01,-.1348E+02,-.1173E+02,-.1071E+02,-.9685E+01, & & -.8220E+01, .1024E-01, .1842E-02, .6908E-03, .1737E-02, .3517E-02, & & .8394E-02, .2072E-02, .8164E-03, .1716E-02, .2805E-02, .8143E-02, & & .2240E-02, .9001E-03, .1570E-02, .1800E-02, .8227E-02, .2386E-02, & & .9420E-03, .1486E-02, .1068E-02, .8373E-02, .2533E-02, .9210E-03, & & .1319E-02, .9420E-03, .8394E-02, .2700E-02, .9629E-03, .1026E-02, & & .5233E-03, .8917E-02, .2575E-02, .8792E-03, .7536E-03, .4187E-03, & & .9378E-02, .2617E-02, .7955E-03, .6070E-03, .4815E-03, .9797E-02, & & .2638E-02, .6908E-03, .5233E-03, .6280E-03, .1009E-01, .2638E-02, & & .4815E-03, .2931E-03, .4815E-03, .1036E-01, .2428E-02, .3140E-03, & & .3977E-03, .2093E-03,-.5366E-04,-.1522E-04,-.5709E-05,-.2664E-05, & & .3806E-05,-.4301E-04,-.1484E-04,-.4948E-05,-.7610E-06, .7610E-06, & & -.3920E-04,-.1484E-04,-.4948E-05, .3804E-06,-.3806E-05,-.3920E-04, & & -.1522E-04,-.4948E-05, .3425E-05, .1903E-05,-.3806E-04,-.1484E-04, & & -.3045E-05, .2664E-05, .7993E-05,-.4148E-04,-.1408E-04,-.3806E-05, & & .4187E-05, .7993E-05,-.5481E-04,-.1180E-04,-.3045E-05, .3045E-05, & & .2284E-05,-.5709E-04,-.1104E-04,-.2283E-05,-.2664E-05,-.1142E-05, & & -.6090E-04,-.1218E-04,-.2664E-05, .3804E-06, .3045E-05,-.6698E-04, & & -.1218E-04,-.2664E-05, .1523E-05,-.1142E-05,-.6508E-04,-.1218E-04, & & -.3425E-05, .1903E-05, .7612E-06 / data hk_7 / 0.7, 0.3 / data ( ( ( coeh2o_7(k,j,i), i = 1, 2 ), j = 1, 19 ), k = 1, 3 ) / & & -.2008E+02,-.1467E+02,-.2004E+02,-.1426E+02,-.2001E+02,-.1386E+02, & & -.1998E+02,-.1345E+02,-.1995E+02,-.1304E+02,-.1992E+02,-.1263E+02, & & -.1989E+02,-.1223E+02,-.1986E+02,-.1183E+02,-.1984E+02,-.1143E+02, & & -.1758E+02,-.1038E+02,-.1602E+02,-.9480E+01,-.1469E+02,-.8752E+01, & & -.1349E+02,-.8218E+01,-.1255E+02,-.7677E+01,-.1174E+02,-.7184E+01, & & -.1110E+02,-.6735E+01,-.1056E+02,-.6332E+01,-.1019E+02,-.5975E+01, & & -.9874E+01,-.5644E+01, .2533E-02, .2269E-01, .2575E-02, .2263E-01, & & .2554E-02, .2267E-01, .2491E-02, .2250E-01, .2449E-02, .2244E-01, & & .2344E-02, .2234E-01, .2219E-02, .2208E-01, .5694E-02, .2190E-01, & & .9650E-02, .2162E-01, .3286E-01, .1848E-01, .2987E-01, .1578E-01, & & .2527E-01, .1465E-01, .2175E-01, .1386E-01, .2056E-01, .1235E-01, & & .1963E-01, .1116E-01, .1926E-01, .1040E-01, .2014E-01, .1040E-01, & & .2024E-01, .1042E-01, .1972E-01, .1080E-01,-.8754E-05,-.6698E-04, & & -.1104E-04,-.6432E-04,-.1142E-04,-.6051E-04,-.1180E-04,-.6128E-04, & & -.1180E-04,-.6242E-04,-.1218E-04,-.6280E-04,-.1218E-04,-.6204E-04, & & .5328E-04,-.5709E-04, .1275E-03,-.5214E-04,-.1370E-03,-.4148E-04, & & -.1100E-03,-.3045E-04,-.9248E-04,-.3197E-04,-.7346E-04,-.2436E-04, & & -.5100E-04,-.2131E-04,-.5861E-04,-.2550E-04,-.5328E-04,-.3311E-04, & & -.6090E-04,-.4225E-04,-.5443E-04,-.4415E-04,-.4034E-04,-.4339E-04/ data hk_8 / 0.2, 0.7, 0.1 / data ( ( ( coeh2o_8(k,j,i), i = 1, 3 ), j = 1, 19 ), k = 1, 3 ) / & & -.2283E+02,-.1639E+02,-.6155E+01,-.2237E+02,-.1595E+02,-.5775E+01, & & -.2191E+02,-.1551E+02,-.5381E+01,-.2145E+02,-.1507E+02,-.5004E+01, & & -.2099E+02,-.1463E+02,-.4617E+01,-.2053E+02,-.1419E+02,-.4218E+01, & & -.2025E+02,-.1375E+02,-.3806E+01,-.2021E+02,-.1330E+02,-.3403E+01, & & -.2018E+02,-.1287E+02,-.2993E+01,-.1998E+02,-.1091E+02,-.2586E+01, & & -.1744E+02,-.9171E+01,-.2162E+01,-.1490E+02,-.7642E+01,-.1763E+01, & & -.1303E+02,-.6526E+01,-.1373E+01,-.1113E+02,-.5846E+01,-.9699E+00, & & -.9814E+01,-.5280E+01,-.5955E+00,-.8582E+01,-.4787E+01,-.2510E+00, & & -.8020E+01,-.4350E+01, .2770E-01,-.7571E+01,-.3942E+01, .2406E+00, & & -.7140E+01,-.3537E+01, .3567E+00, .3722E-01, .1505E-01, .6615E-02, & & .3722E-01, .1518E-01, .5840E-02, .3720E-01, .1526E-01, .5170E-02, & & .3399E-01, .1530E-01, .4773E-02, .3012E-01, .1551E-01, .4333E-02, & & .2625E-01, .1553E-01, .3956E-02, .2240E-01, .1562E-01, .3454E-02, & & .1846E-01, .1574E-01, .3161E-02, .1446E-01, .1572E-01, .3098E-02, & & .5924E-02, .8875E-02, .2658E-02, .2204E-01, .7096E-02, .2504E-02, & & .1591E-01, .5233E-02, .2292E-02, .8855E-02, .4249E-02, .2190E-02, & & .5422E-02, .3496E-02, .2041E-02, .4919E-02, .3621E-02, .2200E-02, & & .6657E-02, .3663E-02, .2248E-02, .8645E-02, .3852E-02, .2118E-02, & & .8771E-02, .3873E-02, .2176E-02, .9043E-02, .3747E-02, .2079E-02, & & -.1568E-03,-.4681E-04, .4567E-05,-.1568E-03,-.4605E-04,-.3425E-05, & & -.1572E-03,-.4605E-04,-.1104E-04,-.2154E-03,-.4453E-04,-.6851E-05, & & -.2843E-03,-.4225E-04,-.7231E-05,-.3562E-03,-.4110E-04,-.7231E-05, & & -.3692E-03,-.4110E-04,-.1028E-04,-.3007E-03,-.4263E-04,-.6470E-05, & & -.2325E-03,-.3996E-04,-.8373E-05,-.5290E-04,-.7612E-05,-.4948E-05, & & -.7422E-04,-.1256E-04,-.8449E-05,-.3501E-04,-.1446E-04,-.4834E-05, & & .4529E-04,-.2246E-04,-.2893E-05, .6470E-05,-.1789E-04,-.7498E-05, & & -.4948E-05,-.1713E-04,-.8183E-05,-.5481E-04,-.1713E-04,-.1447E-04, & & -.4986E-04,-.1903E-04,-.1353E-04,-.5138E-04,-.1484E-04,-.1147E-04, & & -.5328E-04,-.1560E-04,-.6588E-05/ data hk_9 / 0.22, 0.51, 0.22, 0.05 / data ( ( ( coeh2o_9(k,j,i), i = 1, 4 ), j = 1, 19 ), k = 1, 3 ) / & & -.2066E+02,-.1464E+02,-.8301E+01,-.3548E+01,-.2025E+02,-.1419E+02, & & -.7905E+01,-.3260E+01,-.2019E+02,-.1374E+02,-.7495E+01,-.2927E+01, & & -.2013E+02,-.1329E+02,-.7078E+01,-.2584E+01,-.2007E+02,-.1284E+02, & & -.6675E+01,-.2247E+01,-.2001E+02,-.1239E+02,-.6268E+01,-.1890E+01, & & -.1996E+02,-.1194E+02,-.5853E+01,-.1530E+01,-.1991E+02,-.1150E+02, & & -.5441E+01,-.1133E+01,-.1987E+02,-.1105E+02,-.5022E+01,-.7447E+00, & & -.1575E+02,-.9657E+01,-.4191E+01,-.3728E+00,-.1329E+02,-.8133E+01, & & -.3638E+01, .1616E-01,-.1181E+02,-.6675E+01,-.3178E+01, .4083E+00, & & -.1036E+02,-.5655E+01,-.2731E+01, .7953E+00,-.8628E+01,-.4990E+01, & & -.2303E+01, .1153E+01,-.7223E+01,-.4453E+01,-.1877E+01, .1454E+01, & & -.6567E+01,-.3974E+01,-.1461E+01, .1663E+01,-.6077E+01,-.3551E+01, & & -.1071E+01, .1800E+01,-.5651E+01,-.3136E+01,-.7005E+00, .1809E+01, & & -.5241E+01,-.2726E+01,-.3859E+00, .1781E+01, .1315E-01, .4542E-02, & & .3496E-02, .4877E-02, .9650E-02, .4542E-02, .3098E-02, .3956E-02, & & .6154E-02, .4626E-02, .2763E-02, .3077E-02, .2658E-02, .4626E-02, & & .2512E-02, .2261E-02, .2658E-02, .4689E-02, .2219E-02, .1405E-02, & & .2700E-02, .4752E-02, .1926E-02, .7473E-03, .2658E-02, .4773E-02, & & .1737E-02, .5066E-03, .4668E-02, .4815E-02, .1507E-02, .1842E-03, & & .8541E-02, .4794E-02, .1382E-02,-.2156E-03, .1022E-01, .2198E-02, & & .3977E-03,-.2910E-03, .5484E-02, .6698E-03, .0000E+00,-.2339E-03, & & .3349E-02, .1068E-02,-.2512E-03,-.4228E-03, .1884E-02, .2093E-03, & & -.3977E-03,-.6405E-03,-.8373E-04,-.5233E-03,-.4124E-03,-.5945E-03, & & .7536E-03,-.6698E-03,-.4919E-03,-.4794E-03, .3600E-02,-.4605E-03, & & -.4375E-03,-.3517E-03, .3873E-02,-.5861E-03,-.3203E-03,-.4689E-03, & & .3935E-02,-.7326E-03,-.2072E-03,-.4228E-03, .4124E-02,-.8582E-03, & & -.4187E-04,-.5945E-03,-.8525E-04, .1865E-04,-.1142E-05, .2664E-05, & & -.1313E-03, .1865E-04, .0000E+00, .1256E-04,-.6470E-04, .1865E-04, & & -.3045E-05, .8754E-05, .3805E-06, .1789E-04,-.6851E-05, .5328E-05, & & .1142E-05, .1827E-04,-.6090E-05, .4148E-05, .1142E-05, .1865E-04, & & -.3806E-05,-.3768E-05,-.1903E-05, .1751E-04,-.4948E-05, .3121E-05, & & .3159E-04, .1979E-04,-.3045E-05,-.9896E-06, .1005E-03, .1789E-04, & & -.6089E-05,-.1865E-05,-.2207E-04, .1941E-04, .1903E-05, .2322E-05, & & -.1675E-04, .6090E-05,-.7611E-06, .4397E-05, .3425E-04, .3806E-06, & & .1522E-05, .3806E-05, .4796E-04, .1522E-05,-.3806E-06, .3654E-05, & & -.6851E-05, .2664E-05,-.3920E-05,-.6850E-06,-.1370E-04, .5328E-05, & & -.6584E-05,-.8716E-05,-.8374E-10, .1522E-05,-.6356E-05, .1294E-05, & & -.9515E-05, .7612E-06,-.3235E-05,-.1066E-05,-.7612E-05, .1142E-05, & & -.4529E-05, .3730E-05,-.2664E-05,-.3806E-06,-.3501E-05,-.5328E-06/ data hk_10 / 0.28, 0.42, 0.25, 0.05 / data ( ( ( coeh2o_10(k,j,i), i = 1, 4 ), j = 1, 19 ), k = 1, 3 ) / & & -.2023E+02,-.1641E+02,-.1171E+02,-.6090E+01,-.2016E+02,-.1595E+02, & & -.1133E+02,-.5867E+01,-.2011E+02,-.1550E+02,-.1095E+02,-.5660E+01, & & -.2005E+02,-.1504E+02,-.1055E+02,-.5407E+01,-.2001E+02,-.1459E+02, & & -.1015E+02,-.5137E+01,-.1997E+02,-.1413E+02,-.9749E+01,-.4852E+01, & & -.1993E+02,-.1367E+02,-.9337E+01,-.4534E+01,-.1990E+02,-.1321E+02, & & -.8920E+01,-.4211E+01,-.1987E+02,-.1276E+02,-.8506E+01,-.3889E+01, & & -.1645E+02,-.1179E+02,-.7711E+01,-.3613E+01,-.1442E+02,-.1081E+02, & & -.6942E+01,-.3316E+01,-.1308E+02,-.9950E+01,-.6344E+01,-.2950E+01, & & -.1212E+02,-.9217E+01,-.5904E+01,-.2577E+01,-.1131E+02,-.8559E+01, & & -.5519E+01,-.2256E+01,-.1064E+02,-.7962E+01,-.5183E+01,-.1929E+01, & & -.1013E+02,-.7447E+01,-.4833E+01,-.1643E+01,-.9712E+01,-.7071E+01, & & -.4485E+01,-.1410E+01,-.9305E+01,-.6760E+01,-.4145E+01,-.1249E+01, & & -.8966E+01,-.6477E+01,-.3820E+01,-.1114E+01, .7913E-02, .8206E-02, & & .1509E-01, .1869E-01, .4228E-02, .8247E-02, .1467E-01, .1783E-01, & & .2010E-02, .8227E-02, .1442E-01, .1687E-01, .1947E-02, .8289E-02, & & .1394E-01, .1568E-01, .1863E-02, .8289E-02, .1346E-01, .1484E-01, & & .1842E-02, .8415E-02, .1310E-01, .1400E-01, .1800E-02, .8457E-02, & & .1275E-01, .1377E-01, .1696E-02, .8478E-02, .1220E-01, .1321E-01, & & .1842E-02, .8478E-02, .1189E-01, .1250E-01, .1409E-01, .8624E-02, & & .1254E-01, .1214E-01, .9043E-02, .1045E-01, .1225E-01, .1260E-01, & & .8561E-02, .1202E-01, .1181E-01, .1296E-01, .1114E-01, .1235E-01, & & .1191E-01, .1330E-01, .1199E-01, .1271E-01, .1195E-01, .1371E-01, & & .1415E-01, .1315E-01, .1218E-01, .1361E-01, .1478E-01, .1338E-01, & & .1296E-01, .1306E-01, .1518E-01, .1375E-01, .1365E-01, .1334E-01, & & .1530E-01, .1411E-01, .1392E-01, .1327E-01, .1547E-01, .1507E-01, & & .1390E-01, .1264E-01,-.1089E-03,-.2740E-04,-.2017E-04,-.5519E-04, & & -.4491E-04,-.2740E-04,-.1408E-04,-.5937E-04,-.6090E-05,-.2702E-04, & & -.6470E-05,-.4719E-04,-.7232E-05,-.2740E-04,-.6089E-05,-.4910E-04, & & -.7231E-05,-.2969E-04,-.4186E-05,-.5366E-04,-.6090E-05,-.3045E-04, & & -.2284E-05,-.4986E-04,-.4568E-05,-.3121E-04,-.4948E-05,-.5100E-04, & & -.3426E-05,-.3007E-04,-.7993E-05,-.4910E-04, .1522E-05,-.2931E-04, & & -.9896E-05,-.5366E-04,-.5823E-04,-.1599E-04,-.1713E-04,-.4110E-04, & & -.3121E-04,-.1713E-04,-.3159E-04,-.3578E-04,-.3996E-04,-.1598E-04, & & -.3958E-04,-.4605E-04,-.3349E-04,-.1751E-04,-.3844E-04,-.5576E-04, & & -.2626E-04,-.2474E-04,-.3920E-04,-.4464E-04,-.1979E-04,-.3045E-04, & & -.3958E-04,-.5336E-04,-.2893E-04,-.3616E-04,-.3996E-04,-.4754E-04, & & -.2398E-04,-.3083E-04,-.4415E-04,-.5119E-04,-.2702E-04,-.2664E-04, & & -.4605E-04,-.4038E-04,-.2398E-04,-.2360E-04,-.4948E-04,-.5149E-04/ data ( ( coech4_10(k,j), j = 1, 19 ), k = 1, 3 ) / & & -.8909E+01,-.8464E+01,-.8018E+01,-.7573E+01,-.7133E+01,-.6687E+01, & & -.6240E+01,-.5803E+01,-.5377E+01,-.4534E+01,-.3983E+01,-.3502E+01, & & -.3062E+01,-.2648E+01,-.2265E+01,-.1896E+01,-.1568E+01,-.1234E+01, & & -.9298E+00, .9629E-03, .9838E-03, .1088E-02, .1172E-02, .1256E-02, & & .1402E-02, .1528E-02, .1633E-02, .1716E-02, .4815E-03,-.3977E-03, & & -.5652E-03,-.5024E-03,-.4605E-03,-.4563E-03,-.4438E-03,-.4521E-03, & & -.4312E-03,-.3789E-03,-.1294E-04,-.1408E-04,-.1522E-04,-.1675E-04, & & -.1751E-04,-.1941E-04,-.2246E-04,-.2207E-04,-.1827E-04,-.1256E-04, & & -.9515E-05,-.6470E-05,-.3045E-05,-.3806E-05,-.2055E-05,-.3730E-05, & & -.7612E-06,-.3806E-05, .1256E-05/ data ( ( coen2o_10(k,j), j = 1, 19 ), k = 1, 3 ) / & & -.7863E+01,-.7412E+01,-.6963E+01,-.6514E+01,-.6065E+01,-.5611E+01, & & -.5167E+01,-.4720E+01,-.4283E+01,-.3454E+01,-.2858E+01,-.2404E+01, & & -.1922E+01,-.1491E+01,-.1097E+01,-.7177E+00,-.3548E+00, .1218E-01, & & .3088E+00, .4459E-02, .4542E-02, .4668E-02, .4752E-02, .4815E-02, & & .4919E-02, .5087E-02, .5254E-02, .5296E-02, .2324E-02, .2093E-02, & & .2294E-02, .2125E-02, .2058E-02, .1920E-02, .1786E-02, .1689E-02, & & .1788E-02, .2144E-02,-.7231E-05,-.7231E-05,-.7231E-05,-.6470E-05, & & -.6851E-05,-.7231E-05,-.5709E-05,-.6470E-05,-.4186E-05, .8754E-05, & & -.7612E-05,-.9134E-06,-.8640E-05,-.8487E-05,-.8259E-05,-.9553E-05, & & -.8107E-05,-.1654E-04,-.1858E-04/ data hk_11 / 0.80, 0.15, 0.05 / data ( ( ( coeh2o_11(k,j,i), i = 1, 3 ), j = 1, 19 ), k = 1, 3 ) / & & -.2005E+02,-.1548E+02,-.1021E+02,-.2001E+02,-.1504E+02,-.1001E+02, & & -.1997E+02,-.1459E+02,-.9814E+01,-.1993E+02,-.1416E+02,-.9595E+01, & & -.1989E+02,-.1373E+02,-.9349E+01,-.1985E+02,-.1328E+02,-.9072E+01, & & -.1982E+02,-.1286E+02,-.8833E+01,-.1957E+02,-.1243E+02,-.8566E+01, & & -.1911E+02,-.1200E+02,-.8276E+01,-.1743E+02,-.1134E+02,-.7958E+01, & & -.1625E+02,-.1078E+02,-.7629E+01,-.1524E+02,-.1036E+02,-.7334E+01, & & -.1429E+02,-.9970E+01,-.7051E+01,-.1348E+02,-.9620E+01,-.6749E+01, & & -.1282E+02,-.9270E+01,-.6505E+01,-.1229E+02,-.8932E+01,-.6277E+01, & & -.1186E+02,-.8628E+01,-.6120E+01,-.1148E+02,-.8345E+01,-.6049E+01, & & -.1112E+02,-.8066E+01,-.5906E+01, .1842E-02, .2131E-01, .3033E-01, & & .1905E-02, .2137E-01, .2841E-01, .1926E-02, .2135E-01, .2696E-01, & & .1926E-02, .2133E-01, .2514E-01, .1884E-02, .2154E-01, .2401E-01, & & .5589E-02, .2156E-01, .2321E-01, .9483E-02, .2156E-01, .2210E-01, & & .1333E-01, .2150E-01, .2133E-01, .1725E-01, .2154E-01, .2074E-01, & & .2254E-01, .1999E-01, .2005E-01, .2118E-01, .1926E-01, .1978E-01, & & .1936E-01, .1920E-01, .1963E-01, .1905E-01, .1911E-01, .1934E-01, & & .1909E-01, .1903E-01, .1920E-01, .1922E-01, .1901E-01, .1899E-01, & & .1934E-01, .1930E-01, .1974E-01, .1966E-01, .1909E-01, .2014E-01, & & .1976E-01, .1905E-01, .1984E-01, .1963E-01, .1940E-01, .1897E-01, & & -.1522E-05,-.6013E-04,-.5062E-04,-.2665E-05,-.6204E-04,-.5519E-04, & & -.3806E-05,-.6394E-04,-.5633E-04,-.4567E-05,-.6280E-04,-.5214E-04, & & -.6090E-05,-.6128E-04,-.5290E-04, .6051E-04,-.6242E-04,-.5823E-04, & & .1313E-03,-.6013E-04,-.5176E-04, .1336E-03,-.5747E-04,-.4072E-04, & & .6318E-04,-.5671E-04,-.3996E-04,-.5595E-04,-.3996E-04,-.4263E-04, & & -.3958E-04,-.4719E-04,-.4453E-04,-.3387E-04,-.5138E-04,-.5100E-04, & & -.5252E-04,-.4986E-04,-.4491E-04,-.5100E-04,-.4453E-04,-.4529E-04, & & -.5176E-04,-.4795E-04,-.4453E-04,-.5557E-04,-.5176E-04,-.5062E-04, & & -.5747E-04,-.4795E-04,-.5633E-04,-.5709E-04,-.4643E-04,-.3806E-04, & & -.5481E-04,-.5671E-04,-.4948E-04/ data ( ( coech4_11(k,j), j = 1, 19 ), k = 1, 3 ) / & & -.1207E+02,-.1162E+02,-.1116E+02,-.1070E+02,-.1024E+02,-.9777E+01, & & -.9319E+01,-.8858E+01,-.8398E+01,-.7384E+01,-.6643E+01,-.6081E+01, & & -.5602E+01,-.5188E+01,-.4822E+01,-.4479E+01,-.4184E+01,-.3884E+01, & & -.3627E+01, .1036E-01, .1036E-01, .1040E-01, .1040E-01, .1045E-01, & & .1047E-01, .1049E-01, .1055E-01, .1059E-01, .1059E-01, .1026E-01, & & .1011E-01, .1024E-01, .1049E-01, .1072E-01, .1089E-01, .1109E-01, & & .1153E-01, .1191E-01,-.4910E-04,-.4834E-04,-.4910E-04,-.4910E-04, & & -.4910E-04,-.4872E-04,-.4834E-04,-.4948E-04,-.5100E-04,-.5633E-04, & & -.6166E-04,-.5595E-04,-.5366E-04,-.5366E-04,-.5328E-04,-.5328E-04, & & -.4948E-04,-.5519E-04,-.5595E-04/ data ( ( coen2o_11(k,j), j = 1, 19 ), k = 1, 3 ) / & -.9461E+01,-.9003E+01,-.8543E+01,-.8084E+01,-.7629E+01,-.7166E+01, & & -.6707E+01,-.6249E+01,-.5793E+01,-.5312E+01,-.4847E+01,-.4393E+01, & & -.3974E+01,-.3587E+01,-.3231E+01,-.2885E+01,-.2602E+01,-.2358E+01, & & -.2108E+01, .4710E-02, .4752E-02, .4773E-02, .4773E-02, .4815E-02, & & .4877E-02, .4898E-02, .4982E-02, .5066E-02, .5296E-02, .5149E-02, & & .5129E-02, .5024E-02, .4752E-02, .4501E-02, .4270E-02, .4019E-02, & & .3646E-02, .2759E-02,-.1484E-04,-.1408E-04,-.1446E-04,-.1446E-04, & & -.1522E-04,-.1560E-04,-.1522E-04,-.1522E-04,-.1598E-04,-.1484E-04, & & -.9895E-05,-.1028E-04,-.7612E-05,-.1903E-05, .1903E-05, .0000E+00, & & .2283E-05, .6166E-05,-.2740E-05/ data hk_12 / 0.45, 0.30, 0.2, 0.04, 0.01 / data ( ( ( coeo3_12(k,j,i), i = 1, 5 ), j = 1, 19 ), k = 1, 3 ) / & & -.6590E+01,-.3912E+01,-.8513E+00, .2731E+01, .5515E+01,-.6157E+01, & & -.3583E+01,-.7292E+00, .2740E+01, .5508E+01,-.5731E+01,-.3242E+01, & & -.5800E+00, .2782E+01, .5485E+01,-.5301E+01,-.2901E+01,-.4131E+00, & & .2805E+01, .5455E+01,-.4879E+01,-.2551E+01,-.2288E+00, .2878E+01, & & .5416E+01,-.4449E+01,-.2201E+01,-.2228E-01, .3000E+01, .5374E+01, & & -.4018E+01,-.1843E+01, .2055E+00, .3143E+01, .5342E+01,-.3615E+01, & & -.1502E+01, .4561E+00, .3288E+01, .5204E+01,-.3228E+01,-.1172E+01, & & .7099E+00, .3396E+01, .5077E+01,-.2828E+01,-.8499E+00, .9664E+00, & & .3463E+01, .4893E+01,-.2480E+01,-.5393E+00, .1229E+01, .3493E+01, & & .4656E+01,-.2181E+01,-.2653E+00, .1504E+01, .3456E+01, .4398E+01, & & -.1950E+01,-.1469E-01, .1735E+01, .3387E+01, .4115E+01,-.1788E+01, & & .2517E+00, .1919E+01, .3251E+01, .3832E+01,-.1677E+01, .5027E+00, & & .2032E+01, .3088E+01, .3581E+01,-.1637E+01, .7373E+00, .2100E+01, & & .2910E+01, .3364E+01,-.1650E+01, .9383E+00, .2123E+01, .2793E+01, & & .3150E+01,-.1658E+01, .1091E+01, .2112E+01, .2683E+01, .3021E+01, & & -.1654E+01, .1163E+01, .2099E+01, .2602E+01, .2871E+01, .9498E-02, & & .8894E-02, .1161E-01, .8828E-02,-.1669E-02, .9613E-02, .8347E-02, & & .1053E-01, .8462E-02,-.1612E-02, .9700E-02, .7829E-02, .9101E-02, & & .7915E-02,-.1439E-02, .9815E-02, .7167E-02, .7981E-02, .7282E-02, & & -.1094E-02, .9671E-02, .6764E-02, .6930E-02, .5613E-02,-.8347E-03, & & .9613E-02, .6312E-02, .6225E-02, .4145E-02,-.1295E-02, .9728E-02, & & .6099E-02, .5293E-02, .2965E-02,-.1756E-02, .9844E-02, .5915E-02, & & .4496E-02, .1871E-02,-.2044E-02, .9930E-02, .5817E-02, .3509E-02, & & .1324E-02,-.2044E-02, .9988E-02, .5535E-02, .2711E-02, .6620E-03, & & -.1813E-02, .1034E-01, .5247E-02, .1926E-02,-.2303E-03,-.1842E-02, & & .1058E-01, .4795E-02, .1197E-02,-.9498E-03,-.2216E-02, .1084E-01, & & .4414E-02, .6188E-03,-.1123E-02,-.2303E-02, .1079E-01, .3926E-02, & & .1756E-03,-.1497E-02,-.2274E-02, .1039E-01, .3425E-02,-.1900E-03, & & -.1353E-02,-.2389E-02, .9815E-02, .2769E-02,-.6620E-03,-.1756E-02, & & -.1785E-02, .9818E-02, .2444E-02,-.1016E-02,-.1410E-02,-.1698E-02, & & .1074E-01, .3218E-02,-.1235E-02,-.1900E-02,-.2533E-02, .1145E-01, & & .3684E-02,-.1364E-02,-.1353E-02,-.1957E-02,-.4030E-04,-.2375E-04, & & -.3814E-05,-.4943E-04,-.3166E-04,-.3742E-04,-.1871E-04,-.1137E-04, & & -.4317E-04,-.2878E-04,-.3526E-04,-.2015E-04,-.1295E-04,-.4821E-04, & & -.2303E-04,-.3382E-04,-.2087E-04,-.1519E-04,-.2231E-04,-.1871E-04, & & -.3454E-04,-.2087E-04,-.8109E-05,-.6476E-05,-.1511E-04,-.3454E-04, & & -.1820E-04,-.1269E-05,-.1439E-04,-.5037E-05,-.4173E-04,-.2598E-04, & & .6645E-05,-.1943E-04,-.2087E-04,-.3454E-04,-.2267E-04, .2159E-05, & & -.2231E-04,-.2159E-05,-.2950E-04,-.2080E-04, .2159E-06,-.4317E-05, & & .1799E-04,-.3670E-04,-.1590E-04,-.4461E-05,-.9354E-05,-.3598E-05, & & -.3216E-04,-.1475E-04,-.2231E-05,-.1295E-04,-.2878E-05,-.3576E-04, & & -.7347E-05,-.1022E-04,-.2159E-05,-.7915E-05,-.3015E-04,-.5230E-05, & & -.5109E-05,-.6476E-05,-.7196E-05,-.2331E-04,-.1079E-04,-.4102E-05, & & .1439E-05,-.1223E-04,-.2216E-04,-.1094E-04,-.5325E-05,-.7196E-06, & & -.1655E-04,-.1036E-04,-.7627E-05,-.2878E-05, .5037E-05,-.1295E-04, & & .1029E-04,-.1346E-04,-.4821E-05,-.7915E-05, .7915E-05, .2835E-04, & & -.2893E-04,-.1367E-05,-.7196E-05,-.1871E-04, .3965E-04,-.3310E-04, & & -.3310E-05,-.7195E-06, .2303E-04/ data ( ( coeh2o_12(k,j), j = 1, 19 ), k = 1, 3 ) / & & -.1984E+02,-.1983E+02,-.1982E+02,-.1981E+02,-.1963E+02,-.1917E+02, & & -.1871E+02,-.1825E+02,-.1779E+02,-.1639E+02,-.1545E+02,-.1484E+02, & & -.1433E+02,-.1387E+02,-.1345E+02,-.1305E+02,-.1268E+02,-.1231E+02, & & -.1196E+02, .6071E-03, .2072E-02, .6196E-02, .1030E-01, .1436E-01, & & .1846E-01, .2259E-01, .2667E-01, .2993E-01, .2878E-01, .2803E-01, & & .2851E-01, .2864E-01, .2874E-01, .2862E-01, .2859E-01, .2853E-01, & & .2868E-01, .2887E-01,-.3808E-06, .2474E-04, .9895E-04, .1728E-03, & & .1911E-03, .1165E-03, .4225E-04,-.3121E-04,-.8982E-04,-.9553E-04, & & -.9705E-04,-.9591E-04,-.9287E-04,-.9172E-04,-.9096E-04,-.9134E-04, & & -.9248E-04,-.1050E-03,-.1031E-03/ data hk_13 / 0.95, 0.05 / data ( ( ( coeh2o_13(k,j,i), i = 1, 2 ), j = 1, 19 ), k = 1, 3 ) / & & -.1992E+02,-.1446E+02,-.1992E+02,-.1405E+02,-.1991E+02,-.1363E+02, & & -.1990E+02,-.1322E+02,-.1989E+02,-.1282E+02,-.1989E+02,-.1242E+02, & & -.1988E+02,-.1201E+02,-.1987E+02,-.1159E+02,-.1986E+02,-.1119E+02, & & -.1982E+02,-.1079E+02,-.1817E+02,-.1039E+02,-.1659E+02,-.1000E+02, & & -.1537E+02,-.9623E+01,-.1460E+02,-.9266E+01,-.1406E+02,-.8959E+01, & & -.1354E+02,-.8676E+01,-.1309E+02,-.8411E+01,-.1267E+02,-.8232E+01, & & -.1229E+02,-.8094E+01, .5024E-03, .3199E-01, .5652E-03, .3199E-01, & & .6071E-03, .3211E-01, .6489E-03, .3199E-01, .6699E-03, .3178E-01, & & .6908E-03, .3157E-01, .6908E-03, .3109E-01, .6698E-03, .3075E-01, & & .6698E-03, .3054E-01, .1474E-01, .3000E-01, .3085E-01, .2960E-01, & & .3659E-01, .2935E-01, .3016E-01, .2920E-01, .2834E-01, .2895E-01, & & .2780E-01, .2870E-01, .2753E-01, .2843E-01, .2755E-01, .2820E-01, & & .2765E-01, .2732E-01, .2769E-01, .2705E-01, .6299E-09,-.7993E-04, & & -.3802E-06,-.7992E-04,-.3802E-06,-.8525E-04,-.3808E-06,-.8449E-04, & & -.7610E-06,-.7764E-04,-.1142E-05,-.7231E-04,-.1142E-05,-.7345E-04, & & -.2284E-05,-.8259E-04,-.2284E-05,-.8031E-04, .2436E-03,-.7878E-04, & & .7612E-05,-.8525E-04,-.1248E-03,-.9439E-04,-.9477E-04,-.9172E-04, & & -.8982E-04,-.8640E-04,-.7916E-04,-.6813E-04,-.7574E-04,-.6090E-04, & & -.7612E-04,-.7117E-04,-.7498E-04,-.7041E-04,-.7269E-04,-.7992E-04/ data hk_14 / .3,.3,.2,.12,.06,.012,.004,.0025,.0011,.0004 / data ( ( ( coehca_14(k,j,i), i = 1, 10 ), j = 1, 19 ), k = 1, 3 ) / & & -.1847E+02,-.1399E+02,-.1106E+02,-.8539E+01,-.5852E+01,-.3295E+01, & & -.1208E+01,-.6272E-01, .2055E+01, .6071E+01,-.1801E+02,-.1357E+02, & & -.1067E+02,-.8171E+01,-.5562E+01,-.3071E+01,-.1073E+01, .1033E+00, & & .2055E+01, .6071E+01,-.1755E+02,-.1314E+02,-.1027E+02,-.7798E+01, & & -.5224E+01,-.2823E+01,-.9280E+00, .2723E+00, .2165E+01, .5969E+01, & & -.1709E+02,-.1272E+02,-.9868E+01,-.7404E+01,-.4880E+01,-.2569E+01, & & -.6908E+00, .4453E+00, .2241E+01, .5969E+01,-.1663E+02,-.1230E+02, & & -.9467E+01,-.7013E+01,-.4535E+01,-.2297E+01,-.4408E+00, .6353E+00, & & .2359E+01, .5969E+01,-.1617E+02,-.1188E+02,-.9050E+01,-.6619E+01, & & -.4160E+01,-.1967E+01,-.1687E+00, .8213E+00, .2421E+01, .5969E+01, & & -.1571E+02,-.1147E+02,-.8629E+01,-.6230E+01,-.3771E+01,-.1648E+01, & & .1573E+00, .1019E+01, .2511E+01, .5884E+01,-.1525E+02,-.1106E+02, & & -.8215E+01,-.5841E+01,-.3393E+01,-.1331E+01, .4013E+00, .1198E+01, & & .2654E+01, .5794E+01,-.1480E+02,-.1066E+02,-.7800E+01,-.5454E+01, & & -.3032E+01,-.9870E+00, .6323E+00, .1373E+01, .2905E+01, .5647E+01, & & -.1402E+02,-.9693E+01,-.7206E+01,-.4846E+01,-.2656E+01,-.6540E+00, & & .8323E+00, .1530E+01, .3211E+01, .5355E+01,-.1343E+02,-.9060E+01, & & -.6596E+01,-.4399E+01,-.2294E+01,-.3519E+00, .9823E+00, .1673E+01, & & .3420E+01, .5083E+01,-.1279E+02,-.8611E+01,-.5785E+01,-.4010E+01, & & -.1936E+01,-.1177E+00, .1134E+01, .1974E+01, .3591E+01, .4770E+01, & & -.1230E+02,-.8174E+01,-.5298E+01,-.3611E+01,-.1607E+01, .3636E-01, & & .1433E+01, .2260E+01, .3539E+01, .4439E+01,-.1192E+02,-.7763E+01, & & -.4946E+01,-.3228E+01,-.1321E+01, .1991E+00, .1720E+01, .2420E+01, & & .3383E+01, .4041E+01,-.1154E+02,-.7377E+01,-.4576E+01,-.2851E+01, & & -.1093E+01, .4430E+00, .1896E+01, .2462E+01, .3122E+01, .3620E+01, & & -.1118E+02,-.7003E+01,-.4210E+01,-.2524E+01,-.8973E+00, .7490E+00, & & .1966E+01, .2363E+01, .2818E+01, .3182E+01,-.1080E+02,-.6677E+01, & & -.3872E+01,-.2264E+01,-.6846E+00, .9392E+00, .1867E+01, .2138E+01, & & .2505E+01, .2738E+01,-.1031E+02,-.6353E+01,-.3596E+01,-.1938E+01, & & -.4537E+00, .1015E+01, .1659E+01, .1830E+01, .2142E+01, .2287E+01, & & -.9695E+01,-.5977E+01,-.3427E+01,-.1596E+01,-.1979E+00, .9458E+00, & & .1363E+01, .1545E+01, .1743E+01, .1832E+01, .3628E-01, .2728E-01, & & .2213E-01, .1656E-01, .1507E-01, .1564E-01, .1623E-01, .1419E-01, & & .1455E-01, .1089E-02, .3632E-01, .2740E-01, .2164E-01, .1606E-01, & & .1369E-01, .1418E-01, .1444E-01, .1275E-01, .1331E-01, .9210E-03, & & .3636E-01, .2746E-01, .2114E-01, .1557E-01, .1239E-01, .1285E-01, & & .1237E-01, .1141E-01, .1141E-01, .9210E-03, .3640E-01, .2748E-01, & & .2064E-01, .1516E-01, .1141E-01, .1125E-01, .1092E-01, .1026E-01, & & .1011E-01,-.5652E-03, .3646E-01, .2746E-01, .2024E-01, .1478E-01, & & .1036E-01, .9688E-02, .9610E-02, .9305E-02, .9399E-02,-.6489E-03, & & .3651E-01, .2734E-01, .1984E-01, .1438E-01, .9436E-02, .8486E-02, & & .8214E-02, .8995E-02, .7892E-02,-.8582E-03, .3655E-01, .2723E-01, & & .1951E-01, .1402E-01, .8716E-02, .7433E-02, .7169E-02, .8072E-02, & & .5443E-02,-.1172E-02, .3659E-01, .2709E-01, .1911E-01, .1379E-01, & & .8107E-02, .6818E-02, .6818E-02, .7033E-02, .3056E-02,-.1047E-02, & & .3670E-01, .2698E-01, .1890E-01, .1363E-01, .7502E-02, .6371E-02, & & .6558E-02, .6489E-02,-.5652E-03,-.1340E-02, .3592E-01, .2238E-01, & & .1804E-01, .1007E-01, .6730E-02, .5512E-02, .6194E-02, .4375E-02, & & -.1109E-02,-.3559E-03, .3609E-01, .2242E-01, .1526E-01, .8582E-02, & & .6284E-02, .5809E-02, .4501E-02, .9420E-03,-.9001E-03,-.1005E-02, & & .3703E-01, .2196E-01, .1281E-01, .7860E-02, .5861E-02, .5842E-02, & & .1800E-02,-.1591E-02,-.1235E-02,-.9420E-03, .3728E-01, .2114E-01, & & .1347E-01, .6678E-02, .5449E-02, .4837E-02,-.1084E-02,-.1361E-02, & & -.6699E-03,-.1256E-03, .3683E-01, .2061E-01, .1350E-01, .6133E-02, & & .5449E-02, .2111E-02,-.1386E-02,-.1235E-02,-.5652E-03,-.8373E-04, & & .3656E-01, .1988E-01, .1348E-01, .5441E-02, .5149E-02,-.8813E-03, & & -.1116E-02,-.8373E-03,-.3140E-03,-.6280E-04, .3669E-01, .1934E-01, & & .1363E-01, .5035E-02, .3585E-02,-.1250E-02,-.9357E-03,-.8227E-03, & & -.3140E-03,-.4187E-04, .3618E-01, .1856E-01, .1390E-01, .3836E-02, & & .1470E-02,-.1096E-02,-.8080E-03,-.4480E-03,-.2093E-03,-.2093E-04, & & .3416E-01, .1741E-01, .1431E-01, .1951E-02,-.2923E-04,-.9422E-03, & & -.4576E-03,-.2395E-03,-.1565E-03,-.2799E-04, .3219E-01, .1674E-01, & & .1516E-01, .6652E-03,-.5051E-03,-.7052E-03,-.2002E-03,-.2135E-03, & & -.7633E-04,-.7300E-04,-.1290E-03,-.9934E-04,-.5595E-04,-.3996E-04, & & .1294E-04,-.9134E-05, .1294E-05,-.3121E-05,-.4757E-04,-.1979E-04, & & -.1305E-03,-.9629E-04,-.5481E-04,-.4301E-04, .1827E-04,-.9363E-05, & & .1777E-04,-.2185E-04,-.1903E-04,-.1675E-04,-.1313E-03,-.9439E-04, & & -.5404E-04,-.4263E-04, .9134E-05,-.1020E-04, .3524E-04,-.2599E-04, & & -.2093E-04, .1675E-04,-.1313E-03,-.9172E-04,-.5252E-04,-.4567E-04, & & .4186E-05,-.3920E-05, .2552E-04,-.2059E-04,-.2246E-04,-.1028E-04, & & -.1324E-03,-.9210E-04,-.5138E-04,-.4491E-04, .6470E-05,-.2131E-05, & & .1496E-04,-.1572E-04,-.3311E-04,-.8754E-05,-.1324E-03,-.9058E-04, & & -.5328E-04,-.4225E-04, .1827E-05,-.8411E-06, .4719E-05,-.6813E-05, & & -.2474E-04,-.1256E-04,-.1340E-03,-.8868E-04,-.5633E-04,-.4187E-04, & & -.4415E-05, .6055E-05,-.1648E-04,-.1507E-04, .1979E-04,-.2131E-04, & & -.1340E-03,-.8373E-04,-.5899E-04,-.3920E-04,-.4072E-05, .1491E-04, & & -.9781E-05,-.5328E-05, .3578E-04,-.1979E-04,-.1321E-03,-.7954E-04, & & -.5899E-04,-.4072E-04, .1066E-05, .5728E-05,-.5138E-05,-.8373E-05, & & .2626E-04,-.2436E-04,-.1363E-03,-.6432E-04,-.5176E-04,-.3083E-04, & & .2169E-05,-.8944E-05, .3159E-05, .6470E-05,-.4187E-05, .4948E-05, & & -.1302E-03,-.7802E-04,-.3311E-04,-.1903E-04, .5328E-05,-.1884E-04, & & .1408E-04, .3311E-04, .1142E-05,-.7613E-06,-.1473E-03,-.6737E-04, & & -.7536E-04,-.1085E-04,-.1903E-05,-.1458E-04, .4034E-04,-.3941E-10, & & -.7992E-05, .2664E-05,-.1361E-03,-.5709E-04,-.8550E-04,-.5709E-05, & & -.8640E-05, .6523E-05, .1903E-05,-.8221E-05,-.3045E-05,-.9134E-05, & & -.1329E-03,-.5529E-04,-.7107E-04, .2664E-05,-.9020E-05, .3320E-04, & & -.2131E-05,-.4187E-05,-.7231E-05,-.3806E-05,-.1278E-03,-.5247E-04, & & -.6465E-04, .3806E-05,-.6091E-05, .1245E-04,-.3844E-05,-.6090E-05, & & -.8754E-05,-.2664E-05,-.1321E-03,-.5632E-04,-.5897E-04, .1012E-04, & & .1168E-04,-.4196E-06,-.8411E-05,-.8868E-05,-.1484E-04,-.1522E-05, & & -.1252E-03,-.4907E-04,-.5932E-04, .3245E-04, .1996E-04,-.3325E-05, & & -.5785E-05,-.6394E-05,-.6851E-05,-.1142E-05,-.1093E-03,-.4731E-04, & & -.6761E-04, .1808E-04, .1754E-04,-.5079E-05,-.5809E-05,-.5649E-05, & & -.3988E-05,-.5849E-06,-.1151E-03,-.4965E-04,-.7163E-04, .7839E-05, & & .5505E-05,-.6084E-05,-.3344E-05,-.3894E-05,-.1391E-05,-.1327E-05/ data ( ( ( coehcb_14(k,j,i), i = 1, 10 ), j = 1, 19 ), k = 1, 3 ) / & & -.9398E+01,-.5678E+01,-.3606E+01,-.2192E+01, .2104E+01, .3044E+01, & & -.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02,-.9094E+01,-.5422E+01, & & -.3448E+01,-.1650E+01, .2046E+01, .2749E+01,-.4587E+02,-.4587E+02, & & -.4587E+02,-.4587E+02,-.8760E+01,-.5270E+01,-.3329E+01,-.1147E+01, & & .2112E+01, .2709E+01,-.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02, & & -.8537E+01,-.5152E+01,-.3129E+01,-.9544E+00, .2254E+01, .2771E+01, & & -.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02,-.8176E+01,-.4936E+01, & & -.2680E+01,-.9259E+00, .2247E+01,-.4587E+02,-.4587E+02,-.4587E+02, & & -.4587E+02,-.4587E+02,-.7836E+01,-.4676E+01,-.2378E+01,-.3550E+00, & & .1396E+01, .1976E+01,-.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02, & & -.7419E+01,-.4122E+01,-.2407E+01,-.1204E-01, .1744E+01,-.4587E+02, & & -.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02,-.7124E+01,-.3727E+01, & & -.2160E+01, .6158E+00, .1953E+01,-.4587E+02,-.4587E+02,-.4587E+02, & & -.4587E+02,-.4587E+02,-.6823E+01,-.3324E+01,-.1748E+01,-.9806E-01, & & .2319E+01,-.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02, & & -.5957E+01,-.3017E+01,-.1647E+01, .1398E+01,-.4587E+02,-.4587E+02, & & -.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02,-.5115E+01,-.2290E+01, & & -.5273E+00, .5662E+00, .1459E+01,-.4587E+02,-.4587E+02,-.4587E+02, & & -.4587E+02,-.4587E+02,-.4162E+01,-.1453E+01, .1116E+00,-.4587E+02, & & .9569E+00,-.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02, & & -.3611E+01,-.9744E+00,-.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02, & & -.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02,-.3075E+01,-.4176E+00, & & -.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02, & & -.4587E+02,-.4587E+02,-.3469E+01,-.9395E+00, .5092E+00, .6200E+00, & & -.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02, & & -.3808E+01,-.1505E+01, .3901E+00, .6264E+00,-.1155E+01,-.4587E+02, & & -.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02,-.4058E+01,-.1818E+01, & & .2693E+00, .7087E+00, .3820E+00,-.4587E+02,-.4587E+02,-.4587E+02, & & -.4587E+02,-.4587E+02,-.4262E+01,-.2097E+01,-.5711E-01, .5681E+00, & & .1310E+01, .7371E+00,-.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02, & & -.3997E+01,-.1784E+01, .4388E-01, .5167E+00, .6930E+00,-.6906E+00, & & -.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02, .2944E-01, .2723E-01, & & .1854E-01, .2023E-01, .2254E-01, .3059E-02, .4788E+00, .3059E-02, & & .3059E-02, .3059E-02, .3080E-01, .2549E-01, .1547E-01, .2225E-01, & & .2107E-01, .3059E-02, .4737E+00, .3059E-02, .3059E-02, .3059E-02, & & .3269E-01, .2656E-01, .2125E-01, .2179E-01, .2162E-01, .4589E+00, & & .4643E+00, .3059E-02, .3059E-02, .3059E-02, .3322E-01, .2476E-01, & & .2075E-01, .2139E-01, .1907E-01, .4501E+00, .4441E+00, .3059E-02, & & .3059E-02, .3059E-02, .3387E-01, .2182E-01, .2665E-01, .1841E-01, & & .2506E-01, .3059E-02, .3059E-02, .3059E-02, .3059E-02, .3059E-02, & & .3532E-01, .2091E-01, .1995E-01, .2067E-01, .1949E-01, .4491E+00, & & .3059E-02, .3059E-02, .3059E-02, .3059E-02, .3468E-01, .2075E-01, & & .2587E-01, .1401E-01, .8646E-02, .3059E-02, .3059E-02, .3059E-02, & & .3059E-02, .3059E-02, .3666E-01, .2430E-01, .1919E-01, .2007E-01, & & .3059E-02, .3059E-02, .3059E-02, .3059E-02, .3059E-02, .3059E-02, & & .3613E-01, .2147E-01, .1892E-01, .1361E-01, .3059E-02, .4506E+00, & & .3059E-02, .3059E-02, .3059E-02, .3059E-02, .3129E-01, .1954E-01, & & .2442E-01, .1011E-01, .4420E+00, .3059E-02, .3059E-02, .3059E-02, & & .3059E-02, .3059E-02, .3177E-01, .2101E-01, .1526E-01, .4376E+00, & & .4379E+00, .3059E-02, .3059E-02, .3059E-02, .3059E-02, .3059E-02, & & .2887E-01, .2044E-01, .1285E-01, .3059E-02,-.4862E-03, .3059E-02, & & .3059E-02, .3059E-02, .3059E-02, .3059E-02, .2759E-01, .2114E-01, & & .4303E+00, .3059E-02, .3059E-02, .3059E-02, .3059E-02, .3059E-02, & & .3059E-02, .3059E-02, .2880E-01, .1690E-01,-.4187E+00, .3059E-02, & & .3059E-02, .3059E-02, .3059E-02, .3059E-02, .3059E-02, .3059E-02, & & .2852E-01, .2255E-01, .2184E-01, .4334E+00, .4217E+00, .3059E-02, & & .3059E-02, .3059E-02, .3059E-02, .3059E-02, .2840E-01, .2136E-01, & & .1644E-01, .2812E-01, .4358E+00, .4288E+00, .3059E-02, .3059E-02, & & .3059E-02, .3059E-02, .2809E-01, .2173E-01, .1708E-01, .3346E-01, & & .4225E-01, .4419E+00, .3059E-02, .3059E-02, .3059E-02, .3059E-02, & & .2702E-01, .2260E-01, .1607E-01, .2720E-01, .3982E-01, .4452E+00, & & .4365E+00, .4345E+00, .4432E+00, .4623E+00, .2684E-01, .2328E-01, & & .2099E-01, .3040E-01, .3867E-01, .4389E+00, .3132E-01, .3158E-01, & & .4083E-01, .4580E+00,-.1581E-03,-.9707E-04,-.1250E-03, .2580E-03, & & .7378E-04,-.1617E-01, .8646E-02,-.4656E-05,-.4656E-05,-.4656E-05, & & -.1319E-03,-.9528E-04,-.1710E-03, .7118E-04, .2076E-04,-.1608E-01, & & .8552E-02,-.4656E-05,-.4656E-05,-.4656E-05,-.1721E-03,-.4680E-04, & & -.5522E-04,-.6242E-04, .4517E-04,-.7777E-02, .8382E-02,-.4656E-05, & & -.4656E-05,-.4656E-05,-.1482E-03,-.4208E-04,-.5216E-04,-.6514E-04, & & -.8378E-04,-.7956E-02, .8013E-02,-.4656E-05,-.4656E-05,-.4656E-05, & & -.1501E-03,-.4002E-04,-.1664E-03, .2272E-04,-.1888E-03,-.4656E-05, & & -.4656E-05,-.4656E-05,-.4656E-05,-.4656E-05,-.1201E-03,-.4709E-04, & & -.5371E-04,-.1574E-03, .1854E-03,-.7712E-02,-.4656E-05,-.4656E-05, & & -.4656E-05,-.4656E-05,-.1333E-03,-.1062E-03, .5785E-04,-.4150E-04, & & -.5717E-05,-.4656E-05,-.4656E-05,-.4656E-05,-.4656E-05,-.4656E-05, & & -.1212E-03,-.8524E-04,-.5895E-04,-.2884E-03,-.1581E-01,-.4656E-05, & & -.4656E-05,-.4656E-05,-.4656E-05,-.4656E-05,-.8148E-04,-.9361E-04, & & -.2873E-03, .1883E-03,-.1594E-01, .8133E-02,-.4656E-05,-.4656E-05, & & -.4656E-05,-.4656E-05,-.1221E-03,-.1430E-04, .6335E-04,-.2581E-03, & & .7977E-02,-.4656E-05,-.4656E-05,-.4656E-05,-.4656E-05,-.4656E-05, & & -.9257E-04,-.5008E-04, .6389E-04,-.7455E-02,-.7745E-02,-.4656E-05, & & -.4656E-05,-.4656E-05,-.4656E-05,-.4656E-05,-.1186E-03,-.9037E-04, & & -.7461E-04,-.4656E-05, .1168E-03,-.4656E-05,-.4656E-05,-.4656E-05, & & -.4656E-05,-.4656E-05,-.8513E-04,-.5708E-04, .7763E-02,-.4656E-05, & & -.4656E-05,-.4656E-05,-.4656E-05,-.4656E-05,-.4656E-05,-.4656E-05, & & -.1124E-03,-.1228E-03, .7663E-02,-.4656E-05,-.4656E-05,-.4656E-05, & & -.4656E-05,-.4656E-05,-.4656E-05,-.4656E-05,-.1015E-03,-.8369E-04, & & -.2167E-03,-.7548E-02, .7608E-02,-.4656E-05,-.4656E-05,-.4656E-05, & & -.4656E-05,-.4656E-05,-.1049E-03,-.6414E-04,-.1384E-03,-.1644E-03, & & -.6919E-02, .7736E-02,-.4656E-05,-.4656E-05,-.4656E-05,-.4656E-05, & & -.1008E-03,-.7047E-04,-.1276E-03,-.2445E-03,-.1860E-03, .7975E-02, & & -.4656E-05,-.4656E-05,-.4656E-05,-.4656E-05,-.9629E-04,-.1007E-03, & & -.1127E-03,-.1527E-03,-.3238E-03,-.7373E-02, .7877E-02, .7840E-02, & & .7997E-02, .8345E-02,-.8800E-04,-.1072E-03,-.1046E-03,-.1777E-03, & & -.2146E-03,-.7016E-02, .1516E-01, .1532E-01, .1509E-01, .8268E-02/ data hk_15 /.24,.36,.18,.1,.05,.02,.016,.012,.01,.006,.0039,.0021/ data ( ( ( coehca_15(k,j,i), i = 1, 12 ), j = 1, 19 ), k = 1, 2 ) / & & -.1921E+02,-.1363E+02,-.1080E+02,-.8392E+01,-.6776E+01,-.5696E+01, & & -.4572E+01,-.3752E+01,-.2382E+01,-.1110E+01, .6803E+00, .3259E+01, & & -.1875E+02,-.1321E+02,-.1040E+02,-.8026E+01,-.6449E+01,-.5401E+01, & & -.4316E+01,-.3498E+01,-.2141E+01,-.9439E+00, .8103E+00, .3314E+01, & & -.1829E+02,-.1278E+02,-.1000E+02,-.7646E+01,-.6089E+01,-.5085E+01, & & -.4047E+01,-.3217E+01,-.1872E+01,-.7106E+00, .9573E+00, .3390E+01, & & -.1783E+02,-.1236E+02,-.9596E+01,-.7264E+01,-.5735E+01,-.4740E+01, & & -.3743E+01,-.2882E+01,-.1587E+01,-.4714E+00, .1120E+01, .3425E+01, & & -.1737E+02,-.1195E+02,-.9193E+01,-.6877E+01,-.5371E+01,-.4404E+01, & & -.3405E+01,-.2574E+01,-.1298E+01,-.1747E+00, .1327E+01, .3547E+01, & & -.1691E+02,-.1153E+02,-.8776E+01,-.6490E+01,-.4993E+01,-.4049E+01, & & -.3039E+01,-.2256E+01,-.1012E+01, .1103E+00, .1530E+01, .3651E+01, & & -.1644E+02,-.1112E+02,-.8360E+01,-.6105E+01,-.4623E+01,-.3688E+01, & & -.2694E+01,-.1915E+01,-.6855E+00, .3993E+00, .1714E+01, .3950E+01, & & -.1598E+02,-.1073E+02,-.7943E+01,-.5723E+01,-.4236E+01,-.3314E+01, & & -.2338E+01,-.1596E+01,-.3583E+00, .6963E+00, .1868E+01, .4127E+01, & & -.1553E+02,-.1034E+02,-.7542E+01,-.5357E+01,-.3856E+01,-.2942E+01, & & -.1986E+01,-.1299E+01,-.5472E-01, .9443E+00, .2149E+01, .4261E+01, & & -.1485E+02,-.9661E+01,-.7008E+01,-.4830E+01,-.3458E+01,-.2566E+01, & & -.1658E+01,-.9639E+00, .2083E+00, .1182E+01, .2458E+01, .4452E+01, & & -.1427E+02,-.9166E+01,-.6373E+01,-.4404E+01,-.3073E+01,-.2209E+01, & & -.1349E+01,-.6648E+00, .4023E+00, .1452E+01, .2739E+01, .4466E+01, & & -.1380E+02,-.8726E+01,-.5772E+01,-.3982E+01,-.2732E+01,-.1874E+01, & & -.1052E+01,-.4403E+00, .5763E+00, .1792E+01, .2999E+01, .4335E+01, & & -.1305E+02,-.8270E+01,-.5304E+01,-.3586E+01,-.2392E+01,-.1568E+01, & & -.8299E+00,-.2650E+00, .8584E+00, .2062E+01, .3141E+01, .4168E+01, & & -.1269E+02,-.7900E+01,-.4956E+01,-.3205E+01,-.2065E+01,-.1332E+01, & & -.6415E+00,-.7921E-01, .1170E+01, .2269E+01, .3198E+01, .4066E+01, & & -.1227E+02,-.7536E+01,-.4576E+01,-.2859E+01,-.1815E+01,-.1139E+01, & & -.4520E+00, .2272E+00, .1371E+01, .2351E+01, .3150E+01, .3935E+01, & & -.1186E+02,-.7159E+01,-.4223E+01,-.2538E+01,-.1619E+01,-.9324E+00, & & -.1566E+00, .5151E+00, .1520E+01, .2339E+01, .3132E+01, .3880E+01, & & -.1120E+02,-.6777E+01,-.3919E+01,-.2330E+01,-.1387E+01,-.6737E+00, & & .1108E+00, .6991E+00, .1531E+01, .2163E+01, .3150E+01, .3767E+01, & & -.9973E+01,-.6279E+01,-.3638E+01,-.2048E+01,-.1098E+01,-.4407E+00, & & .3043E+00, .7797E+00, .1424E+01, .2002E+01, .3122E+01, .3611E+01, & & -.8483E+01,-.5607E+01,-.3357E+01,-.1744E+01,-.8884E+00,-.2264E+00, & & .3800E+00, .7504E+00, .1245E+01, .2032E+01, .3097E+01, .3546E+01, & & .3762E-01, .2372E-01, .1643E-01, .1208E-01, .1170E-01, .1164E-01, & & .1214E-01, .1161E-01, .1028E-01, .9185E-02, .7712E-02, .1001E-01, & & .3762E-01, .2382E-01, .1593E-01, .1145E-01, .1059E-01, .1049E-01, & & .1080E-01, .1057E-01, .8894E-02, .7807E-02, .7132E-02, .1032E-01, & & .3764E-01, .2386E-01, .1555E-01, .1080E-01, .9692E-02, .9231E-02, & & .9585E-02, .9644E-02, .7711E-02, .6443E-02, .6223E-02, .9922E-02, & & .3764E-01, .2395E-01, .1516E-01, .1028E-01, .8917E-02, .8415E-02, & & .8457E-02, .8777E-02, .6436E-02, .5428E-02, .5499E-02, .8017E-02, & & .3768E-01, .2399E-01, .1482E-01, .9692E-02, .8247E-02, .7640E-02, & & .7582E-02, .7783E-02, .5432E-02, .4482E-02, .4919E-02, .5903E-02, & & .3770E-01, .2401E-01, .1449E-01, .9252E-02, .7620E-02, .6678E-02, & & .6845E-02, .6925E-02, .4939E-02, .3471E-02, .4124E-02, .3873E-02, & & .3776E-01, .2395E-01, .1419E-01, .8959E-02, .7096E-02, .6184E-02, & & .6110E-02, .6075E-02, .4419E-02, .2891E-02, .3056E-02, .1214E-02, & & .3780E-01, .2391E-01, .1392E-01, .8687E-02, .6573E-02, .5733E-02, & & .5359E-02, .5009E-02, .4034E-02, .2755E-02, .1968E-02,-.4187E-04, & & .3791E-01, .2382E-01, .1373E-01, .8561E-02, .6060E-02, .5120E-02, & & .4618E-02, .4713E-02, .3965E-02, .2481E-02, .8164E-03,-.1088E-02, & & .3843E-01, .2148E-01, .1302E-01, .6384E-02, .5256E-02, .4260E-02, & & .4077E-02, .4181E-02, .4132E-02, .2135E-02,-.2931E-03,-.1151E-02, & & .3896E-01, .2081E-01, .1097E-01, .5568E-02, .4475E-02, .3795E-02, & & .3828E-02, .3996E-02, .3766E-02, .1193E-02,-.1089E-02,-.9420E-03, & & .3973E-01, .2024E-01, .9943E-02, .4815E-02, .3820E-02, .3663E-02, & & .3568E-02, .3881E-02, .2859E-02, .6698E-03,-.1549E-02,-.6280E-03, & & .3635E-01, .1963E-01, .1061E-01, .3812E-02, .3509E-02, .3429E-02, & & .3693E-02, .3316E-02, .1120E-02, .6552E-03,-.1193E-02,-.1109E-02, & & .3631E-01, .1893E-01, .1056E-01, .3172E-02, .3378E-02, .3164E-02, & & .2751E-02, .1722E-02, .1112E-02, .4354E-03,-.7327E-03,-.1319E-02, & & .3500E-01, .1828E-01, .1050E-01, .2831E-02, .2784E-02, .2564E-02, & & .1469E-02, .7739E-03, .1209E-02, .7913E-03,-.2512E-03,-.1758E-02, & & .3352E-01, .1763E-01, .1045E-01, .2401E-02, .1928E-02, .1340E-02, & & .3753E-03, .5794E-03, .9060E-03, .1042E-02, .1465E-03,-.2533E-02, & & .2880E-01, .1729E-01, .1077E-01, .1347E-02, .1194E-02,-.1191E-03, & & .2828E-03, .6606E-03, .9743E-03, .1002E-02, .0000E+00,-.3140E-02, & & .2040E-01, .1585E-01, .1165E-01, .3871E-05, .1509E-04,-.1046E-02, & & .2444E-03, .4359E-03, .1041E-02, .2429E-02,-.1721E-03,-.2786E-02, & & .1737E-01, .1560E-01, .1240E-01,-.2139E-03,-.1025E-02,-.1248E-02, & & -.6934E-04, .1649E-03, .4062E-03, .1554E-02,-.4179E-03,-.7795E-03/ data ( ( ( coehca_15(k,j,i), i = 1, 12 ), j = 1, 19 ), k = 3, 3 ) / & & -.1488E-03,-.9248E-04,-.2322E-04,-.4187E-05, .1104E-04, .9895E-05, & & -.2283E-05, .2512E-05,-.9058E-05, .8449E-05, .8297E-05,-.3882E-04, & & -.1488E-03,-.9058E-04,-.2398E-04,-.5709E-05, .1218E-04, .1180E-04, & & .1522E-05, .6927E-05,-.1161E-04, .1714E-04,-.4948E-06,-.3540E-04, & & -.1500E-03,-.8830E-04,-.2474E-04,-.8373E-05, .6470E-05, .7992E-05, & & .9096E-05, .6737E-05,-.1485E-04, .1873E-04,-.4948E-06,-.4491E-04, & & -.1500E-03,-.8601E-04,-.2664E-04,-.1028E-04, .6851E-05, .6851E-05, & & .1294E-04,-.2550E-05,-.1520E-04, .2310E-04, .4948E-06,-.2017E-04, & & -.1507E-03,-.8373E-04,-.2664E-04,-.1256E-04, .4567E-05, .1028E-04, & & .9210E-05,-.2131E-05,-.6995E-05, .7498E-05,-.1104E-04,-.2284E-05, & & -.1519E-03,-.8183E-04,-.2816E-04,-.1142E-04, .7611E-06, .7231E-05, & & .1751E-05,-.7612E-06, .8312E-05, .2436E-05,-.7231E-05, .2398E-04, & & -.1530E-03,-.7992E-04,-.2893E-04,-.9896E-05, .3806E-06, .8906E-05, & & .3159E-05,-.5328E-05, .3692E-05,-.2093E-05,-.6851E-05,-.3045E-05, & & -.1538E-03,-.7536E-04,-.3007E-04,-.8754E-05,-.3045E-05, .5138E-05, & & .9134E-06,-.1979E-06, .1560E-05,-.1507E-04, .2284E-04, .9895E-05, & & -.1541E-03,-.7688E-04,-.2969E-04,-.5709E-05,-.3996E-05, .1142E-05, & & -.8373E-06, .1235E-04,-.7079E-05,-.6737E-05, .1028E-04, .3578E-04, & & -.1560E-03,-.6851E-04,-.1903E-04,-.4187E-05,-.4605E-05,-.1142E-06, & & .3878E-05, .3597E-05,-.9591E-05, .5328E-05, .7612E-05,-.4948E-05, & & -.1587E-03,-.6546E-04,-.2740E-04,-.7612E-06,-.3578E-05, .1713E-05, & & .6064E-05,-.9781E-05, .1408E-05, .5709E-05, .8373E-05,-.1256E-04, & & -.1484E-03,-.5823E-04,-.4301E-04,-.1522E-05, .7498E-05,-.5328E-06, & & -.7855E-05,-.1599E-05, .1964E-04,-.2284E-05, .7882E-10, .5328E-05, & & -.1238E-03,-.5700E-04,-.5266E-04, .3286E-05, .4910E-05,-.8602E-05, & & .6090E-06, .8454E-05, .1256E-05,-.4072E-05,-.1903E-05, .6470E-05, & & -.1155E-03,-.5231E-04,-.4396E-04, .3626E-05,-.7051E-05,-.1743E-05, & & .9667E-05, .2064E-04,-.2778E-05,-.6546E-05,-.4948E-05, .1903E-05, & & -.1024E-03,-.5129E-04,-.4506E-04, .7943E-06, .3074E-06, .3243E-05, & & .2754E-04,-.1479E-05, .1661E-05,-.2969E-05,-.1066E-04, .7612E-06, & & -.8473E-04,-.5418E-04,-.4674E-04,-.3418E-05, .9460E-05, .1151E-04, & & .5714E-05,-.1069E-04,-.2022E-05,-.9061E-05,-.1104E-04,-.3083E-04, & & -.4283E-04,-.5037E-04,-.4476E-04, .1951E-04, .8922E-05, .1296E-04, & & -.4053E-05,-.4355E-05,-.2355E-05,-.5004E-05,-.1218E-04,-.1522E-04, & & .6411E-05,-.5937E-04,-.5331E-04, .1934E-04, .5284E-05, .1129E-04, & & -.2166E-05,-.1484E-06,-.5407E-05,-.1364E-04,-.3115E-05, .3004E-04, & & -.5074E-04,-.6256E-04,-.5097E-04, .2218E-04, .1228E-04,-.1160E-05, & & -.1105E-05, .1618E-06,-.6089E-05,-.4216E-06,-.5314E-05, .7903E-05/ data ( ( ( coehcb_15(k,j,i), i = 1, 12 ), j = 1, 19 ), k = 1, 2 ) / & & -.9593E+01,-.4078E+01,-.2812E+01,-.6506E+00,-.4123E+00, .2055E+01, & & .4097E+01, .4671E+01, .4639E+01,-.4587E+02,-.4587E+02,-.4587E+02, & & -.9276E+01,-.3757E+01,-.2467E+01,-.5784E+00, .8833E-01, .2232E+01, & & .3826E+01, .4723E+01, .4942E+01, .5135E+01,-.4587E+02,-.4587E+02, & & -.8968E+01,-.3508E+01,-.2116E+01,-.1363E+00, .1662E+00, .2424E+01, & & .4220E+01, .4513E+01, .1375E+01, .4601E+01,-.4587E+02,-.4587E+02, & & -.8662E+01,-.3164E+01,-.1722E+01, .5178E-01, .7288E+00, .2411E+01, & & .3805E+01, .4766E+01, .4342E+01,-.4587E+02,-.4587E+02,-.4587E+02, & & -.8292E+01,-.2799E+01,-.1359E+01, .3271E+00, .1650E+01, .2395E+01, & & .4192E+01, .4758E+01, .2470E+01,-.4587E+02,-.4587E+02,-.4587E+02, & & -.7812E+01,-.2404E+01,-.1085E+01, .7167E+00, .2202E+01, .2922E+01, & & .4322E+01, .4591E+01, .4186E+01,-.4587E+02,-.4587E+02,-.4587E+02, & & -.7441E+01,-.2066E+01,-.7142E+00, .1057E+01, .2524E+01, .2946E+01, & & .4220E+01, .3607E+01,-.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02, & & -.7191E+01,-.1745E+01,-.3487E+00, .1453E+01, .2739E+01, .3660E+01, & & .4114E+01, .3245E+01,-.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02, & & -.6895E+01,-.1326E+01,-.3500E+00, .1647E+01, .2899E+01, .4023E+01, & & .3361E+01, .3360E+01,-.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02, & & -.5876E+01,-.9573E+00, .2014E+00, .2130E+01, .3493E+01, .4088E+01, & & -.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02, & & -.4429E+01,-.3417E+00, .1204E+01, .2780E+01, .3843E+01, .3099E+01, & & -.4587E+02, .3605E+01,-.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02, & & -.3122E+01, .2697E+00, .1866E+01, .3526E+01, .3569E+01, .1025E+01, & & -.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02, & & -.2284E+01, .8186E+00, .2754E+01, .3206E+01, .3704E+01,-.4587E+02, & & -.4587E+02, .4625E+01,-.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02, & & -.1711E+01, .1220E+01, .3248E+01,-.4587E+02, .2565E+01, .3297E+01, & & -.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02, & & -.1758E+01, .7970E+00, .2758E+01, .2926E+01, .2613E+01, .1974E+01, & & -.4587E+02, .2310E+01,-.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02, & & -.1737E+01, .3499E+00, .2246E+01, .2673E+01, .3308E+01, .3463E+01, & & .3103E+01, .2611E+01, .2178E+01,-.4587E+02,-.4587E+02,-.4587E+02, & & -.1559E+01, .2215E+00, .1875E+01, .2500E+01, .3346E+01, .3585E+01, & & .3946E+01, .3533E+01, .3205E+01,-.4587E+02,-.4587E+02,-.4587E+02, & & -.1601E+01, .5060E-01, .1275E+01, .2176E+01, .3081E+01, .3649E+01, & & .3940E+01, .4106E+01, .4112E+01, .4349E+01, .2292E+01,-.4587E+02, & & -.1222E+01, .3199E+00, .1642E+01, .2380E+01, .3254E+01, .3534E+01, & & .3687E+01, .3717E+01, .3402E+01, .3868E+01,-.4587E+02,-.4587E+02, & & .2967E-01, .1697E-01, .1795E-01, .1387E-01, .2032E-01, .1187E-01, & & .2560E-01, .1044E-01,-.4560E+00, .3059E-02, .3059E-02, .3059E-02, & & .2998E-01, .1586E-01, .1786E-01, .1521E-01, .1710E-01, .1061E-01, & & .2030E-01, .1158E-01, .4452E+00, .3059E-02, .3059E-02, .3059E-02, & & .2993E-01, .1551E-01, .1481E-01, .9846E-02, .2443E-01, .1150E-01, & & .1865E-01, .1376E-01, .4617E+00, .3059E-02, .3059E-02, .3059E-02, & & .3035E-01, .1417E-01, .1438E-01, .1511E-01, .1901E-01, .8582E-02, & & .1746E-01, .1450E-01, .4523E+00, .3059E-02, .3059E-02, .3059E-02, & & .2970E-01, .1347E-01, .1322E-01, .1252E-01, .1665E-01, .1037E-01, & & .1320E-01, .1199E-01, .4436E+00, .3059E-02, .3059E-02, .3059E-02, & & .2949E-01, .1291E-01, .1671E-01, .1111E-01, .1400E-01, .1318E-01, & & .1060E-01, .1046E-01, .3059E-02, .3059E-02, .3059E-02, .3059E-02, & & .3004E-01, .1300E-01, .1413E-01, .9085E-02, .9764E-02, .2260E-01, & & .9778E-02, .4671E+00, .3059E-02, .3059E-02, .3059E-02, .3059E-02, & & .3086E-01, .1436E-01, .1205E-01, .1081E-01, .4681E-02, .1479E-01, & & .1888E-01, .3494E-01, .3059E-02, .3059E-02, .3059E-02, .3059E-02, & & .3094E-01, .1500E-01, .1457E-01, .1060E-01, .8319E-02, .8983E-02, & & .3791E-01, .2232E-01, .4631E+00, .3059E-02, .3059E-02, .3059E-02, & & .3158E-01, .1585E-01, .1292E-01, .6531E-02, .1383E-01, .4605E+00, & & .4662E+00, .3059E-02, .3059E-02, .3059E-02, .3059E-02, .3059E-02, & & .3182E-01, .1586E-01, .8724E-02, .5798E-02, .2454E-01, .4607E+00, & & .4560E+00, .4511E+00, .3059E-02, .3059E-02, .3059E-02, .3059E-02, & & .2369E-01, .1606E-01, .5477E-02, .1228E-01, .4579E+00, .4561E+00, & & .4497E+00, .3059E-02, .3059E-02, .3059E-02, .3059E-02, .3059E-02, & & .2190E-01, .1779E-01, .6267E-02, .4535E+00, .4533E+00, .3059E-02, & & .3059E-02, .3059E-02, .3059E-02, .3059E-02, .3059E-02, .3059E-02, & & .2100E-01, .1653E-01, .7449E-02, .4543E+00, .4472E+00, .4439E+00, & & .3059E-02, .3059E-02, .3059E-02, .3059E-02, .3059E-02, .3059E-02, & & .1864E-01, .1771E-01, .7040E-02, .2877E-01, .3381E-01, .2691E-01, & & .4466E+00, .3059E-02, .4613E+00, .3059E-02, .3059E-02, .3059E-02, & & .1637E-01, .1641E-01, .8424E-02, .1318E-01, .2060E-01, .3426E-01, & & .4122E-01, .4621E+00, .4555E+00, .4525E+00, .3059E-02, .3059E-02, & & .1607E-01, .1452E-01, .8013E-02, .1213E-01, .1482E-01, .2125E-01, & & .3379E-01, .3562E-01, .4619E+00, .4569E+00, .3059E-02, .3059E-02, & & .1698E-01, .1538E-01, .6616E-02, .1147E-01, .1217E-01, .1696E-01, & & .1871E-01, .2273E-01, .4513E-01, .4702E+00, .4617E+00, .4553E+00, & & .1700E-01, .1547E-01, .6456E-02, .1324E-01, .1502E-01, .2095E-01, & & .2547E-01, .2823E-01, .4107E-01, .4676E+00, .4583E+00, .4498E+00/ data ( ( ( coehcb_15(k,j,i), i = 1, 12 ), j = 1, 19 ), k = 3, 3 ) / & & -.6747E-05,-.2483E-04, .6575E-04, .1026E-03, .3888E-03,-.8519E-04, & & -.1629E-03,-.1808E-04,-.8355E-02,-.4656E-05,-.4656E-05,-.4656E-05, & & -.2270E-04,-.3427E-04, .5118E-04, .1218E-03, .1245E-03,-.1245E-03, & & .3841E-05,-.4151E-04,-.8763E-02,-.1687E-01,-.4656E-05,-.4656E-05, & & -.4557E-04,-.3023E-04, .2286E-04, .5656E-04, .4113E-04,-.1407E-03, & & -.1301E-03, .8503E-04,-.7284E-02,-.1669E-01,-.4656E-05,-.4656E-05, & & -.5325E-04,-.5309E-04,-.1246E-04, .2244E-04, .5136E-04,-.1272E-03, & & .4217E-04,-.1749E-04,-.8435E-02,-.4656E-05,-.4656E-05,-.4656E-05, & & -.6857E-04,-.7217E-04, .1740E-05, .3653E-04,-.1490E-03,-.4090E-04, & & -.2376E-04, .2047E-04,-.7974E-02,-.4656E-05,-.4656E-05,-.4656E-05, & & -.1232E-03,-.9826E-04,-.2849E-04, .1703E-04,-.1895E-03,-.3363E-03, & & .7102E-04,-.1838E-05,-.1655E-01,-.4656E-05,-.4656E-05,-.4656E-05, & & -.9896E-04,-.5127E-04,-.2704E-04,-.1218E-04,-.1207E-03,-.5883E-04, & & .6893E-04,-.7924E-02,-.4656E-05,-.4656E-05,-.4656E-05,-.4656E-05, & & -.7837E-04,-.4980E-04, .6902E-05,-.1072E-03,-.4051E-04,-.1991E-05, & & -.1173E-03,-.5195E-04,-.4656E-05,-.4656E-05,-.4656E-05,-.4656E-05, & & -.8136E-04,-.8102E-04, .1254E-03,-.4658E-04, .3173E-04,-.4461E-05, & & -.1558E-03,-.2036E-03, .8360E-02,-.4656E-05,-.4656E-05,-.4656E-05, & & -.2232E-04,-.6411E-04, .9486E-04,-.2322E-03,-.8282E-04,-.8202E-02, & & .8416E-02,-.4656E-05,-.4656E-05,-.4656E-05,-.4656E-05,-.4656E-05, & & -.1398E-03,-.7165E-04,-.4258E-04,-.3970E-04,-.2839E-03,-.7873E-02, & & .8231E-02,-.8213E-02,-.4656E-05,-.4656E-05,-.4656E-05,-.4656E-05, & & -.6754E-04,-.7469E-04,-.6898E-04,-.1702E-03,-.8079E-02,-.7270E-02, & & .8116E-02,-.4656E-05,-.4656E-05,-.4656E-05,-.4656E-05,-.4656E-05, & & -.2396E-04,-.2361E-04,-.8664E-04,-.8038E-02,-.8207E-02,-.4656E-05, & & -.4656E-05,-.1670E-01,-.4656E-05,-.4656E-05,-.4656E-05,-.4656E-05, & & -.5479E-04,-.7593E-04,-.1005E-03, .8199E-02,-.7942E-02,-.8244E-02, & & -.4656E-05,-.4656E-05,-.4656E-05,-.4656E-05,-.4656E-05,-.4656E-05, & & -.3806E-04,-.5825E-04,-.1003E-03,-.2925E-03,-.1506E-03, .3148E-04, & & .8060E-02,-.1593E-01, .8327E-02,-.4656E-05,-.4656E-05,-.4656E-05, & & -.4706E-04,-.3630E-04,-.7811E-04,-.6881E-04,-.1822E-03,-.3091E-03, & & -.3033E-03,-.7684E-02,-.7663E-02, .8167E-02,-.4656E-05,-.4656E-05, & & -.7669E-04,-.4610E-04,-.8063E-04,-.7250E-04,-.1094E-03,-.1241E-03, & & -.2944E-03,-.1736E-03,-.7886E-02, .8248E-02,-.4656E-05,-.4656E-05, & & -.7138E-04,-.4545E-04,-.3653E-04,-.6075E-04,-.4528E-04,-.1077E-03, & & -.1119E-03,-.1657E-03,-.4695E-03,-.8112E-02,-.7587E-02, .8217E-02, & & -.6812E-04,-.4558E-04,-.6739E-04,-.8861E-04,-.9386E-04,-.1334E-03, & & -.2007E-03,-.2179E-03,-.1650E-03,-.8001E-02, .8273E-02, .8118E-02/ data hk_16 / .12, .24, .24, .20, .12, .06, .02 / data ( ( ( coeh2o_16(k,j,i), i = 1, 7 ), j = 1, 19 ), k = 1, 3 ) / & & -.2344E+02,-.2016E+02,-.1986E+02,-.1655E+02,-.1243E+02,-.8437E+01, & & -.4858E+01,-.2298E+02,-.2014E+02,-.1984E+02,-.1609E+02,-.1198E+02, & & -.8020E+01,-.4548E+01,-.2252E+02,-.2012E+02,-.1981E+02,-.1564E+02, & & -.1153E+02,-.7596E+01,-.4239E+01,-.2206E+02,-.2009E+02,-.1957E+02, & & -.1517E+02,-.1111E+02,-.7161E+01,-.3871E+01,-.2160E+02,-.2007E+02, & & -.1911E+02,-.1472E+02,-.1065E+02,-.6721E+01,-.3479E+01,-.2113E+02, & & -.2005E+02,-.1865E+02,-.1426E+02,-.1021E+02,-.6302E+01,-.3081E+01, & & -.2067E+02,-.2003E+02,-.1819E+02,-.1379E+02,-.9765E+01,-.5883E+01, & & -.2678E+01,-.2026E+02,-.2001E+02,-.1773E+02,-.1333E+02,-.9332E+01, & & -.5443E+01,-.2253E+01,-.2024E+02,-.1999E+02,-.1727E+02,-.1288E+02, & & -.8897E+01,-.5029E+01,-.1858E+01,-.2026E+02,-.1959E+02,-.1481E+02, & & -.1147E+02,-.7477E+01,-.4555E+01,-.1464E+01,-.2022E+02,-.1632E+02, & & -.1305E+02,-.9885E+01,-.6689E+01,-.4108E+01,-.1068E+01,-.1936E+02, & & -.1438E+02,-.1163E+02,-.8499E+01,-.6146E+01,-.3673E+01,-.6816E+00, & & -.1675E+02,-.1281E+02,-.1020E+02,-.7716E+01,-.5678E+01,-.3256E+01, & & -.3125E+00,-.1510E+02,-.1124E+02,-.8821E+01,-.7140E+01,-.5243E+01, & & -.2851E+01,-.2560E-01,-.1334E+02,-.9708E+01,-.8061E+01,-.6611E+01, & & -.4842E+01,-.2459E+01, .1711E+00,-.1155E+02,-.8798E+01,-.7440E+01, & & -.6123E+01,-.4439E+01,-.2089E+01, .2480E+00,-.1020E+02,-.8154E+01, & & -.6945E+01,-.5681E+01,-.4055E+01,-.1737E+01, .2390E+00,-.9464E+01, & & -.7677E+01,-.6512E+01,-.5284E+01,-.3707E+01,-.1453E+01, .2015E+00, & & -.9033E+01,-.7246E+01,-.6093E+01,-.4882E+01,-.3346E+01,-.1264E+01, & & .1033E+00, .4658E-01, .5840E-02, .4626E-02, .2688E-01, .2395E-01, & & .1804E-01, .2074E-01, .4660E-01, .1884E-02, .8561E-02, .2690E-01, & & .2403E-01, .1788E-01, .1934E-01, .4660E-01, .1800E-02, .1252E-01, & & .2694E-01, .2393E-01, .1786E-01, .1825E-01, .4660E-01, .1779E-02, & & .1649E-01, .2696E-01, .2397E-01, .1779E-01, .1765E-01, .4348E-01, & & .1758E-02, .2043E-01, .2696E-01, .2393E-01, .1748E-01, .1675E-01, & & .3944E-01, .1737E-02, .2445E-01, .2698E-01, .2384E-01, .1752E-01, & & .1549E-01, .3538E-01, .1654E-02, .2847E-01, .2702E-01, .2384E-01, & & .1714E-01, .1565E-01, .3127E-01, .1570E-02, .3245E-01, .2705E-01, & & .2374E-01, .1712E-01, .1514E-01, .2715E-01, .1444E-02, .3540E-01, & & .2711E-01, .2363E-01, .1702E-01, .1446E-01, .2960E-01, .1760E-01, & & .2977E-01, .2397E-01, .2087E-01, .1618E-01, .1445E-01, .2466E-01, & & .3039E-01, .2428E-01, .2217E-01, .1821E-01, .1593E-01, .1463E-01, & & .2640E-01, .2545E-01, .2231E-01, .2060E-01, .1773E-01, .1555E-01, & & .1473E-01, .3456E-01, .2135E-01, .2030E-01, .1844E-01, .1740E-01, & & .1559E-01, .1428E-01, .3203E-01, .2047E-01, .1809E-01, .1760E-01, & & .1725E-01, .1545E-01, .1541E-01, .2137E-01, .1857E-01, .1616E-01, & & .1698E-01, .1700E-01, .1537E-01, .1636E-01, .1338E-01, .1518E-01, & & .1580E-01, .1658E-01, .1710E-01, .1518E-01, .1513E-01, .1570E-01, & & .1614E-01, .1603E-01, .1673E-01, .1706E-01, .1497E-01, .1439E-01, & & .1987E-01, .1731E-01, .1601E-01, .1675E-01, .1681E-01, .1535E-01, & & .1425E-01, .2018E-01, .1723E-01, .1597E-01, .1691E-01, .1666E-01, & & .1509E-01, .1446E-01,-.2873E-03,-.8031E-04, .4225E-04,-.9287E-04, & & -.6013E-04,-.4339E-04,-.2474E-04,-.2862E-03,-.8372E-05, .1146E-03, & & -.9248E-04,-.6166E-04,-.3882E-04,-.1827E-04,-.2870E-03,-.6851E-05, & & .1865E-03,-.9172E-04,-.6128E-04,-.3616E-04,-.7612E-05,-.2877E-03, & & -.7231E-05, .1880E-03,-.9287E-04,-.5671E-04,-.4110E-04,-.1104E-04, & & -.3429E-03,-.7612E-05, .1149E-03,-.9287E-04,-.6356E-04,-.4529E-04, & & -.2436E-04,-.4187E-03,-.7992E-05, .4339E-04,-.9325E-04,-.6280E-04, & & -.4225E-04,-.3197E-04,-.4925E-03,-.8754E-05,-.2740E-04,-.9477E-04, & & -.6432E-04,-.3768E-04,-.3361E-04,-.5511E-03,-.8753E-05,-.9972E-04, & & -.9515E-04,-.6394E-04,-.3806E-04,-.3787E-04,-.4792E-03,-.1028E-04, & & -.1534E-03,-.9477E-04,-.6356E-04,-.3616E-04,-.2923E-04,-.5070E-03, & & .1922E-03,-.1028E-03,-.5823E-04,-.7954E-04,-.2550E-04,-.3893E-04, & & -.3776E-03,-.1043E-03,-.7993E-04,-.7422E-04,-.4948E-04,-.3007E-04, & & -.3863E-04, .8335E-04,-.5709E-04,-.6090E-04,-.7840E-04,-.3692E-04, & & -.3007E-04,-.4251E-04,-.6204E-04,-.4872E-04,-.3806E-04,-.4681E-04, & & -.3463E-04,-.3007E-04,-.4312E-04,-.1142E-04,-.5176E-04,-.5024E-04, & & -.3007E-04,-.3730E-04,-.3037E-04,-.3888E-04, .2550E-04,-.6508E-04, & & -.2512E-04,-.3083E-04,-.3197E-04,-.3041E-04,-.3750E-04, .1484E-04, & & -.1941E-04,-.2626E-04,-.3349E-04,-.3463E-04,-.2896E-04,-.1716E-04, & & -.7231E-04,-.3920E-04,-.2893E-04,-.3540E-04,-.3311E-04,-.3734E-04, & & -.2550E-05,-.7650E-04,-.3159E-04,-.2778E-04,-.3121E-04,-.2169E-04, & & -.4365E-04,-.1546E-04,-.7916E-04,-.2931E-04,-.2854E-04,-.3654E-04, & & -.1979E-04,-.4811E-04,-.1435E-04/ data hk_17 / .12, .26, .22, .20, .10, .085, .015 / data ( ( ( coeh2o_17(k,j,i), i = 1, 7 ), j = 1, 19 ), k = 1, 3 ) / & & -.2255E+02,-.2000E+02,-.1703E+02,-.1282E+02,-.9215E+01,-.5938E+01, & & -.2009E+01,-.2209E+02,-.1997E+02,-.1657E+02,-.1236E+02,-.8764E+01, & & -.5499E+01,-.1582E+01,-.2163E+02,-.1993E+02,-.1611E+02,-.1191E+02, & & -.8324E+01,-.5061E+01,-.1170E+01,-.2117E+02,-.1990E+02,-.1565E+02, & & -.1146E+02,-.7889E+01,-.4631E+01,-.7737E+00,-.2071E+02,-.1987E+02, & & -.1519E+02,-.1100E+02,-.7440E+01,-.4179E+01,-.3719E+00,-.2026E+02, & & -.1985E+02,-.1473E+02,-.1054E+02,-.6995E+01,-.3721E+01, .0000E+00, & & -.2024E+02,-.1982E+02,-.1426E+02,-.1009E+02,-.6549E+01,-.3284E+01, & & .4053E+00,-.2022E+02,-.1980E+02,-.1381E+02,-.9639E+01,-.6097E+01, & & -.2821E+01, .8375E+00,-.2021E+02,-.1933E+02,-.1335E+02,-.9187E+01, & & -.5653E+01,-.2379E+01, .1272E+01,-.2010E+02,-.1503E+02,-.1125E+02, & & -.7665E+01,-.4492E+01,-.1893E+01, .1642E+01,-.1747E+02,-.1278E+02, & & -.9547E+01,-.6120E+01,-.3756E+01,-.1443E+01, .1995E+01,-.1529E+02, & & -.1095E+02,-.8107E+01,-.5036E+01,-.3182E+01,-.1032E+01, .2429E+01, & & -.1370E+02,-.9303E+01,-.6691E+01,-.4357E+01,-.2683E+01,-.6173E+00, & & .2805E+01,-.1150E+02,-.7859E+01,-.5618E+01,-.3843E+01,-.2234E+01, & & -.2171E+00, .2973E+01,-.9590E+01,-.6537E+01,-.4886E+01,-.3355E+01, & & -.1805E+01, .1615E+00, .3157E+01,-.7530E+01,-.5699E+01,-.4306E+01, & & -.2892E+01,-.1388E+01, .5448E+00, .3155E+01,-.6758E+01,-.5112E+01, & & -.3809E+01,-.2464E+01,-.9947E+00, .8713E+00, .3203E+01,-.6245E+01, & & -.4610E+01,-.3376E+01,-.2058E+01,-.6166E+00, .1073E+01, .3109E+01, & & -.5777E+01,-.4175E+01,-.2963E+01,-.1671E+01,-.2556E+00, .1241E+01, & & .3014E+01, .4264E-01, .1968E-02, .1863E-01, .1436E-01, .1101E-01, & & .1055E-01, .1281E-01, .4264E-01, .1989E-02, .1861E-01, .1438E-01, & & .1095E-01, .1030E-01, .1211E-01, .3996E-01, .1968E-02, .1861E-01, & & .1434E-01, .1103E-01, .1019E-01, .1160E-01, .3600E-01, .1947E-02, & & .1861E-01, .1442E-01, .1086E-01, .1003E-01, .1157E-01, .3203E-01, & & .5756E-02, .1861E-01, .1444E-01, .1080E-01, .9922E-02, .1151E-01, & & .2801E-01, .9713E-02, .1859E-01, .1446E-01, .1070E-01, .9880E-02, & & .1066E-01, .2393E-01, .1369E-01, .1859E-01, .1451E-01, .1057E-01, & & .9880E-02, .1072E-01, .1987E-01, .1767E-01, .1863E-01, .1451E-01, & & .1040E-01, .9880E-02, .1057E-01, .1572E-01, .2169E-01, .1863E-01, & & .1442E-01, .1022E-01, .9742E-02, .1036E-01, .3391E-02, .1884E-01, & & .1566E-01, .1105E-01, .1011E-01, .1001E-01, .1017E-01, .1982E-01, & & .1444E-01, .1189E-01, .1030E-01, .9859E-02, .9861E-02, .1038E-01, & & .1748E-01, .1321E-01, .9922E-02, .1068E-01, .1013E-01, .9937E-02, & & .9958E-02, .1346E-01, .9943E-02, .9566E-02, .1097E-01, .9815E-02, & & .9964E-02, .1059E-01, .9817E-02, .7159E-02, .8687E-02, .1114E-01, & & .1007E-01, .1014E-01, .1058E-01, .3370E-02, .7264E-02, .9378E-02, & & .1112E-01, .9767E-02, .1016E-01, .1101E-01, .2993E-02, .8017E-02, & & .9566E-02, .1116E-01, .9738E-02, .1025E-01, .1086E-01, .8331E-02, & & .8771E-02, .1001E-01, .1117E-01, .9847E-02, .1076E-01, .1084E-01, & & .7850E-02, .9378E-02, .1001E-01, .1105E-01, .9964E-02, .1113E-01, & & .1168E-01, .8038E-02, .9336E-02, .9817E-02, .1096E-01, .1024E-01, & & .1175E-01, .1107E-01,-.2188E-03,-.2283E-05,-.8069E-04,-.4415E-04, & & -.2284E-04,-.4491E-04,-.4518E-04,-.2196E-03,-.2665E-05,-.8107E-04, & & -.4301E-04,-.2398E-04,-.4795E-04,-.4693E-04,-.2683E-03,-.3045E-05, & & -.8107E-04,-.4301E-04,-.2246E-04,-.4757E-04,-.4152E-04,-.3403E-03, & & -.4187E-05,-.8031E-04,-.3996E-04,-.1865E-04,-.4301E-04,-.4350E-04, & & -.4118E-03, .6584E-04,-.8107E-04,-.4034E-04,-.1903E-04,-.4643E-04, & & -.4834E-04,-.4803E-03, .1378E-03,-.8069E-04,-.4072E-04,-.1713E-04, & & -.5176E-04,-.3460E-04,-.4099E-03, .2101E-03,-.8069E-04,-.3920E-04, & & -.1713E-04,-.5024E-04,-.3524E-04,-.3391E-03, .2809E-03,-.7992E-04, & & -.3616E-04,-.2017E-04,-.5633E-04,-.4886E-04,-.2668E-03, .2078E-03, & & -.8069E-04,-.3768E-04,-.2131E-04,-.5580E-04,-.5454E-04,-.2207E-04, & & -.8601E-04,-.4643E-04,-.2436E-04,-.4148E-04,-.5458E-04,-.4579E-04, & & -.5138E-04,-.2893E-04,-.3273E-04,-.3882E-04,-.3920E-04,-.5035E-04, & & -.3170E-04,-.2169E-04,-.3007E-04,-.2740E-04,-.5328E-04,-.4491E-04, & & -.4403E-04,-.6383E-04, .4834E-04,-.2702E-04,-.4453E-04,-.4339E-04, & & -.4457E-04,-.4551E-04,-.8133E-04, .3768E-04,-.7611E-06,-.2626E-04, & & -.4643E-04,-.4305E-04,-.4840E-04,-.5149E-04, .7193E-04,-.2169E-04, & & -.4491E-04,-.3996E-04,-.4483E-04,-.4487E-04,-.6698E-04,-.4834E-04, & & -.3463E-04,-.4986E-04,-.4377E-04,-.4514E-04,-.5377E-04,-.2626E-04, & & -.4187E-04,-.3692E-04,-.5100E-04,-.4651E-04,-.4392E-04,-.5386E-04, & & -.4643E-04,-.4301E-04,-.3578E-04,-.5176E-04,-.4594E-04,-.4551E-04, & & -.3920E-04,-.3425E-04,-.4491E-04,-.3654E-04,-.5138E-04,-.4377E-04, & & -.5614E-04,-.5758E-04,-.3600E-04/ data hk_18 / .07, .1, .2, .25, .2, .1, .03, .02 / data ( ( ( coeh2o_18(k,j,i), i = 1, 8 ), j = 1, 19 ), k = 1, 3 ) / & & -.2121E+02,-.2002E+02,-.1676E+02,-.1274E+02,-.8780E+01,-.5167E+01, & & -.2692E+01,-.6275E+00,-.2075E+02,-.1996E+02,-.1630E+02,-.1228E+02, & & -.8324E+01,-.4718E+01,-.2260E+01,-.2303E+00,-.2029E+02,-.1990E+02, & & -.1584E+02,-.1182E+02,-.7868E+01,-.4269E+01,-.1806E+01, .1645E+00, & & -.2022E+02,-.1985E+02,-.1538E+02,-.1136E+02,-.7417E+01,-.3820E+01, & & -.1373E+01, .5657E+00,-.2018E+02,-.1981E+02,-.1492E+02,-.1090E+02, & & -.6965E+01,-.3369E+01,-.9319E+00, .9577E+00,-.2013E+02,-.1937E+02, & & -.1446E+02,-.1044E+02,-.6512E+01,-.2917E+01,-.4928E+00, .1376E+01, & & -.2009E+02,-.1891E+02,-.1400E+02,-.9984E+01,-.6063E+01,-.2466E+01, & & -.6887E-01, .1768E+01,-.2006E+02,-.1845E+02,-.1354E+02,-.9530E+01, & & -.5618E+01,-.2024E+01, .3615E+00, .2196E+01,-.2003E+02,-.1800E+02, & & -.1308E+02,-.9075E+01,-.5174E+01,-.1593E+01, .7820E+00, .2600E+01, & & -.1827E+02,-.1464E+02,-.1097E+02,-.7525E+01,-.3733E+01,-.1077E+01, & & .1204E+01, .3014E+01,-.1525E+02,-.1210E+02,-.9275E+01,-.5876E+01, & & -.2768E+01,-.6286E+00, .1622E+01, .3394E+01,-.1298E+02,-.1060E+02, & & -.7764E+01,-.4462E+01,-.2154E+01,-.2001E+00, .2034E+01, .3756E+01, & & -.1157E+02,-.8941E+01,-.5984E+01,-.3509E+01,-.1651E+01, .2279E+00, & & .2422E+01, .4066E+01,-.9986E+01,-.7062E+01,-.4794E+01,-.2818E+01, & & -.1196E+01, .6394E+00, .2791E+01, .4283E+01,-.8064E+01,-.5512E+01, & & -.3933E+01,-.2274E+01,-.7559E+00, .1036E+01, .3085E+01, .4444E+01, & & -.6440E+01,-.4863E+01,-.3219E+01,-.1791E+01,-.3279E+00, .1427E+01, & & .3304E+01, .4527E+01,-.5902E+01,-.4207E+01,-.2756E+01,-.1350E+01, & & .7686E-01, .1776E+01, .3475E+01, .4550E+01,-.5439E+01,-.3739E+01, & & -.2330E+01,-.9233E+00, .4612E+00, .2066E+01, .3564E+01, .4502E+01, & & -.5006E+01,-.3316E+01,-.1906E+01,-.5066E+00, .8352E+00, .2272E+01, & & .3587E+01, .4419E+01, .2338E-01, .1968E-02, .9503E-02, .3412E-02, & & .6280E-03,-.1109E-02,-.1089E-02,-.1026E-02, .1972E-01, .2093E-02, & & .9503E-02, .3391E-02, .6489E-03,-.1172E-02,-.1164E-02,-.1158E-02, & & .1603E-01, .3328E-02, .9524E-02, .3391E-02, .6489E-03,-.1277E-02, & & -.1229E-02,-.1296E-02, .1229E-01, .7138E-02, .9524E-02, .3370E-02, & & .6070E-03,-.1319E-02,-.1264E-02,-.1610E-02, .8478E-02, .1095E-01, & & .9566E-02, .3412E-02, .5652E-03,-.1382E-02,-.1266E-02,-.1566E-02, & & .4563E-02, .1480E-01, .9566E-02, .3412E-02, .5443E-03,-.1423E-02, & & -.1199E-02,-.1679E-02, .2261E-02, .1865E-01, .9608E-02, .3454E-02, & & .4815E-03,-.1423E-02,-.1296E-02,-.1555E-02, .2198E-02, .2250E-01, & & .9671E-02, .3412E-02, .4187E-03,-.1426E-02,-.1472E-02,-.1800E-02, & & .2072E-02, .2600E-01, .9734E-02, .3433E-02, .3977E-03,-.1428E-02, & & -.1541E-02,-.1591E-02, .1987E-01, .8645E-02, .6280E-02, .1298E-02, & & -.1151E-02,-.1509E-02,-.1662E-02,-.1570E-02, .4668E-02, .8373E-02, & & .3956E-02,-.4187E-04,-.1968E-02,-.1624E-02,-.1700E-02,-.1947E-02, & & .9231E-02, .5694E-02, .1444E-02,-.2512E-03,-.1827E-02,-.1662E-02, & & -.1576E-02,-.1633E-02, .8666E-02, .3077E-02,-.1737E-02,-.1277E-02, & & -.1507E-02,-.1757E-02,-.1612E-02,-.1612E-02, .8164E-03,-.4375E-02, & & -.1884E-02,-.1277E-02,-.1564E-02,-.1853E-02,-.1591E-02,-.1486E-02, & & -.1486E-02,-.2596E-02,-.1633E-02,-.1539E-02,-.1662E-02,-.1846E-02, & & -.1423E-02,-.1277E-02,-.1423E-02,-.2617E-02,-.1005E-02,-.1379E-02, & & -.1687E-02,-.1905E-02,-.1528E-02,-.1298E-02,-.1675E-03,-.1947E-02, & & -.5024E-03,-.1325E-02,-.1696E-02,-.1698E-02,-.1486E-02,-.1277E-02, & & .1047E-03,-.1109E-02,-.5861E-03,-.1363E-02,-.1620E-02,-.1666E-02, & & -.1507E-02,-.9210E-03, .1047E-03,-.1047E-02,-.8394E-03,-.1342E-02, & & -.1591E-02,-.1323E-02,-.1340E-02,-.9420E-03,-.1085E-03, .2283E-05, & & -.4719E-04,-.3807E-06,-.1522E-05,-.3425E-05,-.7612E-06, .1751E-05, & & -.1766E-03, .1523E-05,-.4719E-04,-.7609E-06,-.3807E-06,-.3045E-05, & & .1599E-05, .8723E-05,-.2443E-03, .1941E-04,-.4757E-04,-.1522E-05, & & -.3806E-06,-.1903E-05,-.2778E-05, .1294E-04,-.1838E-03, .8563E-04, & & -.4757E-04,-.1903E-05, .1142E-05,-.2664E-05,-.6090E-06, .1321E-04, & & -.1161E-03, .1526E-03,-.4757E-04,-.2664E-05,-.3805E-06,-.3806E-05, & & -.2093E-05, .2253E-04,-.4795E-04, .9248E-04,-.4757E-04,-.1903E-05, & & .0000E+00,-.3045E-05,-.7992E-06, .1393E-04,-.9134E-05, .2246E-04, & & -.4834E-04,-.2664E-05, .3804E-06,-.5328E-05,-.1510E-05, .1465E-04, & & -.1028E-04,-.4757E-04,-.4948E-04,-.1142E-05, .7614E-06,-.4910E-05, & & -.5709E-06, .1477E-04,-.1256E-04,-.1066E-03,-.4910E-04,-.1523E-05, & & -.3805E-06,-.3121E-05,-.2512E-05, .1142E-04,-.7878E-04,-.2664E-05, & & -.8373E-05,-.7612E-06, .1104E-04,-.3311E-05,-.1979E-05, .5709E-05, & & -.2626E-04,-.4872E-04,-.3808E-06,-.2283E-05, .2284E-05,-.3349E-05, & & -.4034E-05, .7231E-05,-.4910E-04, .1599E-04, .1256E-04,-.7612E-05, & & .1180E-05,-.1815E-05,-.7193E-05, .3045E-05, .1576E-09, .6470E-05, & & -.1408E-04,-.1903E-05, .1522E-05,-.4746E-05,-.4948E-05, .3806E-06, & & .9020E-04, .5214E-04, .6090E-05,-.1104E-04, .1180E-05,-.2778E-05, & & -.6090E-05,-.2664E-05,-.6737E-04,-.1218E-04,-.3806E-05,-.5214E-05, & & -.1066E-05,-.1294E-05,-.3045E-05,-.2664E-05,-.4643E-04, .1713E-04, & & -.1218E-04,-.6204E-05,-.2360E-05,-.1979E-05,-.1903E-05,-.3806E-05, & & -.3045E-04,-.1256E-04,-.9134E-05,-.6508E-05,-.1027E-05,-.7993E-06, & & -.1142E-05,-.7992E-05,-.3616E-04,-.1028E-04,-.1066E-04,-.6051E-05, & & .1066E-05,-.1751E-05,-.2284E-05,-.2284E-05,-.3920E-04,-.9895E-05, & & -.1321E-04,-.3844E-05,-.2055E-05,-.2512E-05,-.3806E-05,-.3425E-05/ end module band module aerosol1 USE PARA_FILE implicit none integer, private :: i,j real a_ssax(mbx,nrh,naer),a_extx(mbx,nrh,naer) real a_asyx(mbx,nrh,naer) data ((a_ssax(i,j,1),i=1,mbx),j=1,nrh) / & & .1000E+01,.9984E+00,.9525E+00,.9053E+00,.7378E+00,.8873E+00, & & .8528E+00,.8678E+00,.6329E+00,.7734E+00,.7571E+00,.7446E+00, & & .5500E+00,.3973E+00,.4265E+00,.4511E+00,.4341E+00,.3346E+00, & & .1000E+01,.9974E+00,.9586E+00,.9109E+00,.7298E+00,.8807E+00, & & .8421E+00,.8447E+00,.6212E+00,.7637E+00,.7352E+00,.7322E+00, & & .5276E+00,.3942E+00,.4226E+00,.4474E+00,.4344E+00,.3404E+00, & & .1000E+01,.9980E+00,.9691E+00,.9182E+00,.7075E+00,.8584E+00, & & .8072E+00,.8201E+00,.5870E+00,.7255E+00,.6977E+00,.6968E+00, & & .4866E+00,.3946E+00,.4212E+00,.4429E+00,.4396E+00,.3688E+00, & & .1000E+01,.9988E+00,.9820E+00,.9212E+00,.6840E+00,.8189E+00, & & .7384E+00,.7583E+00,.5412E+00,.6484E+00,.6295E+00,.6340E+00, & & .4620E+00,.4177E+00,.4341E+00,.4484E+00,.4522E+00,.4161E+00, & & .1000E+01,.9989E+00,.9836E+00,.9178E+00,.6825E+00,.8084E+00, & & .7180E+00,.7351E+00,.5334E+00,.6226E+00,.6058E+00,.6108E+00, & & .4623E+00,.4255E+00,.4399E+00,.4518E+00,.4559E+00,.4284E+00, & & .1000E+01,.9990E+00,.9832E+00,.9107E+00,.6815E+00,.7994E+00, & & .7018E+00,.7143E+00,.5313E+00,.6011E+00,.5836E+00,.5877E+00, & & .4635E+00,.4341E+00,.4456E+00,.4551E+00,.4589E+00,.4382E+00, & & .1000E+01,.9987E+00,.9813E+00,.8925E+00,.6748E+00,.7865E+00, & & .6908E+00,.6951E+00,.5373E+00,.5836E+00,.5624E+00,.5605E+00, & & .4652E+00,.4443E+00,.4537E+00,.4598E+00,.4620E+00,.4474E+00, & & .1000E+01,.9988E+00,.9800E+00,.8969E+00,.6654E+00,.7781E+00, & & .6947E+00,.6954E+00,.5480E+00,.5842E+00,.5572E+00,.5477E+00, & & .4642E+00,.4479E+00,.4572E+00,.4614E+00,.4620E+00,.4495E+00/ data ((a_extx(i,j,1),i=1,mbx),j=1,nrh) / & & .2085E-03,.2085E-03,.1753E-03,.1667E-03,.1655E-03,.1667E-03, & & .1721E-03,.1735E-03,.1698E-03,.1700E-03,.1691E-03,.1647E-03, & & .1267E-03,.1256E-03,.1477E-03,.1473E-03,.1320E-03,.1206E-03, & & .2442E-03,.2391E-03,.1959E-03,.1850E-03,.1841E-03,.1836E-03, & & .1895E-03,.1909E-03,.1867E-03,.1895E-03,.1879E-03,.1794E-03, & & .1379E-03,.1395E-03,.1642E-03,.1644E-03,.1482E-03,.1336E-03, & & .3488E-03,.3479E-03,.3010E-03,.2796E-03,.2720E-03,.2663E-03, & & .2693E-03,.2725E-03,.2678E-03,.2743E-03,.2717E-03,.2589E-03, & & .2028E-03,.2152E-03,.2470E-03,.2496E-03,.2322E-03,.2076E-03, & & .7848E-03,.7872E-03,.7928E-03,.7466E-03,.7085E-03,.6744E-03, & & .6381E-03,.6362E-03,.6401E-03,.6470E-03,.6477E-03,.6350E-03, & & .5307E-03,.5726E-03,.6321E-03,.6438E-03,.6297E-03,.5842E-03, & & .1112E-02,.1113E-02,.1148E-02,.1112E-02,.1057E-02,.1004E-02, & & .9203E-03,.9076E-03,.9195E-03,.9147E-03,.9172E-03,.9072E-03, & & .7833E-03,.8441E-03,.9175E-03,.9317E-03,.9216E-03,.8724E-03, & & .1636E-02,.1619E-02,.1667E-02,.1673E-02,.1619E-02,.1548E-02, & & .1385E-02,.1345E-02,.1367E-02,.1335E-02,.1334E-02,.1324E-02, & & .1184E-02,.1269E-02,.1366E-02,.1379E-02,.1373E-02,.1323E-02, & & .2803E-02,.2748E-02,.2765E-02,.2829E-02,.2862E-02,.2813E-02, & & .2508E-02,.2396E-02,.2421E-02,.2312E-02,.2280E-02,.2252E-02, & & .2093E-02,.2240E-02,.2390E-02,.2388E-02,.2373E-02,.2328E-02, & & .4213E-02,.4113E-02,.4088E-02,.4098E-02,.4248E-02,.4287E-02, & & .3951E-02,.3743E-02,.3733E-02,.3520E-02,.3416E-02,.3331E-02, & & .3154E-02,.3390E-02,.3609E-02,.3580E-02,.3527E-02,.3473E-02/ data ((a_asyx(i,j,1),i=1,mbx),j=1,nrh) / & & .7972E+00,.8182E+00,.8172E+00,.8200E+00,.8119E+00,.7766E+00, & & .8040E+00,.8212E+00,.8646E+00,.8447E+00,.8440E+00,.8411E+00, & & .8880E+00,.8602E+00,.7911E+00,.7291E+00,.6673E+00,.5545E+00, & & .8017E+00,.8218E+00,.8187E+00,.8216E+00,.8160E+00,.7809E+00, & & .8095E+00,.8488E+00,.8715E+00,.8498E+00,.8488E+00,.8597E+00, & & .8958E+00,.8652E+00,.7976E+00,.7375E+00,.6763E+00,.5685E+00, & & .7986E+00,.8234E+00,.8312E+00,.8353E+00,.8296E+00,.7968E+00, & & .8248E+00,.8507E+00,.8891E+00,.8648E+00,.8726E+00,.8853E+00, & & .9177E+00,.8834E+00,.8248E+00,.7727E+00,.7198E+00,.6379E+00, & & .7617E+00,.8120E+00,.8494E+00,.8614E+00,.8610E+00,.8308E+00, & & .8540E+00,.8626E+00,.9124E+00,.8874E+00,.9025E+00,.9183E+00, & & .9476E+00,.9123E+00,.8683E+00,.8336E+00,.7948E+00,.7445E+00, & & .7412E+00,.7992E+00,.8491E+00,.8673E+00,.8711E+00,.8437E+00, & & .8652E+00,.8700E+00,.9176E+00,.8950E+00,.9099E+00,.9256E+00, & & .9550E+00,.9187E+00,.8787E+00,.8512E+00,.8183E+00,.7759E+00, & & .7144E+00,.7752E+00,.8417E+00,.8684E+00,.8779E+00,.8554E+00, & & .8775E+00,.8804E+00,.9226E+00,.9026E+00,.9169E+00,.9319E+00, & & .9607E+00,.9236E+00,.8850E+00,.8645E+00,.8394E+00,.8044E+00, & & .6858E+00,.7430E+00,.8251E+00,.8605E+00,.8799E+00,.8649E+00, & & .8931E+00,.8955E+00,.9294E+00,.9133E+00,.9253E+00,.9394E+00, & & .9660E+00,.9273E+00,.8877E+00,.8751E+00,.8610E+00,.8366E+00, & & .6686E+00,.7251E+00,.8155E+00,.8500E+00,.8752E+00,.8642E+00, & & .9001E+00,.9040E+00,.9324E+00,.9183E+00,.9292E+00,.9420E+00, & & .9677E+00,.9280E+00,.8855E+00,.8724E+00,.8665E+00,.8517E+00/ data ((a_ssax(i,j,2),i=1,mbx),j=1,nrh) / & & .9607E+00,.9253E+00,.7650E+00,.3869E+00,.7830E+00,.8196E+00, & & .5468E+00,.3954E+00,.2303E+00,.6683E-01,.8012E-01,.1274E+00, & & .1627E+00,.9903E-01,.5161E-01,.4431E-01,.2697E-01,.1631E-01, & & .9606E+00,.9252E+00,.7650E+00,.3872E+00,.7821E+00,.8195E+00, & & .5486E+00,.3983E+00,.2330E+00,.6891E-01,.8092E-01,.1285E+00, & & .1625E+00,.1015E+00,.5113E-01,.4522E-01,.2781E-01,.1691E-01, & & .9632E+00,.9301E+00,.7820E+00,.4110E+00,.7464E+00,.8202E+00, & & .5511E+00,.4098E+00,.2105E+00,.7610E-01,.8126E-01,.1259E+00, & & .1316E+00,.6796E-01,.4130E-01,.4058E-01,.2661E-01,.1672E-01, & & .9730E+00,.9487E+00,.8461E+00,.5175E+00,.7033E+00,.8338E+00, & & .5724E+00,.4600E+00,.1834E+00,.1095E+00,.8760E-01,.1199E+00, & & .7362E-01,.2678E-01,.2572E-01,.3075E-01,.2423E-01,.1656E-01, & & .9820E+00,.9667E+00,.9056E+00,.6542E+00,.7047E+00,.8543E+00, & & .6027E+00,.5125E+00,.1824E+00,.1479E+00,.1006E+00,.1160E+00, & & .4699E-01,.1763E-01,.2012E-01,.2466E-01,.2149E-01,.1529E-01, & & .9859E+00,.9745E+00,.9303E+00,.7255E+00,.7137E+00,.8662E+00, & & .6230E+00,.5426E+00,.1894E+00,.1718E+00,.1117E+00,.1168E+00, & & .3984E-01,.1625E-01,.1928E-01,.2322E-01,.2079E-01,.1493E-01, & & .9891E+00,.9808E+00,.9500E+00,.7911E+00,.7245E+00,.8778E+00, & & .6552E+00,.5913E+00,.2128E+00,.2271E+00,.1459E+00,.1391E+00, & & .4313E-01,.2095E-01,.2574E-01,.3247E-01,.3267E-01,.2510E-01, & & .9914E+00,.9853E+00,.9630E+00,.8391E+00,.7353E+00,.8871E+00, & & .6780E+00,.6222E+00,.2295E+00,.2635E+00,.1717E+00,.1553E+00, & & .4561E-01,.2404E-01,.2966E-01,.3769E-01,.3967E-01,.3733E-01/ data ((a_extx(i,j,2),i=1,mbx),j=1,nrh) / & & .1067E-04,.5658E-05,.1248E-05,.1317E-05,.2144E-06,.1635E-06, & & .1051E-06,.1039E-06,.1074E-06,.1852E-06,.3665E-06,.2548E-06, & & .8879E-07,.9337E-07,.1557E-06,.1269E-06,.1362E-06,.1536E-06, & & .1067E-04,.5659E-05,.1250E-05,.1318E-05,.2156E-06,.1645E-06, & & .1060E-06,.1047E-06,.1083E-06,.1859E-06,.3671E-06,.2554E-06, & & .8921E-07,.9426E-07,.1563E-06,.1274E-06,.1366E-06,.1539E-06, & & .1145E-04,.6089E-05,.1366E-05,.1390E-05,.2705E-06,.1893E-06, & & .1202E-06,.1160E-06,.1392E-06,.1982E-06,.3933E-06,.2795E-06, & & .1146E-06,.1395E-06,.1987E-06,.1543E-06,.1569E-06,.1719E-06, & & .1554E-04,.8394E-05,.2017E-05,.1792E-05,.5780E-06,.3314E-06, & & .1978E-06,.1767E-06,.3055E-06,.2637E-06,.5149E-06,.3873E-06, & & .2577E-06,.4005E-06,.4371E-06,.3044E-06,.2654E-06,.2658E-06, & & .2344E-04,.1308E-04,.3456E-05,.2666E-05,.1253E-05,.6574E-06, & & .3619E-06,.3005E-06,.6400E-06,.3929E-06,.7060E-06,.5523E-06, & & .5532E-06,.9393E-06,.9290E-06,.6129E-06,.4778E-06,.4448E-06, & & .3004E-04,.1716E-04,.4801E-05,.3491E-05,.1886E-05,.9781E-06, & & .5168E-06,.4150E-06,.9341E-06,.5071E-06,.8499E-06,.6765E-06, & & .8087E-06,.1406E-05,.1356E-05,.8808E-06,.6589E-06,.5955E-06, & & .3935E-04,.2315E-04,.6913E-05,.4819E-05,.2908E-05,.1535E-05, & & .8007E-06,.6334E-06,.1408E-05,.7153E-06,.1081E-05,.8758E-06, & & .1200E-05,.2109E-05,.2009E-05,.1301E-05,.9483E-06,.8356E-06, & & .5037E-04,.3051E-04,.9659E-05,.6565E-05,.4238E-05,.2277E-05, & & .1165E-05,.9083E-06,.1992E-05,.9700E-06,.1351E-05,.1111E-05, & & .1676E-05,.2962E-05,.2801E-05,.1811E-05,.1302E-05,.9664E-06/ data ((a_asyx(i,j,2),i=1,mbx),j=1,nrh) / & & .6406E+00,.6057E+00,.5447E+00,.4976E+00,.4323E+00,.4216E+00, & & .4084E+00,.4038E+00,.3530E+00,.5334E+00,.4666E+00,.3619E+00, & & .4654E+00,.5418E+00,.5190E+00,.4775E+00,.4633E+00,.3869E+00, & & .6406E+00,.6057E+00,.5449E+00,.4982E+00,.4338E+00,.4240E+00, & & .4135E+00,.4106E+00,.3639E+00,.5480E+00,.4744E+00,.3681E+00, & & .4720E+00,.5471E+00,.5244E+00,.4836E+00,.4694E+00,.3936E+00, & & .6514E+00,.6161E+00,.5532E+00,.5076E+00,.4378E+00,.4297E+00, & & .4202E+00,.4202E+00,.3811E+00,.5519E+00,.4816E+00,.3768E+00, & & .4809E+00,.5492E+00,.5237E+00,.4896E+00,.4800E+00,.4086E+00, & & .6892E+00,.6537E+00,.5854E+00,.5436E+00,.4553E+00,.4509E+00, & & .4419E+00,.4494E+00,.4211E+00,.5500E+00,.4860E+00,.4133E+00, & & .5070E+00,.5397E+00,.5109E+00,.5082E+00,.5147E+00,.4602E+00, & & .7238E+00,.6909E+00,.6212E+00,.5832E+00,.4777E+00,.4729E+00, & & .4524E+00,.4581E+00,.4252E+00,.5112E+00,.4636E+00,.4340E+00, & & .5076E+00,.4990E+00,.4697E+00,.4977E+00,.5255E+00,.4928E+00, & & .7390E+00,.7084E+00,.6399E+00,.6042E+00,.4924E+00,.4874E+00, & & .4601E+00,.4628E+00,.4269E+00,.4922E+00,.4535E+00,.4423E+00, & & .5024E+00,.4712E+00,.4434E+00,.4853E+00,.5258E+00,.5079E+00, & & .7522E+00,.7245E+00,.6593E+00,.6270E+00,.5142E+00,.5121E+00, & & .4943E+00,.5049E+00,.4707E+00,.5452E+00,.5173E+00,.5260E+00, & & .5827E+00,.5439E+00,.5142E+00,.5589E+00,.5958E+00,.5818E+00, & & .7620E+00,.7371E+00,.6754E+00,.6456E+00,.5312E+00,.5297E+00, & & .5112E+00,.5218E+00,.4872E+00,.5553E+00,.5396E+00,.5633E+00, & & .6177E+00,.5629E+00,.5322E+00,.5821E+00,.6221E+00,.6250E+00/ data ((a_ssax(i,j,3),i=1,mbx),j=1,nrh) / & & .9371E+00,.8999E+00,.7175E+00,.3628E+00,.6462E+00,.6564E+00, & & .4011E+00,.2856E+00,.1754E+00,.3630E-01,.6500E-01,.8672E-01, & & .8039E-01,.3570E-01,.1633E-01,.1202E-01,.4884E-02,.2383E-02, & & .9365E+00,.8992E+00,.7160E+00,.3622E+00,.6417E+00,.6511E+00, & & .3969E+00,.2828E+00,.1736E+00,.3634E-01,.6489E-01,.8637E-01, & & .7938E-01,.3683E-01,.1618E-01,.1207E-01,.4972E-02,.2454E-02, & & .9386E+00,.9035E+00,.7316E+00,.3838E+00,.6180E+00,.6530E+00, & & .3951E+00,.2856E+00,.1549E+00,.3982E-01,.6398E-01,.8328E-01, & & .6367E-01,.2501E-01,.1367E-01,.1095E-01,.4813E-02,.2445E-02, & & .9522E+00,.9265E+00,.8037E+00,.4882E+00,.6214E+00,.7102E+00, & & .4367E+00,.3326E+00,.1370E+00,.5985E-01,.6507E-01,.7825E-01, & & .3715E-01,.1113E-01,.9892E-02,.9000E-02,.4744E-02,.2534E-02, & & .9669E+00,.9502E+00,.8773E+00,.6289E+00,.6589E+00,.7812E+00, & & .5069E+00,.4094E+00,.1465E+00,.9469E-01,.7425E-01,.7846E-01, & & .2566E-01,.8722E-02,.9422E-02,.8668E-02,.5022E-02,.2619E-02, & & .9733E+00,.9620E+00,.9086E+00,.7041E+00,.6797E+00,.8128E+00, & & .5458E+00,.4545E+00,.1573E+00,.1192E+00,.8364E-01,.8086E-01, & & .2264E-01,.8812E-02,.9970E-02,.9079E-02,.5429E-02,.2765E-02, & & .9790E+00,.9710E+00,.9339E+00,.7734E+00,.6992E+00,.8399E+00, & & .5866E+00,.5038E+00,.1729E+00,.1520E+00,.9926E-01,.8757E-01, & & .2187E-01,.1003E-01,.1172E-01,.1103E-01,.7504E-02,.4245E-02, & & .9832E+00,.9776E+00,.9511E+00,.8253E+00,.7164E+00,.8604E+00, & & .6219E+00,.5461E+00,.1893E+00,.1831E+00,.1159E+00,.9521E-01, & & .2208E-01,.1143E-01,.1350E-01,.1280E-01,.9112E-02,.6206E-02/ data ((a_extx(i,j,3),i=1,mbx),j=1,nrh) / & & .6974E-05,.3689E-05,.8308E-06,.8639E-06,.1517E-06,.1172E-06, & & .7603E-07,.7487E-07,.7732E-07,.1226E-06,.2351E-06,.1602E-06, & & .5585E-07,.5913E-07,.9781E-07,.7830E-07,.8414E-07,.9499E-07, & & .6982E-05,.3693E-05,.8327E-06,.8656E-06,.1529E-06,.1183E-06, & & .7697E-07,.7577E-07,.7826E-07,.1234E-06,.2358E-06,.1609E-06, & & .5659E-07,.6006E-07,.9840E-07,.7871E-07,.8445E-07,.9516E-07, & & .7505E-05,.3978E-05,.9110E-06,.9159E-06,.1901E-06,.1358E-06, & & .8773E-07,.8470E-07,.9992E-07,.1329E-06,.2542E-06,.1781E-06, & & .7504E-07,.9126E-07,.1270E-06,.9669E-07,.9796E-07,.1067E-06, & & .1017E-04,.5464E-05,.1328E-05,.1172E-05,.3857E-06,.2239E-06, & & .1355E-06,.1219E-06,.2064E-06,.1743E-06,.3321E-06,.2476E-06, & & .1704E-06,.2630E-06,.2819E-06,.1932E-06,.1672E-06,.1659E-06, & & .1528E-04,.8466E-05,.2240E-05,.1723E-05,.8128E-06,.4251E-06, & & .2346E-06,.1956E-06,.4180E-06,.2532E-06,.4515E-06,.3513E-06, & & .3619E-06,.6124E-06,.5990E-06,.3904E-06,.3021E-06,.2789E-06, & & .1963E-04,.1111E-04,.3099E-05,.2247E-05,.1219E-05,.6254E-06, & & .3299E-06,.2652E-06,.6084E-06,.3245E-06,.5427E-06,.4307E-06, & & .5313E-06,.9227E-06,.8816E-06,.5662E-06,.4201E-06,.3763E-06, & & .2594E-04,.1505E-04,.4440E-05,.3077E-05,.1861E-05,.9545E-06, & & .4851E-06,.3783E-06,.8998E-06,.4362E-06,.6725E-06,.5438E-06, & & .7839E-06,.1386E-05,.1306E-05,.8310E-06,.5971E-06,.5214E-06, & & .3343E-04,.1989E-04,.6191E-05,.4176E-05,.2703E-05,.1404E-05, & & .6921E-06,.5279E-06,.3548E-06,.5771E-06,.8264E-06,.6774E-06, & & .1089E-05,.1946E-05,.1820E-05,.1152E-05,.8146E-06,.5980E-06/ data ((a_asyx(i,j,3),i=1,mbx),j=1,nrh) / & & .6381E+00,.6035E+00,.5386E+00,.4849E+00,.3957E+00,.3761E+00, & & .3199E+00,.3006E+00,.2684E+00,.2713E+00,.2763E+00,.2241E+00, & & .2351E+00,.2725E+00,.2616E+00,.2607E+00,.3195E+00,.3162E+00, & & .6381E+00,.6035E+00,.5385E+00,.4849E+00,.3958E+00,.3764E+00, & & .3207E+00,.3018E+00,.2700E+00,.2780E+00,.2836E+00,.2254E+00, & & .2366E+00,.2730E+00,.2629E+00,.2658E+00,.3269E+00,.3239E+00, & & .6490E+00,.6137E+00,.5468E+00,.4946E+00,.4020E+00,.3834E+00, & & .3274E+00,.3089E+00,.2773E+00,.2849E+00,.2936E+00,.2285E+00, & & .2374E+00,.2654E+00,.2526E+00,.2639E+00,.3284E+00,.3327E+00, & & .6866E+00,.6512E+00,.5797E+00,.5327E+00,.4280E+00,.4121E+00, & & .3550E+00,.3374E+00,.3039E+00,.3043E+00,.2931E+00,.2444E+00, & & .2438E+00,.2427E+00,.2265E+00,.2565E+00,.3291E+00,.3575E+00, & & .7213E+00,.6884E+00,.6168E+00,.5756E+00,.4606E+00,.4473E+00, & & .3883E+00,.3700E+00,.3315E+00,.3171E+00,.2900E+00,.2650E+00, & & .2506E+00,.2220E+00,.2017E+00,.2297E+00,.2957E+00,.3450E+00, & & .7362E+00,.7055E+00,.6357E+00,.5977E+00,.4792E+00,.4674E+00, & & .4080E+00,.3893E+00,.3483E+00,.3287E+00,.2983E+00,.2787E+00, & & .2562E+00,.2159E+00,.1939E+00,.2169E+00,.2754E+00,.3308E+00, & & .7488E+00,.7206E+00,.6539E+00,.6192E+00,.4991E+00,.4892E+00, & & .4329E+00,.4163E+00,.3733E+00,.3608E+00,.3302E+00,.3274E+00, & & .2936E+00,.2500E+00,.2283E+00,.2661E+00,.3470E+00,.4161E+00, & & .7584E+00,.7326E+00,.6694E+00,.6376E+00,.5167E+00,.5082E+00, & & .4535E+00,.4373E+00,.3927E+00,.3798E+00,.3500E+00,.3381E+00, & & .3171E+00,.2640E+00,.2404E+00,.2809E+00,.3669E+00,.4590E+00/ data ((a_ssax(i,j,4),i=1,mbx),j=1,nrh) / & & .9140E+00,.9726E+00,.9759E+00,.9737E+00,.8492E+00,.8986E+00, & & .8344E+00,.6125E+00,.2537E+00,.9996E-01,.3744E-01,.1756E+00, & & .6959E-01,.3767E-01,.1425E-01,.1772E-01,.7060E-02,.2826E-02, & & .9140E+00,.9726E+00,.9759E+00,.9737E+00,.8492E+00,.8986E+00, & & .8344E+00,.6125E+00,.2537E+00,.9996E-01,.3744E-01,.1756E+00, & & .6959E-01,.3767E-01,.1425E-01,.1772E-01,.7060E-02,.2826E-02, & & .9140E+00,.9726E+00,.9759E+00,.9737E+00,.8492E+00,.8986E+00, & & .8344E+00,.6125E+00,.2537E+00,.9996E-01,.3744E-01,.1756E+00, & & .6959E-01,.3767E-01,.1425E-01,.1772E-01,.7060E-02,.2826E-02, & & .9140E+00,.9726E+00,.9759E+00,.9737E+00,.8492E+00,.8986E+00, & & .8344E+00,.6125E+00,.2537E+00,.9996E-01,.3744E-01,.1756E+00, & & .6959E-01,.3767E-01,.1425E-01,.1772E-01,.7060E-02,.2826E-02, & & .9140E+00,.9726E+00,.9759E+00,.9737E+00,.8492E+00,.8986E+00, & & .8344E+00,.6125E+00,.2537E+00,.9996E-01,.3744E-01,.1756E+00, & & .6959E-01,.3767E-01,.1425E-01,.1772E-01,.7060E-02,.2826E-02, & & .9140E+00,.9726E+00,.9759E+00,.9737E+00,.8492E+00,.8986E+00, & & .8344E+00,.6125E+00,.2537E+00,.9996E-01,.3744E-01,.1756E+00, & & .6959E-01,.3767E-01,.1425E-01,.1772E-01,.7060E-02,.2826E-02, & & .9140E+00,.9726E+00,.9759E+00,.9737E+00,.8492E+00,.8986E+00, & & .8344E+00,.6125E+00,.2537E+00,.9996E-01,.3744E-01,.1756E+00, & & .6959E-01,.3767E-01,.1425E-01,.1772E-01,.7060E-02,.2826E-02, & & .9140E+00,.9726E+00,.9759E+00,.9737E+00,.8492E+00,.8986E+00, & & .8344E+00,.6125E+00,.2537E+00,.9996E-01,.3744E-01,.1756E+00, & & .6959E-01,.3767E-01,.1425E-01,.1772E-01,.7060E-02,.2826E-02/ data ((a_extx(i,j,4),i=1,mbx),j=1,nrh) / & & .1013E+01,.1046E+01,.7036E+00,.4361E+00,.1101E+00,.7263E-01, & & .3980E-01,.3442E-01,.3402E-01,.3102E-01,.7158E-01,.1016E+00, & & .5528E-01,.2937E-01,.3969E-01,.3820E-01,.2108E-01,.1806E-01, & & .1013E+01,.1046E+01,.7036E+00,.4361E+00,.1101E+00,.7263E-01, & & .3980E-01,.3442E-01,.3402E-01,.3102E-01,.7158E-01,.1016E+00, & & .5528E-01,.2937E-01,.3969E-01,.3820E-01,.2108E-01,.1806E-01, & & .1013E+01,.1046E+01,.7036E+00,.4361E+00,.1101E+00,.7263E-01, & & .3980E-01,.3442E-01,.3402E-01,.3102E-01,.7158E-01,.1016E+00, & & .5528E-01,.2937E-01,.3969E-01,.3820E-01,.2108E-01,.1806E-01, & & .1013E+01,.1046E+01,.7036E+00,.4361E+00,.1101E+00,.7263E-01, & & .3980E-01,.3442E-01,.3402E-01,.3102E-01,.7158E-01,.1016E+00, & & .5528E-01,.2937E-01,.3969E-01,.3820E-01,.2108E-01,.1806E-01, & & .1013E+01,.1046E+01,.7036E+00,.4361E+00,.1101E+00,.7263E-01, & & .3980E-01,.3442E-01,.3402E-01,.3102E-01,.7158E-01,.1016E+00, & & .5528E-01,.2937E-01,.3969E-01,.3820E-01,.2108E-01,.1806E-01, & & .1013E+01,.1046E+01,.7036E+00,.4361E+00,.1101E+00,.7263E-01, & & .3980E-01,.3442E-01,.3402E-01,.3102E-01,.7158E-01,.1016E+00, & & .5528E-01,.2937E-01,.3969E-01,.3820E-01,.2108E-01,.1806E-01, & & .1013E+01,.1046E+01,.7036E+00,.4361E+00,.1101E+00,.7263E-01, & & .3980E-01,.3442E-01,.3402E-01,.3102E-01,.7158E-01,.1016E+00, & & .5528E-01,.2937E-01,.3969E-01,.3820E-01,.2108E-01,.1806E-01, & & .1013E+01,.1046E+01,.7036E+00,.4361E+00,.1101E+00,.7263E-01, & & .3980E-01,.3442E-01,.3402E-01,.3102E-01,.7158E-01,.1016E+00, & & .5528E-01,.2937E-01,.3969E-01,.3820E-01,.2108E-01,.1806E-01/ data ((a_asyx(i,j,4),i=1,mbx),j=1,nrh) / & & .6727E+00,.6788E+00,.6599E+00,.6079E+00,.4306E+00,.3754E+00, & & .2599E+00,.2139E+00,.1488E+00,.1066E+00,.8476E-01,.1280E+00, & & .6212E-01,.4009E-01,.2821E-01,.2439E-01,.1238E-01,.7042E-02, & & .6727E+00,.6788E+00,.6599E+00,.6079E+00,.4306E+00,.3754E+00, & & .2599E+00,.2139E+00,.1488E+00,.1066E+00,.8476E-01,.1280E+00, & & .6212E-01,.4009E-01,.2821E-01,.2439E-01,.1238E-01,.7042E-02, & & .6727E+00,.6788E+00,.6599E+00,.6079E+00,.4306E+00,.3754E+00, & & .2599E+00,.2139E+00,.1488E+00,.1066E+00,.8476E-01,.1280E+00, & & .6212E-01,.4009E-01,.2821E-01,.2439E-01,.1238E-01,.7042E-02, & & .6727E+00,.6788E+00,.6599E+00,.6079E+00,.4306E+00,.3754E+00, & & .2599E+00,.2139E+00,.1488E+00,.1066E+00,.8476E-01,.1280E+00, & & .6212E-01,.4009E-01,.2821E-01,.2439E-01,.1238E-01,.7042E-02, & & .6727E+00,.6788E+00,.6599E+00,.6079E+00,.4306E+00,.3754E+00, & & .2599E+00,.2139E+00,.1488E+00,.1066E+00,.8476E-01,.1280E+00, & & .6212E-01,.4009E-01,.2821E-01,.2439E-01,.1238E-01,.7042E-02, & & .6727E+00,.6788E+00,.6599E+00,.6079E+00,.4306E+00,.3754E+00, & & .2599E+00,.2139E+00,.1488E+00,.1066E+00,.8476E-01,.1280E+00, & & .6212E-01,.4009E-01,.2821E-01,.2439E-01,.1238E-01,.7042E-02, & & .6727E+00,.6788E+00,.6599E+00,.6079E+00,.4306E+00,.3754E+00, & & .2599E+00,.2139E+00,.1488E+00,.1066E+00,.8476E-01,.1280E+00, & & .6212E-01,.4009E-01,.2821E-01,.2439E-01,.1238E-01,.7042E-02, & & .6727E+00,.6788E+00,.6599E+00,.6079E+00,.4306E+00,.3754E+00, & & .2599E+00,.2139E+00,.1488E+00,.1066E+00,.8476E-01,.1280E+00, & & .6212E-01,.4009E-01,.2821E-01,.2439E-01,.1238E-01,.7042E-02/ data ((a_ssax(i,j,5),i=1,mbx),j=1,nrh) / & & .8498E+00,.9415E+00,.9649E+00,.9728E+00,.9141E+00,.9502E+00, & & .9317E+00,.8228E+00,.5514E+00,.3158E+00,.1352E+00,.3908E+00, & & .2884E+00,.1955E+00,.8936E-01,.1136E+00,.5145E-01,.2186E-01, & & .8498E+00,.9415E+00,.9649E+00,.9728E+00,.9141E+00,.9502E+00, & & .9317E+00,.8228E+00,.5514E+00,.3158E+00,.1352E+00,.3908E+00, & & .2884E+00,.1955E+00,.8936E-01,.1136E+00,.5145E-01,.2186E-01, & & .8498E+00,.9415E+00,.9649E+00,.9728E+00,.9141E+00,.9502E+00, & & .9317E+00,.8228E+00,.5514E+00,.3158E+00,.1352E+00,.3908E+00, & & .2884E+00,.1955E+00,.8936E-01,.1136E+00,.5145E-01,.2186E-01, & & .8498E+00,.9415E+00,.9649E+00,.9728E+00,.9141E+00,.9502E+00, & & .9317E+00,.8228E+00,.5514E+00,.3158E+00,.1352E+00,.3908E+00, & & .2884E+00,.1955E+00,.8936E-01,.1136E+00,.5145E-01,.2186E-01, & & .8498E+00,.9415E+00,.9649E+00,.9728E+00,.9141E+00,.9502E+00, & & .9317E+00,.8228E+00,.5514E+00,.3158E+00,.1352E+00,.3908E+00, & & .2884E+00,.1955E+00,.8936E-01,.1136E+00,.5145E-01,.2186E-01, & & .8498E+00,.9415E+00,.9649E+00,.9728E+00,.9141E+00,.9502E+00, & & .9317E+00,.8228E+00,.5514E+00,.3158E+00,.1352E+00,.3908E+00, & & .2884E+00,.1955E+00,.8936E-01,.1136E+00,.5145E-01,.2186E-01, & & .8498E+00,.9415E+00,.9649E+00,.9728E+00,.9141E+00,.9502E+00, & & .9317E+00,.8228E+00,.5514E+00,.3158E+00,.1352E+00,.3908E+00, & & .2884E+00,.1955E+00,.8936E-01,.1136E+00,.5145E-01,.2186E-01, & & .8498E+00,.9415E+00,.9649E+00,.9728E+00,.9141E+00,.9502E+00, & & .9317E+00,.8228E+00,.5514E+00,.3158E+00,.1352E+00,.3908E+00, & & .2884E+00,.1955E+00,.8936E-01,.1136E+00,.5145E-01,.2186E-01/ data ((a_extx(i,j,5),i=1,mbx),j=1,nrh) / & & .1011E+01,.1126E+01,.1274E+01,.1194E+01,.5876E+00,.4705E+00, & & .3210E+00,.2489E+00,.1574E+00,.1099E+00,.2069E+00,.5297E+00, & & .1960E+00,.9338E-01,.1105E+00,.1188E+00,.5688E-01,.4516E-01, & & .1011E+01,.1126E+01,.1274E+01,.1194E+01,.5876E+00,.4705E+00, & & .3210E+00,.2489E+00,.1574E+00,.1099E+00,.2069E+00,.5297E+00, & & .1960E+00,.9338E-01,.1105E+00,.1188E+00,.5688E-01,.4516E-01, & & .1011E+01,.1126E+01,.1274E+01,.1194E+01,.5876E+00,.4705E+00, & & .3210E+00,.2489E+00,.1574E+00,.1099E+00,.2069E+00,.5297E+00, & & .1960E+00,.9338E-01,.1105E+00,.1188E+00,.5688E-01,.4516E-01, & & .1011E+01,.1126E+01,.1274E+01,.1194E+01,.5876E+00,.4705E+00, & & .3210E+00,.2489E+00,.1574E+00,.1099E+00,.2069E+00,.5297E+00, & & .1960E+00,.9338E-01,.1105E+00,.1188E+00,.5688E-01,.4516E-01, & & .1011E+01,.1126E+01,.1274E+01,.1194E+01,.5876E+00,.4705E+00, & & .3210E+00,.2489E+00,.1574E+00,.1099E+00,.2069E+00,.5297E+00, & & .1960E+00,.9338E-01,.1105E+00,.1188E+00,.5688E-01,.4516E-01, & & .1011E+01,.1126E+01,.1274E+01,.1194E+01,.5876E+00,.4705E+00, & & .3210E+00,.2489E+00,.1574E+00,.1099E+00,.2069E+00,.5297E+00, & & .1960E+00,.9338E-01,.1105E+00,.1188E+00,.5688E-01,.4516E-01, & & .1011E+01,.1126E+01,.1274E+01,.1194E+01,.5876E+00,.4705E+00, & & .3210E+00,.2489E+00,.1574E+00,.1099E+00,.2069E+00,.5297E+00, & & .1960E+00,.9338E-01,.1105E+00,.1188E+00,.5688E-01,.4516E-01, & & .1011E+01,.1126E+01,.1274E+01,.1194E+01,.5876E+00,.4705E+00, & & .3210E+00,.2489E+00,.1574E+00,.1099E+00,.2069E+00,.5297E+00, & & .1960E+00,.9338E-01,.1105E+00,.1188E+00,.5688E-01,.4516E-01/ data ((a_asyx(i,j,5),i=1,mbx),j=1,nrh) / & & .7338E+00,.6749E+00,.6812E+00,.6876E+00,.6653E+00,.6352E+00, & & .5506E+00,.5123E+00,.4335E+00,.3460E+00,.2780E+00,.2550E+00, & & .2217E+00,.1555E+00,.1096E+00,.9265E-01,.5052E-01,.2847E-01, & & .7338E+00,.6749E+00,.6812E+00,.6876E+00,.6653E+00,.6352E+00, & & .5506E+00,.5123E+00,.4335E+00,.3460E+00,.2780E+00,.2550E+00, & & .2217E+00,.1555E+00,.1096E+00,.9265E-01,.5052E-01,.2847E-01, & & .7338E+00,.6749E+00,.6812E+00,.6876E+00,.6653E+00,.6352E+00, & & .5506E+00,.5123E+00,.4335E+00,.3460E+00,.2780E+00,.2550E+00, & & .2217E+00,.1555E+00,.1096E+00,.9265E-01,.5052E-01,.2847E-01, & & .7338E+00,.6749E+00,.6812E+00,.6876E+00,.6653E+00,.6352E+00, & & .5506E+00,.5123E+00,.4335E+00,.3460E+00,.2780E+00,.2550E+00, & & .2217E+00,.1555E+00,.1096E+00,.9265E-01,.5052E-01,.2847E-01, & & .7338E+00,.6749E+00,.6812E+00,.6876E+00,.6653E+00,.6352E+00, & & .5506E+00,.5123E+00,.4335E+00,.3460E+00,.2780E+00,.2550E+00, & & .2217E+00,.1555E+00,.1096E+00,.9265E-01,.5052E-01,.2847E-01, & & .7338E+00,.6749E+00,.6812E+00,.6876E+00,.6653E+00,.6352E+00, & & .5506E+00,.5123E+00,.4335E+00,.3460E+00,.2780E+00,.2550E+00, & & .2217E+00,.1555E+00,.1096E+00,.9265E-01,.5052E-01,.2847E-01, & & .7338E+00,.6749E+00,.6812E+00,.6876E+00,.6653E+00,.6352E+00, & & .5506E+00,.5123E+00,.4335E+00,.3460E+00,.2780E+00,.2550E+00, & & .2217E+00,.1555E+00,.1096E+00,.9265E-01,.5052E-01,.2847E-01, & & .7338E+00,.6749E+00,.6812E+00,.6876E+00,.6653E+00,.6352E+00, & & .5506E+00,.5123E+00,.4335E+00,.3460E+00,.2780E+00,.2550E+00, & & .2217E+00,.1555E+00,.1096E+00,.9265E-01,.5052E-01,.2847E-01/ data ((a_ssax(i,j,6),i=1,mbx),j=1,nrh) / & & .7767E+00,.8913E+00,.9229E+00,.9437E+00,.9070E+00,.9518E+00, & & .9450E+00,.8785E+00,.7097E+00,.5202E+00,.2521E+00,.4713E+00, & & .4974E+00,.4416E+00,.2753E+00,.3267E+00,.2329E+00,.1353E+00, & & .7767E+00,.8913E+00,.9229E+00,.9437E+00,.9070E+00,.9518E+00, & & .9450E+00,.8785E+00,.7097E+00,.5202E+00,.2521E+00,.4713E+00, & & .4974E+00,.4416E+00,.2753E+00,.3267E+00,.2329E+00,.1353E+00, & & .7767E+00,.8913E+00,.9229E+00,.9437E+00,.9070E+00,.9518E+00, & & .9450E+00,.8785E+00,.7097E+00,.5202E+00,.2521E+00,.4713E+00, & & .4974E+00,.4416E+00,.2753E+00,.3267E+00,.2329E+00,.1353E+00, & & .7767E+00,.8913E+00,.9229E+00,.9437E+00,.9070E+00,.9518E+00, & & .9450E+00,.8785E+00,.7097E+00,.5202E+00,.2521E+00,.4713E+00, & & .4974E+00,.4416E+00,.2753E+00,.3267E+00,.2329E+00,.1353E+00, & & .7767E+00,.8913E+00,.9229E+00,.9437E+00,.9070E+00,.9518E+00, & & .9450E+00,.8785E+00,.7097E+00,.5202E+00,.2521E+00,.4713E+00, & & .4974E+00,.4416E+00,.2753E+00,.3267E+00,.2329E+00,.1353E+00, & & .7767E+00,.8913E+00,.9229E+00,.9437E+00,.9070E+00,.9518E+00, & & .9450E+00,.8785E+00,.7097E+00,.5202E+00,.2521E+00,.4713E+00, & & .4974E+00,.4416E+00,.2753E+00,.3267E+00,.2329E+00,.1353E+00, & & .7767E+00,.8913E+00,.9229E+00,.9437E+00,.9070E+00,.9518E+00, & & .9450E+00,.8785E+00,.7097E+00,.5202E+00,.2521E+00,.4713E+00, & & .4974E+00,.4416E+00,.2753E+00,.3267E+00,.2329E+00,.1353E+00, & & .7767E+00,.8913E+00,.9229E+00,.9437E+00,.9070E+00,.9518E+00, & & .9450E+00,.8785E+00,.7097E+00,.5202E+00,.2521E+00,.4713E+00, & & .4974E+00,.4416E+00,.2753E+00,.3267E+00,.2329E+00,.1353E+00/ data ((a_extx(i,j,6),i=1,mbx),j=1,nrh) / & & .1004E+01,.1058E+01,.1170E+01,.1268E+01,.1279E+01,.1229E+01, & & .1090E+01,.9105E+00,.5986E+00,.3776E+00,.4888E+00,.1196E+01, & & .6530E+00,.3654E+00,.3515E+00,.4897E+00,.2131E+00,.1327E+00, & & .1004E+01,.1058E+01,.1170E+01,.1268E+01,.1279E+01,.1229E+01, & & .1090E+01,.9105E+00,.5986E+00,.3776E+00,.4888E+00,.1196E+01, & & .6530E+00,.3654E+00,.3515E+00,.4897E+00,.2131E+00,.1327E+00, & & .1004E+01,.1058E+01,.1170E+01,.1268E+01,.1279E+01,.1229E+01, & & .1090E+01,.9105E+00,.5986E+00,.3776E+00,.4888E+00,.1196E+01, & & .6530E+00,.3654E+00,.3515E+00,.4897E+00,.2131E+00,.1327E+00, & & .1004E+01,.1058E+01,.1170E+01,.1268E+01,.1279E+01,.1229E+01, & & .1090E+01,.9105E+00,.5986E+00,.3776E+00,.4888E+00,.1196E+01, & & .6530E+00,.3654E+00,.3515E+00,.4897E+00,.2131E+00,.1327E+00, & & .1004E+01,.1058E+01,.1170E+01,.1268E+01,.1279E+01,.1229E+01, & & .1090E+01,.9105E+00,.5986E+00,.3776E+00,.4888E+00,.1196E+01, & & .6530E+00,.3654E+00,.3515E+00,.4897E+00,.2131E+00,.1327E+00, & & .1004E+01,.1058E+01,.1170E+01,.1268E+01,.1279E+01,.1229E+01, & & .1090E+01,.9105E+00,.5986E+00,.3776E+00,.4888E+00,.1196E+01, & & .6530E+00,.3654E+00,.3515E+00,.4897E+00,.2131E+00,.1327E+00, & & .1004E+01,.1058E+01,.1170E+01,.1268E+01,.1279E+01,.1229E+01, & & .1090E+01,.9105E+00,.5986E+00,.3776E+00,.4888E+00,.1196E+01, & & .6530E+00,.3654E+00,.3515E+00,.4897E+00,.2131E+00,.1327E+00, & & .1004E+01,.1058E+01,.1170E+01,.1268E+01,.1279E+01,.1229E+01, & & .1090E+01,.9105E+00,.5986E+00,.3776E+00,.4888E+00,.1196E+01, & & .6530E+00,.3654E+00,.3515E+00,.4897E+00,.2131E+00,.1327E+00/ data ((a_asyx(i,j,6),i=1,mbx),j=1,nrh) / & & .8134E+00,.7428E+00,.6826E+00,.6685E+00,.7403E+00,.7278E+00, & & .6859E+00,.6902E+00,.6914E+00,.6552E+00,.5806E+00,.3985E+00, & & .4769E+00,.4206E+00,.3269E+00,.2136E+00,.1687E+00,.1122E+00, & & .8134E+00,.7428E+00,.6826E+00,.6685E+00,.7403E+00,.7278E+00, & & .6859E+00,.6902E+00,.6914E+00,.6552E+00,.5806E+00,.3985E+00, & & .4769E+00,.4206E+00,.3269E+00,.2136E+00,.1687E+00,.1122E+00, & & .8134E+00,.7428E+00,.6826E+00,.6685E+00,.7403E+00,.7278E+00, & & .6859E+00,.6902E+00,.6914E+00,.6552E+00,.5806E+00,.3985E+00, & & .4769E+00,.4206E+00,.3269E+00,.2136E+00,.1687E+00,.1122E+00, & & .8134E+00,.7428E+00,.6826E+00,.6685E+00,.7403E+00,.7278E+00, & & .6859E+00,.6902E+00,.6914E+00,.6552E+00,.5806E+00,.3985E+00, & & .4769E+00,.4206E+00,.3269E+00,.2136E+00,.1687E+00,.1122E+00, & & .8134E+00,.7428E+00,.6826E+00,.6685E+00,.7403E+00,.7278E+00, & & .6859E+00,.6902E+00,.6914E+00,.6552E+00,.5806E+00,.3985E+00, & & .4769E+00,.4206E+00,.3269E+00,.2136E+00,.1687E+00,.1122E+00, & & .8134E+00,.7428E+00,.6826E+00,.6685E+00,.7403E+00,.7278E+00, & & .6859E+00,.6902E+00,.6914E+00,.6552E+00,.5806E+00,.3985E+00, & & .4769E+00,.4206E+00,.3269E+00,.2136E+00,.1687E+00,.1122E+00, & & .8134E+00,.7428E+00,.6826E+00,.6685E+00,.7403E+00,.7278E+00, & & .6859E+00,.6902E+00,.6914E+00,.6552E+00,.5806E+00,.3985E+00, & & .4769E+00,.4206E+00,.3269E+00,.2136E+00,.1687E+00,.1122E+00, & & .8134E+00,.7428E+00,.6826E+00,.6685E+00,.7403E+00,.7278E+00, & & .6859E+00,.6902E+00,.6914E+00,.6552E+00,.5806E+00,.3985E+00, & & .4769E+00,.4206E+00,.3269E+00,.2136E+00,.1687E+00,.1122E+00/ data ((a_ssax(i,j,7),i=1,mbx),j=1,nrh) / & & .6979E+00,.8213E+00,.8632E+00,.8896E+00,.8303E+00,.9082E+00, & & .9083E+00,.8444E+00,.7304E+00,.6223E+00,.3484E+00,.4968E+00, & & .5537E+00,.5626E+00,.4275E+00,.4462E+00,.4227E+00,.3573E+00, & & .6979E+00,.8213E+00,.8632E+00,.8896E+00,.8303E+00,.9082E+00, & & .9083E+00,.8444E+00,.7304E+00,.6223E+00,.3484E+00,.4968E+00, & & .5537E+00,.5626E+00,.4275E+00,.4462E+00,.4227E+00,.3573E+00, & & .6979E+00,.8213E+00,.8632E+00,.8896E+00,.8303E+00,.9082E+00, & & .9083E+00,.8444E+00,.7304E+00,.6223E+00,.3484E+00,.4968E+00, & & .5537E+00,.5626E+00,.4275E+00,.4462E+00,.4227E+00,.3573E+00, & & .6979E+00,.8213E+00,.8632E+00,.8896E+00,.8303E+00,.9082E+00, & & .9083E+00,.8444E+00,.7304E+00,.6223E+00,.3484E+00,.4968E+00, & & .5537E+00,.5626E+00,.4275E+00,.4462E+00,.4227E+00,.3573E+00, & & .6979E+00,.8213E+00,.8632E+00,.8896E+00,.8303E+00,.9082E+00, & & .9083E+00,.8444E+00,.7304E+00,.6223E+00,.3484E+00,.4968E+00, & & .5537E+00,.5626E+00,.4275E+00,.4462E+00,.4227E+00,.3573E+00, & & .6979E+00,.8213E+00,.8632E+00,.8896E+00,.8303E+00,.9082E+00, & & .9083E+00,.8444E+00,.7304E+00,.6223E+00,.3484E+00,.4968E+00, & & .5537E+00,.5626E+00,.4275E+00,.4462E+00,.4227E+00,.3573E+00, & & .6979E+00,.8213E+00,.8632E+00,.8896E+00,.8303E+00,.9082E+00, & & .9083E+00,.8444E+00,.7304E+00,.6223E+00,.3484E+00,.4968E+00, & & .5537E+00,.5626E+00,.4275E+00,.4462E+00,.4227E+00,.3573E+00, & & .6979E+00,.8213E+00,.8632E+00,.8896E+00,.8303E+00,.9082E+00, & & .9083E+00,.8444E+00,.7304E+00,.6223E+00,.3484E+00,.4968E+00, & & .5537E+00,.5626E+00,.4275E+00,.4462E+00,.4227E+00,.3573E+00/ data ((a_extx(i,j,7),i=1,mbx),j=1,nrh) / & & .1003E+01,.1034E+01,.1088E+01,.1130E+01,.1278E+01,.1325E+01, & & .1396E+01,.1369E+01,.1214E+01,.8716E+00,.7715E+00,.1332E+01, & & .1231E+01,.9736E+00,.8431E+00,.1167E+01,.8008E+00,.5356E+00, & & .1003E+01,.1034E+01,.1088E+01,.1130E+01,.1278E+01,.1325E+01, & & .1396E+01,.1369E+01,.1214E+01,.8716E+00,.7715E+00,.1332E+01, & & .1231E+01,.9736E+00,.8431E+00,.1167E+01,.8008E+00,.5356E+00, & & .1003E+01,.1034E+01,.1088E+01,.1130E+01,.1278E+01,.1325E+01, & & .1396E+01,.1369E+01,.1214E+01,.8716E+00,.7715E+00,.1332E+01, & & .1231E+01,.9736E+00,.8431E+00,.1167E+01,.8008E+00,.5356E+00, & & .1003E+01,.1034E+01,.1088E+01,.1130E+01,.1278E+01,.1325E+01, & & .1396E+01,.1369E+01,.1214E+01,.8716E+00,.7715E+00,.1332E+01, & & .1231E+01,.9736E+00,.8431E+00,.1167E+01,.8008E+00,.5356E+00, & & .1003E+01,.1034E+01,.1088E+01,.1130E+01,.1278E+01,.1325E+01, & & .1396E+01,.1369E+01,.1214E+01,.8716E+00,.7715E+00,.1332E+01, & & .1231E+01,.9736E+00,.8431E+00,.1167E+01,.8008E+00,.5356E+00, & & .1003E+01,.1034E+01,.1088E+01,.1130E+01,.1278E+01,.1325E+01, & & .1396E+01,.1369E+01,.1214E+01,.8716E+00,.7715E+00,.1332E+01, & & .1231E+01,.9736E+00,.8431E+00,.1167E+01,.8008E+00,.5356E+00, & & .1003E+01,.1034E+01,.1088E+01,.1130E+01,.1278E+01,.1325E+01, & & .1396E+01,.1369E+01,.1214E+01,.8716E+00,.7715E+00,.1332E+01, & & .1231E+01,.9736E+00,.8431E+00,.1167E+01,.8008E+00,.5356E+00, & & .1003E+01,.1034E+01,.1088E+01,.1130E+01,.1278E+01,.1325E+01, & & .1396E+01,.1369E+01,.1214E+01,.8716E+00,.7715E+00,.1332E+01, & & .1231E+01,.9736E+00,.8431E+00,.1167E+01,.8008E+00,.5356E+00/ data ((a_asyx(i,j,7),i=1,mbx),j=1,nrh) / & & .8694E+00,.8106E+00,.7632E+00,.7289E+00,.7415E+00,.7160E+00, & & .6904E+00,.7315E+00,.8001E+00,.8185E+00,.7903E+00,.5996E+00, & & .6566E+00,.6460E+00,.5866E+00,.3647E+00,.3224E+00,.2752E+00, & & .8694E+00,.8106E+00,.7632E+00,.7289E+00,.7415E+00,.7160E+00, & & .6904E+00,.7315E+00,.8001E+00,.8185E+00,.7903E+00,.5996E+00, & & .6566E+00,.6460E+00,.5866E+00,.3647E+00,.3224E+00,.2752E+00, & & .8694E+00,.8106E+00,.7632E+00,.7289E+00,.7415E+00,.7160E+00, & & .6904E+00,.7315E+00,.8001E+00,.8185E+00,.7903E+00,.5996E+00, & & .6566E+00,.6460E+00,.5866E+00,.3647E+00,.3224E+00,.2752E+00, & & .8694E+00,.8106E+00,.7632E+00,.7289E+00,.7415E+00,.7160E+00, & & .6904E+00,.7315E+00,.8001E+00,.8185E+00,.7903E+00,.5996E+00, & & .6566E+00,.6460E+00,.5866E+00,.3647E+00,.3224E+00,.2752E+00, & & .8694E+00,.8106E+00,.7632E+00,.7289E+00,.7415E+00,.7160E+00, & & .6904E+00,.7315E+00,.8001E+00,.8185E+00,.7903E+00,.5996E+00, & & .6566E+00,.6460E+00,.5866E+00,.3647E+00,.3224E+00,.2752E+00, & & .8694E+00,.8106E+00,.7632E+00,.7289E+00,.7415E+00,.7160E+00, & & .6904E+00,.7315E+00,.8001E+00,.8185E+00,.7903E+00,.5996E+00, & & .6566E+00,.6460E+00,.5866E+00,.3647E+00,.3224E+00,.2752E+00, & & .8694E+00,.8106E+00,.7632E+00,.7289E+00,.7415E+00,.7160E+00, & & .6904E+00,.7315E+00,.8001E+00,.8185E+00,.7903E+00,.5996E+00, & & .6566E+00,.6460E+00,.5866E+00,.3647E+00,.3224E+00,.2752E+00, & & .8694E+00,.8106E+00,.7632E+00,.7289E+00,.7415E+00,.7160E+00, & & .6904E+00,.7315E+00,.8001E+00,.8185E+00,.7903E+00,.5996E+00, & & .6566E+00,.6460E+00,.5866E+00,.3647E+00,.3224E+00,.2752E+00/ data ((a_ssax(i,j,8),i=1,mbx),j=1,nrh) / & & .6279E+00,.7298E+00,.7835E+00,.8196E+00,.7267E+00,.8274E+00, & & .8228E+00,.7316E+00,.6350E+00,.6091E+00,.4227E+00,.5355E+00, & & .5210E+00,.5494E+00,.4857E+00,.4905E+00,.4786E+00,.4606E+00, & & .6279E+00,.7298E+00,.7835E+00,.8196E+00,.7267E+00,.8274E+00, & & .8228E+00,.7316E+00,.6350E+00,.6091E+00,.4227E+00,.5355E+00, & & .5210E+00,.5494E+00,.4857E+00,.4905E+00,.4786E+00,.4606E+00, & & .6279E+00,.7298E+00,.7835E+00,.8196E+00,.7267E+00,.8274E+00, & & .8228E+00,.7316E+00,.6350E+00,.6091E+00,.4227E+00,.5355E+00, & & .5210E+00,.5494E+00,.4857E+00,.4905E+00,.4786E+00,.4606E+00, & & .6279E+00,.7298E+00,.7835E+00,.8196E+00,.7267E+00,.8274E+00, & & .8228E+00,.7316E+00,.6350E+00,.6091E+00,.4227E+00,.5355E+00, & & .5210E+00,.5494E+00,.4857E+00,.4905E+00,.4786E+00,.4606E+00, & & .6279E+00,.7298E+00,.7835E+00,.8196E+00,.7267E+00,.8274E+00, & & .8228E+00,.7316E+00,.6350E+00,.6091E+00,.4227E+00,.5355E+00, & & .5210E+00,.5494E+00,.4857E+00,.4905E+00,.4786E+00,.4606E+00, & & .6279E+00,.7298E+00,.7835E+00,.8196E+00,.7267E+00,.8274E+00, & & .8228E+00,.7316E+00,.6350E+00,.6091E+00,.4227E+00,.5355E+00, & & .5210E+00,.5494E+00,.4857E+00,.4905E+00,.4786E+00,.4606E+00, & & .6279E+00,.7298E+00,.7835E+00,.8196E+00,.7267E+00,.8274E+00, & & .8228E+00,.7316E+00,.6350E+00,.6091E+00,.4227E+00,.5355E+00, & & .5210E+00,.5494E+00,.4857E+00,.4905E+00,.4786E+00,.4606E+00, & & .6279E+00,.7298E+00,.7835E+00,.8196E+00,.7267E+00,.8274E+00, & & .8228E+00,.7316E+00,.6350E+00,.6091E+00,.4227E+00,.5355E+00, & & .5210E+00,.5494E+00,.4857E+00,.4905E+00,.4786E+00,.4606E+00/ data ((a_extx(i,j,8),i=1,mbx),j=1,nrh) / & & .1002E+01,.1022E+01,.1054E+01,.1076E+01,.1139E+01,.1159E+01, & & .1207E+01,.1239E+01,.1280E+01,.1182E+01,.9419E+00,.1253E+01, & & .1321E+01,.1320E+01,.1211E+01,.1372E+01,.1347E+01,.1223E+01, & & .1002E+01,.1022E+01,.1054E+01,.1076E+01,.1139E+01,.1159E+01, & & .1207E+01,.1239E+01,.1280E+01,.1182E+01,.9419E+00,.1253E+01, & & .1321E+01,.1320E+01,.1211E+01,.1372E+01,.1347E+01,.1223E+01, & & .1002E+01,.1022E+01,.1054E+01,.1076E+01,.1139E+01,.1159E+01, & & .1207E+01,.1239E+01,.1280E+01,.1182E+01,.9419E+00,.1253E+01, & & .1321E+01,.1320E+01,.1211E+01,.1372E+01,.1347E+01,.1223E+01, & & .1002E+01,.1022E+01,.1054E+01,.1076E+01,.1139E+01,.1159E+01, & & .1207E+01,.1239E+01,.1280E+01,.1182E+01,.9419E+00,.1253E+01, & & .1321E+01,.1320E+01,.1211E+01,.1372E+01,.1347E+01,.1223E+01, & & .1002E+01,.1022E+01,.1054E+01,.1076E+01,.1139E+01,.1159E+01, & & .1207E+01,.1239E+01,.1280E+01,.1182E+01,.9419E+00,.1253E+01, & & .1321E+01,.1320E+01,.1211E+01,.1372E+01,.1347E+01,.1223E+01, & & .1002E+01,.1022E+01,.1054E+01,.1076E+01,.1139E+01,.1159E+01, & & .1207E+01,.1239E+01,.1280E+01,.1182E+01,.9419E+00,.1253E+01, & & .1321E+01,.1320E+01,.1211E+01,.1372E+01,.1347E+01,.1223E+01, & & .1002E+01,.1022E+01,.1054E+01,.1076E+01,.1139E+01,.1159E+01, & & .1207E+01,.1239E+01,.1280E+01,.1182E+01,.9419E+00,.1253E+01, & & .1321E+01,.1320E+01,.1211E+01,.1372E+01,.1347E+01,.1223E+01, & & .1002E+01,.1022E+01,.1054E+01,.1076E+01,.1139E+01,.1159E+01, & & .1207E+01,.1239E+01,.1280E+01,.1182E+01,.9419E+00,.1253E+01, & & .1321E+01,.1320E+01,.1211E+01,.1372E+01,.1347E+01,.1223E+01/ data ((a_asyx(i,j,8),i=1,mbx),j=1,nrh) / & & .9078E+00,.8641E+00,.8296E+00,.8045E+00,.8136E+00,.7683E+00, & & .7318E+00,.7706E+00,.8403E+00,.8819E+00,.8892E+00,.7333E+00, & & .7707E+00,.7667E+00,.7564E+00,.5706E+00,.4955E+00,.4467E+00, & & .9078E+00,.8641E+00,.8296E+00,.8045E+00,.8136E+00,.7683E+00, & & .7318E+00,.7706E+00,.8403E+00,.8819E+00,.8892E+00,.7333E+00, & & .7707E+00,.7667E+00,.7564E+00,.5706E+00,.4955E+00,.4467E+00, & & .9078E+00,.8641E+00,.8296E+00,.8045E+00,.8136E+00,.7683E+00, & & .7318E+00,.7706E+00,.8403E+00,.8819E+00,.8892E+00,.7333E+00, & & .7707E+00,.7667E+00,.7564E+00,.5706E+00,.4955E+00,.4467E+00, & & .9078E+00,.8641E+00,.8296E+00,.8045E+00,.8136E+00,.7683E+00, & & .7318E+00,.7706E+00,.8403E+00,.8819E+00,.8892E+00,.7333E+00, & & .7707E+00,.7667E+00,.7564E+00,.5706E+00,.4955E+00,.4467E+00, & & .9078E+00,.8641E+00,.8296E+00,.8045E+00,.8136E+00,.7683E+00, & & .7318E+00,.7706E+00,.8403E+00,.8819E+00,.8892E+00,.7333E+00, & & .7707E+00,.7667E+00,.7564E+00,.5706E+00,.4955E+00,.4467E+00, & & .9078E+00,.8641E+00,.8296E+00,.8045E+00,.8136E+00,.7683E+00, & & .7318E+00,.7706E+00,.8403E+00,.8819E+00,.8892E+00,.7333E+00, & & .7707E+00,.7667E+00,.7564E+00,.5706E+00,.4955E+00,.4467E+00, & & .9078E+00,.8641E+00,.8296E+00,.8045E+00,.8136E+00,.7683E+00, & & .7318E+00,.7706E+00,.8403E+00,.8819E+00,.8892E+00,.7333E+00, & & .7707E+00,.7667E+00,.7564E+00,.5706E+00,.4955E+00,.4467E+00, & & .9078E+00,.8641E+00,.8296E+00,.8045E+00,.8136E+00,.7683E+00, & & .7318E+00,.7706E+00,.8403E+00,.8819E+00,.8892E+00,.7333E+00, & & .7707E+00,.7667E+00,.7564E+00,.5706E+00,.4955E+00,.4467E+00/ data ((a_extx(i,j, 9 ),i=1,mbx), j=1,1 ) / & & 0.9992E+00,0.1055E+01,0.1097E+01,0.9565E+00,0.7209E+00,0.8266E+00, & & 0.6757E+00,0.4984E+00,0.4294E+00,0.4649E+00,0.5541E+00,0.8549E+00, & & 0.6774E+00,0.5136E+00,0.4909E+00,0.4952E+00,0.4213E+00,0.3563E+00/ data ((a_ssax(i,j, 9 ),i=1,mbx), j=1,1 ) / & & 0.7289E+00,0.7933E+00,0.8553E+00,0.8828E+00,0.8465E+00,0.8840E+00, & & 0.8537E+00,0.7561E+00,0.5914E+00,0.6595E+00,0.5205E+00,0.5811E+00, & & 0.6361E+00,0.6307E+00,0.6348E+00,0.5020E+00,0.4057E+00,0.3352E+00/ data ((a_asyx(i,j, 9 ),i=1,mbx), j=1,1 ) / & & 0.8317E+00,0.7882E+00,0.8003E+00,0.8834E+00,0.9145E+00,0.8506E+00, & & 0.8563E+00,0.8778E+00,0.8615E+00,0.8283E+00,0.7892E+00,0.6657E+00, & & 0.6808E+00,0.6886E+00,0.6387E+00,0.5706E+00,0.4973E+00,0.3480E+00/ data ((a_extx(i,j,10 ),i=1,mbx), j=1,8 ) / & & 0.1015E+01,0.4304E+00,0.1407E+00,0.4076E-01,0.2793E-01,0.9580E-02, & & 0.8208E-02,0.8256E-02,0.1281E-01,0.1857E-01,0.3590E-01,0.2404E-01, & & 0.8152E-02,0.8273E-02,0.2205E-01,0.1285E-01,0.1426E-01,0.2008E-01, & & 0.1015E+01,0.4417E+00,0.1461E+00,0.4302E-01,0.7731E-01,0.1407E-01, & & 0.1064E-01,0.1307E-01,0.1784E-01,0.1697E-01,0.3190E-01,0.2466E-01, & & 0.1843E-01,0.3242E-01,0.3835E-01,0.2407E-01,0.1947E-01,0.2221E-01, & & 0.1014E+01,0.4488E+00,0.1501E+00,0.4563E-01,0.9123E-01,0.1620E-01, & & 0.1167E-01,0.1446E-01,0.1949E-01,0.1647E-01,0.2965E-01,0.2378E-01, & & 0.2184E-01,0.4049E-01,0.4408E-01,0.2782E-01,0.2101E-01,0.2265E-01, & & 0.1014E+01,0.4559E+00,0.1546E+00,0.4833E-01,0.1014E+00,0.1818E-01, & & 0.1258E-01,0.1550E-01,0.2072E-01,0.1613E-01,0.2769E-01,0.2283E-01, & & 0.2429E-01,0.4633E-01,0.4824E-01,0.3054E-01,0.2207E-01,0.2287E-01, & & 0.1013E+01,0.4713E+00,0.1650E+00,0.5434E-01,0.1170E+00,0.2223E-01, & & 0.1438E-01,0.1721E-01,0.2264E-01,0.1573E-01,0.2436E-01,0.2105E-01, & & 0.2776E-01,0.5469E-01,0.5422E-01,0.3446E-01,0.2350E-01,0.2308E-01, & & 0.1012E+01,0.4913E+00,0.1795E+00,0.6242E-01,0.1310E+00,0.2735E-01, & & 0.1663E-01,0.1898E-01,0.2444E-01,0.1565E-01,0.2154E-01,0.1943E-01, & & 0.3035E-01,0.6100E-01,0.5878E-01,0.3746E-01,0.2454E-01,0.2318E-01, & & 0.1011E+01,0.5221E+00,0.2038E+00,0.7577E-01,0.1474E+00,0.3559E-01, & & 0.2032E-01,0.2156E-01,0.2687E-01,0.1612E-01,0.1925E-01,0.1809E-01, & & 0.3271E-01,0.6668E-01,0.6308E-01,0.4032E-01,0.2557E-01,0.2331E-01, & & 0.1010E+01,0.5447E+00,0.2230E+00,0.8651E-01,0.1583E+00,0.4224E-01, & & 0.2339E-01,0.2363E-01,0.2874E-01,0.1684E-01,0.1855E-01,0.1772E-01, & & 0.3399E-01,0.6967E-01,0.6553E-01,0.4195E-01,0.2624E-01,0.2355E-01/ data ((a_ssax(i,j,10 ),i=1,mbx), j=1,8 ) / & & 0.9633E+00,0.8961E+00,0.7687E+00,0.7940E+00,0.5192E+00,0.7595E+00, & & 0.3996E+00,0.2073E+00,0.9201E-01,0.1337E-01,0.3585E-01,0.4407E-01, & & 0.3943E-01,0.1419E-01,0.4977E-02,0.3965E-02,0.8396E-03,0.1067E-03, & & 0.9776E+00,0.9357E+00,0.8539E+00,0.8702E+00,0.4324E+00,0.7956E+00, & & 0.4373E+00,0.2277E+00,0.9151E-01,0.3219E-01,0.3617E-01,0.4094E-01, & & 0.1815E-01,0.4240E-02,0.3668E-02,0.3164E-02,0.1059E-02,0.1485E-03, & & 0.9820E+00,0.9484E+00,0.8829E+00,0.8940E+00,0.4503E+00,0.8121E+00, & & 0.4596E+00,0.2482E+00,0.9977E-01,0.4317E-01,0.3868E-01,0.4120E-01, & & 0.1566E-01,0.3913E-02,0.3780E-02,0.3268E-02,0.1219E-02,0.1749E-03, & & 0.9850E+00,0.9577E+00,0.9041E+00,0.9111E+00,0.4686E+00,0.8259E+00, & & 0.4808E+00,0.2680E+00,0.1088E+00,0.5411E-01,0.4245E-01,0.4209E-01, & & 0.1441E-01,0.3948E-02,0.4031E-02,0.3475E-02,0.1394E-02,0.2031E-03, & & 0.9895E+00,0.9710E+00,0.9349E+00,0.9351E+00,0.5035E+00,0.8496E+00, & & 0.5230E+00,0.3079E+00,0.1297E+00,0.7788E-01,0.5266E-01,0.4537E-01, & & 0.1346E-01,0.4473E-02,0.4808E-02,0.4116E-02,0.1823E-02,0.2823E-03, & & 0.9928E+00,0.9810E+00,0.9578E+00,0.9527E+00,0.5393E+00,0.8720E+00, & & 0.5707E+00,0.3541E+00,0.1579E+00,0.1089E+00,0.6886E-01,0.5146E-01, & & 0.1377E-01,0.5552E-02,0.6102E-02,0.5203E-02,0.2488E-02,0.4103E-03, & & 0.9956E+00,0.9891E+00,0.9761E+00,0.9670E+00,0.5805E+00,0.8959E+00, & & 0.6318E+00,0.4163E+00,0.2022E+00,0.1575E+00,0.9848E-01,0.6388E-01, & & 0.1577E-01,0.7723E-02,0.8602E-02,0.7370E-02,0.3795E-02,0.6676E-03, & & 0.9968E+00,0.9924E+00,0.9834E+00,0.9730E+00,0.6038E+00,0.9087E+00, & & 0.6692E+00,0.4563E+00,0.2352E+00,0.1938E+00,0.1231E+00,0.7513E-01, & & 0.1802E-01,0.9667E-02,0.1084E-01,0.9370E-02,0.5020E-02,0.9152E-03/ data ((a_asyx(i,j,10 ),i=1,mbx), j=1,8 ) / & & 0.6143E+00,0.5585E+00,0.4813E+00,0.4255E+00,0.3592E+00,0.3090E+00, & & 0.2571E+00,0.2231E+00,0.1912E+00,0.1539E+00,0.1519E+00,0.1543E+00, & & 0.1251E+00,0.9279E-01,0.7617E-01,0.6363E-01,0.3473E-01,0.1405E-01, & & 0.6722E+00,0.6148E+00,0.5341E+00,0.4799E+00,0.3881E+00,0.3523E+00, & & 0.2969E+00,0.2574E+00,0.2247E+00,0.1905E+00,0.1774E+00,0.1667E+00, & & 0.1328E+00,0.9845E-01,0.8187E-01,0.6865E-01,0.4277E-01,0.1880E-01, & & 0.6904E+00,0.6342E+00,0.5549E+00,0.5011E+00,0.4022E+00,0.3708E+00, & & 0.3143E+00,0.2736E+00,0.2399E+00,0.2062E+00,0.1893E+00,0.1753E+00, & & 0.1392E+00,0.1030E+00,0.8623E-01,0.7257E-01,0.4688E-01,0.2120E-01, & & 0.7042E+00,0.6494E+00,0.5709E+00,0.5194E+00,0.4152E+00,0.3860E+00, & & 0.3294E+00,0.2869E+00,0.2526E+00,0.2205E+00,0.2002E+00,0.1837E+00, & & 0.1454E+00,0.1079E+00,0.9064E-01,0.7653E-01,0.5081E-01,0.2344E-01, & & 0.7254E+00,0.6740E+00,0.5991E+00,0.5504E+00,0.4394E+00,0.4146E+00, & & 0.3578E+00,0.3133E+00,0.2782E+00,0.2459E+00,0.2224E+00,0.2017E+00, & & 0.1597E+00,0.1181E+00,0.1001E+00,0.8510E-01,0.5879E-01,0.2824E-01, & & 0.7433E+00,0.6967E+00,0.6270E+00,0.5823E+00,0.4667E+00,0.4446E+00, & & 0.3888E+00,0.3432E+00,0.3068E+00,0.2755E+00,0.2484E+00,0.2241E+00, & & 0.1777E+00,0.1315E+00,0.1119E+00,0.9622E-01,0.6871E-01,0.3408E-01, & & 0.7612E+00,0.7217E+00,0.6594E+00,0.6202E+00,0.5032E+00,0.4833E+00, & & 0.4295E+00,0.3836E+00,0.3454E+00,0.3147E+00,0.2852E+00,0.2571E+00, & & 0.2045E+00,0.1520E+00,0.1300E+00,0.1126E+00,0.8357E-01,0.4311E-01, & & 0.7701E+00,0.7355E+00,0.6784E+00,0.6433E+00,0.5268E+00,0.5073E+00, & & 0.4559E+00,0.4108E+00,0.3712E+00,0.3412E+00,0.3106E+00,0.2803E+00, & & 0.2242E+00,0.1672E+00,0.1436E+00,0.1248E+00,0.9454E-01,0.5018E-01/ data ((a_extx(i,j,11 ),i=1,mbx), j=1,1 ) / & & 0.1017E+01,0.5114E+00,0.2718E+00,0.1911E+00,0.1446E+00,0.1113E+00, & & 0.8555E-01,0.7200E-01,0.6089E-01,0.5213E-01,0.4566E-01,0.4003E-01, & & 0.3392E-01,0.2769E-01,0.2254E-01,0.1702E-01,0.1213E-01,0.7093E-02/ data ((a_ssax(i,j,11 ),i=1,mbx), j=1,1 ) / & & 0.2102E+00,0.1127E+00,0.4250E-01,0.2007E-01,0.9655E-02,0.5070E-02, & & 0.2738E-02,0.1795E-02,0.1192E-02,0.8190E-03,0.6116E-03,0.4481E-03, & & 0.2918E-03,0.1761E-03,0.1049E-03,0.5490E-04,0.2308E-04,0.5530E-05/ data ((a_asyx(i,j,11 ),i=1,mbx), j=1,1 ) / & & 0.3375E+00,0.2412E+00,0.1541E+00,0.1086E+00,0.7644E-01,0.5501E-01, & & 0.3917E-01,0.3088E-01,0.2415E-01,0.1913E-01,0.1581E-01,0.1289E-01, & & 0.9727E-02,0.6915E-02,0.4858E-02,0.3121E-02,0.1759E-02,0.1141E-02/ data ((a_extx(i,j,12 ),i=1,mbx), j=1,8 ) / & & 0.9977E+00,0.9420E+00,0.7044E+00,0.4678E+00,0.4148E+00,0.2336E+00, & & 0.1493E+00,0.7957E-01,0.7247E-01,0.4367E-01,0.5551E-01,0.4474E-01, & & 0.2241E-01,0.1365E-01,0.2654E-01,0.2912E-01,0.3158E-01,0.1472E+00, & & 0.9989E+00,0.1010E+01,0.8520E+00,0.6085E+00,0.5675E+00,0.4096E+00, & & 0.2546E+00,0.1694E+00,0.1644E+00,0.1067E+00,0.9235E-01,0.7284E-01, & & 0.8140E-01,0.1443E+00,0.1495E+00,0.1081E+00,0.7115E-01,0.1054E+00, & & 0.9984E+00,0.1028E+01,0.9029E+00,0.6677E+00,0.6213E+00,0.4742E+00, & & 0.2993E+00,0.2035E+00,0.1981E+00,0.1314E+00,0.1092E+00,0.8514E-01, & & 0.9789E-01,0.1765E+00,0.1827E+00,0.1321E+00,0.8473E-01,0.1036E+00, & & 0.9991E+00,0.1045E+01,0.9466E+00,0.7224E+00,0.6693E+00,0.5337E+00, & & 0.3425E+00,0.2364E+00,0.2303E+00,0.1556E+00,0.1262E+00,0.9751E-01, & & 0.1125E+00,0.2040E+00,0.2118E+00,0.1541E+00,0.9772E-01,0.1055E+00, & & 0.9984E+00,0.1066E+01,0.1022E+01,0.8298E+00,0.7614E+00,0.6542E+00, & & 0.4369E+00,0.3089E+00,0.3009E+00,0.2109E+00,0.1665E+00,0.1265E+00, & & 0.1427E+00,0.2574E+00,0.2702E+00,0.2006E+00,0.1267E+00,0.1155E+00, & & 0.9990E+00,0.1079E+01,0.1088E+01,0.9476E+00,0.8625E+00,0.7960E+00, & & 0.5610E+00,0.4073E+00,0.3966E+00,0.2898E+00,0.2262E+00,0.1696E+00, & & 0.1816E+00,0.3214E+00,0.3426E+00,0.2624E+00,0.1681E+00,0.1363E+00, & & 0.9994E+00,0.1075E+01,0.1141E+01,0.1086E+01,0.9872E+00,0.9866E+00, & & 0.7578E+00,0.5745E+00,0.5599E+00,0.4348E+00,0.3419E+00,0.2551E+00, & & 0.2490E+00,0.4208E+00,0.4585E+00,0.3704E+00,0.2469E+00,0.1830E+00, & & 0.9998E+00,0.1066E+01,0.1149E+01,0.1154E+01,0.1059E+01,0.1105E+01, & & 0.9090E+00,0.7161E+00,0.7000E+00,0.5694E+00,0.4561E+00,0.3430E+00, & & 0.3119E+00,0.5031E+00,0.5565E+00,0.4695E+00,0.3264E+00,0.2343E+00/ data ((a_ssax(i,j,12 ),i=1,mbx), j=1,8 ) / & & 0.1000E+01,0.9991E+00,0.9957E+00,0.9892E+00,0.9560E+00,0.9897E+00, & & 0.9825E+00,0.9471E+00,0.9222E+00,0.8519E+00,0.7555E+00,0.8130E+00, & & 0.7537E+00,0.5286E+00,0.2979E+00,0.1749E+00,0.6170E-01,0.1383E-01, & & 0.1000E+01,0.9997E+00,0.9976E+00,0.9895E+00,0.7743E+00,0.9725E+00, & & 0.9208E+00,0.8068E+00,0.6949E+00,0.7072E+00,0.6425E+00,0.5446E+00, & & 0.2100E+00,0.9825E-01,0.1218E+00,0.1271E+00,0.8758E-01,0.1948E-01, & & 0.1000E+01,0.9997E+00,0.9978E+00,0.9891E+00,0.7705E+00,0.9709E+00, & & 0.9168E+00,0.8044E+00,0.6898E+00,0.7093E+00,0.6428E+00,0.5309E+00, & & 0.1996E+00,0.1070E+00,0.1312E+00,0.1383E+00,0.1012E+00,0.2443E-01, & & 0.1000E+01,0.9998E+00,0.9979E+00,0.9888E+00,0.7694E+00,0.9699E+00, & & 0.9150E+00,0.8052E+00,0.6901E+00,0.7145E+00,0.6474E+00,0.5283E+00, & & 0.1984E+00,0.1163E+00,0.1411E+00,0.1495E+00,0.1139E+00,0.2946E-01, & & 0.1000E+01,0.9999E+00,0.9979E+00,0.9880E+00,0.7688E+00,0.9681E+00, & & 0.9134E+00,0.8094E+00,0.6964E+00,0.7279E+00,0.6622E+00,0.5372E+00, & & 0.2072E+00,0.1367E+00,0.1631E+00,0.1741E+00,0.1408E+00,0.4127E-01, & & 0.1000E+01,0.9999E+00,0.9978E+00,0.9865E+00,0.7684E+00,0.9659E+00, & & 0.9123E+00,0.8156E+00,0.7064E+00,0.7438E+00,0.6826E+00,0.5588E+00, & & 0.2270E+00,0.1626E+00,0.1908E+00,0.2048E+00,0.1747E+00,0.5801E-01, & & 0.1000E+01,0.9998E+00,0.9975E+00,0.9835E+00,0.7657E+00,0.9612E+00, & & 0.9093E+00,0.8228E+00,0.7186E+00,0.7624E+00,0.7101E+00,0.5961E+00, & & 0.2647E+00,0.2028E+00,0.2331E+00,0.2512E+00,0.2267E+00,0.9154E-01, & & 0.1000E+01,0.9998E+00,0.9970E+00,0.9801E+00,0.7611E+00,0.9558E+00, & & 0.9043E+00,0.8251E+00,0.7236E+00,0.7714E+00,0.7266E+00,0.6232E+00, & & 0.2972E+00,0.2351E+00,0.2662E+00,0.2865E+00,0.2670E+00,0.1236E+00/ data ((a_asyx(i,j,12 ),i=1,mbx), j=1,8 ) / & & 0.6925E+00,0.7030E+00,0.7037E+00,0.7018E+00,0.6290E+00,0.6210E+00, & & 0.5823E+00,0.5754E+00,0.5304E+00,0.5025E+00,0.4631E+00,0.4344E+00, & & 0.4025E+00,0.3539E+00,0.3069E+00,0.2526E+00,0.1773E+00,0.5475E-01, & & 0.7710E+00,0.7780E+00,0.7844E+00,0.7895E+00,0.7592E+00,0.7110E+00, & & 0.6965E+00,0.6880E+00,0.6458E+00,0.6223E+00,0.5924E+00,0.5645E+00, & & 0.5042E+00,0.4073E+00,0.3515E+00,0.3059E+00,0.2449E+00,0.1281E+00, & & 0.7783E+00,0.7853E+00,0.7928E+00,0.8012E+00,0.7771E+00,0.7257E+00, & & 0.7169E+00,0.7105E+00,0.6705E+00,0.6489E+00,0.6225E+00,0.5962E+00, & & 0.5341E+00,0.4315E+00,0.3729E+00,0.3270E+00,0.2664E+00,0.1485E+00, & & 0.7840E+00,0.7886E+00,0.7979E+00,0.8088E+00,0.7893E+00,0.7363E+00, & & 0.7324E+00,0.7284E+00,0.6893E+00,0.6702E+00,0.6456E+00,0.6215E+00, & & 0.5591E+00,0.4524E+00,0.3921E+00,0.3454E+00,0.2847E+00,0.1658E+00, & & 0.7933E+00,0.7934E+00,0.8035E+00,0.8182E+00,0.8105E+00,0.7519E+00, & & 0.7564E+00,0.7580E+00,0.7218E+00,0.7047E+00,0.6859E+00,0.6656E+00, & & 0.6055E+00,0.4947E+00,0.4303E+00,0.3819E+00,0.3207E+00,0.2002E+00, & & 0.8009E+00,0.7966E+00,0.8065E+00,0.8250E+00,0.8289E+00,0.7651E+00, & & 0.7777E+00,0.7851E+00,0.7526E+00,0.7388E+00,0.7254E+00,0.7104E+00, & & 0.6555E+00,0.5434E+00,0.4756E+00,0.4249E+00,0.3629E+00,0.2389E+00, & & 0.8136E+00,0.8017E+00,0.8068E+00,0.8283E+00,0.8495E+00,0.7764E+00, & & 0.7991E+00,0.8159E+00,0.7883E+00,0.7786E+00,0.7723E+00,0.7651E+00, & & 0.7221E+00,0.6129E+00,0.5424E+00,0.4883E+00,0.4249E+00,0.2973E+00, & & 0.8244E+00,0.8072E+00,0.8066E+00,0.8277E+00,0.8617E+00,0.7812E+00, & & 0.8112E+00,0.8339E+00,0.8106E+00,0.8033E+00,0.8011E+00,0.7995E+00, & & 0.7670E+00,0.6642E+00,0.5932E+00,0.5376E+00,0.4736E+00,0.3449E+00/ data ((a_extx(i,j,13 ),i=1,mbx), j=1,8 ) / & & 0.9980E+00,0.1032E+01,0.1084E+01,0.1141E+01,0.1180E+01,0.1239E+01, & & 0.1267E+01,0.1223E+01,0.1223E+01,0.1131E+01,0.1187E+01,0.1193E+01, & & 0.1003E+01,0.7764E+00,0.8981E+00,0.8734E+00,0.7043E+00,0.1087E+01, & & 0.9993E+00,0.1023E+01,0.1062E+01,0.1112E+01,0.1116E+01,0.1186E+01, & & 0.1231E+01,0.1199E+01,0.1211E+01,0.1190E+01,0.1166E+01,0.1088E+01, & & 0.8417E+00,0.8725E+00,0.1002E+01,0.1018E+01,0.9030E+00,0.8425E+00, & & 0.9997E+00,0.1023E+01,0.1056E+01,0.1100E+01,0.1103E+01,0.1170E+01, & & 0.1217E+01,0.1196E+01,0.1210E+01,0.1203E+01,0.1176E+01,0.1094E+01, & & 0.8508E+00,0.9063E+00,0.1030E+01,0.1053E+01,0.9529E+00,0.8484E+00, & & 0.1000E+01,0.1022E+01,0.1054E+01,0.1094E+01,0.1097E+01,0.1157E+01, & & 0.1208E+01,0.1194E+01,0.1209E+01,0.1213E+01,0.1186E+01,0.1105E+01, & & 0.8661E+00,0.9329E+00,0.1052E+01,0.1081E+01,0.9940E+00,0.8664E+00, & & 0.1000E+01,0.1020E+01,0.1045E+01,0.1079E+01,0.1084E+01,0.1135E+01, & & 0.1183E+01,0.1182E+01,0.1200E+01,0.1219E+01,0.1201E+01,0.1130E+01, & & 0.9010E+00,0.9733E+00,0.1084E+01,0.1122E+01,0.1062E+01,0.9151E+00, & & 0.9997E+00,0.1015E+01,0.1039E+01,0.1066E+01,0.1070E+01,0.1111E+01, & & 0.1154E+01,0.1163E+01,0.1181E+01,0.1209E+01,0.1205E+01,0.1153E+01, & & 0.9422E+00,0.1006E+01,0.1107E+01,0.1153E+01,0.1123E+01,0.9803E+00, & & 0.9997E+00,0.1013E+01,0.1034E+01,0.1052E+01,0.1058E+01,0.1087E+01, & & 0.1119E+01,0.1132E+01,0.1150E+01,0.1181E+01,0.1193E+01,0.1172E+01, & & 0.9974E+00,0.1041E+01,0.1125E+01,0.1178E+01,0.1183E+01,0.1076E+01, & & 0.9997E+00,0.1011E+01,0.1027E+01,0.1043E+01,0.1048E+01,0.1071E+01, & & 0.1097E+01,0.1109E+01,0.1124E+01,0.1152E+01,0.1169E+01,0.1167E+01, & & 0.1027E+01,0.1055E+01,0.1127E+01,0.1180E+01,0.1203E+01,0.1130E+01/ data ((a_ssax(i,j,13 ),i=1,mbx), j=1,8 ) / & & 0.1000E+01,0.9930E+00,0.9727E+00,0.9556E+00,0.8560E+00,0.9741E+00, & & 0.9710E+00,0.9527E+00,0.9273E+00,0.9159E+00,0.8371E+00,0.8800E+00, & & 0.9069E+00,0.8668E+00,0.6916E+00,0.5906E+00,0.4595E+00,0.2559E+00, & & 0.1000E+01,0.9975E+00,0.9823E+00,0.9394E+00,0.7044E+00,0.9079E+00, & & 0.8498E+00,0.8049E+00,0.7115E+00,0.7686E+00,0.7483E+00,0.7304E+00, & & 0.5310E+00,0.3977E+00,0.4240E+00,0.4467E+00,0.4340E+00,0.2669E+00, & & 0.1000E+01,0.9979E+00,0.9830E+00,0.9334E+00,0.6994E+00,0.8936E+00, & & 0.8287E+00,0.7859E+00,0.6880E+00,0.7474E+00,0.7322E+00,0.7098E+00, & & 0.5087E+00,0.4006E+00,0.4249E+00,0.4450E+00,0.4379E+00,0.2892E+00, & & 0.1000E+01,0.9982E+00,0.9833E+00,0.9271E+00,0.6955E+00,0.8822E+00, & & 0.8119E+00,0.7713E+00,0.6711E+00,0.7314E+00,0.7197E+00,0.6954E+00, & & 0.4980E+00,0.4064E+00,0.4286E+00,0.4461E+00,0.4420E+00,0.3084E+00, & & 0.1000E+01,0.9986E+00,0.9832E+00,0.9143E+00,0.6881E+00,0.8606E+00, & & 0.7812E+00,0.7451E+00,0.6433E+00,0.7029E+00,0.6968E+00,0.6726E+00, & & 0.4893E+00,0.4204E+00,0.4386E+00,0.4515E+00,0.4504E+00,0.3412E+00, & & 0.1000E+01,0.9991E+00,0.9817E+00,0.8973E+00,0.6799E+00,0.8361E+00, & & 0.7480E+00,0.7169E+00,0.6158E+00,0.6723E+00,0.6710E+00,0.6503E+00, & & 0.4885E+00,0.4367E+00,0.4511E+00,0.4595E+00,0.4593E+00,0.3725E+00, & & 0.1000E+01,0.9992E+00,0.9791E+00,0.8695E+00,0.6676E+00,0.8005E+00, & & 0.7024E+00,0.6776E+00,0.5821E+00,0.6297E+00,0.6327E+00,0.6192E+00, & & 0.4926E+00,0.4581E+00,0.4687E+00,0.4714E+00,0.4702E+00,0.4072E+00, & & 0.1000E+01,0.9992E+00,0.9761E+00,0.8453E+00,0.6583E+00,0.7726E+00, & & 0.6703E+00,0.6494E+00,0.5614E+00,0.6001E+00,0.6039E+00,0.5952E+00, & & 0.4959E+00,0.4723E+00,0.4807E+00,0.4801E+00,0.4769E+00,0.4282E+00/ data ((a_asyx(i,j,13 ),i=1,mbx), j=1,8 ) / & & 0.7964E+00,0.7818E+00,0.7631E+00,0.7611E+00,0.7325E+00,0.7164E+00, & & 0.7131E+00,0.7702E+00,0.7411E+00,0.7655E+00,0.7186E+00,0.6815E+00, & & 0.7176E+00,0.7450E+00,0.6774E+00,0.6201E+00,0.5680E+00,0.2940E+00, & & 0.8469E+00,0.8377E+00,0.8242E+00,0.8204E+00,0.8874E+00,0.7840E+00, & & 0.8116E+00,0.8563E+00,0.8519E+00,0.8503E+00,0.8474E+00,0.8563E+00, & & 0.8891E+00,0.8556E+00,0.7968E+00,0.7386E+00,0.6789E+00,0.5294E+00, & & 0.8506E+00,0.8444E+00,0.8319E+00,0.8316E+00,0.8958E+00,0.7934E+00, & & 0.8231E+00,0.8648E+00,0.8639E+00,0.8604E+00,0.8618E+00,0.8742E+00, & & 0.9029E+00,0.8659E+00,0.8120E+00,0.7583E+00,0.7014E+00,0.5713E+00, & & 0.8570E+00,0.8500E+00,0.8384E+00,0.8389E+00,0.9015E+00,0.8023E+00, & & 0.8313E+00,0.8704E+00,0.8722E+00,0.8666E+00,0.8712E+00,0.8855E+00, & & 0.9122E+00,0.8744E+00,0.8241E+00,0.7736E+00,0.7190E+00,0.6019E+00, & & 0.8604E+00,0.8566E+00,0.8500E+00,0.8528E+00,0.9109E+00,0.8159E+00, & & 0.8449E+00,0.8796E+00,0.8850E+00,0.8777E+00,0.8852E+00,0.9014E+00, & & 0.9259E+00,0.8882E+00,0.8437E+00,0.7991E+00,0.7488E+00,0.6523E+00, & & 0.8629E+00,0.8628E+00,0.8581E+00,0.8642E+00,0.9207E+00,0.8332E+00, & & 0.8599E+00,0.8889E+00,0.8985E+00,0.8885E+00,0.8968E+00,0.9141E+00, & & 0.9375E+00,0.9015E+00,0.8625E+00,0.8239E+00,0.7785E+00,0.6962E+00, & & 0.8680E+00,0.8658E+00,0.8674E+00,0.8815E+00,0.9323E+00,0.8570E+00, & & 0.8826E+00,0.9038E+00,0.9169E+00,0.9042E+00,0.9111E+00,0.9276E+00, & & 0.9504E+00,0.9180E+00,0.8843E+00,0.8539E+00,0.8157E+00,0.7501E+00, & & 0.8671E+00,0.8679E+00,0.8732E+00,0.8919E+00,0.9398E+00,0.8746E+00, & & 0.9008E+00,0.9166E+00,0.9314E+00,0.9176E+00,0.9221E+00,0.9365E+00, & & 0.9578E+00,0.9277E+00,0.8974E+00,0.8722E+00,0.8395E+00,0.7834E+00/ data ((a_extx(i,j,14 ),i=1,mbx), j=1,1 ) / & & 0.6970E+00,0.3724E+00,0.1420E+00,0.6483E-01,0.3820E-01,0.1519E-01, & & 0.8261E-02,0.1004E-01,0.1296E-01,0.1639E-01,0.3130E-01,0.2811E-01, & & 0.2521E-01,0.1703E-01,0.1988E-01,0.1697E-01,0.9376E-02,0.9107E-02/ data ((a_ssax(i,j,14 ),i=1,mbx), j=1,1 ) / & & 0.9647E+00,0.9747E+00,0.9551E+00,0.9100E+00,0.6865E+00,0.7466E+00, & & 0.5914E+00,0.2448E+00,0.1105E+00,0.2806E-01,0.1280E-01,0.9266E-01, & & 0.2898E-01,0.1546E-01,0.4009E-02,0.7202E-02,0.3913E-02,0.4404E-03/ data ((a_asyx(i,j,14 ),i=1,mbx), j=1,1 ) / & & 0.6649E+00,0.6163E+00,0.5404E+00,0.4736E+00,0.4018E+00,0.3402E+00, & & 0.2763E+00,0.2324E+00,0.1920E+00,0.1511E+00,0.1181E+00,0.1573E+00, & & 0.1089E+00,0.8380E-01,0.5339E-01,0.5149E-01,0.3630E-01,0.1260E-01/ data ((a_extx(i,j,15 ),i=1,mbx), j=1,1 ) / & & 0.9984E+00,0.1086E+01,0.1096E+01,0.9933E+00,0.8202E+00,0.6341E+00, & & 0.4556E+00,0.3471E+00,0.2878E+00,0.1996E+00,0.2565E+00,0.6046E+00, & & 0.3391E+00,0.2277E+00,0.1790E+00,0.2234E+00,0.1218E+00,0.6990E-01/ data ((a_ssax(i,j,15 ),i=1,mbx), j=1,1 ) / & & 0.8711E+00,0.9378E+00,0.9463E+00,0.9390E+00,0.8556E+00,0.9280E+00, & & 0.9132E+00,0.7796E+00,0.6446E+00,0.3766E+00,0.1883E+00,0.4505E+00, & & 0.3751E+00,0.3398E+00,0.1766E+00,0.2689E+00,0.2345E+00,0.6417E-01/ data ((a_asyx(i,j,15 ),i=1,mbx), j=1,1 ) / & & 0.7372E+00,0.6959E+00,0.6875E+00,0.6870E+00,0.6976E+00,0.6754E+00, & & 0.6587E+00,0.6577E+00,0.6356E+00,0.6194E+00,0.5500E+00,0.3734E+00, & & 0.4415E+00,0.4217E+00,0.3678E+00,0.2494E+00,0.2310E+00,0.1612E+00/ data ((a_extx(i,j,16 ),i=1,mbx), j=1,1 ) / & & 0.9996E+00,0.1027E+01,0.1068E+01,0.1107E+01,0.1148E+01,0.1198E+01, & & 0.1233E+01,0.1224E+01,0.1191E+01,0.1019E+01,0.8557E+00,0.1258E+01, & & 0.1215E+01,0.1151E+01,0.9892E+00,0.1223E+01,0.1120E+01,0.8345E+00/ data ((a_ssax(i,j,16 ),i=1,mbx), j=1,1 ) / & & 0.6601E+00,0.7660E+00,0.7855E+00,0.7760E+00,0.6695E+00,0.8055E+00, & & 0.8213E+00,0.7032E+00,0.6400E+00,0.5581E+00,0.4115E+00,0.5215E+00, & & 0.4952E+00,0.5059E+00,0.4368E+00,0.4754E+00,0.4695E+00,0.3922E+00/ data ((a_asyx(i,j,16 ),i=1,mbx), j=1,1 ) / & & 0.8973E+00,0.8441E+00,0.8113E+00,0.7920E+00,0.8221E+00,0.7620E+00, & & 0.7560E+00,0.8061E+00,0.8300E+00,0.8774E+00,0.8754E+00,0.6871E+00, & & 0.7447E+00,0.7345E+00,0.7462E+00,0.5502E+00,0.4931E+00,0.4435E+00/ data ((a_extx(i,j,17 ),i=1,mbx), j=1,1 ) / & & 0.9986E+00,0.1075E+01,0.1146E+01,0.1147E+01,0.1071E+01,0.9633E+00, & & 0.8081E+00,0.6535E+00,0.5407E+00,0.3475E+00,0.3921E+00,0.9254E+00, & & 0.5998E+00,0.4218E+00,0.3044E+00,0.4378E+00,0.2417E+00,0.1079E+00/ data ((a_ssax(i,j,17 ),i=1,mbx), j=1,1 ) / & & 0.8289E+00,0.9121E+00,0.9248E+00,0.9199E+00,0.8342E+00,0.9235E+00, & & 0.9212E+00,0.8118E+00,0.7005E+00,0.4500E+00,0.2373E+00,0.4742E+00, & & 0.4401E+00,0.4147E+00,0.2391E+00,0.3436E+00,0.2894E+00,0.6579E-01/ data ((a_asyx(i,j,17 ),i=1,mbx), j=1,1 ) / & & 0.7784E+00,0.7216E+00,0.6970E+00,0.6933E+00,0.7183E+00,0.6974E+00, & & 0.7035E+00,0.7204E+00,0.7080E+00,0.6903E+00,0.6241E+00,0.4321E+00, & & 0.5088E+00,0.4685E+00,0.3810E+00,0.2530E+00,0.1987E+00,0.7565E-01/ data ((a_extx(i,j,18 ),i=1,mbx), j=1,8 ) / & & 0.1009E+01,0.5315E+00,0.1916E+00,0.7670E-01,0.7874E-01,0.9590E-01, & & 0.6253E-01,0.7484E-01,0.4925E-01,0.9857E-01,0.1587E+00,0.9879E-01, & & 0.4700E-01,0.2393E-01,0.3030E-01,0.5892E-02,0.9433E-02,0.7848E-02, & & 0.1006E+01,0.5952E+00,0.2531E+00,0.1037E+00,0.1446E+00,0.7541E-01, & & 0.4527E-01,0.5074E-01,0.4011E-01,0.5088E-01,0.8283E-01,0.6455E-01, & & 0.4619E-01,0.5258E-01,0.5271E-01,0.2665E-01,0.1876E-01,0.1624E-01, & & 0.1006E+01,0.6212E+00,0.2790E+00,0.1177E+00,0.1633E+00,0.7724E-01, & & 0.4479E-01,0.4768E-01,0.4012E-01,0.4406E-01,0.6866E-01,0.5540E-01, & & 0.4558E-01,0.5987E-01,0.5860E-01,0.3197E-01,0.2137E-01,0.1845E-01, & & 0.1005E+01,0.6426E+00,0.3008E+00,0.1302E+00,0.1777E+00,0.8106E-01, & & 0.4587E-01,0.4669E-01,0.4100E-01,0.4064E-01,0.6060E-01,0.4993E-01, & & 0.4548E-01,0.6509E-01,0.6299E-01,0.3575E-01,0.2328E-01,0.2004E-01, & & 0.1004E+01,0.6814E+00,0.3426E+00,0.1554E+00,0.2042E+00,0.9223E-01, & & 0.5051E-01,0.4744E-01,0.4419E-01,0.3753E-01,0.5094E-01,0.4315E-01, & & 0.4619E-01,0.7387E-01,0.7072E-01,0.4208E-01,0.2658E-01,0.2275E-01, & & 0.1002E+01,0.7316E+00,0.4003E+00,0.1929E+00,0.2399E+00,0.1134E+00, & & 0.6077E-01,0.5232E-01,0.5093E-01,0.3767E-01,0.4499E-01,0.3886E-01, & & 0.4868E-01,0.8496E-01,0.8106E-01,0.5002E-01,0.3089E-01,0.2623E-01, & & 0.1001E+01,0.8035E+00,0.4928E+00,0.2593E+00,0.2985E+00,0.1572E+00, & & 0.8413E-01,0.6619E-01,0.6603E-01,0.4387E-01,0.4423E-01,0.3828E-01, & & 0.5504E-01,0.1028E+00,0.9851E-01,0.6287E-01,0.3814E-01,0.3191E-01, & & 0.1000E+01,0.8626E+00,0.5794E+00,0.3284E+00,0.3569E+00,0.2076E+00, & & 0.1130E+00,0.8469E-01,0.8470E-01,0.5441E-01,0.4914E-01,0.4181E-01, & & 0.6305E-01,0.1209E+00,0.1170E+00,0.7631E-01,0.4595E-01,0.3786E-01/ data ((a_ssax(i,j,18 ),i=1,mbx), j=1,8 ) / & & 0.1000E+01,0.1000E+01,0.9976E+00,0.9708E+00,0.4906E+00,0.1774E+00, & & 0.1232E+00,0.6446E-01,0.5671E-01,0.1527E-01,0.2826E-01,0.4081E-01, & & 0.4101E-01,0.2760E-01,0.3588E-01,0.7646E-01,0.4123E-02,0.9668E-03, & & 0.1000E+01,0.1000E+01,0.9983E+00,0.9788E+00,0.5812E+00,0.4741E+00, & & 0.3407E+00,0.1657E+00,0.1505E+00,0.5469E-01,0.4088E-01,0.4982E-01, & & 0.3349E-01,0.1680E-01,0.1471E-01,0.1438E-01,0.6970E-02,0.1126E-02, & & 0.1000E+01,0.1000E+01,0.9985E+00,0.9808E+00,0.6104E+00,0.5805E+00, & & 0.4312E+00,0.2226E+00,0.1945E+00,0.8345E-01,0.5229E-01,0.5785E-01, & & 0.3432E-01,0.1778E-01,0.1680E-01,0.1577E-01,0.8189E-02,0.1382E-02, & & 0.1000E+01,0.1000E+01,0.9986E+00,0.9821E+00,0.6299E+00,0.6530E+00, & & 0.4985E+00,0.2720E+00,0.2305E+00,0.1115E+00,0.6457E-01,0.6601E-01, & & 0.3573E-01,0.1918E-01,0.1896E-01,0.1750E-01,0.9418E-02,0.1639E-02, & & 0.1000E+01,0.1000E+01,0.9987E+00,0.9839E+00,0.6588E+00,0.7549E+00, & & 0.6029E+00,0.3635E+00,0.2943E+00,0.1715E+00,0.9478E-01,0.8494E-01, & & 0.3964E-01,0.2273E-01,0.2375E-01,0.2170E-01,0.1224E-01,0.2239E-02, & & 0.1000E+01,0.1000E+01,0.9988E+00,0.9856E+00,0.6855E+00,0.8382E+00, & & 0.7003E+00,0.4687E+00,0.3675E+00,0.2569E+00,0.1474E+00,0.1163E+00, & & 0.4669E-01,0.2869E-01,0.3127E-01,0.2874E-01,0.1698E-01,0.3285E-02, & & 0.1000E+01,0.1000E+01,0.9988E+00,0.9871E+00,0.7126E+00,0.9027E+00, & & 0.7880E+00,0.5850E+00,0.4549E+00,0.3788E+00,0.2437E+00,0.1737E+00, & & 0.6041E-01,0.3976E-01,0.4490E-01,0.4222E-01,0.2651E-01,0.5546E-02, & & 0.1000E+01,0.1000E+01,0.9988E+00,0.9880E+00,0.7286E+00,0.9306E+00, & & 0.8321E+00,0.6533E+00,0.5139E+00,0.4686E+00,0.3312E+00,0.2294E+00, & & 0.7508E-01,0.5140E-01,0.5907E-01,0.5688E-01,0.3758E-01,0.8392E-02/ data ((a_asyx(i,j,18 ),i=1,mbx), j=1,8 ) / & & 0.7172E+00,0.6760E+00,0.6086E+00,0.5473E+00,0.4571E+00,0.3765E+00, & & 0.3163E+00,0.2661E+00,0.2370E+00,0.1704E+00,0.1353E+00,0.1478E+00, & & 0.1519E+00,0.1258E+00,0.9522E-01,0.8572E-01,0.5257E-01,0.2308E-01, & & 0.7690E+00,0.7404E+00,0.6846E+00,0.6391E+00,0.5324E+00,0.4853E+00, & & 0.4211E+00,0.3673E+00,0.3292E+00,0.2748E+00,0.2325E+00,0.2197E+00, & & 0.1904E+00,0.1480E+00,0.1204E+00,0.1042E+00,0.7121E-01,0.3384E-01, & & 0.7779E+00,0.7541E+00,0.7040E+00,0.6637E+00,0.5565E+00,0.5153E+00, & & 0.4523E+00,0.3990E+00,0.3583E+00,0.3077E+00,0.2645E+00,0.2459E+00, & & 0.2086E+00,0.1601E+00,0.1321E+00,0.1139E+00,0.7974E-01,0.3877E-01, & & 0.7837E+00,0.7632E+00,0.7173E+00,0.6810E+00,0.5745E+00,0.5355E+00, & & 0.4752E+00,0.4226E+00,0.3808E+00,0.3328E+00,0.2889E+00,0.2660E+00, & & 0.2231E+00,0.1705E+00,0.1414E+00,0.1221E+00,0.8694E-01,0.4311E-01, & & 0.7900E+00,0.7755E+00,0.7368E+00,0.7068E+00,0.6048E+00,0.5693E+00, & & 0.5128E+00,0.4620E+00,0.4186E+00,0.3739E+00,0.3307E+00,0.3022E+00, & & 0.2507E+00,0.1908E+00,0.1600E+00,0.1377E+00,0.1008E+00,0.5131E-01, & & 0.7948E+00,0.7864E+00,0.7564E+00,0.7336E+00,0.6385E+00,0.6040E+00, & & 0.5541E+00,0.5070E+00,0.4625E+00,0.4216E+00,0.3796E+00,0.3465E+00, & & 0.2864E+00,0.2176E+00,0.1836E+00,0.1587E+00,0.1193E+00,0.6287E-01, & & 0.7975E+00,0.7959E+00,0.7766E+00,0.7635E+00,0.6804E+00,0.6449E+00, & & 0.6051E+00,0.5647E+00,0.5193E+00,0.4834E+00,0.4441E+00,0.4081E+00, & & 0.3392E+00,0.2584E+00,0.2196E+00,0.1909E+00,0.1477E+00,0.8069E-01, & & 0.7967E+00,0.8007E+00,0.7892E+00,0.7825E+00,0.7117E+00,0.6735E+00, & & 0.6423E+00,0.6084E+00,0.5632E+00,0.5303E+00,0.4951E+00,0.4587E+00, & & 0.3850E+00,0.2951E+00,0.2518E+00,0.2202E+00,0.1738E+00,0.9837E-01/ end module aerosol1 module aerosol2 USE PARA_FILE implicit none integer, private :: i,j real a_ssay(mby,nrh,naer),a_exty(mby,nrh,naer) real a_asyy(mby,nrh,naer) data ((a_ssay(i,j,1),i=1,mby),j=1,nrh) / & & .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01, & & .1000E+01,.1000E+01,.1000E+01,.1000E+01, & & .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01, & & .1000E+01,.1000E+01,.1000E+01,.1000E+01, & & .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01, & & .1000E+01,.1000E+01,.1000E+01,.1000E+01, & & .9999E+00,.9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01, & & .1000E+01,.1000E+01,.1000E+01,.1000E+01, & & .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01, & & .1000E+01,.1000E+01,.1000E+01,.1000E+01, & & .9993E+00,.9993E+00,.9993E+00,.9993E+00,.9993E+00,.1000E+01, & & .1000E+01,.1000E+01,.1000E+01,.1000E+01, & & .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01, & & .1000E+01,.1000E+01,.1000E+01,.1000E+01, & & .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01, & & .1000E+01,.1000E+01,.1000E+01,.1000E+01/ data ((a_exty(i,j,1),i=1,mby),j=1,nrh) / & & .2071E-03,.2071E-03,.2071E-03,.2071E-03,.2071E-03,.2084E-03, & & .2081E-03,.2065E-03,.2071E-03,.2101E-03, & & .2448E-03,.2448E-03,.2448E-03,.2448E-03,.2448E-03,.2459E-03, & & .2452E-03,.2437E-03,.2427E-03,.2447E-03, & & .3519E-03,.3519E-03,.3519E-03,.3519E-03,.3519E-03,.3499E-03, & & .3503E-03,.3510E-03,.3486E-03,.3468E-03, & & .7975E-03,.7975E-03,.7975E-03,.7975E-03,.7975E-03,.7928E-03, & & .7874E-03,.7863E-03,.7813E-03,.7843E-03, & & .1135E-02,.1135E-02,.1135E-02,.1135E-02,.1135E-02,.1122E-02, & & .1120E-02,.1113E-02,.1113E-02,.1106E-02, & & .1685E-02,.1685E-02,.1685E-02,.1685E-02,.1685E-02,.1671E-02, & & .1656E-02,.1644E-02,.1632E-02,.1626E-02, & & .2879E-02,.2879E-02,.2879E-02,.2879E-02,.2879E-02,.2872E-02, & & .2855E-02,.2832E-02,.2806E-02,.2770E-02, & & .4241E-02,.4241E-02,.4241E-02,.4241E-02,.4241E-02,.4274E-02, & & .4256E-02,.4255E-02,.4223E-02,.4171E-02/ data ((a_asyy(i,j,1),i=1,mby),j=1,nrh) / & & .7513E+00,.7513E+00,.7513E+00,.7513E+00,.7513E+00,.7721E+00, & & .7842E+00,.7893E+00,.7963E+00,.8072E+00, & & .7568E+00,.7568E+00,.7568E+00,.7568E+00,.7568E+00,.7792E+00, & & .7907E+00,.7940E+00,.8002E+00,.8113E+00, & & .7412E+00,.7412E+00,.7412E+00,.7412E+00,.7412E+00,.7662E+00, & & .7783E+00,.7912E+00,.8007E+00,.8096E+00, & & .6857E+00,.6857E+00,.6857E+00,.6857E+00,.6857E+00,.7078E+00, & & .7249E+00,.7462E+00,.7600E+00,.7868E+00, & & .6639E+00,.6639E+00,.6639E+00,.6639E+00,.6639E+00,.6845E+00, & & .7070E+00,.7252E+00,.7393E+00,.7655E+00, & & .6515E+00,.6515E+00,.6515E+00,.6515E+00,.6515E+00,.6620E+00, & & .6810E+00,.6925E+00,.7165E+00,.7380E+00, & & .6220E+00,.6220E+00,.6220E+00,.6220E+00,.6220E+00,.6424E+00, & & .6525E+00,.6656E+00,.6848E+00,.7081E+00, & & .6129E+00,.6129E+00,.6129E+00,.6129E+00,.6129E+00,.6290E+00, & & .6397E+00,.6509E+00,.6676E+00,.6865E+00/ data ((a_ssay(i,j,2),i=1,mby),j=1,nrh) / & & .9419E+00,.9419E+00,.9419E+00,.9419E+00,.9419E+00,.9634E+00, & & .9640E+00,.9652E+00,.9628E+00,.9566E+00, & & .9418E+00,.9418E+00,.9418E+00,.9418E+00,.9418E+00,.9633E+00, & & .9640E+00,.9652E+00,.9627E+00,.9565E+00, & & .9460E+00,.9460E+00,.9460E+00,.9460E+00,.9460E+00,.9650E+00, & & .9667E+00,.9673E+00,.9650E+00,.9595E+00, & & .9596E+00,.9596E+00,.9596E+00,.9596E+00,.9596E+00,.9744E+00, & & .9754E+00,.9760E+00,.9742E+00,.9703E+00, & & .9722E+00,.9722E+00,.9722E+00,.9722E+00,.9722E+00,.9827E+00, & & .9833E+00,.9838E+00,.9828E+00,.9805E+00, & & .9776E+00,.9776E+00,.9776E+00,.9776E+00,.9776E+00,.9861E+00, & & .9869E+00,.9872E+00,.9865E+00,.9846E+00, & & .9823E+00,.9823E+00,.9823E+00,.9823E+00,.9823E+00,.9892E+00, & & .9895E+00,.9900E+00,.9896E+00,.9883E+00, & & .9857E+00,.9857E+00,.9857E+00,.9857E+00,.9857E+00,.9912E+00, & & .9917E+00,.9921E+00,.9919E+00,.9907E+00/ data ((a_exty(i,j,2),i=1,mby),j=1,nrh) / & & .1763E-04,.1763E-04,.1763E-04,.1763E-04,.1763E-04,.1574E-04, & & .1402E-04,.1248E-04,.1055E-04,.8482E-05, & & .1763E-04,.1763E-04,.1763E-04,.1763E-04,.1763E-04,.1574E-04, & & .1402E-04,.1249E-04,.1055E-04,.8483E-05, & & .1890E-04,.1890E-04,.1890E-04,.1890E-04,.1890E-04,.1689E-04, & & .1504E-04,.1339E-04,.1132E-04,.9110E-05, & & .2535E-04,.2535E-04,.2535E-04,.2535E-04,.2535E-04,.2270E-04, & & .2027E-04,.1811E-04,.1538E-04,.1244E-04, & & .3707E-04,.3707E-04,.3707E-04,.3707E-04,.3707E-04,.3347E-04, & & .3014E-04,.2714E-04,.2326E-04,.1903E-04, & & .4636E-04,.4636E-04,.4636E-04,.4636E-04,.4636E-04,.4215E-04, & & .3817E-04,.3459E-04,.2986E-04,.2465E-04, & & .5890E-04,.5890E-04,.5890E-04,.5890E-04,.5890E-04,.5402E-04, & & .4933E-04,.4501E-04,.3919E-04,.3269E-04, & & .7312E-04,.7312E-04,.7312E-04,.7312E-04,.7312E-04,.6769E-04, & & .6224E-04,.5721E-04,.5027E-04,.4240E-04/ data ((a_asyy(i,j,2),i=1,mby),j=1,nrh) / & & .6740E+00,.6740E+00,.6740E+00,.6740E+00,.6740E+00,.6635E+00, & & .6570E+00,.6507E+00,.6414E+00,.6293E+00, & & .6740E+00,.6740E+00,.6740E+00,.6740E+00,.6740E+00,.6635E+00, & & .6570E+00,.6507E+00,.6414E+00,.6293E+00, & & .6809E+00,.6809E+00,.6809E+00,.6809E+00,.6809E+00,.6740E+00, & & .6678E+00,.6616E+00,.6523E+00,.6403E+00, & & .7167E+00,.7167E+00,.7167E+00,.7167E+00,.7167E+00,.7097E+00, & & .7046E+00,.6988E+00,.6904E+00,.6785E+00, & & .7447E+00,.7447E+00,.7447E+00,.7447E+00,.7447E+00,.7407E+00, & & .7371E+00,.7325E+00,.7251E+00,.7146E+00, & & .7561E+00,.7561E+00,.7561E+00,.7561E+00,.7561E+00,.7534E+00, & & .7508E+00,.7468E+00,.7404E+00,.7308E+00, & & .7656E+00,.7656E+00,.7656E+00,.7656E+00,.7656E+00,.7643E+00, & & .7622E+00,.7589E+00,.7536E+00,.7451E+00, & & .7723E+00,.7723E+00,.7723E+00,.7723E+00,.7723E+00,.7715E+00, & & .7706E+00,.7678E+00,.7635E+00,.7559E+00/ data ((a_ssay(i,j,3),i=1,mby),j=1,nrh) / & & .9180E+00,.9180E+00,.9180E+00,.9180E+00,.9180E+00,.9394E+00, & & .9404E+00,.9417E+00,.9391E+00,.9333E+00, & & .9174E+00,.9174E+00,.9174E+00,.9174E+00,.9174E+00,.9388E+00, & & .9397E+00,.9411E+00,.9384E+00,.9327E+00, & & .9210E+00,.9210E+00,.9210E+00,.9210E+00,.9210E+00,.9400E+00, & & .9421E+00,.9428E+00,.9403E+00,.9353E+00, & & .9377E+00,.9377E+00,.9377E+00,.9377E+00,.9377E+00,.9527E+00, & & .9543E+00,.9551E+00,.9533E+00,.9500E+00, & & .9553E+00,.9553E+00,.9553E+00,.9553E+00,.9553E+00,.9663E+00, & & .9675E+00,.9685E+00,.9676E+00,.9659E+00, & & .9630E+00,.9630E+00,.9630E+00,.9630E+00,.9630E+00,.9722E+00, & & .9736E+00,.9743E+00,.9739E+00,.9728E+00, & & .9702E+00,.9702E+00,.9702E+00,.9702E+00,.9702E+00,.9776E+00, & & .9786E+00,.9795E+00,.9795E+00,.9788E+00, & & .9756E+00,.9756E+00,.9756E+00,.9756E+00,.9756E+00,.9816E+00, & & .9827E+00,.9836E+00,.9837E+00,.9832E+00/ data ((a_exty(i,j,3),i=1,mby),j=1,nrh) / & & .1160E-04,.1160E-04,.1160E-04,.1160E-04,.1160E-04,.1033E-04, & & .9185E-05,.8166E-05,.6890E-05,.5530E-05, & & .1161E-04,.1161E-04,.1161E-04,.1161E-04,.1161E-04,.1034E-04, & & .9196E-05,.8175E-05,.6897E-05,.5536E-05, & & .1248E-04,.1248E-04,.1248E-04,.1248E-04,.1248E-04,.1112E-04, & & .9879E-05,.8785E-05,.7413E-05,.5952E-05, & & .1675E-04,.1675E-04,.1675E-04,.1675E-04,.1675E-04,.1494E-04, & & .1331E-04,.1187E-04,.1005E-04,.8106E-05, & & .2446E-04,.2446E-04,.2446E-04,.2446E-04,.2446E-04,.2199E-04, & & .1972E-04,.1772E-04,.1514E-04,.1235E-04, & & .3079E-04,.3079E-04,.3079E-04,.3079E-04,.3079E-04,.2783E-04, & & .2509E-04,.2265E-04,.1948E-04,.1601E-04, & & .3977E-04,.3977E-04,.3977E-04,.3977E-04,.3977E-04,.3616E-04, & & .3281E-04,.2978E-04,.2579E-04,.2139E-04, & & .4994E-04,.4994E-04,.4994E-04,.4994E-04,.4994E-04,.4577E-04, & & .4176E-04,.3815E-04,.3329E-04,.2788E-04/ data ((a_asyy(i,j,3),i=1,mby),j=1,nrh) / & & .6710E+00,.6710E+00,.6710E+00,.6710E+00,.6710E+00,.6606E+00, & & .6543E+00,.6481E+00,.6390E+00,.6271E+00, & & .6711E+00,.6711E+00,.6711E+00,.6711E+00,.6711E+00,.6607E+00, & & .6543E+00,.6481E+00,.6389E+00,.6270E+00, & & .6811E+00,.6811E+00,.6811E+00,.6811E+00,.6811E+00,.6713E+00, & & .6652E+00,.6590E+00,.6498E+00,.6379E+00, & & .7143E+00,.7143E+00,.7143E+00,.7143E+00,.7143E+00,.7072E+00, & & .7020E+00,.6962E+00,.6878E+00,.6760E+00, & & .7425E+00,.7425E+00,.7425E+00,.7425E+00,.7425E+00,.7383E+00, & & .7346E+00,.7299E+00,.7225E+00,.7121E+00, & & .7541E+00,.7541E+00,.7541E+00,.7541E+00,.7541E+00,.7510E+00, & & .7482E+00,.7440E+00,.7375E+00,.7279E+00, & & .7637E+00,.7637E+00,.7637E+00,.7637E+00,.7637E+00,.7618E+00, & & .7593E+00,.7557E+00,.7501E+00,.7414E+00, & & .7707E+00,.7707E+00,.7707E+00,.7707E+00,.7707E+00,.7691E+00, & & .7677E+00,.7645E+00,.7598E+00,.7519E+00/ data ((a_ssay(i,j,4),i=1,mby),j=1,nrh) / & & .7035E+00,.7035E+00,.7035E+00,.7035E+00,.7035E+00,.7798E+00, & & .8284E+00,.8779E+00,.9276E+00,.9653E+00, & & .7035E+00,.7035E+00,.7035E+00,.7035E+00,.7035E+00,.7798E+00, & & .8284E+00,.8779E+00,.9276E+00,.9653E+00, & & .7035E+00,.7035E+00,.7035E+00,.7035E+00,.7035E+00,.7798E+00, & & .8284E+00,.8779E+00,.9276E+00,.9653E+00, & & .7035E+00,.7035E+00,.7035E+00,.7035E+00,.7035E+00,.7798E+00, & & .8284E+00,.8779E+00,.9276E+00,.9653E+00, & & .7035E+00,.7035E+00,.7035E+00,.7035E+00,.7035E+00,.7798E+00, & & .8284E+00,.8779E+00,.9276E+00,.9653E+00, & & .7035E+00,.7035E+00,.7035E+00,.7035E+00,.7035E+00,.7798E+00, & & .8284E+00,.8779E+00,.9276E+00,.9653E+00, & & .7035E+00,.7035E+00,.7035E+00,.7035E+00,.7035E+00,.7798E+00, & & .8284E+00,.8779E+00,.9276E+00,.9653E+00, & & .7035E+00,.7035E+00,.7035E+00,.7035E+00,.7035E+00,.7798E+00, & & .8284E+00,.8779E+00,.9276E+00,.9653E+00/ data ((a_exty(i,j,4),i=1,mby),j=1,nrh) / & & .8783E+00,.8783E+00,.8783E+00,.8783E+00,.8783E+00,.9056E+00, & & .9356E+00,.9674E+00,.1015E+01,.1067E+01, & & .8783E+00,.8783E+00,.8783E+00,.8783E+00,.8783E+00,.9056E+00, & & .9356E+00,.9674E+00,.1015E+01,.1067E+01, & & .8783E+00,.8783E+00,.8783E+00,.8783E+00,.8783E+00,.9056E+00, & & .9356E+00,.9674E+00,.1015E+01,.1067E+01, & & .8783E+00,.8783E+00,.8783E+00,.8783E+00,.8783E+00,.9056E+00, & & .9356E+00,.9674E+00,.1015E+01,.1067E+01, & & .8783E+00,.8783E+00,.8783E+00,.8783E+00,.8783E+00,.9056E+00, & & .9356E+00,.9674E+00,.1015E+01,.1067E+01, & & .8783E+00,.8783E+00,.8783E+00,.8783E+00,.8783E+00,.9056E+00, & & .9356E+00,.9674E+00,.1015E+01,.1067E+01, & & .8783E+00,.8783E+00,.8783E+00,.8783E+00,.8783E+00,.9056E+00, & & .9356E+00,.9674E+00,.1015E+01,.1067E+01, & & .8783E+00,.8783E+00,.8783E+00,.8783E+00,.8783E+00,.9056E+00, & & .9356E+00,.9674E+00,.1015E+01,.1067E+01/ data ((a_asyy(i,j,4),i=1,mby),j=1,nrh) / & & .7678E+00,.7678E+00,.7678E+00,.7678E+00,.7678E+00,.7230E+00, & & .6963E+00,.6754E+00,.6626E+00,.6622E+00, & & .7678E+00,.7678E+00,.7678E+00,.7678E+00,.7678E+00,.7230E+00, & & .6963E+00,.6754E+00,.6626E+00,.6622E+00, & & .7678E+00,.7678E+00,.7678E+00,.7678E+00,.7678E+00,.7230E+00, & & .6963E+00,.6754E+00,.6626E+00,.6622E+00, & & .7678E+00,.7678E+00,.7678E+00,.7678E+00,.7678E+00,.7230E+00, & & .6963E+00,.6754E+00,.6626E+00,.6622E+00, & & .7678E+00,.7678E+00,.7678E+00,.7678E+00,.7678E+00,.7230E+00, & & .6963E+00,.6754E+00,.6626E+00,.6622E+00, & & .7678E+00,.7678E+00,.7678E+00,.7678E+00,.7678E+00,.7230E+00, & & .6963E+00,.6754E+00,.6626E+00,.6622E+00, & & .7678E+00,.7678E+00,.7678E+00,.7678E+00,.7678E+00,.7230E+00, & & .6963E+00,.6754E+00,.6626E+00,.6622E+00, & & .7678E+00,.7678E+00,.7678E+00,.7678E+00,.7678E+00,.7230E+00, & & .6963E+00,.6754E+00,.6626E+00,.6622E+00/ data ((a_ssay(i,j,5),i=1,mby),j=1,nrh) / & & .6142E+00,.6142E+00,.6142E+00,.6142E+00,.6142E+00,.6812E+00, & & .7317E+00,.7920E+00,.8629E+00,.9255E+00, & & .6142E+00,.6142E+00,.6142E+00,.6142E+00,.6142E+00,.6812E+00, & & .7317E+00,.7920E+00,.8629E+00,.9255E+00, & & .6142E+00,.6142E+00,.6142E+00,.6142E+00,.6142E+00,.6812E+00, & & .7317E+00,.7920E+00,.8629E+00,.9255E+00, & & .6142E+00,.6142E+00,.6142E+00,.6142E+00,.6142E+00,.6812E+00, & & .7317E+00,.7920E+00,.8629E+00,.9255E+00, & & .6142E+00,.6142E+00,.6142E+00,.6142E+00,.6142E+00,.6812E+00, & & .7317E+00,.7920E+00,.8629E+00,.9255E+00, & & .6142E+00,.6142E+00,.6142E+00,.6142E+00,.6142E+00,.6812E+00, & & .7317E+00,.7920E+00,.8629E+00,.9255E+00, & & .6142E+00,.6142E+00,.6142E+00,.6142E+00,.6142E+00,.6812E+00, & & .7317E+00,.7920E+00,.8629E+00,.9255E+00, & & .6142E+00,.6142E+00,.6142E+00,.6142E+00,.6142E+00,.6812E+00, & & .7317E+00,.7920E+00,.8629E+00,.9255E+00/ data ((a_exty(i,j,5),i=1,mby),j=1,nrh) / & & .9410E+00,.9410E+00,.9410E+00,.9410E+00,.9410E+00,.9556E+00, & & .9700E+00,.9848E+00,.1008E+01,.1040E+01, & & .9410E+00,.9410E+00,.9410E+00,.9410E+00,.9410E+00,.9556E+00, & & .9700E+00,.9848E+00,.1008E+01,.1040E+01, & & .9410E+00,.9410E+00,.9410E+00,.9410E+00,.9410E+00,.9556E+00, & & .9700E+00,.9848E+00,.1008E+01,.1040E+01, & & .9410E+00,.9410E+00,.9410E+00,.9410E+00,.9410E+00,.9556E+00, & & .9700E+00,.9848E+00,.1008E+01,.1040E+01, & & .9410E+00,.9410E+00,.9410E+00,.9410E+00,.9410E+00,.9556E+00, & & .9700E+00,.9848E+00,.1008E+01,.1040E+01, & & .9410E+00,.9410E+00,.9410E+00,.9410E+00,.9410E+00,.9556E+00, & & .9700E+00,.9848E+00,.1008E+01,.1040E+01, & & .9410E+00,.9410E+00,.9410E+00,.9410E+00,.9410E+00,.9556E+00, & & .9700E+00,.9848E+00,.1008E+01,.1040E+01, & & .9410E+00,.9410E+00,.9410E+00,.9410E+00,.9410E+00,.9556E+00, & & .9700E+00,.9848E+00,.1008E+01,.1040E+01/ data ((a_asyy(i,j,5),i=1,mby),j=1,nrh) / & & .8661E+00,.8661E+00,.8661E+00,.8661E+00,.8661E+00,.8265E+00, & & .7970E+00,.7654E+00,.7285E+00,.6931E+00, & & .8661E+00,.8661E+00,.8661E+00,.8661E+00,.8661E+00,.8265E+00, & & .7970E+00,.7654E+00,.7285E+00,.6931E+00, & & .8661E+00,.8661E+00,.8661E+00,.8661E+00,.8661E+00,.8265E+00, & & .7970E+00,.7654E+00,.7285E+00,.6931E+00, & & .8661E+00,.8661E+00,.8661E+00,.8661E+00,.8661E+00,.8265E+00, & & .7970E+00,.7654E+00,.7285E+00,.6931E+00, & & .8661E+00,.8661E+00,.8661E+00,.8661E+00,.8661E+00,.8265E+00, & & .7970E+00,.7654E+00,.7285E+00,.6931E+00, & & .8661E+00,.8661E+00,.8661E+00,.8661E+00,.8661E+00,.8265E+00, & & .7970E+00,.7654E+00,.7285E+00,.6931E+00, & & .8661E+00,.8661E+00,.8661E+00,.8661E+00,.8661E+00,.8265E+00, & & .7970E+00,.7654E+00,.7285E+00,.6931E+00, & & .8661E+00,.8661E+00,.8661E+00,.8661E+00,.8661E+00,.8265E+00, & & .7970E+00,.7654E+00,.7285E+00,.6931E+00/ data ((a_ssay(i,j,6),i=1,mby),j=1,nrh) / & & .5631E+00,.5631E+00,.5631E+00,.5631E+00,.5631E+00,.6011E+00, & & .6403E+00,.6988E+00,.7839E+00,.8715E+00, & & .5631E+00,.5631E+00,.5631E+00,.5631E+00,.5631E+00,.6011E+00, & & .6403E+00,.6988E+00,.7839E+00,.8715E+00, & & .5631E+00,.5631E+00,.5631E+00,.5631E+00,.5631E+00,.6011E+00, & & .6403E+00,.6988E+00,.7839E+00,.8715E+00, & & .5631E+00,.5631E+00,.5631E+00,.5631E+00,.5631E+00,.6011E+00, & & .6403E+00,.6988E+00,.7839E+00,.8715E+00, & & .5631E+00,.5631E+00,.5631E+00,.5631E+00,.5631E+00,.6011E+00, & & .6403E+00,.6988E+00,.7839E+00,.8715E+00, & & .5631E+00,.5631E+00,.5631E+00,.5631E+00,.5631E+00,.6011E+00, & & .6403E+00,.6988E+00,.7839E+00,.8715E+00, & & .5631E+00,.5631E+00,.5631E+00,.5631E+00,.5631E+00,.6011E+00, & & .6403E+00,.6988E+00,.7839E+00,.8715E+00, & & .5631E+00,.5631E+00,.5631E+00,.5631E+00,.5631E+00,.6011E+00, & & .6403E+00,.6988E+00,.7839E+00,.8715E+00/ data ((a_exty(i,j,6),i=1,mby),j=1,nrh) / & & .9650E+00,.9650E+00,.9650E+00,.9650E+00,.9650E+00,.9749E+00, & & .9831E+00,.9916E+00,.1004E+01,.1019E+01, & & .9650E+00,.9650E+00,.9650E+00,.9650E+00,.9650E+00,.9749E+00, & & .9831E+00,.9916E+00,.1004E+01,.1019E+01, & & .9650E+00,.9650E+00,.9650E+00,.9650E+00,.9650E+00,.9749E+00, & & .9831E+00,.9916E+00,.1004E+01,.1019E+01, & & .9650E+00,.9650E+00,.9650E+00,.9650E+00,.9650E+00,.9749E+00, & & .9831E+00,.9916E+00,.1004E+01,.1019E+01, & & .9650E+00,.9650E+00,.9650E+00,.9650E+00,.9650E+00,.9749E+00, & & .9831E+00,.9916E+00,.1004E+01,.1019E+01, & & .9650E+00,.9650E+00,.9650E+00,.9650E+00,.9650E+00,.9749E+00, & & .9831E+00,.9916E+00,.1004E+01,.1019E+01, & & .9650E+00,.9650E+00,.9650E+00,.9650E+00,.9650E+00,.9749E+00, & & .9831E+00,.9916E+00,.1004E+01,.1019E+01, & & .9650E+00,.9650E+00,.9650E+00,.9650E+00,.9650E+00,.9749E+00, & & .9831E+00,.9916E+00,.1004E+01,.1019E+01/ data ((a_asyy(i,j,6),i=1,mby),j=1,nrh) / & & .9183E+00,.9183E+00,.9183E+00,.9183E+00,.9183E+00,.8957E+00, & & .8745E+00,.8466E+00,.8097E+00,.7725E+00, & & .9183E+00,.9183E+00,.9183E+00,.9183E+00,.9183E+00,.8957E+00, & & .8745E+00,.8466E+00,.8097E+00,.7725E+00, & & .9183E+00,.9183E+00,.9183E+00,.9183E+00,.9183E+00,.8957E+00, & & .8745E+00,.8466E+00,.8097E+00,.7725E+00, & & .9183E+00,.9183E+00,.9183E+00,.9183E+00,.9183E+00,.8957E+00, & & .8745E+00,.8466E+00,.8097E+00,.7725E+00, & & .9183E+00,.9183E+00,.9183E+00,.9183E+00,.9183E+00,.8957E+00, & & .8745E+00,.8466E+00,.8097E+00,.7725E+00, & & .9183E+00,.9183E+00,.9183E+00,.9183E+00,.9183E+00,.8957E+00, & & .8745E+00,.8466E+00,.8097E+00,.7725E+00, & & .9183E+00,.9183E+00,.9183E+00,.9183E+00,.9183E+00,.8957E+00, & & .8745E+00,.8466E+00,.8097E+00,.7725E+00, & & .9183E+00,.9183E+00,.9183E+00,.9183E+00,.9183E+00,.8957E+00, & & .8745E+00,.8466E+00,.8097E+00,.7725E+00/ data ((a_ssay(i,j,7),i=1,mby),j=1,nrh) / & & .5495E+00,.5495E+00,.5495E+00,.5495E+00,.5495E+00,.5603E+00, & & .5775E+00,.6141E+00,.6914E+00,.7949E+00, & & .5495E+00,.5495E+00,.5495E+00,.5495E+00,.5495E+00,.5603E+00, & & .5775E+00,.6141E+00,.6914E+00,.7949E+00, & & .5495E+00,.5495E+00,.5495E+00,.5495E+00,.5495E+00,.5603E+00, & & .5775E+00,.6141E+00,.6914E+00,.7949E+00, & & .5495E+00,.5495E+00,.5495E+00,.5495E+00,.5495E+00,.5603E+00, & & .5775E+00,.6141E+00,.6914E+00,.7949E+00, & & .5495E+00,.5495E+00,.5495E+00,.5495E+00,.5495E+00,.5603E+00, & & .5775E+00,.6141E+00,.6914E+00,.7949E+00, & & .5495E+00,.5495E+00,.5495E+00,.5495E+00,.5495E+00,.5603E+00, & & .5775E+00,.6141E+00,.6914E+00,.7949E+00, & & .5495E+00,.5495E+00,.5495E+00,.5495E+00,.5495E+00,.5603E+00, & & .5775E+00,.6141E+00,.6914E+00,.7949E+00, & & .5495E+00,.5495E+00,.5495E+00,.5495E+00,.5495E+00,.5603E+00, & & .5775E+00,.6141E+00,.6914E+00,.7949E+00/ data ((a_exty(i,j,7),i=1,mby),j=1,nrh) / & & .9779E+00,.9779E+00,.9779E+00,.9779E+00,.9779E+00,.9839E+00, & & .9894E+00,.9948E+00,.1002E+01,.1012E+01, & & .9779E+00,.9779E+00,.9779E+00,.9779E+00,.9779E+00,.9839E+00, & & .9894E+00,.9948E+00,.1002E+01,.1012E+01, & & .9779E+00,.9779E+00,.9779E+00,.9779E+00,.9779E+00,.9839E+00, & & .9894E+00,.9948E+00,.1002E+01,.1012E+01, & & .9779E+00,.9779E+00,.9779E+00,.9779E+00,.9779E+00,.9839E+00, & & .9894E+00,.9948E+00,.1002E+01,.1012E+01, & & .9779E+00,.9779E+00,.9779E+00,.9779E+00,.9779E+00,.9839E+00, & & .9894E+00,.9948E+00,.1002E+01,.1012E+01, & & .9779E+00,.9779E+00,.9779E+00,.9779E+00,.9779E+00,.9839E+00, & & .9894E+00,.9948E+00,.1002E+01,.1012E+01, & & .9779E+00,.9779E+00,.9779E+00,.9779E+00,.9779E+00,.9839E+00, & & .9894E+00,.9948E+00,.1002E+01,.1012E+01, & & .9779E+00,.9779E+00,.9779E+00,.9779E+00,.9779E+00,.9839E+00, & & .9894E+00,.9948E+00,.1002E+01,.1012E+01/ data ((a_asyy(i,j,7),i=1,mby),j=1,nrh) / & & .9364E+00,.9364E+00,.9364E+00,.9364E+00,.9364E+00,.9298E+00, & & .9204E+00,.9026E+00,.8702E+00,.8309E+00, & & .9364E+00,.9364E+00,.9364E+00,.9364E+00,.9364E+00,.9298E+00, & & .9204E+00,.9026E+00,.8702E+00,.8309E+00, & & .9364E+00,.9364E+00,.9364E+00,.9364E+00,.9364E+00,.9298E+00, & & .9204E+00,.9026E+00,.8702E+00,.8309E+00, & & .9364E+00,.9364E+00,.9364E+00,.9364E+00,.9364E+00,.9298E+00, & & .9204E+00,.9026E+00,.8702E+00,.8309E+00, & & .9364E+00,.9364E+00,.9364E+00,.9364E+00,.9364E+00,.9298E+00, & & .9204E+00,.9026E+00,.8702E+00,.8309E+00, & & .9364E+00,.9364E+00,.9364E+00,.9364E+00,.9364E+00,.9298E+00, & & .9204E+00,.9026E+00,.8702E+00,.8309E+00, & & .9364E+00,.9364E+00,.9364E+00,.9364E+00,.9364E+00,.9298E+00, & & .9204E+00,.9026E+00,.8702E+00,.8309E+00, & & .9364E+00,.9364E+00,.9364E+00,.9364E+00,.9364E+00,.9298E+00, & & .9204E+00,.9026E+00,.8702E+00,.8309E+00/ data ((a_ssay(i,j,8),i=1,mby),j=1,nrh) / & & .5507E+00,.5507E+00,.5507E+00,.5507E+00,.5507E+00,.5512E+00, & & .5542E+00,.5663E+00,.6106E+00,.6996E+00, & & .5507E+00,.5507E+00,.5507E+00,.5507E+00,.5507E+00,.5512E+00, & & .5542E+00,.5663E+00,.6106E+00,.6996E+00, & & .5507E+00,.5507E+00,.5507E+00,.5507E+00,.5507E+00,.5512E+00, & & .5542E+00,.5663E+00,.6106E+00,.6996E+00, & & .5507E+00,.5507E+00,.5507E+00,.5507E+00,.5507E+00,.5512E+00, & & .5542E+00,.5663E+00,.6106E+00,.6996E+00, & & .5507E+00,.5507E+00,.5507E+00,.5507E+00,.5507E+00,.5512E+00, & & .5542E+00,.5663E+00,.6106E+00,.6996E+00, & & .5507E+00,.5507E+00,.5507E+00,.5507E+00,.5507E+00,.5512E+00, & & .5542E+00,.5663E+00,.6106E+00,.6996E+00, & & .5507E+00,.5507E+00,.5507E+00,.5507E+00,.5507E+00,.5512E+00, & & .5542E+00,.5663E+00,.6106E+00,.6996E+00, & & .5507E+00,.5507E+00,.5507E+00,.5507E+00,.5507E+00,.5512E+00, & & .5542E+00,.5663E+00,.6106E+00,.6996E+00/ data ((a_exty(i,j,8),i=1,mby),j=1,nrh) / & & .9859E+00,.9859E+00,.9859E+00,.9859E+00,.9859E+00,.9896E+00, & & .9932E+00,.9967E+00,.1002E+01,.1007E+01, & & .9859E+00,.9859E+00,.9859E+00,.9859E+00,.9859E+00,.9896E+00, & & .9932E+00,.9967E+00,.1002E+01,.1007E+01, & & .9859E+00,.9859E+00,.9859E+00,.9859E+00,.9859E+00,.9896E+00, & & .9932E+00,.9967E+00,.1002E+01,.1007E+01, & & .9859E+00,.9859E+00,.9859E+00,.9859E+00,.9859E+00,.9896E+00, & & .9932E+00,.9967E+00,.1002E+01,.1007E+01, & & .9859E+00,.9859E+00,.9859E+00,.9859E+00,.9859E+00,.9896E+00, & & .9932E+00,.9967E+00,.1002E+01,.1007E+01, & & .9859E+00,.9859E+00,.9859E+00,.9859E+00,.9859E+00,.9896E+00, & & .9932E+00,.9967E+00,.1002E+01,.1007E+01, & & .9859E+00,.9859E+00,.9859E+00,.9859E+00,.9859E+00,.9896E+00, & & .9932E+00,.9967E+00,.1002E+01,.1007E+01, & & .9859E+00,.9859E+00,.9859E+00,.9859E+00,.9859E+00,.9896E+00, & & .9932E+00,.9967E+00,.1002E+01,.1007E+01/ data ((a_asyy(i,j,8),i=1,mby),j=1,nrh) / & & .9401E+00,.9401E+00,.9401E+00,.9401E+00,.9401E+00,.9399E+00, & & .9385E+00,.9327E+00,.9136E+00,.8795E+00, & & .9401E+00,.9401E+00,.9401E+00,.9401E+00,.9401E+00,.9399E+00, & & .9385E+00,.9327E+00,.9136E+00,.8795E+00, & & .9401E+00,.9401E+00,.9401E+00,.9401E+00,.9401E+00,.9399E+00, & & .9385E+00,.9327E+00,.9136E+00,.8795E+00, & & .9401E+00,.9401E+00,.9401E+00,.9401E+00,.9401E+00,.9399E+00, & & .9385E+00,.9327E+00,.9136E+00,.8795E+00, & & .9401E+00,.9401E+00,.9401E+00,.9401E+00,.9401E+00,.9399E+00, & & .9385E+00,.9327E+00,.9136E+00,.8795E+00, & & .9401E+00,.9401E+00,.9401E+00,.9401E+00,.9401E+00,.9399E+00, & & .9385E+00,.9327E+00,.9136E+00,.8795E+00, & & .9401E+00,.9401E+00,.9401E+00,.9401E+00,.9401E+00,.9399E+00, & & .9385E+00,.9327E+00,.9136E+00,.8795E+00, & & .9401E+00,.9401E+00,.9401E+00,.9401E+00,.9401E+00,.9399E+00, & & .9385E+00,.9327E+00,.9136E+00,.8795E+00/ data ((a_exty(i,j, 9 ),i=1,mby), j=1,1 ) / & & 0.9429E+00,0.9453E+00,0.9513E+00,0.9558E+00,0.9595E+00,0.9650E+00, & & 0.9753E+00,0.9866E+00,0.9992E+00,0.1015E+01/ data ((a_ssay(i,j, 9 ),i=1,mby), j=1,1 ) / & & 0.4624E+00,0.5098E+00,0.6053E+00,0.6511E+00,0.6674E+00,0.6750E+00, & & 0.6918E+00,0.7100E+00,0.7289E+00,0.7486E+00/ data ((a_asyy(i,j, 9 ),i=1,mby), j=1,1 ) / & & 0.9788E+00,0.9585E+00,0.9122E+00,0.8872E+00,0.8773E+00,0.8720E+00, & & 0.8597E+00,0.8458E+00,0.8317E+00,0.8163E+00/ data ((a_exty(i,j,10 ),i=1,mby), j=1,8 ) / & & 0.2636E+01,0.2534E+01,0.2300E+01,0.2142E+01,0.2022E+01,0.1846E+01, & & 0.1535E+01,0.1261E+01,0.1015E+01,0.7892E+00, & & 0.2564E+01,0.2466E+01,0.2240E+01,0.2089E+01,0.1975E+01,0.1808E+01, & & 0.1513E+01,0.1253E+01,0.1015E+01,0.7959E+00, & & 0.2500E+01,0.2407E+01,0.2193E+01,0.2049E+01,0.1940E+01,0.1781E+01, & & 0.1498E+01,0.1246E+01,0.1014E+01,0.8001E+00, & & 0.2434E+01,0.2346E+01,0.2144E+01,0.2008E+01,0.1904E+01,0.1754E+01, & & 0.1482E+01,0.1240E+01,0.1014E+01,0.8042E+00, & & 0.2291E+01,0.2215E+01,0.2039E+01,0.1920E+01,0.1829E+01,0.1694E+01, & & 0.1448E+01,0.1225E+01,0.1013E+01,0.8130E+00, & & 0.2121E+01,0.2059E+01,0.1914E+01,0.1815E+01,0.1738E+01,0.1623E+01, & & 0.1407E+01,0.1208E+01,0.1012E+01,0.8240E+00, & & 0.1896E+01,0.1852E+01,0.1746E+01,0.1673E+01,0.1614E+01,0.1525E+01, & & 0.1350E+01,0.1182E+01,0.1011E+01,0.8404E+00, & & 0.1752E+01,0.1718E+01,0.1638E+01,0.1581E+01,0.1534E+01,0.1460E+01, & & 0.1311E+01,0.1165E+01,0.1010E+01,0.8518E+00/ data ((a_ssay(i,j,10 ),i=1,mby), j=1,8 ) / & & 0.6646E+00,0.7653E+00,0.8981E+00,0.9419E+00,0.9569E+00,0.9666E+00, & & 0.9685E+00,0.9688E+00,0.9633E+00,0.9558E+00, & & 0.7687E+00,0.8417E+00,0.9345E+00,0.9639E+00,0.9735E+00,0.9796E+00, & & 0.9808E+00,0.9810E+00,0.9776E+00,0.9730E+00, & & 0.8036E+00,0.8665E+00,0.9456E+00,0.9704E+00,0.9784E+00,0.9835E+00, & & 0.9844E+00,0.9847E+00,0.9820E+00,0.9782E+00, & & 0.8288E+00,0.8845E+00,0.9538E+00,0.9751E+00,0.9819E+00,0.9861E+00, & & 0.9871E+00,0.9873E+00,0.9850E+00,0.9820E+00, & & 0.8696E+00,0.9126E+00,0.9655E+00,0.9816E+00,0.9868E+00,0.9900E+00, & & 0.9907E+00,0.9909E+00,0.9895E+00,0.9874E+00, & & 0.9009E+00,0.9345E+00,0.9749E+00,0.9869E+00,0.9906E+00,0.9929E+00, & & 0.9935E+00,0.9938E+00,0.9928E+00,0.9915E+00, & & 0.9319E+00,0.9553E+00,0.9831E+00,0.9913E+00,0.9939E+00,0.9954E+00, & & 0.9959E+00,0.9961E+00,0.9956E+00,0.9949E+00, & & 0.9465E+00,0.9651E+00,0.9870E+00,0.9934E+00,0.9954E+00,0.9966E+00, & & 0.9970E+00,0.9972E+00,0.9968E+00,0.9964E+00/ data ((a_asyy(i,j,10 ),i=1,mby), j=1,8 ) / & & 0.7099E+00,0.6998E+00,0.6762E+00,0.6623E+00,0.6551E+00,0.6486E+00, & & 0.6386E+00,0.6267E+00,0.6143E+00,0.5985E+00, & & 0.7400E+00,0.7344E+00,0.7212E+00,0.7131E+00,0.7084E+00,0.7033E+00, & & 0.6946E+00,0.6841E+00,0.6722E+00,0.6570E+00, & & 0.7487E+00,0.7443E+00,0.7339E+00,0.7276E+00,0.7241E+00,0.7201E+00, & & 0.7118E+00,0.7021E+00,0.6904E+00,0.6755E+00, & & 0.7554E+00,0.7517E+00,0.7427E+00,0.7373E+00,0.7343E+00,0.7310E+00, & & 0.7239E+00,0.7151E+00,0.7042E+00,0.6902E+00, & & 0.7629E+00,0.7609E+00,0.7561E+00,0.7529E+00,0.7507E+00,0.7478E+00, & & 0.7426E+00,0.7349E+00,0.7254E+00,0.7123E+00, & & 0.7685E+00,0.7678E+00,0.7659E+00,0.7644E+00,0.7633E+00,0.7615E+00, & & 0.7576E+00,0.7512E+00,0.7433E+00,0.7320E+00, & & 0.7721E+00,0.7725E+00,0.7736E+00,0.7740E+00,0.7738E+00,0.7732E+00, & & 0.7715E+00,0.7669E+00,0.7612E+00,0.7518E+00, & & 0.7749E+00,0.7755E+00,0.7768E+00,0.7777E+00,0.7784E+00,0.7789E+00, & & 0.7779E+00,0.7750E+00,0.7701E+00,0.7619E+00/ data ((a_exty(i,j,11 ),i=1,mby), j=1,1 ) / & & 0.2564E+01,0.2504E+01,0.2357E+01,0.2233E+01,0.2108E+01,0.1900E+01, & & 0.1552E+01,0.1267E+01,0.1017E+01,0.8078E+00/ data ((a_ssay(i,j,11 ),i=1,mby), j=1,1 ) / & & 0.3009E+00,0.3045E+00,0.3124E+00,0.3138E+00,0.3091E+00,0.2954E+00, & & 0.2666E+00,0.2384E+00,0.2102E+00,0.1789E+00/ data ((a_asyy(i,j,11 ),i=1,mby), j=1,1 ) / & & 0.5324E+00,0.5169E+00,0.4811E+00,0.4589E+00,0.4449E+00,0.4272E+00, & & 0.3957E+00,0.3664E+00,0.3375E+00,0.3079E+00/ data ((a_exty(i,j,12 ),i=1,mby), j=1,8 ) / & & 0.8629E+00,0.8715E+00,0.8930E+00,0.9073E+00,0.9173E+00,0.9311E+00, & & 0.9576E+00,0.9787E+00,0.9977E+00,0.1004E+01, & & 0.8793E+00,0.8838E+00,0.8954E+00,0.9047E+00,0.9137E+00,0.9279E+00, & & 0.9519E+00,0.9771E+00,0.9989E+00,0.1019E+01, & & 0.8777E+00,0.8831E+00,0.8965E+00,0.9062E+00,0.9141E+00,0.9262E+00, & & 0.9497E+00,0.9737E+00,0.9984E+00,0.1021E+01, & & 0.8839E+00,0.8886E+00,0.9002E+00,0.9086E+00,0.9155E+00,0.9268E+00, & & 0.9508E+00,0.9735E+00,0.9991E+00,0.1024E+01, & & 0.8990E+00,0.9021E+00,0.9098E+00,0.9160E+00,0.9219E+00,0.9322E+00, & & 0.9531E+00,0.9738E+00,0.9984E+00,0.1025E+01, & & 0.9067E+00,0.9113E+00,0.9224E+00,0.9293E+00,0.9335E+00,0.9397E+00, & & 0.9585E+00,0.9766E+00,0.9990E+00,0.1023E+01, & & 0.9296E+00,0.9329E+00,0.9409E+00,0.9461E+00,0.9497E+00,0.9550E+00, & & 0.9668E+00,0.9813E+00,0.9994E+00,0.1018E+01, & & 0.9437E+00,0.9462E+00,0.9524E+00,0.9566E+00,0.9596E+00,0.9641E+00, & & 0.9729E+00,0.9851E+00,0.9998E+00,0.1013E+01/ data ((a_ssay(i,j,12 ),i=1,mby), j=1,8 ) / & & 0.9998E+00,0.9998E+00,0.9998E+00,0.9999E+00,0.9999E+00,0.1000E+01, & & 0.1000E+01,0.1000E+01,0.1000E+01,0.1000E+01, & & 0.9995E+00,0.9998E+00,0.1000E+01,0.1000E+01,0.1000E+01,0.1000E+01, & & 0.1000E+01,0.1000E+01,0.1000E+01,0.1000E+01, & & 0.9995E+00,0.9998E+00,0.1000E+01,0.1000E+01,0.1000E+01,0.1000E+01, & & 0.1000E+01,0.1000E+01,0.1000E+01,0.1000E+01, & & 0.1000E+01,0.1000E+01,0.1000E+01,0.1000E+01,0.1000E+01,0.1000E+01, & & 0.1000E+01,0.1000E+01,0.1000E+01,0.1000E+01, & & 0.1000E+01,0.1000E+01,0.1000E+01,0.1000E+01,0.1000E+01,0.1000E+01, & & 0.1000E+01,0.1000E+01,0.1000E+01,0.1000E+01, & & 0.1000E+01,0.1000E+01,0.1000E+01,0.1000E+01,0.1000E+01,0.1000E+01, & & 0.1000E+01,0.1000E+01,0.1000E+01,0.1000E+01, & & 0.1000E+01,0.1000E+01,0.1000E+01,0.1000E+01,0.1000E+01,0.1000E+01, & & 0.1000E+01,0.1000E+01,0.1000E+01,0.1000E+01, & & 0.1000E+01,0.1000E+01,0.1000E+01,0.1000E+01,0.1000E+01,0.1000E+01, & & 0.1000E+01,0.1000E+01,0.1000E+01,0.1000E+01/ data ((a_asyy(i,j,12 ),i=1,mby), j=1,8 ) / & & 0.7300E+00,0.7254E+00,0.7146E+00,0.7078E+00,0.7037E+00,0.6998E+00, & & 0.6978E+00,0.6951E+00,0.6925E+00,0.6965E+00, & & 0.7850E+00,0.7850E+00,0.7846E+00,0.7830E+00,0.7798E+00,0.7750E+00, & & 0.7740E+00,0.7708E+00,0.7710E+00,0.7724E+00, & & 0.8029E+00,0.8004E+00,0.7945E+00,0.7909E+00,0.7889E+00,0.7866E+00, & & 0.7831E+00,0.7799E+00,0.7783E+00,0.7800E+00, & & 0.8050E+00,0.8040E+00,0.8015E+00,0.7996E+00,0.7980E+00,0.7950E+00, & & 0.7895E+00,0.7869E+00,0.7840E+00,0.7844E+00, & & 0.8178E+00,0.8169E+00,0.8146E+00,0.8127E+00,0.8108E+00,0.8072E+00, & & 0.8002E+00,0.7963E+00,0.7933E+00,0.7912E+00, & & 0.8304E+00,0.8287E+00,0.8246E+00,0.8224E+00,0.8216E+00,0.8198E+00, & & 0.8116E+00,0.8061E+00,0.8009E+00,0.7985E+00, & & 0.8380E+00,0.8380E+00,0.8378E+00,0.8367E+00,0.8345E+00,0.8309E+00, & & 0.8271E+00,0.8189E+00,0.8136E+00,0.8086E+00, & & 0.8448E+00,0.8449E+00,0.8450E+00,0.8444E+00,0.8431E+00,0.8406E+00, & & 0.8373E+00,0.8299E+00,0.8244E+00,0.8185E+00/ data ((a_exty(i,j,13 ),i=1,mby), j=1,8 ) / & & 0.9630E+00,0.9648E+00,0.9695E+00,0.9730E+00,0.9758E+00,0.9790E+00, & & 0.9821E+00,0.9899E+00,0.9980E+00,0.1007E+01, & & 0.9727E+00,0.9743E+00,0.9783E+00,0.9809E+00,0.9829E+00,0.9856E+00, & & 0.9907E+00,0.9950E+00,0.9993E+00,0.1006E+01, & & 0.9761E+00,0.9773E+00,0.9805E+00,0.9827E+00,0.9844E+00,0.9866E+00, & & 0.9897E+00,0.9943E+00,0.9997E+00,0.1006E+01, & & 0.9762E+00,0.9780E+00,0.9824E+00,0.9849E+00,0.9862E+00,0.9877E+00, & & 0.9924E+00,0.9962E+00,0.1000E+01,0.1007E+01, & & 0.9811E+00,0.9821E+00,0.9844E+00,0.9861E+00,0.9874E+00,0.9893E+00, & & 0.9931E+00,0.9972E+00,0.1000E+01,0.1005E+01, & & 0.9831E+00,0.9837E+00,0.9852E+00,0.9861E+00,0.9868E+00,0.9880E+00, & & 0.9925E+00,0.9962E+00,0.9997E+00,0.1004E+01, & & 0.9858E+00,0.9865E+00,0.9882E+00,0.9894E+00,0.9904E+00,0.9918E+00, & & 0.9948E+00,0.9969E+00,0.9997E+00,0.1003E+01, & & 0.9901E+00,0.9891E+00,0.9872E+00,0.9870E+00,0.9887E+00,0.9911E+00, & & 0.9895E+00,0.9966E+00,0.9997E+00,0.1002E+01/ data ((a_ssay(i,j,13 ),i=1,mby), j=1,8 ) / & & 0.9974E+00,0.9980E+00,0.9990E+00,0.9994E+00,0.9996E+00,0.9998E+00, & & 0.1000E+01,0.1000E+01,0.1000E+01,0.1000E+01, & & 0.9995E+00,0.9995E+00,0.9995E+00,0.9997E+00,0.9999E+00,0.1000E+01, & & 0.1000E+01,0.1000E+01,0.1000E+01,0.1000E+01, & & 0.9994E+00,0.9995E+00,0.9997E+00,0.9999E+00,0.9999E+00,0.1000E+01, & & 0.1000E+01,0.1000E+01,0.1000E+01,0.1000E+01, & & 0.9994E+00,0.9995E+00,0.9997E+00,0.9999E+00,0.9999E+00,0.1000E+01, & & 0.1000E+01,0.1000E+01,0.1000E+01,0.1000E+01, & & 0.9996E+00,0.9997E+00,0.9998E+00,0.9999E+00,0.9999E+00,0.1000E+01, & & 0.1000E+01,0.1000E+01,0.1000E+01,0.1000E+01, & & 0.9998E+00,0.9998E+00,0.9998E+00,0.9999E+00,0.9999E+00,0.1000E+01, & & 0.1000E+01,0.1000E+01,0.1000E+01,0.1000E+01, & & 0.9995E+00,0.9998E+00,0.1000E+01,0.1000E+01,0.1000E+01,0.1000E+01, & & 0.1000E+01,0.1000E+01,0.1000E+01,0.1000E+01, & & 0.9995E+00,0.9998E+00,0.1000E+01,0.1000E+01,0.1000E+01,0.1000E+01, & & 0.1000E+01,0.1000E+01,0.1000E+01,0.1000E+01/ data ((a_asyy(i,j,13 ),i=1,mby), j=1,8 ) / & & 0.8085E+00,0.8092E+00,0.8108E+00,0.8106E+00,0.8085E+00,0.8049E+00, & & 0.8045E+00,0.8017E+00,0.7964E+00,0.7932E+00, & & 0.8452E+00,0.8456E+00,0.8467E+00,0.8476E+00,0.8486E+00,0.8498E+00, & & 0.8505E+00,0.8504E+00,0.8469E+00,0.8464E+00, & & 0.8483E+00,0.8481E+00,0.8480E+00,0.8486E+00,0.8500E+00,0.8530E+00, & & 0.8581E+00,0.8557E+00,0.8506E+00,0.8505E+00, & & 0.8373E+00,0.8422E+00,0.8535E+00,0.8586E+00,0.8582E+00,0.8542E+00, & & 0.8541E+00,0.8559E+00,0.8570E+00,0.8549E+00, & & 0.8441E+00,0.8465E+00,0.8523E+00,0.8548E+00,0.8546E+00,0.8539E+00, & & 0.8614E+00,0.8626E+00,0.8604E+00,0.8586E+00, & & 0.8390E+00,0.8405E+00,0.8443E+00,0.8471E+00,0.8495E+00,0.8536E+00, & & 0.8641E+00,0.8666E+00,0.8629E+00,0.8652E+00, & & 0.8385E+00,0.8383E+00,0.8382E+00,0.8405E+00,0.8455E+00,0.8545E+00, & & 0.8586E+00,0.8622E+00,0.8680E+00,0.8681E+00, & & 0.8070E+00,0.8121E+00,0.8244E+00,0.8326E+00,0.8384E+00,0.8465E+00, & & 0.8575E+00,0.8605E+00,0.8671E+00,0.8673E+00/ data ((a_exty(i,j,14 ),i=1,mby), j=1,1 ) / & & 0.1013E+01,0.1007E+01,0.9897E+00,0.9760E+00,0.9624E+00,0.9367E+00, & & 0.8702E+00,0.7911E+00,0.6970E+00,0.5919E+00/ data ((a_ssay(i,j,14 ),i=1,mby), j=1,1 ) / & & 0.7841E+00,0.7925E+00,0.8134E+00,0.8331E+00,0.8543E+00,0.8839E+00, & & 0.9211E+00,0.9491E+00,0.9647E+00,0.9740E+00/ data ((a_asyy(i,j,14 ),i=1,mby), j=1,1 ) / & & 0.7398E+00,0.7359E+00,0.7260E+00,0.7185E+00,0.7118E+00,0.7018E+00, & & 0.6876E+00,0.6759E+00,0.6649E+00,0.6521E+00/ data ((a_exty(i,j,15 ),i=1,mby), j=1,1 ) / & & 0.8958E+00,0.8998E+00,0.9097E+00,0.9170E+00,0.9230E+00,0.9325E+00, & & 0.9520E+00,0.9736E+00,0.9984E+00,0.1028E+01/ data ((a_ssay(i,j,15 ),i=1,mby), j=1,1 ) / & & 0.5676E+00,0.5719E+00,0.5844E+00,0.6014E+00,0.6254E+00,0.6655E+00, & & 0.7403E+00,0.8148E+00,0.8711E+00,0.9093E+00/ data ((a_asyy(i,j,15 ),i=1,mby), j=1,1 ) / & & 0.9144E+00,0.9086E+00,0.8938E+00,0.8802E+00,0.8654E+00,0.8411E+00, & & 0.8007E+00,0.7640E+00,0.7372E+00,0.7162E+00/ data ((a_exty(i,j,16 ),i=1,mby), j=1,1 ) / & & 0.9717E+00,0.9730E+00,0.9761E+00,0.9783E+00,0.9801E+00,0.9828E+00, & & 0.9880E+00,0.9935E+00,0.9996E+00,0.1007E+01/ data ((a_ssay(i,j,16 ),i=1,mby), j=1,1 ) / & & 0.5462E+00,0.5457E+00,0.5448E+00,0.5454E+00,0.5477E+00,0.5523E+00, & & 0.5714E+00,0.6059E+00,0.6601E+00,0.7118E+00/ data ((a_asyy(i,j,16 ),i=1,mby), j=1,1 ) / & & 0.9433E+00,0.9447E+00,0.9478E+00,0.9490E+00,0.9485E+00,0.9466E+00, & & 0.9380E+00,0.9212E+00,0.8973E+00,0.8741E+00/ data ((a_exty(i,j,17 ),i=1,mby), j=1,1 ) / & & 0.9243E+00,0.9273E+00,0.9348E+00,0.9403E+00,0.9447E+00,0.9516E+00, & & 0.9657E+00,0.9810E+00,0.9986E+00,0.1019E+01/ data ((a_ssay(i,j,17 ),i=1,mby), j=1,1 ) / & & 0.5535E+00,0.5553E+00,0.5615E+00,0.5724E+00,0.5898E+00,0.6205E+00, & & 0.6873E+00,0.7635E+00,0.8289E+00,0.8763E+00/ data ((a_asyy(i,j,17 ),i=1,mby), j=1,1 ) / & & 0.9371E+00,0.9340E+00,0.9257E+00,0.9168E+00,0.9057E+00,0.8860E+00, & & 0.8473E+00,0.8087E+00,0.7784E+00,0.7532E+00/ data ((a_exty(i,j,18 ),i=1,mby), j=1,8 ) / & & 0.1618E+01,0.1603E+01,0.1566E+01,0.1534E+01,0.1500E+01,0.1438E+01, & & 0.1299E+01,0.1155E+01,0.1009E+01,0.8521E+00, & & 0.1357E+01,0.1352E+01,0.1341E+01,0.1329E+01,0.1315E+01,0.1285E+01, & & 0.1207E+01,0.1115E+01,0.1006E+01,0.8812E+00, & & 0.1272E+01,0.1271E+01,0.1268E+01,0.1263E+01,0.1255E+01,0.1235E+01, & & 0.1175E+01,0.1100E+01,0.1006E+01,0.8928E+00, & & 0.1210E+01,0.1211E+01,0.1215E+01,0.1215E+01,0.1211E+01,0.1198E+01, & & 0.1152E+01,0.1089E+01,0.1005E+01,0.9023E+00, & & 0.1120E+01,0.1125E+01,0.1137E+01,0.1143E+01,0.1144E+01,0.1139E+01, & & 0.1112E+01,0.1069E+01,0.1004E+01,0.9180E+00, & & 0.1033E+01,0.1040E+01,0.1057E+01,0.1067E+01,0.1073E+01,0.1077E+01, & & 0.1070E+01,0.1047E+01,0.1002E+01,0.9381E+00, & & 0.9487E+00,0.9569E+00,0.9770E+00,0.9906E+00,0.1000E+01,0.1012E+01, & & 0.1022E+01,0.1020E+01,0.1001E+01,0.9637E+00, & & 0.9078E+00,0.9155E+00,0.9348E+00,0.9483E+00,0.9585E+00,0.9724E+00, & & 0.9917E+00,0.1002E+01,0.1000E+01,0.9817E+00/ data ((a_ssay(i,j,18 ),i=1,mby), j=1,8 ) / & & 0.1000E+01,0.1000E+01,0.1000E+01,0.1000E+01,0.1000E+01,0.1000E+01, & & 0.1000E+01,0.1000E+01,0.1000E+01,0.1000E+01, & & 0.1000E+01,0.1000E+01,0.1000E+01,0.1000E+01,0.1000E+01,0.1000E+01, & & 0.1000E+01,0.1000E+01,0.1000E+01,0.1000E+01, & & 0.1000E+01,0.1000E+01,0.1000E+01,0.1000E+01,0.1000E+01,0.1000E+01, & & 0.1000E+01,0.1000E+01,0.1000E+01,0.1000E+01, & & 0.1000E+01,0.1000E+01,0.1000E+01,0.1000E+01,0.1000E+01,0.1000E+01, & & 0.1000E+01,0.1000E+01,0.1000E+01,0.1000E+01, & & 0.1000E+01,0.1000E+01,0.1000E+01,0.1000E+01,0.1000E+01,0.1000E+01, & & 0.1000E+01,0.1000E+01,0.1000E+01,0.1000E+01, & & 0.1000E+01,0.1000E+01,0.1000E+01,0.1000E+01,0.1000E+01,0.1000E+01, & & 0.1000E+01,0.1000E+01,0.1000E+01,0.1000E+01, & & 0.1000E+01,0.1000E+01,0.1000E+01,0.1000E+01,0.1000E+01,0.1000E+01, & & 0.1000E+01,0.1000E+01,0.1000E+01,0.1000E+01, & & 0.1000E+01,0.1000E+01,0.1000E+01,0.1000E+01,0.1000E+01,0.1000E+01, & & 0.1000E+01,0.1000E+01,0.1000E+01,0.1000E+01/ data ((a_asyy(i,j,18 ),i=1,mby), j=1,8 ) / & & 0.6955E+00,0.6978E+00,0.7034E+00,0.7076E+00,0.7112E+00,0.7165E+00, & & 0.7227E+00,0.7231E+00,0.7172E+00,0.7080E+00, & & 0.7408E+00,0.7444E+00,0.7532E+00,0.7586E+00,0.7617E+00,0.7650E+00, & & 0.7706E+00,0.7717E+00,0.7690E+00,0.7634E+00, & & 0.7498E+00,0.7529E+00,0.7606E+00,0.7656E+00,0.7690E+00,0.7729E+00, & & 0.7779E+00,0.7797E+00,0.7779E+00,0.7743E+00, & & 0.7559E+00,0.7590E+00,0.7664E+00,0.7709E+00,0.7734E+00,0.7762E+00, & & 0.7818E+00,0.7840E+00,0.7837E+00,0.7803E+00, & & 0.7601E+00,0.7631E+00,0.7703E+00,0.7748E+00,0.7776E+00,0.7810E+00, & & 0.7867E+00,0.7894E+00,0.7900E+00,0.7891E+00, & & 0.7657E+00,0.7684E+00,0.7749E+00,0.7789E+00,0.7814E+00,0.7842E+00, & & 0.7890E+00,0.7928E+00,0.7948E+00,0.7949E+00, & & 0.7749E+00,0.7765E+00,0.7802E+00,0.7825E+00,0.7836E+00,0.7853E+00, & & 0.7906E+00,0.7940E+00,0.7975E+00,0.7987E+00, & & 0.7795E+00,0.7808E+00,0.7838E+00,0.7856E+00,0.7865E+00,0.7876E+00, & & 0.7909E+00,0.7937E+00,0.7967E+00,0.7995E+00/ end module aerosol2 module opac_ext implicit none integer, private :: i, j real :: wl(24) ,edat(24,8,9:18) data wl / & & 0.2500E+00,0.3000E+00,0.3500E+00,0.4000E+00,0.4500E+00,0.5000E+00, & & 0.5500E+00,0.6000E+00,0.6500E+00,0.7000E+00,0.7500E+00,0.8000E+00, & & 0.9000E+00,0.1000E+01,0.1250E+01,0.1500E+01,0.1750E+01,0.2000E+01, & & 0.2500E+01,0.3000E+01,0.3200E+01,0.3390E+01,0.3500E+01,0.3750E+01/ data (( edat(i,j, 9),i=1,24), j=1,1 ) / & & 0.9477E+00,0.9572E+00,0.9667E+00,0.9748E+00,0.9839E+00,0.9916E+00, & & 0.1000E+01,0.1008E+01,0.1016E+01,0.1024E+01,0.1031E+01,0.1038E+01, & & 0.1052E+01,0.1064E+01,0.1093E+01,0.1105E+01,0.1088E+01,0.1012E+01, & & 0.7983E+00,0.6625E+00,0.7897E+00,0.8403E+00,0.8668E+00,0.8205E+00/ data (( edat(i,j,10),i=1,24), j=1,8 ) / & & 0.2438E+01,0.2095E+01,0.1793E+01,0.1539E+01,0.1326E+01,0.1148E+01, & & 0.1000E+01,0.8739E+00,0.7689E+00,0.6782E+00,0.6032E+00,0.5249E+00, & & 0.4251E+00,0.3497E+00,0.2191E+00,0.1520E+00,0.9186E-01,0.4897E-01, & & 0.3146E-01,0.2746E-01,0.1577E-01,0.1314E-01,0.1167E-01,0.9260E-02, & & 0.2373E+01,0.2044E+01,0.1758E+01,0.1516E+01,0.1314E+01,0.1144E+01, & & 0.1000E+01,0.8785E+00,0.7759E+00,0.6882E+00,0.6135E+00,0.5395E+00, & & 0.4380E+00,0.3605E+00,0.2271E+00,0.1560E+00,0.9755E-01,0.5793E-01, & & 0.3256E-01,0.1309E+00,0.5573E-01,0.2602E-01,0.1914E-01,0.1332E-01, & & 0.2319E+01,0.2006E+01,0.1733E+01,0.1501E+01,0.1306E+01,0.1140E+01, & & 0.1000E+01,0.8812E+00,0.7803E+00,0.6942E+00,0.6199E+00,0.5477E+00, & & 0.4458E+00,0.3676E+00,0.2326E+00,0.1597E+00,0.1014E+00,0.6249E-01, & & 0.3361E-01,0.1628E+00,0.6956E-01,0.3125E-01,0.2246E-01,0.1529E-01, & & 0.2263E+01,0.1967E+01,0.1708E+01,0.1485E+01,0.1298E+01,0.1137E+01, & & 0.1000E+01,0.8840E+00,0.7847E+00,0.7002E+00,0.6264E+00,0.5557E+00, & & 0.4536E+00,0.3748E+00,0.2386E+00,0.1639E+00,0.1054E+00,0.6684E-01, & & 0.3483E-01,0.1857E+00,0.8036E-01,0.3571E-01,0.2545E-01,0.1714E-01, & & 0.2143E+01,0.1884E+01,0.1653E+01,0.1451E+01,0.1279E+01,0.1130E+01, & & 0.1000E+01,0.8897E+00,0.7942E+00,0.7128E+00,0.6405E+00,0.5724E+00, & & 0.4705E+00,0.3910E+00,0.2521E+00,0.1741E+00,0.1146E+00,0.7589E-01, & & 0.3791E-01,0.2186E+00,0.9814E-01,0.4402E-01,0.3134E-01,0.2095E-01, & & 0.2000E+01,0.1785E+01,0.1588E+01,0.1410E+01,0.1257E+01,0.1120E+01, & & 0.1000E+01,0.8968E+00,0.8062E+00,0.7286E+00,0.6585E+00,0.5932E+00, & & 0.4922E+00,0.4122E+00,0.2707E+00,0.1887E+00,0.1272E+00,0.8739E-01, & & 0.4252E-01,0.2441E+00,0.1154E+00,0.5345E-01,0.3848E-01,0.2582E-01, & & 0.1809E+01,0.1650E+01,0.1497E+01,0.1353E+01,0.1224E+01,0.1106E+01, & & 0.1000E+01,0.9072E+00,0.8240E+00,0.7520E+00,0.6856E+00,0.6241E+00, & & 0.5252E+00,0.4454E+00,0.3007E+00,0.2134E+00,0.1481E+00,0.1055E+00, & & 0.5081E-01,0.2683E+00,0.1372E+00,0.6728E-01,0.4955E-01,0.3371E-01, & & 0.1686E+01,0.1563E+01,0.1437E+01,0.1314E+01,0.1202E+01,0.1097E+01, & & 0.1000E+01,0.9142E+00,0.8366E+00,0.7687E+00,0.7051E+00,0.6462E+00, & & 0.5496E+00,0.4702E+00,0.3238E+00,0.2331E+00,0.1648E+00,0.1196E+00, & & 0.5785E-01,0.2815E+00,0.1521E+00,0.7776E-01,0.5825E-01,0.4012E-01/ data (( edat(i,j,11),i=1,24), j=1,1 ) / & & 0.2447E+01,0.2188E+01,0.1837E+01,0.1555E+01,0.1331E+01,0.1153E+01, & & 0.1000E+01,0.8818E+00,0.7906E+00,0.7082E+00,0.6445E+00,0.5904E+00, & & 0.5087E+00,0.4453E+00,0.3412E+00,0.2767E+00,0.2367E+00,0.2055E+00, & & 0.1639E+00,0.1398E+00,0.1284E+00,0.1218E+00,0.1189E+00,0.1105E+00/ data (( edat(i,j,12),i=1,24), j=1,8 ) / & & 0.8801E+00,0.9114E+00,0.9354E+00,0.9580E+00,0.9733E+00,0.9887E+00, & & 0.1000E+01,0.1002E+01,0.1005E+01,0.1003E+01,0.9963E+00,0.9846E+00, & & 0.9618E+00,0.9232E+00,0.8315E+00,0.7230E+00,0.6190E+00,0.5382E+00, & & 0.3864E+00,0.4589E+00,0.3172E+00,0.2808E+00,0.2656E+00,0.2284E+00, & & 0.8883E+00,0.9080E+00,0.9321E+00,0.9508E+00,0.9715E+00,0.9866E+00, & & 0.1000E+01,0.1013E+01,0.1021E+01,0.1026E+01,0.1030E+01,0.1030E+01, & & 0.1023E+01,0.1009E+01,0.9498E+00,0.8710E+00,0.7792E+00,0.6931E+00, & & 0.4881E+00,0.6444E+00,0.6217E+00,0.5226E+00,0.4772E+00,0.4012E+00, & & 0.8884E+00,0.9093E+00,0.9300E+00,0.9493E+00,0.9672E+00,0.9853E+00, & & 0.1000E+01,0.1012E+01,0.1023E+01,0.1031E+01,0.1036E+01,0.1040E+01, & & 0.1041E+01,0.1032E+01,0.9874E+00,0.9212E+00,0.8368E+00,0.7534E+00, & & 0.5404E+00,0.6945E+00,0.6969E+00,0.5975E+00,0.5486E+00,0.4654E+00, & & 0.8932E+00,0.9113E+00,0.9305E+00,0.9508E+00,0.9671E+00,0.9850E+00, & & 0.1000E+01,0.1016E+01,0.1025E+01,0.1035E+01,0.1044E+01,0.1050E+01, & & 0.1054E+01,0.1052E+01,0.1020E+01,0.9637E+00,0.8874E+00,0.8075E+00, & & 0.5909E+00,0.7366E+00,0.7591E+00,0.6629E+00,0.6126E+00,0.5246E+00, & & 0.9051E+00,0.9182E+00,0.9355E+00,0.9528E+00,0.9682E+00,0.9843E+00, & & 0.1000E+01,0.1014E+01,0.1028E+01,0.1040E+01,0.1050E+01,0.1059E+01, & & 0.1072E+01,0.1077E+01,0.1070E+01,0.1036E+01,0.9774E+00,0.9089E+00, & & 0.6961E+00,0.8117E+00,0.8691E+00,0.7870E+00,0.7377E+00,0.6452E+00, & & 0.9158E+00,0.9311E+00,0.9419E+00,0.9586E+00,0.9717E+00,0.9857E+00, & & 0.1000E+01,0.1015E+01,0.1025E+01,0.1037E+01,0.1052E+01,0.1062E+01, & & 0.1080E+01,0.1094E+01,0.1109E+01,0.1098E+01,0.1064E+01,0.1013E+01, & & 0.8218E+00,0.8883E+00,0.9782E+00,0.9207E+00,0.8777E+00,0.7878E+00, & & 0.9361E+00,0.9476E+00,0.9567E+00,0.9668E+00,0.9761E+00,0.9905E+00, & & 0.1000E+01,0.1010E+01,0.1019E+01,0.1030E+01,0.1041E+01,0.1051E+01, & & 0.1075E+01,0.1090E+01,0.1126E+01,0.1144E+01,0.1141E+01,0.1122E+01, & & 0.9894E+00,0.9762E+00,0.1094E+01,0.1079E+01,0.1052E+01,0.9811E+00, & & 0.9487E+00,0.9578E+00,0.9655E+00,0.9729E+00,0.9804E+00,0.9933E+00, & & 0.1000E+01,0.1008E+01,0.1014E+01,0.1023E+01,0.1033E+01,0.1042E+01, & & 0.1064E+01,0.1079E+01,0.1119E+01,0.1148E+01,0.1164E+01,0.1166E+01, & & 0.1091E+01,0.1025E+01,0.1148E+01,0.1162E+01,0.1150E+01,0.1102E+01/ data (( edat(i,j,13),i=1,24), j=1,8 ) / & & 0.9667E+00,0.9741E+00,0.9797E+00,0.9810E+00,0.9885E+00,0.9930E+00, & & 0.1000E+01,0.9993E+00,0.1010E+01,0.1015E+01,0.1013E+01,0.1015E+01, & & 0.1029E+01,0.1039E+01,0.1062E+01,0.1075E+01,0.1107E+01,0.1123E+01, & & 0.1170E+01,0.1175E+01,0.1208E+01,0.1222E+01,0.1228E+01,0.1241E+01, & & 0.9759E+00,0.9817E+00,0.9864E+00,0.9907E+00,0.9941E+00,0.9969E+00, & & 0.1000E+01,0.1001E+01,0.1008E+01,0.1011E+01,0.1014E+01,0.1016E+01, & & 0.1023E+01,0.1027E+01,0.1041E+01,0.1060E+01,0.1073E+01,0.1093E+01, & & 0.1134E+01,0.1094E+01,0.1129E+01,0.1156E+01,0.1167E+01,0.1188E+01, & & 0.9786E+00,0.9834E+00,0.9872E+00,0.9894E+00,0.9929E+00,0.9969E+00, & & 0.1000E+01,0.1003E+01,0.1006E+01,0.1010E+01,0.1013E+01,0.1014E+01, & & 0.1019E+01,0.1028E+01,0.1040E+01,0.1051E+01,0.1070E+01,0.1082E+01, & & 0.1121E+01,0.1083E+01,0.1116E+01,0.1140E+01,0.1151E+01,0.1172E+01, & & 0.9798E+00,0.9855E+00,0.9882E+00,0.9925E+00,0.9953E+00,0.9978E+00, & & 0.1000E+01,0.1005E+01,0.1007E+01,0.1010E+01,0.1015E+01,0.1014E+01, & & 0.1021E+01,0.1023E+01,0.1040E+01,0.1051E+01,0.1064E+01,0.1078E+01, & & 0.1113E+01,0.1079E+01,0.1109E+01,0.1130E+01,0.1141E+01,0.1159E+01, & & 0.9830E+00,0.9866E+00,0.9899E+00,0.9929E+00,0.9965E+00,0.9983E+00, & & 0.1000E+01,0.1003E+01,0.1006E+01,0.1009E+01,0.1012E+01,0.1014E+01, & & 0.1018E+01,0.1024E+01,0.1035E+01,0.1042E+01,0.1054E+01,0.1065E+01, & & 0.1097E+01,0.1069E+01,0.1095E+01,0.1111E+01,0.1120E+01,0.1136E+01, & & 0.9843E+00,0.9864E+00,0.9885E+00,0.9925E+00,0.9954E+00,0.9977E+00, & & 0.1000E+01,0.1002E+01,0.1005E+01,0.1006E+01,0.1010E+01,0.1010E+01, & & 0.1015E+01,0.1016E+01,0.1029E+01,0.1038E+01,0.1044E+01,0.1056E+01, & & 0.1078E+01,0.1060E+01,0.1080E+01,0.1093E+01,0.1100E+01,0.1112E+01, & & 0.9872E+00,0.9898E+00,0.9923E+00,0.9948E+00,0.9966E+00,0.9977E+00, & & 0.1000E+01,0.1002E+01,0.1004E+01,0.1002E+01,0.1007E+01,0.1009E+01, & & 0.1013E+01,0.1016E+01,0.1025E+01,0.1032E+01,0.1040E+01,0.1046E+01, & & 0.1060E+01,0.1052E+01,0.1066E+01,0.1075E+01,0.1079E+01,0.1087E+01, & & 0.9882E+00,0.9875E+00,0.9913E+00,0.9877E+00,0.9953E+00,0.9983E+00, & & 0.1000E+01,0.1001E+01,0.1003E+01,0.1004E+01,0.1006E+01,0.1007E+01, & & 0.1010E+01,0.1013E+01,0.1020E+01,0.1026E+01,0.1032E+01,0.1038E+01, & & 0.1049E+01,0.1044E+01,0.1056E+01,0.1063E+01,0.1066E+01,0.1071E+01/ data (( edat(i,j,14),i=1,24), j=1,1 ) / & & 0.1000E+01,0.9711E+00,0.9279E+00,0.8725E+00,0.8129E+00,0.7512E+00, & & 0.6916E+00,0.6347E+00,0.5817E+00,0.5327E+00,0.4879E+00,0.4470E+00, & & 0.3760E+00,0.3175E+00,0.2129E+00,0.1474E+00,0.1051E+00,0.7735E-01, & & 0.4556E-01,0.3771E-01,0.2699E-01,0.2199E-01,0.1993E-01,0.1462E-01/ data (( edat(i,j,15),i=1,24), j=1,1 ) / & & 0.9037E+00,0.9193E+00,0.9354E+00,0.9513E+00,0.9682E+00,0.9837E+00, & & 0.1000E+01,0.1015E+01,0.1031E+01,0.1045E+01,0.1056E+01,0.1069E+01, & & 0.1088E+01,0.1103E+01,0.1117E+01,0.1105E+01,0.1074E+01,0.1030E+01, & & 0.9115E+00,0.7974E+00,0.7466E+00,0.7089E+00,0.6875E+00,0.6277E+00/ data (( edat(i,j,16),i=1,24), j=1,1 ) / & & 0.9742E+00,0.9790E+00,0.9836E+00,0.9878E+00,0.9922E+00,0.9959E+00, & & 0.1000E+01,0.1004E+01,0.1008E+01,0.1012E+01,0.1014E+01,0.1018E+01, & & 0.1026E+01,0.1032E+01,0.1048E+01,0.1065E+01,0.1082E+01,0.1096E+01, & & 0.1128E+01,0.1151E+01,0.1167E+01,0.1178E+01,0.1184E+01,0.1199E+01/ data (( edat(i,j,17),i=1,24), j=1,1 ) / & & 0.9303E+00,0.9420E+00,0.9537E+00,0.9652E+00,0.9773E+00,0.9879E+00, & & 0.1000E+01,0.1010E+01,0.1021E+01,0.1032E+01,0.1042E+01,0.1052E+01, & & 0.1073E+01,0.1089E+01,0.1124E+01,0.1145E+01,0.1158E+01,0.1155E+01, & & 0.1123E+01,0.1056E+01,0.1031E+01,0.1010E+01,0.9970E+00,0.9592E+00/ data (( edat(i,j,18),i=1,24), j=1,8 ) / & & 0.1589E+01,0.1522E+01,0.1418E+01,0.1303E+01,0.1190E+01,0.1092E+01, & & 0.1000E+01,0.9143E+00,0.8376E+00,0.7654E+00,0.6996E+00,0.6399E+00, & & 0.5385E+00,0.4523E+00,0.2965E+00,0.1989E+00,0.1377E+00,0.9764E-01, & & 0.4830E-01,0.9007E-01,0.1102E+00,0.1189E+00,0.1158E+00,0.9204E-01, & & 0.1348E+01,0.1324E+01,0.1275E+01,0.1210E+01,0.1140E+01,0.1070E+01, & & 0.1000E+01,0.9327E+00,0.8690E+00,0.8095E+00,0.7523E+00,0.6989E+00, & & 0.6053E+00,0.5239E+00,0.3671E+00,0.2634E+00,0.1894E+00,0.1396E+00, & & 0.6786E-01,0.2235E+00,0.1501E+00,0.1073E+00,0.9444E-01,0.7255E-01, & & 0.1270E+01,0.1260E+01,0.1228E+01,0.1178E+01,0.1121E+01,0.1062E+01, & & 0.1000E+01,0.9397E+00,0.8817E+00,0.8269E+00,0.7733E+00,0.7227E+00, & & 0.6326E+00,0.5533E+00,0.3966E+00,0.2903E+00,0.2118E+00,0.1581E+00, & & 0.7746E-01,0.2542E+00,0.1694E+00,0.1142E+00,0.9794E-01,0.7432E-01, & & 0.1213E+01,0.1214E+01,0.1193E+01,0.1154E+01,0.1107E+01,0.1055E+01, & & 0.1000E+01,0.9457E+00,0.8920E+00,0.8410E+00,0.7904E+00,0.7420E+00, & & 0.6550E+00,0.5774E+00,0.4212E+00,0.3129E+00,0.2309E+00,0.1740E+00, & & 0.8606E-01,0.2758E+00,0.1859E+00,0.1223E+00,0.1035E+00,0.7800E-01, & & 0.1130E+01,0.1144E+01,0.1137E+01,0.1114E+01,0.1082E+01,0.1044E+01, & & 0.1000E+01,0.9549E+00,0.9094E+00,0.8652E+00,0.8201E+00,0.7764E+00, & & 0.6957E+00,0.6218E+00,0.4674E+00,0.3562E+00,0.2682E+00,0.2055E+00, & & 0.1039E+00,0.3110E+00,0.2181E+00,0.1419E+00,0.1185E+00,0.8881E-01, & & 0.1047E+01,0.1070E+01,0.1078E+01,0.1072E+01,0.1055E+01,0.1030E+01, & & 0.1000E+01,0.9671E+00,0.9313E+00,0.8955E+00,0.8577E+00,0.8197E+00, & & 0.7476E+00,0.6795E+00,0.5295E+00,0.4157E+00,0.3210E+00,0.2510E+00, & & 0.1311E+00,0.3533E+00,0.2636E+00,0.1744E+00,0.1455E+00,0.1094E+00, & & 0.9649E+00,0.9946E+00,0.1015E+01,0.1023E+01,0.1023E+01,0.1014E+01, & & 0.1000E+01,0.9820E+00,0.9595E+00,0.9353E+00,0.9080E+00,0.8792E+00, & & 0.8213E+00,0.7633E+00,0.6247E+00,0.5105E+00,0.4084E+00,0.3287E+00, & & 0.1810E+00,0.4156E+00,0.3391E+00,0.2356E+00,0.1991E+00,0.1520E+00, & & 0.9232E+00,0.9524E+00,0.9764E+00,0.9920E+00,0.1001E+01,0.1004E+01, & & 0.1000E+01,0.9924E+00,0.9792E+00,0.9644E+00,0.9463E+00,0.9258E+00, & & 0.8810E+00,0.8331E+00,0.7091E+00,0.5986E+00,0.4932E+00,0.4068E+00, & & 0.2352E+00,0.4729E+00,0.4135E+00,0.3016E+00,0.2589E+00,0.2015E+00/ end module opac_ext module mineral_ext implicit none real :: wl(24) ,dat(24,4:8) data wl / & & 0.30, 0.35, 0.40, 0.45, 0.50, 0.55, & & 0.60, 0.65, 0.70, 0.80, 1.00, 1.25, & & 1.50, 2.00, 2.51, 2.61, 2.83, 2.96, & & 3.04, 3.26, 3.47, 3.69, 3.90, 4.11/ data dat/ & & 8.78E-01,9.06E-01,9.36E-01,9.67E-01,1.00E+00,1.03E+00, & & 1.06E+00,1.08E+00,1.09E+00,1.09E+00,1.02E+00,8.70E-01, & & 7.04E-01,4.36E-01,2.08E-01,1.95E-01,1.91E-01,1.73E-01, & & 1.51E-01,1.35E-01,9.41E-02,7.95E-02,6.45E-02,5.36E-02, & & 9.41E-01,9.56E-01,9.70E-01,9.85E-01,1.00E+00,1.02E+00, & & 1.03E+00,1.05E+00,1.07E+00,1.10E+00,1.18E+00,1.25E+00, & & 1.27E+00,1.19E+00,8.64E-01,8.36E-01,7.68E-01,7.25E-01, & & 6.93E-01,6.92E-01,5.44E-01,4.96E-01,4.41E-01,3.93E-01, & & 9.65E-01,9.75E-01,9.83E-01,9.92E-01,1.00E+00,1.01E+00, & & 1.02E+00,1.02E+00,1.03E+00,1.05E+00,1.08E+00,1.12E+00, & & 1.17E+00,1.27E+00,1.34E+00,1.34E+00,1.29E+00,1.29E+00, & & 1.30E+00,1.33E+00,1.27E+00,1.24E+00,1.21E+00,1.17E+00, & & 9.78E-01,9.84E-01,9.89E-01,9.95E-01,1.00E+00,1.00E+00, & & 1.01E+00,1.01E+00,1.02E+00,1.03E+00,1.05E+00,1.07E+00, & & 1.09E+00,1.13E+00,1.19E+00,1.20E+00,1.21E+00,1.22E+00, & & 1.24E+00,1.25E+00,1.29E+00,1.31E+00,1.34E+00,1.36E+00, & & 9.86E-01,9.90E-01,9.93E-01,9.97E-01,1.00E+00,1.00E+00, & & 1.01E+00,1.01E+00,1.01E+00,1.02E+00,1.03E+00,1.04E+00, & & 1.05E+00,1.08E+00,1.10E+00,1.11E+00,1.11E+00,1.12E+00, & & 1.12E+00,1.13E+00,1.14E+00,1.15E+00,1.17E+00,1.18E+00 / end module mineral_ext module dalm_ext implicit none real :: wl(24) ,dat(24,8,3) data wl / & & 0.30, 0.35, 0.40, 0.45, 0.50, 0.55, & & 0.60, 0.65, 0.70, 0.75, 0.80, 0.90, & & 1.00, 1.25, 1.50, 1.75, 2.00, 2.50, & & 3.00, 3.20, 3.39, 3.50, 3.78, 4.00/ data dat/ & & 2.07E-04,2.08E-04,2.08E-04,2.07E-04,2.07E-04,2.08E-04, & & 2.09E-04,2.11E-04,2.12E-04,2.12E-04,2.12E-04,2.09E-04, & & 2.04E-04,1.90E-04,1.79E-04,1.71E-04,1.67E-04,1.63E-04, & & 1.72E-04,1.69E-04,1.62E-04,1.66E-04,1.67E-04,1.67E-04, & & 2.45E-04,2.46E-04,2.45E-04,2.44E-04,2.43E-04,2.43E-04, & & 2.44E-04,2.45E-04,2.46E-04,2.44E-04,2.43E-04,2.38E-04, & & 2.31E-04,2.14E-04,2.01E-04,1.91E-04,1.85E-04,1.79E-04, & & 1.90E-04,1.87E-04,1.83E-04,1.83E-04,1.84E-04,1.84E-04, & & 3.52E-04,3.50E-04,3.50E-04,3.51E-04,3.50E-04,3.47E-04, & & 3.47E-04,3.47E-04,3.49E-04,3.50E-04,3.51E-04,3.51E-04, & & 3.48E-04,3.28E-04,3.10E-04,2.92E-04,2.80E-04,2.63E-04, & & 2.85E-04,2.82E-04,2.71E-04,2.68E-04,2.65E-04,2.65E-04, & & 7.98E-04,7.93E-04,7.87E-04,7.86E-04,7.82E-04,7.80E-04, & & 7.83E-04,7.86E-04,7.86E-04,7.84E-04,7.82E-04,7.83E-04, & & 7.90E-04,8.10E-04,8.05E-04,7.79E-04,7.47E-04,6.70E-04, & & 7.23E-04,7.47E-04,7.11E-04,6.94E-04,6.68E-04,6.55E-04, & & 1.14E-03,1.12E-03,1.12E-03,1.11E-03,1.11E-03,1.11E-03, & & 1.11E-03,1.11E-03,1.11E-03,1.11E-03,1.11E-03,1.11E-03, & & 1.11E-03,1.13E-03,1.15E-03,1.14E-03,1.11E-03,9.98E-04, & & 1.05E-03,1.10E-03,1.06E-03,1.04E-03,9.94E-04,9.67E-04, & & 1.69E-03,1.67E-03,1.66E-03,1.64E-03,1.64E-03,1.63E-03, & & 1.63E-03,1.62E-03,1.62E-03,1.61E-03,1.62E-03,1.63E-03, & & 1.63E-03,1.62E-03,1.65E-03,1.68E-03,1.67E-03,1.54E-03, & & 1.56E-03,1.65E-03,1.64E-03,1.61E-03,1.53E-03,1.49E-03, & & 2.88E-03,2.87E-03,2.86E-03,2.83E-03,2.82E-03,2.80E-03, & & 2.78E-03,2.76E-03,2.74E-03,2.76E-03,2.75E-03,2.74E-03, & & 2.74E-03,2.76E-03,2.75E-03,2.78E-03,2.83E-03,2.79E-03, & & 2.69E-03,2.83E-03,2.89E-03,2.88E-03,2.81E-03,2.73E-03, & & 4.24E-03,4.27E-03,4.26E-03,4.26E-03,4.24E-03,4.21E-03, & & 4.18E-03,4.16E-03,4.14E-03,4.13E-03,4.11E-03,4.09E-03, & & 4.09E-03,4.06E-03,4.09E-03,4.08E-03,4.10E-03,4.22E-03, & & 4.02E-03,4.16E-03,4.26E-03,4.30E-03,4.31E-03,4.25E-03, & & 1.76E-05,1.57E-05,1.40E-05,1.25E-05,1.11E-05,9.95E-06, & & 8.91E-06,8.01E-06,7.21E-06,6.53E-06,5.78E-06,4.79E-06, & & 4.05E-06,2.66E-06,1.46E-06,1.02E-06,1.33E-06,4.35E-07, & & 3.49E-07,2.36E-07,2.02E-07,1.90E-07,1.54E-07,1.39E-07, & & 1.76E-05,1.57E-05,1.40E-05,1.25E-05,1.11E-05,9.95E-06, & & 8.91E-06,8.01E-06,7.21E-06,6.53E-06,5.79E-06,4.80E-06, & & 4.05E-06,2.66E-06,1.46E-06,1.02E-06,1.33E-06,4.37E-07, & & 3.50E-07,2.38E-07,2.03E-07,1.91E-07,1.55E-07,1.40E-07, & & 1.89E-05,1.69E-05,1.50E-05,1.34E-05,1.19E-05,1.07E-05, & & 9.57E-06,8.61E-06,7.75E-06,7.02E-06,6.23E-06,5.17E-06, & & 4.36E-06,2.87E-06,1.59E-06,1.12E-06,1.40E-06,4.73E-07, & & 5.67E-07,3.34E-07,2.44E-07,2.23E-07,1.77E-07,1.59E-07, & & 2.54E-05,2.27E-05,2.03E-05,1.81E-05,1.62E-05,1.45E-05, & & 1.31E-05,1.18E-05,1.06E-05,9.64E-06,8.61E-06,7.17E-06, & & 6.06E-06,4.01E-06,2.35E-06,1.65E-06,1.81E-06,6.73E-07, & & 1.72E-06,8.68E-07,4.78E-07,4.04E-07,3.02E-07,2.66E-07, & & 3.71E-05,3.35E-05,3.01E-05,2.71E-05,2.44E-05,2.20E-05, & & 1.99E-05,1.80E-05,1.64E-05,1.49E-05,1.35E-05,1.13E-05, & & 9.58E-06,6.42E-06,4.02E-06,2.84E-06,2.68E-06,1.11E-06, & & 4.01E-06,2.02E-06,1.01E-06,8.25E-07,5.90E-07,5.07E-07, & & 4.64E-05,4.22E-05,3.82E-05,3.46E-05,3.13E-05,2.83E-05, & & 2.57E-05,2.34E-05,2.14E-05,1.95E-05,1.77E-05,1.49E-05, & & 1.27E-05,8.61E-06,5.57E-06,3.96E-06,3.51E-06,1.52E-06, & & 5.97E-06,3.08E-06,1.54E-06,1.24E-06,8.75E-07,7.43E-07, & & 5.89E-05,5.40E-05,4.93E-05,4.50E-05,4.10E-05,3.73E-05, & & 3.41E-05,3.12E-05,2.86E-05,2.62E-05,2.39E-05,2.03E-05, & & 1.74E-05,1.20E-05,7.99E-06,5.74E-06,4.85E-06,2.21E-06, & & 8.84E-06,4.73E-06,2.40E-06,1.94E-06,1.38E-06,1.16E-06, & & 7.31E-05,6.77E-05,6.22E-05,5.72E-05,5.24E-05,4.80E-05, & & 4.41E-05,4.05E-05,3.73E-05,3.44E-05,3.15E-05,2.70E-05, & & 2.32E-05,1.62E-05,1.11E-05,8.06E-06,6.61E-06,3.11E-06, & & 1.23E-05,6.85E-06,3.56E-06,2.88E-06,2.05E-06,1.72E-06, & & 1.16E-05,1.03E-05,9.18E-06,8.17E-06,7.28E-06,6.49E-06, & & 5.81E-06,5.22E-06,4.70E-06,4.25E-06,3.77E-06,3.13E-06, & & 2.64E-06,1.74E-06,9.67E-07,6.83E-07,8.71E-07,3.00E-07, & & 2.42E-07,1.67E-07,1.44E-07,1.35E-07,1.11E-07,1.00E-07, & & 1.16E-05,1.03E-05,9.20E-06,8.18E-06,7.28E-06,6.50E-06, & & 5.82E-06,5.23E-06,4.70E-06,4.26E-06,3.78E-06,3.13E-06, & & 2.64E-06,1.74E-06,9.69E-07,6.85E-07,8.72E-07,3.02E-07, & & 2.44E-07,1.68E-07,1.45E-07,1.36E-07,1.12E-07,1.01E-07, & & 1.25E-05,1.11E-05,9.88E-06,8.79E-06,7.83E-06,6.98E-06, & & 6.25E-06,5.62E-06,5.06E-06,4.58E-06,4.07E-06,3.38E-06, & & 2.85E-06,1.88E-06,1.06E-06,7.49E-07,9.23E-07,3.28E-07, & & 3.90E-07,2.32E-07,1.72E-07,1.58E-07,1.28E-07,1.15E-07, & & 1.68E-05,1.49E-05,1.33E-05,1.19E-05,1.06E-05,9.48E-06, & & 8.51E-06,7.66E-06,6.92E-06,6.27E-06,5.61E-06,4.67E-06, & & 3.94E-06,2.61E-06,1.55E-06,1.09E-06,1.18E-06,4.55E-07, & & 1.14E-06,5.75E-07,3.19E-07,2.71E-07,2.05E-07,1.81E-07, & & 2.45E-05,2.20E-05,1.97E-05,1.77E-05,1.59E-05,1.43E-05, & & 1.29E-05,1.17E-05,1.06E-05,9.67E-06,8.71E-06,7.30E-06, & & 6.19E-06,4.15E-06,2.60E-06,1.85E-06,1.73E-06,7.27E-07, & & 2.63E-06,1.31E-06,6.55E-07,5.33E-07,3.82E-07,3.28E-07, & & 3.08E-05,2.78E-05,2.51E-05,2.26E-05,2.05E-05,1.85E-05, & & 1.67E-05,1.52E-05,1.39E-05,1.26E-05,1.15E-05,9.65E-06, & & 8.21E-06,5.55E-06,3.60E-06,2.56E-06,2.26E-06,9.87E-07, & & 3.93E-06,2.00E-06,9.86E-07,7.92E-07,5.59E-07,4.75E-07, & & 3.98E-05,3.62E-05,3.28E-05,2.98E-05,2.70E-05,2.45E-05, & & 2.23E-05,2.04E-05,1.86E-05,1.71E-05,1.55E-05,1.32E-05, & & 1.12E-05,7.70E-06,5.14E-06,3.68E-06,3.10E-06,1.40E-06, & & 5.86E-06,3.06E-06,1.52E-06,1.22E-06,8.51E-07,7.16E-07, & & 4.99E-05,4.58E-05,4.18E-05,3.81E-05,3.48E-05,3.17E-05, & & 2.90E-05,2.66E-05,2.44E-05,2.24E-05,2.06E-05,1.75E-05, & & 1.51E-05,1.04E-05,7.15E-06,5.15E-06,4.20E-06,1.95E-06, & & 8.20E-06,4.44E-06,2.24E-06,1.79E-06,1.25E-06,1.05E-06/ end module dalm_ext module aot_spect_5 implicit none real :: wlo(5,15) , hkas(5,15) ,sflx(5,15) data wlo / & & 0.1794,0.1878,0.1970,0.2073,0.2186, & & 0.2265,0.2301,0.2339,0.2378,0.2418, & & 0.2475,0.2551,0.2632,0.2717,0.2809, & & 0.2869,0.2894,0.2920,0.2946,0.2972, & & 0.3008,0.3053,0.3100,0.3149,0.3199, & & 0.3257,0.3323,0.3391,0.3462,0.3537, & & 0.3642,0.3783,0.3935,0.4100,0.4279, & & 0.4429,0.4539,0.4656,0.4778,0.4908, & & 0.5059,0.5233,0.5419,0.5620,0.5836, & & 0.6033,0.6206,0.6389,0.6583,0.6789, & & 0.7236,0.8026,0.9009,1.0267,1.1933, & & 1.3414,1.4358,1.5444,1.6708,1.8198, & & 1.9512,2.0513,2.1622,2.2857,2.4242, & & 2.5740,2.7360,2.9197,3.1299,3.3727, & & 3.5524,3.6430,3.7383,3.8388,3.9448/ data hkas / & & 1.9732E-02,8.2461E-03,1.9433E-02,2.5239E-01,7.0020E-01, & & 1.7698E-01,1.9552E-01,1.8982E-01,2.0086E-01,2.3681E-01, & & 6.1144E-02,9.1518E-02,2.0913E-01,3.0821E-01,3.3000E-01, & & 1.1853E-01,1.6684E-01,2.5436E-01,2.2410E-01,2.3617E-01, & & 1.3174E-01,1.8637E-01,2.1818E-01,2.1883E-01,2.4487E-01, & & 1.6818E-01,1.9811E-01,1.7183E-01,2.1417E-01,2.4771E-01, & & 1.3629E-01,1.4266E-01,1.6518E-01,2.7083E-01,2.8504E-01, & & 1.6885E-01,1.9578E-01,2.0319E-01,2.1598E-01,2.1620E-01, & & 1.7878E-01,1.8362E-01,1.9993E-01,2.1178E-01,2.2589E-01, & & 1.9345E-01,1.9568E-01,2.0132E-01,2.0166E-01,2.0789E-01, & & 1.9354E-01,2.0025E-01,2.0400E-01,2.0302E-01,1.9919E-01, & & 2.1754E-01,2.1221E-01,2.0669E-01,1.9305E-01,1.7051E-01, & & 2.3672E-01,2.1723E-01,1.9925E-01,1.8215E-01,1.6466E-01, & & 2.4692E-01,2.2312E-01,1.9962E-01,1.7636E-01,1.5398E-01, & & 2.2023E-01,2.0999E-01,1.9844E-01,1.9036E-01,1.8098E-01/ data sflx / & & 1.4056E-02,5.8741E-03,1.3843E-02,1.7979E-01,4.9878E-01, & & 1.5997E-01,1.7673E-01,1.7157E-01,1.8156E-01,2.1404E-01, & & 4.0480E-01,6.0590E-01,1.3845E+00,2.0405E+00,2.1848E+00, & & 7.6075E-01,1.0708E+00,1.6325E+00,1.4383E+00,1.5157E+00, & & 2.1362E+00,3.0220E+00,3.5377E+00,3.5483E+00,3.9706E+00, & & 5.6607E+00,6.6683E+00,5.7836E+00,7.2089E+00,8.3378E+00, & & 1.4768E+01,1.5458E+01,1.7899E+01,2.9348E+01,3.0887E+01, & & 1.9903E+01,2.3078E+01,2.3950E+01,2.5459E+01,2.5484E+01, & & 3.2273E+01,3.3147E+01,3.6093E+01,3.8232E+01,4.0778E+01, & & 2.9661E+01,3.0003E+01,3.0869E+01,3.0920E+01,3.1876E+01, & & 9.5588E+01,9.8903E+01,1.0076E+02,1.0027E+02,9.8377E+01, & & 3.3902E+01,3.3072E+01,3.2211E+01,3.0086E+01,2.6573E+01, & & 1.2208E+01,1.1203E+01,1.0275E+01,9.3939E+00,8.4915E+00, & & 7.0905E+00,6.4071E+00,5.7325E+00,5.0645E+00,4.4219E+00, & & 1.2380E+00,1.1805E+00,1.1155E+00,1.0701E+00,1.0173E+00/ end module aot_spect_5 module aot_spect_25 implicit none real wlo_25(25,15) , hkas_25(25,15) ,sflx_25(25,15) data wlo_25 / & & 0.1762,0.1778,0.1794,0.1810,0.1826, & & 0.1843,0.1860,0.1878,0.1896,0.1914, & & 0.1932,0.1951,0.1970,0.1990,0.2010, & & 0.2030,0.2051,0.2073,0.2094,0.2116, & & 0.2139,0.2162,0.2186,0.2210,0.2235, & & 0.2251,0.2258,0.2265,0.2272,0.2279, & & 0.2287,0.2294,0.2301,0.2309,0.2316, & & 0.2324,0.2332,0.2339,0.2347,0.2355, & & 0.2362,0.2370,0.2378,0.2386,0.2394, & & 0.2402,0.2410,0.2418,0.2427,0.2435, & & 0.2446,0.2461,0.2475,0.2490,0.2505, & & 0.2520,0.2535,0.2551,0.2567,0.2583, & & 0.2599,0.2615,0.2632,0.2648,0.2665, & & 0.2682,0.2700,0.2717,0.2735,0.2753, & & 0.2772,0.2790,0.2809,0.2828,0.2847, & & 0.2860,0.2865,0.2869,0.2874,0.2879, & & 0.2884,0.2889,0.2894,0.2899,0.2904, & & 0.2910,0.2915,0.2920,0.2925,0.2930, & & 0.2935,0.2940,0.2946,0.2951,0.2956, & & 0.2961,0.2966,0.2972,0.2977,0.2982, & & 0.2991,0.3000,0.3009,0.3018,0.3027, & & 0.3036,0.3045,0.3054,0.3064,0.3073, & & 0.3082,0.3092,0.3101,0.3111,0.3120, & & 0.3130,0.3140,0.3150,0.3159,0.3169, & & 0.3179,0.3189,0.3199,0.3210,0.3220, & & 0.3232,0.3245,0.3258,0.3271,0.3284, & & 0.3297,0.3310,0.3323,0.3337,0.3350, & & 0.3364,0.3378,0.3392,0.3406,0.3420, & & 0.3434,0.3448,0.3463,0.3477,0.3492, & & 0.3507,0.3522,0.3537,0.3552,0.3567, & & 0.3590,0.3617,0.3643,0.3671,0.3698, & & 0.3726,0.3755,0.3784,0.3813,0.3843, & & 0.3874,0.3905,0.3936,0.3968,0.4000, & & 0.4033,0.4067,0.4101,0.4135,0.4170, & & 0.4206,0.4243,0.4280,0.4317,0.4356, & & 0.4387,0.4408,0.4429,0.4451,0.4473, & & 0.4495,0.4518,0.4540,0.4563,0.4586, & & 0.4609,0.4633,0.4656,0.4680,0.4705, & & 0.4729,0.4754,0.4779,0.4804,0.4830, & & 0.4855,0.4881,0.4908,0.4934,0.4961, & & 0.4996,0.5029,0.5062,0.5096,0.5130, & & 0.5165,0.5200,0.5236,0.5272,0.5309, & & 0.5346,0.5383,0.5422,0.5460,0.5500, & & 0.5540,0.5580,0.5621,0.5663,0.5705, & & 0.5748,0.5792,0.5836,0.5881,0.5927, & & 0.5969,0.6002,0.6035,0.6069,0.6103, & & 0.6137,0.6172,0.6207,0.6243,0.6279, & & 0.6316,0.6352,0.6390,0.6428,0.6466, & & 0.6504,0.6544,0.6583,0.6623,0.6664, & & 0.6705,0.6747,0.6789,0.6832,0.6875, & & 0.6962,0.7096,0.7236,0.7381,0.7532, & & 0.7690,0.7854,0.8026,0.8205,0.8392, & & 0.8588,0.8794,0.9009,0.9235,0.9473, & & 0.9724,0.9988,1.0267,1.0562,1.0874, & & 1.1206,1.1558,1.1933,1.2333,1.2762, & & 1.3070,1.3240,1.3414,1.3592,1.3776, & & 1.3965,1.4158,1.4358,1.4562,1.4773, & & 1.4990,1.5214,1.5444,1.5681,1.5926, & & 1.6179,1.6439,1.6708,1.6987,1.7274, & & 1.7572,1.7879,1.8198,1.8529,1.8871, & & 1.9139,1.9324,1.9512,1.9704,1.9900, & & 2.0101,2.0305,2.0513,2.0725,2.0942, & & 2.1164,2.1390,2.1622,2.1858,2.2099, & & 2.2346,2.2599,2.2857,2.3121,2.3392, & & 2.3669,2.3952,2.4242,2.4540,2.4845, & & 2.5145,2.5439,2.5740,2.6048,2.6364, & & 2.6688,2.7020,2.7360,2.7709,2.8066, & & 2.8433,2.8810,2.9197,2.9595,3.0003, & & 3.0423,3.0855,3.1299,3.1756,3.2227, & & 3.2712,3.3212,3.3727,3.4258,3.4807, & & 3.5174,3.5348,3.5524,3.5702,3.5881, & & 3.6062,3.6245,3.6430,3.6617,3.6805, & & 3.6996,3.7189,3.7383,3.7580,3.7779, & & 3.7979,3.8183,3.8388,3.8595,3.8805, & & 3.9017,3.9231,3.9448,3.9667,3.9888/ data hkas_25 / & & 5.2799E-03,5.0829E-03,4.6490E-03,4.0241E-03,3.4829E-03, & & 2.8976E-03,2.3480E-03,1.8516E-03,1.3749E-03,9.3841E-04, & & 5.9685E-04,3.2885E-04,1.3047E-04,2.2220E-05,5.5991E-03, & & 2.7673E-02,3.1899E-02,3.7975E-02,4.7693E-02,8.3620E-02, & & 1.1867E-01,1.4080E-01,1.2000E-01,1.8402E-01,1.6904E-01, & & 5.0121E-02,4.9452E-02,4.6279E-02,4.0956E-02,3.7858E-02, & & 2.6053E-02,3.0795E-02,4.6226E-02,3.7153E-02,3.5560E-02, & & 4.7180E-02,3.7850E-02,4.0573E-02,4.5254E-02,3.5590E-02, & & 3.0742E-02,4.1064E-02,4.1940E-02,4.0586E-02,4.7516E-02, & & 3.2378E-02,4.4837E-02,3.5456E-02,3.5664E-02,4.2917E-02, & & 1.6466E-02,1.5248E-02,1.2129E-02,1.2876E-02,1.0915E-02, & & 1.5288E-02,1.2174E-02,1.1518E-02,1.5566E-02,2.3291E-02, & & 3.5784E-02,2.7197E-02,2.5602E-02,2.8189E-02,6.8271E-02, & & 7.4253E-02,7.6509E-02,7.4379E-02,7.6454E-02,6.3299E-02, & & 4.4999E-02,7.9458E-02,5.3948E-02,3.1778E-02,9.4411E-02, & & 2.9705E-02,2.9759E-02,2.6074E-02,1.4967E-02,7.4578E-03, & & 2.3107E-02,3.1405E-02,3.1772E-02,3.8404E-02,2.7981E-02, & & 2.5950E-02,3.7908E-02,4.2120E-02,5.6514E-02,6.0159E-02, & & 5.4489E-02,5.7136E-02,5.3536E-02,4.5756E-02,5.3907E-02, & & 5.1124E-02,4.7270E-02,5.0278E-02,5.2757E-02,5.0463E-02, & & 3.0474E-02,3.1978E-02,2.5582E-02,3.1001E-02,2.6341E-02, & & 2.9467E-02,2.5155E-02,3.6947E-02,4.1472E-02,3.9135E-02, & & 3.7515E-02,3.9334E-02,4.3622E-02,4.5644E-02,3.7261E-02, & & 3.9516E-02,6.1067E-02,4.4004E-02,4.7490E-02,4.7719E-02, & & 5.4569E-02,3.5377E-02,5.9282E-02,4.1212E-02,4.8834E-02, & & 3.3110E-02,2.7957E-02,2.4541E-02,3.1640E-02,3.8452E-02, & & 4.3699E-02,3.7692E-02,4.5887E-02,3.6735E-02,4.2471E-02, & & 4.0508E-02,4.0549E-02,3.1263E-02,3.2911E-02,3.6471E-02, & & 4.0021E-02,3.6207E-02,4.0685E-02,3.9095E-02,4.8464E-02, & & 4.7468E-02,4.8137E-02,5.3969E-02,4.7248E-02,5.4817E-02, & & 2.4834E-02,2.1951E-02,2.6050E-02,2.7710E-02,3.4553E-02, & & 3.1715E-02,2.9451E-02,2.7336E-02,3.6347E-02,3.1034E-02, & & 2.3427E-02,2.7237E-02,3.7576E-02,2.6206E-02,3.2126E-02, & & 5.2125E-02,5.2807E-02,5.1698E-02,5.6664E-02,5.8765E-02, & & 6.0530E-02,5.9962E-02,5.9826E-02,5.6824E-02,5.3245E-02, & & 2.9942E-02,3.4314E-02,3.1576E-02,3.4169E-02,3.6263E-02, & & 3.5425E-02,3.8424E-02,4.0153E-02,3.9218E-02,3.9656E-02, & & 4.1712E-02,4.0169E-02,4.1568E-02,4.1185E-02,4.1190E-02, & & 4.2675E-02,4.1942E-02,4.2627E-02,4.4241E-02,4.5120E-02, & & 4.5103E-02,4.4734E-02,3.9963E-02,4.4448E-02,4.4182E-02, & & 3.6238E-02,3.5264E-02,3.4319E-02,3.6506E-02,3.6858E-02, & & 3.7418E-02,3.5769E-02,3.4340E-02,3.7866E-02,3.7059E-02, & & 4.0566E-02,3.8579E-02,4.0826E-02,3.9780E-02,4.1088E-02, & & 4.1249E-02,4.2418E-02,4.2017E-02,4.2620E-02,4.3139E-02, & & 4.3749E-02,4.5394E-02,4.5299E-02,4.6414E-02,4.5227E-02, & & 3.7723E-02,3.8411E-02,3.8671E-02,3.8195E-02,3.9511E-02, & & 3.9418E-02,3.9055E-02,3.8240E-02,3.9599E-02,3.9985E-02, & & 3.9300E-02,4.0631E-02,3.9929E-02,4.0581E-02,4.0475E-02, & & 4.0624E-02,4.0457E-02,4.1359E-02,3.7988E-02,4.1377E-02, & & 4.1472E-02,4.1668E-02,4.1660E-02,4.1838E-02,4.1834E-02, & & 3.8155E-02,3.8333E-02,3.8502E-02,3.9057E-02,3.9013E-02, & & 3.9461E-02,3.9758E-02,4.0111E-02,4.0243E-02,4.0392E-02, & & 3.9720E-02,4.0458E-02,4.1065E-02,4.1312E-02,4.1326E-02, & & 4.1240E-02,4.1154E-02,4.0773E-02,4.0305E-02,4.0042E-02, & & 4.0018E-02,4.0038E-02,3.9956E-02,3.9901E-02,3.9668E-02, & & 4.4043E-02,4.3956E-02,4.3412E-02,4.2920E-02,4.2591E-02, & & 4.2487E-02,4.2451E-02,4.2278E-02,4.1980E-02,4.1849E-02, & & 4.1556E-02,4.1621E-02,4.1312E-02,4.0978E-02,4.0676E-02, & & 4.0101E-02,3.9593E-02,3.8711E-02,3.8058E-02,3.7376E-02, & & 3.6255E-02,3.5384E-02,3.4555E-02,3.3467E-02,3.2390E-02, & & 4.9085E-02,4.8014E-02,4.7452E-02,4.6084E-02,4.6143E-02, & & 4.5126E-02,4.4490E-02,4.3771E-02,4.2825E-02,4.1722E-02, & & 4.0817E-02,4.0346E-02,3.9877E-02,3.8934E-02,3.8461E-02, & & 3.8034E-02,3.7265E-02,3.6323E-02,3.5726E-02,3.5049E-02, & & 3.4210E-02,3.3481E-02,3.2891E-02,3.2285E-02,3.1588E-02, & & 5.1217E-02,5.0595E-02,4.9284E-02,4.8233E-02,4.7849E-02, & & 4.6488E-02,4.5516E-02,4.4685E-02,4.3738E-02,4.2612E-02, & & 4.1889E-02,4.0913E-02,3.9819E-02,3.8998E-02,3.8111E-02, & & 3.7139E-02,3.6048E-02,3.5235E-02,3.4379E-02,3.3489E-02, & & 3.2579E-02,3.1537E-02,3.0736E-02,2.9824E-02,2.9085E-02, & & 4.5112E-02,4.4731E-02,4.4278E-02,4.3820E-02,4.3350E-02, & & 4.2925E-02,4.2577E-02,4.2229E-02,4.1713E-02,4.1188E-02, & & 4.0646E-02,4.0021E-02,3.9857E-02,3.8890E-02,3.8999E-02, & & 3.8626E-02,3.8315E-02,3.7974E-02,3.7671E-02,3.7171E-02, & & 3.6752E-02,3.6471E-02,3.6046E-02,3.5548E-02,3.5090E-02/ data sflx_25/ & & 3.3009E-03,3.1778E-03,2.9065E-03,2.5158E-03,2.1775E-03, & & 1.8116E-03,1.4679E-03,1.1576E-03,8.5959E-04,5.8668E-04, & & 3.7314E-04,2.0560E-04,8.1568E-05,1.3892E-05,3.5005E-03, & & 1.7301E-02,1.9943E-02,2.3742E-02,2.9817E-02,5.2278E-02, & & 7.4193E-02,8.8026E-02,7.5023E-02,1.1505E-01,1.0568E-01, & & 4.4282E-02,4.3691E-02,4.0888E-02,3.6184E-02,3.3448E-02, & & 2.3018E-02,2.7208E-02,4.0841E-02,3.2825E-02,3.1417E-02, & & 4.1683E-02,3.3441E-02,3.5846E-02,3.9982E-02,3.1444E-02, & & 2.7161E-02,3.6280E-02,3.7054E-02,3.5858E-02,4.1981E-02, & & 2.8606E-02,3.9614E-02,3.1325E-02,3.1509E-02,3.7918E-02, & & 1.0101E-01,9.3537E-02,7.4402E-02,7.8986E-02,6.6956E-02, & & 9.3786E-02,7.4679E-02,7.0655E-02,9.5489E-02,1.4288E-01, & & 2.1951E-01,1.6683E-01,1.5705E-01,1.7292E-01,4.1880E-01, & & 4.5550E-01,4.6934E-01,4.5627E-01,4.6900E-01,3.8830E-01, & & 2.7604E-01,4.8743E-01,3.3094E-01,1.9494E-01,5.7915E-01, & & 1.7599E-01,1.7631E-01,1.5448E-01,8.8671E-02,4.4184E-02, & & 1.3690E-01,1.8606E-01,1.8824E-01,2.2753E-01,1.6577E-01, & & 1.5374E-01,2.2459E-01,2.4955E-01,3.3482E-01,3.5642E-01, & & 3.2283E-01,3.3851E-01,3.1718E-01,2.7109E-01,3.1938E-01, & & 3.0289E-01,2.8005E-01,2.9787E-01,3.1256E-01,2.9897E-01, & & 4.7450E-01,4.9792E-01,3.9834E-01,4.8271E-01,4.1015E-01, & & 4.5883E-01,3.9168E-01,5.7529E-01,6.4574E-01,6.0936E-01, & & 5.8414E-01,6.1246E-01,6.7922E-01,7.1071E-01,5.8018E-01, & & 6.1529E-01,9.5085E-01,6.8518E-01,7.3945E-01,7.4301E-01, & & 8.4968E-01,5.5085E-01,9.2306E-01,6.4171E-01,7.6037E-01, & & 1.0836E+00,9.1500E-01,8.0321E-01,1.0356E+00,1.2585E+00, & & 1.4302E+00,1.2336E+00,1.5018E+00,1.2023E+00,1.3900E+00, & & 1.3258E+00,1.3271E+00,1.0232E+00,1.0772E+00,1.1937E+00, & & 1.3099E+00,1.1850E+00,1.3316E+00,1.2795E+00,1.5862E+00, & & 1.5536E+00,1.5755E+00,1.7664E+00,1.5464E+00,1.7941E+00, & & 2.6150E+00,2.3115E+00,2.7431E+00,2.9179E+00,3.6384E+00, & & 3.3396E+00,3.1012E+00,2.8785E+00,3.8273E+00,3.2679E+00, & & 2.4668E+00,2.8681E+00,3.9567E+00,2.7595E+00,3.3828E+00, & & 5.4888E+00,5.5606E+00,5.4437E+00,5.9667E+00,6.1879E+00, & & 6.3738E+00,6.3140E+00,6.2996E+00,5.9836E+00,5.6067E+00, & & 3.4766E+00,3.9842E+00,3.6664E+00,3.9674E+00,4.2105E+00, & & 4.1133E+00,4.4615E+00,4.6622E+00,4.5536E+00,4.6045E+00, & & 4.8432E+00,4.6640E+00,4.8265E+00,4.7820E+00,4.7826E+00, & & 4.9550E+00,4.8700E+00,4.9494E+00,5.1368E+00,5.2390E+00, & & 5.2370E+00,5.1941E+00,4.6402E+00,5.1609E+00,5.1301E+00, & & 6.4948E+00,6.3201E+00,6.1509E+00,6.5429E+00,6.6059E+00, & & 6.7062E+00,6.4108E+00,6.1545E+00,6.7865E+00,6.6419E+00, & & 7.2704E+00,6.9142E+00,7.3170E+00,7.1295E+00,7.3641E+00, & & 7.3928E+00,7.6024E+00,7.5305E+00,7.6385E+00,7.7317E+00, & & 7.8410E+00,8.1357E+00,8.1187E+00,8.3186E+00,8.1057E+00, & & 5.7948E+00,5.9004E+00,5.9404E+00,5.8673E+00,6.0694E+00, & & 6.0551E+00,5.9994E+00,5.8742E+00,6.0830E+00,6.1422E+00, & & 6.0369E+00,6.2414E+00,6.1336E+00,6.2338E+00,6.2175E+00, & & 6.2403E+00,6.2148E+00,6.3533E+00,5.8355E+00,6.3561E+00, & & 6.3706E+00,6.4007E+00,6.3995E+00,6.4268E+00,6.4263E+00, & & 1.8893E+01,1.8981E+01,1.9065E+01,1.9339E+01,1.9317E+01, & & 1.9539E+01,1.9686E+01,1.9861E+01,1.9927E+01,2.0000E+01, & & 1.9668E+01,2.0033E+01,2.0333E+01,2.0456E+01,2.0463E+01, & & 2.0420E+01,2.0378E+01,2.0189E+01,1.9958E+01,1.9827E+01, & & 1.9815E+01,1.9825E+01,1.9784E+01,1.9757E+01,1.9642E+01, & & 6.9768E+00,6.9631E+00,6.8768E+00,6.7990E+00,6.7469E+00, & & 6.7303E+00,6.7247E+00,6.6973E+00,6.6500E+00,6.6293E+00, & & 6.5828E+00,6.5933E+00,6.5442E+00,6.4914E+00,6.4434E+00, & & 6.3523E+00,6.2719E+00,6.1322E+00,6.0288E+00,5.9207E+00, & & 5.7431E+00,5.6052E+00,5.4739E+00,5.3015E+00,5.1310E+00, & & 2.6183E+00,2.5612E+00,2.5312E+00,2.4582E+00,2.4613E+00, & & 2.4071E+00,2.3732E+00,2.3348E+00,2.2844E+00,2.2255E+00, & & 2.1772E+00,2.1521E+00,2.1271E+00,2.0768E+00,2.0516E+00, & & 2.0288E+00,1.9878E+00,1.9375E+00,1.9057E+00,1.8696E+00, & & 1.8248E+00,1.7859E+00,1.7544E+00,1.7221E+00,1.6850E+00, & & 1.5186E+00,1.5002E+00,1.4613E+00,1.4301E+00,1.4187E+00, & & 1.3784E+00,1.3496E+00,1.3249E+00,1.2968E+00,1.2635E+00, & & 1.2420E+00,1.2131E+00,1.1806E+00,1.1563E+00,1.1300E+00, & & 1.1012E+00,1.0688E+00,1.0447E+00,1.0193E+00,9.9296E-01, & & 9.6597E-01,9.3507E-01,9.1134E-01,8.8430E-01,8.6237E-01, & & 2.6980E-01,2.6752E-01,2.6481E-01,2.6207E-01,2.5926E-01, & & 2.5672E-01,2.5464E-01,2.5256E-01,2.4947E-01,2.4633E-01, & & 2.4309E-01,2.3935E-01,2.3837E-01,2.3259E-01,2.3324E-01, & & 2.3101E-01,2.2915E-01,2.2711E-01,2.2530E-01,2.2231E-01, & & 2.1980E-01,2.1812E-01,2.1558E-01,2.1260E-01,2.0986E-01/ end module aot_spect_25 module band_new implicit none integer, private :: i, j, k real hk_1_new(10), fko3_1_new(10) data hk_1_new / .24, .16, .24, .28, .03, & & .016, .01, .008, .008, .008 / data fko3_1_new / .2204e-08,.1207e-01,.4537e-01,.1032e+00,.1740e+00, & & .1210e+01,.7367e+01,.2050e+02,.8100e+02,.2410e+03 / real hk_2_new(12),coehh22_2_new(3,11,12),coeo2_2_new(3,11,12) & & ,coeh2o_2_new(3,11,12) data hk_2_new /8.13791e-02,1.71362e-01,2.22259e-01,2.22259e-01, & & 1.71362e-01,8.13791e-02,4.28311e-03,9.01904e-03, & & 1.16978e-02,1.16978e-02,9.01904e-03,4.28311e-03/ data ( ( coehh22_2_new(1,j,i), i = 1, 12 ), j = 1, 11 ) / & &-.1821E+02,-.1407E+02,-.1108E+02,-.8593E+01,-.6067E+01,-.3578E+01, & &-.2358E+01,-.2027E+01,-.1428E+01,-.4851E+00,0.9785E+00,0.3279E+01, & &-.1775E+02,-.1361E+02,-.1062E+02,-.8141E+01,-.5667E+01,-.3321E+01, & &-.2164E+01,-.1850E+01,-.1285E+01,-.3751E+00,0.1043E+01,0.3303E+01, & &-.1729E+02,-.1315E+02,-.1016E+02,-.7684E+01,-.5263E+01,-.3047E+01, & &-.1950E+01,-.1647E+01,-.1117E+01,-.2376E+00,0.1122E+01,0.3332E+01, & &-.1683E+02,-.1269E+02,-.9698E+01,-.7231E+01,-.4862E+01,-.2759E+01, & &-.1717E+01,-.1436E+01,-.9149E+00,-.8219E-01,0.1243E+01,0.3375E+01, & &-.1636E+02,-.1223E+02,-.9238E+01,-.6779E+01,-.4470E+01,-.2452E+01, & &-.1468E+01,-.1204E+01,-.6986E+00,0.9617E-01,0.1358E+01,0.3457E+01, & &-.1590E+02,-.1177E+02,-.8780E+01,-.6333E+01,-.4088E+01,-.2141E+01, & &-.1215E+01,-.9557E+00,-.4736E+00,0.2885E+00,0.1475E+01,0.3482E+01, & &-.1545E+02,-.1131E+02,-.8325E+01,-.5897E+01,-.3725E+01,-.1835E+01, & &-.9593E+00,-.7167E+00,-.2586E+00,0.4937E+00,0.1604E+01,0.3545E+01, & &-.1498E+02,-.1085E+02,-.7870E+01,-.5470E+01,-.3376E+01,-.1538E+01, & &-.7021E+00,-.4709E+00,-.3576E-01,0.6926E+00,0.1718E+01,0.3590E+01, & &-.1452E+02,-.1039E+02,-.7421E+01,-.5067E+01,-.3050E+01,-.1252E+01, & &-.4701E+00,-.2477E+00,0.1768E+00,0.8375E+00,0.1814E+01,0.3606E+01, & &-.1406E+02,-.9927E+01,-.6986E+01,-.4696E+01,-.2753E+01,-.9814E+00, & &-.2519E+00,-.4112E-01,0.3549E+00,0.9703E+00,0.1910E+01,0.3559E+01, & &-.1360E+02,-.9472E+01,-.6574E+01,-.4359E+01,-.2487E+01,-.7404E+00, & &-.4451E-01,0.1383E+00,0.4923E+00,0.1085E+01,0.2017E+01,0.3453E+01/ data ( ( coehh22_2_new(2,j,i), i = 1, 12 ), j = 1, 11 ) / & &-.2168E-01,-.7137E-02,-.2046E-02,-.6012E-03,0.1375E-02,0.3989E-02, & &0.4886E-02,0.4990E-02,0.4812E-02,0.4351E-02,0.3974E-02,0.2008E-02, & &-.2166E-01,-.7155E-02,-.2041E-02,-.6029E-03,0.1182E-02,0.3206E-02, & &0.4093E-02,0.4055E-02,0.3902E-02,0.3741E-02,0.3299E-02,0.1692E-02, & &-.2167E-01,-.7142E-02,-.2036E-02,-.5894E-03,0.1002E-02,0.2573E-02, & &0.3263E-02,0.3213E-02,0.3053E-02,0.3087E-02,0.2730E-02,0.1736E-02, & &-.2168E-01,-.7141E-02,-.2031E-02,-.5649E-03,0.8002E-03,0.1931E-02, & &0.2491E-02,0.2393E-02,0.2325E-02,0.2442E-02,0.2186E-02,0.1413E-02, & &-.2168E-01,-.7137E-02,-.2017E-02,-.5129E-03,0.6594E-03,0.1419E-02, & &0.1780E-02,0.1713E-02,0.1783E-02,0.1866E-02,0.1721E-02,0.1210E-02, & &-.2168E-01,-.7136E-02,-.2008E-02,-.4597E-03,0.5986E-03,0.8626E-03, & &0.1188E-02,0.1271E-02,0.1314E-02,0.1275E-02,0.1135E-02,0.7870E-03, & &-.2166E-01,-.7154E-02,-.1977E-02,-.3950E-03,0.6628E-03,0.5570E-03, & &0.8196E-03,0.8767E-03,0.9092E-03,0.7797E-03,0.6736E-03,0.4020E-03, & &-.2167E-01,-.7135E-02,-.1937E-02,-.3398E-03,0.7607E-03,0.2372E-03, & &0.6595E-03,0.6433E-03,0.5461E-03,0.4611E-03,0.3156E-03,-.1029E-03, & &-.2168E-01,-.7130E-02,-.1861E-02,-.2656E-03,0.8627E-03,0.4753E-04, & &0.4097E-03,0.3685E-03,0.3269E-03,0.3406E-03,0.2222E-03,-.1134E-03, & &-.2166E-01,-.7098E-02,-.1766E-02,-.1544E-03,0.8606E-03,-.1285E-03, & &0.5824E-04,0.2334E-03,0.1791E-03,0.1358E-03,-.3466E-04,-.1864E-03, & &-.2166E-01,-.7058E-02,-.1687E-02,-.1018E-04,0.8420E-03,-.1835E-03, & &-.1922E-03,-.7330E-04,0.3881E-04,-.8928E-04,-.1939E-04,-.7279E-04/ data ( ( coehh22_2_new(3,j,i), i = 1, 12 ), j = 1, 11 ) / & &0.5345E-05,0.3912E-04,0.2748E-04,0.1444E-05,-.4212E-05,-.2604E-05, & &-.2211E-05,-.3476E-05,-.2656E-05,-.6117E-05,-.7721E-05,0.9503E-05, & &0.5435E-05,0.3922E-04,0.2701E-04,0.7721E-06,-.4266E-05,-.1224E-05, & &-.1462E-05,-.3870E-05,-.1057E-06,-.5089E-05,-.6126E-05,0.7750E-05, & &0.5355E-05,0.3916E-04,0.2726E-04,0.5206E-06,-.3851E-05,0.1578E-05, & &0.9728E-06,-.3372E-05,0.1778E-05,-.2598E-05,-.3351E-06,0.2366E-05, & &0.5353E-05,0.3921E-04,0.2713E-04,0.4761E-07,-.4572E-05,0.5006E-05, & &0.8988E-07,0.1673E-05,0.9565E-06,-.3223E-06,-.5420E-05,-.1326E-05, & &0.5364E-05,0.3905E-04,0.2694E-04,-.2245E-06,-.3170E-05,0.4342E-05, & &0.3347E-06,0.8541E-06,-.4142E-06,0.1542E-05,-.7389E-06,-.6179E-05, & &0.5346E-05,0.3909E-04,0.2676E-04,0.5793E-07,-.1923E-05,0.4991E-05, & &-.4133E-06,-.4665E-06,0.1344E-05,0.3320E-05,0.1297E-05,0.1052E-05, & &0.5435E-05,0.3914E-04,0.2615E-04,-.5951E-07,-.2672E-06,0.4456E-05, & &0.2792E-06,0.1402E-05,0.4331E-05,0.7323E-07,-.1674E-05,0.1962E-05, & &0.5355E-05,0.3917E-04,0.2610E-04,0.8890E-06,0.1079E-05,0.3992E-05, & &-.2672E-06,0.2250E-05,0.3658E-05,-.3284E-05,-.3928E-06,0.3088E-05, & &0.5352E-05,0.3905E-04,0.2578E-04,0.1128E-05,0.2670E-05,0.2115E-05, & &0.4263E-05,0.1726E-05,0.1125E-05,0.9597E-07,-.1567E-05,0.3222E-05, & &0.5711E-05,0.3895E-04,0.2695E-04,0.2255E-05,0.2170E-05,0.1602E-05, & &0.3974E-05,0.2949E-05,0.8487E-06,0.6461E-06,0.4729E-05,0.4043E-06, & &0.5705E-05,0.3824E-04,0.2761E-04,0.2485E-05,0.1433E-05,0.2177E-05, & &0.2933E-05,0.5048E-05,0.5340E-05,0.1356E-05,0.4762E-05,-.4439E-06/ data ( ( coeo2_2_new(1,j,i), i = 1, 12 ), j = 1, 11 ) / & &-.4604E+02,-.4601E+02,-.4595E+02,-.4589E+02,-.4583E+02,-.2516E+02, & &-.2171E+02,-.2105E+02,-.1975E+02,-.1772E+02,-.1573E+02,-.1210E+02, & &-.4604E+02,-.4601E+02,-.4595E+02,-.4589E+02,-.4583E+02,-.2471E+02, & &-.2126E+02,-.2060E+02,-.1932E+02,-.1732E+02,-.1534E+02,-.1185E+02, & &-.4604E+02,-.4601E+02,-.4595E+02,-.4589E+02,-.4583E+02,-.2424E+02, & &-.2080E+02,-.2015E+02,-.1889E+02,-.1692E+02,-.1495E+02,-.1159E+02, & &-.4604E+02,-.4601E+02,-.4595E+02,-.4589E+02,-.4583E+02,-.2378E+02, & &-.2034E+02,-.1970E+02,-.1847E+02,-.1652E+02,-.1455E+02,-.1136E+02, & &-.4604E+02,-.4601E+02,-.4595E+02,-.4589E+02,-.4583E+02,-.2332E+02, & &-.1989E+02,-.1925E+02,-.1805E+02,-.1613E+02,-.1413E+02,-.1108E+02, & &-.4604E+02,-.4601E+02,-.4595E+02,-.4589E+02,-.4583E+02,-.2286E+02, & &-.1945E+02,-.1881E+02,-.1763E+02,-.1573E+02,-.1369E+02,-.1074E+02, & &-.4604E+02,-.4601E+02,-.4595E+02,-.4589E+02,-.4583E+02,-.2240E+02, & &-.1900E+02,-.1837E+02,-.1723E+02,-.1534E+02,-.1326E+02,-.1044E+02, & &-.4604E+02,-.4601E+02,-.4595E+02,-.4589E+02,-.4583E+02,-.2194E+02, & &-.1857E+02,-.1795E+02,-.1683E+02,-.1495E+02,-.1283E+02,-.1015E+02, & &-.4604E+02,-.4601E+02,-.4595E+02,-.4589E+02,-.4583E+02,-.2149E+02, & &-.1816E+02,-.1753E+02,-.1644E+02,-.1454E+02,-.1244E+02,-.9817E+01, & &-.4604E+02,-.4601E+02,-.4595E+02,-.4589E+02,-.4583E+02,-.2104E+02, & &-.1778E+02,-.1713E+02,-.1606E+02,-.1413E+02,-.1206E+02,-.9475E+01, & &-.4604E+02,-.4601E+02,-.4595E+02,-.4588E+02,-.4583E+02,-.2055E+02, & &-.1738E+02,-.1672E+02,-.1566E+02,-.1373E+02,-.1170E+02,-.9193E+01/ data ( ( coeo2_2_new(2,j,i), i = 1, 12 ), j = 1, 11 ) / & &-.3815E-06,-.2150E-05,-.4924E-05,-.8011E-05,-.1072E-04,0.1366E-01, & &0.7135E-02,0.4556E-02,0.4852E-02,0.2572E-02,0.4399E-03,0.2910E-02, & &-.3815E-06,-.2150E-05,-.4924E-05,-.8011E-05,-.1072E-04,0.1367E-01, & &0.7211E-02,0.4590E-02,0.4885E-02,0.2295E-02,-.1277E-03,0.1699E-02, & &-.3815E-06,-.2150E-05,-.4924E-05,-.8011E-05,-.1072E-04,0.1367E-01, & &0.7271E-02,0.4660E-02,0.4926E-02,0.2230E-02,-.6077E-03,0.9087E-03, & &-.3815E-06,-.2150E-05,-.4924E-05,-.8011E-05,-.1072E-04,0.1368E-01, & &0.7344E-02,0.4702E-02,0.4860E-02,0.2109E-02,-.7692E-03,0.4872E-03, & &-.3815E-06,-.2150E-05,-.4924E-05,-.8011E-05,-.1072E-04,0.1370E-01, & &0.7449E-02,0.4758E-02,0.4803E-02,0.2056E-02,-.9399E-03,0.4198E-03, & &-.3815E-06,-.2150E-05,-.4924E-05,-.8011E-05,-.1072E-04,0.1371E-01, & &0.7573E-02,0.4859E-02,0.4630E-02,0.1992E-02,-.1122E-02,0.8852E-05, & &-.3815E-06,-.2150E-05,-.4924E-05,-.8011E-05,-.1072E-04,0.1375E-01, & &0.7719E-02,0.4959E-02,0.4513E-02,0.1875E-02,-.1294E-02,-.2601E-03, & &-.3815E-06,-.2150E-05,-.4924E-05,-.8011E-05,-.1072E-04,0.1378E-01, & &0.7919E-02,0.5059E-02,0.4343E-02,0.1973E-02,-.1403E-02,-.4933E-03, & &-.3815E-06,-.2150E-05,-.4924E-05,-.8011E-05,-.1072E-04,0.1384E-01, & &0.8042E-02,0.5232E-02,0.4213E-02,0.2020E-02,-.1381E-02,-.6582E-03, & &-.3815E-06,-.2150E-05,-.4924E-05,-.8011E-05,-.1072E-04,0.1398E-01, & &0.8357E-02,0.5262E-02,0.4275E-02,0.1935E-02,-.1254E-02,-.4774E-03, & &-.4161E-06,-.2011E-05,-.4578E-05,-.7456E-05,-.1002E-04,0.1418E-01, & &0.8342E-02,0.5315E-02,0.3932E-02,0.1758E-02,-.9858E-03,-.7214E-03/ data ( ( coeo2_2_new(3,j,i), i = 1, 12 ), j = 1, 11 ) / & &-.6305E-09,-.2522E-08,-.3783E-08,-.5675E-08,-.9458E-08,-.2417E-04, & &-.4086E-04,-.1231E-04,-.2747E-04,-.2066E-04,0.1113E-04,0.9287E-05, & &-.6305E-09,-.2522E-08,-.3783E-08,-.5675E-08,-.9458E-08,-.2432E-04, & &-.4252E-04,-.1328E-04,-.2484E-04,-.2011E-04,0.9843E-05,-.5839E-06, & &-.6305E-09,-.2522E-08,-.3783E-08,-.5675E-08,-.9458E-08,-.2428E-04, & &-.4226E-04,-.1416E-04,-.2158E-04,-.1958E-04,0.1067E-04,-.3985E-05, & &-.6305E-09,-.2522E-08,-.3783E-08,-.5675E-08,-.9458E-08,-.2461E-04, & &-.4324E-04,-.1462E-04,-.1828E-04,-.2116E-04,0.1271E-04,0.5814E-05, & &-.6305E-09,-.2522E-08,-.3783E-08,-.5675E-08,-.9458E-08,-.2463E-04, & &-.4351E-04,-.1427E-04,-.1314E-04,-.2016E-04,0.1150E-04,0.9943E-06, & &-.6305E-09,-.2522E-08,-.3783E-08,-.5675E-08,-.9458E-08,-.2504E-04, & &-.4237E-04,-.1326E-04,-.1001E-04,-.2134E-04,0.8825E-05,0.6250E-06, & &-.6305E-09,-.2522E-08,-.3783E-08,-.5675E-08,-.9458E-08,-.2576E-04, & &-.4232E-04,-.1489E-04,-.5905E-05,-.1889E-04,0.4480E-05,0.1725E-05, & &-.6305E-09,-.2522E-08,-.3783E-08,-.5675E-08,-.9458E-08,-.2656E-04, & &-.4117E-04,-.1467E-04,-.4666E-05,-.1198E-04,0.6646E-06,0.9255E-05, & &-.6305E-09,-.2522E-08,-.3783E-08,-.5675E-08,-.9458E-08,-.2700E-04, & &-.3805E-04,-.1800E-04,-.2492E-05,-.1327E-04,0.2149E-05,0.9164E-05, & &-.6305E-09,-.2522E-08,-.3783E-08,-.5675E-08,-.9458E-08,-.2826E-04, & &-.3420E-04,-.2047E-04,0.3207E-05,-.1336E-04,-.2036E-05,0.2122E-05, & &0.1261E-08,0.6305E-08,0.1513E-07,0.2711E-07,0.3468E-07,-.2569E-04, & &-.2710E-04,-.1924E-04,0.1073E-04,-.1587E-04,-.3022E-05,0.5785E-05/ data ( ( coeh2o_2_new(1,j,i), i = 1, 12 ), j = 1, 11 ) / & &-.4596E+02,-.2279E+02,-.1864E+02,-.1594E+02,-.1336E+02,-.1074E+02, & &-.9509E+01,-.9178E+01,-.8577E+01,-.7633E+01,-.6165E+01,-.3864E+01, & &-.4596E+02,-.2233E+02,-.1818E+02,-.1549E+02,-.1296E+02,-.1049E+02, & &-.9317E+01,-.9003E+01,-.8437E+01,-.7522E+01,-.6104E+01,-.3846E+01, & &-.4596E+02,-.2187E+02,-.1772E+02,-.1503E+02,-.1256E+02,-.1022E+02, & &-.9105E+01,-.8800E+01,-.8267E+01,-.7388E+01,-.6024E+01,-.3818E+01, & &-.4596E+02,-.2141E+02,-.1726E+02,-.1458E+02,-.1216E+02,-.9934E+01, & &-.8875E+01,-.8592E+01,-.8070E+01,-.7231E+01,-.5905E+01,-.3772E+01, & &-.4596E+02,-.2095E+02,-.1680E+02,-.1412E+02,-.1177E+02,-.9636E+01, & &-.8631E+01,-.8362E+01,-.7849E+01,-.7055E+01,-.5789E+01,-.3683E+01, & &-.4596E+02,-.2049E+02,-.1634E+02,-.1368E+02,-.1139E+02,-.9329E+01, & &-.8381E+01,-.8118E+01,-.7629E+01,-.6865E+01,-.5673E+01,-.3663E+01, & &-.4596E+02,-.2003E+02,-.1589E+02,-.1324E+02,-.1103E+02,-.9034E+01, & &-.8126E+01,-.7881E+01,-.7413E+01,-.6661E+01,-.5548E+01,-.3604E+01, & &-.4596E+02,-.1957E+02,-.1543E+02,-.1282E+02,-.1068E+02,-.8753E+01, & &-.7877E+01,-.7639E+01,-.7194E+01,-.6462E+01,-.5431E+01,-.3559E+01, & &-.4596E+02,-.1911E+02,-.1498E+02,-.1242E+02,-.1035E+02,-.8478E+01, & &-.7651E+01,-.7421E+01,-.6991E+01,-.6320E+01,-.5337E+01,-.3544E+01, & &-.4596E+02,-.1864E+02,-.1455E+02,-.1205E+02,-.1006E+02,-.8228E+01, & &-.7446E+01,-.7227E+01,-.6820E+01,-.6193E+01,-.5246E+01,-.3590E+01, & &-.4596E+02,-.1818E+02,-.1415E+02,-.1173E+02,-.9797E+01,-.8011E+01, & &-.7262E+01,-.7069E+01,-.6690E+01,-.6085E+01,-.5139E+01,-.3699E+01/ data ( ( coeh2o_2_new(2,j,i), i = 1, 12 ), j = 1, 11 ) / & &-.1547E-04,0.5600E-02,0.2620E-02,0.7216E-03,0.2127E-02,0.4178E-02, & &0.4942E-02,0.5022E-02,0.4865E-02,0.4364E-02,0.3928E-02,0.2032E-02, & &-.1547E-04,0.5585E-02,0.2619E-02,0.7277E-03,0.1927E-02,0.3428E-02, & &0.4165E-02,0.4110E-02,0.3921E-02,0.3774E-02,0.3313E-02,0.1773E-02, & &-.1547E-04,0.5600E-02,0.2626E-02,0.7344E-03,0.1729E-02,0.2840E-02, & &0.3350E-02,0.3289E-02,0.3081E-02,0.3093E-02,0.2778E-02,0.1820E-02, & &-.1547E-04,0.5601E-02,0.2635E-02,0.7589E-03,0.1535E-02,0.2250E-02, & &0.2581E-02,0.2472E-02,0.2365E-02,0.2492E-02,0.2252E-02,0.1356E-02, & &-.1547E-04,0.5600E-02,0.2643E-02,0.8161E-03,0.1329E-02,0.1773E-02, & &0.1904E-02,0.1792E-02,0.1826E-02,0.1918E-02,0.1714E-02,0.1239E-02, & &-.1547E-04,0.5601E-02,0.2663E-02,0.8765E-03,0.1206E-02,0.1293E-02, & &0.1344E-02,0.1350E-02,0.1367E-02,0.1310E-02,0.1119E-02,0.8026E-03, & &-.1547E-04,0.5585E-02,0.2695E-02,0.9617E-03,0.1197E-02,0.9559E-03, & &0.1008E-02,0.9791E-03,0.9892E-03,0.7806E-03,0.6872E-03,0.3329E-03, & &-.1547E-04,0.5602E-02,0.2762E-02,0.1039E-02,0.1277E-02,0.7514E-03, & &0.8401E-03,0.8117E-03,0.6529E-03,0.5337E-03,0.3562E-03,-.8344E-04, & &-.1547E-04,0.5613E-02,0.2901E-02,0.1132E-02,0.1326E-02,0.6222E-03, & &0.6984E-03,0.6159E-03,0.5078E-03,0.4187E-03,0.2222E-03,-.2135E-04, & &-.5341E-05,0.5806E-02,0.3142E-02,0.1240E-02,0.1435E-02,0.5730E-03, & &0.5152E-03,0.5664E-03,0.3897E-03,0.2327E-03,0.6928E-04,-.1874E-03, & &-.1214E-05,0.5878E-02,0.3387E-02,0.1470E-02,0.1494E-02,0.6158E-03, & &0.3543E-03,0.4093E-03,0.3208E-03,0.1312E-03,0.2899E-04,0.3038E-04/ data ( ( coeh2o_2_new(3,j,i), i = 1, 12 ), j = 1, 11 ) / & &-.9206E-07,-.2814E-04,-.1404E-04,-.5340E-05,-.6889E-05,-.3128E-05, & &-.2556E-05,-.3281E-05,-.2707E-05,-.5780E-05,-.9518E-05,0.8739E-05, & &-.9206E-07,-.2836E-04,-.1414E-04,-.5943E-05,-.6749E-05,-.1934E-05, & &-.1748E-05,-.3216E-05,0.1165E-05,-.5499E-05,-.6411E-05,0.8325E-05, & &-.9206E-07,-.2806E-04,-.1418E-04,-.6399E-05,-.6072E-05,-.2554E-06, & &0.5296E-06,-.3495E-05,0.1765E-05,-.2036E-05,-.9355E-06,0.4405E-05, & &-.9206E-07,-.2803E-04,-.1418E-04,-.6912E-05,-.5556E-05,0.3016E-05, & &-.5880E-07,0.1122E-05,0.2206E-05,-.1350E-05,-.4414E-05,-.9245E-06, & &-.9206E-07,-.2827E-04,-.1435E-04,-.7685E-05,-.5245E-05,0.3400E-05, & &0.5464E-06,0.6018E-06,-.9525E-06,0.2221E-05,-.1612E-05,-.1015E-04, & &-.9206E-07,-.2811E-04,-.1466E-04,-.7855E-05,-.2958E-05,0.2385E-05, & &0.3030E-06,-.2801E-06,0.1434E-05,0.4181E-05,0.1494E-05,0.2618E-05, & &-.9206E-07,-.2846E-04,-.1513E-04,-.7776E-05,-.4817E-06,0.1369E-05, & &-.8504E-06,0.5702E-06,0.2181E-05,0.1196E-05,0.8812E-07,0.7878E-06, & &-.9206E-07,-.2815E-04,-.1581E-04,-.7683E-05,-.1405E-05,0.2806E-05, & &-.1846E-05,0.8688E-06,0.2422E-05,-.4146E-05,-.1866E-06,0.3171E-05, & &-.9206E-07,-.2826E-04,-.1619E-04,-.7683E-05,-.6600E-06,-.9242E-06, & &0.1720E-05,0.1522E-06,0.4729E-09,-.4315E-06,-.1367E-05,0.3501E-05, & &-.3279E-07,-.2706E-04,-.1617E-04,-.6712E-05,-.6983E-07,-.1014E-05, & &0.1544E-05,0.4504E-06,-.8275E-06,-.8392E-06,0.4323E-05,0.1294E-05, & &-.1702E-07,-.2656E-04,-.1525E-04,-.6871E-05,-.9906E-06,-.2592E-05, & &0.6030E-06,0.1797E-05,0.1264E-05,-.1128E-05,0.3285E-05,-.3950E-06/ real hk_3_new(12), coehh32_3_new(3,11,12),coeh2o_3_new(3,11,12) data hk_3_new / .34, .11, .1, .09, .12, .1, & & .06, .04, .026, .01, .0035, .0005 / data ( ( coehh32_3_new(1,j,i), i = 1, 12 ), j = 1, 11 ) / & &-.1140E+02,-.7525E+01,-.5814E+01,-.4555E+01,-.3175E+01,-.1977E+01, & &-.7382E+00,0.5912E+00,0.2334E+01,0.4617E+01,0.7094E+01,0.9666E+01, & &-.1094E+02,-.7078E+01,-.5382E+01,-.4132E+01,-.2755E+01,-.1568E+01, & &-.3533E+00,0.9220E+00,0.2592E+01,0.4754E+01,0.7102E+01,0.9641E+01, & &-.1048E+02,-.6629E+01,-.4948E+01,-.3712E+01,-.2330E+01,-.1149E+01, & &0.3496E-01,0.1275E+01,0.2866E+01,0.4924E+01,0.7135E+01,0.9589E+01, & &-.1002E+02,-.6183E+01,-.4512E+01,-.3288E+01,-.1907E+01,-.7307E+00, & &0.4287E+00,0.1624E+01,0.3172E+01,0.5106E+01,0.7176E+01,0.9479E+01, & &-.9558E+01,-.5743E+01,-.4084E+01,-.2869E+01,-.1483E+01,-.3089E+00, & &0.8212E+00,0.1986E+01,0.3462E+01,0.5289E+01,0.7259E+01,0.9382E+01, & &-.9098E+01,-.5309E+01,-.3658E+01,-.2454E+01,-.1062E+01,0.1055E+00, & &0.1213E+01,0.2328E+01,0.3752E+01,0.5488E+01,0.7330E+01,0.9255E+01, & &-.8641E+01,-.4890E+01,-.3242E+01,-.2047E+01,-.6454E+00,0.5097E+00, & &0.1591E+01,0.2676E+01,0.4022E+01,0.5656E+01,0.7384E+01,0.9047E+01, & &-.8181E+01,-.4477E+01,-.2827E+01,-.1641E+01,-.2362E+00,0.9046E+00, & &0.1957E+01,0.3004E+01,0.4284E+01,0.5793E+01,0.7383E+01,0.8799E+01, & &-.7728E+01,-.4082E+01,-.2422E+01,-.1241E+01,0.1437E+00,0.1289E+01, & &0.2302E+01,0.3309E+01,0.4496E+01,0.5935E+01,0.7325E+01,0.8520E+01, & &-.7281E+01,-.3706E+01,-.2027E+01,-.8608E+00,0.4995E+00,0.1652E+01, & &0.2638E+01,0.3588E+01,0.4673E+01,0.6047E+01,0.7160E+01,0.8173E+01, & &-.6853E+01,-.3338E+01,-.1666E+01,-.5031E+00,0.8245E+00,0.2002E+01, & &0.2935E+01,0.3822E+01,0.4822E+01,0.6086E+01,0.7027E+01,0.7818E+01/ data ( ( coehh32_3_new(2,j,i), i = 1, 12 ), j = 1, 11 ) / & &-.7679E-02,0.3238E-02,0.2987E-02,0.4249E-02,0.2901E-02,0.2167E-02, & &0.2925E-02,0.4139E-02,0.4569E-02,0.4988E-02,0.2235E-02,-.2988E-02, & &-.7672E-02,0.3240E-02,0.2947E-02,0.4053E-02,0.2792E-02,0.1865E-02, & &0.2479E-02,0.3235E-02,0.3444E-02,0.3847E-02,0.2077E-02,-.2416E-02, & &-.7657E-02,0.3285E-02,0.2898E-02,0.3815E-02,0.2685E-02,0.1547E-02, & &0.1957E-02,0.2503E-02,0.2512E-02,0.2851E-02,0.1523E-02,-.2436E-02, & &-.7653E-02,0.3272E-02,0.2828E-02,0.3586E-02,0.2559E-02,0.1270E-02, & &0.1506E-02,0.1783E-02,0.1874E-02,0.1916E-02,0.6173E-03,-.2229E-02, & &-.7644E-02,0.3255E-02,0.2799E-02,0.3353E-02,0.2412E-02,0.1022E-02, & &0.1142E-02,0.1176E-02,0.1232E-02,0.7776E-03,0.5063E-03,-.1687E-02, & &-.7629E-02,0.3208E-02,0.2691E-02,0.3142E-02,0.2284E-02,0.8112E-03, & &0.8972E-03,0.8189E-03,0.1037E-02,0.2834E-03,0.2208E-03,-.1248E-02, & &-.7609E-02,0.3139E-02,0.2643E-02,0.2867E-02,0.2195E-02,0.6214E-03, & &0.6478E-03,0.4260E-03,0.6003E-03,0.1406E-03,-.3815E-03,-.1049E-02, & &-.7565E-02,0.3033E-02,0.2552E-02,0.2605E-02,0.2090E-02,0.4360E-03, & &0.4645E-03,0.1280E-03,0.1882E-03,-.1575E-03,-.2542E-03,-.1080E-02, & &-.7502E-02,0.2877E-02,0.2437E-02,0.2260E-02,0.2037E-02,0.2618E-03, & &0.2812E-03,0.3817E-05,-.6310E-04,-.4294E-03,-.3730E-03,-.9895E-03, & &-.7360E-02,0.2690E-02,0.2325E-02,0.1874E-02,0.2181E-02,0.1173E-03, & &0.1688E-03,-.1824E-03,-.2441E-03,-.4165E-03,-.5805E-03,-.1071E-02, & &-.7419E-02,0.2390E-02,0.2052E-02,0.1433E-02,0.2322E-02,-.5471E-04, & &-.8958E-04,-.4855E-03,-.4562E-03,-.2567E-03,-.5348E-03,-.1002E-02/ data ( ( coehh32_3_new(3,j,i), i = 1, 12 ), j = 1, 11 ) / & &0.9895E-04,0.1450E-04,0.5622E-05,0.5376E-05,-.8133E-05,0.5208E-05, & &0.7027E-05,0.4079E-05,0.6760E-05,0.6037E-05,-.2982E-04,0.1999E-04, & &0.9861E-04,0.1400E-04,0.7647E-05,0.5797E-05,-.9515E-05,0.6399E-05, & &0.4014E-05,0.4009E-05,0.5595E-05,0.8374E-05,-.2634E-04,0.3155E-05, & &0.9873E-04,0.1548E-04,0.9527E-05,0.7551E-05,-.1049E-04,0.5886E-05, & &0.2869E-05,0.1650E-05,0.2065E-05,0.3039E-05,-.1560E-04,0.1586E-05, & &0.9865E-04,0.1597E-04,0.9778E-05,0.8495E-05,-.1036E-04,0.5484E-05, & &0.1870E-05,0.3864E-05,-.4029E-05,0.6126E-05,0.3827E-06,0.6381E-05, & &0.9837E-04,0.1728E-04,0.1055E-04,0.1035E-04,-.9879E-05,0.3760E-05, & &0.1997E-05,0.7611E-06,-.2375E-05,0.5047E-05,0.4114E-05,0.5342E-05, & &0.9825E-04,0.1851E-04,0.1077E-04,0.1276E-04,-.1006E-04,0.4149E-05, & &0.7659E-07,0.4621E-05,-.5107E-05,-.8457E-07,-.5272E-05,-.9818E-05, & &0.9775E-04,0.2145E-04,0.1051E-04,0.1497E-04,-.1139E-04,0.4828E-05, & &0.6559E-07,0.1238E-05,-.3051E-06,0.1022E-05,-.7287E-05,-.1105E-05, & &0.9753E-04,0.2363E-04,0.9890E-05,0.1762E-04,-.1153E-04,0.4872E-05, & &0.6813E-06,0.1176E-05,-.1294E-05,0.5104E-05,-.3532E-05,0.1211E-05, & &0.9744E-04,0.2527E-04,0.9979E-05,0.1488E-04,-.7563E-05,0.2296E-05, & &0.1495E-05,0.3083E-05,-.1193E-05,-.2592E-05,-.2489E-05,-.1576E-05, & &0.9857E-04,0.2671E-04,0.7247E-05,0.1459E-04,-.7584E-05,0.3192E-05, & &0.9343E-06,0.2911E-05,0.6984E-06,-.3093E-05,0.7175E-05,0.1806E-05, & &0.9841E-04,0.2755E-04,0.6758E-05,0.1372E-04,-.8803E-05,0.2412E-05, & &0.2694E-05,0.2623E-05,0.1088E-05,-.2540E-05,0.2750E-05,0.5326E-05/ data ( ( coeh2o_3_new(1,j,i), i = 1, 12 ), j = 1, 11 ) / & &-.1960E+02,-.1506E+02,-.1330E+02,-.1196E+02,-.1062E+02,-.9237E+01, & &-.7918E+01,-.6564E+01,-.4814E+01,-.2530E+01,-.4914E-01,0.2527E+01, & &-.1914E+02,-.1462E+02,-.1287E+02,-.1154E+02,-.1020E+02,-.8835E+01, & &-.7538E+01,-.6234E+01,-.4559E+01,-.2391E+01,-.3750E-01,0.2503E+01, & &-.1868E+02,-.1417E+02,-.1243E+02,-.1112E+02,-.9776E+01,-.8422E+01, & &-.7149E+01,-.5884E+01,-.4283E+01,-.2223E+01,-.9588E-02,0.2436E+01, & &-.1822E+02,-.1372E+02,-.1200E+02,-.1070E+02,-.9358E+01,-.8009E+01, & &-.6756E+01,-.5535E+01,-.3976E+01,-.2055E+01,0.3032E-01,0.2334E+01, & &-.1776E+02,-.1328E+02,-.1157E+02,-.1028E+02,-.8937E+01,-.7592E+01, & &-.6369E+01,-.5176E+01,-.3687E+01,-.1860E+01,0.1086E+00,0.2239E+01, & &-.1730E+02,-.1285E+02,-.1115E+02,-.9859E+01,-.8522E+01,-.7183E+01, & &-.5983E+01,-.4832E+01,-.3403E+01,-.1658E+01,0.1877E+00,0.2117E+01, & &-.1684E+02,-.1243E+02,-.1074E+02,-.9457E+01,-.8110E+01,-.6787E+01, & &-.5607E+01,-.4489E+01,-.3131E+01,-.1493E+01,0.2193E+00,0.1909E+01, & &-.1638E+02,-.1203E+02,-.1034E+02,-.9054E+01,-.7703E+01,-.6400E+01, & &-.5251E+01,-.4168E+01,-.2872E+01,-.1353E+01,0.2209E+00,0.1654E+01, & &-.1593E+02,-.1165E+02,-.9951E+01,-.8662E+01,-.7319E+01,-.6031E+01, & &-.4908E+01,-.3864E+01,-.2661E+01,-.1215E+01,0.1747E+00,0.1373E+01, & &-.1548E+02,-.1129E+02,-.9578E+01,-.8296E+01,-.6966E+01,-.5686E+01, & &-.4591E+01,-.3591E+01,-.2486E+01,-.1100E+01,0.9648E-02,0.1023E+01, & &-.1505E+02,-.1095E+02,-.9232E+01,-.7959E+01,-.6652E+01,-.5370E+01, & &-.4311E+01,-.3366E+01,-.2341E+01,-.1065E+01,-.1163E+00,0.6636E+00/ data ( ( coeh2o_3_new(2,j,i), i = 1, 12 ), j = 1, 11 ) / & &0.1080E-01,0.8671E-02,0.6771E-02,0.6413E-02,0.4659E-02,0.3332E-02, & &0.3277E-02,0.4236E-02,0.4596E-02,0.4920E-02,0.2400E-02,-.2756E-02, & &0.1081E-01,0.8741E-02,0.6754E-02,0.6296E-02,0.4472E-02,0.3015E-02, & &0.2806E-02,0.3375E-02,0.3436E-02,0.3821E-02,0.2081E-02,-.2471E-02, & &0.1081E-01,0.8808E-02,0.6738E-02,0.6140E-02,0.4280E-02,0.2661E-02, & &0.2328E-02,0.2561E-02,0.2459E-02,0.2849E-02,0.1478E-02,-.2399E-02, & &0.1082E-01,0.8903E-02,0.6681E-02,0.5968E-02,0.4090E-02,0.2404E-02, & &0.1916E-02,0.1893E-02,0.1906E-02,0.1952E-02,0.5999E-03,-.2229E-02, & &0.1083E-01,0.8941E-02,0.6605E-02,0.5787E-02,0.3912E-02,0.2213E-02, & &0.1585E-02,0.1285E-02,0.1237E-02,0.7659E-03,0.4732E-03,-.1905E-02, & &0.1084E-01,0.8980E-02,0.6585E-02,0.5613E-02,0.3766E-02,0.2044E-02, & &0.1267E-02,0.9222E-03,0.1021E-02,0.2873E-03,0.1324E-03,-.1448E-02, & &0.1086E-01,0.9037E-02,0.6487E-02,0.5388E-02,0.3604E-02,0.1876E-02, & &0.1078E-02,0.6028E-03,0.6251E-03,0.1348E-03,-.4624E-03,-.1049E-02, & &0.1090E-01,0.9083E-02,0.6433E-02,0.5211E-02,0.3471E-02,0.1746E-02, & &0.9677E-03,0.3372E-03,0.2223E-03,-.1395E-03,-.1094E-03,-.1187E-02, & &0.1099E-01,0.9106E-02,0.6376E-02,0.4992E-02,0.3354E-02,0.1630E-02, & &0.7864E-03,0.2293E-03,0.3187E-04,-.3573E-03,-.3777E-03,-.1101E-02, & &0.1134E-01,0.9243E-02,0.6320E-02,0.4852E-02,0.3349E-02,0.1655E-02, & &0.7483E-03,0.2039E-04,-.1645E-03,-.4325E-03,-.5380E-03,-.1237E-02, & &0.1151E-01,0.9333E-02,0.6267E-02,0.4616E-02,0.3376E-02,0.1607E-02, & &0.6461E-03,-.2321E-03,-.3088E-03,-.2537E-03,-.5030E-03,-.1011E-02/ data ( ( coeh2o_3_new(3,j,i), i = 1, 12 ), j = 1, 11 ) / & &-.2773E-04,-.3392E-04,-.2223E-04,-.1340E-04,-.6529E-05,-.1665E-06, & &0.4989E-05,0.3707E-05,0.6941E-05,0.6886E-05,-.3258E-04,0.1605E-04, & &-.2813E-04,-.3300E-04,-.2007E-04,-.1154E-04,-.7740E-05,0.6775E-06, & &0.2897E-05,0.3420E-05,0.6556E-05,0.5507E-05,-.2749E-04,0.2148E-05, & &-.2809E-04,-.3275E-04,-.1888E-04,-.1024E-04,-.7943E-05,-.3963E-06, & &0.2122E-06,0.2035E-05,0.2235E-05,0.3933E-05,-.1529E-04,0.5763E-05, & &-.2800E-04,-.3250E-04,-.1684E-04,-.9307E-05,-.8034E-05,-.1375E-05, & &-.2132E-05,0.2970E-05,-.4042E-05,0.9740E-05,0.2458E-05,0.8648E-05, & &-.2806E-04,-.3208E-04,-.1568E-04,-.9145E-05,-.8411E-05,-.3020E-05, & &-.1413E-05,0.9127E-07,-.3237E-05,0.3945E-05,0.5646E-05,0.2986E-05, & &-.2830E-04,-.3068E-04,-.1482E-04,-.8674E-05,-.8443E-05,-.3934E-05, & &-.1612E-05,0.2413E-05,-.3550E-05,-.6469E-06,-.5963E-05,-.1346E-04, & &-.2883E-04,-.3028E-04,-.1561E-04,-.6705E-05,-.1033E-04,-.3342E-05, & &-.3678E-05,0.1166E-07,0.1137E-06,0.1105E-05,-.2647E-06,-.1105E-05, & &-.2925E-04,-.2750E-04,-.1669E-04,-.5725E-05,-.1279E-04,-.3634E-05, & &-.2847E-05,0.7495E-06,-.6587E-06,0.3086E-05,0.7682E-06,0.1455E-05, & &-.2996E-04,-.2666E-04,-.1496E-04,-.7764E-05,-.1307E-04,-.5851E-05, & &-.2315E-05,0.1180E-05,-.1360E-05,-.3718E-05,-.1349E-06,-.1873E-05, & &-.2948E-04,-.2562E-04,-.1348E-04,-.7023E-05,-.1216E-04,-.7633E-05, & &-.2033E-05,0.1950E-05,-.6272E-06,-.3702E-05,0.5905E-05,0.1447E-05, & &-.2863E-04,-.2574E-04,-.1508E-04,-.7480E-05,-.1153E-04,-.7744E-05, & &0.9411E-06,0.1926E-05,0.1190E-05,-.2848E-05,-.1600E-05,0.9887E-05/ real hk_4_new(20),coehh42_4_new(3,11,20),coeco2_4_new(3,11,20), & & coeco_4_new(3,11),coeh2o_4_new(3,11,20) data hk_4_new /8.13791E-02,0.171362,0.222259,0.222259,0.171362, & & 8.13791E-02,8.77986E-04,2.00395E-03,3.03796E-03, & & 3.93008E-03,4.63846E-03,5.12996E-03,5.38160E-03, & & 5.38160E-03,5.12996E-03,4.63846E-03,3.93008E-03, & & 3.03796E-03,2.00395E-03,8.77986E-04/ data ( ( coehh42_4_new(1,j,i), i = 1, 20 ), j = 1, 11 ) / & &-.1059E+02,-.1006E+02,-.9085E+01,-.6921E+01,-.4346E+01,-.2053E+01, & &-.9700E+00,-.9080E+00,-.7921E+00,-.6280E+00,-.4134E+00,-.1395E+00, & &0.2112E+00,0.6492E+00,0.1147E+01,0.1906E+01,0.2740E+01,0.4002E+01, & &0.5611E+01,0.8101E+01,-.1013E+02,-.9606E+01,-.8628E+01,-.6482E+01, & &-.3962E+01,-.1702E+01,-.6681E+00,-.6004E+00,-.4818E+00,-.3260E+00, & &-.1152E+00,0.1656E+00,0.5207E+00,0.9282E+00,0.1430E+01,0.2159E+01, & &0.3014E+01,0.4178E+01,0.5686E+01,0.8104E+01,-.9666E+01,-.9143E+01, & &-.8166E+01,-.6042E+01,-.3563E+01,-.1337E+01,-.3297E+00,-.2723E+00, & &-.1627E+00,-.2127E-02,0.2080E+00,0.5053E+00,0.8329E+00,0.1248E+01, & &0.1737E+01,0.2409E+01,0.3242E+01,0.4307E+01,0.5759E+01,0.8158E+01, & &-.9206E+01,-.8682E+01,-.7706E+01,-.5605E+01,-.3170E+01,-.9765E+00, & &0.1098E-01,0.6984E-01,0.1728E+00,0.3387E+00,0.5600E+00,0.8342E+00, & &0.1168E+01,0.1573E+01,0.2072E+01,0.2687E+01,0.3461E+01,0.4470E+01, & &0.5823E+01,0.8122E+01,-.8745E+01,-.8222E+01,-.7248E+01,-.5174E+01, & &-.2782E+01,-.6221E+00,0.3791E+00,0.4282E+00,0.5328E+00,0.6929E+00, & &0.9055E+00,0.1170E+01,0.1504E+01,0.1920E+01,0.2403E+01,0.2953E+01, & &0.3729E+01,0.4647E+01,0.5941E+01,0.8096E+01,-.8285E+01,-.7761E+01, & &-.6793E+01,-.4753E+01,-.2395E+01,-.2536E+00,0.7605E+00,0.8090E+00, & &0.8938E+00,0.1037E+01,0.1244E+01,0.1517E+01,0.1851E+01,0.2249E+01, & &0.2719E+01,0.3207E+01,0.3958E+01,0.4861E+01,0.6126E+01,0.7980E+01, & &-.7826E+01,-.7305E+01,-.6349E+01,-.4348E+01,-.2028E+01,0.1151E+00, & &0.1104E+01,0.1158E+01,0.1256E+01,0.1394E+01,0.1591E+01,0.1872E+01, & &0.2188E+01,0.2554E+01,0.2989E+01,0.3500E+01,0.4182E+01,0.5051E+01, & &0.6259E+01,0.7866E+01,-.7365E+01,-.6844E+01,-.5906E+01,-.3946E+01, & &-.1673E+01,0.4781E+00,0.1462E+01,0.1516E+01,0.1610E+01,0.1743E+01, & &0.1925E+01,0.2178E+01,0.2482E+01,0.2837E+01,0.3242E+01,0.3751E+01, & &0.4390E+01,0.5180E+01,0.6277E+01,0.7674E+01,-.6905E+01,-.6387E+01, & &-.5476E+01,-.3556E+01,-.1344E+01,0.8318E+00,0.1780E+01,0.1837E+01, & &0.1933E+01,0.2066E+01,0.2228E+01,0.2448E+01,0.2739E+01,0.3084E+01, & &0.3495E+01,0.4001E+01,0.4558E+01,0.5315E+01,0.6291E+01,0.7482E+01, & &-.6446E+01,-.5933E+01,-.5061E+01,-.3187E+01,-.1022E+01,0.1175E+01, & &0.2044E+01,0.2096E+01,0.2201E+01,0.2341E+01,0.2497E+01,0.2705E+01, & &0.2967E+01,0.3307E+01,0.3735E+01,0.4209E+01,0.4730E+01,0.5379E+01, & &0.6225E+01,0.7265E+01,-.5998E+01,-.5485E+01,-.4650E+01,-.2856E+01, & &-.7081E+00,0.1480E+01,0.2292E+01,0.2343E+01,0.2434E+01,0.2565E+01, & &0.2745E+01,0.2947E+01,0.3206E+01,0.3521E+01,0.3911E+01,0.4372E+01, & &0.4866E+01,0.5390E+01,0.6151E+01,0.6998E+01/ data ( ( coehh42_4_new(2,j,i), i = 1, 20 ), j = 1, 11 ) / & &-.1686E-01,-.1495E-01,-.6958E-02,0.1929E-02,0.6756E-02,0.6773E-02, & &0.7527E-02,0.7564E-02,0.7523E-02,0.7354E-02,0.7233E-02,0.7332E-02, & &0.7428E-02,0.7961E-02,0.8650E-02,0.8533E-02,0.9158E-02,0.8485E-02, & &0.9356E-02,0.7225E-02,-.1686E-01,-.1497E-01,-.6942E-02,0.1907E-02, & &0.6514E-02,0.6267E-02,0.6897E-02,0.6977E-02,0.7040E-02,0.6954E-02, & &0.6723E-02,0.6728E-02,0.7165E-02,0.7471E-02,0.7648E-02,0.7649E-02, & &0.8113E-02,0.6896E-02,0.8976E-02,0.6126E-02,-.1686E-01,-.1495E-01, & &-.6923E-02,0.1859E-02,0.6233E-02,0.5923E-02,0.6185E-02,0.6298E-02, & &0.6495E-02,0.6609E-02,0.6545E-02,0.6524E-02,0.6819E-02,0.6764E-02, & &0.6654E-02,0.7157E-02,0.7238E-02,0.5959E-02,0.7561E-02,0.4312E-02, & &-.1686E-01,-.1494E-01,-.6895E-02,0.1817E-02,0.5942E-02,0.5493E-02, & &0.6054E-02,0.6100E-02,0.6215E-02,0.6398E-02,0.6618E-02,0.6199E-02, & &0.6455E-02,0.6214E-02,0.5865E-02,0.6472E-02,0.6639E-02,0.5397E-02, & &0.6081E-02,0.5363E-02,-.1686E-01,-.1493E-01,-.6888E-02,0.1785E-02, & &0.5641E-02,0.5328E-02,0.5932E-02,0.5924E-02,0.5913E-02,0.6076E-02, & &0.6245E-02,0.6044E-02,0.5884E-02,0.5806E-02,0.5469E-02,0.5944E-02, & &0.5384E-02,0.4482E-02,0.4742E-02,0.4400E-02,-.1686E-01,-.1492E-01, & &-.6890E-02,0.1669E-02,0.5318E-02,0.5178E-02,0.5663E-02,0.5657E-02, & &0.5620E-02,0.5650E-02,0.5925E-02,0.5845E-02,0.5468E-02,0.5578E-02, & &0.5364E-02,0.5421E-02,0.4804E-02,0.4654E-02,0.5170E-02,0.4096E-02, & &-.1685E-01,-.1492E-01,-.6926E-02,0.1572E-02,0.5116E-02,0.5131E-02, & &0.5408E-02,0.5409E-02,0.5461E-02,0.5484E-02,0.5455E-02,0.5428E-02, & &0.5391E-02,0.5258E-02,0.4741E-02,0.4750E-02,0.4390E-02,0.4749E-02, & &0.4977E-02,0.3296E-02,-.1685E-01,-.1489E-01,-.6974E-02,0.1415E-02, & &0.4745E-02,0.5066E-02,0.5375E-02,0.5369E-02,0.5248E-02,0.5174E-02, & &0.5074E-02,0.5260E-02,0.5230E-02,0.4768E-02,0.4736E-02,0.4192E-02, & &0.4103E-02,0.4969E-02,0.4945E-02,0.4193E-02,-.1684E-01,-.1485E-01, & &-.7176E-02,0.1146E-02,0.4580E-02,0.4956E-02,0.5185E-02,0.5109E-02, & &0.5084E-02,0.4812E-02,0.4606E-02,0.4576E-02,0.4754E-02,0.4523E-02, & &0.4452E-02,0.3939E-02,0.4254E-02,0.4827E-02,0.4612E-02,0.3346E-02, & &-.1676E-01,-.1484E-01,-.7457E-02,0.9431E-03,0.4583E-02,0.4910E-02, & &0.4708E-02,0.4745E-02,0.4669E-02,0.4511E-02,0.4329E-02,0.4111E-02, & &0.4380E-02,0.4498E-02,0.4055E-02,0.4142E-02,0.4058E-02,0.4817E-02, & &0.4007E-02,0.4288E-02,-.1667E-01,-.1487E-01,-.7891E-02,0.5511E-03, & &0.4589E-02,0.4397E-02,0.3882E-02,0.3931E-02,0.4068E-02,0.4260E-02, & &0.4260E-02,0.3976E-02,0.3757E-02,0.3894E-02,0.4240E-02,0.4461E-02, & &0.4182E-02,0.4058E-02,0.3568E-02,0.3295E-02/ data ( ( coehh42_4_new(3,j,i), i = 1, 20 ), j = 1, 11 ) / & &0.8719E-05,0.3152E-04,0.9387E-04,0.2700E-04,0.5308E-05,-.7286E-05, & &-.9901E-05,-.1065E-04,-.1214E-04,-.1259E-04,-.6202E-05,-.3291E-05, & &-.8684E-05,-.7201E-05,0.8522E-05,-.1956E-04,0.4919E-05,-.2685E-04, & &-.2245E-04,-.4342E-04,0.8040E-05,0.3134E-04,0.9385E-04,0.2804E-04, & &0.9804E-05,-.6042E-05,0.2345E-05,-.7401E-06,-.5213E-05,-.4646E-05, & &-.4379E-05,-.6253E-05,-.1368E-04,-.8247E-05,0.1722E-05,-.2231E-04, & &-.1394E-04,-.2746E-04,-.3332E-04,-.3498E-04,0.8456E-05,0.3128E-04, & &0.9340E-04,0.2996E-04,0.8999E-05,-.5482E-05,0.3744E-05,0.3982E-05, & &0.1368E-05,-.1608E-05,-.3430E-05,-.1283E-04,-.1160E-04,-.1210E-04, & &-.1016E-06,-.1830E-04,-.9311E-05,-.2056E-04,-.2352E-04,-.2314E-04, & &0.8600E-05,0.3118E-04,0.9319E-04,0.3020E-04,0.1066E-04,-.5770E-05, & &0.2359E-05,0.2942E-05,0.3937E-05,-.2328E-05,-.7884E-05,-.1238E-04, & &-.8395E-05,-.1025E-04,-.1413E-04,-.1782E-04,-.2784E-05,-.1649E-04, & &-.7734E-05,-.2976E-04,0.8741E-05,0.3111E-04,0.9298E-04,0.3115E-04, & &0.1174E-04,-.1947E-05,-.5477E-05,-.6249E-06,0.1779E-05,-.1587E-05, & &-.6940E-05,-.7399E-05,-.6058E-05,-.1735E-04,-.2104E-04,-.7474E-05, & &-.1182E-04,-.6828E-05,-.4701E-06,-.4709E-04,0.8759E-05,0.3085E-04, & &0.9296E-04,0.3282E-04,0.1019E-04,-.3588E-05,-.1257E-04,-.9429E-05, & &-.2057E-05,0.7564E-06,-.2274E-05,-.8163E-05,-.1011E-04,-.1911E-04, & &-.2398E-04,0.7761E-05,-.1771E-04,-.2819E-04,-.2294E-04,-.2335E-04, & &0.8000E-05,0.3064E-04,0.9416E-04,0.3569E-04,0.1276E-04,-.4103E-05, & &-.1243E-04,-.1056E-04,-.7823E-05,-.2462E-05,-.1494E-05,-.1442E-04, & &-.1914E-04,-.1664E-04,-.1548E-04,-.6351E-05,-.2185E-04,-.2480E-04, & &-.3726E-04,-.2906E-04,0.8548E-05,0.3012E-04,0.9494E-04,0.3683E-04, & &0.1404E-04,-.3293E-05,-.1665E-04,-.1670E-04,-.1434E-04,-.9419E-05, & &-.6369E-05,-.1321E-04,-.1427E-04,-.1231E-04,-.6201E-05,-.9664E-05, & &-.2175E-04,-.1135E-04,-.3686E-04,-.2543E-04,0.8691E-05,0.2988E-04, & &0.9581E-04,0.3853E-04,0.1653E-04,-.3232E-05,-.1481E-04,-.1755E-04, & &-.1914E-04,-.1633E-04,-.7166E-05,-.5494E-05,-.1207E-04,-.9202E-05, & &-.1221E-04,-.2493E-04,-.1622E-04,-.1623E-04,-.2624E-04,-.2272E-04, & &0.1032E-04,0.2902E-04,0.9786E-04,0.4246E-04,0.2006E-04,-.7937E-05, & &-.1656E-05,-.4060E-05,-.1023E-04,-.1558E-04,-.8886E-05,-.6339E-05, & &-.6686E-05,-.1247E-04,-.2124E-04,-.2543E-04,-.1466E-04,-.1779E-04, & &-.1139E-04,-.1877E-04,0.1439E-04,0.2795E-04,0.9614E-04,0.4879E-04, & &0.2421E-04,-.4735E-05,0.2733E-05,0.8715E-06,-.2560E-05,-.8553E-05, & &-.1460E-04,-.1124E-04,-.1194E-04,-.1263E-04,-.9623E-05,-.1722E-04, & &-.2157E-04,-.1558E-04,-.1516E-04,-.1386E-04/ data ( ( coeco2_4_new(1,j,i), i = 1, 20 ), j = 1, 11 ) / & &-.4603E+02,-.4594E+02,-.2412E+02,-.1620E+02,-.1177E+02,-.9585E+01, & &-.8622E+01,-.8562E+01,-.8456E+01,-.8309E+01,-.8107E+01,-.7852E+01, & &-.7537E+01,-.7141E+01,-.6645E+01,-.5994E+01,-.5163E+01,-.4117E+01, & &-.2456E+01,-.3656E+00,-.4603E+02,-.4594E+02,-.2366E+02,-.1574E+02, & &-.1138E+02,-.9217E+01,-.8297E+01,-.8243E+01,-.8148E+01,-.8011E+01, & &-.7826E+01,-.7537E+01,-.7217E+01,-.6864E+01,-.6334E+01,-.5711E+01, & &-.4914E+01,-.3989E+01,-.2392E+01,-.3673E+00,-.4603E+02,-.4594E+02, & &-.2320E+02,-.1528E+02,-.1099E+02,-.8825E+01,-.7972E+01,-.7919E+01, & &-.7826E+01,-.7678E+01,-.7475E+01,-.7208E+01,-.6897E+01,-.6536E+01, & &-.6027E+01,-.5422E+01,-.4695E+01,-.3791E+01,-.2191E+01,-.4829E+00, & &-.4603E+02,-.4594E+02,-.2274E+02,-.1483E+02,-.1060E+02,-.8450E+01, & &-.7620E+01,-.7570E+01,-.7472E+01,-.7334E+01,-.7150E+01,-.6892E+01, & &-.6558E+01,-.6202E+01,-.5732E+01,-.5138E+01,-.4473E+01,-.3516E+01, & &-.1970E+01,-.4839E+00,-.4603E+02,-.4594E+02,-.2228E+02,-.1438E+02, & &-.1022E+02,-.8088E+01,-.7258E+01,-.7212E+01,-.7130E+01,-.6990E+01, & &-.6798E+01,-.6544E+01,-.6229E+01,-.5865E+01,-.5438E+01,-.4882E+01, & &-.4236E+01,-.3257E+01,-.1876E+01,-.4746E+00,-.4603E+02,-.4594E+02, & &-.2182E+02,-.1396E+02,-.9852E+01,-.7715E+01,-.6899E+01,-.6850E+01, & &-.6763E+01,-.6634E+01,-.6450E+01,-.6213E+01,-.5906E+01,-.5557E+01, & &-.5172E+01,-.4648E+01,-.3944E+01,-.2971E+01,-.1842E+01,-.5561E+00, & &-.4603E+02,-.4594E+02,-.2136E+02,-.1357E+02,-.9510E+01,-.7355E+01, & &-.6550E+01,-.6505E+01,-.6422E+01,-.6301E+01,-.6129E+01,-.5896E+01, & &-.5626E+01,-.5297E+01,-.4907E+01,-.4358E+01,-.3663E+01,-.2761E+01, & &-.1908E+01,-.7289E+00,-.4603E+02,-.4594E+02,-.2090E+02,-.1323E+02, & &-.9201E+01,-.6995E+01,-.6227E+01,-.6182E+01,-.6099E+01,-.5985E+01, & &-.5826E+01,-.5616E+01,-.5355E+01,-.5017E+01,-.4620E+01,-.4072E+01, & &-.3446E+01,-.2716E+01,-.2018E+01,-.9620E+00,-.4603E+02,-.4594E+02, & &-.2044E+02,-.1297E+02,-.8905E+01,-.6661E+01,-.5914E+01,-.5872E+01, & &-.5798E+01,-.5682E+01,-.5530E+01,-.5318E+01,-.5071E+01,-.4743E+01, & &-.4329E+01,-.3853E+01,-.3294E+01,-.2761E+01,-.2106E+01,-.1277E+01, & &-.4603E+02,-.4594E+02,-.1964E+02,-.1276E+02,-.8637E+01,-.6354E+01, & &-.5583E+01,-.5545E+01,-.5474E+01,-.5373E+01,-.5234E+01,-.5044E+01, & &-.4793E+01,-.4491E+01,-.4132E+01,-.3730E+01,-.3306E+01,-.2872E+01, & &-.2235E+01,-.1592E+01,-.4603E+02,-.4593E+02,-.1896E+02,-.1262E+02, & &-.8408E+01,-.6026E+01,-.5278E+01,-.5241E+01,-.5175E+01,-.5085E+01, & &-.4950E+01,-.4782E+01,-.4573E+01,-.4327E+01,-.4035E+01,-.3728E+01, & &-.3405E+01,-.3006E+01,-.2431E+01,-.2000E+01/ data ( ( coeco2_4_new(2,j,i), i = 1, 20 ), j = 1, 11 ) / & &-.4786E-05,-.2403E-04,0.2072E-01,0.9662E-02,0.8712E-02,0.5356E-02, & &0.5389E-02,0.5435E-02,0.5612E-02,0.5805E-02,0.6110E-02,0.6088E-02, & &0.5988E-02,0.5956E-02,0.5210E-02,0.5759E-02,0.6807E-02,0.6879E-02, & &0.4498E-02,0.8106E-03,-.4786E-05,-.2403E-04,0.2075E-01,0.9764E-02, & &0.8516E-02,0.4715E-02,0.4838E-02,0.4893E-02,0.4981E-02,0.5072E-02, & &0.5072E-02,0.5026E-02,0.5005E-02,0.4854E-02,0.4801E-02,0.4993E-02, & &0.5714E-02,0.5394E-02,0.2506E-02,0.5935E-03,-.4786E-05,-.2403E-04, & &0.2072E-01,0.9849E-02,0.8397E-02,0.4084E-02,0.4279E-02,0.4267E-02, & &0.4226E-02,0.4131E-02,0.4163E-02,0.4449E-02,0.3956E-02,0.4184E-02, & &0.4426E-02,0.4227E-02,0.4501E-02,0.3655E-02,0.6654E-03,0.2776E-03, & &-.4786E-05,-.2403E-04,0.2072E-01,0.9987E-02,0.8372E-02,0.3617E-02, & &0.3670E-02,0.3694E-02,0.3735E-02,0.3613E-02,0.3498E-02,0.3302E-02, & &0.3386E-02,0.3718E-02,0.3896E-02,0.3861E-02,0.3237E-02,0.1668E-02, & &0.2576E-03,0.3221E-03,-.4786E-05,-.2403E-04,0.2072E-01,0.1016E-01, & &0.8369E-02,0.3237E-02,0.3168E-02,0.3134E-02,0.3018E-02,0.2996E-02, & &0.2910E-02,0.3054E-02,0.3244E-02,0.3424E-02,0.3511E-02,0.3221E-02, & &0.2240E-02,0.9645E-03,-.3647E-03,-.1492E-04,-.4786E-05,-.2403E-04, & &0.2072E-01,0.1054E-01,0.8352E-02,0.2944E-02,0.2692E-02,0.2719E-02, & &0.2786E-02,0.2721E-02,0.2762E-02,0.2862E-02,0.3180E-02,0.2981E-02, & &0.2720E-02,0.1900E-02,0.8285E-03,-.1636E-03,-.4815E-03,0.2303E-03, & &-.4786E-05,-.2403E-04,0.2075E-01,0.1081E-01,0.8350E-02,0.2716E-02, & &0.2437E-02,0.2431E-02,0.2421E-02,0.2520E-02,0.2662E-02,0.2547E-02, & &0.2587E-02,0.2341E-02,0.1632E-02,0.8147E-03,0.3410E-03,-.1676E-03, & &-.1672E-03,0.9590E-03,-.4786E-05,-.2403E-04,0.2072E-01,0.1079E-01, & &0.8543E-02,0.2851E-02,0.1950E-02,0.1962E-02,0.1952E-02,0.1953E-02, & &0.1993E-02,0.2013E-02,0.1666E-02,0.1273E-02,0.7388E-03,-.1403E-03, & &-.2617E-03,0.2904E-03,-.7046E-04,0.8429E-03,-.4786E-05,-.2403E-04, & &0.2075E-01,0.1103E-01,0.8771E-02,0.2490E-02,0.1106E-02,0.1033E-02, & &0.1039E-02,0.1066E-02,0.1137E-02,0.9681E-03,0.7354E-03,0.3735E-03, & &-.1874E-03,-.3749E-03,-.3094E-04,0.4770E-03,0.2057E-03,0.6687E-03, & &-.8358E-05,-.4182E-04,0.2145E-01,0.1057E-01,0.9132E-02,0.1834E-02, & &0.3321E-03,0.3135E-03,0.2645E-03,0.1934E-03,0.2430E-03,0.2651E-03, & &0.5755E-04,-.2891E-03,-.2060E-03,0.1168E-04,0.1601E-03,0.4466E-03, & &0.4693E-03,0.1182E-02,-.5583E-05,-.2819E-04,0.2180E-01,0.1038E-01, & &0.9786E-02,0.1269E-02,-.5402E-04,-.1102E-03,-.2084E-03,-.3490E-03, & &-.3241E-03,-.3170E-03,-.2767E-03,-.1929E-03,0.8256E-04,0.2632E-03, & &0.3831E-03,0.7473E-04,0.8686E-03,0.1146E-02/ data ( ( coeco2_4_new(3,j,i), i = 1, 20 ), j = 1, 11 ) / & &0.1765E-07,0.9143E-07,-.1846E-03,0.8856E-05,-.3172E-04,0.1577E-04, & &0.5529E-05,0.4630E-05,0.4415E-05,0.1105E-04,0.1481E-04,0.1697E-04, & &0.2186E-04,0.2224E-04,0.1929E-04,0.1939E-04,0.8547E-05,-.3805E-05, & &-.2759E-04,0.4665E-05,0.1765E-07,0.9143E-07,-.1851E-03,0.7178E-05, & &-.2857E-04,0.1569E-04,0.1230E-04,0.1373E-04,0.1592E-04,0.2054E-04, & &0.2810E-04,0.1609E-04,0.1396E-04,0.1831E-04,0.1049E-04,0.8116E-05, & &-.8963E-05,0.2490E-04,0.1198E-04,-.1697E-05,0.1765E-07,0.9143E-07, & &-.1846E-03,0.6871E-05,-.2871E-04,0.8531E-05,0.2124E-04,0.2059E-04, & &0.2299E-04,0.2221E-04,0.2082E-04,0.1278E-04,0.6971E-05,0.1295E-04, & &0.6508E-05,0.4034E-05,0.2943E-05,0.2663E-04,0.4140E-05,0.9827E-05, & &0.1765E-07,0.9143E-07,-.1846E-03,0.5894E-05,-.2687E-04,0.8905E-05, & &0.2267E-04,0.2275E-04,0.1966E-04,0.2027E-04,0.2032E-04,0.9168E-05, & &0.2746E-05,0.6496E-05,0.6572E-05,0.2861E-05,0.1795E-04,0.2862E-04, & &-.1103E-04,0.9369E-05,0.1765E-07,0.9143E-07,-.1846E-03,0.4515E-05, & &-.2626E-04,0.1275E-04,0.1577E-04,0.1667E-04,0.1871E-04,0.1644E-04, & &0.1360E-04,0.6632E-05,0.4221E-06,-.2254E-05,0.7433E-05,0.1725E-04, & &0.1834E-04,0.2148E-04,-.2537E-05,0.9251E-05,0.1765E-07,0.9143E-07, & &-.1846E-03,0.3060E-05,-.2709E-04,0.1159E-04,0.1195E-04,0.1081E-04, & &0.1058E-04,0.1026E-04,0.8609E-05,0.4794E-05,-.9331E-06,0.3166E-05, & &0.1340E-04,0.2067E-04,0.1223E-04,0.1459E-05,0.4914E-05,-.2115E-05, & &0.1765E-07,0.9143E-07,-.1851E-03,0.5947E-05,-.2452E-04,0.7255E-05, & &0.7111E-05,0.7851E-05,0.8384E-05,0.9930E-05,0.9285E-05,0.5097E-05, & &0.6752E-05,0.1298E-04,0.1399E-04,0.1913E-04,0.5781E-05,-.1565E-05, & &-.2180E-05,0.5621E-05,0.1765E-07,0.9143E-07,-.1846E-03,-.6184E-06, & &-.1702E-04,0.1730E-05,0.1379E-04,0.1288E-04,0.1210E-04,0.1426E-04, & &0.1402E-04,0.1163E-04,0.1156E-04,0.1250E-04,0.1988E-04,0.5954E-05, & &0.7024E-05,0.3524E-05,0.6520E-05,0.9981E-06,0.1765E-07,0.9143E-07, & &-.1851E-03,-.3396E-05,-.1723E-04,0.6361E-05,0.1388E-04,0.1304E-04, & &0.1399E-04,0.1344E-04,0.1278E-04,0.1051E-04,0.1462E-04,0.1480E-04, & &0.3949E-05,0.8595E-06,-.6487E-05,0.2725E-05,-.9187E-05,0.9898E-06, & &0.3216E-07,0.1677E-06,-.1570E-03,-.4189E-05,-.2111E-04,0.1012E-04, & &0.9510E-05,0.1072E-04,0.1242E-04,0.1382E-04,0.1744E-04,0.1622E-04, & &0.9391E-05,0.5166E-05,0.1522E-05,0.3378E-06,-.1901E-06,-.7943E-06, & &-.1324E-05,-.8822E-05,-.6747E-07,-.3373E-06,-.1785E-03,-.7169E-05, & &-.2373E-04,0.5172E-05,0.5896E-05,0.6778E-05,0.8321E-05,0.1054E-04, & &0.9381E-05,0.7614E-05,0.5371E-05,0.5089E-05,0.2464E-05,0.1010E-05, & &0.9660E-06,0.1519E-05,0.3679E-05,-.7842E-05/ data ( ( coeco_4_new(k,j), j = 1, 11 ), k=1, 3) / & &-.4589E+02,-.4589E+02,-.4589E+02,-.4589E+02,-.4589E+02,-.4589E+02, & &-.4589E+02,-.4589E+02,-.4589E+02,-.4589E+02,-.4589E+02,-.5549E-06, & &-.1040E-05,-.1040E-05,-.1283E-05,-.1491E-05,-.1491E-05,-.1769E-05, & &-.1838E-05,-.1838E-05,-.3190E-05,0.4161E-06,-.2396E-07,-.1513E-07, & &-.1513E-07,-.1072E-07,-.6936E-08,-.6936E-08,-.1892E-08,-.6305E-09, & &-.6305E-09,0.6305E-08,-.7566E-08/ data ( ( coeh2o_4_new(1,j,i), i = 1, 20 ), j = 1, 11 ) / & &-.2300E+02,-.1911E+02,-.1696E+02,-.1450E+02,-.1169E+02,-.9251E+01, & &-.8138E+01,-.8075E+01,-.7958E+01,-.7791E+01,-.7572E+01,-.7300E+01, & &-.6947E+01,-.6497E+01,-.6001E+01,-.5246E+01,-.4412E+01,-.3153E+01, & &-.1527E+01,0.9630E+00,-.2254E+02,-.1865E+02,-.1651E+02,-.1406E+02, & &-.1130E+02,-.8910E+01,-.7842E+01,-.7776E+01,-.7658E+01,-.7494E+01, & &-.7276E+01,-.6996E+01,-.6636E+01,-.6224E+01,-.5726E+01,-.4992E+01, & &-.4137E+01,-.2962E+01,-.1452E+01,0.9661E+00,-.2208E+02,-.1819E+02, & &-.1604E+02,-.1362E+02,-.1091E+02,-.8556E+01,-.7509E+01,-.7448E+01, & &-.7339E+01,-.7178E+01,-.6957E+01,-.6653E+01,-.6324E+01,-.5907E+01, & &-.5410E+01,-.4741E+01,-.3912E+01,-.2840E+01,-.1379E+01,0.1020E+01, & &-.2162E+02,-.1773E+02,-.1559E+02,-.1318E+02,-.1052E+02,-.8197E+01, & &-.7172E+01,-.7118E+01,-.7004E+01,-.6836E+01,-.6610E+01,-.6327E+01, & &-.5991E+01,-.5585E+01,-.5072E+01,-.4460E+01,-.3690E+01,-.2684E+01, & &-.1315E+01,0.9195E+00,-.2115E+02,-.1727E+02,-.1513E+02,-.1276E+02, & &-.1013E+02,-.7855E+01,-.6806E+01,-.6753E+01,-.6653E+01,-.6479E+01, & &-.6268E+01,-.5993E+01,-.5651E+01,-.5234E+01,-.4751E+01,-.4200E+01, & &-.3413E+01,-.2512E+01,-.1197E+01,0.9174E+00,-.2069E+02,-.1681E+02, & &-.1468E+02,-.1234E+02,-.9755E+01,-.7502E+01,-.6437E+01,-.6384E+01, & &-.6291E+01,-.6147E+01,-.5935E+01,-.5654E+01,-.5301E+01,-.4909E+01, & &-.4434E+01,-.3939E+01,-.3183E+01,-.2278E+01,-.1012E+01,0.8419E+00, & &-.2024E+02,-.1635E+02,-.1423E+02,-.1194E+02,-.9396E+01,-.7147E+01, & &-.6092E+01,-.6039E+01,-.5942E+01,-.5795E+01,-.5585E+01,-.5315E+01, & &-.4972E+01,-.4600E+01,-.4160E+01,-.3663E+01,-.2965E+01,-.2087E+01, & &-.8820E+00,0.7279E+00,-.1977E+02,-.1589E+02,-.1381E+02,-.1155E+02, & &-.9056E+01,-.6792E+01,-.5738E+01,-.5685E+01,-.5591E+01,-.5453E+01, & &-.5267E+01,-.5001E+01,-.4691E+01,-.4326E+01,-.3921E+01,-.3404E+01, & &-.2762E+01,-.1963E+01,-.8706E+00,0.5360E+00,-.1931E+02,-.1544E+02, & &-.1341E+02,-.1118E+02,-.8753E+01,-.6453E+01,-.5432E+01,-.5371E+01, & &-.5269E+01,-.5139E+01,-.4968E+01,-.4738E+01,-.4444E+01,-.4084E+01, & &-.3677E+01,-.3155E+01,-.2593E+01,-.1848E+01,-.8530E+00,0.3441E+00, & &-.1882E+02,-.1501E+02,-.1302E+02,-.1084E+02,-.8449E+01,-.6144E+01, & &-.5173E+01,-.5114E+01,-.5012E+01,-.4870E+01,-.4708E+01,-.4498E+01, & &-.4214E+01,-.3866E+01,-.3415E+01,-.2952E+01,-.2423E+01,-.1771E+01, & &-.9135E+00,0.1144E+00,-.1832E+02,-.1460E+02,-.1267E+02,-.1053E+02, & &-.8169E+01,-.5877E+01,-.4949E+01,-.4899E+01,-.4806E+01,-.4656E+01, & &-.4471E+01,-.4258E+01,-.3995E+01,-.3665E+01,-.3251E+01,-.2786E+01, & &-.2295E+01,-.1770E+01,-.1006E+01,-.1656E+00/ data ( ( coeh2o_4_new(2,j,i), i = 1, 20 ), j = 1, 11 ) / & &0.9281E-02,0.7063E-02,0.6968E-02,0.8328E-02,0.9339E-02,0.7776E-02, & &0.7936E-02,0.7936E-02,0.7875E-02,0.7744E-02,0.7441E-02,0.7480E-02, & &0.7449E-02,0.8004E-02,0.8682E-02,0.8472E-02,0.9103E-02,0.8632E-02, & &0.9273E-02,0.7225E-02,0.9289E-02,0.7079E-02,0.6967E-02,0.8315E-02, & &0.9148E-02,0.7388E-02,0.7432E-02,0.7410E-02,0.7403E-02,0.7244E-02, & &0.6958E-02,0.6883E-02,0.7329E-02,0.7612E-02,0.7700E-02,0.7688E-02, & &0.7969E-02,0.6924E-02,0.9211E-02,0.6126E-02,0.9289E-02,0.7071E-02, & &0.7001E-02,0.8291E-02,0.8952E-02,0.7112E-02,0.6841E-02,0.6893E-02, & &0.6894E-02,0.6947E-02,0.6865E-02,0.6753E-02,0.6912E-02,0.6820E-02, & &0.6682E-02,0.7168E-02,0.7151E-02,0.6037E-02,0.7499E-02,0.4312E-02, & &0.9283E-02,0.7071E-02,0.7040E-02,0.8229E-02,0.8783E-02,0.6729E-02, & &0.6602E-02,0.6697E-02,0.6842E-02,0.6773E-02,0.6847E-02,0.6511E-02, & &0.6583E-02,0.6321E-02,0.5896E-02,0.6472E-02,0.6582E-02,0.5389E-02, & &0.6017E-02,0.5314E-02,0.9277E-02,0.7075E-02,0.7085E-02,0.8209E-02, & &0.8633E-02,0.6474E-02,0.6425E-02,0.6452E-02,0.6521E-02,0.6613E-02, & &0.6682E-02,0.6400E-02,0.6030E-02,0.5932E-02,0.5521E-02,0.6027E-02, & &0.5448E-02,0.4493E-02,0.4742E-02,0.4193E-02,0.9280E-02,0.7083E-02, & &0.7145E-02,0.8235E-02,0.8507E-02,0.6615E-02,0.6202E-02,0.6202E-02, & &0.6215E-02,0.6321E-02,0.6409E-02,0.6188E-02,0.5670E-02,0.5742E-02, & &0.5332E-02,0.5431E-02,0.4760E-02,0.4682E-02,0.5189E-02,0.3815E-02, & &0.9289E-02,0.7120E-02,0.7240E-02,0.8241E-02,0.8473E-02,0.7078E-02, & &0.6049E-02,0.5961E-02,0.5985E-02,0.6066E-02,0.6185E-02,0.5823E-02, & &0.5609E-02,0.5362E-02,0.4848E-02,0.4827E-02,0.4381E-02,0.4667E-02, & &0.5201E-02,0.3296E-02,0.9283E-02,0.7181E-02,0.7373E-02,0.8216E-02, & &0.8499E-02,0.7122E-02,0.6128E-02,0.6053E-02,0.5910E-02,0.5690E-02, & &0.5731E-02,0.5727E-02,0.5558E-02,0.4958E-02,0.4759E-02,0.4226E-02, & &0.3988E-02,0.5002E-02,0.4975E-02,0.3933E-02,0.9286E-02,0.7343E-02, & &0.7485E-02,0.8212E-02,0.8729E-02,0.7269E-02,0.6253E-02,0.6173E-02, & &0.5940E-02,0.5573E-02,0.5120E-02,0.5207E-02,0.5069E-02,0.4704E-02, & &0.4552E-02,0.3975E-02,0.4286E-02,0.4832E-02,0.4471E-02,0.3344E-02, & &0.9085E-02,0.7800E-02,0.7732E-02,0.8265E-02,0.9332E-02,0.7232E-02, & &0.5979E-02,0.5903E-02,0.5651E-02,0.5311E-02,0.4955E-02,0.4721E-02, & &0.4874E-02,0.4779E-02,0.4284E-02,0.4249E-02,0.4157E-02,0.4764E-02, & &0.3974E-02,0.4288E-02,0.9157E-02,0.8265E-02,0.7739E-02,0.8207E-02, & &0.9788E-02,0.6982E-02,0.5511E-02,0.5498E-02,0.5459E-02,0.5323E-02, & &0.5261E-02,0.4914E-02,0.4383E-02,0.4399E-02,0.4525E-02,0.4712E-02, & &0.4326E-02,0.4187E-02,0.3584E-02,0.4187E-02/ data ( ( coeh2o_4_new(3,j,i), i = 1, 20 ), j = 1, 11 ) / & &-.3594E-04,-.2935E-04,-.1372E-04,-.1635E-04,-.2586E-04,-.2005E-04, & &-.1430E-04,-.1428E-04,-.1519E-04,-.1535E-04,-.7834E-05,-.2346E-05, & &-.6894E-05,-.1020E-04,0.8785E-05,-.1988E-04,0.8652E-05,-.2389E-04, & &-.2397E-04,-.4342E-04,-.3474E-04,-.2966E-04,-.1397E-04,-.1630E-04, & &-.2485E-04,-.1818E-04,-.3649E-05,-.4586E-05,-.6734E-05,-.6747E-05, & &-.6591E-05,-.4976E-05,-.1452E-04,-.1011E-04,0.3594E-05,-.2053E-04, & &-.1216E-04,-.3090E-04,-.3758E-04,-.3498E-04,-.3586E-04,-.2950E-04, & &-.1402E-04,-.1533E-04,-.2308E-04,-.1634E-04,-.1098E-05,-.1829E-05, & &-.2310E-05,-.3867E-05,-.6139E-05,-.1438E-04,-.1295E-04,-.1172E-04, & &0.3873E-06,-.2013E-04,-.7255E-05,-.2163E-04,-.2465E-04,-.2314E-04, & &-.3575E-04,-.2956E-04,-.1460E-04,-.1462E-04,-.2128E-04,-.1600E-04, & &-.1606E-05,0.7761E-06,-.2217E-05,-.6117E-05,-.1079E-04,-.1517E-04, & &-.9977E-05,-.1104E-04,-.1556E-04,-.1699E-04,-.2087E-05,-.1440E-04, & &-.1211E-04,-.9464E-05,-.3587E-04,-.2960E-04,-.1525E-04,-.1364E-04, & &-.1990E-04,-.1077E-04,-.8291E-05,-.5765E-05,-.2400E-05,-.8273E-05, & &-.1099E-04,-.1108E-04,-.7577E-05,-.1875E-04,-.2055E-04,-.4535E-05, & &-.1209E-04,-.2342E-05,-.4700E-06,-.3739E-04,-.3597E-04,-.2968E-04, & &-.1525E-04,-.1480E-04,-.2008E-04,-.1345E-04,-.1418E-04,-.1143E-04, & &-.6487E-05,-.3917E-05,-.6416E-05,-.1083E-04,-.1397E-04,-.2202E-04, & &-.2461E-04,0.5422E-05,-.2146E-04,-.3011E-04,-.2330E-04,-.2846E-04, & &-.3468E-04,-.3062E-04,-.1609E-04,-.1326E-04,-.1826E-04,-.1963E-04, & &-.1664E-04,-.1385E-04,-.8541E-05,-.5488E-05,-.1020E-04,-.1546E-04, & &-.2315E-04,-.2030E-04,-.1748E-04,-.3597E-05,-.2125E-04,-.2707E-04, & &-.4030E-04,-.2906E-04,-.3574E-04,-.3152E-04,-.1497E-04,-.1229E-04, & &-.1659E-04,-.2335E-04,-.2297E-04,-.2063E-04,-.1634E-04,-.1101E-04, & &-.1141E-04,-.1646E-04,-.1662E-04,-.1417E-04,-.4462E-05,-.1003E-04, & &-.2179E-04,-.1428E-04,-.3478E-04,-.3015E-04,-.3576E-04,-.3331E-04, & &-.1147E-04,-.1347E-04,-.1500E-04,-.2464E-04,-.2425E-04,-.2656E-04, & &-.2615E-04,-.1825E-04,-.8554E-05,-.1118E-04,-.1189E-04,-.1032E-04, & &-.8288E-05,-.2485E-04,-.1816E-04,-.9669E-05,-.3007E-04,-.2275E-04, & &-.3183E-04,-.3689E-04,-.8395E-05,-.1344E-04,-.1930E-04,-.2277E-04, & &-.1976E-04,-.2256E-04,-.2241E-04,-.2075E-04,-.1129E-04,-.6102E-05, & &-.1229E-04,-.1382E-04,-.2815E-04,-.2577E-04,-.1758E-04,-.1649E-04, & &-.1184E-04,-.1458E-04,-.3974E-04,-.4074E-04,-.5256E-05,-.1088E-04, & &-.2123E-04,-.1784E-04,-.1047E-04,-.1041E-04,-.1252E-04,-.2148E-04, & &-.2472E-04,-.1897E-04,-.1358E-04,-.1416E-04,-.1574E-04,-.2061E-04, & &-.2316E-04,-.1710E-04,-.1221E-04,-.2155E-04/ real hk_5_new(20), coehh52_5_new(3,11,20),coeco2_5_new(3,11,20), & & coen2o_5_new(3,11),coech4_5_new(3,11),coeh2o_5_new(3,11,20) data hk_5_new /3.16689E-02,7.09894E-02,1.04066E-01,0.127902, & & 0.140374,0.140374,0.127902,1.04066E-01,7.09894E-02,3.16689E-02 & & ,1.66678E-03 & & ,3.73628E-03,5.47716E-03,6.73167E-03,7.38811E-03,7.38811E-03, & & 6.73167E-03,5.47716E-03,3.73628E-03,1.66678E-03/ data ( ( coehh52_5_new(1,j,i), i = 1, 20 ), j = 1, 11 ) / & &-.8666E+01,-.6282E+01,-.5178E+01,-.4084E+01,-.2810E+01,-.1264E+01, & &-.1987E+00,0.8437E+00,0.2082E+01,0.3324E+01,0.3804E+01,0.3917E+01, & &0.4149E+01,0.4438E+01,0.4921E+01,0.5511E+01,0.6395E+01,0.7441E+01, & &0.9063E+01,0.1126E+02,-.8209E+01,-.5829E+01,-.4729E+01,-.3644E+01, & &-.2386E+01,-.8421E+00,0.2255E+00,0.1262E+01,0.2468E+01,0.3682E+01, & &0.4154E+01,0.4264E+01,0.4467E+01,0.4766E+01,0.5233E+01,0.5806E+01, & &0.6616E+01,0.7632E+01,0.9166E+01,0.1124E+02,-.7746E+01,-.5373E+01, & &-.4276E+01,-.3198E+01,-.1956E+01,-.4081E+00,0.6594E+00,0.1689E+01, & &0.2861E+01,0.4049E+01,0.4511E+01,0.4619E+01,0.4817E+01,0.5118E+01, & &0.5534E+01,0.6112E+01,0.6849E+01,0.7847E+01,0.9268E+01,0.1129E+02, & &-.7286E+01,-.4922E+01,-.3829E+01,-.2755E+01,-.1524E+01,0.2336E-01, & &0.1095E+01,0.2107E+01,0.3259E+01,0.4414E+01,0.4865E+01,0.4977E+01, & &0.5174E+01,0.5476E+01,0.5865E+01,0.6413E+01,0.7117E+01,0.8055E+01, & &0.9446E+01,0.1133E+02,-.6826E+01,-.4478E+01,-.3383E+01,-.2321E+01, & &-.1094E+01,0.4524E+00,0.1530E+01,0.2525E+01,0.3658E+01,0.4782E+01, & &0.5225E+01,0.5326E+01,0.5512E+01,0.5800E+01,0.6184E+01,0.6696E+01, & &0.7377E+01,0.8267E+01,0.9530E+01,0.1129E+02,-.6368E+01,-.4036E+01, & &-.2942E+01,-.1892E+01,-.6687E+00,0.8758E+00,0.1958E+01,0.2938E+01, & &0.4045E+01,0.5149E+01,0.5560E+01,0.5661E+01,0.5848E+01,0.6119E+01, & &0.6458E+01,0.6961E+01,0.7638E+01,0.8463E+01,0.9684E+01,0.1119E+02, & &-.5920E+01,-.3599E+01,-.2513E+01,-.1469E+01,-.2504E+00,0.1294E+01, & &0.2377E+01,0.3339E+01,0.4416E+01,0.5481E+01,0.5868E+01,0.5960E+01, & &0.6145E+01,0.6412E+01,0.6738E+01,0.7221E+01,0.7854E+01,0.8652E+01, & &0.9763E+01,0.1102E+02,-.5471E+01,-.3175E+01,-.2080E+01,-.1046E+01, & &0.1674E+00,0.1705E+01,0.2789E+01,0.3732E+01,0.4779E+01,0.5785E+01, & &0.6155E+01,0.6239E+01,0.6407E+01,0.6664E+01,0.7010E+01,0.7456E+01, & &0.8033E+01,0.8804E+01,0.9750E+01,0.1086E+02,-.5041E+01,-.2765E+01, & &-.1655E+01,-.6275E+00,0.5725E+00,0.2093E+01,0.3186E+01,0.4105E+01, & &0.5115E+01,0.6067E+01,0.6425E+01,0.6511E+01,0.6660E+01,0.6893E+01, & &0.7240E+01,0.7641E+01,0.8204E+01,0.8886E+01,0.9714E+01,0.1061E+02, & &-.4616E+01,-.2373E+01,-.1234E+01,-.2160E+00,0.9628E+00,0.2446E+01, & &0.3569E+01,0.4462E+01,0.5415E+01,0.6340E+01,0.6668E+01,0.6750E+01, & &0.6892E+01,0.7106E+01,0.7414E+01,0.7806E+01,0.8336E+01,0.8913E+01, & &0.9567E+01,0.1035E+02,-.4207E+01,-.1980E+01,-.8165E+00,0.1865E+00, & &0.1326E+01,0.2750E+01,0.3932E+01,0.4794E+01,0.5700E+01,0.6590E+01, & &0.6882E+01,0.6954E+01,0.7084E+01,0.7279E+01,0.7567E+01,0.7953E+01, & &0.8376E+01,0.8840E+01,0.9428E+01,0.1002E+02/ data ( ( coehh52_5_new(2,j,i), i = 1, 20 ), j = 1, 11 ) / & &-.4007E-02,0.1426E-03,0.1446E-02,0.3557E-02,0.5610E-02,0.4265E-02, & &0.1692E-02,0.1490E-02,0.2099E-02,0.3019E-02,0.2999E-02,0.3000E-02, & &0.3171E-02,0.3501E-02,0.3801E-02,0.3549E-02,0.4267E-02,0.3041E-02, & &0.2516E-02,0.1526E-02,-.4024E-02,0.1852E-03,0.1458E-02,0.3519E-02, & &0.5393E-02,0.4196E-02,0.1492E-02,0.1262E-02,0.1774E-02,0.2484E-02, & &0.2514E-02,0.2591E-02,0.2498E-02,0.2861E-02,0.2748E-02,0.2866E-02, & &0.3072E-02,0.2328E-02,0.2928E-02,0.9786E-03,-.3997E-02,0.2973E-03, & &0.1427E-02,0.3424E-02,0.5224E-02,0.4131E-02,0.1273E-02,0.1049E-02, & &0.1466E-02,0.2090E-02,0.2115E-02,0.2151E-02,0.2149E-02,0.2113E-02, & &0.2099E-02,0.2487E-02,0.2459E-02,0.1791E-02,0.2853E-02,0.5138E-03, & &-.3990E-02,0.4035E-03,0.1355E-02,0.3351E-02,0.5057E-02,0.4015E-02, & &0.1135E-02,0.9161E-03,0.1180E-02,0.1731E-02,0.1781E-02,0.1764E-02, & &0.1684E-02,0.1413E-02,0.1821E-02,0.1858E-02,0.1430E-02,0.1006E-02, & &0.2163E-02,0.2395E-03,-.3989E-02,0.5809E-03,0.1288E-02,0.3223E-02, & &0.4918E-02,0.3901E-02,0.9747E-03,0.7342E-03,0.1006E-02,0.1242E-02, & &0.1328E-02,0.1368E-02,0.1372E-02,0.1279E-02,0.1295E-02,0.1282E-02, & &0.1032E-02,0.6375E-03,0.1563E-02,-.2982E-04,-.4014E-02,0.7514E-03, & &0.1202E-02,0.3091E-02,0.4798E-02,0.3841E-02,0.8673E-03,0.5651E-03, & &0.9085E-03,0.1049E-02,0.1294E-02,0.1288E-02,0.1183E-02,0.1140E-02, & &0.9012E-03,0.9593E-03,0.1014E-02,0.1117E-02,0.1066E-02,-.1099E-02, & &-.4075E-02,0.8802E-03,0.1042E-02,0.2937E-02,0.4657E-02,0.3814E-02, & &0.6835E-03,0.4783E-03,0.8688E-03,0.8872E-03,0.1221E-02,0.1184E-02, & &0.1061E-02,0.7615E-03,0.6239E-03,0.8406E-03,0.7873E-03,0.9015E-03, & &0.1466E-03,-.5840E-03,-.4182E-02,0.1165E-02,0.8200E-03,0.2741E-02, & &0.4498E-02,0.3771E-02,0.4988E-03,0.3560E-03,0.6538E-03,0.6745E-03, & &0.8484E-03,0.8844E-03,0.7564E-03,0.7354E-03,0.4966E-03,0.6557E-03, & &0.5528E-03,0.3779E-03,0.2114E-04,-.1370E-02,-.4411E-02,0.1337E-02, & &0.5687E-03,0.2592E-02,0.4434E-02,0.3792E-02,0.2925E-03,0.2261E-03, & &0.5712E-03,0.5103E-03,0.3708E-03,0.4357E-03,0.5158E-03,0.5609E-03, & &0.4781E-03,0.4167E-03,0.4737E-03,0.1337E-03,-.4880E-03,-.1383E-02, & &-.4715E-02,0.1462E-02,0.3031E-03,0.2423E-02,0.4282E-02,0.3804E-02, & &0.1177E-03,0.2911E-03,0.3478E-03,0.2609E-03,0.9838E-04,0.2236E-03, & &0.4689E-03,0.4508E-03,0.4734E-03,0.3268E-03,0.3338E-03,-.1376E-04, & &-.4611E-03,-.6319E-03,-.5313E-02,0.1413E-02,0.1130E-03,0.2251E-02, & &0.4041E-02,0.3676E-02,-.8065E-04,0.2368E-03,0.5349E-05,0.1502E-03, & &0.1613E-03,0.2078E-03,0.2388E-03,0.2124E-03,0.2042E-03,0.8376E-04, & &0.3356E-03,-.2620E-03,-.9731E-03,-.1027E-02/ data ( ( coehh52_5_new(3,j,i), i = 1, 20 ), j = 1, 11 ) / & &0.1007E-03,0.2111E-04,0.1520E-04,0.7675E-05,0.4202E-05,-.1897E-04, & &0.6318E-05,0.4970E-05,-.3149E-05,-.3635E-05,-.3746E-05,-.3696E-05, & &-.5442E-05,0.9822E-05,0.4071E-05,0.3916E-05,-.2316E-04,0.5506E-05, & &-.1083E-04,0.1991E-04,0.1008E-03,0.2003E-04,0.1652E-04,0.8137E-05, & &0.4385E-05,-.1826E-04,0.6703E-05,0.4379E-05,-.1838E-05,-.4339E-05, & &-.6329E-07,0.1229E-05,0.2146E-05,0.1085E-04,0.3753E-06,-.4002E-05, & &-.4361E-05,0.5894E-05,-.5931E-05,0.1907E-04,0.1005E-03,0.1905E-04, & &0.1699E-04,0.8546E-05,0.4699E-05,-.1959E-04,0.7236E-05,0.2594E-05, & &-.5232E-06,-.5786E-05,0.2779E-05,0.4142E-05,0.3868E-05,0.5357E-05, & &0.1154E-05,-.6563E-05,0.4403E-05,0.4716E-05,-.3646E-05,0.1643E-05, & &0.1005E-03,0.1811E-04,0.1756E-04,0.8874E-05,0.3784E-05,-.2077E-04, & &0.6903E-05,0.2352E-05,-.2308E-05,0.1285E-06,0.3476E-05,0.2272E-05, & &0.1289E-05,-.9765E-05,-.3869E-05,-.5959E-05,0.4652E-05,0.2487E-05, & &-.1458E-04,-.1865E-04,0.1003E-03,0.1777E-04,0.1840E-04,0.9793E-05, & &0.3308E-05,-.2114E-04,0.5553E-05,0.2666E-05,-.4281E-05,-.1293E-05, & &-.2118E-05,-.1122E-05,-.8954E-06,-.4337E-05,-.4615E-05,-.1896E-05, & &0.4289E-05,-.5416E-06,0.1302E-04,0.6468E-06,0.1000E-03,0.1448E-04, & &0.1911E-04,0.1125E-04,0.1673E-05,-.2045E-04,0.5796E-05,0.8374E-06, & &-.2206E-05,-.3980E-05,-.2208E-05,-.2803E-05,-.3762E-05,-.4563E-05, & &0.2444E-05,0.1631E-05,-.1026E-05,-.7909E-05,-.8622E-05,-.1181E-04, & &0.1016E-03,0.9190E-05,0.2101E-04,0.1178E-04,0.3234E-05,-.2053E-04, & &0.5534E-05,0.9896E-06,-.1037E-05,-.1935E-05,-.3589E-05,-.1289E-05, & &-.3458E-05,-.6364E-05,0.1473E-05,0.4079E-05,-.6143E-05,-.1128E-04, & &-.1329E-04,0.3675E-05,0.1016E-03,0.3449E-05,0.2094E-04,0.1269E-04, & &0.3572E-05,-.1985E-04,0.4922E-05,0.1352E-05,-.9556E-06,-.1714E-05, & &-.8815E-06,0.8366E-06,0.4805E-06,-.1632E-05,-.2761E-05,-.4128E-05, & &-.3822E-05,-.6255E-05,0.1630E-06,0.9692E-05,0.1051E-03,-.3064E-05, & &0.2106E-04,0.1404E-04,0.4135E-05,-.1707E-04,0.4493E-05,0.1264E-05, & &-.2982E-05,-.4161E-06,-.2585E-05,-.1920E-05,0.1199E-05,-.2294E-05, & &-.2828E-05,-.2647E-05,-.5113E-05,0.5922E-05,-.7602E-05,0.2036E-05, & &0.1074E-03,-.2572E-05,0.2093E-04,0.1440E-04,0.5478E-05,-.1040E-04, & &0.4462E-05,-.6851E-06,-.2301E-06,-.1729E-05,-.3216E-06,0.2235E-06, & &0.7215E-06,-.2233E-05,-.3133E-05,0.3816E-05,-.3828E-05,-.2315E-05, & &0.6354E-05,-.8020E-05,0.1078E-03,-.9762E-05,0.2073E-04,0.1379E-04, & &0.7391E-05,0.2956E-05,0.1963E-05,-.3750E-05,0.2484E-05,-.2601E-05, & &-.1286E-05,-.1258E-06,0.3129E-05,0.4531E-05,0.8059E-06,-.3833E-05, & &-.6074E-05,0.1838E-05,0.2217E-05,-.2464E-05/ data ( ( coeco2_5_new(1,j,i), i = 1, 20 ), j = 1, 11 ) / & &-.4604E+02,-.4597E+02,-.4585E+02,-.2145E+02,-.1886E+02,-.1697E+02, & &-.1355E+02,-.8736E+01,-.6451E+01,-.5327E+01,-.4880E+01,-.4766E+01, & &-.4553E+01,-.4233E+01,-.3790E+01,-.3222E+01,-.2504E+01,-.1414E+01, & &0.1152E+00,0.3516E+01,-.4604E+02,-.4597E+02,-.4585E+02,-.2100E+02, & &-.1840E+02,-.1651E+02,-.1315E+02,-.8370E+01,-.6038E+01,-.4934E+01, & &-.4488E+01,-.4383E+01,-.4169E+01,-.3872E+01,-.3458E+01,-.2907E+01, & &-.2169E+01,-.1160E+01,0.3362E+00,0.3496E+01,-.4604E+02,-.4597E+02, & &-.4585E+02,-.2053E+02,-.1794E+02,-.1605E+02,-.1277E+02,-.7997E+01, & &-.5617E+01,-.4523E+01,-.4097E+01,-.3991E+01,-.3790E+01,-.3501E+01, & &-.3114E+01,-.2577E+01,-.1847E+01,-.8386E+00,0.5202E+00,0.3508E+01, & &-.4604E+02,-.4597E+02,-.4585E+02,-.2007E+02,-.1748E+02,-.1559E+02, & &-.1241E+02,-.7629E+01,-.5195E+01,-.4126E+01,-.3715E+01,-.3615E+01, & &-.3440E+01,-.3146E+01,-.2763E+01,-.2235E+01,-.1564E+01,-.5597E+00, & &0.7944E+00,0.3469E+01,-.4604E+02,-.4597E+02,-.4585E+02,-.1961E+02, & &-.1702E+02,-.1514E+02,-.1209E+02,-.7259E+01,-.4779E+01,-.3739E+01, & &-.3348E+01,-.3249E+01,-.3070E+01,-.2786E+01,-.2410E+01,-.1902E+01, & &-.1214E+01,-.3116E+00,0.1099E+01,0.3322E+01,-.4604E+02,-.4597E+02, & &-.4585E+02,-.1915E+02,-.1656E+02,-.1471E+02,-.1179E+02,-.6895E+01, & &-.4369E+01,-.3368E+01,-.2981E+01,-.2886E+01,-.2717E+01,-.2442E+01, & &-.2073E+01,-.1576E+01,-.8880E+00,-.9229E-01,0.1376E+01,0.3154E+01, & &-.4604E+02,-.4597E+02,-.4585E+02,-.1869E+02,-.1611E+02,-.1430E+02, & &-.1151E+02,-.6549E+01,-.3980E+01,-.3010E+01,-.2626E+01,-.2540E+01, & &-.2365E+01,-.2107E+01,-.1741E+01,-.1267E+01,-.6970E+00,0.2205E+00, & &0.1582E+01,0.2963E+01,-.4604E+02,-.4597E+02,-.4585E+02,-.1823E+02, & &-.1566E+02,-.1394E+02,-.1126E+02,-.6234E+01,-.3614E+01,-.2632E+01, & &-.2275E+01,-.2184E+01,-.2023E+01,-.1785E+01,-.1449E+01,-.1014E+01, & &-.3839E+00,0.5345E+00,0.1650E+01,0.2685E+01,-.4604E+02,-.4597E+02, & &-.4585E+02,-.1777E+02,-.1525E+02,-.1363E+02,-.1103E+02,-.5918E+01, & &-.3280E+01,-.2270E+01,-.1945E+01,-.1870E+01,-.1722E+01,-.1499E+01, & &-.1173E+01,-.7176E+00,-.7814E-01,0.7223E+00,0.1629E+01,0.2373E+01, & &-.4603E+02,-.4596E+02,-.4584E+02,-.1726E+02,-.1488E+02,-.1336E+02, & &-.1080E+02,-.5589E+01,-.2960E+01,-.1947E+01,-.1636E+01,-.1559E+01, & &-.1420E+01,-.1204E+01,-.8742E+00,-.4450E+00,0.1392E+00,0.8142E+00, & &0.1491E+01,0.2044E+01,-.4603E+02,-.4595E+02,-.2628E+02,-.1681E+02, & &-.1452E+02,-.1308E+02,-.1059E+02,-.5284E+01,-.2681E+01,-.1610E+01, & &-.1304E+01,-.1235E+01,-.1107E+01,-.9014E+00,-.5972E+00,-.2077E+00, & &0.2692E+00,0.7754E+00,0.1252E+01,0.1693E+01/ data ( ( coeco2_5_new(2,j,i), i = 1, 20 ), j = 1, 11 ) / & &-.6312E-05,-.3267E-04,-.7758E-04,0.2214E-01,0.1591E-01,0.1721E-01, & &0.1878E-01,0.1462E-01,0.4258E-02,0.4565E-02,0.5099E-02,0.5116E-02, & &0.5155E-02,0.5255E-02,0.5432E-02,0.5536E-02,0.5327E-02,0.4227E-02, & &0.4953E-02,0.2251E-02,-.6312E-05,-.3267E-04,-.7758E-04,0.2212E-01, & &0.1592E-01,0.1726E-01,0.1877E-01,0.1422E-01,0.3987E-02,0.4005E-02, & &0.4434E-02,0.4494E-02,0.4307E-02,0.4702E-02,0.4999E-02,0.4552E-02, & &0.4265E-02,0.3668E-02,0.3548E-02,0.1663E-02,-.6312E-05,-.3267E-04, & &-.7758E-04,0.2215E-01,0.1594E-01,0.1730E-01,0.1863E-01,0.1362E-01, & &0.3873E-02,0.3564E-02,0.3758E-02,0.3855E-02,0.3904E-02,0.4138E-02, & &0.4326E-02,0.3744E-02,0.3562E-02,0.3639E-02,0.2931E-02,0.1193E-02, & &-.6312E-05,-.3267E-04,-.7758E-04,0.2214E-01,0.1597E-01,0.1742E-01, & &0.1801E-01,0.1297E-01,0.3689E-02,0.3099E-02,0.3337E-02,0.3439E-02, & &0.3505E-02,0.3644E-02,0.3532E-02,0.3165E-02,0.3317E-02,0.3432E-02, & &0.1006E-02,0.1082E-02,-.6312E-05,-.3267E-04,-.7758E-04,0.2214E-01, & &0.1603E-01,0.1758E-01,0.1726E-01,0.1272E-01,0.3510E-02,0.2756E-02, & &0.2947E-02,0.2952E-02,0.3065E-02,0.2918E-02,0.3096E-02,0.2699E-02, & &0.3102E-02,0.2814E-02,-.2179E-03,0.6990E-03,-.6312E-05,-.3267E-04, & &-.7758E-04,0.2216E-01,0.1612E-01,0.1777E-01,0.1654E-01,0.1256E-01, & &0.3449E-02,0.2312E-02,0.2549E-02,0.2608E-02,0.2546E-02,0.2708E-02, & &0.2767E-02,0.2637E-02,0.3097E-02,0.1237E-02,-.4737E-04,0.5654E-03, & &-.6312E-05,-.3267E-04,-.7758E-04,0.2221E-01,0.1632E-01,0.1798E-01, & &0.1640E-01,0.1251E-01,0.3583E-02,0.2044E-02,0.2266E-02,0.2295E-02, & &0.2371E-02,0.2428E-02,0.2645E-02,0.2775E-02,0.2033E-02,-.4414E-03, & &0.7038E-04,0.6883E-03,-.6312E-05,-.3267E-04,-.7758E-04,0.2228E-01, & &0.1660E-01,0.1798E-01,0.1661E-01,0.1237E-01,0.3817E-02,0.1813E-02, & &0.1990E-02,0.2030E-02,0.2120E-02,0.2236E-02,0.2441E-02,0.1824E-02, & &0.6145E-03,-.6285E-03,-.5780E-03,0.1162E-02,-.6312E-05,-.3267E-04, & &-.7758E-04,0.2238E-01,0.1689E-01,0.1747E-01,0.1641E-01,0.1189E-01, & &0.4503E-02,0.1467E-02,0.1468E-02,0.1569E-02,0.1629E-02,0.1512E-02, & &0.1310E-02,0.5937E-03,-.4280E-03,-.4761E-03,0.3077E-03,0.9290E-03, & &-.1165E-04,-.6027E-04,-.1432E-03,0.2138E-01,0.1677E-01,0.1674E-01, & &0.1554E-01,0.1120E-01,0.5419E-02,0.8517E-03,0.6131E-03,0.5899E-03, & &0.6051E-03,0.3657E-03,0.1230E-03,-.2749E-03,-.2687E-03,-.3468E-04, & &0.7365E-03,0.7334E-03,-.1127E-04,-.5826E-04,-.1552E+00,0.2054E-01, & &0.1656E-01,0.1668E-01,0.1399E-01,0.1044E-01,0.5792E-02,-.4239E-04, & &-.2550E-03,-.2478E-03,-.2417E-03,-.2311E-03,-.2848E-03,-.1873E-03, & &-.1577E-03,0.3878E-03,0.7217E-03,0.9697E-03/ data ( ( coeco2_5_new(3,j,i), i = 1, 20 ), j = 1, 11 ) / & &0.2396E-07,0.1261E-06,0.3020E-06,-.1186E-03,-.5048E-04,-.3367E-04, & &-.2102E-04,-.1554E-04,0.4159E-05,0.1761E-04,0.1882E-04,0.1667E-04, & &0.1088E-04,0.1876E-05,0.1609E-05,0.5874E-05,0.1421E-04,0.7607E-05, & &0.6216E-05,-.1562E-04,0.2396E-07,0.1261E-06,0.3020E-06,-.1187E-03, & &-.5049E-04,-.3458E-04,-.1636E-04,-.1029E-04,0.1143E-05,0.1624E-04, & &0.1369E-04,0.1259E-04,0.4036E-05,0.4883E-05,0.8159E-05,0.1210E-04, & &0.9429E-05,0.8813E-05,0.2454E-05,-.9511E-05,0.2396E-07,0.1261E-06, & &0.3020E-06,-.1185E-03,-.5087E-04,-.3540E-04,-.6400E-05,-.6171E-05, & &-.2561E-05,0.1174E-04,0.1127E-04,0.1079E-04,0.7710E-05,0.6127E-05, & &0.1612E-04,0.1123E-04,0.8563E-05,-.2938E-05,0.2052E-04,-.2194E-04, & &0.2396E-07,0.1261E-06,0.3020E-06,-.1186E-03,-.5148E-04,-.3651E-04, & &-.4118E-05,-.1724E-05,-.6074E-05,0.1213E-04,0.1464E-04,0.1540E-04, & &0.1913E-04,0.1291E-04,0.1741E-04,0.1012E-04,0.1822E-04,0.3557E-05, & &0.1762E-04,-.2772E-04,0.2396E-07,0.1261E-06,0.3020E-06,-.1185E-03, & &-.5213E-04,-.3815E-04,-.1397E-06,-.1479E-05,-.7361E-05,0.1723E-04, & &0.1850E-04,0.1782E-04,0.1750E-04,0.1027E-04,0.7671E-05,0.7701E-05, & &0.3498E-05,0.1747E-04,0.1203E-04,-.2956E-05,0.2396E-07,0.1261E-06, & &0.3020E-06,-.1189E-03,-.5317E-04,-.3661E-04,0.3007E-05,-.2793E-05, & &-.8225E-05,0.2099E-04,0.1500E-04,0.1313E-04,0.1216E-04,0.5368E-05, & &0.3641E-05,0.2938E-05,-.7264E-05,0.3374E-04,0.7883E-05,0.5436E-05, & &0.2396E-07,0.1261E-06,0.3020E-06,-.1203E-03,-.5628E-04,-.3268E-04, & &0.3766E-05,-.5755E-05,-.1114E-04,0.2079E-04,0.4371E-05,0.6102E-05, & &0.3752E-05,0.5406E-05,-.2422E-05,0.6568E-05,0.2813E-04,0.1828E-04, & &-.6223E-05,-.3613E-05,0.2396E-07,0.1261E-06,0.3020E-06,-.1213E-03, & &-.5831E-04,-.2293E-04,-.3905E-05,0.5474E-06,-.1410E-04,0.1069E-04, & &0.6712E-05,0.3470E-05,0.4569E-05,0.9994E-05,0.9921E-05,0.2125E-04, & &0.1623E-04,-.3732E-05,-.1921E-06,0.8500E-05,0.2396E-07,0.1261E-06, & &0.3020E-06,-.1234E-03,-.5635E-04,-.1761E-04,-.6118E-05,0.2346E-05, & &-.2320E-04,0.9271E-05,0.1258E-04,0.1470E-04,0.1474E-04,0.1461E-04, & &0.1581E-04,0.1519E-04,0.2818E-05,-.2626E-06,0.3643E-05,0.5762E-05, & &0.4918E-07,0.2573E-06,0.6085E-06,-.1192E-03,-.4535E-04,-.7103E-05, & &-.2094E-06,0.4099E-05,-.2757E-04,0.1735E-04,0.1911E-04,0.1873E-04, & &0.1672E-04,0.1528E-04,0.1183E-04,0.9506E-05,0.5285E-06,-.4482E-07, & &-.4531E-05,0.5150E-05,-.1204E-06,-.6255E-06,-.3640E-02,-.1024E-03, & &-.4800E-04,-.8273E-05,0.1008E-04,-.3693E-05,-.2388E-04,0.1612E-04, & &0.1321E-04,0.1305E-04,0.1367E-04,0.9785E-05,0.3604E-05,0.1761E-05, & &-.4489E-05,-.2160E-05,-.8970E-06,0.1082E-05/ data ( ( coen2o_5_new(k,i), i = 1, 11 ) , k= 1, 3 )/ & &-.1547E+02,-.1501E+02,-.1455E+02,-.1409E+02,-.1363E+02,-.1317E+02, & &-.1271E+02,-.1226E+02,-.1181E+02,-.1132E+02,-.1094E+02,0.1180E-01, & &0.1179E-01,0.1180E-01,0.1180E-01,0.1181E-01,0.1182E-01,0.1187E-01, & &0.1195E-01,0.1223E-01,0.1359E-01,0.1500E-01,-.6451E-04,-.6470E-04, & &-.6455E-04,-.6446E-04,-.6448E-04,-.6467E-04,-.6578E-04,-.6657E-04, & &-.7072E-04,-.8392E-04,-.1009E-03/ data ( ( coech4_5_new(k,i), i = 1, 11 ) , k= 1, 3 )/ & &-.1469E+02,-.1423E+02,-.1377E+02,-.1331E+02,-.1285E+02,-.1239E+02, & &-.1193E+02,-.1147E+02,-.1101E+02,-.1054E+02,-.1010E+02,0.2568E-02, & &0.2559E-02,0.2564E-02,0.2575E-02,0.2568E-02,0.2575E-02,0.2566E-02, & &0.2572E-02,0.2589E-02,0.2741E-02,0.2859E-02,-.2855E-04,-.2877E-04, & &-.2893E-04,-.2867E-04,-.2855E-04,-.2867E-04,-.2857E-04,-.2876E-04, & &-.2814E-04,-.2486E-04,-.2352E-04/ data ( ( coeh2o_5_new(1,j,i), i = 1, 20 ), j = 1, 11 ) / & &-.1679E+02,-.1421E+02,-.1278E+02,-.1151E+02,-.1018E+02,-.8724E+01, & &-.7519E+01,-.6371E+01,-.5087E+01,-.3831E+01,-.3343E+01,-.3229E+01, & &-.3004E+01,-.2710E+01,-.2230E+01,-.1632E+01,-.7493E+00,0.2900E+00, & &0.1916E+01,0.4118E+01,-.1633E+02,-.1375E+02,-.1233E+02,-.1108E+02, & &-.9762E+01,-.8303E+01,-.7095E+01,-.5958E+01,-.4705E+01,-.3474E+01, & &-.2994E+01,-.2883E+01,-.2680E+01,-.2381E+01,-.1923E+01,-.1338E+01, & &-.5348E+00,0.4885E+00,0.2022E+01,0.4101E+01,-.1587E+02,-.1330E+02, & &-.1188E+02,-.1063E+02,-.9334E+01,-.7878E+01,-.6672E+01,-.5539E+01, & &-.4312E+01,-.3110E+01,-.2642E+01,-.2530E+01,-.2329E+01,-.2033E+01, & &-.1611E+01,-.1034E+01,-.2899E+00,0.6953E+00,0.2117E+01,0.4148E+01, & &-.1541E+02,-.1284E+02,-.1144E+02,-.1020E+02,-.8905E+01,-.7450E+01, & &-.6247E+01,-.5120E+01,-.3917E+01,-.2751E+01,-.2289E+01,-.2173E+01, & &-.1974E+01,-.1680E+01,-.1283E+01,-.7392E+00,-.2864E-01,0.9075E+00, & &0.2298E+01,0.4193E+01,-.1495E+02,-.1240E+02,-.1100E+02,-.9766E+01, & &-.8478E+01,-.7025E+01,-.5821E+01,-.4704E+01,-.3515E+01,-.2380E+01, & &-.1926E+01,-.1825E+01,-.1634E+01,-.1347E+01,-.9673E+00,-.4638E+00, & &0.2266E+00,0.1119E+01,0.2388E+01,0.4148E+01,-.1449E+02,-.1196E+02, & &-.1056E+02,-.9341E+01,-.8058E+01,-.6604E+01,-.5401E+01,-.4297E+01, & &-.3127E+01,-.2009E+01,-.1595E+01,-.1494E+01,-.1306E+01,-.1029E+01, & &-.6861E+00,-.1851E+00,0.4845E+00,0.1324E+01,0.2538E+01,0.4048E+01, & &-.1404E+02,-.1156E+02,-.1014E+02,-.8922E+01,-.7639E+01,-.6194E+01, & &-.4995E+01,-.3903E+01,-.2766E+01,-.1675E+01,-.1293E+01,-.1197E+01, & &-.1008E+01,-.7351E+00,-.4168E+00,0.7103E-01,0.7057E+00,0.1497E+01, & &0.2607E+01,0.3866E+01,-.1359E+02,-.1117E+02,-.9728E+01,-.8507E+01, & &-.7225E+01,-.5789E+01,-.4599E+01,-.3515E+01,-.2393E+01,-.1374E+01, & &-.1003E+01,-.9204E+00,-.7472E+00,-.4912E+00,-.1385E+00,0.3020E+00, & &0.8781E+00,0.1662E+01,0.2602E+01,0.3692E+01,-.1318E+02,-.1082E+02, & &-.9323E+01,-.8101E+01,-.6826E+01,-.5402E+01,-.4214E+01,-.3147E+01, & &-.2073E+01,-.1091E+01,-.7342E+00,-.6486E+00,-.4955E+00,-.2623E+00, & &0.8325E-01,0.4929E+00,0.1056E+01,0.1739E+01,0.2560E+01,0.3475E+01, & &-.1277E+02,-.1053E+02,-.8920E+01,-.7692E+01,-.6438E+01,-.5050E+01, & &-.3854E+01,-.2803E+01,-.1782E+01,-.8295E+00,-.4914E+00,-.4098E+00, & &-.2626E+00,-.4623E-01,0.2617E+00,0.6526E+00,0.1189E+01,0.1758E+01, & &0.2414E+01,0.3215E+01,-.1240E+02,-.1026E+02,-.8528E+01,-.7299E+01, & &-.6073E+01,-.4726E+01,-.3528E+01,-.2495E+01,-.1512E+01,-.5843E+00, & &-.2852E+00,-.2171E+00,-.7673E-01,0.1243E+00,0.4100E+00,0.8000E+00, & &0.1228E+01,0.1695E+01,0.2278E+01,0.2868E+01/ data ( ( coeh2o_5_new(2,j,i), i = 1, 20 ), j = 1, 11 ) / & &0.1204E-01,0.7706E-02,0.6638E-02,0.7243E-02,0.7680E-02,0.5452E-02, & &0.3557E-02,0.2130E-02,0.2271E-02,0.3087E-02,0.3014E-02,0.3048E-02, & &0.3219E-02,0.3560E-02,0.3806E-02,0.3584E-02,0.4275E-02,0.2983E-02, & &0.2555E-02,0.1260E-02,0.1205E-01,0.7751E-02,0.6707E-02,0.7213E-02, & &0.7529E-02,0.5346E-02,0.3357E-02,0.1917E-02,0.2007E-02,0.2577E-02, & &0.2549E-02,0.2596E-02,0.2542E-02,0.2886E-02,0.2759E-02,0.2819E-02, & &0.3234E-02,0.2266E-02,0.2982E-02,0.9786E-03,0.1207E-01,0.7798E-02, & &0.6725E-02,0.7193E-02,0.7357E-02,0.5232E-02,0.3185E-02,0.1721E-02, & &0.1677E-02,0.2172E-02,0.2133E-02,0.2169E-02,0.2169E-02,0.2152E-02, & &0.2124E-02,0.2462E-02,0.2520E-02,0.1767E-02,0.2956E-02,0.2229E-03, & &0.1209E-01,0.7870E-02,0.6740E-02,0.7117E-02,0.7196E-02,0.5153E-02, & &0.3017E-02,0.1577E-02,0.1401E-02,0.1784E-02,0.1860E-02,0.1845E-02, & &0.1683E-02,0.1516E-02,0.1836E-02,0.1864E-02,0.1418E-02,0.8931E-03, & &0.2304E-02,0.2570E-03,0.1215E-01,0.7968E-02,0.6728E-02,0.6976E-02, & &0.7038E-02,0.5049E-02,0.2906E-02,0.1479E-02,0.1208E-02,0.1313E-02, & &0.1452E-02,0.1438E-02,0.1389E-02,0.1262E-02,0.1286E-02,0.1193E-02, & &0.1107E-02,0.6817E-03,0.1556E-02,-.1493E-03,0.1223E-01,0.8121E-02, & &0.6734E-02,0.6903E-02,0.6912E-02,0.5013E-02,0.2808E-02,0.1337E-02, & &0.1165E-02,0.1084E-02,0.1340E-02,0.1399E-02,0.1313E-02,0.1174E-02, & &0.8843E-03,0.9987E-03,0.9803E-03,0.1086E-02,0.9965E-03,-.9692E-03, & &0.1229E-01,0.8279E-02,0.6713E-02,0.6800E-02,0.6847E-02,0.5006E-02, & &0.2661E-02,0.1253E-02,0.1035E-02,0.9595E-03,0.1264E-02,0.1258E-02, & &0.1156E-02,0.8092E-03,0.7080E-03,0.8455E-03,0.8113E-03,0.8759E-03, & &0.2292E-03,-.5840E-03,0.1244E-01,0.8559E-02,0.6642E-02,0.6655E-02, & &0.6701E-02,0.5003E-02,0.2486E-02,0.1133E-02,0.9329E-03,0.7777E-03, & &0.9160E-03,0.9158E-03,0.7865E-03,0.7290E-03,0.5881E-03,0.6781E-03, & &0.5059E-03,0.3786E-03,-.2816E-04,-.1370E-02,0.1252E-01,0.8676E-02, & &0.6502E-02,0.6573E-02,0.6754E-02,0.5131E-02,0.2346E-02,0.1110E-02, & &0.8200E-03,0.6781E-03,0.5184E-03,0.5828E-03,0.6087E-03,0.6010E-03, & &0.5973E-03,0.5822E-03,0.5167E-03,0.2478E-03,-.5116E-03,-.1448E-02, & &0.1275E-01,0.9012E-02,0.6375E-02,0.6409E-02,0.6763E-02,0.5223E-02, & &0.2154E-02,0.1186E-02,0.7161E-03,0.3788E-03,0.2895E-03,0.3548E-03, & &0.5469E-03,0.5274E-03,0.5283E-03,0.3407E-03,0.3951E-03,-.5743E-04, & &-.4179E-03,-.6078E-03,0.1267E-01,0.9445E-02,0.6244E-02,0.6370E-02, & &0.6707E-02,0.5162E-02,0.2073E-02,0.1367E-02,0.5272E-03,0.3591E-03, & &0.2973E-03,0.3340E-03,0.3241E-03,0.3011E-03,0.2689E-03,0.1879E-03, & &0.3560E-03,-.2123E-03,-.9343E-03,-.9746E-03/ data ( ( coeh2o_5_new(3,j,i), i = 1, 20 ), j = 1, 11 ) / & &-.1488E-04,-.4992E-04,-.1896E-04,-.1536E-04,-.1366E-04,-.1704E-04, & &-.9149E-05,0.1797E-06,-.3830E-05,-.3421E-05,-.4354E-05,-.3941E-05, & &-.5329E-05,0.9114E-05,0.6472E-05,0.2136E-05,-.2470E-04,0.6310E-05, & &-.8523E-05,0.1507E-04,-.1526E-04,-.4992E-04,-.1852E-04,-.1385E-04, & &-.1243E-04,-.1611E-04,-.1028E-04,0.1072E-05,-.7730E-06,-.3514E-05, & &-.1722E-05,-.4966E-06,0.9349E-06,0.8705E-05,0.2239E-05,-.5156E-05, & &-.3809E-05,0.5633E-05,-.6523E-05,0.1907E-04,-.1531E-04,-.5094E-04, & &-.1711E-04,-.1402E-04,-.1158E-04,-.1541E-04,-.8994E-05,0.5836E-06, & &-.7061E-06,-.2982E-05,0.2277E-05,0.3383E-05,0.3076E-05,0.4003E-05, & &0.1708E-06,-.6581E-05,0.2710E-05,0.7203E-05,-.1286E-05,-.3646E-05, & &-.1521E-04,-.5155E-04,-.1586E-04,-.1291E-04,-.1205E-04,-.1693E-04, & &-.7853E-05,-.1132E-05,-.2090E-05,0.4380E-05,0.3341E-05,0.2540E-06, & &0.4008E-07,-.7470E-05,-.3862E-05,-.4504E-05,0.5059E-05,0.1909E-05, & &-.1382E-04,-.1918E-04,-.1593E-04,-.5295E-04,-.1580E-04,-.1262E-04, & &-.1294E-04,-.1677E-04,-.7874E-05,-.1899E-05,-.5272E-05,-.1308E-06, & &-.2730E-05,-.1780E-05,-.3794E-05,-.5488E-05,-.5482E-05,0.1685E-05, & &0.5738E-05,0.8429E-07,0.1426E-04,-.8812E-05,-.1695E-04,-.5113E-04, & &-.1454E-04,-.1172E-04,-.1348E-04,-.1736E-04,-.6866E-05,-.2326E-05, & &-.4519E-05,-.3909E-05,-.2330E-05,-.2746E-05,-.4705E-05,-.7223E-05, & &0.6654E-06,-.2541E-06,0.2110E-05,-.9119E-05,-.1092E-04,-.1416E-04, & &-.1853E-04,-.4810E-04,-.1398E-04,-.1208E-04,-.1648E-04,-.1727E-04, & &-.5378E-05,-.3338E-05,-.3626E-07,-.3219E-05,-.3313E-06,0.1342E-05, & &-.2380E-05,-.7542E-05,0.2723E-05,0.3471E-05,-.5414E-05,-.8535E-05, & &-.8649E-05,0.9000E-05,-.1941E-04,-.4399E-04,-.1103E-04,-.1223E-04, & &-.1715E-04,-.1735E-04,-.3181E-05,-.4420E-05,-.4976E-05,-.2576E-05, & &0.4882E-07,0.2550E-05,0.8227E-06,-.1540E-05,-.4379E-05,-.3666E-05, & &-.1228E-05,-.6451E-05,0.3135E-06,0.1819E-04,-.1588E-04,-.3742E-04, & &-.1046E-04,-.1117E-04,-.1555E-04,-.1810E-04,-.3538E-05,-.5237E-05, & &-.4512E-05,-.4260E-05,-.1338E-05,-.1553E-05,-.2364E-06,-.2937E-05, & &-.3000E-05,-.4404E-05,-.4429E-05,0.5089E-05,-.3497E-05,0.1401E-05, & &-.1088E-04,-.1897E-04,-.1016E-04,-.1119E-04,-.1582E-04,-.1467E-04, & &-.4144E-05,-.7074E-05,-.2523E-05,-.1621E-06,-.2316E-05,-.1536E-05, & &-.1114E-05,-.3704E-05,-.4162E-05,0.5414E-05,-.6634E-05,0.7455E-06, & &0.7533E-05,-.1057E-04,-.6807E-05,-.1136E-04,-.9631E-05,-.1372E-04, & &-.1708E-04,-.1658E-04,-.4971E-05,-.8482E-05,0.4900E-06,-.2855E-05, & &-.8621E-06,0.6185E-06,0.2429E-05,0.2445E-05,-.4034E-06,-.4563E-05, & &-.8940E-05,0.1794E-05,0.2715E-05,-.5026E-06/ real hk_6_new(20), coehh62_6_new(3,11,20),coeso2_6_new(3,11) & & ,coeh2o_6_new(3,11,20) data hk_6_new /3.16689E-02,7.09894E-02,1.04066E-01,0.127902, & & 0.140374,0.140374,0.127902,1.04066E-01,7.09894E-02,3.16689E-02 & & ,1.66678E-03 & & ,3.73628E-03,5.47716E-03,6.73167E-03,7.38811E-03,7.38811E-03, & & 6.73167E-03,5.47716E-03,3.73628E-03,1.66678E-03/ data ( ( coehh62_6_new(1,j,i), i = 1, 20 ), j = 1, 11 ) / & &-.9667E+01,-.9653E+01,-.9628E+01,-.9595E+01,-.9557E+01,-.9517E+01, & &-.9479E+01,-.9446E+01,-.9230E+01,-.7739E+01,-.7157E+01,-.7028E+01, & &-.6791E+01,-.6457E+01,-.5962E+01,-.5352E+01,-.4491E+01,-.3367E+01, & &-.1470E+01,0.8809E+00,-.9207E+01,-.9192E+01,-.9168E+01,-.9135E+01, & &-.9097E+01,-.9057E+01,-.9019E+01,-.8986E+01,-.8770E+01,-.7306E+01, & &-.6729E+01,-.6600E+01,-.6371E+01,-.6060E+01,-.5555E+01,-.5004E+01, & &-.4163E+01,-.3114E+01,-.1384E+01,0.8334E+00,-.8746E+01,-.8732E+01, & &-.8707E+01,-.8674E+01,-.8636E+01,-.8596E+01,-.8558E+01,-.8525E+01, & &-.8309E+01,-.6877E+01,-.6302E+01,-.6185E+01,-.5968E+01,-.5633E+01, & &-.5160E+01,-.4635E+01,-.3842E+01,-.2820E+01,-.1245E+01,0.6736E+00, & &-.8286E+01,-.8271E+01,-.8246E+01,-.8214E+01,-.8176E+01,-.8136E+01, & &-.8098E+01,-.8065E+01,-.7849E+01,-.6445E+01,-.5890E+01,-.5769E+01, & &-.5537E+01,-.5220E+01,-.4772E+01,-.4247E+01,-.3541E+01,-.2475E+01, & &-.1109E+01,0.6606E+00,-.7825E+01,-.7811E+01,-.7786E+01,-.7753E+01, & &-.7715E+01,-.7675E+01,-.7637E+01,-.7604E+01,-.7390E+01,-.6040E+01, & &-.5476E+01,-.5348E+01,-.5133E+01,-.4827E+01,-.4384E+01,-.3904E+01, & &-.3194E+01,-.2185E+01,-.9919E+00,0.4216E+00,-.7365E+01,-.7350E+01, & &-.7325E+01,-.7293E+01,-.7254E+01,-.7215E+01,-.7177E+01,-.7144E+01, & &-.6931E+01,-.5630E+01,-.5073E+01,-.4948E+01,-.4733E+01,-.4423E+01, & &-.4029E+01,-.3538E+01,-.2879E+01,-.1939E+01,-.9645E+00,0.3446E+00, & &-.6904E+01,-.6890E+01,-.6865E+01,-.6832E+01,-.6794E+01,-.6755E+01, & &-.6717E+01,-.6684E+01,-.6477E+01,-.5223E+01,-.4684E+01,-.4561E+01, & &-.4344E+01,-.4044E+01,-.3664E+01,-.3218E+01,-.2624E+01,-.1798E+01, & &-.8307E+00,0.2102E+00,-.6444E+01,-.6429E+01,-.6405E+01,-.6372E+01, & &-.6334E+01,-.6294E+01,-.6256E+01,-.6224E+01,-.6024E+01,-.4837E+01, & &-.4301E+01,-.4177E+01,-.3957E+01,-.3694E+01,-.3340E+01,-.2917E+01, & &-.2407E+01,-.1680E+01,-.8730E+00,-.1722E-01,-.5983E+01,-.5969E+01, & &-.5944E+01,-.5912E+01,-.5874E+01,-.5834E+01,-.5797E+01,-.5764E+01, & &-.5575E+01,-.4419E+01,-.3920E+01,-.3816E+01,-.3632E+01,-.3375E+01, & &-.3093E+01,-.2728E+01,-.2243E+01,-.1594E+01,-.9797E+00,-.2503E+00, & &-.5523E+01,-.5508E+01,-.5484E+01,-.5451E+01,-.5414E+01,-.5375E+01, & &-.5337E+01,-.5305E+01,-.5124E+01,-.4022E+01,-.3593E+01,-.3506E+01, & &-.3345E+01,-.3134E+01,-.2898E+01,-.2566E+01,-.2089E+01,-.1622E+01, & &-.1140E+01,-.5877E+00,-.5062E+01,-.5048E+01,-.5024E+01,-.4992E+01, & &-.4954E+01,-.4915E+01,-.4878E+01,-.4846E+01,-.4675E+01,-.3658E+01, & &-.3312E+01,-.3239E+01,-.3113E+01,-.2949E+01,-.2766E+01,-.2396E+01, & &-.2049E+01,-.1638E+01,-.1305E+01,-.9088E+00/ data ( ( coehh62_6_new(2,j,i), i = 1, 20 ), j = 1, 11 ) / & &-.2708E-01,-.2651E-01,-.2545E-01,-.2385E-01,-.2324E-01,-.2349E-01, & &-.2374E-01,-.2421E-01,-.1680E-01,-.2856E-03,0.1422E-02,0.1756E-02, & &0.2525E-02,0.3960E-02,0.5646E-02,0.7334E-02,0.7621E-02,0.7548E-02, & &0.5082E-02,0.5324E-02,-.2708E-01,-.2652E-01,-.2546E-01,-.2384E-01, & &-.2322E-01,-.2347E-01,-.2371E-01,-.2419E-01,-.1683E-01,-.3282E-03, & &0.1485E-02,0.1731E-02,0.2295E-02,0.3569E-02,0.5337E-02,0.5533E-02, & &0.5841E-02,0.5607E-02,0.4539E-02,0.5602E-02,-.2708E-01,-.2651E-01, & &-.2545E-01,-.2385E-01,-.2324E-01,-.2348E-01,-.2373E-01,-.2420E-01, & &-.1682E-01,-.2929E-03,0.1377E-02,0.1590E-02,0.2159E-02,0.3440E-02, & &0.4662E-02,0.5012E-02,0.4695E-02,0.3924E-02,0.3741E-02,0.4969E-02, & &-.2708E-01,-.2651E-01,-.2545E-01,-.2385E-01,-.2324E-01,-.2348E-01, & &-.2373E-01,-.2420E-01,-.1682E-01,-.3198E-03,0.1224E-02,0.1557E-02, & &0.2048E-02,0.2705E-02,0.3888E-02,0.4160E-02,0.3778E-02,0.2669E-02, & &0.2845E-02,0.5310E-02,-.2708E-01,-.2651E-01,-.2545E-01,-.2385E-01, & &-.2324E-01,-.2348E-01,-.2373E-01,-.2420E-01,-.1697E-01,-.5133E-03, & &0.9245E-03,0.1115E-02,0.1453E-02,0.1932E-02,0.3127E-02,0.2995E-02, & &0.2403E-02,0.3104E-02,0.1342E-02,0.5079E-02,-.2708E-01,-.2651E-01, & &-.2545E-01,-.2385E-01,-.2324E-01,-.2348E-01,-.2373E-01,-.2419E-01, & &-.1707E-01,-.1177E-02,0.1868E-03,0.4750E-03,0.9348E-03,0.1296E-02, & &0.2276E-02,0.2125E-02,0.2156E-02,0.3366E-02,0.2008E-02,0.4248E-02, & &-.2708E-01,-.2652E-01,-.2546E-01,-.2384E-01,-.2321E-01,-.2346E-01, & &-.2369E-01,-.2417E-01,-.1729E-01,-.2249E-02,-.4710E-03,-.4539E-03, & &0.6080E-04,0.7048E-03,0.1538E-02,0.2074E-02,0.2281E-02,0.3636E-02, & &0.3781E-02,0.5755E-02,-.2708E-01,-.2651E-01,-.2545E-01,-.2385E-01, & &-.2323E-01,-.2347E-01,-.2371E-01,-.2418E-01,-.1797E-01,-.3309E-02, & &-.1281E-02,-.1097E-02,-.5322E-03,0.2134E-04,0.7265E-03,0.1910E-02, & &0.1981E-02,0.3826E-02,0.4608E-02,0.5151E-02,-.2708E-01,-.2651E-01, & &-.2545E-01,-.2386E-01,-.2324E-01,-.2348E-01,-.2371E-01,-.2418E-01, & &-.1947E-01,-.4529E-02,-.2135E-02,-.1786E-02,-.1108E-02,-.1966E-03, & &0.8462E-03,0.1820E-02,0.2539E-02,0.4328E-02,0.3932E-02,0.5756E-02, & &-.2708E-01,-.2651E-01,-.2546E-01,-.2390E-01,-.2324E-01,-.2349E-01, & &-.2372E-01,-.2418E-01,-.2123E-01,-.5410E-02,-.2339E-02,-.2035E-02, & &-.1348E-02,-.6070E-03,-.4833E-05,0.1460E-02,0.3117E-02,0.3868E-02, & &0.4459E-02,0.5434E-02,-.2708E-01,-.2652E-01,-.2549E-01,-.2400E-01, & &-.2327E-01,-.2351E-01,-.2374E-01,-.2418E-01,-.2291E-01,-.6281E-02, & &-.2938E-02,-.2467E-02,-.2122E-02,-.1570E-02,-.3528E-03,0.1469E-02, & &0.2665E-02,0.3666E-02,0.3621E-02,0.5081E-02/ data ( ( coehh62_6_new(3,j,i), i = 1, 20 ), j = 1, 11 ) / & &-.3371E-04,-.1558E-04,0.1711E-04,0.6392E-04,0.9219E-04,0.1041E-03, & &0.1157E-03,0.1304E-03,0.2195E-03,0.6023E-04,0.3354E-04,0.3098E-04, & &0.2733E-04,0.3203E-04,0.1841E-04,0.3694E-04,0.2320E-04,0.2027E-04, & &-.1302E-04,-.5543E-04,-.3379E-04,-.1599E-04,0.1634E-04,0.6315E-04, & &0.9168E-04,0.1037E-03,0.1152E-03,0.1302E-03,0.2188E-03,0.6325E-04, & &0.3944E-04,0.3620E-04,0.3270E-04,0.4286E-04,0.2168E-04,0.2955E-04, & &0.1721E-04,0.8918E-05,-.6523E-05,-.5039E-04,-.3373E-04,-.1567E-04, & &0.1694E-04,0.6372E-04,0.9205E-04,0.1040E-03,0.1155E-03,0.1303E-03, & &0.2189E-03,0.7100E-04,0.4707E-04,0.4619E-04,0.4492E-04,0.4602E-04, & &0.2443E-04,0.3433E-04,0.1585E-04,0.5867E-05,0.3420E-06,-.1850E-04, & &-.3372E-04,-.1563E-04,0.1703E-04,0.6384E-04,0.9213E-04,0.1040E-03, & &0.1155E-03,0.1302E-03,0.2189E-03,0.7705E-04,0.5640E-04,0.5543E-04, & &0.4413E-04,0.4087E-04,0.2313E-04,0.2460E-04,0.2125E-04,-.4771E-05, & &-.1355E-05,-.3365E-04,-.3372E-04,-.1559E-04,0.1709E-04,0.6387E-04, & &0.9213E-04,0.1040E-03,0.1156E-03,0.1302E-03,0.2164E-03,0.8442E-04, & &0.5958E-04,0.5325E-04,0.4425E-04,0.3852E-04,0.2133E-04,0.2273E-04, & &0.1111E-05,-.6955E-05,-.1659E-04,0.1914E-04,-.3372E-04,-.1560E-04, & &0.1708E-04,0.6385E-04,0.9210E-04,0.1040E-03,0.1155E-03,0.1301E-03, & &0.2150E-03,0.8868E-04,0.5468E-04,0.5100E-04,0.4405E-04,0.3155E-04, & &0.1870E-04,0.7819E-05,0.1052E-05,-.1769E-04,0.2584E-05,0.7410E-05, & &-.3379E-04,-.1600E-04,0.1629E-04,0.6301E-04,0.9158E-04,0.1035E-03, & &0.1149E-03,0.1298E-03,0.2127E-03,0.8664E-04,0.5114E-04,0.4597E-04, & &0.3562E-04,0.2479E-04,0.1163E-04,0.9757E-05,0.3488E-05,-.1156E-04, & &-.2332E-04,-.3154E-05,-.3374E-04,-.1571E-04,0.1685E-04,0.6352E-04, & &0.9197E-04,0.1039E-03,0.1153E-03,0.1300E-03,0.2025E-03,0.9169E-04, & &0.4326E-04,0.3635E-04,0.2582E-04,0.2002E-04,0.9380E-05,0.1084E-04, & &-.1823E-05,-.1982E-04,-.1654E-04,-.1981E-04,-.3372E-04,-.1564E-04, & &0.1696E-04,0.6357E-04,0.9211E-04,0.1040E-03,0.1154E-03,0.1300E-03, & &0.1785E-03,0.8311E-04,0.3462E-04,0.3216E-04,0.2805E-04,0.1893E-04, & &0.2209E-04,0.1619E-04,0.2757E-05,-.2293E-04,0.1417E-06,-.2688E-04, & &-.3372E-04,-.1560E-04,0.1687E-04,0.6296E-04,0.9204E-04,0.1039E-03, & &0.1152E-03,0.1297E-03,0.1489E-03,0.8721E-04,0.4197E-04,0.4071E-04, & &0.3529E-04,0.2399E-04,0.2257E-04,0.1966E-04,-.4268E-05,-.7444E-05, & &0.4240E-05,-.2269E-04,-.3374E-04,-.1570E-04,0.1632E-04,0.6129E-04, & &0.9169E-04,0.1035E-03,0.1148E-03,0.1290E-03,0.1207E-03,0.1016E-03, & &0.5146E-04,0.4638E-04,0.4090E-04,0.3605E-04,0.4308E-04,0.1763E-04, & &0.1664E-04,-.4294E-05,0.1195E-04,-.6244E-05/ data ( ( coeso2_6_new(k,j), j = 1, 11 ), k=1, 3 ) / & &-.1280E+02,-.1234E+02,-.1189E+02,-.1145E+02,-.1103E+02,-.1072E+02, & &-.1049E+02,-.1032E+02,-.1020E+02,-.9898E+01,-.9803E+01,0.1000E-01, & &0.1011E-01,0.1017E-01,0.1055E-01,0.1117E-01,0.1183E-01,0.1209E-01, & &0.1229E-01,0.1207E-01,0.1084E-01,0.1142E-01,-.4992E-04,-.5246E-04, & &-.5238E-04,-.5332E-04,-.6118E-04,-.5978E-04,-.5063E-04,-.4731E-04, & &-.4110E-04,-.6332E-04,-.4993E-04/ data ( ( coeh2o_6_new(1,j,i), i = 1, 20 ), j = 1, 11 ) / & &-.4600E+02,-.3047E+02,-.2846E+02,-.2708E+02,-.2564E+02,-.2430E+02, & &-.2317E+02,-.2161E+02,-.1833E+02,-.1505E+02,-.1438E+02,-.1424E+02, & &-.1400E+02,-.1363E+02,-.1317E+02,-.1251E+02,-.1163E+02,-.1052E+02, & &-.8621E+01,-.6305E+01,-.4600E+02,-.3001E+02,-.2800E+02,-.2662E+02, & &-.2518E+02,-.2384E+02,-.2271E+02,-.2115E+02,-.1787E+02,-.1462E+02, & &-.1397E+02,-.1383E+02,-.1358E+02,-.1322E+02,-.1275E+02,-.1216E+02, & &-.1132E+02,-.1025E+02,-.8523E+01,-.6305E+01,-.4600E+02,-.2955E+02, & &-.2754E+02,-.2616E+02,-.2472E+02,-.2338E+02,-.2225E+02,-.2069E+02, & &-.1741E+02,-.1419E+02,-.1354E+02,-.1340E+02,-.1317E+02,-.1280E+02, & &-.1234E+02,-.1179E+02,-.1101E+02,-.9958E+01,-.8383E+01,-.6464E+01, & &-.4600E+02,-.2909E+02,-.2708E+02,-.2570E+02,-.2425E+02,-.2292E+02, & &-.2179E+02,-.2023E+02,-.1695E+02,-.1377E+02,-.1314E+02,-.1299E+02, & &-.1275E+02,-.1239E+02,-.1195E+02,-.1141E+02,-.1070E+02,-.9646E+01, & &-.8247E+01,-.6477E+01,-.4600E+02,-.2862E+02,-.2661E+02,-.2524E+02, & &-.2379E+02,-.2246E+02,-.2133E+02,-.1977E+02,-.1651E+02,-.1338E+02, & &-.1273E+02,-.1258E+02,-.1234E+02,-.1201E+02,-.1157E+02,-.1108E+02, & &-.1038E+02,-.9328E+01,-.8163E+01,-.6721E+01,-.4600E+02,-.2816E+02, & &-.2615E+02,-.2478E+02,-.2333E+02,-.2200E+02,-.2087E+02,-.1931E+02, & &-.1608E+02,-.1297E+02,-.1233E+02,-.1219E+02,-.1196E+02,-.1163E+02, & &-.1121E+02,-.1071E+02,-.1004E+02,-.9092E+01,-.8137E+01,-.6840E+01, & &-.4600E+02,-.2771E+02,-.2570E+02,-.2432E+02,-.2288E+02,-.2154E+02, & &-.2041E+02,-.1885E+02,-.1572E+02,-.1258E+02,-.1196E+02,-.1182E+02, & &-.1158E+02,-.1125E+02,-.1085E+02,-.1037E+02,-.9773E+01,-.8976E+01, & &-.7992E+01,-.6928E+01,-.4600E+02,-.2724E+02,-.2523E+02,-.2386E+02, & &-.2241E+02,-.2108E+02,-.1995E+02,-.1840E+02,-.1542E+02,-.1221E+02, & &-.1157E+02,-.1143E+02,-.1120E+02,-.1089E+02,-.1053E+02,-.1010E+02, & &-.9581E+01,-.8824E+01,-.8043E+01,-.7155E+01,-.4600E+02,-.2678E+02, & &-.2477E+02,-.2340E+02,-.2195E+02,-.2062E+02,-.1949E+02,-.1797E+02, & &-.1517E+02,-.1180E+02,-.1121E+02,-.1108E+02,-.1086E+02,-.1062E+02, & &-.1030E+02,-.9901E+01,-.9409E+01,-.8739E+01,-.8128E+01,-.7388E+01, & &-.4595E+02,-.2593E+02,-.2418E+02,-.2290E+02,-.2147E+02,-.2015E+02, & &-.1904E+02,-.1756E+02,-.1505E+02,-.1143E+02,-.1090E+02,-.1079E+02, & &-.1061E+02,-.1038E+02,-.1012E+02,-.9753E+01,-.9284E+01,-.8780E+01, & &-.8300E+01,-.7749E+01,-.4594E+02,-.2538E+02,-.2372E+02,-.2244E+02, & &-.2101E+02,-.1970E+02,-.1860E+02,-.1723E+02,-.1497E+02,-.1109E+02, & &-.1064E+02,-.1056E+02,-.1041E+02,-.1023E+02,-.9992E+01,-.9603E+01, & &-.9239E+01,-.8818E+01,-.8469E+01,-.8081E+01/ data ( ( coeh2o_6_new(2,j,i), i = 1, 20 ), j = 1, 11 ) / & &-.1732E-03,-.1040E+00,0.4355E-01,0.3802E-01,0.3763E-01,0.3498E-01, & &0.3418E-01,0.3305E-01,0.2441E-01,0.5405E-02,0.4747E-02,0.4815E-02, & &0.4948E-02,0.5712E-02,0.6499E-02,0.8091E-02,0.7739E-02,0.7929E-02, & &0.5507E-02,0.5324E-02,-.1732E-03,-.1082E+00,0.4355E-01,0.3802E-01, & &0.3761E-01,0.3500E-01,0.3418E-01,0.3308E-01,0.2480E-01,0.5392E-02, & &0.4896E-02,0.4827E-02,0.4807E-02,0.5315E-02,0.6330E-02,0.6395E-02, & &0.6155E-02,0.5730E-02,0.4539E-02,0.5602E-02,-.1732E-03,-.1124E+00, & &0.4356E-01,0.3801E-01,0.3763E-01,0.3499E-01,0.3418E-01,0.3306E-01, & &0.2507E-01,0.5563E-02,0.4808E-02,0.4727E-02,0.4704E-02,0.5231E-02, & &0.5865E-02,0.5900E-02,0.4793E-02,0.3895E-02,0.3741E-02,0.4969E-02, & &-.1732E-03,-.1165E+00,0.4356E-01,0.3802E-01,0.3763E-01,0.3498E-01, & &0.3419E-01,0.3307E-01,0.2544E-01,0.5598E-02,0.4705E-02,0.4709E-02, & &0.4613E-02,0.4609E-02,0.5258E-02,0.4956E-02,0.4074E-02,0.2861E-02, & &0.2990E-02,0.5310E-02,-.1732E-03,-.1207E+00,0.4355E-01,0.3801E-01, & &0.3763E-01,0.3498E-01,0.3420E-01,0.3307E-01,0.2585E-01,0.5504E-02, & &0.4420E-02,0.4295E-02,0.4078E-02,0.3915E-02,0.4571E-02,0.3703E-02, & &0.3252E-02,0.3150E-02,0.1358E-02,0.4710E-02,-.1732E-03,-.1249E+00, & &0.4356E-01,0.3803E-01,0.3764E-01,0.3498E-01,0.3421E-01,0.3311E-01, & &0.2631E-01,0.5258E-02,0.3788E-02,0.3741E-02,0.3749E-02,0.3160E-02, & &0.3813E-02,0.2749E-02,0.2548E-02,0.3451E-02,0.2008E-02,0.4013E-02, & &-.1732E-03,-.1291E+00,0.4355E-01,0.3803E-01,0.3762E-01,0.3501E-01, & &0.3421E-01,0.3317E-01,0.2691E-01,0.4396E-02,0.3183E-02,0.2727E-02, & &0.2707E-02,0.2743E-02,0.3062E-02,0.2843E-02,0.2648E-02,0.3747E-02, & &0.3891E-02,0.5570E-02,-.1732E-03,-.1333E+00,0.4356E-01,0.3803E-01, & &0.3764E-01,0.3502E-01,0.3422E-01,0.3333E-01,0.2696E-01,0.3569E-02, & &0.2360E-02,0.2106E-02,0.2282E-02,0.2378E-02,0.2520E-02,0.3106E-02, & &0.2731E-02,0.3933E-02,0.4528E-02,0.5413E-02,-.1732E-03,-.1375E+00, & &0.4356E-01,0.3806E-01,0.3766E-01,0.3502E-01,0.3427E-01,0.3365E-01, & &0.2573E-01,0.2764E-02,0.1964E-02,0.1815E-02,0.2121E-02,0.2308E-02, & &0.2642E-02,0.2912E-02,0.3808E-02,0.4920E-02,0.4192E-02,0.5815E-02, & &-.2013E-03,0.6002E-01,0.4420E-01,0.3855E-01,0.3797E-01,0.3514E-01, & &0.3447E-01,0.3441E-01,0.2400E-01,0.2426E-02,0.2285E-02,0.2307E-02, & &0.2456E-02,0.2597E-02,0.2516E-02,0.3262E-02,0.4367E-02,0.4726E-02, & &0.4604E-02,0.5849E-02,0.0000E+00,0.6025E-01,0.4432E-01,0.3864E-01, & &0.3801E-01,0.3526E-01,0.3472E-01,0.3484E-01,0.2350E-01,0.2538E-02, & &0.2770E-02,0.2631E-02,0.2378E-02,0.2408E-02,0.2965E-02,0.4432E-02, & &0.4542E-02,0.5035E-02,0.4633E-02,0.5444E-02/ data ( ( coeh2o_6_new(3,j,i), i = 1, 20 ), j = 1, 11 ) / & &0.6305E-09,-.3186E-02,-.1769E-03,-.8462E-04,-.9882E-04,-.9498E-04, & &-.9584E-04,-.9217E-04,-.4288E-07,-.1434E-04,-.9830E-05,-.9121E-05, & &-.1076E-05,0.3692E-05,0.2042E-04,0.2711E-04,0.1446E-04,0.1809E-04, & &-.1982E-04,-.3973E-04,0.6305E-09,-.3261E-02,-.1763E-03,-.8508E-04, & &-.9858E-04,-.9520E-04,-.9582E-04,-.9287E-04,-.7187E-05,-.9534E-05, & &-.2394E-05,-.9578E-06,0.4418E-05,0.9583E-05,0.1496E-04,0.2117E-04, & &0.1408E-04,0.6408E-05,-.6277E-05,-.5039E-04,0.6305E-09,-.3338E-02, & &-.1765E-03,-.8448E-04,-.9877E-04,-.9522E-04,-.9598E-04,-.9268E-04, & &-.1109E-04,-.3322E-05,0.5691E-05,0.4565E-05,0.1416E-04,0.1524E-04, & &0.1264E-04,0.2417E-04,0.1825E-04,0.4172E-05,0.3421E-06,-.1850E-04, & &0.6305E-09,-.3414E-02,-.1767E-03,-.8451E-04,-.9882E-04,-.9486E-04, & &-.9598E-04,-.9240E-04,-.1727E-04,0.4190E-05,0.1412E-04,0.1219E-04, & &0.1657E-04,0.1401E-04,0.3647E-05,0.1615E-04,0.2174E-04,0.1934E-05, & &-.4005E-05,-.3364E-04,0.6305E-09,-.3491E-02,-.1769E-03,-.8450E-04, & &-.9913E-04,-.9498E-04,-.9614E-04,-.9239E-04,-.1977E-04,0.1724E-04, & &0.1983E-04,0.1352E-04,0.9765E-05,0.1277E-04,0.5305E-05,0.1480E-04, & &0.1430E-05,-.1099E-04,-.6924E-05,0.1404E-04,0.6305E-09,-.3567E-02, & &-.1770E-03,-.8474E-04,-.9894E-04,-.9473E-04,-.9617E-04,-.9291E-04, & &-.2151E-04,0.2346E-04,0.1371E-04,0.1147E-04,0.1094E-04,0.1407E-04, & &0.2222E-05,-.1062E-05,0.1531E-05,-.1748E-04,0.1407E-04,0.1847E-04, & &0.6305E-09,-.3642E-02,-.1764E-03,-.8523E-04,-.9892E-04,-.9513E-04, & &-.9623E-04,-.9317E-04,-.7163E-05,0.1964E-04,0.1505E-04,0.1327E-04, & &0.4409E-05,0.1338E-06,-.8370E-05,-.5770E-05,-.4403E-05,-.1135E-05, & &-.1786E-04,-.1126E-04,0.6305E-09,-.3719E-02,-.1765E-03,-.8487E-04, & &-.9882E-04,-.9518E-04,-.9627E-04,-.9435E-04,0.4101E-05,0.2025E-04, & &0.1494E-05,0.2371E-05,-.4260E-05,-.1145E-04,-.1501E-04,-.5205E-05, & &-.7078E-05,-.2613E-04,-.1220E-04,-.2457E-04,0.6305E-09,-.3795E-02, & &-.1768E-03,-.8520E-04,-.9896E-04,-.9557E-04,-.9678E-04,-.9741E-04, & &0.7907E-05,0.2320E-05,-.1138E-04,-.1181E-04,-.1171E-04,-.4526E-05, & &-.9526E-06,-.1426E-05,-.1523E-04,-.3728E-04,-.7095E-05,-.3584E-04, & &0.6154E-06,-.2967E-03,-.1664E-03,-.8674E-04,-.1013E-03,-.9641E-04, & &-.9766E-04,-.1016E-03,0.3196E-04,-.2726E-05,-.9340E-05,-.8610E-05, & &-.6137E-05,-.1048E-04,-.3945E-05,-.9921E-05,-.1724E-04,-.2295E-04, & &0.4577E-05,-.2728E-04,0.0000E+00,-.3212E-03,-.1657E-03,-.8656E-04, & &-.1007E-03,-.9824E-04,-.9977E-04,-.8734E-04,0.3091E-04,0.8470E-06, & &-.1287E-04,-.1108E-04,-.8110E-05,-.7669E-05,-.7991E-05,-.1662E-04, & &-.1272E-04,-.2306E-04,-.1398E-05,-.1044E-04/ real hk_7_new(2), coeh2o_7_new(3,19,2) data hk_7_new / 0.7, 0.3 / data ( ( ( coeh2o_7_new(k,j,i), i = 1, 2 ), j = 1, 19 ), k = 1, 3) / & &-.2008E+02,-.1467E+02,-.2004E+02,-.1426E+02,-.2001E+02,-.1386E+02, & &-.1998E+02,-.1345E+02,-.1995E+02,-.1304E+02,-.1992E+02,-.1263E+02, & &-.1989E+02,-.1223E+02,-.1986E+02,-.1183E+02,-.1984E+02,-.1143E+02, & &-.1758E+02,-.1038E+02,-.1602E+02,-.9480E+01,-.1469E+02,-.8752E+01, & &-.1349E+02,-.8218E+01,-.1255E+02,-.7677E+01,-.1174E+02,-.7184E+01, & &-.1110E+02,-.6735E+01,-.1056E+02,-.6332E+01,-.1019E+02,-.5975E+01, & &-.9874E+01,-.5644E+01, .2533E-02, .2269E-01, .2575E-02, .2263E-01, & & .2554E-02, .2267E-01, .2491E-02, .2250E-01, .2449E-02, .2244E-01, & & .2344E-02, .2234E-01, .2219E-02, .2208E-01, .5694E-02, .2190E-01, & & .9650E-02, .2162E-01, .3286E-01, .1848E-01, .2987E-01, .1578E-01, & & .2527E-01, .1465E-01, .2175E-01, .1386E-01, .2056E-01, .1235E-01, & & .1963E-01, .1116E-01, .1926E-01, .1040E-01, .2014E-01, .1040E-01, & & .2024E-01, .1042E-01, .1972E-01, .1080E-01,-.8754E-05,-.6698E-04, & &-.1104E-04,-.6432E-04,-.1142E-04,-.6051E-04,-.1180E-04,-.6128E-04, & &-.1180E-04,-.6242E-04,-.1218E-04,-.6280E-04,-.1218E-04,-.6204E-04, & & .5328E-04,-.5709E-04, .1275E-03,-.5214E-04,-.1370E-03,-.4148E-04, & &-.1100E-03,-.3045E-04,-.9248E-04,-.3197E-04,-.7346E-04,-.2436E-04, & &-.5100E-04,-.2131E-04,-.5861E-04,-.2550E-04,-.5328E-04,-.3311E-04, & &-.6090E-04,-.4225E-04,-.5443E-04,-.4415E-04,-.4034E-04,-.4339E-04/ real hk_8_new(3), coeh2o_8_new(3,19,3),coeno_8_new(3,19) data hk_8_new / 0.2, 0.7, 0.1 / data ((( coeh2o_8_new(k,j,i), i = 1, 3), j = 1, 19), k = 1, 3)/ & &-.2283E+02,-.1639E+02,-.6155E+01,-.2237E+02,-.1595E+02,-.5775E+01, & &-.2191E+02,-.1551E+02,-.5381E+01,-.2145E+02,-.1507E+02,-.5004E+01, & &-.2099E+02,-.1463E+02,-.4617E+01,-.2053E+02,-.1419E+02,-.4218E+01, & &-.2025E+02,-.1375E+02,-.3806E+01,-.2021E+02,-.1330E+02,-.3403E+01, & &-.2018E+02,-.1287E+02,-.2993E+01,-.1998E+02,-.1091E+02,-.2586E+01, & &-.1744E+02,-.9171E+01,-.2162E+01,-.1490E+02,-.7642E+01,-.1763E+01, & &-.1303E+02,-.6526E+01,-.1373E+01,-.1113E+02,-.5846E+01,-.9699E+00, & &-.9814E+01,-.5280E+01,-.5955E+00,-.8582E+01,-.4787E+01,-.2510E+00, & &-.8020E+01,-.4350E+01, .2770E-01,-.7571E+01,-.3942E+01, .2406E+00, & &-.7140E+01,-.3537E+01, .3567E+00, .3722E-01, .1505E-01, .6615E-02, & & .3722E-01, .1518E-01, .5840E-02, .3720E-01, .1526E-01, .5170E-02, & & .3399E-01, .1530E-01, .4773E-02, .3012E-01, .1551E-01, .4333E-02, & & .2625E-01, .1553E-01, .3956E-02, .2240E-01, .1562E-01, .3454E-02, & & .1846E-01, .1574E-01, .3161E-02, .1446E-01, .1572E-01, .3098E-02, & & .5924E-02, .8875E-02, .2658E-02, .2204E-01, .7096E-02, .2504E-02, & & .1591E-01, .5233E-02, .2292E-02, .8855E-02, .4249E-02, .2190E-02, & & .5422E-02, .3496E-02, .2041E-02, .4919E-02, .3621E-02, .2200E-02, & & .6657E-02, .3663E-02, .2248E-02, .8645E-02, .3852E-02, .2118E-02, & & .8771E-02, .3873E-02, .2176E-02, .9043E-02, .3747E-02, .2079E-02, & &-.1568E-03,-.4681E-04, .4567E-05,-.1568E-03,-.4605E-04,-.3425E-05, & &-.1572E-03,-.4605E-04,-.1104E-04,-.2154E-03,-.4453E-04,-.6851E-05, & &-.2843E-03,-.4225E-04,-.7231E-05,-.3562E-03,-.4110E-04,-.7231E-05, & &-.3692E-03,-.4110E-04,-.1028E-04,-.3007E-03,-.4263E-04,-.6470E-05, & &-.2325E-03,-.3996E-04,-.8373E-05,-.5290E-04,-.7612E-05,-.4948E-05, & &-.7422E-04,-.1256E-04,-.8449E-05,-.3501E-04,-.1446E-04,-.4834E-05, & & .4529E-04,-.2246E-04,-.2893E-05, .6470E-05,-.1789E-04,-.7498E-05, & &-.4948E-05,-.1713E-04,-.8183E-05,-.5481E-04,-.1713E-04,-.1447E-04, & &-.4986E-04,-.1903E-04,-.1353E-04,-.5138E-04,-.1484E-04,-.1147E-04, & &-.5328E-04,-.1560E-04,-.6588E-05/ data ( ( coeno_8_new(k,j), j = 1, 19 ), k = 1, 3 ) / & &-.1164E+02,-.1119E+02,-.1074E+02,-.1030E+02,-.9853E+01,-.9400E+01, & &-.8947E+01,-.8497E+01,-.8044E+01,-.7594E+01,-.7142E+01,-.6689E+01, & &-.6245E+01,-.5808E+01,-.5399E+01,-.4998E+01,-.4544E+01,-.4134E+01, & &-.3773E+01,0.4822E-02,0.4864E-02,0.4915E-02,0.4985E-02,0.5089E-02, & &0.5150E-02,0.5189E-02,0.5210E-02,0.5268E-02,0.5291E-02,0.5348E-02, & &0.5368E-02,0.5450E-02,0.5606E-02,0.5740E-02,0.6009E-02,0.6353E-02, & &0.6841E-02,0.7601E-02,-.3353E-04,-.3355E-04,-.3262E-04,-.3182E-04, & &-.3045E-04,-.3080E-04,-.3168E-04,-.3100E-04,-.3167E-04,-.3193E-04, & &-.3146E-04,-.3226E-04,-.3289E-04,-.3499E-04,-.3260E-04,-.3156E-04, & &-.3860E-04,-.4087E-04,-.4527E-04/ real hk_9_new(4), coeh2o_9_new(3,19,4),coeno2_9_new(3,19) data hk_9_new / 0.22, 0.51, 0.22, 0.05 / data ( ( ( coeh2o_9_new(k,j,i), i = 1, 4 ), j = 1, 19), k = 1, 3)/ & &-.2066E+02,-.1464E+02,-.8301E+01,-.3548E+01,-.2025E+02,-.1419E+02, & &-.7905E+01,-.3260E+01,-.2019E+02,-.1374E+02,-.7495E+01,-.2927E+01, & &-.2013E+02,-.1329E+02,-.7078E+01,-.2584E+01,-.2007E+02,-.1284E+02, & &-.6675E+01,-.2247E+01,-.2001E+02,-.1239E+02,-.6268E+01,-.1890E+01, & &-.1996E+02,-.1194E+02,-.5853E+01,-.1530E+01,-.1991E+02,-.1150E+02, & &-.5441E+01,-.1133E+01,-.1987E+02,-.1105E+02,-.5022E+01,-.7447E+00, & &-.1575E+02,-.9657E+01,-.4191E+01,-.3728E+00,-.1329E+02,-.8133E+01, & &-.3638E+01, .1616E-01,-.1181E+02,-.6675E+01,-.3178E+01, .4083E+00, & &-.1036E+02,-.5655E+01,-.2731E+01, .7953E+00,-.8628E+01,-.4990E+01, & &-.2303E+01, .1153E+01,-.7223E+01,-.4453E+01,-.1877E+01, .1454E+01, & &-.6567E+01,-.3974E+01,-.1461E+01, .1663E+01,-.6077E+01,-.3551E+01, & &-.1071E+01, .1800E+01,-.5651E+01,-.3136E+01,-.7005E+00, .1809E+01, & &-.5241E+01,-.2726E+01,-.3859E+00, .1781E+01, .1315E-01, .4542E-02, & & .3496E-02, .4877E-02, .9650E-02, .4542E-02, .3098E-02, .3956E-02, & & .6154E-02, .4626E-02, .2763E-02, .3077E-02, .2658E-02, .4626E-02, & & .2512E-02, .2261E-02, .2658E-02, .4689E-02, .2219E-02, .1405E-02, & & .2700E-02, .4752E-02, .1926E-02, .7473E-03, .2658E-02, .4773E-02, & & .1737E-02, .5066E-03, .4668E-02, .4815E-02, .1507E-02, .1842E-03, & & .8541E-02, .4794E-02, .1382E-02,-.2156E-03, .1022E-01, .2198E-02, & & .3977E-03,-.2910E-03, .5484E-02, .6698E-03, .0000E+00,-.2339E-03, & & .3349E-02, .1068E-02,-.2512E-03,-.4228E-03, .1884E-02, .2093E-03, & &-.3977E-03,-.6405E-03,-.8373E-04,-.5233E-03,-.4124E-03,-.5945E-03, & & .7536E-03,-.6698E-03,-.4919E-03,-.4794E-03, .3600E-02,-.4605E-03, & &-.4375E-03,-.3517E-03, .3873E-02,-.5861E-03,-.3203E-03,-.4689E-03, & & .3935E-02,-.7326E-03,-.2072E-03,-.4228E-03, .4124E-02,-.8582E-03, & &-.4187E-04,-.5945E-03,-.8525E-04, .1865E-04,-.1142E-05, .2664E-05, & &-.1313E-03, .1865E-04, .0000E+00, .1256E-04,-.6470E-04, .1865E-04, & &-.3045E-05, .8754E-05, .3805E-06, .1789E-04,-.6851E-05, .5328E-05, & & .1142E-05, .1827E-04,-.6090E-05, .4148E-05, .1142E-05, .1865E-04, & &-.3806E-05,-.3768E-05,-.1903E-05, .1751E-04,-.4948E-05, .3121E-05, & & .3159E-04, .1979E-04,-.3045E-05,-.9896E-06, .1005E-03, .1789E-04, & &-.6089E-05,-.1865E-05,-.2207E-04, .1941E-04, .1903E-05, .2322E-05, & &-.1675E-04, .6090E-05,-.7611E-06, .4397E-05, .3425E-04, .3806E-06, & & .1522E-05, .3806E-05, .4796E-04, .1522E-05,-.3806E-06, .3654E-05, & &-.6851E-05, .2664E-05,-.3920E-05,-.6850E-06,-.1370E-04, .5328E-05, & &-.6584E-05,-.8716E-05,-.8374E-10, .1522E-05,-.6356E-05, .1294E-05, & &-.9515E-05, .7612E-06,-.3235E-05,-.1066E-05,-.7612E-05, .1142E-05, & &-.4529E-05, .3730E-05,-.2664E-05,-.3806E-06,-.3501E-05,-.5328E-06/ data ( ( coeno2_9_new(k,j), j = 1, 19 ), k = 1, 3 ) / & &-.9663E+01,-.9349E+01,-.9029E+01,-.8713E+01,-.8379E+01,-.8038E+01, & &-.7698E+01,-.7371E+01,-.7058E+01,-.6777E+01,-.6518E+01,-.6299E+01, & &-.6124E+01,-.6005E+01,-.5938E+01,-.5904E+01,-.5890E+01,-.5868E+01, & &-.5853E+01,0.2549E-01,0.2453E-01,0.2346E-01,0.2252E-01,0.2161E-01, & &0.2069E-01,0.1963E-01,0.1875E-01,0.1790E-01,0.1709E-01,0.1646E-01, & &0.1587E-01,0.1542E-01,0.1501E-01,0.1484E-01,0.1461E-01,0.1466E-01, & &0.1455E-01,0.1414E-01,-.5673E-04,-.5248E-04,-.4935E-04,-.4199E-04, & &-.3850E-04,-.3829E-04,-.4200E-04,-.4360E-04,-.4090E-04,-.3483E-04, & &-.3077E-04,-.2846E-04,-.2721E-04,-.2576E-04,-.2186E-04,-.2060E-04, & &-.1960E-04,-.2490E-04,-.2946E-04/ real hk_10_new(4), coeh2o_10_new(3,19,4), coech4_10_new(3,19) & & ,coen2o_10_new(3,19) & & ,coeso2_10_new(3,19) data hk_10_new / 0.28, 0.42, 0.25, 0.05 / data ( ( ( coeh2o_10_new(k,j,i), i = 1, 4), j = 1, 19), k = 1, 3)/ & &-.2023E+02,-.1641E+02,-.1171E+02,-.6090E+01,-.2016E+02,-.1595E+02, & &-.1133E+02,-.5867E+01,-.2011E+02,-.1550E+02,-.1095E+02,-.5660E+01, & &-.2005E+02,-.1504E+02,-.1055E+02,-.5407E+01,-.2001E+02,-.1459E+02, & &-.1015E+02,-.5137E+01,-.1997E+02,-.1413E+02,-.9749E+01,-.4852E+01, & &-.1993E+02,-.1367E+02,-.9337E+01,-.4534E+01,-.1990E+02,-.1321E+02, & &-.8920E+01,-.4211E+01,-.1987E+02,-.1276E+02,-.8506E+01,-.3889E+01, & &-.1645E+02,-.1179E+02,-.7711E+01,-.3613E+01,-.1442E+02,-.1081E+02, & &-.6942E+01,-.3316E+01,-.1308E+02,-.9950E+01,-.6344E+01,-.2950E+01, & &-.1212E+02,-.9217E+01,-.5904E+01,-.2577E+01,-.1131E+02,-.8559E+01, & &-.5519E+01,-.2256E+01,-.1064E+02,-.7962E+01,-.5183E+01,-.1929E+01, & &-.1013E+02,-.7447E+01,-.4833E+01,-.1643E+01,-.9712E+01,-.7071E+01, & &-.4485E+01,-.1410E+01,-.9305E+01,-.6760E+01,-.4145E+01,-.1249E+01, & &-.8966E+01,-.6477E+01,-.3820E+01,-.1114E+01, .7913E-02, .8206E-02, & & .1509E-01, .1869E-01, .4228E-02, .8247E-02, .1467E-01, .1783E-01, & & .2010E-02, .8227E-02, .1442E-01, .1687E-01, .1947E-02, .8289E-02, & & .1394E-01, .1568E-01, .1863E-02, .8289E-02, .1346E-01, .1484E-01, & & .1842E-02, .8415E-02, .1310E-01, .1400E-01, .1800E-02, .8457E-02, & & .1275E-01, .1377E-01, .1696E-02, .8478E-02, .1220E-01, .1321E-01, & & .1842E-02, .8478E-02, .1189E-01, .1250E-01, .1409E-01, .8624E-02, & & .1254E-01, .1214E-01, .9043E-02, .1045E-01, .1225E-01, .1260E-01, & & .8561E-02, .1202E-01, .1181E-01, .1296E-01, .1114E-01, .1235E-01, & & .1191E-01, .1330E-01, .1199E-01, .1271E-01, .1195E-01, .1371E-01, & & .1415E-01, .1315E-01, .1218E-01, .1361E-01, .1478E-01, .1338E-01, & & .1296E-01, .1306E-01, .1518E-01, .1375E-01, .1365E-01, .1334E-01, & & .1530E-01, .1411E-01, .1392E-01, .1327E-01, .1547E-01, .1507E-01, & & .1390E-01, .1264E-01,-.1089E-03,-.2740E-04,-.2017E-04,-.5519E-04, & &-.4491E-04,-.2740E-04,-.1408E-04,-.5937E-04,-.6090E-05,-.2702E-04, & &-.6470E-05,-.4719E-04,-.7232E-05,-.2740E-04,-.6089E-05,-.4910E-04, & &-.7231E-05,-.2969E-04,-.4186E-05,-.5366E-04,-.6090E-05,-.3045E-04, & &-.2284E-05,-.4986E-04,-.4568E-05,-.3121E-04,-.4948E-05,-.5100E-04, & &-.3426E-05,-.3007E-04,-.7993E-05,-.4910E-04, .1522E-05,-.2931E-04, & &-.9896E-05,-.5366E-04,-.5823E-04,-.1599E-04,-.1713E-04,-.4110E-04, & &-.3121E-04,-.1713E-04,-.3159E-04,-.3578E-04,-.3996E-04,-.1598E-04, & &-.3958E-04,-.4605E-04,-.3349E-04,-.1751E-04,-.3844E-04,-.5576E-04, & &-.2626E-04,-.2474E-04,-.3920E-04,-.4464E-04,-.1979E-04,-.3045E-04, & &-.3958E-04,-.5336E-04,-.2893E-04,-.3616E-04,-.3996E-04,-.4754E-04, & &-.2398E-04,-.3083E-04,-.4415E-04,-.5119E-04,-.2702E-04,-.2664E-04, & &-.4605E-04,-.4038E-04,-.2398E-04,-.2360E-04,-.4948E-04,-.5149E-04/ data ( ( coech4_10_new(k,j), j = 1, 19 ), k = 1, 3 ) / & &-.8909E+01,-.8464E+01,-.8018E+01,-.7573E+01,-.7133E+01,-.6687E+01, & &-.6240E+01,-.5803E+01,-.5377E+01,-.4534E+01,-.3983E+01,-.3502E+01, & &-.3062E+01,-.2648E+01,-.2265E+01,-.1896E+01,-.1568E+01,-.1234E+01, & &-.9298E+00, .9629E-03, .9838E-03, .1088E-02, .1172E-02, .1256E-02, & & .1402E-02, .1528E-02, .1633E-02, .1716E-02, .4815E-03,-.3977E-03, & &-.5652E-03,-.5024E-03,-.4605E-03,-.4563E-03,-.4438E-03,-.4521E-03, & &-.4312E-03,-.3789E-03,-.1294E-04,-.1408E-04,-.1522E-04,-.1675E-04, & &-.1751E-04,-.1941E-04,-.2246E-04,-.2207E-04,-.1827E-04,-.1256E-04, & &-.9515E-05,-.6470E-05,-.3045E-05,-.3806E-05,-.2055E-05,-.3730E-05, & &-.7612E-06,-.3806E-05, .1256E-05/ data ( ( coen2o_10_new(k,j), j = 1, 19 ), k = 1, 3 ) / & &-.7863E+01,-.7412E+01,-.6963E+01,-.6514E+01,-.6065E+01,-.5611E+01, & &-.5167E+01,-.4720E+01,-.4283E+01,-.3454E+01,-.2858E+01,-.2404E+01, & &-.1922E+01,-.1491E+01,-.1097E+01,-.7177E+00,-.3548E+00, .1218E-01, & & .3088E+00, .4459E-02, .4542E-02, .4668E-02, .4752E-02, .4815E-02, & & .4919E-02, .5087E-02, .5254E-02, .5296E-02, .2324E-02, .2093E-02, & & .2294E-02, .2125E-02, .2058E-02, .1920E-02, .1786E-02, .1689E-02, & & .1788E-02, .2144E-02,-.7231E-05,-.7231E-05,-.7231E-05,-.6470E-05, & &-.6851E-05,-.7231E-05,-.5709E-05,-.6470E-05,-.4186E-05, .8754E-05, & &-.7612E-05,-.9134E-06,-.8640E-05,-.8487E-05,-.8259E-05,-.9553E-05, & &-.8107E-05,-.1654E-04,-.1858E-04/ data ( ( coeso2_10_new(k,j), j = 1, 19 ), k = 1, 3 ) / & &-.7207E+01,-.6750E+01,-.6292E+01,-.5835E+01,-.5384E+01,-.4925E+01, & &-.4473E+01,-.4029E+01,-.3601E+01,-.3191E+01,-.2785E+01,-.2451E+01, & &-.2170E+01,-.1973E+01,-.1819E+01,-.1732E+01,-.1612E+01,-.1532E+01, & &-.1394E+01,0.1824E-01,0.1826E-01,0.1828E-01,0.1832E-01,0.1831E-01, & &0.1837E-01,0.1848E-01,0.1864E-01,0.1885E-01,0.1913E-01,0.1972E-01, & &0.2057E-01,0.2158E-01,0.2202E-01,0.2255E-01,0.2291E-01,0.2286E-01, & &0.2112E-01,0.1848E-01,-.1230E-03,-.1229E-03,-.1228E-03,-.1232E-03, & &-.1222E-03,-.1225E-03,-.1231E-03,-.1238E-03,-.1239E-03,-.1249E-03, & &-.1298E-03,-.1263E-03,-.1288E-03,-.1230E-03,-.1238E-03,-.1111E-03, & &-.1067E-03,-.7294E-04,-.4405E-04/ real hk_11_new(3), coeh2o_11_new(3,19,3), coech4_11_new(3,19) & & , coen2o_11_new(3,19) & & , c11CFC11_11_new, c11CFC12_11_new data hk_11_new / 0.80, 0.15, 0.05 / data c11CFC11_11_new / 0.13273E+02 / data c11CFC12_11_new / 0.19158E+02 / data ( ( ( coeh2o_11_new(k,j,i), i = 1, 3), j = 1, 19), k = 1, 3)/ & &-.2005E+02,-.1548E+02,-.1021E+02,-.2001E+02,-.1504E+02,-.1001E+02, & &-.1997E+02,-.1459E+02,-.9814E+01,-.1993E+02,-.1416E+02,-.9595E+01, & &-.1989E+02,-.1373E+02,-.9349E+01,-.1985E+02,-.1328E+02,-.9072E+01, & &-.1982E+02,-.1286E+02,-.8833E+01,-.1957E+02,-.1243E+02,-.8566E+01, & &-.1911E+02,-.1200E+02,-.8276E+01,-.1743E+02,-.1134E+02,-.7958E+01, & &-.1625E+02,-.1078E+02,-.7629E+01,-.1524E+02,-.1036E+02,-.7334E+01, & &-.1429E+02,-.9970E+01,-.7051E+01,-.1348E+02,-.9620E+01,-.6749E+01, & &-.1282E+02,-.9270E+01,-.6505E+01,-.1229E+02,-.8932E+01,-.6277E+01, & &-.1186E+02,-.8628E+01,-.6120E+01,-.1148E+02,-.8345E+01,-.6049E+01, & &-.1112E+02,-.8066E+01,-.5906E+01, .1842E-02, .2131E-01, .3033E-01, & & .1905E-02, .2137E-01, .2841E-01, .1926E-02, .2135E-01, .2696E-01, & & .1926E-02, .2133E-01, .2514E-01, .1884E-02, .2154E-01, .2401E-01, & & .5589E-02, .2156E-01, .2321E-01, .9483E-02, .2156E-01, .2210E-01, & & .1333E-01, .2150E-01, .2133E-01, .1725E-01, .2154E-01, .2074E-01, & & .2254E-01, .1999E-01, .2005E-01, .2118E-01, .1926E-01, .1978E-01, & & .1936E-01, .1920E-01, .1963E-01, .1905E-01, .1911E-01, .1934E-01, & & .1909E-01, .1903E-01, .1920E-01, .1922E-01, .1901E-01, .1899E-01, & & .1934E-01, .1930E-01, .1974E-01, .1966E-01, .1909E-01, .2014E-01, & & .1976E-01, .1905E-01, .1984E-01, .1963E-01, .1940E-01, .1897E-01, & &-.1522E-05,-.6013E-04,-.5062E-04,-.2665E-05,-.6204E-04,-.5519E-04, & &-.3806E-05,-.6394E-04,-.5633E-04,-.4567E-05,-.6280E-04,-.5214E-04, & &-.6090E-05,-.6128E-04,-.5290E-04, .6051E-04,-.6242E-04,-.5823E-04, & & .1313E-03,-.6013E-04,-.5176E-04, .1336E-03,-.5747E-04,-.4072E-04, & & .6318E-04,-.5671E-04,-.3996E-04,-.5595E-04,-.3996E-04,-.4263E-04, & &-.3958E-04,-.4719E-04,-.4453E-04,-.3387E-04,-.5138E-04,-.5100E-04, & &-.5252E-04,-.4986E-04,-.4491E-04,-.5100E-04,-.4453E-04,-.4529E-04, & &-.5176E-04,-.4795E-04,-.4453E-04,-.5557E-04,-.5176E-04,-.5062E-04, & &-.5747E-04,-.4795E-04,-.5633E-04,-.5709E-04,-.4643E-04,-.3806E-04, & &-.5481E-04,-.5671E-04,-.4948E-04/ data ( ( coech4_11_new(k,j), j = 1, 19 ), k = 1, 3 ) / & &-.1207E+02,-.1162E+02,-.1116E+02,-.1070E+02,-.1024E+02,-.9777E+01, & &-.9319E+01,-.8858E+01,-.8398E+01,-.7384E+01,-.6643E+01,-.6081E+01, & &-.5602E+01,-.5188E+01,-.4822E+01,-.4479E+01,-.4184E+01,-.3884E+01, & &-.3627E+01, .1036E-01, .1036E-01, .1040E-01, .1040E-01, .1045E-01, & & .1047E-01, .1049E-01, .1055E-01, .1059E-01, .1059E-01, .1026E-01, & & .1011E-01, .1024E-01, .1049E-01, .1072E-01, .1089E-01, .1109E-01, & & .1153E-01, .1191E-01,-.4910E-04,-.4834E-04,-.4910E-04,-.4910E-04, & &-.4910E-04,-.4872E-04,-.4834E-04,-.4948E-04,-.5100E-04,-.5633E-04, & &-.6166E-04,-.5595E-04,-.5366E-04,-.5366E-04,-.5328E-04,-.5328E-04, & &-.4948E-04,-.5519E-04,-.5595E-04/ data ( ( coen2o_11_new(k,j), j = 1, 19 ), k = 1, 3 ) / & &-.9461E+01,-.9003E+01,-.8543E+01,-.8084E+01,-.7629E+01,-.7166E+01, & &-.6707E+01,-.6249E+01,-.5793E+01,-.5312E+01,-.4847E+01,-.4393E+01, & &-.3974E+01,-.3587E+01,-.3231E+01,-.2885E+01,-.2602E+01,-.2358E+01, & &-.2108E+01, .4710E-02, .4752E-02, .4773E-02, .4773E-02, .4815E-02, & & .4877E-02, .4898E-02, .4982E-02, .5066E-02, .5296E-02, .5149E-02, & & .5129E-02, .5024E-02, .4752E-02, .4501E-02, .4270E-02, .4019E-02, & & .3646E-02, .2759E-02,-.1484E-04,-.1408E-04,-.1446E-04,-.1446E-04, & &-.1522E-04,-.1560E-04,-.1522E-04,-.1522E-04,-.1598E-04,-.1484E-04, & &-.9895E-05,-.1028E-04,-.7612E-05,-.1903E-05, .1903E-05, .0000E+00, & & .2283E-05, .6166E-05,-.2740E-05/ real hk_12_new(5), coeo3_12_new(3,19,5), coeh2o_12_new(3,19) , & & c12CFC11_12_new, c12CFC12_12_new data hk_12_new / 0.45, 0.30, 0.2, 0.04, 0.01 / data c12CFC11_12_new / 0.13857E+02 / data c12CFC12_12_new / 0.96058E+01 / data ( ( ( coeo3_12_new(k,j,i), i = 1, 5 ), j = 1, 19), k = 1, 3)/ & &-.6590E+01,-.3912E+01,-.8513E+00, .2731E+01, .5515E+01,-.6157E+01, & &-.3583E+01,-.7292E+00, .2740E+01, .5508E+01,-.5731E+01,-.3242E+01, & &-.5800E+00, .2782E+01, .5485E+01,-.5301E+01,-.2901E+01,-.4131E+00, & & .2805E+01, .5455E+01,-.4879E+01,-.2551E+01,-.2288E+00, .2878E+01, & & .5416E+01,-.4449E+01,-.2201E+01,-.2228E-01, .3000E+01, .5374E+01, & &-.4018E+01,-.1843E+01, .2055E+00, .3143E+01, .5342E+01,-.3615E+01, & &-.1502E+01, .4561E+00, .3288E+01, .5204E+01,-.3228E+01,-.1172E+01, & & .7099E+00, .3396E+01, .5077E+01,-.2828E+01,-.8499E+00, .9664E+00, & & .3463E+01, .4893E+01,-.2480E+01,-.5393E+00, .1229E+01, .3493E+01, & & .4656E+01,-.2181E+01,-.2653E+00, .1504E+01, .3456E+01, .4398E+01, & &-.1950E+01,-.1469E-01, .1735E+01, .3387E+01, .4115E+01,-.1788E+01, & & .2517E+00, .1919E+01, .3251E+01, .3832E+01,-.1677E+01, .5027E+00, & & .2032E+01, .3088E+01, .3581E+01,-.1637E+01, .7373E+00, .2100E+01, & & .2910E+01, .3364E+01,-.1650E+01, .9383E+00, .2123E+01, .2793E+01, & & .3150E+01,-.1658E+01, .1091E+01, .2112E+01, .2683E+01, .3021E+01, & &-.1654E+01, .1163E+01, .2099E+01, .2602E+01, .2871E+01, .9498E-02, & & .8894E-02, .1161E-01, .8828E-02,-.1669E-02, .9613E-02, .8347E-02, & & .1053E-01, .8462E-02,-.1612E-02, .9700E-02, .7829E-02, .9101E-02, & & .7915E-02,-.1439E-02, .9815E-02, .7167E-02, .7981E-02, .7282E-02, & &-.1094E-02, .9671E-02, .6764E-02, .6930E-02, .5613E-02,-.8347E-03, & & .9613E-02, .6312E-02, .6225E-02, .4145E-02,-.1295E-02, .9728E-02, & & .6099E-02, .5293E-02, .2965E-02,-.1756E-02, .9844E-02, .5915E-02, & & .4496E-02, .1871E-02,-.2044E-02, .9930E-02, .5817E-02, .3509E-02, & & .1324E-02,-.2044E-02, .9988E-02, .5535E-02, .2711E-02, .6620E-03, & &-.1813E-02, .1034E-01, .5247E-02, .1926E-02,-.2303E-03,-.1842E-02, & & .1058E-01, .4795E-02, .1197E-02,-.9498E-03,-.2216E-02, .1084E-01, & & .4414E-02, .6188E-03,-.1123E-02,-.2303E-02, .1079E-01, .3926E-02, & & .1756E-03,-.1497E-02,-.2274E-02, .1039E-01, .3425E-02,-.1900E-03, & &-.1353E-02,-.2389E-02, .9815E-02, .2769E-02,-.6620E-03,-.1756E-02, & &-.1785E-02, .9818E-02, .2444E-02,-.1016E-02,-.1410E-02,-.1698E-02, & & .1074E-01, .3218E-02,-.1235E-02,-.1900E-02,-.2533E-02, .1145E-01, & & .3684E-02,-.1364E-02,-.1353E-02,-.1957E-02,-.4030E-04,-.2375E-04, & &-.3814E-05,-.4943E-04,-.3166E-04,-.3742E-04,-.1871E-04,-.1137E-04, & &-.4317E-04,-.2878E-04,-.3526E-04,-.2015E-04,-.1295E-04,-.4821E-04, & &-.2303E-04,-.3382E-04,-.2087E-04,-.1519E-04,-.2231E-04,-.1871E-04, & &-.3454E-04,-.2087E-04,-.8109E-05,-.6476E-05,-.1511E-04,-.3454E-04, & &-.1820E-04,-.1269E-05,-.1439E-04,-.5037E-05,-.4173E-04,-.2598E-04, & & .6645E-05,-.1943E-04,-.2087E-04,-.3454E-04,-.2267E-04, .2159E-05, & &-.2231E-04,-.2159E-05,-.2950E-04,-.2080E-04, .2159E-06,-.4317E-05, & & .1799E-04,-.3670E-04,-.1590E-04,-.4461E-05,-.9354E-05,-.3598E-05, & &-.3216E-04,-.1475E-04,-.2231E-05,-.1295E-04,-.2878E-05,-.3576E-04, & &-.7347E-05,-.1022E-04,-.2159E-05,-.7915E-05,-.3015E-04,-.5230E-05, & &-.5109E-05,-.6476E-05,-.7196E-05,-.2331E-04,-.1079E-04,-.4102E-05, & & .1439E-05,-.1223E-04,-.2216E-04,-.1094E-04,-.5325E-05,-.7196E-06, & &-.1655E-04,-.1036E-04,-.7627E-05,-.2878E-05, .5037E-05,-.1295E-04, & & .1029E-04,-.1346E-04,-.4821E-05,-.7915E-05, .7915E-05, .2835E-04, & &-.2893E-04,-.1367E-05,-.7196E-05,-.1871E-04, .3965E-04,-.3310E-04, & &-.3310E-05,-.7195E-06, .2303E-04/ data ( ( coeh2o_12_new(k,j), j = 1, 19 ), k = 1, 3 ) / & &-.1984E+02,-.1983E+02,-.1982E+02,-.1981E+02,-.1963E+02,-.1917E+02, & &-.1871E+02,-.1825E+02,-.1779E+02,-.1639E+02,-.1545E+02,-.1484E+02, & &-.1433E+02,-.1387E+02,-.1345E+02,-.1305E+02,-.1268E+02,-.1231E+02, & &-.1196E+02, .6071E-03, .2072E-02, .6196E-02, .1030E-01, .1436E-01, & & .1846E-01, .2259E-01, .2667E-01, .2993E-01, .2878E-01, .2803E-01, & & .2851E-01, .2864E-01, .2874E-01, .2862E-01, .2859E-01, .2853E-01, & & .2868E-01, .2887E-01,-.3808E-06, .2474E-04, .9895E-04, .1728E-03, & & .1911E-03, .1165E-03, .4225E-04,-.3121E-04,-.8982E-04,-.9553E-04, & &-.9705E-04,-.9591E-04,-.9287E-04,-.9172E-04,-.9096E-04,-.9134E-04, & &-.9248E-04,-.1050E-03,-.1031E-03/ real hk_13_new(2), coeh2o_13_new(3,19,2) & & , c13CFC11_13_new, c13CFC12_13_new data hk_13_new / 0.95, 0.05 / data c13CFC11_13_new / 0.38552E+01 / data c13CFC12_13_new / 0.84634E+01 / data ( ( ( coeh2o_13_new(k,j,i), i = 1, 2), j = 1, 19), k = 1, 3)/ & &-.1992E+02,-.1446E+02,-.1992E+02,-.1405E+02,-.1991E+02,-.1363E+02, & &-.1990E+02,-.1322E+02,-.1989E+02,-.1282E+02,-.1989E+02,-.1242E+02, & &-.1988E+02,-.1201E+02,-.1987E+02,-.1159E+02,-.1986E+02,-.1119E+02, & &-.1982E+02,-.1079E+02,-.1817E+02,-.1039E+02,-.1659E+02,-.1000E+02, & &-.1537E+02,-.9623E+01,-.1460E+02,-.9266E+01,-.1406E+02,-.8959E+01, & &-.1354E+02,-.8676E+01,-.1309E+02,-.8411E+01,-.1267E+02,-.8232E+01, & &-.1229E+02,-.8094E+01, .5024E-03, .3199E-01, .5652E-03, .3199E-01, & & .6071E-03, .3211E-01, .6489E-03, .3199E-01, .6699E-03, .3178E-01, & & .6908E-03, .3157E-01, .6908E-03, .3109E-01, .6698E-03, .3075E-01, & & .6698E-03, .3054E-01, .1474E-01, .3000E-01, .3085E-01, .2960E-01, & & .3659E-01, .2935E-01, .3016E-01, .2920E-01, .2834E-01, .2895E-01, & & .2780E-01, .2870E-01, .2753E-01, .2843E-01, .2755E-01, .2820E-01, & & .2765E-01, .2732E-01, .2769E-01, .2705E-01, .6299E-09,-.7993E-04, & &-.3802E-06,-.7992E-04,-.3802E-06,-.8525E-04,-.3808E-06,-.8449E-04, & &-.7610E-06,-.7764E-04,-.1142E-05,-.7231E-04,-.1142E-05,-.7345E-04, & &-.2284E-05,-.8259E-04,-.2284E-05,-.8031E-04, .2436E-03,-.7878E-04, & & .7612E-05,-.8525E-04,-.1248E-03,-.9439E-04,-.9477E-04,-.9172E-04, & &-.8982E-04,-.8640E-04,-.7916E-04,-.6813E-04,-.7574E-04,-.6090E-04, & &-.7612E-04,-.7117E-04,-.7498E-04,-.7041E-04,-.7269E-04,-.7992E-04/ real hk_14_new(10), coehca_14_new(3,19,10), coehcb_14_new(3,19,10) & & ,coech3cl_14_new(3,19) data hk_14_new / .3,.3,.2,.12,.06,.012,.004,.0025,.0011,.0004 / data ( ( (coehca_14_new(k,j,i), i = 1, 10), j = 1, 19), k = 1, 3)/ & &-.1847E+02,-.1399E+02,-.1106E+02,-.8539E+01,-.5852E+01,-.3295E+01, & &-.1208E+01,-.6272E-01, .2055E+01, .6071E+01,-.1801E+02,-.1357E+02, & &-.1067E+02,-.8171E+01,-.5562E+01,-.3071E+01,-.1073E+01, .1033E+00, & & .2055E+01, .6071E+01,-.1755E+02,-.1314E+02,-.1027E+02,-.7798E+01, & &-.5224E+01,-.2823E+01,-.9280E+00, .2723E+00, .2165E+01, .5969E+01, & &-.1709E+02,-.1272E+02,-.9868E+01,-.7404E+01,-.4880E+01,-.2569E+01, & &-.6908E+00, .4453E+00, .2241E+01, .5969E+01,-.1663E+02,-.1230E+02, & &-.9467E+01,-.7013E+01,-.4535E+01,-.2297E+01,-.4408E+00, .6353E+00, & & .2359E+01, .5969E+01,-.1617E+02,-.1188E+02,-.9050E+01,-.6619E+01, & &-.4160E+01,-.1967E+01,-.1687E+00, .8213E+00, .2421E+01, .5969E+01, & &-.1571E+02,-.1147E+02,-.8629E+01,-.6230E+01,-.3771E+01,-.1648E+01, & & .1573E+00, .1019E+01, .2511E+01, .5884E+01,-.1525E+02,-.1106E+02, & &-.8215E+01,-.5841E+01,-.3393E+01,-.1331E+01, .4013E+00, .1198E+01, & & .2654E+01, .5794E+01,-.1480E+02,-.1066E+02,-.7800E+01,-.5454E+01, & &-.3032E+01,-.9870E+00, .6323E+00, .1373E+01, .2905E+01, .5647E+01, & &-.1402E+02,-.9693E+01,-.7206E+01,-.4846E+01,-.2656E+01,-.6540E+00, & & .8323E+00, .1530E+01, .3211E+01, .5355E+01,-.1343E+02,-.9060E+01, & &-.6596E+01,-.4399E+01,-.2294E+01,-.3519E+00, .9823E+00, .1673E+01, & & .3420E+01, .5083E+01,-.1279E+02,-.8611E+01,-.5785E+01,-.4010E+01, & &-.1936E+01,-.1177E+00, .1134E+01, .1974E+01, .3591E+01, .4770E+01, & &-.1230E+02,-.8174E+01,-.5298E+01,-.3611E+01,-.1607E+01, .3636E-01, & & .1433E+01, .2260E+01, .3539E+01, .4439E+01,-.1192E+02,-.7763E+01, & &-.4946E+01,-.3228E+01,-.1321E+01, .1991E+00, .1720E+01, .2420E+01, & & .3383E+01, .4041E+01,-.1154E+02,-.7377E+01,-.4576E+01,-.2851E+01, & &-.1093E+01, .4430E+00, .1896E+01, .2462E+01, .3122E+01, .3620E+01, & &-.1118E+02,-.7003E+01,-.4210E+01,-.2524E+01,-.8973E+00, .7490E+00, & & .1966E+01, .2363E+01, .2818E+01, .3182E+01,-.1080E+02,-.6677E+01, & &-.3872E+01,-.2264E+01,-.6846E+00, .9392E+00, .1867E+01, .2138E+01, & & .2505E+01, .2738E+01,-.1031E+02,-.6353E+01,-.3596E+01,-.1938E+01, & &-.4537E+00, .1015E+01, .1659E+01, .1830E+01, .2142E+01, .2287E+01, & &-.9695E+01,-.5977E+01,-.3427E+01,-.1596E+01,-.1979E+00, .9458E+00, & & .1363E+01, .1545E+01, .1743E+01, .1832E+01, .3628E-01, .2728E-01, & & .2213E-01, .1656E-01, .1507E-01, .1564E-01, .1623E-01, .1419E-01, & & .1455E-01, .1089E-02, .3632E-01, .2740E-01, .2164E-01, .1606E-01, & & .1369E-01, .1418E-01, .1444E-01, .1275E-01, .1331E-01, .9210E-03, & & .3636E-01, .2746E-01, .2114E-01, .1557E-01, .1239E-01, .1285E-01, & & .1237E-01, .1141E-01, .1141E-01, .9210E-03, .3640E-01, .2748E-01, & & .2064E-01, .1516E-01, .1141E-01, .1125E-01, .1092E-01, .1026E-01, & & .1011E-01,-.5652E-03, .3646E-01, .2746E-01, .2024E-01, .1478E-01, & & .1036E-01, .9688E-02, .9610E-02, .9305E-02, .9399E-02,-.6489E-03, & & .3651E-01, .2734E-01, .1984E-01, .1438E-01, .9436E-02, .8486E-02, & & .8214E-02, .8995E-02, .7892E-02,-.8582E-03, .3655E-01, .2723E-01, & & .1951E-01, .1402E-01, .8716E-02, .7433E-02, .7169E-02, .8072E-02, & & .5443E-02,-.1172E-02, .3659E-01, .2709E-01, .1911E-01, .1379E-01, & & .8107E-02, .6818E-02, .6818E-02, .7033E-02, .3056E-02,-.1047E-02, & & .3670E-01, .2698E-01, .1890E-01, .1363E-01, .7502E-02, .6371E-02, & & .6558E-02, .6489E-02,-.5652E-03,-.1340E-02, .3592E-01, .2238E-01, & & .1804E-01, .1007E-01, .6730E-02, .5512E-02, .6194E-02, .4375E-02, & &-.1109E-02,-.3559E-03, .3609E-01, .2242E-01, .1526E-01, .8582E-02, & & .6284E-02, .5809E-02, .4501E-02, .9420E-03,-.9001E-03,-.1005E-02, & & .3703E-01, .2196E-01, .1281E-01, .7860E-02, .5861E-02, .5842E-02, & & .1800E-02,-.1591E-02,-.1235E-02,-.9420E-03, .3728E-01, .2114E-01, & & .1347E-01, .6678E-02, .5449E-02, .4837E-02,-.1084E-02,-.1361E-02, & &-.6699E-03,-.1256E-03, .3683E-01, .2061E-01, .1350E-01, .6133E-02, & & .5449E-02, .2111E-02,-.1386E-02,-.1235E-02,-.5652E-03,-.8373E-04, & & .3656E-01, .1988E-01, .1348E-01, .5441E-02, .5149E-02,-.8813E-03, & &-.1116E-02,-.8373E-03,-.3140E-03,-.6280E-04, .3669E-01, .1934E-01, & & .1363E-01, .5035E-02, .3585E-02,-.1250E-02,-.9357E-03,-.8227E-03, & &-.3140E-03,-.4187E-04, .3618E-01, .1856E-01, .1390E-01, .3836E-02, & & .1470E-02,-.1096E-02,-.8080E-03,-.4480E-03,-.2093E-03,-.2093E-04, & & .3416E-01, .1741E-01, .1431E-01, .1951E-02,-.2923E-04,-.9422E-03, & &-.4576E-03,-.2395E-03,-.1565E-03,-.2799E-04, .3219E-01, .1674E-01, & & .1516E-01, .6652E-03,-.5051E-03,-.7052E-03,-.2002E-03,-.2135E-03, & &-.7633E-04,-.7300E-04,-.1290E-03,-.9934E-04,-.5595E-04,-.3996E-04, & & .1294E-04,-.9134E-05, .1294E-05,-.3121E-05,-.4757E-04,-.1979E-04, & &-.1305E-03,-.9629E-04,-.5481E-04,-.4301E-04, .1827E-04,-.9363E-05, & & .1777E-04,-.2185E-04,-.1903E-04,-.1675E-04,-.1313E-03,-.9439E-04, & &-.5404E-04,-.4263E-04, .9134E-05,-.1020E-04, .3524E-04,-.2599E-04, & &-.2093E-04, .1675E-04,-.1313E-03,-.9172E-04,-.5252E-04,-.4567E-04, & & .4186E-05,-.3920E-05, .2552E-04,-.2059E-04,-.2246E-04,-.1028E-04, & &-.1324E-03,-.9210E-04,-.5138E-04,-.4491E-04, .6470E-05,-.2131E-05, & & .1496E-04,-.1572E-04,-.3311E-04,-.8754E-05,-.1324E-03,-.9058E-04, & &-.5328E-04,-.4225E-04, .1827E-05,-.8411E-06, .4719E-05,-.6813E-05, & &-.2474E-04,-.1256E-04,-.1340E-03,-.8868E-04,-.5633E-04,-.4187E-04, & &-.4415E-05, .6055E-05,-.1648E-04,-.1507E-04, .1979E-04,-.2131E-04, & &-.1340E-03,-.8373E-04,-.5899E-04,-.3920E-04,-.4072E-05, .1491E-04, & &-.9781E-05,-.5328E-05, .3578E-04,-.1979E-04,-.1321E-03,-.7954E-04, & &-.5899E-04,-.4072E-04, .1066E-05, .5728E-05,-.5138E-05,-.8373E-05, & & .2626E-04,-.2436E-04,-.1363E-03,-.6432E-04,-.5176E-04,-.3083E-04, & & .2169E-05,-.8944E-05, .3159E-05, .6470E-05,-.4187E-05, .4948E-05, & &-.1302E-03,-.7802E-04,-.3311E-04,-.1903E-04, .5328E-05,-.1884E-04, & & .1408E-04, .3311E-04, .1142E-05,-.7613E-06,-.1473E-03,-.6737E-04, & &-.7536E-04,-.1085E-04,-.1903E-05,-.1458E-04, .4034E-04,-.3941E-10, & &-.7992E-05, .2664E-05,-.1361E-03,-.5709E-04,-.8550E-04,-.5709E-05, & &-.8640E-05, .6523E-05, .1903E-05,-.8221E-05,-.3045E-05,-.9134E-05, & &-.1329E-03,-.5529E-04,-.7107E-04, .2664E-05,-.9020E-05, .3320E-04, & &-.2131E-05,-.4187E-05,-.7231E-05,-.3806E-05,-.1278E-03,-.5247E-04, & &-.6465E-04, .3806E-05,-.6091E-05, .1245E-04,-.3844E-05,-.6090E-05, & &-.8754E-05,-.2664E-05,-.1321E-03,-.5632E-04,-.5897E-04, .1012E-04, & & .1168E-04,-.4196E-06,-.8411E-05,-.8868E-05,-.1484E-04,-.1522E-05, & &-.1252E-03,-.4907E-04,-.5932E-04, .3245E-04, .1996E-04,-.3325E-05, & &-.5785E-05,-.6394E-05,-.6851E-05,-.1142E-05,-.1093E-03,-.4731E-04, & &-.6761E-04, .1808E-04, .1754E-04,-.5079E-05,-.5809E-05,-.5649E-05, & &-.3988E-05,-.5849E-06,-.1151E-03,-.4965E-04,-.7163E-04, .7839E-05, & & .5505E-05,-.6084E-05,-.3344E-05,-.3894E-05,-.1391E-05,-.1327E-05/ data ( ( (coehcb_14_new(k,j,i), i = 1, 10), j = 1, 19), k = 1, 3)/ & &-.9398E+01,-.5678E+01,-.3606E+01,-.2192E+01, .2104E+01, .3044E+01, & &-.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02,-.9094E+01,-.5422E+01, & &-.3448E+01,-.1650E+01, .2046E+01, .2749E+01,-.4587E+02,-.4587E+02, & &-.4587E+02,-.4587E+02,-.8760E+01,-.5270E+01,-.3329E+01,-.1147E+01, & & .2112E+01, .2709E+01,-.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02, & &-.8537E+01,-.5152E+01,-.3129E+01,-.9544E+00, .2254E+01, .2771E+01, & &-.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02,-.8176E+01,-.4936E+01, & &-.2680E+01,-.9259E+00, .2247E+01,-.4587E+02,-.4587E+02,-.4587E+02, & &-.4587E+02,-.4587E+02,-.7836E+01,-.4676E+01,-.2378E+01,-.3550E+00, & & .1396E+01, .1976E+01,-.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02, & &-.7419E+01,-.4122E+01,-.2407E+01,-.1204E-01, .1744E+01,-.4587E+02, & &-.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02,-.7124E+01,-.3727E+01, & &-.2160E+01, .6158E+00, .1953E+01,-.4587E+02,-.4587E+02,-.4587E+02, & &-.4587E+02,-.4587E+02,-.6823E+01,-.3324E+01,-.1748E+01,-.9806E-01, & & .2319E+01,-.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02, & &-.5957E+01,-.3017E+01,-.1647E+01, .1398E+01,-.4587E+02,-.4587E+02, & &-.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02,-.5115E+01,-.2290E+01, & &-.5273E+00, .5662E+00, .1459E+01,-.4587E+02,-.4587E+02,-.4587E+02, & &-.4587E+02,-.4587E+02,-.4162E+01,-.1453E+01, .1116E+00,-.4587E+02, & & .9569E+00,-.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02, & &-.3611E+01,-.9744E+00,-.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02, & &-.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02,-.3075E+01,-.4176E+00, & &-.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02, & &-.4587E+02,-.4587E+02,-.3469E+01,-.9395E+00, .5092E+00, .6200E+00, & &-.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02, & &-.3808E+01,-.1505E+01, .3901E+00, .6264E+00,-.1155E+01,-.4587E+02, & &-.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02,-.4058E+01,-.1818E+01, & & .2693E+00, .7087E+00, .3820E+00,-.4587E+02,-.4587E+02,-.4587E+02, & &-.4587E+02,-.4587E+02,-.4262E+01,-.2097E+01,-.5711E-01, .5681E+00, & & .1310E+01, .7371E+00,-.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02, & &-.3997E+01,-.1784E+01, .4388E-01, .5167E+00, .6930E+00,-.6906E+00, & &-.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02, .2944E-01, .2723E-01, & & .1854E-01, .2023E-01, .2254E-01, .3059E-02, .4788E+00, .3059E-02, & & .3059E-02, .3059E-02, .3080E-01, .2549E-01, .1547E-01, .2225E-01, & & .2107E-01, .3059E-02, .4737E+00, .3059E-02, .3059E-02, .3059E-02, & & .3269E-01, .2656E-01, .2125E-01, .2179E-01, .2162E-01, .4589E+00, & & .4643E+00, .3059E-02, .3059E-02, .3059E-02, .3322E-01, .2476E-01, & & .2075E-01, .2139E-01, .1907E-01, .4501E+00, .4441E+00, .3059E-02, & & .3059E-02, .3059E-02, .3387E-01, .2182E-01, .2665E-01, .1841E-01, & & .2506E-01, .3059E-02, .3059E-02, .3059E-02, .3059E-02, .3059E-02, & & .3532E-01, .2091E-01, .1995E-01, .2067E-01, .1949E-01, .4491E+00, & & .3059E-02, .3059E-02, .3059E-02, .3059E-02, .3468E-01, .2075E-01, & & .2587E-01, .1401E-01, .8646E-02, .3059E-02, .3059E-02, .3059E-02, & & .3059E-02, .3059E-02, .3666E-01, .2430E-01, .1919E-01, .2007E-01, & & .3059E-02, .3059E-02, .3059E-02, .3059E-02, .3059E-02, .3059E-02, & & .3613E-01, .2147E-01, .1892E-01, .1361E-01, .3059E-02, .4506E+00, & & .3059E-02, .3059E-02, .3059E-02, .3059E-02, .3129E-01, .1954E-01, & & .2442E-01, .1011E-01, .4420E+00, .3059E-02, .3059E-02, .3059E-02, & & .3059E-02, .3059E-02, .3177E-01, .2101E-01, .1526E-01, .4376E+00, & & .4379E+00, .3059E-02, .3059E-02, .3059E-02, .3059E-02, .3059E-02, & & .2887E-01, .2044E-01, .1285E-01, .3059E-02,-.4862E-03, .3059E-02, & & .3059E-02, .3059E-02, .3059E-02, .3059E-02, .2759E-01, .2114E-01, & & .4303E+00, .3059E-02, .3059E-02, .3059E-02, .3059E-02, .3059E-02, & & .3059E-02, .3059E-02, .2880E-01, .1690E-01,-.4187E+00, .3059E-02, & & .3059E-02, .3059E-02, .3059E-02, .3059E-02, .3059E-02, .3059E-02, & & .2852E-01, .2255E-01, .2184E-01, .4334E+00, .4217E+00, .3059E-02, & & .3059E-02, .3059E-02, .3059E-02, .3059E-02, .2840E-01, .2136E-01, & & .1644E-01, .2812E-01, .4358E+00, .4288E+00, .3059E-02, .3059E-02, & & .3059E-02, .3059E-02, .2809E-01, .2173E-01, .1708E-01, .3346E-01, & & .4225E-01, .4419E+00, .3059E-02, .3059E-02, .3059E-02, .3059E-02, & & .2702E-01, .2260E-01, .1607E-01, .2720E-01, .3982E-01, .4452E+00, & & .4365E+00, .4345E+00, .4432E+00, .4623E+00, .2684E-01, .2328E-01, & & .2099E-01, .3040E-01, .3867E-01, .4389E+00, .3132E-01, .3158E-01, & & .4083E-01, .4580E+00,-.1581E-03,-.9707E-04,-.1250E-03, .2580E-03, & & .7378E-04,-.1617E-01, .8646E-02,-.4656E-05,-.4656E-05,-.4656E-05, & &-.1319E-03,-.9528E-04,-.1710E-03, .7118E-04, .2076E-04,-.1608E-01, & & .8552E-02,-.4656E-05,-.4656E-05,-.4656E-05,-.1721E-03,-.4680E-04, & &-.5522E-04,-.6242E-04, .4517E-04,-.7777E-02, .8382E-02,-.4656E-05, & &-.4656E-05,-.4656E-05,-.1482E-03,-.4208E-04,-.5216E-04,-.6514E-04, & &-.8378E-04,-.7956E-02, .8013E-02,-.4656E-05,-.4656E-05,-.4656E-05, & &-.1501E-03,-.4002E-04,-.1664E-03, .2272E-04,-.1888E-03,-.4656E-05, & &-.4656E-05,-.4656E-05,-.4656E-05,-.4656E-05,-.1201E-03,-.4709E-04, & &-.5371E-04,-.1574E-03, .1854E-03,-.7712E-02,-.4656E-05,-.4656E-05, & &-.4656E-05,-.4656E-05,-.1333E-03,-.1062E-03, .5785E-04,-.4150E-04, & &-.5717E-05,-.4656E-05,-.4656E-05,-.4656E-05,-.4656E-05,-.4656E-05, & &-.1212E-03,-.8524E-04,-.5895E-04,-.2884E-03,-.1581E-01,-.4656E-05, & &-.4656E-05,-.4656E-05,-.4656E-05,-.4656E-05,-.8148E-04,-.9361E-04, & &-.2873E-03, .1883E-03,-.1594E-01, .8133E-02,-.4656E-05,-.4656E-05, & &-.4656E-05,-.4656E-05,-.1221E-03,-.1430E-04, .6335E-04,-.2581E-03, & & .7977E-02,-.4656E-05,-.4656E-05,-.4656E-05,-.4656E-05,-.4656E-05, & &-.9257E-04,-.5008E-04, .6389E-04,-.7455E-02,-.7745E-02,-.4656E-05, & &-.4656E-05,-.4656E-05,-.4656E-05,-.4656E-05,-.1186E-03,-.9037E-04, & &-.7461E-04,-.4656E-05, .1168E-03,-.4656E-05,-.4656E-05,-.4656E-05, & &-.4656E-05,-.4656E-05,-.8513E-04,-.5708E-04, .7763E-02,-.4656E-05, & &-.4656E-05,-.4656E-05,-.4656E-05,-.4656E-05,-.4656E-05,-.4656E-05, & &-.1124E-03,-.1228E-03, .7663E-02,-.4656E-05,-.4656E-05,-.4656E-05, & &-.4656E-05,-.4656E-05,-.4656E-05,-.4656E-05,-.1015E-03,-.8369E-04, & &-.2167E-03,-.7548E-02, .7608E-02,-.4656E-05,-.4656E-05,-.4656E-05, & &-.4656E-05,-.4656E-05,-.1049E-03,-.6414E-04,-.1384E-03,-.1644E-03, & &-.6919E-02, .7736E-02,-.4656E-05,-.4656E-05,-.4656E-05,-.4656E-05, & &-.1008E-03,-.7047E-04,-.1276E-03,-.2445E-03,-.1860E-03, .7975E-02, & &-.4656E-05,-.4656E-05,-.4656E-05,-.4656E-05,-.9629E-04,-.1007E-03, & &-.1127E-03,-.1527E-03,-.3238E-03,-.7373E-02, .7877E-02, .7840E-02, & & .7997E-02, .8345E-02,-.8800E-04,-.1072E-03,-.1046E-03,-.1777E-03, & &-.2146E-03,-.7016E-02, .1516E-01, .1532E-01, .1509E-01, .8268E-02/ data ( ( coech3cl_14_new(k,j), j = 1, 19 ), k = 1, 3 ) / & &-.8278E+01,-.7818E+01,-.7357E+01,-.6897E+01,-.6439E+01,-.5976E+01, & &-.5516E+01,-.5056E+01,-.4597E+01,-.4151E+01,-.3704E+01,-.3283E+01, & &-.2888E+01,-.2545E+01,-.2263E+01,-.2015E+01,-.1785E+01,-.1572E+01, & &-.1400E+01,0.4800E-02,0.4797E-02,0.4798E-02,0.4798E-02,0.4785E-02, & &0.4801E-02,0.4802E-02,0.4831E-02,0.4874E-02,0.4964E-02,0.5198E-02, & &0.5691E-02,0.6425E-02,0.7134E-02,0.7507E-02,0.7846E-02,0.7890E-02, & &0.7674E-02,0.7747E-02,-.3590E-04,-.3585E-04,-.3560E-04,-.3570E-04, & &-.3594E-04,-.3607E-04,-.3620E-04,-.3644E-04,-.3774E-04,-.3753E-04, & &-.4034E-04,-.4465E-04,-.5313E-04,-.5958E-04,-.6406E-04,-.6210E-04, & &-.5871E-04,-.6018E-04,-.5777E-04/ real hk_15_new(12), coehca_15_new(3,19,12), coehcb_15_new(3,19,12) data hk_15_new /.24,.36,.18,.1,.05,.02,.016,.012,.01 & & ,.006,.0039,.0021/ data ( ( (coehca_15_new(k,j,i), i = 1, 12), j = 1, 19), k = 1, 2)/ & &-.1921E+02,-.1363E+02,-.1080E+02,-.8392E+01,-.6776E+01,-.5696E+01, & &-.4572E+01,-.3752E+01,-.2382E+01,-.1110E+01, .6803E+00, .3259E+01, & &-.1875E+02,-.1321E+02,-.1040E+02,-.8026E+01,-.6449E+01,-.5401E+01, & &-.4316E+01,-.3498E+01,-.2141E+01,-.9439E+00, .8103E+00, .3314E+01, & &-.1829E+02,-.1278E+02,-.1000E+02,-.7646E+01,-.6089E+01,-.5085E+01, & &-.4047E+01,-.3217E+01,-.1872E+01,-.7106E+00, .9573E+00, .3390E+01, & &-.1783E+02,-.1236E+02,-.9596E+01,-.7264E+01,-.5735E+01,-.4740E+01, & &-.3743E+01,-.2882E+01,-.1587E+01,-.4714E+00, .1120E+01, .3425E+01, & &-.1737E+02,-.1195E+02,-.9193E+01,-.6877E+01,-.5371E+01,-.4404E+01, & &-.3405E+01,-.2574E+01,-.1298E+01,-.1747E+00, .1327E+01, .3547E+01, & &-.1691E+02,-.1153E+02,-.8776E+01,-.6490E+01,-.4993E+01,-.4049E+01, & &-.3039E+01,-.2256E+01,-.1012E+01, .1103E+00, .1530E+01, .3651E+01, & &-.1644E+02,-.1112E+02,-.8360E+01,-.6105E+01,-.4623E+01,-.3688E+01, & &-.2694E+01,-.1915E+01,-.6855E+00, .3993E+00, .1714E+01, .3950E+01, & &-.1598E+02,-.1073E+02,-.7943E+01,-.5723E+01,-.4236E+01,-.3314E+01, & &-.2338E+01,-.1596E+01,-.3583E+00, .6963E+00, .1868E+01, .4127E+01, & &-.1553E+02,-.1034E+02,-.7542E+01,-.5357E+01,-.3856E+01,-.2942E+01, & &-.1986E+01,-.1299E+01,-.5472E-01, .9443E+00, .2149E+01, .4261E+01, & &-.1485E+02,-.9661E+01,-.7008E+01,-.4830E+01,-.3458E+01,-.2566E+01, & &-.1658E+01,-.9639E+00, .2083E+00, .1182E+01, .2458E+01, .4452E+01, & &-.1427E+02,-.9166E+01,-.6373E+01,-.4404E+01,-.3073E+01,-.2209E+01, & &-.1349E+01,-.6648E+00, .4023E+00, .1452E+01, .2739E+01, .4466E+01, & &-.1380E+02,-.8726E+01,-.5772E+01,-.3982E+01,-.2732E+01,-.1874E+01, & &-.1052E+01,-.4403E+00, .5763E+00, .1792E+01, .2999E+01, .4335E+01, & &-.1305E+02,-.8270E+01,-.5304E+01,-.3586E+01,-.2392E+01,-.1568E+01, & &-.8299E+00,-.2650E+00, .8584E+00, .2062E+01, .3141E+01, .4168E+01, & &-.1269E+02,-.7900E+01,-.4956E+01,-.3205E+01,-.2065E+01,-.1332E+01, & &-.6415E+00,-.7921E-01, .1170E+01, .2269E+01, .3198E+01, .4066E+01, & &-.1227E+02,-.7536E+01,-.4576E+01,-.2859E+01,-.1815E+01,-.1139E+01, & &-.4520E+00, .2272E+00, .1371E+01, .2351E+01, .3150E+01, .3935E+01, & &-.1186E+02,-.7159E+01,-.4223E+01,-.2538E+01,-.1619E+01,-.9324E+00, & &-.1566E+00, .5151E+00, .1520E+01, .2339E+01, .3132E+01, .3880E+01, & &-.1120E+02,-.6777E+01,-.3919E+01,-.2330E+01,-.1387E+01,-.6737E+00, & & .1108E+00, .6991E+00, .1531E+01, .2163E+01, .3150E+01, .3767E+01, & &-.9973E+01,-.6279E+01,-.3638E+01,-.2048E+01,-.1098E+01,-.4407E+00, & & .3043E+00, .7797E+00, .1424E+01, .2002E+01, .3122E+01, .3611E+01, & &-.8483E+01,-.5607E+01,-.3357E+01,-.1744E+01,-.8884E+00,-.2264E+00, & & .3800E+00, .7504E+00, .1245E+01, .2032E+01, .3097E+01, .3546E+01, & & .3762E-01, .2372E-01, .1643E-01, .1208E-01, .1170E-01, .1164E-01, & & .1214E-01, .1161E-01, .1028E-01, .9185E-02, .7712E-02, .1001E-01, & & .3762E-01, .2382E-01, .1593E-01, .1145E-01, .1059E-01, .1049E-01, & & .1080E-01, .1057E-01, .8894E-02, .7807E-02, .7132E-02, .1032E-01, & & .3764E-01, .2386E-01, .1555E-01, .1080E-01, .9692E-02, .9231E-02, & & .9585E-02, .9644E-02, .7711E-02, .6443E-02, .6223E-02, .9922E-02, & & .3764E-01, .2395E-01, .1516E-01, .1028E-01, .8917E-02, .8415E-02, & & .8457E-02, .8777E-02, .6436E-02, .5428E-02, .5499E-02, .8017E-02, & & .3768E-01, .2399E-01, .1482E-01, .9692E-02, .8247E-02, .7640E-02, & & .7582E-02, .7783E-02, .5432E-02, .4482E-02, .4919E-02, .5903E-02, & & .3770E-01, .2401E-01, .1449E-01, .9252E-02, .7620E-02, .6678E-02, & & .6845E-02, .6925E-02, .4939E-02, .3471E-02, .4124E-02, .3873E-02, & & .3776E-01, .2395E-01, .1419E-01, .8959E-02, .7096E-02, .6184E-02, & & .6110E-02, .6075E-02, .4419E-02, .2891E-02, .3056E-02, .1214E-02, & & .3780E-01, .2391E-01, .1392E-01, .8687E-02, .6573E-02, .5733E-02, & & .5359E-02, .5009E-02, .4034E-02, .2755E-02, .1968E-02,-.4187E-04, & & .3791E-01, .2382E-01, .1373E-01, .8561E-02, .6060E-02, .5120E-02, & & .4618E-02, .4713E-02, .3965E-02, .2481E-02, .8164E-03,-.1088E-02, & & .3843E-01, .2148E-01, .1302E-01, .6384E-02, .5256E-02, .4260E-02, & & .4077E-02, .4181E-02, .4132E-02, .2135E-02,-.2931E-03,-.1151E-02, & & .3896E-01, .2081E-01, .1097E-01, .5568E-02, .4475E-02, .3795E-02, & & .3828E-02, .3996E-02, .3766E-02, .1193E-02,-.1089E-02,-.9420E-03, & & .3973E-01, .2024E-01, .9943E-02, .4815E-02, .3820E-02, .3663E-02, & & .3568E-02, .3881E-02, .2859E-02, .6698E-03,-.1549E-02,-.6280E-03, & & .3635E-01, .1963E-01, .1061E-01, .3812E-02, .3509E-02, .3429E-02, & & .3693E-02, .3316E-02, .1120E-02, .6552E-03,-.1193E-02,-.1109E-02, & & .3631E-01, .1893E-01, .1056E-01, .3172E-02, .3378E-02, .3164E-02, & & .2751E-02, .1722E-02, .1112E-02, .4354E-03,-.7327E-03,-.1319E-02, & & .3500E-01, .1828E-01, .1050E-01, .2831E-02, .2784E-02, .2564E-02, & & .1469E-02, .7739E-03, .1209E-02, .7913E-03,-.2512E-03,-.1758E-02, & & .3352E-01, .1763E-01, .1045E-01, .2401E-02, .1928E-02, .1340E-02, & & .3753E-03, .5794E-03, .9060E-03, .1042E-02, .1465E-03,-.2533E-02, & & .2880E-01, .1729E-01, .1077E-01, .1347E-02, .1194E-02,-.1191E-03, & & .2828E-03, .6606E-03, .9743E-03, .1002E-02, .0000E+00,-.3140E-02, & & .2040E-01, .1585E-01, .1165E-01, .3871E-05, .1509E-04,-.1046E-02, & & .2444E-03, .4359E-03, .1041E-02, .2429E-02,-.1721E-03,-.2786E-02, & & .1737E-01, .1560E-01, .1240E-01,-.2139E-03,-.1025E-02,-.1248E-02, & &-.6934E-04, .1649E-03, .4062E-03, .1554E-02,-.4179E-03,-.7795E-03/ data ( ( (coehca_15_new(k,j,i), i = 1, 12), j = 1, 19), k = 3, 3)/ & &-.1488E-03,-.9248E-04,-.2322E-04,-.4187E-05, .1104E-04, .9895E-05, & &-.2283E-05, .2512E-05,-.9058E-05, .8449E-05, .8297E-05,-.3882E-04, & &-.1488E-03,-.9058E-04,-.2398E-04,-.5709E-05, .1218E-04, .1180E-04, & & .1522E-05, .6927E-05,-.1161E-04, .1714E-04,-.4948E-06,-.3540E-04, & &-.1500E-03,-.8830E-04,-.2474E-04,-.8373E-05, .6470E-05, .7992E-05, & & .9096E-05, .6737E-05,-.1485E-04, .1873E-04,-.4948E-06,-.4491E-04, & &-.1500E-03,-.8601E-04,-.2664E-04,-.1028E-04, .6851E-05, .6851E-05, & & .1294E-04,-.2550E-05,-.1520E-04, .2310E-04, .4948E-06,-.2017E-04, & &-.1507E-03,-.8373E-04,-.2664E-04,-.1256E-04, .4567E-05, .1028E-04, & & .9210E-05,-.2131E-05,-.6995E-05, .7498E-05,-.1104E-04,-.2284E-05, & &-.1519E-03,-.8183E-04,-.2816E-04,-.1142E-04, .7611E-06, .7231E-05, & & .1751E-05,-.7612E-06, .8312E-05, .2436E-05,-.7231E-05, .2398E-04, & &-.1530E-03,-.7992E-04,-.2893E-04,-.9896E-05, .3806E-06, .8906E-05, & & .3159E-05,-.5328E-05, .3692E-05,-.2093E-05,-.6851E-05,-.3045E-05, & &-.1538E-03,-.7536E-04,-.3007E-04,-.8754E-05,-.3045E-05, .5138E-05, & & .9134E-06,-.1979E-06, .1560E-05,-.1507E-04, .2284E-04, .9895E-05, & &-.1541E-03,-.7688E-04,-.2969E-04,-.5709E-05,-.3996E-05, .1142E-05, & &-.8373E-06, .1235E-04,-.7079E-05,-.6737E-05, .1028E-04, .3578E-04, & &-.1560E-03,-.6851E-04,-.1903E-04,-.4187E-05,-.4605E-05,-.1142E-06, & & .3878E-05, .3597E-05,-.9591E-05, .5328E-05, .7612E-05,-.4948E-05, & &-.1587E-03,-.6546E-04,-.2740E-04,-.7612E-06,-.3578E-05, .1713E-05, & & .6064E-05,-.9781E-05, .1408E-05, .5709E-05, .8373E-05,-.1256E-04, & &-.1484E-03,-.5823E-04,-.4301E-04,-.1522E-05, .7498E-05,-.5328E-06, & &-.7855E-05,-.1599E-05, .1964E-04,-.2284E-05, .7882E-10, .5328E-05, & &-.1238E-03,-.5700E-04,-.5266E-04, .3286E-05, .4910E-05,-.8602E-05, & & .6090E-06, .8454E-05, .1256E-05,-.4072E-05,-.1903E-05, .6470E-05, & &-.1155E-03,-.5231E-04,-.4396E-04, .3626E-05,-.7051E-05,-.1743E-05, & & .9667E-05, .2064E-04,-.2778E-05,-.6546E-05,-.4948E-05, .1903E-05, & &-.1024E-03,-.5129E-04,-.4506E-04, .7943E-06, .3074E-06, .3243E-05, & & .2754E-04,-.1479E-05, .1661E-05,-.2969E-05,-.1066E-04, .7612E-06, & &-.8473E-04,-.5418E-04,-.4674E-04,-.3418E-05, .9460E-05, .1151E-04, & & .5714E-05,-.1069E-04,-.2022E-05,-.9061E-05,-.1104E-04,-.3083E-04, & &-.4283E-04,-.5037E-04,-.4476E-04, .1951E-04, .8922E-05, .1296E-04, & &-.4053E-05,-.4355E-05,-.2355E-05,-.5004E-05,-.1218E-04,-.1522E-04, & & .6411E-05,-.5937E-04,-.5331E-04, .1934E-04, .5284E-05, .1129E-04, & &-.2166E-05,-.1484E-06,-.5407E-05,-.1364E-04,-.3115E-05, .3004E-04, & &-.5074E-04,-.6256E-04,-.5097E-04, .2218E-04, .1228E-04,-.1160E-05, & &-.1105E-05, .1618E-06,-.6089E-05,-.4216E-06,-.5314E-05, .7903E-05/ data ( ( (coehcb_15_new(k,j,i), i = 1, 12), j = 1, 19), k = 1, 2)/ & &-.9593E+01,-.4078E+01,-.2812E+01,-.6506E+00,-.4123E+00, .2055E+01, & & .4097E+01, .4671E+01, .4639E+01,-.4587E+02,-.4587E+02,-.4587E+02, & &-.9276E+01,-.3757E+01,-.2467E+01,-.5784E+00, .8833E-01, .2232E+01, & & .3826E+01, .4723E+01, .4942E+01, .5135E+01,-.4587E+02,-.4587E+02, & &-.8968E+01,-.3508E+01,-.2116E+01,-.1363E+00, .1662E+00, .2424E+01, & & .4220E+01, .4513E+01, .1375E+01, .4601E+01,-.4587E+02,-.4587E+02, & &-.8662E+01,-.3164E+01,-.1722E+01, .5178E-01, .7288E+00, .2411E+01, & & .3805E+01, .4766E+01, .4342E+01,-.4587E+02,-.4587E+02,-.4587E+02, & &-.8292E+01,-.2799E+01,-.1359E+01, .3271E+00, .1650E+01, .2395E+01, & & .4192E+01, .4758E+01, .2470E+01,-.4587E+02,-.4587E+02,-.4587E+02, & &-.7812E+01,-.2404E+01,-.1085E+01, .7167E+00, .2202E+01, .2922E+01, & & .4322E+01, .4591E+01, .4186E+01,-.4587E+02,-.4587E+02,-.4587E+02, & &-.7441E+01,-.2066E+01,-.7142E+00, .1057E+01, .2524E+01, .2946E+01, & & .4220E+01, .3607E+01,-.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02, & &-.7191E+01,-.1745E+01,-.3487E+00, .1453E+01, .2739E+01, .3660E+01, & & .4114E+01, .3245E+01,-.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02, & &-.6895E+01,-.1326E+01,-.3500E+00, .1647E+01, .2899E+01, .4023E+01, & & .3361E+01, .3360E+01,-.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02, & &-.5876E+01,-.9573E+00, .2014E+00, .2130E+01, .3493E+01, .4088E+01, & &-.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02, & &-.4429E+01,-.3417E+00, .1204E+01, .2780E+01, .3843E+01, .3099E+01, & &-.4587E+02, .3605E+01,-.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02, & &-.3122E+01, .2697E+00, .1866E+01, .3526E+01, .3569E+01, .1025E+01, & &-.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02, & &-.2284E+01, .8186E+00, .2754E+01, .3206E+01, .3704E+01,-.4587E+02, & &-.4587E+02, .4625E+01,-.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02, & &-.1711E+01, .1220E+01, .3248E+01,-.4587E+02, .2565E+01, .3297E+01, & &-.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02, & &-.1758E+01, .7970E+00, .2758E+01, .2926E+01, .2613E+01, .1974E+01, & &-.4587E+02, .2310E+01,-.4587E+02,-.4587E+02,-.4587E+02,-.4587E+02, & &-.1737E+01, .3499E+00, .2246E+01, .2673E+01, .3308E+01, .3463E+01, & & .3103E+01, .2611E+01, .2178E+01,-.4587E+02,-.4587E+02,-.4587E+02, & &-.1559E+01, .2215E+00, .1875E+01, .2500E+01, .3346E+01, .3585E+01, & & .3946E+01, .3533E+01, .3205E+01,-.4587E+02,-.4587E+02,-.4587E+02, & &-.1601E+01, .5060E-01, .1275E+01, .2176E+01, .3081E+01, .3649E+01, & & .3940E+01, .4106E+01, .4112E+01, .4349E+01, .2292E+01,-.4587E+02, & &-.1222E+01, .3199E+00, .1642E+01, .2380E+01, .3254E+01, .3534E+01, & & .3687E+01, .3717E+01, .3402E+01, .3868E+01,-.4587E+02,-.4587E+02, & & .2967E-01, .1697E-01, .1795E-01, .1387E-01, .2032E-01, .1187E-01, & & .2560E-01, .1044E-01,-.4560E+00, .3059E-02, .3059E-02, .3059E-02, & & .2998E-01, .1586E-01, .1786E-01, .1521E-01, .1710E-01, .1061E-01, & & .2030E-01, .1158E-01, .4452E+00, .3059E-02, .3059E-02, .3059E-02, & & .2993E-01, .1551E-01, .1481E-01, .9846E-02, .2443E-01, .1150E-01, & & .1865E-01, .1376E-01, .4617E+00, .3059E-02, .3059E-02, .3059E-02, & & .3035E-01, .1417E-01, .1438E-01, .1511E-01, .1901E-01, .8582E-02, & & .1746E-01, .1450E-01, .4523E+00, .3059E-02, .3059E-02, .3059E-02, & & .2970E-01, .1347E-01, .1322E-01, .1252E-01, .1665E-01, .1037E-01, & & .1320E-01, .1199E-01, .4436E+00, .3059E-02, .3059E-02, .3059E-02, & & .2949E-01, .1291E-01, .1671E-01, .1111E-01, .1400E-01, .1318E-01, & & .1060E-01, .1046E-01, .3059E-02, .3059E-02, .3059E-02, .3059E-02, & & .3004E-01, .1300E-01, .1413E-01, .9085E-02, .9764E-02, .2260E-01, & & .9778E-02, .4671E+00, .3059E-02, .3059E-02, .3059E-02, .3059E-02, & & .3086E-01, .1436E-01, .1205E-01, .1081E-01, .4681E-02, .1479E-01, & & .1888E-01, .3494E-01, .3059E-02, .3059E-02, .3059E-02, .3059E-02, & & .3094E-01, .1500E-01, .1457E-01, .1060E-01, .8319E-02, .8983E-02, & & .3791E-01, .2232E-01, .4631E+00, .3059E-02, .3059E-02, .3059E-02, & & .3158E-01, .1585E-01, .1292E-01, .6531E-02, .1383E-01, .4605E+00, & & .4662E+00, .3059E-02, .3059E-02, .3059E-02, .3059E-02, .3059E-02, & & .3182E-01, .1586E-01, .8724E-02, .5798E-02, .2454E-01, .4607E+00, & & .4560E+00, .4511E+00, .3059E-02, .3059E-02, .3059E-02, .3059E-02, & & .2369E-01, .1606E-01, .5477E-02, .1228E-01, .4579E+00, .4561E+00, & & .4497E+00, .3059E-02, .3059E-02, .3059E-02, .3059E-02, .3059E-02, & & .2190E-01, .1779E-01, .6267E-02, .4535E+00, .4533E+00, .3059E-02, & & .3059E-02, .3059E-02, .3059E-02, .3059E-02, .3059E-02, .3059E-02, & & .2100E-01, .1653E-01, .7449E-02, .4543E+00, .4472E+00, .4439E+00, & & .3059E-02, .3059E-02, .3059E-02, .3059E-02, .3059E-02, .3059E-02, & & .1864E-01, .1771E-01, .7040E-02, .2877E-01, .3381E-01, .2691E-01, & & .4466E+00, .3059E-02, .4613E+00, .3059E-02, .3059E-02, .3059E-02, & & .1637E-01, .1641E-01, .8424E-02, .1318E-01, .2060E-01, .3426E-01, & & .4122E-01, .4621E+00, .4555E+00, .4525E+00, .3059E-02, .3059E-02, & & .1607E-01, .1452E-01, .8013E-02, .1213E-01, .1482E-01, .2125E-01, & & .3379E-01, .3562E-01, .4619E+00, .4569E+00, .3059E-02, .3059E-02, & & .1698E-01, .1538E-01, .6616E-02, .1147E-01, .1217E-01, .1696E-01, & & .1871E-01, .2273E-01, .4513E-01, .4702E+00, .4617E+00, .4553E+00, & & .1700E-01, .1547E-01, .6456E-02, .1324E-01, .1502E-01, .2095E-01, & & .2547E-01, .2823E-01, .4107E-01, .4676E+00, .4583E+00, .4498E+00/ data ( ( (coehcb_15_new(k,j,i), i = 1, 12), j = 1, 19), k = 3, 3)/ & &-.6747E-05,-.2483E-04, .6575E-04, .1026E-03, .3888E-03,-.8519E-04, & &-.1629E-03,-.1808E-04,-.8355E-02,-.4656E-05,-.4656E-05,-.4656E-05, & &-.2270E-04,-.3427E-04, .5118E-04, .1218E-03, .1245E-03,-.1245E-03, & & .3841E-05,-.4151E-04,-.8763E-02,-.1687E-01,-.4656E-05,-.4656E-05, & &-.4557E-04,-.3023E-04, .2286E-04, .5656E-04, .4113E-04,-.1407E-03, & &-.1301E-03, .8503E-04,-.7284E-02,-.1669E-01,-.4656E-05,-.4656E-05, & &-.5325E-04,-.5309E-04,-.1246E-04, .2244E-04, .5136E-04,-.1272E-03, & & .4217E-04,-.1749E-04,-.8435E-02,-.4656E-05,-.4656E-05,-.4656E-05, & &-.6857E-04,-.7217E-04, .1740E-05, .3653E-04,-.1490E-03,-.4090E-04, & &-.2376E-04, .2047E-04,-.7974E-02,-.4656E-05,-.4656E-05,-.4656E-05, & &-.1232E-03,-.9826E-04,-.2849E-04, .1703E-04,-.1895E-03,-.3363E-03, & & .7102E-04,-.1838E-05,-.1655E-01,-.4656E-05,-.4656E-05,-.4656E-05, & &-.9896E-04,-.5127E-04,-.2704E-04,-.1218E-04,-.1207E-03,-.5883E-04, & & .6893E-04,-.7924E-02,-.4656E-05,-.4656E-05,-.4656E-05,-.4656E-05, & &-.7837E-04,-.4980E-04, .6902E-05,-.1072E-03,-.4051E-04,-.1991E-05, & &-.1173E-03,-.5195E-04,-.4656E-05,-.4656E-05,-.4656E-05,-.4656E-05, & &-.8136E-04,-.8102E-04, .1254E-03,-.4658E-04, .3173E-04,-.4461E-05, & &-.1558E-03,-.2036E-03, .8360E-02,-.4656E-05,-.4656E-05,-.4656E-05, & &-.2232E-04,-.6411E-04, .9486E-04,-.2322E-03,-.8282E-04,-.8202E-02, & & .8416E-02,-.4656E-05,-.4656E-05,-.4656E-05,-.4656E-05,-.4656E-05, & &-.1398E-03,-.7165E-04,-.4258E-04,-.3970E-04,-.2839E-03,-.7873E-02, & & .8231E-02,-.8213E-02,-.4656E-05,-.4656E-05,-.4656E-05,-.4656E-05, & &-.6754E-04,-.7469E-04,-.6898E-04,-.1702E-03,-.8079E-02,-.7270E-02, & & .8116E-02,-.4656E-05,-.4656E-05,-.4656E-05,-.4656E-05,-.4656E-05, & &-.2396E-04,-.2361E-04,-.8664E-04,-.8038E-02,-.8207E-02,-.4656E-05, & &-.4656E-05,-.1670E-01,-.4656E-05,-.4656E-05,-.4656E-05,-.4656E-05, & &-.5479E-04,-.7593E-04,-.1005E-03, .8199E-02,-.7942E-02,-.8244E-02, & &-.4656E-05,-.4656E-05,-.4656E-05,-.4656E-05,-.4656E-05,-.4656E-05, & &-.3806E-04,-.5825E-04,-.1003E-03,-.2925E-03,-.1506E-03, .3148E-04, & & .8060E-02,-.1593E-01, .8327E-02,-.4656E-05,-.4656E-05,-.4656E-05, & &-.4706E-04,-.3630E-04,-.7811E-04,-.6881E-04,-.1822E-03,-.3091E-03, & &-.3033E-03,-.7684E-02,-.7663E-02, .8167E-02,-.4656E-05,-.4656E-05, & &-.7669E-04,-.4610E-04,-.8063E-04,-.7250E-04,-.1094E-03,-.1241E-03, & &-.2944E-03,-.1736E-03,-.7886E-02, .8248E-02,-.4656E-05,-.4656E-05, & &-.7138E-04,-.4545E-04,-.3653E-04,-.6075E-04,-.4528E-04,-.1077E-03, & &-.1119E-03,-.1657E-03,-.4695E-03,-.8112E-02,-.7587E-02, .8217E-02, & &-.6812E-04,-.4558E-04,-.6739E-04,-.8861E-04,-.9386E-04,-.1334E-03, & &-.2007E-03,-.2179E-03,-.1650E-03,-.8001E-02, .8273E-02, .8118E-02/ real hk_16_new(7), coeh2o_16_new(3,19,7) data hk_16_new / .12, .24, .24, .20, .12, .06, .02 / data ( ( ( coeh2o_16_new(k,j,i), i = 1, 7), j = 1, 19), k = 1, 3)/ & &-.2344E+02,-.2016E+02,-.1986E+02,-.1655E+02,-.1243E+02,-.8437E+01, & &-.4858E+01,-.2298E+02,-.2014E+02,-.1984E+02,-.1609E+02,-.1198E+02, & &-.8020E+01,-.4548E+01,-.2252E+02,-.2012E+02,-.1981E+02,-.1564E+02, & &-.1153E+02,-.7596E+01,-.4239E+01,-.2206E+02,-.2009E+02,-.1957E+02, & &-.1517E+02,-.1111E+02,-.7161E+01,-.3871E+01,-.2160E+02,-.2007E+02, & &-.1911E+02,-.1472E+02,-.1065E+02,-.6721E+01,-.3479E+01,-.2113E+02, & &-.2005E+02,-.1865E+02,-.1426E+02,-.1021E+02,-.6302E+01,-.3081E+01, & &-.2067E+02,-.2003E+02,-.1819E+02,-.1379E+02,-.9765E+01,-.5883E+01, & &-.2678E+01,-.2026E+02,-.2001E+02,-.1773E+02,-.1333E+02,-.9332E+01, & &-.5443E+01,-.2253E+01,-.2024E+02,-.1999E+02,-.1727E+02,-.1288E+02, & &-.8897E+01,-.5029E+01,-.1858E+01,-.2026E+02,-.1959E+02,-.1481E+02, & &-.1147E+02,-.7477E+01,-.4555E+01,-.1464E+01,-.2022E+02,-.1632E+02, & &-.1305E+02,-.9885E+01,-.6689E+01,-.4108E+01,-.1068E+01,-.1936E+02, & &-.1438E+02,-.1163E+02,-.8499E+01,-.6146E+01,-.3673E+01,-.6816E+00, & &-.1675E+02,-.1281E+02,-.1020E+02,-.7716E+01,-.5678E+01,-.3256E+01, & &-.3125E+00,-.1510E+02,-.1124E+02,-.8821E+01,-.7140E+01,-.5243E+01, & &-.2851E+01,-.2560E-01,-.1334E+02,-.9708E+01,-.8061E+01,-.6611E+01, & &-.4842E+01,-.2459E+01, .1711E+00,-.1155E+02,-.8798E+01,-.7440E+01, & &-.6123E+01,-.4439E+01,-.2089E+01, .2480E+00,-.1020E+02,-.8154E+01, & &-.6945E+01,-.5681E+01,-.4055E+01,-.1737E+01, .2390E+00,-.9464E+01, & &-.7677E+01,-.6512E+01,-.5284E+01,-.3707E+01,-.1453E+01, .2015E+00, & &-.9033E+01,-.7246E+01,-.6093E+01,-.4882E+01,-.3346E+01,-.1264E+01, & & .1033E+00, .4658E-01, .5840E-02, .4626E-02, .2688E-01, .2395E-01, & & .1804E-01, .2074E-01, .4660E-01, .1884E-02, .8561E-02, .2690E-01, & & .2403E-01, .1788E-01, .1934E-01, .4660E-01, .1800E-02, .1252E-01, & & .2694E-01, .2393E-01, .1786E-01, .1825E-01, .4660E-01, .1779E-02, & & .1649E-01, .2696E-01, .2397E-01, .1779E-01, .1765E-01, .4348E-01, & & .1758E-02, .2043E-01, .2696E-01, .2393E-01, .1748E-01, .1675E-01, & & .3944E-01, .1737E-02, .2445E-01, .2698E-01, .2384E-01, .1752E-01, & & .1549E-01, .3538E-01, .1654E-02, .2847E-01, .2702E-01, .2384E-01, & & .1714E-01, .1565E-01, .3127E-01, .1570E-02, .3245E-01, .2705E-01, & & .2374E-01, .1712E-01, .1514E-01, .2715E-01, .1444E-02, .3540E-01, & & .2711E-01, .2363E-01, .1702E-01, .1446E-01, .2960E-01, .1760E-01, & & .2977E-01, .2397E-01, .2087E-01, .1618E-01, .1445E-01, .2466E-01, & & .3039E-01, .2428E-01, .2217E-01, .1821E-01, .1593E-01, .1463E-01, & & .2640E-01, .2545E-01, .2231E-01, .2060E-01, .1773E-01, .1555E-01, & & .1473E-01, .3456E-01, .2135E-01, .2030E-01, .1844E-01, .1740E-01, & & .1559E-01, .1428E-01, .3203E-01, .2047E-01, .1809E-01, .1760E-01, & & .1725E-01, .1545E-01, .1541E-01, .2137E-01, .1857E-01, .1616E-01, & & .1698E-01, .1700E-01, .1537E-01, .1636E-01, .1338E-01, .1518E-01, & & .1580E-01, .1658E-01, .1710E-01, .1518E-01, .1513E-01, .1570E-01, & & .1614E-01, .1603E-01, .1673E-01, .1706E-01, .1497E-01, .1439E-01, & & .1987E-01, .1731E-01, .1601E-01, .1675E-01, .1681E-01, .1535E-01, & & .1425E-01, .2018E-01, .1723E-01, .1597E-01, .1691E-01, .1666E-01, & & .1509E-01, .1446E-01,-.2873E-03,-.8031E-04, .4225E-04,-.9287E-04, & &-.6013E-04,-.4339E-04,-.2474E-04,-.2862E-03,-.8372E-05, .1146E-03, & &-.9248E-04,-.6166E-04,-.3882E-04,-.1827E-04,-.2870E-03,-.6851E-05, & & .1865E-03,-.9172E-04,-.6128E-04,-.3616E-04,-.7612E-05,-.2877E-03, & &-.7231E-05, .1880E-03,-.9287E-04,-.5671E-04,-.4110E-04,-.1104E-04, & &-.3429E-03,-.7612E-05, .1149E-03,-.9287E-04,-.6356E-04,-.4529E-04, & &-.2436E-04,-.4187E-03,-.7992E-05, .4339E-04,-.9325E-04,-.6280E-04, & &-.4225E-04,-.3197E-04,-.4925E-03,-.8754E-05,-.2740E-04,-.9477E-04, & &-.6432E-04,-.3768E-04,-.3361E-04,-.5511E-03,-.8753E-05,-.9972E-04, & &-.9515E-04,-.6394E-04,-.3806E-04,-.3787E-04,-.4792E-03,-.1028E-04, & &-.1534E-03,-.9477E-04,-.6356E-04,-.3616E-04,-.2923E-04,-.5070E-03, & & .1922E-03,-.1028E-03,-.5823E-04,-.7954E-04,-.2550E-04,-.3893E-04, & &-.3776E-03,-.1043E-03,-.7993E-04,-.7422E-04,-.4948E-04,-.3007E-04, & &-.3863E-04, .8335E-04,-.5709E-04,-.6090E-04,-.7840E-04,-.3692E-04, & &-.3007E-04,-.4251E-04,-.6204E-04,-.4872E-04,-.3806E-04,-.4681E-04, & &-.3463E-04,-.3007E-04,-.4312E-04,-.1142E-04,-.5176E-04,-.5024E-04, & &-.3007E-04,-.3730E-04,-.3037E-04,-.3888E-04, .2550E-04,-.6508E-04, & &-.2512E-04,-.3083E-04,-.3197E-04,-.3041E-04,-.3750E-04, .1484E-04, & &-.1941E-04,-.2626E-04,-.3349E-04,-.3463E-04,-.2896E-04,-.1716E-04, & &-.7231E-04,-.3920E-04,-.2893E-04,-.3540E-04,-.3311E-04,-.3734E-04, & &-.2550E-05,-.7650E-04,-.3159E-04,-.2778E-04,-.3121E-04,-.2169E-04, & &-.4365E-04,-.1546E-04,-.7916E-04,-.2931E-04,-.2854E-04,-.3654E-04, & &-.1979E-04,-.4811E-04,-.1435E-04/ real hk_17_new(7), coeh2o_17_new(3,19,7) data hk_17_new / .12, .26, .22, .20, .10, .085, .015 / data ( ( ( coeh2o_17_new(k,j,i), i = 1, 7), j = 1, 19), k = 1, 3)/ & &-.2255E+02,-.2000E+02,-.1703E+02,-.1282E+02,-.9215E+01,-.5938E+01, & &-.2009E+01,-.2209E+02,-.1997E+02,-.1657E+02,-.1236E+02,-.8764E+01, & &-.5499E+01,-.1582E+01,-.2163E+02,-.1993E+02,-.1611E+02,-.1191E+02, & &-.8324E+01,-.5061E+01,-.1170E+01,-.2117E+02,-.1990E+02,-.1565E+02, & &-.1146E+02,-.7889E+01,-.4631E+01,-.7737E+00,-.2071E+02,-.1987E+02, & &-.1519E+02,-.1100E+02,-.7440E+01,-.4179E+01,-.3719E+00,-.2026E+02, & &-.1985E+02,-.1473E+02,-.1054E+02,-.6995E+01,-.3721E+01, .0000E+00, & &-.2024E+02,-.1982E+02,-.1426E+02,-.1009E+02,-.6549E+01,-.3284E+01, & & .4053E+00,-.2022E+02,-.1980E+02,-.1381E+02,-.9639E+01,-.6097E+01, & &-.2821E+01, .8375E+00,-.2021E+02,-.1933E+02,-.1335E+02,-.9187E+01, & &-.5653E+01,-.2379E+01, .1272E+01,-.2010E+02,-.1503E+02,-.1125E+02, & &-.7665E+01,-.4492E+01,-.1893E+01, .1642E+01,-.1747E+02,-.1278E+02, & &-.9547E+01,-.6120E+01,-.3756E+01,-.1443E+01, .1995E+01,-.1529E+02, & &-.1095E+02,-.8107E+01,-.5036E+01,-.3182E+01,-.1032E+01, .2429E+01, & &-.1370E+02,-.9303E+01,-.6691E+01,-.4357E+01,-.2683E+01,-.6173E+00, & & .2805E+01,-.1150E+02,-.7859E+01,-.5618E+01,-.3843E+01,-.2234E+01, & &-.2171E+00, .2973E+01,-.9590E+01,-.6537E+01,-.4886E+01,-.3355E+01, & &-.1805E+01, .1615E+00, .3157E+01,-.7530E+01,-.5699E+01,-.4306E+01, & &-.2892E+01,-.1388E+01, .5448E+00, .3155E+01,-.6758E+01,-.5112E+01, & &-.3809E+01,-.2464E+01,-.9947E+00, .8713E+00, .3203E+01,-.6245E+01, & &-.4610E+01,-.3376E+01,-.2058E+01,-.6166E+00, .1073E+01, .3109E+01, & &-.5777E+01,-.4175E+01,-.2963E+01,-.1671E+01,-.2556E+00, .1241E+01, & & .3014E+01, .4264E-01, .1968E-02, .1863E-01, .1436E-01, .1101E-01, & & .1055E-01, .1281E-01, .4264E-01, .1989E-02, .1861E-01, .1438E-01, & & .1095E-01, .1030E-01, .1211E-01, .3996E-01, .1968E-02, .1861E-01, & & .1434E-01, .1103E-01, .1019E-01, .1160E-01, .3600E-01, .1947E-02, & & .1861E-01, .1442E-01, .1086E-01, .1003E-01, .1157E-01, .3203E-01, & & .5756E-02, .1861E-01, .1444E-01, .1080E-01, .9922E-02, .1151E-01, & & .2801E-01, .9713E-02, .1859E-01, .1446E-01, .1070E-01, .9880E-02, & & .1066E-01, .2393E-01, .1369E-01, .1859E-01, .1451E-01, .1057E-01, & & .9880E-02, .1072E-01, .1987E-01, .1767E-01, .1863E-01, .1451E-01, & & .1040E-01, .9880E-02, .1057E-01, .1572E-01, .2169E-01, .1863E-01, & & .1442E-01, .1022E-01, .9742E-02, .1036E-01, .3391E-02, .1884E-01, & & .1566E-01, .1105E-01, .1011E-01, .1001E-01, .1017E-01, .1982E-01, & & .1444E-01, .1189E-01, .1030E-01, .9859E-02, .9861E-02, .1038E-01, & & .1748E-01, .1321E-01, .9922E-02, .1068E-01, .1013E-01, .9937E-02, & & .9958E-02, .1346E-01, .9943E-02, .9566E-02, .1097E-01, .9815E-02, & & .9964E-02, .1059E-01, .9817E-02, .7159E-02, .8687E-02, .1114E-01, & & .1007E-01, .1014E-01, .1058E-01, .3370E-02, .7264E-02, .9378E-02, & & .1112E-01, .9767E-02, .1016E-01, .1101E-01, .2993E-02, .8017E-02, & & .9566E-02, .1116E-01, .9738E-02, .1025E-01, .1086E-01, .8331E-02, & & .8771E-02, .1001E-01, .1117E-01, .9847E-02, .1076E-01, .1084E-01, & & .7850E-02, .9378E-02, .1001E-01, .1105E-01, .9964E-02, .1113E-01, & & .1168E-01, .8038E-02, .9336E-02, .9817E-02, .1096E-01, .1024E-01, & & .1175E-01, .1107E-01,-.2188E-03,-.2283E-05,-.8069E-04,-.4415E-04, & &-.2284E-04,-.4491E-04,-.4518E-04,-.2196E-03,-.2665E-05,-.8107E-04, & &-.4301E-04,-.2398E-04,-.4795E-04,-.4693E-04,-.2683E-03,-.3045E-05, & &-.8107E-04,-.4301E-04,-.2246E-04,-.4757E-04,-.4152E-04,-.3403E-03, & &-.4187E-05,-.8031E-04,-.3996E-04,-.1865E-04,-.4301E-04,-.4350E-04, & &-.4118E-03, .6584E-04,-.8107E-04,-.4034E-04,-.1903E-04,-.4643E-04, & &-.4834E-04,-.4803E-03, .1378E-03,-.8069E-04,-.4072E-04,-.1713E-04, & &-.5176E-04,-.3460E-04,-.4099E-03, .2101E-03,-.8069E-04,-.3920E-04, & &-.1713E-04,-.5024E-04,-.3524E-04,-.3391E-03, .2809E-03,-.7992E-04, & &-.3616E-04,-.2017E-04,-.5633E-04,-.4886E-04,-.2668E-03, .2078E-03, & &-.8069E-04,-.3768E-04,-.2131E-04,-.5580E-04,-.5454E-04,-.2207E-04, & &-.8601E-04,-.4643E-04,-.2436E-04,-.4148E-04,-.5458E-04,-.4579E-04, & &-.5138E-04,-.2893E-04,-.3273E-04,-.3882E-04,-.3920E-04,-.5035E-04, & &-.3170E-04,-.2169E-04,-.3007E-04,-.2740E-04,-.5328E-04,-.4491E-04, & &-.4403E-04,-.6383E-04, .4834E-04,-.2702E-04,-.4453E-04,-.4339E-04, & &-.4457E-04,-.4551E-04,-.8133E-04, .3768E-04,-.7611E-06,-.2626E-04, & &-.4643E-04,-.4305E-04,-.4840E-04,-.5149E-04, .7193E-04,-.2169E-04, & &-.4491E-04,-.3996E-04,-.4483E-04,-.4487E-04,-.6698E-04,-.4834E-04, & &-.3463E-04,-.4986E-04,-.4377E-04,-.4514E-04,-.5377E-04,-.2626E-04, & &-.4187E-04,-.3692E-04,-.5100E-04,-.4651E-04,-.4392E-04,-.5386E-04, & &-.4643E-04,-.4301E-04,-.3578E-04,-.5176E-04,-.4594E-04,-.4551E-04, & &-.3920E-04,-.3425E-04,-.4491E-04,-.3654E-04,-.5138E-04,-.4377E-04, & &-.5614E-04,-.5758E-04,-.3600E-04/ real hk_18_new(8), coeh2o_18_new(3,19,8) data hk_18_new / .07, .1, .2, .25, .2, .1, .03, .02 / data ( ( ( coeh2o_18_new(k,j,i), i = 1, 8), j = 1, 19), k = 1, 3)/ & &-.2121E+02,-.2002E+02,-.1676E+02,-.1274E+02,-.8780E+01,-.5167E+01, & &-.2692E+01,-.6275E+00,-.2075E+02,-.1996E+02,-.1630E+02,-.1228E+02, & &-.8324E+01,-.4718E+01,-.2260E+01,-.2303E+00,-.2029E+02,-.1990E+02, & &-.1584E+02,-.1182E+02,-.7868E+01,-.4269E+01,-.1806E+01, .1645E+00, & &-.2022E+02,-.1985E+02,-.1538E+02,-.1136E+02,-.7417E+01,-.3820E+01, & &-.1373E+01, .5657E+00,-.2018E+02,-.1981E+02,-.1492E+02,-.1090E+02, & &-.6965E+01,-.3369E+01,-.9319E+00, .9577E+00,-.2013E+02,-.1937E+02, & &-.1446E+02,-.1044E+02,-.6512E+01,-.2917E+01,-.4928E+00, .1376E+01, & &-.2009E+02,-.1891E+02,-.1400E+02,-.9984E+01,-.6063E+01,-.2466E+01, & &-.6887E-01, .1768E+01,-.2006E+02,-.1845E+02,-.1354E+02,-.9530E+01, & &-.5618E+01,-.2024E+01, .3615E+00, .2196E+01,-.2003E+02,-.1800E+02, & &-.1308E+02,-.9075E+01,-.5174E+01,-.1593E+01, .7820E+00, .2600E+01, & &-.1827E+02,-.1464E+02,-.1097E+02,-.7525E+01,-.3733E+01,-.1077E+01, & & .1204E+01, .3014E+01,-.1525E+02,-.1210E+02,-.9275E+01,-.5876E+01, & &-.2768E+01,-.6286E+00, .1622E+01, .3394E+01,-.1298E+02,-.1060E+02, & &-.7764E+01,-.4462E+01,-.2154E+01,-.2001E+00, .2034E+01, .3756E+01, & &-.1157E+02,-.8941E+01,-.5984E+01,-.3509E+01,-.1651E+01, .2279E+00, & & .2422E+01, .4066E+01,-.9986E+01,-.7062E+01,-.4794E+01,-.2818E+01, & &-.1196E+01, .6394E+00, .2791E+01, .4283E+01,-.8064E+01,-.5512E+01, & &-.3933E+01,-.2274E+01,-.7559E+00, .1036E+01, .3085E+01, .4444E+01, & &-.6440E+01,-.4863E+01,-.3219E+01,-.1791E+01,-.3279E+00, .1427E+01, & & .3304E+01, .4527E+01,-.5902E+01,-.4207E+01,-.2756E+01,-.1350E+01, & & .7686E-01, .1776E+01, .3475E+01, .4550E+01,-.5439E+01,-.3739E+01, & &-.2330E+01,-.9233E+00, .4612E+00, .2066E+01, .3564E+01, .4502E+01, & &-.5006E+01,-.3316E+01,-.1906E+01,-.5066E+00, .8352E+00, .2272E+01, & & .3587E+01, .4419E+01, .2338E-01, .1968E-02, .9503E-02, .3412E-02, & & .6280E-03,-.1109E-02,-.1089E-02,-.1026E-02, .1972E-01, .2093E-02, & & .9503E-02, .3391E-02, .6489E-03,-.1172E-02,-.1164E-02,-.1158E-02, & & .1603E-01, .3328E-02, .9524E-02, .3391E-02, .6489E-03,-.1277E-02, & &-.1229E-02,-.1296E-02, .1229E-01, .7138E-02, .9524E-02, .3370E-02, & & .6070E-03,-.1319E-02,-.1264E-02,-.1610E-02, .8478E-02, .1095E-01, & & .9566E-02, .3412E-02, .5652E-03,-.1382E-02,-.1266E-02,-.1566E-02, & & .4563E-02, .1480E-01, .9566E-02, .3412E-02, .5443E-03,-.1423E-02, & &-.1199E-02,-.1679E-02, .2261E-02, .1865E-01, .9608E-02, .3454E-02, & & .4815E-03,-.1423E-02,-.1296E-02,-.1555E-02, .2198E-02, .2250E-01, & & .9671E-02, .3412E-02, .4187E-03,-.1426E-02,-.1472E-02,-.1800E-02, & & .2072E-02, .2600E-01, .9734E-02, .3433E-02, .3977E-03,-.1428E-02, & &-.1541E-02,-.1591E-02, .1987E-01, .8645E-02, .6280E-02, .1298E-02, & &-.1151E-02,-.1509E-02,-.1662E-02,-.1570E-02, .4668E-02, .8373E-02, & & .3956E-02,-.4187E-04,-.1968E-02,-.1624E-02,-.1700E-02,-.1947E-02, & & .9231E-02, .5694E-02, .1444E-02,-.2512E-03,-.1827E-02,-.1662E-02, & &-.1576E-02,-.1633E-02, .8666E-02, .3077E-02,-.1737E-02,-.1277E-02, & &-.1507E-02,-.1757E-02,-.1612E-02,-.1612E-02, .8164E-03,-.4375E-02, & &-.1884E-02,-.1277E-02,-.1564E-02,-.1853E-02,-.1591E-02,-.1486E-02, & &-.1486E-02,-.2596E-02,-.1633E-02,-.1539E-02,-.1662E-02,-.1846E-02, & &-.1423E-02,-.1277E-02,-.1423E-02,-.2617E-02,-.1005E-02,-.1379E-02, & &-.1687E-02,-.1905E-02,-.1528E-02,-.1298E-02,-.1675E-03,-.1947E-02, & &-.5024E-03,-.1325E-02,-.1696E-02,-.1698E-02,-.1486E-02,-.1277E-02, & & .1047E-03,-.1109E-02,-.5861E-03,-.1363E-02,-.1620E-02,-.1666E-02, & &-.1507E-02,-.9210E-03, .1047E-03,-.1047E-02,-.8394E-03,-.1342E-02, & &-.1591E-02,-.1323E-02,-.1340E-02,-.9420E-03,-.1085E-03, .2283E-05, & &-.4719E-04,-.3807E-06,-.1522E-05,-.3425E-05,-.7612E-06, .1751E-05, & &-.1766E-03, .1523E-05,-.4719E-04,-.7609E-06,-.3807E-06,-.3045E-05, & & .1599E-05, .8723E-05,-.2443E-03, .1941E-04,-.4757E-04,-.1522E-05, & &-.3806E-06,-.1903E-05,-.2778E-05, .1294E-04,-.1838E-03, .8563E-04, & &-.4757E-04,-.1903E-05, .1142E-05,-.2664E-05,-.6090E-06, .1321E-04, & &-.1161E-03, .1526E-03,-.4757E-04,-.2664E-05,-.3805E-06,-.3806E-05, & &-.2093E-05, .2253E-04,-.4795E-04, .9248E-04,-.4757E-04,-.1903E-05, & & .0000E+00,-.3045E-05,-.7992E-06, .1393E-04,-.9134E-05, .2246E-04, & &-.4834E-04,-.2664E-05, .3804E-06,-.5328E-05,-.1510E-05, .1465E-04, & &-.1028E-04,-.4757E-04,-.4948E-04,-.1142E-05, .7614E-06,-.4910E-05, & &-.5709E-06, .1477E-04,-.1256E-04,-.1066E-03,-.4910E-04,-.1523E-05, & &-.3805E-06,-.3121E-05,-.2512E-05, .1142E-04,-.7878E-04,-.2664E-05, & &-.8373E-05,-.7612E-06, .1104E-04,-.3311E-05,-.1979E-05, .5709E-05, & &-.2626E-04,-.4872E-04,-.3808E-06,-.2283E-05, .2284E-05,-.3349E-05, & &-.4034E-05, .7231E-05,-.4910E-04, .1599E-04, .1256E-04,-.7612E-05, & & .1180E-05,-.1815E-05,-.7193E-05, .3045E-05, .1576E-09, .6470E-05, & &-.1408E-04,-.1903E-05, .1522E-05,-.4746E-05,-.4948E-05, .3806E-06, & & .9020E-04, .5214E-04, .6090E-05,-.1104E-04, .1180E-05,-.2778E-05, & &-.6090E-05,-.2664E-05,-.6737E-04,-.1218E-04,-.3806E-05,-.5214E-05, & &-.1066E-05,-.1294E-05,-.3045E-05,-.2664E-05,-.4643E-04, .1713E-04, & &-.1218E-04,-.6204E-05,-.2360E-05,-.1979E-05,-.1903E-05,-.3806E-05, & &-.3045E-04,-.1256E-04,-.9134E-05,-.6508E-05,-.1027E-05,-.7993E-06, & &-.1142E-05,-.7992E-05,-.3616E-04,-.1028E-04,-.1066E-04,-.6051E-05, & & .1066E-05,-.1751E-05,-.2284E-05,-.2284E-05,-.3920E-04,-.9895E-05, & &-.1321e-04,-.3844E-05,-.2055E-05,-.2512E-05,-.3806E-05,-.3425E-05/ end module band_new MODULE module_ra_FLG contains subroutine RAD_FLG & & (peven, podd, t8w,degrees & & , pi3d & & , o3 & & , G, Cp & & , albedo & & , tskin & & , h2o,cld_iccld, cld_wlcld & & , cld_prwc, cld_pgwc & & , cld_snow & & , F_QV,F_QC,F_QR,F_QI,F_QS,F_QG & & , warm_rain & & , cloudstrf & & , emiss & & , air_den & & , dz3d & & , SOLCON & & , declin & & , xtime, xlong, xlat, JULDAY, gmt, radt, degrad & & , dtcolumn & & , ids,ide, jds,jde, kds,kde & & , ims,idim, jms,jdim, kms,kmax & & , its,ite, jts,jte, kts,kte & & , uswtop, ulwtop,NETSWBOT,DLWBOT,DSWBOT & & , deltat,dtshort, dtlongwv & & ) USE PARA_FILE USE control_para implicit none real weight, FAC, CNVERT integer i, j, k, icycle, i1,i2, j1,j2, k1x, k2x, ilo,ihi, jlo,jhi, ii INTEGER, INTENT(IN ) :: ids,ide, jds,jde, kds,kde INTEGER, INTENT(IN ) :: ims,idim, jms,jdim, kms,kmax INTEGER, INTENT(IN ) :: its,ite, jts,jte, kts,kte INTEGER, INTENT(IN ) :: JULDAY LOGICAL, INTENT(IN ) :: F_QV,F_QC,F_QR,F_QI,F_QS,F_QG LOGICAL, INTENT(IN ) :: warm_rain real, INTENT(IN ) :: dtcolumn real declin, solcon, G, FP, CP real GMT, radt, degrad, xtime real pi3d(ims:idim,kms:kmax,jms:jdim) real peven(ims:idim,kms:kmax,jms:jdim) real podd(ims:idim, kms:kmax,jms:jdim) real dpeven(ims:idim,kms:kmax, jms:jdim) real degrees(ims:idim,kms:kmax, jms:jdim) real t8w(ims:idim,kms:kmax, jms:jdim) real dz3d(ims:idim,kms:kmax, jms:jdim) real air_den(ims:idim,kms:kmax, jms:jdim) real emiss(ims:idim, jms:jdim) real dz3dd(ims:idim,kms:kmax, jms:jdim) real h2o(ims:idim,kms:kmax, jms:jdim) real o3(ims:idim,kms:kmax, jms:jdim) real po3(ims:idim,kms:kmax, jms:jdim) real po3top(ims:idim, jms:jdim) real cld_iccld(ims:idim,kms:kmax, jms:jdim) real cld_wlcld(ims:idim,kms:kmax, jms:jdim) real cld_prwc(ims:idim,kms:kmax, jms:jdim) real cld_pgwc(ims:idim,kms:kmax, jms:jdim) real cld_snow(ims:idim,kms:kmax, jms:jdim) real cloudstrf(ims:idim,kms:kmax, jms:jdim) real ccc_inho(ims:idim,kms:kmax,jms:jdim) real temp_inho_low(ims:idim,jms:jdim) real temp_inho_mid(ims:idim, jms:jdim) real temp_inho_high(ims:idim, jms:jdim) real,dimension(mxat,mxac) :: a_wlis,a_taus real,dimension(nvx,mxac) :: aprofs real :: sh_aer(mxac) real :: tau_aer, tot = 0.0 real, dimension(mxac) :: fraca = -9999., tauindividual = -9999. integer :: iac character :: reading = "Y" character*3 aerosol_type real amean(4),bmean(4),cmean(4) real amax(4),bmax(4),cmax(4) real amin(4),bmin(4),cmin(4) data amin /0.54763e01, 0, 0.43976e01, 0.47890e01/ data bmin /0.55175, 0, 0.11286, 0.34200/ data cmin /0.26934e-1, 0, 0, -0.58155e-2/ data amean /0.54199e01, 0.43257e01, 0.52375e01, 0.4851e01/ data bmean /0.35211, 0.26535, 0.13142, 0.33159/ data cmean /0.1268e-1, 0.21864e-1, 0., 0.26189e-1/ data amax /0.53544e01, 0.51222e01, 0.53341e01, 0.48755e01/ data bmax /0.30605, 0.38239, 0.10258, 0.35331/ data cmax /0.11531e-1, 0.27872e-1, 0, 0.36475e-1/ real pdeiwc_mean(4), pdeiwc_max(4), pdeiwc_min(4) data pdeiwc_min /14.2067, 29, 0, 0/ data pdeiwc_mean /19.6, 33.81, 0, 0/ data pdeiwc_max /27.76, 45.18, 0, 55.7/ real iwc_mean(4), iwc_max(4), iwc_min(4) data iwc_min /5.e-5, 0, 0, 0/ data iwc_mean /9.2125e-7, 0.0024, 0, 0/ data iwc_max /1.75e-6, 0.0011, 0, 0.0082/ integer ncoef, nsat real temp_i, ran1, x real diff, diff_min, diff_max real pde_max, pde_mean, pde_min, pde_ran real pde_min_temp, pde_max_temp real palpha, pbeta, pgama, peta, pde0, piwc0, pco0, paot real a1denom, a2num, a2denom logical clean real a_sat(2),b_sat(2) data a_sat /4.07, 4.03/ data b_sat /0.032, 0.046/ real palpha_all(4),pbeta_all(4), pgamma_all(4), peta_all(4) real pde0_all(4), piwc0_all(4), pco0_all(4) data palpha_all /1.322, 1.396, 1.842, 1.509/ data pbeta_all /0.544, 1.095, 1.823, 0.973/ data pgamma_all /0.407, 0.533, 0.520, 0.921/ data peta_all /0.085, 0.007, 0.005, 0.188/ data pde0_all /48.383, 55.536, 53.144, 35.03/ data piwc0_all /1.165, 1.7, 2.277, 2.204/ data pco0_all /7.322, 88.532, 157.24, 6.723/ real coszenth(ims:idim, jms:jdim), albedo(ims:idim, jms:jdim) real tskin(ims:idim,jms:jdim), tbound(ims:idim,jms:jdim) real tsurface(ims:idim,jms:jdim) real xlat(ims:idim,jms:jdim), xlong(ims:idim, jms:jdim) real dswtop(ims:idim,jms:jdim) , dswbot(ims:idim,jms:jdim) real uswtop(ims:idim,jms:jdim) real netswbot(ims:idim,jms:jdim) real swinc(ims:idim,jms:jdim) real ulwbot(ims:idim,jms:jdim), dlwbot(ims:idim,jms:jdim) real ulwtop(ims:idim,jms:jdim) real netlwstr(ims:idim,jms:jdim), netlwbot(ims:idim,jms:jdim) real dtshort(ims:idim,kms:kmax,jms:jdim) real dtlongwv(ims:idim,kms:kmax, jms:jdim) real deltat(ims:idim,kms:kmax,jms:jdim) integer :: iprof integer :: is_summer, ie_summer real :: center_lat integer :: NK real :: RZERO, tsij, xt24, tloctm, hrang, xxlat, u0ij, & & temp_iwc, temp_t, temp_de real as(mbs),as1(10), ee(mbir) real pij(kmax), tij(kmax), qij(kmax), o3ij(kmax) real piwc(kmax-1), pde(kmax-1) real plwc(kmax-1), pre(kmax-1) real prwc(kmax-1), pgwc(kmax-1) real PHYD(kmax) real cldamnt(kmax-1) real cc_inho(kmax-1) real fds(kmax), fus(kmax), dts(kmax-1) real fdir(kmax), fuir(kmax), dtir(kmax-1) real fd(kmax), fu(kmax), dt_rad(kmax-1) FAC = 0.01*G /Cp CNVERT = 1.171d-07*420.0d0/864.0d0 RZERO = 0. if (ngas.eq.0) then umco = 0.0 umo2 = 0.0 umno = 0.0 umso2 = 0.0 umno2 = 0.0 umch3cl = 0.0 umCFC11 = 0.0 umCFC12 = 0.0 end if if (NAERO.eq.0) then tau_aer = 0.0 endif if (NAERO.eq.1) then tau_aer = 0.2 endif HORIZONTAL_J: do j = jts,jte HORIZONTAL_I: do i = its,ite VERTICAL_PROFILE: do k=kts,kte piwc(k) = rzero pde(k) = rzero plwc(k) = rzero pre(k) = rzero prwc(k) = rzero pgwc(k) = rzero o3ij(k) = rzero cldamnt(k) = rzero if (ninho.eq.0) then cc_inho(k) = 1.0 else cc_inho(k) = 0.7 endif fds(k)=rzero fus(k)=rzero fdir(k)=rzero fuir(k)=rzero fd(k)=rzero fu(k)=rzero dts(k)=rzero dtir(k)=rzero dt_rad(k)=rzero enddo VERTICAL_PROFILE fds(kmax)=rzero fus(kmax)=rzero fdir(kmax)=rzero fuir(kmax)=rzero fd(kmax)=rzero fu(kmax)=rzero o3ij(kmax) = rzero ee(1:mbir) = emiss(i,j) tsij = tskin(i,j) if (tsij.gt.320.) tsij = 320. if (tsij.lt.180.) tsij = 180. qij(1) = h2o(i,kmax,j) qij(kmax) = h2o(i,1,j) if (qij(kmax).lt. 1.0e-20) qij(kmax) = 1.0e-20 if (qij(1).lt. 1.0e-20) qij(1) = 1.0e-20 xt24 = mod(xtime + radt * 0.5, 1440.) tloctm = GMT + xt24 / 60. + XLONG(i,j) / 15. hrang = 15. * (tloctm - 12.) * degrad xxlat = XLAT(i,j) * degrad u0ij = sin(xxlat) * sin(declin) + & cos(xxlat) * cos(declin) * cos(hrang) as(1:mbs) = albedo(i,j) PHYD(kts) = peven(I,kts,J) DO K = KTS,KTE PHYD(K+1) = PHYD(K) - G*air_den(I,K,J)*DZ3D(I,K,J) ENDDO FP = (peven(I,kts,J)-peven(I,kte,J))/(PHYD(KTS)-PHYD(KTE)) DO K = KTS,KTE PHYD(K+1) = PHYD(K) - G*air_den(I,K,J)*DZ3D(I,K,J)*FP ENDDO pij(1) = PHYD(kmax)/100. pij(kmax) = PHYD(1)/100. if (NOZONE.eq.0.) then po3(i,kms:kmax,j) = 0. else if (NOZONE.eq.1) then center_lat = xlat(i,j) is_summer = 80 ie_summer = 265 IF (abs(center_lat) .le. 30. ) THEN iprof = 5 ELSE IF (center_lat .gt. 0.) THEN IF (center_lat .gt. 60. ) THEN IF (JULDAY .gt. is_summer .and. JULDAY .lt. ie_summer ) THEN iprof = 3 ELSE iprof = 4 ENDIF ELSE IF (JULDAY .gt. is_summer .and. JULDAY .lt. ie_summer ) THEN iprof = 1 ELSE iprof = 2 ENDIF ENDIF ELSE IF (center_lat .lt. -60. ) THEN IF (JULDAY .lt. is_summer .or. JULDAY .gt. ie_summer ) THEN iprof = 3 ELSE iprof = 4 ENDIF ELSE IF (JULDAY .lt. is_summer .or. JULDAY .gt. ie_summer ) THEN iprof = 1 ELSE iprof = 2 ENDIF ENDIF ENDIF ENDIF call o3prof(iprof,kms,kmax,PHYD(kms:kmax)/100.,po3(i,kms:kmax,j)) else if (NOZONE.eq.2) then endif o3ij(1) = po3(i,kmax,j) o3ij(kmax) = po3(i,1,j) tij(1) = t8w(i,kmax,j) tij(kmax) = t8w(i,1,j) VERTICAL_PROFILE2: do k=2,kte NK=kmax-k+kms pij(k) = PHYD(NK)/100. tij(k) = t8w(i,NK,j) o3ij(k)= po3(i,NK,j) IF (F_QV) THEN qij(k) = h2o(i,NK,j) ENDIF if (qij(k).lt. 1.0e-20) qij(k) = 1.0e-20 IF (F_QC) THEN plwc(k) = cld_wlcld(i,NK-1,j)*air_den(i,NK-1,j) plwc(k) = plwc(k)*1.e3 ENDIF IF (F_QR) THEN prwc(k) = cld_prwc(i,NK-1,j)*air_den(i,NK-1,j) prwc(k) = prwc(k)*1.e3 ENDIF IF (F_QG) THEN pgwc(k) = cld_pgwc(i,NK-1,j)*air_den(i,NK-1,j) pgwc(k) = pgwc(k)*1.e3 ENDIF IF ( F_QI ) THEN piwc(k) = (cld_iccld(i,NK-1,j)+cld_snow(i,NK-1,j)) & *air_den(i,NK-1,j) piwc(k) = piwc(k)*1.e3 ELSE IF (.not.warm_rain) THEN IF (tij(k).lt.273.15) then piwc(k) = plwc(k) plwc(k) = 0. piwc(k) = piwc(k) + prwc(k) prwc(k) = 0. ENDIF ENDIF ENDIF if (plwc(k).gt.0) then pre(k) = 10. if (k.eq.kmax-1) pre(k) = 10. endif if (NPDE.eq.1.and.piwc(k).gt.0.) then if (degrees(i,NK,j).lt.253. & .and.degrees(i,NK,j).gt.213.) then TEMP_IWC = exp(-7.6 & +4.*exp(-0.2443e-3*(253.-degrees(i,NK,j))**2.445)) TEMP_T = degrees(i,NK,j) - 273. TEMP_DE = 326.3+12.42*TEMP_T+0.197*TEMP_T*TEMP_T & +0.0012*TEMP_T**3 pde(k) = (piwc(k)/TEMP_IWC)**(1./3.)*TEMP_DE if (pde(k).gt.150.) pde(k)=150. if (pde(k).lt.10.) pde(k)=10. else pde(k) = 85. endif else if (NPDE.eq.2.and.piwc(k).gt.0.) then if (abs(xlat(i,j)).lt.30.) ncoef = 1 if (abs(xlat(i,j)).ge.30.and.abs(xlat(i,j)).le.60.) then if (degrees(i,NK,j).lt.233) then ncoef = 2 else ncoef = 3 endif endif if (abs(xlat(i,j)).gt.60.) ncoef = 4 temp_i = log(piwc(k)) pde_mean = amean(ncoef)+bmean(ncoef)*temp_i & +cmean(ncoef)*temp_i**2. pde_max = amax(ncoef)+bmax(ncoef)*temp_i & +cmax(ncoef)*temp_i**2. pde_min = amin(ncoef)+bmin(ncoef)*temp_i & +cmin(ncoef)*temp_i**2. pde_mean = exp(pde_mean) pde_max = exp(pde_max) pde_min = exp(pde_min) if (piwc(k).le.iwc_mean(ncoef)) pde_mean = pdeiwc_mean(ncoef) if (piwc(k).le.iwc_max(ncoef)) pde_max = pdeiwc_max(ncoef) if (piwc(k).le.iwc_min(ncoef)) pde_min = pdeiwc_min(ncoef) if (pde_max.eq.1) pde_max = pdeiwc_max(ncoef) if (pde_min.eq.1) pde_min = pdeiwc_min(ncoef) call random_number(x) ran1 = x diff_max = pde_max - pde_mean diff_min = pde_mean - pde_min diff = diff_max if (diff_min.gt.diff_max) diff = diff_min pde_min_temp = pde_mean - diff pde_max_temp = pde_mean + diff pde_ran = (pde_max_temp-pde_min_temp)*ran1 + pde_min_temp if (pderandom) then pde(k) = pde_ran else pde(k) = pde_mean endif if (pde(k).gt.150.) pde(k)=150. if (pde(k).lt.10.) pde(k)=10. else if (NPDE.eq.3.and.piwc(k).gt.0.) then if (clean) then ncoef = 1 else ncoef = 2 endif temp_i = log(piwc(k)) pde_mean = a_sat(ncoef)+b_sat(ncoef)*temp_i pde_mean = exp(pde_mean) pde(k) = pde_mean if (pde(k).gt.150.) pde(k)=150. if (pde(k).lt.10.) pde(k)=10. else if (NPDE.eq.4.and.piwc(k).gt.0.) then if (j.ge.13.and.j.le.27.and.i.ge.19.and.i.le.32) then NSAT = 2 palpha = palpha_all(nsat) pbeta =pbeta_all(nsat) pgama = pgamma_all(nsat) peta = peta_all(nsat) pde0 = pde0_all(nsat) piwc0 = piwc0_all(nsat) pco0 = pco0_all(nsat) paot = 0.5 a1denom = (piwc(k)*1000./piwc0)**(-palpha) + 1. a2num = (peta*paot-1.1108)**pgama a2denom = (peta*paot-1.1108)**pbeta + 1. pde(k) = (pde0/a1denom)*(a2num/a2denom) pde(k) = 2. * pde(k) if (pde(k).gt.150.) pde(k)=150. if (pde(k).le.15.) pde(k)=15. else pde(k) = 85. end if else if (piwc(k).gt.0.) then pde(k) = 85. endif endif if (nfract.eq.1) then if (plwc(k).gt.0. .or. piwc(k).gt.0.) then cldamnt(k) = cloudstrf(i,NK,j) endif endif if (nfract.eq.0) then if (plwc(k).gt.0. .or. piwc(k).gt.0.) then cldamnt(k) = 1. endif endif end do VERTICAL_PROFILE2 if (NAERO.ge.1) then if (nfraca.eq.0) then do iac = 1, mxac if (fraca(iac).gt.0.0) itps(iac) =1 end do else if (nfraca.eq.1) then fraca(2) = 0.9 fraca(11) = 0.1 do iac = 1, mxac if (fraca(iac).gt.0.0) itps(iac) = 1 end do else if (nfraca.eq.2) then else if (nfraca.eq.3) then end if do iac = 1, mxac if (itps(iac).eq.1) then Select case (ivd) case default CALL wrf_error_fatal3("",8789,& 'ivd: No VERTICAL Aerosol Profile') case(0) case(1) sh_aer(iac) = 3. call aer_scale_hgt(kmax-1,pij,sh_aer(iac),aprofs(1:kmax-1,iac)) end Select a_wlis(1,iac)= 0.53 a_taus(1,iac)= tau_aer * fraca(iac) end if end do end if nsubcld = (kmax-2)/ngroup nclouds = nsubcld * ngroup call rad_all ( kmax-1, kmax, & & as, u0ij, solcon, tsij, ee & & , pij, tij, qij, o3ij & & , piwc, pde, plwc, pre, prwc, pgwc & & , cldamnt & & , cc_inho & & , a_wlis, a_taus, aprofs & & , fds, fus, dts, fdir, fuir, dtir & & , fd, fu, dt_rad & & ) netswbot(i,j) = fds(kmax) - fus(kmax) dswbot(i,j) = fds(kmax) dlwbot(i,j) = fdir(kmax) ulwbot(i,j) = fuir(kmax) netlwbot(i,j) = fuir(kmax) - fdir(kmax) swinc(i,j) = fds(1) uswtop = fus(1) dswtop(i,j) = fds(1) - fus(1) ulwtop(i,j) = fuir(1) if (abs(ulwtop(i,j)).gt.1000.) then CALL wrf_error_fatal3("",8980,& 'Flux out of range. Stop program') endif do k = 1,kte NK=kte-k+kms dtshort(i,k,j) = dts(NK) * FAC/pi3d(i,k,j) dtlongwv(i,k,j) = dtir(NK) * FAC/pi3d(i,k,j) deltat(i,k,j) = deltat(i,k,j) + dt_rad(Nk) * FAC/pi3d(i,k,j) if (abs(dtir(Nk)).gt.100.) then CALL wrf_error_fatal3("",9006,& 'Heating rate out of range. Stop program') endif enddo 200 continue 300 end do HORIZONTAL_I end do HORIZONTAL_J return end subroutine RAD_FLG subroutine intrpl(x1,y1,x2,y2,x,y) implicit none real x1, x2, y1, y2, x, y, slope if (x2.eq.x1) then y = y1 else slope=(y2-y1)/(x2-x1) y=y1+slope*(x-x1) endif return end subroutine intrpl subroutine aer_scale_hgt(nv,pp,h,aprof) implicit none integer nv real pp(nv+1) real aprof(nv) real pbar, z, tot, h integer i do i=1,nv pbar= ( pp(i)+pp(i+1) ) *0.5 z= 8.0* log( pp(nv+1) /pbar ) aprof(i)= exp(-z/h) enddo tot= sum(aprof(1:nv)) aprof = 100*(aprof/tot) return end subroutine aer_scale_hgt subroutine rad_all ( nv, nv1 & & , asij, u0, ss, pts, eeij & & , pij, tij, qij, o3ij & & , piwcij, pdeij, plwcij, preij & & , prwcij, pgwcij & & , cldamntij & & , cc_inhoij & & , a_wlisij, a_tausij, aprofsij & & , fdsij, fusij, dtsij & & , fdirij, fuirij, dtirij & & , fdij, fuij, dtij & & ) USE PARA_FILE USE control_para, fourssl=>d4s,twossl=>d2s,foursir=>d4ir,twosir=>d2ir implicit none integer :: nv, nv1 real pij(nv1), tij(nv1), qij(nv1), o3ij(nv1) real piwcij(nv), pdeij(nv) real cldamntij(nv) real cc_inhoij(nv) real plwcij(nv), preij(nv) real prwcij(nv), pgwcij(nv) real fdsij(nv1), fusij(nv1), dtsij(nv) real fdirij(nv1), fuirij(nv1), dtirij(nv) real fdij(nv1), fuij(nv1), dtij(nv) real, dimension(mxat,mxac) :: a_wlisij,a_tausij real, dimension(nvx,mxac) :: aprofsij real, dimension(nv1) :: pp, pt, ph, po real, dimension(nv1) :: fds, fus, fdir, fuir, fd, fu real, dimension(nv) :: dts, dtir, dt real, dimension(nv) :: piwc, plwc, pgwc, prwc, & & pde, pre, cldamnt real :: asij(mbs), eeij(mbir) real :: as(mbs), ss, ee(mbir) real :: pts, u0 real, dimension(nv1) :: fu1, fd1 real :: bf(nv1), bs real, dimension(nv) :: wc1, wc2, wc3, wc4, wc, tt real :: area_group(3,2), cld_group(3) integer :: n_group(3), nb(3), n_loop(3) real, dimension(nv,2) :: wc1_2, wc2_2, wc3_2, wc4_2, wc_2, & & tt_2, tc_2 integer :: nc1, nc2, nc3, k, kl, kk real, dimension(nv1) :: fds_tot, fus_tot, fdir_tot, fuir_tot, & & fd_tot, fu_tot real :: ctau(nv) real :: hk, fuq1, fuq2, xx, dz(nv), trp(nv) integer :: ib, mbn, kg1_num, kg2_num, iac, ig1, ig2, i real, dimension(nvx,mbx,mxac) :: & & a_tau1,a_ssa1,a_asy1, & & a_tau2,a_ssa2,a_asy2 real, dimension(mxat,mxac) :: a_wlis,a_taus real, dimension(nvx,mxac) :: aprofs real :: ti(nv), wi(nv), wwi(nv,4) real :: tw(nv), ww(nv), www(nv,4) real :: trn(nv), wrn(nv), wwrn(nv,4) real :: tgr(nv), wgr(nv), wwgr(nv,4) real :: tae(nvx,mxac), wae(nvx,mxac), wwae(nvx,4,mxac) real :: tgm(nv) real :: tr(nv), wr(nv), wwr (nv,4), tg(nv) real :: area real :: cc_inho(nv) integer, dimension(mb) :: kg, kg1, kg2 data kg / 10, 8, 12, 7, 12, 5, & & 2, 3, 4, 4, 3, 5, 2, 10, 12, 7, 7, 8 / data kg1 / 10, 12, 12, 20, 20, 20, & & 2, 3, 4, 4, 3, 5, 2, 10, 12, 7, 7, 8 / data kg2 /1, 12, 1, 20, 20, 1, & & 1, 1, 1, 1, 1, 1, 1, 1 , 1, 1, 1, 1 / real :: f0 = 1.0 / 3.14159 if (naero.ge.1) then a_wlis = a_wlisij a_taus = a_tausij aprofs = aprofsij end if do i = 1, nv1 pp(i) = pij(i) pt(i) = tij(i) ph(i) = qij(i) po(i) = o3ij(i) fds(i) = 0.0 fus(i) = 0.0 fdir(i) = 0.0 fuir(i) = 0.0 10 end do as = asij ee = eeij do i = 1, nv piwc(i) = piwcij(i) pde(i) = pdeij(i) plwc(i) = plwcij(i) pre(i) = preij(i) prwc(i) = prwcij(i) pgwc(i) = pgwcij(i) cldamnt(i) = cldamntij(i) cc_inho(i) = cc_inhoij(i) end do call thicks(nv,nv1,pp,pt,ph,po,dz) call rayle2(nv,nv1,pp,pt,ph,po,trp) if (naero.ge.1) then call aerosol_init(nv,nv1,pp,pt,ph,po,dz, & a_tau1,a_ssa1,a_asy1, & a_tau2,a_ssa2,a_asy2, & a_wlis,a_taus,aprofs & ) end if if ( u0 .le. 1.0e-4 ) then mbn = mbs + 1 else mbn = 1 endif do ib = mbn, mb if (nice.eq.1) then call ice_new_ZF ( nv,nv1,ib,pre,pde,plwc,piwc,dz,ti,wi,wwi ) else if (nice.eq.2) then call ice_new_comb ( nv,nv1,ib,pre,pde,plwc,piwc,dz,ti,wi,wwi ) else if (nice.eq.3) then call ice_new_trop ( nv,nv1,ib,pre,pde,plwc,piwc,dz,ti,wi,wwi ) else if (nice.eq.4) then call ice_new_midlat ( nv,nv1,ib,pre,pde,plwc,piwc,dz,ti,wi,wwi ) else if (nice.eq.5) then call ice_98 ( nv,nv1,ib,pre,pde,plwc,piwc,dz,ti,wi,wwi ) else if (nice.eq.6) then call ice_singleice ( nv,nv1,ib,pre,pde,plwc,piwc,dz,ti,wi,wwi ) else if (nice.eq.7) then call ice_new_Single ( nv,nv1,ib,pre,pde,plwc,piwc,dz,ti,wi,wwi ) else call ice ( nv,nv1,ib,pre,pde,plwc,piwc,dz,ti,wi,wwi ) endif call water_fl ( nv,nv1,ib,pre,plwc,pde,piwc,dz,tw,ww,www ) call rain ( nv,nv1,ib,prwc,dz,trn,wrn,wwrn ) call graup ( nv,nv1,ib,pgwc,dz, tgr,wgr,wwgr ) if (naero.ge.1) then call aerosolxy (nv,nv1,ib,'x',a_tau1,a_ssa1,a_asy1, & & a_tau2,a_ssa2,a_asy2,tae,wae,wwae & & ) ctau(ib)=0. do i=1,nv do iac=1,mxac if (itps(iac).eq.1) ctau(ib)=ctau(ib)+tae(i,iac) end do end do endif call rayle ( nv,nv1,ib,trp,tr,wr,wwr,u0 ) call gascon ( nv,nv1,ib,tgm,pp,pt,ph,po ) if ( ib .gt. mbs ) then call planck ( nv,nv1,ib,pts,pp,pt,ph,po,bf,bs ) endif if (ngas.eq.0) then kg1_num=kg(ib) kg2_num=1 end if if (ngas.eq.1) then kg1_num=kg1(ib) kg2_num=kg2(ib) end if do ig1 = 1, kg1_num do ig2 = 1, kg2_num if (ngas.eq.0) then call gases ( nv,nv1,ib, ig1, hk,pp,pt,ph,po,tg ) end if if (ngas.eq.1) then call gases_new ( nv,nv1,ib, ig1,ig2, hk,pp,pt,ph,po,tg ) end if call comscp_aero_cld ( nv,nv1 & & ,cldamnt,area_group,cld_group & & ,n_group,nb & & ,ti,wi,wwi,tw,ww,www & & ,trn,wrn,wwrn,tgr,wgr,wwgr & & ,tr,wr,wwr,tgm,tg,tae,wae,wwae & & ,wc1,wc2,wc3,wc4,wc,tt,tc_2 & & ,wc1_2,wc2_2,wc3_2,wc4_2,wc_2,tt_2 & & ,cc_inho & & ) do nc1 = nb(1), n_group(1) do nc2 = nb(2), n_group(2) do nc3 = nb(3), n_group(3) n_loop(1) = nc1 n_loop(2) = nc2 n_loop(3) = nc3 area = area_group(1,nc1)*area_group(2,nc2) & & *area_group(3,nc3) tt_2(1,1) = tc_2(1,1) tt_2(1,2) = tc_2(1,2) do i = 2, nv-nsubcld*ngroup tt_2(i,1) = tt_2(i-1,1) + tc_2(i,1) tt_2(i,2) = tt_2(i-1,2) + tc_2(i,2) 220 end do do k = 1,nv-nsubcld*ngroup wc1(k) = wc1_2(k,1) wc2(k) = wc2_2(k,1) wc3(k) = wc3_2(k,1) wc4(k) = wc4_2(k,1) wc(k) = wc_2(k,1) tt(k) = tt_2(k,1) enddo do k=1,ngroup kl = (k-1)*nsubcld + nv1-nsubcld*ngroup do kk = kl, kl+nsubcld-1 wc1(kk) = wc1_2(kk, n_loop(k)) wc2(kk) = wc2_2(kk, n_loop(k)) wc3(kk) = wc3_2(kk, n_loop(k)) wc4(kk) = wc4_2(kk, n_loop(k)) wc(kk) = wc_2(kk, n_loop(k)) tt(kk) = tt(kk-1) + tc_2(kk,n_loop(k)) enddo enddo if ( ib .le. mbs ) then if ( fourssl ) then call qfts ( nv,nv1,ib, as(ib), u0, f0, & & wc1,wc2,wc3,wc4,wc,tt,fu1,fd1 ) endif if ( twossl ) then quadra = .false. hemisp = .false. edding = .true. call qftsts ( nv,nv1,ib, as(ib), u0, f0, & & wc1,wc2,wc3,wc4,wc,tt,fu1,fd1 ) endif do i = 1, nv1 fds(i) = fds(i) + fd1(i) * hk * area fus(i) = fus(i) + fu1(i) * hk * area 40 end do else if ( foursir ) then call qfti ( nv,nv1,ib, ee(ib-mbs), bf, bs, & & wc1,wc2,wc3,wc4,wc,tt,fu1,fd1 ) endif if ( twosir ) then quadra = .false. edding = .false. hemisp = .true. call qftisf ( nv,nv1,ib, ee(ib-mbs), bf, bs, & & wc1, wc2, wc3, wc4, wc, tt, & & fu1, fd1 ) endif do i = 1, nv1 fdir(i) = fdir(i) + fd1(i) * hk * area fuir(i) = fuir(i) + fu1(i) * hk * area 50 end do endif end do end do end do 31 end do 30 end do 20 end do fuq1 = ss / 1340.0 fuq2 = bs * 0.03 * 3.14159 * ee(12) do i = 1, nv1 fds(i) = fds(i) * fuq1 fus(i) = fus(i) * fuq1 fuir(i) = fuir(i) + fuq2 fd(i) = fds(i) + fdir(i) fu(i) = fus(i) + fuir(i) fdsij(i) = fds(i) fusij(i) = fus(i) fdirij(i) = fdir(i) fuirij(i) = fuir(i) fdij(i) = fd(i) fuij(i) = fu(i) 60 end do do i = 1, nv xx = fds(i) -fus(i) - fds(i+1) + fus(i+1) dts(i) = xx / ( pp(i+1) - pp(i) ) xx = fdir(i) -fuir(i) - fdir(i+1) + fuir(i+1) dtir(i) = xx / ( pp(i+1) - pp(i) ) dt(i) = dts(i) + dtir(i) dtsij(i) = dts(i) dtirij(i) = dtir(i) dtij(i) = dt(i) 70 end do return end subroutine rad_all subroutine thicks(nv,nv1,pp,pt,ph,po,dz) implicit none integer :: nv, nv1 real, dimension(nv1) :: pp, pt, ph, po real, dimension(nv) :: dz(nv) integer i do i = 1, nv dz(i) = 0.0146337 * ( pt(i) + pt(i+1) ) & & * alog( pp(i+1) / pp(i) ) end do return end subroutine thicks subroutine gases_new ( nv,nv1,ib, ig1, ig2, hk,pp,pt,ph,po,tg ) USE PARA_FILE USE band_new, only: hk1=>hk_1_new,fk1o3=>fko3_1_new, & & hk2=>hk_2_new,c2hh2=>coehh22_2_new, & & c2o2=>coeo2_2_new,c2h2o=>coeh2o_2_new, & & hk3=>hk_3_new,c3hh2=>coehh32_3_new, & & c3h2o=>coeh2o_3_new, & & hk4=>hk_4_new,c4hh2=>coehh42_4_new, & & c4co2=>coeco2_4_new,c4co=>coeco_4_new, & & c4h2o=>coeh2o_4_new, & & hk5=>hk_5_new,c5hh2=>coehh52_5_new, & & c5co2=>coeco2_5_new,c5n2o=>coen2o_5_new, & & c5ch4=>coech4_5_new,c5h2o=>coeh2o_5_new, & & hk6=>hk_6_new,c6hh2=>coehh62_6_new, & & c6so2=>coeso2_6_new,c6h2o=>coeh2o_6_new, & & hk7=>hk_7_new,c7h2o=>coeh2o_7_new, & & hk8=>hk_8_new,c8h2o=>coeh2o_8_new, & & c8no=>coeno_8_new, & & hk9=>hk_9_new,c9h2o=>coeh2o_9_new, & & c9no2=>coeno2_9_new, & & hk10=>hk_10_new,c10h2o=>coeh2o_10_new, & & c10ch4=>coech4_10_new,c10n2o=>coen2o_10_new, & & c10so2=>coeso2_10_new, & & hk11=>hk_11_new,c11h2o=>coeh2o_11_new, & & c11ch4=>coech4_11_new,c11n2o=>coen2o_11_new, & & c11CFC11=>c11CFC11_11_new, & & c11CFC12=>c11CFC12_11_new, & & hk12=>hk_12_new,c12o3=>coeo3_12_new, & & c12h2o=>coeh2o_12_new, & & c12CFC11=>c12CFC11_12_new, & & c12CFC12=>c12CFC12_12_new, & & hk13=>hk_13_new,c13h2o=>coeh2o_13_new, & & c13CFC11=>c13CFC11_13_new, & & c13CFC12=>c13CFC12_13_new, & & hk14=>hk_14_new,c14hca=>coehca_14_new, & & c14hcb=>coehcb_14_new, & & c14ch3cl=>coech3cl_14_new, & & hk15=>hk_15_new,c15hca=>coehca_15_new, & & c15hcb=>coehcb_15_new, & & hk16=>hk_16_new,c16h2o=>coeh2o_16_new, & & hk17=>hk_17_new,c17h2o=>coeh2o_17_new, & & hk18=>hk_18_new,c18h2o=>coeh2o_18_new USE control_para, only: umco2,umch4,umn2o,umo2, & & umno,umso2,umno2,umch3cl, & & umco,umCFC11,umCFC12, & & no2s,nco2s,nso2s,nch4s,nnol, & & nno2l,nso2l,nch3cll,ncos, & & nn2os,nh2ocs,nh2os,no3s, & & nh2ol,no3l,nco2l,nn2ol, & & nch4l,nCFC11l,nCFC12l implicit none integer :: nv, nv1 real, dimension(nv1) :: pp, pt, ph, po real :: tg(nv) integer :: ib, ig, ig1, ig2 real :: hk real, dimension(nv1) :: fkg, fkga, fkgb, fkgc, fkgd, fkge, & & pq, fkg1 real, dimension(nv) :: tg1, tg2, tg3, tg4, tg5 real :: fk integer :: i select case(ib) case default stop case(1) 1 ig=ig1 if(no3s.eq.1) then fk = fk1o3(ig) call qopo3s ( nv,nv1,fk,tg,pp,pt,ph,po ) else do i=1,nv tg(i)=0.0 end do end if hk = 619.618 * hk1(ig) case(2) 2 do i=1,nv1 fkg(i)=0.0 end do call qks ( nv,nv1,c2hh2(1,1,ig1), fkgb,pp,pt,ph,po ) do i = 1, nv1 fkg(i) = fkgb(i)*ph(i) end do call qophc ( nv,nv1,fkg, tg1,pp,pt,ph,po ) call qks(nv,nv1,c2o2(1,1,ig2),fkgb,pp,pt,ph,po ) call qopo2 (nv,nv1,fkgb, tg2,pp,pt,ph,po ) do i=1,nv tg(i)=tg1(i)+tg2(i)*umo2/2.0948E+05 end do hk = 484.295 * hk2(ig1)*hk2(ig2) case(3) 3 ig=ig1 do i=1,nv1 fkg(i)=0.0 end do call qks ( nv,nv1,c3hh2(1,1,ig), fkgb,pp,pt,ph,po ) do i = 1, nv1 fkg(i) = fkgb(i)*ph(i) end do call qophc ( nv,nv1,fkg, tg,pp,pt,ph,po) hk = 149.845 * hk3(ig) case(4) 4 do i=1,nv1 fkg(i)=0.0 end do call qks ( nv,nv1,c4hh2(1,1,ig1), fkgb,pp,pt,ph,po ) do i = 1, nv1 fkg(i) = fkgb(i)*ph(i) end do call qophc ( nv,nv1,fkg, tg1,pp,pt,ph,po) call qks ( nv,nv1,c4co2(1,1,ig2), fkgb,pp,pt,ph,po ) call qopco2(nv,nv1,fkgb,tg2,pp,pt,ph,po) call qks(nv,nv1,c4co,fkgc,pp,pt,ph,po) call qopco(nv,nv1,fkgc,tg3,pp,pt,ph,po) do i=1,nv tg(i)=tg1(i)+tg2(i)/330.*umco2+tg3(i)/0.16*umco end do hk = 48.7302 * hk4(ig1)*hk4(ig2) case(5) 5 do i=1,nv1 fkg(i)=0.0 end do call qks ( nv,nv1,c5hh2(1,1,ig1), fkgb,pp,pt,ph,po ) do i = 1, nv1 fkg(i) = fkgb(i)*ph(i) end do call qophc ( nv,nv1,fkg, tg1,pp,pt,ph,po) call qks ( nv,nv1,c5co2(1,1,ig2), fkgb,pp,pt,ph,po ) call qopco2(nv,nv1,fkgb,tg2,pp,pt,ph,po) call qks(nv,nv1,c5n2o,fkgc,pp,pt,ph,po) call qopn2o(nv,nv1,fkgc,tg3,pp,pt,ph,po) call qks(nv,nv1,c5ch4,fkgd,pp,pt,ph,po) call qopch4(nv,nv1,fkgd,tg4,pp,pt,ph,po) do i=1,nv tg(i)=tg1(i)+tg2(i)/330.*umco2+tg3(i)/0.28*umn2o+ & & tg4(i)/1.6*umch4 end do hk = 31.6576 * hk5(ig1)*hk5(ig2) case(6) 6 ig=ig1 do i=1,nv1 fkg(i)=0.0 end do call qks ( nv,nv1,c6hh2(1,1,ig), fkgb,pp,pt,ph,po ) do i = 1, nv1 fkg(i) = fkgb(i)*ph(i) end do call qophc ( nv,nv1,fkg, tg1,pp,pt,ph,po) call qks(nv,nv1,c6so2,fkgb,pp,pt,ph,po) call qopso2(nv,nv1,fkgb,tg2,pp,pt,ph,po) do i=1,nv tg(i)=tg1(i)+tg2(i)/0.001*umso2 end do hk = 5.79927 * hk6(ig) case(7) 7 ig=ig1 if(nh2ol.eq.1) then call qki ( nv,nv1,c7h2o(1,1,ig), fkg,pp,pt,ph,po ) call qoph2o ( nv,nv1,fkg, tg,pp,pt,ph,po ) else do i=1,nv tg(i)=0.0 end do end if hk = hk7(ig) case(8) 8 ig=ig1 if(nh2ol.eq.1) then call qki ( nv,nv1,c8h2o(1,1,ig), fkg,pp,pt,ph,po ) call qoph2o ( nv,nv1,fkg, tg1,pp,pt,ph,po ) else do i=1,nv tg1(i)=0.0 end do end if call qki(nv,nv1,c8no,fkgb,pp,pt,ph,po) call qopno(nv,nv1,fkgb,tg2,pp,pt,ph,po) do i=1,nv tg(i)=tg1(i)+tg2(i)*umno/0.0005 end do hk = hk8(ig) case(9) 9 ig=ig1 if(nh2ol.eq.1) then call qki ( nv,nv1,c9h2o(1,1,ig), fkg,pp,pt,ph,po ) call qoph2o ( nv,nv1,fkg, tg1,pp,pt,ph,po ) else do i=1,nv tg1(i)=0.0 end do end if call qki(nv,nv1,c9no2,fkgb,pp,pt,ph,po) call qopno(nv,nv1,fkgb,tg2,pp,pt,ph,po) do i=1,nv tg(i)=tg1(i)+tg2(i)*umno2/0.001 end do hk = hk9(ig) case(10) 10 ig=ig1 if(nh2ol.eq.1) then call qki ( nv,nv1,c10h2o(1,1,ig), fkg,pp,pt,ph,po ) call qoph2o ( nv,nv1,fkg, tg1,pp,pt,ph,po ) else do i=1,nv tg1(i)=0.0 end do end if if(nch4l.eq.1) then call qki ( nv,nv1,c10ch4, fkg,pp,pt,ph,po ) call qopch4 ( nv,nv1,fkg, tg2,pp,pt,ph,po ) else do i=1,nv tg2(i)=0.0 end do end if if(nn2ol.eq.1) then call qki ( nv,nv1,c10n2o, fkg,pp,pt,ph,po ) call qopn2o ( nv,nv1,fkg, tg3,pp,pt,ph,po ) else do i=1,nv tg3(i)=0.0 end do end if call qki(nv,nv1,c10so2,fkgb,pp,pt,ph,po) call qopso2(nv,nv1,fkgb,tg4,pp,pt,ph,po) do i=1,nv tg(i) = tg1(i) + tg2(i)/1.6*umch4 + tg3(i)/0.28*umn2o & & +tg4(i)/0.001*umso2 end do hk = hk10(ig) case(11) 11 ig=ig1 if(nh2ol.eq.1) then call qki ( nv,nv1,c11h2o(1,1,ig), fkg,pp,pt,ph,po ) call qoph2o ( nv,nv1,fkg, tg1,pp,pt,ph,po ) else do i=1,nv tg1(i)=0.0 end do end if if(nch4l.eq.1) then call qki ( nv,nv1,c11ch4, fkg,pp,pt,ph,po ) call qopch4 ( nv,nv1,fkg, tg2,pp,pt,ph,po ) else do i=1,nv tg2(i)=0.0 end do end if if(nn2ol.eq.1) then call qki ( nv,nv1,c11n2o, fkg,pp,pt,ph,po ) call qopn2o ( nv,nv1,fkg, tg3,pp,pt,ph,po ) else do i=1,nv tg3(i)=0.0 end do end if if(nCFC11l.eq.1) then call qopCFC11(nv,nv1,c11CFC11,tg4,pp,pt,ph,po) else do i=1,nv tg4(i)=0.0 enddo end if if(nCFC12l.eq.1) then call qopCFC12(nv,nv1,c11CFC12,tg5,pp,pt,ph,po) else do i=1,nv tg5(i)=0.0 enddo end if do i = 1, nv tg(i) = tg1(i) + tg2(i)/1.6*umch4 + tg3(i)/0.28*umn2o + & & tg4(i)/0.22e-3*umCFC11 + tg5(i)/0.375e-3*umCFC12 end do hk = hk11(ig) case(12) 12 ig=ig1 if(no3l.eq.1) then call qkio3 ( nv,nv1,c12o3(1,1,ig), fkg,pp,pt,ph,po ) call qopo3i ( nv,nv1,fkg, tg1,pp,pt,ph,po ) else do i=1,nv tg1(i)=0.0 end do end if if(nh2ol.eq.1) then call qki ( nv,nv1,c12h2o, fkg,pp,pt,ph,po ) call qoph2o ( nv,nv1,fkg, tg2,pp,pt,ph,po ) else do i=1,nv tg2(i)=0.0 end do end if if(nCFC11l.eq.1) then call qopCFC11(nv,nv1,c12CFC11,tg3,pp,pt,ph,po) else do i=1,nv tg3(i)=0.0 enddo end if if(nCFC12l.eq.1) then call qopCFC12(nv,nv1,c12CFC12,tg4,pp,pt,ph,po) else do i=1,nv tg4(i)=0.0 enddo end if do i = 1, nv tg(i) = tg1(i) + tg2(i) + tg3(i)/0.22e-3*umCFC11 & & +tg4(i)/0.375e-3*umCFC12 end do hk = hk12(ig) case(13) 13 ig=ig1 if(nh2ol.eq.1) then call qki ( nv,nv1,c13h2o(1,1,ig), fkg,pp,pt,ph,po ) call qoph2o ( nv,nv1,fkg, tg1,pp,pt,ph,po ) else do i=1,nv tg1(i)=0.0 end do end if if(nCFC11l.eq.1) then call qopCFC11(nv,nv1,c13CFC11,tg2,pp,pt,ph,po) else do i=1,nv tg2(i)=0.0 enddo end if if(nCFC12l.eq.1) then call qopCFC12(nv,nv1,c13CFC12,tg3,pp,pt,ph,po) else do i=1,nv tg3(i)=0.0 enddo end if do i = 1, nv tg(i) = tg1(i) + tg2(i)/0.22e-3*umCFC11 + & & tg3(i)/0.375e-3*umCFC12 enddo hk = hk13(ig) case(14) 14 ig=ig1 do i = 1, nv1 if ( pp(i) .ge. 63.1 ) then pq(i) = ph(i) else pq(i) = 0.0 endif 333 end do if(nco2l.eq.1) then call qki ( nv,nv1,c14hca(1,1,ig), fkga,pp,pt,ph,po ) else do i=1,nv1 fkga(i)=0.0 end do end if if(nh2ol.eq.1) then call qki ( nv,nv1,c14hcb(1,1,ig), fkgb,pp,pt,ph,po ) else do i=1,nv1 fkgb(i)=0.0 end do end if do i = 1, nv1 fkg(i) = fkga(i)/330.0*umco2 + pq(i) * fkgb(i) 343 end do call qophc ( nv,nv1,fkg, tg1,pp,pt,ph,po) call qki(nv,nv1,c14ch3cl,fkgb,pp,pt,ph,po) call qopch3cl(nv,nv1,fkgb,tg2,pp,pt,ph,po) do i=1,nv tg(i)=tg1(i)+tg2(i)*umch3cl/0.5e-3 end do hk = hk14(ig) case(15) 15 ig=ig1 do i = 1, nv1 if ( pp(i) .ge. 63.1 ) then pq(i) = ph(i) else pq(i) = 0.0 endif 353 end do if(nco2l.eq.1) then call qki ( nv,nv1,c15hca(1,1,ig), fkga,pp,pt,ph,po ) else do i=1,nv1 fkga(i)=0.0 end do end if if(nh2ol.eq.1) then call qki ( nv,nv1,c15hcb(1,1,ig), fkgb,pp,pt,ph,po ) else do i=1,nv1 fkgb(i)=0.0 end do end if do i = 1, nv1 fkg(i) = fkga(i)/330.0*umco2 + pq(i) * fkgb(i) 363 end do call qophc ( nv,nv1,fkg, tg,pp,pt,ph,po) hk = hk15(ig) case(16) 16 ig=ig1 if(nh2ol.eq.1) then call qki ( nv,nv1,c16h2o(1,1,ig), fkg,pp,pt,ph,po ) call qoph2o ( nv,nv1,fkg, tg,pp,pt,ph,po ) else do i=1,nv tg(i)=0.0 end do end if hk = hk16(ig) case(17) 17 ig=ig1 if(nh2ol.eq.1) then call qki ( nv,nv1,c17h2o(1,1,ig), fkg,pp,pt,ph,po ) call qoph2o ( nv,nv1,fkg, tg,pp,pt,ph,po ) else do i=1,nv tg(i)=0.0 end do end if hk = hk17(ig) case(18) 18 ig=ig1 if(nh2ol.eq.1) then call qki ( nv,nv1,c18h2o(1,1,ig), fkg,pp,pt,ph,po ) call qoph2o ( nv,nv1,fkg, tg,pp,pt,ph,po ) else do i=1,nv tg(i)=0.0 end do end if hk = hk18(ig) 20 end select return end subroutine gases_new subroutine ice ( nv,nv1,ib,pre,pde,plwc,piwc,dz,ti,wi,wwi ) use para_file use ice0 implicit none integer :: nv, nv1 real, dimension(nv) :: pre, plwc, pde, piwc, dz real :: ti(nv), wi(nv), wwi(nv,4) real :: fw1, fw2, fw3, wf1, wf2, wf3, wf4, gg, x1, x2, x3, x4, fd integer :: i ,ib, ibr do i = 1, nv if ( piwc(i) .lt. 1.0e-5 ) then ti(i) = 0.0 wi(i) = 0.0 wwi(i,1) = 0.0 wwi(i,2) = 0.0 wwi(i,3) = 0.0 wwi(i,4) = 0.0 else fw1 = pde(i) fw2 = fw1 * pde(i) fw3 = fw2 * pde(i) ti(i) = dz(i) * 1000.0 * piwc(i) * ( ap(1,ib) + & & ap(2,ib) / fw1 + ap(3,ib) / fw2 ) wi(i) = 1.0 - ( bp(1,ib) + bp(2,ib) * fw1 + & & bp(3,ib) * fw2 + bp(4,ib) * fw3 ) if ( ib .le. mbs ) then fd = dps(1,ib) + dps(2,ib) * fw1 + & & dps(3,ib) * fw2 + dps(4,ib) * fw3 wf1 = cps(1,1,ib) + cps(2,1,ib) * fw1 + & & cps(3,1,ib) * fw2 + cps(4,1,ib) * fw3 wwi(i,1) = ( 1.0 - fd ) * wf1 + 3.0 * fd wf2 = cps(1,2,ib) + cps(2,2,ib) * fw1 + & & cps(3,2,ib) * fw2 + cps(4,2,ib) * fw3 wwi(i,2) = ( 1.0 - fd ) * wf2 + 5.0 * fd wf3 = cps(1,3,ib) + cps(2,3,ib) * fw1 + & & cps(3,3,ib) * fw2 + cps(4,3,ib) * fw3 wwi(i,3) = ( 1.0 - fd ) * wf3 + 7.0 * fd wf4 = cps(1,4,ib) + cps(2,4,ib) * fw1 + & & cps(3,4,ib) * fw2 + cps(4,4,ib) * fw3 wwi(i,4) = ( 1.0 - fd ) * wf4 + 9.0 * fd else ibr = ib - mbs gg = cpir(1,ibr) + cpir(2,ibr) * fw1 + & & cpir(3,ibr) * fw2 + cpir(4,ibr) * fw3 x1 = gg x2 = x1 * gg x3 = x2 * gg x4 = x3 * gg wwi(i,1) = 3.0 * x1 wwi(i,2) = 5.0 * x2 wwi(i,3) = 7.0 * x3 wwi(i,4) = 9.0 * x4 endif endif 10 end do return end subroutine subroutine ice_new_ZF ( nv,nv1,ib,pre,pde,plwc,piwc,dz,ti,wi,wwi ) USE PARA_FILE USE ice1 implicit none integer :: nv, nv1 real, dimension(nv) :: pre, plwc, pde, piwc, dz real :: ti(nv), wi(nv), wwi(nv,4) real :: fw1, fw2, fw3, wf1, wf2, wf3, wf4, gg, x1, x2, x3, x4 integer :: i, ib, ibr do i = 1, nv if ( piwc(i) .lt. 1.0e-5 ) then ti(i) = 0.0 wi(i) = 0.0 wwi(i,1) = 0.0 wwi(i,2) = 0.0 wwi(i,3) = 0.0 wwi(i,4) = 0.0 else fw1 = pde(i) fw2 = fw1 * pde(i) fw3 = fw2 * pde(i) ti(i) = dz(i) * 1000.0 * piwc(i) * ( ap(1,ib) + & & ap(2,ib) / fw1 + ap(3,ib) / fw2 ) if(ti(i).lt.0.0) write(*,*)'optical depth of ice=',ti(i) wi(i) = 1.0 - ( bp(1,ib) + bp(2,ib) * fw1 + & & bp(3,ib) * fw2 + bp(4,ib) * fw3 ) if ( ib .le. mbs ) then wf1 = cps(1,1,ib) + cps(2,1,ib) * fw1 + & & cps(3,1,ib) * fw2 + cps(4,1,ib) * fw3 wwi(i,1) = wf1 wf2 = cps(1,2,ib) + cps(2,2,ib) * fw1 + & & cps(3,2,ib) * fw2 + cps(4,2,ib) * fw3 wwi(i,2) = wf2 wf3 = cps(1,3,ib) + cps(2,3,ib) * fw1 + & & cps(3,3,ib) * fw2 + cps(4,3,ib) * fw3 wwi(i,3) = wf3 wf4 = cps(1,4,ib) + cps(2,4,ib) * fw1 + & & cps(3,4,ib) * fw2 + cps(4,4,ib) * fw3 wwi(i,4) = wf4 else ibr = ib - mbs gg = cpir(1,ibr) + cpir(2,ibr) * fw1 + & & cpir(3,ibr) * fw2 + cpir(4,ibr) * fw3 x1 = gg x2 = x1 * gg x3 = x2 * gg x4 = x3 * gg wwi(i,1) = 3.0 * x1 wwi(i,2) = 5.0 * x2 wwi(i,3) = 7.0 * x3 wwi(i,4) = 9.0 * x4 endif endif 10 end do return end subroutine subroutine ice_new_comb ( nv,nv1,ib,pre,pde,plwc,piwc,dz,ti,wi,wwi ) USE PARA_FILE USE ice2 implicit none integer :: nv, nv1 real, dimension(nv) :: pre, plwc, pde, piwc, dz real :: ti(nv), wi(nv), wwi(nv,4) real :: fw1, fw2, fw3, wf1, wf2, wf3, wf4, gg, x1, x2, x3, x4 integer :: i, ib, ibr do i = 1, nv if ( piwc(i) .lt. 1.0e-5 ) then ti(i) = 0.0 wi(i) = 0.0 wwi(i,1) = 0.0 wwi(i,2) = 0.0 wwi(i,3) = 0.0 wwi(i,4) = 0.0 else fw1 = pde(i) fw2 = fw1 * pde(i) fw3 = fw2 * pde(i) ti(i) = dz(i) * 1000.0 * piwc(i) * ( ap(1,ib) + & & ap(2,ib) / fw1 + ap(3,ib) / fw2 ) wi(i) = 1.0 - ( bp(1,ib) + bp(2,ib) * fw1 + & & bp(3,ib) * fw2 + bp(4,ib) * fw3 ) if ( ib .le. mbs ) then wf1 = cps(1,1,ib) + cps(2,1,ib) * fw1 + & & cps(3,1,ib) * fw2 + cps(4,1,ib) * fw3 wwi(i,1) = wf1 wf2 = cps(1,2,ib) + cps(2,2,ib) * fw1 + & & cps(3,2,ib) * fw2 + cps(4,2,ib) * fw3 wwi(i,2) = wf2 wf3 = cps(1,3,ib) + cps(2,3,ib) * fw1 + & & cps(3,3,ib) * fw2 + cps(4,3,ib) * fw3 wwi(i,3) = wf3 wf4 = cps(1,4,ib) + cps(2,4,ib) * fw1 + & & cps(3,4,ib) * fw2 + cps(4,4,ib) * fw3 wwi(i,4) = wf4 else ibr = ib - mbs gg = cpir(1,ibr) + cpir(2,ibr) * fw1 + & & cpir(3,ibr) * fw2 + cpir(4,ibr) * fw3 x1 = gg x2 = x1 * gg x3 = x2 * gg x4 = x3 * gg wwi(i,1) = 3.0 * x1 wwi(i,2) = 5.0 * x2 wwi(i,3) = 7.0 * x3 wwi(i,4) = 9.0 * x4 endif endif 10 end do return end subroutine subroutine ice_new_trop ( nv,nv1,ib,pre,pde,plwc,piwc,dz,ti,wi,wwi ) USE PARA_FILE USE ice3 implicit none integer :: nv, nv1 real, dimension(nv) :: pre, plwc, pde, piwc, dz real :: ti(nv), wi(nv), wwi(nv,4) real :: fw1, fw2, fw3, wf1, wf2, wf3, wf4, gg, x1, x2, x3, x4 integer :: i ,ib, ibr do i = 1, nv if ( piwc(i) .lt. 1.0e-5 ) then ti(i) = 0.0 wi(i) = 0.0 wwi(i,1) = 0.0 wwi(i,2) = 0.0 wwi(i,3) = 0.0 wwi(i,4) = 0.0 else fw1 = pde(i) fw2 = fw1 * pde(i) fw3 = fw2 * pde(i) ti(i) = dz(i) * 1000.0 * piwc(i) * ( ap(1,ib) + & & ap(2,ib) / fw1 + ap(3,ib) / fw2 ) if(ti(i).lt.0.0) write(*,*)'optical depth of ice=',ti(i) wi(i) = 1.0 - ( bp(1,ib) + bp(2,ib) * fw1 + & & bp(3,ib) * fw2 + bp(4,ib) * fw3 ) if ( ib .le. mbs ) then wf1 = cps(1,1,ib) + cps(2,1,ib) * fw1 + & & cps(3,1,ib) * fw2 + cps(4,1,ib) * fw3 wwi(i,1) = wf1 wf2 = cps(1,2,ib) + cps(2,2,ib) * fw1 + & & cps(3,2,ib) * fw2 + cps(4,2,ib) * fw3 wwi(i,2) = wf2 wf3 = cps(1,3,ib) + cps(2,3,ib) * fw1 + & & cps(3,3,ib) * fw2 + cps(4,3,ib) * fw3 wwi(i,3) = wf3 wf4 = cps(1,4,ib) + cps(2,4,ib) * fw1 + & & cps(3,4,ib) * fw2 + cps(4,4,ib) * fw3 wwi(i,4) = wf4 else ibr = ib - mbs gg = cpir(1,ibr) + cpir(2,ibr) * fw1 + & & cpir(3,ibr) * fw2 + cpir(4,ibr) * fw3 x1 = gg x2 = x1 * gg x3 = x2 * gg x4 = x3 * gg wwi(i,1) = 3.0 * x1 wwi(i,2) = 5.0 * x2 wwi(i,3) = 7.0 * x3 wwi(i,4) = 9.0 * x4 endif endif 10 end do return end subroutine subroutine ice_new_midlat ( nv,nv1,ib,pre,pde,plwc,piwc,dz,ti,wi,wwi ) USE PARA_FILE USE ice4 implicit none integer :: nv, nv1 real, dimension(nv) :: pre, plwc, pde, piwc, dz real :: ti(nv), wi(nv), wwi(nv,4) real :: fw1, fw2, fw3, wf1, wf2, wf3, wf4, gg, x1, x2, x3, x4 integer :: i, ib, ibr do i = 1, nv if ( piwc(i) .lt. 1.0e-5 ) then ti(i) = 0.0 wi(i) = 0.0 wwi(i,1) = 0.0 wwi(i,2) = 0.0 wwi(i,3) = 0.0 wwi(i,4) = 0.0 else fw1 = pde(i) fw2 = fw1 * pde(i) fw3 = fw2 * pde(i) ti(i) = dz(i) * 1000.0 * piwc(i) * ( ap(1,ib) + & & ap(2,ib) / fw1 + ap(3,ib) / fw2 ) if(ti(i).lt.0.0) write(*,*)'optical depth of ice=',ti(i) wi(i) = 1.0 - ( bp(1,ib) + bp(2,ib) * fw1 + & & bp(3,ib) * fw2 + bp(4,ib) * fw3 ) if ( ib .le. mbs ) then wf1 = cps(1,1,ib) + cps(2,1,ib) * fw1 + & & cps(3,1,ib) * fw2 + cps(4,1,ib) * fw3 wwi(i,1) = wf1 wf2 = cps(1,2,ib) + cps(2,2,ib) * fw1 + & & cps(3,2,ib) * fw2 + cps(4,2,ib) * fw3 wwi(i,2) = wf2 wf3 = cps(1,3,ib) + cps(2,3,ib) * fw1 + & & cps(3,3,ib) * fw2 + cps(4,3,ib) * fw3 wwi(i,3) = wf3 wf4 = cps(1,4,ib) + cps(2,4,ib) * fw1 + & & cps(3,4,ib) * fw2 + cps(4,4,ib) * fw3 wwi(i,4) = wf4 else ibr = ib - mbs gg = cpir(1,ibr) + cpir(2,ibr) * fw1 + & & cpir(3,ibr) * fw2 + cpir(4,ibr) * fw3 x1 = gg x2 = x1 * gg x3 = x2 * gg x4 = x3 * gg wwi(i,1) = 3.0 * x1 wwi(i,2) = 5.0 * x2 wwi(i,3) = 7.0 * x3 wwi(i,4) = 9.0 * x4 endif endif 10 end do return end subroutine subroutine ice_98 ( nv,nv1,ib,pre,pde,plwc,piwc,dz,ti,wi,wwi ) USE PARA_FILE USE ice5 implicit none integer :: nv, nv1 real, dimension(nv) :: pre, plwc, pde, piwc, dz real ti(nv), wi(nv), wwi(nv,4) real fw1, fw2, fw3, tau, omega, asy, fd, f, fw, & & gg, x1, x2, x3, x4, betae, betaa integer i, ib, ibr do i = 1, nv if ( piwc(i) .lt. 1.0e-5 ) then ti(i) = 0.0 wi(i) = 0.0 wwi(i,1) = 0.0 wwi(i,2) = 0.0 wwi(i,3) = 0.0 wwi(i,4) = 0.0 else fw1 = pde(i) fw2 = fw1 * pde(i) fw3 = fw2 * pde(i) if ( ib .le. mbs ) then tau = dz(i) * 1000.0 * piwc(i) * ( ap(1,ib) + & & ap(2,ib) / fw1 ) omega = 1.0 - ( bps(1,ib) + bps(2,ib) * fw1 + & & bps(3,ib) * fw2 + bps(4,ib) * fw3 ) asy = cp(1,ib) + cp(2,ib) * fw1 + & & cp(3,ib) * fw2 + cp(4,ib) * fw3 fd = dps(1,ib) + dps(2,ib) * fw1 + & & dps(3,ib) * fw2 + dps(4,ib) * fw3 f = 0.5 / omega + fd fw = f * omega ti(i) = ( 1.0 - fw ) * tau wi(i) = ( 1.0 - f ) * omega / ( 1.0 - fw ) gg = ( asy - f ) / ( 1.0 - f ) x1 = gg x2 = x1 * gg x3 = x2 * gg x4 = x3 * gg wwi(i,1) = 3.0 * x1 wwi(i,2) = 5.0 * x2 wwi(i,3) = 7.0 * x3 wwi(i,4) = 9.0 * x4 else ibr = ib - mbs betae = piwc(i) * ( ap(1,ib) + & & ap(2,ib) / fw1 + ap(3,ib) / fw2 ) betaa = piwc(i) / fw1 * ( bpir(1,ibr) + bpir(2,ibr) * & & fw1 + bpir(3,ibr) * fw2 + bpir(4,ibr) * fw3 ) asy = cp(1,ib) + cp(2,ib) * fw1 + & & cp(3,ib) * fw2 + cp(4,ib) * fw3 ti(i) = dz(i) * 1000.0 * betae wi(i) = 1.0 - betaa / betae gg = asy x1 = gg x2 = x1 * gg x3 = x2 * gg x4 = x3 * gg wwi(i,1) = 3.0 * x1 wwi(i,2) = 5.0 * x2 wwi(i,3) = 7.0 * x3 wwi(i,4) = 9.0 * x4 endif endif 10 end do return end subroutine subroutine ice_singleice ( nv,nv1,ib,pre,pde,plwc,piwc,dz,ti,wi,wwi ) USE PARA_FILE USE ice6 implicit none integer :: nv, nv1 real, dimension(nv) :: pre, plwc, pde, piwc, dz real :: ti(nv), wi(nv), wwi(nv,4) real :: fw1, fw2, fw3, wf1, wf2, wf3, wf4, gg, x1, x2, x3, x4, fd integer :: i, ib, ibr do i = 1, nv if ( piwc(i) .lt. 1.0e-5 ) then ti(i) = 0.0 wi(i) = 0.0 wwi(i,1) = 0.0 wwi(i,2) = 0.0 wwi(i,3) = 0.0 wwi(i,4) = 0.0 else fw1 = pde(i) fw2 = fw1 * pde(i) fw3 = fw2 * pde(i) ti(i) = dz(i) * 1000.0 * piwc(i) * ( ap(1,ib) + & & ap(2,ib) / fw1 + ap(3,ib) / fw2 ) wi(i) = 1.0 - ( bp(1,ib) + bp(2,ib) * fw1 + & & bp(3,ib) * fw2 + bp(4,ib) * fw3 ) if ( ib .le. mbs ) then fd = dps(1,ib) + dps(2,ib) * fw1 + & & dps(3,ib) * fw2 + dps(4,ib) * fw3 wf1 = cps(1,1,ib) + cps(2,1,ib) * fw1 + & & cps(3,1,ib) * fw2 + cps(4,1,ib) * fw3 wwi(i,1) = ( 1.0 - fd ) * wf1 + 3.0 * fd wf2 = cps(1,2,ib) + cps(2,2,ib) * fw1 + & & cps(3,2,ib) * fw2 + cps(4,2,ib) * fw3 wwi(i,2) = ( 1.0 - fd ) * wf2 + 5.0 * fd wf3 = cps(1,3,ib) + cps(2,3,ib) * fw1 + & & cps(3,3,ib) * fw2 + cps(4,3,ib) * fw3 wwi(i,3) = ( 1.0 - fd ) * wf3 + 7.0 * fd wf4 = cps(1,4,ib) + cps(2,4,ib) * fw1 + & & cps(3,4,ib) * fw2 + cps(4,4,ib) * fw3 wwi(i,4) = ( 1.0 - fd ) * wf4 + 9.0 * fd else ibr = ib - mbs gg = cpir(1,ibr) + cpir(2,ibr) * fw1 + & & cpir(3,ibr) * fw2 + cpir(4,ibr) * fw3 x1 = gg x2 = x1 * gg x3 = x2 * gg x4 = x3 * gg wwi(i,1) = 3.0 * x1 wwi(i,2) = 5.0 * x2 wwi(i,3) = 7.0 * x3 wwi(i,4) = 9.0 * x4 endif endif 10 end do return end subroutine subroutine ice_new_Single ( nv,nv1,ib,pre,pde,plwc,piwc,dz,ti,wi,wwi ) USE PARA_FILE USE ice7 implicit none integer :: nv, nv1 real, dimension(nv) :: pre, plwc, pde, piwc, dz real :: ti(nv), wi(nv), wwi(nv,4) real :: fw1, fw2, fw3, wf1, wf2, wf3, wf4, gg, x1, x2, x3, x4 integer :: i, ib, ibr do i = 1, nv if ( piwc(i) .lt. 1.0e-5 ) then ti(i) = 0.0 wi(i) = 0.0 wwi(i,1) = 0.0 wwi(i,2) = 0.0 wwi(i,3) = 0.0 wwi(i,4) = 0.0 else fw1 = pde(i) fw2 = fw1 * pde(i) fw3 = fw2 * pde(i) ti(i) = dz(i) * 1000.0 * piwc(i) * ( ap(1,ib) + & & ap(2,ib) / fw1 + ap(3,ib) / fw2 ) if(ti(i).lt.0.0) write(*,*)'optical depth of ice=',ti(i) wi(i) = 1.0 - ( bp(1,ib) + bp(2,ib) * fw1 + & & bp(3,ib) * fw2 + bp(4,ib) * fw3 ) if ( ib .le. mbs ) then wf1 = cps(1,1,ib) + cps(2,1,ib) * fw1 + & & cps(3,1,ib) * fw2 + cps(4,1,ib) * fw3 wwi(i,1) = wf1 wf2 = cps(1,2,ib) + cps(2,2,ib) * fw1 + & & cps(3,2,ib) * fw2 + cps(4,2,ib) * fw3 wwi(i,2) = wf2 wf3 = cps(1,3,ib) + cps(2,3,ib) * fw1 + & & cps(3,3,ib) * fw2 + cps(4,3,ib) * fw3 wwi(i,3) = wf3 wf4 = cps(1,4,ib) + cps(2,4,ib) * fw1 + & & cps(3,4,ib) * fw2 + cps(4,4,ib) * fw3 wwi(i,4) = wf4 else ibr = ib - mbs gg = cpir(1,ibr) + cpir(2,ibr) * fw1 + & & cpir(3,ibr) * fw2 + cpir(4,ibr) * fw3 x1 = gg x2 = x1 * gg x3 = x2 * gg x4 = x3 * gg wwi(i,1) = 3.0 * x1 wwi(i,2) = 5.0 * x2 wwi(i,3) = 7.0 * x3 wwi(i,4) = 9.0 * x4 endif endif 10 end do return end subroutine subroutine water_fl ( nv,nv1,ib,pre,plwc,pde,piwc,dz,tw,ww,www ) USE PARA_FILE USE water1 implicit none integer :: nv, nv1 real, dimension(nv) :: pre, plwc, pde, piwc, dz real :: tw(nv), ww(nv), www(nv,4) integer :: ib real :: x1, x2, x3, x4, gg integer :: i, j do i = 1, nv if ( plwc(i) .lt. 1.0e-5 ) then tw(i) = 0.0 ww(i) = 0.0 www(i,1) = 0.0 www(i,2) = 0.0 www(i,3) = 0.0 www(i,4) = 0.0 else if ( pre(i) .lt. re(1) ) then tw(i) = dz(i) * plwc(i) * bz(1,ib) / fl(1) ww(i) = wz(1,ib) x1 = gz(1,ib) x2 = x1 * gz(1,ib) x3 = x2 * gz(1,ib) x4 = x3 * gz(1,ib) www(i,1) = 3.0 * x1 www(i,2) = 5.0 * x2 www(i,3) = 7.0 * x3 www(i,4) = 9.0 * x4 elseif ( pre(i) .gt. re(nc) ) then tw(i) = dz(i) * plwc(i) * bz(nc,ib) / fl(nc) ww(i) = wz(nc,ib) x1 = gz(nc,ib) x2 = x1 * gz(nc,ib) x3 = x2 * gz(nc,ib) x4 = x3 * gz(nc,ib) www(i,1) = 3.0 * x1 www(i,2) = 5.0 * x2 www(i,3) = 7.0 * x3 www(i,4) = 9.0 * x4 else j = 1 do while (pre(i) .lt. re(j)) j = j + 1 end do tw(i) = dz(i) * plwc(i) * ( bz(j,ib) / fl(j) + & & ( bz(j+1,ib) / fl(j+1) - bz(j,ib) / fl(j) ) / & & ( 1.0 / re(j+1) - 1.0 / re(j) ) * ( 1.0 / pre(i) & & - 1.0 / re(j) ) ) ww(i) = wz(j,ib) + ( wz(j+1,ib) - wz(j,ib) ) / & & ( re(j+1) - re(j) ) * ( pre(i) - re(j) ) gg = gz(j,ib) + ( gz(j+1,ib) - gz(j,ib) ) / & & ( re(j+1) - re(j) ) * ( pre(i) - re(j) ) x1 = gg x2 = x1 * gg x3 = x2 * gg x4 = x3 * gg www(i,1) = 3.0 * x1 www(i,2) = 5.0 * x2 www(i,3) = 7.0 * x3 www(i,4) = 9.0 * x4 endif endif 10 end do return end subroutine subroutine rayle2(nv,nv1,pp,pt,ph,po,trp) USE PARA_FILE implicit none integer :: nv, nv1 real, dimension(nv1) :: pp, pt, ph, po real :: trp(nv) integer :: i do i = 1, nv trp(i) = 14.6337 * ( pp(i) + pp(i+1) ) & & * alog( pp(i+1) / pp(i) ) end do return end subroutine subroutine rayle ( nv,nv1,ib,trp,tr,wr,wwr,u0 ) USE PARA_FILE use rayle1 implicit none integer :: nv, nv1 real :: u0 real :: trp(nv) real :: tr(nv), wr(nv), wwr(nv,4) integer :: ib, i real :: x if ( ib .le. mbs ) then if ( ib .eq. 1 ) then x = -3.902860e-6 * u0 * u0+6.120070e-6 * u0+4.177440e-6 else x = ri(ib) endif do i = 1, nv tr(i) = trp(i) * x wr(i) = 1.0 wwr(i,1) = 0.0 wwr(i,2) = 0.5 wwr(i,3) = 0.0 wwr(i,4) = 0.0 100 end do else do i = 1, nv tr(i) = 0.0 wr(i) = 0.0 wwr(i,1) = 0.0 wwr(i,2) = 0.0 wwr(i,3) = 0.0 wwr(i,4) = 0.0 200 end do endif return end subroutine subroutine rain ( nv,nv1,ib,prwc,dz,trn,wrn,wwrn ) USE PARA_FILE USE rain1 implicit none integer :: nv, nv1 real :: prwc(nv), dz(nv) real :: trn(nv), wrn(nv), wwrn(nv,4) integer :: ib, i real :: x1, x2, x3, x4, y1, y2, y3, y4 x1 = grn(ib) x2 = x1 * grn(ib) x3 = x2 * grn(ib) x4 = x3 * grn(ib) y1 = 3.0 * x1 y2 = 5.0 * x2 y3 = 7.0 * x3 y4 = 9.0 * x4 do i = 1, nv if ( prwc(i) .lt. 1.0e-5 ) then trn(i) = 0.0 wrn(i) = 0.0 wwrn(i,1) = 0.0 wwrn(i,2) = 0.0 wwrn(i,3) = 0.0 wwrn(i,4) = 0.0 else trn(i) = dz(i) * prwc(i) * brn(ib) / rwc wrn(i) = wrnf(ib) wwrn(i,1) = y1 wwrn(i,2) = y2 wwrn(i,3) = y3 wwrn(i,4) = y4 endif 10 end do return end subroutine subroutine graup ( nv,nv1,ib,pgwc,dz, tgr,wgr,wwgr ) USE PARA_FILE USE graup1 implicit none integer :: nv, nv1 real :: pgwc(nv), dz(nv) real :: tgr(nv), wgr(nv), wwgr(nv,4) integer :: ib, i real :: x1, x2, x3, x4, y1, y2, y3, y4 x1 = gg(ib) x2 = x1 * gg(ib) x3 = x2 * gg(ib) x4 = x3 * gg(ib) y1 = 3.0 * x1 y2 = 5.0 * x2 y3 = 7.0 * x3 y4 = 9.0 * x4 do i = 1, nv if ( pgwc(i) .lt. 1.0e-5 ) then tgr(i) = 0.0 wgr(i) = 0.0 wwgr(i,1) = 0.0 wwgr(i,2) = 0.0 wwgr(i,3) = 0.0 wwgr(i,4) = 0.0 else tgr(i) = dz(i) * pgwc(i) * bg(ib) / gwc wgr(i) = wgf(ib) wwgr(i,1) = y1 wwgr(i,2) = y2 wwgr(i,3) = y3 wwgr(i,4) = y4 endif 10 end do return end subroutine subroutine gascon ( nv,nv1,ib,tgm,pp,pt,ph,po ) USE PARA_FILE implicit none integer :: nv, nv1 real, dimension(nv1) :: pp, pt, ph, po real :: tgm(nv) real :: vv(18) = (/ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, & 0.0, 0.0, 1175.0, 1040.0, 890.0, 735.0, & & 605.0, 470.0, 340.0, 0.0 /) integer :: ib, i if ( ib .gt. 10 .and. ib .lt. 18 ) then call qopcon ( nv, nv1, vv(ib),tgm,pp,pt,ph,po ) else do i = 1, nv tgm(i) = 0.0 10 end do endif return end subroutine subroutine gases ( nv,nv1,ib,ig,hk,pp,pt,ph,po,tg ) USE PARA_FILE USE band, only: hk1=>hk_1,fk1o3=>fko3_1, & & hk2=>hk_2,c2h2o=>coeh2o_2, & & hk3=>hk_3,c3h2o=>coeh2o_3, & & hk4=>hk_4,c4h2o=>coeh2o_4, & & hk5=>hk_5,c5h2o=>coeh2o_5, & & hk6=>hk_6,c6h2o=>coeh2o_6, & & hk7=>hk_7,c7h2o=>coeh2o_7, & & hk8=>hk_8,c8h2o=>coeh2o_8, & & hk9=>hk_9,c9h2o=>coeh2o_9, & & hk10=>hk_10,c10h2o=>coeh2o_10, & & c10ch4=>coech4_10,c10n2o=>coen2o_10,& & hk11=>hk_11,c11h2o=>coeh2o_11, & & c11ch4=>coech4_11,c11n2o=>coen2o_11,& & hk12=>hk_12,c12o3=>coeo3_12, & & c12h2o=>coeh2o_12, & & hk13=>hk_13,c13h2o=>coeh2o_13, & & hk14=>hk_14,c14hca=>coehca_14, & & c14hcb=>coehcb_14, & & hk15=>hk_15,c15hca=>coehca_15, & & c15hcb=>coehcb_15, & & hk16=>hk_16,c16h2o=>coeh2o_16, & & hk17=>hk_17,c17h2o=>coeh2o_17, & & hk18=>hk_18,c18h2o=>coeh2o_18 use control_para, only: umco2,umch4,umn2o,umo2, & & umno,umso2,umno2,umch3cl, & & umco,umCFC11,umCFC12, & & nco2s,nso2s,nch4s,nnol,no2s, & & nno2l,nso2l,nch3cll,ncos, & & nn2os,nh2ocs,nh2os,no3s, & & nh2ol,no3l,nco2l,nn2ol, & & nch4l,nCFC11l,nCFC12l implicit none integer :: nv, nv1 real, dimension(nv1) :: pp, pt, ph, po real :: tg(nv) integer :: ib, ig real :: hk real, dimension(nv1) :: fkg, fkga, fkgb, pq real, dimension(nv) :: tg1, tg2, tg3 real :: fk integer :: i select case(ib) case default stop case(1) 1 fk = fk1o3(ig) call qopo3s ( nv,nv1,fk,tg,pp,pt,ph,po ) hk = 619.618 * hk1(ig) case(2) 2 call qks ( nv,nv1,c2h2o(1,1,ig),fkg,pp,pt,ph,po ) call qoph2o ( nv,nv1,fkg, tg,pp,pt,ph,po ) hk = 484.295 * hk2(ig) case(3) 3 call qks ( nv,nv1,c3h2o(1,1,ig),fkg,pp,pt,ph,po ) call qoph2o ( nv,nv1,fkg, tg,pp,pt,ph,po ) hk = 149.845 * hk3(ig) case(4) 4 call qks ( nv,nv1,c4h2o(1,1,ig),fkg,pp,pt,ph,po ) call qoph2o ( nv,nv1,fkg, tg,pp,pt,ph,po ) hk = 48.7302 * hk4(ig) case(5) 5 call qks ( nv,nv1,c5h2o(1,1,ig),fkg,pp,pt,ph,po ) call qoph2o ( nv,nv1,fkg, tg,pp,pt,ph,po ) hk = 31.6576 * hk5(ig) case(6) 6 call qks ( nv,nv1,c6h2o(1,1,ig),fkg,pp,pt,ph,po ) call qoph2o ( nv,nv1,fkg, tg,pp,pt,ph,po ) hk = 5.79927 * hk6(ig) case(7) 7 call qki ( nv,nv1,c7h2o(1,1,ig), fkg,pp,pt,ph,po ) call qoph2o ( nv,nv1,fkg, tg,pp,pt,ph,po ) hk = hk7(ig) case(8) 8 call qki ( nv,nv1,c8h2o(1,1,ig), fkg,pp,pt,ph,po ) call qoph2o ( nv,nv1,fkg, tg,pp,pt,ph,po ) hk = hk8(ig) case(9) 9 call qki ( nv,nv1,c9h2o(1,1,ig), fkg,pp,pt,ph,po ) call qoph2o ( nv,nv1,fkg, tg,pp,pt,ph,po ) hk = hk9(ig) case(10) 10 call qki ( nv,nv1,c10h2o(1,1,ig), fkg,pp,pt,ph,po ) call qoph2o ( nv,nv1,fkg, tg1,pp,pt,ph,po ) call qki ( nv,nv1,c10ch4, fkg,pp,pt,ph,po ) call qopch4 ( nv,nv1,fkg, tg2,pp,pt,ph,po ) call qki ( nv,nv1,c10n2o, fkg,pp,pt,ph,po ) call qopn2o ( nv,nv1,fkg, tg3,pp,pt,ph,po ) do i = 1, nv tg(i) = tg1(i) + tg2(i)/1.6*umch4 + tg3(i)/0.28*umn2o 205 end do hk = hk10(ig) case(11) 11 call qki ( nv,nv1,c11h2o(1,1,ig), fkg,pp,pt,ph,po ) call qoph2o ( nv,nv1,fkg, tg1,pp,pt,ph,po ) call qki ( nv,nv1,c11ch4, fkg,pp,pt,ph,po ) call qopch4 ( nv,nv1,fkg, tg2,pp,pt,ph,po ) call qki ( nv,nv1,c11n2o, fkg,pp,pt,ph,po ) call qopn2o ( nv,nv1,fkg, tg3,pp,pt,ph,po ) do i = 1, nv tg(i) = tg1(i) + tg2(i)/1.6*umch4 + tg3(i)/0.28*umn2o 215 end do hk = hk11(ig) case(12) 12 call qkio3 ( nv,nv1,c12o3(1,1,ig), fkg,pp,pt,ph,po ) call qopo3i ( nv,nv1,fkg, tg1,pp,pt,ph,po ) call qki ( nv,nv1,c12h2o, fkg,pp,pt,ph,po ) call qoph2o ( nv,nv1,fkg, tg2,pp,pt,ph,po ) do i = 1, nv tg(i) = tg1(i) + tg2(i) 225 end do hk = hk12(ig) case(13) 13 call qki ( nv,nv1,c13h2o(1,1,ig), fkg,pp,pt,ph,po ) call qoph2o ( nv,nv1,fkg, tg,pp,pt,ph,po ) hk = hk13(ig) case(14) 14 do i = 1, nv1 if ( pp(i) .ge. 63.1 ) then pq(i) = ph(i) else pq(i) = 0.0 endif 333 end do call qki ( nv,nv1,c14hca(1,1,ig), fkga,pp,pt,ph,po ) call qki ( nv,nv1,c14hcb(1,1,ig), fkgb,pp,pt,ph,po ) do i = 1, nv1 fkg(i) = fkga(i)/330.0*umco2 + pq(i) * fkgb(i) 343 end do call qophc ( nv,nv1,fkg, tg,pp,pt,ph,po) hk = hk14(ig) case(15) 15 do i = 1, nv1 if ( pp(i) .ge. 63.1 ) then pq(i) = ph(i) else pq(i) = 0.0 endif 353 end do call qki ( nv,nv1,c15hca(1,1,ig), fkga,pp,pt,ph,po ) call qki ( nv,nv1,c15hcb(1,1,ig), fkgb,pp,pt,ph,po ) do i = 1, nv1 fkg(i) = fkga(i)/330.0*umco2 + pq(i) * fkgb(i) 363 end do call qophc ( nv,nv1,fkg, tg,pp,pt,ph,po) hk = hk15(ig) case(16) 16 call qki ( nv,nv1,c16h2o(1,1,ig), fkg,pp,pt,ph,po ) call qoph2o ( nv,nv1,fkg, tg,pp,pt,ph,po ) hk = hk16(ig) case(17) 17 call qki ( nv,nv1,c17h2o(1,1,ig), fkg,pp,pt,ph,po ) call qoph2o ( nv,nv1,fkg, tg,pp,pt,ph,po ) hk = hk17(ig) case(18) 18 call qki ( nv,nv1,c18h2o(1,1,ig), fkg,pp,pt,ph,po ) call qoph2o ( nv,nv1,fkg, tg,pp,pt,ph,po ) hk = hk18(ig) end select return end subroutine subroutine qks ( nv,nv1,coefks,fkg,pp,pt,ph,po ) USE PARA_FILE implicit none integer :: nv, nv1 real, dimension(nv1) :: pp, pt, ph, po, fkg real :: coefks(3,11) real :: stanp(11) = (/ 10.0, 15.8, 25.1, 39.8, 63.1, 100.0, & & 158.0, 251.0, 398.0, 631.0, 1000.0 /) integer :: i1, i real :: x1, x2, y1 i1 = 1 do i = 1, nv1 if ( pp(i) .lt. stanp(1) ) then x1 = exp ( coefks(1,1) + coefks(2,1) * ( pt(i) - 245.0 ) & & + coefks(3,1) * ( pt(i) - 245.0 ) ** 2 ) fkg(i) = x1 * pp(i) / stanp(1) elseif ( pp(i) .ge. stanp(11) ) then y1 = ( pt(i) - 245.0 ) * ( pt(i) - 245.0 ) x1 = exp ( coefks(1,10) + coefks(2,10) * ( pt(i) - 245.0 ) & & + coefks(3,10) * y1 ) x2 = exp ( coefks(1,11) + coefks(2,11) * ( pt(i) - 245.0 ) & & + coefks(3,11) * y1 ) fkg(i) = x1 + ( x2 - x1 ) / ( stanp(11) - stanp(10) ) & & * ( pp(i) - stanp(10) ) else do while ( pp(i) .ge. stanp(i1) ) i1 = i1 + 1 end do y1 = ( pt(i) - 245.0 ) * ( pt(i) - 245.0 ) x1 = exp ( coefks(1,i1-1) + coefks(2,i1-1) * (pt(i)-245.0) & & + coefks(3,i1-1) * y1 ) x2 = exp ( coefks(1,i1) + coefks(2,i1) * ( pt(i) - 245.0 ) & & + coefks(3,i1) * y1 ) fkg(i) = x1 + ( x2 - x1 ) / ( stanp(i1) - stanp(i1-1) ) & & * ( pp(i) - stanp(i1-1) ) endif end do return end subroutine subroutine qki ( nv,nv1,coefki, fkg,pp,pt,ph,po ) USE PARA_FILE implicit none integer :: nv, nv1 real, dimension(nv1) :: pp, pt, ph, po, fkg real :: coefki(3,19) integer :: i, i1 real :: x1, x2, y1 real :: stanp(19) = (/ 0.251, 0.398, 0.631, 1.000, 1.58, 2.51, & & 3.98, 6.31, 10.0, 15.8, 25.1, 39.8, 63.1, & & 100.0, 158.0, 251.0, 398.0, 631.0, 1000.0 /) i1 = 1 do i = 1, nv1 if (pt(i).gt.320.) then pt(i) = 345. endif if (pt(i).lt.180.) then pt(i) = 180. endif if ( pp(i) .lt. stanp(1) ) then x1 = exp ( coefki(1,1) + coefki(2,1) * ( pt(i) - 245.0 ) & & + coefki(3,1) * ( pt(i) - 245.0 ) ** 2 ) fkg(i) = x1 * pp(i) / stanp(1) elseif ( pp(i) .ge. stanp(19) ) then y1 = ( pt(i) - 245.0 ) * ( pt(i) - 245.0 ) x1 = exp ( coefki(1,18) + coefki(2,18) * ( pt(i) - 245.0 ) & & + coefki(3,18) * y1 ) x2 = exp ( coefki(1,19) + coefki(2,19) * ( pt(i) - 245.0 ) & & + coefki(3,19) * y1 ) fkg(i) = x1 + ( x2 - x1 ) / ( stanp(19) - stanp(18) ) & & * ( pp(i) - stanp(18) ) else do while ( pp(i) .ge. stanp(i1) ) i1 = i1 + 1 end do y1 = ( pt(i) - 245.0 ) * ( pt(i) - 245.0 ) x1 = exp ( coefki(1,i1-1) + coefki(2,i1-1) * (pt(i)-245.0) & & + coefki(3,i1-1) * y1 ) x2 = exp ( coefki(1,i1) + coefki(2,i1) * ( pt(i) - 245.0 ) & & + coefki(3,i1) * y1 ) fkg(i) = x1 + ( x2 - x1 ) / ( stanp(i1) - stanp(i1-1) ) & & * ( pp(i) - stanp(i1-1) ) endif end do return end subroutine subroutine qkio3 ( nv,nv1,coefki, fkg,pp,pt,ph,po ) USE PARA_FILE implicit none integer :: nv, nv1 real, dimension(nv1) :: pp, pt, ph, po real :: coefki(3,19), fkg(nv1) integer :: i, i1 real :: x1, x2, y1 real :: stanp(19) = (/0.251, 0.398, 0.631, 1.000, 1.58, 2.51, & & 3.98, 6.31, 10.0, 15.8, 25.1, 39.8, 63.1, & & 100.0, 158.0, 251.0, 398.0, 631.0, 1000.0/) i1 = 1 do i = 1, nv1 if ( pp(i) .lt. stanp(1) ) then x1 = exp ( coefki(1,1) + coefki(2,1) * ( pt(i) - 250.0 ) & & + coefki(3,1) * ( pt(i) - 250.0 ) ** 2 ) fkg(i) = x1 * pp(i) / stanp(1) elseif ( pp(i) .ge. stanp(19) ) then y1 = ( pt(i) - 250.0 ) * ( pt(i) - 250.0 ) x1 = exp ( coefki(1,18) + coefki(2,18) * ( pt(i) - 250.0 ) & & + coefki(3,18) * y1 ) x2 = exp ( coefki(1,19) + coefki(2,19) * ( pt(i) - 250.0 ) & & + coefki(3,19) * y1 ) fkg(i) = x1 + ( x2 - x1 ) / ( stanp(19) - stanp(18) ) & & * ( pp(i) - stanp(18) ) else do while ( pp(i) .ge. stanp(i1) ) i1 = i1 + 1 end do y1 = ( pt(i) - 250.0 ) * ( pt(i) - 250.0 ) x1 = exp ( coefki(1,i1-1) + coefki(2,i1-1) * (pt(i)-250.0) & & + coefki(3,i1-1) * y1 ) x2 = exp ( coefki(1,i1) + coefki(2,i1) * ( pt(i) - 250.0 ) & & + coefki(3,i1) * y1 ) fkg(i) = x1 + ( x2 - x1 ) / ( stanp(i1) - stanp(i1-1) ) & & * ( pp(i) - stanp(i1-1) ) end if 5 end do return end subroutine subroutine qopo3s ( nv,nv1,fk,tg,pp,pt,ph,po ) USE PARA_FILE implicit none integer :: nv, nv1 real, dimension(nv1) :: pp, pt, ph, po real, dimension(nv) :: tg real :: fk, fq integer :: i fq = 238.08 * fk do i = 1, nv tg(i) = ( po(i) + po(i+1) ) * ( pp(i+1) - pp(i) ) * fq 10 end do return end subroutine subroutine qoph2o ( nv,nv1,fkg, tg,pp,pt,ph,po ) USE PARA_FILE implicit none integer :: nv, nv1 real, dimension(nv1) :: pp, pt, ph, po real :: fkg(nv1), tg(nv) integer :: i do i = 1, nv tg(i) = ( fkg(i) * ph(i) + fkg(i+1) * ph(i+1) ) & & * ( pp(i+1) - pp(i) ) * 634.9205 10 end do return end subroutine subroutine qopch4 ( nv,nv1,fkg, tg,pp,pt,ph,po ) USE PARA_FILE implicit none integer :: nv, nv1 real, dimension(nv1) :: pp, pt, ph, po real :: fkg(nv1), tg(nv) integer :: i do i = 1, nv tg(i) = ( fkg(i)+fkg(i+1) ) *( pp(i+1)-pp(i) )* 6.3119e-4 10 end do return end subroutine subroutine qopn2o ( nv,nv1,fkg, tg,pp,pt,ph,po ) USE PARA_FILE implicit none integer :: nv, nv1 real, dimension(nv1) :: pp, pt, ph, po real :: fkg(nv1), tg(nv) integer :: i do i = 1, nv tg(i) = ( fkg(i)+fkg(i+1) ) * (pp(i+1)-pp(i))*1.10459e-4 10 end do return end subroutine subroutine qopo3i ( nv,nv1,fkg, tg,pp,pt,ph,po ) USE PARA_FILE implicit none integer :: nv, nv1 real, dimension(nv1) :: pp, pt, ph, po real :: fkg(nv1), tg(nv) integer :: i do i = 1, nv tg(i) = ( fkg(i) * po(i) + fkg(i+1) * po(i+1) ) & & * ( pp(i+1) - pp(i) ) * 238.08 10 end do return end subroutine subroutine qophc ( nv,nv1,fkg, tg,pp,pt,ph,po ) USE PARA_FILE implicit none integer :: nv, nv1 real, dimension(nv1) :: pp, pt, ph, po real :: fkg(nv1), tg(nv) integer :: i do i = 1, nv tg(i) = ( fkg(i) + fkg(i+1) ) * ( pp(i+1) - pp(i) ) * 0.5 10 end do return end subroutine subroutine qopcon ( nv,nv1,vv,tg,pp,pt,ph,po ) USE PARA_FILE implicit none integer :: nv, nv1 real, dimension(nv1) :: pp, pt, ph, po, & & ff, pe real :: vv, tg(nv) real :: x, y, z, r, s, w integer :: i x = 4.18 y = 5577.8 z = 0.00787 r = 0.002 s = ( x + y * exp ( - z * vv ) ) / 1013.25 do i = 1, nv1 pe(i) = pp(i) * ph(i) / ( 0.622 + 0.378 * ph(i) ) w = exp ( 1800.0 / pt(i) - 6.08108 ) ff(i) = s * ( pe(i) + r * pp(i) ) * w end do do i = 1, nv tg(i) = ( ff(i) * ph(i) + ff(i+1) * ph(i+1) )* & & ( pp(i+1) - pp(i) ) * 0.5098835 end do return end subroutine subroutine qopo2 ( nv,nv1,fkg, tg,pp,pt,ph,po ) USE PARA_FILE implicit none integer :: nv, nv1 real, dimension(nv1) :: pp, pt, ph, po real :: fkg(nv1), tg(nv) integer :: i real :: am=32 do i = 1, nv tg(i) = 0.5*(fkg(i)+fkg(i+1)) *(pp(i+1)-pp(i)) * & & 2.24e4/aM*10.0/9.8*2.0948E+05*1.0e-6*aM/28.97 10 end do return end subroutine subroutine qopco2 ( nv,nv1,fkg, tg,pp,pt,ph,po ) USE PARA_FILE implicit none integer :: nv, nv1 real, dimension(nv1) :: pp, pt, ph, po real :: fkg(nv1), tg(nv) integer :: i real :: am=44 do i = 1, nv tg(i) = 0.5*( fkg(i)+fkg(i+1) ) * ( pp(i+1)-pp(i) ) * & & 2.24e4 / aM * 10.0 / 9.8 * 330.0 *1.0e-6* aM / 28.97 10 end do return end subroutine subroutine qopco ( nv,nv1,fkg, tg,pp,pt,ph,po ) USE PARA_FILE implicit none integer :: nv, nv1 real, dimension(nv1) :: pp, pt, ph, po real :: fkg(nv1), tg(nv) integer :: i real :: am=28 do i = 1, nv tg(i) = 0.5*( fkg(i)+fkg(i+1) ) * ( pp(i+1)-pp(i) ) * & & 2.24e4 / aM * 10.0 / 9.8 * 0.16 *1.0e-6* aM / 28.97 10 end do return end subroutine subroutine qopno ( nv,nv1,fkg, tg,pp,pt,ph,po ) USE PARA_FILE implicit none integer :: nv, nv1 real, dimension(nv1) :: pp, pt, ph, po real :: fkg(nv1), tg(nv) integer :: i real :: am=30 do i = 1, nv tg(i) = 0.5*( fkg(i)+fkg(i+1) ) * ( pp(i+1)-pp(i) ) * & & 2.24e4 / aM * 10.0 / 9.8 * 0.0005 *1.0e-6* aM / 28.97 10 end do return end subroutine subroutine qopch3cl ( nv,nv1,fkg, tg,pp,pt,ph,po ) USE PARA_FILE implicit none integer :: nv, nv1 real, dimension(nv1) :: pp, pt, ph, po real :: fkg(nv1), tg(nv) integer :: i real :: am=50.5 do i = 1, nv tg(i) = 0.5*( fkg(i)+fkg(i+1) ) * ( pp(i+1)-pp(i) ) * & & 2.24e4 / aM * 10.0 / 9.8 * 0.5e-3 *1.0e-6* aM / 28.97 10 end do return end subroutine subroutine qopso2 ( nv,nv1,fkg, tg,pp,pt,ph,po ) USE PARA_FILE implicit none integer :: nv, nv1 real, dimension(nv1) :: pp, pt, ph, po real :: fkg(nv1), tg(nv) integer :: i real :: am=64 do i = 1, nv tg(i) = 0.5*( fkg(i)+fkg(i+1) ) * ( pp(i+1)-pp(i) ) * & & 2.24e4 / aM * 10.0 / 9.8 * 0.001 *1.0e-6* aM / 28.97 10 end do return end subroutine subroutine qopCFC11 ( nv,nv1,coefCFC, tg,pp,pt,ph,po ) use PARA_FILE implicit none integer :: nv, nv1 real, dimension(nv1) :: pp, pt, ph, po real :: coefCFC, fkg(nv1), tg(nv) integer :: i real :: aM=137.3684 do i = 1,nv1 fkg(i) = coefCFC enddo do i = 1, nv tg(i) = 0.5*( fkg(i)+fkg(i+1) ) * ( pp(i+1)-pp(i) ) * & & 2.24e4/aM*10.0/9.8*0.22e-3*1.0e-6*aM/28.97 10 end do return end subroutine subroutine qopCFC12 ( nv,nv1,coefCFC, tg,pp,pt,ph,po ) use PARA_FILE implicit none integer :: nv, nv1 real, dimension(nv1) :: pp, pt, ph, po real :: coefCFC, fkg(nv1), tg(nv) integer :: i real :: aM=120.9138 do i = 1,nv1 fkg(i) = coefCFC enddo do i = 1, nv tg(i) = 0.5* ( fkg(i)+fkg(i+1) ) * ( pp(i+1)-pp(i) ) * & & 2.24e4/aM*10.0/9.8*0.375e-3*1.0e-6*aM/28.97 10 end do return end subroutine subroutine comscp_aero_cld ( nv,nv1 & & ,cldamnt,area_group,cld_group & & ,n_group,nb & & ,ti,wi,wwi,tw,ww,www & & ,trn,wrn,wwrn,tgr,wgr,wwgr & & ,tr,wr,wwr,tgm,tg,tae,wae,wwae & & ,wc1,wc2,wc3,wc4,wc,tt,tc_2 & & ,wc1_2,wc2_2,wc3_2,wc4_2,wc_2,tt_2 & & ,cc_inho & & ) USE PARA_FILE USE control_para implicit none integer :: nv, nv1 real, dimension(nv) :: cldamnt real :: ti(nv), wi(nv), wwi(nv,4) real :: tw(nv), ww(nv), www(nv,4) real :: trn(nv), wrn(nv), wwrn(nv,4) real :: tgr(nv), wgr(nv), wwgr(nv,4) real :: tr(nv), wr(nv), wwr(nv,4) real :: tgm(nv) real :: tg(nv) real :: tae(nvx,mxac), wae(nvx,mxac), wwae(nvx,4,mxac) real, dimension(nv) :: wc1, wc2, wc3, wc4, wc, tt real :: tc(nv), tc_2(nv,2),tis, tws, trns, tgrs, & & taes(0:4), fw, fw1, fw2, & & fcloud, adj_pari, adj_parw integer :: i, iac, k, kl, n_cld, j real, dimension(nv,2) :: wc1_2, wc2_2, wc3_2, wc4_2, & & wc_2, tt_2 real :: area_group(3,2), cld_group(3) integer :: nb(3), n_group(3) real, dimension(nv) :: cc_inho do k=1,ngroup kl = (k-1)*nsubcld + nv1 - nsubcld*ngroup cld_group(k) = cldamnt(kl) do i=kl+1,kl+nsubcld-1 if (cldamnt(i).gt.cld_group(k)) then cld_group(k) = cldamnt(i) endif enddo if (cld_group(k).gt.0.0.and.cld_group(k).lt.1.) then n_group(k) = 2 nb(k) = 1 area_group(k,1) = 1. - cld_group(k) area_group(k,2) = cld_group(k) elseif(cld_group(k).eq.0.0) then n_group(k) = 1 nb(k) = 1 area_group(k,1) = 1. area_group(k,2) = 0. elseif(cld_group(k).eq.1.) then n_group(k) = 2 nb(k) = 2 area_group(k,1) = 0. area_group(k,2) = 1. endif enddo do i = 1, nv tc_2(i,1) = tr(i) + tgm(i) + tg(i) + & & trn(i) + tgr(i) if(tc_2(i,1).lt.0.) then write(0,*)'tau clear less then 0 at level ', i write(0,*)'tau=', tc_2(i,1) write(0,*)'tr=',tr(i) write(0,*)'tgm=',tgm(i) write(0,*)'tg=',tg(i) write(0,*)'trn=',trn(i) write(0,*)'tgr=',tgr(i) endif if (naero.ge.1) then do iac = 1,mxac if (itps(iac).eq.1) tc_2(i,1) = tc_2(i,1) + tae(i,iac) enddo end if adj_pari = 0. adj_parw = 0. if (cldamnt(i).gt. 0.) then n_cld = (i-(nv1-nsubcld*ngroup))/nsubcld+1 if (n_cld.gt.0.and.cld_group(n_cld).ne.0) then fcloud = cldamnt(i) / cld_group(n_cld) if (fcloud.le.0.1) then if (ti(i).le.15.) then adj_pari = fcloud - fcloud * 0.5 * ti(i) / 15. else adj_pari = 0.5 * fcloud endif if (tw(i).le.15.) then adj_parw = fcloud - fcloud * 0.5 * tw(i) / 15. else adj_parw = 0.5 * fcloud endif endif if (fcloud.le.0.3.and.fcloud.gt.0.1) then if (ti(i).le.15.) then adj_pari = fcloud - fcloud * 0.33 * ti(i) / 15. else adj_pari = 0.67 * fcloud endif if (tw(i).le.15.) then adj_parw = fcloud - fcloud * 0.33 * tw(i) / 15. else adj_parw = 0.67 * fcloud endif endif if (fcloud.le.0.5.and.fcloud.gt.0.3) then if (ti(i).le.15.) then adj_pari = fcloud - fcloud * 0.4 * ti(i) / 15. else adj_pari = 0.6 * fcloud endif if (tw(i).le.15.) then adj_parw = fcloud - fcloud * 0.4 * tw(i) / 15. else adj_parw = 0.6 * fcloud endif endif if (fcloud.le.0.7.and.fcloud.gt.0.5) then if (ti(i).le.15.) then adj_pari = fcloud - fcloud * 0.286 * ti(i) / 15. else adj_pari = 0.714 * fcloud endif if (tw(i).le.15.) then adj_parw = fcloud - fcloud * 0.286 * tw(i) / 15. else adj_parw = 0.714 * fcloud endif endif if (fcloud.le.0.9.and.fcloud.gt.0.7) then if (ti(i).le.15.) then adj_pari = fcloud - fcloud * 0.11 * ti(i) / 15. else adj_pari = 0.89 * fcloud endif if (tw(i).le.15.) then adj_parw = fcloud - fcloud * 0.11 * tw(i) / 15. else adj_parw = 0.89 * fcloud endif endif if (fcloud.le.1..and.fcloud.gt.0.9) then adj_pari = fcloud adj_parw = fcloud endif if (ti(i).gt.0.) & & ti(i) = ti(i) * adj_pari & & * cc_inho(i) if (tw(i).gt.0.) & & tw(i) = tw(i) * adj_parw & & * cc_inho(i) endif endif tc_2(i,2) = ti(i) + tw(i) + tr(i) + tgm(i) + tg(i) + & & trn(i) + tgr(i) if(tc_2(i,2).lt.0.) then write(0,*)'tau cloudy less then 0 at level ', i write(0,*)'tau=', tc_2(i,2) write(0,*)'ti=',ti(i) write(0,*)'tw=',tw(i) write(0,*)'tr=',tr(i) write(0,*)'tgm=',tgm(i) write(0,*)'tg=',tg(i) write(0,*)'trn=',trn(i) write(0,*)'tgr=',tgr(i) endif if (naero.ge.1) then do iac = 1,mxac if (itps(iac).eq.1) tc_2(i,2) = tc_2(i,2) + tae(i,iac) enddo endif tis = ti(i) * wi(i) tws = tw(i) * ww(i) trns = trn(i) * wrn(i) tgrs = tgr(i) * wgr(i) if (naero.ge.1) then taes(0:4) = 0.0 do iac = 1,mxac if (itps(iac).eq.1) then taes(0)=taes(0)+tae(i,iac)*wae(i,iac) do j=1,4 taes(j)=taes(j)+tae(i,iac)*wae(i,iac)*wwae(i,j,iac) enddo end if enddo fw1 = tr(i) + trns + tgrs + taes(0) fw2 = tis + tws + tr(i) + trns + tgrs + taes(0) else fw1 = tr(i) + trns + tgrs fw2 = tis + tws + tr(i) + trns + tgrs end if wc_2(i,1) = fw1 / tc_2(i,1) wc_2(i,2) = fw2 / tc_2(i,2) if ( fw2 .lt. 1.0e-20 ) then wc1_2(i,2) = 0.0 wc2_2(i,2) = 0.0 wc3_2(i,2) = 0.0 wc4_2(i,2) = 0.0 else if (naero.eq.0) then wc1_2(i,2) = ( tis * wwi(i,1) + tws * www(i,1) + & & tr(i) * wwr(i,1) + trns * wwrn(i,1) + tgrs * wwgr(i,1) )/fw2 wc2_2(i,2) = ( tis * wwi(i,2) + tws * www(i,2) + & & tr(i) * wwr(i,2) + trns * wwrn(i,2) + tgrs * wwgr(i,2) )/fw2 wc3_2(i,2) = ( tis * wwi(i,3) + tws * www(i,3) + & & tr(i) * wwr(i,3) + trns * wwrn(i,3) + tgrs * wwgr(i,3) )/fw2 wc4_2(i,2) = ( tis * wwi(i,4) + tws * www(i,4) + & & tr(i) * wwr(i,4) + trns * wwrn(i,4) + tgrs * wwgr(i,4) )/fw2 else wc1_2(i,2) = ( tis * wwi(i,1) + tws * www(i,1) + & & tr(i) * wwr(i,1) + trns * wwrn(i,1) + tgrs * wwgr(i,1) & & + taes(1) )/fw2 wc2_2(i,2) = ( tis * wwi(i,2) + tws * www(i,2) + & & tr(i) * wwr(i,2) + trns * wwrn(i,2) + tgrs * wwgr(i,2) & & + taes(2) )/fw2 wc3_2(i,2) = ( tis * wwi(i,3) + tws * www(i,3) + & & tr(i) * wwr(i,3) + trns * wwrn(i,3) + tgrs * wwgr(i,3) & & + taes(3) )/fw2 wc4_2(i,2) = ( tis * wwi(i,4) + tws * www(i,4) + & & tr(i) * wwr(i,4) + trns * wwrn(i,4) + tgrs * wwgr(i,4) & & + taes(4) )/fw2 endif endif if ( fw1 .lt. 1.0e-20 ) then wc1_2(i,1) = 0.0 wc2_2(i,1) = 0.0 wc3_2(i,1) = 0.0 wc4_2(i,1) = 0.0 else if (naero.eq.0) then wc1_2(i,1) = ( & & tr(i) * wwr(i,1) + trns * wwrn(i,1) + tgrs * wwgr(i,1) )/fw1 wc2_2(i,1) = ( & & tr(i) * wwr(i,2) + trns * wwrn(i,2) + tgrs * wwgr(i,2) )/fw1 wc3_2(i,1) = ( & & tr(i) * wwr(i,3) + trns * wwrn(i,3) + tgrs * wwgr(i,3) )/fw1 wc4_2(i,1) = ( & & tr(i) * wwr(i,4) + trns * wwrn(i,4) + tgrs * wwgr(i,4) )/fw1 else wc1_2(i,1) = ( & & tr(i) * wwr(i,1) + trns * wwrn(i,1) + tgrs * wwgr(i,1) & & + taes(1) )/fw1 wc2_2(i,1) = ( & & tr(i) * wwr(i,2) + trns * wwrn(i,2) + tgrs * wwgr(i,2) & & + taes(2) )/fw1 wc3_2(i,1) = ( & & tr(i) * wwr(i,3) + trns * wwrn(i,3) + tgrs * wwgr(i,3) & & + taes(3) )/fw1 wc4_2(i,1) = ( & & tr(i) * wwr(i,4) + trns * wwrn(i,4) + tgrs * wwgr(i,4) & & + taes(4) )/fw1 endif endif 10 end do return end subroutine subroutine planck ( nv,nv1,ib,pts,pp,pt,ph,po,bf,bs ) USE PARA_FILE implicit none integer :: nv, nv1 real, dimension(nv1) :: pp, pt, ph, po real :: bf(nv1), bs, pts real :: ve(mbir), bt(nv1) integer :: nd(mbir) integer :: ib, i, j, nv11, ibr real :: v1, v2, w, fq1, fq2, bts, x data ve / 2200.0, 1900.0, 1700.0, 1400.0, 1250.0, 1100.0, & & 980.0, 800.0, 670.0, 540.0, 400.0, 280.001 / data nd / 30, 20, 30, 15, 15, 12, & & 18, 13, 13, 14, 12, 28 / nv11 = nv1 + 1 ibr = ib - mbs bts = 0.0 do i = 1, nv1 bt(i) = 0.0 end do v1 = ve(ibr) do j = 1, nd(ibr) v2 = v1 - 10.0 w = ( v1 + v2 ) * 0.5 fq1 = 1.19107e-8 * w * w * w fq2 = 1.43884 * w do i = 1, nv11 if ( i .eq. nv11 ) then x = fq1 / ( exp ( fq2 / pts ) - 1.0 ) bts = bts + x else x = fq1 / ( exp ( fq2 / pt(i) ) - 1.0 ) bt(i) = bt(i) + x endif end do v1 = v2 end do do i = 1, nv1 bf(i) = bt(i) * 10.0 end do bs = bts * 10.0 return end subroutine subroutine coeff1 ( ib,w,w1,w2,w3,t0,t1,u0,f0,b ) USE PARA_FILE USE numericals implicit none integer, intent(in) :: ib real, intent(in) :: w, w1, w2, w3, t0, t1, u0, f0 real, intent(out) :: b(4,3) integer :: i, j real :: x, w0w, w1w, w2w, w3w, fw, q1, q2, q3, fq, c(4,5) x = 0.5 * w w0w = x w1w = x * w1 w2w = x * w2 w3w = x * w3 if ( ib .le. mbs ) then fw = u0 * u0 q1 = - w1w * u0 q2 = w2w * ( 1.5 * fw - 0.5 ) q3 = - w3w * ( 2.5 * fw - 1.5 ) * u0 endif fq = 0.5 * w0w do i = 3, 4 do j = 1, 4 c(i,j) = fq + w1w * p11d(i,j) + & & w2w * p22d(i,j) + w3w * p33d(i,j) if ( i .eq. j ) then c(i,j) = ( c(i,j) - 1.0 ) / u(i) else c(i,j) = c(i,j) / u(i) endif 20 end do 10 end do do i = 1, 4 if ( ib .le. mbs ) then c(i,5) = w0w + q1 * p1d(i) + & & q2 * p2d(i) + q3 * p3d(i) else c(i,5) = 1.0 endif c(i,5) = c(i,5) / u(i) 30 end do b(1,1) = c(4,4) - c(4,1) b(1,2) = c(4,4) + c(4,1) b(2,1) = c(4,3) - c(4,2) b(2,2) = c(4,3) + c(4,2) b(3,1) = c(3,4) - c(3,1) b(3,2) = c(3,4) + c(3,1) b(4,1) = c(3,3) - c(3,2) b(4,2) = c(3,3) + c(3,2) b(1,3) = c(4,5) - c(1,5) b(2,3) = c(3,5) - c(2,5) b(3,3) = c(3,5) + c(2,5) b(4,3) = c(4,5) + c(1,5) return end subroutine subroutine coeff2 ( u0,b,a,d ) implicit none real, intent(in) :: u0 real, intent(in) :: b(4,3) real, intent(out) :: a(2,2,2), d(4) real :: fw1, fw2, fw3, fw4 fw1 = b(1,1) * b(1,2) fw2 = b(2,1) * b(3,2) fw3 = b(3,1) * b(2,2) fw4 = b(4,1) * b(4,2) a(2,2,1) = fw1 + fw2 a(2,1,1) = b(1,1) * b(2,2) + b(2,1) * b(4,2) a(1,2,1) = b(3,1) * b(1,2) + b(4,1) * b(3,2) a(1,1,1) = fw3 + fw4 a(2,2,2) = fw1 + fw3 a(2,1,2) = b(1,2) * b(2,1) + b(2,2) * b(4,1) a(1,2,2) = b(3,2) * b(1,1) + b(4,2) * b(3,1) a(1,1,2) = fw2 + fw4 d(1) = b(3,2) * b(4,3) + b(4,2) * b(3,3) + b(2,3) / u0 d(2) = b(1,2) * b(4,3) + b(2,2) * b(3,3) + b(1,3) / u0 d(3) = b(3,1) * b(1,3) + b(4,1) * b(2,3) + b(3,3) / u0 d(4) = b(1,1) * b(1,3) + b(2,1) * b(2,3) + b(4,3) / u0 return end subroutine subroutine coeff4 ( u0,a,d,z,b1,c1 ) implicit none real, intent(in) :: u0 real, intent(in) :: a(2,2,2), d(4) real, intent(out) :: z(4), b1, c1 real :: x x = u0 * u0 b1 = a(2,2,1) + a(1,1,1) c1 = a(2,1,1) * a(1,2,1) - a(1,1,1) * a(2,2,1) z(1) = a(2,1,1) * d(3) + d(4) / x - a(1,1,1) * d(4) z(2) = a(1,2,1) * d(4) - a(2,2,1) *d(3) + d(3) / x z(3) = a(2,1,2) * d(1) + d(2) / x - a(1,1,2) * d(2) z(4) = a(1,2,2) * d(2) - a(2,2,2) * d(1) + d(1) / x return end subroutine subroutine coeffl ( ib,t0,t1,u0,f0,b,a,d,z,b1,c1, & & aa,zz,a1,z1,fk1,fk2 ) USE PARA_FILE implicit none integer, intent(in) :: ib real, intent(in) :: t0, t1, u0, f0 real, intent(in) :: b(4,3) real, intent(in) :: a(2,2,2), d(4) real, intent(inout) :: z(4), b1, c1 real, intent(out) :: aa(4,4,2), zz(4,2), a1(4,4), z1(4), & & fk1, fk2 integer :: i real :: dt, x, y, fw, fw1, fw2, a2, b2, zx, fq0, fq1 dt = t1 - t0 x = sqrt ( b1 * b1 + 4.0 * c1 ) fk1 = sqrt ( ( b1 + x ) * 0.5 ) fk2 = sqrt ( ( b1 - x ) * 0.5 ) fw = u0 * u0 x = 1.0 / ( fw * fw ) - b1 / fw - c1 if (abs (x) .lt. 1.0E-16) THEN if ( x .lt. 0.0) THEN x = -1.0E-6 else x = 1.0E-6 end if end if fw = 0.5 * f0 / x z(1) = fw * z(1) z(2) = fw * z(2) z(3) = fw * z(3) z(4) = fw * z(4) z1(1) = 0.5 * ( z(1) + z(3) ) z1(2) = 0.5 * ( z(2) + z(4) ) z1(3) = 0.5 * ( z(2) - z(4) ) z1(4) = 0.5 * ( z(1) - z(3) ) a2 = ( fk1 * fk1 - a(2,2,1) ) / a(2,1,1) b2 = ( fk2 * fk2 - a(2,2,1) ) / a(2,1,1) x = b(1,1) * b(4,1) - b(3,1) * b(2,1) fw1 = fk1 / x fw2 = fk2 / x y = fw2 * ( b2 * b(2,1) - b(4,1) ) zx = fw1 * ( a2 * b(2,1) - b(4,1) ) a1(1,1) = 0.5 * ( 1 - y ) a1(1,2) = 0.5 * ( 1 - zx ) a1(1,3) = 0.5 * ( 1 + zx ) a1(1,4) = 0.5 * ( 1 + y ) y = fw2 * ( b(3,1) - b2 * b(1,1) ) zx = fw1 * ( b(3,1) - a2 * b(1,1) ) a1(2,1) = 0.5 * ( b2 - y ) a1(2,2) = 0.5 * ( a2 - zx ) a1(2,3) = 0.5 * ( a2 + zx ) a1(2,4) = 0.5 * ( b2 + y ) a1(3,1) = a1(2,4) a1(3,2) = a1(2,3) a1(3,3) = a1(2,2) a1(3,4) = a1(2,1) a1(4,1) = a1(1,4) a1(4,2) = a1(1,3) a1(4,3) = a1(1,2) a1(4,4) = a1(1,1) if ( ib .le. mbs ) then fq0 = exp ( - t0 / u0 ) fq1 = exp ( - t1 / u0 ) else fq0 = 1.0 fq1 = exp ( - dt / u0 ) endif x = exp ( - fk1 * dt ) y = exp ( - fk2 * dt ) do i = 1, 4 zz(i,1) = z1(i) * fq0 zz(i,2) = z1(i) * fq1 aa(i,1,1) = a1(i,1) aa(i,2,1) = a1(i,2) aa(i,3,1) = a1(i,3) * x aa(i,4,1) = a1(i,4) * y aa(i,3,2) = a1(i,3) aa(i,4,2) = a1(i,4) aa(i,1,2) = a1(i,1) * y aa(i,2,2) = a1(i,2) * x 40 end do return end subroutine subroutine coefft ( ib,w,w1,w2,w3,t0,t1,u0,f0, & & b,a,d,z,b1,c1,aa,zz,a1,z1,fk1,fk2 ) implicit none integer, intent(in) :: ib real, intent(in) :: w, w1, w2, w3, t0, t1, u0, f0 real :: b(4,3), a(2,2,2), d(4), & & z(4), b1, c1, & & aa(4,4,2), zz(4,2), a1(4,4), z1(4), & & fk1, fk2 call coeff1 ( ib,w,w1,w2,w3,t0,t1,u0,f0,b ) call coeff2 ( u0,b,a,d ) call coeff4 ( u0,a,d,z,b1,c1 ) call coeffl ( ib,t0,t1,u0,f0,b,a,d,z,b1,c1, & & aa,zz,a1,z1,fk1,fk2 ) return end subroutine subroutine coefft0 ( ib,w,w1,w2,w3,t0,t1,u0,f0, & & aa,zz,a1,z1,fk1,fk2 ) USE PARA_FILE use numericals implicit none integer, intent(in) :: ib real, intent(in) :: w, w1, w2, w3, t0, t1, u0, f0 real, intent(out) :: aa(4,4,2), zz(4,2), a1(4,4), z1(4), & & fk1, fk2 integer :: i, jj, j, k real :: x, y, fw, temp, dt fk1 = 4.7320545 fk2 = 1.2679491 y = exp ( - ( t1 - t0 ) / u0 ) fw = 0.5 * f0 do i = 1, 4 if ( ib .le. mbs ) then z1(i) = 0.0 zz(i,1) = 0.0 zz(i,2) = 0.0 else jj = 5 - i temp = u(jj)/u0 if (temp.eq.-1.) temp = -0.9999 z1(i) = fw / ( 1.0 + temp ) zz(i,1) = z1(i) zz(i,2) = z1(i) * y endif do j = 1, 4 a1(i,j) = 0.0 do k = 1, 2 aa(i,j,k) = 0.0 12 end do 11 end do 10 end do do i = 1, 4 j = 5 - i a1(i,j) = 1.0 20 end do dt = t1 - t0 x = exp ( - fk1 * dt ) y = exp ( - fk2 * dt ) aa(1,4,1) = y aa(2,3,1) = x aa(3,2,1) = 1.0 aa(4,1,1) = 1.0 aa(1,4,2) = 1.0 aa(2,3,2) = 1.0 aa(3,2,2) = x aa(4,1,2) = y return end subroutine subroutine qcfe ( nv,nv1,ib,asbs,ee,w1,w2,w3,w,t,u0,f0, & & fk1,fk2,a4,z4,g4 ) USE PARA_FILE implicit none integer :: nv, nv1 integer, intent(in) :: ib real, intent(in) :: asbs, ee real, intent(in), dimension(nv) :: w1, w2, w3, w, t, u0, f0 real, intent(out) :: fk1(nv), fk2(nv), a4(4,4,nv), & & z4(4,nv), g4(4,nv) real :: b(4,3), a(2,2,2), d(4), z(4), b1, c1, & & aa(4,4,2), zz(4,2), a1(4,4), z1(4), fk1t, fk2t real :: ab(13,nv * 4), bx(nv * 4), xx(nv * 4) integer :: n, n4, i, j, k, ibn, i8, kf, i1, i2, i3, j1, j2, j3, & & m1, m2, m18, m28 real :: wn, w1n, w2n, w3n, t0n, t1n, u0n, f0n real :: fu(4,4), wu(4) real :: v1, v2, v3, fw1, fw2 n = nv n4 = nv * 4 do i = 1, n4 do j = 1, 13 ab(j,i) = 0.0 end do end do ibn = ib wn = w(1) w1n = w1(1) w2n = w2(1) w3n = w3(1) t0n = 0.0 t1n = t(1) u0n = u0(1) f0n = f0(1) if ( wn .ge. 0.999999 ) then wn = 0.999999 endif if ( wn .le. 1.0e-4 ) then call coefft0 ( ibn,wn,w1n,w2n,w3n,t0n,t1n,u0n,f0n, & & aa,zz,a1,z1,fk1t,fk2t ) fk1(1) = fk1t fk2(1) = fk2t else call coefft ( ibn,wn,w1n,w2n,w3n,t0n,t1n,u0n,f0n, & & b,a,d,z,b1,c1,aa,zz,a1,z1,fk1t,fk2t ) fk1(1) = fk1t fk2(1) = fk2t endif do i = 1, 4 z4(i,1) = z1(i) do j = 1, 4 a4(i,j,1) = a1(i,j) end do end do do i = 1, 2 bx(i) = - zz(i+2,1) i8 = i + 8 do j = 1, 4 ab(i8-j,j) = aa(i+2,j,1) end do end do do i = 1, 4 wu(i) = zz(i,2) do j = 1, 4 fu(i,j) = aa(i,j,2) end do end do do k = 2, n wn = w(k) w1n = w1(k) w2n = w2(k) w3n = w3(k) t0n = t(k-1) t1n = t(k) u0n = u0(k) f0n = f0(k) if ( wn .ge. 0.999999 ) then wn = 0.999999 endif if ( wn .le. 1.0e-4 ) then call coefft0 ( ibn,wn,w1n,w2n,w3n,t0n,t1n,u0n,f0n, & & aa,zz,a1,z1,fk1t,fk2t ) fk1(k) = fk1t fk2(k) = fk2t else call coefft ( ibn,wn,w1n,w2n,w3n,t0n,t1n,u0n,f0n, & & b,a,d,z,b1,c1,aa,zz,a1,z1,fk1t,fk2t ) fk1(k) = fk1t fk2(k) = fk2t endif do i = 1, 4 z4(i,k) = z1(i) do j = 1, 4 a4(i,j,k) = a1(i,j) end do end do kf = k + k + k + k i1 = kf - 5 i2 = i1 + 3 j1 = kf - 7 j2 = j1 + 3 i3 = 0 do i = i1, i2 i3 = i3 + 1 bx(i) = - wu(i3) + zz(i3,1) j3 = 0 i8 = i + 8 do j = j1, j2 j3 = j3 + 1 ab(i8-j,j) = fu(i3,j3) end do j3 = 0 do j = j2 + 1, j2 + 4 j3 = j3 + 1 ab(i8-j,j) = - aa(i3,j3,1) end do end do do i = 1, 4 wu(i) = zz(i,2) do j = 1, 4 fu(i,j) = aa(i,j,2) end do end do end do if ( ib .le. mbs ) then v1 = 0.2113247 * asbs v2 = 0.7886753 * asbs v3 = asbs * u0(1) * f0(1) * exp ( - t(n) / u0(1) ) m1 = n4 - 1 m2 = n4 m18 = m1 + 8 m28 = m2 + 8 fw1 = v1 * wu(3) fw2 = v2 * wu(4) bx(m1) = - ( wu(1) - fw1 - fw2 - v3 ) bx(m2) = - ( wu(2) - fw1 - fw2 - v3 ) do j = 1, 4 j1 = n4 - 4 + j fw1 = v1 * fu(3,j) fw2 = v2 * fu(4,j) ab(m18-j1,j1) = fu(1,j) - fw1 - fw2 ab(m28-j1,j1) = fu(2,j) - fw1 - fw2 end do else v1 = 0.2113247 * ( 1.0 - ee ) v2 = 0.7886753 * ( 1.0 - ee ) v3 = asbs m1 = n4 - 1 m2 = n4 m18 = m1 + 8 m28 = m2 + 8 fw1 = v1 * wu(3) fw2 = v2 * wu(4) bx(m1) = - ( wu(1) - fw1 - fw2 - v3 ) bx(m2) = - ( wu(2) - fw1 - fw2 - v3 ) do j = 1, 4 j1 = n4 - 4 + j fw1 = v1 * fu(3,j) fw2 = v2 * fu(4,j) ab(m18-j1,j1) = fu(1,j) - fw1 - fw2 ab(m28-j1,j1) = fu(2,j) - fw1 - fw2 end do endif call qcfel (nv,nv1,ab,bx,xx) do k = 1, n j = k + k + k + k - 4 do i = 1, 4 j = j + 1 g4(i,k) = xx(j) end do end do return end subroutine subroutine qcfel (nv, nv1, ab, b, x) USE PARA_FILE implicit none integer :: nv, nv1 real :: ab(13,nv * 4), b(nv * 4), x(nv * 4) integer :: i, j, k, l, m, n, & & i0, i0f, i0m1, im1, ifq, k44, & & m1f, m1, m2, m3, m4, m18, m28, m38, m48, & & n1, n2, n3, n4, n44 real :: p, t, xx, yy n = nv n4 = nv * 4 do k = 1, n - 1 k44 = 4 * k - 4 do l= 1, 4 m1 = k44 + l p = 0.0 do i = 8, 14 - l if ( abs ( ab(i,m1) ) .gt. abs ( p ) ) then p = ab(i,m1) i0 = i endif 10 end do i0m1 = i0 + m1 m18 = m1 + 8 if ( i0 .ne. 8 ) then do j = m1, m1 + 8 - l i0f = i0m1 - j m1f = m18 - j t = ab(i0f,j) ab(i0f,j) = ab(m1f,j) ab(m1f,j) = t 15 end do i0f = i0m1 - 8 t = b(i0f) b(i0f) = b(m1) b(m1) = t 20 end if yy = ab(8,m1) ab(8,m1) = 1.0 do j = m1 + 1, m1 + 8 - l m1f = m18 - j ab(m1f,j) = ab(m1f,j) / yy 25 end do b(m1) = b(m1) / yy do i = 9, 14 - l xx = ab(i,m1) ab(i,m1) = 0.0 im1 = i + m1 do j = m1 + 1, m1 + 8 - l ifq = im1 - j m1f = m18 - j ab(ifq,j) = ab(ifq,j) - ab(m1f,j) * xx 35 end do ifq = im1 - 8 b(ifq) = b(ifq) - b(m1) * xx 30 end do 3 end do 5 end do n44 = n4 - 4 do l = 1, 3 m1 = n44 + l p = 0.0 do i = 8, 12 - l if ( abs ( ab(i,m1) ) .gt. abs ( p ) ) then p = ab(i,m1) i0 = i endif 45 end do i0m1 = i0 + m1 m18 = m1 + 8 if( i0 .ne. 8 ) then do j = m1, m1 + 4 - l i0f = i0m1 - j m1f = m18 - j t = ab(i0f,j) ab(i0f,j) = ab(m1f,j) ab(m1f,j) = t 50 end do i0f = i0m1 - 8 t = b(i0f) b(i0f) = b(m1) b(m1) = t 55 end if yy = ab(8,m1) ab(8,m1) = 1.0 do j = m1 + 1, m1 + 4 - l m1f = m18 - j ab(m1f,j) = ab(m1f,j) / yy 60 end do b(m1) = b(m1) / yy do i = 9, 12 - l xx = ab(i,m1) ab(i,m1) = 0.0 im1 = i + m1 do j = m1 + 1, m1 + 4 - l ifq = im1 - j m1f = m18 - j ab(ifq,j) = ab(ifq,j) - ab(m1f,j) * xx 70 end do ifq = im1 - 8 b(ifq) = b(ifq) - b(m1) * xx 65 end do 40 end do yy = ab(8,n4) ab(8,n4) = 1.0 b(n4) = b(n4) / yy n3 = n4 - 1 n2 = n3 - 1 n1 = n2 - 1 x(n4) = b(n4) x(n3) = b(n3) - ab(7,n4) * x(n4) x(n2) = b(n2) - ab(7,n3) * x(n3) - ab(6,n4) * x(n4) x(n1) = b(n1) - ab(7,n2) * x(n2) - ab(6,n3) * x(n3) - & & ab(5,n4) * x(n4) do k = 1, n - 1 m4 = 4 * ( n - k ) m3 = m4 - 1 m2 = m3 - 1 m1 = m2 - 1 m48 = m4 + 8 m38 = m3 + 8 m28 = m2 + 8 m18 = m1 + 8 x(m4) = b(m4) do m = m4 + 1, m4 + 4 x(m4) = x(m4) - ab(m48-m,m) * x(m) 85 end do x(m3) = b(m3) do m = m3 + 1, m3 + 5 x(m3) = x(m3) - ab(m38-m,m) * x(m) 90 end do x(m2) = b(m2) do m = m2 + 1, m2 + 6 x(m2) = x(m2) - ab(m28-m,m) * x(m) 95 end do x(m1) = b(m1) do m = m1 + 1, m1 + 7 x(m1) = x(m1) - ab(m18-m,m) * x(m) 100 end do 80 end do return end subroutine subroutine adjust ( nv, nv1, ww1,ww2,ww3,ww4,ww,tt,w1,w2,w3,w,t ) USE PARA_FILE USE control_para, dfsasl=>d4s, dtsasl=>d2s, dfsair=>d4ir, dtsair=>d2ir implicit none integer :: nv, nv1 real, intent(in), dimension(nv) :: ww1, ww2, ww3, ww4, ww, tt real, intent(out), dimension(nv) :: w1, w2, w3, w, t real, dimension(nv) :: dtt, dt integer :: n, i real :: tt0, f, fw n = nv tt0 = 0.0 do i = 1, n if ( dfsasl .or. dfsair ) then f = ww4(i) / 9.0 else f = ww2(i) / 5.0 endif fw = 1.0 - f * ww(i) w1(i) = ( ww1(i) - 3.0 * f ) / ( 1.0 - f ) w2(i) = ( ww2(i) - 5.0 * f ) / ( 1.0 - f ) w3(i) = ( ww3(i) - 7.0 * f ) / ( 1.0 - f ) w(i) = ( 1.0 - f ) * ww(i) / fw dtt(i) = tt(i) - tt0 tt0 = tt(i) dt(i) = dtt(i) * fw 10 end do t(1) = dt(1) do i = 2, n t(i) = dt(i) + t(i-1) 20 end do return end subroutine subroutine qfts ( nv, nv1, ib,as,u0,f0,ww1,ww2,ww3,ww4,ww,tt,ffu,ffd ) USE PARA_FILE implicit none integer :: nv, nv1 integer, intent(in) :: ib real, intent(in) :: as, u0, f0 real, intent(in), dimension(nv) :: ww1, ww2, ww3, ww4, ww, tt real, intent(out), dimension(nv1) :: ffu, ffd real, dimension(nv) :: w1, w2, w3, w4, w, t, u0a, f0a real :: fk1(nv), fk2(nv), a4(4,4,nv), & & z4(4,nv), g4(4,nv) integer :: i, n, m, k, ii,jj real :: asbs, ee, fw1, fw2, fw3, fw4, y, y1, x(4), fi(4) n = nv m = nv1 ee = 0.0 asbs = as call adjust ( nv,nv1,ww1,ww2,ww3,ww4,ww,tt,w1,w2,w3,w,t ) do i = 1, n u0a(i) = u0 f0a(i) = f0 5 end do call qcfe ( nv,nv1,ib,asbs,ee,w1,w2,w3,w,t,u0a,f0a, & & fk1,fk2,a4,z4,g4 ) fw1 = 0.6638961 fw2 = 2.4776962 fw3 = u0 * 3.14159 * f0 do i = 1, m if ( i .eq. 1 ) then x(1) = 1.0 x(2) = 1.0 x(3) = exp ( - fk1(1) * t(1) ) x(4) = exp ( - fk2(1) * t(1) ) k = 1 y = 1.0 elseif ( i .eq. 2 ) then x(1) = exp ( - fk2(1) * t(1) ) x(2) = exp ( - fk1(1) * t(1) ) x(3) = 1.0 x(4) = 1.0 k = 1 y = exp ( - t(1) / u0 ) else k = i - 1 y1 = t(k) - t(k-1) x(1) = exp ( - fk2(k) * y1 ) x(2) = exp ( - fk1(k) * y1 ) x(3) = 1.0 x(4) = 1.0 y = exp ( - t(k) / u0 ) endif do jj = 1, 4 fi(jj) = z4(jj,k) * y 37 end do do ii = 1, 4 fw4 = g4(ii,k) * x(ii) do jj = 1, 4 fi(jj) = fi(jj) + a4(jj,ii,k) * fw4 45 end do 40 end do ffu(i)= fw1 * fi(2) + fw2 * fi(1) ffd(i)= fw1 * fi(3) + fw2 * fi(4) + fw3 * y 10 end do return end subroutine subroutine qfti ( nv, nv1, ib,ee,bf,bs,ww1,ww2,ww3,ww4,ww,tt,ffu,ffd ) USE PARA_FILE implicit none integer :: nv, nv1 integer, intent(in) :: ib real, intent(in) :: ee, bf(nv1), bs real, intent(in), dimension(nv) :: ww1, ww2, ww3, ww4, ww, tt real, intent(out), dimension(nv1) :: ffu, ffd real, dimension(nv) :: w1, w2, w3, w, t, u0, f0 integer :: n, m, i, ii, jj, k real :: asbs, t0, deltau, q1, q2, fw1, fw2, fw3, xy, y1 real :: x(4), fi(4) real :: fk1(nv), fk2(nv), a4(4,4,nv), & & z4(4,nv), g4(4,nv) n = nv m = nv1 asbs = bs * ee call adjust ( nv,nv1,ww1,ww2,ww3,ww4,ww,tt,w1,w2,w3,w,t ) t0 = 0.0 do i = 1, n q1 = alog ( bf(i+1) / bf(i) ) deltau = t(i) -t0 if (deltau .lt. 1.e-12) deltau = 1.e-12 q2 = 1.0 / deltau f0(i) = 2.0 * ( 1.0 - w(i) ) * bf(i) if ( abs(q1) .le. 1.0e-10 ) then u0(i) = - 1.0e+10 / q2 else u0(i) = - 1.0 / ( q1 * q2 ) endif if (abs(u0(i)) .gt. 4.25E+09) then if (u0(i) .lt. 0.0) then u0(i) = -4.25E+09 else u0(i) = 4.25E+09 end if end if t0 = t(i) 3 end do call qcfe ( nv,nv1,ib,asbs,ee,w1,w2,w3,w,t,u0,f0,fk1,fk2,a4,z4,g4 ) fw1 = 0.6638958 fw2 = 2.4776962 do i = 1, m if ( i .eq. 1 ) then x(1) = 1.0 x(2) = 1.0 x(3) = exp ( - fk1(1) * t(1) ) x(4) = exp ( - fk2(1) * t(1) ) k = 1 xy = 1.0 elseif ( i .eq. 2 ) then x(1) = exp ( - fk2(1) * t(1) ) x(2) = exp ( - fk1(1) * t(1) ) x(3) = 1.0 x(4) = 1.0 k = 1 xy = exp ( - t(1) / u0(1) ) else k = i - 1 y1 = t(k) - t(k-1) x(1) = exp ( - fk2(k) * y1 ) x(2) = exp ( - fk1(k) * y1 ) x(3) = 1.0 x(4) = 1.0 xy = exp ( - y1 / u0(k) ) endif do jj = 1, 4 fi(jj) = z4(jj,k) * xy 37 end do do ii = 1, 4 fw3 = g4(ii,k) * x(ii) do jj = 1, 4 fi(jj) = fi(jj) + a4(jj,ii,k) * fw3 45 end do 40 end do ffu(i)= fw1 * fi(2) + fw2 * fi(1) ffd(i)= fw1 * fi(3) + fw2 * fi(4) 10 end do return end subroutine subroutine cfgts0 ( ib, w, w1, t0, t1, u0, f0, & & gamma1, gamma2, gamma3, gamma4, ugts1 ) USE PARA_FILE USE control_para implicit none integer, intent(in) :: ib real, intent(in) :: w, w1, t0, t1, u0, f0 real, intent(out) :: gamma1, gamma2, gamma3, gamma4, ugts1 real x, y, z if ( edding ) then x = 0.25 * w1 y = w * x gamma1 = 1.75 - w - y gamma2 = - 0.25 + w - y gamma3 = 0.0 gamma4 = 0.0 if ( ib .le. mbs ) then gamma3 = 0.5 - x * u0 gamma4 = 1.0 - gamma3 endif ugts1 = 0.5 endif if ( quadra ) then x = 0.866 * w y = 0.2887 * w1 z = y * w gamma1 = 1.732 - x - z gamma2 = x - z gamma3 = 0.0 gamma4 = 0.0 if ( ib .le. mbs ) then gamma3 = 0.5 - y * u0 gamma4 = 1.0 - gamma3 endif ugts1 = 0.57735 endif if ( hemisp ) then x = w * w1 / 3.0 gamma1 = 2.0 - w - x gamma2 = w - x gamma3 = 0.0 gamma4 = 0.0 ugts1 = 0.5 endif return end subroutine subroutine cfgts ( ib, w, w1, t0, t1, u0, f0, & & lamda,gamma,cadd0,cadd1,cmin0,cmin1,g1g2 ) USE PARA_FILE implicit none integer, intent(in) :: ib real, intent(in) :: w, w1, t0, t1, u0, f0 real :: lamda, gamma, cadd0, cadd1, cmin0, cmin1, g1g2 real :: gamma1, gamma2, gamma3, gamma4, ugts1 real :: fq, alfa, beta, fw, x, z call cfgts0 ( ib, w, w1, t0, t1, u0, f0, & & gamma1, gamma2, gamma3, gamma4, ugts1 ) lamda = sqrt ( ( gamma1 + gamma2 ) * ( gamma1 - gamma2 ) ) gamma = gamma2 / ( gamma1 + lamda ) g1g2 = gamma1 + gamma2 fq = 1.0 / u0 if ( ib .le. mbs ) then alfa = gamma3 beta = gamma4 fw = 3.1415927 * f0 * w * exp ( - fq * t0 ) else alfa = 1.0 beta = 1.0 fw = 3.1415927 * f0 endif x = exp ( - fq * ( t1 - t0 ) ) z = lamda * lamda - fq * fq if(abs(z).le.1.e-4) z = 1.e-4 cadd0 = fw * ( ( gamma1 - fq ) * alfa + & & beta * gamma2 ) / z cmin0 = fw * ( ( gamma1 + fq ) * beta + & & alfa * gamma2 ) / z cadd1 = cadd0 * x cmin1 = cmin0 * x return end subroutine subroutine qccgts ( nv, nv1, ib, asbs, ee, & & w1,w2,w3,w,t,u0,f0, & & lamdan,gamman,caddn,cminn, & & caddn0,cminn0,aa,bb,expn,g1g2n ) USE PARA_FILE implicit none integer :: nv, nv1 integer, intent(in) :: ib real, intent(in) :: asbs, ee real, intent(in), dimension(nv) :: w1, w2, w3, w, t, u0, f0 real, dimension(nv) :: lamdan, gamman, caddn, cminn, & & caddn0, cminn0, aa, bb, expn, g1g2n integer :: ibn, k ,k1, k2 real :: wn, w1n, t0n, t1n, u0n, f0n, rsfc, ssfc, wm1, wm2 real, dimension(nv) :: xn, yn, zn real, dimension(nv * 2) :: a, b, c, r, u, gam ibn = ib do k = 1, nv wn = w(k) w1n = w1(k) if ( k .eq. 1 ) then t0n = 0.0 else t0n = t(k-1) endif t1n = t(k) u0n = u0(k) f0n = f0(k) if ( wn .ge. 0.999999 ) then wn = 0.999999 endif call cfgts ( ib, wn, w1n, t0n, t1n, u0n, f0n, & & lamdan(k), gamman(k), caddn0(k), caddn(k), & & cminn0(k), cminn(k), g1g2n(k) ) expn(k) = exp ( - lamdan(k) * ( t1n - t0n ) ) xn(k) = gamman(k) * expn(k) yn(k) = ( expn(k) - gamman(k) ) / ( xn(k) - 1.0 ) zn(k) = ( expn(k) + gamman(k) ) / ( xn(k) + 1.0 ) 40 end do a(1) = 0.0 b(1) = xn(1) + 1.0 c(1) = xn(1) - 1.0 r(1) = - cminn0(1) do k = 1, nv - 1 k1 = k + k k2 = k + k + 1 a(k1) = 1.0 + xn(k) - yn(k+1) * ( gamman(k) + expn(k) ) b(k1) = 1.0 - xn(k) - yn(k+1) * ( gamman(k) - expn(k) ) c(k1) = yn(k+1) * ( 1.0 + xn(k+1) ) - expn(k+1) - gamman(k+1) r(k1) = caddn0(k+1) - caddn(k) - yn(k+1) * & & ( cminn0(k+1) - cminn(k) ) a(k2) = gamman(k) - expn(k) - zn(k) * ( 1.0 - xn(k) ) b(k2) = -1.0 - xn(k+1) + zn(k) * ( expn(k+1) + gamman(k+1) ) c(k2) = zn(k) * ( expn(k+1) - gamman(k+1) ) - xn(k+1) + 1.0 r(k2) = cminn0(k+1) - cminn(k) - zn(k) * & & ( caddn0(k+1) - caddn(k) ) 50 end do if ( ib .le. mbs ) then rsfc = asbs ssfc = 3.1415927 * u0(1) * exp(-t(nv)/u0(1)) * rsfc * & & f0(1) else rsfc = 1.0 - ee ssfc = 3.1415927 * asbs endif wm1 = 1.0 - rsfc * gamman(nv) wm2 = xn(nv) - rsfc * expn(nv) a(nv * 2) = wm1 + wm2 b(nv * 2) = wm1 - wm2 c(nv * 2) = 0.0 r(nv * 2) = rsfc * cminn(nv) - caddn(nv) + ssfc call tridag ( a, b, c, r, u, gam, nv * 2 ) do k = 1, nv k1 = k + k - 1 k2 = k + k aa(k) = u(k1) + u(k2) bb(k) = u(k1) - u(k2) 60 end do return end subroutine subroutine tridag ( a, b, c, r, u, gam, n ) implicit none integer :: n real, dimension(n) :: a, b, c, r, u, gam integer :: i, j real :: bet if ( b(1) .eq. 0. ) then CALL wrf_error_fatal3("",13940,& 'subroutine tridag failed. Stop program') endif bet = b(1) u(1) = r(1) / bet do j = 2, n gam(j) = c(j-1) / bet bet = b(j) - a(j) * gam(j) if ( bet .eq. 0. ) then CALL wrf_error_fatal3("",13954,& 'subroutine tridag failed. Stop program') endif u(j) = ( r(j) - a(j) * u(j-1) ) / bet 11 end do do j = n - 1, 1, -1 u(j) = u(j) - gam(j+1) * u(j+1) 12 end do return end subroutine subroutine qftsts ( nv, nv1, ib, as_in, u0, f0, & & ww1,ww2,ww3,ww4,ww,tt, & & ffu,ffd ) USE PARA_FILE implicit none integer :: nv, nv1 integer, intent(in) :: ib real, intent(in) :: as_in, u0, f0 real, intent(in), dimension(nv) :: ww1, ww2, ww3, ww4, ww, tt real, dimension(nv) :: w1, w2, w3, w, t, u0a, f0a real, intent(out), dimension(nv1) :: ffu, ffd real, dimension(nv) :: lamdan, gamman, caddn, cminn, & & caddn0, cminn0, aa, bb, expn, g1g2n integer :: n, m, k, i real :: ee, asbs, fw3, xx, yy(nv) n = nv m = nv1 ee = 0.0 asbs = as_in call adjust ( nv,nv1,ww1,ww2,ww3,ww4,ww,tt,w1,w2,w3,w,t ) do i = 1, n u0a(i) = u0 f0a(i) = f0 5 end do call qccgts ( nv,nv1,ib, asbs, ee, & & w1,w2,w3,w,t,u0a,f0a, & & lamdan,gamman,caddn,cminn, & & caddn0,cminn0,aa,bb,expn,g1g2n ) fw3 = u0 * 3.1415927 * f0 do k = 1, nv yy(k) = exp(-t(k)/u0) enddo xx = aa(1) * expn(1) ffu(1) = xx + gamman(1) * bb(1) + caddn0(1) ffd(1) = gamman(1) * xx + bb(1) + cminn0(1) + fw3 do i = 2, m k = i - 1 xx = bb(k) * expn(k) ffu(i) = aa(k) + gamman(k) * xx + caddn(k) ffd(i) = gamman(k) * aa(k) + xx + cminn(k) + fw3 * yy(k) 10 end do return end subroutine subroutine qftits ( nv, nv1, ib, as_in, f0, u0, & & ww1,ww2,ww3,ww4,ww,tt, & & ffu,ffd ) USE PARA_FILE implicit none integer :: nv, nv1 integer, intent(in) :: ib real, intent(in) :: as_in real, dimension(nv) :: f0, u0 real, intent(in), dimension(nv) :: ww1, ww2, ww3, ww4, ww, tt real, dimension(nv) :: w1, w2, w3, w, t, u0a, f0a real, intent(out), dimension(nv1) :: ffu, ffd real, dimension(nv) :: lamdan, gamman, caddn, cminn, & & caddn0, cminn0, aa, bb, expn, g1g2n integer :: n, m, k, i real :: asbs, fw3, xx, yy(nv), t0, q1, q2, deltau real :: ee, bf(nv1), bs n = nv m = nv1 asbs = bs * ee call adjust ( nv,nv1,ww1,ww2,ww3,ww4,ww,tt,w1,w2,w3,w,t ) t0 = 0.0 do i = 1, n q1 = alog ( bf(i+1) / bf(i) ) deltau = t(i) -t0 if (deltau .lt. 1.e-12) deltau = 1.e-12 q2 = 1.0 / deltau f0(i) = 2.0 * ( 1.0 - w(i) ) * bf(i) if ( abs(q1) .le. 1.0e-10 ) then u0(i) = - 1.0e+10 / q2 else u0(i) = - 1.0 / ( q1 * q2 ) endif t0 = t(i) 3 end do call qccgts ( nv,nv1,ib, asbs, ee, & & w1,w2,w3,w,t,u0a,f0a, & & lamdan,gamman,caddn,cminn, & & caddn0,cminn0,aa,bb,expn,g1g2n ) xx = aa(1) * expn(1) ffu(1) = xx + gamman(1) * bb(1) + caddn0(1) ffd(1) = gamman(1) * xx + bb(1) + cminn0(1) do i = 2, m k = i - 1 xx = bb(k) * expn(k) ffu(i) = aa(k) + gamman(k) * xx + caddn(k) ffd(i) = gamman(k) * aa(k) + xx + cminn(k) 10 end do return end subroutine subroutine qftisf ( nv, nv1, ib, ee, bf, bs, & & ww1, ww2, ww3, ww4, ww, tt, & & ffu, ffd ) USE PARA_FILE USE control_para, only: quadra implicit none integer :: nv, nv1 integer, parameter :: nq = 2 integer :: ib real :: ee, bf(nv1), bs real, dimension(nv) :: ww1, ww2, ww3, ww4, ww, tt real, dimension(nv) :: w1, w2, w3, w, t, u0, f0 real, dimension(nv1) :: ffu, ffd real, dimension(nv) :: lamdan, gamman, caddn, cminn, & caddn0, cminn0, aa, bb, expn, g1g2n real, dimension(nv) :: fuq1, fuq2, fg, fh, fj, fk real, dimension(nv1,nq) :: fiu, fid integer :: n, m, i, j, i1 real :: ugts1, asbs, t0, q1, q2, deltau, xgy, x, y1, y, z, & & xx, yy, tempugbeta, tempxxp1, tempxxm1, ugbeta real :: alfa(nv+1), beta(nv) real :: fx(nv,nq), fy(nv), fz1(nv,nq), fz2(nv,nq) real :: ug(nq), wg(nq), ugwg(nq) data ug / 0.2113248, 0.7886752 / data wg / 0.5, 0.5 / data ugwg / 0.105662, 0.394338 / if ( quadra ) then ugts1 = 0.57735 else ugts1 = 0.5 endif n = nv m = nv1 asbs = bs * ee call adjust ( nv,nv1,ww1,ww2,ww3,ww4,ww,tt,w1,w2,w3,w,t ) t0 = 0.0 do i = 1, n q1 = alog ( bf(i+1) / bf(i) ) deltau = t(i) -t0 if (deltau .lt. 1.e-12) deltau = 1.e-12 q2 = 1.0 / deltau f0(i) = 2.0 * ( 1.0 - w(i) ) * bf(i) if ( abs(q1) .le. 1.0e-10 ) then u0(i) = - 1.0e+10 / q2 else u0(i) = - 1.0 / ( q1 * q2 ) endif t0 = t(i) beta(i) = - 1.0 / u0(i) enddo call qccgts ( nv,nv1,ib, asbs, ee, & & w1,w2,w3,w,t,u0,f0, & & lamdan,gamman,caddn,cminn, & & caddn0,cminn0,aa,bb,expn,g1g2n ) do i = 1, n xgy = lamdan(i)*lamdan(i) - beta(i) * beta(i) if(abs(xgy).le.1.e-4) xgy = 1.e-4 x = 2.0 * ( 1.0 - w(i) ) * w(i) / xgy y1 = w1(i) / 3.0 y = 2.0 * ( 1.0 - w(i) * y1 ) z = -y1 * beta(i) fuq1(i) = x * ( y - z ) + 1.0 - w(i) fuq2(i) = x * ( y + z ) + 1.0 - w(i) enddo do i = 1, n + 1 alfa(i) = 6.2832 * bf(i) enddo x = 1.0 / ugts1 do i = 1, n y = gamman(i) * ( x + lamdan(i) ) z = x - lamdan(i) fg(i) = aa(i) * z fh(i) = bb(i) * y fj(i) = aa(i) * y fk(i) = bb(i) * z enddo do j = 1, nq fid(1,j) = 0.0 enddo do j = 1, nq t0 = 0.0 do i = 2, nv1 i1 = i - 1 fx(i1,j) = exp ( - ( t(i1) - t0 ) / ug(j) ) fy(i1) = expn(i1) xx = lamdan(i1) * ug(j) tempugbeta = ug(j) * beta(i1) + 1.0 tempxxp1 = xx + 1.0 tempxxm1 = xx - 1.0 if (tempugbeta.eq.0.) tempugbeta = 1.e-4 if (tempxxp1.eq.0.) tempxxp1 = 1.e-4 if (tempxxm1.eq.0.) tempxxm1 = 1.e-4 fz1(i1,j) = ( 1.0 - fx(i1,j) * fy(i1) ) / ( tempxxp1 ) fz2(i1,j) = ( fx(i1,j) - fy(i1) ) / ( tempxxm1 ) fid(i,j) = fid(i1,j) * fx(i1,j) + fj(i1) * fz1(i1,j) + & & fk(i1) * fz2(i1,j) + & & 1.0 / ( tempugbeta ) * & & ( alfa(i) - alfa(i1) * fx(i1,j) ) * fuq2(i1) t0 = t(i1) enddo enddo yy = 0.0 do j = 1, nq yy = yy + ugwg(j) * fid(nv1,j) enddo xx = yy * ( 1.0 - ee ) * 2.0 + 6.2831854 * ee * bs do j = 1, nq fiu(nv1,j) = xx enddo do j = 1, nq do i = nv1 - 1, 1, -1 ugbeta = ug(j)*beta(i) if (ugbeta.eq.1.) ugbeta = 1.0001 fiu(i,j) = fiu(i+1,j) * fx(i,j) + fg(i) * fz2(i,j) + & & fh(i) * fz1(i,j) + & & 1.0 / ( ugbeta - 1.0 ) * & & ( alfa(i+1) * fx(i,j) - alfa(i) ) * fuq1(i) enddo enddo do i = 1, nv1 ffu(i) = 0.0 ffd(i) = 0.0 enddo do i = 1, nv1 do j = 1, nq ffu(i) = ffu(i) + ugwg(j) * fiu(i,j) ffd(i) = ffd(i) + ugwg(j) * fid(i,j) enddo enddo return end subroutine subroutine atau_spline_iaform3(wli,aoti,aotf,wlf,irh,itp) USE PARA_FILE USE aot_spect_5, wlo2=>wlo implicit none integer :: irh,itp real, dimension(mxat) :: aoti, wli real, dimension(nwo) :: aoto, wlo real, dimension(nsub,nfuo) :: aoto2 real, dimension(15) :: aotf, wlf integer :: ii, jj, kk, i, j real :: zord kk=0 do jj=1,nfuo do ii=1,nsub kk=kk+1 wlo(kk) = wlo2(ii,jj) enddo enddo call aot_ext & & (aoti,wli,wlo,aoto,irh,itp) kk=0 do jj=1,nfuo do ii=1,nsub kk=kk+1 aoto2(ii,jj)=aoto(kk) enddo enddo wlf=0.0 ; aotf =0.0 zord = 0.0 do j=1,nfuo do i = 1,nsub wlf(j) = wlf(j)+ wlo2(i,j) * hkas(i,j) aotf(j)= aotf(j)+ aoto2(i,j) * hkas(i,j) zord = zord + sflx (i,j)*exp(-aoto2(i,j)) enddo enddo return end subroutine subroutine aot_ext (aotin,wlin,wlo,aoto,irh,ityp) USE PARA_FILE USE control_para, nwin=>n_atau USE opac_ext, wlopac=>wl, datopac=>edat USE mineral_ext, wlt=>wl, datt=>dat USE dalm_ext, wld=>wl, datd=>dat implicit none integer :: irh,ityp real ,dimension(mxat) :: aotin,wlin real ,dimension(-100:100) :: aoti,wlix real ,dimension(nwo) :: aoto,wlo real ,dimension(24) :: wlp,extp integer :: idtl, nes, nel, nb, nwi, iend, i, nq integer :: ne = 24 real :: ext_norm1, ext_norm0 idtl=-1 if ( ityp >= 1 .and. ityp <=3 )then wlp = wld extp = datd(1:24,irh,ityp) idtl=1 elseif ( ityp >=4 .and. ityp <= 8) then wlp = wlt extp = datt(1:24,ityp) idtl=2 elseif ( ityp >=9 .and. ityp <= 18) then wlp = wlopac if (ityp==10 .or. ityp==12 .or.ityp==13 .or.ityp==18 ) then extp = datopac(1:24,irh,ityp) else extp = datopac(1:24, 1,ityp) endif idtl=3 else CALL wrf_error_fatal3("",14410,& 'Bad Aerosol type. Stop program') endif if(nwin==1)then if(wlin(1)<=.325.or.wlin(1)>=.675) & & CALL wrf_error_fatal3("",14419,& 'OUT OF ALLOWABLE ARANGE. STOP program') nes=-(wlin(1)-0.325)/0.05; if(idtl==3) nes=nes-1 nel=22+nes else nes=0 if(idtl==1)then nel=8 elseif(idtl==2)then nel=11 elseif(idtl==3)then nel=7 endif endif nb = ne+1-nel nwi = nwin+nel-nes+1 iend = nwin+nel wlix(1:nwin) =wlin(1:nwin) aoti(1:nwin)=aotin(1:nwin) LONGSIDE: do i=1,ne if(wlix(nwin)>=wlp(i).and.wlix(nwin)<=wlp(i+1))then ext_norm1=rlnintrp(wlp(i),wlp(i+1),extp(i),extp(i+1), & & wlix(nwin)) exit LONGSIDE endif enddo LONGSIDE wlix(nwin+1:iend)=wlp(nb:ne) aoti(nwin+1:iend)=aoti(nwin)*(extp(nb:ne)/ext_norm1) if(nwin==1)then SHORTSIDE: do i=1,ne if(wlix(1)>=wlp(i).and.wlix(1)<=wlp(i+1))then ext_norm0= rlnintrp( wlp(i),wlp(i+1), & & extp(i),extp(i+1),wlix(1)) exit SHORTSIDE endif enddo SHORTSIDE nq=-nes+1 wlix(nes:0)=wlp(1:nq) aoti(nes:0)=aoti(1)*(extp(1:nq)/ext_norm0) else wlix(0)=0.001 aoti(0)=1 endif call aotspline(nwi,aoti(nes:iend),wlix(nes:iend),nwo,wlo,aoto) return end subroutine real function rlnintrp(x1,x2,y1,y2, x) implicit none real :: x, x1, x2, y1, y2, dx, dy, dx1, yy dx= log(x2) - log(x1) dy= log(y2) - log(y1) dx1=log(x) - log(x1) yy= (dy/dx) * dx1 rlnintrp = exp(log(y1)+yy) return end function subroutine aotspline(nwi,aoti,wli,nwo,wlo,aoto) implicit none integer :: nwi, nwo real ,dimension(nwi) :: aoti,wli real ,dimension(nwi+1):: xa,ya,y2a real ,dimension(nwo) :: aoto,wlo,aa integer :: nwi2, iwo real :: x, y real :: yp1 = 1.0E+32, ypn = 1.0E+32 nwi2=nwi+1 xa(2:nwi+1)=log(wli(1:nwi)) ya(2:nwi+1)=log(aoti(1:nwi)) xa(1)=log(1.0E-6) ya(1)=0 call spline(xa,ya,nwi2,yp1,ypn,y2a) do iwo = 1,nwo x=log(wlo(iwo)) call splint(xa,ya,y2a,nwi2,x,y) aoto(iwo)=exp(y) enddo return end subroutine real function alphav(aot1,aot2,wl1,wl2) implicit none real :: aot1, aot2, wl1, wl2, ar, wr ar= aot1/aot2 wr= wl1/wl2 alphav = - log(ar)/ log(wr) return end function SUBROUTINE spline(x,y,n,yp1,ypn,y2) implicit none INTEGER :: n REAL :: yp1,ypn,x(n),y(n),y2(n) INTEGER :: i,k REAL :: p,qn,sig,un,u(500) if (yp1.gt..99e30) then y2(1)=0. u(1)=0. else y2(1)=-0.5 u(1)=(3./(x(2)-x(1)))*((y(2)-y(1))/(x(2)-x(1))-yp1) endif do i=2,n-1 sig=(x(i)-x(i-1))/(x(i+1)-x(i-1)) p=sig*y2(i-1)+2. y2(i)=(sig-1.)/p u(i)=(6.*((y(i+1)-y(i))/(x(i+1)- & & x(i))-(y(i)-y(i-1))/(x(i)-x(i-1)))/(x(i+1)-x(i-1))- & & sig*u(i-1))/p 11 end do if (ypn.gt..99e30) then qn=0. un=0. else qn=0.5 un=(3./(x(n)-x(n-1)))*(ypn-(y(n)-y(n-1))/(x(n)-x(n-1))) endif y2(n)=(un-qn*u(n-1))/(qn*y2(n-1)+1.) do k=n-1,1,-1 y2(k)=y2(k)*y2(k+1)+u(k) 12 end do return END SUBROUTINE SUBROUTINE splint(xa,ya,y2a,n,x,y) implicit none INTEGER :: n REAL :: x,y,xa(n),y2a(n),ya(n) INTEGER :: k,khi,klo REAL :: a,b,h klo=1 khi=n do while (khi-klo.gt.1) k=(khi+klo)/2 if(xa(k).gt.x)then khi=k else klo=k endif end do h=xa(khi)-xa(klo) if (h.eq.0.) CALL wrf_error_fatal3("",14608,& 'bad xa input in splint. STOP program') a=(xa(khi)-x)/h b=(x-xa(klo))/h y=a*ya(klo)+b*ya(khi)+((a**3-a)*y2a(klo)+(b**3-b)*y2a(khi))*(h** & & 2)/6. return END subroutine SUBROUTINE polint(xa,ya,n,x,y,dy) implicit none INTEGER :: n REAL :: dy,x,y,xa(n),ya(n) INTEGER :: i,m,ns REAL :: den,dif,dift,ho,hp,w,c(10),d(10) ns=1 dif=abs(x-xa(1)) do i=1,n dift=abs(x-xa(i)) if (dift.lt.dif) then ns=i dif=dift endif c(i)=ya(i) d(i)=ya(i) 11 end do y=ya(ns) ns=ns-1 do m=1,n-1 do i=1,n-m ho=xa(i)-x hp=xa(i+m)-x w=c(i+1)-d(i) den=ho-hp if(den.eq.0.) CALL wrf_error_fatal3("",14644,& 'failure in polint. STOP program') den=w/den d(i)=hp*den c(i)=ho*den 12 end do if (2*ns.lt.n-m)then dy=c(ns+1) else dy=d(ns) ns=ns-1 endif y=y+dy 13 end do return END SUBROUTINE subroutine ql_rh(rh,tl,pl,ql) implicit none real :: rh, tl, pl, ql real :: es, ws es=satvap(tl) ws=0.622*es/(pl-es) rh= ql/ws *100. return end subroutine real function satvap(temp2) implicit none real :: temp2, temp, toot, toto, eilog, tsot, & & ewlog, ewlog2, ewlog3, ewlog4 temp = temp2-273.155 if (temp.lt.-20.) then toot = 273.16 / temp2 toto = 1 / toot eilog = -9.09718 * (toot - 1) - 3.56654 * (log(toot) / & & log(10.)) + .876793 * (1 - toto) + (log(6.1071) / log(10.)) satvap = 10 ** eilog else tsot = 373.16 / temp2 ewlog = -7.90298 * (tsot - 1) + 5.02808 * & & (log(tsot) / log(10.)) ewlog2 = ewlog - 1.3816e-07 * & & (10 ** (11.344 * (1 - (1 / tsot))) - 1) ewlog3 = ewlog2 + .0081328 * & & (10 ** (-3.49149 * (tsot - 1)) - 1) ewlog4 = ewlog3 + (log(1013.246) / log(10.)) satvap = 10 ** ewlog4 end if return end function subroutine aerosol_init(nv,nv1,pp,pt,ph,po,dz, & a_tau1,a_ssa1,a_asy1, & a_tau2,a_ssa2,a_asy2, & a_wlis,a_taus,aprofs & ) USE PARA_FILE USE control_para USE aerosol1 USE aerosol2 implicit none integer :: nv, nv1 real, dimension(nv1) :: pp, pt, ph, po real :: dz(nv) integer :: iq,mtop,n,m,ict,ix,iy,irh,krh,iac,itp real, dimension(nvx) :: tauxxx real, dimension(nvx,mbx,mxac) :: a_tau1,a_ext1,a_ssa1,a_asy1 real, dimension(nvx,mby,mxac) :: a_tau2,a_ext2,a_ssa2,a_asy2 real ,dimension(nvx) :: taux1,taux2,rh,ht,rhp real :: sumxxx real,dimension(mxat) :: a_wli,a_tau real,dimension(nvx) :: aprof real,dimension(nvx,mbx) :: wvd_x real,dimension(nvx,mby) :: wvd_y real :: p1,h1,z,sig,tp real :: rhx(nrh) = (/0.,50.,70.,80.,90.,95.,98.,99./) real :: wts(4) = (/.23015,.28274,.25172,.23539/) real :: tau3(2),tau3y(4) real :: aotf(15),wlf(15),sump,rirh real,dimension(mxat,mxac) :: a_wlis,a_taus real,dimension(nvx,mxac) :: aprofs rh = -9999. a_ssa1 = 0. ; a_ext1 = 0. ; a_asy1 = 0. ; a_tau1 = 0. a_ssa2 = 0. ; a_ext2 = 0. ; a_asy2 = 0. ; a_tau2 = 0. if (n_atau<0 .or.n_atau>mxat) CALL wrf_error_fatal3("",14829,& 'errro in Aerosol Tau / Wavelengths. STOP program') if (ifg < 0 .or. ifg > 8) CALL wrf_error_fatal3("",14831,& 'Error in ifg: Aerosol RH% Flag. STOP program') AEROSOL_CONSTITUENTS : do iac = 1,mxac if (itps(iac).eq.1) then a_wli(1:n_atau) = a_wlis(1:n_atau,iac) a_tau(1:n_atau) = a_taus(1:n_atau,iac) aprof(1:nv) = aprofs(1:nv,iac) itp = iac if ( itp < 1 .or. itp > naer ) CALL wrf_error_fatal3("",14841,& 'Error in itp: bad Aerosol type. STOP program') if (itp==1 .or. itp==2 .or. itp==3 .or. & & itp==10 .or. itp==12 .or.itp==13 .or. itp==18 ) then else do krh=2,8 a_extx(1:mbx,krh,itp)= a_extx(1:mbx,1,itp) a_ssax(1:mbx,krh,itp)= a_ssax(1:mbx,1,itp) a_asyx(1:mbx,krh,itp)= a_asyx(1:mbx,1,itp) a_exty(1:mby,krh,itp)= a_exty(1:mby,1,itp) a_ssay(1:mby,krh,itp)= a_ssay(1:mby,1,itp) a_asyy(1:mby,krh,itp)= a_asyy(1:mby,1,itp) enddo endif z=0. m=nv iq=0 do while (iq.eq.0) ht(m)=(z*2.+dz(m))/2. z=z+dz(m) if (z.gt.15.) then iq=1 mtop=m endif p1=(pp(m)+pp(m+1))/2. tp=(pt(m)+pt(m+1))/2. h1=(ph(m)+ph(m+1))/2. call ql_rh(rh(m),tp,p1,h1) if (rh(m).gt.98.9) rh(m)=98.9 if ((rh(m).lt..01).and.(rh(m).gt.-999.)) rh(m)=0. m=m-1 end do do m=mtop,nv do n=1,mbx if (rh(m).eq.-9999.) then a_ext1(m,n,iac)=-9999. a_ssa1(m,n,iac)=-9999. a_asy1(m,n,iac)=-9999. else if (ifg.eq.0) then ict=2 do while (rh(m).ge.rhx(ict)) ict=ict+1 end do a_ext1(m,n,iac)=a_extx(n,ict-1,itp)+(rh(m)-rhx(ict-1))/ & & (rhx(ict)-rhx(ict-1))*(a_extx(n,ict,itp)-a_extx(n,ict-1,itp)) a_ssa1(m,n,iac)=a_ssax(n,ict-1,itp)+(rh(m)-rhx(ict-1))/ & & (rhx(ict)-rhx(ict-1))*(a_ssax(n,ict,itp)-a_ssax(n,ict-1,itp)) a_asy1(m,n,iac)=a_asyx(n,ict-1,itp)+(rh(m)-rhx(ict-1))/ & & (rhx(ict)-rhx(ict-1))*(a_asyx(n,ict,itp)-a_asyx(n,ict-1,itp)) rhp(m) = rh(m) else a_ext1(m,n,iac)=a_extx(n,ifg,itp) a_ssa1(m,n,iac)=a_ssax(n,ifg,itp) a_asy1(m,n,iac)=a_asyx(n,ifg,itp) endif endif end do do n=1,mby if (rh(m).eq.-9999.) then a_ext2(m,n,iac)=-9999. a_ssa2(m,n,iac)=-9999. a_asy2(m,n,iac)=-9999. else if (ifg.eq.0) then ict=2 do while (rh(m).ge.rhx(ict)) ict=ict+1 end do a_ext2(m,n,iac)=a_exty(n,ict-1,itp)+(rh(m)-rhx(ict-1))/ & & (rhx(ict)-rhx(ict-1))*(a_exty(n,ict,itp)-a_exty(n,ict-1,itp)) a_ssa2(m,n,iac)=a_ssay(n,ict-1,itp)+(rh(m)-rhx(ict-1))/ & & (rhx(ict)-rhx(ict-1))*(a_ssay(n,ict,itp)-a_ssay(n,ict-1,itp)) a_asy2(m,n,iac)=a_asyy(n,ict-1,itp)+(rh(m)-rhx(ict-1))/ & & (rhx(ict)-rhx(ict-1))*(a_asyy(n,ict,itp)-a_asyy(n,ict-1,itp)) else a_ext2(m,n,iac)=a_exty(n,ifg,itp) a_ssa2(m,n,iac)=a_ssay(n,ifg,itp) a_asy2(m,n,iac)=a_asyy(n,ifg,itp) endif endif end do end do select case (ivd) case default CALL wrf_error_fatal3("",14965,& 'ivd : Aerosol Profile flag. STOP program') case (0) sumxxx=0.0 do m=mtop,nv sig = spinhirne_sig( ht(m)) tauxxx(m) = spinhirne_tau(sig,a_ssa2(m,9,iac),dz(m)) sumxxx = sumxxx + tauxxx(m) enddo do m=mtop,nv tauxxx(m) = tauxxx(m) / sumxxx enddo case (1:2) sump = sum( aprof(mtop:nv) ) tauxxx(mtop:nv)= aprof(mtop:nv) / sump if(sump.eq.0.) CALL wrf_error_fatal3("",14990,& 'No VERTICAL Profile OF AEROSOL TAU. STOP program') end select select case ( iaform ) case default CALL wrf_error_fatal3("",15017,& 'iaform : Bad value of iaform . STOP program') case(1) case(2) tau3(1)=a_tau(1)*wts(1)+a_tau(2)*wts(2)+ & & a_tau(3)*wts(3)+a_tau(4)*wts(4) tau3(2)=a_tau(5) tau3y(1)=a_tau(1) tau3y(2)=a_tau(1)+.6705*(a_tau(2)-a_tau(1)) tau3y(3)=a_tau(2)+.4541*(a_tau(3)-a_tau(2)) tau3y(4)=a_tau(3)*.5175+a_tau(4)*.4825 case(3) if ( ifg == 0 ) then rirh=0 do m =mtop,nv rirh = rirh + rhp(m)* tauxxx(m) enddo irh =1 do ix= 1,7 if( rirh >= rhx(ix) .and. rirh < rhx(ix+1) ) irh=ix enddo if( rirh >= rhx(8) ) irh =8 else irh = ifg endif where ( a_tau .lt. 1.0E-20) a_tau = 1.0E-20 call atau_spline_iaform3(a_wli,a_tau,aotf,wlf,irh,itp) do iy = 1,mby wvd_y(mtop:nv,iy)=tauxxx(mtop:nv) & & *a_ext2(mtop:nv,iy,iac)/a_exty(iy,irh,itp) sump = sum( wvd_y(mtop:nv,iy) ) wvd_y(mtop:nv,iy) = wvd_y(mtop:nv,iy) /sump enddo do ix = 1,mbx wvd_x(mtop:nv,ix)=tauxxx(mtop:nv) & & *a_ext1(mtop:nv,ix,iac)/a_extx(ix,irh,itp) sump = sum( wvd_x(mtop:nv,ix) ) wvd_x(mtop:nv,ix) = wvd_x(mtop:nv,ix) /sump enddo end select VERTICAL : do m=mtop,nv select case ( iaform ) case(1) a_tau1(m,1,iac) = a_tau(1) * tauxxx(m) a_tau1(m,2:18,iac)= a_tau1(m,1,iac)* & & a_ext1(m,2:18,iac)/a_ext1(m,1,iac) a_tau2(m,9,iac) = a_tau(1) * tauxxx(m) a_tau2(m,1:10,iac)=a_tau2(m,9,iac)* & & a_ext2(m,1:10,iac)/a_ext2(m,9,iac) case(2) a_tau1(m,1:2,iac) = tau3(1:2) * tauxxx(m) a_tau1(m,3:18,iac)=a_tau1(m,2,iac)* & & a_ext1(m,3:18,iac)/a_ext1(m,2,iac) a_tau2(m,7:10,iac) = tau3y(1:4) * tauxxx(m) a_tau2(m,1:6,iac) = a_tau2(m,7,iac)* & & a_ext2(m,1:6,iac)/a_ext2(m,7,iac) case(3) a_tau2(m,1:10,iac) = aotf(1:10) * wvd_y(m,1:10) a_tau1(m,1,iac) = aotf(9) * wvd_x(m,1) a_tau1(m,2:6,iac) = aotf(11:15) * wvd_x(m,2:6) a_tau1(m,7:18,iac) =a_tau1(m,2,iac)* & & a_ext1(m,7:18,iac)/a_ext1(m,2,iac) end select enddo VERTICAL end if enddo AEROSOL_CONSTITUENTS return end subroutine subroutine aerosolxy ( nv, nv1, ib,cmode,a_tau1,a_ssa1,a_asy1, & a_tau2,a_ssa2,a_asy2,tae,wae,wwae & ) USE PARA_FILE USE control_para implicit none integer :: nv, nv1 character*1 :: cmode integer :: i,ib,iac real :: x1,x2,x3,x4,y1,y2,y3,y4 real ,dimension(nvx,18,mxac) :: a_tau1,a_ssa1,a_asy1 real ,dimension(nvx,10,mxac) :: a_tau2,a_ssa2,a_asy2 real :: tae(nvx,mxac), wae(nvx,mxac), wwae(nvx,4,mxac) AEROSOL_CONSTITUENTS : do iac=1,mxac if (itps(iac).eq.1) then LEVELS : do i = 1, nv select case (cmode) case ('x') tae(i,iac) = a_tau1(i,ib,iac) wae(i,iac) = a_ssa1(i,ib,iac) x1 = a_asy1(i,ib,iac) case ('y') tae(i,iac) = a_tau2(i,ib,iac) wae(i,iac) = a_ssa2(i,ib,iac) x1 = a_asy2(i,ib,iac) end select x2 = x1 * x1 x3 = x2 * x1 x4 = x3 * x1 y1 = 3.0 * x1 y2 = 5.0 * x2 y3 = 7.0 * x3 y4 = 9.0 * x4 wwae(i,1,iac) = y1 wwae(i,2,iac) = y2 wwae(i,3,iac) = y3 wwae(i,4,iac) = y4 enddo LEVELS end if enddo AEROSOL_CONSTITUENTS return end subroutine real function spinhirne_sig(ht) implicit none real :: ht real :: sig0 = 0.025 , & & a = 0.4 , & & ap = 2981.0, & & b = 1.6 , & & bp = 2.5 , & & f = 1.5e-7 real t1, t2, t3, t4, t5, t6 t1= sig0*(1+a)**2 t4 = f*(1+ap)**2 t2 = exp(ht/b) t3 = (a+exp(ht/b))**2 t5 = exp(ht/bp) t6 = (a+exp(ht/bp))**2 spinhirne_sig=t1*t2/t3+t4*t5/t6 return end function spinhirne_sig real function spinhirne_tau(sig,ssa,dz) implicit none real sig, ssa, dz, ext ext = sig / ssa spinhirne_tau = ext / dz return end function spinhirne_tau subroutine o3prof (iprof, kts, kte, p, o3) USE module_ozone implicit none integer iprof, kts, kte integer k, kk, ks, ke real p(kts:kte), o3(kts:kte), lp(kts:kte), lpres(np) real Linear, x1, y1, x2, y2, x Linear(x1, y1, x2, y2, x) = & (y1 * (x2 - x) + y2 * (x - x1)) / (x2 - x1) do k = 1,np lpres(k) = alog(pres(k,iprof)) enddo do k = kts,kte lp(k) = alog(p(k)) end do ks = kts ke = kte do while (lp(ke).le.lpres(1)) o3(ke) = Linear (lpres(1), ozone(1,iprof), & lpres(2), ozone(2,iprof), & lp(ke)) if (o3(ke).lt.0.0) o3(ke) = 0.0 ke = ke - 1 end do do while (lp(ks).ge.lpres(np)) o3(ks) = Linear (lpres(np), ozone(np,iprof), & lpres(np-1), ozone(np-1,iprof), & lp(ks)) if (o3(ks).lt.0.0) o3(ks) = 0.0 ks = ks + 1 end do kk = np do k = ks, ke do while (lp(k).lt.lpres(kk).and.kk.gt.1) kk = kk - 1 end do o3(k) = Linear (lpres(kk), ozone(kk,iprof), & lpres(kk+1), ozone(kk+1,iprof), & lp(k)) end do end subroutine o3prof END MODULE module_ra_FLG