MODULE PARA_FILE 71 implicit none !vertical layer parameters integer, parameter :: & ! & nv = 27, & ! & nv1 = nv + 1, & ! & ndfs = nv, & ! & ndfs2 = ndfs * 2, & ! & mdfs = nv + 1, & ! & ndfs4 = 4 * ndfs, & & nvx = 100, & & nv1x = nvx + 1 !spectral band parameters integer, parameter :: mbs = 6, &!number of sw bands & mbir = 12, &!number of lw bands & mb = 18, &!number of bands & mbx = 18, &!number of bands & mby = 10 !number of sub-bands in 0.2-0.7 um !number of drop size distributions integer, parameter :: nc = 8 !fractional cloud parameters ! integer, parameter :: ngroup = 3, &!number of cloud groups integer, save :: ngroup = 3, &!number of cloud groups & nclouds , &!number of total cloud layers & nsubcld !number of cloud layers in a group ! & nclouds = 24, &!number of total cloud layers ! & nsubcld = 8 !number of cloud layers in a group ! & nclouds = nv, &!number of total cloud layers ! & nsubcld = nclouds/ngroup !number of cloud layers in a group !aerosol parameters integer, parameter :: nrh = 8, &!number of relative humidities for optical properties & naer = 18, &!max number of aerosol types & mxat = 7, &!max number of wavelength dependent aerosol optical depths & mxac = naer !max number of aerosol constituents !parameter for AOT_ SPLINEFIT integer, parameter :: nsub = 5 , & & nfuo = 15 , & & nwo = 75 integer, parameter :: icoln = 3 END module PARA_FILE !---------------------- Controlling Parameters ------------------------- MODULE control_para 11,1 use PARA_FILE implicit none integer, save :: NFRACT = 0, & !add for fractional cloud:=1, fraction; =0, no & NAERO = 0, & !add for aerosol: =0, no aerosol; = 1, aerosol uniform value included; =2, get data from file & NINHO = 0 , & ! if =0, horizontal homogenious; = 1, inhomogeneous & NINHO_VERT, & & NPDE = 2, & !add for ice crystal size parameterization: ! =4, para. via IWC & AOD using A-Tran satellite data; ! =3, para. via IWC using satellite data; ! =2, para. via IWC (Liou et al. 2008); ! =1, parameterize interms of T & IWC (Gu & Liou, 2006); ! =0, fixed value; ! NPDE = 3 & 4 is still under testing ---- CCCC & NGAS = 0, & !add for new gases: =0, no new gases; = 1, new gases included and takes longer computer time & NOZONE = 1 , & ! if =0, no ozone; = 1, predescribed profiles; = 2, input from WRF & NICE = 2 !add for cloud: !nice=0, use old ones (FLIce93); !nice=1, use new coefficients for ice by Feng; !nice=2, use new coefficients by Qing Yue 2006; !seperate tropics and midlatitute: nice = 3, tropics; nice = 4, midlat integer, save :: itps(mxac) = 0 , & !aerosol type: itps(iac)=1 stands for existing aerosol type iac & nfraca = 1 , & ! --if nfraca=0, use aerosol types and fractions passed from the driver ! nfraca=1, use precribed total AOD, aerosol types and fractions; ! nfraca=2, input total AOD, aerosol types and fractions from screen; ! nfraca=3, input aerosol types and optical depths. & ivd = 1 , & ! --if ivd=0, use Spinhirne Vertical tau distribution; ! ivd=1, use aer_scale_hgt; ! ivd=2, pass vertical tau from driver; ! ivd=3, inpput vertical AOD profile for each aerosol type & ifg = 0 , & !aerosol humidity dependence & iaform = 3 , & !iaform: 1 for CERES; 2 for CAGEX; 3 for AOT_ SPLINEFIT & n_atau = 1 !n_atau:# Aerosol Tau / Wavelengths 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 !-- if ngas = 0, use old gas; if ngas = 1, add new trace gases following ZF et al. (2006) 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 !---------------------- begin ozone data ------------------------------- module module_ozone 1 implicit none integer, parameter :: np = 75 integer :: i real :: pres(np,5), ozone(np,5) !-------------------------------------------------------------------------------- ! data set 1 ! mid-latitude summer (75 levels) : p(mb) o3(g/g) ! surface temp = 294.0 ! 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 set 2 ! mid-latitude winter (75 levels) : p(mb) o3(g/g) ! surface temp = 272.2 ! 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 set 3 ! sub-arctic summer (75 levels) : p(mb) o3(g/g) ! surface temp = 287.0 ! 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 set 4 ! sub-arctic winter (75 levels) : p(mb) o3(g/g) ! surface temp = 257.1 ! 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 set 5 ! tropical (75 levels) : p(mb) o3(g/g) ! surface temp = 300.0 ! 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 !---------------------- begin ice block data --------------------------- ! block data ice0 module ice0 1,1 !c ********************************************************************* !c ap and bp are empirical coefficients of Eqs. (2.9) and (2.10) to !c calculate the extiction coefficient (1/m) and single scattering !c albedo, cps and dps are empirical coefficients of Eq. (2.13) to !c compute the expansion coefficients of the phase function (1, 2, !c 3, 4) in the solar bands, cpir is the empirical coefficients of !c Eq. (2.15) to calculate the asymmetry factor in the IR bands (Fu !c and Liou, 1992). The units of mean effective size and ice water !c content are um and g/m*m*m, respectively, in these equations. !c ********************************************************************* !# include "para.file" USE PARA_FILE ! common /ic0/ ap(3,mb), bp(4,mb), cps(4,4,mbs), dps(4,mbs),& ! cpir(4,mbir) 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 end module ice0 !CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC !C---- new coefficients for ice parameterization by Feng Zhang !CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC ! block data ice1 MODULE ice1 1,1 !c ********************************************************************* !c ap and bp are empirical coefficients of Eqs. (2.9) and (2.10) to !c calculate the extiction coefficient (1/m) and single scattering !c albedo, cps are empirical coefficients of Eq. (2.13) to !c compute the expansion coefficients of the phase function (1, 2, & !c 3, 4) in the solar bands, cpir is the empirical coefficients of !c Eq. (2.15) to calculate the asymmetry factor in the IR bands (Fu !c and Liou, 1992). The units of mean effective size and ice water !c content are um and g/m*m*m, respectively, in these equations. !c ********************************************************************* !# include "para.file" USE PARA_FILE !c changed by Z.F. ! common /ic1/ ap(3,mb), bp(4,mb), cps(4,4,mbs),& ! cpir(4,mbir) !c changing over implicit none real, save :: ap(3,mb), bp(4,mb), cps(4,4,mbs),& & cpir(4,mbir) data ap / & !c changed by Z.F. & -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,& !c changing over & -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,& !c-- changed by Z.F. for the windows domain in longwave spectral.^M & 0.160239, 0.495375, -4.38738,& & 0.165637, -0.438836, 1.54020,& & 0.172217, -1.49513, 10.56623,& !c changing over !C-- old ones !c 1 -9.609e-3, 3.768, 34.11, & !c 1 -1.153e-2, 4.109, 17.32, & !c 1 -8.294e-3, 3.925, 1.315, & !c-- over & -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 / & !c changed by Z.F. & -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,& !c changing over & .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,& !c-- changed by Z.F. for the windows domain in longwave spectral. & 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,& !c-- changed over !C-- old !c 1 .20370E+00, .42470E-02, -.18100E-04, .00000E+00, & !c 1 .23070E+00, .38300E-02, -.16160E-04, .00000E+00, & !c 1 .56310E+00, -.14340E-02, .62980E-05, .00000E+00, & !C-- over & .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 / & !c changed by Z.F. & 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/ !c changed over. 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,& !c-- changed by Z.F. for the windows domain in longwave spectral. & 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,& !c-- changed over. !C-- old !c 1 .88150, 9.858e-4, -3.116e-6, 0.000e+0, & !c 1 .91670, 5.499e-4, -1.507e-6, 0.000e+0, & !c 1 .90920, 9.295e-4, -3.877e-6, 0.000e+0, & !C-- & .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 !CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC !C---- new coefficients for ice parameterization by Qing Yue !CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC ! block data ice2 module ice2 1,1 !c ********************************************************************* !c ap and bp are empirical coefficients of Eqs. (2.9) and (2.10) to !c calculate the extiction coefficient (1/m) and single scattering !c albedo, cps are empirical coefficients of Eq. (2.13) to !c compute the expansion coefficients of the phase function (1, 2, & !c 3, 4) in the solar bands, cpir is the empirical coefficients of !c Eq. (2.15) to calculate the asymmetry factor in the IR bands (Fu !c and Liou, 1992). The units of mean effective size and ice water !c content are um and g/m*m*m, respectively, in these equations. !c ********************************************************************* !# include "para.file" USE PARA_FILE ! common /ic2/ ap(3,mb), bp(4,mb), cps(4,4,mbs), & ! cpir(4,mbir) implicit none real, save :: ap(3,mb), bp(4,mb), cps(4,4,mbs), & & cpir(4,mbir) data ap / & !C--- solar bands & -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,& !c--- IR bands & -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 / & !c--- solar bands & -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,& !c--- IR bands & 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 /& !c-- solar bands & 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/ !c--- IR bands 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 !CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC !C---- new coefficients for ice parameterization for tropics !CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC ! block data ice3 module ice3 1,1 !c ********************************************************************* !c ap and bp are empirical coefficients of Eqs. (2.9) and (2.10) to !c calculate the extiction coefficient (1/m) and single scattering !c albedo, cps are empirical coefficients of Eq. (2.13) to !c compute the expansion coefficients of the phase function (1, 2, & !c 3, 4) in the solar bands, cpir is the empirical coefficients of !c Eq. (2.15) to calculate the asymmetry factor in the IR bands (Fu !c and Liou, 1992). The units of mean effective size and ice water !c content are um and g/m*m*m, respectively, in these equations. !c ********************************************************************* !# include "para.file" USE PARA_FILE ! common /ic3/ ap(3,mb), bp(4,mb), cps(4,4,mbs),& ! cpir(4,mbir) implicit none real, save :: ap(3,mb), bp(4,mb), cps(4,4,mbs),& & cpir(4,mbir) data ap / & !C--- solar bands & -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,& !c--- IR bands & -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 / & !c--- solar bands & 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,& !c--- IR bands & 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 / & !c-- solar bands & 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/ !c--- IR bands 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 !CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC !C---- new coefficients for ice parameterization for midlatitude !CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC ! block data ice4 module ice4 1,1 !c ********************************************************************* !c ap and bp are empirical coefficients of Eqs. (2.9) and (2.10) to !c calculate the extiction coefficient (1/m) and single scattering !c albedo, cps are empirical coefficients of Eq. (2.13) to !c compute the expansion coefficients of the phase function (1, 2, & !c 3, 4) in the solar bands, cpir is the empirical coefficients of !c Eq. (2.15) to calculate the asymmetry factor in the IR bands (Fu !c and Liou, 1992). The units of mean effective size and ice water !c content are um and g/m*m*m, respectively, in these equations. !c ********************************************************************* !# include "para.file" USE PARA_FILE ! common /ic4/ ap(3,mb), bp(4,mb), cps(4,4,mbs), & ! cpir(4,mbir) implicit none real, save :: ap(3,mb), bp(4,mb), cps(4,4,mbs), & & cpir(4,mbir) data ap / & !C--- solar bands & -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,& !c--- IR bands & -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 / & !c--- solar bands & -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,& !c--- IR bands & 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 / & !c-- solar bands & 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/ !c--- IR bands 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 !************************************** !c Fu 07-08-98 ! block data ice5 module ice5 1,1 !c ********************************************************************* !c Following Fu (1996; J. Climate) and Fu et al. (1998; J. Climate), & !c ap is the empirical coefficients of Eq. (3.9a) of Fu (1996) and !c Eq. (3.1) of Fu et al. (1998) to calculate the extiction coefficient !c (1/m). bps is for the single scattering albedo in the solar bands !c (3.9b in Fu) and bpir is for the absorption coefficient (1/m) in the !c IR bands (3.2 in Fu et al.). cp is the empirical coefficients of !c Eq. (3.9c) in Fu or Eq. (3.3) in Fu et al. to compute the asymmetry !c factor of the phase function. dps is the empirical coefficients of !c Eq. (3.9d) of Fu to calculate the forward delta-fraction in the !c solar bands. The units of generalized effective size and ice water !c content are um and g/m**3, respectively, in these equations. !c ********************************************************************* !# include "para.file" USE PARA_FILE !c## include 'rad_0698.h' ! common /ic5/ ap(3,mb), bps(4,mbs), bpir(4, mbir), & ! cp(4,mb), dps(4,mbs) 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 / !c ********************************************************************* end module ice5 !CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC !C---- new coefficients for single ice habit parameterization by Feng Zhang !CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC ! block data ice6 module ice6 1,1 !c ********************************************************************* !c ap and bp are empirical coefficients of Eqs. (2.9) and (2.10) to !c calculate the extiction coefficient (1/m) and single scattering !c albedo, cps and dps are empirical coefficients of Eq. (2.13) to !c compute the expansion coefficients of the phase function (1, 2, & !c 3, 4) in the solar bands, cpir is the empirical coefficients of !c Eq. (2.15) to calculate the asymmetry factor in the IR bands (Fu !c and Liou, 1992). The units of mean effective size and ice water !c content are um and g/m*m*m, respectively, in these equations. !c for a single habit calculated from Yang's 2000 datasets. !c ********************************************************************* !# include "para.file" USE PARA_FILE ! common /ic6/ ap(3,mb), bp(4,mb), cps(4,4,mbs), dps(4,mbs),& ! cpir(4,mbir) 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 !CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC !C---- new coefficients for single habit ice parameterization !C-----by Qing Yue, 2007. Solar from Yang 2000, IR from Yang 2005 !CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC ! block data ice7 module ice7 1,1 !# include "para.file" USE PARA_FILE ! common /ic7/ ap(3,mb), bp(4,mb), cps(4,4,mbs), & ! cpir(4,mbir) implicit none real, save :: ap(3,mb), bp(4,mb), cps(4,4,mbs), & & cpir(4,mbir) data ap / & !C--- solar bands & -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,& !c--- IR bands & -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 / & !c--- solar bands & 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,& !c---IR bands & 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 / & !c-- solar bands & 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/ !c--- IR bands 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 !CCCCCC---- end of ice block data------------------C !CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC ! block data water1 module water1 1,1 !c ********************************************************************* !c bz, wz and gz are the extinction coefficient(1/km), single scattering !c albedo and asymmetry factor for the water clouds (St II, Sc I, St I, & !c As, Ns, Sc II, Cu, and Cb) in different bands. re is the effective !c radius and fl is the liquid water content (LWC). See Tables 4.2-4.4 !c of Fu (1991). !c ********************************************************************* !# include "para.file" USE PARA_FILE ! common /wat1/ re(nc), fl(nc), bz(nc,mb), wz(nc,mb), gz(nc,mb) 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 ! block data rayle1 module rayle1 1,1 !c ********************************************************************* !c ri is the coefficient in Eq.(4.8) of Fu (1991) to compute the optical !c depth due to Rayleigh scattering in the solar bands. !c ********************************************************************* !# include "para.file" USE PARA_FILE ! common /ray1/ ri(mbs) 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 ! block data rain1 module rain1 1,1 !c ********************************************************************* !c brn, wrnf and grn are the extinction coefficient (1/km), single !c scattering albedo and asymmetry factor for the rain. The size !c distribution of rain is in the form of a truncated constant-slope !c gamma function (Manton and Cotton, 1977) where rmin = 60 um, rmax = !c 1800 um, rc = 162 um, density of water = 1 g/cm**3, and rain water !c content (rwc) = 0.5 g/m**3. !c Jan. 19, 1993 !c ********************************************************************* !# include "para.file" USE PARA_FILE ! common /rai1/ rwc, brn(mb), wrnf(mb), grn(mb) 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 ! block data graup1 module graup1 1,1 !c ********************************************************************* !c The single-scattering properties of graupel here are replaced by !c those of aesosols (rural model of Shettle and Fenn, 1979 with 50% !c relative humidity). The extinction coefficients are normalized to !c a number of density of 1.5e10 particles/m**3. !c June 23, 1994 !c !C For graupel !c bg, wgf and gg are the extinction coefficient (1/km), single !c scattering albedo and asymmetry factor for the graupel. The size !c distribution of graupel is in the form of a truncated constant-slope !c gamma function (Manton and Cotton, 1977) where rmin = 60 um, rmax = !c 5000 um, rc = 500 um, density of graupel = 0.6 g/cm**3, and graupel !c water content (gwc) = 0.5 g/m**3. !c Jan. 19, 1993 !c ********************************************************************* !# include "para.file" USE PARA_FILE ! common /gra1/ gwc, bg(mb), wgf(mb), gg(mb) implicit none real, save :: gwc, bg(mb), wgf(mb), gg(mb) !c--- for aerosol in orig Fu-Liou !c ! data gwc / 1.5e10 / ! data bg / 1.514e-01,6.361e-02,3.653e-02,2.024e-02,1.824e-02,& ! 1.520e-02,1.343e-02,1.196e-02,1.103e-02,9.383e-03,& ! 1.254e-02,1.658e-02,1.082e-02,8.567e-03,9.362e-03,& ! 9.319e-03,7.062e-03,6.603e-03 / ! data wgf / 0.9427,0.8653,0.7978,0.8492,0.6459,0.9137,& ! 0.8418,0.7947,0.6686,0.4676,0.2786,0.4632,& ! 0.6415,0.5105,0.4492,0.4094,0.2794,0.2137 / ! data gg / 0.6534,0.6220,0.6365,0.7277,0.7759,0.7311,& ! 0.7498,0.7685,0.7810,0.8104,0.7322,0.6162,& ! 0.6441,0.6802,0.6200,0.5404,0.5178,0.4399 / !C !C For graupel 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 2 !c ********************************************************************** !c Double-Gauss quadratures and weights (Sykes, 1951). !c ********************************************************************** ! block data ! common /dis/ a(4) ! common /point/ u(4) 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 / ! end !c ********************************************************************* !c p0, p1, p2 and p3 are Legendre polynomials for l = 1, 2, 3. !c ********************************************************************* !c function p0 ( x ) !c p0 = 1.0 !c return !c end !c function p1 ( x ) !c p1 = x !c return !c end !c function p2 ( x ) !c p2 = 1.5 * x * x - 0.5 !c return !c end !c function p3 ( x ) !c p3 = ( 2.5 * x * x - 1.5 ) * x !c return !c end !c ********************************************************************** !c p0d(4), p1d(4), p2d(4), and p3d(4) are Legendre polynomials p0(x), !c p1(x), p2(x), and p3(x) when x = u(1), u(2), u(3), and u(4). !c ********************************************************************** ! block data legend ! common /legen/ p0d(4), p1d(4), p2d(4), p3d(4) 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 / ! end !c ********************************************************************* !c p11d(4,4), p22d(4,4), and p33d(4,4) are defined as 0.5*p1d(i)*p1d(j), & !c 0.5*p2d(i)*p2d(j), and 0.5*p3d(i)*p3d(j), respectively. !c ********************************************************************* ! block data legenf ! common /legen1/ p11d(4,4), p22d(4,4), p33d(4,4) 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 1 implicit none integer, private :: i, j, k ! block data ckd1 !c ********************************************************************* !c hk is the interval in the g (cumulative probability) space from 0 to !c one. fko3 is the corresponding ozone absorption coefficient in units !c of (cm-atm)**-1 (Fu, 1991). The spectral region is from 50000 cm**-1 !c to 14500 cm**-1. !c ********************************************************************* 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) ! common /band1/ hk(10), fko3(10) 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 / ! block data ckd2 !c ********************************************************************* !c hk is the interval in the g (cumulative probability) space from 0 !c to one. coeh2o is the coefficient to calculate the H2O absorption !c coefficient in units of (cm-atm)**-1 at there temperatures, eleven !c pressures, and eight cumulative probabilities ( Fu, 1991 ). The !c spectral region is from 14500 to 7700 cm**-1. !c ********************************************************************* ! common /band2/ hk(8), coeh2o(3,11,8) data hk_2 / .71, .11, .06, .06, .04, .016, .0034, .0006 / !c .343849E+03 .532724E+02 .290577E+02 .290577E+02 .193718E+02 !c .774872E+01 .164660E+01 .290577E+00 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/ ! block data ckd3 !c ********************************************************************* !c hk is the interval in the g (cumulative probability) space from 0 !c to one. coeh2o is the coefficient to calculate the H2O absorption !c coefficient in units of (cm-atm)**-1 at there temperatures, eleven !c pressures, and twelve cumulative probabilities ( Fu, 1991 ). The !c spectral region is from 7700 to 5250 cm**-1. !c ********************************************************************* ! common /band3/ hk(12), coeh2o(3,11,12) data hk_3 / .34, .11, .1, .09, .12, .1, & & .06, .04, .026, .01, .0035, .0005 / !c .509474E+02 .164830E+02 .149845E+02 .134861E+02 .179814E+02 !c .149845E+02 .899071E+01 .599381E+01 .389597E+01 .149845E+01 !c .524458E+00 .749226E-01 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/ ! block data ckd4 !c ********************************************************************* !c hk is the interval in the g (cumulative probability) space from 0 !c to one. coeh2o is the coefficient to calculate the H2O absorption !c coefficient in units of (cm-atm)**-1 at there temperatures, eleven !c pressures, and seven cumulative probabilities ( Fu, 1991 ). The !c spectral region is from 5250 to 4000 cm**-1. !c ********************************************************************* ! common /band4/ hk(7), coeh2o(3,11,7) data hk_4 / .52, .21, .11, .1, .04, .015, .005 / !c .253397E+02 .102333E+02 .536032E+01 .487302E+01 .194921E+01 !c .730953E+00 .243651E+00 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 / ! block data ckd5 !c ********************************************************************* !c hk is the interval in the g (cumulative probability) space from 0 !c to one. coeh2o is the coefficient to calculate the H2O absorption !c coefficient in units of (cm-atm)**-1 at there temperatures, eleven !c pressures, and twelve cumulative probabilities ( Fu, 1991 ). The !c spectral region is from 4000 to 2850 cm**-1. !c ********************************************************************* ! common /band5/ hk(12), coeh2o(3,11,12) data hk_5 / .13, .14, .13, .16, .18, .14, & & .07, .02, .016, .008, .004, .002 / !c .411549E+01 .443207E+01 .411549E+01 .506522E+01 .569837E+01 !c .443207E+01 .221603E+01 .633153E+00 .506522E+00 .253261E+00 !c .126631E+00 .633153E-01 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/ ! block data ckd6 !c ********************************************************************* !c hk is the interval in the g (cumulative probability) space from 0 !c to one. coeh2o is the coefficient to calculate the H2O absorption !c coefficient in units of (cm-atm)**-1 at there temperatures, eleven !c pressures, and five cumulative probabilities ( Fu, 1991 ). The !c spectral region is from 2850 to 2500 cm**-1. !c ********************************************************************* ! common /band6/ hk(5), coeh2o(3,11,5) data hk_6 / .3, .2, .2, .2, .1 / !c .173978E+01 .115985E+01 .115985E+01 .115985E+01 .579927E+00 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 / ! block data ckd7 !c ********************************************************************* !c hk is the interval in the g (cumulative probability) space from 0 !c to one. coeh2o is the coefficient to calculate the H2O absorption !c coefficient in units of (cm-atm)**-1 at there temperatures, nine- !c teen pressures, and two cumulative probabilities ( Fu, 1991 ). !c The spectral region is from 2200 to 1900 cm**-1. !c ********************************************************************* ! common /band7/ hk(2), coeh2o(3,19,2) 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/ ! block data ckd8 !c ********************************************************************* !c hk is the interval in the g (cumulative probability) space from 0 !c to one. coeh2o is the coefficient to calculate the H2O absorption !c coefficient in units of (cm-atm)**-1 at there temperatures, nine- !c teen pressures, and three cumulative probabilities ( Fu, 1991 ). !c The spectral region is from 1900 to 1700 cm**-1. !c ********************************************************************* ! common /band8/ hk(3), coeh2o(3,19,3) 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/ ! block data ckd9 !c ********************************************************************* !c hk is the interval in the g (cumulative probability) space from 0 !c to one. coeh2o is the coefficient to calculate the H2O absorption !c coefficient in units of (cm-atm)**-1 at there temperatures, nine- !c teen pressures, and four cumulative probabilities ( Fu, 1991 ). !c The spectral region is from 1700 to 1400 cm**-1. !c ********************************************************************* ! common /band9/ hk(4), coeh2o(3,19,4) 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/ ! block data ckd10 !c ********************************************************************* !c hk is the interval in the g (cumulative probability) space from 0 !c to one. coeh2o is the coefficient to calculate the H2O absorption !c coefficient in units of (cm-atm)**-1 at there temperatures, nine- !c teen pressures, and four cumulative probabilities ( Fu, 1991 ). !c The spectral region is from 1400 to 1250 cm**-1. coech4 and coen2o !c are the coefficients to calculate the CH4 and N2O absorption coe- !c fficients in units of (cm-atm)**-1 at three temperature, nineteen !c pressures, and one cumulative probability (Fu, 1991), respectively. !c ********************************************************************* ! common /band10/hk(4), coeh2o(3,19,4), coech4(3,19), coen2o(3,19) 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/ ! block data ckd11 !c ********************************************************************* !c hk is the interval in the g (cumulative probability) space from 0 !c to one. coeh2o is the coefficient to calculate the H2O absorption !c coefficient in units of (cm-atm)**-1 at there temperatures, nine- !c teen pressures, and three cumulative probabilities ( Fu, 1991 ). !c The spectral region is from 1250 to 1100 cm**-1. coech4 and coen2o !c are the coefficients to calculate the CH4 and N2O absorption coe- !c fficients in units of (cm-atm)**-1 at three temperature, nineteen !c pressures, and one cumulative probability (Fu, 1991), respectively. !c ********************************************************************* ! common /band11/hk(3), coeh2o(3,19,3), coech4(3,19), coen2o(3,19) 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/ ! block data ckd12 !c ********************************************************************* !c hk is the interval in the g (cumulative probability) space from 0 !c to one. coeo3 is the coefficient to calculate the ozone absorption !c coefficient in units of (cm-atm)**-1 at there temperatures, nine- !c teen pressures, and five cumulative probabilities ( Fu, 1991 ). !c The spectral region is from 1100 to 980 cm**-1. coeh2o is the !c coefficient to calculate the H2O absorption coefficient in units !c of (cm-atm)**-1 at three temperature, nineteen pressures, and one !c cumulative probability ( Fu, 1991 ). !c ********************************************************************* ! common /band12/ hk(5), coeo3(3,19,5), coeh2o(3,19) 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/ ! block data ckd13 !c ********************************************************************* !c hk is the interval in the g (cumulative probability) space from 0 !c to one. coeh2o is the coefficient to calculate the H2O absorption !c coefficient in units of (cm-atm)**-1 at there temperatures, nine- !c teen pressures, and two cumulative probabilities ( Fu, 1991 ). !c The spectral region is from 980 to 800 cm**-1. !c ********************************************************************* ! common /band13/ hk(2), coeh2o(3,19,2) 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/ ! block data ckd14 !c ********************************************************************** !c hk is the interval in the g (cumulative probability) space from 0 !c to one. coehca and coehcb are the coefficients to calculate the !c H2O and CO2 overlapping absorption coefficients in units of (cm- !c atm)**-1 at three temperature, nineteen pressures, and ten cumu- !c lative probabilities (Fu, 1991). The spectral region is from 800 !c to 670 cm**-1. !c ********************************************************************** ! common /band14/ hk(10), coehca(3,19,10), coehcb(3,19,10) 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/ ! block data ckd15 !c ********************************************************************** !c hk is the interval in the g (cumulative probability) space from 0 !c to one. coehca and coehcb are the coefficients to calculate the !c H2O and CO2 overlapping absorption coefficients in units of (cm- !c atm)**-1 at three temperatures, nineteen pressures, and 12 cumu- !c lative probabilities (Fu, 1991). The spectral region is from 670 !c to 540 cm**-1. !c ********************************************************************** ! common /band15/ hk(12), coehca(3,19,12), coehcb(3,19,12) 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/ ! block data ckd16 !c ********************************************************************* !c hk is the interval in the g (cumulative probability) space from 0 !c to one. coeh2o is the coefficient to calculate the H2O absorption !c coefficient in units of (cm-atm)**-1 at there temperatures, nine- !c teen pressures, and seven cumulative probabilities ( Fu, 1991 ). !c The spectral region is from 540 to 400 cm**-1. !c ********************************************************************* ! common /band16/ hk(7), coeh2o(3,19,7) 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/ ! block data ckd17 !c ********************************************************************* !c hk is the interval in the g (cumulative probability) space from 0 !c to one. coeh2o is the coefficient to calculate the H2O absorption !c coefficient in units of (cm-atm)**-1 at there temperatures, nine- !c teen pressures, and seven cumulative probabilities ( Fu, 1991 ). !c The spectral region is from 400 to 280 cm**-1. !c ********************************************************************* ! common /band17/ hk(7), coeh2o(3,19,7) 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/ ! block data ckd18 !c ********************************************************************* !c hk is the interval in the g (cumulative probability) space from 0 !c to one. coeh2o is the coefficient to calculate the H2O absorption !c coefficient in units of (cm-atm)**-1 at there temperatures, nine- !c teen pressures, and eight cumulative probabilities ( Fu, 1991 ). !c The spectral region is from 280 to 0 cm**-1. !c ********************************************************************* ! common /band18/ hk(8), coeh2o(3,19,8) 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 !c pgwc(nv) aerosol concentration ( # / m ** 3 ) !c---------- 4/1/97 (7) -- NEXT 1142 LINES -- Replaces old !c aerosol1,aerosol2 block data. ! block data aerosol1 module aerosol1 1,1 !c 4/1/97 !c ******************************************************************** !c !c mb: Number of bands in code (will always be 18) !c naer: Number of aerosol types (will need to be changed here AND in !c aerosol subroutine. !c nrh: Number of different relative humidities (currently 8) !c !c Optical properties are dimensioned (18,8,naer): Number of bands, & !c number of relative humidities, and number of aerosol types. !c Properties for ocean, continental, and urban were extracted from !c tables and interpolated (energy-weighted) into the Fu-Liou !c spectral bands. Tegen and Lacis values are not RH-dependent, !c so values are repeated. !c !c a_ssa: single-scattering albedo. One data statement for EACH type !c of aerosol. !c !c a_ext: extinction coefficient. Normalization is not important. !c These values are used for spectral weighting only!! One !c data statement for EACH type of aerosol. !c !c a_asy: Asymmetry parameter.One data statement for EACH type of !c aerosol. !c !c ******************************************************************** !c USE RadParams !# include "para.file" USE PARA_FILE !c include 'para.file' implicit none !c## include 'rad_0698.h' integer, private :: i,j !c# real a_ssax(mbx,nrh,naer),a_extx(mbx,nrh,naer) !c# real a_asyx(mbx,nrh,naer) ! common /aer_optx/ a_ssax,a_extx,a_asyx real a_ssax(mbx,nrh,naer),a_extx(mbx,nrh,naer) real a_asyx(mbx,nrh,naer) !c ******************************************* !c Data statements for aerosol type 1 (marine) !c ******************************************* 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/ !c ************************************************ !c Data statements for aerosol type 2 (continental) !c ************************************************ 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/ !c ****************************************** !c Data statements for aerosol type 3 (urban) !c ****************************************** 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/ !c *********************************************** !c Data statements for T&L 0.5 micron dust aerosol !c *********************************************** 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/ !c *********************************************** !c Data statements for T&L 1.0 micron dust aerosol !c *********************************************** 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/ !c *********************************************** !c Data statements for T&L 2.0 micron dust aerosol !c *********************************************** 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/ !c *********************************************** !c Data statements for T&L 4.0 micron dust aerosol !c *********************************************** 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/ !c *********************************************** !c Data statements for T&L 8.0 micron dust aerosol !c *********************************************** 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/ !==================================================================== ! OPAC X !----------------------------------------------------------- !9) inso Insoluble 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/ !----------------------------------------------------------- !10) waso Water Soluble (8 RH%) 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/ !----------------------------------------------------------- !11) soot Soot 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/ !----------------------------------------------------------- !12) ssam Sea Salt (Accumulation Mode) (8 RH%) 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/ !----------------------------------------------------------- !13) sscm Sea Salt (Coarse Mode) (8 RH%) 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/ !----------------------------------------------------------- !14) minm Mineral Dust (Nucleation Mode) 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/ !----------------------------------------------------------- !15) miam Mineral Dust (Accumulation Mode) 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/ !----------------------------------------------------------- !16) micm Mineral Dust (Coarse Mode) 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/ !----------------------------------------------------------- !17) mitr Mineral Dust (Transported Mode) 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/ !----------------------------------------------------------- !18) suso Sulfate Droplets (8 RH%) 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 ! block data aerosol2 module aerosol2 1,1 !c 4/1/97 !c ******************************************************************** !c !c Data statements providing aerosol properties for the 10 !c subintervals in the first Fu-Liou SW band. !c !c mb: Number of bands in code (will always be 10) !c naer: Number of aerosol types (will need to be changed here AND in !c aerosol subroutine. !c nrh: Number of different relative humidities (currently 8) !c !c Optical properties are dimensioned (10,8,naer): Number of !c sw sunintervals, number of relative humidities, and number of !c aerosol types. Properties were extracted from tables and mapped for !c the most part into the Fu-Liou spectral bands. sub-intervals 1-4, !c not available in the tables, were filled with properties from the !c 5th sub-interval. Intervals 5-6 were filled by direct insertion !c (1 table value per interval). The last two intervals were filled !c with 2 table values per interval, which were averaged using !c energy weighting. Tegen and Lacis values are not RH-dependent, !c so values are repeated. !c !c a_ssa: single-scattering albedo. One data statement for EACH type !c of aerosol. !c !c a_ext: extinction coefficient. Normalization is not important. !c These values are used for spectral weighting only!! One !c data statement for EACH type of aerosol. !c !c a_asy: Asymmetry parameter.One data statement for EACH type of !c aerosol. !c !c ******************************************************************** !c USE RadParams !# include "para.file" USE PARA_FILE !c include 'para.file' implicit none !c## include 'rad_0698.h' integer, private :: i,j real a_ssay(mby,nrh,naer),a_exty(mby,nrh,naer) real a_asyy(mby,nrh,naer) ! common /aer_opty/ a_ssay,a_exty,a_asyy !c **************************************************** !c Data statements for aerosol type 1 (marine) sw bnd 1 !c **************************************************** 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/ !c ********************************************************* !c Data statements for aerosol type 2 (continental) sw bnd 1 !c ********************************************************* 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/ !c *************************************************** !c Data statements for aerosol type 3 (urban) sw bnd 1 !c *************************************************** 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/ !c ******************************************************** !c Data statements for T&L 0.5 micron dust aerosol sw bnd 1 !c ******************************************************** 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/ !c ******************************************************** !c Data statements for T&L 1.0 micron dust aerosol sw bnd 1 !c ******************************************************** 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/ !c ******************************************************** !c Data statements for T&L 2.0 micron dust aerosol sw bnd 1 !c ******************************************************** 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/ !c ******************************************************** !c Data statements for T&L 4.0 micron dust aerosol sw bnd 1 !c ******************************************************** 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/ !c ******************************************************** !c Data statements for T&L 8.0 micron dust aerosol sw bnd 1 !c ******************************************************** 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/ !===================================================================== !OPAC Y !----------------------------------------------------------- !9) inso Insoluble 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/ !----------------------------------------------------------- !10) waso Water Soluble (8 RH%) 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/ !----------------------------------------------------------- !11) soot Soot 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/ !----------------------------------------------------------- !12) ssam Sea Salt (Accumulation Mode) (8 RH%) 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/ !----------------------------------------------------------- !13) sscm Sea Salt (Coarse Mode) (8 RH%) 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/ !----------------------------------------------------------- !14) minm Mineral Dust (Nucleation Mode) 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/ !----------------------------------------------------------- !15) miam Mineral Dust (Accumulation Mode) 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/ !----------------------------------------------------------- !16) micm Mineral Dust (Coarse Mode) 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/ !----------------------------------------------------------- !17) mitr Mineral Dust (Transported Mode) 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/ !----------------------------------------------------------- !18) suso Sulfate Droplets (8 RH%) 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 !=========================================================== ! block data opac_extinctions module opac_ext 1 ! common /opac_ext/ wl(24) ,edat(24,8,9:18) 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/ !----------------------------------------------------------- !9) inso Insoluble 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/ !----------------------------------------------------------- !10) waso Water Soluble (8 RH%) 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/ !----------------------------------------------------------- !11) soot Soot 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/ !----------------------------------------------------------- !12) ssam Sea Salt (Accumulation Mode) (8 RH%) 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/ !----------------------------------------------------------- !13) sscm Sea Salt (Coarse Mode) (8 RH%) 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/ !----------------------------------------------------------- !14) minm Mineral Dust (Nucleation Mode) 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/ !----------------------------------------------------------- !15) miam Mineral Dust (Accumulation Mode) 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/ !----------------------------------------------------------- !16) micm Mineral Dust (Coarse Mode) 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/ !----------------------------------------------------------- !17) mitr Mineral Dust (Transported Mode) 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/ !----------------------------------------------------------- !18) suso Sulfate Droplets (8 RH%) 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 !============================================================= ! block data tegen_lacis_ext module mineral_ext 1 implicit none ! common /mineral_ext/ wl(24) ,dat(24,4:8) 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/ & ! 4 & 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, & ! 5 & 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, & ! 6 & 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, & ! 7 & 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, & ! 8 & 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 !============================================================= ! block data dalmedia_ext module dalm_ext 1 implicit none ! common /dalm_ext/ wl(24) ,dat(24,8,3) 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/ & ! 1 & 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, & ! 2 & 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, & ! 3 & 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 !------------------------------------------------------------ ! block data aerosol_convolve5 module aot_spect_5 !mark 1 implicit none ! common /aot_spect_5/ wlo(5,15) , hkas(5,15) ,sflx(5,15) 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 !---------------------------------------------------------------- ! block data aerosol_convolve_25 module aot_spect_25 implicit none ! common /aot_spect_25/ wlo(25,15) , hkas(25,15) ,sflx(25,15) 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 !----------------------------------------------------------------------- !------------------------------------------------------------------------------- ! new data for nongray gas absorption !------------------------------------------------------------------------------- module band_new 1 implicit none integer, private :: i, j, k ! block data ckd1_new !c ********************************************************************* !c hk is the interval in the g (cumulative probability) space from 0 to !c one. fko3 is the corresponding ozone absorption coefficient in units !c of (cm-atm)**-1 (Fu, 1991). The spectral region is from 50000 cm**-1 !c to 14500 cm**-1. !c ********************************************************************* ! common /band1_new/ hk(10), fko3(10) 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 / ! block data ckd2_new !c ********************************************************************* !c hk is the interval in the g (cumulative probability) space from 0 !c to one. coeh2o is the coefficient to calculate the H2O absorption !c coefficient in units of (cm-atm)**-1 at there temperatures, eleven !c pressures, and eight cumulative probabilities ( Fu, 1991 ). The !c spectral region is from 14500 to 7700 cm**-1. !c in this block data, Z.F. has added coefficients for O2 and Water vapor !c continuum absorption in Jun,2003. !c ********************************************************************* ! common /band2_new/ hk(12),coehh22(3,11,12),coeo2(3,11,12) & ! ,coeh2o(3,11,12) 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/ ! block data ckd3_new !c ********************************************************************* !c hk is the interval in the g (cumulative probability) space from 0 !c to one. coeh2o is the coefficient to calculate the H2O absorption !c coefficient in units of (cm-atm)**-1 at there temperatures, eleven !c pressures, and twelve cumulative probabilities ( Fu, 1991 ). The !c spectral region is from 7700 to 5250 cm**-1. !c in this block data, Z.F. has added the coefficients for water vapor !c continuum absorption in Jun,2003. !c ********************************************************************* ! common /band3_new/ hk(12), coehh32(3,11,12),coeh2o(3,11,12) 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 / ! .509474E+02 .164830E+02 .149845E+02 .134861E+02 .179814E+02 ! .149845E+02 .899071E+01 .599381E+01 .389597E+01 .149845E+01 ! .524458E+00 .749226E-01 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/ ! block data ckd4_new !c ********************************************************************* !c hk is the interval in the g (cumulative probability) space from 0 !c to one. coeh2o is the coefficient to calculate the H2O absorption !c coefficient in units of (cm-atm)**-1 at there temperatures, eleven !c pressures, and seven cumulative probabilities ( Fu, 1991 ). The !c spectral region is from 5250 to 4000 cm**-1. !c in this block data, Z.F. has added the coefficients for CO2, CO, and !c water vapor continuum absorption in Jun,2003. !c ********************************************************************* ! common /band4_new/hk(20),coehh42(3,11,20),coeco2(3,11,20),coeco(3,11) & ! ,coeh2o(3,11,20) 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/ ! block data ckd5_new !c ********************************************************************* !c hk is the interval in the g (cumulative probability) space from 0 !c to one. coeh2o is the coefficient to calculate the H2O absorption !c coefficient in units of (cm-atm)**-1 at there temperatures, eleven !c pressures, and twelve cumulative probabilities ( Fu, 1991 ). The !c spectral region is from 4000 to 2850 cm**-1. !c in this block data, Z.F. has added the coefficients for CO2, CH4, & !c N2O and water vapor continuum absorption in Jun,2003. !c ********************************************************************* ! common /band5_new/ hk(20), coehh52(3,11,20),coeco2(3,11,20), & ! coen2o(3,11),coech4(3,11),coeh2o(3,11,20) 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/ ! block data ckd6_new !c ********************************************************************* !c hk is the interval in the g (cumulative probability) space from 0 !c to one. coeh2o is the coefficient to calculate the H2O absorption !c coefficient in units of (cm-atm)**-1 at there temperatures, eleven !c pressures, and five cumulative probabilities ( Fu, 1991 ). The !c spectral region is from 2850 to 2500 cm**-1. !c in this block data, Z.F. has added the coefficients for SO2 and water !c vapor continuum absorption in Jun,2003. !c ********************************************************************* ! common /band6_new/ hk(20), coehh62(3,11,20),coeso2(3,11) & ! ,coeh2o(3,11,20) 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/ ! block data ckd7_new !c ********************************************************************* !c hk is the interval in the g (cumulative probability) space from 0 !c to one. coeh2o is the coefficient to calculate the H2O absorption !c coefficient in units of (cm-atm)**-1 at there temperatures, nine- !c teen pressures, and two cumulative probabilities ( Fu, 1991 ). !c The spectral region is from 2200 to 1900 cm**-1. !c ********************************************************************* ! common /band7_new/ hk(2), coeh2o(3,19,2) 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/ ! block data ckd8_new !c ********************************************************************* !c hk is the interval in the g (cumulative probability) space from 0 !c to one. coeh2o is the coefficient to calculate the H2O absorption !c coefficient in units of (cm-atm)**-1 at there temperatures, nine- !c teen pressures, and three cumulative probabilities ( Fu, 1991 ). !c The spectral region is from 1900 to 1700 cm**-1. !c ********************************************************************* ! common /band8_new/ hk(3), coeh2o(3,19,3),coeno(3,19) 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/ ! block data ckd9_new !c ********************************************************************* !c hk is the interval in the g (cumulative probability) space from 0 !c to one. coeh2o is the coefficient to calculate the H2O absorption !c coefficient in units of (cm-atm)**-1 at there temperatures, nine- !c teen pressures, and four cumulative probabilities ( Fu, 1991 ). !c The spectral region is from 1700 to 1400 cm**-1. !c ********************************************************************* ! common /band9_new/ hk(4), coeh2o(3,19,4),coeno2(3,19) 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/ ! block data ckd10_new !c ********************************************************************* !c hk is the interval in the g (cumulative probability) space from 0 !c to one. coeh2o is the coefficient to calculate the H2O absorption !c coefficient in units of (cm-atm)**-1 at there temperatures, nine- !c teen pressures, and four cumulative probabilities ( Fu, 1991 ). !c The spectral region is from 1400 to 1250 cm**-1. coech4 and coen2o !c are the coefficients to calculate the CH4 and N2O absorption coe- !c fficients in units of (cm-atm)**-1 at three temperature, nineteen !c pressures, and one cumulative probability (Fu, 1991), respectively. !c ********************************************************************* ! common /band10_new/hk(4), coeh2o(3,19,4), coech4(3,19) & ! ,coen2o(3,19) & ! ,coeso2(3,19) 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/ ! block data ckd11_new ! ********************************************************************* ! hk is the interval in the g (cumulative probability) space from 0 ! to one. coeh2o is the coefficient to calculate the H2O absorption ! coefficient in units of (cm-atm)**-1 at there temperatures, nine- ! teen pressures, and three cumulative probabilities ( Fu, 1991 ). ! The spectral region is from 1250 to 1100 cm**-1. coech4 and coen2o ! are the coefficients to calculate the CH4 and N2O absorption coe- ! fficients in units of (cm-atm)**-1 at three temperature, nineteen ! pressures, and one cumulative probability (Fu, 1991), respectively. ! ********************************************************************* 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/ ! block data ckd12_new ! ********************************************************************* ! hk is the interval in the g (cumulative probability) space from 0 ! to one. coeo3 is the coefficient to calculate the ozone absorption ! coefficient in units of (cm-atm)**-1 at there temperatures, nine- ! teen pressures, and five cumulative probabilities ( Fu, 1991 ). ! The spectral region is from 1100 to 980 cm**-1. coeh2o is the ! coefficient to calculate the H2O absorption coefficient in units ! of (cm-atm)**-1 at three temperature, nineteen pressures, and one ! cumulative probability ( Fu, 1991 ). ! ********************************************************************* 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/ ! block data ckd13_new ! ********************************************************************* ! hk is the interval in the g (cumulative probability) space from 0 ! to one. coeh2o is the coefficient to calculate the H2O absorption ! coefficient in units of (cm-atm)**-1 at there temperatures, nine- ! teen pressures, and two cumulative probabilities ( Fu, 1991 ). ! The spectral region is from 980 to 800 cm**-1. ! ********************************************************************* 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/ ! block data ckd14_new ! ********************************************************************** ! hk is the interval in the g (cumulative probability) space from 0 ! to one. coehca and coehcb are the coefficients to calculate the ! H2O and CO2 overlapping absorption coefficients in units of (cm- ! atm)**-1 at three temperature, nineteen pressures, and ten cumu- ! lative probabilities (Fu, 1991). The spectral region is from 800 ! to 670 cm**-1. ! ********************************************************************** 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/ ! block data ckd15_new ! ********************************************************************** ! hk is the interval in the g (cumulative probability) space from 0 ! to one. coehca and coehcb are the coefficients to calculate the ! H2O and CO2 overlapping absorption coefficients in units of (cm- ! atm)**-1 at three temperatures, nineteen pressures, and 12 cumu- ! lative probabilities (Fu, 1991). The spectral region is from 670 ! to 540 cm**-1. ! ********************************************************************** 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/ ! block data ckd16_new ! ********************************************************************* ! hk is the interval in the g (cumulative probability) space from 0 ! to one. coeh2o is the coefficient to calculate the H2O absorption ! coefficient in units of (cm-atm)**-1 at there temperatures, nine- ! teen pressures, and seven cumulative probabilities ( Fu, 1991 ). ! The spectral region is from 540 to 400 cm**-1. ! ********************************************************************* 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/ ! block data ckd17_new ! ********************************************************************* ! hk is the interval in the g (cumulative probability) space from 0 ! to one. coeh2o is the coefficient to calculate the H2O absorption ! coefficient in units of (cm-atm)**-1 at there temperatures, nine- ! teen pressures, and seven cumulative probabilities ( Fu, 1991 ). ! The spectral region is from 400 to 280 cm**-1. ! ********************************************************************* 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/ ! block data ckd18_new ! ********************************************************************* ! hk is the interval in the g (cumulative probability) space from 0 ! to one. coeh2o is the coefficient to calculate the H2O absorption ! coefficient in units of (cm-atm)**-1 at there temperatures, nine- ! teen pressures, and eight cumulative probabilities ( Fu, 1991 ). ! The spectral region is from 280 to 0 cm**-1. ! ********************************************************************* 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 1 contains !****************************************************************************** !* This subroutine drives the Fu-Liou radiation program which solves the solar !* and IR radiation in the atmosphere. !* **************************************************************************** subroutine RAD_FLG & 1,8 & (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 & !-- for partly cloudy & & , cloudstrf & & , emiss & & , air_den & & , dz3d & & , SOLCON & & , declin & & , xtime, xlong, xlat, JULDAY, gmt, radt, degrad & & , dtcolumn & !-- change over !-- add for aerosol indirect effect ! & , vertical_w !-- add over & , ids,ide, jds,jde, kds,kde & & , ims,idim, jms,jdim, kms,kmax & & , its,ite, jts,jte, kts,kte & !-- output ! & , dswtop, dswbot, swinc & ! & , ulwtop, ulwbot, dlwbot, netlwstr, netlwbot & & , uswtop, ulwtop,NETSWBOT,DLWBOT,DSWBOT & & , deltat,dtshort, dtlongwv & !-- amontornes-bcodina (2014-04-29): return direct and diffuse fluxes at surface & , swddir,swddif,swddni & !-- for optional aerosol input ! & , tau_aer_2D, tau_aer_3D, fraca_in & !-- change over & ) !C$Id: driver_rad.F,v 1.8 2002/04/17 18:40:13 gu Exp gu $ !CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC !* Input: !* PEVEN = Even level Atmospheric Pressure (mb, = 1000pa = 1hpa) !* PODD = Odd level Atmospheric Pressure (mb) !* PBIG = odd level dimensionless pressure !* PHAT = even level dimensionless pressure (see eq. 4.14 AS83) !* DEGREES = Odd level Atmospheric Temperature(K) !* H2O = wate vapor mixing ratio (kg/kg) !* O3 = Ozone mixing ratio (kg/kg) !* CLD_ICCLD = Ice water mixing ratio (kg/kg). need to conver to content (g/m**3) !* CLD_WLCLD = Liquid water mixing ratio (kg/kg). Need to convert content (g/m**3) !* air_den: air density (kg/m**3) !* dz3d: dz between full levels !* COSZENTH = cosine of the zenith angle !* emiss = IR surface emissivity !* ALBEDO = surface albedo !* TSKIN = ground temperature (degrees k) !* TSURFACE = surface air temperature (degrees K) !* TBOUND = temperature at even level between the PBL and troposphere !* TEMP3D = temporary 3d array used to interpolate to pressure coord !* add by Yu for aerosol indirect effect !* VERTICAL_W = vertical velocity in m/s !* Output: !* USWTOP = upward solar flux at TOA (down-up) !* DSWTOP = net downward solar flux at TOA (down-up) !* DSWBOT = net downward solar flux at surface (down-up) !* swddir = direct horizontal irradiance (amontornes-bcodina, 2014-04-29) !* swddif = diffuse irradiance (amontornes-bcodina, 2014-04-29) !* swddni = direct normal irradiance (amontornes-bcodina, 2014-04-29) !* SWINC = solar flux incident at TOA !* DELTAT = total column physics increment to theta ! !* ULWBOT = upward IR flux at surface !* DLWBOT = downward IR flux at surface !* ULWTOP = upward IR flux at TOA !* NETLWSTR = net IR flux at top of PBL stratus cloud layer !* NETLWBOT = net IR flux at surface (up-down) !* DELTAT = total column physics increment to theta (K) !* 1D array input to Fu-Liou program: !* pij = Atmospheric Pressure (mb) !* tij = Atmospheric Temperature (K) !* qij = Water vapor mixing ratio !* o3ij = Ozone mixing ratio !* piwc = Ice water content (g/m**3) !* plwc = Liquid water content (g/m**3) !* prwc = Rain water content (g/m**3) !* pgwc = graupel water content (g/m**3) or aerosol concentration (m-3) !* u0ij = cosine of the zenith angle !* as = Solar surface albedo !* tsij = Ground temperature !* ee = IR surface emissivity ! !* Prescribed inaut to Fu-Liou program: !* pde = Effective size of ice cloud (um) !* pre = Effective radius of water cloud (um) !***************************************************************************** !* INCLUDE files !***************************************************************************** USE PARA_FILE ! USE module_wrf_error USE control_para !************************************************************************ !* Declare all local variables !************************************************************************ 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 ), optional :: tau_aer_2D(ims:idim,jms:jdim) & ! & ,tau_aer_3D(ims:idim,jms:jdim,kms:kmax) ! real, INTENT(IN ), optional :: fraca_in(mxac) 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) !--- change for fractional cloud real cloudstrf(ims:idim,kms:kmax, jms:jdim) !--- add for aerosol indirect effect ! real vertical_w(-1:idim, -1:jdim, kmax) !---- add over !--- add for cloud inhomogeneity 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) !-- change over !--- add by Yu for aerosol real,dimension(mxat,mxac) :: a_wlis,a_taus real,dimension(nvx,mxac) :: aprofs real :: sh_aer(mxac) ! integer, dimension(mxac) :: itps real :: tau_aer, tot = 0.0 real, dimension(mxac) :: fraca = -9999., tauindividual = -9999. integer :: iac character :: reading = "Y" character*3 aerosol_type !-- add over !c--- add for de-iwc 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 !c--- add over !C--- for NPDE = 3, De-IWC using satellite data logical clean real a_sat(2),b_sat(2) data a_sat /4.07, 4.03/ data b_sat /0.032, 0.046/ !C--- for NPDE = 4, De-IWC-AOT using satellite data real palpha_all(4),pbeta_all(4), pgamma_all(4), peta_all(4) real pde0_all(4), piwc0_all(4), pco0_all(4) !C--- dim: 1=Global; 2=South America; 3=Africa; 4=Asia 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/ !c--- add over 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) !c--- amontornes-bcodina (2014-04-29): for DHI, DIF and DNI outputs real swddir(ims:idim,jms:jdim) real swddif(ims:idim,jms:jdim) real swddni(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) ! add for ozone profile ! iprof = 1 : mid-latitude summer profile ! = 2 : mid-latitude winter profile ! = 3 : sub-arctic summer profile ! = 4 : sub-arctic winter profile ! = 5 : tropical profile 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 !************************************************************************ !* Variables used in Fu-Liou code !************************************************************************ 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) !C-- change for fractional cloud real cldamnt(kmax-1) real cc_inho(kmax-1) !C-- change over 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) !C-- amontornes-bcodina (2014-04-29): direct and diffuse fluxes real fdsdir(kmax), fdsdif(kmax) !*************************************************************************** !* Use Fu-Liou radiation routine and algorithm !*************************************************************************** !C FAC CONVERTS TO DEGREES / TIME STEP ! FAC = 9.8d-01 * dtcolumn / (1.0030d04) FAC = 0.01*G /Cp !C CNVERT INCLUDES STEFAN BOLTZMAN CONSTANT FOR CALCULATION OF netlwstr CNVERT = 1.171d-07*420.0d0/864.0d0 RZERO = 0. !C************************************************************************* 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 !************************************************************************************ !CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC !C--- aerosol input !C---- No aerosol if (NAERO.eq.0) then ! do j=jms,jdim ! do i=ims,idim tau_aer = 0.0 endif if (NAERO.eq.1) then ! do j=jms,jdim ! do i=ims,idim tau_aer = 0.2 endif !C---- aerosol data use uniform optical depth ! if (NAERO.eq.2) then ! do j=jms,jdim ! do i=ims,idim ! if (present(fraca_in)) then ! fraca = fraca_in ! nfraca = 0 ! if (present(tau_aer_3D)) ivd = 2 ! end if ! endif !C--- get aerosol data from file ! if (NAERO.eq.2) then !C print *, 'b4 read aero' ! open (unit=97,file='aero_gcm_annual.climo_4x5', status='old') ! read(97,*) ((tau_aer_2D(i,j), i=1,72),j=1,44) !c open (unit=87,file='aero_gcm_annual_china.climo_4x5', status='old') !c read(87,*) tau_aer_2D !C print *, 'a4 read aero' !c close(87) ! close(97) ! endif !C-- add over !CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC !******************************************************************************** !* Begin loop over the horizontal domain !* Note: The vertical levels of radiation program starts from top, end at surface !******************************************************************************** !**** start column *********************** HORIZONTAL_J: do j = jts,jte HORIZONTAL_I: do i = its,ite ! do 300 j=jms, jmid ! do 200 i=ims,imid !C--- Zero out all water contents 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 !c--- change for fractional cloud cldamnt(k) = rzero !c--- add for inhomogeneous cloud if (ninho.eq.0) then cc_inho(k) = 1.0 else cc_inho(k) = 0.7 endif !C--- change over 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 !C--- amontornes-bcodina (2014-04-29): direct and diffuse fluxes fdsdir(k)=rzero fdsdif(k)=rzero enddo VERTICAL_PROFILE fds(kmax)=rzero fus(kmax)=rzero fdir(kmax)=rzero fuir(kmax)=rzero fd(kmax)=rzero fu(kmax)=rzero !C--- amontornes-bcodina (2014-04-29): direct and diffuse fluxes fdsdir(kmax)=rzero fdsdif(kmax)=rzero o3ij(kmax) = rzero !C---- ee is the IR surface emissivity ee(1:mbir) = emiss(i,j) ! *** the model k=1 start from sfc. need to reverse variable for radiation ! calculation !C tsij = tskin(i,j) !C-- change by 2Yu, 12/05/01, deal with too big ts if (tsij.gt.320.) tsij = 320. if (tsij.lt.180.) tsij = 180. !C--- change over qij(1) = h2o(i,kmax,j) qij(kmax) = h2o(i,1,j) !C---- give a larger value for surface qij if too small. by Yu Gu 11/13/01 !C---- not necessary now when rad.F set minimum deltau value if (qij(kmax).lt. 1.0e-20) qij(kmax) = 1.0e-20 if (qij(1).lt. 1.0e-20) qij(1) = 1.0e-20 !C ! *** calculate coszenth 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) !C--- as is the solar surface albedo as(1:mbs) = albedo(i,j) ! *** begin to assign column values for radiation calculations ***! ! *** need to vertically reverse variables ! NEED HYDROSTATIC PRESSURE HERE (MONOTONIC CHANGE WITH HEIGHT) ! PHYD REPLACES P8W, PHYDMID REPLACES P3D PHYD(kts) = peven(I,kts,J) DO K = KTS,KTE PHYD(K+1) = peven(I,k+1,J) ENDDO ! pij(1) = peven(i,kmax,j)/100. ! pij(kmax) = peven(i,1,j)/100. pij(1) = PHYD(kmax)/100. pij(kmax) = PHYD(1)/100. !--- get ozone profile if (NOZONE.eq.0.) then ! no ozone po3(i,kms:kmax,j) = 0. else if (NOZONE.eq.1) then ! prescribed ozone profile !*******************************************************************! !************************************************************************** !--- add ozone profile ! need to change iprof, which is function of lat and julian day ! iprof = 1 : mid-latitude summer profile ! = 2 : mid-latitude winter profile ! = 3 : sub-arctic summer profile ! = 4 : sub-arctic winter profile ! = 5 : tropical profile center_lat = xlat(i,j) is_summer = 80 !Northern Hemisphere summer start ie_summer = 265 !Northern Hemisphere summer end IF (abs(center_lat) .le. 30. ) THEN ! tropic iprof = 5 ELSE IF (center_lat .gt. 0.) THEN IF (center_lat .gt. 60. ) THEN ! arctic IF (JULDAY .gt. is_summer .and. JULDAY .lt. ie_summer ) THEN ! arctic summer iprof = 3 ELSE ! arctic winter iprof = 4 ENDIF ELSE ! midlatitude IF (JULDAY .gt. is_summer .and. JULDAY .lt. ie_summer ) THEN ! north midlatitude summer iprof = 1 ELSE ! north midlatitude winter iprof = 2 ENDIF ENDIF ELSE IF (center_lat .lt. -60. ) THEN ! antarctic IF (JULDAY .lt. is_summer .or. JULDAY .gt. ie_summer ) THEN ! antarctic summer iprof = 3 ELSE ! antarctic winter iprof = 4 ENDIF ELSE ! midlatitude IF (JULDAY .lt. is_summer .or. JULDAY .gt. ie_summer ) THEN ! south midlatitude summer iprof = 1 ELSE ! south midlatitude winter iprof = 2 ENDIF ENDIF ENDIF ENDIF !--- iprof change over call o3prof(iprof,kms,kmax,PHYD(kms:kmax)/100.,po3(i,kms:kmax,j)) else if (NOZONE.eq.2) then !ozone profile passed from WRF ! no input at this time; do nothing 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) !C--- if temp > 320, set to 320. by yu Gu, 11/14/01, if < 180, set to 180 !C--- if change rad.F, no need to do it here !c if (tij(1) . gt. 320.) tij(1) = 320. !c if (tij(1) . lt. 180.) tij(1) = 180. !c if (tij(kmax) . gt. 320.) tij(1) = 320. !c if (tij(kmax) . lt. 180.) tij(1) = 180. !!!!!!!!!!!!!!! Assign Column Profile ----- VERTICAL_PROFILE2: do k=2,kte NK=kmax-k+kms !mark pij(k) = PHYD(NK)/100. tij(k) = t8w(i,NK,j) o3ij(k)= po3(i,NK,j) !c--- for water vapor IF (F_QV) THEN qij(k) = h2o(i,NK,j) ENDIF if (qij(k).lt. 1.0e-20) qij(k) = 1.0e-20 !C !c--- for liquid water IF (F_QC) THEN plwc(k) = cld_wlcld(i,NK-1,j)*air_den(i,NK-1,j) ! --- convert water content to g/m**3 plwc(k) = plwc(k)*1.e3 ENDIF !c--- for rain water and graupel 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 !c--- for ice water IF ( F_QI ) THEN ! -- add snow into ice 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 ! assign liquid as ice piwc(k) = plwc(k) plwc(k) = 0. ! assign rain as snow and add into ice piwc(k) = piwc(k) + prwc(k) prwc(k) = 0. ENDIF ENDIF ENDIF ! --- radius of liquid water droplet if (plwc(k).gt.0) then !c pre(k) = 20. !C--- test change to 10 um (04/23/02) pre(k) = 10. if (k.eq.kmax-1) pre(k) = 10. endif !C****************************************************************** !C****************************************************************** !C--- calculate ice crystal size !C****************************************************************** !C****************************************************************** !C****************************************************************** !C--- NPDE=1, papa. in terms of IWC & T (Gu & Liou, 2006) !C*********************************************************************** if (NPDE.eq.1.and.piwc(k) .gt. 1.e-7) then !C--- for temperature between 213K and 253K if (degrees(i,NK,j).lt.253. & .and.degrees(i,NK,j).gt.213.) then !mchen TEMP_IWC = exp(-7.6 & +4.*exp(-0.2443e-3*(253.-degrees(i,NK,j))**2.445)) !mchen TEMP_T = degrees(i,NK,j) - 273. !mchen TEMP_DE = 326.3+12.42*TEMP_T+0.197*TEMP_T*TEMP_T & !c 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 !C--- for temperature outside 213K and 253K pde(k) = 85. endif !c--- end if temperature for NPDE=1 !CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC !C*********************************************************************** !C---- NPDE=2, new de para. in terms of iwc (Liou et al. 2008) !C*********************************************************************** else if (NPDE.eq.2.and.piwc(k) .gt. 1.e-7) then !C--- for tropics ! if (j.ge.17.and.j.le.28) ncoef = 1 if (abs(xlat(i,j)).lt.30.) ncoef = 1 !C--- for midlatitude ! if (j.lt.17.and.j.gt.7.or.j.gt.28.and.j.le.38) then if (abs(xlat(i,j)).ge.30.and.abs(xlat(i,j)).le.60.) then !C--- for cold cirrus if (degrees(i,NK,j).lt.233) then !mchen ncoef = 2 else ! for warm cirrus ncoef = 3 endif endif !C--- for polar region if (abs(xlat(i,j)).gt.60.) ncoef = 4 !C--- calculate ln(De) 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. !C--- calculate de pde_mean = exp(pde_mean) pde_max = exp(pde_max) pde_min = exp(pde_min) !C--- if IWC smaller than critical, use a constant value 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) ! -- generate a random number between pde_min and pde_max call random_number(x) ran1 = x diff_max = pde_max - pde_mean diff_min = pde_mean - pde_min diff = diff_max !C-- using smaller difference !c if (diff_min.lt.diff_max) diff = diff_min !C-- using larger difference 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 !C---- constraint for larger difference if needed !c if (pde_ran .gt. pde_max) pde_ran = pde_max !c if (pde_ran .lt. pde_min) pde_ran = pde_min !c print *, 'pde_mean, max, min,ran=', pde_mean,pde_max,pde_min !c & , pde_ran !C--- calculate De if (pderandom) then pde(k) = pde_ran else pde(k) = pde_mean endif !C--- end for different region !C--- if para. out of De range if (pde(k).gt.150.) pde(k)=150. if (pde(k).lt.10.) pde(k)=10. !c--- end of npde=2 !CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC !C****************************************************************** !C--- NPDE = 3 !C****************************************************************** else if (NPDE.eq.3.and.piwc(k).gt.0.) then !C---- for clean if (clean) then ncoef = 1 else ncoef = 2 endif !C--- calculate ln(De) temp_i = log(piwc(k)) pde_mean = a_sat(ncoef)+b_sat(ncoef)*temp_i !C--- calculate de pde_mean = exp(pde_mean) pde(k) = pde_mean !C--- if para. out of De range if (pde(k).gt.150.) pde(k)=150. if (pde(k).lt.10.) pde(k)=10. !c--- end of npde=3 !CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC !C****************************************************************** !C--- NPDE =4 !C--- De-IWC-AOT relations from satellite data !C****************************************************************** else if (NPDE.eq.4.and.piwc(k).gt.0.) then !C--- Coefficients for De parameterizations !c--- for South America: -40<lat<15(j), 270<lon<355(i) 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) !C--- AOT for polluted (0.5) or clean (0.2) !c paot = tau_aer_2D(i,j) paot = 0.5 !C****piwc use mg/m**3 a1denom = (piwc(k)*1000./piwc0)**(-palpha) + 1. a2num = (peta*paot-1.1108)**pgama a2denom = (peta*paot-1.1108)**pbeta + 1. !C--- effective radius pde(k) = (pde0/a1denom)*(a2num/a2denom) !C--- convert to mean effective size for hexagonal (Fu 1996) !c pde(k) = pde(k) * 8./(3*sqrt(3)) !C--- convert to mean effective size for mixture !C----(Francis et al 1994; Chou et al 2002) pde(k) = 2. * pde(k) !c print *, pde(k) !C--- if para. out of De range if (pde(k).gt.150.) pde(k)=150. !c if (pde(k).lt.10.) pde(k)=10. if (pde(k).le.15.) pde(k)=15. !C--- for outside South America, use prescribed De else pde(k) = 85. end if !c--- end of npde=4 !CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC !c--- NPDE=0, prescribed pde !C****************************************************************** else if (piwc(k).gt.0.) then !CCCCCCCCCCCC-------- CTRL value --------CCCCCCCCCCCCCC pde(k) = 85. endif endif !C------------ Over for pde calculation !C*************************************************************************** !!!!!!!!!!!!!!!--- Cloud Fraction----------- !C--- add for fractional cloud 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=0, no cloud fraction 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 !100 continue !C--- add by Yu for aerosol if (NAERO.ge.1) then if (nfraca.eq.0) then ! -- aerosol type information from driver do iac = 1, mxac if (fraca(iac).gt.0.0) itps(iac) =1 end do else if (nfraca.eq.1) then ! -- precribed aerosol type information fraca(2) = 0.9 !fraction of continental aerosols fraca(11) = 0.1 !fraction of soot aerosols do iac = 1, mxac if (fraca(iac).gt.0.0) itps(iac) = 1 end do else if (nfraca.eq.2) then ! -- type in aerosol types and fractions else if (nfraca.eq.3) then ! -- type in aerosol optical depth for each type end if ! if (present(tau_aer_3D)) then ! tau_aer = sum(tau_aer_3D(i,j,1:kmax-1)) ! else if (present(tau_aer_2D)) then ! tau_aer = tau_aer_2D(i,j) ! else ! tau_aer = 0.2 ! end if do iac = 1, mxac if (itps(iac).eq.1) then Select case (ivd) case default CALL wrf_error_fatal('ivd: No VERTICAL Aerosol Profile') !mchen case(0) case(1) sh_aer(iac) = 3. call aer_scale_hgt(kmax-1,pij,sh_aer(iac),aprofs(1:kmax-1,iac)) ! case(2) ! aprofs(1:kmax-1,iac) = tau_aer_3D(i,j,1:kmax-1) / tau_aer ! case(3) !ivd=3, inpput vertical AOD profile for each aerosol type end Select a_wlis(1,iac)= 0.53 !Wavelength (microns) corresponding to "a_tau" a_taus(1,iac)= tau_aer * fraca(iac) end if end do end if !C--- aerosol type ! itp=0 ! if( aerosol_type(1:3) == 'mar' ) itp=1 ! if( aerosol_type(1:3) == 'con' ) itp=2 ! if( aerosol_type(1:3) == 'urb' ) itp=3 ! if( aerosol_type(1:3) == '0.5' ) itp=4 ! if( aerosol_type(1:3) == '1.0' ) itp=5 ! if( aerosol_type(1:3) == '2.0' ) itp=6 ! if( aerosol_type(1:3) == '4.0' ) itp=7 ! if( aerosol_type(1:3) == '8.0' ) itp=8 ! if( aerosol_type(1:3) == 'INS' ) itp=9 ! if( aerosol_type(1:3) == 'WAS' ) itp=10 ! if( aerosol_type(1:3) == 'SOO' ) itp=11 ! if( aerosol_type(1:3) == 'SSA' ) itp=12 ! if( aerosol_type(1:3) == 'SSC' ) itp=13 ! if( aerosol_type(1:3) == 'MIN' ) itp=14 ! if( aerosol_type(1:3) == 'MIA' ) itp=15 ! if( aerosol_type(1:3) == 'MIC' ) itp=16 ! if( aerosol_type(1:3) == 'MIT' ) itp=17 ! if( aerosol_type(1:3) == 'SUS' ) itp=18 !C--- aerosol humidity dependence ! ifg = 0 !C--- aerosol composition !C--- fraction for the second type ! iafrac = 2 !C--- only one type !c iafrac = 0 ! if( iafrac == 0) fraca=0 ! if( iafrac == 1) fraca=0.01 ! if( iafrac == 2) fraca=0.10 ! if( iafrac == 3) fraca=0.50 ! if( iafrac == 4) fraca=1.0 !c do iclrcld=1,1 !!!! 0,1 !C-- cloudy(1) or clear (1) ! iclrcld = 1 ! a_wlis =-9999. ! a_taus =-9999. ! itps = -9999 !C--- aerosol constiuents !C-- two constituents ! nac=2 !C-- one constituent ! nac=1 ! itps(1)=itp ! PRIMARY ! itps(2)=11 ! soot ! sh_aer(1)=3. ! sh_aer(2)=3. ! do iac=1,nac ! ivd=0 !! AEROSOL VERTICAL PROFILE ! ivd=1 !! USER PROVIDED AEROSOL VERTICAL PROFILE !c print *, "b4 scale" ! if( ivd == 1) then ! call aer_scale_hgt(nv,pij,sh_aer(iac),aprofs(1:nv,iac)) ! endif ! iaform = 3 ! if (iaform == 1) then ! n_atau = 1 ! a_wlis(1,iac)= 0.53 ! a_taus(1,1)= tau_aer* (1.0-fraca) ! a_taus(1,2)= tau_aer* fraca ! a_taus(1,3)= tau_aer*0.20 !MFRSR ! n_atau = 5 ! a_wlis(1:n_atau,iac) =(/0.413,0.500,0.609,0.664,0.860/) ! a_taus(1:n_atau,iac) =(/0.179,0.137,0.099,0.094,0.06/) ! a_taus(1:n_atau,iac) = a_taus(1:n_atau,iac)* (tau_aer/ a_taus(2,iac)) !CIMEL ! else if ( iaform == 3 ) then ! n_atau = 7 ! a_wlis(1:n_atau,iac) = (/ .340, .380, .440, .500, .670, .870, 1.020/) ! a_taus(1:n_atau,iac) = (/0.275,0.232 , 0.180, 0.147, 0.087, 0.067, 0.063/) ! a_taus(1:n_atau,iac)=a_taus(1:n_atau,iac)*(tau_aer/ a_taus(4,iac))/float(nac) ! endif !c print*,' Aerosol Constituent' ,iac ,itps(iac) !c write(6,'(a15,10f8.4)') 'Wavelength :',a_wlis(1:n_atau,iac) !c write(6,'(a15,10f8.4)') 'AEROSOL TAU :',a_taus(1:n_atau,iac) ! enddo ! endif !C--- add for aerosol over !--- calculate nclouds nsubcld = (kmax-2)/ngroup nclouds = nsubcld * ngroup !***************************************************************** !* Call Fu-Liou radiation program !***************************************************************** !C call rad(as, u0ij, solcon, tsij, ee) !CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC !C---- unified program to include all choices !CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC call rad_all ( kmax-1, kmax, & & as, u0ij, solcon, tsij, ee & !C--- atmospheric profile & , pij, tij, qij, o3ij & !C--- cloud water content and sizes & , piwc, pde, plwc, pre, prwc, pgwc & !C--- cloud amount & , cldamnt & !c--- cloud inhomogeneity factor & , cc_inho & !c--- for aerosol & , a_wlis, a_taus, aprofs & !C--- output: fluxes and heating rates & , fds, fus, dts, fdir, fuir, dtir & & , fd, fu, dt_rad & !C--- amontornes-bcodina (2014-04-29): new to save the direct and diffuse fluxes & , fdsdir, fdsdif & & ) !CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC !********************************************************************** !* Store the output from Fu-Liou code into standard arrays !********************************************************************** !*** surface !*** net solar at sfc netswbot(i,j) = fds(kmax) - fus(kmax) !*** downward solar at sfc dswbot(i,j) = fds(kmax) !*** DNI, DIR and DIF values (amontornes-bcodina 2014-04-29) if(u0ij .gt. 0.0001) then swddni(i,j) = fdsdir(kmax)/u0ij swddir(i,j) = fdsdir(kmax) swddif(i,j) = fdsdif(kmax) else swddni(i,j) = 0. swddir(i,j) = 0. swddif(i,j) = 0. endif !*** downward IR at sfc dlwbot(i,j) = fdir(kmax) !*** upward IR at sfc ulwbot(i,j) = fuir(kmax) !*** net IR at sfc netlwbot(i,j) = fuir(kmax) - fdir(kmax) !*** TOA !*** downward solar at top swinc(i,j) = fds(1) !*** upward solar at toa uswtop = fus(1) !*** net solar at toa dswtop(i,j) = fds(1) - fus(1) !*** upward IR at TOA ulwtop(i,j) = fuir(1) !*** value test if (abs(ulwtop(i,j)).gt.1000.) then ! write (0,*) 'i=',i,' j=',j,' ulwtop=',ulwtop(i,j) ! write(0,*) 'fd=', fds ! write(0,*) 'fus=', fus ! write(0,*) 'fdir=', fdir ! write(0,*) 'fuir=', fuir ! write (0,*) '---------------------------' ! write (0,*) as, u0ij, solcon, tsij,ee ! write (0,*) '---------------------------' ! do ii=1,kmax ! write (0,*) pij(ii), tij(ii), qij(ii), o3ij(ii) ! enddo ! write (0,*) '---------------------------' ! do ii=1,kmax-1 ! write (0,*) piwc(ii), pde(ii), plwc(ii), pre(ii),prwc(ii), pgwc(ii) & ! , cldamnt(ii) ! enddo CALL wrf_error_fatal('Flux out of range. Stop program') !mchen endif !C---test oevr !********************************************************************************** !* Update the total column physics increment to theta !********************************************************************************** do k = 1,kte NK=kte-k+kms !--- heating rate in k s-1 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) = dt_rad(NK) * FAC deltat(i,k,j) = deltat(i,k,j) + dt_rad(Nk) * FAC/pi3d(i,k,j) !--- heating rate in pa k s-1 ! dtshort(i,k,j) = dtshort(i,k,j)*(pij(NK)-pij(NK-1))*100. ! dtlongwv(i,k,j) = dtlongwv(i,k,j)*(pij(NK)-pij(NK-1))*100. ! deltat(i,k,j) = deltat(i,k,j)*(pij(NK)-pij(NK-1))*100. ! dtshort(i,k,j) = dts(NK) * FAC/pi3d(i,K,j) ! dtlongwv(i,k,j) = dtir(NK) * FAC/pi3d(i,k,j) !*** Value test if (abs(dtir(Nk)).gt.100.) then CALL wrf_error_fatal('Heating rate out of range. Stop program') !mchen endif !C---test oevr enddo 200 continue 300 end do HORIZONTAL_I end do HORIZONTAL_J !************************************************************************* !* End of routine driver_rad.F !************************************************************************* return end subroutine RAD_FLG !c !c Liner interpolation between two points. !c 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 !C--- use p slope=(y2-y1)/(x2-x1) y=y1+slope*(x-x1) !C--- use log(p) !c if (x2.eq.x1) then !c y = y1 !c else !c slope=(y2-y1)/(alog(x2/x1)) !c y=y1+slope*(alog(x/x1)) endif return end subroutine intrpl subroutine aer_scale_hgt(nv,pp,h,aprof) 1 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) ! print'(4f10.1,f10.2)',pp(i),pp(i+1),pbar,z,aprof(i) enddo tot= sum(aprof(1:nv)) ! print*,tot aprof = 100*(aprof/tot) !! aprof in % return end subroutine aer_scale_hgt !CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC !C---- radiation program for UCLA AGCM !C-----with all modifications !C---- with fractional cloud cover and aerosol !C---- with new ice parameterization and gases !C---- Control by parameters !CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC subroutine rad_all ( nv, nv1 & 1,27 & , asij, u0, ss, pts, eeij & !C--- atmospheric profile & , pij, tij, qij, o3ij & !C--- cloud water content and sizes & , piwcij, pdeij, plwcij, preij & & , prwcij, pgwcij & !C--- cloud amount & , cldamntij & !c--- cloud inhomogeneity factor & , cc_inhoij & !c--- for aerosol & , a_wlisij, a_tausij, aprofsij & !C--- output: fluxes and heating rates & , fdsij, fusij, dtsij & & , fdirij, fuirij, dtirij & & , fdij, fuij, dtij & !C--- amontornes-bcodina (2014-04-29): new to save the direct and diffuse fluxes & , fdsdir, fdsdif & & ) !c ********************************************************************* !c In this radiation scheme, six and 12 bands are selected for solar !c and thermal IR regions, respectively. The spectral division is below: !c 0.2 - 0.7 um, 0.7 - 1.3 um, 1.3 - 1.9 um, 1.9 - 2.5 um, 2.5 -3.5 um, & !c 3.5 - 4.0 um, and 2200 - 1900 cm**-1, 1900 - 1700 cm**-1, 1700 -1400 !c cm**-1, 1400 - 1250 cm**-1, 1250 - 1100 cm**-1, 1100 - 980 cm**-1, & !c 980 - 800 cm**-1, 800 - 670 cm**-1, 670 - 540 cm**-1, 540 - 400 cm !c **-1, 400 - 280 cm**-1, 280 - 0 cm**-1, where the index for the !c spectral band ( ib = 1, 2, ..., 18 ) is defined. !c !c ********************** !c * INPUT PARAMETERS * !c ********************** !c as(mbs) solar surface albedo, mbs = 6 !c u0 cosine of solar zenith angle !c ss solar constant ( W / m ** 2 ) !c pts surface temperature ( K ) !c ee(mbir) IR surface emissivity, mbir = 12 !c pp(nv1) atmospheric pressure ( mb ) !c pt(nv1) atmospheric temperature ( K ) !c ph(nv1) water vapor mixing ratio ( kg / kg ) !c po(nv1) ozone mixing ratio ( kg / kg ) !c pre(nv) effective radius of water cloud ( um ) !c plwc(nv) liquid water content ( g / m ** 3 ) !c pde(nv) effective size of ice cloud ( um ) !c piwc(nv) ice water content ( g / m ** 3 ) !c prwc(nv) rain water content ( g / m ** 3 ) !c pgwc(nv) graupel water content ( g / m ** 3 ) !c or aerosol concentration (m-3) !c umco2 concentration of CO2 (ppmv) !c umch4 concentration of CH4 (ppmv) !c umn2o concentration of N2O (ppmv) !c !c Note: (1) as(mbs) and ee(mbir) consider the substantial wavelength !c dependence of surface albedos and emissivities. !c (2) For CO2, CH4 and N2O, uniform mixing is assumed through !c the atmosphere with concentrations of 330, 1.6 and 0.28 !c ppmv, respectively. The concentrations can be changed !c through 'common /umcon/ umco2, umch4, umn2o '. !c (3) nv, nv1, nv, nv1, nv * 4, mb, mbs, mbir, and nc are !c given through 'para.file'. !c (4) nv1 and 1 are the surface and top levels, respectively. !c !c ********************** !c * OUTPUT PARAMETERS * !c ********************** !c fds(nv1) downward solar flux ( W / m ** 2 ) !c fus(nv1) upward solar flux ( W / m **2 ) !c dts(nv) solar heating rate ( K / day ) !c fdir(nv1) downward IR flux ( W / m ** 2 ) !c fuir(nv1) upward IR flux ( W / m **2 ) !c dtir(nv) IR heating rate ( K / day ) !c fd(nv1) downward net flux ( W / m ** 2 ) !c fu(nv1) upward net flux ( W / m **2 ) !c dt(nv) net heating rate ( K / day ) !c !c Note: Solar, IR, and net represent 0.2 - 0.4 um, 2200 - 0 cm**-1, & !c and entire spectral regions, respectively. !c !c ********************************************************************* !# include "para.file" USE PARA_FILE USE control_para, fourssl=>d4s,twossl=>d2s,foursir=>d4ir,twosir=>d2ir implicit none integer :: nv, nv1 !C--- input from GCM 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) !C--- aerosol optical properties real, dimension(mxat,mxac) :: a_wlisij,a_tausij real, dimension(nvx,mxac) :: aprofsij ! integer, dimension(mxac) :: itpsij !C--- variables in the offline version real, dimension(nv1) :: pp, pt, ph, po real, dimension(nv1) :: fds, fus, fdir, fuir, fd, fu !C--- amontornes-bcodina (2014-04-29): new to save the direct and diffuse information real, dimension(nv1) :: fdsdir, fdsdif 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 !C--- amontornes-bcodina (2014-04-29): new to save the direct and diffuse information real, dimension(nv1) :: ffddir,ffdif real :: bf(nv1), bs real, dimension(nv) :: wc1, wc2, wc3, wc4, wc, tt ! -- add for partial clouds 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 ! -- add for partial clouds 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 !cycle control 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 ! integer, dimension(mxac) :: itps 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) !c kg(mb) is the number of intervals to perform the g-quadrature in !c each band to consider the nongray gaseous absorption. In total, & !c we need to perform 121 spectral calculations in the scattering !c problem for each atmospheric profile. 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 / !!!!! -- change by Zhang Feng for trace gases 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 / !CCCCCCCCCC-- change over real :: f0 = 1.0 / 3.14159 !C-- add for aerosol if (naero.ge.1) then a_wlis = a_wlisij a_taus = a_tausij aprofs = aprofsij ! itps = itpsij ! end if !C-- over !C--- do i = 1, nv1 !C---- assign input to fu-liou variables pp(i) = pij(i) pt(i) = tij(i) ph(i) = qij(i) po(i) = o3ij(i) !C----- fds(i) = 0.0 fus(i) = 0.0 fdir(i) = 0.0 fuir(i) = 0.0 !C--- amontornes-bcodina (2014-04-29): Added for direct and diffuse computations fdsdir(i) = 0.0 fdsdif(i) = 0.0 10 end do as = asij ee = eeij do i = 1, nv !C---- assign input to fu-liou variables 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 !C--- call thicks(nv,nv1,pp,pt,ph,po,dz) call rayle2(nv,nv1,pp,pt,ph,po,trp) !C--- add by Yu (01/2003) for aerosol 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 !C-- over if ( u0 .le. 1.0e-4 ) then mbn = mbs + 1 else mbn = 1 endif do ib = mbn, mb if (nice.eq.1) then ! --------- using new coefficients call ice_new_ZF ( nv,nv1,ib,pre,pde,plwc,piwc,dz,ti,wi,wwi ) else if (nice.eq.2) then ! --------- using new coefficients by Qing for combine call ice_new_comb ( nv,nv1,ib,pre,pde,plwc,piwc,dz,ti,wi,wwi ) else if (nice.eq.3) then ! --------- using new coefficients by Qing for tropics call ice_new_trop ( nv,nv1,ib,pre,pde,plwc,piwc,dz,ti,wi,wwi ) else if (nice.eq.4) then ! --------- using new coefficients by Qing for midlat call ice_new_midlat ( nv,nv1,ib,pre,pde,plwc,piwc,dz,ti,wi,wwi ) else if (nice.eq.5) then ! --------- using FLIce98 call ice_98 ( nv,nv1,ib,pre,pde,plwc,piwc,dz,ti,wi,wwi ) else if (nice.eq.6) then ! --------- using single ice by Feng using new data Ping Yang 2000 call ice_singleice ( nv,nv1,ib,pre,pde,plwc,piwc,dz,ti,wi,wwi ) else if (nice.eq.7) then ! --------- using single ice by Qing using new data Ping Yang 2005 call ice_new_Single ( nv,nv1,ib,pre,pde,plwc,piwc,dz,ti,wi,wwi ) else ! --------- use old ice coefficients FLIce93 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 ) !C--- add for aerosol by Yu (01/2003) !c---------- 4/1/97 (3) ! No more ipr option !c if (ib.ne.1) then !C-- nor sub-intervals 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 !c print *, 'ctau=',ctau !c endif !c---------- 4/1/97 (3) !C-- over 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 !C---- change by Yu for new trace gases 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 !c do 30 ig = 1, kg(ib) do ig1 = 1, kg1_num do ig2 = 1, kg2_num ! -- changed by Yu for new gases, 11/2006 if (ngas.eq.0) then ! call gases ( ib, ig, hk ) 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 !C--- change over !C--- with aerosol, partly cloudy, depending on parameter 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 & & ) !C--- 02/13/02 Yu Gu !C--- change by Yu for fractional cloud - calculate radiation for each section 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 !c--- fractional area for each section area = area_group(1,nc1)*area_group(2,nc2) & & *area_group(3,nc3) !c print *, 'area=', area !c--- calculated total tao for layer above cloud layers tt_2(1,1) = tc_2(1,1) tt_2(1,2) = tc_2(1,2) ! do i = 2, nv-nclouds 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 !C--- assign the optical properties for each section !c--- for layers above clouds ! do k = 1,nv-nclouds 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 ! -- for cloudy layers do k=1,ngroup ! kl = (k-1)*nsubcld + nv1-nclouds 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)) !c tt_2(kk,n_loop(k)) = tt_2(kk-1,n_loop(k)) + tc_2(kk,n_loop(k)) !c tt(kk) = tt_2(kk, n_loop(k)) enddo enddo !c 11/4/95 (begin) if ( ib .le. mbs ) then if ( fourssl ) then !c amontornes-bcodina (2014-04-29): this line was modified to introduce the direct and diffuse fluxes call qfts ( nv,nv1,ib, as(ib), u0, f0, & & wc1,wc2,wc3,wc4,wc,tt,fu1,fd1,ffddir,ffdif ) 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 ! fus(i) = fus(i) + fu1(i) * hk fds(i) = fds(i) + fd1(i) * hk * area fus(i) = fus(i) + fu1(i) * hk * area !c amontornes-bcodina (2014-04-29): this line was added for the direct and diffuse outputs fdsdir(i) = fdsdir(i) + ffddir(i) * hk * area fdsdif(i) = fdsdif(i) + ffdif(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. ! -- 2-4-stream combination for IR call qftisf ( nv,nv1,ib, ee(ib-mbs), bf, bs, & & wc1, wc2, wc3, wc4, wc, tt, & & fu1, fd1 ) ! -- 2-stream for IR ! call qftits ( ib, ee(ib-mbs) ) endif !c 11/4/95 (end) do i = 1, nv1 ! fdir(i) = fdir(i) + fd1(i) * hk ! fuir(i) = fuir(i) + fu1(i) * hk 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 !c In this model, we used the solar spectral irradiance determined by !c Thekaekara (1973), and 1340.0 W/m**2 is the solar energy contained !c in the spectral region 0.2 - 4.0 um. fuq2 = bs * 0.03 * 3.14159 * ee(12) !c fuq2 is the surface emitted flux in the band 0 - 280 cm**-1 with a !c hk of 0.03. do i = 1, nv1 fds(i) = fds(i) * fuq1 fus(i) = fus(i) * fuq1 !c amontornes-bcodina (2014-04-29): direct and diffuse fluxes fdsdir(i) = fdsdir(i) * fuq1 fdsdif(i) = fdsdif(i) * fuq1 fuir(i) = fuir(i) + fuq2 fd(i) = fds(i) + fdir(i) fu(i) = fus(i) + fuir(i) !C--- assign result to output variables fdsij(i) = fds(i) fusij(i) = fus(i) fdirij(i) = fdir(i) fuirij(i) = fuir(i) fdij(i) = fd(i) fuij(i) = fu(i) !C--- 60 end do do i = 1, nv xx = fds(i) -fus(i) - fds(i+1) + fus(i+1) !c dts(i) = 8.4392 * xx / ( pp(i+1) - pp(i) ) dts(i) = xx / ( pp(i+1) - pp(i) ) xx = fdir(i) -fuir(i) - fdir(i+1) + fuir(i+1) !c dtir(i) = 8.4392 * xx / ( pp(i+1) - pp(i) ) dtir(i) = xx / ( pp(i+1) - pp(i) ) dt(i) = dts(i) + dtir(i) !C--- assign result to output variables dtsij(i) = dts(i) dtirij(i) = dtir(i) dtij(i) = dt(i) !C--- 70 end do return end subroutine rad_all !CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC subroutine thicks(nv,nv1,pp,pt,ph,po,dz) 1 ! ********************************************************************* ! dz is the thickness of a layer in units of km. ! ********************************************************************* 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 ) 1,78 !c ********************************************************************* !c tg(nv) are the optical depthes due to nongray gaseous absorption, in !c nv layers for a given band ib and cumulative probability ig. !c ********************************************************************* !# include "para.file" 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 ) ! write(*,*)'tg=',tg else do i=1,nv tg(i)=0.0 end do end if hk = 619.618 * hk1(ig) ! In this band ( 50000 - 14500 cm**-1 ), we have considered the nongray ! gaseous absorption of O3. 619.618 is the solar energy contained in ! the band in units of Wm**-2. case(2) !!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! 2nd --- 6 nd bands have been changed by Z.F.in Jun.,2003 ! 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) ! In this band ( 14500 - 7700 cm**-1 ), we have considered the nongray ! gaseous absorption of H2O. 484.295 is the solar energy contained in ! the band in units of Wm**-2. 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) ! In this band ( 7700 - 5250 cm**-1 ), we have considered the nongray ! gaseous absorption of H2O. 149.845 is the solar energy contained in ! the band in units of Wm**-2. 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) ! In this band ( 5250 - 4000 cm**-1 ), we have considered the nongray ! gaseous absorption of H2O. 48.7302 is the solar energy contained in ! the band in units of Wm**-2. 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) ! In this band ( 4000 - 2850 cm**-1 ), we have considered the nongray ! gaseous absorption of H2O. 31.6576 is the solar energy contained in ! the band in units of Wm**-2. 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) ! In this band ( 2850 - 2500 cm**-1 ), we have considered the nongray ! gaseous absorption of H2O. 5.79927 is the solar energy contained in ! the band in units of Wm**-2. case(7) !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!cZ.F. 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) ! In this band ( 2200 - 1900 cm**-1 ), we have considered the nongray ! gaseous absorption of H2O. case(8) !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! 8th---10th bands have been changed by Z.F. in Jun.2003 ! 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) ! print *, 'band 8, no, tg1=, tg2=', tg1,tg2 do i=1,nv tg(i)=tg1(i)+tg2(i)*umno/0.0005 end do hk = hk8(ig) ! In this band ( 1900 - 1700 cm**-1 ), we have considered the nongray ! gaseous absorption of H2O. 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) ! print *, 'band 9, no, tg2=', tg1, tg2 do i=1,nv tg(i)=tg1(i)+tg2(i)*umno2/0.001 end do hk = hk9(ig) ! In this band ( 1700 - 1400 cm**-1 ), we have considered the nongray ! gaseous absorption of H2O. 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) ! In this band ( 1400 - 1250 cm**-1 ), we have considered the overlapping ! absorption of H2O, CH4, and N2O by approach one of Fu(1991). ! In this band ( 1400 - 1250 cm**-1 ), we have considered the overlapping ! absorption of H2O, CH4, and N2O by approach one of Fu(1991). case(11) !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!Z.F. 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) ! In this band ( 1250 - 1100 cm**-1 ), we have considered the overlapping ! absorption of H2O, CH4, N2O, CFC11 and CFC12 by approach one of Fu(1991). 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) ! In this band ( 1100 - 980 cm**-1 ), we have considered the overlapping ! absorption of H2O and O3, CFC11, CFC12 by approach one of Fu(1991). 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) ! In this band ( 980 - 800 cm**-1 ), we have considered the overlapping ! absorption of H2O, CFC11 and CFC12 by approach one of fu (1991). case(14) !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!c ! 14th band has been changed by Z.F. in Jun,2003 ! 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) ! In this band ( 800 - 670 cm**-1), we have considered the overlapping ! absorption of H2O and CO2 by approach two of Fu(1991). case(15) !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!Z.F. 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) ! In this band ( 670 - 540 cm**-1), we have considered the overlapping ! absorption of H2O and CO2 by approach two of Fu(1991). 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) ! In this band ( 540 - 400 cm**-1 ), we have considered the nongray ! gaseous absorption of H2O. 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) ! In this band ( 400 - 280 cm**-1 ), we have considered the nongray ! gaseous absorption of H2O. 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) ! In this band ( 280 - 000 cm**-1 ), we have considered the nongray ! gaseous absorption of H2O. 20 end select return end subroutine gases_new subroutine ice ( nv,nv1,ib,pre,pde,plwc,piwc,dz,ti,wi,wwi ) 1,2 ! ********************************************************************* ! ti, wi, and wwi are the optical depth, single scattering albedo, ! and expansion coefficients of the phase function ( 1, 2, 3, and ! 4) due to the scattering of ice clouds for a given layer. ! ********************************************************************* 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 ! The constant 1000.0 below is to consider the units of dz(i) is km. 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 ) !C--- test for 10% more high clouds but 10% reduced single-scattering albedo !c if (i.ge.7.and.i.le.9) then !c wi(i) = wi(i) * 0.98 !c endif !c--- end test 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 !CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC !C--- using new coefficients for ice single-scattering parameterization subroutine ice_new_ZF ( nv,nv1,ib,pre,pde,plwc,piwc,dz,ti,wi,wwi ) 1,2 !c ********************************************************************* !c ti, wi, and wwi are the optical depth, single scattering albedo, & !c and expansion coefficients of the phase function ( 1, 2, 3, and !c 4) due to the scattering of ice clouds for a given layer. !c ********************************************************************* !# include "para.file" 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 ! changed by Z.F. ! common /zf_solar/tizfs(nv,mbs),wizfs(nv,mbs),wwi1s(nv,mbs), ! & wwi2s(nv,mbs),wwi3s(nv,mbs),wwi4s(nv,mbs) ! changing over 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 ! The constant 1000.0 below is to consider the units of dz(i) is km. 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 ! changed by Z.F. 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 ! changing over 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 ! added by Z.F. ! if(ib.le.mbs) then ! do i=1,nv ! tizfs(i,ib)=ti(i) ! wizfs(i,ib)=wi(i) ! wwi1s(i,ib)=wwi(i,1) ! wwi2s(i,ib)=wwi(i,2) ! wwi3s(i,ib)=wwi(i,3) ! wwi4s(i,ib)=wwi(i,4) ! end do ! end if ! write(*,*)'ti=',ti ! write(*,*)'wi=',wi ! write(*,*)'wwi1=',(wwi(i,1),i=1,nv) ! write(*,*)'wwi2=',(wwi(i,2),i=1,nv) ! write(*,*)'wwi3=',(wwi(i,3),i=1,nv) ! write(*,*)'wwi4=',(wwi(i,4),i=1,nv) ! adding over return end subroutine !CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC !C--- using new coefficients for ice single-scattering parameterization !C--- by Qing Yue 2006 subroutine ice_new_comb ( nv,nv1,ib,pre,pde,plwc,piwc,dz,ti,wi,wwi ) 1,2 !c ********************************************************************* !c ti, wi, and wwi are the optical depth, single scattering albedo, & !c and expansion coefficients of the phase function ( 1, 2, 3, and !c 4) due to the scattering of ice clouds for a given layer. !c ********************************************************************* !# include "para.file" 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 ! changed by Z.F. ! common /zf_solar/tizfs(nv,mbs),wizfs(nv,mbs),wwi1s(nv,mbs), ! & wwi2s(nv,mbs),wwi3s(nv,mbs),wwi4s(nv,mbs) ! changing over 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 ! The constant 1000.0 below is to consider the units of dz(i) is km. 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 ) ! -- uncomment the following if want to output optical depth for each band ! write(*,*)'level=', i, '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 ! changed by Z.F. 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 ! changing over 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 ! added by Z.F. ! if(ib.le.mbs) then ! do i=1,nv ! tizfs(i,ib)=ti(i) ! wizfs(i,ib)=wi(i) ! wwi1s(i,ib)=wwi(i,1) ! wwi2s(i,ib)=wwi(i,2) ! wwi3s(i,ib)=wwi(i,3) ! wwi4s(i,ib)=wwi(i,4) ! end do ! end if ! write(*,*)'ti=',ti ! write(*,*)'wi=',wi ! write(*,*)'wwi1=',(wwi(i,1),i=1,nv) ! write(*,*)'wwi2=',(wwi(i,2),i=1,nv) ! write(*,*)'wwi3=',(wwi(i,3),i=1,nv) ! write(*,*)'wwi4=',(wwi(i,4),i=1,nv) ! adding over return end subroutine !CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC !C--- using new coefficients for ice single-scattering parameterization !C--- for tropics subroutine ice_new_trop ( nv,nv1,ib,pre,pde,plwc,piwc,dz,ti,wi,wwi ) 1,2 !c ********************************************************************* !c ti, wi, and wwi are the optical depth, single scattering albedo, & !c and expansion coefficients of the phase function ( 1, 2, 3, and !c 4) due to the scattering of ice clouds for a given layer. !c ********************************************************************* !# include "para.file" 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 ! changed by Z.F. ! common /zf_solar/tizfs(nv,mbs),wizfs(nv,mbs),wwi1s(nv,mbs), ! & wwi2s(nv,mbs),wwi3s(nv,mbs),wwi4s(nv,mbs) ! changing over 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 ! The constant 1000.0 below is to consider the units of dz(i) is km. 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 ! changed by Z.F. 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 ! changing over 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 ! added by Z.F. ! if(ib.le.mbs) then ! do i=1,nv ! tizfs(i,ib)=ti(i) ! wizfs(i,ib)=wi(i) ! wwi1s(i,ib)=wwi(i,1) ! wwi2s(i,ib)=wwi(i,2) ! wwi3s(i,ib)=wwi(i,3) ! wwi4s(i,ib)=wwi(i,4) ! end do ! end if ! write(*,*)'ti=',ti ! write(*,*)'wi=',wi ! write(*,*)'wwi1=',(wwi(i,1),i=1,nv) ! write(*,*)'wwi2=',(wwi(i,2),i=1,nv) ! write(*,*)'wwi3=',(wwi(i,3),i=1,nv) ! write(*,*)'wwi4=',(wwi(i,4),i=1,nv) ! adding over return end subroutine !CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC !C--- using new coefficients for ice single-scattering parameterization subroutine ice_new_midlat ( nv,nv1,ib,pre,pde,plwc,piwc,dz,ti,wi,wwi ) 1,2 !c ********************************************************************* !c ti, wi, and wwi are the optical depth, single scattering albedo, & !c and expansion coefficients of the phase function ( 1, 2, 3, and !c 4) due to the scattering of ice clouds for a given layer. !c ********************************************************************* !# include "para.file" 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 ! changed by Z.F. ! common /zf_solar/tizfs(nv,mbs),wizfs(nv,mbs),wwi1s(nv,mbs), ! & wwi2s(nv,mbs),wwi3s(nv,mbs),wwi4s(nv,mbs) ! changing over 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 ! The constant 1000.0 below is to consider the units of dz(i) is km. 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 ! changed by Z.F. 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 ! changing over 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 ! added by Z.F. ! if(ib.le.mbs) then ! do i=1,nv ! tizfs(i,ib)=ti(i) ! wizfs(i,ib)=wi(i) ! wwi1s(i,ib)=wwi(i,1) ! wwi2s(i,ib)=wwi(i,2) ! wwi3s(i,ib)=wwi(i,3) ! wwi4s(i,ib)=wwi(i,4) ! end do ! end if ! write(*,*)'ti=',ti ! write(*,*)'wi=',wi ! write(*,*)'wwi1=',(wwi(i,1),i=1,nv) ! write(*,*)'wwi2=',(wwi(i,2),i=1,nv) ! write(*,*)'wwi3=',(wwi(i,3),i=1,nv) ! write(*,*)'wwi4=',(wwi(i,4),i=1,nv) ! adding over return end subroutine !************************************************ !C--- using FLIce98 for ice single-scattering parameterization subroutine ice_98 ( nv,nv1,ib,pre,pde,plwc,piwc,dz,ti,wi,wwi ) 1,2 !c ********************************************************************* !c ti, wi, and wwi are the optical depth, single scattering albedo, & !c and expansion coefficients of the phase function ( 1, 2, 3, and !c 4) due to the scattering of ice clouds for a given layer. !c ********************************************************************* !# include "para.file" !c USE RadParams 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 !c Fu 07-08-98 !************************************************ !C--- ice single-scattering parameterization by Feng using Ping Yang 2000 data subroutine ice_singleice ( nv,nv1,ib,pre,pde,plwc,piwc,dz,ti,wi,wwi ) 1,2 !c ********************************************************************* !c ti, wi, and wwi are the optical depth, single scattering albedo, & !c and expansion coefficients of the phase function ( 1, 2, 3, and !c 4) due to the scattering of ice clouds for a given layer. !c ********************************************************************* !# include "para.file" 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 ! The constant 1000.0 below is to consider the units of dz(i) is km. 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 !CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC !C--- using new coefficients for ice single habit !C--- by Qing Yue 2006 subroutine ice_new_Single ( nv,nv1,ib,pre,pde,plwc,piwc,dz,ti,wi,wwi ) 1,2 !c ********************************************************************* !c ti, wi, and wwi are the optical depth, single scattering albedo, & !c and expansion coefficients of the phase function ( 1, 2, 3, and !c 4) due to the scattering of ice clouds for a given layer. !c ********************************************************************* !# include "para.file" 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 ! changed by Z.F. ! common /zf_solar/tizfs(nv,mbs),wizfs(nv,mbs),wwi1s(nv,mbs), ! & wwi2s(nv,mbs),wwi3s(nv,mbs),wwi4s(nv,mbs) ! changing over 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 ! The constant 1000.0 below is to consider the units of dz(i) is km. 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 ! changed by Z.F. 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 ! changing over 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 ! added by Z.F. ! if(ib.le.mbs) then ! do i=1,nv ! tizfs(i,ib)=ti(i) ! wizfs(i,ib)=wi(i) ! wwi1s(i,ib)=wwi(i,1) ! wwi2s(i,ib)=wwi(i,2) ! wwi3s(i,ib)=wwi(i,3) ! wwi4s(i,ib)=wwi(i,4) ! end do ! end if ! write(*,*)'ti=',ti ! write(*,*)'wi=',wi ! write(*,*)'wwi1=',(wwi(i,1),i=1,nv) ! write(*,*)'wwi2=',(wwi(i,2),i=1,nv) ! write(*,*)'wwi3=',(wwi(i,3),i=1,nv) ! write(*,*)'wwi4=',(wwi(i,4),i=1,nv) ! adding over return end subroutine subroutine water_fl ( nv,nv1,ib,pre,plwc,pde,piwc,dz,tw,ww,www ) 1,2 !c ********************************************************************* !c tw, ww, and www are the optical depth, single scattering albedo, & !c and expansion coefficients of the phase function ( 1, 2, 3, and !c 4) due to the Mie scattering of water clouds for a given layer. !c By using the mean single scattering properties of the eight drop !c size distributions in each spectral band, the single scattering !c properties of a water cloud with the given liquid water content !c and effective radius are obtained by interpolating (Eqs. 4.25 - !c 4.27 of Fu, 1991). !c ********************************************************************* !# include "para.file" 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) .le. re(1) ) then ! A cloud with the effective radius smaller than 4.18 um is assumed ! to have an effective radius of 4.18 um with respect to the single ! scattering properties. 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) .ge. re(nc) ) then ! A cloud with the effective radius larger than 31.23 um is assumed ! to have an effective radius of 31.18 um with respect to the single ! scattering properties. 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 = nc 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) 1,1 !c ********************************************************************* !c trp is P(mb)/T(K)*DZ(m) and the constant 14.6337=R(287)/g(9.806)/2. !c ********************************************************************* !# include "para.file" 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 ) 1,2 !c ********************************************************************* !c tr, wr, and wwr are the optical depth, single scattering albedo, & !c and expansion coefficients of the phase function ( 1, 2, 3, and !c 4 ) due to the Rayleigh scattering for a given layer. !c ********************************************************************* !# include "para.file" 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 ) 1,2 !c ********************************************************************* !c trn, wrn, and wwrn are the optical depth, single scattering albedo, & !c and expansion coefficients of the phase function ( 1, 2, 3, and 4 ) !c due to the Mie scattering of rain for a given layer. !c Jan. 19, 1993 !c ********************************************************************* !# include "para.file" 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 ) 1,2 !c ********************************************************************* !c tgr, wgr, and wwgr are the optical depth, single scattering albedo, & !c and expansion coefficients of the phase function ( 1, 2, 3, and 4 ) !c due to the Mie scattering of graupel for a given layer. !c Jan. 19, 1993 !c ********************************************************************* !# include "para.file" 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 ) 1,2 !c ********************************************************************* !c tgm(nv) are the optical depthes due to water vapor continuum absorp- !c tion in nv layers for a given band ib. We include continuum absorp- !c tion in the 280 to 1250 cm**-1 region. vv(11)-vv(17) are the central !c wavenumbers of each band in this region. !c ********************************************************************* !# include "para.file" 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 ) 1,50 ! ********************************************************************* ! tg(nv) are the optical depthes due to nongray gaseous absorption, in ! nv layers for a given band ib and cumulative probability ig. ! ********************************************************************* 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 !!!!!!!!!!!!!!!!!c 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) ! In this band ( 50000 - 14500 cm**-1 ), we have considered the nongray ! gaseous absorption of O3. 619.618 is the solar energy contained in ! the band in units of Wm**-2. 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) ! In this band ( 14500 - 7700 cm**-1 ), we have considered the nongray ! gaseous absorption of H2O. 484.295 is the solar energy contained in ! the band in units of Wm**-2. 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) ! In this band ( 7700 - 5250 cm**-1 ), we have considered the nongray ! gaseous absorption of H2O. 149.845 is the solar energy contained in ! the band in units of Wm**-2. 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) ! In this band ( 5250 - 4000 cm**-1 ), we have considered the nongray ! gaseous absorption of H2O. 48.7302 is the solar energy contained in ! the band in units of Wm**-2. 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) ! In this band ( 4000 - 2850 cm**-1 ), we have considered the nongray ! gaseous absorption of H2O. 31.6576 is the solar energy contained in ! the band in units of Wm**-2. 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) ! In this band ( 2850 - 2500 cm**-1 ), we have considered the nongray ! gaseous absorption of H2O. 5.79927 is the solar energy contained in ! the band in units of Wm**-2. 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) ! In this band ( 2200 - 1900 cm**-1 ), we have considered the nongray ! gaseous absorption of H2O. 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) ! In this band ( 1900 - 1700 cm**-1 ), we have considered the nongray ! gaseous absorption of H2O. 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) ! In this band ( 1700 - 1400 cm**-1 ), we have considered the nongray ! gaseous absorption of H2O. 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) ! In this band ( 1400 - 1250 cm**-1 ), we have considered the overlapping ! absorption of H2O, CH4, and N2O by approach one of Fu(1991). 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) ! In this band ( 1250 - 1100 cm**-1 ), we have considered the overlapping ! absorption of H2O, CH4, and N2O by approach one of Fu(1991). 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) ! In this band ( 1100 - 980 cm**-1 ), we have considered the overlapping ! absorption of H2O and O3 by approach one of Fu(1991). 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) ! In this band ( 980 - 800 cm**-1 ), we have considered the nongray ! gaseous absorption of H2O. 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) ! In this band ( 800 - 670 cm**-1), we have considered the overlapping ! absorption of H2O and CO2 by approach two of Fu(1991). 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) ! In this band ( 670 - 540 cm**-1), we have considered the overlapping ! absorption of H2O and CO2 by approach two of Fu(1991). 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) ! In this band ( 540 - 400 cm**-1 ), we have considered the nongray ! gaseous absorption of H2O. 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) ! In this band ( 400 - 280 cm**-1 ), we have considered the nongray ! gaseous absorption of H2O. 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) ! In this band ( 280 - 000 cm**-1 ), we have considered the nongray ! gaseous absorption of H2O. end select return end subroutine subroutine qks ( nv,nv1,coefks,fkg,pp,pt,ph,po ) 17,1 !c ********************************************************************* !c fkg(nv1) are the gaseous absorption coefficients in units of (cm-atm) !c **-1 for a given cumulative probability in nv1 layers. coefks(3,11) !c are the coefficients to calculate the absorption coefficient at the !c temperature t for the 11 pressures by !c ln k = a + b * ( t - 245 ) + c * ( t - 245 ) ** 2 !c and the absorption coefficient at conditions other than those eleven !c pressures is interpolated linearly with pressure (Fu, 1991). !c ********************************************************************* !# include "para.file" 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 ) 40,1 !c ********************************************************************* !c fkg(nv1) are the gaseous absorption coefficients in units of (cm-atm) !c **-1 for a given cumulative probability in nv1 layers. coefki(3,19) !c are the coefficients to calculate the absorption coefficient at the !c temperature t for the 19 pressures by !c ln k = a + b * ( t - 245 ) + c * ( t - 245 ) ** 2 !c and the absorption coefficient at conditions other than those 19 !c pressures is interpolated linearly with pressure (Fu, 1991). !c ********************************************************************* !# include "para.file" 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 ! -test if (pt(i).gt.345.) then pt(i) = 345. endif if (pt(i).lt.180.) then pt(i) = 180. endif ! -test over 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 ) 2,1 !c ********************************************************************* !c fkg(nv1) are the gaseous absorption coefficients in units of (cm-atm) !c **-1 for a given cumulative probability in nv1 layers. coefki(3,19) !c are the coefficients to calculate the absorption coefficient at the !c temperature t for the 19 pressures by !c ln k = a + b * ( t - 250 ) + c * ( t - 250 ) ** 2 !c and the absorption coefficient at conditions other than those 19 !c pressures is interpolated linearly with pressure (Fu, 1991). !c ********************************************************************* !# include "para.file" 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 ) 2,1 !# include "para.file" 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 ! do 20 i = 1, nv ! tg(i) = tg(i) * 476.16 * fk !20 continue ! 476.16 = 2.24e4 / M * 10.0 / 9.8, where M = 48 for O3.? return end subroutine !---------------------------------------------------- subroutine qoph2o ( nv,nv1,fkg, tg,pp,pt,ph,po ) 25,1 !# include "para.file" 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 ! do 20 i = 1, nv ! tg(i) = tg(i) * 1269.841 !20 continue ! 1269.841 = 2.24e4 / M * 10.0 / 9.8, where M = 18 for H2O. return end subroutine !----------------------------------------------------- subroutine qopch4 ( nv,nv1,fkg, tg,pp,pt,ph,po ) 5,1 !# include "para.file" 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 ! do 20 i = 1, nv ! tg(i) = tg(i) * 1.26238e-3 !20 continue ! 1.26238e-3 = 2.24e4 / M * 10.0 / 9.8 * 1.6e-6 * M / 28.97, where ! M = 16 for CH4. return end subroutine !------------------------------------------------------- subroutine qopn2o ( nv,nv1,fkg, tg,pp,pt,ph,po ) 5,1 !# include "para.file" 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 ! do 20 i = 1, nv ! tg(i) = tg(i) * 2.20918e-4 !20 continue ! 2.20918e-4 = 2.24e4 / M * 10.0 / 9.8 * 0.28e-6 * M / 28.97, where ! M = 44 for N2O. return end subroutine !-------------------------------------------------------- subroutine qopo3i ( nv,nv1,fkg, tg,pp,pt,ph,po ) 2,1 !# include "para.file" 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 ! do 20 i = 1, nv ! tg(i) = tg(i) * 476.16 !20 continue return end subroutine !---------------------------------------------- subroutine qophc ( nv,nv1,fkg, tg,pp,pt,ph,po ) 9,1 !# include "para.file" 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 ! See page 86 of Fu (1991). return end subroutine !---------------------------------------------- subroutine qopcon ( nv,nv1,vv,tg,pp,pt,ph,po ) 1,1 !# include "para.file" 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 ! do 7 i = 1, nv ! tg(i) = tg(i) * 10.0 / 9.80616 !7 continue return end subroutine !c function fk ( v, e, p, t ) !c The units of fk is cm**2/g. See Eq. (A.19) of Fu (1991). !c x = 4.18 !c y = 5577.8 !c z = 0.00787 !c r = 0.002 !c w = exp ( 1800.0 / t - 6.08108 ) !c fk = ( x + y * exp ( -z * v ) ) * ( e + r * p ) * w / 1013.25 !c return !c end !C--- add for new gases !------------------------------------------------------------- subroutine qopo2 ( nv,nv1,fkg, tg,pp,pt,ph,po ) 1,1 !# include "para.file" 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 ) 2,1 !# include "para.file" 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 ! 2.24e4 / M * 10.0 / 9.8 * 330.0 * M / 28.97, where ! M = 44 for CO2. return end subroutine !--------------------------------------------------------------- subroutine qopco ( nv,nv1,fkg, tg,pp,pt,ph,po ) 1,1 !# include "para.file" 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 ) 2,1 !# include "para.file" 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 ) 1,1 !# include "para.file" 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 ) 2,1 !# include "para.file" 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 !ccc- change for new gases over !--------------------------------------------------------------- !! add CFC begin: 2007.06 Yue subroutine qopCFC11 ( nv,nv1,coefCFC, tg,pp,pt,ph,po ) 3,1 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 ) 3,1 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 !! CFC add end !! -- with aerosol & partly cloudy ! subroutine comscp_aero( 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 & ! & ) !!c ********************************************************************* !!c This subroutine is used to COMbine Single-Scattering Properties due !!c to ice crystals, water droplets, and Rayleigh molecules along with !!c H2O continuum absorption and nongray gaseous absorption. See Section !!c 3.4 of Fu (1991). wc, wc1, wc2, wc3, and wc4, are total (or combined) !!c single - scattering albedo, and expansion coefficients of the !!c phase function ( 1, 2, 3, and 4 ) in nv layers. tt(nv) are the normal !!c optical depth ( from the top of the atmosphere to a given level ) for !!c level 2 - level nv1( surface ). The single-scattering properties of !!c rain and graupel are also incorporated in ( Jan. 19, 1993 ). !!c ********************************************************************* !!c The single-scattering properties of aerosols are incorporated in !!c (10/29/96) based on earlier version (5/17/95). !!c ********************************************************************* !!# include "para.file" ! USE PARA_FILE ! USE control_para ! ! common /ic/ ti(nv), wi(nv), wwi(nv,4) ! common /wat/ tw(nv), ww(nv), www(nv,4) ! common /rai/ trn(nv), wrn(nv), wwrn(nv,4) ! common /gra/ tgr(nv), wgr(nv), wwgr(nv,4) ! common /ray/ tr(nv), wr(nv), wwr(nv,4) ! common /con/ tgm(nv) ! common /gas/ tg(nv) !!C--- add by Yu for fractional cloud ! common /dfsin_2/ wc1_2(nv,2), wc2_2(nv,2), wc3_2(nv,2), & ! wc4_2(nv,2), & ! wc_2(nv,2), tt_2(nv,2) ! common /delta_tao/ tc_2(nv,2) !!c-- change over ! common /dfsin/ wc1(nv), wc2(nv), wc3(nv), wc4(nv), & ! wc(nv), tt(nv) !!C--- change by Yu, 02/13/02 !!c common /cld_a/cldamnt(nv), area_h(2), area_m(2), area_l(2) !!c common /cld_c/n_h, n_m, n_l, cld_h, cld_m, cld_l ! common /cld_a/cldamnt(nv), area_group(3,2) ! common /cld_inho/cc_inho(nv) ! common /cld_c/n_group(3), cld_group(3) ! common /cld_loop/ nb(3) !!c-- change over ! !!C-- added by Yu Gu 11/2006 to add control parameter ! common /nctrl/ naero, nfract, nice,ngas ! !!C-- change by Yu Gu 01/2003 to add aerosol !!c---------- 10/29/96 (4) ! real tae,wae,wwae,taes(0:4) ! common /aer/ tae(nvx,mxac), wae(nvx,mxac), wwae(nvx,4,mxac) ! common /aero_ctrl/ ifg, ivd, itp, nac, iaform, n_atau !!c---------- 10/29/96 (4) !!C-- change over for aerosol ! ! dimension tc(nv) ! !!c--- change by Yu, 02/13/02 !!c--- change by Yu, 02/13/02 ! !!c-- define inhomogeneity factor !!c c_inho = 0.7 !!c--- test 0.8 !!c c_inho = 0.8 ! !!c--- determine n_group(k), cld_group(k), and area_group(k,1), area_group(k,2) !!c--- hight,middle, and low three cloud groups ! do k=1,ngroup !!c do k=1,3 ! ! kl = (k-1)*nsubcld + nv1 - nclouds !!c kl = (k-1)*3 + 7 ! cld_group(k) = cldamnt(kl) ! do i=kl+1,kl+nsubcld-1 !!c do i=kl+1,kl+2 ! if (cldamnt(i).gt.cld_group(k)) then ! cld_group(k) = cldamnt(i) ! endif ! enddo !!c-- partly cloudy ! 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) !!c-- clear ! 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. !!c-- overcast ! 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 !!c--- change over ! ! do 10 i = 1, nv !!c-- add by Yu for clear ! tc_2(i,1) = tr(i) + tgm(i) + tg(i) + & ! trn(i) + tgr(i) ! !!C-- add by Yu Gu for aerosol under clear(01/2003) !!C ! if (naero.ge.1) then ! do iac = 1,nac ! tc_2(i,1) = tc_2(i,1) + tae(i,iac) ! enddo ! endif !!c---------- 10/29/96 (5) !!C --- change over ! !!c-- change by Yu for overcast !!c--- adjust tau according to cloud amount ! if (cldamnt(i).gt. 0.) then !!c n_cld = (i-4)/3 ! n_cld = (i-(nv1-nclouds))/nsubcld+1 ! if (n_cld.gt.0) then !!C--- determine adjust parameter ! 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) !!c & * c_inho !!C-- above: change by Yu: to include the inhomogeneity effect ! !!c & ti(i) = ti(i) * cldamnt(i) !!c & / cld_group(n_cld) ! if (tw(i).gt.0.) & ! tw(i) = tw(i) * adj_parw & ! * cc_inho(i) !!c & * c_inho !!C-- above: change by Yu: to include the inhomogeneity effect ! !!c & tw(i) = tw(i) * cldamnt(i) !!c & / cld_group(n_cld) ! endif ! endif !!c-- adjust over ! tc_2(i,2) = ti(i) + tw(i) + tr(i) + tgm(i) + tg(i) + & ! trn(i) + tgr(i) ! !!C-- add by Yu Gu for aerosol (01/2003) !!C ! if (naero.ge.1) then ! do iac = 1,nac ! tc_2(i,2) = tc_2(i,2) + tae(i,iac) ! enddo ! endif ! !!c---------- 10/29/96 (5) !!C --- change over ! !!c print *, 'i=',i,' tc=', tc_2(i,2) ! tis = ti(i) * wi(i) ! tws = tw(i) * ww(i) ! trns = trn(i) * wrn(i) ! tgrs = tgr(i) * wgr(i) !!c fw1 = tr(i) + trns + tgrs !!c fw2 = tis + tws + tr(i) + trns + tgrs ! !!C--- add by Yu Gu (01/2003) for aerosol ! !!c---------- 10/29/96 (6) ! if(naero.ge.1) then ! taes(0:4) = 0.0 ! do iac = 1,nac ! 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 ! 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 ! !!c---------- 10/29/96 (6) ! ! wc_2(i,1) = fw1 / tc_2(i,1) ! wc_2(i,2) = fw2 / tc_2(i,2) !!C-- change by Yu for overcast (add one dimension in the array) ! 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 ! !!C-- add by yu (01/2003) for aerosol ! 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 !!C-- over for aerosol ! !!C-- add by Yu for clear (add one dimension in the array) ! 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 !!C-- add by yu (01/2003) for aerosol ! 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 continue !!c tt_2(1,1) = tc_2(1,1) !!c tt_2(1,2) = tc_2(1,2) !!c do 20 i = 2, nv !!c tt_2(i,1) = tt_2(i-1,1) + tc_2(i,1) !!c tt_2(i,2) = tt_2(i-1,2) + tc_2(i,2) !!c20 continue ! return ! end subroutine !C--- with aerosol & partly cloudy subroutine comscp_aero_cld ( nv,nv1 & 1,2 & ,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 & & ) !c ********************************************************************* !c This subroutine is used to COMbine Single-Scattering Properties due !c to ice crystals, water droplets, and Rayleigh molecules along with !c H2O continuum absorption and nongray gaseous absorption. See Section !c 3.4 of Fu (1991). wc, wc1, wc2, wc3, and wc4, are total (or combined) !c single - scattering albedo, and expansion coefficients of the !c phase function ( 1, 2, 3, and 4 ) in nv layers. tt(nv) are the normal !c optical depth ( from the top of the atmosphere to a given level ) for !c level 2 - level nv1( surface ). The single-scattering properties of !c rain and graupel are also incorporated in ( Jan. 19, 1993 ). !c ********************************************************************* !c The single-scattering properties of aerosols are incorporated in !c (10/29/96) based on earlier version (5/17/95). !c ********************************************************************* !# include "para.file" 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 !-------------------------------------------------- ! -- add by Yu for fractional cloud 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 ! - change over !c--- change by Yu, 02/13/02 !c-- define inhomogeneity factor !c c_inho = 0.7 !c--- test 0.8 !c c_inho = 0.8 !c--- determine n_group(k), cld_group(k), and area_group(k,1), area_group(k,2) !c--- hight,middle, and low three cloud groups do k=1,ngroup ! kl = (k-1)*ngroup + nv1 - nclouds 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 ! - partly cloudy 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) ! - clear 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. ! - overcast 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 !c--- change over do i = 1, nv ! - add by Yu for clear tc_2(i,1) = tr(i) + tgm(i) + tg(i) + & & trn(i) + tgr(i) !--- value test 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 !--- test over ! - add by Yu Gu for aerosol for clear condition (01/2003) ! 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 !c---------- 10/29/96 (5) !C --- change over !c-- change by Yu for overcast !c--- adjust tau according to cloud amount 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 !mchen ! -- determine adjust parameter 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 en