| blob | ebc07bc0066fafb0e14b34eb8c2f2d202b233c09 |
1 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
2 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
3 ! ------------------ Goddard Radiation Code ---------------------------------
4 !
5 ! Purpose :
6 ! Drive Goddard radiative transfer to compute radiative heating rate and surface radiation.
7 !
8 !
9 ! Method (Calling sequence) :
10 ! goddardrad(preparation for radiative transfer)
11 ! |-- o3_profile (intepolate ozone profile)
12 ! |-- swrad(compute SW radiative transfer)
13 ! | |-- sw_uvpar(compute SW radiative transfer for UV band)
14 ! | | |-cloud_scale(scale cloud optical thickness for diffuse/direct radiation)
15 ! | | |-delta_eddington(delta-eddington approximation for the bulk scattering properties)
16 ! | | |-twostream_adding(compute updown fluxes using two-stream adding method)
17 ! | |-- sw_ir(compute SW radiative transfer for IR band)
18 ! | | |-cloud_scale(scale cloud optical thickness for diffuse/direct radiation)
19 ! | | |-delta_eddington(delta-eddington approximation for the bulk scattering properties)
20 ! | | |-twostream_adding(compute updown fluxes using two-stream adding method)
21 ! | |-- rflx(compute the reduction of clear-sky downward solar flux)
22 ! |
23 ! |-- lwrad(compute LW radiative transfer)
24 ! |-- column(compute column-integrated amount of absorber)
25 ! |-- h2oexps(compute exponentials for water vapor line absorption)
26 ! |-- conexps(compute exponentials for continuum absorption)
27 ! |-- co2exps(compute co2 exponentials)
28 ! |-- ch4exps(compute ch4 exponentials)
29 ! |-- comexps(compute co2-minor exponentials)
30 ! |-- cfcexps(compute cfc exponentials)
31 ! |-- b10exps(compute band3a exponentials)
32 ! |-- tablup(compute water vapor, co2 and o3 transmittances)
33 ! |-- h2okdis(compute water vapor transmittance using kdistirubion method)
34 ! |-- co2kdis(compute co2 transmittances using k-distribution method)
35 ! |-- n2okdis(compute n2o transmittances using k-distribution method)
36 ! |-- ch4kdis(compute ch4 transmittances using k-distribution method)
37 ! |-- comkdis(compute co2-minor transmittances using k-distribution method)
38 ! |-- cfckdis(compute cfc transmittances using k-distribution method)
39 ! |-- b10kdis(compute band3a transmittances using k-distribution method)
40 ! |-- cldovlp(compute the fractional clear line-of-sight)
41 !
42 !
43 ! History :
44 ! Aug 2007 , Toshi Matsui : One-dimensinalized swrad to skip swrad in night.
45 ! Jun 2007 , Toshi Matsui ; Revise broadband flux reduction to avoid negative SW heating.
46 ! May 2007 , Toshi Matsui ; Made driver to plug WRF, GOCCART module, and F90 revision.
47 ! Apr 2007 , Toshi Matsui ; SW radiation routine is optimized (add fast_overcast option for CRM).
48 ! 1996 ~ 2002 , Ming-dah Chou and Max Suarez ; initial and misc changes
49 !
50 !
51 ! Refferences :
52 ! Chou M.-D., and M. J. Suarez, 1999: A solar radiation parameterization for atmospheric studies.
53 ! NASA Tech. Rep. NASA/TM-1999-10460, vol. 15, 38 pp
54 ! Chou M.-D., and M. J. Suarez, 2001: A thermal infrared radiation parameterization for atmospheric
55 ! studies. NASA/TM-2001-104606, vol. 19, 55pp
56 ! Matsui, T., W.-K. Tao, and J. J. Shi: 2007: Goddard Radiation and Aerosol Direct Effect in Goddard
57 ! WRF, NASA/UMD WRF Meeting, Sep 14 2007.
58 ! Shi, J. J., W.-K. Tao, T. Matsui, R. Cifelli, A. Hou, S. Lang, A. Tokey, N.-Y. Wang,
59 ! C. Peters-Lidard, G. Jackson, S. Rutledge, W. Petersen, 2010: WRF Simulations of the
60 ! 20-22 January 2007 Snow Events over Eastern Canada: Comparison with in-situ and Satellite
61 ! Observations. J. Applied Meteor. Climatol, 49, 2246-2266.
62 !
63 !
64 ! Bug report:
65 ! If you find any bug, please report to
66 ! Toshi Matsui @ NASA GSFC, email:toshihisa.matsui-1@nasa.gov
67 ! Jainn J. Shi @ NASA GSFC, email:jainn.j.shi@nasa.gov
68 !
69 ! We will report bugs to
70 ! Ming-Dah Chou @ National Taiwa University mdchou@webmail.as.ntu.edu.tw
71 !---------------------------------------------------------------------------------------------------------
72 module module_ra_goddard
74 ! encapsulation control
75 private !-> privatize all variables in this module excepting public parameter (subroutine) below.
76 public :: goddardrad !only this subroutine can be called from other module
78 integer,parameter :: fp_kind = selected_real_kind(15) !Real precision (6-single 15-double 20-quad)
80 !-------------------------------------------------------------------------------
81 !--------------------- User Modification -----------------------------------
83 ! (Both SW and LW radiation option)
84 ! there is an option of providing either cloud ice/water mixing ratio
85 ! (cwc) or optical thickness (taucld). if the former is provided, set
86 ! cldwater=.true., and taucld is computed from cwc and reff as a
87 ! function of spectra band. otherwise, set cldwater=.false., and
88 ! specify taucld, independent of spectral band.
90 logical,parameter :: cldwater = .true. !ALWAYS .true.
92 ! (Both SW and LW radiation option)
93 ! in a high spatial-resolution atmospheric model, fractional cloud cover
94 ! might be computed to be either 0 or 1. in such a case, scaling of the
95 ! cloud optical thickness is not necessary, and the computation can be
96 ! made faster by setting overcast=.true. otherwise, set the option
97 ! overcast=.false. (-> hardwire with WRF module)
99 logical,parameter :: overcast = .true. ! recommend true for CRM or LES
101 ! (SW radition option)
102 ! For overcast (=true) option, this option (fast_overcast=.true.) skip the clear-sky
103 ! two-stream radiative transfer computation, and only compute cloudy ski option.
104 ! Fclear/Fcloud is estimated from pre-computed look-up table for the below cloud
105 ! flux reduction due to CO2 and O2. So, this option make SW radiation faster 1.5 time.
106 ! Difference in surface downwelling radiation betweeen true and false option is less than 1.W/m^2.
108 logical,parameter :: fast_overcast = .true. ! recommend true
110 ! (LW radiation option)
111 ! if high = .true., transmission functions in the co2, o3, and the
112 ! three water vapor bands with strong absorption are computed using
113 ! table look-up. cooling rates are computed accurately from the
114 ! surface up to 0.01 mb. But slightly computationally expensive.
115 !
116 ! if high = .false., transmission functions in LW radiation are computed using the
117 ! k-distribution method with linear pressure scaling for all spectral
118 ! bands and gases. cooling rates are not accurately calculated for
119 ! pressures less than 10 mb. But, the computationally slightly cheap.
121 logical,parameter :: high = .false. !recommend false for CRM
122 !recommend true if you include storatosphere (<10mb)
124 ! (LW radiation option)
125 ! if trace = .true., absorption due to n2o, ch4, cfcs, and the
126 ! two minor co2 bands in the LW window region is included.
127 ! if trace = .false., absorption in those minor bands is neglected.
129 logical,parameter :: trace = .true. !recommend true
131 real(Kind=fp_kind), parameter :: co2 = 336.77e-6 ! co2 concentration [ppv] (Y1850 = 285.43e-6)
132 real(Kind=fp_kind), parameter :: n2o = 0.32e-6 ! n2o concentration [ppv] (Y1850 = 0.28e-6)
133 real(Kind=fp_kind), parameter :: ch4 = 1.79e-6 ! ch4 concentration [ppv] (Y1850 = 0.86e-6)
134 real(Kind=fp_kind), parameter :: cfc11 = 268.0e-12 ! cfc11 concentration [ppv] (Y1850 = 0.)
135 real(Kind=fp_kind), parameter :: cfc12 = 503.0e-12 ! cfc12 concentration [ppv] (Y1850 = 0.)
136 real(Kind=fp_kind), parameter :: cfc22 = 105.0e-12 ! cfc22 concentration [ppv] (Y1850 = 0.)
138 ! some tuning parameters
139 real(Kind=fp_kind), parameter :: re = 10. ! cloud droplet effective radius [micron]
141 !--------------------- End of User Modification -----------------------------
142 !-------------------------------------------------------------------------------
144 ! number of radiation bands
145 integer, parameter :: ib_sw = 11 !number of shortwave band
146 integer, parameter :: ib_lw = 10 !number of longwave band
148 ! Threshold values
149 ! - Do not change. These values are the lowest threshold, while avoiding numerical instability.
150 real(Kind=fp_kind), parameter :: cosz_min = 0.0001 ! threshold of minimum cosizne of solar zenith angle for SW rad
151 real(Kind=fp_kind), parameter :: fcld_min = 0.01 ! threshold of minimum cloud fraction for account clooud
152 real(Kind=fp_kind), parameter :: taux_min = 0.0001 ! threshold of minimum optical depth for accouting cloud (0.02)
153 real(Kind=fp_kind), parameter :: opt_min = 1.e-6 ! threshold of optical properties to avoid numerical instability.
155 integer :: jloop
156 contains
158 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
159 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
161 subroutine goddardrad( rthraten, gsf, xlat,xlong &
162 ,dz8w,t8w,rho_phy,sw_or_lw &
163 ,alb,emiss,t3d,qv3d,qc3d,qr3d &
164 ,qi3d,qs3d,qg3d &
165 ,p3d,p8w3d,pi3d,cldfra3d &
166 ,gmt,cp,g,julday,xtime,declin,solcon &
167 ,center_lat &
168 ,radfrq,degrad,taucldi,taucldc,warm_rain &
169 ,f_qv,f_qc,f_qr,f_qi,f_qs,f_qg &
170 ,ids,ide, jds,jde, kds,kde &
171 ,ims,ime, jms,jme, kms,kme &
172 ,its,ite, jts,jte, kts,kte &
173 ! ,cosz_urb2d,omg_urb2d & !optional urban
174 ,ERBE_out & !optional sdsu
175 )
176 implicit none
178 !------- I / O variables ----------------------------------------------
180 character(len=2), intent(in) :: &
181 sw_or_lw ! 'sw'=shortwave radiation,'lw'=longwave radiation,'is'=ISCCP simulator
183 integer, intent(in) :: &
184 ids, & ! start index for i in domain
185 ide, & ! end index for i in domain
186 jds, & ! start index for j in domain
187 jde, & ! end index for j in domain
188 kds, & ! start index for k in domain
189 kde, & ! end index for k in domain
190 ims, & ! start index for i in memory
191 ime, & ! end index for i in memory
192 jms, & ! start index for j in memory
193 jme, & ! end index for j in memory
194 kms, & ! start index for k in memory
195 kme, & ! end index for k in memory
196 its, & ! start index for i in tile
197 ite, & ! end index for i in tile
198 jts, & ! start index for j in tile
199 jte, & ! end index for j in tile
200 kts, & ! start index for k in tile
201 kte, & ! end index for k in tile
202 julday ! integer of julian date
204 logical, intent(in) :: &
205 warm_rain ! logics for warm_rain only or not
207 real, intent(in) :: &
208 radfrq, & ! time for calling radiation (min)
209 degrad, & ! conversion factor for degrees to radians (pi/180.) (rad/deg)
210 xtime, & ! time since simulation start (min)
211 declin, & ! solar declination angle (rad)
212 solcon, & ! solar constant (W/m^2)
213 gmt, & ! greenwich mean time hour of model start (hour)
214 cp, & ! heat capacity at constant pressure for dry air (J/kg/K)
215 g ! acceleration due to gravity (m/s^2)
217 real, dimension( ims:ime, kms:kme, jms:jme ), intent(in) :: &
218 p3d, & ! pressure (Pa)
219 p8w3d, & ! pressure at full levels (Pa)
220 pi3d, & ! exner function (-)
221 t3d, & ! temperature (K)
222 t8w, & ! temperature at full levels (K)
223 dz8w, & ! dz between full levels (m)
224 rho_phy, & ! density (kg/m^3)
225 cldfra3d ! cloud fraction (0-1)
227 real, dimension( ims:ime, jms:jme ), intent(in) :: &
228 xlat, & ! latitude, south is negative (degree)
229 xlong, & ! longitude, west is negative (degree)
230 alb, & ! broadband surface albedo (between 0 and 1)
231 emiss ! broadband surface emissivity (between 0 and 1)
233 real, dimension( ims:ime, kms:kme, jms:jme ),optional,intent(in) :: &
234 qv3d, & ! water vapor mixing ratio (kg/kg) (in)
235 qc3d, & ! cloud water mixing ratio (kg/kg) (in)
236 qr3d, & ! rain water mixing ratio (kg/kg) (in)
237 qi3d, & ! cloud ice mixing ratio (kg/kg) (in)
238 qs3d, & ! snow mixing ratio (kg/kg) (in)
239 qg3d ! graupel mixing ration (kg/kg) (in)
241 logical, optional, intent(in ) :: f_qv,f_qc,f_qr,f_qi,f_qs,f_qg !hydrometeor flags
242 !
243 real, dimension( ims:ime, kms:kme, jms:jme ), intent(inout) :: &
244 rthraten, & ! theta tendency due to radiative heating (K/sec)
245 taucldi, & ! ice cloud optical thickness for visible broadband
246 taucldc ! liquid cloud optical thickness for visible braodband
248 real, dimension( ims:ime, jms:jme ), intent(inout) :: &
249 gsf ! (for SW) : net short wave flux at ground surface (W/m^2)
250 ! (for LW) : downward long wave flux at ground surface (W/m^2)
252 !
253 !
254 ! Extra 3D variables (last dimension 1-TOA LW down, 2-TOA LW up, 3-surface LW down, 4-surface LW up)
255 ! 5-TOA SW down, 6-TOA SW up, 7-surface SW down, 8-surface SW up)
257 real, optional,dimension(ims:ime, jms:jme, 1:8),intent(out) :: ERBE_out !extra output for SDSU
259 !------- Local variables ----------------------------------------------
261 integer :: i,j,k,nk,ib,is ! loop indice
262 integer :: mix, mkx !maximum dimension for i and k
265 real(Kind=fp_kind), dimension( its:ite ) :: &
266 cosz, & ! cosine of solar zenith angle (0~1)
267 rsuvbm, & ! surface albedo for direct UV-VIS radiation
268 rsuvdf, & ! surface albedo for diffuse UV-VIS radiation
269 rsirbm, & ! surface albedo for direct NIR radiation
270 rsirdf, & ! surface albedo for diffuse NIR radiation
271 tsfc, & ! surface air temperature (K)
272 tskin, & ! surface skin (radiative) temperature (K)
273 p400, & ! pressure criteria for upper
274 p700 ! pressure criteir for middle
276 real(Kind=fp_kind), dimension( its:ite, ib_lw ) :: emis2d !emissivity
278 integer, dimension( its:ite ) :: &
279 ict, & ! 400mb level indice
280 icb ! 700mb level indice
282 real(Kind=fp_kind), dimension( its:ite, kts-1:kte+1 ) :: &
283 flx, & !flux fraction (-) or actual flux (W/m^2)
284 flxd, & !donwelling flux fraction [-] (for shortwave) , but actual flux [W/m2] (for longwave)
285 flxu !upwelling flux fraction [-] (for shortwave) , but actual flux [W/m2] (for longwave)
288 real(Kind=fp_kind), dimension( its:ite, kts-1:kte ) :: o3 !ozone profile
290 real(Kind=fp_kind), dimension( its:ite, kts-1:kte, ib_sw ) :: &
291 taual_sw, & ! aerosol optical depth for SW bands
292 ssaal_sw, & ! aerosol single scattering albedo for SW bands
293 asyal_sw ! aerosol asymetry factor for SW bands
295 real(Kind=fp_kind), dimension( its:ite, kts-1:kte, ib_lw ) :: &
296 taual_lw, & ! aerosol optical depth for LW bands
297 ssaal_lw, & ! aerosol single scattering albedo for LW bands
298 asyal_lw ! aerosol asymetry factor for LW bands
300 real(Kind=fp_kind), dimension( its:ite, kts-1:kte, 3 ) :: & !1-ice cloud, 2-liquid cloud, 3-rain
301 reff, & !particle effective size (micron)
302 cwc !hydrometer mixing ratio (kg/kg) or (g/g)
304 real(Kind=fp_kind), dimension( its: ite, kts-1:kte+1 ) :: &
305 p8w2d, & ! pressure in full level (mb)
306 t8w2d ! temperature in full level (K)
308 real(Kind=fp_kind), dimension( its: ite, kts-1:kte ) :: &
309 tten2d, & ! temperature tendency (K/sec)
310 sh2d, & ! specific humidity (-)
311 p2d, & ! pressure (mb)
312 t2d, & ! temperature (K)
313 dz2d, & ! layer depth
314 fcld2d ! cloud fraction
316 real(Kind=fp_kind), dimension( its:ite , kts:kte+1 ) :: phyd ! pressure (Pa)
317 real(Kind=fp_kind), dimension( its:ite , kts:kte ) :: phydmid ! pressure in middle (Pa)
319 !
320 ! ozone table
321 !
322 integer, parameter :: np = 75
323 real(Kind=fp_kind), dimension( np, 5 ) :: pres, ozone
324 real(Kind=fp_kind), dimension( np ) :: p
326 integer :: iprof !index for porfile
327 integer,parameter :: is_summer = 80 !summer start indice
328 integer,parameter :: ie_summer = 265 !summer end indice
329 !
330 real(Kind=fp_kind) :: fac,x
331 real(Kind=fp_kind) :: xt24,tloctm,hrang,xxlat
332 real, intent(in) :: center_lat ! center of latitude
334 !urban
335 ! real, optional, dimension( ims:ime, jms:jme ), intent(out) :: cosz_urb2d !urban
336 ! real, optional, dimension( ims:ime, jms:jme ), intent(out) :: omg_urb2d !urban
338 !--------------------------------------------------------------------------------
339 ! data set 1
340 ! mid-latitude summer (75 levels) : p(mb) o3(g/g)
341 ! surface temp = 294.0
342 !
343 data (pres(i,1),i=1,np)/ &
344 0.0006244, 0.0008759, 0.0012286, 0.0017234, 0.0024174, &
345 0.0033909, 0.0047565, 0.0066720, 0.0093589, 0.0131278, &
346 0.0184145, 0.0258302, 0.0362323, 0.0508234, 0.0712906, &
347 0.1000000, 0.1402710, 0.1967600, 0.2759970, 0.3871430, &
348 0.5430, 0.7617, 1.0685, 1.4988, 2.1024, 2.9490, &
349 4.1366, 5.8025, 8.1392, 11.4170, 16.0147, 22.4640, &
350 31.5105, 44.2001, 62.0000, 85.7750, 109.5500, 133.3250, &
351 157.1000, 180.8750, 204.6500, 228.4250, 252.2000, 275.9750, &
352 299.7500, 323.5250, 347.3000, 371.0750, 394.8500, 418.6250, &
353 442.4000, 466.1750, 489.9500, 513.7250, 537.5000, 561.2750, &
354 585.0500, 608.8250, 632.6000, 656.3750, 680.1500, 703.9250, &
355 727.7000, 751.4750, 775.2500, 799.0250, 822.8000, 846.5750, &
356 870.3500, 894.1250, 917.9000, 941.6750, 965.4500, 989.2250, &
357 1013.0000/
358 !
359 data (ozone(i,1),i=1,np)/ &
360 0.1793e-06, 0.2228e-06, 0.2665e-06, 0.3104e-06, 0.3545e-06, &
361 0.3989e-06, 0.4435e-06, 0.4883e-06, 0.5333e-06, 0.5786e-06, &
362 0.6241e-06, 0.6698e-06, 0.7157e-06, 0.7622e-06, 0.8557e-06, &
363 0.1150e-05, 0.1462e-05, 0.1793e-05, 0.2143e-05, 0.2512e-05, &
364 0.2902e-05, 0.3313e-05, 0.4016e-05, 0.5193e-05, 0.6698e-05, &
365 0.8483e-05, 0.9378e-05, 0.9792e-05, 0.1002e-04, 0.1014e-04, &
366 0.9312e-05, 0.7834e-05, 0.6448e-05, 0.5159e-05, 0.3390e-05, &
367 0.1937e-05, 0.1205e-05, 0.8778e-06, 0.6935e-06, 0.5112e-06, &
368 0.3877e-06, 0.3262e-06, 0.2770e-06, 0.2266e-06, 0.2020e-06, &
369 0.1845e-06, 0.1679e-06, 0.1519e-06, 0.1415e-06, 0.1317e-06, &
370 0.1225e-06, 0.1137e-06, 0.1055e-06, 0.1001e-06, 0.9487e-07, &
371 0.9016e-07, 0.8641e-07, 0.8276e-07, 0.7930e-07, 0.7635e-07, &
372 0.7347e-07, 0.7065e-07, 0.6821e-07, 0.6593e-07, 0.6368e-07, &
373 0.6148e-07, 0.5998e-07, 0.5859e-07, 0.5720e-07, 0.5582e-07, &
374 0.5457e-07, 0.5339e-07, 0.5224e-07, 0.5110e-07, 0.4999e-07/
376 !--------------------------------------------------------------------------------
377 ! data set 2
378 ! mid-latitude winter (75 levels) : p(mb) o3(g/g)
379 ! surface temp = 272.2
380 !
381 data (pres(i,2),i=1,np)/ &
382 0.0006244, 0.0008759, 0.0012286, 0.0017234, 0.0024174, &
383 0.0033909, 0.0047565, 0.0066720, 0.0093589, 0.0131278, &
384 0.0184145, 0.0258302, 0.0362323, 0.0508234, 0.0712906, &
385 0.1000000, 0.1402710, 0.1967600, 0.2759970, 0.3871430, &
386 0.5430, 0.7617, 1.0685, 1.4988, 2.1024, 2.9490, &
387 4.1366, 5.8025, 8.1392, 11.4170, 16.0147, 22.4640, &
388 31.5105, 44.2001, 62.0000, 85.9000, 109.8000, 133.7000, &
389 157.6000, 181.5000, 205.4000, 229.3000, 253.2000, 277.1000, &
390 301.0000, 324.9000, 348.8000, 372.7000, 396.6000, 420.5000, &
391 444.4000, 468.3000, 492.2000, 516.1000, 540.0000, 563.9000, &
392 587.8000, 611.7000, 635.6000, 659.5000, 683.4000, 707.3000, &
393 731.2000, 755.1000, 779.0000, 802.9000, 826.8000, 850.7000, &
394 874.6000, 898.5000, 922.4000, 946.3000, 970.2000, 994.1000, &
395 1018.0000/
396 !
397 data (ozone(i,2),i=1,np)/ &
398 0.2353e-06, 0.3054e-06, 0.3771e-06, 0.4498e-06, 0.5236e-06, &
399 0.5984e-06, 0.6742e-06, 0.7511e-06, 0.8290e-06, 0.9080e-06, &
400 0.9881e-06, 0.1069e-05, 0.1152e-05, 0.1319e-05, 0.1725e-05, &
401 0.2145e-05, 0.2581e-05, 0.3031e-05, 0.3497e-05, 0.3980e-05, &
402 0.4478e-05, 0.5300e-05, 0.6725e-05, 0.8415e-05, 0.1035e-04, &
403 0.1141e-04, 0.1155e-04, 0.1143e-04, 0.1093e-04, 0.1060e-04, &
404 0.9720e-05, 0.8849e-05, 0.7424e-05, 0.6023e-05, 0.4310e-05, &
405 0.2820e-05, 0.1990e-05, 0.1518e-05, 0.1206e-05, 0.9370e-06, &
406 0.7177e-06, 0.5450e-06, 0.4131e-06, 0.3277e-06, 0.2563e-06, &
407 0.2120e-06, 0.1711e-06, 0.1524e-06, 0.1344e-06, 0.1199e-06, &
408 0.1066e-06, 0.9516e-07, 0.8858e-07, 0.8219e-07, 0.7598e-07, &
409 0.6992e-07, 0.6403e-07, 0.5887e-07, 0.5712e-07, 0.5540e-07, &
410 0.5370e-07, 0.5214e-07, 0.5069e-07, 0.4926e-07, 0.4785e-07, &
411 0.4713e-07, 0.4694e-07, 0.4676e-07, 0.4658e-07, 0.4641e-07, &
412 0.4634e-07, 0.4627e-07, 0.4619e-07, 0.4612e-07, 0.4605e-07/
415 !--------------------------------------------------------------------------------
416 ! data set 3
417 ! sub-arctic summer (75 levels) : p(mb) o3(g/g)
418 ! surface temp = 287.0
419 !
420 data (pres(i,3),i=1,np)/ &
421 0.0006244, 0.0008759, 0.0012286, 0.0017234, 0.0024174, &
422 0.0033909, 0.0047565, 0.0066720, 0.0093589, 0.0131278, &
423 0.0184145, 0.0258302, 0.0362323, 0.0508234, 0.0712906, &
424 0.1000000, 0.1402710, 0.1967600, 0.2759970, 0.3871430, &
425 0.5430, 0.7617, 1.0685, 1.4988, 2.1024, 2.9490, &
426 4.1366, 5.8025, 8.1392, 11.4170, 16.0147, 22.4640, &
427 31.5105, 44.2001, 62.0000, 85.7000, 109.4000, 133.1000, &
428 156.8000, 180.5000, 204.2000, 227.9000, 251.6000, 275.3000, &
429 299.0000, 322.7000, 346.4000, 370.1000, 393.8000, 417.5000, &
430 441.2000, 464.9000, 488.6000, 512.3000, 536.0000, 559.7000, &
431 583.4000, 607.1000, 630.8000, 654.5000, 678.2000, 701.9000, &
432 725.6000, 749.3000, 773.0000, 796.7000, 820.4000, 844.1000, &
433 867.8000, 891.5000, 915.2000, 938.9000, 962.6000, 986.3000, &
434 1010.0000/
435 !
436 data (ozone(i,3),i=1,np)/ &
437 0.1728e-06, 0.2131e-06, 0.2537e-06, 0.2944e-06, 0.3353e-06, &
438 0.3764e-06, 0.4176e-06, 0.4590e-06, 0.5006e-06, 0.5423e-06, &
439 0.5842e-06, 0.6263e-06, 0.6685e-06, 0.7112e-06, 0.7631e-06, &
440 0.1040e-05, 0.1340e-05, 0.1660e-05, 0.2001e-05, 0.2362e-05, &
441 0.2746e-05, 0.3153e-05, 0.3762e-05, 0.4988e-05, 0.6518e-05, &
442 0.8352e-05, 0.9328e-05, 0.9731e-05, 0.8985e-05, 0.7632e-05, &
443 0.6814e-05, 0.6384e-05, 0.5718e-05, 0.4728e-05, 0.4136e-05, &
444 0.3033e-05, 0.2000e-05, 0.1486e-05, 0.1121e-05, 0.8680e-06, &
445 0.6474e-06, 0.5164e-06, 0.3921e-06, 0.2996e-06, 0.2562e-06, &
446 0.2139e-06, 0.1723e-06, 0.1460e-06, 0.1360e-06, 0.1267e-06, &
447 0.1189e-06, 0.1114e-06, 0.1040e-06, 0.9678e-07, 0.8969e-07, &
448 0.8468e-07, 0.8025e-07, 0.7590e-07, 0.7250e-07, 0.6969e-07, &
449 0.6694e-07, 0.6429e-07, 0.6208e-07, 0.5991e-07, 0.5778e-07, &
450 0.5575e-07, 0.5403e-07, 0.5233e-07, 0.5067e-07, 0.4904e-07, &
451 0.4721e-07, 0.4535e-07, 0.4353e-07, 0.4173e-07, 0.3997e-07/
454 !--------------------------------------------------------------------------------
455 ! data set 3
456 ! sub-arctic winter (75 levels) : p(mb) o3(g/g)
457 ! surface temp = 257.1
458 !
459 data (pres(i,4),i=1,np)/ &
460 0.0006244, 0.0008759, 0.0012286, 0.0017234, 0.0024174, &
461 0.0033909, 0.0047565, 0.0066720, 0.0093589, 0.0131278, &
462 0.0184145, 0.0258302, 0.0362323, 0.0508234, 0.0712906, &
463 0.1000000, 0.1402710, 0.1967600, 0.2759970, 0.3871430, &
464 0.5430, 0.7617, 1.0685, 1.4988, 2.1024, 2.9490, &
465 4.1366, 5.8025, 8.1392, 11.4170, 16.0147, 22.4640, &
466 31.5105, 44.2001, 62.0000, 85.7750, 109.5500, 133.3250, &
467 157.1000, 180.8750, 204.6500, 228.4250, 252.2000, 275.9750, &
468 299.7500, 323.5250, 347.3000, 371.0750, 394.8500, 418.6250, &
469 442.4000, 466.1750, 489.9500, 513.7250, 537.5000, 561.2750, &
470 585.0500, 608.8250, 632.6000, 656.3750, 680.1500, 703.9250, &
471 727.7000, 751.4750, 775.2500, 799.0250, 822.8000, 846.5750, &
472 870.3500, 894.1250, 917.9000, 941.6750, 965.4500, 989.2250, &
473 1013.0000/
474 !
475 data (ozone(i,4),i=1,np)/ &
476 0.2683e-06, 0.3562e-06, 0.4464e-06, 0.5387e-06, 0.6333e-06, &
477 0.7301e-06, 0.8291e-06, 0.9306e-06, 0.1034e-05, 0.1140e-05, &
478 0.1249e-05, 0.1360e-05, 0.1474e-05, 0.1855e-05, 0.2357e-05, &
479 0.2866e-05, 0.3383e-05, 0.3906e-05, 0.4437e-05, 0.4975e-05, &
480 0.5513e-05, 0.6815e-05, 0.8157e-05, 0.1008e-04, 0.1200e-04, &
481 0.1242e-04, 0.1250e-04, 0.1157e-04, 0.1010e-04, 0.9063e-05, &
482 0.8836e-05, 0.8632e-05, 0.8391e-05, 0.7224e-05, 0.6054e-05, &
483 0.4503e-05, 0.3204e-05, 0.2278e-05, 0.1833e-05, 0.1433e-05, &
484 0.9996e-06, 0.7440e-06, 0.5471e-06, 0.3944e-06, 0.2852e-06, &
485 0.1977e-06, 0.1559e-06, 0.1333e-06, 0.1126e-06, 0.9441e-07, &
486 0.7678e-07, 0.7054e-07, 0.6684e-07, 0.6323e-07, 0.6028e-07, &
487 0.5746e-07, 0.5468e-07, 0.5227e-07, 0.5006e-07, 0.4789e-07, &
488 0.4576e-07, 0.4402e-07, 0.4230e-07, 0.4062e-07, 0.3897e-07, &
489 0.3793e-07, 0.3697e-07, 0.3602e-07, 0.3506e-07, 0.3413e-07, &
490 0.3326e-07, 0.3239e-07, 0.3153e-07, 0.3069e-07, 0.2987e-07/
492 !--------------------------------------------------------------------------------
493 ! data set 4
494 ! tropical (75 levels) : p(mb) o3(g/g)
495 ! surface temp = 300.0
496 !
497 data (pres(i,5),i=1,np)/ &
498 0.0006244, 0.0008759, 0.0012286, 0.0017234, 0.0024174, &
499 0.0033909, 0.0047565, 0.0066720, 0.0093589, 0.0131278, &
500 0.0184145, 0.0258302, 0.0362323, 0.0508234, 0.0712906, &
501 0.1000000, 0.1402710, 0.1967600, 0.2759970, 0.3871430, &
502 0.5430, 0.7617, 1.0685, 1.4988, 2.1024, 2.9490, &
503 4.1366, 5.8025, 8.1392, 11.4170, 16.0147, 22.4640, &
504 31.5105, 44.2001, 62.0000, 85.7750, 109.5500, 133.3250, &
505 157.1000, 180.8750, 204.6500, 228.4250, 252.2000, 275.9750, &
506 299.7500, 323.5250, 347.3000, 371.0750, 394.8500, 418.6250, &
507 442.4000, 466.1750, 489.9500, 513.7250, 537.5000, 561.2750, &
508 585.0500, 608.8250, 632.6000, 656.3750, 680.1500, 703.9250, &
509 727.7000, 751.4750, 775.2500, 799.0250, 822.8000, 846.5750, &
510 870.3500, 894.1250, 917.9000, 941.6750, 965.4500, 989.2250, &
511 1013.0000/
512 !
513 data (ozone(i,5),i=1,np)/ &
514 0.1993e-06, 0.2521e-06, 0.3051e-06, 0.3585e-06, 0.4121e-06, &
515 0.4661e-06, 0.5203e-06, 0.5748e-06, 0.6296e-06, 0.6847e-06, &
516 0.7402e-06, 0.7959e-06, 0.8519e-06, 0.9096e-06, 0.1125e-05, &
517 0.1450e-05, 0.1794e-05, 0.2156e-05, 0.2538e-05, 0.2939e-05, &
518 0.3362e-05, 0.3785e-05, 0.4753e-05, 0.6005e-05, 0.7804e-05, &
519 0.9635e-05, 0.1023e-04, 0.1067e-04, 0.1177e-04, 0.1290e-04, &
520 0.1134e-04, 0.9223e-05, 0.6667e-05, 0.3644e-05, 0.1545e-05, &
521 0.5355e-06, 0.2523e-06, 0.2062e-06, 0.1734e-06, 0.1548e-06, &
522 0.1360e-06, 0.1204e-06, 0.1074e-06, 0.9707e-07, 0.8960e-07, &
523 0.8419e-07, 0.7962e-07, 0.7542e-07, 0.7290e-07, 0.7109e-07, &
524 0.6940e-07, 0.6786e-07, 0.6635e-07, 0.6500e-07, 0.6370e-07, &
525 0.6244e-07, 0.6132e-07, 0.6022e-07, 0.5914e-07, 0.5884e-07, &
526 0.5855e-07, 0.5823e-07, 0.5772e-07, 0.5703e-07, 0.5635e-07, &
527 0.5570e-07, 0.5492e-07, 0.5412e-07, 0.5335e-07, 0.5260e-07, &
528 0.5167e-07, 0.5063e-07, 0.4961e-07, 0.4860e-07, 0.4761e-07/
530 !--------------------------------------------------------------------------------
531 mix = ite-its+1 ! maximum dimension for i
532 mkx = kte-kts+1 ! maximum dimension for k
535 ! testing, need to change iprof, which is function of lat and julian day
536 ! iprof = 1 : mid-latitude summer profile
537 ! = 2 : mid-latitude winter profile
538 ! = 3 : sub-arctic summer profile
539 ! = 4 : sub-arctic winter profile
540 ! = 5 : tropical profile
542 !toshi
543 ! center_lat = xlat ( mix/2, (jte-jts+1)/2 )
545 if (abs(center_lat) .le. 30. ) then ! tropic
546 iprof = 5
547 else
548 if (center_lat .gt. 0.) then
549 if (center_lat .gt. 60. ) then ! arctic
550 if (julday .gt. is_summer .and. julday .lt. ie_summer ) then
551 ! arctic summer
552 iprof = 3
553 else
554 ! arctic winter
555 iprof = 4
556 endif
557 else ! midlatitude
558 if (julday .gt. is_summer .and. julday .lt. ie_summer ) then
559 ! north midlatitude summer
560 iprof = 1
561 else
562 ! north midlatitude winter
563 iprof = 2
564 endif
565 endif
567 else
568 if (center_lat .lt. -60. ) then ! antarctic
569 if (julday .lt. is_summer .or. julday .gt. ie_summer ) then
570 ! antarctic summer
571 iprof = 3
572 else
573 ! antarctic winter
574 iprof = 4
575 endif
576 else ! midlatitude
577 if (julday .lt. is_summer .or. julday .gt. ie_summer ) then
578 ! south midlatitude summer
579 iprof = 1
580 else
581 ! south midlatitude winter
582 iprof = 2
583 endif
584 endif
586 endif
587 endif
589 j_loop: do j=jts,jte
590 jloop=j
591 !-----------------------------------------------------------------------------
593 do k=1,np
594 p(k)=pres(k,iprof)
595 enddo
597 do k = kts,kte+1
598 do i = its,ite
599 if(k.eq.kts)then
600 phyd(i,k)=p8w3d(i,kts,j)
601 else
602 ! phyd(i,k)=phyd(i,k-1) - g*rho_phy(i,k-1,j)*dz8w(i,k-1,j) !keep this old one consistent to IDS ctl run.
603 phyd(i,k)=phyd(i,k-1)*exp( -9.8/287.04*dz8w(i,k-1,j)/t3d(i,k-1,j) ) !suggested by K. Suzuki
605 phydmid(i,k-1)=0.5*(phyd(i,k-1)+phyd(i,k))
607 endif
608 enddo
609 enddo
611 !
612 ! reverse vars
613 !
614 do k=kts,kte+1
615 do i=its,ite
616 nk=kme-k+kms
617 p8w2d(i,k)=phyd(i,nk)*0.01 ! p8w2d is in mb
618 t8w2d(i,k) = t8w(i,nk,j)
619 enddo
620 enddo
622 do i=its,ite
623 p8w2d(i,0)=.0
624 enddo
626 !
627 do k=kts,kte
628 do i=its,ite
629 nk=kme-1-k+kms
630 tten2d(i,k)=0.
631 t2d(i,k)=t3d(i,nk,j)
632 sh2d(i,k)=qv3d(i,nk,j)/(1.+qv3d(i,nk,j))
633 sh2d(i,k)=max(0._fp_kind,sh2d(i,k))
634 p2d(i,k)=phydmid(i,nk)*0.01 ! p2d is in mb
635 fcld2d(i,k)=cldfra3d(i,nk,j)
636 dz2d(i,k) = dz8w(i,nk,j)
637 enddo
638 enddo
641 ! this logic is tortured because cannot test f_qi unless
642 ! it is present, and order of evaluation of expressions
643 ! is not specified in fortran
644 ! if (.not. warm_rain .and. .not. present ( f_qi ) ) then
645 ! do k=kts,kte
646 ! do i=its,ite
647 ! if (t2d(i,k) .lt. 273.15) then
648 ! cwc(i,k,1)=cwc(i,k,2) ! ice cloud water mixing ratio
649 ! cwc(i,k,2)=0. ! liquid cloud water mixing ratio
650 ! endif
651 ! enddo
652 ! enddo
653 ! endif
655 !
656 ! intilize TOA value -> 0.
657 !
658 do i=its,ite
659 tten2d(i,0)=0.
660 t2d(i,0)=t2d(i,1)
661 sh2d(i,0)=0.5*sh2d(i,1)
662 dz2d(i,0)=dz2d(i,1)
663 cwc(i,0,3)=0.
664 cwc(i,0,2)=0.
665 cwc(i,0,1)=0.
666 p2d(i,0)=0.5*(p8w2d(i,0)+p8w2d(i,1))
667 fcld2d(i,0)=0.
668 enddo
670 !
671 ! vertical profiles for ozone
672 !
673 call o3_profile (np, p, ozone(1,iprof), its, ite, kts-1, kte, p2d, o3)
675 !
676 ! cloud water mixing ratio
677 !
678 if ( present( f_qc ) .and. present( qc3d) ) then
679 do k=kts,kte
680 do i=its,ite
681 nk=kme-1-k+kms
682 if ( (f_qc) ) then
683 cwc(i,k,2)=max(0.,qc3d(i,nk,j))
684 reff(i,k,2) = re !fixed value
685 x=1.02*10000.*( p8w2d(i,k+1)-p8w2d(i,k) )
686 taucldc(i,nk,j) = x * cwc(i,k,2) * ( 3.33e-4 + 2.52/reff(i,k,2) ) !output purpose
687 else
688 cwc(i,k,2) = 0.
689 reff(i,k,2) =0.
690 taucldc(i,nk,j) = 0.
691 endif
692 enddo
693 enddo
694 endif
696 !
697 ! cloud ice mixing ratio (currently adding the snow.)
698 !
699 if ( present( f_qi ) .and. present( qi3d) ) then ! ice
700 do k=kts,kte
701 do i=its,ite
702 nk=kme-1-k+kms
703 if ( (f_qi) ) then
704 cwc(i,k,1)=max(0.,qi3d(i,nk,j))
705 reff(i,k,1) = 125. + (t2d(i,k)-243.16)*5. ! ice effective radius depends on temp
706 x=1.02*10000.*( p8w2d(i,k+1)-p8w2d(i,k) )
707 taucldi(i,nk,j) = x * cwc(i,k,1) * ( -6.59e-3 + 1.65/reff(i,k,1) ) ! output purpose
708 else
709 cwc(i,k,1)= 0.
710 reff(i,k,1) = 0.
711 taucldi(i,nk,j) = 0.
712 endif
713 enddo
714 enddo
715 endif
717 if ( present( f_qs ) .and. present( qs3d ) ) then ! snow
718 do k=kts,kte
719 do i=its,ite
720 nk=kme-1-k+kms
721 if ( (f_qs) ) then
722 if ( cwc(i,k,1) > 0. ) then !ice exist
723 cwc(i,k,1)=cwc(i,k,1) + max(0.,qs3d(i,nk,j)) ! ice + snow
724 reff(i,k,1) = 125. + (t2d(i,k)-243.16)*5. ! ice + snow (use ice definition)
725 else
726 cwc(i,k,1)= max(0.,qs3d(i,nk,j)) ! snow only (define snow is large aggrefated ice)
727 reff(i,k,1) = 125. ! snow only (use largest reff of ice)
728 endif
729 x=1.02*10000.*( p8w2d(i,k+1)-p8w2d(i,k) )
730 taucldi(i,nk,j) = x * cwc(i,k,1) * ( -6.59e-3 + 1.65/reff(i,k,1) ) ! output purpose
731 else
732 cwc(i,k,1)=cwc(i,k,1)
733 endif
734 enddo
735 enddo
736 endif
738 !
739 ! rain mixing ratio (currently adding graupel here, since it's size are much larger than ice and snow)
740 !
742 if ( present( f_qr ) .and. present( qr3d) ) then ! rain
743 do k=kts,kte
744 do i=its,ite
745 nk=kme-1-k+kms
746 if ( (f_qr) ) then
747 cwc(i,k,3) = max(0.,qr3d(i,nk,j))
748 else
749 cwc(i,k,3) = 0.
750 endif
751 enddo
752 enddo
753 endif
756 if ( present( f_qg ) .and. present( qg3d) ) then ! graupel (-> change)
757 do k=kts,kte
758 do i=its,ite
759 nk=kme-1-k+kms
760 if ( (f_qg) ) then
761 if( cwc(i,k,3) > 0.) then
762 cwc(i,k,3)=cwc(i,k,3) + max(0.,qg3d(i,nk,j))
763 else
764 cwc(i,k,3)= max(0.,qg3d(i,nk,j))
765 endif
766 else
767 cwc(i,k,3)=cwc(i,k,3)
768 endif
769 enddo
770 enddo
771 endif
773 !
774 ! Vertical profiles for effective particle size (old)
775 !
776 ! do k = kts-1, kte
777 ! do i = its, ite
778 ! reff(i,k,1) = 80.
779 ! reff(i,k,2) = 10.
780 ! reff(i,k,3) = 500. !dummy not used
781 ! end do
782 ! end do
784 !
785 ! filter min and max value of effective size
786 !
787 do k = kts-1, kte
788 do i = its, ite
789 reff(i,k,1) = max( min(reff(i,k,1),125._fp_kind) , 25._fp_kind) !ice
790 reff(i,k,2) = max( min(reff(i,k,2), 20._fp_kind) , 4._fp_kind) !liquid
791 reff(i,k,3) = max( min(reff(i,k,3), 60._fp_kind) , 1800._fp_kind) !rain (dummy not used)
792 end do
793 end do
795 !
796 ! level indices separating high, middle and low clouds
797 !
798 do i = its, ite
799 p400(i) = 1.e5
800 p700(i) = 1.e5
801 enddo
803 do k = kts-1,kte+1
804 do i = its, ite
805 if (abs(p8w2d(i,k) - 400.) .lt. p400(i)) then
806 p400(i) = abs(p8w2d(i,k) - 400.)
807 ict(i) = k
808 endif
809 if (abs(p8w2d(i,k) - 700.) .lt. p700(i)) then
810 p700(i) = abs(p8w2d(i,k) - 700.)
811 icb(i) = k
812 endif
813 end do
814 end do
817 rad_select: select case(sw_or_lw)
819 ! ISCCP ISCCP ISCCP ISCCP ISCCP ISCCP ISCCP ISCCP ISCCP ISCCP ISCCP ISCCP
820 ! ISCCP ISCCP ISCCP ISCCP ISCCP ISCCP ISCCP ISCCP ISCCP ISCCP ISCCP ISCCP
821 ! ISCCP ISCCP ISCCP ISCCP ISCCP ISCCP ISCCP ISCCP ISCCP ISCCP ISCCP ISCCP
823 case('is')
825 ! in case of isccp simulation, all we need is cloud optical depth. So return.
827 ! SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW
828 ! SW SW SW SW SW SW SW SW Shortwave scheme SW SW SW SW SW SW SW SW SW
829 ! SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW
831 case ('sw')
835 !
836 ! solar zenith angle and surface albedo
837 !
838 do i = its,ite
839 xt24 = mod(xtime + radfrq * 0.5, 1440.)
840 tloctm = gmt + xt24 / 60. + xlong(i,j) / 15.
841 hrang = 15. * (tloctm - 12.) * degrad
842 xxlat = xlat(i,j) * degrad
843 cosz(i) = sin(xxlat) * sin(declin) + &
844 cos(xxlat) * cos(declin) * cos(hrang)
846 !
847 ! surface spectrum albedo for direct and diffuse radiation
848 !
849 rsuvbm(i) = alb(i,j)
850 rsuvdf(i) = alb(i,j)
851 rsirbm(i) = alb(i,j)
852 rsirdf(i) = alb(i,j)
853 !
854 ! urban
855 !
856 ! if(present(cosz_urb2d)) cosz_urb2d(i,j)=cosz(i) !urban
857 ! if(present(omg_urb2d)) omg_urb2d(i,j)=hrang !urban
858 end do
860 !
861 ! aerosol effects -> gocart aerosol module
862 !
864 do ib = 1, ib_sw
865 do k = kts-1,kte
866 do i = its,ite
867 taual_sw(i,k,ib) = 0.
868 ssaal_sw(i,k,ib) = 0.
869 asyal_sw(i,k,ib) = 0.
870 end do
871 end do
872 end do
874 !
875 ! 1-dimension driver of shortwave radiative transfer scheme
876 !
877 do i = its,ite
878 if (cosz(i) .gt. cosz_min) then !for daytime only
879 call swrad ( m=1, np=mkx+1, pl=p8w2d(i,:), ta=t2d(i,:), wa=sh2d(i,:), oa=o3(i,:), &
880 cwc=cwc(i,:,:), reff=reff(i,:,:), fcld=fcld2d(i,:), ict=ict(i), icb=icb(i), &
881 taual=taual_sw(i,:,:), ssaal=ssaal_sw(i,:,:), asyal=asyal_sw(i,:,:), &
882 cosz=cosz(i), rsuvbm=rsuvbm(i), rsuvdf=rsuvdf(i), rsirbm=rsirbm(i), rsirdf=rsirdf(i), &
883 flx=flx(i,:), flxd=flxd(i,:),flxu=flxu(i,:) )
884 endif
885 enddo
886 !
887 ! convert the units of flx and flc from fraction to w/m^2
888 !
889 do k = kts, kte+1
890 do i = its, ite
891 if (cosz(i) .le. cosz_min) then
892 flx(i,k) = 0.
893 else
894 flx(i,k) = flx(i,k) * solcon * cosz(i)
895 endif
896 end do
897 end do
899 !
900 ! calculate heating rate (deg/sec)
901 !
902 fac = .01 * g / cp
903 do k = kts, kte
904 do i = its, ite
905 tten2d(i,k) = - fac * (flx(i,k) - flx(i,k+1))/ (p8w2d(i,k)-p8w2d(i,k+1))
906 end do
907 end do
910 do k=kts,kte
911 nk=kme-1-k+kms
912 do i=its,ite
913 rthraten(i,k,j)=rthraten(i,k,j)+tten2d(i,nk)/pi3d(i,k,j)
914 enddo
915 enddo
917 do i = its, ite
918 if (cosz(i) .le. cosz_min) then
919 gsf(i,j) = 0.
920 if(present(ERBE_out)) then
921 ERBE_out(i,j,5) = 0.
922 ERBE_out(i,j,6) = 0.
923 ERBE_out(i,j,7) = 0.
924 ERBE_out(i,j,8) = 0.
925 endif
926 else
927 !
928 ! absorbed part in surface energy budget [W/m^2] (Note that flxd in SW is flux fraction)
929 !
930 gsf(i,j) = (1. - rsuvbm(i)) * flxd(i,kte+1) * solcon * cosz(i)
932 !
933 ! extra output for SDSU
934 !
935 if(present(ERBE_out)) then
936 ERBE_out(i,j,5) = flxd(i,1) * solcon * cosz(i) ! TOA SW downwelling flux [W/m2]
937 ERBE_out(i,j,6) = flxu(i,1) * solcon * cosz(i) ! TOA SW upwelling flux [W/m2]
938 ERBE_out(i,j,7) = flxd(i,kte+1) * solcon * cosz(i) ! surface SW downwelling flux [W/m2]
939 ERBE_out(i,j,8) = flxu(i,kte+1) * solcon * cosz(i) ! surface SW upwelling flux [W/m2]
940 endif
941 endif
942 enddo
944 ! LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW
945 ! LW LW LW LW LW LW LW LW Longwave scheme LW LW LW LW LW LW LW LW LW
946 ! LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW
948 case ('lw')
950 !
951 ! aerosol effects -> gocart aerosol module
952 !
954 do ib = 1, ib_lw
955 do k = kts-1,kte
956 do i = its,ite
957 taual_lw(i,k,ib) = 0.
958 ssaal_lw(i,k,ib) = 0.
959 asyal_lw(i,k,ib) = 0.
960 end do
961 end do
962 end do
964 !
965 ! surface parameters
966 !
967 do i = its,ite
968 emis2d(i,1:ib_lw) = emiss(i,j)
969 !toshi
970 tsfc(i)=0.5*t8w2d(i,kme) + 0.5*t2d(i,kte) !make sure
971 tskin(i)=t8w2d(i,kme)
972 end do
974 !
975 ! drive goddard longwave radiative transfer scheme
976 !
977 call lwrad (m=mix, np=mkx+1, pl=p8w2d, ta=t2d, wa=sh2d, oa=o3, tb=tsfc, ts=tskin, &
978 cwc=cwc, emiss=emis2d, reff=reff, fcld=fcld2d, ict=ict, icb=icb, &
979 taual=taual_lw, ssaal=ssaal_lw, asyal=asyal_lw, &
980 flx=flx, acflxd=flxd , acflxu=flxu )
982 !
983 ! calculate heating rate (deg/sec)
984 !
985 fac = .01 * g / cp
986 do k = kts, kte
987 do i = its, ite
988 tten2d(i,k) = - fac * (flx(i,k) - flx(i,k+1))/(p8w2d(i,k)-p8w2d(i,k+1))
989 end do
990 end do
992 do k=kts,kte
993 nk=kme-1-k+kms
994 do i=its,ite
995 rthraten(i,k,j)=rthraten(i,k,j)+tten2d(i,nk)/pi3d(i,k,j) !<- potential temperature
996 enddo
997 enddo
999 !
1000 ! downwelling/upwelling longwave radiation [W/m^2] (Note that flxd/flxu of LW is actual flux [W/m2])
1001 !
1003 do i = its, ite
1004 gsf(i,j) = flxd(i,kte+1) !surface downwelling LW radiation
1006 !
1007 ! extra output for SDSU
1008 !
1009 if(present(ERBE_out)) then
1010 ERBE_out(i,j,1) = flxd(i,1) ! TOA LW downwelling flux [W/m2]
1011 ERBE_out(i,j,2) = flxu(i,1) ! TOA LW upwelling flux [W/m2]
1012 ERBE_out(i,j,3) = flxd(i,kte+1) ! surface LW downwelling flux [W/m2]
1013 ERBE_out(i,j,4) = flxu(i,kte+1) ! surface LW upwelling flux [W/m2]
1014 endif
1015 end do
1018 case default
1020 stop 'the option does not exist: sw_or_lw '
1022 end select rad_select
1024 !
1025 !-----------------------------------------------------------------------
1026 !
1027 enddo j_loop
1029 end subroutine goddardrad
1031 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
1032 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
1034 subroutine swrad (m,np,pl,ta,wa,oa, cwc,reff,fcld,ict,icb, &
1035 taual,ssaal,asyal, cosz,rsuvbm,rsuvdf,rsirbm,rsirdf, &
1036 flx,flxd,flxu)
1038 !------------ corrections for bugs ----------------------------
1039 !
1040 ! a bug was found in "ntop=nctop(m)", it has been corrected to be
1041 ! "ntop=nctop(i)". dated march 28, 2000.
1042 !
1043 !
1044 !-----------------------------------------------------------------------
1045 !
1046 ! following the nasa technical memorandum (nasa/tm-1999-104606, vol. 15)
1047 ! of chou and suarez (1999), this routine computes solar fluxes due to
1048 ! absorption by water vapor, ozone, co2, o2, clouds, and aerosols and
1049 ! due to scattering by clouds, aerosols, and gases.
1050 !
1051 ! this code computes fluxes simultaneously for m soundings.
1052 !
1053 ! cloud ice, liquid, and rain particles are allowed to co-exist in a layer.
1054 !
1055 ! if no information is available for the effective particle size, reff,
1056 ! default values of 10 micron for liquid water and 75 micron for ice may be
1057 ! used.
1058 ! the size of raindrops, reff(3), is irrelevant in this code. it can be
1059 ! set to any values.
1060 ! for a clear layer, reff can be set to any values except zero.
1061 !
1062 ! the maximum-random assumption is applied for treating cloud
1063 ! overlapping. clouds are grouped into high, middle, and low clouds
1064 ! separated by the level indices ict and icb. for detail, see
1065 ! subroutine "cloud_scale".
1066 !
1067 ! aerosol optical thickness, single-scattering albedo, and asymmetry
1068 ! factor can be specified as functions of height and spectral band.
1069 !
1070 !----- input parameters:
1071 ! units size
1072 ! number of soundings (m) n/d 1
1073 ! number of atmospheric layers (np) n/d 1
1074 ! level pressure (pl) mb m*(np+1)
1075 ! layer temperature (ta) k m*np
1076 ! layer specific humidity (wa) gm/gm m*np
1077 ! layer ozone concentration (oa) gm/gm m*np
1078 ! co2 mixing ratio by volume (co2) pppv 1
1079 ! option for scaling cloud optical thickness n/d 1
1080 ! overcast="true" if scaling is not required
1081 ! overcast="fasle" if scaling is required
1082 ! option for cloud optical thickness n/d 1
1083 ! cldwater="true" if cwc is provided
1084 ! cldwater="false" if taucld is provided
1085 ! cloud water mixing ratio (cwc) gm/gm m*np*3
1086 ! index 1 for ice particles
1087 ! index 2 for liquid drops
1088 ! index 3 for rain drops
1089 ! cloud optical thickness (taucld) n/d m*np*3
1090 ! index 1 for ice particles
1091 ! index 2 for liquid drops
1092 ! index 3 for rain drops
1093 ! effective cloud-particle size (reff) micrometer m*np*3
1094 ! index 1 for ice particles
1095 ! index 2 for liquid drops
1096 ! index 3 for rain drops
1097 ! cloud amount (fcld) fraction m*np
1098 ! level index separating high and middle n/d 1
1099 ! clouds (ict)
1100 ! level index separating middle and low n/d 1
1101 ! clouds (icb)
1102 ! aerosol optical thickness (taual) n/d m*np*11
1103 ! aerosol single-scattering albedo (ssaal) n/d m*np*11
1104 ! aerosol asymmetry factor (asyal) n/d m*np*11
1105 ! in the uv region :
1106 ! index 1 for the 0.175-0.225 micron band
1107 ! index 2 for the 0.225-0.245; 0.260-0.280 micron band
1108 ! index 3 for the 0.245-0.260 micron band
1109 ! index 4 for the 0.280-0.295 micron band
1110 ! index 5 for the 0.295-0.310 micron band
1111 ! index 6 for the 0.310-0.320 micron band
1112 ! index 7 for the 0.325-0.400 micron band
1113 ! in the par region :
1114 ! index 8 for the 0.400-0.700 micron band
1115 ! in the infrared region :
1116 ! index 9 for the 0.700-1.220 micron band
1117 ! index 10 for the 1.220-2.270 micron band
1118 ! index 11 for the 2.270-10.00 micron band
1119 ! cosine of solar zenith angle (cosz) n/d m
1120 ! uv+visible sfc albedo for beam radiation
1121 ! for wavelengths<0.7 micron (rsuvbm) fraction m
1122 ! uv+visible sfc albedo for diffuse radiation
1123 ! for wavelengths<0.7 micron (rsuvdf) fraction m
1124 ! ir sfc albedo for beam radiation
1125 ! for wavelengths>0.7 micron (rsirbm) fraction m
1126 ! ir sfc albedo for diffuse radiation (rsirdf) fraction m
1127 !
1128 !----- output parameters
1129 !
1130 ! all-sky flux divergence (downward minus upward) (flx) fraction m*(np+1)
1131 ! clear-sky flux divergence (downward minus upward) (flc) fraction m*(np+1)
1132 !
1133 ! all-sky direct downward uv (0.175-0.4 micron)
1134 ! flux at the surface (fdiruv) fraction m
1135 ! all-sky diffuse downward uv flux at
1136 ! the surface (fdifuv) fraction m
1137 ! all-sky direct downward par (0.4-0.7 micron)
1138 ! flux at the surface (fdirpar) fraction m
1139 ! all-sky diffuse downward par flux at
1140 ! the surface (fdifpar) fraction m
1141 ! all-sky direct downward ir (0.7-10 micron)
1142 ! flux at the surface (fdirir) fraction m
1143 ! all-sky diffuse downward ir flux at
1144 ! the surface (fdifir) fraction m
1145 !
1146 !----- notes:
1147 !
1148 ! (1) the unit of output fluxes (flx,flc,etc.) is fraction of the
1149 ! insolation at the top of the atmosphere. therefore, fluxes
1150 ! are the output fluxes multiplied by the extra-terrestrial solar
1151 ! flux and the cosine of the solar zenith angle.
1152 ! (2) pl( ,1) is the pressure at the top of the model, and
1153 ! pl( ,np+1) is the surface pressure.
1154 ! (3) the pressure levels ict and icb correspond approximately
1155 ! to 400 and 700 mb.
1156 !
1157 !-----if coding errors are found, please notify ming-dah chou at
1158 ! chou@climate.gsfc.nasa.gov
1159 !
1160 !*************************************************************************
1161 implicit none
1163 !-----IO parameters
1164 integer,intent(in) :: m,np,ict(m),icb(m)
1165 real(Kind=fp_kind),intent(in) :: pl(m,np+1),ta(m,np),wa(m,np),oa(m,np)
1166 real(Kind=fp_kind),intent(in) :: cwc(m,np,3),reff(m,np,3),fcld(m,np)
1167 real(Kind=fp_kind),intent(in) :: taual(m,np,ib_sw),ssaal(m,np,ib_sw),asyal(m,np,ib_sw)
1168 real(Kind=fp_kind),intent(in) :: cosz(m),rsuvbm(m),rsuvdf(m),rsirbm(m),rsirdf(m)
1170 real(Kind=fp_kind),intent(inout) :: flx(m,np+1) !flux divergence (down-up) []
1171 real(Kind=fp_kind),intent(inout) :: flxd(m,np+1) !downward flux fraction []
1172 real(Kind=fp_kind),intent(inout) :: flxu(m,np+1) !upwelling flux fraction []
1173 !-----IO parameter used to be-----
1174 real(Kind=fp_kind) flc(m,np+1)
1175 real(Kind=fp_kind) fdiruv (m),fdifuv (m)
1176 real(Kind=fp_kind) fdirpar(m),fdifpar(m)
1177 real(Kind=fp_kind) fdirir (m),fdifir (m)
1179 !-----temporary array
1180 integer i,j,k,ntop
1181 integer :: nctop(m)
1182 real(Kind=fp_kind) x
1183 real(Kind=fp_kind) :: taucld(m,np,3)
1184 real(Kind=fp_kind) :: taux(m,np) ! total condensates optical depth
1185 real(Kind=fp_kind) :: cwp(m,np,3)
1186 real(Kind=fp_kind) :: dp(m,np)
1187 real(Kind=fp_kind) :: wh(m,np)
1188 real(Kind=fp_kind) :: oh(m,np)
1189 real(Kind=fp_kind) :: scal(m,np)
1190 real(Kind=fp_kind) :: swu(m,np+1)
1191 real(Kind=fp_kind) :: swh(m,np+1)
1192 real(Kind=fp_kind) :: so2(m,np+1) !scaled o2 conc
1193 real(Kind=fp_kind) :: df(m,np+1) !integrated flux refuction rate []
1194 real(Kind=fp_kind) :: df_sub(m,np+1) !sub-layer flux reduction rate []
1195 real(Kind=fp_kind) :: df_cld(m,np+1) !integrated clear-sky flux reduction rate []
1196 real(Kind=fp_kind) :: df_clr(m,np+1) !integrated all-sky flux reduction rate []
1197 real(Kind=fp_kind) :: snt(m) !inverse of cosz
1198 real(Kind=fp_kind) :: cnt(m)
1200 ! new look-up table for (Fclr/Fall) ratio (overcast_fast option)
1201 real(Kind=fp_kind) :: ratio, cld_alb
1202 integer :: i_cos, i_tau
1203 real(Kind=fp_kind) :: ratio_lut(10,10)
1204 data ((ratio_lut(i,j),i=1,10),j=1,10)/ & !i cosin j albedo
1205 0.796, 0.559, 0.523, 0.474, 0.439, 0.377, 0.298, 0.239, 0.154, 0.086, &
1206 0.845, 0.628, 0.566, 0.508, 0.457, 0.392, 0.315, 0.242, 0.156, 0.087, &
1207 0.894, 0.697, 0.609, 0.542, 0.475, 0.407, 0.332, 0.245, 0.158, 0.088, &
1208 0.924, 0.759, 0.662, 0.581, 0.511, 0.432, 0.350, 0.269, 0.173, 0.092, &
1209 0.944, 0.809, 0.713, 0.634, 0.552, 0.471, 0.381, 0.288, 0.183, 0.097, &
1210 0.961, 0.848, 0.760, 0.689, 0.602, 0.516, 0.425, 0.323, 0.208, 0.116, &
1211 0.971, 0.882, 0.808, 0.730, 0.650, 0.556, 0.456, 0.355, 0.233, 0.134, &
1212 0.978, 0.910, 0.844, 0.776, 0.695, 0.601, 0.499, 0.387, 0.256, 0.141, &
1213 0.984, 0.934, 0.876, 0.810, 0.731, 0.637, 0.533, 0.405, 0.275, 0.151, &
1214 0.988, 0.944, 0.897, 0.844, 0.773, 0.683, 0.561, 0.421, 0.277, 0.156/
1216 !-----parameters for co2 transmission tables---------------------------
1217 integer nu,nw,nx2,ny2 ! cccshie 9/15/04
1218 parameter (nu=43,nw=37,nx2=62,ny2=101)
1219 real(Kind=fp_kind) w1,dw,u1,du,coa(nx2,ny2),cah(nu,nw)
1220 !-----cah is the co2 absorptance in band 10
1221 data ((cah(i,j),i=1,43),j= 1, 1)/ &
1222 0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
1223 0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, &
1224 0.0000019, 0.0000026, 0.0000037, 0.0000053, 0.0000074, &
1225 0.0000104, 0.0000147, 0.0000206, 0.0000288, 0.0000402, &
1226 0.0000559, 0.0000772, 0.0001059, 0.0001439, 0.0001936, &
1227 0.0002575, 0.0003384, 0.0004400, 0.0005662, 0.0007219, &
1228 0.0009131, 0.0011470, 0.0014327, 0.0017806, 0.0022021, &
1229 0.0027093, 0.0033141, 0.0040280, 0.0048609, 0.0058217, &
1230 0.0069177, 0.0081559, 0.0095430/
1231 data ((cah(i,j),i=1,43),j= 2, 2)/ &
1232 0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
1233 0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, &
1234 0.0000019, 0.0000026, 0.0000037, 0.0000053, 0.0000074, &
1235 0.0000104, 0.0000147, 0.0000206, 0.0000288, 0.0000402, &
1236 0.0000559, 0.0000772, 0.0001059, 0.0001439, 0.0001936, &
1237 0.0002575, 0.0003384, 0.0004400, 0.0005662, 0.0007219, &
1238 0.0009130, 0.0011470, 0.0014326, 0.0017805, 0.0022020, &
1239 0.0027091, 0.0033139, 0.0040276, 0.0048605, 0.0058211, &
1240 0.0069170, 0.0081551, 0.0095420/
1241 data ((cah(i,j),i=1,43),j= 3, 3)/ &
1242 0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
1243 0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, &
1244 0.0000019, 0.0000026, 0.0000037, 0.0000053, 0.0000074, &
1245 0.0000104, 0.0000147, 0.0000206, 0.0000288, 0.0000402, &
1246 0.0000559, 0.0000772, 0.0001059, 0.0001439, 0.0001936, &
1247 0.0002574, 0.0003384, 0.0004399, 0.0005661, 0.0007218, &
1248 0.0009129, 0.0011468, 0.0014325, 0.0017803, 0.0022017, &
1249 0.0027088, 0.0033135, 0.0040271, 0.0048599, 0.0058204, &
1250 0.0069161, 0.0081539, 0.0095406/
1251 data ((cah(i,j),i=1,43),j= 4, 4)/ &
1252 0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
1253 0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, &
1254 0.0000019, 0.0000026, 0.0000037, 0.0000053, 0.0000074, &
1255 0.0000104, 0.0000147, 0.0000206, 0.0000288, 0.0000402, &
1256 0.0000559, 0.0000772, 0.0001059, 0.0001439, 0.0001936, &
1257 0.0002574, 0.0003384, 0.0004399, 0.0005661, 0.0007217, &
1258 0.0009128, 0.0011467, 0.0014323, 0.0017800, 0.0022014, &
1259 0.0027084, 0.0033130, 0.0040265, 0.0048591, 0.0058194, &
1260 0.0069148, 0.0081524, 0.0095387/
1261 data ((cah(i,j),i=1,43),j= 5, 5)/ &
1262 0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
1263 0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, &
1264 0.0000019, 0.0000026, 0.0000037, 0.0000053, 0.0000074, &
1265 0.0000104, 0.0000147, 0.0000206, 0.0000288, 0.0000402, &
1266 0.0000559, 0.0000772, 0.0001059, 0.0001439, 0.0001935, &
1267 0.0002574, 0.0003383, 0.0004398, 0.0005660, 0.0007216, &
1268 0.0009127, 0.0011465, 0.0014320, 0.0017797, 0.0022010, &
1269 0.0027078, 0.0033123, 0.0040256, 0.0048580, 0.0058180, &
1270 0.0069132, 0.0081503, 0.0095361/
1271 data ((cah(i,j),i=1,43),j= 6, 6)/ &
1272 0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
1273 0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, &
1274 0.0000019, 0.0000026, 0.0000037, 0.0000053, 0.0000074, &
1275 0.0000104, 0.0000147, 0.0000206, 0.0000288, 0.0000402, &
1276 0.0000559, 0.0000772, 0.0001059, 0.0001439, 0.0001935, &
1277 0.0002573, 0.0003383, 0.0004398, 0.0005659, 0.0007215, &
1278 0.0009125, 0.0011462, 0.0014317, 0.0017792, 0.0022004, &
1279 0.0027071, 0.0033113, 0.0040244, 0.0048565, 0.0058162, &
1280 0.0069109, 0.0081476, 0.0095328/
1281 data ((cah(i,j),i=1,43),j= 7, 7)/ &
1282 0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
1283 0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, &
1284 0.0000019, 0.0000026, 0.0000037, 0.0000053, 0.0000074, &
1285 0.0000104, 0.0000147, 0.0000206, 0.0000288, 0.0000402, &
1286 0.0000559, 0.0000772, 0.0001058, 0.0001438, 0.0001935, &
1287 0.0002573, 0.0003382, 0.0004396, 0.0005657, 0.0007213, &
1288 0.0009122, 0.0011459, 0.0014312, 0.0017786, 0.0021996, &
1289 0.0027061, 0.0033100, 0.0040228, 0.0048545, 0.0058137, &
1290 0.0069079, 0.0081439, 0.0095283/
1291 data ((cah(i,j),i=1,43),j= 8, 8)/ &
1292 0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
1293 0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, &
1294 0.0000019, 0.0000026, 0.0000037, 0.0000052, 0.0000074, &
1295 0.0000104, 0.0000146, 0.0000206, 0.0000288, 0.0000402, &
1296 0.0000558, 0.0000772, 0.0001058, 0.0001438, 0.0001934, &
1297 0.0002572, 0.0003381, 0.0004395, 0.0005655, 0.0007210, &
1298 0.0009119, 0.0011454, 0.0014306, 0.0017778, 0.0021985, &
1299 0.0027047, 0.0033084, 0.0040207, 0.0048519, 0.0058105, &
1300 0.0069040, 0.0081391, 0.0095225/
1301 data ((cah(i,j),i=1,43),j= 9, 9)/ &
1302 0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
1303 0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, &
1304 0.0000019, 0.0000026, 0.0000037, 0.0000052, 0.0000074, &
1305 0.0000104, 0.0000146, 0.0000206, 0.0000288, 0.0000402, &
1306 0.0000558, 0.0000771, 0.0001058, 0.0001437, 0.0001933, &
1307 0.0002571, 0.0003379, 0.0004393, 0.0005652, 0.0007206, &
1308 0.0009114, 0.0011447, 0.0014297, 0.0017767, 0.0021971, &
1309 0.0027030, 0.0033061, 0.0040180, 0.0048485, 0.0058064, &
1310 0.0068989, 0.0081329, 0.0095149/
1311 data ((cah(i,j),i=1,43),j= 10, 10)/ &
1312 0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
1313 0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, &
1314 0.0000019, 0.0000026, 0.0000037, 0.0000052, 0.0000074, &
1315 0.0000104, 0.0000146, 0.0000205, 0.0000288, 0.0000402, &
1316 0.0000558, 0.0000771, 0.0001057, 0.0001437, 0.0001932, &
1317 0.0002569, 0.0003377, 0.0004390, 0.0005649, 0.0007201, &
1318 0.0009107, 0.0011439, 0.0014286, 0.0017753, 0.0021953, &
1319 0.0027006, 0.0033032, 0.0040144, 0.0048441, 0.0058009, &
1320 0.0068922, 0.0081248, 0.0095051/
1321 data ((cah(i,j),i=1,43),j= 11, 11)/ &
1322 0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
1323 0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, &
1324 0.0000019, 0.0000026, 0.0000037, 0.0000052, 0.0000074, &
1325 0.0000104, 0.0000146, 0.0000205, 0.0000287, 0.0000401, &
1326 0.0000558, 0.0000770, 0.0001056, 0.0001436, 0.0001931, &
1327 0.0002567, 0.0003375, 0.0004387, 0.0005644, 0.0007195, &
1328 0.0009098, 0.0011428, 0.0014271, 0.0017734, 0.0021929, &
1329 0.0026976, 0.0032995, 0.0040097, 0.0048384, 0.0057939, &
1330 0.0068837, 0.0081145, 0.0094926/
1331 data ((cah(i,j),i=1,43),j= 12, 12)/ &
1332 0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
1333 0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, &
1334 0.0000019, 0.0000026, 0.0000037, 0.0000052, 0.0000074, &
1335 0.0000104, 0.0000146, 0.0000205, 0.0000287, 0.0000401, &
1336 0.0000557, 0.0000770, 0.0001055, 0.0001434, 0.0001929, &
1337 0.0002565, 0.0003371, 0.0004382, 0.0005637, 0.0007186, &
1338 0.0009087, 0.0011413, 0.0014252, 0.0017709, 0.0021898, &
1339 0.0026937, 0.0032946, 0.0040038, 0.0048311, 0.0057850, &
1340 0.0068729, 0.0081013, 0.0094768/
1341 data ((cah(i,j),i=1,43),j= 13, 13)/ &
1342 0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
1343 0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, &
1344 0.0000019, 0.0000026, 0.0000037, 0.0000052, 0.0000074, &
1345 0.0000104, 0.0000146, 0.0000205, 0.0000287, 0.0000400, &
1346 0.0000556, 0.0000769, 0.0001054, 0.0001432, 0.0001926, &
1347 0.0002561, 0.0003366, 0.0004376, 0.0005629, 0.0007175, &
1348 0.0009073, 0.0011394, 0.0014228, 0.0017678, 0.0021859, &
1349 0.0026888, 0.0032885, 0.0039963, 0.0048218, 0.0057738, &
1350 0.0068592, 0.0080849, 0.0094570/
1351 data ((cah(i,j),i=1,43),j= 14, 14)/ &
1352 0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
1353 0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, &
1354 0.0000019, 0.0000026, 0.0000037, 0.0000052, 0.0000074, &
1355 0.0000104, 0.0000146, 0.0000205, 0.0000286, 0.0000400, &
1356 0.0000556, 0.0000767, 0.0001052, 0.0001430, 0.0001923, &
1357 0.0002557, 0.0003361, 0.0004368, 0.0005619, 0.0007161, &
1358 0.0009054, 0.0011370, 0.0014197, 0.0017639, 0.0021809, &
1359 0.0026826, 0.0032809, 0.0039869, 0.0048103, 0.0057597, &
1360 0.0068422, 0.0080643, 0.0094323/
1361 data ((cah(i,j),i=1,43),j= 15, 15)/ &
1362 0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
1363 0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, &
1364 0.0000019, 0.0000026, 0.0000037, 0.0000052, 0.0000073, &
1365 0.0000103, 0.0000145, 0.0000204, 0.0000286, 0.0000399, &
1366 0.0000554, 0.0000766, 0.0001050, 0.0001427, 0.0001919, &
1367 0.0002552, 0.0003353, 0.0004358, 0.0005605, 0.0007144, &
1368 0.0009032, 0.0011340, 0.0014159, 0.0017590, 0.0021748, &
1369 0.0026750, 0.0032715, 0.0039752, 0.0047961, 0.0057424, &
1370 0.0068212, 0.0080389, 0.0094019/
1371 data ((cah(i,j),i=1,43),j= 16, 16)/ &
1372 0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
1373 0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, &
1374 0.0000019, 0.0000026, 0.0000037, 0.0000052, 0.0000073, &
1375 0.0000103, 0.0000145, 0.0000204, 0.0000285, 0.0000398, &
1376 0.0000553, 0.0000764, 0.0001047, 0.0001423, 0.0001914, &
1377 0.0002545, 0.0003344, 0.0004345, 0.0005589, 0.0007122, &
1378 0.0009003, 0.0011304, 0.0014112, 0.0017531, 0.0021673, &
1379 0.0026656, 0.0032598, 0.0039609, 0.0047786, 0.0057211, &
1380 0.0067954, 0.0080078, 0.0093646/
1381 data ((cah(i,j),i=1,43),j= 17, 17)/ &
1382 0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
1383 0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, &
1384 0.0000018, 0.0000026, 0.0000037, 0.0000052, 0.0000073, &
1385 0.0000103, 0.0000145, 0.0000203, 0.0000284, 0.0000397, &
1386 0.0000551, 0.0000761, 0.0001044, 0.0001419, 0.0001908, &
1387 0.0002536, 0.0003332, 0.0004330, 0.0005568, 0.0007095, &
1388 0.0008968, 0.0011259, 0.0014054, 0.0017458, 0.0021123, &
1389 0.0026542, 0.0032457, 0.0039435, 0.0047573, 0.0056951, &
1390 0.0067640, 0.0079700, 0.0093194/
1391 data ((cah(i,j),i=1,43),j= 18, 18)/ &
1392 0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
1393 0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, &
1394 0.0000018, 0.0000026, 0.0000037, 0.0000052, 0.0000073, &
1395 0.0000102, 0.0000144, 0.0000202, 0.0000283, 0.0000395, &
1396 0.0000549, 0.0000758, 0.0001040, 0.0001413, 0.0001900, &
1397 0.0002525, 0.0003318, 0.0004311, 0.0005543, 0.0007063, &
1398 0.0008926, 0.0011204, 0.0013985, 0.0017370, 0.0021470, &
1399 0.0026404, 0.0032285, 0.0039224, 0.0047315, 0.0056637, &
1400 0.0067260, 0.0079245, 0.0092651/
1401 data ((cah(i,j),i=1,43),j= 19, 19)/ &
1402 0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
1403 0.0000003, 0.0000005, 0.0000006, 0.0000009, 0.0000013, &
1404 0.0000018, 0.0000026, 0.0000036, 0.0000051, 0.0000072, &
1405 0.0000102, 0.0000143, 0.0000201, 0.0000282, 0.0000393, &
1406 0.0000546, 0.0000754, 0.0001034, 0.0001406, 0.0001890, &
1407 0.0002512, 0.0003300, 0.0004287, 0.0005513, 0.0007023, &
1408 0.0008875, 0.0011139, 0.0013901, 0.0017264, 0.0021337, &
1409 0.0026238, 0.0032080, 0.0038971, 0.0047005, 0.0056261, &
1410 0.0066806, 0.0078701, 0.0092003/
1411 data ((cah(i,j),i=1,43),j= 20, 20)/ &
1412 0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
1413 0.0000003, 0.0000005, 0.0000006, 0.0000009, 0.0000013, &
1414 0.0000018, 0.0000026, 0.0000036, 0.0000051, 0.0000072, &
1415 0.0000101, 0.0000142, 0.0000200, 0.0000280, 0.0000391, &
1416 0.0000543, 0.0000750, 0.0001028, 0.0001397, 0.0001878, &
1417 0.0002496, 0.0003279, 0.0004259, 0.0005476, 0.0006975, &
1418 0.0008813, 0.0011060, 0.0013802, 0.0017138, 0.0021179, &
1419 0.0026040, 0.0031835, 0.0038670, 0.0046637, 0.0055814, &
1420 0.0066267, 0.0078055, 0.0091235/
1421 data ((cah(i,j),i=1,43),j= 21, 21)/ &
1422 0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
1423 0.0000003, 0.0000005, 0.0000006, 0.0000009, 0.0000013, &
1424 0.0000018, 0.0000025, 0.0000036, 0.0000051, 0.0000071, &
1425 0.0000100, 0.0000141, 0.0000198, 0.0000278, 0.0000388, &
1426 0.0000539, 0.0000744, 0.0001020, 0.0001386, 0.0001863, &
1427 0.0002477, 0.0003253, 0.0004226, 0.0005432, 0.0006918, &
1428 0.0008740, 0.0010966, 0.0013683, 0.0016988, 0.0020991, &
1429 0.0025806, 0.0031545, 0.0038313, 0.0046201, 0.0055285, &
1430 0.0065630, 0.0077294, 0.0090332/
1431 data ((cah(i,j),i=1,43),j= 22, 22)/ &
1432 0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
1433 0.0000003, 0.0000004, 0.0000006, 0.0000009, 0.0000013, &
1434 0.0000018, 0.0000025, 0.0000036, 0.0000050, 0.0000071, &
1435 0.0000100, 0.0000140, 0.0000197, 0.0000275, 0.0000384, &
1436 0.0000534, 0.0000737, 0.0001011, 0.0001373, 0.0001846, &
1437 0.0002453, 0.0003222, 0.0004185, 0.0005265, 0.0006850, &
1438 0.0008652, 0.0010855, 0.0013541, 0.0016809, 0.0020768, &
1439 0.0025528, 0.0031202, 0.0037892, 0.0045688, 0.0054664, &
1440 0.0064883, 0.0076402, 0.0089277/
1441 data ((cah(i,j),i=1,43),j= 23, 23)/ &
1442 0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
1443 0.0000003, 0.0000004, 0.0000006, 0.0000009, 0.0000013, &
1444 0.0000018, 0.0000025, 0.0000035, 0.0000050, 0.0000070, &
1445 0.0000098, 0.0000138, 0.0000194, 0.0000272, 0.0000380, &
1446 0.0000528, 0.0000729, 0.0000999, 0.0001357, 0.0001825, &
1447 0.0002425, 0.0003185, 0.0004137, 0.0005316, 0.0006769, &
1448 0.0008548, 0.0010722, 0.0013373, 0.0016599, 0.0020504, &
1449 0.0025201, 0.0030799, 0.0037398, 0.0045087, 0.0053938, &
1450 0.0064013, 0.0075366, 0.0088053/
1451 data ((cah(i,j),i=1,43),j= 24, 24)/ &
1452 0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
1453 0.0000003, 0.0000004, 0.0000006, 0.0000009, 0.0000012, &
1454 0.0000017, 0.0000025, 0.0000035, 0.0000049, 0.0000069, &
1455 0.0000097, 0.0000137, 0.0000192, 0.0000268, 0.0000375, &
1456 0.0000520, 0.0000719, 0.0000986, 0.0001339, 0.0001800, &
1457 0.0002392, 0.0003142, 0.0004079, 0.0005242, 0.0006673, &
1458 0.0008426, 0.0010567, 0.0013177, 0.0016352, 0.0020196, &
1459 0.0024820, 0.0030330, 0.0036825, 0.0044391, 0.0053098, &
1460 0.0063007, 0.0074172, 0.0084815/
1461 data ((cah(i,j),i=1,43),j= 25, 25)/ &
1462 0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
1463 0.0000003, 0.0000004, 0.0000006, 0.0000009, 0.0000012, &
1464 0.0000017, 0.0000024, 0.0000034, 0.0000048, 0.0000068, &
1465 0.0000096, 0.0000134, 0.0000189, 0.0000264, 0.0000369, &
1466 0.0000512, 0.0000708, 0.0000970, 0.0001318, 0.0001772, &
1467 0.0002354, 0.0003091, 0.0004013, 0.0005156, 0.0006562, &
1468 0.0008284, 0.0010386, 0.0012949, 0.0016066, 0.0019840, &
1469 0.0024379, 0.0029788, 0.0036164, 0.0043590, 0.0052135, &
1470 0.0061857, 0.0072808, 0.0085042/
1471 data ((cah(i,j),i=1,43),j= 26, 26)/ &
1472 0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
1473 0.0000003, 0.0000004, 0.0000006, 0.0000008, 0.0000012, &
1474 0.0000017, 0.0000024, 0.0000034, 0.0000047, 0.0000067, &
1475 0.0000094, 0.0000132, 0.0000185, 0.0000259, 0.0000362, &
1476 0.0000503, 0.0000695, 0.0000952, 0.0001294, 0.0001739, &
1477 0.0002310, 0.0003033, 0.0003937, 0.0005057, 0.0006435, &
1478 0.0008121, 0.0010180, 0.0012688, 0.0015739, 0.0019434, &
1479 0.0023877, 0.0029172, 0.0035413, 0.0042681, 0.0051043, &
1480 0.0060554, 0.0071267, 0.0083234/
1481 data ((cah(i,j),i=1,43),j= 27, 27)/ &
1482 0.0000001, 0.0000001, 0.0000001, 0.0000001, 0.0000002, &
1483 0.0000003, 0.0000004, 0.0000006, 0.0000008, 0.0000012, &
1484 0.0000016, 0.0000023, 0.0000033, 0.0000046, 0.0000065, &
1485 0.0000092, 0.0000129, 0.0000181, 0.0000254, 0.0000355, &
1486 0.0000493, 0.0000680, 0.0000933, 0.0001267, 0.0001702, &
1487 0.0002261, 0.0002968, 0.0003852, 0.0004946, 0.0006291, &
1488 0.0007937, 0.0009946, 0.0012394, 0.0015370, 0.0018975, &
1489 0.0023310, 0.0028478, 0.0034568, 0.0041660, 0.0049818, &
1490 0.0059096, 0.0069544, 0.0081215/
1491 data ((cah(i,j),i=1,43),j= 28, 28)/ &
1492 0.0000001, 0.0000001, 0.0000001, 0.0000001, 0.0000002, &
1493 0.0000003, 0.0000004, 0.0000006, 0.0000008, 0.0000011, &
1494 0.0000016, 0.0000023, 0.0000032, 0.0000045, 0.0000064, &
1495 0.0000090, 0.0000126, 0.0000177, 0.0000248, 0.0000346, &
1496 0.0000481, 0.0000664, 0.0000910, 0.0001236, 0.0001661, &
1497 0.0002206, 0.0002895, 0.0003755, 0.0004821, 0.0006130, &
1498 0.0007731, 0.0009685, 0.0012065, 0.0014959, 0.0018463, &
1499 0.0022680, 0.0027705, 0.0033629, 0.0040526, 0.0048459, &
1500 0.0057480, 0.0067639, 0.0078987/
1501 data ((cah(i,j),i=1,43),j= 29, 29)/ &
1502 0.0000000, 0.0000001, 0.0000001, 0.0000001, 0.0000002, &
1503 0.0000003, 0.0000004, 0.0000006, 0.0000008, 0.0000011, &
1504 0.0000016, 0.0000022, 0.0000031, 0.0000044, 0.0000062, &
1505 0.0000087, 0.0000123, 0.0000173, 0.0000242, 0.0000330, &
1506 0.0000468, 0.0000646, 0.0000886, 0.0001203, 0.0001616, &
1507 0.0002145, 0.0002814, 0.0003649, 0.0004682, 0.0005951, &
1508 0.0007503, 0.0009396, 0.0011701, 0.0014505, 0.0017900, &
1509 0.0021986, 0.0026857, 0.0032598, 0.0039283, 0.0046971, &
1510 0.0055713, 0.0065558, 0.0076557/
1511 data ((cah(i,j),i=1,43),j= 30, 30)/ &
1512 0.0000000, 0.0000001, 0.0000001, 0.0000001, 0.0000002, &
1513 0.0000003, 0.0000004, 0.0000005, 0.0000008, 0.0000011, &
1514 0.0000015, 0.0000021, 0.0000030, 0.0000043, 0.0000060, &
1515 0.0000085, 0.0000119, 0.0000167, 0.0000234, 0.0000327, &
1516 0.0000454, 0.0000627, 0.0000859, 0.0001166, 0.0001566, &
1517 0.0002078, 0.0002724, 0.0003531, 0.0004529, 0.0005755, &
1518 0.0007253, 0.0009079, 0.0011304, 0.0014010, 0.0017287, &
1519 0.0021232, 0.0025935, 0.0031480, 0.0037936, 0.0045361, &
1520 0.0053805, 0.0063314, 0.0073941/
1521 data ((cah(i,j),i=1,43),j= 31, 31)/ &
1522 0.0000000, 0.0000001, 0.0000001, 0.0000001, 0.0000002, &
1523 0.0000003, 0.0000004, 0.0000005, 0.0000007, 0.0000010, &
1524 0.0000015, 0.0000021, 0.0000029, 0.0000041, 0.0000058, &
1525 0.0000082, 0.0000115, 0.0000162, 0.0000226, 0.0000316, &
1526 0.0000438, 0.0000605, 0.0000829, 0.0001125, 0.0001510, &
1527 0.0002004, 0.0002626, 0.0003402, 0.0004362, 0.0005540, &
1528 0.0006980, 0.0008736, 0.0010874, 0.0013476, 0.0016627, &
1529 0.0020421, 0.0024947, 0.0030283, 0.0036497, 0.0043644, &
1530 0.0051772, 0.0060928, 0.0071164/
1531 data ((cah(i,j),i=1,43),j= 32, 32)/ &
1532 0.0000000, 0.0000001, 0.0000001, 0.0000001, 0.0000002, &
1533 0.0000003, 0.0000004, 0.0000005, 0.0000007, 0.0000010, &
1534 0.0000014, 0.0000020, 0.0000028, 0.0000040, 0.0000056, &
1535 0.0000079, 0.0000111, 0.0000155, 0.0000218, 0.0000303, &
1536 0.0000421, 0.0000582, 0.0000797, 0.0001081, 0.0001450, &
1537 0.0001923, 0.0002519, 0.0003262, 0.0004180, 0.0005308, &
1538 0.0006686, 0.0008367, 0.0010414, 0.0012905, 0.0015925, &
1539 0.0019561, 0.0023900, 0.0029017, 0.0034978, 0.0041836, &
1540 0.0049638, 0.0058430, 0.0068264/
1541 data ((cah(i,j),i=1,43),j= 33, 33)/ &
1542 0.0000000, 0.0000001, 0.0000001, 0.0000001, 0.0000002, &
1543 0.0000002, 0.0000003, 0.0000005, 0.0000007, 0.0000010, &
1544 0.0000014, 0.0000019, 0.0000027, 0.0000038, 0.0000053, &
1545 0.0000075, 0.0000106, 0.0000149, 0.0000208, 0.0000290, &
1546 0.0000403, 0.0000556, 0.0000761, 0.0001032, 0.0001384, &
1547 0.0001834, 0.0002402, 0.0003110, 0.0003985, 0.0005059, &
1548 0.0006372, 0.0007974, 0.0009926, 0.0012302, 0.0015185, &
1549 0.0018657, 0.0022803, 0.0027696, 0.0033398, 0.0039960, &
1550 0.0047430, 0.0055851, 0.0065278/
1551 data ((cah(i,j),i=1,43),j= 34, 34)/ &
1552 0.0000000, 0.0000001, 0.0000001, 0.0000001, 0.0000002, &
1553 0.0000002, 0.0000003, 0.0000005, 0.0000006, 0.0000009, &
1554 0.0000013, 0.0000018, 0.0000026, 0.0000036, 0.0000051, &
1555 0.0000071, 0.0000100, 0.0000141, 0.0000197, 0.0000275, &
1556 0.0000382, 0.0000527, 0.0000722, 0.0000979, 0.0001312, &
1557 0.0001739, 0.0002277, 0.0002947, 0.0003775, 0.0004793, &
1558 0.0006038, 0.0007558, 0.0009412, 0.0011671, 0.0014412, &
1559 0.0017717, 0.0021208, 0.0026329, 0.0031768, 0.0038033, &
1560 0.0045168, 0.0053220, 0.0062240/
1561 data ((cah(i,j),i=1,43),j= 35, 35)/ &
1562 0.0000000, 0.0000001, 0.0000001, 0.0000001, 0.0000002, &
1563 0.0000002, 0.0000003, 0.0000004, 0.0000006, 0.0000009, &
1564 0.0000012, 0.0000017, 0.0000024, 0.0000034, 0.0000048, &
1565 0.0000067, 0.0000095, 0.0000133, 0.0000186, 0.0000259, &
1566 0.0000360, 0.0000496, 0.0000679, 0.0000921, 0.0001235, &
1567 0.0001637, 0.0002143, 0.0002773, 0.0003554, 0.0004513, &
1568 0.0005688, 0.0007124, 0.0008876, 0.0011014, 0.0013610, &
1569 0.0016745, 0.0020493, 0.0024925, 0.0030099, 0.0036066, &
1570 0.0042868, 0.0050553, 0.0059171/
1571 data ((cah(i,j),i=1,43),j= 36, 36)/ &
1572 0.0000000, 0.0000001, 0.0000001, 0.0000001, 0.0000001, &
1573 0.0000002, 0.0000003, 0.0000004, 0.0000006, 0.0000008, &
1574 0.0000011, 0.0000016, 0.0000022, 0.0000032, 0.0000045, &
1575 0.0000063, 0.0000088, 0.0000124, 0.0000173, 0.0000242, &
1576 0.0000336, 0.0000463, 0.0000634, 0.0000860, 0.0001153, &
1577 0.0001528, 0.0002001, 0.0002591, 0.0003322, 0.0004221, &
1578 0.0005323, 0.0006672, 0.0008322, 0.0010335, 0.0012785, &
1579 0.0015746, 0.0019293, 0.0023491, 0.0028399, 0.0034067, &
1580 0.0040539, 0.0047860, 0.0056083/
1581 data ((cah(i,j),i=1,43),j= 37, 37)/ &
1582 0.0000000, 0.0000000, 0.0000001, 0.0000001, 0.0000001, &
1583 0.0000002, 0.0000003, 0.0000004, 0.0000005, 0.0000007, &
1584 0.0000010, 0.0000015, 0.0000021, 0.0000029, 0.0000041, &
1585 0.0000058, 0.0000082, 0.0000114, 0.0000160, 0.0000223, &
1586 0.0000310, 0.0000428, 0.0000586, 0.0000795, 0.0001067, &
1587 0.0001414, 0.0001853, 0.0002401, 0.0003081, 0.0003918, &
1588 0.0004947, 0.0006208, 0.0007751, 0.0009639, 0.0011940, &
1589 0.0014726, 0.0018069, 0.0022032, 0.0026674, 0.0032043, &
1590 0.0038186, 0.0045147, 0.0052979/
1591 !-----coa is the co2 absorptance in strong absorption regions of band 11
1592 data ((coa(i,j),i=1,62),j= 1, 1)/ &
1593 0.0000080, 0.0000089, 0.0000098, 0.0000106, 0.0000114, &
1594 0.0000121, 0.0000128, 0.0000134, 0.0000140, 0.0000146, &
1595 0.0000152, 0.0000158, 0.0000163, 0.0000168, 0.0000173, &
1596 0.0000178, 0.0000182, 0.0000186, 0.0000191, 0.0000195, &
1597 0.0000199, 0.0000202, 0.0000206, 0.0000210, 0.0000213, &
1598 0.0000217, 0.0000220, 0.0000223, 0.0000226, 0.0000229, &
1599 0.0000232, 0.0000235, 0.0000238, 0.0000241, 0.0000244, &
1600 0.0000246, 0.0000249, 0.0000252, 0.0000254, 0.0000257, &
1601 0.0000259, 0.0000261, 0.0000264, 0.0000266, 0.0000268, &
1602 0.0000271, 0.0000273, 0.0000275, 0.0000277, 0.0000279, &
1603 0.0000281, 0.0000283, 0.0000285, 0.0000287, 0.0000289, &
1604 0.0000291, 0.0000293, 0.0000295, 0.0000297, 0.0000298, &
1605 0.0000300, 0.0000302/
1606 data ((coa(i,j),i=1,62),j= 2, 2)/ &
1607 0.0000085, 0.0000095, 0.0000104, 0.0000113, 0.0000121, &
1608 0.0000128, 0.0000136, 0.0000143, 0.0000149, 0.0000155, &
1609 0.0000161, 0.0000167, 0.0000172, 0.0000178, 0.0000183, &
1610 0.0000187, 0.0000192, 0.0000196, 0.0000201, 0.0000205, &
1611 0.0000209, 0.0000213, 0.0000217, 0.0000220, 0.0000224, &
1612 0.0000227, 0.0000231, 0.0000234, 0.0000237, 0.0000240, &
1613 0.0000243, 0.0000246, 0.0000249, 0.0000252, 0.0000255, &
1614 0.0000258, 0.0000260, 0.0000263, 0.0000266, 0.0000268, &
1615 0.0000271, 0.0000273, 0.0000275, 0.0000278, 0.0000280, &
1616 0.0000282, 0.0000285, 0.0000287, 0.0000289, 0.0000291, &
1617 0.0000293, 0.0000295, 0.0000297, 0.0000299, 0.0000301, &
1618 0.0000303, 0.0000305, 0.0000307, 0.0000309, 0.0000311, &
1619 0.0000313, 0.0000314/
1620 data ((coa(i,j),i=1,62),j= 3, 3)/ &
1621 0.0000095, 0.0000106, 0.0000116, 0.0000125, 0.0000134, &
1622 0.0000143, 0.0000150, 0.0000158, 0.0000165, 0.0000171, &
1623 0.0000178, 0.0000184, 0.0000189, 0.0000195, 0.0000200, &
1624 0.0000205, 0.0000210, 0.0000215, 0.0000219, 0.0000223, &
1625 0.0000228, 0.0000232, 0.0000235, 0.0000239, 0.0000243, &
1626 0.0000247, 0.0000250, 0.0000253, 0.0000257, 0.0000260, &
1627 0.0000263, 0.0000266, 0.0000269, 0.0000272, 0.0000275, &
1628 0.0000278, 0.0000281, 0.0000283, 0.0000286, 0.0000289, &
1629 0.0000291, 0.0000294, 0.0000296, 0.0000299, 0.0000301, &
1630 0.0000303, 0.0000306, 0.0000308, 0.0000310, 0.0000312, &
1631 0.0000315, 0.0000317, 0.0000319, 0.0000321, 0.0000323, &
1632 0.0000325, 0.0000327, 0.0000329, 0.0000331, 0.0000333, &
1633 0.0000335, 0.0000329/
1634 data ((coa(i,j),i=1,62),j= 4, 4)/ &
1635 0.0000100, 0.0000111, 0.0000122, 0.0000131, 0.0000141, &
1636 0.0000149, 0.0000157, 0.0000165, 0.0000172, 0.0000179, &
1637 0.0000185, 0.0000191, 0.0000197, 0.0000203, 0.0000208, &
1638 0.0000213, 0.0000218, 0.0000223, 0.0000227, 0.0000232, &
1639 0.0000236, 0.0000240, 0.0000244, 0.0000248, 0.0000252, &
1640 0.0000255, 0.0000259, 0.0000262, 0.0000266, 0.0000269, &
1641 0.0000272, 0.0000275, 0.0000278, 0.0000281, 0.0000284, &
1642 0.0000287, 0.0000290, 0.0000293, 0.0000295, 0.0000298, &
1643 0.0000300, 0.0000303, 0.0000306, 0.0000308, 0.0000310, &
1644 0.0000313, 0.0000315, 0.0000317, 0.0000320, 0.0000322, &
1645 0.0000324, 0.0000326, 0.0000328, 0.0000331, 0.0000333, &
1646 0.0000335, 0.0000330, 0.0000339, 0.0000341, 0.0000343, &
1647 0.0000345, 0.0000346/
1648 data ((coa(i,j),i=1,62),j= 5, 5)/ &
1649 0.0000109, 0.0000121, 0.0000132, 0.0000143, 0.0000152, &
1650 0.0000161, 0.0000170, 0.0000178, 0.0000185, 0.0000192, &
1651 0.0000199, 0.0000205, 0.0000211, 0.0000217, 0.0000222, &
1652 0.0000228, 0.0000233, 0.0000238, 0.0000242, 0.0000247, &
1653 0.0000251, 0.0000255, 0.0000259, 0.0000263, 0.0000267, &
1654 0.0000271, 0.0000275, 0.0000278, 0.0000282, 0.0000285, &
1655 0.0000288, 0.0000291, 0.0000295, 0.0000298, 0.0000301, &
1656 0.0000304, 0.0000307, 0.0000309, 0.0000312, 0.0000315, &
1657 0.0000318, 0.0000320, 0.0000323, 0.0000325, 0.0000328, &
1658 0.0000330, 0.0000333, 0.0000335, 0.0000330, 0.0000340, &
1659 0.0000342, 0.0000344, 0.0000346, 0.0000348, 0.0000351, &
1660 0.0000353, 0.0000355, 0.0000357, 0.0000359, 0.0000361, &
1661 0.0000363, 0.0000365/
1662 data ((coa(i,j),i=1,62),j= 6, 6)/ &
1663 0.0000117, 0.0000130, 0.0000142, 0.0000153, 0.0000163, &
1664 0.0000173, 0.0000181, 0.0000190, 0.0000197, 0.0000204, &
1665 0.0000211, 0.0000218, 0.0000224, 0.0000230, 0.0000235, &
1666 0.0000241, 0.0000246, 0.0000251, 0.0000256, 0.0000260, &
1667 0.0000265, 0.0000269, 0.0000273, 0.0000277, 0.0000281, &
1668 0.0000285, 0.0000289, 0.0000293, 0.0000296, 0.0000299, &
1669 0.0000303, 0.0000306, 0.0000309, 0.0000313, 0.0000316, &
1670 0.0000319, 0.0000322, 0.0000324, 0.0000327, 0.0000330, &
1671 0.0000333, 0.0000336, 0.0000331, 0.0000341, 0.0000343, &
1672 0.0000346, 0.0000348, 0.0000351, 0.0000353, 0.0000355, &
1673 0.0000358, 0.0000360, 0.0000362, 0.0000365, 0.0000367, &
1674 0.0000369, 0.0000371, 0.0000373, 0.0000375, 0.0000377, &
1675 0.0000379, 0.0000381/
1676 data ((coa(i,j),i=1,62),j= 7, 7)/ &
1677 0.0000125, 0.0000139, 0.0000151, 0.0000163, 0.0000173, &
1678 0.0000183, 0.0000192, 0.0000200, 0.0000208, 0.0000216, &
1679 0.0000223, 0.0000229, 0.0000236, 0.0000242, 0.0000247, &
1680 0.0000253, 0.0000258, 0.0000263, 0.0000268, 0.0000273, &
1681 0.0000277, 0.0000282, 0.0000286, 0.0000290, 0.0000294, &
1682 0.0000298, 0.0000302, 0.0000306, 0.0000309, 0.0000313, &
1683 0.0000316, 0.0000320, 0.0000323, 0.0000326, 0.0000329, &
1684 0.0000332, 0.0000335, 0.0000331, 0.0000341, 0.0000344, &
1685 0.0000347, 0.0000350, 0.0000352, 0.0000355, 0.0000358, &
1686 0.0000360, 0.0000363, 0.0000365, 0.0000368, 0.0000370, &
1687 0.0000372, 0.0000375, 0.0000377, 0.0000379, 0.0000382, &
1688 0.0000384, 0.0000386, 0.0000388, 0.0000390, 0.0000392, &
1689 0.0000394, 0.0000396/
1690 data ((coa(i,j),i=1,62),j= 8, 8)/ &
1691 0.0000132, 0.0000147, 0.0000160, 0.0000172, 0.0000183, &
1692 0.0000193, 0.0000202, 0.0000210, 0.0000218, 0.0000226, &
1693 0.0000233, 0.0000240, 0.0000246, 0.0000252, 0.0000258, &
1694 0.0000264, 0.0000269, 0.0000274, 0.0000279, 0.0000284, &
1695 0.0000289, 0.0000293, 0.0000298, 0.0000302, 0.0000306, &
1696 0.0000310, 0.0000314, 0.0000318, 0.0000321, 0.0000325, &
1697 0.0000328, 0.0000332, 0.0000335, 0.0000331, 0.0000342, &
1698 0.0000345, 0.0000348, 0.0000351, 0.0000354, 0.0000357, &
1699 0.0000360, 0.0000363, 0.0000365, 0.0000368, 0.0000371, &
1700 0.0000373, 0.0000376, 0.0000378, 0.0000381, 0.0000383, &
1701 0.0000386, 0.0000388, 0.0000391, 0.0000393, 0.0000395, &
1702 0.0000397, 0.0000400, 0.0000402, 0.0000404, 0.0000406, &
1703 0.0000408, 0.0000411/
1704 data ((coa(i,j),i=1,62),j= 9, 9)/ &
1705 0.0000143, 0.0000158, 0.0000172, 0.0000184, 0.0000195, &
1706 0.0000206, 0.0000215, 0.0000224, 0.0000232, 0.0000240, &
1707 0.0000247, 0.0000254, 0.0000261, 0.0000267, 0.0000273, &
1708 0.0000279, 0.0000284, 0.0000290, 0.0000295, 0.0000300, &
1709 0.0000305, 0.0000309, 0.0000314, 0.0000318, 0.0000322, &
1710 0.0000326, 0.0000330, 0.0000334, 0.0000331, 0.0000342, &
1711 0.0000345, 0.0000349, 0.0000352, 0.0000356, 0.0000359, &
1712 0.0000362, 0.0000365, 0.0000368, 0.0000371, 0.0000374, &
1713 0.0000377, 0.0000380, 0.0000383, 0.0000386, 0.0000389, &
1714 0.0000391, 0.0000394, 0.0000397, 0.0000399, 0.0000402, &
1715 0.0000404, 0.0000407, 0.0000409, 0.0000412, 0.0000414, &
1716 0.0000416, 0.0000419, 0.0000421, 0.0000423, 0.0000426, &
1717 0.0000428, 0.0000430/
1718 data ((coa(i,j),i=1,62),j= 10, 10)/ &
1719 0.0000153, 0.0000169, 0.0000183, 0.0000196, 0.0000207, &
1720 0.0000218, 0.0000227, 0.0000236, 0.0000245, 0.0000253, &
1721 0.0000260, 0.0000267, 0.0000274, 0.0000281, 0.0000287, &
1722 0.0000293, 0.0000298, 0.0000304, 0.0000309, 0.0000314, &
1723 0.0000319, 0.0000324, 0.0000328, 0.0000333, 0.0000330, &
1724 0.0000341, 0.0000345, 0.0000349, 0.0000353, 0.0000357, &
1725 0.0000361, 0.0000364, 0.0000368, 0.0000371, 0.0000375, &
1726 0.0000378, 0.0000381, 0.0000384, 0.0000387, 0.0000391, &
1727 0.0000394, 0.0000397, 0.0000399, 0.0000402, 0.0000405, &
1728 0.0000408, 0.0000411, 0.0000413, 0.0000416, 0.0000419, &
1729 0.0000421, 0.0000424, 0.0000426, 0.0000429, 0.0000431, &
1730 0.0000434, 0.0000436, 0.0000439, 0.0000441, 0.0000443, &
1731 0.0000446, 0.0000448/
1732 data ((coa(i,j),i=1,62),j= 11, 11)/ &
1733 0.0000165, 0.0000182, 0.0000196, 0.0000209, 0.0000221, &
1734 0.0000232, 0.0000242, 0.0000251, 0.0000260, 0.0000268, &
1735 0.0000276, 0.0000283, 0.0000290, 0.0000297, 0.0000303, &
1736 0.0000309, 0.0000315, 0.0000321, 0.0000326, 0.0000331, &
1737 0.0000336, 0.0000341, 0.0000346, 0.0000350, 0.0000355, &
1738 0.0000359, 0.0000363, 0.0000367, 0.0000371, 0.0000375, &
1739 0.0000379, 0.0000383, 0.0000386, 0.0000390, 0.0000394, &
1740 0.0000397, 0.0000400, 0.0000404, 0.0000407, 0.0000410, &
1741 0.0000413, 0.0000416, 0.0000419, 0.0000422, 0.0000425, &
1742 0.0000428, 0.0000431, 0.0000434, 0.0000437, 0.0000439, &
1743 0.0000442, 0.0000445, 0.0000447, 0.0000450, 0.0000453, &
1744 0.0000455, 0.0000458, 0.0000460, 0.0000463, 0.0000465, &
1745 0.0000468, 0.0000470/
1746 data ((coa(i,j),i=1,62),j= 12, 12)/ &
1747 0.0000173, 0.0000190, 0.0000205, 0.0000219, 0.0000231, &
1748 0.0000242, 0.0000252, 0.0000262, 0.0000271, 0.0000279, &
1749 0.0000287, 0.0000294, 0.0000301, 0.0000308, 0.0000314, &
1750 0.0000320, 0.0000326, 0.0000332, 0.0000330, 0.0000343, &
1751 0.0000348, 0.0000353, 0.0000358, 0.0000362, 0.0000367, &
1752 0.0000371, 0.0000376, 0.0000380, 0.0000384, 0.0000388, &
1753 0.0000392, 0.0000396, 0.0000399, 0.0000403, 0.0000407, &
1754 0.0000410, 0.0000414, 0.0000417, 0.0000420, 0.0000424, &
1755 0.0000427, 0.0000430, 0.0000433, 0.0000436, 0.0000439, &
1756 0.0000442, 0.0000445, 0.0000448, 0.0000451, 0.0000454, &
1757 0.0000457, 0.0000459, 0.0000462, 0.0000465, 0.0000468, &
1758 0.0000470, 0.0000473, 0.0000475, 0.0000478, 0.0000481, &
1759 0.0000483, 0.0000486/
1760 data ((coa(i,j),i=1,62),j= 13, 13)/ &
1761 0.0000186, 0.0000204, 0.0000219, 0.0000233, 0.0000246, &
1762 0.0000257, 0.0000268, 0.0000277, 0.0000286, 0.0000295, &
1763 0.0000303, 0.0000311, 0.0000318, 0.0000325, 0.0000331, &
1764 0.0000331, 0.0000344, 0.0000350, 0.0000355, 0.0000361, &
1765 0.0000366, 0.0000371, 0.0000376, 0.0000381, 0.0000386, &
1766 0.0000390, 0.0000395, 0.0000399, 0.0000403, 0.0000407, &
1767 0.0000412, 0.0000416, 0.0000419, 0.0000423, 0.0000427, &
1768 0.0000431, 0.0000434, 0.0000438, 0.0000441, 0.0000445, &
1769 0.0000448, 0.0000451, 0.0000455, 0.0000458, 0.0000461, &
1770 0.0000464, 0.0000467, 0.0000470, 0.0000473, 0.0000476, &
1771 0.0000479, 0.0000482, 0.0000485, 0.0000488, 0.0000491, &
1772 0.0000494, 0.0000497, 0.0000499, 0.0000502, 0.0000505, &
1773 0.0000507, 0.0000510/
1774 data ((coa(i,j),i=1,62),j= 14, 14)/ &
1775 0.0000198, 0.0000216, 0.0000232, 0.0000246, 0.0000259, &
1776 0.0000271, 0.0000281, 0.0000291, 0.0000301, 0.0000310, &
1777 0.0000318, 0.0000326, 0.0000333, 0.0000340, 0.0000347, &
1778 0.0000354, 0.0000360, 0.0000366, 0.0000372, 0.0000377, &
1779 0.0000383, 0.0000388, 0.0000393, 0.0000398, 0.0000403, &
1780 0.0000408, 0.0000412, 0.0000417, 0.0000421, 0.0000425, &
1781 0.0000430, 0.0000434, 0.0000438, 0.0000442, 0.0000446, &
1782 0.0000449, 0.0000453, 0.0000457, 0.0000461, 0.0000464, &
1783 0.0000468, 0.0000471, 0.0000475, 0.0000478, 0.0000481, &
1784 0.0000485, 0.0000488, 0.0000491, 0.0000494, 0.0000498, &
1785 0.0000501, 0.0000504, 0.0000507, 0.0000510, 0.0000513, &
1786 0.0000516, 0.0000519, 0.0000522, 0.0000524, 0.0000527, &
1787 0.0000530, 0.0000533/
1788 data ((coa(i,j),i=1,62),j= 15, 15)/ &
1789 0.0000209, 0.0000228, 0.0000244, 0.0000258, 0.0000271, &
1790 0.0000283, 0.0000294, 0.0000305, 0.0000314, 0.0000323, &
1791 0.0000332, 0.0000340, 0.0000347, 0.0000354, 0.0000361, &
1792 0.0000368, 0.0000375, 0.0000381, 0.0000387, 0.0000392, &
1793 0.0000398, 0.0000404, 0.0000409, 0.0000414, 0.0000419, &
1794 0.0000424, 0.0000429, 0.0000433, 0.0000438, 0.0000442, &
1795 0.0000447, 0.0000451, 0.0000455, 0.0000459, 0.0000463, &
1796 0.0000467, 0.0000471, 0.0000475, 0.0000479, 0.0000483, &
1797 0.0000486, 0.0000490, 0.0000493, 0.0000497, 0.0000501, &
1798 0.0000504, 0.0000507, 0.0000511, 0.0000514, 0.0000518, &
1799 0.0000521, 0.0000524, 0.0000527, 0.0000530, 0.0000534, &
1800 0.0000537, 0.0000540, 0.0000543, 0.0000546, 0.0000549, &
1801 0.0000552, 0.0000555/
1802 data ((coa(i,j),i=1,62),j= 16, 16)/ &
1803 0.0000221, 0.0000240, 0.0000257, 0.0000272, 0.0000285, &
1804 0.0000297, 0.0000308, 0.0000319, 0.0000329, 0.0000331, &
1805 0.0000347, 0.0000355, 0.0000363, 0.0000370, 0.0000377, &
1806 0.0000384, 0.0000391, 0.0000397, 0.0000404, 0.0000409, &
1807 0.0000415, 0.0000421, 0.0000426, 0.0000432, 0.0000437, &
1808 0.0000442, 0.0000447, 0.0000452, 0.0000456, 0.0000461, &
1809 0.0000466, 0.0000470, 0.0000475, 0.0000479, 0.0000483, &
1810 0.0000487, 0.0000491, 0.0000496, 0.0000500, 0.0000503, &
1811 0.0000507, 0.0000511, 0.0000515, 0.0000519, 0.0000523, &
1812 0.0000526, 0.0000530, 0.0000533, 0.0000537, 0.0000540, &
1813 0.0000544, 0.0000547, 0.0000551, 0.0000554, 0.0000558, &
1814 0.0000561, 0.0000564, 0.0000567, 0.0000571, 0.0000574, &
1815 0.0000577, 0.0000580/
1816 data ((coa(i,j),i=1,62),j= 17, 17)/ &
1817 0.0000234, 0.0000254, 0.0000271, 0.0000286, 0.0000300, &
1818 0.0000312, 0.0000324, 0.0000335, 0.0000345, 0.0000354, &
1819 0.0000363, 0.0000372, 0.0000380, 0.0000387, 0.0000395, &
1820 0.0000402, 0.0000409, 0.0000415, 0.0000422, 0.0000428, &
1821 0.0000434, 0.0000440, 0.0000446, 0.0000451, 0.0000457, &
1822 0.0000462, 0.0000467, 0.0000472, 0.0000477, 0.0000482, &
1823 0.0000487, 0.0000492, 0.0000496, 0.0000501, 0.0000505, &
1824 0.0000510, 0.0000514, 0.0000518, 0.0000523, 0.0000527, &
1825 0.0000531, 0.0000535, 0.0000539, 0.0000543, 0.0000547, &
1826 0.0000551, 0.0000555, 0.0000559, 0.0000562, 0.0000566, &
1827 0.0000570, 0.0000573, 0.0000577, 0.0000581, 0.0000584, &
1828 0.0000588, 0.0000591, 0.0000595, 0.0000598, 0.0000602, &
1829 0.0000605, 0.0000608/
1830 data ((coa(i,j),i=1,62),j= 18, 18)/ &
1831 0.0000248, 0.0000268, 0.0000285, 0.0000301, 0.0000315, &
1832 0.0000328, 0.0000340, 0.0000351, 0.0000362, 0.0000371, &
1833 0.0000381, 0.0000389, 0.0000398, 0.0000406, 0.0000413, &
1834 0.0000421, 0.0000428, 0.0000435, 0.0000442, 0.0000448, &
1835 0.0000454, 0.0000460, 0.0000466, 0.0000472, 0.0000478, &
1836 0.0000484, 0.0000489, 0.0000494, 0.0000500, 0.0000505, &
1837 0.0000510, 0.0000515, 0.0000520, 0.0000525, 0.0000530, &
1838 0.0000534, 0.0000539, 0.0000544, 0.0000548, 0.0000553, &
1839 0.0000557, 0.0000561, 0.0000566, 0.0000570, 0.0000574, &
1840 0.0000578, 0.0000582, 0.0000586, 0.0000590, 0.0000594, &
1841 0.0000598, 0.0000602, 0.0000606, 0.0000610, 0.0000614, &
1842 0.0000618, 0.0000621, 0.0000625, 0.0000629, 0.0000633, &
1843 0.0000636, 0.0000640/
1844 data ((coa(i,j),i=1,62),j= 19, 19)/ &
1845 0.0000260, 0.0000281, 0.0000299, 0.0000315, 0.0000330, &
1846 0.0000343, 0.0000355, 0.0000367, 0.0000377, 0.0000388, &
1847 0.0000397, 0.0000406, 0.0000415, 0.0000423, 0.0000431, &
1848 0.0000439, 0.0000446, 0.0000453, 0.0000460, 0.0000467, &
1849 0.0000474, 0.0000480, 0.0000487, 0.0000493, 0.0000499, &
1850 0.0000505, 0.0000510, 0.0000516, 0.0000522, 0.0000527, &
1851 0.0000533, 0.0000538, 0.0000543, 0.0000548, 0.0000553, &
1852 0.0000558, 0.0000563, 0.0000568, 0.0000573, 0.0000578, &
1853 0.0000582, 0.0000587, 0.0000591, 0.0000596, 0.0000601, &
1854 0.0000605, 0.0000609, 0.0000614, 0.0000618, 0.0000622, &
1855 0.0000626, 0.0000631, 0.0000635, 0.0000639, 0.0000643, &
1856 0.0000647, 0.0000651, 0.0000655, 0.0000659, 0.0000663, &
1857 0.0000667, 0.0000670/
1858 data ((coa(i,j),i=1,62),j= 20, 20)/ &
1859 0.0000275, 0.0000296, 0.0000315, 0.0000332, 0.0000347, &
1860 0.0000360, 0.0000373, 0.0000385, 0.0000396, 0.0000407, &
1861 0.0000417, 0.0000426, 0.0000435, 0.0000444, 0.0000452, &
1862 0.0000460, 0.0000468, 0.0000476, 0.0000483, 0.0000490, &
1863 0.0000497, 0.0000504, 0.0000511, 0.0000517, 0.0000524, &
1864 0.0000530, 0.0000536, 0.0000542, 0.0000548, 0.0000554, &
1865 0.0000560, 0.0000566, 0.0000571, 0.0000577, 0.0000582, &
1866 0.0000587, 0.0000593, 0.0000598, 0.0000603, 0.0000608, &
1867 0.0000613, 0.0000618, 0.0000623, 0.0000628, 0.0000633, &
1868 0.0000638, 0.0000642, 0.0000647, 0.0000652, 0.0000656, &
1869 0.0000661, 0.0000665, 0.0000670, 0.0000674, 0.0000678, &
1870 0.0000683, 0.0000687, 0.0000691, 0.0000695, 0.0000700, &
1871 0.0000704, 0.0000708/
1872 data ((coa(i,j),i=1,62),j= 21, 21)/ &
1873 0.0000290, 0.0000312, 0.0000331, 0.0000349, 0.0000364, &
1874 0.0000379, 0.0000392, 0.0000404, 0.0000416, 0.0000427, &
1875 0.0000437, 0.0000447, 0.0000457, 0.0000466, 0.0000475, &
1876 0.0000483, 0.0000492, 0.0000500, 0.0000507, 0.0000515, &
1877 0.0000523, 0.0000530, 0.0000537, 0.0000544, 0.0000551, &
1878 0.0000558, 0.0000564, 0.0000571, 0.0000577, 0.0000583, &
1879 0.0000589, 0.0000596, 0.0000602, 0.0000607, 0.0000613, &
1880 0.0000619, 0.0000625, 0.0000630, 0.0000636, 0.0000641, &
1881 0.0000647, 0.0000652, 0.0000657, 0.0000663, 0.0000668, &
1882 0.0000673, 0.0000678, 0.0000683, 0.0000688, 0.0000693, &
1883 0.0000698, 0.0000702, 0.0000707, 0.0000712, 0.0000716, &
1884 0.0000721, 0.0000726, 0.0000730, 0.0000735, 0.0000739, &
1885 0.0000744, 0.0000748/
1886 data ((coa(i,j),i=1,62),j= 22, 22)/ &
1887 0.0000306, 0.0000329, 0.0000349, 0.0000366, 0.0000383, &
1888 0.0000398, 0.0000411, 0.0000424, 0.0000436, 0.0000448, &
1889 0.0000459, 0.0000469, 0.0000479, 0.0000489, 0.0000499, &
1890 0.0000508, 0.0000516, 0.0000525, 0.0000533, 0.0000542, &
1891 0.0000549, 0.0000557, 0.0000565, 0.0000572, 0.0000580, &
1892 0.0000587, 0.0000594, 0.0000601, 0.0000608, 0.0000615, &
1893 0.0000621, 0.0000628, 0.0000634, 0.0000640, 0.0000647, &
1894 0.0000653, 0.0000659, 0.0000665, 0.0000671, 0.0000677, &
1895 0.0000683, 0.0000688, 0.0000694, 0.0000700, 0.0000705, &
1896 0.0000711, 0.0000716, 0.0000721, 0.0000727, 0.0000732, &
1897 0.0000737, 0.0000742, 0.0000747, 0.0000752, 0.0000757, &
1898 0.0000762, 0.0000767, 0.0000772, 0.0000777, 0.0000782, &
1899 0.0000786, 0.0000791/
1900 data ((coa(i,j),i=1,62),j= 23, 23)/ &
1901 0.0000323, 0.0000347, 0.0000368, 0.0000386, 0.0000403, &
1902 0.0000419, 0.0000433, 0.0000447, 0.0000459, 0.0000472, &
1903 0.0000483, 0.0000494, 0.0000505, 0.0000516, 0.0000526, &
1904 0.0000535, 0.0000545, 0.0000554, 0.0000563, 0.0000572, &
1905 0.0000580, 0.0000589, 0.0000597, 0.0000605, 0.0000613, &
1906 0.0000621, 0.0000628, 0.0000636, 0.0000643, 0.0000650, &
1907 0.0000657, 0.0000664, 0.0000671, 0.0000678, 0.0000685, &
1908 0.0000692, 0.0000698, 0.0000705, 0.0000711, 0.0000717, &
1909 0.0000724, 0.0000730, 0.0000736, 0.0000742, 0.0000748, &
1910 0.0000754, 0.0000760, 0.0000765, 0.0000771, 0.0000777, &
1911 0.0000782, 0.0000788, 0.0000793, 0.0000799, 0.0000804, &
1912 0.0000809, 0.0000815, 0.0000820, 0.0000825, 0.0000830, &
1913 0.0000835, 0.0000840/
1914 data ((coa(i,j),i=1,62),j= 24, 24)/ &
1915 0.0000341, 0.0000365, 0.0000387, 0.0000406, 0.0000424, &
1916 0.0000440, 0.0000456, 0.0000470, 0.0000483, 0.0000496, &
1917 0.0000509, 0.0000521, 0.0000532, 0.0000543, 0.0000554, &
1918 0.0000564, 0.0000574, 0.0000584, 0.0000594, 0.0000603, &
1919 0.0000613, 0.0000622, 0.0000630, 0.0000639, 0.0000648, &
1920 0.0000656, 0.0000664, 0.0000672, 0.0000680, 0.0000688, &
1921 0.0000696, 0.0000703, 0.0000711, 0.0000718, 0.0000725, &
1922 0.0000732, 0.0000739, 0.0000746, 0.0000753, 0.0000760, &
1923 0.0000767, 0.0000773, 0.0000780, 0.0000786, 0.0000793, &
1924 0.0000799, 0.0000805, 0.0000811, 0.0000817, 0.0000823, &
1925 0.0000829, 0.0000835, 0.0000841, 0.0000847, 0.0000853, &
1926 0.0000858, 0.0000864, 0.0000870, 0.0000875, 0.0000881, &
1927 0.0000886, 0.0000892/
1928 data ((coa(i,j),i=1,62),j= 25, 25)/ &
1929 0.0000359, 0.0000385, 0.0000408, 0.0000428, 0.0000447, &
1930 0.0000464, 0.0000480, 0.0000495, 0.0000510, 0.0000524, &
1931 0.0000537, 0.0000550, 0.0000562, 0.0000574, 0.0000585, &
1932 0.0000597, 0.0000608, 0.0000618, 0.0000629, 0.0000639, &
1933 0.0000649, 0.0000658, 0.0000668, 0.0000677, 0.0000686, &
1934 0.0000695, 0.0000704, 0.0000713, 0.0000721, 0.0000730, &
1935 0.0000738, 0.0000746, 0.0000754, 0.0000762, 0.0000770, &
1936 0.0000777, 0.0000785, 0.0000792, 0.0000800, 0.0000807, &
1937 0.0000814, 0.0000821, 0.0000828, 0.0000835, 0.0000842, &
1938 0.0000849, 0.0000856, 0.0000862, 0.0000869, 0.0000875, &
1939 0.0000882, 0.0000888, 0.0000894, 0.0000900, 0.0000907, &
1940 0.0000913, 0.0000919, 0.0000925, 0.0000931, 0.0000936, &
1941 0.0000942, 0.0000948/
1942 data ((coa(i,j),i=1,62),j= 26, 26)/ &
1943 0.0000380, 0.0000407, 0.0000431, 0.0000453, 0.0000473, &
1944 0.0000491, 0.0000508, 0.0000525, 0.0000540, 0.0000555, &
1945 0.0000569, 0.0000583, 0.0000596, 0.0000609, 0.0000622, &
1946 0.0000634, 0.0000646, 0.0000657, 0.0000668, 0.0000679, &
1947 0.0000690, 0.0000700, 0.0000711, 0.0000721, 0.0000731, &
1948 0.0000740, 0.0000750, 0.0000759, 0.0000769, 0.0000778, &
1949 0.0000786, 0.0000795, 0.0000804, 0.0000812, 0.0000821, &
1950 0.0000829, 0.0000837, 0.0000845, 0.0000853, 0.0000861, &
1951 0.0000869, 0.0000876, 0.0000884, 0.0000891, 0.0000899, &
1952 0.0000906, 0.0000913, 0.0000920, 0.0000927, 0.0000934, &
1953 0.0000941, 0.0000948, 0.0000955, 0.0000961, 0.0000968, &
1954 0.0000974, 0.0000981, 0.0000987, 0.0000994, 0.0001000, &
1955 0.0001006, 0.0001012/
1956 data ((coa(i,j),i=1,62),j= 27, 27)/ &
1957 0.0000403, 0.0000431, 0.0000456, 0.0000479, 0.0000500, &
1958 0.0000520, 0.0000538, 0.0000556, 0.0000573, 0.0000589, &
1959 0.0000604, 0.0000619, 0.0000633, 0.0000647, 0.0000661, &
1960 0.0000674, 0.0000686, 0.0000699, 0.0000711, 0.0000723, &
1961 0.0000734, 0.0000746, 0.0000757, 0.0000768, 0.0000778, &
1962 0.0000789, 0.0000799, 0.0000809, 0.0000819, 0.0000829, &
1963 0.0000838, 0.0000848, 0.0000857, 0.0000866, 0.0000875, &
1964 0.0000884, 0.0000893, 0.0000902, 0.0000910, 0.0000919, &
1965 0.0000927, 0.0000935, 0.0000943, 0.0000951, 0.0000959, &
1966 0.0000967, 0.0000974, 0.0000982, 0.0000990, 0.0000997, &
1967 0.0001004, 0.0001012, 0.0001019, 0.0001026, 0.0001033, &
1968 0.0001040, 0.0001047, 0.0001054, 0.0001061, 0.0001067, &
1969 0.0001074, 0.0001080/
1970 data ((coa(i,j),i=1,62),j= 28, 28)/ &
1971 0.0000426, 0.0000456, 0.0000482, 0.0000507, 0.0000529, &
1972 0.0000550, 0.0000570, 0.0000589, 0.0000607, 0.0000624, &
1973 0.0000641, 0.0000657, 0.0000672, 0.0000687, 0.0000702, &
1974 0.0000716, 0.0000730, 0.0000743, 0.0000756, 0.0000769, &
1975 0.0000781, 0.0000794, 0.0000806, 0.0000817, 0.0000829, &
1976 0.0000840, 0.0000851, 0.0000862, 0.0000873, 0.0000883, &
1977 0.0000893, 0.0000904, 0.0000913, 0.0000923, 0.0000933, &
1978 0.0000943, 0.0000952, 0.0000961, 0.0000970, 0.0000979, &
1979 0.0000988, 0.0000997, 0.0001006, 0.0001014, 0.0001023, &
1980 0.0001031, 0.0001039, 0.0001047, 0.0001055, 0.0001063, &
1981 0.0001071, 0.0001079, 0.0001087, 0.0001094, 0.0001102, &
1982 0.0001109, 0.0001116, 0.0001124, 0.0001131, 0.0001138, &
1983 0.0001145, 0.0001152/
1984 data ((coa(i,j),i=1,62),j= 29, 29)/ &
1985 0.0000451, 0.0000482, 0.0000511, 0.0000537, 0.0000561, &
1986 0.0000584, 0.0000605, 0.0000626, 0.0000645, 0.0000664, &
1987 0.0000682, 0.0000699, 0.0000715, 0.0000732, 0.0000747, &
1988 0.0000763, 0.0000777, 0.0000792, 0.0000806, 0.0000820, &
1989 0.0000833, 0.0000846, 0.0000859, 0.0000872, 0.0000884, &
1990 0.0000896, 0.0000908, 0.0000920, 0.0000931, 0.0000942, &
1991 0.0000953, 0.0000964, 0.0000975, 0.0000986, 0.0000996, &
1992 0.0001006, 0.0001016, 0.0001026, 0.0001036, 0.0001046, &
1993 0.0001055, 0.0001064, 0.0001074, 0.0001083, 0.0001092, &
1994 0.0001101, 0.0001110, 0.0001118, 0.0001127, 0.0001135, &
1995 0.0001144, 0.0001152, 0.0001160, 0.0001168, 0.0001176, &
1996 0.0001184, 0.0001192, 0.0001200, 0.0001207, 0.0001215, &
1997 0.0001222, 0.0001230/
1998 data ((coa(i,j),i=1,62),j= 30, 30)/ &
1999 0.0000478, 0.0000512, 0.0000543, 0.0000571, 0.0000597, &
2000 0.0000621, 0.0000644, 0.0000666, 0.0000687, 0.0000708, &
2001 0.0000727, 0.0000746, 0.0000764, 0.0000781, 0.0000798, &
2002 0.0000814, 0.0000830, 0.0000846, 0.0000861, 0.0000876, &
2003 0.0000891, 0.0000905, 0.0000919, 0.0000932, 0.0000945, &
2004 0.0000958, 0.0000971, 0.0000984, 0.0000996, 0.0001008, &
2005 0.0001020, 0.0001032, 0.0001043, 0.0001055, 0.0001066, &
2006 0.0001077, 0.0001088, 0.0001098, 0.0001109, 0.0001119, &
2007 0.0001129, 0.0001139, 0.0001149, 0.0001159, 0.0001168, &
2008 0.0001178, 0.0001187, 0.0001197, 0.0001206, 0.0001215, &
2009 0.0001224, 0.0001233, 0.0001241, 0.0001250, 0.0001258, &
2010 0.0001267, 0.0001275, 0.0001283, 0.0001292, 0.0001300, &
2011 0.0001308, 0.0001316/
2012 data ((coa(i,j),i=1,62),j= 31, 31)/ &
2013 0.0000508, 0.0000544, 0.0000577, 0.0000607, 0.0000635, &
2014 0.0000661, 0.0000686, 0.0000710, 0.0000733, 0.0000754, &
2015 0.0000775, 0.0000795, 0.0000815, 0.0000834, 0.0000852, &
2016 0.0000870, 0.0000887, 0.0000904, 0.0000920, 0.0000936, &
2017 0.0000952, 0.0000967, 0.0000982, 0.0000996, 0.0001011, &
2018 0.0001025, 0.0001038, 0.0001052, 0.0001065, 0.0001078, &
2019 0.0001091, 0.0001103, 0.0001116, 0.0001128, 0.0001140, &
2020 0.0001151, 0.0001163, 0.0001174, 0.0001186, 0.0001197, &
2021 0.0001207, 0.0001218, 0.0001229, 0.0001239, 0.0001249, &
2022 0.0001260, 0.0001270, 0.0001279, 0.0001289, 0.0001299, &
2023 0.0001308, 0.0001318, 0.0001327, 0.0001336, 0.0001317, &
2024 0.0001325, 0.0001363, 0.0001372, 0.0001380, 0.0001389, &
2025 0.0001397, 0.0001406/
2026 data ((coa(i,j),i=1,62),j= 32, 32)/ &
2027 0.0000540, 0.0000579, 0.0000615, 0.0000647, 0.0000677, &
2028 0.0000706, 0.0000733, 0.0000758, 0.0000783, 0.0000806, &
2029 0.0000829, 0.0000851, 0.0000872, 0.0000892, 0.0000912, &
2030 0.0000931, 0.0000950, 0.0000968, 0.0000985, 0.0001003, &
2031 0.0001020, 0.0001036, 0.0001052, 0.0001068, 0.0001083, &
2032 0.0001098, 0.0001113, 0.0001127, 0.0001142, 0.0001156, &
2033 0.0001169, 0.0001183, 0.0001196, 0.0001209, 0.0001222, &
2034 0.0001234, 0.0001246, 0.0001259, 0.0001270, 0.0001282, &
2035 0.0001294, 0.0001305, 0.0001317, 0.0001328, 0.0001339, &
2036 0.0001321, 0.0001360, 0.0001371, 0.0001381, 0.0001391, &
2037 0.0001401, 0.0001411, 0.0001421, 0.0001431, 0.0001440, &
2038 0.0001450, 0.0001459, 0.0001469, 0.0001478, 0.0001487, &
2039 0.0001496, 0.0001505/
2040 data ((coa(i,j),i=1,62),j= 33, 33)/ &
2041 0.0000575, 0.0000617, 0.0000655, 0.0000690, 0.0000723, &
2042 0.0000754, 0.0000783, 0.0000810, 0.0000837, 0.0000862, &
2043 0.0000887, 0.0000910, 0.0000933, 0.0000955, 0.0000976, &
2044 0.0000997, 0.0001017, 0.0001036, 0.0001055, 0.0001074, &
2045 0.0001092, 0.0001110, 0.0001127, 0.0001144, 0.0001160, &
2046 0.0001176, 0.0001192, 0.0001208, 0.0001223, 0.0001238, &
2047 0.0001252, 0.0001267, 0.0001281, 0.0001295, 0.0001308, &
2048 0.0001322, 0.0001335, 0.0001319, 0.0001360, 0.0001373, &
2049 0.0001385, 0.0001397, 0.0001409, 0.0001421, 0.0001433, &
2050 0.0001444, 0.0001456, 0.0001467, 0.0001478, 0.0001489, &
2051 0.0001499, 0.0001510, 0.0001520, 0.0001531, 0.0001541, &
2052 0.0001551, 0.0001561, 0.0001571, 0.0001581, 0.0001590, &
2053 0.0001600, 0.0001609/
2054 data ((coa(i,j),i=1,62),j= 34, 34)/ &
2055 0.0000613, 0.0000659, 0.0000700, 0.0000738, 0.0000773, &
2056 0.0000806, 0.0000838, 0.0000868, 0.0000896, 0.0000924, &
2057 0.0000950, 0.0000976, 0.0001000, 0.0001024, 0.0001047, &
2058 0.0001069, 0.0001091, 0.0001112, 0.0001132, 0.0001152, &
2059 0.0001172, 0.0001191, 0.0001209, 0.0001227, 0.0001245, &
2060 0.0001262, 0.0001279, 0.0001296, 0.0001312, 0.0001328, &
2061 0.0001344, 0.0001359, 0.0001374, 0.0001389, 0.0001403, &
2062 0.0001417, 0.0001432, 0.0001445, 0.0001459, 0.0001472, &
2063 0.0001485, 0.0001498, 0.0001511, 0.0001524, 0.0001536, &
2064 0.0001548, 0.0001560, 0.0001572, 0.0001584, 0.0001595, &
2065 0.0001607, 0.0001618, 0.0001629, 0.0001640, 0.0001651, &
2066 0.0001661, 0.0001672, 0.0001682, 0.0001693, 0.0001703, &
2067 0.0001713, 0.0001723/
2068 data ((coa(i,j),i=1,62),j= 35, 35)/ &
2069 0.0000654, 0.0000703, 0.0000747, 0.0000789, 0.0000827, &
2070 0.0000863, 0.0000897, 0.0000929, 0.0000960, 0.0000990, &
2071 0.0001018, 0.0001046, 0.0001072, 0.0001098, 0.0001123, &
2072 0.0001147, 0.0001170, 0.0001193, 0.0001214, 0.0001236, &
2073 0.0001257, 0.0001277, 0.0001297, 0.0001316, 0.0001335, &
2074 0.0001325, 0.0001372, 0.0001389, 0.0001407, 0.0001424, &
2075 0.0001440, 0.0001457, 0.0001473, 0.0001488, 0.0001504, &
2076 0.0001519, 0.0001534, 0.0001548, 0.0001563, 0.0001577, &
2077 0.0001591, 0.0001605, 0.0001618, 0.0001631, 0.0001645, &
2078 0.0001658, 0.0001670, 0.0001683, 0.0001695, 0.0001707, &
2079 0.0001720, 0.0001732, 0.0001743, 0.0001755, 0.0001767, &
2080 0.0001778, 0.0001789, 0.0001800, 0.0001811, 0.0001822, &
2081 0.0001833, 0.0001844/
2082 data ((coa(i,j),i=1,62),j= 36, 36)/ &
2083 0.0000699, 0.0000752, 0.0000800, 0.0000844, 0.0000886, &
2084 0.0000925, 0.0000962, 0.0000997, 0.0001030, 0.0001062, &
2085 0.0001093, 0.0001123, 0.0001151, 0.0001179, 0.0001205, &
2086 0.0001231, 0.0001256, 0.0001280, 0.0001304, 0.0001327, &
2087 0.0001321, 0.0001371, 0.0001392, 0.0001413, 0.0001433, &
2088 0.0001453, 0.0001472, 0.0001491, 0.0001509, 0.0001527, &
2089 0.0001545, 0.0001562, 0.0001579, 0.0001596, 0.0001612, &
2090 0.0001629, 0.0001644, 0.0001660, 0.0001675, 0.0001690, &
2091 0.0001705, 0.0001720, 0.0001734, 0.0001749, 0.0001762, &
2092 0.0001776, 0.0001790, 0.0001803, 0.0001817, 0.0001830, &
2093 0.0001842, 0.0001855, 0.0001868, 0.0001880, 0.0001892, &
2094 0.0001905, 0.0001917, 0.0001928, 0.0001940, 0.0001952, &
2095 0.0001963, 0.0001975/
2096 data ((coa(i,j),i=1,62),j= 37, 37)/ &
2097 0.0000748, 0.0000805, 0.0000858, 0.0000906, 0.0000951, &
2098 0.0000993, 0.0001033, 0.0001071, 0.0001107, 0.0001142, &
2099 0.0001175, 0.0001207, 0.0001238, 0.0001267, 0.0001296, &
2100 0.0001323, 0.0001322, 0.0001376, 0.0001401, 0.0001426, &
2101 0.0001450, 0.0001473, 0.0001496, 0.0001518, 0.0001539, &
2102 0.0001560, 0.0001581, 0.0001601, 0.0001620, 0.0001640, &
2103 0.0001659, 0.0001677, 0.0001695, 0.0001713, 0.0001731, &
2104 0.0001748, 0.0001765, 0.0001781, 0.0001798, 0.0001814, &
2105 0.0001830, 0.0001845, 0.0001861, 0.0001876, 0.0001891, &
2106 0.0001905, 0.0001920, 0.0001934, 0.0001948, 0.0001962, &
2107 0.0001976, 0.0001990, 0.0002003, 0.0002017, 0.0002030, &
2108 0.0002043, 0.0002056, 0.0002068, 0.0002081, 0.0002093, &
2109 0.0002106, 0.0002118/
2110 data ((coa(i,j),i=1,62),j= 38, 38)/ &
2111 0.0000802, 0.0000863, 0.0000920, 0.0000972, 0.0001021, &
2112 0.0001067, 0.0001110, 0.0001151, 0.0001190, 0.0001227, &
2113 0.0001263, 0.0001297, 0.0001330, 0.0001362, 0.0001393, &
2114 0.0001422, 0.0001451, 0.0001479, 0.0001506, 0.0001532, &
2115 0.0001557, 0.0001582, 0.0001606, 0.0001630, 0.0001653, &
2116 0.0001675, 0.0001697, 0.0001719, 0.0001740, 0.0001760, &
2117 0.0001780, 0.0001800, 0.0001819, 0.0001839, 0.0001857, &
2118 0.0001876, 0.0001894, 0.0001911, 0.0001929, 0.0001946, &
2119 0.0001963, 0.0001980, 0.0001996, 0.0002012, 0.0002028, &
2120 0.0002044, 0.0002060, 0.0002075, 0.0002090, 0.0002105, &
2121 0.0002120, 0.0002135, 0.0002149, 0.0002164, 0.0002178, &
2122 0.0002192, 0.0002205, 0.0002219, 0.0002233, 0.0002246, &
2123 0.0002259, 0.0002273/
2124 data ((coa(i,j),i=1,62),j= 39, 39)/ &
2125 0.0000859, 0.0000926, 0.0000987, 0.0001044, 0.0001097, &
2126 0.0001146, 0.0001193, 0.0001237, 0.0001279, 0.0001319, &
2127 0.0001358, 0.0001395, 0.0001430, 0.0001464, 0.0001497, &
2128 0.0001528, 0.0001559, 0.0001589, 0.0001617, 0.0001645, &
2129 0.0001673, 0.0001699, 0.0001725, 0.0001750, 0.0001774, &
2130 0.0001798, 0.0001822, 0.0001845, 0.0001867, 0.0001889, &
2131 0.0001911, 0.0001932, 0.0001953, 0.0001973, 0.0001993, &
2132 0.0002013, 0.0002032, 0.0002051, 0.0002070, 0.0002088, &
2133 0.0002107, 0.0002124, 0.0002142, 0.0002160, 0.0002177, &
2134 0.0002194, 0.0002211, 0.0002227, 0.0002243, 0.0002260, &
2135 0.0002276, 0.0002291, 0.0002307, 0.0002322, 0.0002338, &
2136 0.0002353, 0.0002368, 0.0002382, 0.0002397, 0.0002412, &
2137 0.0002426, 0.0002440/
2138 data ((coa(i,j),i=1,62),j= 40, 40)/ &
2139 0.0000922, 0.0000995, 0.0001061, 0.0001122, 0.0001179, &
2140 0.0001233, 0.0001283, 0.0001331, 0.0001376, 0.0001419, &
2141 0.0001460, 0.0001500, 0.0001538, 0.0001574, 0.0001609, &
2142 0.0001643, 0.0001676, 0.0001707, 0.0001738, 0.0001768, &
2143 0.0001797, 0.0001825, 0.0001853, 0.0001880, 0.0001906, &
2144 0.0001932, 0.0001957, 0.0001981, 0.0002006, 0.0002029, &
2145 0.0002052, 0.0002075, 0.0002097, 0.0002119, 0.0002141, &
2146 0.0002162, 0.0002183, 0.0002203, 0.0002223, 0.0002243, &
2147 0.0002263, 0.0002282, 0.0002301, 0.0002320, 0.0002339, &
2148 0.0002357, 0.0002375, 0.0002393, 0.0002411, 0.0002428, &
2149 0.0002446, 0.0002463, 0.0002480, 0.0002496, 0.0002513, &
2150 0.0002529, 0.0002546, 0.0002562, 0.0002578, 0.0002593, &
2151 0.0002609, 0.0002625/
2152 data ((coa(i,j),i=1,62),j= 41, 41)/ &
2153 0.0000990, 0.0001069, 0.0001141, 0.0001207, 0.0001268, &
2154 0.0001326, 0.0001380, 0.0001431, 0.0001480, 0.0001526, &
2155 0.0001570, 0.0001612, 0.0001653, 0.0001692, 0.0001729, &
2156 0.0001766, 0.0001801, 0.0001835, 0.0001868, 0.0001900, &
2157 0.0001931, 0.0001961, 0.0001991, 0.0002019, 0.0002048, &
2158 0.0002075, 0.0002102, 0.0002129, 0.0002154, 0.0002180, &
2159 0.0002205, 0.0002229, 0.0002253, 0.0002277, 0.0002300, &
2160 0.0002323, 0.0002346, 0.0002368, 0.0002390, 0.0002411, &
2161 0.0002432, 0.0002453, 0.0002474, 0.0002494, 0.0002515, &
2162 0.0002535, 0.0002554, 0.0002574, 0.0002593, 0.0002612, &
2163 0.0002631, 0.0002649, 0.0002668, 0.0002686, 0.0002704, &
2164 0.0002722, 0.0002740, 0.0002757, 0.0002775, 0.0002792, &
2165 0.0002809, 0.0002826/
2166 data ((coa(i,j),i=1,62),j= 42, 42)/ &
2167 0.0001063, 0.0001148, 0.0001226, 0.0001297, 0.0001363, &
2168 0.0001425, 0.0001483, 0.0001538, 0.0001590, 0.0001639, &
2169 0.0001687, 0.0001732, 0.0001775, 0.0001817, 0.0001857, &
2170 0.0001896, 0.0001933, 0.0001970, 0.0002005, 0.0002039, &
2171 0.0002073, 0.0002105, 0.0002137, 0.0002168, 0.0002198, &
2172 0.0002228, 0.0002257, 0.0002286, 0.0002314, 0.0002341, &
2173 0.0002368, 0.0002394, 0.0002420, 0.0002446, 0.0002471, &
2174 0.0002496, 0.0002520, 0.0002544, 0.0002568, 0.0002591, &
2175 0.0002615, 0.0002637, 0.0002660, 0.0002682, 0.0002704, &
2176 0.0002726, 0.0002747, 0.0002768, 0.0002789, 0.0002810, &
2177 0.0002831, 0.0002851, 0.0002871, 0.0002891, 0.0002911, &
2178 0.0002930, 0.0002950, 0.0002969, 0.0002988, 0.0003007, &
2179 0.0003025, 0.0003044/
2180 data ((coa(i,j),i=1,62),j= 43, 43)/ &
2181 0.0001141, 0.0001233, 0.0001316, 0.0001393, 0.0001464, &
2182 0.0001531, 0.0001593, 0.0001652, 0.0001707, 0.0001760, &
2183 0.0001811, 0.0001859, 0.0001905, 0.0001950, 0.0001993, &
2184 0.0002035, 0.0002075, 0.0002114, 0.0002152, 0.0002189, &
2185 0.0002225, 0.0002260, 0.0002294, 0.0002328, 0.0002360, &
2186 0.0002393, 0.0002424, 0.0002455, 0.0002485, 0.0002515, &
2187 0.0002544, 0.0002573, 0.0002601, 0.0002629, 0.0002656, &
2188 0.0002683, 0.0002709, 0.0002736, 0.0002762, 0.0002787, &
2189 0.0002812, 0.0002837, 0.0002862, 0.0002886, 0.0002910, &
2190 0.0002934, 0.0002957, 0.0002980, 0.0003003, 0.0003026, &
2191 0.0003048, 0.0003071, 0.0003093, 0.0003114, 0.0003136, &
2192 0.0003157, 0.0003179, 0.0003200, 0.0003221, 0.0003241, &
2193 0.0003262, 0.0003282/
2194 data ((coa(i,j),i=1,62),j= 44, 44)/ &
2195 0.0001224, 0.0001323, 0.0001413, 0.0001496, 0.0001572, &
2196 0.0001643, 0.0001709, 0.0001772, 0.0001832, 0.0001888, &
2197 0.0001943, 0.0001994, 0.0002044, 0.0002092, 0.0002138, &
2198 0.0002183, 0.0002226, 0.0002269, 0.0002309, 0.0002349, &
2199 0.0002388, 0.0002426, 0.0002463, 0.0002499, 0.0002535, &
2200 0.0002570, 0.0002604, 0.0002637, 0.0002670, 0.0002702, &
2201 0.0002734, 0.0002765, 0.0002796, 0.0002826, 0.0002856, &
2202 0.0002886, 0.0002915, 0.0002943, 0.0002972, 0.0002999, &
2203 0.0003027, 0.0003054, 0.0003081, 0.0003108, 0.0003134, &
2204 0.0003160, 0.0003185, 0.0003211, 0.0003236, 0.0003261, &
2205 0.0003286, 0.0003310, 0.0003334, 0.0003358, 0.0003382, &
2206 0.0003405, 0.0003428, 0.0003451, 0.0003474, 0.0003497, &
2207 0.0003519, 0.0003542/
2208 data ((coa(i,j),i=1,62),j= 45, 45)/ &
2209 0.0001312, 0.0001419, 0.0001515, 0.0001603, 0.0001685, &
2210 0.0001761, 0.0001832, 0.0001899, 0.0001963, 0.0002024, &
2211 0.0002082, 0.0002138, 0.0002191, 0.0002243, 0.0002292, &
2212 0.0002341, 0.0002387, 0.0002433, 0.0002477, 0.0002520, &
2213 0.0002562, 0.0002603, 0.0002644, 0.0002683, 0.0002722, &
2214 0.0002759, 0.0002796, 0.0002833, 0.0002869, 0.0002904, &
2215 0.0002939, 0.0002973, 0.0003006, 0.0003039, 0.0003072, &
2216 0.0003104, 0.0003136, 0.0003167, 0.0003198, 0.0003228, &
2217 0.0003259, 0.0003288, 0.0003318, 0.0003347, 0.0003376, &
2218 0.0003404, 0.0003432, 0.0003460, 0.0003487, 0.0003515, &
2219 0.0003542, 0.0003568, 0.0003595, 0.0003621, 0.0003647, &
2220 0.0003673, 0.0003698, 0.0003724, 0.0003749, 0.0003773, &
2221 0.0003798, 0.0003822/
2222 data ((coa(i,j),i=1,62),j= 46, 46)/ &
2223 0.0001406, 0.0001520, 0.0001623, 0.0001718, 0.0001805, &
2224 0.0001886, 0.0001963, 0.0002035, 0.0002103, 0.0002168, &
2225 0.0002231, 0.0002291, 0.0002348, 0.0002404, 0.0002458, &
2226 0.0002510, 0.0002561, 0.0002610, 0.0002658, 0.0002705, &
2227 0.0002750, 0.0002795, 0.0002839, 0.0002882, 0.0002924, &
2228 0.0002965, 0.0003005, 0.0003045, 0.0003084, 0.0003123, &
2229 0.0003161, 0.0003198, 0.0003235, 0.0003271, 0.0003307, &
2230 0.0003342, 0.0003376, 0.0003411, 0.0003445, 0.0003478, &
2231 0.0003511, 0.0003544, 0.0003576, 0.0003608, 0.0003639, &
2232 0.0003670, 0.0003701, 0.0003731, 0.0003762, 0.0003791, &
2233 0.0003821, 0.0003850, 0.0003879, 0.0003908, 0.0003936, &
2234 0.0003965, 0.0003992, 0.0004020, 0.0004047, 0.0004075, &
2235 0.0004102, 0.0004128/
2236 data ((coa(i,j),i=1,62),j= 47, 47)/ &
2237 0.0001506, 0.0001628, 0.0001739, 0.0001840, 0.0001934, &
2238 0.0002021, 0.0002103, 0.0002180, 0.0002254, 0.0002324, &
2239 0.0002391, 0.0002456, 0.0002518, 0.0002579, 0.0002637, &
2240 0.0002694, 0.0002749, 0.0002802, 0.0002854, 0.0002905, &
2241 0.0002955, 0.0003004, 0.0003052, 0.0003099, 0.0003145, &
2242 0.0003190, 0.0003234, 0.0003278, 0.0003320, 0.0003362, &
2243 0.0003404, 0.0003445, 0.0003485, 0.0003524, 0.0003564, &
2244 0.0003602, 0.0003640, 0.0003678, 0.0003715, 0.0003751, &
2245 0.0003787, 0.0003823, 0.0003858, 0.0003893, 0.0003928, &
2246 0.0003962, 0.0003995, 0.0004029, 0.0004062, 0.0004094, &
2247 0.0004127, 0.0004159, 0.0004190, 0.0004222, 0.0004253, &
2248 0.0004283, 0.0004314, 0.0004344, 0.0004374, 0.0004404, &
2249 0.0004433, 0.0004462/
2250 data ((coa(i,j),i=1,62),j= 48, 48)/ &
2251 0.0001613, 0.0001744, 0.0001863, 0.0001971, 0.0002072, &
2252 0.0002165, 0.0002254, 0.0002337, 0.0002417, 0.0002493, &
2253 0.0002565, 0.0002636, 0.0002703, 0.0002769, 0.0002832, &
2254 0.0002894, 0.0002954, 0.0003013, 0.0003070, 0.0003125, &
2255 0.0003180, 0.0003233, 0.0003286, 0.0003337, 0.0003387, &
2256 0.0003436, 0.0003485, 0.0003533, 0.0003579, 0.0003625, &
2257 0.0003671, 0.0003716, 0.0003760, 0.0003803, 0.0003846, &
2258 0.0003888, 0.0003929, 0.0003971, 0.0004011, 0.0004051, &
2259 0.0004091, 0.0004130, 0.0004168, 0.0004206, 0.0004244, &
2260 0.0004281, 0.0004318, 0.0004354, 0.0004390, 0.0004426, &
2261 0.0004461, 0.0004496, 0.0004530, 0.0004565, 0.0004598, &
2262 0.0004632, 0.0004665, 0.0004698, 0.0004730, 0.0004763, &
2263 0.0004795, 0.0004826/
2264 data ((coa(i,j),i=1,62),j= 49, 49)/ &
2265 0.0001728, 0.0001868, 0.0001996, 0.0002112, 0.0002220, &
2266 0.0002321, 0.0002417, 0.0002507, 0.0002593, 0.0002676, &
2267 0.0002755, 0.0002831, 0.0002905, 0.0002977, 0.0003046, &
2268 0.0003113, 0.0003179, 0.0003243, 0.0003305, 0.0003366, &
2269 0.0003426, 0.0003484, 0.0003542, 0.0003598, 0.0003653, &
2270 0.0003707, 0.0003760, 0.0003812, 0.0003863, 0.0003914, &
2271 0.0003963, 0.0004012, 0.0004060, 0.0004108, 0.0004154, &
2272 0.0004201, 0.0004246, 0.0004291, 0.0004335, 0.0004379, &
2273 0.0004422, 0.0004464, 0.0004506, 0.0004548, 0.0004589, &
2274 0.0004629, 0.0004669, 0.0004709, 0.0004748, 0.0004787, &
2275 0.0004825, 0.0004863, 0.0004900, 0.0004937, 0.0004974, &
2276 0.0005010, 0.0005046, 0.0005082, 0.0005117, 0.0005152, &
2277 0.0005187, 0.0005221/
2278 data ((coa(i,j),i=1,62),j= 50, 50)/ &
2279 0.0001851, 0.0002003, 0.0002139, 0.0002265, 0.0002382, &
2280 0.0002491, 0.0002595, 0.0002693, 0.0002787, 0.0002877, &
2281 0.0002963, 0.0003047, 0.0003127, 0.0003205, 0.0003281, &
2282 0.0003355, 0.0003427, 0.0003497, 0.0003565, 0.0003632, &
2283 0.0003697, 0.0003761, 0.0003824, 0.0003885, 0.0003945, &
2284 0.0004004, 0.0004062, 0.0004119, 0.0004175, 0.0004230, &
2285 0.0004285, 0.0004338, 0.0004390, 0.0004442, 0.0004493, &
2286 0.0004543, 0.0004593, 0.0004641, 0.0004689, 0.0004737, &
2287 0.0004784, 0.0004830, 0.0004875, 0.0004920, 0.0004965, &
2288 0.0005009, 0.0005052, 0.0005095, 0.0005138, 0.0005179, &
2289 0.0005221, 0.0005262, 0.0005302, 0.0005342, 0.0005268, &
2290 0.0005421, 0.0005460, 0.0005499, 0.0005537, 0.0005574, &
2291 0.0005612, 0.0005649/
2292 data ((coa(i,j),i=1,62),j= 51, 51)/ &
2293 0.0001985, 0.0002149, 0.0002297, 0.0002433, 0.0002559, &
2294 0.0002679, 0.0002791, 0.0002898, 0.0003001, 0.0003099, &
2295 0.0003193, 0.0003285, 0.0003373, 0.0003459, 0.0003542, &
2296 0.0003622, 0.0003701, 0.0003778, 0.0003853, 0.0003926, &
2297 0.0003997, 0.0004067, 0.0004135, 0.0004202, 0.0004268, &
2298 0.0004333, 0.0004396, 0.0004458, 0.0004519, 0.0004579, &
2299 0.0004638, 0.0004696, 0.0004753, 0.0004809, 0.0004864, &
2300 0.0004919, 0.0004972, 0.0005025, 0.0005077, 0.0005129, &
2301 0.0005179, 0.0005229, 0.0005279, 0.0005327, 0.0005375, &
2302 0.0005423, 0.0005470, 0.0005516, 0.0005562, 0.0005607, &
2303 0.0005652, 0.0005696, 0.0005739, 0.0005782, 0.0005825, &
2304 0.0005867, 0.0005909, 0.0005951, 0.0005991, 0.0006032, &
2305 0.0006072, 0.0006112/
2306 data ((coa(i,j),i=1,62),j= 52, 52)/ &
2307 0.0002132, 0.0002309, 0.0002469, 0.0002617, 0.0002755, &
2308 0.0002885, 0.0003008, 0.0003125, 0.0003237, 0.0003345, &
2309 0.0003449, 0.0003549, 0.0003645, 0.0003739, 0.0003830, &
2310 0.0003918, 0.0004004, 0.0004088, 0.0004170, 0.0004250, &
2311 0.0004328, 0.0004404, 0.0004478, 0.0004551, 0.0004623, &
2312 0.0004693, 0.0004762, 0.0004829, 0.0004895, 0.0004960, &
2313 0.0005024, 0.0005087, 0.0005149, 0.0005210, 0.0005269, &
2314 0.0005328, 0.0005272, 0.0005443, 0.0005500, 0.0005555, &
2315 0.0005609, 0.0005663, 0.0005717, 0.0005769, 0.0005821, &
2316 0.0005872, 0.0005922, 0.0005972, 0.0006021, 0.0006070, &
2317 0.0006118, 0.0006165, 0.0006212, 0.0006258, 0.0006304, &
2318 0.0006349, 0.0006394, 0.0006438, 0.0006482, 0.0006525, &
2319 0.0006568, 0.0006611/
2320 data ((coa(i,j),i=1,62),j= 53, 53)/ &
2321 0.0002293, 0.0002485, 0.0002660, 0.0002821, 0.0002972, &
2322 0.0003114, 0.0003249, 0.0003377, 0.0003500, 0.0003618, &
2323 0.0003732, 0.0003841, 0.0003947, 0.0004049, 0.0004149, &
2324 0.0004245, 0.0004339, 0.0004430, 0.0004520, 0.0004606, &
2325 0.0004691, 0.0004774, 0.0004855, 0.0004934, 0.0005012, &
2326 0.0005087, 0.0005162, 0.0005235, 0.0005306, 0.0005377, &
2327 0.0005446, 0.0005513, 0.0005580, 0.0005646, 0.0005710, &
2328 0.0005773, 0.0005836, 0.0005897, 0.0005957, 0.0006017, &
2329 0.0006076, 0.0006134, 0.0006191, 0.0006247, 0.0006302, &
2330 0.0006357, 0.0006411, 0.0006464, 0.0006517, 0.0006569, &
2331 0.0006620, 0.0006671, 0.0006721, 0.0006771, 0.0006820, &
2332 0.0006868, 0.0006916, 0.0006963, 0.0007010, 0.0007056, &
2333 0.0007102, 0.0007147/
2334 data ((coa(i,j),i=1,62),j= 54, 54)/ &
2335 0.0002471, 0.0002680, 0.0002871, 0.0003048, 0.0003214, &
2336 0.0003369, 0.0003517, 0.0003658, 0.0003792, 0.0003921, &
2337 0.0004045, 0.0004165, 0.0004281, 0.0004392, 0.0004501, &
2338 0.0004606, 0.0004708, 0.0004807, 0.0004903, 0.0004998, &
2339 0.0005089, 0.0005179, 0.0005267, 0.0005352, 0.0005436, &
2340 0.0005518, 0.0005598, 0.0005677, 0.0005754, 0.0005829, &
2341 0.0005903, 0.0005976, 0.0006048, 0.0006118, 0.0006187, &
2342 0.0006255, 0.0006322, 0.0006388, 0.0006453, 0.0006516, &
2343 0.0006579, 0.0006641, 0.0006702, 0.0006762, 0.0006822, &
2344 0.0006880, 0.0006938, 0.0006995, 0.0007051, 0.0007106, &
2345 0.0007161, 0.0007215, 0.0007269, 0.0007321, 0.0007374, &
2346 0.0007425, 0.0007476, 0.0007527, 0.0007576, 0.0007626, &
2347 0.0007674, 0.0007723/
2348 data ((coa(i,j),i=1,62),j= 55, 55)/ &
2349 0.0002669, 0.0002898, 0.0003107, 0.0003300, 0.0003482, &
2350 0.0003653, 0.0003815, 0.0003969, 0.0004116, 0.0004257, &
2351 0.0004392, 0.0004522, 0.0004648, 0.0004769, 0.0004887, &
2352 0.0005001, 0.0005111, 0.0005218, 0.0005323, 0.0005425, &
2353 0.0005524, 0.0005620, 0.0005714, 0.0005807, 0.0005897, &
2354 0.0005985, 0.0006071, 0.0006155, 0.0006238, 0.0006319, &
2355 0.0006398, 0.0006476, 0.0006553, 0.0006628, 0.0006702, &
2356 0.0006775, 0.0006846, 0.0006917, 0.0006986, 0.0007054, &
2357 0.0007121, 0.0007187, 0.0007252, 0.0007316, 0.0007379, &
2358 0.0007442, 0.0007503, 0.0007564, 0.0007624, 0.0007683, &
2359 0.0007741, 0.0007798, 0.0007855, 0.0007911, 0.0007967, &
2360 0.0008022, 0.0008076, 0.0008129, 0.0008182, 0.0008235, &
2361 0.0008286, 0.0008337/
2362 data ((coa(i,j),i=1,62),j= 56, 56)/ &
2363 0.0002889, 0.0003140, 0.0003369, 0.0003582, 0.0003780, &
2364 0.0003967, 0.0004144, 0.0004312, 0.0004473, 0.0004626, &
2365 0.0004773, 0.0004914, 0.0005050, 0.0005182, 0.0005309, &
2366 0.0005432, 0.0005551, 0.0005666, 0.0005779, 0.0005888, &
2367 0.0005995, 0.0006098, 0.0006200, 0.0006298, 0.0006395, &
2368 0.0006489, 0.0006581, 0.0006672, 0.0006760, 0.0006847, &
2369 0.0006932, 0.0007015, 0.0007097, 0.0007177, 0.0007256, &
2370 0.0007333, 0.0007409, 0.0007484, 0.0007558, 0.0007630, &
2371 0.0007702, 0.0007772, 0.0007841, 0.0007909, 0.0007976, &
2372 0.0008043, 0.0008108, 0.0008172, 0.0008236, 0.0008298, &
2373 0.0008360, 0.0008421, 0.0008481, 0.0008541, 0.0008600, &
2374 0.0008658, 0.0008715, 0.0008772, 0.0008828, 0.0008883, &
2375 0.0008938, 0.0008992/
2376 data ((coa(i,j),i=1,62),j= 57, 57)/ &
2377 0.0003135, 0.0003410, 0.0003662, 0.0003895, 0.0004112, &
2378 0.0004316, 0.0004509, 0.0004692, 0.0004866, 0.0005032, &
2379 0.0005191, 0.0005344, 0.0005491, 0.0005632, 0.0005769, &
2380 0.0005901, 0.0006029, 0.0006153, 0.0006274, 0.0006391, &
2381 0.0006505, 0.0006616, 0.0006725, 0.0006830, 0.0006933, &
2382 0.0007034, 0.0007132, 0.0007229, 0.0007323, 0.0007415, &
2383 0.0007506, 0.0007595, 0.0007682, 0.0007767, 0.0007851, &
2384 0.0007933, 0.0008014, 0.0008093, 0.0008172, 0.0008249, &
2385 0.0008324, 0.0008399, 0.0008472, 0.0008544, 0.0008615, &
2386 0.0008685, 0.0008755, 0.0008823, 0.0008890, 0.0008956, &
2387 0.0009021, 0.0009086, 0.0009149, 0.0009212, 0.0009274, &
2388 0.0009335, 0.0009396, 0.0009455, 0.0009514, 0.0009573, &
2389 0.0009630, 0.0009687/
2390 data ((coa(i,j),i=1,62),j= 58, 58)/ &
2391 0.0003409, 0.0003711, 0.0003987, 0.0004241, 0.0004478, &
2392 0.0004700, 0.0004909, 0.0005107, 0.0005295, 0.0005474, &
2393 0.0005645, 0.0005810, 0.0005968, 0.0006120, 0.0006267, &
2394 0.0006408, 0.0006545, 0.0006678, 0.0006807, 0.0006932, &
2395 0.0007054, 0.0007173, 0.0007288, 0.0007401, 0.0007510, &
2396 0.0007618, 0.0007722, 0.0007825, 0.0007925, 0.0008023, &
2397 0.0008119, 0.0008213, 0.0008306, 0.0008396, 0.0008485, &
2398 0.0008572, 0.0008658, 0.0008742, 0.0008824, 0.0008906, &
2399 0.0008986, 0.0009064, 0.0009142, 0.0009218, 0.0009293, &
2400 0.0009367, 0.0009439, 0.0009511, 0.0009582, 0.0009652, &
2401 0.0009720, 0.0009788, 0.0009855, 0.0009921, 0.0009986, &
2402 0.0010050, 0.0010113, 0.0010176, 0.0010238, 0.0010299, &
2403 0.0010359, 0.0010419/
2404 data ((coa(i,j),i=1,62),j= 59, 59)/ &
2405 0.0003715, 0.0004046, 0.0004346, 0.0004623, 0.0004880, &
2406 0.0005120, 0.0005346, 0.0005560, 0.0005762, 0.0005955, &
2407 0.0006139, 0.0006315, 0.0006485, 0.0006648, 0.0006804, &
2408 0.0006956, 0.0007102, 0.0007244, 0.0007382, 0.0007515, &
2409 0.0007645, 0.0007771, 0.0007893, 0.0008012, 0.0008129, &
2410 0.0008243, 0.0008354, 0.0008463, 0.0008569, 0.0008673, &
2411 0.0008774, 0.0008874, 0.0008971, 0.0009067, 0.0009160, &
2412 0.0009252, 0.0009342, 0.0009431, 0.0009518, 0.0009604, &
2413 0.0009688, 0.0009770, 0.0009851, 0.0009931, 0.0010010, &
2414 0.0010088, 0.0010164, 0.0010239, 0.0010313, 0.0010386, &
2415 0.0010458, 0.0010529, 0.0010598, 0.0010667, 0.0010735, &
2416 0.0010802, 0.0010869, 0.0010934, 0.0010998, 0.0011062, &
2417 0.0011125, 0.0011187/
2418 data ((coa(i,j),i=1,62),j= 60, 60)/ &
2419 0.0004055, 0.0004415, 0.0004742, 0.0005042, 0.0005320, &
2420 0.0005579, 0.0005822, 0.0006052, 0.0006269, 0.0006476, &
2421 0.0006673, 0.0006862, 0.0007042, 0.0007216, 0.0007383, &
2422 0.0007545, 0.0007701, 0.0007851, 0.0007997, 0.0008139, &
2423 0.0008276, 0.0008410, 0.0008540, 0.0008666, 0.0008789, &
2424 0.0008910, 0.0009027, 0.0009141, 0.0009253, 0.0009362, &
2425 0.0009469, 0.0009574, 0.0009676, 0.0009777, 0.0009875, &
2426 0.0009972, 0.0010066, 0.0010159, 0.0010250, 0.0010339, &
2427 0.0010427, 0.0010514, 0.0010599, 0.0010682, 0.0010764, &
2428 0.0010845, 0.0010925, 0.0011003, 0.0011080, 0.0011156, &
2429 0.0011231, 0.0011304, 0.0011377, 0.0011449, 0.0011519, &
2430 0.0011589, 0.0011658, 0.0011726, 0.0011793, 0.0011859, &
2431 0.0011924, 0.0011989/
2432 data ((coa(i,j),i=1,62),j= 61, 61)/ &
2433 0.0004429, 0.0004821, 0.0005175, 0.0005499, 0.0005798, &
2434 0.0006076, 0.0006337, 0.0006583, 0.0006816, 0.0007037, &
2435 0.0007247, 0.0007448, 0.0007640, 0.0007825, 0.0008003, &
2436 0.0008174, 0.0008339, 0.0008499, 0.0008653, 0.0008803, &
2437 0.0008948, 0.0009089, 0.0009226, 0.0009359, 0.0009488, &
2438 0.0009615, 0.0009738, 0.0009858, 0.0009975, 0.0010089, &
2439 0.0010201, 0.0010311, 0.0010418, 0.0010523, 0.0010625, &
2440 0.0010726, 0.0010825, 0.0010921, 0.0011016, 0.0011109, &
2441 0.0011201, 0.0011291, 0.0011379, 0.0011466, 0.0011551, &
2442 0.0011635, 0.0011718, 0.0011799, 0.0011879, 0.0011958, &
2443 0.0012035, 0.0012112, 0.0012187, 0.0012261, 0.0012335, &
2444 0.0012407, 0.0012478, 0.0012548, 0.0012618, 0.0012686, &
2445 0.0012754, 0.0012821/
2446 data ((coa(i,j),i=1,62),j= 62, 62)/ &
2447 0.0004840, 0.0005264, 0.0005646, 0.0005994, 0.0006316, &
2448 0.0006614, 0.0006893, 0.0007155, 0.0007403, 0.0007638, &
2449 0.0007862, 0.0008075, 0.0008279, 0.0008475, 0.0008663, &
2450 0.0008844, 0.0009018, 0.0009186, 0.0009349, 0.0009506, &
2451 0.0009658, 0.0009806, 0.0009950, 0.0010089, 0.0010225, &
2452 0.0010356, 0.0010485, 0.0010610, 0.0010733, 0.0010852, &
2453 0.0010968, 0.0011082, 0.0011194, 0.0011303, 0.0011409, &
2454 0.0011514, 0.0011616, 0.0011717, 0.0011815, 0.0011912, &
2455 0.0012007, 0.0012100, 0.0012191, 0.0012281, 0.0012370, &
2456 0.0012457, 0.0012542, 0.0012627, 0.0012709, 0.0012791, &
2457 0.0012871, 0.0012951, 0.0013029, 0.0013106, 0.0013181, &
2458 0.0013256, 0.0013330, 0.0013403, 0.0013475, 0.0013546, &
2459 0.0013616, 0.0013685/
2460 data ((coa(i,j),i=1,62),j= 63, 63)/ &
2461 0.0005290, 0.0005747, 0.0006157, 0.0006530, 0.0006874, &
2462 0.0007192, 0.0007490, 0.0007769, 0.0008032, 0.0008281, &
2463 0.0008518, 0.0008743, 0.0008959, 0.0009165, 0.0009362, &
2464 0.0009552, 0.0009735, 0.0009911, 0.0010082, 0.0010246, &
2465 0.0010405, 0.0010559, 0.0010709, 0.0010854, 0.0010995, &
2466 0.0011132, 0.0011266, 0.0011396, 0.0011523, 0.0011647, &
2467 0.0011768, 0.0011886, 0.0012002, 0.0012115, 0.0012225, &
2468 0.0012334, 0.0012440, 0.0012544, 0.0012646, 0.0012746, &
2469 0.0012844, 0.0012941, 0.0013036, 0.0013129, 0.0013220, &
2470 0.0013310, 0.0013399, 0.0013486, 0.0013572, 0.0013657, &
2471 0.0013740, 0.0013823, 0.0013904, 0.0013983, 0.0014062, &
2472 0.0014140, 0.0014217, 0.0014292, 0.0014367, 0.0014441, &
2473 0.0014514, 0.0014586/
2474 data ((coa(i,j),i=1,62),j= 64, 64)/ &
2475 0.0005778, 0.0006269, 0.0006708, 0.0007107, 0.0007473, &
2476 0.0007812, 0.0008127, 0.0008423, 0.0008701, 0.0008964, &
2477 0.0009213, 0.0009450, 0.0009676, 0.0009892, 0.0010099, &
2478 0.0010297, 0.0010488, 0.0010671, 0.0010848, 0.0011020, &
2479 0.0011185, 0.0011345, 0.0011500, 0.0011651, 0.0011798, &
2480 0.0011940, 0.0012078, 0.0012213, 0.0012345, 0.0012473, &
2481 0.0012599, 0.0012721, 0.0012841, 0.0012958, 0.0013073, &
2482 0.0013185, 0.0013295, 0.0013403, 0.0013509, 0.0013612, &
2483 0.0013714, 0.0013815, 0.0013913, 0.0014010, 0.0014105, &
2484 0.0014199, 0.0014291, 0.0014382, 0.0014471, 0.0014559, &
2485 0.0014646, 0.0014732, 0.0014816, 0.0014900, 0.0014982, &
2486 0.0015063, 0.0015143, 0.0015222, 0.0015300, 0.0015377, &
2487 0.0015453, 0.0015528/
2488 data ((coa(i,j),i=1,62),j= 65, 65)/ &
2489 0.0006307, 0.0006832, 0.0007301, 0.0007725, 0.0008114, &
2490 0.0008472, 0.0008805, 0.0009116, 0.0009409, 0.0009684, &
2491 0.0009945, 0.0010193, 0.0010428, 0.0010653, 0.0010868, &
2492 0.0011075, 0.0011273, 0.0011464, 0.0011647, 0.0011825, &
2493 0.0011996, 0.0012162, 0.0012323, 0.0012480, 0.0012631, &
2494 0.0012779, 0.0012922, 0.0013062, 0.0013199, 0.0013332, &
2495 0.0013462, 0.0013589, 0.0013713, 0.0013835, 0.0013954, &
2496 0.0014071, 0.0014186, 0.0014298, 0.0014408, 0.0014516, &
2497 0.0014623, 0.0014727, 0.0014830, 0.0014931, 0.0015030, &
2498 0.0015128, 0.0015225, 0.0015319, 0.0015413, 0.0015505, &
2499 0.0015596, 0.0015686, 0.0015774, 0.0015862, 0.0015948, &
2500 0.0016033, 0.0016117, 0.0016200, 0.0016282, 0.0016363, &
2501 0.0016443, 0.0016522/
2502 data ((coa(i,j),i=1,62),j= 66, 66)/ &
2503 0.0006876, 0.0007436, 0.0007934, 0.0008383, 0.0008793, &
2504 0.0009170, 0.0009520, 0.0009846, 0.0010150, 0.0010439, &
2505 0.0010710, 0.0010968, 0.0011213, 0.0011446, 0.0011669, &
2506 0.0011883, 0.0012089, 0.0012287, 0.0012477, 0.0012661, &
2507 0.0012839, 0.0013011, 0.0013178, 0.0013340, 0.0013498, &
2508 0.0013651, 0.0013800, 0.0013946, 0.0014088, 0.0014227, &
2509 0.0014362, 0.0014495, 0.0014624, 0.0014751, 0.0014876, &
2510 0.0014998, 0.0015117, 0.0015235, 0.0015350, 0.0015464, &
2511 0.0015575, 0.0015685, 0.0015792, 0.0015899, 0.0016003, &
2512 0.0016106, 0.0016207, 0.0016307, 0.0016405, 0.0016502, &
2513 0.0016598, 0.0016693, 0.0016786, 0.0016878, 0.0016969, &
2514 0.0017059, 0.0017147, 0.0017235, 0.0017322, 0.0017407, &
2515 0.0017492, 0.0017575/
2516 data ((coa(i,j),i=1,62),j= 67, 67)/ &
2517 0.0007485, 0.0008080, 0.0008606, 0.0009079, 0.0009509, &
2518 0.0009904, 0.0010269, 0.0010608, 0.0010926, 0.0011225, &
2519 0.0011507, 0.0011774, 0.0012028, 0.0012270, 0.0012501, &
2520 0.0012723, 0.0012936, 0.0013142, 0.0013339, 0.0013531, &
2521 0.0013716, 0.0013895, 0.0014069, 0.0014238, 0.0014402, &
2522 0.0014562, 0.0014718, 0.0014870, 0.0015019, 0.0015164, &
2523 0.0015306, 0.0015445, 0.0015581, 0.0015714, 0.0015845, &
2524 0.0015973, 0.0016099, 0.0016223, 0.0016344, 0.0016464, &
2525 0.0016581, 0.0016697, 0.0016811, 0.0016922, 0.0017033, &
2526 0.0017141, 0.0017249, 0.0017354, 0.0017458, 0.0017561, &
2527 0.0017662, 0.0017762, 0.0017861, 0.0017959, 0.0018055, &
2528 0.0018150, 0.0018244, 0.0018337, 0.0018429, 0.0018520, &
2529 0.0018610, 0.0018698/
2530 data ((coa(i,j),i=1,62),j= 68, 68)/ &
2531 0.0008135, 0.0008762, 0.0009315, 0.0009811, 0.0010259, &
2532 0.0010670, 0.0011050, 0.0011402, 0.0011732, 0.0012042, &
2533 0.0012334, 0.0012611, 0.0012874, 0.0013126, 0.0013366, &
2534 0.0013597, 0.0013819, 0.0014033, 0.0014239, 0.0014439, &
2535 0.0014632, 0.0014820, 0.0015002, 0.0015179, 0.0015351, &
2536 0.0015519, 0.0015683, 0.0015843, 0.0016000, 0.0016153, &
2537 0.0016302, 0.0016449, 0.0016592, 0.0016733, 0.0016871, &
2538 0.0017007, 0.0017140, 0.0017271, 0.0017400, 0.0017526, &
2539 0.0017651, 0.0017773, 0.0017894, 0.0018012, 0.0018129, &
2540 0.0018245, 0.0018358, 0.0018471, 0.0018581, 0.0018690, &
2541 0.0018798, 0.0018904, 0.0019009, 0.0019113, 0.0019215, &
2542 0.0019316, 0.0019416, 0.0019515, 0.0019613, 0.0019709, &
2543 0.0019805, 0.0019899/
2544 data ((coa(i,j),i=1,62),j= 69, 69)/ &
2545 0.0008823, 0.0009481, 0.0010059, 0.0010575, 0.0011042, &
2546 0.0011468, 0.0011862, 0.0012227, 0.0012569, 0.0012891, &
2547 0.0013195, 0.0013483, 0.0013757, 0.0014020, 0.0014271, &
2548 0.0014512, 0.0014744, 0.0014968, 0.0015185, 0.0015395, &
2549 0.0015598, 0.0015795, 0.0015987, 0.0016174, 0.0016356, &
2550 0.0016533, 0.0016707, 0.0016876, 0.0017041, 0.0017203, &
2551 0.0017362, 0.0017517, 0.0017669, 0.0017819, 0.0017965, &
2552 0.0018109, 0.0018251, 0.0018390, 0.0018527, 0.0018661, &
2553 0.0018793, 0.0018924, 0.0019052, 0.0019178, 0.0019303, &
2554 0.0019425, 0.0019546, 0.0019665, 0.0019783, 0.0019899, &
2555 0.0020014, 0.0020127, 0.0020238, 0.0020348, 0.0020457, &
2556 0.0020565, 0.0020671, 0.0020776, 0.0020880, 0.0020983, &
2557 0.0021084, 0.0021185/
2558 data ((coa(i,j),i=1,62),j= 70, 70)/ &
2559 0.0009546, 0.0010233, 0.0010834, 0.0011370, 0.0011854, &
2560 0.0012297, 0.0012705, 0.0013085, 0.0013441, 0.0013776, &
2561 0.0014093, 0.0014395, 0.0014682, 0.0014957, 0.0015221, &
2562 0.0015475, 0.0015720, 0.0015956, 0.0016185, 0.0016406, &
2563 0.0016621, 0.0016830, 0.0017033, 0.0017231, 0.0017424, &
2564 0.0017613, 0.0017797, 0.0017976, 0.0018152, 0.0018324, &
2565 0.0018493, 0.0018658, 0.0018820, 0.0018979, 0.0019135, &
2566 0.0019288, 0.0019439, 0.0019587, 0.0019732, 0.0019875, &
2567 0.0020016, 0.0020155, 0.0020291, 0.0020425, 0.0020558, &
2568 0.0020688, 0.0020817, 0.0020944, 0.0021069, 0.0021192, &
2569 0.0021314, 0.0021434, 0.0021095, 0.0021670, 0.0021786, &
2570 0.0021900, 0.0022013, 0.0022125, 0.0022235, 0.0022344, &
2571 0.0022452, 0.0022558/
2572 data ((coa(i,j),i=1,62),j= 71, 71)/ &
2573 0.0010302, 0.0011016, 0.0011640, 0.0012195, 0.0012698, &
2574 0.0013159, 0.0013584, 0.0013981, 0.0014354, 0.0014705, &
2575 0.0015038, 0.0015355, 0.0015658, 0.0015948, 0.0016227, &
2576 0.0016496, 0.0016755, 0.0017005, 0.0017248, 0.0017483, &
2577 0.0017712, 0.0017934, 0.0018150, 0.0018360, 0.0018566, &
2578 0.0018766, 0.0018962, 0.0019153, 0.0019340, 0.0019524, &
2579 0.0019703, 0.0019879, 0.0020052, 0.0020221, 0.0020387, &
2580 0.0020550, 0.0020710, 0.0020867, 0.0021022, 0.0021174, &
2581 0.0021324, 0.0021471, 0.0021159, 0.0021759, 0.0021900, &
2582 0.0022039, 0.0022175, 0.0022310, 0.0022443, 0.0022574, &
2583 0.0022703, 0.0022830, 0.0022956, 0.0023080, 0.0023203, &
2584 0.0023324, 0.0023443, 0.0023562, 0.0023678, 0.0023794, &
2585 0.0023908, 0.0024020/
2586 data ((coa(i,j),i=1,62),j= 72, 72)/ &
2587 0.0011087, 0.0011828, 0.0012476, 0.0013054, 0.0013579, &
2588 0.0014060, 0.0014506, 0.0014923, 0.0015315, 0.0015685, &
2589 0.0016038, 0.0016373, 0.0016694, 0.0017002, 0.0017298, &
2590 0.0017583, 0.0017859, 0.0018125, 0.0018384, 0.0018634, &
2591 0.0018877, 0.0019114, 0.0019344, 0.0019568, 0.0019787, &
2592 0.0020000, 0.0020209, 0.0020412, 0.0020612, 0.0020807, &
2593 0.0020998, 0.0021185, 0.0021368, 0.0021090, 0.0021725, &
2594 0.0021898, 0.0022068, 0.0022235, 0.0022399, 0.0022561, &
2595 0.0022720, 0.0022876, 0.0023029, 0.0023181, 0.0023330, &
2596 0.0023477, 0.0023621, 0.0023764, 0.0023904, 0.0024042, &
2597 0.0024179, 0.0024314, 0.0024446, 0.0024577, 0.0024707, &
2598 0.0024834, 0.0024960, 0.0025085, 0.0025208, 0.0025329, &
2599 0.0025449, 0.0025568/
2600 data ((coa(i,j),i=1,62),j= 73, 73)/ &
2601 0.0011902, 0.0012672, 0.0013347, 0.0013952, 0.0014502, &
2602 0.0015008, 0.0015478, 0.0015919, 0.0016334, 0.0016727, &
2603 0.0017101, 0.0017457, 0.0017799, 0.0018126, 0.0018442, &
2604 0.0018746, 0.0019039, 0.0019323, 0.0019598, 0.0019865, &
2605 0.0020124, 0.0020376, 0.0020621, 0.0020859, 0.0021092, &
2606 0.0021319, 0.0021083, 0.0021757, 0.0021969, 0.0022176, &
2607 0.0022379, 0.0022577, 0.0022772, 0.0022962, 0.0023149, &
2608 0.0023333, 0.0023513, 0.0023690, 0.0023863, 0.0024034, &
2609 0.0024202, 0.0024366, 0.0024529, 0.0024688, 0.0024845, &
2610 0.0025000, 0.0025152, 0.0025302, 0.0025450, 0.0025595, &
2611 0.0025739, 0.0025880, 0.0026019, 0.0026157, 0.0026293, &
2612 0.0026426, 0.0026557, 0.0026689, 0.0026817, 0.0026944, &
2613 0.0027070, 0.0027194/
2614 data ((coa(i,j),i=1,62),j= 74, 74)/ &
2615 0.0012749, 0.0013552, 0.0014259, 0.0014895, 0.0015475, &
2616 0.0016010, 0.0016509, 0.0016977, 0.0017418, 0.0017836, &
2617 0.0018234, 0.0018614, 0.0018978, 0.0019328, 0.0019664, &
2618 0.0019987, 0.0020300, 0.0020602, 0.0020895, 0.0021179, &
2619 0.0021454, 0.0021722, 0.0021982, 0.0022235, 0.0022482, &
2620 0.0022723, 0.0022958, 0.0023187, 0.0023411, 0.0023630, &
2621 0.0023844, 0.0024054, 0.0024259, 0.0024460, 0.0024658, &
2622 0.0024851, 0.0025040, 0.0025226, 0.0025409, 0.0025588, &
2623 0.0025764, 0.0025937, 0.0026107, 0.0026275, 0.0026439, &
2624 0.0026601, 0.0026760, 0.0026917, 0.0027071, 0.0027223, &
2625 0.0027373, 0.0027520, 0.0027665, 0.0027808, 0.0027950, &
2626 0.0028089, 0.0028226, 0.0028361, 0.0028495, 0.0028627, &
2627 0.0028757, 0.0028885/
2628 data ((coa(i,j),i=1,62),j= 75, 75)/ &
2629 0.0013631, 0.0014474, 0.0015220, 0.0015892, 0.0016507, &
2630 0.0017076, 0.0017607, 0.0018105, 0.0018575, 0.0019021, &
2631 0.0019445, 0.0019850, 0.0020238, 0.0020610, 0.0020967, &
2632 0.0021312, 0.0021186, 0.0021965, 0.0022276, 0.0022577, &
2633 0.0022868, 0.0023152, 0.0023427, 0.0023695, 0.0023956, &
2634 0.0024210, 0.0024457, 0.0024699, 0.0024935, 0.0025165, &
2635 0.0025390, 0.0025610, 0.0025826, 0.0026037, 0.0026243, &
2636 0.0026445, 0.0026643, 0.0026838, 0.0027028, 0.0027215, &
2637 0.0027399, 0.0027579, 0.0027756, 0.0027930, 0.0028101, &
2638 0.0028269, 0.0028434, 0.0028596, 0.0028756, 0.0028913, &
2639 0.0029068, 0.0029220, 0.0029370, 0.0029518, 0.0029664, &
2640 0.0029807, 0.0029949, 0.0030088, 0.0030225, 0.0030361, &
2641 0.0030494, 0.0030626/
2642 data ((coa(i,j),i=1,62),j= 76, 76)/ &
2643 0.0014557, 0.0015446, 0.0016236, 0.0016950, 0.0017605, &
2644 0.0018211, 0.0018777, 0.0019308, 0.0019809, 0.0020284, &
2645 0.0020736, 0.0021167, 0.0021121, 0.0021973, 0.0022353, &
2646 0.0022718, 0.0023069, 0.0023409, 0.0023737, 0.0024055, &
2647 0.0024362, 0.0024661, 0.0024950, 0.0025232, 0.0025506, &
2648 0.0025772, 0.0026031, 0.0026284, 0.0026531, 0.0026771, &
2649 0.0027006, 0.0027235, 0.0027460, 0.0027679, 0.0027893, &
2650 0.0028103, 0.0028309, 0.0028510, 0.0028707, 0.0028900, &
2651 0.0029090, 0.0029276, 0.0029458, 0.0029637, 0.0029813, &
2652 0.0029986, 0.0030156, 0.0030322, 0.0030486, 0.0030647, &
2653 0.0030806, 0.0030962, 0.0031115, 0.0031266, 0.0031414, &
2654 0.0031560, 0.0031704, 0.0031846, 0.0031986, 0.0032123, &
2655 0.0032259, 0.0032392/
2656 data ((coa(i,j),i=1,62),j= 77, 77)/ &
2657 0.0015532, 0.0016476, 0.0017317, 0.0018078, 0.0018775, &
2658 0.0019422, 0.0020024, 0.0020590, 0.0021123, 0.0021169, &
2659 0.0022106, 0.0022563, 0.0022999, 0.0023416, 0.0023817, &
2660 0.0024202, 0.0024572, 0.0024929, 0.0025273, 0.0025607, &
2661 0.0025929, 0.0026241, 0.0026543, 0.0026837, 0.0027122, &
2662 0.0027399, 0.0027668, 0.0027931, 0.0028186, 0.0028435, &
2663 0.0028678, 0.0028915, 0.0029146, 0.0029372, 0.0029592, &
2664 0.0029808, 0.0030019, 0.0030225, 0.0030427, 0.0030625, &
2665 0.0030819, 0.0031009, 0.0031195, 0.0031377, 0.0031556, &
2666 0.0031732, 0.0031904, 0.0032073, 0.0032239, 0.0032402, &
2667 0.0032563, 0.0032720, 0.0032875, 0.0033027, 0.0033177, &
2668 0.0033324, 0.0033468, 0.0033611, 0.0033751, 0.0033889, &
2669 0.0034025, 0.0034159/
2670 data ((coa(i,j),i=1,62),j= 78, 78)/ &
2671 0.0016566, 0.0017571, 0.0018467, 0.0019278, 0.0020021, &
2672 0.0020708, 0.0021349, 0.0021949, 0.0022514, 0.0023047, &
2673 0.0023554, 0.0024035, 0.0024494, 0.0024932, 0.0025352, &
2674 0.0025755, 0.0026142, 0.0026515, 0.0026874, 0.0027220, &
2675 0.0027555, 0.0027878, 0.0028191, 0.0028495, 0.0028789, &
2676 0.0029075, 0.0029352, 0.0029621, 0.0029883, 0.0030138, &
2677 0.0030387, 0.0030629, 0.0030864, 0.0031094, 0.0031319, &
2678 0.0031538, 0.0031752, 0.0031961, 0.0032166, 0.0032365, &
2679 0.0032561, 0.0032752, 0.0032940, 0.0033123, 0.0033303, &
2680 0.0033479, 0.0033652, 0.0033821, 0.0033988, 0.0034151, &
2681 0.0034310, 0.0034467, 0.0034622, 0.0034773, 0.0034922, &
2682 0.0035068, 0.0035211, 0.0035353, 0.0035491, 0.0035628, &
2683 0.0035762, 0.0035894/
2684 data ((coa(i,j),i=1,62),j= 79, 79)/ &
2685 0.0017664, 0.0018736, 0.0019689, 0.0020552, 0.0021342, &
2686 0.0022071, 0.0022749, 0.0023383, 0.0023978, 0.0024539, &
2687 0.0025070, 0.0025574, 0.0026054, 0.0026511, 0.0026948, &
2688 0.0027366, 0.0027767, 0.0028153, 0.0028523, 0.0028880, &
2689 0.0029224, 0.0029556, 0.0029877, 0.0030187, 0.0030487, &
2690 0.0030778, 0.0031060, 0.0031334, 0.0031599, 0.0031857, &
2691 0.0032108, 0.0032352, 0.0032590, 0.0032821, 0.0033047, &
2692 0.0033267, 0.0033481, 0.0033690, 0.0033894, 0.0034094, &
2693 0.0034289, 0.0034479, 0.0034665, 0.0034847, 0.0035025, &
2694 0.0035200, 0.0035371, 0.0035538, 0.0035702, 0.0035862, &
2695 0.0036020, 0.0036174, 0.0036325, 0.0036474, 0.0036620, &
2696 0.0036763, 0.0036903, 0.0037041, 0.0037177, 0.0037310, &
2697 0.0037441, 0.0037569/
2698 data ((coa(i,j),i=1,62),j= 80, 80)/ &
2699 0.0018832, 0.0019973, 0.0020987, 0.0021902, 0.0022737, &
2700 0.0023505, 0.0024220, 0.0024885, 0.0025508, 0.0026093, &
2701 0.0026646, 0.0027169, 0.0027666, 0.0028138, 0.0028589, &
2702 0.0029018, 0.0029430, 0.0029824, 0.0030202, 0.0030565, &
2703 0.0030915, 0.0031252, 0.0031576, 0.0031890, 0.0032192, &
2704 0.0032485, 0.0032768, 0.0033042, 0.0033308, 0.0033566, &
2705 0.0033816, 0.0034059, 0.0034295, 0.0034525, 0.0034748, &
2706 0.0034966, 0.0035177, 0.0035384, 0.0035585, 0.0035781, &
2707 0.0035972, 0.0036159, 0.0036341, 0.0036520, 0.0036694, &
2708 0.0036864, 0.0037031, 0.0037193, 0.0037353, 0.0037509, &
2709 0.0037662, 0.0037811, 0.0037958, 0.0038102, 0.0038243, &
2710 0.0038381, 0.0038517, 0.0038650, 0.0038780, 0.0038908, &
2711 0.0039034, 0.0039158/
2712 data ((coa(i,j),i=1,62),j= 81, 81)/ &
2713 0.0020072, 0.0021282, 0.0022356, 0.0023321, 0.0024200, &
2714 0.0025006, 0.0025751, 0.0026443, 0.0027089, 0.0027695, &
2715 0.0028265, 0.0028803, 0.0029311, 0.0029794, 0.0030252, &
2716 0.0030689, 0.0031106, 0.0031504, 0.0031886, 0.0032251, &
2717 0.0032602, 0.0032939, 0.0033263, 0.0033575, 0.0033876, &
2718 0.0034166, 0.0034447, 0.0034718, 0.0034980, 0.0035234, &
2719 0.0035480, 0.0035719, 0.0035950, 0.0036175, 0.0036393, &
2720 0.0036605, 0.0036811, 0.0037012, 0.0037207, 0.0037398, &
2721 0.0037583, 0.0037764, 0.0037940, 0.0038112, 0.0038280, &
2722 0.0038444, 0.0038604, 0.0038761, 0.0038914, 0.0039063, &
2723 0.0039210, 0.0039353, 0.0039494, 0.0039631, 0.0039766, &
2724 0.0039898, 0.0040027, 0.0040154, 0.0040278, 0.0040400, &
2725 0.0040520, 0.0040638/
2726 data ((coa(i,j),i=1,62),j= 82, 82)/ &
2727 0.0021381, 0.0022661, 0.0023791, 0.0024803, 0.0025719, &
2728 0.0026557, 0.0027328, 0.0028041, 0.0028705, 0.0029325, &
2729 0.0029905, 0.0030451, 0.0030966, 0.0031453, 0.0031914, &
2730 0.0032353, 0.0032769, 0.0033166, 0.0033545, 0.0033908, &
2731 0.0034255, 0.0034588, 0.0034907, 0.0035214, 0.0035509, &
2732 0.0035793, 0.0036067, 0.0036331, 0.0036586, 0.0036833, &
2733 0.0037071, 0.0037302, 0.0037526, 0.0037743, 0.0037953, &
2734 0.0038157, 0.0038356, 0.0038548, 0.0038736, 0.0038916, &
2735 0.0039095, 0.0039268, 0.0039436, 0.0039600, 0.0039761, &
2736 0.0039917, 0.0040069, 0.0040218, 0.0040364, 0.0040506, &
2737 0.0040645, 0.0040781, 0.0040914, 0.0041044, 0.0041172, &
2738 0.0041296, 0.0041419, 0.0041539, 0.0041656, 0.0041772, &
2739 0.0041885, 0.0041996/
2740 data ((coa(i,j),i=1,62),j= 83, 83)/ &
2741 0.0022756, 0.0024100, 0.0025280, 0.0026332, 0.0027280, &
2742 0.0028142, 0.0028931, 0.0029658, 0.0030331, 0.0030957, &
2743 0.0031541, 0.0032089, 0.0032603, 0.0033088, 0.0033545, &
2744 0.0033978, 0.0034389, 0.0034780, 0.0035151, 0.0035506, &
2745 0.0035844, 0.0036168, 0.0036478, 0.0036775, 0.0037061, &
2746 0.0037335, 0.0037599, 0.0037853, 0.0038098, 0.0038335, &
2747 0.0038563, 0.0038784, 0.0038998, 0.0039205, 0.0039405, &
2748 0.0039599, 0.0039788, 0.0039971, 0.0040149, 0.0040322, &
2749 0.0040490, 0.0040653, 0.0040813, 0.0040968, 0.0041119, &
2750 0.0041267, 0.0041411, 0.0041552, 0.0041689, 0.0041823, &
2751 0.0041954, 0.0042082, 0.0042208, 0.0042331, 0.0042451, &
2752 0.0042569, 0.0042684, 0.0042797, 0.0042908, 0.0043017, &
2753 0.0043123, 0.0043228/
2754 data ((coa(i,j),i=1,62),j= 84, 84)/ &
2755 0.0024185, 0.0025586, 0.0026808, 0.0027890, 0.0028859, &
2756 0.0029735, 0.0030533, 0.0031264, 0.0031938, 0.0032562, &
2757 0.0033142, 0.0033683, 0.0034190, 0.0034665, 0.0035113, &
2758 0.0035535, 0.0035934, 0.0036313, 0.0036672, 0.0037014, &
2759 0.0037340, 0.0037651, 0.0037948, 0.0038232, 0.0038505, &
2760 0.0038767, 0.0039018, 0.0039260, 0.0039493, 0.0039717, &
2761 0.0039934, 0.0040143, 0.0040345, 0.0040540, 0.0040730, &
2762 0.0040913, 0.0041091, 0.0041264, 0.0041432, 0.0041595, &
2763 0.0041753, 0.0041907, 0.0042057, 0.0042204, 0.0042346, &
2764 0.0042485, 0.0042621, 0.0042754, 0.0042883, 0.0043009, &
2765 0.0043133, 0.0043254, 0.0043372, 0.0043488, 0.0043601, &
2766 0.0043712, 0.0043821, 0.0043928, 0.0044032, 0.0044135, &
2767 0.0044236, 0.0044335/
2768 data ((coa(i,j),i=1,62),j= 85, 85)/ &
2769 0.0025653, 0.0027099, 0.0028350, 0.0029450, 0.0030428, &
2770 0.0031307, 0.0032102, 0.0032828, 0.0033493, 0.0034106, &
2771 0.0034673, 0.0035200, 0.0035692, 0.0036152, 0.0036583, &
2772 0.0036990, 0.0037373, 0.0037735, 0.0038078, 0.0038404, &
2773 0.0038714, 0.0039009, 0.0039291, 0.0039560, 0.0039818, &
2774 0.0040065, 0.0040303, 0.0040531, 0.0040751, 0.0040962, &
2775 0.0041166, 0.0041363, 0.0041553, 0.0041738, 0.0041916, &
2776 0.0042089, 0.0042256, 0.0042419, 0.0042577, 0.0042730, &
2777 0.0042879, 0.0043025, 0.0043166, 0.0043304, 0.0043439, &
2778 0.0043570, 0.0043698, 0.0043823, 0.0043945, 0.0044064, &
2779 0.0044181, 0.0044296, 0.0044407, 0.0044517, 0.0044624, &
2780 0.0044730, 0.0044833, 0.0044934, 0.0045033, 0.0045130, &
2781 0.0045226, 0.0045320/
2782 data ((coa(i,j),i=1,62),j= 86, 86)/ &
2783 0.0027124, 0.0028597, 0.0029861, 0.0030963, 0.0031936, &
2784 0.0032805, 0.0033586, 0.0034295, 0.0034941, 0.0035534, &
2785 0.0036081, 0.0036587, 0.0037058, 0.0037497, 0.0037908, &
2786 0.0038294, 0.0038657, 0.0039000, 0.0039324, 0.0039631, &
2787 0.0039923, 0.0040201, 0.0040467, 0.0040720, 0.0040963, &
2788 0.0041195, 0.0041418, 0.0041633, 0.0041839, 0.0042038, &
2789 0.0042230, 0.0042415, 0.0042594, 0.0042768, 0.0042935, &
2790 0.0043098, 0.0043256, 0.0043409, 0.0043558, 0.0043703, &
2791 0.0043844, 0.0043982, 0.0044115, 0.0044246, 0.0044373, &
2792 0.0044497, 0.0044619, 0.0044737, 0.0044853, 0.0044966, &
2793 0.0045077, 0.0045186, 0.0045292, 0.0045397, 0.0045499, &
2794 0.0045599, 0.0045697, 0.0045793, 0.0045888, 0.0045981, &
2795 0.0046072, 0.0046162/
2796 data ((coa(i,j),i=1,62),j= 87, 87)/ &
2797 0.0028481, 0.0029956, 0.0031209, 0.0032292, 0.0033241, &
2798 0.0034083, 0.0034836, 0.0035515, 0.0036132, 0.0036696, &
2799 0.0037214, 0.0037692, 0.0038136, 0.0038548, 0.0038934, &
2800 0.0039296, 0.0039636, 0.0039956, 0.0040260, 0.0040547, &
2801 0.0040820, 0.0041080, 0.0041328, 0.0041565, 0.0041792, &
2802 0.0042010, 0.0042219, 0.0042419, 0.0042613, 0.0042800, &
2803 0.0042980, 0.0043154, 0.0043322, 0.0043485, 0.0043643, &
2804 0.0043796, 0.0043945, 0.0044090, 0.0044231, 0.0044367, &
2805 0.0044501, 0.0044631, 0.0044757, 0.0044881, 0.0045001, &
2806 0.0045119, 0.0045234, 0.0045347, 0.0045457, 0.0045564, &
2807 0.0045670, 0.0045773, 0.0045874, 0.0045973, 0.0046070, &
2808 0.0046166, 0.0046259, 0.0046351, 0.0046441, 0.0046530, &
2809 0.0046616, 0.0046702/
2810 data ((coa(i,j),i=1,62),j= 88, 88)/ &
2811 0.0029341, 0.0030768, 0.0031968, 0.0032997, 0.0033892, &
2812 0.0034681, 0.0035383, 0.0036014, 0.0036584, 0.0037104, &
2813 0.0037581, 0.0038020, 0.0038427, 0.0038805, 0.0039159, &
2814 0.0039490, 0.0039801, 0.0040095, 0.0040373, 0.0040637, &
2815 0.0040888, 0.0041127, 0.0041355, 0.0041573, 0.0041782, &
2816 0.0041983, 0.0042175, 0.0042361, 0.0042540, 0.0042713, &
2817 0.0042880, 0.0043041, 0.0043197, 0.0043349, 0.0043495, &
2818 0.0043638, 0.0043777, 0.0043911, 0.0044042, 0.0044170, &
2819 0.0044294, 0.0044416, 0.0044534, 0.0044649, 0.0044762, &
2820 0.0044872, 0.0044980, 0.0045085, 0.0045188, 0.0045289, &
2821 0.0045387, 0.0045484, 0.0045579, 0.0045672, 0.0045763, &
2822 0.0045852, 0.0045940, 0.0046026, 0.0046110, 0.0046193, &
2823 0.0046275, 0.0046355/
2824 data ((coa(i,j),i=1,62),j= 89, 89)/ &
2825 0.0029122, 0.0030427, 0.0031513, 0.0032438, 0.0033237, &
2826 0.0033938, 0.0034559, 0.0035116, 0.0035619, 0.0036076, &
2827 0.0036495, 0.0036882, 0.0037238, 0.0037573, 0.0037884, &
2828 0.0038176, 0.0038451, 0.0038711, 0.0038957, 0.0039191, &
2829 0.0039413, 0.0039626, 0.0039829, 0.0040023, 0.0040209, &
2830 0.0040389, 0.0040561, 0.0040727, 0.0040887, 0.0041042, &
2831 0.0041192, 0.0041337, 0.0041477, 0.0041613, 0.0041745, &
2832 0.0041874, 0.0041998, 0.0042120, 0.0042238, 0.0042353, &
2833 0.0042465, 0.0042574, 0.0042681, 0.0042785, 0.0042887, &
2834 0.0042986, 0.0043084, 0.0043179, 0.0043272, 0.0043363, &
2835 0.0043452, 0.0043539, 0.0043625, 0.0043709, 0.0043791, &
2836 0.0043872, 0.0043951, 0.0044029, 0.0044105, 0.0044180, &
2837 0.0044254, 0.0044326/
2838 data ((coa(i,j),i=1,62),j= 90, 90)/ &
2839 0.0027405, 0.0028512, 0.0029426, 0.0030199, 0.0030864, &
2840 0.0031447, 0.0031962, 0.0032424, 0.0032841, 0.0033221, &
2841 0.0033569, 0.0033891, 0.0034190, 0.0034468, 0.0034729, &
2842 0.0034974, 0.0035206, 0.0035424, 0.0035632, 0.0035830, &
2843 0.0036018, 0.0036198, 0.0036370, 0.0036535, 0.0036694, &
2844 0.0036847, 0.0036993, 0.0037135, 0.0037272, 0.0037404, &
2845 0.0037532, 0.0037656, 0.0037776, 0.0037892, 0.0038005, &
2846 0.0038115, 0.0038222, 0.0038326, 0.0038427, 0.0038526, &
2847 0.0038622, 0.0038716, 0.0038808, 0.0038897, 0.0038984, &
2848 0.0039070, 0.0039153, 0.0039235, 0.0039314, 0.0039393, &
2849 0.0039469, 0.0039544, 0.0039618, 0.0039690, 0.0039761, &
2850 0.0039830, 0.0039898, 0.0039965, 0.0040030, 0.0040095, &
2851 0.0040158, 0.0040220/
2852 data ((coa(i,j),i=1,62),j= 91, 91)/ &
2853 0.0024633, 0.0025514, 0.0026239, 0.0026851, 0.0027377, &
2854 0.0027838, 0.0028247, 0.0028613, 0.0028946, 0.0029249, &
2855 0.0029529, 0.0029787, 0.0030028, 0.0030253, 0.0030464, &
2856 0.0030663, 0.0030851, 0.0031029, 0.0031199, 0.0031360, &
2857 0.0031514, 0.0031661, 0.0031803, 0.0031938, 0.0032068, &
2858 0.0032194, 0.0032314, 0.0032431, 0.0032544, 0.0032652, &
2859 0.0032758, 0.0032860, 0.0032959, 0.0033055, 0.0033148, &
2860 0.0033239, 0.0033327, 0.0033413, 0.0033497, 0.0033578, &
2861 0.0033658, 0.0033735, 0.0033811, 0.0033885, 0.0033957, &
2862 0.0034028, 0.0034097, 0.0034164, 0.0034230, 0.0034295, &
2863 0.0034359, 0.0034421, 0.0034482, 0.0034541, 0.0034600, &
2864 0.0034657, 0.0034714, 0.0034769, 0.0034823, 0.0034877, &
2865 0.0034929, 0.0034981/
2866 data ((coa(i,j),i=1,62),j= 92, 92)/ &
2867 0.0021142, 0.0022278, 0.0022837, 0.0023309, 0.0023717, &
2868 0.0024075, 0.0024394, 0.0024681, 0.0024943, 0.0025182, &
2869 0.0025404, 0.0025609, 0.0025801, 0.0025980, 0.0026149, &
2870 0.0026308, 0.0026459, 0.0026602, 0.0026738, 0.0026868, &
2871 0.0026992, 0.0027111, 0.0027225, 0.0027334, 0.0027439, &
2872 0.0027541, 0.0027638, 0.0027733, 0.0027824, 0.0027912, &
2873 0.0027997, 0.0028080, 0.0028160, 0.0028238, 0.0028314, &
2874 0.0028387, 0.0028459, 0.0028529, 0.0028597, 0.0028663, &
2875 0.0028727, 0.0028791, 0.0028852, 0.0028912, 0.0028971, &
2876 0.0029028, 0.0029084, 0.0029139, 0.0029193, 0.0029246, &
2877 0.0029297, 0.0029348, 0.0029398, 0.0029446, 0.0029494, &
2878 0.0029541, 0.0029587, 0.0029632, 0.0029676, 0.0029720, &
2879 0.0029761, 0.0029805/
2880 data ((coa(i,j),i=1,62),j= 93, 93)/ &
2881 0.0018726, 0.0019238, 0.0019660, 0.0020019, 0.0020331, &
2882 0.0020606, 0.0020852, 0.0021074, 0.0021278, 0.0021464, &
2883 0.0021179, 0.0021798, 0.0021948, 0.0022089, 0.0022221, &
2884 0.0022347, 0.0022466, 0.0022578, 0.0022686, 0.0022789, &
2885 0.0022887, 0.0022981, 0.0023071, 0.0023158, 0.0023241, &
2886 0.0023321, 0.0023399, 0.0023474, 0.0023546, 0.0023616, &
2887 0.0023684, 0.0023750, 0.0023814, 0.0023876, 0.0023936, &
2888 0.0023995, 0.0024052, 0.0024108, 0.0024162, 0.0024215, &
2889 0.0024266, 0.0024317, 0.0024366, 0.0024414, 0.0024461, &
2890 0.0024507, 0.0024552, 0.0024596, 0.0024639, 0.0024681, &
2891 0.0024722, 0.0024763, 0.0024802, 0.0024841, 0.0024880, &
2892 0.0024917, 0.0024954, 0.0024990, 0.0025026, 0.0025060, &
2893 0.0025095, 0.0025129/
2894 data ((coa(i,j),i=1,62),j= 94, 94)/ &
2895 0.0016337, 0.0016718, 0.0017033, 0.0017303, 0.0017537, &
2896 0.0017745, 0.0017931, 0.0018100, 0.0018254, 0.0018397, &
2897 0.0018529, 0.0018651, 0.0018766, 0.0018874, 0.0018976, &
2898 0.0019073, 0.0019164, 0.0019251, 0.0019334, 0.0019413, &
2899 0.0019489, 0.0019562, 0.0019631, 0.0019698, 0.0019763, &
2900 0.0019825, 0.0019885, 0.0019944, 0.0020000, 0.0020054, &
2901 0.0020107, 0.0020158, 0.0020208, 0.0020256, 0.0020303, &
2902 0.0020349, 0.0020394, 0.0020437, 0.0020479, 0.0020521, &
2903 0.0020561, 0.0020600, 0.0020639, 0.0020676, 0.0020713, &
2904 0.0020749, 0.0020784, 0.0020819, 0.0020852, 0.0020886, &
2905 0.0020918, 0.0020950, 0.0020981, 0.0021011, 0.0021041, &
2906 0.0021071, 0.0021100, 0.0021128, 0.0021156, 0.0021183, &
2907 0.0021210, 0.0021236/
2908 data ((coa(i,j),i=1,62),j= 95, 95)/ &
2909 0.0014740, 0.0015024, 0.0015259, 0.0015460, 0.0015636, &
2910 0.0015791, 0.0015931, 0.0016058, 0.0016174, 0.0016282, &
2911 0.0016381, 0.0016474, 0.0016561, 0.0016643, 0.0016720, &
2912 0.0016793, 0.0016863, 0.0016929, 0.0016992, 0.0017052, &
2913 0.0017110, 0.0017165, 0.0017219, 0.0017270, 0.0017319, &
2914 0.0017367, 0.0017413, 0.0017458, 0.0017501, 0.0017543, &
2915 0.0017584, 0.0017623, 0.0017661, 0.0017699, 0.0017735, &
2916 0.0017770, 0.0017804, 0.0017838, 0.0017870, 0.0017902, &
2917 0.0017933, 0.0017964, 0.0017993, 0.0018023, 0.0018051, &
2918 0.0018079, 0.0018106, 0.0018132, 0.0018158, 0.0018184, &
2919 0.0018209, 0.0018233, 0.0018258, 0.0018281, 0.0018304, &
2920 0.0018327, 0.0018349, 0.0018371, 0.0018393, 0.0018414, &
2921 0.0018434, 0.0018455/
2922 data ((coa(i,j),i=1,62),j= 96, 96)/ &
2923 0.0013895, 0.0014110, 0.0014289, 0.0014441, 0.0014574, &
2924 0.0014692, 0.0014798, 0.0014894, 0.0014982, 0.0015064, &
2925 0.0015139, 0.0015210, 0.0015277, 0.0015338, 0.0015398, &
2926 0.0015454, 0.0015508, 0.0015558, 0.0015607, 0.0015653, &
2927 0.0015698, 0.0015740, 0.0015782, 0.0015821, 0.0015859, &
2928 0.0015896, 0.0015932, 0.0015966, 0.0016000, 0.0016032, &
2929 0.0016064, 0.0016094, 0.0016124, 0.0016153, 0.0016181, &
2930 0.0016208, 0.0016235, 0.0016261, 0.0016286, 0.0016311, &
2931 0.0016335, 0.0016358, 0.0016381, 0.0016404, 0.0016426, &
2932 0.0016447, 0.0016468, 0.0016489, 0.0016509, 0.0016529, &
2933 0.0016548, 0.0016567, 0.0016586, 0.0016604, 0.0016622, &
2934 0.0016639, 0.0016657, 0.0016673, 0.0016690, 0.0016706, &
2935 0.0016722, 0.0016738/
2936 data ((coa(i,j),i=1,62),j= 97, 97)/ &
2937 0.0013502, 0.0013669, 0.0013807, 0.0013924, 0.0014027, &
2938 0.0014118, 0.0014200, 0.0014274, 0.0014343, 0.0014406, &
2939 0.0014465, 0.0014520, 0.0014571, 0.0014620, 0.0014666, &
2940 0.0014710, 0.0014751, 0.0014791, 0.0014829, 0.0014865, &
2941 0.0014900, 0.0014933, 0.0014966, 0.0014997, 0.0015027, &
2942 0.0015055, 0.0015083, 0.0015109, 0.0015136, 0.0015162, &
2943 0.0015186, 0.0015210, 0.0015234, 0.0015256, 0.0015278, &
2944 0.0015299, 0.0015320, 0.0015340, 0.0015360, 0.0015380, &
2945 0.0015398, 0.0015417, 0.0015435, 0.0015452, 0.0015469, &
2946 0.0015486, 0.0015503, 0.0015519, 0.0015534, 0.0015550, &
2947 0.0015565, 0.0015580, 0.0015594, 0.0015608, 0.0015622, &
2948 0.0015636, 0.0015649, 0.0015663, 0.0015676, 0.0015688, &
2949 0.0015701, 0.0015713/
2950 data ((coa(i,j),i=1,62),j= 98, 98)/ &
2951 0.0013341, 0.0013476, 0.0013588, 0.0013683, 0.0013766, &
2952 0.0013840, 0.0013907, 0.0013967, 0.0014023, 0.0014074, &
2953 0.0014122, 0.0014167, 0.0014209, 0.0014248, 0.0014286, &
2954 0.0014321, 0.0014355, 0.0014387, 0.0014418, 0.0014447, &
2955 0.0014476, 0.0014503, 0.0014529, 0.0014554, 0.0014578, &
2956 0.0014602, 0.0014624, 0.0014646, 0.0014667, 0.0014688, &
2957 0.0014708, 0.0014727, 0.0014746, 0.0014764, 0.0014782, &
2958 0.0014799, 0.0014816, 0.0014833, 0.0014849, 0.0014864, &
2959 0.0014879, 0.0014894, 0.0014909, 0.0014923, 0.0014937, &
2960 0.0014950, 0.0014964, 0.0014977, 0.0014989, 0.0015002, &
2961 0.0015014, 0.0015026, 0.0015038, 0.0015049, 0.0015060, &
2962 0.0015071, 0.0015082, 0.0015093, 0.0015103, 0.0015114, &
2963 0.0015124, 0.0015134/
2964 data ((coa(i,j),i=1,62),j= 99, 99)/ &
2965 0.0013255, 0.0013373, 0.0013470, 0.0013554, 0.0013626, &
2966 0.0013691, 0.0013749, 0.0013803, 0.0013851, 0.0013896, &
2967 0.0013938, 0.0013977, 0.0014014, 0.0014049, 0.0014082, &
2968 0.0014113, 0.0014142, 0.0014171, 0.0014197, 0.0014223, &
2969 0.0014248, 0.0014272, 0.0014294, 0.0014316, 0.0014337, &
2970 0.0014358, 0.0014378, 0.0014397, 0.0014415, 0.0014433, &
2971 0.0014450, 0.0014467, 0.0014483, 0.0014499, 0.0014515, &
2972 0.0014530, 0.0014544, 0.0014559, 0.0014573, 0.0014586, &
2973 0.0014599, 0.0014612, 0.0014625, 0.0014637, 0.0014649, &
2974 0.0014661, 0.0014672, 0.0014684, 0.0014695, 0.0014705, &
2975 0.0014716, 0.0014726, 0.0014736, 0.0014746, 0.0014756, &
2976 0.0014766, 0.0014775, 0.0014784, 0.0014793, 0.0014802, &
2977 0.0014811, 0.0014820/
2978 data ((coa(i,j),i=1,62),j=100,100)/ &
2979 0.0013126, 0.0013234, 0.0013324, 0.0013401, 0.0013469, &
2980 0.0013529, 0.0013583, 0.0013632, 0.0013677, 0.0013719, &
2981 0.0013758, 0.0013795, 0.0013829, 0.0013861, 0.0013891, &
2982 0.0013920, 0.0013947, 0.0013974, 0.0013998, 0.0014022, &
2983 0.0014045, 0.0014067, 0.0014088, 0.0014108, 0.0014127, &
2984 0.0014146, 0.0014164, 0.0014181, 0.0014198, 0.0014215, &
2985 0.0014230, 0.0014246, 0.0014261, 0.0014275, 0.0014289, &
2986 0.0014303, 0.0014316, 0.0014329, 0.0014341, 0.0014354, &
2987 0.0014366, 0.0014377, 0.0014389, 0.0014400, 0.0014411, &
2988 0.0014421, 0.0014432, 0.0014442, 0.0014452, 0.0014462, &
2989 0.0014471, 0.0014480, 0.0014490, 0.0014499, 0.0014507, &
2990 0.0014516, 0.0014525, 0.0014533, 0.0014541, 0.0014549, &
2991 0.0014557, 0.0014565/
2992 data ((coa(i,j),i=1,62),j=101,101)/ &
2993 0.0012882, 0.0012983, 0.0013066, 0.0013138, 0.0013202, &
2994 0.0013258, 0.0013309, 0.0013355, 0.0013398, 0.0013437, &
2995 0.0013473, 0.0013507, 0.0013539, 0.0013569, 0.0013598, &
2996 0.0013625, 0.0013650, 0.0013674, 0.0013697, 0.0013719, &
2997 0.0013740, 0.0013760, 0.0013780, 0.0013798, 0.0013816, &
2998 0.0013833, 0.0013850, 0.0013865, 0.0013881, 0.0013896, &
2999 0.0013910, 0.0013924, 0.0013938, 0.0013951, 0.0013963, &
3000 0.0013976, 0.0013988, 0.0013999, 0.0014011, 0.0014022, &
3001 0.0014033, 0.0014043, 0.0014054, 0.0014064, 0.0014073, &
3002 0.0014083, 0.0014092, 0.0014101, 0.0014110, 0.0014119, &
3003 0.0014128, 0.0014136, 0.0014145, 0.0014153, 0.0014161, &
3004 0.0014168, 0.0014176, 0.0014183, 0.0014191, 0.0014198, &
3005 0.0014205, 0.0014212/
3007 !-----
3008 do i=1,m
3009 swh(i,1)=0.
3010 so2(i,1)=0.
3011 !-----snt is the secant of the solar zenith angle
3012 !
3013 snt(i)=1.0 /cosz(i)
3014 enddo
3017 do k=1,np
3018 do i=1,m
3019 !
3020 !-----compute layer thickness. indices for the surface level and
3021 ! surface layer are np+1 and np, respectively.
3022 dp(i,k)=pl(i,k+1)-pl(i,k)
3023 !
3024 !-----compute scaled water vapor amount following eqs. (3.3) and (3.5)
3025 ! unit is g/cm**2
3026 !
3027 scal(i,k)=dp(i,k)*(.5*(pl(i,k)+pl(i,k+1))/300.)**.8
3028 wh(i,k)=1.02*wa(i,k)*scal(i,k) &
3029 *(1.+0.00135*(ta(i,k)-240.)) +1.e-11
3030 swh(i,k+1)=swh(i,k)+wh(i,k)
3031 !-----compute ozone amount, unit is (cm-atm)stp
3032 ! the number 466.7 is the unit conversion factor
3033 ! from g/cm**2 to (cm-atm)stp
3034 oh(i,k)=1.02*oa(i,k)*dp(i,k)*466.7 +1.e-11
3035 !-----compute layer cloud water amount (gm/m**2)
3036 ! the index is 1 for ice crystals, 2 for liquid drops, and
3037 ! 3 for rain drops
3038 x=1.02*10000.*dp(i,k)
3039 cwp(i,k,1)=x*cwc(i,k,1)
3040 cwp(i,k,2)=x*cwc(i,k,2)
3041 cwp(i,k,3)=x*cwc(i,k,3)
3042 enddo
3043 enddo
3046 !-----initialize fluxes for all-sky (flx), clear-sky (flc), and
3047 ! flux reduction (df)
3048 do k=1,np+1
3049 do i=1,m
3050 flx(i,k)=0.
3051 flc(i,k)=0.
3052 flxu(i,k)=0.
3053 flxd(i,k)=0.
3054 df(i,k)=0.
3055 df_sub(i,k)=0.
3056 df_cld(i,k)=0.
3057 df_clr(i,k)=0.
3058 enddo
3059 enddo
3062 !-----compute solar uv and par fluxes
3063 !ccshie 9/18/04
3064 call sw_uvpar (m,np,wh,oh,dp, &
3065 cwp,taucld,reff,ict,icb,fcld,cosz, &
3066 taual,ssaal,asyal,taux,rsuvbm,rsuvdf, &
3067 flx,flc,flxd,fdiruv,fdifuv,fdirpar,fdifpar)
3068 !-----compute and update solar ir fluxes
3069 call sw_ir (m,np,wh,dp, &
3070 cwp,taucld,reff,ict,icb,fcld,cosz, &
3071 taual,ssaal,asyal,rsirbm,rsirdf, &
3072 flx,flc,flxd,fdirir,fdifir)
3074 !-----compute pressure-scaled o2 amount following eq. (3.5) with
3075 ! f=1. unit is (cm-atm)stp.
3076 ! the constant 165.22 equals (1000/980)*23.14%*(22400/32)
3077 do i= 1, m
3078 cnt(i)=165.22*snt(i)
3079 enddo
3080 do k=1,np
3081 do i=1,m
3082 so2(i,k+1)=so2(i,k)+scal(i,k)*cnt(i)
3083 enddo
3084 enddo
3085 !-----compute flux reduction due to o2 following eq. (3.18)
3086 ! the constant 0.0633 is the fraction of insolation contained
3087 ! in the oxygen bands
3088 do k= 2, np+1
3089 do i= 1, m
3090 x=so2(i,k)
3091 df(i,k)=0.0633*(1.-exp(-0.000145*sqrt(x)))
3093 enddo
3094 enddo
3096 !-----for solar heating due to co2
3097 do i= 1, m
3098 cnt(i)=co2*snt(i)
3099 enddo
3100 !-----scale co2 amounts following eq. (3.5) with f=1.
3101 ! unit is (cm-atm)stp.
3102 ! the constant 789 equals (1000/980)*(44/28.97)*(22400/44)
3103 do k=1,np
3104 do i=1,m
3105 x=789.*cnt(i)
3106 so2(i,k+1)=so2(i,k)+x*scal(i,k)+1.e-11
3107 enddo
3108 enddo
3109 !-----for co2 absorption in band 10 where absorption due to
3110 ! water vapor and co2 are both moderate
3111 u1=-3.0
3112 du=0.15
3113 w1=-4.0
3114 dw=0.15
3115 !-----so2 and swh are the co2 and water vapor amounts integrated
3116 ! from the top of the atmosphere
3117 do k= 2, np+1
3118 do i= 1, m
3119 swu(i,k)=log10(so2(i,k))
3120 swh(i,k)=log10(swh(i,k)*snt(i))
3121 enddo
3122 enddo
3123 !-----df is the updated flux reduction given by the second term on the
3124 ! right-hand-side of eq. (3.24) divided by so
3125 call reduce_flux(m,np,swu,u1,du,nu,swh,w1,dw,nw,cah,df)
3126 !-----for co2 absorption in band 11 where the co2 absorption has
3127 ! a large impact on the heating of middle atmosphere.
3128 u1=0.000250
3129 du=0.000050
3130 w1=-2.0
3131 dw=0.05
3132 do i= 1, m
3133 swu(i,1)=co2*snt(i)
3134 enddo
3135 !-----co2 mixing ratio is independent of space (spatially homogeneous)
3136 do k= 2, np+1
3137 do i= 1, m
3138 swu(i,k)=swu(i,1)
3139 enddo
3140 enddo
3141 !-----swh is the logarithm of pressure
3142 do k= 2, np+1
3143 do i= 1, m
3144 swh(i,k)=log10(pl(i,k))
3145 enddo
3146 enddo
3147 !-----df is the updated flux reduction derived from the table given by
3148 ! eq. (3.19)
3149 call reduce_flux(m,np,swu,u1,du,nx2,swh,w1,dw,ny2,coa,df)
3151 ! compute layer sub df (also filter negative values)
3152 do i=1,m
3153 do k = 2, np+1
3154 df_sub(i,k) = max(df(i,k) - df(i,k-1), 0._fp_kind) !df for each layer (remove negative df_sub)
3155 enddo
3156 enddo
3158 ! compute clear-sky df
3159 do i=1,m
3160 do k = 2, np+1
3161 df_clr(i,k) = df_clr(i,k-1)+df_sub(i,k)
3162 enddo
3163 enddo
3165 !-----adjustment for the effect of o2 cnd co2 on clear-sky fluxes.
3166 ! both flc and df_clr are positive quantities
3167 do k=1,np+1
3168 do i=1,m
3169 flc(i,k)=max(flc(i,k)-df_clr(i,k),0._fp_kind) !this filter is for small cosine zenith angle.
3170 enddo
3171 enddo
3173 !-----identify top cloud-layer
3175 do i= 1, m
3176 nctop(i)=np+1
3177 enddo
3179 do k=1,np
3180 do i= 1, m
3181 if (fcld(i,k).gt.fcld_min .and. nctop(i).eq.np+1) then
3182 nctop(i)=k
3183 endif
3184 enddo
3185 enddo
3187 ! adjust df_sub for below cloud
3188 do i= 1,m
3189 ntop=nctop(i)
3190 if(overcast .and. fast_overcast) then !compute cloud albedo
3191 ! cld_alb = sum(taux(i,ntop+1:np+1))/(6.7+sum(taux(i,ntop+1:np+1)))
3192 cld_alb = sum(taux(i,ntop+1:np))/(6.7+sum(taux(i,ntop+1:np)))
3193 endif
3194 if (ntop.lt.np+1) then
3195 do k= ntop+1,np+1 !cloud top -> surface
3196 if(overcast .and. fast_overcast) then !use ratio in LUT
3197 i_cos = int(cosz(i)*10.)+1 !1~10
3198 i_tau = int(cld_alb*10.)+1 !1~10
3199 ratio = ratio_lut(i_tau,i_cos)
3200 else !use computed clear and cloudy flux ratio (not fast_overcast)
3201 ratio = max(0.01_fp_kind, min(1._fp_kind,(flx(i,k)/flc(i,k))))
3202 endif
3203 df_sub(i,k) = df_sub(i,k)*ratio !compute cloudy-sky df_sub
3204 enddo !k
3205 endif
3206 enddo !i
3208 !update df for cloudy-sky
3209 do i=1,m
3210 do k = 2, np+1
3211 df_cld(i,k) = df_cld(i,k-1)+df_sub(i,k)
3212 enddo
3213 enddo
3215 !-----adjustment for the effect of o2 cnd co2 on all-sky fluxes.
3216 ! max statement filter negative value in flx for small cosz (for df_cld > flx)
3217 do i=1,m
3218 do k = 1, np+1
3219 flx(i,k) = max(flx(i,k)-df_cld(i,k) , 0._fp_kind) !this max is for small cosz
3220 flxd(i,k) = max(flxd(i,k)-df_cld(i,k), 0._fp_kind) !this max is for small cosz
3221 flxu(i,k) = flx(i,k)-flxd(i,k)
3222 enddo
3223 enddo
3225 !-----adjustment for the direct downward flux
3226 do i= 1,m
3227 fdirir(i)=fdirir(i)-df_cld(i,np+1)
3228 if (fdirir(i) .lt. 0.0) fdirir(i)=0.0
3229 enddo
3231 return
3233 end subroutine swrad
3235 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
3236 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
3238 subroutine sw_uvpar (m,np,wh,oh,dp, &
3239 cwp,taucld,reff,ict,icb,fcld,cosz, &
3240 taual,ssaal,asyal,taux,rsuvbm,rsuvdf, &
3241 flx,flc,flxd,fdiruv,fdifuv,fdirpar,fdifpar)
3243 !******************************************************************
3244 ! compute solar fluxes in the uv+par region. the spectrum is
3245 ! grouped into 8 bands:
3246 !
3247 ! band micrometer
3248 !
3249 ! uv-c 1. .175 - .225
3250 ! 2. .225 - .245
3251 ! .260 - .280
3252 ! 3. .245 - .260
3253 !
3254 ! uv-b 4. .280 - .295
3255 ! 5. .295 - .310
3256 ! 6. .310 - .320
3257 !
3258 ! uv-a 7. .320 - .400
3259 !
3260 ! par 8. .400 - .700
3261 !
3262 !----- input parameters: units size
3263 !
3264 ! number of soundings (m) n/d 1
3265 ! number of atmospheric layers (np) n/d 1
3266 ! layer scaled-water vapor content (wh) gm/cm^2 m*np
3267 ! layer ozone content (oh) (cm-atm)stp m*np
3268 ! layer pressure thickness (dp) mb m*np
3269 ! option for scaling cloud optical thickness n/d 1
3270 ! overcast="true" if scaling is not required
3271 ! overcast="fasle" if scaling is required
3272 ! input option for cloud optical thickness n/d 1
3273 ! cldwater="true" if taucld is provided
3274 ! cldwater="false" if cwp is provided
3275 ! cloud water amount (cwp) gm/m**2 m*np*3
3276 ! index 1 for ice particles
3277 ! index 2 for liquid drops
3278 ! index 3 for rain drops
3279 ! cloud optical thickness (taucld) n/d m*np*3
3280 ! index 1 for ice particles
3281 ! index 2 for liquid drops
3282 ! index 3 for rain drops
3283 ! effective cloud-particle size (reff) micrometer m*np*3
3284 ! index 1 for ice paticles
3285 ! index 2 for liquid drops
3286 ! index 3 for rain drops
3287 ! level index separating high and n/d m
3288 ! middle clouds (ict)
3289 ! level indiex separating middle and n/d m
3290 ! low clouds (icb)
3291 ! cloud amount (fcld) fraction m*np
3292 ! cosine of solar zenith angle (cosz) n/d m
3293 ! aerosol optical thickness (taual) n/d m*np*11
3294 ! aerosol single-scattering albedo (ssaal) n/d m*np*11
3295 ! aerosol asymmetry factor (asyal) n/d m*np*11
3296 ! uv+par surface albedo for beam fraction m
3297 ! radiation (rsuvbm)
3298 ! uv+par surface albedo for diffuse fraction m
3299 ! radiation (rsuvdf)
3300 !
3301 !---- temporary array
3302 !
3303 ! scaled cloud optical thickness n/d m*np
3304 ! for beam radiation (tauclb)
3305 ! scaled cloud optical thickness n/d m*np
3306 ! for diffuse radiation (tauclf)
3307 !
3308 !----- output (updated) parameters:
3309 !
3310 ! all-sky flux divergence (downward-upward) (flx) fraction m*(np+1)
3311 ! clear-sky flux divergence (downward-upward) (flc) fraction m*(np+1)
3312 ! all-sky direct downward uv flux at
3313 ! the surface (fdiruv) fraction m
3314 ! all-sky diffuse downward uv flux at
3315 ! the surface (fdifuv) fraction m
3316 ! all-sky direct downward par flux at
3317 ! the surface (fdirpar) fraction m
3318 ! all-sky diffuse downward par flux at
3319 ! the surface (fdifpar) fraction m
3320 !
3321 !***********************************************************************
3322 !ccshie 8/19/04
3323 implicit none
3324 !-----input parameters
3325 integer m,np,ict(m),icb(m)
3326 real(Kind=fp_kind) taucld(m,np,3),reff(m,np,3),fcld(m,np)
3327 real(Kind=fp_kind) cwp(m,np,3),wh(m,np),oh(m,np),dp(m,np)
3328 real(Kind=fp_kind) taual(m,np,ib_sw),ssaal(m,np,ib_sw),asyal(m,np,ib_sw)
3329 real(Kind=fp_kind) rsuvbm(m),rsuvdf(m),cosz(m)
3330 !-----output (updated) parameter
3331 real(Kind=fp_kind) flx(m,np+1),flc(m,np+1)
3332 real(Kind=fp_kind) flxd(m,np+1)
3333 real(Kind=fp_kind) fdiruv (m),fdifuv (m)
3334 real(Kind=fp_kind) fdirpar(m),fdifpar(m)
3335 real(Kind=fp_kind) taux(m,np)
3336 !-----static parameters
3337 integer nband
3338 parameter (nband=8)
3339 real(Kind=fp_kind) hk(nband),wk(nband),zk(nband),ry(nband)
3340 real(Kind=fp_kind) aig(3),awg(3),arg(3)
3341 real(Kind=fp_kind) aib(2),awb(2),arb(2)
3342 !-----temporary array
3343 integer i,k,ib
3344 integer ih1,ih2,im1,im2,is1,is2
3345 real(Kind=fp_kind) taurs,tauoz,tauwv
3346 real(Kind=fp_kind) :: g1,g2,g3
3347 real(Kind=fp_kind) :: dsm(m)
3348 real(Kind=fp_kind) :: tauclb(m,np)
3349 real(Kind=fp_kind) :: tauclf(m,np)
3350 real(Kind=fp_kind) :: asycl(m,np)
3351 real(Kind=fp_kind) :: tausto(m,np)
3352 real(Kind=fp_kind) :: ssatau(m,np)
3353 real(Kind=fp_kind) :: asysto(m,np)
3354 real(Kind=fp_kind) :: tautob(m,np)
3355 real(Kind=fp_kind) :: ssatob(m,np)
3356 real(Kind=fp_kind) :: asytob(m,np)
3357 real(Kind=fp_kind) :: tautof(m,np)
3358 real(Kind=fp_kind) :: ssatof(m,np)
3359 real(Kind=fp_kind) :: asytof(m,np)
3360 real(Kind=fp_kind) :: rr(m,np+1,2)
3361 real(Kind=fp_kind) :: tt(m,np+1,2)
3362 real(Kind=fp_kind) :: td(m,np+1,2)
3363 real(Kind=fp_kind) :: rs(m,np+1,2)
3364 real(Kind=fp_kind) :: ts(m,np+1,2)
3365 real(Kind=fp_kind) :: fall(m,np+1)
3366 real(Kind=fp_kind) :: falld(m,np+1)
3367 real(Kind=fp_kind) :: fclr(m,np+1)
3368 real(Kind=fp_kind) :: fsdir(m)
3369 real(Kind=fp_kind) :: fsdif(m)
3370 real(Kind=fp_kind) :: asyclt(m)
3371 real(Kind=fp_kind) :: cc(m,3)
3372 real(Kind=fp_kind) :: rrt(m,np)
3373 real(Kind=fp_kind) :: ttt(m,np)
3374 real(Kind=fp_kind) :: tdt(m,np)
3375 real(Kind=fp_kind) :: rst(m,np)
3376 real(Kind=fp_kind) :: tst(m,np)
3377 real(Kind=fp_kind) :: dum1(m,np+1)
3378 real(Kind=fp_kind) :: dum2(m)
3379 real(Kind=fp_kind) :: dum3(m)
3380 real(Kind=fp_kind) :: dum(m,np)
3381 !-----hk is the fractional extra-terrestrial solar flux in each
3382 ! of the 8 bands. the sum of hk is 0.47074. (table 3)
3383 data hk/.00057, .00367, .00083, .00417, &
3384 .00600, .00556, .05913, .39081/
3385 !-----zk is the ozone absorption coefficient. unit: /(cm-atm)stp
3386 ! (table 3)
3387 data zk /30.47, 187.2, 301.9, 42.83, &
3388 7.09, 1.25, 0.0345, 0.0572/
3389 !-----wk is the water vapor absorption coefficient. unit: cm**2/g
3390 ! (table 3)
3391 data wk /7*0.0, 0.00075/
3392 !-----ry is the extinction coefficient for rayleigh scattering.
3393 ! unit: /mb. (table 3)
3394 data ry /.00604, .00170, .00222, .00132, &
3395 .00107, .00091, .00055, .00012/
3396 !-----coefficients for computing the extinction coefficients of ice,
3397 ! water, and rain particles, independent of spectral band. (table 4)
3398 data aib/ 3.33e-4,2.52/
3399 data awb/-6.59e-3,1.65/
3400 data arb/ 3.07e-3,0.00/
3401 !-----coefficients for computing the asymmetry factor of ice, water,
3402 ! and rain particles, independent of spectral band. (table 6)
3403 data aig/.74625,.0010541,-.00000264/
3404 data awg/.82562,.0052900,-.00014866/
3405 data arg/.883,0.0,0.0/
3406 !-----initialize fdiruv, fdifuv, surface reflectances and transmittances.
3407 ! the reflectance and transmittance of the clear and cloudy portions
3408 ! of a layer are denoted by 1 and 2, respectively.
3409 ! cc is the maximum cloud cover in each of the high, middle, and low
3410 ! cloud groups.
3411 ! 1/dsm=1/cos(53) = 1.66
3412 do i=1,m
3413 dsm(i)=0.602
3414 fdiruv(i)=0.0
3415 fdifuv(i)=0.0
3416 rr(i,np+1,1)=rsuvbm(i)
3417 rr(i,np+1,2)=rsuvbm(i)
3418 rs(i,np+1,1)=rsuvdf(i)
3419 rs(i,np+1,2)=rsuvdf(i)
3420 td(i,np+1,1)=0.0
3421 td(i,np+1,2)=0.0
3422 tt(i,np+1,1)=0.0
3423 tt(i,np+1,2)=0.0
3424 ts(i,np+1,1)=0.0
3425 ts(i,np+1,2)=0.0
3426 cc(i,1)=0.0
3427 cc(i,2)=0.0
3428 cc(i,3)=0.0
3429 enddo
3431 if (cldwater) then
3432 do k=1,np
3433 do i=1,m
3434 taucld(i,k,1)=cwp(i,k,1)*(aib(1)+aib(2)/reff(i,k,1))
3435 taucld(i,k,2)=cwp(i,k,2)*(awb(1)+awb(2)/reff(i,k,2))
3436 taucld(i,k,3)=cwp(i,k,3)* arb(1)
3437 enddo
3438 enddo
3439 endif
3440 !-----options for scaling cloud optical thickness
3442 if (overcast) then
3444 do k=1,np
3445 do i=1,m
3446 tauclb(i,k)=taucld(i,k,1)+taucld(i,k,2)+taucld(i,k,3)
3447 tauclf(i,k)=tauclb(i,k)
3448 enddo
3449 enddo
3451 do k=1,3
3452 do i=1,m
3453 cc(i,k)=1.0
3454 enddo
3455 enddo
3457 else
3459 !-----scale cloud optical thickness in each layer from taucld (with
3460 ! cloud amount fcld) to tauclb and tauclf (with cloud amount cc).
3461 ! tauclb is the scaled optical thickness for beam radiation and
3462 ! tauclf is for diffuse radiation (see section 7).
3464 call cloud_scale (m,np,cosz,fcld,taucld,ict,icb, &
3465 cc,tauclb,tauclf)
3467 endif
3469 !-----cloud asymmetry factor for a mixture of liquid and ice particles.
3470 ! unit of reff is micrometers. eqs. (4.8) and (6.4)
3471 do k=1,np
3472 do i=1,m
3473 asyclt(i)=1.0
3474 taux(i,k)=taucld(i,k,1)+taucld(i,k,2)+taucld(i,k,3)
3475 if (taux(i,k).gt.taux_min .and. fcld(i,k).gt.fcld_min) then
3476 g1=(aig(1)+(aig(2)+aig(3)*reff(i,k,1))*reff(i,k,1))*taucld(i,k,1)
3477 g2=(awg(1)+(awg(2)+awg(3)*reff(i,k,2))*reff(i,k,2))*taucld(i,k,2)
3478 g3= arg(1)*taucld(i,k,3)
3479 asyclt(i)=(g1+g2+g3)/taux(i,k)
3480 endif
3481 enddo
3482 do i=1,m
3483 asycl(i,k)=asyclt(i)
3484 enddo
3485 enddo
3488 !-----integration over spectral bands---------------------------------
3490 do 100 ib=1,nband
3493 !-----compute reflectance and transmittance of the clear portion of a layer
3495 do k=1,np
3496 do i=1,m
3498 !-----compute rayleigh, ozone and water vapor optical thicknesses
3500 taurs=ry(ib)*dp(i,k)
3501 tauoz=zk(ib)*oh(i,k)
3502 tauwv=wk(ib)*wh(i,k)
3504 !-----compute clear-sky optical thickness, single scattering albedo,
3505 ! and asymmetry factor (eqs. 6.2-6.4)
3507 tausto(i,k)=max(taurs+tauoz+tauwv+taual(i,k,ib),opt_min)
3508 ssatau(i,k)=max(ssaal(i,k,ib)*taual(i,k,ib)+taurs,opt_min)
3509 asysto(i,k)=max(asyal(i,k,ib)*ssaal(i,k,ib)*taual(i,k,ib),opt_min)
3511 if (overcast .and. fast_overcast ) then ; else
3513 tautob(i,k)=tausto(i,k)
3514 ssatob(i,k)=max(ssatau(i,k)/tautob(i,k),opt_min)
3515 ssatob(i,k)=min(ssatob(i,k),0.999999_fp_kind)
3516 asytob(i,k)=max(asysto(i,k)/(ssatob(i,k)*tautob(i,k)),opt_min)
3518 !-----Compute delta-eddington approximation of scattering properties
3519 ! for direct incident radiation
3521 call delta_eddington(tautob(i,k), ssatob(i,k), asytob(i,k), cosz(i) , &
3522 rrt(i,k),ttt(i,k), tdt(i,k) )
3524 !
3525 !-----diffuse incident radiation is approximated by beam radiation with
3526 ! an incident angle of 53 degrees, eqs. (6.5) and (6.6)
3528 call delta_eddington(tautob(i,k), ssatob(i,k), asytob(i,k), dsm(i) , &
3529 rst(i,k),tst(i,k), dum(i,k) )
3531 rr(i,k,1)=rrt(i,k)
3532 tt(i,k,1)=ttt(i,k)
3533 td(i,k,1)=tdt(i,k)
3534 rs(i,k,1)=rst(i,k)
3535 ts(i,k,1)=tst(i,k)
3537 endif ! not overcast .and. not fast_overcast
3539 !-----compute reflectance and transmittance of the cloudy portion of a layer
3540 if ( (tauclb(i,k).ge.taux_min .or. fcld(i,k).ge.fcld_min ) .or. & !cloud exists
3541 (overcast .and. fast_overcast ) ) then ! overcast .and. fast_overcast
3544 !-----for direct incident radiation
3545 ! the effective layer optical properties. eqs. (6.2)-(6.4)
3546 tautob(i,k)=tausto(i,k) + max(tauclb(i,k),opt_min)
3547 ssatob(i,k)=max((ssatau(i,k)+tauclb(i,k))/tautob(i,k),opt_min)
3548 ssatob(i,k)=min(ssatob(i,k),0.999999_fp_kind)
3549 asytob(i,k)=max((asysto(i,k)+asycl(i,k)*tauclb(i,k)) &
3550 /(ssatob(i,k)*tautob(i,k)),opt_min)
3552 !-----for diffuse incident radiation
3553 tautof(i,k)=tausto(i,k)+max(tauclf(i,k),opt_min)
3555 ssatof(i,k)=max((ssatau(i,k)+tauclf(i,k))/tautof(i,k),opt_min)
3556 ssatof(i,k)=min(ssatof(i,k),0.999999_fp_kind)
3557 asytof(i,k)=max((asysto(i,k)+asycl(i,k)*tauclf(i,k)) &
3558 /(ssatof(i,k)*tautof(i,k)),opt_min)
3560 !-----Compute delta-eddington approximation of scattering properties
3561 ! for direct incident radiation
3562 ! note that the cloud optical thickness is scaled differently for direct
3563 ! and diffuse insolation, eqs. (7.3) and (7.4).
3565 call delta_eddington(tautob(i,k), ssatob(i,k), asytob(i,k), cosz(i) , &
3566 rrt(i,k),ttt(i,k), tdt(i,k) )
3568 !-----diffuse incident radiation is approximated by beam radiation with
3569 ! an incident angle of 53 degrees, eqs. (6.5) and (6.6)
3571 call delta_eddington(tautob(i,k), ssatob(i,k), asytob(i,k), dsm(i) , &
3572 rst(i,k),tst(i,k), dum(i,k) )
3574 endif
3576 rr(i,k,2)=rrt(i,k)
3577 tt(i,k,2)=ttt(i,k)
3578 td(i,k,2)=tdt(i,k)
3579 rs(i,k,2)=rst(i,k)
3580 ts(i,k,2)=tst(i,k)
3584 enddo !i loop
3585 enddo !k loop
3588 !-----flux calculations
3590 if (overcast) then !cloud fraction 0 or 1 -> CRM
3592 if( .not. fast_overcast ) then
3593 !-----for clear-sky fluxes only (This is needed for equation 6.18 flux redtion due to CO2 and O2 below cloud)
3594 ih1=1 ; im1=1 ; is1=1
3595 ih2=1 ; im2=1 ; is2=1
3596 call twostream_adding (m,np,ict,icb,ih1,ih2,im1,im2,is1,is2, &
3597 cc,rr,tt,td,rs,ts,fclr,dum1,falld,dum2,dum3)
3598 endif
3600 !-----for cloudy-sky fluxes only
3601 ih1=2 ; im1=2 ; is1=2
3602 ih2=2 ; im2=2 ; is2=2
3603 call twostream_adding (m,np,ict,icb,ih1,ih2,im1,im2,is1,is2, &
3604 cc,rr,tt,td,rs,ts,dum1,fall,falld,fsdir,fsdif)
3606 else ! non overcast (cloud fraction 0.~1. GCM or RCM )
3608 !-----for clear- and all-sky fluxes the all-sky flux, fall is the summation inside the brackets of eq. (7.11)
3609 ih1=1 ; im1=1 ; is1=1
3610 ih2=2 ; im2=2 ; is2=2
3611 call twostream_adding (m,np,ict,icb,ih1,ih2,im1,im2,is1,is2, &
3612 cc,rr,tt,td,rs,ts,fclr,fall,falld,fsdir,fsdif)
3614 endif ! overcast
3617 !-----flux integration, eq. (6.1)
3619 do k=1,np+1
3620 do i=1,m
3621 flx(i,k)=flx(i,k)+fall(i,k)*hk(ib)
3622 flxd(i,k)=flxd(i,k)+falld(i,k)*hk(ib)
3624 if(overcast .and. fast_overcast) then ; else
3625 flc(i,k)=flc(i,k)+fclr(i,k)*hk(ib)
3626 endif
3628 enddo
3631 enddo
3633 !-----compute direct and diffuse downward surface fluxes in the uv
3634 ! and par regions
3635 if(ib.lt.8) then
3636 do i=1,m
3637 fdiruv(i)=fdiruv(i)+fsdir(i)*hk(ib)
3638 fdifuv(i)=fdifuv(i)+fsdif(i)*hk(ib)
3639 enddo
3640 else
3641 do i=1,m
3642 fdirpar(i)=fsdir(i)*hk(ib)
3643 fdifpar(i)=fsdif(i)*hk(ib)
3644 enddo
3645 endif
3647 100 continue
3649 return
3650 end subroutine sw_uvpar
3652 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
3653 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
3655 subroutine sw_ir (m,np,wh,dp, &
3656 cwp,taucld,reff,ict,icb,fcld,cosz, &
3657 taual,ssaal,asyal, &
3658 rsirbm,rsirdf,flx,flc,flxd,fdirir,fdifir)
3659 !************************************************************************
3660 ! compute solar flux in the infrared region. the spectrum is divided
3661 ! into three bands:
3662 !
3663 ! band wavenumber(/cm) wavelength (micron)
3664 ! 1( 9) 14280-8200 0.70-1.22
3665 ! 2(10) 8200-4400 1.22-2.27
3666 ! 3(11) 4400-1000 2.27-10.0
3667 !
3668 !----- input parameters: units size
3669 !
3670 ! number of soundings (m) n/d 1
3671 ! number of atmospheric layers (np) n/d 1
3672 ! layer scaled-water vapor content (wh) gm/cm^2 m*np
3673 ! option for scaling cloud optical thickness n/d 1
3674 ! overcast="true" if scaling is not required
3675 ! overcast="fasle" if scaling is required
3676 ! input option for cloud optical thickness n/d 1
3677 ! cldwater="true" if taucld is provided
3678 ! cldwater="false" if cwp is provided
3679 ! cloud water concentration (cwp) gm/m**2 m*np*3
3680 ! index 1 for ice particles
3681 ! index 2 for liquid drops
3682 ! index 3 for rain drops
3683 ! cloud optical thickness (taucld) n/d m*np*3
3684 ! index 1 for ice paticles
3685 ! index 2 for liquid drops
3686 ! index 3 for rain drops
3687 ! effective cloud-particle size (reff) micrometer m*np*3
3688 ! index 1 for ice paticles
3689 ! index 2 for liquid drops
3690 ! index 3 for rain drops
3691 ! level index separating high and n/d m
3692 ! middle clouds (ict)
3693 ! level index separating middle and n/d m
3694 ! low clouds (icb)
3695 ! cloud amount (fcld) fraction m*np
3696 ! aerosol optical thickness (taual) n/d m*np*11
3697 ! aerosol single-scattering albedo (ssaal) n/d m*np*11
3698 ! aerosol asymmetry factor (asyal) n/d m*np*11
3699 ! near ir surface albedo for beam fraction m
3700 ! radiation (rsirbm)
3701 ! near ir surface albedo for diffuse fraction m
3702 ! radiation (rsirdf)
3703 !
3704 !---- temporary array
3705 !
3706 ! scaled cloud optical thickness n/d m*np
3707 ! for beam radiation (tauclb)
3708 ! scaled cloud optical thickness n/d m*np
3709 ! for diffuse radiation (tauclf)
3710 !
3711 !----- output (updated) parameters:
3712 !
3713 ! all-sky flux divergence (downward-upward) (flx) fraction m*(np+1)
3714 ! clear-sky flux divergence (downward-upward) (flc) fraction m*(np+1)
3715 ! all-sky direct downward ir flux at
3716 ! the surface (fdirir) fraction m
3717 ! all-sky diffuse downward ir flux at
3718 ! the surface (fdifir) fraction m
3719 !
3720 !**********************************************************************
3721 implicit none
3722 !-----input parameters
3723 integer m,np,ict(m),icb(m)
3724 integer ih1,ih2,im1,im2,is1,is2
3725 real(Kind=fp_kind) cwp(m,np,3),taucld(m,np,3),reff(m,np,3)
3726 real(Kind=fp_kind) fcld(m,np),cosz(m)
3727 real(Kind=fp_kind) rsirbm(m),rsirdf(m)
3728 real(Kind=fp_kind) taual(m,np,ib_sw),ssaal(m,np,ib_sw),asyal(m,np,ib_sw)
3729 real(Kind=fp_kind) dp(m,np),wh(m,np)
3730 !-----output (updated) parameters
3731 real(Kind=fp_kind) flx(m,np+1),flc(m,np+1)
3732 real(Kind=fp_kind) flxd(m,np+1)
3733 real(Kind=fp_kind) fdirir(m),fdifir(m)
3734 !-----static parameters
3735 integer nk,nband
3736 parameter (nk=10,nband=3)
3737 real(Kind=fp_kind) :: taux
3738 real(Kind=fp_kind) :: w1, w2, w3 !expansion stuff
3739 real(Kind=fp_kind) :: g1, g2, g3 !asymetry stuff
3740 real(Kind=fp_kind) hk(nband,nk),xk(nk),ry(nband)
3741 real(Kind=fp_kind) aib(nband,2),awb(nband,2),arb(nband,2)
3742 real(Kind=fp_kind) aia(nband,3),awa(nband,3),ara(nband,3)
3743 real(Kind=fp_kind) aig(nband,3),awg(nband,3),arg(nband,3)
3744 !-----temporary array
3745 integer ib,iv,ik,i,k
3746 real(Kind=fp_kind) taurs,tauwv
3747 real(Kind=fp_kind) :: dsm(m)
3748 real(Kind=fp_kind) :: tauclb(m,np)
3749 real(Kind=fp_kind) :: tauclf(m,np)
3750 real(Kind=fp_kind) :: cc(m,3)
3751 real(Kind=fp_kind) :: ssacl(m,np)
3752 real(Kind=fp_kind) :: asycl(m,np)
3753 real(Kind=fp_kind) :: rr(m,np+1,2)
3754 real(Kind=fp_kind) :: tt(m,np+1,2)
3755 real(Kind=fp_kind) :: td(m,np+1,2)
3756 real(Kind=fp_kind) :: rs(m,np+1,2)
3757 real(Kind=fp_kind) :: ts(m,np+1,2)
3758 real(Kind=fp_kind) :: fall(m,np+1)
3759 real(Kind=fp_kind) :: falld(m,np+1)
3760 real(Kind=fp_kind) :: fclr(m,np+1)
3761 real(Kind=fp_kind) :: fsdir(m)
3762 real(Kind=fp_kind) :: fsdif(m)
3763 real(Kind=fp_kind) :: tausto(m,np)
3764 real(Kind=fp_kind) :: ssatau(m,np)
3765 real(Kind=fp_kind) :: asysto(m,np)
3766 real(Kind=fp_kind) :: tautob(m,np)
3767 real(Kind=fp_kind) :: ssatob(m,np)
3768 real(Kind=fp_kind) :: asytob(m,np)
3769 real(Kind=fp_kind) :: tautof(m,np)
3770 real(Kind=fp_kind) :: ssatof(m,np)
3771 real(Kind=fp_kind) :: asytof(m,np)
3772 real(Kind=fp_kind) :: ssaclt(m)
3773 real(Kind=fp_kind) :: asyclt(m)
3774 real(Kind=fp_kind) :: rrt(m,np)
3775 real(Kind=fp_kind) :: ttt(m,np)
3776 real(Kind=fp_kind) :: tdt(m,np)
3777 real(Kind=fp_kind) :: rst(m,np)
3778 real(Kind=fp_kind) :: tst(m,np)
3779 real(Kind=fp_kind) :: dum1(m,np+1)
3780 real(Kind=fp_kind) :: dum2(m)
3781 real(Kind=fp_kind) :: dum3(m)
3782 real(Kind=fp_kind) :: dum(m,np)
3783 !-----water vapor absorption coefficient for 10 k-intervals.
3784 ! unit: cm^2/gm (table 2)
3785 data xk/ &
3786 0.0010, 0.0133, 0.0422, 0.1334, 0.4217, &
3787 1.334, 5.623, 31.62, 177.8, 1000.0/
3788 !-----water vapor k-distribution function,
3789 ! the sum of hk is 0.52926. unit: fraction (table 2)
3790 data hk/ &
3791 .20673,.08236,.01074, .03497,.01157,.00360, &
3792 .03011,.01133,.00411, .02260,.01143,.00421, &
3793 .01336,.01240,.00389, .00696,.01258,.00326, &
3794 .00441,.01381,.00499, .00115,.00650,.00465, &
3795 .00026,.00244,.00245, .00000,.00094,.00145/
3796 !-----ry is the extinction coefficient for rayleigh scattering.
3797 ! unit: /mb (table 3)
3798 data ry /.0000156, .0000018, .000000/
3799 !-----coefficients for computing the extinction coefficients of
3800 ! ice, water, and rain particles (table 4)
3801 data aib/ &
3802 .000333, .000333, .000333, &
3803 2.52, 2.52, 2.52/
3804 data awb/ &
3805 -0.0101, -0.0166, -0.0339, &
3806 1.72, 1.85, 2.16/
3807 data arb/ &
3808 0.00307, 0.00307, 0.00307, &
3809 0.0 , 0.0 , 0.0 /
3810 !-----coefficients for computing the single-scattering co-albedo of
3811 ! ice, water, and rain particles (table 5)
3812 data aia/ &
3813 -.00000260, .00215346, .08938331, &
3814 .00000746, .00073709, .00299387, &
3815 .00000000,-.00000134,-.00001038/
3816 data awa/ &
3817 .00000007,-.00019934, .01209318, &
3818 .00000845, .00088757, .01784739, &
3819 -.00000004,-.00000650,-.00036910/
3820 data ara/ &
3821 .029, .342, .466, &
3822 .0000, .000, .000, &
3823 .0000, .000, .000/
3824 !-----coefficients for computing the asymmetry factor of
3825 ! ice, water, and rain particles (table 6)
3826 data aig/ &
3827 .74935228, .76098937, .84090400, &
3828 .00119715, .00141864, .00126222, &
3829 -.00000367,-.00000396,-.00000385/
3830 data awg/ &
3831 .79375035, .74513197, .83530748, &
3832 .00832441, .01370071, .00257181, &
3833 -.00023263,-.00038203, .00005519/
3834 data arg/ &
3835 .891, .948, .971, &
3836 .0000, .000, .000, &
3837 .0000, .000, .000/
3838 !-----initialize surface fluxes, reflectances, and transmittances.
3839 ! the reflectance and transmittance of the clear and cloudy portions
3840 ! of a layer are denoted by 1 and 2, respectively.
3841 ! cc is the maximum cloud cover in each of the high, middle, and low
3842 ! cloud groups.
3843 ! 1/dsm=1/cos(53)=1.66
3844 do i=1,m
3845 dsm(i)=0.602
3846 fdirir(i)=0.0
3847 fdifir(i)=0.0
3848 rr(i,np+1,1)=rsirbm(i)
3849 rr(i,np+1,2)=rsirbm(i)
3850 rs(i,np+1,1)=rsirdf(i)
3851 rs(i,np+1,2)=rsirdf(i)
3852 td(i,np+1,1)=0.0
3853 td(i,np+1,2)=0.0
3854 tt(i,np+1,1)=0.0
3855 tt(i,np+1,2)=0.0
3856 ts(i,np+1,1)=0.0
3857 ts(i,np+1,2)=0.0
3858 cc(i,1)=0.0
3859 cc(i,2)=0.0
3860 cc(i,3)=0.0
3861 enddo
3862 !-----integration over spectral bands
3863 do 100 ib=1,nband
3864 iv=ib+8
3865 !-----compute cloud optical thickness. eqs. (4.6) and (4.11)
3866 if (cldwater) then
3867 do k=1,np
3868 do i=1,m
3869 taucld(i,k,1)=cwp(i,k,1)*(aib(ib,1) &
3870 +aib(ib,2)/reff(i,k,1))
3871 taucld(i,k,2)=cwp(i,k,2)*(awb(ib,1) &
3872 +awb(ib,2)/reff(i,k,2))
3873 taucld(i,k,3)=cwp(i,k,3)*arb(ib,1)
3874 enddo
3875 enddo
3876 endif
3877 !-----options for scaling cloud optical thickness
3879 if (overcast) then
3880 do k=1,np
3881 do i=1,m
3882 tauclb(i,k)=taucld(i,k,1)+taucld(i,k,2)+taucld(i,k,3)
3883 tauclf(i,k)=tauclb(i,k)
3884 enddo
3885 enddo
3886 do k=1,3
3887 do i=1,m
3888 cc(i,k)=1.0
3889 enddo
3890 enddo
3891 else
3892 !-----scale cloud optical thickness in each layer from taucld (with
3893 ! cloud amount fcld) to tauclb and tauclf (with cloud amount cc).
3894 ! tauclb is the scaled optical thickness for beam radiation and
3895 ! tauclf is for diffuse radiation.
3896 call cloud_scale (m,np,cosz,fcld,taucld,ict,icb, &
3897 cc,tauclb,tauclf)
3898 endif
3901 !-----compute cloud single scattering albedo and asymmetry factor
3902 ! for a mixture of ice and liquid particles.
3903 ! eqs.(4.6)-(4.8), (6.2)-(6.4)
3904 do k=1,np
3905 do i=1,m
3906 ssaclt(i)=0.99999
3907 asyclt(i)=1.0
3908 taux=taucld(i,k,1)+taucld(i,k,2)+taucld(i,k,3)
3909 if (taux.gt.taux_min .and. fcld(i,k).gt.fcld_min) then
3910 w1=(1.-(aia(ib,1)+(aia(ib,2)+ &
3911 aia(ib,3)*reff(i,k,1))*reff(i,k,1)))*taucld(i,k,1)
3912 w2=(1.-(awa(ib,1)+(awa(ib,2)+ &
3913 awa(ib,3)*reff(i,k,2))*reff(i,k,2)))*taucld(i,k,2)
3914 w3=(1.- ara(ib,1))*taucld(i,k,3)
3915 ssaclt(i)=(w1+w2+w3)/taux
3916 g1=(aig(ib,1)+(aig(ib,2)+aig(ib,3)*reff(i,k,1))*reff(i,k,1))*w1
3917 g2=(awg(ib,1)+(awg(ib,2)+awg(ib,3)*reff(i,k,2))*reff(i,k,2))*w2
3918 g3= arg(ib,1)*w3
3919 asyclt(i)=(g1+g2+g3)/(w1+w2+w3)
3920 endif
3921 enddo
3922 do i=1,m
3923 ssacl(i,k)=ssaclt(i)
3924 enddo
3925 do i=1,m
3926 asycl(i,k)=asyclt(i)
3927 enddo
3928 enddo
3931 !-----integration over the k-distribution function
3932 do 200 ik=1,nk
3935 !-----compute clear-sky optical thickness, single scattering albedo,
3936 ! and asymmetry factor. eqs.(6.2)-(6.4)
3937 do k=1,np
3938 do i=1,m
3939 taurs=ry(ib)*dp(i,k)
3940 tauwv=xk(ik)*wh(i,k)
3942 tausto(i,k)=max(taurs+tauwv+taual(i,k,iv),opt_min)
3943 ssatau(i,k)=max(ssaal(i,k,iv)*taual(i,k,iv)+taurs,opt_min) !add for stability
3944 asysto(i,k)=max(asyal(i,k,iv)*ssaal(i,k,iv)*taual(i,k,iv),opt_min)
3946 if (overcast .and. fast_overcast ) then
3947 else
3949 !-----compute reflectance and transmittance of the clear portion of a layer
3950 tautob(i,k)=tausto(i,k)
3951 ssatob(i,k)=max(ssatau(i,k)/tautob(i,k),opt_min)
3952 ssatob(i,k)=min(ssatob(i,k),0.999999_fp_kind)
3953 asytob(i,k)=max(asysto(i,k)/(ssatob(i,k)*tautob(i,k)),opt_min)
3955 ! delta-eddington approximation for optical propeties
3956 !-----for direct incident radiation
3958 call delta_eddington(tautob(i,k), ssatob(i,k), asytob(i,k), cosz(i) , &
3959 rrt(i,k),ttt(i,k), tdt(i,k) )
3962 !-----diffuse incident radiation is approximated by beam radiation with
3963 ! an incident angle of 53 degrees, eqs. (6.5) and (6.6)
3965 call delta_eddington(tautob(i,k), ssatob(i,k), asytob(i,k), dsm(i) , &
3966 rst(i,k),tst(i,k), dum(i,k) )
3968 rr(i,k,1)=rrt(i,k)
3969 tt(i,k,1)=ttt(i,k)
3970 td(i,k,1)=tdt(i,k)
3971 rs(i,k,1)=rst(i,k)
3972 ts(i,k,1)=tst(i,k)
3974 endif ! overcast .and. fast_overcast
3976 !-----compute reflectance and transmittance of the cloudy portion of a layer
3977 if ( (tauclb(i,k).ge.taux_min .or. fcld(i,k).ge.fcld_min ) .or. & !cloud exists
3978 (overcast .and. fast_overcast ) ) then ! overcast .and. fast_overcast
3981 !-----for direct incident radiation. eqs.(6.2)-(6.4)
3982 tautob(i,k)=tausto(i,k)+max(tauclb(i,k),opt_min)
3983 ssatob(i,k)=max((ssatau(i,k)+ssacl(i,k)*tauclb(i,k))/tautob(i,k),opt_min)
3984 ssatob(i,k)=min(ssatob(i,k),0.999999_fp_kind)
3985 asytob(i,k)=max((asysto(i,k)+asycl(i,k)*ssacl(i,k)*tauclb(i,k)) &
3986 /(ssatob(i,k)*tautob(i,k)),opt_min)
3987 !-----for diffuse incident radiation
3988 tautof(i,k)=tausto(i,k)+max(tauclf(i,k),opt_min)
3989 ssatof(i,k)=max((ssatau(i,k)+ssacl(i,k)*tauclf(i,k))/tautof(i,k),opt_min)
3990 ssatof(i,k)=min(ssatof(i,k),0.999999_fp_kind)
3991 asytof(i,k)=max((asysto(i,k)+asycl(i,k)*ssacl(i,k)*tauclf(i,k)) &
3992 /(ssatof(i,k)*tautof(i,k)),opt_min)
3994 ! delta-eddington approximation for optical propeties
3995 !-----for direct incident radiation
3997 call delta_eddington(tautob(i,k), ssatob(i,k), asytob(i,k), cosz(i) , &
3998 rrt(i,k),ttt(i,k), tdt(i,k) )
4000 !-----diffuse incident radiation is approximated by beam radiation with
4001 ! an incident angle of 53 degrees, eqs.(6.5) and (6.6)
4003 call delta_eddington(tautob(i,k), ssatob(i,k), asytob(i,k), dsm(i) , &
4004 rst(i,k),tst(i,k), dum(i,k) )
4005 endif
4008 rr(i,k,2)=rrt(i,k)
4009 tt(i,k,2)=ttt(i,k)
4010 td(i,k,2)=tdt(i,k)
4011 rs(i,k,2)=rst(i,k)
4012 ts(i,k,2)=tst(i,k)
4014 enddo
4015 enddo
4018 !-----flux calculations
4019 if (overcast) then ! overcast (LES or CRM)
4021 if( .not. fast_overcast ) then
4022 !-----for clear-sky fluxes only
4023 ih1=1 ; im1=1 ; is1=1
4024 ih2=1 ; im2=1 ; is2=1
4025 call twostream_adding (m,np,ict,icb,ih1,ih2,im1,im2,is1,is2, &
4026 cc,rr,tt,td,rs,ts,fclr,dum1,falld,dum2,dum3)
4027 endif
4029 !-----for cloudy-sky fluxes only
4030 ih1=2 ; im1=2 ; is1=2
4031 ih2=2 ; im2=2 ; is2=2
4032 call twostream_adding (m,np,ict,icb,ih1,ih2,im1,im2,is1,is2, &
4033 cc,rr,tt,td,rs,ts,dum1,fall,falld,fsdir,fsdif)
4035 else ! NON overcast (GCM or RCM)
4037 !-----for clear- and all-sky fluxes
4038 ! the all-sky flux, fall is the summation inside the brackets
4039 ! of eq. (7.11)
4040 ih1=1 ; im1=1 ; is1=1
4041 ih2=2 ; im2=2 ; is2=2
4042 call twostream_adding (m,np,ict,icb,ih1,ih2,im1,im2,is1,is2, &
4043 cc,rr,tt,td,rs,ts,fclr,fall,falld,fsdir,fsdif)
4045 endif ! ovrercast
4048 !-----flux integration following eq. (6.1)
4049 do k=1,np+1
4050 do i=1,m
4051 flx(i,k) = flx(i,k)+fall(i,k)*hk(ib,ik)
4052 flxd(i,k) = flxd(i,k)+falld(i,k)*hk(ib,ik)
4053 if(overcast .and. fast_overcast) then
4054 else
4055 flc(i,k) = flc(i,k)+fclr(i,k)*hk(ib,ik)
4056 endif
4057 enddo
4058 enddo
4059 !-----compute downward surface fluxes in the ir region
4060 do i=1,m
4061 fdirir(i) = fdirir(i)+fsdir(i)*hk(ib,ik)
4062 fdifir(i) = fdifir(i)+fsdif(i)*hk(ib,ik)
4063 enddo
4065 200 continue !k integration
4066 100 continue !iband
4069 return
4070 end subroutine sw_ir
4072 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
4073 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
4075 subroutine cloud_scale (m,np,cosz,fcld,taucld,ict,icb, &
4076 cc,tauclb,tauclf)
4077 !********************************************************************
4078 !
4079 ! this subroutine computes the high, middle, and low cloud
4080 ! amounts and scales the cloud optical thickness (section 7)
4081 !
4082 ! to simplify calculations in a cloudy atmosphere, clouds are
4083 ! grouped into high, middle and low clouds separated by the levels
4084 ! ict and icb (level 1 is the top of the model atmosphere).
4085 !
4086 ! within each of the three groups, clouds are assumed maximally
4087 ! overlapped, and the cloud cover (cc) of a group is the maximum
4088 ! cloud cover of all the layers in the group. the optical thickness
4089 ! (taucld) of a given layer is then scaled to new values (tauclb and
4090 ! tauclf) so that the layer reflectance corresponding to the cloud
4091 ! cover cc is the same as the original reflectance with optical
4092 ! thickness taucld and cloud cover fcld.
4093 !
4094 !---input parameters
4095 !
4096 ! number of atmospheric soundings (m)
4097 ! number of atmospheric layers (np)
4098 ! cosine of the solar zenith angle (cosz)
4099 ! fractional cloud cover (fcld)
4100 ! cloud optical thickness (taucld)
4101 ! index separating high and middle clouds (ict)
4102 ! index separating middle and low clouds (icb)
4103 !
4104 !---output parameters
4105 !
4106 ! fractional cover of high, middle, and low cloud groups (cc)
4107 ! scaled cloud optical thickness for direct radiation (tauclb)
4108 ! scaled cloud optical thickness for diffuse radiation (tauclf)
4109 !
4110 !********************************************************************
4111 implicit none
4112 !-----input parameters
4113 integer m,np,ict(m),icb(m)
4114 real(Kind=fp_kind) cosz(m),fcld(m,np),taucld(m,np,3)
4115 !-----output parameters
4116 real(Kind=fp_kind) cc(m,3),tauclb(m,np),tauclf(m,np)
4117 !-----temporary variables
4118 integer i,j,k,im,it,ia,kk
4119 real(Kind=fp_kind) fm,ft,fa,xai,taux
4120 !-----pre-computed table
4121 ! size of cosz-interval: dm
4122 ! size of taucld-interval: dt
4123 ! size of cloud amount-interval: da
4124 integer nm,nt,na
4125 parameter (nm=11,nt=9,na=11)
4126 real(Kind=fp_kind) dm,dt,da,t1,caib(nm,nt,na),caif(nt,na)
4127 parameter (dm=0.1,dt=0.30103,da=0.1,t1=-0.9031)
4128 !-----include the pre-computed table of mcai for scaling the cloud optical
4129 ! thickness under the assumption that clouds are maximally overlapped
4130 !
4131 ! caib is for scaling the cloud optical thickness for direct radiation
4132 ! caif is for scaling the cloud optical thickness for diffuse radiation
4133 ! include "mcai.data"
4134 data ((caib(1,i,j),j=1,11),i=1,9)/ &
4135 .000,0.068,0.140,0.216,0.298,0.385,0.481,0.586,0.705,0.840,1.000, &
4136 .000,0.052,0.106,0.166,0.230,0.302,0.383,0.478,0.595,0.752,1.000, &
4137 .000,0.038,0.078,0.120,0.166,0.218,0.276,0.346,0.438,0.582,1.000, &
4138 .000,0.030,0.060,0.092,0.126,0.164,0.206,0.255,0.322,0.442,1.000, &
4139 .000,0.025,0.051,0.078,0.106,0.136,0.170,0.209,0.266,0.462,1.000, &
4140 .000,0.023,0.046,0.070,0.095,0.122,0.150,0.187,0.278,0.577,1.000, &
4141 .000,0.022,0.043,0.066,0.089,0.114,0.141,0.187,0.354,0.603,1.000, &
4142 .000,0.021,0.042,0.063,0.086,0.108,0.135,0.214,0.349,0.565,1.000, &
4143 .000,0.021,0.041,0.062,0.083,0.105,0.134,0.202,0.302,0.479,1.000/
4144 data ((caib(2,i,j),j=1,11),i=1,9)/ &
4145 .000,0.088,0.179,0.272,0.367,0.465,0.566,0.669,0.776,0.886,1.000, &
4146 .000,0.079,0.161,0.247,0.337,0.431,0.531,0.637,0.749,0.870,1.000, &
4147 .000,0.065,0.134,0.207,0.286,0.372,0.466,0.572,0.692,0.831,1.000, &
4148 .000,0.049,0.102,0.158,0.221,0.290,0.370,0.465,0.583,0.745,1.000, &
4149 .000,0.037,0.076,0.118,0.165,0.217,0.278,0.354,0.459,0.638,1.000, &
4150 .000,0.030,0.061,0.094,0.130,0.171,0.221,0.286,0.398,0.631,1.000, &
4151 .000,0.026,0.052,0.081,0.111,0.146,0.189,0.259,0.407,0.643,1.000, &
4152 .000,0.023,0.047,0.072,0.098,0.129,0.170,0.250,0.387,0.598,1.000, &
4153 .000,0.022,0.044,0.066,0.090,0.118,0.156,0.224,0.328,0.508,1.000/
4154 data ((caib(3,i,j),j=1,11),i=1,9)/ &
4155 .000,0.094,0.189,0.285,0.383,0.482,0.582,0.685,0.788,0.894,1.000, &
4156 .000,0.088,0.178,0.271,0.366,0.465,0.565,0.669,0.776,0.886,1.000, &
4157 .000,0.079,0.161,0.247,0.337,0.431,0.531,0.637,0.750,0.870,1.000, &
4158 .000,0.066,0.134,0.209,0.289,0.375,0.470,0.577,0.697,0.835,1.000, &
4159 .000,0.050,0.104,0.163,0.227,0.300,0.383,0.483,0.606,0.770,1.000, &
4160 .000,0.038,0.080,0.125,0.175,0.233,0.302,0.391,0.518,0.710,1.000, &
4161 .000,0.031,0.064,0.100,0.141,0.188,0.249,0.336,0.476,0.689,1.000, &
4162 .000,0.026,0.054,0.084,0.118,0.158,0.213,0.298,0.433,0.638,1.000, &
4163 .000,0.023,0.048,0.074,0.102,0.136,0.182,0.254,0.360,0.542,1.000/
4164 data ((caib(4,i,j),j=1,11),i=1,9)/ &
4165 .000,0.096,0.193,0.290,0.389,0.488,0.589,0.690,0.792,0.896,1.000, &
4166 .000,0.092,0.186,0.281,0.378,0.477,0.578,0.680,0.785,0.891,1.000, &
4167 .000,0.086,0.174,0.264,0.358,0.455,0.556,0.660,0.769,0.882,1.000, &
4168 .000,0.074,0.153,0.235,0.323,0.416,0.514,0.622,0.737,0.862,1.000, &
4169 .000,0.061,0.126,0.195,0.271,0.355,0.449,0.555,0.678,0.823,1.000, &
4170 .000,0.047,0.098,0.153,0.215,0.286,0.370,0.471,0.600,0.770,1.000, &
4171 .000,0.037,0.077,0.120,0.170,0.230,0.303,0.401,0.537,0.729,1.000, &
4172 .000,0.030,0.062,0.098,0.138,0.187,0.252,0.343,0.476,0.673,1.000, &
4173 .000,0.026,0.053,0.082,0.114,0.154,0.207,0.282,0.391,0.574,1.000/
4174 data ((caib(5,i,j),j=1,11),i=1,9)/ &
4175 .000,0.097,0.194,0.293,0.392,0.492,0.592,0.693,0.794,0.897,1.000, &
4176 .000,0.094,0.190,0.286,0.384,0.483,0.584,0.686,0.789,0.894,1.000, &
4177 .000,0.090,0.181,0.274,0.370,0.468,0.569,0.672,0.778,0.887,1.000, &
4178 .000,0.081,0.165,0.252,0.343,0.439,0.539,0.645,0.757,0.874,1.000, &
4179 .000,0.069,0.142,0.218,0.302,0.392,0.490,0.598,0.717,0.850,1.000, &
4180 .000,0.054,0.114,0.178,0.250,0.330,0.422,0.529,0.656,0.810,1.000, &
4181 .000,0.042,0.090,0.141,0.200,0.269,0.351,0.455,0.589,0.764,1.000, &
4182 .000,0.034,0.070,0.112,0.159,0.217,0.289,0.384,0.515,0.703,1.000, &
4183 .000,0.028,0.058,0.090,0.128,0.174,0.231,0.309,0.420,0.602,1.000/
4184 data ((caib(6,i,j),j=1,11),i=1,9)/ &
4185 .000,0.098,0.196,0.295,0.394,0.494,0.594,0.695,0.796,0.898,1.000, &
4186 .000,0.096,0.193,0.290,0.389,0.488,0.588,0.690,0.792,0.895,1.000, &
4187 .000,0.092,0.186,0.281,0.378,0.477,0.577,0.680,0.784,0.891,1.000, &
4188 .000,0.086,0.174,0.264,0.358,0.455,0.556,0.661,0.769,0.882,1.000, &
4189 .000,0.075,0.154,0.237,0.325,0.419,0.518,0.626,0.741,0.865,1.000, &
4190 .000,0.062,0.129,0.201,0.279,0.366,0.462,0.571,0.694,0.836,1.000, &
4191 .000,0.049,0.102,0.162,0.229,0.305,0.394,0.501,0.631,0.793,1.000, &
4192 .000,0.038,0.080,0.127,0.182,0.245,0.323,0.422,0.550,0.730,1.000, &
4193 .000,0.030,0.064,0.100,0.142,0.192,0.254,0.334,0.448,0.627,1.000/
4194 data ((caib(7,i,j),j=1,11),i=1,9)/ &
4195 .000,0.098,0.198,0.296,0.396,0.496,0.596,0.696,0.797,0.898,1.000, &
4196 .000,0.097,0.194,0.293,0.392,0.491,0.591,0.693,0.794,0.897,1.000, &
4197 .000,0.094,0.190,0.286,0.384,0.483,0.583,0.686,0.789,0.894,1.000, &
4198 .000,0.089,0.180,0.274,0.369,0.467,0.568,0.672,0.778,0.887,1.000, &
4199 .000,0.081,0.165,0.252,0.344,0.440,0.541,0.646,0.758,0.875,1.000, &
4200 .000,0.069,0.142,0.221,0.306,0.397,0.496,0.604,0.722,0.854,1.000, &
4201 .000,0.056,0.116,0.182,0.256,0.338,0.432,0.540,0.666,0.816,1.000, &
4202 .000,0.043,0.090,0.143,0.203,0.273,0.355,0.455,0.583,0.754,1.000, &
4203 .000,0.034,0.070,0.111,0.157,0.210,0.276,0.359,0.474,0.650,1.000/
4204 data ((caib(8,i,j),j=1,11),i=1,9)/ &
4205 .000,0.099,0.198,0.298,0.398,0.497,0.598,0.698,0.798,0.899,1.000, &
4206 .000,0.098,0.196,0.295,0.394,0.494,0.594,0.695,0.796,0.898,1.000, &
4207 .000,0.096,0.193,0.290,0.390,0.489,0.589,0.690,0.793,0.896,1.000, &
4208 .000,0.093,0.186,0.282,0.379,0.478,0.578,0.681,0.786,0.892,1.000, &
4209 .000,0.086,0.175,0.266,0.361,0.458,0.558,0.663,0.771,0.883,1.000, &
4210 .000,0.076,0.156,0.240,0.330,0.423,0.523,0.630,0.744,0.867,1.000, &
4211 .000,0.063,0.130,0.203,0.282,0.369,0.465,0.572,0.694,0.834,1.000, &
4212 .000,0.049,0.102,0.161,0.226,0.299,0.385,0.486,0.611,0.774,1.000, &
4213 .000,0.038,0.078,0.122,0.172,0.229,0.297,0.382,0.498,0.672,1.000/
4214 data ((caib(9,i,j),j=1,11),i=1,9)/ &
4215 .000,0.099,0.199,0.298,0.398,0.498,0.598,0.699,0.799,0.899,1.000, &
4216 .000,0.099,0.198,0.298,0.398,0.497,0.598,0.698,0.798,0.899,1.000, &
4217 .000,0.098,0.196,0.295,0.394,0.494,0.594,0.695,0.796,0.898,1.000, &
4218 .000,0.096,0.193,0.290,0.389,0.488,0.588,0.690,0.792,0.895,1.000, &
4219 .000,0.092,0.185,0.280,0.376,0.474,0.575,0.678,0.782,0.890,1.000, &
4220 .000,0.084,0.170,0.259,0.351,0.447,0.547,0.652,0.762,0.878,1.000, &
4221 .000,0.071,0.146,0.224,0.308,0.398,0.494,0.601,0.718,0.850,1.000, &
4222 .000,0.056,0.114,0.178,0.248,0.325,0.412,0.514,0.638,0.793,1.000, &
4223 .000,0.042,0.086,0.134,0.186,0.246,0.318,0.405,0.521,0.691,1.000/
4224 data ((caib(10,i,j),j=1,11),i=1,9)/ &
4225 .000,0.100,0.200,0.300,0.400,0.500,0.600,0.700,0.800,0.900,1.000, &
4226 .000,0.100,0.200,0.300,0.400,0.500,0.600,0.700,0.800,0.900,1.000, &
4227 .000,0.100,0.200,0.300,0.400,0.500,0.600,0.700,0.800,0.900,1.000, &
4228 .000,0.100,0.199,0.298,0.398,0.498,0.598,0.698,0.798,0.899,1.000, &
4229 .000,0.098,0.196,0.294,0.392,0.491,0.590,0.691,0.793,0.896,1.000, &
4230 .000,0.092,0.185,0.278,0.374,0.470,0.570,0.671,0.777,0.886,1.000, &
4231 .000,0.081,0.162,0.246,0.333,0.424,0.521,0.625,0.738,0.862,1.000, &
4232 .000,0.063,0.128,0.196,0.270,0.349,0.438,0.540,0.661,0.809,1.000, &
4233 .000,0.046,0.094,0.146,0.202,0.264,0.337,0.426,0.542,0.710,1.000/
4234 data ((caib(11,i,j),j=1,11),i=1,9)/ &
4235 .000,0.101,0.202,0.302,0.402,0.502,0.602,0.702,0.802,0.901,1.000, &
4236 .000,0.102,0.202,0.303,0.404,0.504,0.604,0.703,0.802,0.902,1.000, &
4237 .000,0.102,0.205,0.306,0.406,0.506,0.606,0.706,0.804,0.902,1.000, &
4238 .000,0.104,0.207,0.309,0.410,0.510,0.609,0.707,0.805,0.902,1.000, &
4239 .000,0.106,0.208,0.309,0.409,0.508,0.606,0.705,0.803,0.902,1.000, &
4240 .000,0.102,0.202,0.298,0.395,0.493,0.590,0.690,0.790,0.894,1.000, &
4241 .000,0.091,0.179,0.267,0.357,0.449,0.545,0.647,0.755,0.872,1.000, &
4242 .000,0.073,0.142,0.214,0.290,0.372,0.462,0.563,0.681,0.822,1.000, &
4243 .000,0.053,0.104,0.158,0.217,0.281,0.356,0.446,0.562,0.726,1.000/
4244 data ((caif(i,j),j=1,11),i=1,9)/ &
4245 .000,0.099,0.198,0.297,0.397,0.496,0.597,0.697,0.798,0.899,1.000, &
4246 .000,0.098,0.196,0.294,0.394,0.494,0.594,0.694,0.796,0.898,1.000, &
4247 .000,0.096,0.192,0.290,0.388,0.487,0.587,0.689,0.792,0.895,1.000, &
4248 .000,0.092,0.185,0.280,0.376,0.476,0.576,0.678,0.783,0.890,1.000, &
4249 .000,0.085,0.173,0.263,0.357,0.454,0.555,0.659,0.768,0.881,1.000, &
4250 .000,0.076,0.154,0.237,0.324,0.418,0.517,0.624,0.738,0.864,1.000, &
4251 .000,0.063,0.131,0.203,0.281,0.366,0.461,0.567,0.688,0.830,1.000, &
4252 .000,0.052,0.107,0.166,0.232,0.305,0.389,0.488,0.610,0.770,1.000, &
4253 .000,0.043,0.088,0.136,0.189,0.248,0.317,0.400,0.510,0.675,1.000/
4254 !-----clouds within each of the high, middle, and low clouds are assumed
4255 ! to be maximally overlapped, and the cloud cover (cc) for a group
4256 ! (high, middle, or low) is the maximum cloud cover of all the layers
4257 ! within a group
4258 do i=1,m
4259 cc(i,1)=0.0
4260 cc(i,2)=0.0
4261 cc(i,3)=0.0
4262 enddo
4263 do i=1,m
4264 do k=1,ict(i)-1
4265 cc(i,1)=max(cc(i,1),fcld(i,k))
4266 enddo
4267 enddo
4268 do i=1,m
4269 do k=ict(i),icb(i)-1
4270 cc(i,2)=max(cc(i,2),fcld(i,k))
4271 enddo
4272 enddo
4273 do i=1,m
4274 do k=icb(i),np
4275 cc(i,3)=max(cc(i,3),fcld(i,k))
4276 enddo
4277 enddo
4278 !-----scale the cloud optical thickness.
4279 ! taucld(i,k,1) is the optical thickness for ice particles
4280 ! taucld(i,k,2) is the optical thickness for liquid particles
4281 ! taucld(i,k,3) is the optical thickness for rain drops
4282 do i=1,m
4283 do k=1,np
4284 if(k.lt.ict(i)) then
4285 kk=1
4286 elseif(k.ge.ict(i) .and. k.lt.icb(i)) then
4287 kk=2
4288 else
4289 kk=3
4290 endif
4291 tauclb(i,k) = 0.0
4292 tauclf(i,k) = 0.0
4293 taux=taucld(i,k,1)+taucld(i,k,2)+taucld(i,k,3)
4294 if (taux.gt.taux_min .and. fcld(i,k).gt.fcld_min) then
4295 !-----normalize cloud cover following eq. (7.8)
4296 fa=fcld(i,k)/cc(i,kk)
4297 !-----table look-up
4298 taux=min(taux,32._fp_kind)
4299 fm=cosz(i)/dm
4300 ft=(log10(taux)-t1)/dt
4301 fa=fa/da
4302 im=int(fm+1.5)
4303 it=int(ft+1.5)
4304 ia=int(fa+1.5)
4305 im=max(im,2)
4306 it=max(it,2)
4307 ia=max(ia,2)
4308 im=min(im,nm-1)
4309 it=min(it,nt-1)
4310 ia=min(ia,na-1)
4311 fm=fm-float(im-1)
4312 ft=ft-float(it-1)
4313 fa=fa-float(ia-1)
4314 !-----scale cloud optical thickness for beam radiation following eq. (7.3)
4315 ! the scaling factor, xai, is a function of the solar zenith
4316 ! angle, optical thickness, and cloud cover.
4317 xai= (-caib(im-1,it,ia)*(1.-fm)+ &
4318 caib(im+1,it,ia)*(1.+fm))*fm*.5+caib(im,it,ia)*(1.-fm*fm)
4319 xai=xai+(-caib(im,it-1,ia)*(1.-ft)+ &
4320 caib(im,it+1,ia)*(1.+ft))*ft*.5+caib(im,it,ia)*(1.-ft*ft)
4321 xai=xai+(-caib(im,it,ia-1)*(1.-fa)+ &
4322 caib(im,it,ia+1)*(1.+fa))*fa*.5+caib(im,it,ia)*(1.-fa*fa)
4323 xai= xai-2.*caib(im,it,ia)
4324 xai=max(xai,0.0_fp_kind)
4325 xai=min(xai,1.0_fp_kind)
4326 tauclb(i,k) = taux*xai
4327 !-----scale cloud optical thickness for diffuse radiation following eq. (7.4)
4328 ! the scaling factor, xai, is a function of the cloud optical
4329 ! thickness and cover but not the solar zenith angle.
4330 xai= (-caif(it-1,ia)*(1.-ft)+ &
4331 caif(it+1,ia)*(1.+ft))*ft*.5+caif(it,ia)*(1.-ft*ft)
4332 xai=xai+(-caif(it,ia-1)*(1.-fa)+ &
4333 caif(it,ia+1)*(1.+fa))*fa*.5+caif(it,ia)*(1.-fa*fa)
4334 xai= xai-caif(it,ia)
4335 xai=max(xai,0.0_fp_kind)
4336 xai=min(xai,1.0_fp_kind)
4337 tauclf(i,k) = taux*xai
4338 endif
4339 enddo
4340 enddo
4341 return
4342 end subroutine cloud_scale
4344 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
4345 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
4347 subroutine delta_eddington(tau,ssc,g0,cza,rr,tt,td)
4349 !*********************************************************************
4350 !
4351 !-----uses the delta-eddington approximation to compute the
4352 ! bulk scattering properties of a single layer
4353 ! coded following king and harshvardhan (jas, 1986)
4354 !
4355 ! inputs:
4356 !
4357 ! tau: the effective optical thickness
4358 ! ssc: the effective single scattering albedo
4359 ! g0: the effective asymmetry factor
4360 ! cza: cosine of solar zenith angle
4361 !
4362 ! outputs:
4363 !
4364 ! rr: the layer reflection of the direct beam
4365 ! tt: the layer diffuse transmission of the direct beam
4366 ! td: the layer direct transmission of the direct beam
4367 !
4368 !*********************************************************************
4369 implicit none
4370 !*********************************************************************
4372 real(Kind=fp_kind) zero,one,two,three,four,fourth,seven,thresh
4373 parameter (one =1., three=3.)
4374 parameter (two =2., seven=7.)
4375 parameter (four=4., fourth=.25)
4376 parameter (zero=0., thresh=1.e-8)
4378 !-----input parameters
4379 real(Kind=fp_kind) tau,ssc,g0,cza
4381 !-----output parameters
4382 real(Kind=fp_kind) rr,tt,td
4384 !-----temporary parameters
4386 real(Kind=fp_kind) zth,ff,xx,taup,sscp,gp,gm1,gm2,gm3,akk,alf1,alf2, &
4387 all,bll,st7,st8,cll,dll,fll,ell,st1,st2,st3,st4
4388 real(Kind=fp_kind) taupdzth,akkdtaup
4390 !---------------------------------------------------------------------
4392 zth = cza
4394 ! delta-eddington scaling of single scattering albedo,
4395 ! optical thickness, and asymmetry factor,
4396 ! k & h eqs(27-29)
4398 ff = g0*g0
4399 xx = one-ff*ssc
4400 taup= tau*xx
4401 sscp= ssc*(one-ff)/xx
4402 gp = g0/(one+g0)
4404 ! gamma1, gamma2, and gamma3. see table 2 and eq(26) k & h
4405 ! ssc and gp are the d-s single scattering
4406 ! albedo and asymmetry factor.
4408 xx = three*gp
4409 gm1 = (seven - sscp*(four+xx))*fourth
4410 gm2 = -(one - sscp*(four-xx))*fourth
4412 ! akk is k as defined in eq(25) of k & h
4414 akk = sqrt((gm1+gm2)*(gm1-gm2))
4416 xx = akk * zth
4417 if (abs((one-xx)*(one+xx)) .lt. thresh) then
4418 zth = zth + 0.001
4419 xx = akk * zth
4420 endif
4421 st7 = one - xx
4422 st8 = one + xx
4423 st3 = st7 * st8
4424 ! if (abs(st3) .lt. thresh) then
4425 ! zth = zth + 0.001
4426 ! xx = akk * zth
4427 ! st7 = one - xx
4428 ! st8 = one + xx
4429 ! st3 = st7 * st8
4430 ! endif
4432 ! extinction of the direct beam transmission
4433 td=0.
4434 taupdzth=taup/zth
4435 if (taupdzth .lt. 40. ) td = exp(-taup/zth)
4436 ! alf1 and alf2 are alpha1 and alpha2 from eqs (23) & (24) of k & h
4438 gm3 = (two - zth*three*gp)*fourth
4439 xx = gm1 - gm2
4440 alf1 = gm1 - gm3 * xx
4441 alf2 = gm2 + gm3 * xx
4443 ! all is last term in eq(21) of k & h
4444 ! bll is last term in eq(22) of k & h
4446 xx = akk * two
4447 all = (gm3 - alf2 * zth )*xx*td
4448 bll = (one - gm3 + alf1*zth)*xx
4450 xx = akk * gm3
4451 cll = (alf2 + xx) * st7
4452 dll = (alf2 - xx) * st8
4454 xx = akk * (one-gm3)
4455 fll = (alf1 + xx) * st8
4456 ell = (alf1 - xx) * st7
4458 st2=0.
4459 akkdtaup=akk*taup
4460 if (akkdtaup.lt.40.) st2 = exp(-akkdtaup)
4461 st4 = st2 * st2
4463 st1 = sscp / ((akk+gm1 + (akk-gm1)*st4) * st3)
4465 ! rr is r-hat of eq(21) of k & h
4466 ! tt is diffuse part of t-hat of eq(22) of k & h
4468 rr = ( cll-dll*st4 -all*st2)*st1
4469 tt = - ((fll-ell*st4)*td-bll*st2)*st1
4471 rr = max(rr,zero)
4472 tt = max(tt,zero)
4473 tt = tt+td
4474 end subroutine delta_eddington
4476 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
4477 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
4480 subroutine twostream_adding (m,np,ict,icb,ih1,ih2,im1,im2,is1,is2, &
4481 cc,rr,tt,td,rs,ts,fclr,fall,falld,fsdir,fsdif)
4483 !*******************************************************************
4484 ! compute upward and downward fluxes using a two-stream adding method
4485 ! following equations (6.9)-(6.16).
4486 !
4487 ! clouds are grouped into high, middle, and low clouds which are assumed
4488 ! randomly overlapped. it involves a maximum of 8 sets of calculations.
4489 ! in each set of calculations, each atmospheric layer is homogeneous,
4490 ! either totally filled with clouds or without clouds.
4491 ! input parameters:
4492 !
4493 ! m: number of soundings
4494 ! np: number of atmospheric layers
4495 ! ict: the level separating high and middle clouds
4496 ! icb: the level separating middle and low clouds
4497 ! ih1,ih2,im1,im2,is1,is2: indices for three group of clouds
4498 ! cc: effective cloud covers for high, middle and low clouds
4499 ! rr: reflection of a layer illuminated by beam radiation
4500 ! tt: total (direct+diffuse) transmission of a layer illuminated
4501 ! by beam radiation
4502 ! td: direct beam transmission
4503 ! rs: reflection of a layer illuminated by diffuse radiation
4504 ! ts: transmission of a layer illuminated by diffuse radiation
4505 !
4506 ! output parameters:
4507 !
4508 ! fclr: clear-sky flux divergence (downward minus upward)
4509 ! fall: all-sky flux divergence (downward minus upward)
4510 ! fsdir: surface direct downward flux
4511 ! fsdif: surface diffuse downward flux
4512 !
4513 !*********************************************************************c
4514 !ccshie 8/19/04
4515 implicit none
4516 !-----input parameters
4517 integer m,np,ict(m),icb(m),ih1,ih2,im1,im2,is1,is2
4518 real(Kind=fp_kind) rr(m,np+1,2),tt(m,np+1,2),td(m,np+1,2)
4519 real(Kind=fp_kind) rs(m,np+1,2),ts(m,np+1,2)
4520 real(Kind=fp_kind) cc(m,3)
4521 !-----temporary array
4522 integer i,k,ih,im,is
4523 real(Kind=fp_kind) denm,xx,yy
4524 real(Kind=fp_kind) fupdif
4525 real(Kind=fp_kind) :: rra(m,np+1,2,2)
4526 real(Kind=fp_kind) :: tta(m,np+1,2,2)
4527 real(Kind=fp_kind) :: tda(m,np+1,2,2)
4528 real(Kind=fp_kind) :: rsa(m,np+1,2,2)
4529 real(Kind=fp_kind) :: rxa(m,np+1,2,2)
4530 real(Kind=fp_kind) :: ch(m)
4531 real(Kind=fp_kind) :: cm(m)
4532 real(Kind=fp_kind) :: ct(m)
4533 real(Kind=fp_kind) :: flxdn(m,np+1)
4534 real(Kind=fp_kind) :: fdndir(m)
4535 real(Kind=fp_kind) :: fdndif(m)
4536 real(Kind=fp_kind) flxdnu(m,np+1),flxdnd(m,np+1)
4538 !-----output parameters
4539 real(Kind=fp_kind) fclr(m,np+1),fall(m,np+1)
4540 real(Kind=fp_kind) falld(m,np+1)
4541 real(Kind=fp_kind) fsdir(m),fsdif(m)
4544 if(overcast) then
4545 ! ih1=2 ; im1=2 ; is1=2
4546 else
4547 ! ih1=1 ; im1=1 ; is1=1
4548 endif
4549 ! ih2=2 ; im2=2 ; is2=2
4553 !-----initialize all-sky flux (fall) and surface downward fluxes
4554 do k=1,np+1
4555 do i=1,m
4556 fclr(i,k)=0.0
4557 fall(i,k)=0.0
4558 falld(i,k)=0.0
4559 enddo
4560 enddo
4562 do i=1,m
4563 fsdir(i)=0.0
4564 fsdif(i)=0.0
4565 enddo
4567 !-----compute transmittances and reflectances for a composite of
4568 ! layers. layers are added one at a time, going down from the top.
4569 ! tda is the composite direct transmittance illuminated by beam radiation
4570 ! tta is the composite total transmittance illuminated by
4571 ! beam radiation
4572 ! rsa is the composite reflectance illuminated from below
4573 ! by diffuse radiation
4574 ! tta and rsa are computed from eqs. (6.10) and (6.12)
4575 !-----for high clouds
4576 ! ih=1 for clear-sky condition, ih=2 for cloudy-sky condition
4578 do ih=ih1,ih2
4580 do i=1,m
4581 tda(i,1,ih,1)=td(i,1,ih)
4582 tta(i,1,ih,1)=tt(i,1,ih)
4583 rsa(i,1,ih,1)=rs(i,1,ih)
4584 tda(i,1,ih,2)=td(i,1,ih)
4585 tta(i,1,ih,2)=tt(i,1,ih)
4586 rsa(i,1,ih,2)=rs(i,1,ih)
4587 enddo
4589 do i=1,m
4590 do k=2,ict(i)-1
4591 denm = ts(i,k,ih)/( 1.-rsa(i,k-1,ih,1)*rs(i,k,ih))
4592 tda(i,k,ih,1)= tda(i,k-1,ih,1)*td(i,k,ih)
4593 tta(i,k,ih,1)= tda(i,k-1,ih,1)*tt(i,k,ih) &
4594 +(tda(i,k-1,ih,1)*rsa(i,k-1,ih,1)*rr(i,k,ih) &
4595 +tta(i,k-1,ih,1)-tda(i,k-1,ih,1))*denm !additional -tda(i,k-1,ih,1)
4596 rsa(i,k,ih,1)= rs(i,k,ih)+ts(i,k,ih) &
4597 *rsa(i,k-1,ih,1)*denm
4598 if(tda(i,k,ih,1).lt.1.e-10) tda(i,k,ih,1)=0. !!
4599 if(tta(i,k,ih,1).lt.1.e-10) tta(i,k,ih,1)=0. !!
4600 tda(i,k,ih,2)= tda(i,k,ih,1)
4601 tta(i,k,ih,2)= tta(i,k,ih,1)
4602 rsa(i,k,ih,2)= rsa(i,k,ih,1)
4603 enddo
4604 enddo
4606 !-----for middle clouds
4607 ! im=1 for clear-sky condition, im=2 for cloudy-sky condition
4609 do im=im1,im2
4610 do i=1,m
4611 do k=ict(i),icb(i)-1
4612 denm = ts(i,k,im)/( 1.-rsa(i,k-1,ih,im)*rs(i,k,im))
4613 tda(i,k,ih,im)= tda(i,k-1,ih,im)*td(i,k,im)
4614 tta(i,k,ih,im)= tda(i,k-1,ih,im)*tt(i,k,im) &
4615 +(tda(i,k-1,ih,im)*rsa(i,k-1,ih,im)*rr(i,k,im) &
4616 +tta(i,k-1,ih,im)-tda(i,k-1,ih,im))*denm !additional -tda(i,k-1,ih,im)
4617 rsa(i,k,ih,im)= rs(i,k,im)+ts(i,k,im) &
4618 *rsa(i,k-1,ih,im)*denm
4619 if(tda(i,k,ih,im).lt.1.e-10) tda(i,k,ih,im)=0. !!
4620 if(tta(i,k,ih,im).lt.1.e-10) tta(i,k,ih,im)=0. !!
4621 enddo
4622 enddo
4623 enddo ! end im loop
4625 enddo ! end ih loop
4627 !-----layers are added one at a time, going up from the surface.
4628 ! rra is the composite reflectance illuminated by beam radiation
4629 ! rxa is the composite reflectance illuminated from above
4630 ! by diffuse radiation
4631 ! rra and rxa are computed from eqs. (6.9) and (6.11)
4632 !-----for the low clouds
4633 ! is=1 for clear-sky condition, is=2 for cloudy-sky condition
4635 do is=is1,is2
4637 do i=1,m
4638 rra(i,np+1,1,is)=rr(i,np+1,is)
4639 rxa(i,np+1,1,is)=rs(i,np+1,is)
4640 rra(i,np+1,2,is)=rr(i,np+1,is)
4641 rxa(i,np+1,2,is)=rs(i,np+1,is)
4642 enddo
4643 do i=1,m
4644 do k=np,icb(i),-1
4645 denm=ts(i,k,is)/( 1.-rs(i,k,is)*rxa(i,k+1,1,is) )
4646 rra(i,k,1,is)=rr(i,k,is)+(td(i,k,is)*rra(i,k+1,1,is) &
4647 +(tt(i,k,is)-td(i,k,is))*rxa(i,k+1,1,is))*denm !additional -td(i,k,is)
4648 rxa(i,k,1,is)= rs(i,k,is)+ts(i,k,is) &
4649 *rxa(i,k+1,1,is)*denm
4650 rra(i,k,2,is)=rra(i,k,1,is)
4651 rxa(i,k,2,is)=rxa(i,k,1,is)
4652 enddo
4653 enddo
4654 !-----for middle clouds
4655 do im=im1,im2
4656 do i=1,m
4657 do k=icb(i)-1,ict(i),-1
4658 denm=ts(i,k,im)/( 1.-rs(i,k,im)*rxa(i,k+1,im,is) )
4659 rra(i,k,im,is)= rr(i,k,im)+(td(i,k,im)*rra(i,k+1,im,is) &
4660 +(tt(i,k,im)-td(i,k,im))*rxa(i,k+1,im,is))*denm !additiona -td(i,k,im)
4661 rxa(i,k,im,is)= rs(i,k,im)+ts(i,k,im) &
4662 *rxa(i,k+1,im,is)*denm
4663 enddo
4664 enddo
4665 enddo ! end im loop
4667 enddo ! end is loop
4669 !-----integration over eight sky situations.
4670 ! ih, im, is denotes high, middle and low cloud groups.
4672 do ih=ih1,ih2
4674 !-----clear portion
4675 if(ih.eq.1) then
4676 do i=1,m
4677 ch(i)=1.0-cc(i,1)
4678 enddo
4679 else
4680 !-----cloudy portion
4681 do i=1,m
4682 ch(i)=cc(i,1)
4683 enddo
4684 endif
4686 do im=im1,im2
4688 !-----clear portion
4689 if(im.eq.1) then
4690 do i=1,m
4691 cm(i)=ch(i)*(1.0-cc(i,2))
4692 enddo
4693 else
4694 !-----cloudy portion
4695 do i=1,m
4696 cm(i)=ch(i)*cc(i,2)
4697 enddo
4698 endif
4700 do is=is1,is2
4702 !-----clear portion
4703 if(is.eq.1) then
4704 do i=1,m
4705 ct(i)=cm(i)*(1.0-cc(i,3))
4706 enddo
4707 else
4708 !-----cloudy portion
4709 do i=1,m
4710 ct(i)=cm(i)*cc(i,3)
4711 enddo
4712 endif
4713 !-----add one layer at a time, going down.
4714 do i=1,m
4715 do k=icb(i),np
4716 denm = ts(i,k,is)/( 1.-rsa(i,k-1,ih,im)*rs(i,k,is) )
4717 tda(i,k,ih,im)= tda(i,k-1,ih,im)*td(i,k,is)
4718 tta(i,k,ih,im)= tda(i,k-1,ih,im)*tt(i,k,is) &
4719 +(tda(i,k-1,ih,im)*rr(i,k,is) &
4720 *rsa(i,k-1,ih,im)+tta(i,k-1,ih,im)-tda(i,k-1,ih,im))*denm !additional -tda(i,k-1,ih,im)
4721 rsa(i,k,ih,im)= rs(i,k,is)+ts(i,k,is) &
4722 *rsa(i,k-1,ih,im)*denm
4723 if(tda(i,k,ih,im).lt.1.e-10) tda(i,k,ih,im)=0. !!
4724 if(tta(i,k,ih,im).lt.1.e-10) tta(i,k,ih,im)=0. !!
4725 enddo
4726 enddo
4727 !-----add one layer at a time, going up.
4728 do i=1,m
4729 do k=ict(i)-1,1,-1
4730 denm =ts(i,k,ih)/(1.-rs(i,k,ih)*rxa(i,k+1,im,is))
4731 rra(i,k,im,is)= rr(i,k,ih)+(td(i,k,ih)*rra(i,k+1,im,is) &
4732 +(tt(i,k,ih)-td(i,k,ih))*rxa(i,k+1,im,is))*denm !addittional -td(i,k,ih)
4733 rxa(i,k,im,is)= rs(i,k,ih)+ts(i,k,ih) &
4734 *rxa(i,k+1,im,is)*denm
4735 enddo
4736 enddo
4737 !-----compute fluxes following eq. (6.15) for fupdif and
4738 ! eq. (6.16) for (fdndir+fdndif)
4739 ! fdndir is the direct downward flux
4740 ! fdndif is the diffuse downward flux
4741 ! fupdif is the diffuse upward flux
4742 do k=2,np+1
4743 do i=1,m
4744 denm= 1./(1.-rsa(i,k-1,ih,im)*rxa(i,k,im,is))
4745 fdndir(i)= tda(i,k-1,ih,im)
4746 xx= tda(i,k-1,ih,im)*rra(i,k,im,is)
4747 yy= tta(i,k-1,ih,im)-tda(i,k-1,ih,im) !additional -tda(i,k-1,ih,im)
4748 fdndif(i)= (xx*rsa(i,k-1,ih,im)+yy)*denm
4749 fupdif= (xx+yy*rxa(i,k,im,is))*denm
4750 flxdn(i,k)= fdndir(i)+fdndif(i)-fupdif
4751 flxdnu(i,k)=-fupdif
4752 flxdnd(i,k)=fdndir(i)+fdndif(i)
4753 enddo
4754 enddo
4755 do i=1,m
4756 flxdn(i,1)=1.0-rra(i,1,im,is)
4757 flxdnu(i,1)=-rra(i,1,im,is)
4758 flxdnd(i,1)=1.0
4759 enddo
4760 !-----summation of fluxes over all sky situations;
4761 ! the term in the brackets of eq. (7.11)
4762 do k=1,np+1
4763 do i=1,m
4764 if(ih.eq.1 .and. im.eq.1 .and. is.eq.1) then
4765 fclr(i,k)=flxdn(i,k)
4766 endif
4767 fall(i,k)=fall(i,k)+flxdn(i,k)*ct(i)
4768 falld(i,k)=falld(i,k)+flxdnd(i,k)*ct(i)
4769 enddo
4770 enddo
4772 do i=1,m
4773 fsdir(i)=fsdir(i)+fdndir(i)*ct(i)
4774 fsdif(i)=fsdif(i)+fdndif(i)*ct(i)
4775 enddo
4777 enddo ! end is loop
4779 enddo ! end im loop
4781 enddo ! end ih loop
4784 return
4785 end subroutine twostream_adding
4786 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
4787 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
4789 subroutine reduce_flux (m,np,swc,u1,du,nu,swh,w1,dw,nw,tbl,df)
4790 !*****************************************************************
4791 !-----compute the reduction of clear-sky downward solar flux
4792 ! due to co2 absorption.
4793 implicit none
4794 !-----input parameters
4795 integer m,np,nu,nw
4796 real(Kind=fp_kind) u1,du,w1,dw
4797 real(Kind=fp_kind) swc(m,np+1),swh(m,np+1),tbl(nu,nw)
4798 !-----output (undated) parameter
4799 real(Kind=fp_kind) df(m,np+1)
4800 !-----temporary array
4801 integer i,k,ic,iw
4802 real(Kind=fp_kind) clog,wlog,dc,dd,x0,x1,x2,y0,y1,y2
4803 !-----table look-up for the reduction of clear-sky solar
4804 x0=u1+float(nu)*du
4805 y0=w1+float(nw)*dw
4806 x1=u1-0.5*du
4807 y1=w1-0.5*dw
4808 do k= 2, np+1
4809 do i= 1, m
4810 clog=min(swc(i,k),x0)
4811 clog=max(swc(i,k),x1)
4812 wlog=min(swh(i,k),y0)
4813 wlog=max(swh(i,k),y1)
4814 ic=int( (clog-x1)/du+1.)
4815 iw=int( (wlog-y1)/dw+1.)
4816 if(ic.lt.2)ic=2
4817 if(iw.lt.2)iw=2
4818 if(ic.gt.nu)ic=nu
4819 if(iw.gt.nw)iw=nw
4820 dc=clog-float(ic-2)*du-u1
4821 dd=wlog-float(iw-2)*dw-w1
4822 x2=tbl(ic-1,iw-1)+(tbl(ic-1,iw)-tbl(ic-1,iw-1))/dw*dd
4823 y2=x2+(tbl(ic,iw-1)-tbl(ic-1,iw-1))/du*dc
4824 df(i,k)=df(i,k)+y2
4825 enddo
4826 enddo
4827 return
4828 end subroutine reduce_flux
4830 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
4831 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
4833 subroutine o3_profile (np, pres, ozone, its, ite, kts, kte, p2d, o3)
4834 implicit none
4836 integer m,np,its,ite,kts,kte
4837 integer i,k,ko,kk
4838 real(Kind=fp_kind) pres(np),ozone(np)
4839 real(Kind=fp_kind) p(its:ite,kts:kte),o3(its:ite,kts:kte)
4840 real(Kind=fp_kind),intent(in) :: p2d(its:ite,kts:kte)
4841 ! statement function
4842 real(Kind=fp_kind) linear, x1, y1, x2, y2, x
4843 linear(x1, y1, x2, y2, x) = &
4844 (y1 * (x2 - x) + y2 * (x - x1)) / (x2 - x1)
4846 p = p2d
4847 !
4848 do k = 1,np
4849 pres(k) = log(pres(k)) !toshii
4850 enddo
4851 do k = kts,kte
4852 do i = its, ite
4853 p(i,k) = log(p(i,k)) !toshii
4854 end do
4855 end do
4857 ! assume the pressure at model top is greater than pres(1)
4858 ! if it is not, this part needs to change
4860 do i = its, ite
4861 ko = 1
4862 do k = kts+1, kte
4863 do while (ko .lt. np .and. p(i,k) .gt. pres(ko))
4864 ko = ko + 1
4865 end do
4866 o3(i,k) = linear (pres(ko), ozone(ko), &
4867 pres(ko-1), ozone(ko-1), &
4868 p(i,k))
4869 ko = ko - 1
4870 end do
4871 end do
4873 ! calculate top lay o3
4874 do i = its, ite
4875 ko = 1
4876 k = kts
4877 do while (ko .le. np .and. p(i,k) .gt. pres(ko))
4878 ko = ko + 1
4879 end do
4880 if (ko-1 .le. 1) then
4881 o3(i,k)=ozone(k)
4882 else
4883 o3(i,k)=0.
4884 do kk=ko-2,1,-1
4885 o3(i,k)=o3(i,k)+ozone(kk)*(pres(kk+1)-pres(kk))
4886 enddo
4887 o3(i,k)=o3(i,k)/(pres(ko-1)-pres(1))
4888 endif
4889 end do
4891 end subroutine o3_profile
4893 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
4894 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
4896 subroutine lwrad (m,np,pl,ta,wa,oa,tb,ts,emiss, &
4897 cwc,reff,fcld,ict,icb, &
4898 taual,ssaal,asyal,&
4899 flx,acflxd,acflxu)
4900 !***********************************************************************
4901 ! this routine computes ir fluxes due to water vapor, co2, o3,
4902 ! trace gases (n2o, ch4, cfc11, cfc12, cfc22, co2-minor),
4903 ! clouds, and aerosols.
4904 !
4905 ! this is a vectorized code. it computes fluxes simultaneously for
4906 ! m soundings.
4907 !
4908 ! some detailed descriptions of the radiation routine are given in
4909 ! chou and suarez (1994).
4910 !
4911 ! ice and liquid cloud particles are allowed to co-exist in any of the
4912 ! np layers.
4913 !
4914 ! if no information is available for the effective cloud particle size,
4915 ! reff, default values of 10 micron for liquid water and 75 micron
4916 ! for ice can be used.
4917 !
4918 ! the maximum-random assumption is applied for cloud overlapping.
4919 ! clouds are grouped into high, middle, and low clouds separated by the
4920 ! level indices ict and icb. within each of the three groups, clouds
4921 ! are assumed maximally overlapped, and the cloud cover of a group is
4922 ! the maximum cloud cover of all the layers in the group. clouds among
4923 ! the three groups are assumed randomly overlapped. the indices ict and
4924 ! icb correpond approximately to the 400 mb and 700 mb levels.
4925 !
4926 ! aerosols are allowed to be in any of the np layers. aerosol optical
4927 ! properties can be specified as functions of height and spectral band.
4928 !
4929 ! the ir spectrum is divided into nine bands:
4930 !
4931 ! band wavenumber (/cm) absorber
4932 !
4933 ! 1 0 - 340 h2o
4934 ! 2 340 - 540 h2o
4935 ! 3 540 - 800 h2o,cont,co2
4936 ! 4 800 - 980 h2o,cont
4937 ! co2,f11,f12,f22
4938 ! 5 980 - 1100 h2o,cont,o3
4939 ! co2,f11
4940 ! 6 1100 - 1215 h2o,cont
4941 ! n2o,ch4,f12,f22
4942 ! 7 1215 - 1380 h2o,cont
4943 ! n2o,ch4
4944 ! 8 1380 - 1900 h2o
4945 ! 9 1900 - 3000 h2o
4946 !
4947 ! in addition, a narrow band in the 17 micrometer region is added to
4948 ! compute flux reduction due to n2o
4949 !
4950 ! 10 540 - 620 h2o,cont,co2,n2o
4951 !
4952 ! band 3 (540-800/cm) is further divided into 3 sub-bands :
4953 !
4954 ! subband wavenumber (/cm)
4955 !
4956 ! 1 540 - 620
4957 ! 2 620 - 720
4958 ! 3 720 - 800
4959 !
4960 !---- input parameters units size
4961 !
4962 ! number of soundings (m) -- 1
4963 ! number of atmospheric layers (np) -- 1
4964 ! level pressure (pl) mb m*(np+1)
4965 ! layer temperature (ta) k m*np
4966 ! layer specific humidity (wa) g/g m*np
4967 ! layer ozone mixing ratio by mass (oa) g/g m*np
4968 ! surface air temperature (tb) k m
4969 ! surface temperature (ts) k m
4970 ! surface emissivity (emiss) fraction m*10
4971 ! input option for cloud fractional cover -- 1
4972 ! (overcast) (see explanation above)
4973 ! input option for cloud optical thickness -- 1
4974 ! (cldwater) (see explanation above)
4975 ! cloud water mixing ratio (cwc) gm/gm m*np*3
4976 ! index 1 for ice particles
4977 ! index 2 for liquid drops
4978 ! index 3 for rain drops
4979 ! cloud optical thickness (taucl) -- m*np*3
4980 ! index 1 for ice particles
4981 ! index 2 for liquid drops
4982 ! index 3 for rain drops
4983 ! effective cloud-particle size (reff) micrometer m*np*3
4984 ! index 1 for ice particles
4985 ! index 2 for liquid drops
4986 ! index 3 for rain drops
4987 ! cloud amount (fcld) fraction m*np
4988 ! level index separating high and middle -- 1
4989 ! clouds (ict)
4990 ! level index separating middle and low -- 1
4991 ! clouds (icb)
4992 ! aerosol optical thickness (taual) -- m*np*10
4993 ! aerosol single-scattering albedo (ssaal) -- m*np*10
4994 ! aerosol asymmetry factor (asyal) -- m*np*10
4995 ! high (see explanation above) -- 1
4996 ! trace (see explanation above) -- 1
4997 !
4998 ! data used in table look-up for transmittance calculations:
4999 !
5000 ! c1 , c2, c3: for co2 (band 3)
5001 ! o1 , o2, o3: for o3 (band 5)
5002 ! h11,h12,h13: for h2o (band 1)
5003 ! h21,h22,h23: for h2o (band 2)
5004 ! h81,h82,h83: for h2o (band 8)
5005 !
5006 !---- output parameters
5007 !
5008 ! net downward flux, all-sky (flx) w/m**2 m*(np+1)
5009 ! net downward flux, clear-sky (flc) w/m**2 m*(np+1)
5010 ! sensitivity of net downward flux
5011 ! to surface temperature (dfdts) w/m**2/k m*(np+1)
5012 ! emission by the surface (sfcem) w/m**2 m
5013 !
5014 ! notes:
5015 !
5016 ! (1) water vapor continuum absorption is included in 540-1380 /cm.
5017 ! (2) scattering is parameterized for clouds and aerosols.
5018 ! (3) diffuse cloud and aerosol transmissions are computed
5019 ! from exp(-1.66*tau).
5020 ! (4) if there are no clouds, flx=flc.
5021 ! (5) plevel(1) is the pressure at the top of the model atmosphere,
5022 ! and plevel(np+1) is the surface pressure.
5023 ! (6) downward flux is positive and upward flux is negative.
5024 ! (7) sfcem and dfdts are negative because upward flux is defined as negative.
5025 ! (8) for questions and coding errors, plaese contact ming-dah chou,
5026 ! code 913, nasa/goddard space flight center, greenbelt, md 20771.
5027 ! phone: 301-614-6192, fax: 301-614-6307,
5028 ! e-mail: chou@climate.gsfc.nasa.gov
5029 !
5030 !***************************************************************************
5031 implicit none
5032 !---- input parameters ------
5033 integer,intent(in) :: m,np,ict(m),icb(m)
5034 real(Kind=fp_kind) ,intent(in) :: pl(m,np+1),ta(m,np),wa(m,np),oa(m,np), &
5035 tb(m),ts(m), emiss(m,ib_lw)
5036 real(Kind=fp_kind) ,intent(in) :: cwc(m,np,3),reff(m,np,3), fcld(m,np)
5038 real(Kind=fp_kind) , intent(in) :: taual(m,np,ib_lw),ssaal(m,np,ib_lw),asyal(m,np,ib_lw)
5039 !---- output parameters ------
5040 real(Kind=fp_kind),intent(out) :: flx(m,np+1)
5043 real(Kind=fp_kind) :: flc(m,np+1),dfdts(m,np+1), sfcem(m)
5044 real(Kind=fp_kind) :: acflxu(m,np+1),acflxd(m,np+1) !upwelling and downwelling broadband LW flux [W/m2]
5046 !---- static data -----
5047 real(Kind=fp_kind) cb(6,10),xkw(9),xke(9),aw(9),bw(9),pm(9),fkw(6,9),gkw(6,3)
5048 real(Kind=fp_kind) aib(3,10),awb(4,10),aiw(4,10),aww(4,10),aig(4,10),awg(4,10)
5049 integer ne(9),mw(9)
5050 real(Kind=fp_kind) :: taucl(m,np,3)
5051 !-----parameters defining the size of the pre-computed tables for
5052 ! transmittance using table look-up.
5053 !c "nx" is the number of intervals in pressure
5054 ! "nx2" is the number of intervals in pressure
5055 ! "no" is the number of intervals in o3 amount
5056 ! "nc" is the number of intervals in co2 amount
5057 ! "nh" is the number of intervals in h2o amount
5058 integer nx2,no,nc,nh
5059 parameter (nx2=26,no=21,nc=30,nh=31) ! cccshie 9/15/04
5060 real(Kind=fp_kind) c1 (nx2,nc),c2 (nx2,nc),c3 (nx2,nc)
5061 real(Kind=fp_kind) o1 (nx2,no),o2 (nx2,no),o3 (nx2,no)
5062 real(Kind=fp_kind) h11(nx2,nh),h12(nx2,nh),h13(nx2,nh)
5063 real(Kind=fp_kind) h21(nx2,nh),h22(nx2,nh),h23(nx2,nh)
5064 real(Kind=fp_kind) h71(nx2,nh),h72(nx2,nh),h73(nx2,nh)
5065 real(Kind=fp_kind) h81(nx2,nh),h82(nx2,nh),h83(nx2,nh)
5066 !---- temporary arrays -----
5067 real(Kind=fp_kind) pa(m,np),dt(m,np)
5068 real(Kind=fp_kind) sh2o(m,np+1),swpre(m,np+1),swtem(m,np+1)
5069 real(Kind=fp_kind) sco3(m,np+1),scopre(m,np+1),scotem(m,np+1)
5070 real(Kind=fp_kind) dh2o(m,np),dcont(m,np),dco2(m,np),do3(m,np)
5071 real(Kind=fp_kind) dn2o(m,np),dch4(m,np)
5072 real(Kind=fp_kind) df11(m,np),df12(m,np),df22(m,np)
5073 real(Kind=fp_kind) th2o(m,6),tcon(m,3),tco2(m,6,2)
5074 real(Kind=fp_kind) tn2o(m,4),tch4(m,4),tcom(m,6)
5075 real(Kind=fp_kind) tf11(m),tf12(m),tf22(m)
5076 real(Kind=fp_kind) h2oexp(m,np,6),conexp(m,np,3),co2exp(m,np,6,2)
5077 real(Kind=fp_kind) n2oexp(m,np,4),ch4exp(m,np,4),comexp(m,np,6)
5078 real(Kind=fp_kind) f11exp(m,np),f12exp(m,np),f22exp(m,np)
5079 real(Kind=fp_kind) blayer(m,0:np+1),blevel(m,np+1),dblayr(m,np+1),dbs(m)
5080 real(Kind=fp_kind) dp(m,np),cwp(m,np,3)
5081 real(Kind=fp_kind) trant(m),tranal(m),transfc(m,np+1),trantcr(m,np+1)
5082 real(Kind=fp_kind) flxu(m,np+1),flxd(m,np+1),flcu(m,np+1),flcd(m,np+1)
5083 real(Kind=fp_kind) rflx(m,np+1),rflc(m,np+1)
5084 integer it(m),im(m),ib(m)
5085 real(Kind=fp_kind) cldhi(m),cldmd(m),cldlw(m),tcldlyr(m,np),fclr(m)
5086 real(Kind=fp_kind) taerlyr(m,np)
5088 ! real(Kind=fp_kind) , allocatable :: pa(:,:),dt(:,:)
5089 ! real(Kind=fp_kind) , allocatable :: sh2o(:,:),swpre(:,:),swtem(:,:)
5090 ! real(Kind=fp_kind) , allocatable :: sco3(:,:),scopre(:,:),scotem(:,:)
5091 ! real(Kind=fp_kind) , allocatable :: dh2o(:,:),dcont(:,:),dco2(:,:),do3(:,:)
5092 ! real(Kind=fp_kind) , allocatable :: dn2o(:,:),dch4(:,:)
5093 ! real(Kind=fp_kind) , allocatable :: df11(:,:),df12(:,:),df22(:,:)
5094 ! real(Kind=fp_kind) , allocatable :: th2o(:,:),tcon(:,:),tco2(:,:,:)
5095 ! real(Kind=fp_kind) , allocatable :: tn2o(:,:),tch4(:,:),tcom(:,:)
5096 ! real(Kind=fp_kind) , allocatable :: tf11(:),tf12(:),tf22(:)
5097 ! real(Kind=fp_kind) , allocatable :: h2oexp(:,:,:),conexp(:,:,:),co2exp(:,:,:,:)
5098 ! real(Kind=fp_kind) , allocatable :: n2oexp(:,:,:),ch4exp(:,:,:),comexp(:,:,:)
5099 ! real(Kind=fp_kind) , allocatable :: f11exp(:,:),f12exp(:,:),f22exp(:,:)
5100 ! real(Kind=fp_kind) , allocatable :: blayer(:,:),blevel(:,:),dblayr(:,:),dbs(:)
5101 ! real(Kind=fp_kind) , allocatable :: dp(:,:),cwp(:,:,:)
5102 ! real(Kind=fp_kind),allocatable :: trant(:),tranal(:),transfc(:,:),trantcr(:,:)
5103 ! real(Kind=fp_kind) , allocatable :: flxu(:,:),flxd(:,:),flcu(:,:),flcd(:,:)
5104 ! real(Kind=fp_kind) , allocatable :: rflx(:,:),rflc(:,:)
5105 ! integer, allocatable :: it(:),im(:),ib(:)
5106 ! real(Kind=fp_kind),allocatable::cldhi(:),cldmd(:),cldlw(:),tcldlyr(:,:),fclr(:)
5107 ! real(Kind=fp_kind) , allocatable :: taerlyr(:,:)
5109 integer i,j,k,ip,iw,ibn,ik,iq,isb,k1,k2
5110 real(Kind=fp_kind) xx,yy,p1,dwe,dpe,a1,b1,fk1,a2,b2,fk2,bu,bd
5111 real(Kind=fp_kind) w1,w2,w3,g1,g2,g3,ww,gg,ff,taux,reff1,reff2
5112 real(Kind=fp_kind) tauxa
5114 logical oznbnd,co2bnd,h2otbl,conbnd,n2obnd
5115 logical ch4bnd,combnd,f11bnd,f12bnd,f22bnd,b10bnd
5117 !-----the following coefficients are given in table 2 for computing
5118 ! spectrally integrated planck fluxes using eq. (3.11)
5119 data cb/ &
5120 5.3443e+0, -2.0617e-1, 2.5333e-3, &
5121 -6.8633e-6, 1.0115e-8, -6.2672e-12, &
5122 2.7148e+1, -5.4038e-1, 2.9501e-3, &
5123 2.7228e-7, -9.3384e-9, 9.9677e-12, &
5124 -3.4860e+1, 1.1132e+0, -1.3006e-2, &
5125 6.4955e-5, -1.1815e-7, 8.0424e-11, &
5126 -6.0513e+1, 1.4087e+0, -1.2077e-2, &
5127 4.4050e-5, -5.6735e-8, 2.5660e-11, &
5128 -2.6689e+1, 5.2828e-1, -3.4453e-3, &
5129 6.0715e-6, 1.2523e-8, -2.1550e-11, &
5130 -6.7274e+0, 4.2256e-2, 1.0441e-3, &
5131 -1.2917e-5, 4.7396e-8, -4.4855e-11, &
5132 1.8786e+1, -5.8359e-1, 6.9674e-3, &
5133 -3.9391e-5, 1.0120e-7, -8.2301e-11, &
5134 1.0344e+2, -2.5134e+0, 2.3748e-2, &
5135 -1.0692e-4, 2.1841e-7, -1.3704e-10, &
5136 -1.0482e+1, 3.8213e-1, -5.2267e-3, &
5137 3.4412e-5, -1.1075e-7, 1.4092e-10, &
5138 1.6769e+0, 6.5397e-2, -1.8125e-3, &
5139 1.2912e-5, -2.6715e-8, 1.9792e-11/
5140 !-----xkw is the absorption coefficient are given in table 4 for the
5141 ! first k-distribution interval due to water vapor line absorption.
5142 ! units are cm**2/g
5143 data xkw / 29.55 , 4.167e-1, 1.328e-2, 5.250e-4, &
5144 5.25e-4, 9.369e-3, 4.719e-2, 1.320e-0, 5.250e-4/
5145 !-----xke is the absorption coefficient given in table 9 for the first
5146 ! k-distribution function due to water vapor continuum absorption
5147 ! units are cm**2/g
5148 data xke / 0.00, 0.00, 27.40, 15.8, &
5149 9.40, 7.75, 8.78, 0.0, 0.0/
5150 !-----mw is the ratio between neighboring absorption coefficients
5151 ! for water vapor line absorption (table 4).
5152 data mw /6,6,8,6,6,8,9,6,16/
5153 !-----aw and bw (table 3) are the coefficients for temperature scaling
5154 ! in eq. (4.2).
5155 data aw/ 0.0021, 0.0140, 0.0167, 0.0302, &
5156 0.0307, 0.0195, 0.0152, 0.0008, 0.0096/
5157 data bw/ -1.01e-5, 5.57e-5, 8.54e-5, 2.96e-4, &
5158 2.86e-4, 1.108e-4, 7.608e-5, -3.52e-6, 1.64e-5/
5159 !-----pm is the pressure-scaling parameter for water vapor absorption
5160 ! eq. (4.1) and table 3.
5161 data pm/ 1.0, 1.0, 1.0, 1.0, 1.0, 0.77, 0.5, 1.0, 1.0/
5162 !-----fkw is the planck-weighted k-distribution function due to h2o
5163 ! line absorption given in table 4.
5164 ! the k-distribution function for the third band, fkw(*,3),
5165 ! is not used (see the parameter gkw below).
5166 data fkw / 0.2747,0.2717,0.2752,0.1177,0.0352,0.0255, &
5167 0.1521,0.3974,0.1778,0.1826,0.0374,0.0527, &
5168 6*1.00, &
5169 0.4654,0.2991,0.1343,0.0646,0.0226,0.0140, &
5170 0.5543,0.2723,0.1131,0.0443,0.0160,0.0000, &
5171 0.5955,0.2693,0.0953,0.0335,0.0064,0.0000, &
5172 0.1958,0.3469,0.3147,0.1013,0.0365,0.0048, &
5173 0.0740,0.1636,0.4174,0.1783,0.1101,0.0566, &
5174 0.1437,0.2197,0.3185,0.2351,0.0647,0.0183/
5175 !-----gkw is the planck-weighted k-distribution function due to h2o
5176 ! line absorption in the 3 subbands (800-720,620-720,540-620 /cm)
5177 ! of band 3 given in table 10. note that the order of the sub-bands
5178 ! is reversed.
5179 data gkw/ 0.1782,0.0593,0.0215,0.0068,0.0022,0.0000, &
5180 0.0923,0.1675,0.0923,0.0187,0.0178,0.0000, &
5181 0.0000,0.1083,0.1581,0.0455,0.0274,0.0041/
5182 !-----ne is the number of terms used in each band to compute water vapor
5183 ! continuum transmittance (table 9).
5184 data ne /0,0,3,1,1,1,1,0,0/
5185 !
5186 !-----coefficients for computing the extinction coefficient
5187 ! for cloud ice particles (table 11a, eq. 6.4a).
5188 !
5189 data aib / -0.44171, 0.62951, 0.06465, &
5190 -0.13727, 0.61291, 0.28962, &
5191 -0.01878, 1.67680, 0.79080, &
5192 -0.01896, 1.06510, 0.69493, &
5193 -0.04788, 0.88178, 0.54492, &
5194 -0.02265, 1.57390, 0.76161, &
5195 -0.01038, 2.15640, 0.89045, &
5196 -0.00450, 2.51370, 0.95989, &
5197 -0.00044, 3.15050, 1.03750, &
5198 -0.02956, 1.44680, 0.71283/
5199 !
5200 !-----coefficients for computing the extinction coefficient
5201 ! for cloud liquid drops. (table 11b, eq. 6.4b)
5202 !
5203 data awb / 0.08641, 0.01769, -1.5572e-3, 3.4896e-5, &
5204 0.22027, 0.00997, -1.8719e-3, 5.3112e-5, &
5205 0.38074, -0.03027, 1.0154e-3, -1.1849e-5, &
5206 0.15587, 0.00371, -7.7705e-4, 2.0547e-5, &
5207 0.05518, 0.04544, -4.2067e-3, 1.0184e-4, &
5208 0.12724, 0.04751, -5.2037e-3, 1.3711e-4, &
5209 0.30390, 0.01656, -3.5271e-3, 1.0828e-4, &
5210 0.63617, -0.06287, 2.2350e-3, -2.3177e-5, &
5211 1.15470, -0.19282, 1.2084e-2, -2.5612e-4, &
5212 0.34021, -0.02805, 1.0654e-3, -1.5443e-5/
5213 !
5214 !-----coefficients for computing the single-scattering albedo
5215 ! for cloud ice particles. (table 12a, eq. 6.5)
5216 !
5217 data aiw/ 0.17201, 1.2229e-2, -1.4837e-4, 5.8020e-7, &
5218 0.81470, -2.7293e-3, 9.7816e-8, 5.7650e-8, &
5219 0.54859, -4.8273e-4, 5.4353e-6, -1.5679e-8, &
5220 0.39218, 4.1717e-3, - 4.8869e-5, 1.9144e-7, &
5221 0.71773, -3.3640e-3, 1.9713e-5, -3.3189e-8, &
5222 0.77345, -5.5228e-3, 4.8379e-5, -1.5151e-7, &
5223 0.74975, -5.6604e-3, 5.6475e-5, -1.9664e-7, &
5224 0.69011, -4.5348e-3, 4.9322e-5, -1.8255e-7, &
5225 0.83963, -6.7253e-3, 6.1900e-5, -2.0862e-7, &
5226 0.64860, -2.8692e-3, 2.7656e-5, -8.9680e-8/
5227 !
5228 !-----coefficients for computing the single-scattering albedo
5229 ! for cloud liquid drops. (table 12b, eq. 6.5)
5230 !
5231 data aww/ -7.8566e-2, 8.0875e-2, -4.3403e-3, 8.1341e-5, &
5232 -1.3384e-2, 9.3134e-2, -6.0491e-3, 1.3059e-4, &
5233 3.7096e-2, 7.3211e-2, -4.4211e-3, 9.2448e-5, &
5234 -3.7600e-3, 9.3344e-2, -5.6561e-3, 1.1387e-4, &
5235 0.40212, 7.8083e-2, -5.9583e-3, 1.2883e-4, &
5236 0.57928, 5.9094e-2, -5.4425e-3, 1.2725e-4, &
5237 0.68974, 4.2334e-2, -4.9469e-3, 1.2863e-4, &
5238 0.80122, 9.4578e-3, -2.8508e-3, 9.0078e-5, &
5239 1.02340, -2.6204e-2, 4.2552e-4, 3.2160e-6, &
5240 0.05092, 7.5409e-2, -4.7305e-3, 1.0121e-4/
5241 !
5242 !-----coefficients for computing the asymmetry factor for cloud ice
5243 ! particles. (table 13a, eq. 6.6)
5244 !
5245 data aig / 0.57867, 1.0135e-2, -1.1142e-4, 4.1537e-7, &
5246 0.72259, 3.1149e-3, -1.9927e-5, 5.6024e-8, &
5247 0.76109, 4.5449e-3, -4.6199e-5, 1.6446e-7, &
5248 0.86934, 2.7474e-3, -3.1301e-5, 1.1959e-7, &
5249 0.89103, 1.8513e-3, -1.6551e-5, 5.5193e-8, &
5250 0.86325, 2.1408e-3, -1.6846e-5, 4.9473e-8, &
5251 0.85064, 2.5028e-3, -2.0812e-5, 6.3427e-8, &
5252 0.86945, 2.4615e-3, -2.3882e-5, 8.2431e-8, &
5253 0.80122, 3.1906e-3, -2.4856e-5, 7.2411e-8, &
5254 0.73290, 4.8034e-3, -4.4425e-5, 1.4839e-7/
5255 !
5256 !-----coefficients for computing the asymmetry factor for cloud liquid
5257 ! drops. (table 13b, eq. 6.6)
5258 !
5259 data awg / -0.51930, 0.20290, -1.1747e-2, 2.3868e-4, &
5260 -0.22151, 0.19708, -1.2462e-2, 2.6646e-4, &
5261 0.14157, 0.14705, -9.5802e-3, 2.0819e-4, &
5262 0.41590, 0.10482, -6.9118e-3, 1.5115e-4, &
5263 0.55338, 7.7016e-2, -5.2218e-3, 1.1587e-4, &
5264 0.61384, 6.4402e-2, -4.6241e-3, 1.0746e-4, &
5265 0.67891, 4.8698e-2, -3.7021e-3, 9.1966e-5, &
5266 0.78169, 2.0803e-2, -1.4749e-3, 3.9362e-5, &
5267 0.93218, -3.3425e-2, 2.9632e-3, -6.9362e-5, &
5268 0.01649, 0.16561, -1.0723e-2, 2.3220e-4/
5269 !
5270 !-----include tables used in the table look-up for co2 (band 3),
5271 ! o3 (band 5), and h2o (bands 1, 2, and 7) transmission functions.
5272 ! "co2.tran4" is the new co2 transmission table applicable to a large
5273 ! range of co2 amount (up to 100 times of the present-time value).
5274 ! include 'h2o.tran3'
5275 ! include 'co2.tran4'
5276 ! include 'o3.tran3'
5277 data ((h11(ip,iw),iw=1,31), ip= 1, 1)/ &
5278 0.99993843, 0.99990183, 0.99985260, 0.99979079, 0.99971771, &
5279 0.99963379, 0.99953848, 0.99942899, 0.99930018, 0.99914461, &
5280 0.99895102, 0.99870503, 0.99838799, 0.99797899, 0.99745202, &
5281 0.99677002, 0.99587703, 0.99469399, 0.99311298, 0.99097902, &
5282 0.98807001, 0.98409998, 0.97864997, 0.97114998, 0.96086001, &
5283 0.94682997, 0.92777002, 0.90200001, 0.86739999, 0.82169998, &
5284 0.76270002/
5285 data ((h12(ip,iw),iw=1,31), ip= 1, 1)/ &
5286 -0.2021e-06, -0.3628e-06, -0.5891e-06, -0.8735e-06, -0.1204e-05, &
5287 -0.1579e-05, -0.2002e-05, -0.2494e-05, -0.3093e-05, -0.3852e-05, &
5288 -0.4835e-05, -0.6082e-05, -0.7591e-05, -0.9332e-05, -0.1128e-04, &
5289 -0.1347e-04, -0.1596e-04, -0.1890e-04, -0.2241e-04, -0.2672e-04, &
5290 -0.3208e-04, -0.3884e-04, -0.4747e-04, -0.5854e-04, -0.7272e-04, &
5291 -0.9092e-04, -0.1146e-03, -0.1458e-03, -0.1877e-03, -0.2435e-03, &
5292 -0.3159e-03/
5293 data ((h13(ip,iw),iw=1,31), ip= 1, 1)/ &
5294 0.5907e-09, 0.8541e-09, 0.1095e-08, 0.1272e-08, 0.1297e-08, &
5295 0.1105e-08, 0.6788e-09, -0.5585e-10, -0.1147e-08, -0.2746e-08, &
5296 -0.5001e-08, -0.7715e-08, -0.1037e-07, -0.1227e-07, -0.1287e-07, &
5297 -0.1175e-07, -0.8517e-08, -0.2920e-08, 0.4786e-08, 0.1407e-07, &
5298 0.2476e-07, 0.3781e-07, 0.5633e-07, 0.8578e-07, 0.1322e-06, &
5299 0.2013e-06, 0.3006e-06, 0.4409e-06, 0.6343e-06, 0.8896e-06, &
5300 0.1216e-05/
5301 data ((h11(ip,iw),iw=1,31), ip= 2, 2)/ &
5302 0.99993837, 0.99990171, 0.99985230, 0.99979031, 0.99971670, &
5303 0.99963200, 0.99953520, 0.99942321, 0.99928987, 0.99912637, &
5304 0.99892002, 0.99865198, 0.99830002, 0.99783802, 0.99723297, &
5305 0.99643701, 0.99537897, 0.99396098, 0.99204701, 0.98944002, &
5306 0.98588002, 0.98098999, 0.97425997, 0.96502000, 0.95236999, &
5307 0.93515998, 0.91184998, 0.88040000, 0.83859998, 0.78429997, &
5308 0.71560001/
5309 data ((h12(ip,iw),iw=1,31), ip= 2, 2)/ &
5310 -0.2017e-06, -0.3620e-06, -0.5878e-06, -0.8713e-06, -0.1201e-05, &
5311 -0.1572e-05, -0.1991e-05, -0.2476e-05, -0.3063e-05, -0.3808e-05, &
5312 -0.4776e-05, -0.6011e-05, -0.7516e-05, -0.9272e-05, -0.1127e-04, &
5313 -0.1355e-04, -0.1620e-04, -0.1936e-04, -0.2321e-04, -0.2797e-04, &
5314 -0.3399e-04, -0.4171e-04, -0.5172e-04, -0.6471e-04, -0.8150e-04, &
5315 -0.1034e-03, -0.1321e-03, -0.1705e-03, -0.2217e-03, -0.2889e-03, &
5316 -0.3726e-03/
5317 data ((h13(ip,iw),iw=1,31), ip= 2, 2)/ &
5318 0.5894e-09, 0.8519e-09, 0.1092e-08, 0.1267e-08, 0.1289e-08, &
5319 0.1093e-08, 0.6601e-09, -0.7831e-10, -0.1167e-08, -0.2732e-08, &
5320 -0.4864e-08, -0.7334e-08, -0.9581e-08, -0.1097e-07, -0.1094e-07, &
5321 -0.8999e-08, -0.4669e-08, 0.2391e-08, 0.1215e-07, 0.2424e-07, &
5322 0.3877e-07, 0.5711e-07, 0.8295e-07, 0.1218e-06, 0.1793e-06, &
5323 0.2621e-06, 0.3812e-06, 0.5508e-06, 0.7824e-06, 0.1085e-05, &
5324 0.1462e-05/
5325 data ((h11(ip,iw),iw=1,31), ip= 3, 3)/ &
5326 0.99993825, 0.99990153, 0.99985188, 0.99978942, 0.99971509, &
5327 0.99962920, 0.99953020, 0.99941432, 0.99927431, 0.99909937, &
5328 0.99887401, 0.99857497, 0.99817699, 0.99764699, 0.99694097, &
5329 0.99599802, 0.99473000, 0.99301600, 0.99068397, 0.98749000, &
5330 0.98311001, 0.97707999, 0.96877003, 0.95738000, 0.94186002, &
5331 0.92079002, 0.89230001, 0.85420001, 0.80430001, 0.74049997, &
5332 0.66200000/
5333 data ((h12(ip,iw),iw=1,31), ip= 3, 3)/ &
5334 -0.2011e-06, -0.3609e-06, -0.5859e-06, -0.8680e-06, -0.1195e-05, &
5335 -0.1563e-05, -0.1975e-05, -0.2450e-05, -0.3024e-05, -0.3755e-05, &
5336 -0.4711e-05, -0.5941e-05, -0.7455e-05, -0.9248e-05, -0.1132e-04, &
5337 -0.1373e-04, -0.1659e-04, -0.2004e-04, -0.2431e-04, -0.2966e-04, &
5338 -0.3653e-04, -0.4549e-04, -0.5724e-04, -0.7259e-04, -0.9265e-04, &
5339 -0.1191e-03, -0.1543e-03, -0.2013e-03, -0.2633e-03, -0.3421e-03, &
5340 -0.4350e-03/
5341 data ((h13(ip,iw),iw=1,31), ip= 3, 3)/ &
5342 0.5872e-09, 0.8484e-09, 0.1087e-08, 0.1259e-08, 0.1279e-08, &
5343 0.1077e-08, 0.6413e-09, -0.9334e-10, -0.1161e-08, -0.2644e-08, &
5344 -0.4588e-08, -0.6709e-08, -0.8474e-08, -0.9263e-08, -0.8489e-08, &
5345 -0.5553e-08, 0.1203e-09, 0.9035e-08, 0.2135e-07, 0.3689e-07, &
5346 0.5610e-07, 0.8097e-07, 0.1155e-06, 0.1649e-06, 0.2350e-06, &
5347 0.3353e-06, 0.4806e-06, 0.6858e-06, 0.9617e-06, 0.1315e-05, &
5348 0.1741e-05/
5349 data ((h11(ip,iw),iw=1,31), ip= 4, 4)/ &
5350 0.99993813, 0.99990118, 0.99985123, 0.99978811, 0.99971271, &
5351 0.99962479, 0.99952239, 0.99940068, 0.99925101, 0.99905968, &
5352 0.99880803, 0.99846900, 0.99800998, 0.99738997, 0.99655402, &
5353 0.99542397, 0.99389100, 0.99180400, 0.98895001, 0.98501998, &
5354 0.97961003, 0.97215003, 0.96191001, 0.94791001, 0.92887998, &
5355 0.90311998, 0.86849999, 0.82270002, 0.76370001, 0.69000000, &
5356 0.60240000/
5357 data ((h12(ip,iw),iw=1,31), ip= 4, 4)/ &
5358 -0.2001e-06, -0.3592e-06, -0.5829e-06, -0.8631e-06, -0.1187e-05, &
5359 -0.1549e-05, -0.1953e-05, -0.2415e-05, -0.2975e-05, -0.3694e-05, &
5360 -0.4645e-05, -0.5882e-05, -0.7425e-05, -0.9279e-05, -0.1147e-04, &
5361 -0.1406e-04, -0.1717e-04, -0.2100e-04, -0.2580e-04, -0.3191e-04, &
5362 -0.3989e-04, -0.5042e-04, -0.6432e-04, -0.8261e-04, -0.1068e-03, &
5363 -0.1389e-03, -0.1820e-03, -0.2391e-03, -0.3127e-03, -0.4021e-03, &
5364 -0.5002e-03/
5365 data ((h13(ip,iw),iw=1,31), ip= 4, 4)/ &
5366 0.5838e-09, 0.8426e-09, 0.1081e-08, 0.1249e-08, 0.1267e-08, &
5367 0.1062e-08, 0.6313e-09, -0.8241e-10, -0.1094e-08, -0.2436e-08, &
5368 -0.4100e-08, -0.5786e-08, -0.6992e-08, -0.7083e-08, -0.5405e-08, &
5369 -0.1259e-08, 0.6099e-08, 0.1732e-07, 0.3276e-07, 0.5256e-07, &
5370 0.7756e-07, 0.1103e-06, 0.1547e-06, 0.2159e-06, 0.3016e-06, &
5371 0.4251e-06, 0.6033e-06, 0.8499e-06, 0.1175e-05, 0.1579e-05, &
5372 0.2044e-05/
5373 data ((h11(ip,iw),iw=1,31), ip= 5, 5)/ &
5374 0.99993789, 0.99990070, 0.99985009, 0.99978602, 0.99970889, &
5375 0.99961799, 0.99951053, 0.99938041, 0.99921662, 0.99900270, &
5376 0.99871498, 0.99832201, 0.99778402, 0.99704897, 0.99604702, &
5377 0.99468100, 0.99281400, 0.99025702, 0.98673999, 0.98189002, &
5378 0.97521001, 0.96600002, 0.95337999, 0.93620998, 0.91292000, &
5379 0.88150001, 0.83969998, 0.78530002, 0.71650004, 0.63330001, &
5380 0.53799999/
5381 data ((h12(ip,iw),iw=1,31), ip= 5, 5)/ &
5382 -0.1987e-06, -0.3565e-06, -0.5784e-06, -0.8557e-06, -0.1175e-05, &
5383 -0.1530e-05, -0.1923e-05, -0.2372e-05, -0.2919e-05, -0.3631e-05, &
5384 -0.4587e-05, -0.5848e-05, -0.7442e-05, -0.9391e-05, -0.1173e-04, &
5385 -0.1455e-04, -0.1801e-04, -0.2232e-04, -0.2779e-04, -0.3489e-04, &
5386 -0.4428e-04, -0.5678e-04, -0.7333e-04, -0.9530e-04, -0.1246e-03, &
5387 -0.1639e-03, -0.2164e-03, -0.2848e-03, -0.3697e-03, -0.4665e-03, &
5388 -0.5646e-03/
5389 data ((h13(ip,iw),iw=1,31), ip= 5, 5)/ &
5390 0.5785e-09, 0.8338e-09, 0.1071e-08, 0.1239e-08, 0.1256e-08, &
5391 0.1057e-08, 0.6480e-09, -0.1793e-10, -0.9278e-09, -0.2051e-08, &
5392 -0.3337e-08, -0.4514e-08, -0.5067e-08, -0.4328e-08, -0.1545e-08, &
5393 0.4100e-08, 0.1354e-07, 0.2762e-07, 0.4690e-07, 0.7190e-07, &
5394 0.1040e-06, 0.1459e-06, 0.2014e-06, 0.2764e-06, 0.3824e-06, &
5395 0.5359e-06, 0.7532e-06, 0.1047e-05, 0.1424e-05, 0.1873e-05, &
5396 0.2356e-05/
5397 data ((h11(ip,iw),iw=1,31), ip= 6, 6)/ &
5398 0.99993753, 0.99989992, 0.99984848, 0.99978292, 0.99970299, &
5399 0.99960762, 0.99949282, 0.99935049, 0.99916708, 0.99892199, &
5400 0.99858701, 0.99812400, 0.99748403, 0.99660099, 0.99538797, &
5401 0.99372399, 0.99143797, 0.98829001, 0.98395002, 0.97794998, &
5402 0.96968001, 0.95832998, 0.94283003, 0.92179000, 0.89330000, &
5403 0.85530001, 0.80519998, 0.74140000, 0.66280001, 0.57099998, &
5404 0.47049999/
5405 data ((h12(ip,iw),iw=1,31), ip= 6, 6)/ &
5406 -0.1964e-06, -0.3526e-06, -0.5717e-06, -0.8451e-06, -0.1158e-05, &
5407 -0.1504e-05, -0.1886e-05, -0.2322e-05, -0.2861e-05, -0.3576e-05, &
5408 -0.4552e-05, -0.5856e-05, -0.7529e-05, -0.9609e-05, -0.1216e-04, &
5409 -0.1528e-04, -0.1916e-04, -0.2408e-04, -0.3043e-04, -0.3880e-04, &
5410 -0.4997e-04, -0.6488e-04, -0.8474e-04, -0.1113e-03, -0.1471e-03, &
5411 -0.1950e-03, -0.2583e-03, -0.3384e-03, -0.4326e-03, -0.5319e-03, &
5412 -0.6244e-03/
5413 data ((h13(ip,iw),iw=1,31), ip= 6, 6)/ &
5414 0.5713e-09, 0.8263e-09, 0.1060e-08, 0.1226e-08, 0.1252e-08, &
5415 0.1076e-08, 0.7149e-09, 0.1379e-09, -0.6043e-09, -0.1417e-08, &
5416 -0.2241e-08, -0.2830e-08, -0.2627e-08, -0.8950e-09, 0.3231e-08, &
5417 0.1075e-07, 0.2278e-07, 0.4037e-07, 0.6439e-07, 0.9576e-07, &
5418 0.1363e-06, 0.1886e-06, 0.2567e-06, 0.3494e-06, 0.4821e-06, &
5419 0.6719e-06, 0.9343e-06, 0.1280e-05, 0.1705e-05, 0.2184e-05, &
5420 0.2651e-05/
5421 data ((h11(ip,iw),iw=1,31), ip= 7, 7)/ &
5422 0.99993700, 0.99989867, 0.99984592, 0.99977797, 0.99969423, &
5423 0.99959219, 0.99946660, 0.99930722, 0.99909681, 0.99880999, &
5424 0.99841303, 0.99786001, 0.99708802, 0.99601799, 0.99453998, &
5425 0.99250001, 0.98969001, 0.98580003, 0.98041999, 0.97299999, &
5426 0.96279001, 0.94881999, 0.92980999, 0.90407002, 0.86949998, &
5427 0.82370001, 0.76459998, 0.69089997, 0.60310000, 0.50479996, &
5428 0.40219998/
5429 data ((h12(ip,iw),iw=1,31), ip= 7, 7)/ &
5430 -0.1932e-06, -0.3467e-06, -0.5623e-06, -0.8306e-06, -0.1136e-05, &
5431 -0.1472e-05, -0.1842e-05, -0.2269e-05, -0.2807e-05, -0.3539e-05, &
5432 -0.4553e-05, -0.5925e-05, -0.7710e-05, -0.9968e-05, -0.1278e-04, &
5433 -0.1629e-04, -0.2073e-04, -0.2644e-04, -0.3392e-04, -0.4390e-04, &
5434 -0.5727e-04, -0.7516e-04, -0.9916e-04, -0.1315e-03, -0.1752e-03, &
5435 -0.2333e-03, -0.3082e-03, -0.3988e-03, -0.4982e-03, -0.5947e-03, &
5436 -0.6764e-03/
5437 data ((h13(ip,iw),iw=1,31), ip= 7, 7)/ &
5438 0.5612e-09, 0.8116e-09, 0.1048e-08, 0.1222e-08, 0.1270e-08, &
5439 0.1141e-08, 0.8732e-09, 0.4336e-09, -0.6548e-10, -0.4774e-09, &
5440 -0.7556e-09, -0.6577e-09, 0.4377e-09, 0.3359e-08, 0.9159e-08, &
5441 0.1901e-07, 0.3422e-07, 0.5616e-07, 0.8598e-07, 0.1251e-06, &
5442 0.1752e-06, 0.2392e-06, 0.3228e-06, 0.4389e-06, 0.6049e-06, &
5443 0.8370e-06, 0.1150e-05, 0.1547e-05, 0.2012e-05, 0.2493e-05, &
5444 0.2913e-05/
5445 data ((h11(ip,iw),iw=1,31), ip= 8, 8)/ &
5446 0.99993622, 0.99989682, 0.99984211, 0.99977070, 0.99968100, &
5447 0.99956948, 0.99942881, 0.99924588, 0.99899900, 0.99865800, &
5448 0.99818099, 0.99751103, 0.99657297, 0.99526602, 0.99345201, &
5449 0.99094099, 0.98746002, 0.98264998, 0.97599000, 0.96682000, &
5450 0.95423001, 0.93708003, 0.91380000, 0.88239998, 0.84060001, &
5451 0.78610003, 0.71730000, 0.63400000, 0.53859997, 0.43660003, &
5452 0.33510000/
5453 data ((h12(ip,iw),iw=1,31), ip= 8, 8)/ &
5454 -0.1885e-06, -0.3385e-06, -0.5493e-06, -0.8114e-06, -0.1109e-05, &
5455 -0.1436e-05, -0.1796e-05, -0.2219e-05, -0.2770e-05, -0.3535e-05, &
5456 -0.4609e-05, -0.6077e-05, -0.8016e-05, -0.1051e-04, -0.1367e-04, &
5457 -0.1768e-04, -0.2283e-04, -0.2955e-04, -0.3849e-04, -0.5046e-04, &
5458 -0.6653e-04, -0.8813e-04, -0.1173e-03, -0.1569e-03, -0.2100e-03, &
5459 -0.2794e-03, -0.3656e-03, -0.4637e-03, -0.5629e-03, -0.6512e-03, &
5460 -0.7167e-03/
5461 data ((h13(ip,iw),iw=1,31), ip= 8, 8)/ &
5462 0.5477e-09, 0.8000e-09, 0.1039e-08, 0.1234e-08, 0.1331e-08, &
5463 0.1295e-08, 0.1160e-08, 0.9178e-09, 0.7535e-09, 0.8301e-09, &
5464 0.1184e-08, 0.2082e-08, 0.4253e-08, 0.8646e-08, 0.1650e-07, &
5465 0.2920e-07, 0.4834e-07, 0.7564e-07, 0.1125e-06, 0.1606e-06, &
5466 0.2216e-06, 0.2992e-06, 0.4031e-06, 0.5493e-06, 0.7549e-06, &
5467 0.1035e-05, 0.1400e-05, 0.1843e-05, 0.2327e-05, 0.2774e-05, &
5468 0.3143e-05/
5469 data ((h11(ip,iw),iw=1,31), ip= 9, 9)/ &
5470 0.99993503, 0.99989408, 0.99983650, 0.99975997, 0.99966192, &
5471 0.99953687, 0.99937540, 0.99916059, 0.99886602, 0.99845397, &
5472 0.99787402, 0.99705601, 0.99590701, 0.99430102, 0.99206603, &
5473 0.98896003, 0.98465002, 0.97869003, 0.97044003, 0.95911002, &
5474 0.94363999, 0.92260998, 0.89419997, 0.85609996, 0.80610001, &
5475 0.74220002, 0.66359997, 0.57169998, 0.47100002, 0.36860001, &
5476 0.27079999/
5477 data ((h12(ip,iw),iw=1,31), ip= 9, 9)/ &
5478 -0.1822e-06, -0.3274e-06, -0.5325e-06, -0.7881e-06, -0.1079e-05, &
5479 -0.1398e-05, -0.1754e-05, -0.2184e-05, -0.2763e-05, -0.3581e-05, &
5480 -0.4739e-05, -0.6341e-05, -0.8484e-05, -0.1128e-04, -0.1490e-04, &
5481 -0.1955e-04, -0.2561e-04, -0.3364e-04, -0.4438e-04, -0.5881e-04, &
5482 -0.7822e-04, -0.1045e-03, -0.1401e-03, -0.1884e-03, -0.2523e-03, &
5483 -0.3335e-03, -0.4289e-03, -0.5296e-03, -0.6231e-03, -0.6980e-03, &
5484 -0.7406e-03/
5485 data ((h13(ip,iw),iw=1,31), ip= 9, 9)/ &
5486 0.5334e-09, 0.7859e-09, 0.1043e-08, 0.1279e-08, 0.1460e-08, &
5487 0.1560e-08, 0.1618e-08, 0.1657e-08, 0.1912e-08, 0.2569e-08, &
5488 0.3654e-08, 0.5509e-08, 0.8964e-08, 0.1518e-07, 0.2560e-07, &
5489 0.4178e-07, 0.6574e-07, 0.9958e-07, 0.1449e-06, 0.2031e-06, &
5490 0.2766e-06, 0.3718e-06, 0.5022e-06, 0.6849e-06, 0.9360e-06, &
5491 0.1268e-05, 0.1683e-05, 0.2157e-05, 0.2625e-05, 0.3020e-05, &
5492 0.3364e-05/
5493 data ((h11(ip,iw),iw=1,31), ip=10,10)/ &
5494 0.99993336, 0.99989021, 0.99982840, 0.99974459, 0.99963468, &
5495 0.99949121, 0.99930137, 0.99904430, 0.99868703, 0.99818403, &
5496 0.99747300, 0.99646801, 0.99505299, 0.99307102, 0.99030602, &
5497 0.98645997, 0.98111999, 0.97372001, 0.96353000, 0.94957000, &
5498 0.93058997, 0.90486002, 0.87029999, 0.82449996, 0.76530004, &
5499 0.69159997, 0.60380000, 0.50529999, 0.40259999, 0.30269998, &
5500 0.21020001/
5501 data ((h12(ip,iw),iw=1,31), ip=10,10)/ &
5502 -0.1742e-06, -0.3134e-06, -0.5121e-06, -0.7619e-06, -0.1048e-05, &
5503 -0.1364e-05, -0.1725e-05, -0.2177e-05, -0.2801e-05, -0.3694e-05, &
5504 -0.4969e-05, -0.6748e-05, -0.9161e-05, -0.1236e-04, -0.1655e-04, &
5505 -0.2203e-04, -0.2927e-04, -0.3894e-04, -0.5192e-04, -0.6936e-04, &
5506 -0.9294e-04, -0.1250e-03, -0.1686e-03, -0.2271e-03, -0.3027e-03, &
5507 -0.3944e-03, -0.4951e-03, -0.5928e-03, -0.6755e-03, -0.7309e-03, &
5508 -0.7417e-03/
5509 data ((h13(ip,iw),iw=1,31), ip=10,10)/ &
5510 0.5179e-09, 0.7789e-09, 0.1071e-08, 0.1382e-08, 0.1690e-08, &
5511 0.1979e-08, 0.2297e-08, 0.2704e-08, 0.3466e-08, 0.4794e-08, &
5512 0.6746e-08, 0.9739e-08, 0.1481e-07, 0.2331e-07, 0.3679e-07, &
5513 0.5726e-07, 0.8716e-07, 0.1289e-06, 0.1837e-06, 0.2534e-06, &
5514 0.3424e-06, 0.4609e-06, 0.6245e-06, 0.8495e-06, 0.1151e-05, &
5515 0.1536e-05, 0.1991e-05, 0.2468e-05, 0.2891e-05, 0.3245e-05, &
5516 0.3580e-05/
5517 data ((h11(ip,iw),iw=1,31), ip=11,11)/ &
5518 0.99993110, 0.99988490, 0.99981719, 0.99972337, 0.99959719, &
5519 0.99942869, 0.99920130, 0.99888903, 0.99845201, 0.99783301, &
5520 0.99695599, 0.99571502, 0.99396503, 0.99150997, 0.98808002, &
5521 0.98329997, 0.97667003, 0.96750998, 0.95494002, 0.93779999, &
5522 0.91453999, 0.88319999, 0.84130001, 0.78689998, 0.71799999, &
5523 0.63470000, 0.53909999, 0.43699998, 0.33550000, 0.24010003, &
5524 0.15420002/
5525 data ((h12(ip,iw),iw=1,31), ip=11,11)/ &
5526 -0.1647e-06, -0.2974e-06, -0.4900e-06, -0.7358e-06, -0.1022e-05, &
5527 -0.1344e-05, -0.1721e-05, -0.2212e-05, -0.2901e-05, -0.3896e-05, &
5528 -0.5327e-05, -0.7342e-05, -0.1011e-04, -0.1382e-04, -0.1875e-04, &
5529 -0.2530e-04, -0.3403e-04, -0.4573e-04, -0.6145e-04, -0.8264e-04, &
5530 -0.1114e-03, -0.1507e-03, -0.2039e-03, -0.2737e-03, -0.3607e-03, &
5531 -0.4599e-03, -0.5604e-03, -0.6497e-03, -0.7161e-03, -0.7443e-03, &
5532 -0.7133e-03/
5533 data ((h13(ip,iw),iw=1,31), ip=11,11)/ &
5534 0.5073e-09, 0.7906e-09, 0.1134e-08, 0.1560e-08, 0.2046e-08, &
5535 0.2589e-08, 0.3254e-08, 0.4107e-08, 0.5481e-08, 0.7602e-08, &
5536 0.1059e-07, 0.1501e-07, 0.2210e-07, 0.3334e-07, 0.5055e-07, &
5537 0.7629e-07, 0.1134e-06, 0.1642e-06, 0.2298e-06, 0.3133e-06, &
5538 0.4225e-06, 0.5709e-06, 0.7739e-06, 0.1047e-05, 0.1401e-05, &
5539 0.1833e-05, 0.2308e-05, 0.2753e-05, 0.3125e-05, 0.3467e-05, &
5540 0.3748e-05/
5541 data ((h11(ip,iw),iw=1,31), ip=12,12)/ &
5542 0.99992824, 0.99987793, 0.99980247, 0.99969512, 0.99954712, &
5543 0.99934530, 0.99906880, 0.99868500, 0.99814498, 0.99738002, &
5544 0.99629498, 0.99475700, 0.99258602, 0.98953998, 0.98527998, &
5545 0.97934997, 0.97112000, 0.95981002, 0.94433999, 0.92332000, &
5546 0.89490002, 0.85680002, 0.80680001, 0.74290001, 0.66420001, &
5547 0.57220000, 0.47149998, 0.36900002, 0.27109998, 0.18159997, &
5548 0.10460001/
5549 data ((h12(ip,iw),iw=1,31), ip=12,12)/ &
5550 -0.1548e-06, -0.2808e-06, -0.4683e-06, -0.7142e-06, -0.1008e-05, &
5551 -0.1347e-05, -0.1758e-05, -0.2306e-05, -0.3083e-05, -0.4214e-05, &
5552 -0.5851e-05, -0.8175e-05, -0.1140e-04, -0.1577e-04, -0.2166e-04, &
5553 -0.2955e-04, -0.4014e-04, -0.5434e-04, -0.7343e-04, -0.9931e-04, &
5554 -0.1346e-03, -0.1826e-03, -0.2467e-03, -0.3283e-03, -0.4246e-03, &
5555 -0.5264e-03, -0.6211e-03, -0.6970e-03, -0.7402e-03, -0.7316e-03, &
5556 -0.6486e-03/
5557 data ((h13(ip,iw),iw=1,31), ip=12,12)/ &
5558 0.5078e-09, 0.8244e-09, 0.1255e-08, 0.1826e-08, 0.2550e-08, &
5559 0.3438e-08, 0.4532e-08, 0.5949e-08, 0.8041e-08, 0.1110e-07, &
5560 0.1534e-07, 0.2157e-07, 0.3116e-07, 0.4570e-07, 0.6747e-07, &
5561 0.9961e-07, 0.1451e-06, 0.2061e-06, 0.2843e-06, 0.3855e-06, &
5562 0.5213e-06, 0.7060e-06, 0.9544e-06, 0.1280e-05, 0.1684e-05, &
5563 0.2148e-05, 0.2609e-05, 0.3002e-05, 0.3349e-05, 0.3670e-05, &
5564 0.3780e-05/
5565 data ((h11(ip,iw),iw=1,31), ip=13,13)/ &
5566 0.99992472, 0.99986941, 0.99978399, 0.99965900, 0.99948251, &
5567 0.99923742, 0.99889702, 0.99842298, 0.99775398, 0.99680400, &
5568 0.99545598, 0.99354500, 0.99084800, 0.98706001, 0.98176998, &
5569 0.97439998, 0.96423000, 0.95029002, 0.93129998, 0.90557003, &
5570 0.87099999, 0.82520002, 0.76600003, 0.69220001, 0.60440004, &
5571 0.50580001, 0.40310001, 0.30299997, 0.21039999, 0.12860000, &
5572 0.06360000/
5573 data ((h12(ip,iw),iw=1,31), ip=13,13)/ &
5574 -0.1461e-06, -0.2663e-06, -0.4512e-06, -0.7027e-06, -0.1014e-05, &
5575 -0.1387e-05, -0.1851e-05, -0.2478e-05, -0.3373e-05, -0.4682e-05, &
5576 -0.6588e-05, -0.9311e-05, -0.1311e-04, -0.1834e-04, -0.2544e-04, &
5577 -0.3502e-04, -0.4789e-04, -0.6515e-04, -0.8846e-04, -0.1202e-03, &
5578 -0.1635e-03, -0.2217e-03, -0.2975e-03, -0.3897e-03, -0.4913e-03, &
5579 -0.5902e-03, -0.6740e-03, -0.7302e-03, -0.7415e-03, -0.6858e-03, &
5580 -0.5447e-03/
5581 data ((h13(ip,iw),iw=1,31), ip=13,13)/ &
5582 0.5236e-09, 0.8873e-09, 0.1426e-08, 0.2193e-08, 0.3230e-08, &
5583 0.4555e-08, 0.6200e-08, 0.8298e-08, 0.1126e-07, 0.1544e-07, &
5584 0.2130e-07, 0.2978e-07, 0.4239e-07, 0.6096e-07, 0.8829e-07, &
5585 0.1280e-06, 0.1830e-06, 0.2555e-06, 0.3493e-06, 0.4740e-06, &
5586 0.6431e-06, 0.8701e-06, 0.1169e-05, 0.1547e-05, 0.1992e-05, &
5587 0.2460e-05, 0.2877e-05, 0.3230e-05, 0.3569e-05, 0.3782e-05, &
5588 0.3591e-05/
5589 data ((h11(ip,iw),iw=1,31), ip=14,14)/ &
5590 0.99992090, 0.99985969, 0.99976218, 0.99961531, 0.99940270, &
5591 0.99910218, 0.99868101, 0.99809098, 0.99725902, 0.99607700, &
5592 0.99440002, 0.99202299, 0.98866999, 0.98395997, 0.97737998, &
5593 0.96825999, 0.95570999, 0.93857002, 0.91531003, 0.88389999, &
5594 0.84210002, 0.78759998, 0.71869999, 0.63530004, 0.53970003, &
5595 0.43750000, 0.33590001, 0.24040002, 0.15439999, 0.08300000, &
5596 0.03299999/
5597 data ((h12(ip,iw),iw=1,31), ip=14,14)/ &
5598 -0.1402e-06, -0.2569e-06, -0.4428e-06, -0.7076e-06, -0.1051e-05, &
5599 -0.1478e-05, -0.2019e-05, -0.2752e-05, -0.3802e-05, -0.5343e-05, &
5600 -0.7594e-05, -0.1082e-04, -0.1536e-04, -0.2166e-04, -0.3028e-04, &
5601 -0.4195e-04, -0.5761e-04, -0.7867e-04, -0.1072e-03, -0.1462e-03, &
5602 -0.1990e-03, -0.2687e-03, -0.3559e-03, -0.4558e-03, -0.5572e-03, &
5603 -0.6476e-03, -0.7150e-03, -0.7439e-03, -0.7133e-03, -0.6015e-03, &
5604 -0.4089e-03/
5605 data ((h13(ip,iw),iw=1,31), ip=14,14)/ &
5606 0.5531e-09, 0.9757e-09, 0.1644e-08, 0.2650e-08, 0.4074e-08, &
5607 0.5957e-08, 0.8314e-08, 0.1128e-07, 0.1528e-07, 0.2087e-07, &
5608 0.2874e-07, 0.4002e-07, 0.5631e-07, 0.7981e-07, 0.1139e-06, &
5609 0.1621e-06, 0.2275e-06, 0.3136e-06, 0.4280e-06, 0.5829e-06, &
5610 0.7917e-06, 0.1067e-05, 0.1419e-05, 0.1844e-05, 0.2310e-05, &
5611 0.2747e-05, 0.3113e-05, 0.3455e-05, 0.3739e-05, 0.3715e-05, &
5612 0.3125e-05/
5613 data ((h11(ip,iw),iw=1,31), ip=15,15)/ &
5614 0.99991709, 0.99984968, 0.99973857, 0.99956548, 0.99930853, &
5615 0.99893898, 0.99841601, 0.99768001, 0.99664098, 0.99516898, &
5616 0.99308002, 0.99012297, 0.98594999, 0.98009998, 0.97194999, &
5617 0.96066999, 0.94523001, 0.92421001, 0.89579999, 0.85769999, &
5618 0.80760002, 0.74360001, 0.66490000, 0.57290000, 0.47200000, &
5619 0.36940002, 0.27139997, 0.18180001, 0.10479999, 0.04699999, &
5620 0.01359999/
5621 data ((h12(ip,iw),iw=1,31), ip=15,15)/ &
5622 -0.1378e-06, -0.2542e-06, -0.4461e-06, -0.7333e-06, -0.1125e-05, &
5623 -0.1630e-05, -0.2281e-05, -0.3159e-05, -0.4410e-05, -0.6246e-05, &
5624 -0.8933e-05, -0.1280e-04, -0.1826e-04, -0.2589e-04, -0.3639e-04, &
5625 -0.5059e-04, -0.6970e-04, -0.9552e-04, -0.1307e-03, -0.1784e-03, &
5626 -0.2422e-03, -0.3237e-03, -0.4203e-03, -0.5227e-03, -0.6184e-03, &
5627 -0.6953e-03, -0.7395e-03, -0.7315e-03, -0.6487e-03, -0.4799e-03, &
5628 -0.2625e-03/
5629 data ((h13(ip,iw),iw=1,31), ip=15,15)/ &
5630 0.5891e-09, 0.1074e-08, 0.1885e-08, 0.3167e-08, 0.5051e-08, &
5631 0.7631e-08, 0.1092e-07, 0.1500e-07, 0.2032e-07, 0.2769e-07, &
5632 0.3810e-07, 0.5279e-07, 0.7361e-07, 0.1032e-06, 0.1450e-06, &
5633 0.2026e-06, 0.2798e-06, 0.3832e-06, 0.5242e-06, 0.7159e-06, &
5634 0.9706e-06, 0.1299e-05, 0.1701e-05, 0.2159e-05, 0.2612e-05, &
5635 0.2998e-05, 0.3341e-05, 0.3661e-05, 0.3775e-05, 0.3393e-05, &
5636 0.2384e-05/
5637 data ((h11(ip,iw),iw=1,31), ip=16,16)/ &
5638 0.99991363, 0.99984020, 0.99971467, 0.99951237, 0.99920303, &
5639 0.99874902, 0.99809903, 0.99717999, 0.99588197, 0.99404502, &
5640 0.99144298, 0.98776001, 0.98258001, 0.97533000, 0.96524000, &
5641 0.95135999, 0.93241000, 0.90667999, 0.87199998, 0.82620001, &
5642 0.76700002, 0.69309998, 0.60510004, 0.50650001, 0.40359998, &
5643 0.30350000, 0.21069998, 0.12870002, 0.06370002, 0.02200001, &
5644 0.00389999/
5645 data ((h12(ip,iw),iw=1,31), ip=16,16)/ &
5646 -0.1383e-06, -0.2577e-06, -0.4608e-06, -0.7793e-06, -0.1237e-05, &
5647 -0.1850e-05, -0.2652e-05, -0.3728e-05, -0.5244e-05, -0.7451e-05, &
5648 -0.1067e-04, -0.1532e-04, -0.2193e-04, -0.3119e-04, -0.4395e-04, &
5649 -0.6126e-04, -0.8466e-04, -0.1164e-03, -0.1596e-03, -0.2177e-03, &
5650 -0.2933e-03, -0.3855e-03, -0.4874e-03, -0.5870e-03, -0.6718e-03, &
5651 -0.7290e-03, -0.7411e-03, -0.6859e-03, -0.5450e-03, -0.3353e-03, &
5652 -0.1363e-03/
5653 data ((h13(ip,iw),iw=1,31), ip=16,16)/ &
5654 0.6217e-09, 0.1165e-08, 0.2116e-08, 0.3685e-08, 0.6101e-08, &
5655 0.9523e-08, 0.1400e-07, 0.1959e-07, 0.2668e-07, 0.3629e-07, &
5656 0.4982e-07, 0.6876e-07, 0.9523e-07, 0.1321e-06, 0.1825e-06, &
5657 0.2505e-06, 0.3420e-06, 0.4677e-06, 0.6416e-06, 0.8760e-06, &
5658 0.1183e-05, 0.1565e-05, 0.2010e-05, 0.2472e-05, 0.2882e-05, &
5659 0.3229e-05, 0.3564e-05, 0.3777e-05, 0.3589e-05, 0.2786e-05, &
5660 0.1487e-05/
5661 data ((h11(ip,iw),iw=1,31), ip=17,17)/ &
5662 0.99991077, 0.99983180, 0.99969262, 0.99945968, 0.99909151, &
5663 0.99853700, 0.99773198, 0.99658400, 0.99496001, 0.99266702, &
5664 0.98943001, 0.98484999, 0.97842997, 0.96945000, 0.95703000, &
5665 0.93998998, 0.91676998, 0.88540000, 0.84350002, 0.78890002, &
5666 0.71990001, 0.63639998, 0.54060000, 0.43820000, 0.33639997, &
5667 0.24080002, 0.15460002, 0.08310002, 0.03310001, 0.00770003, &
5668 0.00050002/
5669 data ((h12(ip,iw),iw=1,31), ip=17,17)/ &
5670 -0.1405e-06, -0.2649e-06, -0.4829e-06, -0.8398e-06, -0.1379e-05, &
5671 -0.2132e-05, -0.3138e-05, -0.4487e-05, -0.6353e-05, -0.9026e-05, &
5672 -0.1290e-04, -0.1851e-04, -0.2650e-04, -0.3772e-04, -0.5319e-04, &
5673 -0.7431e-04, -0.1031e-03, -0.1422e-03, -0.1951e-03, -0.2648e-03, &
5674 -0.3519e-03, -0.4518e-03, -0.5537e-03, -0.6449e-03, -0.7133e-03, &
5675 -0.7432e-03, -0.7133e-03, -0.6018e-03, -0.4092e-03, -0.1951e-03, &
5676 -0.5345e-04/
5677 data ((h13(ip,iw),iw=1,31), ip=17,17)/ &
5678 0.6457e-09, 0.1235e-08, 0.2303e-08, 0.4149e-08, 0.7120e-08, &
5679 0.1152e-07, 0.1749e-07, 0.2508e-07, 0.3462e-07, 0.4718e-07, &
5680 0.6452e-07, 0.8874e-07, 0.1222e-06, 0.1675e-06, 0.2276e-06, &
5681 0.3076e-06, 0.4174e-06, 0.5714e-06, 0.7837e-06, 0.1067e-05, &
5682 0.1428e-05, 0.1859e-05, 0.2327e-05, 0.2760e-05, 0.3122e-05, &
5683 0.3458e-05, 0.3739e-05, 0.3715e-05, 0.3126e-05, 0.1942e-05, &
5684 0.6977e-06/
5685 data ((h11(ip,iw),iw=1,31), ip=18,18)/ &
5686 0.99990851, 0.99982500, 0.99967349, 0.99941093, 0.99897999, &
5687 0.99831200, 0.99732101, 0.99589097, 0.99386197, 0.99099803, &
5688 0.98695999, 0.98128998, 0.97333002, 0.96227002, 0.94700998, &
5689 0.92614001, 0.89779997, 0.85969996, 0.80949998, 0.74540001, &
5690 0.66649997, 0.57420003, 0.47310001, 0.37029999, 0.27200001, &
5691 0.18220001, 0.10500002, 0.04710001, 0.01359999, 0.00169998, &
5692 0.00000000/
5693 data ((h12(ip,iw),iw=1,31), ip=18,18)/ &
5694 -0.1431e-06, -0.2731e-06, -0.5072e-06, -0.9057e-06, -0.1537e-05, &
5695 -0.2460e-05, -0.3733e-05, -0.5449e-05, -0.7786e-05, -0.1106e-04, &
5696 -0.1574e-04, -0.2249e-04, -0.3212e-04, -0.4564e-04, -0.6438e-04, &
5697 -0.9019e-04, -0.1256e-03, -0.1737e-03, -0.2378e-03, -0.3196e-03, &
5698 -0.4163e-03, -0.5191e-03, -0.6154e-03, -0.6931e-03, -0.7384e-03, &
5699 -0.7313e-03, -0.6492e-03, -0.4805e-03, -0.2629e-03, -0.8897e-04, &
5700 -0.1432e-04/
5701 data ((h13(ip,iw),iw=1,31), ip=18,18)/ &
5702 0.6607e-09, 0.1282e-08, 0.2441e-08, 0.4522e-08, 0.8027e-08, &
5703 0.1348e-07, 0.2122e-07, 0.3139e-07, 0.4435e-07, 0.6095e-07, &
5704 0.8319e-07, 0.1139e-06, 0.1557e-06, 0.2107e-06, 0.2819e-06, &
5705 0.3773e-06, 0.5107e-06, 0.6982e-06, 0.9542e-06, 0.1290e-05, &
5706 0.1703e-05, 0.2170e-05, 0.2628e-05, 0.3013e-05, 0.3352e-05, &
5707 0.3669e-05, 0.3780e-05, 0.3397e-05, 0.2386e-05, 0.1062e-05, &
5708 0.2216e-06/
5709 data ((h11(ip,iw),iw=1,31), ip=19,19)/ &
5710 0.99990678, 0.99981970, 0.99965781, 0.99936831, 0.99887598, &
5711 0.99808502, 0.99687898, 0.99510998, 0.99257898, 0.98900002, &
5712 0.98398000, 0.97693998, 0.96711999, 0.95353001, 0.93484998, &
5713 0.90934002, 0.87479997, 0.82900000, 0.76960003, 0.69550002, &
5714 0.60720003, 0.50819999, 0.40490001, 0.30440003, 0.21130002, &
5715 0.12910002, 0.06389999, 0.02200001, 0.00389999, 0.00010002, &
5716 0.00000000/
5717 data ((h12(ip,iw),iw=1,31), ip=19,19)/ &
5718 -0.1454e-06, -0.2805e-06, -0.5296e-06, -0.9685e-06, -0.1695e-05, &
5719 -0.2812e-05, -0.4412e-05, -0.6606e-05, -0.9573e-05, -0.1363e-04, &
5720 -0.1932e-04, -0.2743e-04, -0.3897e-04, -0.5520e-04, -0.7787e-04, &
5721 -0.1094e-03, -0.1529e-03, -0.2117e-03, -0.2880e-03, -0.3809e-03, &
5722 -0.4834e-03, -0.5836e-03, -0.6692e-03, -0.7275e-03, -0.7408e-03, &
5723 -0.6865e-03, -0.5459e-03, -0.3360e-03, -0.1365e-03, -0.2935e-04, &
5724 -0.2173e-05/
5725 data ((h13(ip,iw),iw=1,31), ip=19,19)/ &
5726 0.6693e-09, 0.1312e-08, 0.2538e-08, 0.4802e-08, 0.8778e-08, &
5727 0.1528e-07, 0.2501e-07, 0.3836e-07, 0.5578e-07, 0.7806e-07, &
5728 0.1069e-06, 0.1456e-06, 0.1970e-06, 0.2631e-06, 0.3485e-06, &
5729 0.4642e-06, 0.6268e-06, 0.8526e-06, 0.1157e-05, 0.1545e-05, &
5730 0.2002e-05, 0.2478e-05, 0.2897e-05, 0.3245e-05, 0.3578e-05, &
5731 0.3789e-05, 0.3598e-05, 0.2792e-05, 0.1489e-05, 0.4160e-06, &
5732 0.3843e-07/
5733 data ((h11(ip,iw),iw=1,31), ip=20,20)/ &
5734 0.99990559, 0.99981570, 0.99964547, 0.99933308, 0.99878299, &
5735 0.99786699, 0.99642301, 0.99425799, 0.99111998, 0.98667002, &
5736 0.98041999, 0.97170001, 0.95960999, 0.94295001, 0.92012000, &
5737 0.88900000, 0.84740001, 0.79280001, 0.72360003, 0.63960004, &
5738 0.54330003, 0.44029999, 0.33800000, 0.24190003, 0.15530002, &
5739 0.08350003, 0.03320003, 0.00770003, 0.00050002, 0.00000000, &
5740 0.00000000/
5741 data ((h12(ip,iw),iw=1,31), ip=20,20)/ &
5742 -0.1472e-06, -0.2866e-06, -0.5485e-06, -0.1024e-05, -0.1842e-05, &
5743 -0.3160e-05, -0.5136e-05, -0.7922e-05, -0.1171e-04, -0.1682e-04, &
5744 -0.2381e-04, -0.3355e-04, -0.4729e-04, -0.6673e-04, -0.9417e-04, &
5745 -0.1327e-03, -0.1858e-03, -0.2564e-03, -0.3449e-03, -0.4463e-03, &
5746 -0.5495e-03, -0.6420e-03, -0.7116e-03, -0.7427e-03, -0.7139e-03, &
5747 -0.6031e-03, -0.4104e-03, -0.1957e-03, -0.5358e-04, -0.6176e-05, &
5748 -0.1347e-06/
5749 data ((h13(ip,iw),iw=1,31), ip=20,20)/ &
5750 0.6750e-09, 0.1332e-08, 0.2602e-08, 0.5003e-08, 0.9367e-08, &
5751 0.1684e-07, 0.2863e-07, 0.4566e-07, 0.6865e-07, 0.9861e-07, &
5752 0.1368e-06, 0.1856e-06, 0.2479e-06, 0.3274e-06, 0.4315e-06, &
5753 0.5739e-06, 0.7710e-06, 0.1040e-05, 0.1394e-05, 0.1829e-05, &
5754 0.2309e-05, 0.2759e-05, 0.3131e-05, 0.3472e-05, 0.3755e-05, &
5755 0.3730e-05, 0.3138e-05, 0.1948e-05, 0.6994e-06, 0.1022e-06, &
5756 0.2459e-08/
5757 data ((h11(ip,iw),iw=1,31), ip=21,21)/ &
5758 0.99990469, 0.99981278, 0.99963617, 0.99930513, 0.99870503, &
5759 0.99766999, 0.99597800, 0.99336702, 0.98951000, 0.98399001, &
5760 0.97622001, 0.96543998, 0.95059001, 0.93019998, 0.90235001, &
5761 0.86470002, 0.81480002, 0.75059998, 0.67129999, 0.57840002, &
5762 0.47659999, 0.37279999, 0.27389997, 0.18339998, 0.10570002, &
5763 0.04740000, 0.01370001, 0.00169998, 0.00000000, 0.00000000, &
5764 0.00000000/
5765 data ((h12(ip,iw),iw=1,31), ip=21,21)/ &
5766 -0.1487e-06, -0.2912e-06, -0.5636e-06, -0.1069e-05, -0.1969e-05, &
5767 -0.3483e-05, -0.5858e-05, -0.9334e-05, -0.1416e-04, -0.2067e-04, &
5768 -0.2936e-04, -0.4113e-04, -0.5750e-04, -0.8072e-04, -0.1139e-03, &
5769 -0.1606e-03, -0.2246e-03, -0.3076e-03, -0.4067e-03, -0.5121e-03, &
5770 -0.6110e-03, -0.6909e-03, -0.7378e-03, -0.7321e-03, -0.6509e-03, &
5771 -0.4825e-03, -0.2641e-03, -0.8936e-04, -0.1436e-04, -0.5966e-06, &
5772 0.0000e+00/
5773 data ((h13(ip,iw),iw=1,31), ip=21,21)/ &
5774 0.6777e-09, 0.1344e-08, 0.2643e-08, 0.5138e-08, 0.9798e-08, &
5775 0.1809e-07, 0.3185e-07, 0.5285e-07, 0.8249e-07, 0.1222e-06, &
5776 0.1730e-06, 0.2351e-06, 0.3111e-06, 0.4078e-06, 0.5366e-06, &
5777 0.7117e-06, 0.9495e-06, 0.1266e-05, 0.1667e-05, 0.2132e-05, &
5778 0.2600e-05, 0.3001e-05, 0.3354e-05, 0.3679e-05, 0.3796e-05, &
5779 0.3414e-05, 0.2399e-05, 0.1067e-05, 0.2222e-06, 0.1075e-07, &
5780 0.0000e+00/
5781 data ((h11(ip,iw),iw=1,31), ip=22,22)/ &
5782 0.99990410, 0.99981070, 0.99962938, 0.99928379, 0.99864298, &
5783 0.99750000, 0.99556601, 0.99247700, 0.98780000, 0.98100001, &
5784 0.97140002, 0.95810002, 0.93984997, 0.91491997, 0.88110000, &
5785 0.83570004, 0.77670002, 0.70239997, 0.61350000, 0.51349998, &
5786 0.40910000, 0.30750000, 0.21340001, 0.13040000, 0.06449997, &
5787 0.02219999, 0.00389999, 0.00010002, 0.00000000, 0.00000000, &
5788 0.00000000/
5789 data ((h12(ip,iw),iw=1,31), ip=22,22)/ &
5790 -0.1496e-06, -0.2947e-06, -0.5749e-06, -0.1105e-05, -0.2074e-05, &
5791 -0.3763e-05, -0.6531e-05, -0.1076e-04, -0.1682e-04, -0.2509e-04, &
5792 -0.3605e-04, -0.5049e-04, -0.7012e-04, -0.9787e-04, -0.1378e-03, &
5793 -0.1939e-03, -0.2695e-03, -0.3641e-03, -0.4703e-03, -0.5750e-03, &
5794 -0.6648e-03, -0.7264e-03, -0.7419e-03, -0.6889e-03, -0.5488e-03, &
5795 -0.3382e-03, -0.1375e-03, -0.2951e-04, -0.2174e-05, 0.0000e+00, &
5796 0.0000e+00/
5797 data ((h13(ip,iw),iw=1,31), ip=22,22)/ &
5798 0.6798e-09, 0.1350e-08, 0.2667e-08, 0.5226e-08, 0.1010e-07, &
5799 0.1903e-07, 0.3455e-07, 0.5951e-07, 0.9658e-07, 0.1479e-06, &
5800 0.2146e-06, 0.2951e-06, 0.3903e-06, 0.5101e-06, 0.6693e-06, &
5801 0.8830e-06, 0.1168e-05, 0.1532e-05, 0.1968e-05, 0.2435e-05, &
5802 0.2859e-05, 0.3222e-05, 0.3572e-05, 0.3797e-05, 0.3615e-05, &
5803 0.2811e-05, 0.1500e-05, 0.4185e-06, 0.3850e-07, 0.0000e+00, &
5804 0.0000e+00/
5805 data ((h11(ip,iw),iw=1,31), ip=23,23)/ &
5806 0.99990374, 0.99980932, 0.99962449, 0.99926788, 0.99859399, &
5807 0.99736100, 0.99520397, 0.99163198, 0.98606002, 0.97779000, &
5808 0.96600002, 0.94963002, 0.92720997, 0.89670002, 0.85580003, &
5809 0.80170000, 0.73269999, 0.64840001, 0.55110002, 0.44669998, &
5810 0.34280002, 0.24529999, 0.15750003, 0.08469999, 0.03369999, &
5811 0.00779998, 0.00050002, 0.00000000, 0.00000000, 0.00000000, &
5812 0.00000000/
5813 data ((h12(ip,iw),iw=1,31), ip=23,23)/ &
5814 -0.1503e-06, -0.2971e-06, -0.5832e-06, -0.1131e-05, -0.2154e-05, &
5815 -0.3992e-05, -0.7122e-05, -0.1211e-04, -0.1954e-04, -0.2995e-04, &
5816 -0.4380e-04, -0.6183e-04, -0.8577e-04, -0.1191e-03, -0.1668e-03, &
5817 -0.2333e-03, -0.3203e-03, -0.4237e-03, -0.5324e-03, -0.6318e-03, &
5818 -0.7075e-03, -0.7429e-03, -0.7168e-03, -0.6071e-03, -0.4139e-03, &
5819 -0.1976e-03, -0.5410e-04, -0.6215e-05, -0.1343e-06, 0.0000e+00, &
5820 0.0000e+00/
5821 data ((h13(ip,iw),iw=1,31), ip=23,23)/ &
5822 0.6809e-09, 0.1356e-08, 0.2683e-08, 0.5287e-08, 0.1030e-07, &
5823 0.1971e-07, 0.3665e-07, 0.6528e-07, 0.1100e-06, 0.1744e-06, &
5824 0.2599e-06, 0.3650e-06, 0.4887e-06, 0.6398e-06, 0.8358e-06, &
5825 0.1095e-05, 0.1429e-05, 0.1836e-05, 0.2286e-05, 0.2716e-05, &
5826 0.3088e-05, 0.3444e-05, 0.3748e-05, 0.3740e-05, 0.3157e-05, &
5827 0.1966e-05, 0.7064e-06, 0.1030e-06, 0.2456e-08, 0.0000e+00, &
5828 0.0000e+00/
5829 data ((h11(ip,iw),iw=1,31), ip=24,24)/ &
5830 0.99990344, 0.99980831, 0.99962109, 0.99925637, 0.99855798, &
5831 0.99725199, 0.99489999, 0.99087203, 0.98436999, 0.97447002, &
5832 0.96012998, 0.94006002, 0.91254002, 0.87540001, 0.82609999, &
5833 0.76240003, 0.68299997, 0.58930004, 0.48589998, 0.38020003, &
5834 0.27920002, 0.18699998, 0.10769999, 0.04830003, 0.01400000, &
5835 0.00169998, 0.00000000, 0.00000000, 0.00000000, 0.00000000, &
5836 0.00000000/
5837 data ((h12(ip,iw),iw=1,31), ip=24,24)/ &
5838 -0.1508e-06, -0.2989e-06, -0.5892e-06, -0.1151e-05, -0.2216e-05, &
5839 -0.4175e-05, -0.7619e-05, -0.1333e-04, -0.2217e-04, -0.3497e-04, &
5840 -0.5238e-04, -0.7513e-04, -0.1049e-03, -0.1455e-03, -0.2021e-03, &
5841 -0.2790e-03, -0.3757e-03, -0.4839e-03, -0.5902e-03, -0.6794e-03, &
5842 -0.7344e-03, -0.7341e-03, -0.6557e-03, -0.4874e-03, -0.2674e-03, &
5843 -0.9059e-04, -0.1455e-04, -0.5986e-06, 0.0000e+00, 0.0000e+00, &
5844 0.0000e+00/
5845 data ((h13(ip,iw),iw=1,31), ip=24,24)/ &
5846 0.6812e-09, 0.1356e-08, 0.2693e-08, 0.5328e-08, 0.1045e-07, &
5847 0.2021e-07, 0.3826e-07, 0.6994e-07, 0.1218e-06, 0.1997e-06, &
5848 0.3069e-06, 0.4428e-06, 0.6064e-06, 0.8015e-06, 0.1043e-05, &
5849 0.1351e-05, 0.1733e-05, 0.2168e-05, 0.2598e-05, 0.2968e-05, &
5850 0.3316e-05, 0.3662e-05, 0.3801e-05, 0.3433e-05, 0.2422e-05, &
5851 0.1081e-05, 0.2256e-06, 0.1082e-07, 0.0000e+00, 0.0000e+00, &
5852 0.0000e+00/
5853 data ((h11(ip,iw),iw=1,31), ip=25,25)/ &
5854 0.99990326, 0.99980772, 0.99961871, 0.99924821, 0.99853098, &
5855 0.99716800, 0.99465698, 0.99022102, 0.98281002, 0.97118002, &
5856 0.95393997, 0.92948997, 0.89579999, 0.85070002, 0.79189998, &
5857 0.71759999, 0.62800002, 0.52639997, 0.41970003, 0.31559998, &
5858 0.21899998, 0.13370001, 0.06610000, 0.02280003, 0.00400001, &
5859 0.00010002, 0.00000000, 0.00000000, 0.00000000, 0.00000000, &
5860 0.00000000/
5861 data ((h12(ip,iw),iw=1,31), ip=25,25)/ &
5862 -0.1511e-06, -0.3001e-06, -0.5934e-06, -0.1166e-05, -0.2263e-05, &
5863 -0.4319e-05, -0.8028e-05, -0.1438e-04, -0.2460e-04, -0.3991e-04, &
5864 -0.6138e-04, -0.9005e-04, -0.1278e-03, -0.1778e-03, -0.2447e-03, &
5865 -0.3313e-03, -0.4342e-03, -0.5424e-03, -0.6416e-03, -0.7146e-03, &
5866 -0.7399e-03, -0.6932e-03, -0.5551e-03, -0.3432e-03, -0.1398e-03, &
5867 -0.3010e-04, -0.2229e-05, 0.0000e+00, 0.0000e+00, 0.0000e+00, &
5868 0.0000e+00/
5869 data ((h13(ip,iw),iw=1,31), ip=25,25)/ &
5870 0.6815e-09, 0.1358e-08, 0.2698e-08, 0.5355e-08, 0.1054e-07, &
5871 0.2056e-07, 0.3942e-07, 0.7349e-07, 0.1315e-06, 0.2226e-06, &
5872 0.3537e-06, 0.5266e-06, 0.7407e-06, 0.9958e-06, 0.1296e-05, &
5873 0.1657e-05, 0.2077e-05, 0.2512e-05, 0.2893e-05, 0.3216e-05, &
5874 0.3562e-05, 0.3811e-05, 0.3644e-05, 0.2841e-05, 0.1524e-05, &
5875 0.4276e-06, 0.3960e-07, 0.0000e+00, 0.0000e+00, 0.0000e+00, &
5876 0.0000e+00/
5877 data ((h11(ip,iw),iw=1,31), ip=26,26)/ &
5878 0.99990320, 0.99980718, 0.99961710, 0.99924242, 0.99851102, &
5879 0.99710602, 0.99446702, 0.98969001, 0.98144001, 0.96805000, &
5880 0.94762999, 0.91812998, 0.87730002, 0.82290000, 0.75319999, &
5881 0.66789997, 0.56879997, 0.46160001, 0.35450000, 0.25370002, &
5882 0.16280001, 0.08740002, 0.03479999, 0.00809997, 0.00059998, &
5883 0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, &
5884 0.00000000/
5885 data ((h12(ip,iw),iw=1,31), ip=26,26)/ &
5886 -0.1513e-06, -0.3009e-06, -0.5966e-06, -0.1176e-05, -0.2299e-05, &
5887 -0.4430e-05, -0.8352e-05, -0.1526e-04, -0.2674e-04, -0.4454e-04, &
5888 -0.7042e-04, -0.1062e-03, -0.1540e-03, -0.2163e-03, -0.2951e-03, &
5889 -0.3899e-03, -0.4948e-03, -0.5983e-03, -0.6846e-03, -0.7332e-03, &
5890 -0.7182e-03, -0.6142e-03, -0.4209e-03, -0.2014e-03, -0.5530e-04, &
5891 -0.6418e-05, -0.1439e-06, 0.0000e+00, 0.0000e+00, 0.0000e+00, &
5892 0.0000e+00/
5893 data ((h13(ip,iw),iw=1,31), ip=26,26)/ &
5894 0.6817e-09, 0.1359e-08, 0.2702e-08, 0.5374e-08, 0.1061e-07, &
5895 0.2079e-07, 0.4022e-07, 0.7610e-07, 0.1392e-06, 0.2428e-06, &
5896 0.3992e-06, 0.6149e-06, 0.8893e-06, 0.1220e-05, 0.1599e-05, &
5897 0.2015e-05, 0.2453e-05, 0.2853e-05, 0.3173e-05, 0.3488e-05, &
5898 0.3792e-05, 0.3800e-05, 0.3210e-05, 0.2002e-05, 0.7234e-06, &
5899 0.1068e-06, 0.2646e-08, 0.0000e+00, 0.0000e+00, 0.0000e+00, &
5900 0.0000e+00/
5901 data ((h21(ip,iw),iw=1,31), ip= 1, 1)/ &
5902 0.99999607, 0.99999237, 0.99998546, 0.99997294, 0.99995142, &
5903 0.99991685, 0.99986511, 0.99979371, 0.99970162, 0.99958909, &
5904 0.99945778, 0.99931037, 0.99914628, 0.99895900, 0.99873799, &
5905 0.99846601, 0.99813002, 0.99771398, 0.99719697, 0.99655598, &
5906 0.99575800, 0.99475598, 0.99348903, 0.99186200, 0.98973000, &
5907 0.98688000, 0.98303002, 0.97777998, 0.97059000, 0.96077001, &
5908 0.94742000/
5909 data ((h22(ip,iw),iw=1,31), ip= 1, 1)/ &
5910 -0.5622e-07, -0.1071e-06, -0.1983e-06, -0.3533e-06, -0.5991e-06, &
5911 -0.9592e-06, -0.1444e-05, -0.2049e-05, -0.2764e-05, -0.3577e-05, &
5912 -0.4469e-05, -0.5467e-05, -0.6654e-05, -0.8137e-05, -0.1002e-04, &
5913 -0.1237e-04, -0.1528e-04, -0.1884e-04, -0.2310e-04, -0.2809e-04, &
5914 -0.3396e-04, -0.4098e-04, -0.4960e-04, -0.6058e-04, -0.7506e-04, &
5915 -0.9451e-04, -0.1207e-03, -0.1558e-03, -0.2026e-03, -0.2648e-03, &
5916 -0.3468e-03/
5917 data ((h23(ip,iw),iw=1,31), ip= 1, 1)/ &
5918 -0.2195e-09, -0.4031e-09, -0.7043e-09, -0.1153e-08, -0.1737e-08, &
5919 -0.2395e-08, -0.3020e-08, -0.3549e-08, -0.4034e-08, -0.4421e-08, &
5920 -0.4736e-08, -0.5681e-08, -0.8289e-08, -0.1287e-07, -0.1873e-07, &
5921 -0.2523e-07, -0.3223e-07, -0.3902e-07, -0.4409e-07, -0.4699e-07, &
5922 -0.4782e-07, -0.4705e-07, -0.4657e-07, -0.4885e-07, -0.5550e-07, &
5923 -0.6619e-07, -0.7656e-07, -0.8027e-07, -0.7261e-07, -0.4983e-07, &
5924 -0.1101e-07/
5925 data ((h21(ip,iw),iw=1,31), ip= 2, 2)/ &
5926 0.99999607, 0.99999237, 0.99998546, 0.99997294, 0.99995142, &
5927 0.99991679, 0.99986511, 0.99979353, 0.99970138, 0.99958861, &
5928 0.99945688, 0.99930882, 0.99914342, 0.99895400, 0.99872798, &
5929 0.99844801, 0.99809802, 0.99765801, 0.99710101, 0.99639499, &
5930 0.99549901, 0.99435198, 0.99287099, 0.99093699, 0.98837000, &
5931 0.98491001, 0.98019999, 0.97373998, 0.96490002, 0.95283002, &
5932 0.93649000/
5933 data ((h22(ip,iw),iw=1,31), ip= 2, 2)/ &
5934 -0.5622e-07, -0.1071e-06, -0.1983e-06, -0.3534e-06, -0.5992e-06, &
5935 -0.9594e-06, -0.1445e-05, -0.2050e-05, -0.2766e-05, -0.3580e-05, &
5936 -0.4476e-05, -0.5479e-05, -0.6677e-05, -0.8179e-05, -0.1009e-04, &
5937 -0.1251e-04, -0.1553e-04, -0.1928e-04, -0.2384e-04, -0.2930e-04, &
5938 -0.3588e-04, -0.4393e-04, -0.5403e-04, -0.6714e-04, -0.8458e-04, &
5939 -0.1082e-03, -0.1400e-03, -0.1829e-03, -0.2401e-03, -0.3157e-03, &
5940 -0.4147e-03/
5941 data ((h23(ip,iw),iw=1,31), ip= 2, 2)/ &
5942 -0.2195e-09, -0.4032e-09, -0.7046e-09, -0.1153e-08, -0.1738e-08, &
5943 -0.2395e-08, -0.3021e-08, -0.3550e-08, -0.4035e-08, -0.4423e-08, &
5944 -0.4740e-08, -0.5692e-08, -0.8314e-08, -0.1292e-07, -0.1882e-07, &
5945 -0.2536e-07, -0.3242e-07, -0.3927e-07, -0.4449e-07, -0.4767e-07, &
5946 -0.4889e-07, -0.4857e-07, -0.4860e-07, -0.5132e-07, -0.5847e-07, &
5947 -0.6968e-07, -0.8037e-07, -0.8400e-07, -0.7521e-07, -0.4830e-07, &
5948 -0.7562e-09/
5949 data ((h21(ip,iw),iw=1,31), ip= 3, 3)/ &
5950 0.99999607, 0.99999237, 0.99998546, 0.99997294, 0.99995142, &
5951 0.99991679, 0.99986500, 0.99979341, 0.99970102, 0.99958777, &
5952 0.99945557, 0.99930632, 0.99913889, 0.99894601, 0.99871302, &
5953 0.99842101, 0.99805099, 0.99757600, 0.99696302, 0.99617100, &
5954 0.99514598, 0.99381000, 0.99205798, 0.98974001, 0.98662001, &
5955 0.98238999, 0.97659999, 0.96866000, 0.95776999, 0.94296998, &
5956 0.92306000/
5957 data ((h22(ip,iw),iw=1,31), ip= 3, 3)/ &
5958 -0.5622e-07, -0.1071e-06, -0.1983e-06, -0.3535e-06, -0.5994e-06, &
5959 -0.9599e-06, -0.1446e-05, -0.2052e-05, -0.2769e-05, -0.3586e-05, &
5960 -0.4487e-05, -0.5499e-05, -0.6712e-05, -0.8244e-05, -0.1021e-04, &
5961 -0.1272e-04, -0.1591e-04, -0.1992e-04, -0.2489e-04, -0.3097e-04, &
5962 -0.3845e-04, -0.4782e-04, -0.5982e-04, -0.7558e-04, -0.9674e-04, &
5963 -0.1254e-03, -0.1644e-03, -0.2167e-03, -0.2863e-03, -0.3777e-03, &
5964 -0.4959e-03/
5965 data ((h23(ip,iw),iw=1,31), ip= 3, 3)/ &
5966 -0.2196e-09, -0.4033e-09, -0.7048e-09, -0.1154e-08, -0.1739e-08, &
5967 -0.2396e-08, -0.3022e-08, -0.3551e-08, -0.4036e-08, -0.4425e-08, &
5968 -0.4746e-08, -0.5710e-08, -0.8354e-08, -0.1300e-07, -0.1894e-07, &
5969 -0.2554e-07, -0.3265e-07, -0.3958e-07, -0.4502e-07, -0.4859e-07, &
5970 -0.5030e-07, -0.5053e-07, -0.5104e-07, -0.5427e-07, -0.6204e-07, &
5971 -0.7388e-07, -0.8477e-07, -0.8760e-07, -0.7545e-07, -0.4099e-07, &
5972 0.2046e-07/
5973 data ((h21(ip,iw),iw=1,31), ip= 4, 4)/ &
5974 0.99999607, 0.99999237, 0.99998546, 0.99997294, 0.99995142, &
5975 0.99991673, 0.99986482, 0.99979299, 0.99970031, 0.99958658, &
5976 0.99945343, 0.99930239, 0.99913180, 0.99893302, 0.99869001, &
5977 0.99838102, 0.99798000, 0.99745703, 0.99676800, 0.99586397, &
5978 0.99467200, 0.99309403, 0.99099600, 0.98817998, 0.98438001, &
5979 0.97918999, 0.97206002, 0.96227002, 0.94888997, 0.93080997, &
5980 0.90671003/
5981 data ((h22(ip,iw),iw=1,31), ip= 4, 4)/ &
5982 -0.5623e-07, -0.1071e-06, -0.1984e-06, -0.3536e-06, -0.5997e-06, &
5983 -0.9606e-06, -0.1447e-05, -0.2055e-05, -0.2775e-05, -0.3596e-05, &
5984 -0.4504e-05, -0.5529e-05, -0.6768e-05, -0.8345e-05, -0.1039e-04, &
5985 -0.1304e-04, -0.1645e-04, -0.2082e-04, -0.2633e-04, -0.3322e-04, &
5986 -0.4187e-04, -0.5292e-04, -0.6730e-04, -0.8640e-04, -0.1122e-03, &
5987 -0.1472e-03, -0.1948e-03, -0.2585e-03, -0.3428e-03, -0.4523e-03, &
5988 -0.5915e-03/
5989 data ((h23(ip,iw),iw=1,31), ip= 4, 4)/ &
5990 -0.2196e-09, -0.4034e-09, -0.7050e-09, -0.1154e-08, -0.1740e-08, &
5991 -0.2398e-08, -0.3024e-08, -0.3552e-08, -0.4037e-08, -0.4428e-08, &
5992 -0.4756e-08, -0.5741e-08, -0.8418e-08, -0.1310e-07, -0.1910e-07, &
5993 -0.2575e-07, -0.3293e-07, -0.3998e-07, -0.4572e-07, -0.4980e-07, &
5994 -0.5211e-07, -0.5287e-07, -0.5390e-07, -0.5782e-07, -0.6650e-07, &
5995 -0.7892e-07, -0.8940e-07, -0.8980e-07, -0.7119e-07, -0.2452e-07, &
5996 0.5823e-07/
5997 data ((h21(ip,iw),iw=1,31), ip= 5, 5)/ &
5998 0.99999607, 0.99999237, 0.99998546, 0.99997294, 0.99995136, &
5999 0.99991661, 0.99986458, 0.99979252, 0.99969929, 0.99958479, &
6000 0.99945003, 0.99929619, 0.99912071, 0.99891400, 0.99865502, &
6001 0.99831998, 0.99787700, 0.99728799, 0.99650002, 0.99544799, &
6002 0.99404198, 0.99215603, 0.98961997, 0.98619002, 0.98153001, &
6003 0.97513002, 0.96634001, 0.95428002, 0.93791002, 0.91593999, &
6004 0.88700002/
6005 data ((h22(ip,iw),iw=1,31), ip= 5, 5)/ &
6006 -0.5623e-07, -0.1071e-06, -0.1985e-06, -0.3538e-06, -0.6002e-06, &
6007 -0.9618e-06, -0.1450e-05, -0.2059e-05, -0.2783e-05, -0.3611e-05, &
6008 -0.4531e-05, -0.5577e-05, -0.6855e-05, -0.8499e-05, -0.1066e-04, &
6009 -0.1351e-04, -0.1723e-04, -0.2207e-04, -0.2829e-04, -0.3621e-04, &
6010 -0.4636e-04, -0.5954e-04, -0.7690e-04, -0.1002e-03, -0.1317e-03, &
6011 -0.1746e-03, -0.2326e-03, -0.3099e-03, -0.4111e-03, -0.5407e-03, &
6012 -0.7020e-03/
6013 data ((h23(ip,iw),iw=1,31), ip= 5, 5)/ &
6014 -0.2197e-09, -0.4037e-09, -0.7054e-09, -0.1155e-08, -0.1741e-08, &
6015 -0.2401e-08, -0.3027e-08, -0.3553e-08, -0.4039e-08, -0.4431e-08, &
6016 -0.4775e-08, -0.5784e-08, -0.8506e-08, -0.1326e-07, -0.1931e-07, &
6017 -0.2600e-07, -0.3324e-07, -0.4048e-07, -0.4666e-07, -0.5137e-07, &
6018 -0.5428e-07, -0.5558e-07, -0.5730e-07, -0.6228e-07, -0.7197e-07, &
6019 -0.8455e-07, -0.9347e-07, -0.8867e-07, -0.5945e-07, 0.5512e-08, &
6020 0.1209e-06/
6021 data ((h21(ip,iw),iw=1,31), ip= 6, 6)/ &
6022 0.99999607, 0.99999237, 0.99998546, 0.99997288, 0.99995130, &
6023 0.99991649, 0.99986428, 0.99979180, 0.99969780, 0.99958187, &
6024 0.99944460, 0.99928659, 0.99910372, 0.99888301, 0.99860299, &
6025 0.99822998, 0.99773002, 0.99705303, 0.99613500, 0.99489301, &
6026 0.99321300, 0.99093801, 0.98785001, 0.98365998, 0.97790998, &
6027 0.97000998, 0.95916998, 0.94437003, 0.92440999, 0.89789999, &
6028 0.86360002/
6029 data ((h22(ip,iw),iw=1,31), ip= 6, 6)/ &
6030 -0.5624e-07, -0.1072e-06, -0.1986e-06, -0.3541e-06, -0.6010e-06, &
6031 -0.9636e-06, -0.1453e-05, -0.2067e-05, -0.2796e-05, -0.3634e-05, &
6032 -0.4572e-05, -0.5652e-05, -0.6987e-05, -0.8733e-05, -0.1107e-04, &
6033 -0.1418e-04, -0.1832e-04, -0.2378e-04, -0.3092e-04, -0.4017e-04, &
6034 -0.5221e-04, -0.6806e-04, -0.8916e-04, -0.1176e-03, -0.1562e-03, &
6035 -0.2087e-03, -0.2793e-03, -0.3724e-03, -0.4928e-03, -0.6440e-03, &
6036 -0.8270e-03/
6037 data ((h23(ip,iw),iw=1,31), ip= 6, 6)/ &
6038 -0.2198e-09, -0.4040e-09, -0.7061e-09, -0.1156e-08, -0.1744e-08, &
6039 -0.2405e-08, -0.3032e-08, -0.3556e-08, -0.4040e-08, -0.4444e-08, &
6040 -0.4800e-08, -0.5848e-08, -0.8640e-08, -0.1346e-07, -0.1957e-07, &
6041 -0.2627e-07, -0.3357e-07, -0.4114e-07, -0.4793e-07, -0.5330e-07, &
6042 -0.5676e-07, -0.5873e-07, -0.6152e-07, -0.6783e-07, -0.7834e-07, &
6043 -0.9023e-07, -0.9530e-07, -0.8162e-07, -0.3634e-07, 0.5638e-07, &
6044 0.2189e-06/
6045 data ((h21(ip,iw),iw=1,31), ip= 7, 7)/ &
6046 0.99999607, 0.99999237, 0.99998546, 0.99997288, 0.99995124, &
6047 0.99991626, 0.99986368, 0.99979049, 0.99969530, 0.99957728, &
6048 0.99943632, 0.99927181, 0.99907762, 0.99883801, 0.99852502, &
6049 0.99810201, 0.99752498, 0.99673301, 0.99564600, 0.99416101, &
6050 0.99213398, 0.98936999, 0.98559999, 0.98043001, 0.97333997, &
6051 0.96359003, 0.95025003, 0.93216002, 0.90798998, 0.87639999, &
6052 0.83609998/
6053 data ((h22(ip,iw),iw=1,31), ip= 7, 7)/ &
6054 -0.5626e-07, -0.1072e-06, -0.1987e-06, -0.3545e-06, -0.6022e-06, &
6055 -0.9665e-06, -0.1460e-05, -0.2078e-05, -0.2817e-05, -0.3671e-05, &
6056 -0.4637e-05, -0.5767e-05, -0.7188e-05, -0.9080e-05, -0.1165e-04, &
6057 -0.1513e-04, -0.1981e-04, -0.2609e-04, -0.3441e-04, -0.4534e-04, &
6058 -0.5978e-04, -0.7897e-04, -0.1047e-03, -0.1396e-03, -0.1870e-03, &
6059 -0.2510e-03, -0.3363e-03, -0.4475e-03, -0.5888e-03, -0.7621e-03, &
6060 -0.9647e-03/
6061 data ((h23(ip,iw),iw=1,31), ip= 7, 7)/ &
6062 -0.2200e-09, -0.4045e-09, -0.7071e-09, -0.1159e-08, -0.1748e-08, &
6063 -0.2411e-08, -0.3040e-08, -0.3561e-08, -0.4046e-08, -0.4455e-08, &
6064 -0.4839e-08, -0.5941e-08, -0.8815e-08, -0.1371e-07, -0.1983e-07, &
6065 -0.2652e-07, -0.3400e-07, -0.4207e-07, -0.4955e-07, -0.5554e-07, &
6066 -0.5966e-07, -0.6261e-07, -0.6688e-07, -0.7454e-07, -0.8521e-07, &
6067 -0.9470e-07, -0.9275e-07, -0.6525e-07, 0.3686e-08, 0.1371e-06, &
6068 0.3623e-06/
6069 data ((h21(ip,iw),iw=1,31), ip= 8, 8)/ &
6070 0.99999607, 0.99999237, 0.99998540, 0.99997282, 0.99995112, &
6071 0.99991590, 0.99986279, 0.99978858, 0.99969149, 0.99957019, &
6072 0.99942350, 0.99924922, 0.99903822, 0.99877101, 0.99841398, &
6073 0.99792302, 0.99724299, 0.99630302, 0.99500000, 0.99320602, &
6074 0.99074000, 0.98736000, 0.98272002, 0.97635001, 0.96758002, &
6075 0.95555997, 0.93919998, 0.91722000, 0.88819999, 0.85089999, &
6076 0.80439997/
6077 data ((h22(ip,iw),iw=1,31), ip= 8, 8)/ &
6078 -0.5628e-07, -0.1073e-06, -0.1990e-06, -0.3553e-06, -0.6042e-06, &
6079 -0.9710e-06, -0.1469e-05, -0.2096e-05, -0.2849e-05, -0.3728e-05, &
6080 -0.4738e-05, -0.5942e-05, -0.7490e-05, -0.9586e-05, -0.1247e-04, &
6081 -0.1644e-04, -0.2184e-04, -0.2916e-04, -0.3898e-04, -0.5205e-04, &
6082 -0.6948e-04, -0.9285e-04, -0.1244e-03, -0.1672e-03, -0.2251e-03, &
6083 -0.3028e-03, -0.4051e-03, -0.5365e-03, -0.6998e-03, -0.8940e-03, &
6084 -0.1112e-02/
6085 data ((h23(ip,iw),iw=1,31), ip= 8, 8)/ &
6086 -0.2204e-09, -0.4052e-09, -0.7088e-09, -0.1162e-08, -0.1755e-08, &
6087 -0.2422e-08, -0.3053e-08, -0.3572e-08, -0.4052e-08, -0.4474e-08, &
6088 -0.4898e-08, -0.6082e-08, -0.9046e-08, -0.1400e-07, -0.2009e-07, &
6089 -0.2683e-07, -0.3463e-07, -0.4334e-07, -0.5153e-07, -0.5811e-07, &
6090 -0.6305e-07, -0.6749e-07, -0.7346e-07, -0.8208e-07, -0.9173e-07, &
6091 -0.9603e-07, -0.8264e-07, -0.3505e-07, 0.6878e-07, 0.2586e-06, &
6092 0.5530e-06/
6093 data ((h21(ip,iw),iw=1,31), ip= 9, 9)/ &
6094 0.99999607, 0.99999237, 0.99998540, 0.99997276, 0.99995089, &
6095 0.99991536, 0.99986148, 0.99978572, 0.99968570, 0.99955928, &
6096 0.99940401, 0.99921501, 0.99897999, 0.99867398, 0.99825603, &
6097 0.99767601, 0.99686497, 0.99573302, 0.99415499, 0.99196899, &
6098 0.98895001, 0.98479998, 0.97907001, 0.97119999, 0.96038002, &
6099 0.94559997, 0.92565000, 0.89910001, 0.86470002, 0.82130003, &
6100 0.76830000/
6101 data ((h22(ip,iw),iw=1,31), ip= 9, 9)/ &
6102 -0.5630e-07, -0.1074e-06, -0.1994e-06, -0.3564e-06, -0.6072e-06, &
6103 -0.9779e-06, -0.1484e-05, -0.2124e-05, -0.2900e-05, -0.3817e-05, &
6104 -0.4891e-05, -0.6205e-05, -0.7931e-05, -0.1031e-04, -0.1362e-04, &
6105 -0.1821e-04, -0.2454e-04, -0.3320e-04, -0.4493e-04, -0.6068e-04, &
6106 -0.8186e-04, -0.1104e-03, -0.1491e-03, -0.2016e-03, -0.2722e-03, &
6107 -0.3658e-03, -0.4873e-03, -0.6404e-03, -0.8253e-03, -0.1037e-02, &
6108 -0.1267e-02/
6109 data ((h23(ip,iw),iw=1,31), ip= 9, 9)/ &
6110 -0.2207e-09, -0.4061e-09, -0.7117e-09, -0.1169e-08, -0.1767e-08, &
6111 -0.2439e-08, -0.3074e-08, -0.3588e-08, -0.4062e-08, -0.4510e-08, &
6112 -0.4983e-08, -0.6261e-08, -0.9324e-08, -0.1430e-07, -0.2036e-07, &
6113 -0.2725e-07, -0.3561e-07, -0.4505e-07, -0.5384e-07, -0.6111e-07, &
6114 -0.6731e-07, -0.7355e-07, -0.8112e-07, -0.8978e-07, -0.9616e-07, &
6115 -0.9157e-07, -0.6114e-07, 0.1622e-07, 0.1694e-06, 0.4277e-06, &
6116 0.7751e-06/
6117 data ((h21(ip,iw),iw=1,31), ip=10,10)/ &
6118 0.99999607, 0.99999237, 0.99998540, 0.99997264, 0.99995059, &
6119 0.99991453, 0.99985939, 0.99978119, 0.99967682, 0.99954277, &
6120 0.99937469, 0.99916458, 0.99889499, 0.99853599, 0.99804002, &
6121 0.99734300, 0.99636298, 0.99498600, 0.99305803, 0.99037802, &
6122 0.98667002, 0.98154002, 0.97447002, 0.96473998, 0.95141000, &
6123 0.93333000, 0.90916002, 0.87750000, 0.83710003, 0.78729999, &
6124 0.72790003/
6125 data ((h22(ip,iw),iw=1,31), ip=10,10)/ &
6126 -0.5636e-07, -0.1076e-06, -0.2000e-06, -0.3582e-06, -0.6119e-06, &
6127 -0.9888e-06, -0.1507e-05, -0.2168e-05, -0.2978e-05, -0.3952e-05, &
6128 -0.5122e-05, -0.6592e-05, -0.8565e-05, -0.1132e-04, -0.1518e-04, &
6129 -0.2060e-04, -0.2811e-04, -0.3848e-04, -0.5261e-04, -0.7173e-04, &
6130 -0.9758e-04, -0.1326e-03, -0.1801e-03, -0.2442e-03, -0.3296e-03, &
6131 -0.4415e-03, -0.5840e-03, -0.7591e-03, -0.9636e-03, -0.1189e-02, &
6132 -0.1427e-02/
6133 data ((h23(ip,iw),iw=1,31), ip=10,10)/ &
6134 -0.2214e-09, -0.4080e-09, -0.7156e-09, -0.1178e-08, -0.1784e-08, &
6135 -0.2466e-08, -0.3105e-08, -0.3617e-08, -0.4087e-08, -0.4563e-08, &
6136 -0.5110e-08, -0.6492e-08, -0.9643e-08, -0.1461e-07, -0.2069e-07, &
6137 -0.2796e-07, -0.3702e-07, -0.4717e-07, -0.5662e-07, -0.6484e-07, &
6138 -0.7271e-07, -0.8079e-07, -0.8928e-07, -0.9634e-07, -0.9625e-07, &
6139 -0.7776e-07, -0.2242e-07, 0.9745e-07, 0.3152e-06, 0.6388e-06, &
6140 0.9992e-06/
6141 data ((h21(ip,iw),iw=1,31), ip=11,11)/ &
6142 0.99999607, 0.99999237, 0.99998534, 0.99997252, 0.99995011, &
6143 0.99991328, 0.99985629, 0.99977452, 0.99966347, 0.99951839, &
6144 0.99933177, 0.99909180, 0.99877602, 0.99834698, 0.99774700, &
6145 0.99690098, 0.99570400, 0.99401599, 0.99164802, 0.98834997, &
6146 0.98377001, 0.97742999, 0.96868002, 0.95666999, 0.94032001, &
6147 0.91833997, 0.88929999, 0.85189998, 0.80530000, 0.74909997, &
6148 0.68299997/
6149 data ((h22(ip,iw),iw=1,31), ip=11,11)/ &
6150 -0.5645e-07, -0.1079e-06, -0.2009e-06, -0.3610e-06, -0.6190e-06, &
6151 -0.1005e-05, -0.1541e-05, -0.2235e-05, -0.3096e-05, -0.4155e-05, &
6152 -0.5463e-05, -0.7150e-05, -0.9453e-05, -0.1269e-04, -0.1728e-04, &
6153 -0.2375e-04, -0.3279e-04, -0.4531e-04, -0.6246e-04, -0.8579e-04, &
6154 -0.1175e-03, -0.1604e-03, -0.2186e-03, -0.2964e-03, -0.3990e-03, &
6155 -0.5311e-03, -0.6957e-03, -0.8916e-03, -0.1112e-02, -0.1346e-02, &
6156 -0.1590e-02/
6157 data ((h23(ip,iw),iw=1,31), ip=11,11)/ &
6158 -0.2225e-09, -0.4104e-09, -0.7217e-09, -0.1192e-08, -0.1811e-08, &
6159 -0.2509e-08, -0.3155e-08, -0.3668e-08, -0.4138e-08, -0.4650e-08, &
6160 -0.5296e-08, -0.6785e-08, -0.9991e-08, -0.1494e-07, -0.2122e-07, &
6161 -0.2911e-07, -0.3895e-07, -0.4979e-07, -0.6002e-07, -0.6964e-07, &
6162 -0.7935e-07, -0.8887e-07, -0.9699e-07, -0.9967e-07, -0.8883e-07, &
6163 -0.4988e-07, 0.4156e-07, 0.2197e-06, 0.5081e-06, 0.8667e-06, &
6164 0.1212e-05/
6165 data ((h21(ip,iw),iw=1,31), ip=12,12)/ &
6166 0.99999607, 0.99999237, 0.99998528, 0.99997234, 0.99994951, &
6167 0.99991143, 0.99985188, 0.99976480, 0.99964428, 0.99948311, &
6168 0.99927050, 0.99899000, 0.99861199, 0.99809098, 0.99735999, &
6169 0.99632198, 0.99484903, 0.99276900, 0.98984998, 0.98576999, &
6170 0.98009998, 0.97224998, 0.96144003, 0.94667000, 0.92672002, &
6171 0.90020001, 0.86570001, 0.82220000, 0.76919997, 0.70640004, &
6172 0.63330001/
6173 data ((h22(ip,iw),iw=1,31), ip=12,12)/ &
6174 -0.5658e-07, -0.1083e-06, -0.2023e-06, -0.3650e-06, -0.6295e-06, &
6175 -0.1030e-05, -0.1593e-05, -0.2334e-05, -0.3273e-05, -0.4455e-05, &
6176 -0.5955e-05, -0.7935e-05, -0.1067e-04, -0.1455e-04, -0.2007e-04, &
6177 -0.2788e-04, -0.3885e-04, -0.5409e-04, -0.7503e-04, -0.1036e-03, &
6178 -0.1425e-03, -0.1951e-03, -0.2660e-03, -0.3598e-03, -0.4817e-03, &
6179 -0.6355e-03, -0.8218e-03, -0.1035e-02, -0.1267e-02, -0.1508e-02, &
6180 -0.1755e-02/
6181 data ((h23(ip,iw),iw=1,31), ip=12,12)/ &
6182 -0.2241e-09, -0.4142e-09, -0.7312e-09, -0.1214e-08, -0.1854e-08, &
6183 -0.2578e-08, -0.3250e-08, -0.3765e-08, -0.4238e-08, -0.4809e-08, &
6184 -0.5553e-08, -0.7132e-08, -0.1035e-07, -0.1538e-07, -0.2211e-07, &
6185 -0.3079e-07, -0.4142e-07, -0.5303e-07, -0.6437e-07, -0.7566e-07, &
6186 -0.8703e-07, -0.9700e-07, -0.1025e-06, -0.9718e-07, -0.6973e-07, &
6187 -0.5265e-09, 0.1413e-06, 0.3895e-06, 0.7321e-06, 0.1085e-05, &
6188 0.1449e-05/
6189 data ((h21(ip,iw),iw=1,31), ip=13,13)/ &
6190 0.99999607, 0.99999231, 0.99998522, 0.99997205, 0.99994856, &
6191 0.99990892, 0.99984580, 0.99975121, 0.99961728, 0.99943388, &
6192 0.99918568, 0.99884999, 0.99839199, 0.99775398, 0.99685299, &
6193 0.99557197, 0.99375200, 0.99117702, 0.98755997, 0.98250002, &
6194 0.97548002, 0.96575999, 0.95244002, 0.93436003, 0.91018999, &
6195 0.87849998, 0.83810002, 0.78820002, 0.72870004, 0.65910000, &
6196 0.57850003/
6197 data ((h22(ip,iw),iw=1,31), ip=13,13)/ &
6198 -0.5677e-07, -0.1090e-06, -0.2043e-06, -0.3709e-06, -0.6448e-06, &
6199 -0.1066e-05, -0.1669e-05, -0.2480e-05, -0.3532e-05, -0.4887e-05, &
6200 -0.6650e-05, -0.9017e-05, -0.1232e-04, -0.1701e-04, -0.2372e-04, &
6201 -0.3325e-04, -0.4664e-04, -0.6528e-04, -0.9095e-04, -0.1260e-03, &
6202 -0.1737e-03, -0.2381e-03, -0.3238e-03, -0.4359e-03, -0.5789e-03, &
6203 -0.7549e-03, -0.9607e-03, -0.1188e-02, -0.1427e-02, -0.1674e-02, &
6204 -0.1914e-02/
6205 data ((h23(ip,iw),iw=1,31), ip=13,13)/ &
6206 -0.2262e-09, -0.4191e-09, -0.7441e-09, -0.1244e-08, -0.1916e-08, &
6207 -0.2687e-08, -0.3407e-08, -0.3947e-08, -0.4432e-08, -0.5059e-08, &
6208 -0.5896e-08, -0.7538e-08, -0.1079e-07, -0.1606e-07, -0.2346e-07, &
6209 -0.3305e-07, -0.4459e-07, -0.5720e-07, -0.6999e-07, -0.8300e-07, &
6210 -0.9536e-07, -0.1039e-06, -0.1036e-06, -0.8526e-07, -0.3316e-07, &
6211 0.7909e-07, 0.2865e-06, 0.6013e-06, 0.9580e-06, 0.1303e-05, &
6212 0.1792e-05/
6213 data ((h21(ip,iw),iw=1,31), ip=14,14)/ &
6214 0.99999607, 0.99999231, 0.99998510, 0.99997163, 0.99994737, &
6215 0.99990571, 0.99983770, 0.99973333, 0.99958128, 0.99936771, &
6216 0.99907219, 0.99866599, 0.99810302, 0.99731499, 0.99620003, &
6217 0.99461198, 0.99235398, 0.98916000, 0.98466998, 0.97839999, &
6218 0.96969002, 0.95769000, 0.94133997, 0.91935998, 0.89029998, &
6219 0.85290003, 0.80620003, 0.74989998, 0.68369997, 0.60679996, &
6220 0.51899999/
6221 data ((h22(ip,iw),iw=1,31), ip=14,14)/ &
6222 -0.5703e-07, -0.1098e-06, -0.2071e-06, -0.3788e-06, -0.6657e-06, &
6223 -0.1116e-05, -0.1776e-05, -0.2687e-05, -0.3898e-05, -0.5493e-05, &
6224 -0.7607e-05, -0.1048e-04, -0.1450e-04, -0.2024e-04, -0.2845e-04, &
6225 -0.4014e-04, -0.5658e-04, -0.7947e-04, -0.1110e-03, -0.1541e-03, &
6226 -0.2125e-03, -0.2907e-03, -0.3936e-03, -0.5261e-03, -0.6912e-03, &
6227 -0.8880e-03, -0.1109e-02, -0.1346e-02, -0.1591e-02, -0.1837e-02, &
6228 -0.2054e-02/
6229 data ((h23(ip,iw),iw=1,31), ip=14,14)/ &
6230 -0.2288e-09, -0.4265e-09, -0.7627e-09, -0.1289e-08, -0.2011e-08, &
6231 -0.2861e-08, -0.3673e-08, -0.4288e-08, -0.4812e-08, -0.5475e-08, &
6232 -0.6365e-08, -0.8052e-08, -0.1142e-07, -0.1711e-07, -0.2533e-07, &
6233 -0.3597e-07, -0.4862e-07, -0.6259e-07, -0.7708e-07, -0.9150e-07, &
6234 -0.1035e-06, -0.1079e-06, -0.9742e-07, -0.5928e-07, 0.2892e-07, &
6235 0.1998e-06, 0.4789e-06, 0.8298e-06, 0.1172e-05, 0.1583e-05, &
6236 0.2329e-05/
6237 data ((h21(ip,iw),iw=1,31), ip=15,15)/ &
6238 0.99999607, 0.99999225, 0.99998498, 0.99997115, 0.99994600, &
6239 0.99990171, 0.99982780, 0.99971092, 0.99953562, 0.99928278, &
6240 0.99892598, 0.99842799, 0.99773300, 0.99675500, 0.99536800, &
6241 0.99339402, 0.99058902, 0.98662001, 0.98104000, 0.97325999, &
6242 0.96249002, 0.94773000, 0.92778003, 0.90125000, 0.86680001, &
6243 0.82319999, 0.77010000, 0.70730001, 0.63400000, 0.54960001, &
6244 0.45560002/
6245 data ((h22(ip,iw),iw=1,31), ip=15,15)/ &
6246 -0.5736e-07, -0.1109e-06, -0.2106e-06, -0.3890e-06, -0.6928e-06, &
6247 -0.1181e-05, -0.1917e-05, -0.2965e-05, -0.4396e-05, -0.6315e-05, &
6248 -0.8891e-05, -0.1242e-04, -0.1736e-04, -0.2442e-04, -0.3454e-04, &
6249 -0.4892e-04, -0.6916e-04, -0.9735e-04, -0.1362e-03, -0.1891e-03, &
6250 -0.2602e-03, -0.3545e-03, -0.4768e-03, -0.6310e-03, -0.8179e-03, &
6251 -0.1032e-02, -0.1265e-02, -0.1508e-02, -0.1757e-02, -0.1989e-02, &
6252 -0.2159e-02/
6253 data ((h23(ip,iw),iw=1,31), ip=15,15)/ &
6254 -0.2321e-09, -0.4350e-09, -0.7861e-09, -0.1347e-08, -0.2144e-08, &
6255 -0.3120e-08, -0.4107e-08, -0.4892e-08, -0.5511e-08, -0.6164e-08, &
6256 -0.7054e-08, -0.8811e-08, -0.1240e-07, -0.1862e-07, -0.2773e-07, &
6257 -0.3957e-07, -0.5371e-07, -0.6939e-07, -0.8564e-07, -0.1006e-06, &
6258 -0.1100e-06, -0.1066e-06, -0.8018e-07, -0.1228e-07, 0.1263e-06, &
6259 0.3678e-06, 0.7022e-06, 0.1049e-05, 0.1411e-05, 0.2015e-05, &
6260 0.3099e-05/
6261 data ((h21(ip,iw),iw=1,31), ip=16,16)/ &
6262 0.99999791, 0.99999589, 0.99999183, 0.99998391, 0.99996853, &
6263 0.99993920, 0.99988472, 0.99978709, 0.99961978, 0.99934620, &
6264 0.99892199, 0.99830103, 0.99742401, 0.99619502, 0.99445999, &
6265 0.99199599, 0.98851001, 0.98360002, 0.97671002, 0.96710002, &
6266 0.95378000, 0.93559003, 0.91112000, 0.87900001, 0.83780003, &
6267 0.78680003, 0.72549999, 0.65300000, 0.56830001, 0.47140002, &
6268 0.36650002/
6269 data ((h22(ip,iw),iw=1,31), ip=16,16)/ &
6270 -0.3122e-07, -0.6175e-07, -0.1214e-06, -0.2361e-06, -0.4518e-06, &
6271 -0.8438e-06, -0.1524e-05, -0.2643e-05, -0.4380e-05, -0.6922e-05, &
6272 -0.1042e-04, -0.1504e-04, -0.2125e-04, -0.2987e-04, -0.4200e-04, &
6273 -0.5923e-04, -0.8383e-04, -0.1186e-03, -0.1670e-03, -0.2328e-03, &
6274 -0.3204e-03, -0.4347e-03, -0.5802e-03, -0.7595e-03, -0.9703e-03, &
6275 -0.1205e-02, -0.1457e-02, -0.1720e-02, -0.1980e-02, -0.2191e-02, &
6276 -0.2290e-02/
6277 data ((h23(ip,iw),iw=1,31), ip=16,16)/ &
6278 -0.1376e-09, -0.2699e-09, -0.5220e-09, -0.9897e-09, -0.1819e-08, &
6279 -0.3186e-08, -0.5224e-08, -0.7896e-08, -0.1090e-07, -0.1349e-07, &
6280 -0.1443e-07, -0.1374e-07, -0.1386e-07, -0.1673e-07, -0.2237e-07, &
6281 -0.3248e-07, -0.5050e-07, -0.7743e-07, -0.1097e-06, -0.1369e-06, &
6282 -0.1463e-06, -0.1268e-06, -0.6424e-07, 0.5941e-07, 0.2742e-06, &
6283 0.5924e-06, 0.9445e-06, 0.1286e-05, 0.1819e-05, 0.2867e-05, &
6284 0.4527e-05/
6285 data ((h21(ip,iw),iw=1,31), ip=17,17)/ &
6286 0.99999756, 0.99999511, 0.99999028, 0.99998081, 0.99996233, &
6287 0.99992681, 0.99986011, 0.99973929, 0.99953061, 0.99918979, &
6288 0.99866599, 0.99790198, 0.99681997, 0.99528998, 0.99312103, &
6289 0.99004799, 0.98571002, 0.97961998, 0.97105998, 0.95915002, &
6290 0.94278002, 0.92061001, 0.89120001, 0.85320002, 0.80550003, &
6291 0.74759996, 0.67900002, 0.59829998, 0.50520003, 0.40219998, &
6292 0.29600000/
6293 data ((h22(ip,iw),iw=1,31), ip=17,17)/ &
6294 -0.3547e-07, -0.7029e-07, -0.1386e-06, -0.2709e-06, -0.5218e-06, &
6295 -0.9840e-06, -0.1799e-05, -0.3156e-05, -0.5272e-05, -0.8357e-05, &
6296 -0.1260e-04, -0.1827e-04, -0.2598e-04, -0.3667e-04, -0.5169e-04, &
6297 -0.7312e-04, -0.1037e-03, -0.1467e-03, -0.2060e-03, -0.2857e-03, &
6298 -0.3907e-03, -0.5257e-03, -0.6940e-03, -0.8954e-03, -0.1124e-02, &
6299 -0.1371e-02, -0.1632e-02, -0.1897e-02, -0.2131e-02, -0.2275e-02, &
6300 -0.2265e-02/
6301 data ((h23(ip,iw),iw=1,31), ip=17,17)/ &
6302 -0.1482e-09, -0.2910e-09, -0.5667e-09, -0.1081e-08, -0.2005e-08, &
6303 -0.3554e-08, -0.5902e-08, -0.8925e-08, -0.1209e-07, -0.1448e-07, &
6304 -0.1536e-07, -0.1565e-07, -0.1763e-07, -0.2088e-07, -0.2564e-07, &
6305 -0.3635e-07, -0.5791e-07, -0.8907e-07, -0.1213e-06, -0.1418e-06, &
6306 -0.1397e-06, -0.1000e-06, -0.4427e-08, 0.1713e-06, 0.4536e-06, &
6307 0.8086e-06, 0.1153e-05, 0.1588e-05, 0.2437e-05, 0.3905e-05, &
6308 0.5874e-05/
6309 data ((h21(ip,iw),iw=1,31), ip=18,18)/ &
6310 0.99999714, 0.99999428, 0.99998862, 0.99997741, 0.99995553, &
6311 0.99991333, 0.99983358, 0.99968803, 0.99943441, 0.99901879, &
6312 0.99837899, 0.99744099, 0.99609798, 0.99418801, 0.99147803, &
6313 0.98764998, 0.98227000, 0.97469997, 0.96410000, 0.94941998, &
6314 0.92940998, 0.90263999, 0.86769998, 0.82330000, 0.76880002, &
6315 0.70379996, 0.62720001, 0.53810000, 0.43769997, 0.33149999, &
6316 0.22839999/
6317 data ((h22(ip,iw),iw=1,31), ip=18,18)/ &
6318 -0.4064e-07, -0.8066e-07, -0.1593e-06, -0.3124e-06, -0.6049e-06, &
6319 -0.1148e-05, -0.2118e-05, -0.3751e-05, -0.6314e-05, -0.1006e-04, &
6320 -0.1526e-04, -0.2232e-04, -0.3196e-04, -0.4525e-04, -0.6394e-04, &
6321 -0.9058e-04, -0.1284e-03, -0.1812e-03, -0.2533e-03, -0.3493e-03, &
6322 -0.4740e-03, -0.6315e-03, -0.8228e-03, -0.1044e-02, -0.1286e-02, &
6323 -0.1544e-02, -0.1810e-02, -0.2061e-02, -0.2243e-02, -0.2291e-02, &
6324 -0.2152e-02/
6325 data ((h23(ip,iw),iw=1,31), ip=18,18)/ &
6326 -0.1630e-09, -0.3213e-09, -0.6266e-09, -0.1201e-08, -0.2248e-08, &
6327 -0.4030e-08, -0.6770e-08, -0.1033e-07, -0.1392e-07, -0.1640e-07, &
6328 -0.1768e-07, -0.1932e-07, -0.2229e-07, -0.2508e-07, -0.2940e-07, &
6329 -0.4200e-07, -0.6717e-07, -0.1002e-06, -0.1286e-06, -0.1402e-06, &
6330 -0.1216e-06, -0.5487e-07, 0.8418e-07, 0.3246e-06, 0.6610e-06, &
6331 0.1013e-05, 0.1394e-05, 0.2073e-05, 0.3337e-05, 0.5175e-05, &
6332 0.7255e-05/
6333 data ((h21(ip,iw),iw=1,31), ip=19,19)/ &
6334 0.99999672, 0.99999344, 0.99998701, 0.99997419, 0.99994916, &
6335 0.99990064, 0.99980861, 0.99963921, 0.99934143, 0.99884701, &
6336 0.99807602, 0.99692601, 0.99525797, 0.99287403, 0.98948997, &
6337 0.98474002, 0.97804999, 0.96867001, 0.95559001, 0.93761998, &
6338 0.91336000, 0.88139999, 0.84029996, 0.78920001, 0.72770000, &
6339 0.65499997, 0.56999999, 0.47280002, 0.36760002, 0.26220000, &
6340 0.16700000/
6341 data ((h22(ip,iw),iw=1,31), ip=19,19)/ &
6342 -0.4629e-07, -0.9195e-07, -0.1819e-06, -0.3572e-06, -0.6936e-06, &
6343 -0.1323e-05, -0.2456e-05, -0.4385e-05, -0.7453e-05, -0.1200e-04, &
6344 -0.1843e-04, -0.2731e-04, -0.3943e-04, -0.5606e-04, -0.7936e-04, &
6345 -0.1123e-03, -0.1588e-03, -0.2231e-03, -0.3101e-03, -0.4247e-03, &
6346 -0.5713e-03, -0.7522e-03, -0.9651e-03, -0.1202e-02, -0.1456e-02, &
6347 -0.1721e-02, -0.1983e-02, -0.2196e-02, -0.2296e-02, -0.2224e-02, &
6348 -0.1952e-02/
6349 data ((h23(ip,iw),iw=1,31), ip=19,19)/ &
6350 -0.1827e-09, -0.3607e-09, -0.7057e-09, -0.1359e-08, -0.2552e-08, &
6351 -0.4615e-08, -0.7854e-08, -0.1218e-07, -0.1670e-07, -0.2008e-07, &
6352 -0.2241e-07, -0.2516e-07, -0.2796e-07, -0.3015e-07, -0.3506e-07, &
6353 -0.4958e-07, -0.7627e-07, -0.1070e-06, -0.1289e-06, -0.1286e-06, &
6354 -0.8843e-07, 0.1492e-07, 0.2118e-06, 0.5155e-06, 0.8665e-06, &
6355 0.1220e-05, 0.1765e-05, 0.2825e-05, 0.4498e-05, 0.6563e-05, &
6356 0.8422e-05/
6357 data ((h21(ip,iw),iw=1,31), ip=20,20)/ &
6358 0.99999636, 0.99999279, 0.99998569, 0.99997163, 0.99994397, &
6359 0.99989033, 0.99978799, 0.99959832, 0.99926043, 0.99868900, &
6360 0.99777400, 0.99637598, 0.99431503, 0.99134803, 0.98714000, &
6361 0.98122001, 0.97290999, 0.96131998, 0.94528997, 0.92346001, &
6362 0.89429998, 0.85650003, 0.80879998, 0.75080001, 0.68190002, &
6363 0.60100001, 0.50740004, 0.40399998, 0.29729998, 0.19730002, &
6364 0.11479998/
6365 data ((h22(ip,iw),iw=1,31), ip=20,20)/ &
6366 -0.5164e-07, -0.1026e-06, -0.2031e-06, -0.3994e-06, -0.7771e-06, &
6367 -0.1488e-05, -0.2776e-05, -0.5001e-05, -0.8610e-05, -0.1411e-04, &
6368 -0.2209e-04, -0.3328e-04, -0.4860e-04, -0.6954e-04, -0.9861e-04, &
6369 -0.1393e-03, -0.1961e-03, -0.2738e-03, -0.3778e-03, -0.5132e-03, &
6370 -0.6831e-03, -0.8868e-03, -0.1118e-02, -0.1368e-02, -0.1632e-02, &
6371 -0.1899e-02, -0.2136e-02, -0.2282e-02, -0.2273e-02, -0.2067e-02, &
6372 -0.1679e-02/
6373 data ((h23(ip,iw),iw=1,31), ip=20,20)/ &
6374 -0.2058e-09, -0.4066e-09, -0.7967e-09, -0.1539e-08, -0.2904e-08, &
6375 -0.5293e-08, -0.9116e-08, -0.1447e-07, -0.2058e-07, -0.2608e-07, &
6376 -0.3053e-07, -0.3418e-07, -0.3619e-07, -0.3766e-07, -0.4313e-07, &
6377 -0.5817e-07, -0.8299e-07, -0.1072e-06, -0.1195e-06, -0.1031e-06, &
6378 -0.3275e-07, 0.1215e-06, 0.3835e-06, 0.7220e-06, 0.1062e-05, &
6379 0.1504e-05, 0.2367e-05, 0.3854e-05, 0.5842e-05, 0.7875e-05, &
6380 0.9082e-05/
6381 data ((h21(ip,iw),iw=1,31), ip=21,21)/ &
6382 0.99999619, 0.99999237, 0.99998480, 0.99996990, 0.99994045, &
6383 0.99988312, 0.99977320, 0.99956751, 0.99919540, 0.99855101, &
6384 0.99748802, 0.99581498, 0.99329299, 0.98961997, 0.98439002, &
6385 0.97702003, 0.96671999, 0.95245999, 0.93291998, 0.90660000, &
6386 0.87199998, 0.82780004, 0.77329999, 0.70819998, 0.63119996, &
6387 0.54159999, 0.44059998, 0.33380002, 0.23000002, 0.14029998, &
6388 0.07340002/
6389 data ((h22(ip,iw),iw=1,31), ip=21,21)/ &
6390 -0.5584e-07, -0.1110e-06, -0.2198e-06, -0.4329e-06, -0.8444e-06, &
6391 -0.1623e-05, -0.3049e-05, -0.5551e-05, -0.9714e-05, -0.1627e-04, &
6392 -0.2609e-04, -0.4015e-04, -0.5955e-04, -0.8603e-04, -0.1223e-03, &
6393 -0.1724e-03, -0.2413e-03, -0.3346e-03, -0.4578e-03, -0.6155e-03, &
6394 -0.8087e-03, -0.1033e-02, -0.1279e-02, -0.1540e-02, -0.1811e-02, &
6395 -0.2065e-02, -0.2251e-02, -0.2301e-02, -0.2163e-02, -0.1828e-02, &
6396 -0.1365e-02/
6397 data ((h23(ip,iw),iw=1,31), ip=21,21)/ &
6398 -0.2274e-09, -0.4498e-09, -0.8814e-09, -0.1708e-08, -0.3247e-08, &
6399 -0.5972e-08, -0.1045e-07, -0.1707e-07, -0.2545e-07, -0.3440e-07, &
6400 -0.4259e-07, -0.4822e-07, -0.5004e-07, -0.5061e-07, -0.5485e-07, &
6401 -0.6687e-07, -0.8483e-07, -0.9896e-07, -0.9646e-07, -0.5557e-07, &
6402 0.5765e-07, 0.2752e-06, 0.5870e-06, 0.9188e-06, 0.1291e-05, &
6403 0.1971e-05, 0.3251e-05, 0.5115e-05, 0.7221e-05, 0.8825e-05, &
6404 0.9032e-05/
6405 data ((h21(ip,iw),iw=1,31), ip=22,22)/ &
6406 0.99999607, 0.99999213, 0.99998438, 0.99996895, 0.99993849, &
6407 0.99987900, 0.99976391, 0.99954629, 0.99914569, 0.99843502, &
6408 0.99722600, 0.99526101, 0.99221897, 0.98771000, 0.98123002, &
6409 0.97209001, 0.95936000, 0.94187999, 0.91820002, 0.88679999, &
6410 0.84609997, 0.79530001, 0.73379999, 0.66090000, 0.57529998, &
6411 0.47740000, 0.37129998, 0.26490003, 0.16890001, 0.09340000, &
6412 0.04310000/
6413 data ((h22(ip,iw),iw=1,31), ip=22,22)/ &
6414 -0.5833e-07, -0.1160e-06, -0.2300e-06, -0.4540e-06, -0.8885e-06, &
6415 -0.1718e-05, -0.3256e-05, -0.6010e-05, -0.1072e-04, -0.1838e-04, &
6416 -0.3026e-04, -0.4772e-04, -0.7223e-04, -0.1057e-03, -0.1512e-03, &
6417 -0.2128e-03, -0.2961e-03, -0.4070e-03, -0.5514e-03, -0.7320e-03, &
6418 -0.9467e-03, -0.1187e-02, -0.1446e-02, -0.1717e-02, -0.1985e-02, &
6419 -0.2203e-02, -0.2307e-02, -0.2237e-02, -0.1965e-02, -0.1532e-02, &
6420 -0.1044e-02/
6421 data ((h23(ip,iw),iw=1,31), ip=22,22)/ &
6422 -0.2426e-09, -0.4805e-09, -0.9447e-09, -0.1841e-08, -0.3519e-08, &
6423 -0.6565e-08, -0.1172e-07, -0.1979e-07, -0.3095e-07, -0.4443e-07, &
6424 -0.5821e-07, -0.6868e-07, -0.7282e-07, -0.7208e-07, -0.7176e-07, &
6425 -0.7562e-07, -0.8110e-07, -0.7934e-07, -0.5365e-07, 0.2483e-07, &
6426 0.1959e-06, 0.4731e-06, 0.7954e-06, 0.1123e-05, 0.1652e-05, &
6427 0.2711e-05, 0.4402e-05, 0.6498e-05, 0.8392e-05, 0.9154e-05, &
6428 0.8261e-05/
6429 data ((h21(ip,iw),iw=1,31), ip=23,23)/ &
6430 0.99999601, 0.99999207, 0.99998420, 0.99996859, 0.99993771, &
6431 0.99987692, 0.99975860, 0.99953198, 0.99910772, 0.99833697, &
6432 0.99698901, 0.99473202, 0.99113101, 0.98566002, 0.97770000, &
6433 0.96640998, 0.95076001, 0.92943001, 0.90092003, 0.86370003, &
6434 0.81659997, 0.75889999, 0.69000000, 0.60870004, 0.51440001, &
6435 0.40990001, 0.30190003, 0.20060003, 0.11680001, 0.05760002, &
6436 0.02270001/
6437 data ((h22(ip,iw),iw=1,31), ip=23,23)/ &
6438 -0.5929e-07, -0.1180e-06, -0.2344e-06, -0.4638e-06, -0.9118e-06, &
6439 -0.1775e-05, -0.3401e-05, -0.6375e-05, -0.1160e-04, -0.2039e-04, &
6440 -0.3444e-04, -0.5575e-04, -0.8641e-04, -0.1287e-03, -0.1856e-03, &
6441 -0.2615e-03, -0.3618e-03, -0.4928e-03, -0.6594e-03, -0.8621e-03, &
6442 -0.1095e-02, -0.1349e-02, -0.1618e-02, -0.1894e-02, -0.2140e-02, &
6443 -0.2293e-02, -0.2290e-02, -0.2085e-02, -0.1696e-02, -0.1212e-02, &
6444 -0.7506e-03/
6445 data ((h23(ip,iw),iw=1,31), ip=23,23)/ &
6446 -0.2496e-09, -0.4954e-09, -0.9780e-09, -0.1915e-08, -0.3697e-08, &
6447 -0.6991e-08, -0.1279e-07, -0.2231e-07, -0.3653e-07, -0.5541e-07, &
6448 -0.7688e-07, -0.9614e-07, -0.1069e-06, -0.1065e-06, -0.9866e-07, &
6449 -0.8740e-07, -0.7192e-07, -0.4304e-07, 0.1982e-07, 0.1525e-06, &
6450 0.3873e-06, 0.6947e-06, 0.1000e-05, 0.1409e-05, 0.2253e-05, &
6451 0.3739e-05, 0.5744e-05, 0.7812e-05, 0.9067e-05, 0.8746e-05, &
6452 0.6940e-05/
6453 data ((h21(ip,iw),iw=1,31), ip=24,24)/ &
6454 0.99999601, 0.99999207, 0.99998420, 0.99996853, 0.99993742, &
6455 0.99987602, 0.99975550, 0.99952233, 0.99907869, 0.99825698, &
6456 0.99678302, 0.99424398, 0.99007100, 0.98356003, 0.97387999, &
6457 0.96004999, 0.94090003, 0.91503000, 0.88099998, 0.83740002, &
6458 0.78350002, 0.71869999, 0.64170003, 0.55149996, 0.44950002, &
6459 0.34100002, 0.23540002, 0.14380002, 0.07550001, 0.03240001, &
6460 0.01029998/
6461 data ((h22(ip,iw),iw=1,31), ip=24,24)/ &
6462 -0.5950e-07, -0.1185e-06, -0.2358e-06, -0.4678e-06, -0.9235e-06, &
6463 -0.1810e-05, -0.3503e-05, -0.6664e-05, -0.1236e-04, -0.2223e-04, &
6464 -0.3849e-04, -0.6396e-04, -0.1017e-03, -0.1545e-03, -0.2257e-03, &
6465 -0.3192e-03, -0.4399e-03, -0.5933e-03, -0.7824e-03, -0.1005e-02, &
6466 -0.1251e-02, -0.1516e-02, -0.1794e-02, -0.2060e-02, -0.2257e-02, &
6467 -0.2318e-02, -0.2186e-02, -0.1853e-02, -0.1386e-02, -0.9021e-03, &
6468 -0.5050e-03/
6469 data ((h23(ip,iw),iw=1,31), ip=24,24)/ &
6470 -0.2515e-09, -0.5001e-09, -0.9904e-09, -0.1951e-08, -0.3800e-08, &
6471 -0.7288e-08, -0.1362e-07, -0.2452e-07, -0.4184e-07, -0.6663e-07, &
6472 -0.9770e-07, -0.1299e-06, -0.1533e-06, -0.1584e-06, -0.1425e-06, &
6473 -0.1093e-06, -0.5972e-07, 0.1426e-07, 0.1347e-06, 0.3364e-06, &
6474 0.6209e-06, 0.9169e-06, 0.1243e-05, 0.1883e-05, 0.3145e-05, &
6475 0.5011e-05, 0.7136e-05, 0.8785e-05, 0.9048e-05, 0.7686e-05, &
6476 0.5368e-05/
6477 data ((h21(ip,iw),iw=1,31), ip=25,25)/ &
6478 0.99999601, 0.99999207, 0.99998420, 0.99996847, 0.99993724, &
6479 0.99987543, 0.99975342, 0.99951530, 0.99905682, 0.99819201, &
6480 0.99660802, 0.99381101, 0.98908001, 0.98148000, 0.96991003, &
6481 0.95317000, 0.92992002, 0.89880002, 0.85839999, 0.80799997, &
6482 0.74689996, 0.67420000, 0.58850002, 0.48979998, 0.38200003, &
6483 0.27329999, 0.17479998, 0.09700000, 0.04500002, 0.01620001, &
6484 0.00349998/
6485 data ((h22(ip,iw),iw=1,31), ip=25,25)/ &
6486 -0.5953e-07, -0.1187e-06, -0.2363e-06, -0.4697e-06, -0.9304e-06, &
6487 -0.1833e-05, -0.3578e-05, -0.6889e-05, -0.1299e-04, -0.2384e-04, &
6488 -0.4227e-04, -0.7201e-04, -0.1174e-03, -0.1825e-03, -0.2710e-03, &
6489 -0.3861e-03, -0.5313e-03, -0.7095e-03, -0.9203e-03, -0.1158e-02, &
6490 -0.1417e-02, -0.1691e-02, -0.1968e-02, -0.2200e-02, -0.2320e-02, &
6491 -0.2263e-02, -0.1998e-02, -0.1563e-02, -0.1068e-02, -0.6300e-03, &
6492 -0.3174e-03/
6493 data ((h23(ip,iw),iw=1,31), ip=25,25)/ &
6494 -0.2520e-09, -0.5016e-09, -0.9963e-09, -0.1971e-08, -0.3867e-08, &
6495 -0.7500e-08, -0.1427e-07, -0.2634e-07, -0.4656e-07, -0.7753e-07, &
6496 -0.1196e-06, -0.1683e-06, -0.2113e-06, -0.2309e-06, -0.2119e-06, &
6497 -0.1518e-06, -0.5200e-07, 0.9274e-07, 0.2973e-06, 0.5714e-06, &
6498 0.8687e-06, 0.1152e-05, 0.1621e-05, 0.2634e-05, 0.4310e-05, &
6499 0.6418e-05, 0.8347e-05, 0.9162e-05, 0.8319e-05, 0.6209e-05, &
6500 0.3844e-05/
6501 data ((h21(ip,iw),iw=1,31), ip=26,26)/ &
6502 0.99999601, 0.99999207, 0.99998420, 0.99996847, 0.99993718, &
6503 0.99987501, 0.99975210, 0.99951041, 0.99904078, 0.99814302, &
6504 0.99646801, 0.99344200, 0.98819000, 0.97952002, 0.96597999, &
6505 0.94600999, 0.91812003, 0.88099998, 0.83359998, 0.77569997, &
6506 0.70669997, 0.62529999, 0.53049999, 0.42449999, 0.31419998, &
6507 0.20969999, 0.12269998, 0.06089997, 0.02420002, 0.00660002, &
6508 0.00040001/
6509 data ((h22(ip,iw),iw=1,31), ip=26,26)/ &
6510 -0.5954e-07, -0.1187e-06, -0.2366e-06, -0.4709e-06, -0.9349e-06, &
6511 -0.1849e-05, -0.3632e-05, -0.7058e-05, -0.1350e-04, -0.2521e-04, &
6512 -0.4564e-04, -0.7958e-04, -0.1329e-03, -0.2114e-03, -0.3200e-03, &
6513 -0.4611e-03, -0.6353e-03, -0.8409e-03, -0.1072e-02, -0.1324e-02, &
6514 -0.1592e-02, -0.1871e-02, -0.2127e-02, -0.2297e-02, -0.2312e-02, &
6515 -0.2123e-02, -0.1738e-02, -0.1247e-02, -0.7744e-03, -0.4117e-03, &
6516 -0.1850e-03/
6517 data ((h23(ip,iw),iw=1,31), ip=26,26)/ &
6518 -0.2522e-09, -0.5025e-09, -0.9997e-09, -0.1983e-08, -0.3912e-08, &
6519 -0.7650e-08, -0.1474e-07, -0.2777e-07, -0.5055e-07, -0.8745e-07, &
6520 -0.1414e-06, -0.2095e-06, -0.2790e-06, -0.3241e-06, -0.3135e-06, &
6521 -0.2269e-06, -0.5896e-07, 0.1875e-06, 0.4996e-06, 0.8299e-06, &
6522 0.1115e-05, 0.1467e-05, 0.2236e-05, 0.3672e-05, 0.5668e-05, &
6523 0.7772e-05, 0.9094e-05, 0.8827e-05, 0.7041e-05, 0.4638e-05, &
6524 0.2539e-05/
6525 data ((h81(ip,iw),iw=1,31), ip= 1, 1)/ &
6526 0.99998659, 0.99997360, 0.99994862, 0.99990171, 0.99981678, &
6527 0.99967158, 0.99944150, 0.99910933, 0.99867302, 0.99814397, &
6528 0.99753898, 0.99686199, 0.99610198, 0.99523401, 0.99421698, &
6529 0.99299300, 0.99147898, 0.98958999, 0.98721999, 0.98430002, &
6530 0.98071998, 0.97639000, 0.97115999, 0.96480000, 0.95695001, &
6531 0.94713998, 0.93469000, 0.91873002, 0.89810002, 0.87129998, &
6532 0.83679998/
6533 data ((h82(ip,iw),iw=1,31), ip= 1, 1)/ &
6534 -0.5685e-08, -0.1331e-07, -0.3249e-07, -0.8137e-07, -0.2048e-06, &
6535 -0.4973e-06, -0.1118e-05, -0.2246e-05, -0.3982e-05, -0.6290e-05, &
6536 -0.9040e-05, -0.1215e-04, -0.1567e-04, -0.1970e-04, -0.2449e-04, &
6537 -0.3046e-04, -0.3798e-04, -0.4725e-04, -0.5831e-04, -0.7123e-04, &
6538 -0.8605e-04, -0.1028e-03, -0.1212e-03, -0.1413e-03, -0.1635e-03, &
6539 -0.1884e-03, -0.2160e-03, -0.2461e-03, -0.2778e-03, -0.3098e-03, &
6540 -0.3411e-03/
6541 data ((h83(ip,iw),iw=1,31), ip= 1, 1)/ &
6542 0.2169e-10, 0.5237e-10, 0.1296e-09, 0.3204e-09, 0.7665e-09, &
6543 0.1691e-08, 0.3222e-08, 0.5110e-08, 0.6779e-08, 0.7681e-08, &
6544 0.7378e-08, 0.5836e-08, 0.3191e-08, -0.1491e-08, -0.1022e-07, &
6545 -0.2359e-07, -0.3957e-07, -0.5553e-07, -0.6927e-07, -0.7849e-07, &
6546 -0.8139e-07, -0.7853e-07, -0.7368e-07, -0.7220e-07, -0.7780e-07, &
6547 -0.9091e-07, -0.1038e-06, -0.9929e-07, -0.5422e-07, 0.5379e-07, &
6548 0.2350e-06/
6549 data ((h81(ip,iw),iw=1,31), ip= 2, 2)/ &
6550 0.99998659, 0.99997360, 0.99994862, 0.99990171, 0.99981678, &
6551 0.99967158, 0.99944139, 0.99910921, 0.99867302, 0.99814397, &
6552 0.99753797, 0.99686003, 0.99609798, 0.99522603, 0.99420297, &
6553 0.99296701, 0.99142998, 0.98949999, 0.98706001, 0.98400998, &
6554 0.98021001, 0.97552001, 0.96976000, 0.96262002, 0.95367002, &
6555 0.94234002, 0.92781997, 0.90903997, 0.88459998, 0.85290003, &
6556 0.81200004/
6557 data ((h82(ip,iw),iw=1,31), ip= 2, 2)/ &
6558 -0.5684e-08, -0.1331e-07, -0.3248e-07, -0.8133e-07, -0.2047e-06, &
6559 -0.4971e-06, -0.1117e-05, -0.2245e-05, -0.3981e-05, -0.6287e-05, &
6560 -0.9035e-05, -0.1215e-04, -0.1565e-04, -0.1967e-04, -0.2444e-04, &
6561 -0.3036e-04, -0.3780e-04, -0.4694e-04, -0.5779e-04, -0.7042e-04, &
6562 -0.8491e-04, -0.1013e-03, -0.1196e-03, -0.1399e-03, -0.1625e-03, &
6563 -0.1879e-03, -0.2163e-03, -0.2474e-03, -0.2803e-03, -0.3140e-03, &
6564 -0.3478e-03/
6565 data ((h83(ip,iw),iw=1,31), ip= 2, 2)/ &
6566 0.2168e-10, 0.5242e-10, 0.1295e-09, 0.3201e-09, 0.7662e-09, &
6567 0.1690e-08, 0.3220e-08, 0.5106e-08, 0.6776e-08, 0.7673e-08, &
6568 0.7362e-08, 0.5808e-08, 0.3138e-08, -0.1595e-08, -0.1041e-07, &
6569 -0.2390e-07, -0.4010e-07, -0.5636e-07, -0.7045e-07, -0.7972e-07, &
6570 -0.8178e-07, -0.7677e-07, -0.6876e-07, -0.6381e-07, -0.6583e-07, &
6571 -0.7486e-07, -0.8229e-07, -0.7017e-07, -0.1497e-07, 0.1051e-06, &
6572 0.2990e-06/
6573 data ((h81(ip,iw),iw=1,31), ip= 3, 3)/ &
6574 0.99998659, 0.99997360, 0.99994862, 0.99990171, 0.99981678, &
6575 0.99967152, 0.99944133, 0.99910891, 0.99867201, 0.99814302, &
6576 0.99753499, 0.99685597, 0.99609101, 0.99521297, 0.99418002, &
6577 0.99292499, 0.99135399, 0.98935997, 0.98681003, 0.98356998, &
6578 0.97947001, 0.97430998, 0.96784997, 0.95972002, 0.94941002, &
6579 0.93620002, 0.91912001, 0.89690000, 0.86790001, 0.83020002, &
6580 0.78210002/
6581 data ((h82(ip,iw),iw=1,31), ip= 3, 3)/ &
6582 -0.5682e-08, -0.1330e-07, -0.3247e-07, -0.8129e-07, -0.2046e-06, &
6583 -0.4968e-06, -0.1117e-05, -0.2244e-05, -0.3978e-05, -0.6283e-05, &
6584 -0.9027e-05, -0.1213e-04, -0.1563e-04, -0.1963e-04, -0.2436e-04, &
6585 -0.3021e-04, -0.3754e-04, -0.4649e-04, -0.5709e-04, -0.6940e-04, &
6586 -0.8359e-04, -0.9986e-04, -0.1182e-03, -0.1388e-03, -0.1620e-03, &
6587 -0.1882e-03, -0.2175e-03, -0.2498e-03, -0.2843e-03, -0.3203e-03, &
6588 -0.3573e-03/
6589 data ((h83(ip,iw),iw=1,31), ip= 3, 3)/ &
6590 0.2167e-10, 0.5238e-10, 0.1294e-09, 0.3198e-09, 0.7656e-09, &
6591 0.1688e-08, 0.3217e-08, 0.5104e-08, 0.6767e-08, 0.7661e-08, &
6592 0.7337e-08, 0.5764e-08, 0.3051e-08, -0.1752e-08, -0.1068e-07, &
6593 -0.2436e-07, -0.4081e-07, -0.5740e-07, -0.7165e-07, -0.8046e-07, &
6594 -0.8082e-07, -0.7289e-07, -0.6141e-07, -0.5294e-07, -0.5134e-07, &
6595 -0.5552e-07, -0.5609e-07, -0.3464e-07, 0.3275e-07, 0.1669e-06, &
6596 0.3745e-06/
6597 data ((h81(ip,iw),iw=1,31), ip= 4, 4)/ &
6598 0.99998659, 0.99997360, 0.99994862, 0.99990171, 0.99981678, &
6599 0.99967140, 0.99944109, 0.99910849, 0.99867100, 0.99814099, &
6600 0.99753201, 0.99685001, 0.99607998, 0.99519402, 0.99414498, &
6601 0.99286002, 0.99123698, 0.98914999, 0.98644000, 0.98293000, &
6602 0.97842002, 0.97263998, 0.96529001, 0.95592999, 0.94392002, &
6603 0.92839003, 0.90815997, 0.88169998, 0.84720004, 0.80269998, &
6604 0.74629998/
6605 data ((h82(ip,iw),iw=1,31), ip= 4, 4)/ &
6606 -0.5680e-08, -0.1329e-07, -0.3243e-07, -0.8121e-07, -0.2044e-06, &
6607 -0.4963e-06, -0.1115e-05, -0.2242e-05, -0.3974e-05, -0.6276e-05, &
6608 -0.9015e-05, -0.1211e-04, -0.1559e-04, -0.1956e-04, -0.2423e-04, &
6609 -0.2999e-04, -0.3716e-04, -0.4588e-04, -0.5618e-04, -0.6818e-04, &
6610 -0.8218e-04, -0.9847e-04, -0.1171e-03, -0.1382e-03, -0.1621e-03, &
6611 -0.1892e-03, -0.2197e-03, -0.2535e-03, -0.2902e-03, -0.3293e-03, &
6612 -0.3700e-03/
6613 data ((h83(ip,iw),iw=1,31), ip= 4, 4)/ &
6614 0.2166e-10, 0.5229e-10, 0.1294e-09, 0.3193e-09, 0.7644e-09, &
6615 0.1686e-08, 0.3213e-08, 0.5092e-08, 0.6753e-08, 0.7640e-08, &
6616 0.7302e-08, 0.5696e-08, 0.2917e-08, -0.1984e-08, -0.1108e-07, &
6617 -0.2497e-07, -0.4171e-07, -0.5849e-07, -0.7254e-07, -0.8017e-07, &
6618 -0.7802e-07, -0.6662e-07, -0.5153e-07, -0.3961e-07, -0.3387e-07, &
6619 -0.3219e-07, -0.2426e-07, 0.8700e-08, 0.9027e-07, 0.2400e-06, &
6620 0.4623e-06/
6621 data ((h81(ip,iw),iw=1,31), ip= 5, 5)/ &
6622 0.99998659, 0.99997360, 0.99994862, 0.99990165, 0.99981672, &
6623 0.99967128, 0.99944091, 0.99910778, 0.99866998, 0.99813801, &
6624 0.99752700, 0.99684101, 0.99606299, 0.99516302, 0.99408901, &
6625 0.99276000, 0.99105698, 0.98882997, 0.98588997, 0.98202002, &
6626 0.97696000, 0.97039002, 0.96192998, 0.95104003, 0.93691999, &
6627 0.91851997, 0.89440000, 0.86290002, 0.82200003, 0.76969999, &
6628 0.70420003/
6629 data ((h82(ip,iw),iw=1,31), ip= 5, 5)/ &
6630 -0.5675e-08, -0.1328e-07, -0.3239e-07, -0.8110e-07, -0.2040e-06, &
6631 -0.4954e-06, -0.1114e-05, -0.2238e-05, -0.3968e-05, -0.6265e-05, &
6632 -0.8996e-05, -0.1208e-04, -0.1553e-04, -0.1945e-04, -0.2404e-04, &
6633 -0.2966e-04, -0.3663e-04, -0.4508e-04, -0.5508e-04, -0.6686e-04, &
6634 -0.8082e-04, -0.9732e-04, -0.1165e-03, -0.1382e-03, -0.1630e-03, &
6635 -0.1913e-03, -0.2234e-03, -0.2593e-03, -0.2989e-03, -0.3417e-03, &
6636 -0.3857e-03/
6637 data ((h83(ip,iw),iw=1,31), ip= 5, 5)/ &
6638 0.2163e-10, 0.5209e-10, 0.1291e-09, 0.3186e-09, 0.7626e-09, &
6639 0.1682e-08, 0.3203e-08, 0.5078e-08, 0.6730e-08, 0.7606e-08, &
6640 0.7246e-08, 0.5592e-08, 0.2735e-08, -0.2325e-08, -0.1162e-07, &
6641 -0.2576e-07, -0.4268e-07, -0.5938e-07, -0.7262e-07, -0.7827e-07, &
6642 -0.7297e-07, -0.5786e-07, -0.3930e-07, -0.2373e-07, -0.1295e-07, &
6643 -0.3728e-08, 0.1465e-07, 0.6114e-07, 0.1590e-06, 0.3257e-06, &
6644 0.5622e-06/
6645 data ((h81(ip,iw),iw=1,31), ip= 6, 6)/ &
6646 0.99998659, 0.99997360, 0.99994862, 0.99990165, 0.99981672, &
6647 0.99967122, 0.99944037, 0.99910682, 0.99866802, 0.99813402, &
6648 0.99751902, 0.99682599, 0.99603701, 0.99511498, 0.99400300, &
6649 0.99260598, 0.99078500, 0.98835999, 0.98510998, 0.98075998, &
6650 0.97499001, 0.96741998, 0.95757002, 0.94476998, 0.92804998, &
6651 0.90613002, 0.87739998, 0.83990002, 0.79159999, 0.73049998, &
6652 0.65540004/
6653 data ((h82(ip,iw),iw=1,31), ip= 6, 6)/ &
6654 -0.5671e-08, -0.1326e-07, -0.3234e-07, -0.8091e-07, -0.2035e-06, &
6655 -0.4941e-06, -0.1111e-05, -0.2232e-05, -0.3958e-05, -0.6247e-05, &
6656 -0.8966e-05, -0.1202e-04, -0.1544e-04, -0.1929e-04, -0.2377e-04, &
6657 -0.2921e-04, -0.3593e-04, -0.4409e-04, -0.5385e-04, -0.6555e-04, &
6658 -0.7965e-04, -0.9656e-04, -0.1163e-03, -0.1390e-03, -0.1649e-03, &
6659 -0.1947e-03, -0.2288e-03, -0.2675e-03, -0.3109e-03, -0.3575e-03, &
6660 -0.4039e-03/
6661 data ((h83(ip,iw),iw=1,31), ip= 6, 6)/ &
6662 0.2155e-10, 0.5188e-10, 0.1288e-09, 0.3175e-09, 0.7599e-09, &
6663 0.1675e-08, 0.3190e-08, 0.5059e-08, 0.6699e-08, 0.7551e-08, &
6664 0.7154e-08, 0.5435e-08, 0.2452e-08, -0.2802e-08, -0.1235e-07, &
6665 -0.2668e-07, -0.4353e-07, -0.5962e-07, -0.7134e-07, -0.7435e-07, &
6666 -0.6551e-07, -0.4676e-07, -0.2475e-07, -0.4876e-08, 0.1235e-07, &
6667 0.3092e-07, 0.6192e-07, 0.1243e-06, 0.2400e-06, 0.4247e-06, &
6668 0.6755e-06/
6669 data ((h81(ip,iw),iw=1,31), ip= 7, 7)/ &
6670 0.99998659, 0.99997360, 0.99994862, 0.99990165, 0.99981660, &
6671 0.99967092, 0.99943972, 0.99910510, 0.99866402, 0.99812698, &
6672 0.99750602, 0.99680197, 0.99599499, 0.99504000, 0.99387002, &
6673 0.99237198, 0.99038202, 0.98768002, 0.98400998, 0.97903001, &
6674 0.97236001, 0.96354002, 0.95196998, 0.93681002, 0.91688001, &
6675 0.89069998, 0.85640001, 0.81190002, 0.75520003, 0.68470001, &
6676 0.59990001/
6677 data ((h82(ip,iw),iw=1,31), ip= 7, 7)/ &
6678 -0.5665e-08, -0.1322e-07, -0.3224e-07, -0.8063e-07, -0.2027e-06, &
6679 -0.4921e-06, -0.1106e-05, -0.2223e-05, -0.3942e-05, -0.6220e-05, &
6680 -0.8920e-05, -0.1194e-04, -0.1530e-04, -0.1905e-04, -0.2337e-04, &
6681 -0.2860e-04, -0.3505e-04, -0.4296e-04, -0.5259e-04, -0.6439e-04, &
6682 -0.7884e-04, -0.9635e-04, -0.1170e-03, -0.1407e-03, -0.1681e-03, &
6683 -0.1998e-03, -0.2366e-03, -0.2790e-03, -0.3265e-03, -0.3763e-03, &
6684 -0.4235e-03/
6685 data ((h83(ip,iw),iw=1,31), ip= 7, 7)/ &
6686 0.2157e-10, 0.5178e-10, 0.1283e-09, 0.3162e-09, 0.7558e-09, &
6687 0.1665e-08, 0.3169e-08, 0.5027e-08, 0.6645e-08, 0.7472e-08, &
6688 0.7017e-08, 0.5212e-08, 0.2059e-08, -0.3443e-08, -0.1321e-07, &
6689 -0.2754e-07, -0.4389e-07, -0.5869e-07, -0.6825e-07, -0.6819e-07, &
6690 -0.5570e-07, -0.3343e-07, -0.7592e-08, 0.1778e-07, 0.4322e-07, &
6691 0.7330e-07, 0.1190e-06, 0.1993e-06, 0.3348e-06, 0.5376e-06, &
6692 0.8030e-06/
6693 data ((h81(ip,iw),iw=1,31), ip= 8, 8)/ &
6694 0.99998659, 0.99997360, 0.99994856, 0.99990159, 0.99981642, &
6695 0.99967051, 0.99943858, 0.99910247, 0.99865901, 0.99811602, &
6696 0.99748600, 0.99676597, 0.99592900, 0.99492502, 0.99366802, &
6697 0.99202400, 0.98979002, 0.98672003, 0.98249000, 0.97671002, &
6698 0.96890998, 0.95854002, 0.94483000, 0.92675000, 0.90289998, &
6699 0.87160003, 0.83069998, 0.77829999, 0.71239996, 0.63209999, &
6700 0.53839999/
6701 data ((h82(ip,iw),iw=1,31), ip= 8, 8)/ &
6702 -0.5652e-08, -0.1318e-07, -0.3210e-07, -0.8018e-07, -0.2014e-06, &
6703 -0.4888e-06, -0.1099e-05, -0.2210e-05, -0.3918e-05, -0.6179e-05, &
6704 -0.8849e-05, -0.1182e-04, -0.1509e-04, -0.1871e-04, -0.2284e-04, &
6705 -0.2782e-04, -0.3403e-04, -0.4177e-04, -0.5145e-04, -0.6354e-04, &
6706 -0.7853e-04, -0.9681e-04, -0.1185e-03, -0.1437e-03, -0.1729e-03, &
6707 -0.2072e-03, -0.2475e-03, -0.2942e-03, -0.3457e-03, -0.3973e-03, &
6708 -0.4434e-03/
6709 data ((h83(ip,iw),iw=1,31), ip= 8, 8)/ &
6710 0.2153e-10, 0.5151e-10, 0.1273e-09, 0.3136e-09, 0.7488e-09, &
6711 0.1649e-08, 0.3142e-08, 0.4980e-08, 0.6559e-08, 0.7346e-08, &
6712 0.6813e-08, 0.4884e-08, 0.1533e-08, -0.4209e-08, -0.1409e-07, &
6713 -0.2801e-07, -0.4320e-07, -0.5614e-07, -0.6312e-07, -0.5976e-07, &
6714 -0.4369e-07, -0.1775e-07, 0.1280e-07, 0.4534e-07, 0.8106e-07, &
6715 0.1246e-06, 0.1874e-06, 0.2873e-06, 0.4433e-06, 0.6651e-06, &
6716 0.9477e-06/
6717 data ((h81(ip,iw),iw=1,31), ip= 9, 9)/ &
6718 0.99998659, 0.99997360, 0.99994856, 0.99990153, 0.99981618, &
6719 0.99966979, 0.99943691, 0.99909842, 0.99865001, 0.99809903, &
6720 0.99745399, 0.99670798, 0.99582899, 0.99475002, 0.99336600, &
6721 0.99151403, 0.98896003, 0.98540002, 0.98044997, 0.97364998, &
6722 0.96445000, 0.95213997, 0.93579000, 0.91412002, 0.88550001, &
6723 0.84810001, 0.79970002, 0.73850000, 0.66280001, 0.57309997, &
6724 0.47189999/
6725 data ((h82(ip,iw),iw=1,31), ip= 9, 9)/ &
6726 -0.5629e-08, -0.1310e-07, -0.3186e-07, -0.7948e-07, -0.1995e-06, &
6727 -0.4837e-06, -0.1088e-05, -0.2188e-05, -0.3880e-05, -0.6115e-05, &
6728 -0.8743e-05, -0.1165e-04, -0.1480e-04, -0.1824e-04, -0.2216e-04, &
6729 -0.2691e-04, -0.3293e-04, -0.4067e-04, -0.5057e-04, -0.6314e-04, &
6730 -0.7885e-04, -0.9813e-04, -0.1212e-03, -0.1482e-03, -0.1799e-03, &
6731 -0.2175e-03, -0.2622e-03, -0.3135e-03, -0.3678e-03, -0.4193e-03, &
6732 -0.4627e-03/
6733 data ((h83(ip,iw),iw=1,31), ip= 9, 9)/ &
6734 0.2121e-10, 0.5076e-10, 0.1257e-09, 0.3091e-09, 0.7379e-09, &
6735 0.1623e-08, 0.3097e-08, 0.4904e-08, 0.6453e-08, 0.7168e-08, &
6736 0.6534e-08, 0.4458e-08, 0.8932e-09, -0.5026e-08, -0.1469e-07, &
6737 -0.2765e-07, -0.4103e-07, -0.5169e-07, -0.5585e-07, -0.4913e-07, &
6738 -0.2954e-07, 0.6372e-09, 0.3738e-07, 0.7896e-07, 0.1272e-06, &
6739 0.1867e-06, 0.2682e-06, 0.3895e-06, 0.5672e-06, 0.8091e-06, &
6740 0.1114e-05/
6741 data ((h81(ip,iw),iw=1,31), ip=10,10)/ &
6742 0.99998659, 0.99997360, 0.99994850, 0.99990141, 0.99981582, &
6743 0.99966878, 0.99943417, 0.99909198, 0.99863601, 0.99807203, &
6744 0.99740499, 0.99662101, 0.99567503, 0.99448699, 0.99292302, &
6745 0.99078500, 0.98780000, 0.98360002, 0.97773999, 0.96968001, &
6746 0.95872998, 0.94401997, 0.92440999, 0.89840001, 0.86409998, &
6747 0.81959999, 0.76279998, 0.69190001, 0.60650003, 0.50839996, &
6748 0.40249997/
6749 data ((h82(ip,iw),iw=1,31), ip=10,10)/ &
6750 -0.5597e-08, -0.1300e-07, -0.3148e-07, -0.7838e-07, -0.1964e-06, &
6751 -0.4759e-06, -0.1071e-05, -0.2155e-05, -0.3822e-05, -0.6019e-05, &
6752 -0.8586e-05, -0.1139e-04, -0.1439e-04, -0.1764e-04, -0.2134e-04, &
6753 -0.2591e-04, -0.3188e-04, -0.3978e-04, -0.5011e-04, -0.6334e-04, &
6754 -0.7998e-04, -0.1006e-03, -0.1253e-03, -0.1547e-03, -0.1895e-03, &
6755 -0.2315e-03, -0.2811e-03, -0.3363e-03, -0.3917e-03, -0.4413e-03, &
6756 -0.4809e-03/
6757 data ((h83(ip,iw),iw=1,31), ip=10,10)/ &
6758 0.2109e-10, 0.5017e-10, 0.1235e-09, 0.3021e-09, 0.7217e-09, &
6759 0.1585e-08, 0.3028e-08, 0.4796e-08, 0.6285e-08, 0.6910e-08, &
6760 0.6178e-08, 0.3945e-08, 0.2436e-09, -0.5632e-08, -0.1464e-07, &
6761 -0.2596e-07, -0.3707e-07, -0.4527e-07, -0.4651e-07, -0.3644e-07, &
6762 -0.1296e-07, 0.2250e-07, 0.6722e-07, 0.1202e-06, 0.1831e-06, &
6763 0.2605e-06, 0.3627e-06, 0.5062e-06, 0.7064e-06, 0.9725e-06, &
6764 0.1304e-05/
6765 data ((h81(ip,iw),iw=1,31), ip=11,11)/ &
6766 0.99998659, 0.99997354, 0.99994850, 0.99990124, 0.99981529, &
6767 0.99966723, 0.99942988, 0.99908209, 0.99861503, 0.99803102, &
6768 0.99732900, 0.99648702, 0.99544603, 0.99409997, 0.99228698, &
6769 0.98977000, 0.98620999, 0.98120999, 0.97421998, 0.96458000, &
6770 0.95146000, 0.93378001, 0.91017002, 0.87889999, 0.83810002, &
6771 0.78549999, 0.71930003, 0.63859999, 0.54409999, 0.43970001, &
6772 0.33249998/
6773 data ((h82(ip,iw),iw=1,31), ip=11,11)/ &
6774 -0.5538e-08, -0.1280e-07, -0.3089e-07, -0.7667e-07, -0.1917e-06, &
6775 -0.4642e-06, -0.1045e-05, -0.2106e-05, -0.3736e-05, -0.5878e-05, &
6776 -0.8363e-05, -0.1104e-04, -0.1387e-04, -0.1692e-04, -0.2044e-04, &
6777 -0.2493e-04, -0.3101e-04, -0.3926e-04, -0.5020e-04, -0.6429e-04, &
6778 -0.8213e-04, -0.1044e-03, -0.1314e-03, -0.1637e-03, -0.2027e-03, &
6779 -0.2498e-03, -0.3042e-03, -0.3617e-03, -0.4163e-03, -0.4625e-03, &
6780 -0.4969e-03/
6781 data ((h83(ip,iw),iw=1,31), ip=11,11)/ &
6782 0.2067e-10, 0.4903e-10, 0.1200e-09, 0.2917e-09, 0.6965e-09, &
6783 0.1532e-08, 0.2925e-08, 0.4632e-08, 0.6054e-08, 0.6590e-08, &
6784 0.5746e-08, 0.3436e-08, -0.2251e-09, -0.5703e-08, -0.1344e-07, &
6785 -0.2256e-07, -0.3120e-07, -0.3690e-07, -0.3520e-07, -0.2164e-07, &
6786 0.6510e-08, 0.4895e-07, 0.1037e-06, 0.1702e-06, 0.2502e-06, &
6787 0.3472e-06, 0.4710e-06, 0.6379e-06, 0.8633e-06, 0.1159e-05, &
6788 0.1514e-05/
6789 data ((h81(ip,iw),iw=1,31), ip=12,12)/ &
6790 0.99998659, 0.99997354, 0.99994838, 0.99990094, 0.99981439, &
6791 0.99966472, 0.99942350, 0.99906689, 0.99858302, 0.99796802, &
6792 0.99721497, 0.99628800, 0.99510801, 0.99354398, 0.99139601, &
6793 0.98838001, 0.98409998, 0.97807997, 0.96967000, 0.95806998, &
6794 0.94226003, 0.92093998, 0.89249998, 0.85510004, 0.80659997, &
6795 0.74510002, 0.66909999, 0.57870001, 0.47680002, 0.36919999, &
6796 0.26520002/
6797 data ((h82(ip,iw),iw=1,31), ip=12,12)/ &
6798 -0.5476e-08, -0.1257e-07, -0.3008e-07, -0.7418e-07, -0.1848e-06, &
6799 -0.4468e-06, -0.1006e-05, -0.2032e-05, -0.3611e-05, -0.5679e-05, &
6800 -0.8058e-05, -0.1059e-04, -0.1324e-04, -0.1612e-04, -0.1956e-04, &
6801 -0.2411e-04, -0.3046e-04, -0.3925e-04, -0.5098e-04, -0.6619e-04, &
6802 -0.8562e-04, -0.1100e-03, -0.1399e-03, -0.1761e-03, -0.2202e-03, &
6803 -0.2726e-03, -0.3306e-03, -0.3885e-03, -0.4404e-03, -0.4820e-03, &
6804 -0.5082e-03/
6805 data ((h83(ip,iw),iw=1,31), ip=12,12)/ &
6806 0.2041e-10, 0.4771e-10, 0.1149e-09, 0.2782e-09, 0.6614e-09, &
6807 0.1451e-08, 0.2778e-08, 0.4401e-08, 0.5736e-08, 0.6189e-08, &
6808 0.5315e-08, 0.3087e-08, -0.2518e-09, -0.4806e-08, -0.1071e-07, &
6809 -0.1731e-07, -0.2346e-07, -0.2659e-07, -0.2184e-07, -0.4261e-08, &
6810 0.2975e-07, 0.8112e-07, 0.1484e-06, 0.2308e-06, 0.3296e-06, &
6811 0.4475e-06, 0.5942e-06, 0.7859e-06, 0.1041e-05, 0.1369e-05, &
6812 0.1726e-05/
6813 data ((h81(ip,iw),iw=1,31), ip=13,13)/ &
6814 0.99998653, 0.99997348, 0.99994826, 0.99990052, 0.99981320, &
6815 0.99966109, 0.99941391, 0.99904412, 0.99853402, 0.99787498, &
6816 0.99704498, 0.99599600, 0.99462402, 0.99276501, 0.99017602, &
6817 0.98651999, 0.98133999, 0.97403997, 0.96386999, 0.94984001, &
6818 0.93071002, 0.90495998, 0.87080002, 0.82620001, 0.76910001, &
6819 0.69790000, 0.61199999, 0.51320004, 0.40640002, 0.29970002, &
6820 0.20359999/
6821 data ((h82(ip,iw),iw=1,31), ip=13,13)/ &
6822 -0.5362e-08, -0.1223e-07, -0.2895e-07, -0.7071e-07, -0.1748e-06, &
6823 -0.4219e-06, -0.9516e-06, -0.1928e-05, -0.3436e-05, -0.5409e-05, &
6824 -0.7666e-05, -0.1005e-04, -0.1254e-04, -0.1533e-04, -0.1880e-04, &
6825 -0.2358e-04, -0.3038e-04, -0.3988e-04, -0.5264e-04, -0.6934e-04, &
6826 -0.9083e-04, -0.1179e-03, -0.1515e-03, -0.1927e-03, -0.2424e-03, &
6827 -0.2994e-03, -0.3591e-03, -0.4155e-03, -0.4634e-03, -0.4982e-03, &
6828 -0.5096e-03/
6829 data ((h83(ip,iw),iw=1,31), ip=13,13)/ &
6830 0.1976e-10, 0.4551e-10, 0.1086e-09, 0.2601e-09, 0.6126e-09, &
6831 0.1345e-08, 0.2583e-08, 0.4112e-08, 0.5365e-08, 0.5796e-08, &
6832 0.5031e-08, 0.3182e-08, 0.5970e-09, -0.2547e-08, -0.6172e-08, &
6833 -0.1017e-07, -0.1388e-07, -0.1430e-07, -0.6118e-08, 0.1624e-07, &
6834 0.5791e-07, 0.1205e-06, 0.2025e-06, 0.3032e-06, 0.4225e-06, &
6835 0.5619e-06, 0.7322e-06, 0.9528e-06, 0.1243e-05, 0.1592e-05, &
6836 0.1904e-05/
6837 data ((h81(ip,iw),iw=1,31), ip=14,14)/ &
6838 0.99998653, 0.99997348, 0.99994808, 0.99989992, 0.99981129, &
6839 0.99965578, 0.99939990, 0.99901080, 0.99846399, 0.99773800, &
6840 0.99680001, 0.99558002, 0.99394703, 0.99169999, 0.98853999, &
6841 0.98408002, 0.97776002, 0.96888000, 0.95652002, 0.93949002, &
6842 0.91631001, 0.88529998, 0.84439999, 0.79159999, 0.72510004, &
6843 0.64390004, 0.54890001, 0.44379997, 0.33560002, 0.23449999, &
6844 0.15009999/
6845 data ((h82(ip,iw),iw=1,31), ip=14,14)/ &
6846 -0.5210e-08, -0.1172e-07, -0.2731e-07, -0.6598e-07, -0.1615e-06, &
6847 -0.3880e-06, -0.8769e-06, -0.1787e-05, -0.3204e-05, -0.5066e-05, &
6848 -0.7197e-05, -0.9451e-05, -0.1185e-04, -0.1465e-04, -0.1831e-04, &
6849 -0.2346e-04, -0.3088e-04, -0.4132e-04, -0.5545e-04, -0.7410e-04, &
6850 -0.9820e-04, -0.1288e-03, -0.1670e-03, -0.2140e-03, -0.2692e-03, &
6851 -0.3293e-03, -0.3886e-03, -0.4417e-03, -0.4840e-03, -0.5073e-03, &
6852 -0.4944e-03/
6853 data ((h83(ip,iw),iw=1,31), ip=14,14)/ &
6854 0.1880e-10, 0.4271e-10, 0.9966e-10, 0.2352e-09, 0.5497e-09, &
6855 0.1205e-08, 0.2334e-08, 0.3765e-08, 0.4993e-08, 0.5532e-08, &
6856 0.5148e-08, 0.4055e-08, 0.2650e-08, 0.1326e-08, 0.2019e-09, &
6857 -0.1124e-08, -0.2234e-08, 0.2827e-09, 0.1247e-07, 0.4102e-07, &
6858 0.9228e-07, 0.1682e-06, 0.2676e-06, 0.3885e-06, 0.5286e-06, &
6859 0.6904e-06, 0.8871e-06, 0.1142e-05, 0.1466e-05, 0.1800e-05, &
6860 0.2004e-05/
6861 data ((h81(ip,iw),iw=1,31), ip=15,15)/ &
6862 0.99998653, 0.99997336, 0.99994785, 0.99989909, 0.99980879, &
6863 0.99964851, 0.99938041, 0.99896401, 0.99836302, 0.99754399, &
6864 0.99645603, 0.99500400, 0.99302697, 0.99027801, 0.98640001, &
6865 0.98092002, 0.97319001, 0.96234000, 0.94727999, 0.92657000, &
6866 0.89850003, 0.86119998, 0.81260002, 0.75080001, 0.67429996, &
6867 0.58350003, 0.48089999, 0.37250000, 0.26760000, 0.17650002, &
6868 0.10610002/
6869 data ((h82(ip,iw),iw=1,31), ip=15,15)/ &
6870 -0.5045e-08, -0.1113e-07, -0.2540e-07, -0.6008e-07, -0.1449e-06, &
6871 -0.3457e-06, -0.7826e-06, -0.1609e-05, -0.2920e-05, -0.4665e-05, &
6872 -0.6691e-05, -0.8868e-05, -0.1127e-04, -0.1422e-04, -0.1820e-04, &
6873 -0.2389e-04, -0.3213e-04, -0.4380e-04, -0.5975e-04, -0.8092e-04, &
6874 -0.1083e-03, -0.1433e-03, -0.1873e-03, -0.2402e-03, -0.2997e-03, &
6875 -0.3607e-03, -0.4178e-03, -0.4662e-03, -0.4994e-03, -0.5028e-03, &
6876 -0.4563e-03/
6877 data ((h83(ip,iw),iw=1,31), ip=15,15)/ &
6878 0.1804e-10, 0.3983e-10, 0.9045e-10, 0.2080e-09, 0.4786e-09, &
6879 0.1046e-08, 0.2052e-08, 0.3413e-08, 0.4704e-08, 0.5565e-08, &
6880 0.5887e-08, 0.5981e-08, 0.6202e-08, 0.6998e-08, 0.8493e-08, &
6881 0.1002e-07, 0.1184e-07, 0.1780e-07, 0.3483e-07, 0.7122e-07, &
6882 0.1341e-06, 0.2259e-06, 0.3446e-06, 0.4866e-06, 0.6486e-06, &
6883 0.8343e-06, 0.1063e-05, 0.1356e-05, 0.1690e-05, 0.1951e-05, &
6884 0.2005e-05/
6885 data ((h81(ip,iw),iw=1,31), ip=16,16)/ &
6886 0.99998647, 0.99997330, 0.99994755, 0.99989808, 0.99980563, &
6887 0.99963909, 0.99935490, 0.99890202, 0.99822801, 0.99728203, &
6888 0.99599099, 0.99423301, 0.99181002, 0.98842001, 0.98364002, &
6889 0.97689003, 0.96740001, 0.95414001, 0.93575001, 0.91060001, &
6890 0.87680000, 0.83219999, 0.77490002, 0.70330000, 0.61689997, &
6891 0.51750004, 0.40990001, 0.30239999, 0.20539999, 0.12750000, &
6892 0.07150000/
6893 data ((h82(ip,iw),iw=1,31), ip=16,16)/ &
6894 -0.4850e-08, -0.1045e-07, -0.2334e-07, -0.5367e-07, -0.1265e-06, &
6895 -0.2980e-06, -0.6750e-06, -0.1406e-05, -0.2601e-05, -0.4239e-05, &
6896 -0.6201e-05, -0.8389e-05, -0.1091e-04, -0.1413e-04, -0.1859e-04, &
6897 -0.2500e-04, -0.3432e-04, -0.4761e-04, -0.6595e-04, -0.9030e-04, &
6898 -0.1219e-03, -0.1624e-03, -0.2126e-03, -0.2708e-03, -0.3327e-03, &
6899 -0.3926e-03, -0.4458e-03, -0.4871e-03, -0.5045e-03, -0.4777e-03, &
6900 -0.3954e-03/
6901 data ((h83(ip,iw),iw=1,31), ip=16,16)/ &
6902 0.1717e-10, 0.3723e-10, 0.8093e-10, 0.1817e-09, 0.4100e-09, &
6903 0.8932e-09, 0.1791e-08, 0.3126e-08, 0.4634e-08, 0.6095e-08, &
6904 0.7497e-08, 0.9170e-08, 0.1136e-07, 0.1453e-07, 0.1892e-07, &
6905 0.2369e-07, 0.2909e-07, 0.3922e-07, 0.6232e-07, 0.1083e-06, &
6906 0.1847e-06, 0.2943e-06, 0.4336e-06, 0.5970e-06, 0.7815e-06, &
6907 0.9959e-06, 0.1263e-05, 0.1583e-05, 0.1880e-05, 0.2009e-05, &
6908 0.1914e-05/
6909 data ((h81(ip,iw),iw=1,31), ip=17,17)/ &
6910 0.99998647, 0.99997318, 0.99994719, 0.99989688, 0.99980187, &
6911 0.99962789, 0.99932390, 0.99882400, 0.99805701, 0.99694502, &
6912 0.99538797, 0.99323398, 0.99023998, 0.98604000, 0.98013997, &
6913 0.97182000, 0.96016002, 0.94391000, 0.92149997, 0.89100003, &
6914 0.85049999, 0.79769999, 0.73089999, 0.64919996, 0.55350000, &
6915 0.44760001, 0.33870000, 0.23670000, 0.15149999, 0.08810002, &
6916 0.04570001/
6917 data ((h82(ip,iw),iw=1,31), ip=17,17)/ &
6918 -0.4673e-08, -0.9862e-08, -0.2135e-07, -0.4753e-07, -0.1087e-06, &
6919 -0.2512e-06, -0.5671e-06, -0.1199e-05, -0.2281e-05, -0.3842e-05, &
6920 -0.5804e-05, -0.8110e-05, -0.1088e-04, -0.1452e-04, -0.1961e-04, &
6921 -0.2696e-04, -0.3768e-04, -0.5311e-04, -0.7444e-04, -0.1028e-03, &
6922 -0.1397e-03, -0.1865e-03, -0.2427e-03, -0.3047e-03, -0.3667e-03, &
6923 -0.4237e-03, -0.4712e-03, -0.5003e-03, -0.4921e-03, -0.4286e-03, &
6924 -0.3188e-03/
6925 data ((h83(ip,iw),iw=1,31), ip=17,17)/ &
6926 0.1653e-10, 0.3436e-10, 0.7431e-10, 0.1605e-09, 0.3548e-09, &
6927 0.7723e-09, 0.1595e-08, 0.2966e-08, 0.4849e-08, 0.7169e-08, &
6928 0.1003e-07, 0.1366e-07, 0.1825e-07, 0.2419e-07, 0.3186e-07, &
6929 0.4068e-07, 0.5064e-07, 0.6618e-07, 0.9684e-07, 0.1536e-06, &
6930 0.2450e-06, 0.3730e-06, 0.5328e-06, 0.7184e-06, 0.9291e-06, &
6931 0.1180e-05, 0.1484e-05, 0.1798e-05, 0.1992e-05, 0.1968e-05, &
6932 0.1736e-05/
6933 data ((h81(ip,iw),iw=1,31), ip=18,18)/ &
6934 0.99998647, 0.99997312, 0.99994683, 0.99989569, 0.99979800, &
6935 0.99961591, 0.99928999, 0.99873698, 0.99785602, 0.99653602, &
6936 0.99464101, 0.99198103, 0.98825997, 0.98306000, 0.97574002, &
6937 0.96548998, 0.95117003, 0.93129998, 0.90407002, 0.86739999, &
6938 0.81910002, 0.75720000, 0.68040001, 0.58880001, 0.48530000, &
6939 0.37610000, 0.27029997, 0.17830002, 0.10720003, 0.05790001, &
6940 0.02740002/
6941 data ((h82(ip,iw),iw=1,31), ip=18,18)/ &
6942 -0.4532e-08, -0.9395e-08, -0.1978e-07, -0.4272e-07, -0.9442e-07, &
6943 -0.2124e-06, -0.4747e-06, -0.1017e-05, -0.2003e-05, -0.3524e-05, &
6944 -0.5567e-05, -0.8108e-05, -0.1127e-04, -0.1547e-04, -0.2138e-04, &
6945 -0.2996e-04, -0.4251e-04, -0.6059e-04, -0.8563e-04, -0.1190e-03, &
6946 -0.1623e-03, -0.2156e-03, -0.2767e-03, -0.3403e-03, -0.4006e-03, &
6947 -0.4530e-03, -0.4912e-03, -0.4995e-03, -0.4563e-03, -0.3592e-03, &
6948 -0.2383e-03/
6949 data ((h83(ip,iw),iw=1,31), ip=18,18)/ &
6950 0.1593e-10, 0.3276e-10, 0.6896e-10, 0.1476e-09, 0.3190e-09, &
6951 0.6944e-09, 0.1474e-08, 0.2935e-08, 0.5300e-08, 0.8697e-08, &
6952 0.1336e-07, 0.1946e-07, 0.2707e-07, 0.3637e-07, 0.4800e-07, &
6953 0.6187e-07, 0.7806e-07, 0.1008e-06, 0.1404e-06, 0.2089e-06, &
6954 0.3153e-06, 0.4613e-06, 0.6416e-06, 0.8506e-06, 0.1095e-05, &
6955 0.1387e-05, 0.1708e-05, 0.1956e-05, 0.2003e-05, 0.1836e-05, &
6956 0.1483e-05/
6957 data ((h81(ip,iw),iw=1,31), ip=19,19)/ &
6958 0.99998641, 0.99997300, 0.99994648, 0.99989462, 0.99979430, &
6959 0.99960452, 0.99925661, 0.99864697, 0.99763900, 0.99607199, &
6960 0.99376297, 0.99046898, 0.98584002, 0.97937000, 0.97031999, &
6961 0.95766997, 0.94010001, 0.91588002, 0.88300002, 0.83920002, &
6962 0.78230000, 0.71060002, 0.62360001, 0.52320004, 0.41450000, &
6963 0.30589998, 0.20789999, 0.12900001, 0.07239997, 0.03590000, &
6964 0.01539999/
6965 data ((h82(ip,iw),iw=1,31), ip=19,19)/ &
6966 -0.4448e-08, -0.9085e-08, -0.1877e-07, -0.3946e-07, -0.8472e-07, &
6967 -0.1852e-06, -0.4074e-06, -0.8791e-06, -0.1789e-05, -0.3314e-05, &
6968 -0.5521e-05, -0.8425e-05, -0.1215e-04, -0.1711e-04, -0.2407e-04, &
6969 -0.3421e-04, -0.4905e-04, -0.7032e-04, -0.9985e-04, -0.1394e-03, &
6970 -0.1897e-03, -0.2491e-03, -0.3132e-03, -0.3763e-03, -0.4332e-03, &
6971 -0.4786e-03, -0.5005e-03, -0.4775e-03, -0.3970e-03, -0.2794e-03, &
6972 -0.1652e-03/
6973 data ((h83(ip,iw),iw=1,31), ip=19,19)/ &
6974 0.1566e-10, 0.3219e-10, 0.6635e-10, 0.1400e-09, 0.2999e-09, &
6975 0.6513e-09, 0.1406e-08, 0.2953e-08, 0.5789e-08, 0.1037e-07, &
6976 0.1709e-07, 0.2623e-07, 0.3777e-07, 0.5159e-07, 0.6823e-07, &
6977 0.8864e-07, 0.1134e-06, 0.1461e-06, 0.1960e-06, 0.2761e-06, &
6978 0.3962e-06, 0.5583e-06, 0.7580e-06, 0.9957e-06, 0.1282e-05, &
6979 0.1607e-05, 0.1898e-05, 0.2020e-05, 0.1919e-05, 0.1623e-05, &
6980 0.1171e-05/
6981 data ((h81(ip,iw),iw=1,31), ip=20,20)/ &
6982 0.99998641, 0.99997294, 0.99994624, 0.99989372, 0.99979132, &
6983 0.99959481, 0.99922693, 0.99856299, 0.99742502, 0.99558598, &
6984 0.99278802, 0.98872000, 0.98295999, 0.97491002, 0.96368998, &
6985 0.94812000, 0.92662001, 0.89719999, 0.85780001, 0.80599999, &
6986 0.73969996, 0.65779996, 0.56130004, 0.45410001, 0.34369999, &
6987 0.24030000, 0.15390003, 0.08950001, 0.04640001, 0.02090001, &
6988 0.00800002/
6989 data ((h82(ip,iw),iw=1,31), ip=20,20)/ &
6990 -0.4403e-08, -0.8896e-08, -0.1818e-07, -0.3751e-07, -0.7880e-07, &
6991 -0.1683e-06, -0.3640e-06, -0.7852e-06, -0.1640e-05, -0.3191e-05, &
6992 -0.5634e-05, -0.9046e-05, -0.1355e-04, -0.1953e-04, -0.2786e-04, &
6993 -0.3995e-04, -0.5752e-04, -0.8256e-04, -0.1174e-03, -0.1638e-03, &
6994 -0.2211e-03, -0.2854e-03, -0.3507e-03, -0.4116e-03, -0.4633e-03, &
6995 -0.4966e-03, -0.4921e-03, -0.4309e-03, -0.3215e-03, -0.2016e-03, &
6996 -0.1061e-03/
6997 data ((h83(ip,iw),iw=1,31), ip=20,20)/ &
6998 0.1551e-10, 0.3147e-10, 0.6419e-10, 0.1356e-09, 0.2860e-09, &
6999 0.6178e-09, 0.1353e-08, 0.2934e-08, 0.6095e-08, 0.1174e-07, &
7000 0.2067e-07, 0.3346e-07, 0.5014e-07, 0.7024e-07, 0.9377e-07, &
7001 0.1226e-06, 0.1592e-06, 0.2056e-06, 0.2678e-06, 0.3584e-06, &
7002 0.4892e-06, 0.6651e-06, 0.8859e-06, 0.1160e-05, 0.1488e-05, &
7003 0.1814e-05, 0.2010e-05, 0.1984e-05, 0.1748e-05, 0.1338e-05, &
7004 0.8445e-06/
7005 data ((h81(ip,iw),iw=1,31), ip=21,21)/ &
7006 0.99998641, 0.99997288, 0.99994606, 0.99989301, 0.99978900, &
7007 0.99958712, 0.99920273, 0.99849200, 0.99723101, 0.99511403, &
7008 0.99177098, 0.98677999, 0.97962999, 0.96961999, 0.95573002, &
7009 0.93658000, 0.91036999, 0.87500000, 0.82800001, 0.76730001, &
7010 0.69110000, 0.59930003, 0.49479997, 0.38370001, 0.27590001, &
7011 0.18210000, 0.10949999, 0.05919999, 0.02800000, 0.01130003, &
7012 0.00389999/
7013 data ((h82(ip,iw),iw=1,31), ip=21,21)/ &
7014 -0.4379e-08, -0.8801e-08, -0.1782e-07, -0.3642e-07, -0.7536e-07, &
7015 -0.1581e-06, -0.3366e-06, -0.7227e-06, -0.1532e-05, -0.3106e-05, &
7016 -0.5810e-05, -0.9862e-05, -0.1540e-04, -0.2279e-04, -0.3292e-04, &
7017 -0.4738e-04, -0.6817e-04, -0.9765e-04, -0.1384e-03, -0.1918e-03, &
7018 -0.2551e-03, -0.3226e-03, -0.3876e-03, -0.4452e-03, -0.4883e-03, &
7019 -0.5005e-03, -0.4598e-03, -0.3633e-03, -0.2416e-03, -0.1349e-03, &
7020 -0.6278e-04/
7021 data ((h83(ip,iw),iw=1,31), ip=21,21)/ &
7022 0.1542e-10, 0.3111e-10, 0.6345e-10, 0.1310e-09, 0.2742e-09, &
7023 0.5902e-09, 0.1289e-08, 0.2826e-08, 0.6103e-08, 0.1250e-07, &
7024 0.2355e-07, 0.4041e-07, 0.6347e-07, 0.9217e-07, 0.1256e-06, &
7025 0.1658e-06, 0.2175e-06, 0.2824e-06, 0.3607e-06, 0.4614e-06, &
7026 0.6004e-06, 0.7880e-06, 0.1034e-05, 0.1349e-05, 0.1698e-05, &
7027 0.1965e-05, 0.2021e-05, 0.1857e-05, 0.1500e-05, 0.1015e-05, &
7028 0.5467e-06/
7029 data ((h81(ip,iw),iw=1,31), ip=22,22)/ &
7030 0.99998635, 0.99997288, 0.99994594, 0.99989259, 0.99978727, &
7031 0.99958128, 0.99918407, 0.99843502, 0.99706697, 0.99468601, &
7032 0.99077803, 0.98474997, 0.97593999, 0.96350998, 0.94633001, &
7033 0.92282999, 0.89100003, 0.84860003, 0.79330003, 0.72299999, &
7034 0.63670003, 0.53600001, 0.42580003, 0.31470001, 0.21410000, &
7035 0.13300002, 0.07470000, 0.03710002, 0.01580000, 0.00580001, &
7036 0.00169998/
7037 data ((h82(ip,iw),iw=1,31), ip=22,22)/ &
7038 -0.4366e-08, -0.8749e-08, -0.1761e-07, -0.3578e-07, -0.7322e-07, &
7039 -0.1517e-06, -0.3189e-06, -0.6785e-06, -0.1446e-05, -0.3014e-05, &
7040 -0.5933e-05, -0.1069e-04, -0.1755e-04, -0.2683e-04, -0.3936e-04, &
7041 -0.5675e-04, -0.8137e-04, -0.1160e-03, -0.1630e-03, -0.2223e-03, &
7042 -0.2899e-03, -0.3589e-03, -0.4230e-03, -0.4755e-03, -0.5031e-03, &
7043 -0.4834e-03, -0.4036e-03, -0.2849e-03, -0.1687e-03, -0.8356e-04, &
7044 -0.3388e-04/
7045 data ((h83(ip,iw),iw=1,31), ip=22,22)/ &
7046 0.1536e-10, 0.3086e-10, 0.6248e-10, 0.1288e-09, 0.2664e-09, &
7047 0.5637e-09, 0.1222e-08, 0.2680e-08, 0.5899e-08, 0.1262e-07, &
7048 0.2527e-07, 0.4621e-07, 0.7678e-07, 0.1165e-06, 0.1640e-06, &
7049 0.2199e-06, 0.2904e-06, 0.3783e-06, 0.4787e-06, 0.5925e-06, &
7050 0.7377e-06, 0.9389e-06, 0.1216e-05, 0.1560e-05, 0.1879e-05, &
7051 0.2025e-05, 0.1940e-05, 0.1650e-05, 0.1194e-05, 0.6981e-06, &
7052 0.3103e-06/
7053 data ((h81(ip,iw),iw=1,31), ip=23,23)/ &
7054 0.99998635, 0.99997282, 0.99994588, 0.99989229, 0.99978608, &
7055 0.99957722, 0.99917048, 0.99839097, 0.99693698, 0.99432403, &
7056 0.98987001, 0.98273998, 0.97201002, 0.95668000, 0.93548000, &
7057 0.90671998, 0.86830002, 0.81800002, 0.75330001, 0.67299998, &
7058 0.57720000, 0.46920002, 0.35659999, 0.25010002, 0.16049999, &
7059 0.09350002, 0.04850000, 0.02179998, 0.00840002, 0.00269997, &
7060 0.00070000/
7061 data ((h82(ip,iw),iw=1,31), ip=23,23)/ &
7062 -0.4359e-08, -0.8720e-08, -0.1749e-07, -0.3527e-07, -0.7175e-07, &
7063 -0.1473e-06, -0.3062e-06, -0.6451e-06, -0.1372e-05, -0.2902e-05, &
7064 -0.5936e-05, -0.1133e-04, -0.1971e-04, -0.3143e-04, -0.4715e-04, &
7065 -0.6833e-04, -0.9759e-04, -0.1379e-03, -0.1907e-03, -0.2542e-03, &
7066 -0.3239e-03, -0.3935e-03, -0.4559e-03, -0.4991e-03, -0.5009e-03, &
7067 -0.4414e-03, -0.3306e-03, -0.2077e-03, -0.1093e-03, -0.4754e-04, &
7068 -0.1642e-04/
7069 data ((h83(ip,iw),iw=1,31), ip=23,23)/ &
7070 0.1531e-10, 0.3070e-10, 0.6184e-10, 0.1257e-09, 0.2578e-09, &
7071 0.5451e-09, 0.1159e-08, 0.2526e-08, 0.5585e-08, 0.1225e-07, &
7072 0.2576e-07, 0.5017e-07, 0.8855e-07, 0.1417e-06, 0.2078e-06, &
7073 0.2858e-06, 0.3802e-06, 0.4946e-06, 0.6226e-06, 0.7572e-06, &
7074 0.9137e-06, 0.1133e-05, 0.1438e-05, 0.1772e-05, 0.1994e-05, &
7075 0.1994e-05, 0.1779e-05, 0.1375e-05, 0.8711e-06, 0.4273e-06, &
7076 0.1539e-06/
7077 data ((h81(ip,iw),iw=1,31), ip=24,24)/ &
7078 0.99998635, 0.99997282, 0.99994582, 0.99989212, 0.99978542, &
7079 0.99957442, 0.99916071, 0.99835902, 0.99683702, 0.99403203, &
7080 0.98908001, 0.98084998, 0.96805000, 0.94933999, 0.92330998, &
7081 0.88830000, 0.84219998, 0.78270000, 0.70809996, 0.61759996, &
7082 0.51330000, 0.40079999, 0.29000002, 0.19239998, 0.11619997, &
7083 0.06300002, 0.02980000, 0.01200002, 0.00410002, 0.00120002, &
7084 0.00019997/
7085 data ((h82(ip,iw),iw=1,31), ip=24,24)/ &
7086 -0.4354e-08, -0.8703e-08, -0.1742e-07, -0.3499e-07, -0.7074e-07, &
7087 -0.1441e-06, -0.2971e-06, -0.6195e-06, -0.1309e-05, -0.2780e-05, &
7088 -0.5823e-05, -0.1165e-04, -0.2152e-04, -0.3616e-04, -0.5604e-04, &
7089 -0.8230e-04, -0.1173e-03, -0.1635e-03, -0.2211e-03, -0.2868e-03, &
7090 -0.3567e-03, -0.4260e-03, -0.4844e-03, -0.5097e-03, -0.4750e-03, &
7091 -0.3779e-03, -0.2522e-03, -0.1409e-03, -0.6540e-04, -0.2449e-04, &
7092 -0.6948e-05/
7093 data ((h83(ip,iw),iw=1,31), ip=24,24)/ &
7094 0.1529e-10, 0.3060e-10, 0.6142e-10, 0.1241e-09, 0.2535e-09, &
7095 0.5259e-09, 0.1107e-08, 0.2383e-08, 0.5243e-08, 0.1161e-07, &
7096 0.2523e-07, 0.5188e-07, 0.9757e-07, 0.1657e-06, 0.2553e-06, &
7097 0.3629e-06, 0.4878e-06, 0.6323e-06, 0.7923e-06, 0.9575e-06, &
7098 0.1139e-05, 0.1381e-05, 0.1687e-05, 0.1952e-05, 0.2029e-05, &
7099 0.1890e-05, 0.1552e-05, 0.1062e-05, 0.5728e-06, 0.2280e-06, &
7100 0.6762e-07/
7101 data ((h81(ip,iw),iw=1,31), ip=25,25)/ &
7102 0.99998635, 0.99997282, 0.99994582, 0.99989200, 0.99978489, &
7103 0.99957252, 0.99915391, 0.99833602, 0.99676299, 0.99380499, &
7104 0.98843998, 0.97920001, 0.96427000, 0.94182003, 0.91018999, &
7105 0.86769998, 0.81260002, 0.74300003, 0.65770000, 0.55750000, &
7106 0.44660002, 0.33310002, 0.22860003, 0.14319998, 0.08090001, &
7107 0.04030001, 0.01719999, 0.00620002, 0.00190002, 0.00040001, &
7108 0.00000000/
7109 data ((h82(ip,iw),iw=1,31), ip=25,25)/ &
7110 -0.4352e-08, -0.8693e-08, -0.1738e-07, -0.3483e-07, -0.7006e-07, &
7111 -0.1423e-06, -0.2905e-06, -0.6008e-06, -0.1258e-05, -0.2663e-05, &
7112 -0.5638e-05, -0.1165e-04, -0.2270e-04, -0.4044e-04, -0.6554e-04, &
7113 -0.9855e-04, -0.1407e-03, -0.1928e-03, -0.2534e-03, -0.3197e-03, &
7114 -0.3890e-03, -0.4563e-03, -0.5040e-03, -0.4998e-03, -0.4249e-03, &
7115 -0.3025e-03, -0.1794e-03, -0.8860e-04, -0.3575e-04, -0.1122e-04, &
7116 -0.2506e-05/
7117 data ((h83(ip,iw),iw=1,31), ip=25,25)/ &
7118 0.1527e-10, 0.3053e-10, 0.6115e-10, 0.1230e-09, 0.2492e-09, &
7119 0.5149e-09, 0.1068e-08, 0.2268e-08, 0.4932e-08, 0.1089e-07, &
7120 0.2408e-07, 0.5156e-07, 0.1028e-06, 0.1859e-06, 0.3028e-06, &
7121 0.4476e-06, 0.6124e-06, 0.7932e-06, 0.9879e-06, 0.1194e-05, &
7122 0.1417e-05, 0.1673e-05, 0.1929e-05, 0.2064e-05, 0.1997e-05, &
7123 0.1725e-05, 0.1267e-05, 0.7464e-06, 0.3312e-06, 0.1066e-06, &
7124 0.2718e-07/
7125 data ((h81(ip,iw),iw=1,31), ip=26,26)/ &
7126 0.99998635, 0.99997282, 0.99994576, 0.99989188, 0.99978459, &
7127 0.99957132, 0.99914938, 0.99831998, 0.99670899, 0.99363601, &
7128 0.98794001, 0.97781998, 0.96087998, 0.93456000, 0.89670002, &
7129 0.84560001, 0.78020000, 0.69920003, 0.60299999, 0.49400002, &
7130 0.37910002, 0.26889998, 0.17460001, 0.10280001, 0.05379999, &
7131 0.02429998, 0.00929999, 0.00300002, 0.00080001, 0.00010002, &
7132 0.00000000/
7133 data ((h82(ip,iw),iw=1,31), ip=26,26)/ &
7134 -0.4351e-08, -0.8688e-08, -0.1736e-07, -0.3473e-07, -0.6966e-07, &
7135 -0.1405e-06, -0.2857e-06, -0.5867e-06, -0.1218e-05, -0.2563e-05, &
7136 -0.5435e-05, -0.1144e-04, -0.2321e-04, -0.4379e-04, -0.7487e-04, &
7137 -0.1163e-03, -0.1670e-03, -0.2250e-03, -0.2876e-03, -0.3535e-03, &
7138 -0.4215e-03, -0.4826e-03, -0.5082e-03, -0.4649e-03, -0.3564e-03, &
7139 -0.2264e-03, -0.1188e-03, -0.5128e-04, -0.1758e-04, -0.4431e-05, &
7140 -0.7275e-06/
7141 data ((h83(ip,iw),iw=1,31), ip=26,26)/ &
7142 0.1525e-10, 0.3048e-10, 0.6097e-10, 0.1223e-09, 0.2466e-09, &
7143 0.5021e-09, 0.1032e-08, 0.2195e-08, 0.4688e-08, 0.1027e-07, &
7144 0.2279e-07, 0.4999e-07, 0.1046e-06, 0.2009e-06, 0.3460e-06, &
7145 0.5335e-06, 0.7478e-06, 0.9767e-06, 0.1216e-05, 0.1469e-05, &
7146 0.1735e-05, 0.1977e-05, 0.2121e-05, 0.2103e-05, 0.1902e-05, &
7147 0.1495e-05, 0.9541e-06, 0.4681e-06, 0.1672e-06, 0.4496e-07, &
7148 0.9859e-08/
7149 data ((c1(ip,iw),iw=1,30), ip= 1, 1)/ &
7150 0.99985647, 0.99976432, 0.99963892, 0.99948031, 0.99927652, &
7151 0.99899602, 0.99860001, 0.99804801, 0.99732202, 0.99640399, &
7152 0.99526399, 0.99384302, 0.99204999, 0.98979002, 0.98694998, &
7153 0.98334998, 0.97878999, 0.97307003, 0.96592999, 0.95722002, &
7154 0.94660002, 0.93366003, 0.91777998, 0.89819998, 0.87419999, &
7155 0.84500003, 0.81029999, 0.76989996, 0.72440004, 0.67490000/
7156 data ((c2(ip,iw),iw=1,30), ip= 1, 1)/ &
7157 -0.1841e-06, -0.4666e-06, -0.1050e-05, -0.2069e-05, -0.3601e-05, &
7158 -0.5805e-05, -0.8863e-05, -0.1291e-04, -0.1806e-04, -0.2460e-04, &
7159 -0.3317e-04, -0.4452e-04, -0.5944e-04, -0.7884e-04, -0.1036e-03, &
7160 -0.1346e-03, -0.1727e-03, -0.2186e-03, -0.2728e-03, -0.3364e-03, &
7161 -0.4102e-03, -0.4948e-03, -0.5890e-03, -0.6900e-03, -0.7930e-03, &
7162 -0.8921e-03, -0.9823e-03, -0.1063e-02, -0.1138e-02, -0.1214e-02/
7163 data ((c3(ip,iw),iw=1,30), ip= 1, 1)/ &
7164 0.5821e-10, 0.5821e-10, -0.3201e-09, -0.1804e-08, -0.4336e-08, &
7165 -0.7829e-08, -0.1278e-07, -0.1847e-07, -0.2827e-07, -0.4495e-07, &
7166 -0.7126e-07, -0.1071e-06, -0.1524e-06, -0.2160e-06, -0.3014e-06, &
7167 -0.4097e-06, -0.5349e-06, -0.6718e-06, -0.8125e-06, -0.9755e-06, &
7168 -0.1157e-05, -0.1339e-05, -0.1492e-05, -0.1563e-05, -0.1485e-05, &
7169 -0.1210e-05, -0.7280e-06, -0.1107e-06, 0.5369e-06, 0.1154e-05/
7170 data ((c1(ip,iw),iw=1,30), ip= 2, 2)/ &
7171 0.99985647, 0.99976432, 0.99963868, 0.99947977, 0.99927580, &
7172 0.99899501, 0.99859601, 0.99804401, 0.99731201, 0.99638498, &
7173 0.99523097, 0.99378198, 0.99194402, 0.98961002, 0.98664999, &
7174 0.98286998, 0.97807002, 0.97200000, 0.96439999, 0.95503998, &
7175 0.94352001, 0.92931998, 0.91175002, 0.88989997, 0.86300004, &
7176 0.83039999, 0.79159999, 0.74710000, 0.69790000, 0.64579999/
7177 data ((c2(ip,iw),iw=1,30), ip= 2, 2)/ &
7178 -0.1831e-06, -0.4642e-06, -0.1048e-05, -0.2067e-05, -0.3596e-05, &
7179 -0.5797e-05, -0.8851e-05, -0.1289e-04, -0.1802e-04, -0.2454e-04, &
7180 -0.3307e-04, -0.4435e-04, -0.5916e-04, -0.7842e-04, -0.1031e-03, &
7181 -0.1342e-03, -0.1725e-03, -0.2189e-03, -0.2739e-03, -0.3386e-03, &
7182 -0.4138e-03, -0.5003e-03, -0.5968e-03, -0.7007e-03, -0.8076e-03, &
7183 -0.9113e-03, -0.1007e-02, -0.1096e-02, -0.1181e-02, -0.1271e-02/
7184 data ((c3(ip,iw),iw=1,30), ip= 2, 2)/ &
7185 0.5821e-10, 0.5821e-10, -0.3347e-09, -0.1746e-08, -0.4366e-08, &
7186 -0.7858e-08, -0.1262e-07, -0.1866e-07, -0.2849e-07, -0.4524e-07, &
7187 -0.7176e-07, -0.1077e-06, -0.1531e-06, -0.2166e-06, -0.3018e-06, &
7188 -0.4090e-06, -0.5327e-06, -0.6670e-06, -0.8088e-06, -0.9714e-06, &
7189 -0.1151e-05, -0.1333e-05, -0.1483e-05, -0.1548e-05, -0.1467e-05, &
7190 -0.1192e-05, -0.7159e-06, -0.1032e-06, 0.5571e-06, 0.1217e-05/
7191 data ((c1(ip,iw),iw=1,30), ip= 3, 3)/ &
7192 0.99985671, 0.99976432, 0.99963838, 0.99947912, 0.99927449, &
7193 0.99899203, 0.99859202, 0.99803501, 0.99729699, 0.99635702, &
7194 0.99518001, 0.99369103, 0.99178600, 0.98935002, 0.98623002, &
7195 0.98223001, 0.97711003, 0.97060001, 0.96243000, 0.95222998, &
7196 0.93957001, 0.92379999, 0.90411001, 0.87959999, 0.84930003, &
7197 0.81270003, 0.76980001, 0.72140002, 0.66909999, 0.61539996/
7198 data ((c2(ip,iw),iw=1,30), ip= 3, 3)/ &
7199 -0.1831e-06, -0.4623e-06, -0.1048e-05, -0.2065e-05, -0.3589e-05, &
7200 -0.5789e-05, -0.8833e-05, -0.1286e-04, -0.1797e-04, -0.2446e-04, &
7201 -0.3292e-04, -0.4412e-04, -0.5880e-04, -0.7795e-04, -0.1027e-03, &
7202 -0.1340e-03, -0.1728e-03, -0.2199e-03, -0.2759e-03, -0.3419e-03, &
7203 -0.4194e-03, -0.5081e-03, -0.6078e-03, -0.7156e-03, -0.8270e-03, &
7204 -0.9365e-03, -0.1040e-02, -0.1137e-02, -0.1235e-02, -0.1339e-02/
7205 data ((c3(ip,iw),iw=1,30), ip= 3, 3)/ &
7206 0.2910e-10, 0.5821e-10, -0.3201e-09, -0.1732e-08, -0.4307e-08, &
7207 -0.7843e-08, -0.1270e-07, -0.1882e-07, -0.2862e-07, -0.4571e-07, &
7208 -0.7225e-07, -0.1082e-06, -0.1535e-06, -0.2171e-06, -0.3021e-06, &
7209 -0.4084e-06, -0.5302e-06, -0.6615e-06, -0.8059e-06, -0.9668e-06, &
7210 -0.1146e-05, -0.1325e-05, -0.1468e-05, -0.1530e-05, -0.1448e-05, &
7211 -0.1168e-05, -0.6907e-06, -0.7148e-07, 0.6242e-06, 0.1357e-05/
7212 data ((c1(ip,iw),iw=1,30), ip= 4, 4)/ &
7213 0.99985629, 0.99976349, 0.99963838, 0.99947798, 0.99927282, &
7214 0.99898797, 0.99858499, 0.99802202, 0.99727303, 0.99631298, &
7215 0.99510002, 0.99355298, 0.99155599, 0.98898000, 0.98566002, &
7216 0.98136997, 0.97584999, 0.96880001, 0.95986998, 0.94862998, &
7217 0.93452001, 0.91681999, 0.89459997, 0.86680001, 0.83270001, &
7218 0.79189998, 0.74479997, 0.69290000, 0.63839996, 0.58410001/
7219 data ((c2(ip,iw),iw=1,30), ip= 4, 4)/ &
7220 -0.1808e-06, -0.4642e-06, -0.1045e-05, -0.2058e-05, -0.3581e-05, &
7221 -0.5776e-05, -0.8801e-05, -0.1281e-04, -0.1789e-04, -0.2433e-04, &
7222 -0.3273e-04, -0.4382e-04, -0.5840e-04, -0.7755e-04, -0.1024e-03, &
7223 -0.1342e-03, -0.1737e-03, -0.2217e-03, -0.2791e-03, -0.3473e-03, &
7224 -0.4272e-03, -0.5191e-03, -0.6227e-03, -0.7354e-03, -0.8526e-03, &
7225 -0.9688e-03, -0.1081e-02, -0.1189e-02, -0.1300e-02, -0.1417e-02/
7226 data ((c3(ip,iw),iw=1,30), ip= 4, 4)/ &
7227 0.1019e-09, 0.1601e-09, -0.4075e-09, -0.1746e-08, -0.4366e-08, &
7228 -0.7960e-08, -0.1294e-07, -0.1898e-07, -0.2899e-07, -0.4594e-07, &
7229 -0.7267e-07, -0.1088e-06, -0.1536e-06, -0.2164e-06, -0.3002e-06, &
7230 -0.4055e-06, -0.5260e-06, -0.6571e-06, -0.8022e-06, -0.9624e-06, &
7231 -0.1139e-05, -0.1315e-05, -0.1456e-05, -0.1512e-05, -0.1420e-05, &
7232 -0.1137e-05, -0.6483e-06, 0.6679e-08, 0.7652e-06, 0.1574e-05/
7233 data ((c1(ip,iw),iw=1,30), ip= 5, 5)/ &
7234 0.99985641, 0.99976403, 0.99963748, 0.99947661, 0.99926913, &
7235 0.99898303, 0.99857402, 0.99800003, 0.99723399, 0.99624503, &
7236 0.99498397, 0.99335301, 0.99123502, 0.98847997, 0.98488998, &
7237 0.98023999, 0.97421998, 0.96648002, 0.95659000, 0.94404000, &
7238 0.92815000, 0.90802002, 0.88270003, 0.85119998, 0.81290001, &
7239 0.76770002, 0.71679997, 0.66219997, 0.60670000, 0.55250001/
7240 data ((c2(ip,iw),iw=1,30), ip= 5, 5)/ &
7241 -0.1827e-06, -0.4608e-06, -0.1042e-05, -0.2053e-05, -0.3565e-05, &
7242 -0.5745e-05, -0.8758e-05, -0.1273e-04, -0.1778e-04, -0.2417e-04, &
7243 -0.3250e-04, -0.4347e-04, -0.5801e-04, -0.7729e-04, -0.1025e-03, &
7244 -0.1349e-03, -0.1755e-03, -0.2249e-03, -0.2842e-03, -0.3549e-03, &
7245 -0.4380e-03, -0.5340e-03, -0.6428e-03, -0.7613e-03, -0.8854e-03, &
7246 -0.1009e-02, -0.1131e-02, -0.1252e-02, -0.1376e-02, -0.1502e-02/
7247 data ((c3(ip,iw),iw=1,30), ip= 5, 5)/ &
7248 0.4366e-10, -0.1455e-10, -0.4075e-09, -0.1804e-08, -0.4293e-08, &
7249 -0.8178e-08, -0.1301e-07, -0.1915e-07, -0.2938e-07, -0.4664e-07, &
7250 -0.7365e-07, -0.1090e-06, -0.1539e-06, -0.2158e-06, -0.2992e-06, &
7251 -0.4033e-06, -0.5230e-06, -0.6537e-06, -0.7976e-06, -0.9601e-06, &
7252 -0.1135e-05, -0.1305e-05, -0.1440e-05, -0.1490e-05, -0.1389e-05, &
7253 -0.1087e-05, -0.5646e-06, 0.1475e-06, 0.9852e-06, 0.1853e-05/
7254 data ((c1(ip,iw),iw=1,30), ip= 6, 6)/ &
7255 0.99985617, 0.99976331, 0.99963629, 0.99947429, 0.99926388, &
7256 0.99897301, 0.99855602, 0.99796802, 0.99717802, 0.99614400, &
7257 0.99480897, 0.99306899, 0.99078500, 0.98778999, 0.98387998, &
7258 0.97876000, 0.97211999, 0.96350002, 0.95240998, 0.93821001, &
7259 0.92009002, 0.89709997, 0.86820000, 0.83249998, 0.78970003, &
7260 0.74039996, 0.68630004, 0.63010001, 0.57459998, 0.52069998/
7261 data ((c2(ip,iw),iw=1,30), ip= 6, 6)/ &
7262 -0.1798e-06, -0.4580e-06, -0.1033e-05, -0.2039e-05, -0.3544e-05, &
7263 -0.5709e-05, -0.8696e-05, -0.1264e-04, -0.1763e-04, -0.2395e-04, &
7264 -0.3220e-04, -0.4311e-04, -0.5777e-04, -0.7732e-04, -0.1032e-03, &
7265 -0.1365e-03, -0.1784e-03, -0.2295e-03, -0.2914e-03, -0.3653e-03, &
7266 -0.4527e-03, -0.5541e-03, -0.6689e-03, -0.7947e-03, -0.9265e-03, &
7267 -0.1060e-02, -0.1192e-02, -0.1326e-02, -0.1460e-02, -0.1586e-02/
7268 data ((c3(ip,iw),iw=1,30), ip= 6, 6)/ &
7269 0.8731e-10, 0.0000e+00, -0.3492e-09, -0.1892e-08, -0.4322e-08, &
7270 -0.8367e-08, -0.1318e-07, -0.1962e-07, -0.3024e-07, -0.4708e-07, &
7271 -0.7359e-07, -0.1087e-06, -0.1534e-06, -0.2152e-06, -0.2978e-06, &
7272 -0.4008e-06, -0.5207e-06, -0.6509e-06, -0.7968e-06, -0.9584e-06, &
7273 -0.1128e-05, -0.1297e-05, -0.1425e-05, -0.1461e-05, -0.1342e-05, &
7274 -0.1009e-05, -0.4283e-06, 0.3666e-06, 0.1272e-05, 0.2171e-05/
7275 data ((c1(ip,iw),iw=1,30), ip= 7, 7)/ &
7276 0.99985600, 0.99976230, 0.99963462, 0.99947017, 0.99925607, &
7277 0.99895698, 0.99852800, 0.99791902, 0.99709100, 0.99599499, &
7278 0.99456000, 0.99267203, 0.99017102, 0.98688000, 0.98255002, &
7279 0.97685999, 0.96941000, 0.95969999, 0.94709998, 0.93085998, &
7280 0.91001999, 0.88360000, 0.85060000, 0.81040001, 0.76319999, &
7281 0.71029997, 0.65400004, 0.59740001, 0.54229999, 0.48839998/
7282 data ((c2(ip,iw),iw=1,30), ip= 7, 7)/ &
7283 -0.1784e-06, -0.4551e-06, -0.1023e-05, -0.2019e-05, -0.3507e-05, &
7284 -0.5651e-05, -0.8608e-05, -0.1250e-04, -0.1744e-04, -0.2370e-04, &
7285 -0.3189e-04, -0.4289e-04, -0.5777e-04, -0.7787e-04, -0.1045e-03, &
7286 -0.1392e-03, -0.1828e-03, -0.2365e-03, -0.3015e-03, -0.3797e-03, &
7287 -0.4723e-03, -0.5803e-03, -0.7026e-03, -0.8365e-03, -0.9772e-03, &
7288 -0.1120e-02, -0.1265e-02, -0.1409e-02, -0.1547e-02, -0.1665e-02/
7289 data ((c3(ip,iw),iw=1,30), ip= 7, 7)/ &
7290 0.5821e-10, 0.8731e-10, -0.4366e-09, -0.1935e-08, -0.4555e-08, &
7291 -0.8455e-08, -0.1356e-07, -0.2024e-07, -0.3079e-07, -0.4758e-07, &
7292 -0.7352e-07, -0.1078e-06, -0.1520e-06, -0.2139e-06, -0.2964e-06, &
7293 -0.3997e-06, -0.5185e-06, -0.6493e-06, -0.7943e-06, -0.9568e-06, &
7294 -0.1127e-05, -0.1288e-05, -0.1405e-05, -0.1425e-05, -0.1275e-05, &
7295 -0.8809e-06, -0.2158e-06, 0.6597e-06, 0.1610e-05, 0.2524e-05/
7296 data ((c1(ip,iw),iw=1,30), ip= 8, 8)/ &
7297 0.99985582, 0.99976122, 0.99963123, 0.99946368, 0.99924308, &
7298 0.99893397, 0.99848598, 0.99784499, 0.99696398, 0.99577999, &
7299 0.99421299, 0.99212801, 0.98935997, 0.98569000, 0.98083001, &
7300 0.97442001, 0.96595001, 0.95486999, 0.94040000, 0.92163002, &
7301 0.89760000, 0.86720002, 0.82969999, 0.78499997, 0.73370004, &
7302 0.67799997, 0.62070000, 0.56439996, 0.50960004, 0.45539999/
7303 data ((c2(ip,iw),iw=1,30), ip= 8, 8)/ &
7304 -0.1760e-06, -0.4451e-06, -0.1004e-05, -0.1989e-05, -0.3457e-05, &
7305 -0.5574e-05, -0.8470e-05, -0.1230e-04, -0.1721e-04, -0.2344e-04, &
7306 -0.3168e-04, -0.4286e-04, -0.5815e-04, -0.7898e-04, -0.1070e-03, &
7307 -0.1434e-03, -0.1892e-03, -0.2460e-03, -0.3152e-03, -0.3985e-03, &
7308 -0.4981e-03, -0.6139e-03, -0.7448e-03, -0.8878e-03, -0.1038e-02, &
7309 -0.1193e-02, -0.1348e-02, -0.1499e-02, -0.1631e-02, -0.1735e-02/
7310 data ((c3(ip,iw),iw=1,30), ip= 8, 8)/ &
7311 -0.1455e-10, 0.4366e-10, -0.3929e-09, -0.2081e-08, -0.4700e-08, &
7312 -0.8804e-08, -0.1417e-07, -0.2068e-07, -0.3143e-07, -0.4777e-07, &
7313 -0.7336e-07, -0.1070e-06, -0.1517e-06, -0.2134e-06, -0.2967e-06, &
7314 -0.3991e-06, -0.5164e-06, -0.6510e-06, -0.7979e-06, -0.9575e-06, &
7315 -0.1123e-05, -0.1279e-05, -0.1382e-05, -0.1374e-05, -0.1166e-05, &
7316 -0.6893e-06, 0.7339e-07, 0.1013e-05, 0.1982e-05, 0.2896e-05/
7317 data ((c1(ip,iw),iw=1,30), ip= 9, 9)/ &
7318 0.99985498, 0.99975908, 0.99962622, 0.99945402, 0.99922228, &
7319 0.99889803, 0.99842203, 0.99773699, 0.99677801, 0.99547797, &
7320 0.99373603, 0.99140298, 0.98829001, 0.98413998, 0.97863001, &
7321 0.97127002, 0.96156001, 0.94875997, 0.93197000, 0.91017997, &
7322 0.88230002, 0.84749997, 0.80540001, 0.75620002, 0.70159996, &
7323 0.64429998, 0.58710003, 0.53130001, 0.47640002, 0.42189997/
7324 data ((c2(ip,iw),iw=1,30), ip= 9, 9)/ &
7325 -0.1717e-06, -0.4327e-06, -0.9759e-06, -0.1943e-05, -0.3391e-05, &
7326 -0.5454e-05, -0.8297e-05, -0.1209e-04, -0.1697e-04, -0.2322e-04, &
7327 -0.3163e-04, -0.4318e-04, -0.5910e-04, -0.8111e-04, -0.1108e-03, &
7328 -0.1493e-03, -0.1982e-03, -0.2588e-03, -0.3333e-03, -0.4237e-03, &
7329 -0.5312e-03, -0.6562e-03, -0.7968e-03, -0.9496e-03, -0.1110e-02, &
7330 -0.1276e-02, -0.1439e-02, -0.1588e-02, -0.1708e-02, -0.1796e-02/
7331 data ((c3(ip,iw),iw=1,30), ip= 9, 9)/ &
7332 0.0000e+00, 0.1455e-10, -0.3638e-09, -0.2299e-08, -0.4744e-08, &
7333 -0.9284e-08, -0.1445e-07, -0.2141e-07, -0.3162e-07, -0.4761e-07, &
7334 -0.7248e-07, -0.1065e-06, -0.1501e-06, -0.2140e-06, -0.2981e-06, &
7335 -0.3994e-06, -0.5201e-06, -0.6549e-06, -0.8009e-06, -0.9627e-06, &
7336 -0.1125e-05, -0.1266e-05, -0.1348e-05, -0.1292e-05, -0.1005e-05, &
7337 -0.4166e-06, 0.4279e-06, 0.1401e-05, 0.2379e-05, 0.3278e-05/
7338 data ((c1(ip,iw),iw=1,30), ip=10,10)/ &
7339 0.99985462, 0.99975640, 0.99961889, 0.99943668, 0.99919188, &
7340 0.99884301, 0.99832898, 0.99757999, 0.99651998, 0.99506402, &
7341 0.99309200, 0.99044400, 0.98689002, 0.98215997, 0.97579002, &
7342 0.96730000, 0.95603001, 0.94110000, 0.92149001, 0.89609998, &
7343 0.86399996, 0.82449996, 0.77759999, 0.72459996, 0.66769999, &
7344 0.61000001, 0.55340004, 0.49769998, 0.44250000, 0.38810003/
7345 data ((c2(ip,iw),iw=1,30), ip=10,10)/ &
7346 -0.1607e-06, -0.4160e-06, -0.9320e-06, -0.1872e-05, -0.3281e-05, &
7347 -0.5286e-05, -0.8097e-05, -0.1187e-04, -0.1677e-04, -0.2320e-04, &
7348 -0.3190e-04, -0.4402e-04, -0.6081e-04, -0.8441e-04, -0.1162e-03, &
7349 -0.1576e-03, -0.2102e-03, -0.2760e-03, -0.3571e-03, -0.4558e-03, &
7350 -0.5730e-03, -0.7082e-03, -0.8591e-03, -0.1022e-02, -0.1194e-02, &
7351 -0.1368e-02, -0.1533e-02, -0.1671e-02, -0.1775e-02, -0.1843e-02/
7352 data ((c3(ip,iw),iw=1,30), ip=10,10)/ &
7353 -0.1164e-09, -0.7276e-10, -0.5530e-09, -0.2270e-08, -0.5093e-08, &
7354 -0.9517e-08, -0.1502e-07, -0.2219e-07, -0.3171e-07, -0.4712e-07, &
7355 -0.7123e-07, -0.1042e-06, -0.1493e-06, -0.2156e-06, -0.2999e-06, &
7356 -0.4027e-06, -0.5243e-06, -0.6616e-06, -0.8125e-06, -0.9691e-06, &
7357 -0.1126e-05, -0.1251e-05, -0.1294e-05, -0.1163e-05, -0.7639e-06, &
7358 -0.7395e-07, 0.8279e-06, 0.1819e-05, 0.2795e-05, 0.3647e-05/
7359 data ((c1(ip,iw),iw=1,30), ip=11,11)/ &
7360 0.99985212, 0.99975210, 0.99960798, 0.99941242, 0.99914628, &
7361 0.99876302, 0.99819702, 0.99736100, 0.99616700, 0.99450397, &
7362 0.99225003, 0.98920000, 0.98510998, 0.97961998, 0.97220999, &
7363 0.96231002, 0.94909000, 0.93155003, 0.90856999, 0.87910002, &
7364 0.84219998, 0.79790002, 0.74669999, 0.69080001, 0.63300002, &
7365 0.57570004, 0.51950002, 0.46359998, 0.40829998, 0.35450000/
7366 data ((c2(ip,iw),iw=1,30), ip=11,11)/ &
7367 -0.1531e-06, -0.3864e-06, -0.8804e-06, -0.1776e-05, -0.3131e-05, &
7368 -0.5082e-05, -0.7849e-05, -0.1164e-04, -0.1669e-04, -0.2340e-04, &
7369 -0.3261e-04, -0.4546e-04, -0.6380e-04, -0.8932e-04, -0.1237e-03, &
7370 -0.1687e-03, -0.2262e-03, -0.2984e-03, -0.3880e-03, -0.4964e-03, &
7371 -0.6244e-03, -0.7705e-03, -0.9325e-03, -0.1107e-02, -0.1288e-02, &
7372 -0.1466e-02, -0.1623e-02, -0.1746e-02, -0.1831e-02, -0.1875e-02/
7373 data ((c3(ip,iw),iw=1,30), ip=11,11)/ &
7374 0.1019e-09, -0.2037e-09, -0.8004e-09, -0.2387e-08, -0.5326e-08, &
7375 -0.9764e-08, -0.1576e-07, -0.2256e-07, -0.3180e-07, -0.4616e-07, &
7376 -0.7026e-07, -0.1031e-06, -0.1520e-06, -0.2181e-06, -0.3037e-06, &
7377 -0.4109e-06, -0.5354e-06, -0.6740e-06, -0.8241e-06, -0.9810e-06, &
7378 -0.1126e-05, -0.1221e-05, -0.1200e-05, -0.9678e-06, -0.4500e-06, &
7379 0.3236e-06, 0.1256e-05, 0.2259e-05, 0.3206e-05, 0.3978e-05/
7380 data ((c1(ip,iw),iw=1,30), ip=12,12)/ &
7381 0.99985027, 0.99974507, 0.99959022, 0.99937689, 0.99907988, &
7382 0.99865198, 0.99801201, 0.99706602, 0.99569201, 0.99377203, &
7383 0.99115402, 0.98762000, 0.98286003, 0.97640002, 0.96771997, &
7384 0.95604998, 0.94045001, 0.91979003, 0.89289999, 0.85879999, &
7385 0.81700003, 0.76800001, 0.71340001, 0.65579998, 0.59810001, &
7386 0.54139996, 0.48519999, 0.42909998, 0.37410003, 0.32190001/
7387 data ((c2(ip,iw),iw=1,30), ip=12,12)/ &
7388 -0.1340e-06, -0.3478e-06, -0.8189e-06, -0.1653e-05, -0.2944e-05, &
7389 -0.4852e-05, -0.7603e-05, -0.1150e-04, -0.1682e-04, -0.2400e-04, &
7390 -0.3390e-04, -0.4799e-04, -0.6807e-04, -0.9596e-04, -0.1338e-03, &
7391 -0.1833e-03, -0.2471e-03, -0.3275e-03, -0.4268e-03, -0.5466e-03, &
7392 -0.6862e-03, -0.8439e-03, -0.1017e-02, -0.1201e-02, -0.1389e-02, &
7393 -0.1563e-02, -0.1706e-02, -0.1809e-02, -0.1872e-02, -0.1890e-02/
7394 data ((c3(ip,iw),iw=1,30), ip=12,12)/ &
7395 -0.1455e-10, -0.1892e-09, -0.8295e-09, -0.2547e-08, -0.5544e-08, &
7396 -0.1014e-07, -0.1605e-07, -0.2341e-07, -0.3156e-07, -0.4547e-07, &
7397 -0.6749e-07, -0.1034e-06, -0.1550e-06, -0.2230e-06, -0.3130e-06, &
7398 -0.4219e-06, -0.5469e-06, -0.6922e-06, -0.8448e-06, -0.9937e-06, &
7399 -0.1118e-05, -0.1166e-05, -0.1054e-05, -0.6926e-06, -0.7180e-07, &
7400 0.7515e-06, 0.1709e-05, 0.2703e-05, 0.3593e-05, 0.4232e-05/
7401 data ((c1(ip,iw),iw=1,30), ip=13,13)/ &
7402 0.99984729, 0.99973530, 0.99956691, 0.99932659, 0.99898797, &
7403 0.99849701, 0.99776399, 0.99667102, 0.99507397, 0.99283201, &
7404 0.98977000, 0.98563999, 0.98001999, 0.97241002, 0.96213001, &
7405 0.94830000, 0.92980999, 0.90546000, 0.87409997, 0.83510000, &
7406 0.78850001, 0.73549998, 0.67850000, 0.62049997, 0.56340003, &
7407 0.50699997, 0.45050001, 0.39450002, 0.34060001, 0.29079998/
7408 data ((c2(ip,iw),iw=1,30), ip=13,13)/ &
7409 -0.1163e-06, -0.3048e-06, -0.7186e-06, -0.1495e-05, -0.2726e-05, &
7410 -0.4588e-05, -0.7396e-05, -0.1152e-04, -0.1725e-04, -0.2514e-04, &
7411 -0.3599e-04, -0.5172e-04, -0.7403e-04, -0.1051e-03, -0.1469e-03, &
7412 -0.2023e-03, -0.2735e-03, -0.3637e-03, -0.4746e-03, -0.6067e-03, &
7413 -0.7586e-03, -0.9281e-03, -0.1112e-02, -0.1304e-02, -0.1491e-02, &
7414 -0.1653e-02, -0.1777e-02, -0.1860e-02, -0.1896e-02, -0.1891e-02/
7415 data ((c3(ip,iw),iw=1,30), ip=13,13)/ &
7416 -0.1455e-09, -0.2765e-09, -0.9750e-09, -0.2794e-08, -0.5413e-08, &
7417 -0.1048e-07, -0.1625e-07, -0.2344e-07, -0.3105e-07, -0.4304e-07, &
7418 -0.6608e-07, -0.1057e-06, -0.1587e-06, -0.2308e-06, -0.3235e-06, &
7419 -0.4373e-06, -0.5687e-06, -0.7156e-06, -0.8684e-06, -0.1007e-05, &
7420 -0.1094e-05, -0.1062e-05, -0.8273e-06, -0.3485e-06, 0.3463e-06, &
7421 0.1206e-05, 0.2173e-05, 0.3132e-05, 0.3919e-05, 0.4370e-05/
7422 data ((c1(ip,iw),iw=1,30), ip=14,14)/ &
7423 0.99984348, 0.99972272, 0.99953479, 0.99926043, 0.99886698, &
7424 0.99829400, 0.99744201, 0.99615997, 0.99429500, 0.99166000, &
7425 0.98806000, 0.98316997, 0.97649997, 0.96748000, 0.95525998, &
7426 0.93878001, 0.91687000, 0.88830000, 0.85220003, 0.80820000, &
7427 0.75699997, 0.70099998, 0.64300001, 0.58550000, 0.52890003, &
7428 0.47219998, 0.41560000, 0.36040002, 0.30849999, 0.26169997/
7429 data ((c2(ip,iw),iw=1,30), ip=14,14)/ &
7430 -0.8581e-07, -0.2557e-06, -0.6103e-06, -0.1305e-05, -0.2472e-05, &
7431 -0.4334e-05, -0.7233e-05, -0.1167e-04, -0.1806e-04, -0.2679e-04, &
7432 -0.3933e-04, -0.5705e-04, -0.8194e-04, -0.1165e-03, -0.1637e-03, &
7433 -0.2259e-03, -0.3068e-03, -0.4082e-03, -0.5318e-03, -0.6769e-03, &
7434 -0.8415e-03, -0.1023e-02, -0.1216e-02, -0.1410e-02, -0.1588e-02, &
7435 -0.1733e-02, -0.1837e-02, -0.1894e-02, -0.1904e-02, -0.1881e-02/
7436 data ((c3(ip,iw),iw=1,30), ip=14,14)/ &
7437 -0.2037e-09, -0.4220e-09, -0.1091e-08, -0.2896e-08, -0.5821e-08, &
7438 -0.1052e-07, -0.1687e-07, -0.2353e-07, -0.3193e-07, -0.4254e-07, &
7439 -0.6685e-07, -0.1072e-06, -0.1638e-06, -0.2427e-06, -0.3421e-06, &
7440 -0.4600e-06, -0.5946e-06, -0.7472e-06, -0.8958e-06, -0.1009e-05, &
7441 -0.1032e-05, -0.8919e-06, -0.5224e-06, 0.5218e-07, 0.7886e-06, &
7442 0.1672e-05, 0.2626e-05, 0.3513e-05, 0.4138e-05, 0.4379e-05/
7443 data ((c1(ip,iw),iw=1,30), ip=15,15)/ &
7444 0.99983788, 0.99970680, 0.99949580, 0.99917668, 0.99871200, &
7445 0.99803603, 0.99703097, 0.99552703, 0.99333203, 0.99023402, &
7446 0.98597997, 0.98013997, 0.97223002, 0.96145999, 0.94686002, &
7447 0.92727000, 0.90142000, 0.86820000, 0.82700002, 0.77820003, &
7448 0.72350001, 0.66569996, 0.60769999, 0.55089998, 0.49430001, &
7449 0.43739998, 0.38110000, 0.32749999, 0.27840000, 0.23479998/
7450 data ((c2(ip,iw),iw=1,30), ip=15,15)/ &
7451 -0.8246e-07, -0.2070e-06, -0.4895e-06, -0.1106e-05, -0.2216e-05, &
7452 -0.4077e-05, -0.7150e-05, -0.1202e-04, -0.1920e-04, -0.2938e-04, &
7453 -0.4380e-04, -0.6390e-04, -0.9209e-04, -0.1310e-03, -0.1843e-03, &
7454 -0.2554e-03, -0.3468e-03, -0.4611e-03, -0.5982e-03, -0.7568e-03, &
7455 -0.9340e-03, -0.1126e-02, -0.1324e-02, -0.1514e-02, -0.1676e-02, &
7456 -0.1801e-02, -0.1881e-02, -0.1911e-02, -0.1900e-02, -0.1867e-02/
7457 data ((c3(ip,iw),iw=1,30), ip=15,15)/ &
7458 -0.1601e-09, -0.3492e-09, -0.1019e-08, -0.2634e-08, -0.5632e-08, &
7459 -0.1065e-07, -0.1746e-07, -0.2542e-07, -0.3206e-07, -0.4390e-07, &
7460 -0.6956e-07, -0.1093e-06, -0.1729e-06, -0.2573e-06, -0.3612e-06, &
7461 -0.4904e-06, -0.6342e-06, -0.7834e-06, -0.9175e-06, -0.9869e-06, &
7462 -0.9164e-06, -0.6386e-06, -0.1544e-06, 0.4798e-06, 0.1252e-05, &
7463 0.2137e-05, 0.3043e-05, 0.3796e-05, 0.4211e-05, 0.4332e-05/
7464 data ((c1(ip,iw),iw=1,30), ip=16,16)/ &
7465 0.99983227, 0.99968958, 0.99945217, 0.99907941, 0.99852598, &
7466 0.99772000, 0.99652398, 0.99475902, 0.99218899, 0.98856002, &
7467 0.98348999, 0.97653997, 0.96708000, 0.95420998, 0.93677002, &
7468 0.91352999, 0.88330001, 0.84509999, 0.79900002, 0.74599999, &
7469 0.68879998, 0.63049996, 0.57319999, 0.51660001, 0.45969999, &
7470 0.40289998, 0.34780002, 0.29650003, 0.25070000, 0.20959997/
7471 data ((c2(ip,iw),iw=1,30), ip=16,16)/ &
7472 -0.7004e-07, -0.1592e-06, -0.3936e-06, -0.9145e-06, -0.1958e-05, &
7473 -0.3850e-05, -0.7093e-05, -0.1252e-04, -0.2066e-04, -0.3271e-04, &
7474 -0.4951e-04, -0.7268e-04, -0.1045e-03, -0.1487e-03, -0.2092e-03, &
7475 -0.2899e-03, -0.3936e-03, -0.5215e-03, -0.6729e-03, -0.8454e-03, &
7476 -0.1035e-02, -0.1235e-02, -0.1432e-02, -0.1608e-02, -0.1751e-02, &
7477 -0.1854e-02, -0.1907e-02, -0.1913e-02, -0.1888e-02, -0.1857e-02/
7478 data ((c3(ip,iw),iw=1,30), ip=16,16)/ &
7479 -0.2328e-09, -0.3347e-09, -0.9750e-09, -0.2314e-08, -0.5166e-08, &
7480 -0.1052e-07, -0.1726e-07, -0.2605e-07, -0.3532e-07, -0.4949e-07, &
7481 -0.7229e-07, -0.1133e-06, -0.1799e-06, -0.2725e-06, -0.3881e-06, &
7482 -0.5249e-06, -0.6763e-06, -0.8227e-06, -0.9279e-06, -0.9205e-06, &
7483 -0.7228e-06, -0.3109e-06, 0.2583e-06, 0.9390e-06, 0.1726e-05, &
7484 0.2579e-05, 0.3376e-05, 0.3931e-05, 0.4161e-05, 0.4369e-05/
7485 data ((c1(ip,iw),iw=1,30), ip=17,17)/ &
7486 0.99982637, 0.99967217, 0.99940813, 0.99897701, 0.99831802, &
7487 0.99734300, 0.99592501, 0.99385202, 0.99086499, 0.98659998, &
7488 0.98057997, 0.97229999, 0.96098000, 0.94555002, 0.92479002, &
7489 0.89740002, 0.86240000, 0.81919998, 0.76859999, 0.71249998, &
7490 0.65419996, 0.59630001, 0.53950000, 0.48259997, 0.42549998, &
7491 0.36940002, 0.31629997, 0.26810002, 0.22520000, 0.18580002/
7492 data ((c2(ip,iw),iw=1,30), ip=17,17)/ &
7493 -0.6526e-07, -0.1282e-06, -0.3076e-06, -0.7454e-06, -0.1685e-05, &
7494 -0.3600e-05, -0.7071e-05, -0.1292e-04, -0.2250e-04, -0.3665e-04, &
7495 -0.5623e-04, -0.8295e-04, -0.1195e-03, -0.1696e-03, -0.2385e-03, &
7496 -0.3298e-03, -0.4465e-03, -0.5887e-03, -0.7546e-03, -0.9408e-03, &
7497 -0.1141e-02, -0.1345e-02, -0.1533e-02, -0.1691e-02, -0.1813e-02, &
7498 -0.1889e-02, -0.1916e-02, -0.1904e-02, -0.1877e-02, -0.1850e-02/
7499 data ((c3(ip,iw),iw=1,30), ip=17,17)/ &
7500 -0.1746e-09, -0.2037e-09, -0.8149e-09, -0.2095e-08, -0.4889e-08, &
7501 -0.9517e-08, -0.1759e-07, -0.2740e-07, -0.4147e-07, -0.5774e-07, &
7502 -0.7909e-07, -0.1199e-06, -0.1877e-06, -0.2859e-06, -0.4137e-06, &
7503 -0.5649e-06, -0.7218e-06, -0.8516e-06, -0.9022e-06, -0.7905e-06, &
7504 -0.4531e-06, 0.6917e-07, 0.7009e-06, 0.1416e-05, 0.2194e-05, &
7505 0.2963e-05, 0.3578e-05, 0.3900e-05, 0.4094e-05, 0.4642e-05/
7506 data ((c1(ip,iw),iw=1,30), ip=18,18)/ &
7507 0.99982101, 0.99965781, 0.99936712, 0.99887502, 0.99809802, &
7508 0.99692702, 0.99523401, 0.99281400, 0.98935997, 0.98435003, &
7509 0.97728002, 0.96740997, 0.95381999, 0.93539000, 0.91082001, &
7510 0.87889999, 0.83889997, 0.79100001, 0.73660004, 0.67879999, &
7511 0.62049997, 0.56330001, 0.50629997, 0.44900000, 0.39209998, &
7512 0.33749998, 0.28729999, 0.24229997, 0.20150000, 0.16280001/
7513 data ((c2(ip,iw),iw=1,30), ip=18,18)/ &
7514 -0.6477e-07, -0.1243e-06, -0.2536e-06, -0.6173e-06, -0.1495e-05, &
7515 -0.3353e-05, -0.6919e-05, -0.1337e-04, -0.2418e-04, -0.4049e-04, &
7516 -0.6354e-04, -0.9455e-04, -0.1367e-03, -0.1942e-03, -0.2717e-03, &
7517 -0.3744e-03, -0.5042e-03, -0.6609e-03, -0.8416e-03, -0.1041e-02, &
7518 -0.1249e-02, -0.1448e-02, -0.1622e-02, -0.1760e-02, -0.1857e-02, &
7519 -0.1906e-02, -0.1911e-02, -0.1892e-02, -0.1870e-02, -0.1844e-02/
7520 data ((c3(ip,iw),iw=1,30), ip=18,18)/ &
7521 -0.5821e-10, -0.2328e-09, -0.6985e-09, -0.1368e-08, -0.4351e-08, &
7522 -0.8993e-08, -0.1579e-07, -0.2916e-07, -0.4904e-07, -0.7010e-07, &
7523 -0.9623e-07, -0.1332e-06, -0.1928e-06, -0.2977e-06, -0.4371e-06, &
7524 -0.5992e-06, -0.7586e-06, -0.8580e-06, -0.8238e-06, -0.5811e-06, &
7525 -0.1298e-06, 0.4702e-06, 0.1162e-05, 0.1905e-05, 0.2632e-05, &
7526 0.3247e-05, 0.3609e-05, 0.3772e-05, 0.4166e-05, 0.5232e-05/
7527 data ((c1(ip,iw),iw=1,30), ip=19,19)/ &
7528 0.99981648, 0.99964571, 0.99933147, 0.99878597, 0.99787998, &
7529 0.99649400, 0.99448699, 0.99166602, 0.98762000, 0.98181999, &
7530 0.97352999, 0.96183002, 0.94558001, 0.92363000, 0.89480001, &
7531 0.85799998, 0.81309998, 0.76100004, 0.70420003, 0.64590001, &
7532 0.58840001, 0.53139997, 0.47380000, 0.41619998, 0.36030000, &
7533 0.30809999, 0.26109999, 0.21880001, 0.17909998, 0.14080000/
7534 data ((c2(ip,iw),iw=1,30), ip=19,19)/ &
7535 -0.7906e-07, -0.1291e-06, -0.2430e-06, -0.5145e-06, -0.1327e-05, &
7536 -0.3103e-05, -0.6710e-05, -0.1371e-04, -0.2561e-04, -0.4405e-04, &
7537 -0.7051e-04, -0.1070e-03, -0.1560e-03, -0.2217e-03, -0.3090e-03, &
7538 -0.4228e-03, -0.5657e-03, -0.7371e-03, -0.9322e-03, -0.1142e-02, &
7539 -0.1352e-02, -0.1541e-02, -0.1697e-02, -0.1813e-02, -0.1883e-02, &
7540 -0.1906e-02, -0.1898e-02, -0.1882e-02, -0.1866e-02, -0.1832e-02/
7541 data ((c3(ip,iw),iw=1,30), ip=19,19)/ &
7542 0.2910e-10, 0.1455e-10, -0.2765e-09, -0.1426e-08, -0.2576e-08, &
7543 -0.5923e-08, -0.1429e-07, -0.3159e-07, -0.5441e-07, -0.8367e-07, &
7544 -0.1161e-06, -0.1526e-06, -0.2060e-06, -0.3007e-06, -0.4450e-06, &
7545 -0.6182e-06, -0.7683e-06, -0.8170e-06, -0.6754e-06, -0.3122e-06, &
7546 0.2234e-06, 0.8828e-06, 0.1632e-05, 0.2373e-05, 0.3002e-05, &
7547 0.3384e-05, 0.3499e-05, 0.3697e-05, 0.4517e-05, 0.6117e-05/
7548 data ((c1(ip,iw),iw=1,30), ip=20,20)/ &
7549 0.99981302, 0.99963689, 0.99930489, 0.99870700, 0.99768901, &
7550 0.99608499, 0.99373102, 0.99039900, 0.98566997, 0.97895002, &
7551 0.96930999, 0.95548999, 0.93621999, 0.91029000, 0.87669998, &
7552 0.83490002, 0.78549999, 0.73019999, 0.67240000, 0.61469996, &
7553 0.55779999, 0.50029999, 0.44220001, 0.38489997, 0.33069998, &
7554 0.28149998, 0.23760003, 0.19690001, 0.15759999, 0.11989999/
7555 data ((c2(ip,iw),iw=1,30), ip=20,20)/ &
7556 -0.7762e-07, -0.1319e-06, -0.2315e-06, -0.4780e-06, -0.1187e-05, &
7557 -0.2750e-05, -0.6545e-05, -0.1393e-04, -0.2645e-04, -0.4652e-04, &
7558 -0.7657e-04, -0.1190e-03, -0.1766e-03, -0.2520e-03, -0.3499e-03, &
7559 -0.4751e-03, -0.6307e-03, -0.8160e-03, -0.1024e-02, -0.1240e-02, &
7560 -0.1443e-02, -0.1619e-02, -0.1757e-02, -0.1849e-02, -0.1892e-02, &
7561 -0.1896e-02, -0.1886e-02, -0.1878e-02, -0.1861e-02, -0.1807e-02/
7562 data ((c3(ip,iw),iw=1,30), ip=20,20)/ &
7563 0.8731e-10, -0.7276e-10, -0.2328e-09, -0.6403e-09, -0.1455e-08, &
7564 -0.3827e-08, -0.1270e-07, -0.3014e-07, -0.5594e-07, -0.9677e-07, &
7565 -0.1422e-06, -0.1823e-06, -0.2296e-06, -0.3094e-06, -0.4399e-06, &
7566 -0.6008e-06, -0.7239e-06, -0.7014e-06, -0.4562e-06, -0.7778e-08, &
7567 0.5785e-06, 0.1291e-05, 0.2072e-05, 0.2783e-05, 0.3247e-05, &
7568 0.3358e-05, 0.3364e-05, 0.3847e-05, 0.5194e-05, 0.7206e-05/
7569 data ((c1(ip,iw),iw=1,30), ip=21,21)/ &
7570 0.99981070, 0.99962878, 0.99928439, 0.99864298, 0.99752903, &
7571 0.99573100, 0.99301797, 0.98905998, 0.98354000, 0.97570997, &
7572 0.96449000, 0.94837999, 0.92576003, 0.89539999, 0.85680002, &
7573 0.81000000, 0.75660002, 0.69949996, 0.64199996, 0.58529997, &
7574 0.52829999, 0.47020000, 0.41200000, 0.35570002, 0.30400002, &
7575 0.25800002, 0.21609998, 0.17610002, 0.13709998, 0.10020000/
7576 data ((c2(ip,iw),iw=1,30), ip=21,21)/ &
7577 -0.1010e-06, -0.1533e-06, -0.2347e-06, -0.4535e-06, -0.1029e-05, &
7578 -0.2530e-05, -0.6335e-05, -0.1381e-04, -0.2681e-04, -0.4777e-04, &
7579 -0.8083e-04, -0.1296e-03, -0.1966e-03, -0.2836e-03, -0.3937e-03, &
7580 -0.5313e-03, -0.6995e-03, -0.8972e-03, -0.1113e-02, -0.1327e-02, &
7581 -0.1520e-02, -0.1681e-02, -0.1800e-02, -0.1867e-02, -0.1887e-02, &
7582 -0.1884e-02, -0.1881e-02, -0.1879e-02, -0.1849e-02, -0.1764e-02/
7583 data ((c3(ip,iw),iw=1,30), ip=21,21)/ &
7584 0.8731e-10, 0.1310e-09, -0.2474e-09, -0.2619e-09, 0.8295e-09, &
7585 -0.1979e-08, -0.1141e-07, -0.2621e-07, -0.5799e-07, -0.1060e-06, &
7586 -0.1621e-06, -0.2281e-06, -0.2793e-06, -0.3335e-06, -0.4277e-06, &
7587 -0.5429e-06, -0.5970e-06, -0.4872e-06, -0.1775e-06, 0.3028e-06, &
7588 0.9323e-06, 0.1680e-05, 0.2452e-05, 0.3063e-05, 0.3299e-05, &
7589 0.3219e-05, 0.3369e-05, 0.4332e-05, 0.6152e-05, 0.8413e-05/
7590 data ((c1(ip,iw),iw=1,30), ip=22,22)/ &
7591 0.99980962, 0.99962330, 0.99926400, 0.99858999, 0.99741602, &
7592 0.99547201, 0.99236798, 0.98776001, 0.98124999, 0.97210997, &
7593 0.95902997, 0.94033003, 0.91415000, 0.87919998, 0.83529997, &
7594 0.78380001, 0.72749996, 0.66990000, 0.61339998, 0.55720001, &
7595 0.49980003, 0.44129997, 0.38360000, 0.32929999, 0.28070003, &
7596 0.23710001, 0.19620001, 0.15619999, 0.11769998, 0.08200002/
7597 data ((c2(ip,iw),iw=1,30), ip=22,22)/ &
7598 -0.1258e-06, -0.1605e-06, -0.2581e-06, -0.4286e-06, -0.8321e-06, &
7599 -0.2392e-05, -0.6163e-05, -0.1358e-04, -0.2646e-04, -0.4792e-04, &
7600 -0.8284e-04, -0.1369e-03, -0.2138e-03, -0.3141e-03, -0.4393e-03, &
7601 -0.5917e-03, -0.7731e-03, -0.9796e-03, -0.1195e-02, -0.1399e-02, &
7602 -0.1579e-02, -0.1725e-02, -0.1822e-02, -0.1867e-02, -0.1877e-02, &
7603 -0.1879e-02, -0.1886e-02, -0.1879e-02, -0.1825e-02, -0.1706e-02/
7604 data ((c3(ip,iw),iw=1,30), ip=22,22)/ &
7605 -0.8731e-10, 0.2910e-10, 0.7276e-10, 0.1281e-08, 0.1222e-08, &
7606 -0.1935e-08, -0.8004e-08, -0.2258e-07, -0.5428e-07, -0.1085e-06, &
7607 -0.1835e-06, -0.2716e-06, -0.3446e-06, -0.3889e-06, -0.4203e-06, &
7608 -0.4394e-06, -0.3716e-06, -0.1677e-06, 0.1622e-06, 0.6327e-06, &
7609 0.1275e-05, 0.2018e-05, 0.2716e-05, 0.3137e-05, 0.3136e-05, &
7610 0.3078e-05, 0.3649e-05, 0.5152e-05, 0.7315e-05, 0.9675e-05/
7611 data ((c1(ip,iw),iw=1,30), ip=23,23)/ &
7612 0.99980921, 0.99961692, 0.99924570, 0.99854898, 0.99734801, &
7613 0.99527103, 0.99182302, 0.98655999, 0.97895002, 0.96814001, &
7614 0.95284998, 0.93124998, 0.90130001, 0.86170000, 0.81290001, &
7615 0.75740004, 0.69920003, 0.64199996, 0.58640003, 0.53020000, &
7616 0.47240001, 0.41399997, 0.35780001, 0.30650002, 0.26069999, &
7617 0.21850002, 0.17750001, 0.13739997, 0.09950000, 0.06540000/
7618 data ((c2(ip,iw),iw=1,30), ip=23,23)/ &
7619 -0.1434e-06, -0.1676e-06, -0.2699e-06, -0.2859e-06, -0.7542e-06, &
7620 -0.2273e-05, -0.5898e-05, -0.1292e-04, -0.2538e-04, -0.4649e-04, &
7621 -0.8261e-04, -0.1405e-03, -0.2259e-03, -0.3407e-03, -0.4845e-03, &
7622 -0.6561e-03, -0.8524e-03, -0.1062e-02, -0.1266e-02, -0.1456e-02, &
7623 -0.1621e-02, -0.1748e-02, -0.1823e-02, -0.1854e-02, -0.1868e-02, &
7624 -0.1886e-02, -0.1899e-02, -0.1876e-02, -0.1790e-02, -0.1636e-02/
7625 data ((c3(ip,iw),iw=1,30), ip=23,23)/ &
7626 -0.1892e-09, -0.2474e-09, 0.1892e-09, 0.2561e-08, 0.4366e-09, &
7627 -0.1499e-08, -0.4336e-08, -0.1740e-07, -0.5233e-07, -0.1055e-06, &
7628 -0.1940e-06, -0.3113e-06, -0.4161e-06, -0.4620e-06, -0.4316e-06, &
7629 -0.3031e-06, -0.5438e-07, 0.2572e-06, 0.5773e-06, 0.1008e-05, &
7630 0.1609e-05, 0.2290e-05, 0.2817e-05, 0.2940e-05, 0.2803e-05, &
7631 0.3061e-05, 0.4235e-05, 0.6225e-05, 0.8615e-05, 0.1095e-04/
7632 data ((c1(ip,iw),iw=1,30), ip=24,24)/ &
7633 0.99980992, 0.99961102, 0.99922198, 0.99852699, 0.99732202, &
7634 0.99510902, 0.99140203, 0.98550999, 0.97672999, 0.96399999, &
7635 0.94602001, 0.92101002, 0.88709998, 0.84310001, 0.79020000, &
7636 0.73189998, 0.67299998, 0.61619997, 0.56060004, 0.50400001, &
7637 0.44610000, 0.38880002, 0.33530003, 0.28740001, 0.24390000, &
7638 0.20179999, 0.16009998, 0.11979997, 0.08260000, 0.05049998/
7639 data ((c2(ip,iw),iw=1,30), ip=24,24)/ &
7640 -0.1529e-06, -0.2005e-06, -0.2861e-06, -0.1652e-06, -0.6334e-06, &
7641 -0.1965e-05, -0.5437e-05, -0.1182e-04, -0.2344e-04, -0.4384e-04, &
7642 -0.7982e-04, -0.1398e-03, -0.2321e-03, -0.3616e-03, -0.5274e-03, &
7643 -0.7239e-03, -0.9363e-03, -0.1142e-02, -0.1328e-02, -0.1499e-02, &
7644 -0.1645e-02, -0.1748e-02, -0.1804e-02, -0.1834e-02, -0.1867e-02, &
7645 -0.1903e-02, -0.1914e-02, -0.1866e-02, -0.1746e-02, -0.1558e-02/
7646 data ((c3(ip,iw),iw=1,30), ip=24,24)/ &
7647 -0.3638e-09, -0.9313e-09, 0.1703e-08, 0.2081e-08, -0.1251e-08, &
7648 -0.1208e-08, -0.6883e-08, -0.1608e-07, -0.4559e-07, -0.1047e-06, &
7649 -0.2040e-06, -0.3312e-06, -0.4624e-06, -0.5198e-06, -0.4326e-06, &
7650 -0.1452e-06, 0.3003e-06, 0.7455e-06, 0.1102e-05, 0.1470e-05, &
7651 0.1957e-05, 0.2474e-05, 0.2691e-05, 0.2484e-05, 0.2414e-05, &
7652 0.3232e-05, 0.5050e-05, 0.7455e-05, 0.9997e-05, 0.1217e-04/
7653 data ((c1(ip,iw),iw=1,30), ip=25,25)/ &
7654 0.99980998, 0.99960178, 0.99920201, 0.99852800, 0.99729002, &
7655 0.99498200, 0.99102801, 0.98461998, 0.97465998, 0.95982999, &
7656 0.93866003, 0.90968001, 0.87140000, 0.82340002, 0.76770002, &
7657 0.70860004, 0.64999998, 0.59290004, 0.53610003, 0.47860003, &
7658 0.42110002, 0.36610001, 0.31639999, 0.27200001, 0.22960001, &
7659 0.18690002, 0.14429998, 0.10380000, 0.06739998, 0.03740001/
7660 data ((c2(ip,iw),iw=1,30), ip=25,25)/ &
7661 -0.1453e-06, -0.2529e-06, -0.1807e-06, -0.1109e-06, -0.4469e-06, &
7662 -0.1885e-05, -0.4590e-05, -0.1043e-04, -0.2057e-04, -0.3951e-04, &
7663 -0.7466e-04, -0.1356e-03, -0.2341e-03, -0.3783e-03, -0.5688e-03, &
7664 -0.7935e-03, -0.1021e-02, -0.1219e-02, -0.1388e-02, -0.1535e-02, &
7665 -0.1653e-02, -0.1726e-02, -0.1768e-02, -0.1813e-02, -0.1874e-02, &
7666 -0.1925e-02, -0.1927e-02, -0.1851e-02, -0.1697e-02, -0.1478e-02/
7667 data ((c3(ip,iw),iw=1,30), ip=25,25)/ &
7668 -0.6257e-09, -0.1382e-08, 0.2095e-08, 0.1863e-08, -0.1834e-08, &
7669 -0.2125e-08, -0.6985e-08, -0.1634e-07, -0.4128e-07, -0.9924e-07, &
7670 -0.1938e-06, -0.3275e-06, -0.4556e-06, -0.5046e-06, -0.3633e-06, &
7671 0.2484e-07, 0.6195e-06, 0.1249e-05, 0.1731e-05, 0.2053e-05, &
7672 0.2358e-05, 0.2569e-05, 0.2342e-05, 0.1883e-05, 0.2103e-05, &
7673 0.3570e-05, 0.5973e-05, 0.8752e-05, 0.1140e-04, 0.1328e-04/
7674 data ((c1(ip,iw),iw=1,30), ip=26,26)/ &
7675 0.99980712, 0.99958581, 0.99919039, 0.99854302, 0.99724799, &
7676 0.99486500, 0.99071401, 0.98379999, 0.97279000, 0.95585001, &
7677 0.93112999, 0.89749998, 0.85460001, 0.80320001, 0.74660003, &
7678 0.68869996, 0.63100004, 0.57249999, 0.51320004, 0.45450002, &
7679 0.39810002, 0.34649998, 0.30119997, 0.25950003, 0.21740001, &
7680 0.17379999, 0.13029999, 0.08950001, 0.05400002, 0.02640003/
7681 data ((c2(ip,iw),iw=1,30), ip=26,26)/ &
7682 -0.1257e-06, -0.2495e-06, -0.1334e-06, -0.8414e-07, -0.1698e-06, &
7683 -0.1346e-05, -0.3692e-05, -0.8625e-05, -0.1750e-04, -0.3483e-04, &
7684 -0.6843e-04, -0.1305e-03, -0.2362e-03, -0.3971e-03, -0.6127e-03, &
7685 -0.8621e-03, -0.1101e-02, -0.1297e-02, -0.1452e-02, -0.1570e-02, &
7686 -0.1647e-02, -0.1688e-02, -0.1727e-02, -0.1797e-02, -0.1887e-02, &
7687 -0.1947e-02, -0.1935e-02, -0.1833e-02, -0.1647e-02, -0.1401e-02/
7688 data ((c3(ip,iw),iw=1,30), ip=26,26)/ &
7689 -0.1222e-08, -0.1164e-09, 0.2285e-08, 0.2037e-09, 0.5675e-09, &
7690 -0.5239e-08, -0.9211e-08, -0.1483e-07, -0.3981e-07, -0.9641e-07, &
7691 -0.1717e-06, -0.2796e-06, -0.3800e-06, -0.3762e-06, -0.1936e-06, &
7692 0.1920e-06, 0.8335e-06, 0.1691e-05, 0.2415e-05, 0.2767e-05, &
7693 0.2823e-05, 0.2551e-05, 0.1839e-05, 0.1314e-05, 0.1960e-05, &
7694 0.4003e-05, 0.6909e-05, 0.1004e-04, 0.1273e-04, 0.1423e-04/
7695 data ((o1(ip,iw),iw=1,21), ip= 1, 1)/ &
7696 0.99999344, 0.99998689, 0.99997336, 0.99994606, 0.99989170, &
7697 0.99978632, 0.99957907, 0.99918377, 0.99844402, 0.99712098, &
7698 0.99489498, 0.99144602, 0.98655999, 0.98008001, 0.97165000, &
7699 0.96043998, 0.94527000, 0.92462999, 0.89709997, 0.86180001, &
7700 0.81800002/
7701 data ((o2(ip,iw),iw=1,21), ip= 1, 1)/ &
7702 0.6531e-10, 0.5926e-10, -0.1646e-09, -0.1454e-08, -0.7376e-08, &
7703 -0.2968e-07, -0.1071e-06, -0.3584e-06, -0.1125e-05, -0.3289e-05, &
7704 -0.8760e-05, -0.2070e-04, -0.4259e-04, -0.7691e-04, -0.1264e-03, &
7705 -0.1957e-03, -0.2895e-03, -0.4107e-03, -0.5588e-03, -0.7300e-03, &
7706 -0.9199e-03/
7707 data ((o3(ip,iw),iw=1,21), ip= 1, 1)/ &
7708 -0.2438e-10, -0.4826e-10, -0.9474e-10, -0.1828e-09, -0.3406e-09, &
7709 -0.6223e-09, -0.1008e-08, -0.1412e-08, -0.1244e-08, 0.8485e-09, &
7710 0.6343e-08, 0.1201e-07, 0.2838e-08, -0.4024e-07, -0.1257e-06, &
7711 -0.2566e-06, -0.4298e-06, -0.6184e-06, -0.7657e-06, -0.8153e-06, &
7712 -0.7552e-06/
7713 data ((o1(ip,iw),iw=1,21), ip= 2, 2)/ &
7714 0.99999344, 0.99998689, 0.99997348, 0.99994606, 0.99989170, &
7715 0.99978632, 0.99957907, 0.99918377, 0.99844402, 0.99712098, &
7716 0.99489498, 0.99144298, 0.98654997, 0.98006999, 0.97162998, &
7717 0.96042001, 0.94520003, 0.92449999, 0.89690000, 0.86140001, &
7718 0.81739998/
7719 data ((o2(ip,iw),iw=1,21), ip= 2, 2)/ &
7720 0.6193e-10, 0.5262e-10, -0.1774e-09, -0.1478e-08, -0.7416e-08, &
7721 -0.2985e-07, -0.1071e-06, -0.3584e-06, -0.1124e-05, -0.3287e-05, &
7722 -0.8753e-05, -0.2069e-04, -0.4256e-04, -0.7686e-04, -0.1264e-03, &
7723 -0.1956e-03, -0.2893e-03, -0.4103e-03, -0.5580e-03, -0.7285e-03, &
7724 -0.9171e-03/
7725 data ((o3(ip,iw),iw=1,21), ip= 2, 2)/ &
7726 -0.2436e-10, -0.4822e-10, -0.9466e-10, -0.1827e-09, -0.3404e-09, &
7727 -0.6220e-09, -0.1008e-08, -0.1414e-08, -0.1247e-08, 0.8360e-09, &
7728 0.6312e-08, 0.1194e-07, 0.2753e-08, -0.4040e-07, -0.1260e-06, &
7729 -0.2571e-06, -0.4307e-06, -0.6202e-06, -0.7687e-06, -0.8204e-06, &
7730 -0.7636e-06/
7731 data ((o1(ip,iw),iw=1,21), ip= 3, 3)/ &
7732 0.99999344, 0.99998689, 0.99997348, 0.99994606, 0.99989170, &
7733 0.99978632, 0.99957907, 0.99918377, 0.99844402, 0.99712098, &
7734 0.99489301, 0.99143898, 0.98654997, 0.98005998, 0.97158998, &
7735 0.96035999, 0.94509000, 0.92431998, 0.89660001, 0.86080003, &
7736 0.81639999/
7737 data ((o2(ip,iw),iw=1,21), ip= 3, 3)/ &
7738 0.5658e-10, 0.4212e-10, -0.1977e-09, -0.1516e-08, -0.7481e-08, &
7739 -0.2995e-07, -0.1072e-06, -0.3583e-06, -0.1123e-05, -0.3283e-05, &
7740 -0.8744e-05, -0.2067e-04, -0.4252e-04, -0.7679e-04, -0.1262e-03, &
7741 -0.1953e-03, -0.2889e-03, -0.4096e-03, -0.5567e-03, -0.7263e-03, &
7742 -0.9130e-03/
7743 data ((o3(ip,iw),iw=1,21), ip= 3, 3)/ &
7744 -0.2433e-10, -0.4815e-10, -0.9453e-10, -0.1825e-09, -0.3400e-09, &
7745 -0.6215e-09, -0.1007e-08, -0.1415e-08, -0.1253e-08, 0.8143e-09, &
7746 0.6269e-08, 0.1186e-07, 0.2604e-08, -0.4067e-07, -0.1264e-06, &
7747 -0.2579e-06, -0.4321e-06, -0.6229e-06, -0.7732e-06, -0.8277e-06, &
7748 -0.7752e-06/
7749 data ((o1(ip,iw),iw=1,21), ip= 4, 4)/ &
7750 0.99999344, 0.99998689, 0.99997348, 0.99994606, 0.99989200, &
7751 0.99978632, 0.99957907, 0.99918377, 0.99844402, 0.99711901, &
7752 0.99489301, 0.99143499, 0.98653001, 0.98003000, 0.97153997, &
7753 0.96026999, 0.94493997, 0.92404002, 0.89609998, 0.85990000, &
7754 0.81480002/
7755 data ((o2(ip,iw),iw=1,21), ip= 4, 4)/ &
7756 0.4814e-10, 0.2552e-10, -0.2298e-09, -0.1576e-08, -0.7579e-08, &
7757 -0.3009e-07, -0.1074e-06, -0.3581e-06, -0.1122e-05, -0.3278e-05, &
7758 -0.8729e-05, -0.2063e-04, -0.4245e-04, -0.7667e-04, -0.1260e-03, &
7759 -0.1950e-03, -0.2883e-03, -0.4086e-03, -0.5549e-03, -0.7229e-03, &
7760 -0.9071e-03/
7761 data ((o3(ip,iw),iw=1,21), ip= 4, 4)/ &
7762 -0.2428e-10, -0.4805e-10, -0.9433e-10, -0.1821e-09, -0.3394e-09, &
7763 -0.6206e-09, -0.1008e-08, -0.1416e-08, -0.1261e-08, 0.7860e-09, &
7764 0.6188e-08, 0.1171e-07, 0.2389e-08, -0.4109e-07, -0.1271e-06, &
7765 -0.2591e-06, -0.4344e-06, -0.6267e-06, -0.7797e-06, -0.8378e-06, &
7766 -0.7901e-06/
7767 data ((o1(ip,iw),iw=1,21), ip= 5, 5)/ &
7768 0.99999344, 0.99998689, 0.99997348, 0.99994606, 0.99989200, &
7769 0.99978638, 0.99957907, 0.99918377, 0.99844402, 0.99711901, &
7770 0.99488801, 0.99142599, 0.98650998, 0.97999001, 0.97148001, &
7771 0.96011001, 0.94467002, 0.92356998, 0.89530003, 0.85860002, &
7772 0.81250000/
7773 data ((o2(ip,iw),iw=1,21), ip= 5, 5)/ &
7774 0.3482e-10, -0.6492e-12, -0.2805e-09, -0.1671e-08, -0.7740e-08, &
7775 -0.3032e-07, -0.1076e-06, -0.3582e-06, -0.1120e-05, -0.3270e-05, &
7776 -0.8704e-05, -0.2058e-04, -0.4235e-04, -0.7649e-04, -0.1257e-03, &
7777 -0.1945e-03, -0.2874e-03, -0.4070e-03, -0.5521e-03, -0.7181e-03, &
7778 -0.8990e-03/
7779 data ((o3(ip,iw),iw=1,21), ip= 5, 5)/ &
7780 -0.2419e-10, -0.4788e-10, -0.9401e-10, -0.1815e-09, -0.3385e-09, &
7781 -0.6192e-09, -0.1006e-08, -0.1417e-08, -0.1273e-08, 0.7404e-09, &
7782 0.6068e-08, 0.1148e-07, 0.2021e-08, -0.4165e-07, -0.1281e-06, &
7783 -0.2609e-06, -0.4375e-06, -0.6323e-06, -0.7887e-06, -0.8508e-06, &
7784 -0.8067e-06/
7785 data ((o1(ip,iw),iw=1,21), ip= 6, 6)/ &
7786 0.99999344, 0.99998689, 0.99997348, 0.99994606, 0.99989200, &
7787 0.99978638, 0.99957931, 0.99918377, 0.99844301, 0.99711698, &
7788 0.99488401, 0.99141300, 0.98648000, 0.97992003, 0.97135001, &
7789 0.95989001, 0.94428003, 0.92286998, 0.89410001, 0.85640001, &
7790 0.80890000/
7791 data ((o2(ip,iw),iw=1,21), ip= 6, 6)/ &
7792 0.1388e-10, -0.4180e-10, -0.3601e-09, -0.1820e-08, -0.7993e-08, &
7793 -0.3068e-07, -0.1081e-06, -0.3580e-06, -0.1117e-05, -0.3257e-05, &
7794 -0.8667e-05, -0.2049e-04, -0.4218e-04, -0.7620e-04, -0.1253e-03, &
7795 -0.1937e-03, -0.2860e-03, -0.4047e-03, -0.5481e-03, -0.7115e-03, &
7796 -0.8885e-03/
7797 data ((o3(ip,iw),iw=1,21), ip= 6, 6)/ &
7798 -0.2406e-10, -0.4762e-10, -0.9351e-10, -0.1806e-09, -0.3370e-09, &
7799 -0.6170e-09, -0.1004e-08, -0.1417e-08, -0.1297e-08, 0.6738e-09, &
7800 0.5895e-08, 0.1113e-07, 0.1466e-08, -0.4265e-07, -0.1298e-06, &
7801 -0.2636e-06, -0.4423e-06, -0.6402e-06, -0.8005e-06, -0.8658e-06, &
7802 -0.8222e-06/
7803 data ((o1(ip,iw),iw=1,21), ip= 7, 7)/ &
7804 0.99999344, 0.99998689, 0.99997348, 0.99994630, 0.99989200, &
7805 0.99978638, 0.99957931, 0.99918360, 0.99844301, 0.99711502, &
7806 0.99487501, 0.99138802, 0.98642999, 0.97982001, 0.97114998, &
7807 0.95954001, 0.94363999, 0.92176998, 0.89219999, 0.85329998, &
7808 0.80379999/
7809 data ((o2(ip,iw),iw=1,21), ip= 7, 7)/ &
7810 -0.1889e-10, -0.1062e-09, -0.4847e-09, -0.2053e-08, -0.8389e-08, &
7811 -0.3140e-07, -0.1089e-06, -0.3577e-06, -0.1112e-05, -0.3236e-05, &
7812 -0.8607e-05, -0.2035e-04, -0.4192e-04, -0.7576e-04, -0.1245e-03, &
7813 -0.1925e-03, -0.2840e-03, -0.4013e-03, -0.5427e-03, -0.7029e-03, &
7814 -0.8756e-03/
7815 data ((o3(ip,iw),iw=1,21), ip= 7, 7)/ &
7816 -0.2385e-10, -0.4722e-10, -0.9273e-10, -0.1791e-09, -0.3348e-09, &
7817 -0.6121e-09, -0.9974e-09, -0.1422e-08, -0.1326e-08, 0.5603e-09, &
7818 0.5604e-08, 0.1061e-07, 0.6106e-09, -0.4398e-07, -0.1321e-06, &
7819 -0.2676e-06, -0.4490e-06, -0.6507e-06, -0.8145e-06, -0.8801e-06, &
7820 -0.8311e-06/
7821 data ((o1(ip,iw),iw=1,21), ip= 8, 8)/ &
7822 0.99999344, 0.99998689, 0.99997348, 0.99994630, 0.99989229, &
7823 0.99978650, 0.99957931, 0.99918288, 0.99844098, 0.99711001, &
7824 0.99486202, 0.99135500, 0.98635000, 0.97965997, 0.97083998, &
7825 0.95898998, 0.94266999, 0.92009997, 0.88929999, 0.84860003, &
7826 0.79640001/
7827 data ((o2(ip,iw),iw=1,21), ip= 8, 8)/ &
7828 -0.6983e-10, -0.2063e-09, -0.6785e-09, -0.2416e-08, -0.9000e-08, &
7829 -0.3243e-07, -0.1100e-06, -0.3574e-06, -0.1104e-05, -0.3205e-05, &
7830 -0.8516e-05, -0.2014e-04, -0.4151e-04, -0.7508e-04, -0.1234e-03, &
7831 -0.1907e-03, -0.2811e-03, -0.3966e-03, -0.5355e-03, -0.6924e-03, &
7832 -0.8613e-03/
7833 data ((o3(ip,iw),iw=1,21), ip= 8, 8)/ &
7834 -0.2353e-10, -0.4659e-10, -0.9153e-10, -0.1769e-09, -0.3313e-09, &
7835 -0.6054e-09, -0.9899e-09, -0.1430e-08, -0.1375e-08, 0.3874e-09, &
7836 0.5171e-08, 0.9807e-08, -0.7345e-09, -0.4604e-07, -0.1356e-06, &
7837 -0.2731e-06, -0.4577e-06, -0.6632e-06, -0.8284e-06, -0.8894e-06, &
7838 -0.8267e-06/
7839 data ((o1(ip,iw),iw=1,21), ip= 9, 9)/ &
7840 0.99999344, 0.99998689, 0.99997360, 0.99994630, 0.99989229, &
7841 0.99978650, 0.99957961, 0.99918252, 0.99843901, 0.99710202, &
7842 0.99484003, 0.99130303, 0.98623002, 0.97940999, 0.97038001, &
7843 0.95815003, 0.94119000, 0.91755998, 0.88510001, 0.84189999, &
7844 0.78610003/
7845 data ((o2(ip,iw),iw=1,21), ip= 9, 9)/ &
7846 -0.1481e-09, -0.3601e-09, -0.9762e-09, -0.2973e-08, -0.1014e-07, &
7847 -0.3421e-07, -0.1121e-06, -0.3569e-06, -0.1092e-05, -0.3156e-05, &
7848 -0.8375e-05, -0.1981e-04, -0.4090e-04, -0.7405e-04, -0.1218e-03, &
7849 -0.1881e-03, -0.2770e-03, -0.3906e-03, -0.5269e-03, -0.6810e-03, &
7850 -0.8471e-03/
7851 data ((o3(ip,iw),iw=1,21), ip= 9, 9)/ &
7852 -0.2304e-10, -0.4564e-10, -0.8969e-10, -0.1735e-09, -0.3224e-09, &
7853 -0.5933e-09, -0.9756e-09, -0.1428e-08, -0.1446e-08, 0.1156e-09, &
7854 0.4499e-08, 0.8469e-08, -0.2720e-08, -0.4904e-07, -0.1401e-06, &
7855 -0.2801e-06, -0.4681e-06, -0.6761e-06, -0.8387e-06, -0.8879e-06, &
7856 -0.8040e-06/
7857 data ((o1(ip,iw),iw=1,21), ip=10,10)/ &
7858 0.99999344, 0.99998689, 0.99997360, 0.99994630, 0.99989259, &
7859 0.99978650, 0.99957931, 0.99918163, 0.99843597, 0.99709100, &
7860 0.99480897, 0.99122101, 0.98604000, 0.97902000, 0.96965003, &
7861 0.95684999, 0.93896997, 0.91386002, 0.87910002, 0.83249998, &
7862 0.77200001/
7863 data ((o2(ip,iw),iw=1,21), ip=10,10)/ &
7864 -0.2661e-09, -0.5923e-09, -0.1426e-08, -0.3816e-08, -0.1159e-07, &
7865 -0.3654e-07, -0.1143e-06, -0.3559e-06, -0.1074e-05, -0.3083e-05, &
7866 -0.8159e-05, -0.1932e-04, -0.3998e-04, -0.7253e-04, -0.1194e-03, &
7867 -0.1845e-03, -0.2718e-03, -0.3833e-03, -0.5176e-03, -0.6701e-03, &
7868 -0.8354e-03/
7869 data ((o3(ip,iw),iw=1,21), ip=10,10)/ &
7870 -0.2232e-10, -0.4421e-10, -0.8695e-10, -0.1684e-09, -0.3141e-09, &
7871 -0.5765e-09, -0.9606e-09, -0.1434e-08, -0.1551e-08, -0.2663e-09, &
7872 0.3515e-08, 0.6549e-08, -0.5479e-08, -0.5312e-07, -0.1460e-06, &
7873 -0.2883e-06, -0.4787e-06, -0.6863e-06, -0.8399e-06, -0.8703e-06, &
7874 -0.7602e-06/
7875 data ((o1(ip,iw),iw=1,21), ip=11,11)/ &
7876 0.99999356, 0.99998701, 0.99997360, 0.99994630, 0.99989289, &
7877 0.99978679, 0.99957907, 0.99917960, 0.99843001, 0.99707502, &
7878 0.99475998, 0.99109501, 0.98575002, 0.97843999, 0.96855003, &
7879 0.95494002, 0.93572998, 0.90853000, 0.87070000, 0.81970000, &
7880 0.75380003/
7881 data ((o2(ip,iw),iw=1,21), ip=11,11)/ &
7882 -0.4394e-09, -0.9330e-09, -0.2086e-08, -0.5054e-08, -0.1373e-07, &
7883 -0.3971e-07, -0.1178e-06, -0.3546e-06, -0.1049e-05, -0.2976e-05, &
7884 -0.7847e-05, -0.1860e-04, -0.3864e-04, -0.7038e-04, -0.1162e-03, &
7885 -0.1798e-03, -0.2654e-03, -0.3754e-03, -0.5091e-03, -0.6621e-03, &
7886 -0.8286e-03/
7887 data ((o3(ip,iw),iw=1,21), ip=11,11)/ &
7888 -0.2127e-10, -0.4216e-10, -0.8300e-10, -0.1611e-09, -0.3019e-09, &
7889 -0.5597e-09, -0.9431e-09, -0.1450e-08, -0.1694e-08, -0.7913e-09, &
7890 0.2144e-08, 0.3990e-08, -0.9282e-08, -0.5810e-07, -0.1525e-06, &
7891 -0.2965e-06, -0.4869e-06, -0.6894e-06, -0.8281e-06, -0.8350e-06, &
7892 -0.6956e-06/
7893 data ((o1(ip,iw),iw=1,21), ip=12,12)/ &
7894 0.99999368, 0.99998701, 0.99997377, 0.99994630, 0.99989259, &
7895 0.99978709, 0.99957848, 0.99917740, 0.99842203, 0.99704897, &
7896 0.99468797, 0.99090999, 0.98532999, 0.97758001, 0.96693999, &
7897 0.95213997, 0.93109000, 0.90110999, 0.85930002, 0.80290002, &
7898 0.73019999/
7899 data ((o2(ip,iw),iw=1,21), ip=12,12)/ &
7900 -0.6829e-09, -0.1412e-08, -0.3014e-08, -0.6799e-08, -0.1675e-07, &
7901 -0.4450e-07, -0.1235e-06, -0.3538e-06, -0.1014e-05, -0.2827e-05, &
7902 -0.7407e-05, -0.1759e-04, -0.3676e-04, -0.6744e-04, -0.1120e-03, &
7903 -0.1742e-03, -0.2585e-03, -0.3683e-03, -0.5034e-03, -0.6594e-03, &
7904 -0.8290e-03/
7905 data ((o3(ip,iw),iw=1,21), ip=12,12)/ &
7906 -0.1985e-10, -0.3937e-10, -0.7761e-10, -0.1511e-09, -0.2855e-09, &
7907 -0.5313e-09, -0.9251e-09, -0.1470e-08, -0.1898e-08, -0.1519e-08, &
7908 0.2914e-09, 0.5675e-09, -0.1405e-07, -0.6359e-07, -0.1584e-06, &
7909 -0.3020e-06, -0.4893e-06, -0.6821e-06, -0.8021e-06, -0.7834e-06, &
7910 -0.6105e-06/
7911 data ((o1(ip,iw),iw=1,21), ip=13,13)/ &
7912 0.99999368, 0.99998701, 0.99997389, 0.99994695, 0.99989289, &
7913 0.99978721, 0.99957782, 0.99917412, 0.99840999, 0.99701297, &
7914 0.99458599, 0.99064600, 0.98471999, 0.97632003, 0.96464998, &
7915 0.94819999, 0.92467999, 0.89109999, 0.84430003, 0.78139997, &
7916 0.70070004/
7917 data ((o2(ip,iw),iw=1,21), ip=13,13)/ &
7918 -0.1004e-08, -0.2043e-08, -0.4239e-08, -0.9104e-08, -0.2075e-07, &
7919 -0.5096e-07, -0.1307e-06, -0.3520e-06, -0.9671e-06, -0.2630e-05, &
7920 -0.6825e-05, -0.1624e-04, -0.3429e-04, -0.6369e-04, -0.1069e-03, &
7921 -0.1680e-03, -0.2520e-03, -0.3635e-03, -0.5029e-03, -0.6647e-03, &
7922 -0.8390e-03/
7923 data ((o3(ip,iw),iw=1,21), ip=13,13)/ &
7924 -0.1807e-10, -0.3587e-10, -0.7085e-10, -0.1385e-09, -0.2648e-09, &
7925 -0.4958e-09, -0.8900e-09, -0.1473e-08, -0.2112e-08, -0.2399e-08, &
7926 -0.2002e-08, -0.3646e-08, -0.1931e-07, -0.6852e-07, -0.1618e-06, &
7927 -0.3021e-06, -0.4828e-06, -0.6634e-06, -0.7643e-06, -0.7177e-06, &
7928 -0.5054e-06/
7929 data ((o1(ip,iw),iw=1,21), ip=14,14)/ &
7930 0.99999368, 0.99998713, 0.99997389, 0.99994725, 0.99989289, &
7931 0.99978679, 0.99957597, 0.99916971, 0.99839503, 0.99696702, &
7932 0.99444997, 0.99028301, 0.98387003, 0.97457999, 0.96148002, &
7933 0.94284999, 0.91613001, 0.87809998, 0.82520002, 0.75489998, &
7934 0.66520000/
7935 data ((o2(ip,iw),iw=1,21), ip=14,14)/ &
7936 -0.1387e-08, -0.2798e-08, -0.5706e-08, -0.1187e-07, -0.2564e-07, &
7937 -0.5866e-07, -0.1398e-06, -0.3516e-06, -0.9148e-06, -0.2398e-05, &
7938 -0.6122e-05, -0.1459e-04, -0.3125e-04, -0.5923e-04, -0.1013e-03, &
7939 -0.1620e-03, -0.2473e-03, -0.3631e-03, -0.5098e-03, -0.6800e-03, &
7940 -0.8603e-03/
7941 data ((o3(ip,iw),iw=1,21), ip=14,14)/ &
7942 -0.1610e-10, -0.3200e-10, -0.6337e-10, -0.1245e-09, -0.2408e-09, &
7943 -0.4533e-09, -0.8405e-09, -0.1464e-08, -0.2337e-08, -0.3341e-08, &
7944 -0.4467e-08, -0.8154e-08, -0.2436e-07, -0.7128e-07, -0.1604e-06, &
7945 -0.2945e-06, -0.4666e-06, -0.6357e-06, -0.7187e-06, -0.6419e-06, &
7946 -0.3795e-06/
7947 data ((o1(ip,iw),iw=1,21), ip=15,15)/ &
7948 0.99999410, 0.99998724, 0.99997455, 0.99994725, 0.99989331, &
7949 0.99978632, 0.99957472, 0.99916393, 0.99837703, 0.99690801, &
7950 0.99427801, 0.98982000, 0.98277998, 0.97232002, 0.95731997, &
7951 0.93585998, 0.90521002, 0.86180001, 0.80190003, 0.72290003, &
7952 0.62380004/
7953 data ((o2(ip,iw),iw=1,21), ip=15,15)/ &
7954 -0.1788e-08, -0.3588e-08, -0.7244e-08, -0.1479e-07, -0.3083e-07, &
7955 -0.6671e-07, -0.1497e-06, -0.3519e-06, -0.8607e-06, -0.2154e-05, &
7956 -0.5364e-05, -0.1276e-04, -0.2785e-04, -0.5435e-04, -0.9573e-04, &
7957 -0.1570e-03, -0.2455e-03, -0.3682e-03, -0.5253e-03, -0.7065e-03, &
7958 -0.8938e-03/
7959 data ((o3(ip,iw),iw=1,21), ip=15,15)/ &
7960 -0.1429e-10, -0.2843e-10, -0.5645e-10, -0.1115e-09, -0.2181e-09, &
7961 -0.4200e-09, -0.7916e-09, -0.1460e-08, -0.2542e-08, -0.4168e-08, &
7962 -0.6703e-08, -0.1215e-07, -0.2821e-07, -0.7073e-07, -0.1530e-06, &
7963 -0.2791e-06, -0.4426e-06, -0.6027e-06, -0.6707e-06, -0.5591e-06, &
7964 -0.2328e-06/
7965 data ((o1(ip,iw),iw=1,21), ip=16,16)/ &
7966 0.99999434, 0.99998778, 0.99997467, 0.99994761, 0.99989331, &
7967 0.99978602, 0.99957269, 0.99915779, 0.99835497, 0.99684399, &
7968 0.99408400, 0.98929000, 0.98148000, 0.96954000, 0.95212001, &
7969 0.92719001, 0.89170003, 0.84200001, 0.77420002, 0.68620002, &
7970 0.57780004/
7971 data ((o2(ip,iw),iw=1,21), ip=16,16)/ &
7972 -0.2141e-08, -0.4286e-08, -0.8603e-08, -0.1737e-07, -0.3548e-07, &
7973 -0.7410e-07, -0.1590e-06, -0.3537e-06, -0.8142e-06, -0.1935e-05, &
7974 -0.4658e-05, -0.1099e-04, -0.2444e-04, -0.4948e-04, -0.9067e-04, &
7975 -0.1538e-03, -0.2474e-03, -0.3793e-03, -0.5495e-03, -0.7439e-03, &
7976 -0.9383e-03/
7977 data ((o3(ip,iw),iw=1,21), ip=16,16)/ &
7978 -0.1295e-10, -0.2581e-10, -0.5136e-10, -0.1019e-09, -0.2011e-09, &
7979 -0.3916e-09, -0.7585e-09, -0.1439e-08, -0.2648e-08, -0.4747e-08, &
7980 -0.8301e-08, -0.1499e-07, -0.3024e-07, -0.6702e-07, -0.1399e-06, &
7981 -0.2564e-06, -0.4117e-06, -0.5669e-06, -0.6239e-06, -0.4748e-06, &
7982 -0.7013e-07/
7983 data ((o1(ip,iw),iw=1,21), ip=17,17)/ &
7984 0.99999434, 0.99998778, 0.99997479, 0.99994791, 0.99989331, &
7985 0.99978608, 0.99957120, 0.99915212, 0.99833500, 0.99677801, &
7986 0.99388403, 0.98873001, 0.98005998, 0.96639001, 0.94606000, &
7987 0.91689998, 0.87580001, 0.81889999, 0.74280000, 0.64559996, &
7988 0.52869999/
7989 data ((o2(ip,iw),iw=1,21), ip=17,17)/ &
7990 -0.2400e-08, -0.4796e-08, -0.9599e-08, -0.1927e-07, -0.3892e-07, &
7991 -0.7954e-07, -0.1661e-06, -0.3540e-06, -0.7780e-06, -0.1763e-05, &
7992 -0.4092e-05, -0.9512e-05, -0.2142e-04, -0.4502e-04, -0.8640e-04, &
7993 -0.1525e-03, -0.2526e-03, -0.3955e-03, -0.5805e-03, -0.7897e-03, &
7994 -0.9899e-03/
7995 data ((o3(ip,iw),iw=1,21), ip=17,17)/ &
7996 -0.1220e-10, -0.2432e-10, -0.4845e-10, -0.9640e-10, -0.1912e-09, &
7997 -0.3771e-09, -0.7392e-09, -0.1420e-08, -0.2702e-08, -0.5049e-08, &
7998 -0.9214e-08, -0.1659e-07, -0.3101e-07, -0.6162e-07, -0.1235e-06, &
7999 -0.2287e-06, -0.3755e-06, -0.5274e-06, -0.5790e-06, -0.3947e-06, &
8000 0.1003e-06/
8001 data ((o1(ip,iw),iw=1,21), ip=18,18)/ &
8002 0.99999464, 0.99998808, 0.99997497, 0.99994791, 0.99989331, &
8003 0.99978518, 0.99957031, 0.99914658, 0.99831802, 0.99671799, &
8004 0.99370098, 0.98821002, 0.97867000, 0.96313000, 0.93948001, &
8005 0.90534002, 0.85769999, 0.79310000, 0.70840001, 0.60290003, &
8006 0.47930002/
8007 data ((o2(ip,iw),iw=1,21), ip=18,18)/ &
8008 -0.2557e-08, -0.5106e-08, -0.1020e-07, -0.2043e-07, -0.4103e-07, &
8009 -0.8293e-07, -0.1697e-06, -0.3531e-06, -0.7531e-06, -0.1645e-05, &
8010 -0.3690e-05, -0.8411e-05, -0.1902e-04, -0.4118e-04, -0.8276e-04, &
8011 -0.1525e-03, -0.2601e-03, -0.4147e-03, -0.6149e-03, -0.8384e-03, &
8012 -0.1042e-02/
8013 data ((o3(ip,iw),iw=1,21), ip=18,18)/ &
8014 -0.1189e-10, -0.2372e-10, -0.4729e-10, -0.9421e-10, -0.1873e-09, &
8015 -0.3713e-09, -0.7317e-09, -0.1437e-08, -0.2764e-08, -0.5243e-08, &
8016 -0.9691e-08, -0.1751e-07, -0.3122e-07, -0.5693e-07, -0.1076e-06, &
8017 -0.1981e-06, -0.3324e-06, -0.4785e-06, -0.5280e-06, -0.3174e-06, &
8018 0.2672e-06/
8019 data ((o1(ip,iw),iw=1,21), ip=19,19)/ &
8020 0.99999464, 0.99998820, 0.99997509, 0.99994779, 0.99989331, &
8021 0.99978518, 0.99956989, 0.99914283, 0.99830401, 0.99667197, &
8022 0.99355298, 0.98776001, 0.97741997, 0.96007001, 0.93285000, &
8023 0.89310002, 0.83819997, 0.76520002, 0.67250001, 0.56000000, &
8024 0.43199998/
8025 data ((o2(ip,iw),iw=1,21), ip=19,19)/ &
8026 -0.2630e-08, -0.5249e-08, -0.1048e-07, -0.2096e-07, -0.4198e-07, &
8027 -0.8440e-07, -0.1710e-06, -0.3513e-06, -0.7326e-06, -0.1562e-05, &
8028 -0.3416e-05, -0.7637e-05, -0.1719e-04, -0.3795e-04, -0.7926e-04, &
8029 -0.1524e-03, -0.2680e-03, -0.4344e-03, -0.6486e-03, -0.8838e-03, &
8030 -0.1089e-02/
8031 data ((o3(ip,iw),iw=1,21), ip=19,19)/ &
8032 -0.1188e-10, -0.2369e-10, -0.4725e-10, -0.9417e-10, -0.1875e-09, &
8033 -0.3725e-09, -0.7365e-09, -0.1445e-08, -0.2814e-08, -0.5384e-08, &
8034 -0.1008e-07, -0.1816e-07, -0.3179e-07, -0.5453e-07, -0.9500e-07, &
8035 -0.1679e-06, -0.2819e-06, -0.4109e-06, -0.4555e-06, -0.2283e-06, &
8036 0.4283e-06/
8037 data ((o1(ip,iw),iw=1,21), ip=20,20)/ &
8038 0.99999487, 0.99998832, 0.99997520, 0.99994791, 0.99989331, &
8039 0.99978459, 0.99956900, 0.99913990, 0.99829400, 0.99663699, &
8040 0.99344099, 0.98741001, 0.97643000, 0.95743001, 0.92672002, &
8041 0.88099998, 0.81809998, 0.73660004, 0.63620001, 0.51880002, &
8042 0.38880002/
8043 data ((o2(ip,iw),iw=1,21), ip=20,20)/ &
8044 -0.2651e-08, -0.5291e-08, -0.1056e-07, -0.2110e-07, -0.4221e-07, &
8045 -0.8462e-07, -0.1705e-06, -0.3466e-06, -0.7155e-06, -0.1501e-05, &
8046 -0.3223e-05, -0.7079e-05, -0.1581e-04, -0.3517e-04, -0.7553e-04, &
8047 -0.1510e-03, -0.2746e-03, -0.4528e-03, -0.6789e-03, -0.9214e-03, &
8048 -0.1124e-02/
8049 data ((o3(ip,iw),iw=1,21), ip=20,20)/ &
8050 -0.1193e-10, -0.2380e-10, -0.4748e-10, -0.9465e-10, -0.1886e-09, &
8051 -0.3751e-09, -0.7436e-09, -0.1466e-08, -0.2872e-08, -0.5508e-08, &
8052 -0.1038e-07, -0.1891e-07, -0.3279e-07, -0.5420e-07, -0.8711e-07, &
8053 -0.1403e-06, -0.2248e-06, -0.3221e-06, -0.3459e-06, -0.1066e-06, &
8054 0.5938e-06/
8055 data ((o1(ip,iw),iw=1,21), ip=21,21)/ &
8056 0.99999487, 0.99998873, 0.99997509, 0.99994779, 0.99989349, &
8057 0.99978501, 0.99956918, 0.99913877, 0.99828798, 0.99661303, &
8058 0.99335998, 0.98715001, 0.97566003, 0.95530999, 0.92153001, &
8059 0.87000000, 0.79869998, 0.70819998, 0.60109997, 0.48110002, &
8060 0.35140002/
8061 data ((o2(ip,iw),iw=1,21), ip=21,21)/ &
8062 -0.2654e-08, -0.5296e-08, -0.1057e-07, -0.2111e-07, -0.4219e-07, &
8063 -0.8445e-07, -0.1696e-06, -0.3428e-06, -0.7013e-06, -0.1458e-05, &
8064 -0.3084e-05, -0.6678e-05, -0.1476e-04, -0.3284e-04, -0.7173e-04, &
8065 -0.1481e-03, -0.2786e-03, -0.4688e-03, -0.7052e-03, -0.9506e-03, &
8066 -0.1148e-02/
8067 data ((o3(ip,iw),iw=1,21), ip=21,21)/ &
8068 -0.1195e-10, -0.2384e-10, -0.4755e-10, -0.9482e-10, -0.1890e-09, &
8069 -0.3761e-09, -0.7469e-09, -0.1476e-08, -0.2892e-08, -0.5603e-08, &
8070 -0.1060e-07, -0.1942e-07, -0.3393e-07, -0.5508e-07, -0.8290e-07, &
8071 -0.1182e-06, -0.1657e-06, -0.2170e-06, -0.1997e-06, 0.6227e-07, &
8072 0.7847e-06/
8073 data ((o1(ip,iw),iw=1,21), ip=22,22)/ &
8074 0.99999541, 0.99998873, 0.99997497, 0.99994737, 0.99989349, &
8075 0.99978501, 0.99956882, 0.99913770, 0.99828303, 0.99659699, &
8076 0.99330199, 0.98697001, 0.97510999, 0.95372999, 0.91742998, &
8077 0.86080003, 0.78139997, 0.68220001, 0.56920004, 0.44809997, &
8078 0.32080001/
8079 data ((o2(ip,iw),iw=1,21), ip=22,22)/ &
8080 -0.2653e-08, -0.5295e-08, -0.1057e-07, -0.2110e-07, -0.4215e-07, &
8081 -0.8430e-07, -0.1690e-06, -0.3403e-06, -0.6919e-06, -0.1427e-05, &
8082 -0.2991e-05, -0.6399e-05, -0.1398e-04, -0.3099e-04, -0.6824e-04, &
8083 -0.1441e-03, -0.2795e-03, -0.4814e-03, -0.7282e-03, -0.9739e-03, &
8084 -0.1163e-02/
8085 data ((o3(ip,iw),iw=1,21), ip=22,22)/ &
8086 -0.1195e-10, -0.2384e-10, -0.4756e-10, -0.9485e-10, -0.1891e-09, &
8087 -0.3765e-09, -0.7483e-09, -0.1481e-08, -0.2908e-08, -0.5660e-08, &
8088 -0.1075e-07, -0.1980e-07, -0.3472e-07, -0.5626e-07, -0.8149e-07, &
8089 -0.1027e-06, -0.1136e-06, -0.1071e-06, -0.2991e-07, 0.2743e-06, &
8090 0.1017e-05/
8091 data ((o1(ip,iw),iw=1,21), ip=23,23)/ &
8092 0.99999595, 0.99998885, 0.99997479, 0.99994725, 0.99989331, &
8093 0.99978518, 0.99956882, 0.99913692, 0.99827999, 0.99658602, &
8094 0.99326497, 0.98685002, 0.97474003, 0.95260000, 0.91441000, &
8095 0.85360003, 0.76719999, 0.65990001, 0.54190004, 0.42119998, &
8096 0.29699999/
8097 data ((o2(ip,iw),iw=1,21), ip=23,23)/ &
8098 -0.2653e-08, -0.5294e-08, -0.1057e-07, -0.2109e-07, -0.4212e-07, &
8099 -0.8420e-07, -0.1686e-06, -0.3388e-06, -0.6858e-06, -0.1406e-05, &
8100 -0.2928e-05, -0.6206e-05, -0.1344e-04, -0.2961e-04, -0.6533e-04, &
8101 -0.1399e-03, -0.2780e-03, -0.4904e-03, -0.7488e-03, -0.9953e-03, &
8102 -0.1175e-02/
8103 data ((o3(ip,iw),iw=1,21), ip=23,23)/ &
8104 -0.1195e-10, -0.2384e-10, -0.4756e-10, -0.9485e-10, -0.1891e-09, &
8105 -0.3767e-09, -0.7492e-09, -0.1485e-08, -0.2924e-08, -0.5671e-08, &
8106 -0.1084e-07, -0.2009e-07, -0.3549e-07, -0.5773e-07, -0.8208e-07, &
8107 -0.9394e-07, -0.7270e-07, -0.3947e-08, 0.1456e-06, 0.5083e-06, &
8108 0.1270e-05/
8109 data ((o1(ip,iw),iw=1,21), ip=24,24)/ &
8110 0.99999630, 0.99998873, 0.99997401, 0.99994725, 0.99989349, &
8111 0.99978501, 0.99956959, 0.99913663, 0.99827701, 0.99658000, &
8112 0.99324101, 0.98676997, 0.97447002, 0.95185000, 0.91232002, &
8113 0.84850001, 0.75660002, 0.64230001, 0.52030003, 0.40090001, &
8114 0.27980000/
8115 data ((o2(ip,iw),iw=1,21), ip=24,24)/ &
8116 -0.2653e-08, -0.5294e-08, -0.1056e-07, -0.2109e-07, -0.4210e-07, &
8117 -0.8413e-07, -0.1684e-06, -0.3379e-06, -0.6820e-06, -0.1393e-05, &
8118 -0.2889e-05, -0.6080e-05, -0.1307e-04, -0.2861e-04, -0.6310e-04, &
8119 -0.1363e-03, -0.2758e-03, -0.4969e-03, -0.7681e-03, -0.1017e-02, &
8120 -0.1186e-02/
8121 data ((o3(ip,iw),iw=1,21), ip=24,24)/ &
8122 -0.1195e-10, -0.2384e-10, -0.4756e-10, -0.9485e-10, -0.1891e-09, &
8123 -0.3768e-09, -0.7497e-09, -0.1487e-08, -0.2933e-08, -0.5710e-08, &
8124 -0.1089e-07, -0.2037e-07, -0.3616e-07, -0.5907e-07, -0.8351e-07, &
8125 -0.8925e-07, -0.4122e-07, 0.8779e-07, 0.3143e-06, 0.7281e-06, &
8126 0.1500e-05/
8127 data ((o1(ip,iw),iw=1,21), ip=25,25)/ &
8128 0.99999648, 0.99998897, 0.99997377, 0.99994749, 0.99989331, &
8129 0.99978501, 0.99956989, 0.99913692, 0.99827600, 0.99657297, &
8130 0.99322498, 0.98672003, 0.97431999, 0.95137000, 0.91095001, &
8131 0.84500003, 0.74909997, 0.62979996, 0.50510001, 0.38679999, &
8132 0.26789999/
8133 data ((o2(ip,iw),iw=1,21), ip=25,25)/ &
8134 -0.2653e-08, -0.5293e-08, -0.1056e-07, -0.2108e-07, -0.4209e-07, &
8135 -0.8409e-07, -0.1682e-06, -0.3373e-06, -0.6797e-06, -0.1383e-05, &
8136 -0.2862e-05, -0.5993e-05, -0.1283e-04, -0.2795e-04, -0.6158e-04, &
8137 -0.1338e-03, -0.2743e-03, -0.5030e-03, -0.7863e-03, -0.1038e-02, &
8138 -0.1196e-02/
8139 data ((o3(ip,iw),iw=1,21), ip=25,25)/ &
8140 -0.1195e-10, -0.2383e-10, -0.4755e-10, -0.9484e-10, -0.1891e-09, &
8141 -0.3768e-09, -0.7499e-09, -0.1489e-08, -0.2939e-08, -0.5741e-08, &
8142 -0.1100e-07, -0.2066e-07, -0.3660e-07, -0.6002e-07, -0.8431e-07, &
8143 -0.8556e-07, -0.1674e-07, 0.1638e-06, 0.4525e-06, 0.8949e-06, &
8144 0.1669e-05/
8145 data ((o1(ip,iw),iw=1,21), ip=26,26)/ &
8146 0.99999672, 0.99998909, 0.99997377, 0.99994695, 0.99989349, &
8147 0.99978518, 0.99956989, 0.99913692, 0.99827498, 0.99657100, &
8148 0.99321902, 0.98668998, 0.97421002, 0.95106000, 0.91009998, &
8149 0.84280002, 0.74430001, 0.62180001, 0.49519998, 0.37800002, &
8150 0.25999999/
8151 data ((o2(ip,iw),iw=1,21), ip=26,26)/ &
8152 -0.2652e-08, -0.5292e-08, -0.1056e-07, -0.2108e-07, -0.4208e-07, &
8153 -0.8406e-07, -0.1681e-06, -0.3369e-06, -0.6784e-06, -0.1378e-05, &
8154 -0.2843e-05, -0.5944e-05, -0.1269e-04, -0.2759e-04, -0.6078e-04, &
8155 -0.1326e-03, -0.2742e-03, -0.5088e-03, -0.8013e-03, -0.1054e-02, &
8156 -0.1202e-02/
8157 data ((o3(ip,iw),iw=1,21), ip=26,26)/ &
8158 -0.1194e-10, -0.2383e-10, -0.4754e-10, -0.9482e-10, -0.1891e-09, &
8159 -0.3768e-09, -0.7499e-09, -0.1489e-08, -0.2941e-08, -0.5752e-08, &
8160 -0.1104e-07, -0.2069e-07, -0.3661e-07, -0.6012e-07, -0.8399e-07, &
8161 -0.8183e-07, 0.1930e-08, 0.2167e-06, 0.5434e-06, 0.9990e-06, &
8162 0.1787e-05/
8164 !xp
8165 ! allocate(pa(m,np))
8166 ! allocate(dt(m,np))
8167 ! allocate(sh2o(m,np+1))
8168 ! allocate(swpre(m,np+1))
8169 ! allocate(swtem(m,np+1))
8170 ! allocate(sco3(m,np+1))
8171 ! allocate(scopre(m,np+1))
8172 ! allocate(scotem(m,np+1))
8173 ! allocate(dh2o(m,np))
8174 ! allocate(dcont(m,np))
8175 ! allocate(dco2(m,np))
8176 ! allocate(do3(m,np))
8177 ! allocate(dn2o(m,np))
8178 ! allocate(dch4(m,np))
8179 ! allocate(df11(m,np))
8180 ! allocate(df12(m,np))
8181 ! allocate(df22(m,np))
8182 ! allocate(th2o(m,6))
8183 ! allocate(tcon(m,3))
8184 ! allocate(tco2(m,6,2))
8185 ! allocate(tn2o(m,4))
8186 ! allocate(tch4(m,4))
8187 ! allocate(tcom(m,6))
8188 ! allocate(tf11(m))
8189 ! allocate(tf12(m))
8190 ! allocate(tf22(m))
8191 ! allocate(h2oexp(m,np,6))
8192 ! allocate(conexp(m,np,3))
8193 ! allocate(co2exp(m,np,6,2))
8194 ! allocate(n2oexp(m,np,4))
8195 ! allocate(ch4exp(m,np,4))
8196 ! allocate(comexp(m,np,6))
8197 ! allocate(f11exp(m,np))
8198 ! allocate(f12exp(m,np))
8199 ! allocate(f22exp(m,np))
8200 ! allocate(blayer(m,0:np+1))
8201 ! allocate(blevel(m,np+1))
8202 ! allocate(dblayr(m,np+1))
8203 ! allocate(dbs(m))
8204 ! allocate(dp(m,np))
8205 ! allocate(cwp(m,np,3))
8206 ! allocate(trant(m))
8207 ! allocate(tranal(m))
8208 ! allocate(transfc(m,np+1))
8209 ! allocate(trantcr(m,np+1))
8210 ! allocate(flxu(m,np+1))
8211 ! allocate(flxd(m,np+1))
8212 ! allocate(flcu(m,np+1))
8213 ! allocate(flcd(m,np+1))
8214 ! allocate(rflx(m,np+1))
8215 ! allocate(rflc(m,np+1))
8216 ! allocate(it(m))
8217 ! allocate(im(m))
8218 ! allocate(ib(m))
8219 ! allocate(cldhi(m))
8220 ! allocate(cldmd(m))
8221 ! allocate(cldlw(m))
8222 ! allocate(tcldlyr(m,np))
8223 ! allocate(fclr(m))
8224 ! allocate(taerlyr(m,np))
8226 !-----compute layer pressure (pa) and layer temperature minus 250k (dt)
8227 do k=1,np
8228 do i=1,m
8229 pa(i,k)=0.5*(pl(i,k)+pl(i,k+1))
8230 dt(i,k)=ta(i,k)-250.0
8231 enddo
8232 enddo
8234 !-----compute layer absorber amount
8235 ! dh2o : water vapor amount (g/cm**2)
8236 ! dcont: scaled water vapor amount for continuum absorption
8237 ! (g/cm**2)
8238 ! dco2 : co2 amount (cm-atm)stp
8239 ! do3 : o3 amount (cm-atm)stp
8240 ! dn2o : n2o amount (cm-atm)stp
8241 ! dch4 : ch4 amount (cm-atm)stp
8242 ! df11 : cfc11 amount (cm-atm)stp
8243 ! df12 : cfc12 amount (cm-atm)stp
8244 ! df22 : cfc22 amount (cm-atm)stp
8245 ! the factor 1.02 is equal to 1000/980
8246 ! factors 789 and 476 are for unit conversion
8247 ! the factor 0.001618 is equal to 1.02/(.622*1013.25)
8248 ! the factor 6.081 is equal to 1800/296
8249 do k=1,np
8250 do i=1,m
8251 dp (i,k) = pl(i,k+1)-pl(i,k)
8252 dh2o (i,k) = 1.02*wa(i,k)*dp(i,k)+1.e-10
8253 do3 (i,k) = 476.*oa(i,k)*dp(i,k)+1.e-10
8254 dco2 (i,k) = 789.*co2*dp(i,k)+1.e-10
8255 dch4 (i,k) = 789.*ch4*dp(i,k)+1.e-10
8256 dn2o (i,k) = 789.*n2o*dp(i,k)+1.e-10
8257 df11 (i,k) = 789.*cfc11*dp(i,k)+1.e-10
8258 df12 (i,k) = 789.*cfc12*dp(i,k)+1.e-10
8259 df22 (i,k) = 789.*cfc22*dp(i,k)+1.e-10
8260 !-----compute scaled water vapor amount for h2o continuum absorption
8261 ! following eq. (4.21).
8262 xx=pa(i,k)*0.001618*wa(i,k)*wa(i,k)*dp(i,k)
8263 dcont(i,k) = xx*exp(1800./ta(i,k)-6.081)+1.e-10
8264 enddo
8265 enddo
8266 !-----compute column-integrated h2o amoumt (sh2o), h2o-weighted pressure
8267 ! (swpre) and temperature (swtem). it follows eqs. (4.13) and (4.14).
8269 if (high) then
8270 call column(m,np,pa,dt,dh2o,sh2o,swpre,swtem)
8271 endif
8273 !-----compute layer cloud water amount (gm/m**2)
8274 ! index is 1 for ice, 2 for waterdrops and 3 for raindrops.
8276 if (cldwater) then
8277 do k=1,np
8278 do i=1,m
8279 xx=1.02*10000.*(pl(i,k+1)-pl(i,k))
8280 cwp(i,k,1)=xx*cwc(i,k,1)
8281 cwp(i,k,2)=xx*cwc(i,k,2)
8282 cwp(i,k,3)=xx*cwc(i,k,3)
8283 enddo
8284 enddo
8285 endif
8287 !-----the surface (np+1) is treated as a layer filled with black clouds.
8288 ! transfc is the transmttance between the surface and a pressure level.
8289 ! trantcr is the clear-sky transmttance between the surface and a
8290 ! pressure level.
8292 do i=1,m
8293 sfcem(i) =0.0
8294 transfc(i,np+1)=1.0
8295 trantcr(i,np+1)=1.0
8296 enddo
8298 !-----initialize fluxes
8300 do k=1,np+1
8301 do i=1,m
8302 flx(i,k) = 0.0
8303 flc(i,k) = 0.0
8304 dfdts(i,k)= 0.0
8305 rflx(i,k) = 0.0
8306 rflc(i,k) = 0.0
8307 acflxu(i,k) = 0.0
8308 acflxd(i,k) = 0.0
8309 enddo
8310 enddo
8312 !-----integration over spectral bands
8314 do 1000 ibn=1,ib_lw
8316 !-----if h2otbl, compute h2o (line) transmittance using table look-up.
8317 ! if conbnd, compute h2o (continuum) transmittance in bands 3-7.
8318 ! if co2bnd, compute co2 transmittance in band 3.
8319 ! if oznbnd, compute o3 transmittance in band 5.
8320 ! if n2obnd, compute n2o transmittance in bands 6 and 7.
8321 ! if ch4bnd, compute ch4 transmittance in bands 6 and 7.
8322 ! if combnd, compute co2-minor transmittance in bands 4 and 5.
8323 ! if f11bnd, compute cfc11 transmittance in bands 4 and 5.
8324 ! if f12bnd, compute cfc12 transmittance in bands 4 and 6.
8325 ! if f22bnd, compute cfc22 transmittance in bands 4 and 6.
8326 ! if b10bnd, compute flux reduction due to n2o in band 10.
8327 h2otbl=high.and.(ibn.eq.1.or.ibn.eq.2.or.ibn.eq.8)
8328 conbnd=ibn.ge.3.and.ibn.le.7
8329 co2bnd=ibn.eq.3
8330 oznbnd=ibn.eq.5
8331 n2obnd=ibn.eq.6.or.ibn.eq.7
8332 ch4bnd=ibn.eq.6.or.ibn.eq.7
8333 combnd=ibn.eq.4.or.ibn.eq.5
8334 f11bnd=ibn.eq.4.or.ibn.eq.5
8335 f12bnd=ibn.eq.4.or.ibn.eq.6
8336 f22bnd=ibn.eq.4.or.ibn.eq.6
8337 b10bnd=ibn.eq.10
8338 if (.not. b10bnd .or. trace) then ! skip b10 and .not.trace
8339 !-----blayer is the spectrally integrated planck flux of the mean layer
8340 ! temperature derived from eq. (3.11)
8341 ! the fitting for the planck flux is valid for the range 160-345 k.
8342 do k=1,np
8343 do i=1,m
8344 blayer(i,k)=ta(i,k)*(ta(i,k)*(ta(i,k)*(ta(i,k) &
8345 *(ta(i,k)*cb(6,ibn)+cb(5,ibn))+cb(4,ibn)) &
8346 +cb(3,ibn))+cb(2,ibn))+cb(1,ibn)
8347 enddo
8348 enddo
8349 do i=1,m
8350 !-----the earth's surface, with index "np+1", is treated as a layer.
8351 ! index "0" is the layer above the top of the atmosphere.
8352 blayer(i,np+1)=(ts(i)*(ts(i)*(ts(i)*(ts(i) &
8353 *(ts(i)*cb(6,ibn)+cb(5,ibn))+cb(4,ibn)) &
8354 +cb(3,ibn))+cb(2,ibn))+cb(1,ibn))*emiss(i,ibn)
8355 blayer(i,0) = 0.0
8356 !-----dbs is the derivative of the surface emission with respect to
8357 ! surface temperature eq. (3.12).
8358 dbs(i)=(ts(i)*(ts(i)*(ts(i)*(ts(i)*5.*cb(6,ibn)+4.*cb(5,ibn)) &
8359 +3.*cb(4,ibn))+2.*cb(3,ibn))+cb(2,ibn))*emiss(i,ibn)
8360 enddo
8361 !-----difference in planck functions between adjacent layers.
8362 do k=1,np+1
8363 do i=1,m
8364 dblayr(i,k)=blayer(i,k-1)-blayer(i,k)
8365 enddo
8366 enddo
8367 !------interpolate planck function at model levels
8368 do k=2,np
8369 do i=1,m
8370 blevel(i,k)=(blayer(i,k-1)*dp(i,k)+blayer(i,k)*dp(i,k-1))/ &
8371 (dp(i,k-1)+dp(i,k))
8372 enddo
8373 enddo
8374 do i=1,m
8375 blevel(i,1)=blayer(i,1)+(blayer(i,1)-blayer(i,2))*dp(i,1)/ &
8376 (dp(i,1)+dp(i,2))
8377 blevel(i,np+1)=tb(i)*(tb(i)*(tb(i)*(tb(i) &
8378 *(tb(i)*cb(6,ibn)+cb(5,ibn))+cb(4,ibn)) &
8379 +cb(3,ibn))+cb(2,ibn))+cb(1,ibn)
8380 enddo
8382 !-----compute column-integrated absorber amoumt, absorber-weighted
8383 ! pressure and temperature for co2 (band 3) and o3 (band 5).
8384 ! it follows eqs. (4.13) and (4.14).
8385 !-----this is in the band loop to save storage
8387 if (high .and. co2bnd) then
8388 call column(m,np,pa,dt,dco2,sco3,scopre,scotem)
8389 endif
8390 if (oznbnd) then
8391 call column(m,np,pa,dt,do3,sco3,scopre,scotem)
8392 endif
8394 !-----compute cloud optical thickness following eqs. (6.4a,b) and (6.7)
8395 ! rain optical thickness is set to 0.00307 /(gm/m**2).
8396 ! it is for a specific drop size distribution provided by q. fu.
8398 if (cldwater) then
8399 do k=1,np
8400 do i=1,m
8401 taucl(i,k,1)=cwp(i,k,1)*(aib(1,ibn)+aib(2,ibn)/ &
8402 reff(i,k,1)**aib(3,ibn))
8403 taucl(i,k,2)=cwp(i,k,2)*(awb(1,ibn)+(awb(2,ibn)+ &
8404 (awb(3,ibn)+awb(4,ibn)*reff(i,k,2))*reff(i,k,2)) &
8405 *reff(i,k,2))
8406 taucl(i,k,3)=0.00307*cwp(i,k,3)
8407 enddo
8408 enddo
8409 endif
8411 !-----compute cloud single-scattering albedo and asymmetry factor for
8412 ! a mixture of ice particles and liquid drops following
8413 ! eqs. (6.5), (6.6), (6.11) and (6.12).
8414 ! single-scattering albedo and asymmetry factor of rain are set
8415 ! to 0.54 and 0.95, respectively, based on the information provided
8416 ! by prof. qiang fu.
8418 do k=1,np
8419 do i=1,m
8420 tcldlyr(i,k) = 1.0
8421 taux=taucl(i,k,1)+taucl(i,k,2)+taucl(i,k,3)
8422 if (taux.gt.0.02 .and. fcld(i,k).gt.0.01) then
8423 reff1=min(reff(i,k,1),150._fp_kind)
8424 reff2=min(reff(i,k,2),20.0_fp_kind)
8425 w1=taucl(i,k,1)*(aiw(1,ibn)+(aiw(2,ibn)+(aiw(3,ibn) &
8426 +aiw(4,ibn)*reff1)*reff1)*reff1)
8427 w2=taucl(i,k,2)*(aww(1,ibn)+(aww(2,ibn)+(aww(3,ibn) &
8428 +aww(4,ibn)*reff2)*reff2)*reff2)
8429 w3=taucl(i,k,3)*0.54
8430 ww=(w1+w2+w3)/taux
8431 g1=w1*(aig(1,ibn)+(aig(2,ibn)+(aig(3,ibn) &
8432 +aig(4,ibn)*reff1)*reff1)*reff1)
8433 g2=w2*(awg(1,ibn)+(awg(2,ibn)+(awg(3,ibn) &
8434 +awg(4,ibn)*reff2)*reff2)*reff2)
8435 g3=w3*0.95
8436 gg=(g1+g2+g3)/(w1+w2+w3)
8437 !-----parameterization of lw scattering following eqs. (6.8) and (6.9).
8438 ff=0.5+(0.3739+(0.0076+0.1185*gg)*gg)*gg
8439 taux=taux*(1.-ww*ff)
8440 !-----compute cloud diffuse transmittance. it is approximated by using
8441 ! a diffusivity factor of 1.66.
8442 tauxa=max(0._fp_kind,1.66*taux)
8443 tcldlyr(i,k)=0.
8444 if(tauxa.lt.80.)tcldlyr(i,k)=exp(-tauxa)
8445 endif
8446 enddo
8447 enddo
8448 !-----for aerosol diffuse transmittance
8449 ! the same scaling of cloud optical thickness is applied to aerosols
8450 do k=1,np
8451 do i=1,m
8452 taerlyr(i,k)=1.0
8453 if (taual(i,k,ibn).gt.0.01) then
8454 ff=0.5+(0.3739+(0.0076+0.1185*asyal(i,k,ibn)) &
8455 *asyal(i,k,ibn))*asyal(i,k,ibn)
8456 taux=taual(i,k,ibn)*(1.-ssaal(i,k,ibn)*ff)
8457 taerlyr(i,k)=exp(-1.66*taux)
8458 endif
8459 enddo
8460 enddo
8461 !-----compute the exponential terms (eq. 8.18) at each layer due to
8462 ! water vapor line absorption when k-distribution is used
8463 if (.not.h2otbl .and. .not.b10bnd) then
8464 call h2oexps(ibn,m,np,dh2o,pa,dt,xkw,aw,bw,pm,mw,h2oexp)
8465 endif
8466 !-----compute the exponential terms (eq. 8.18) at each layer due to
8467 ! water vapor continuum absorption
8468 if (conbnd) then
8469 call conexps(ibn,m,np,dcont,xke,conexp)
8470 endif
8471 !-----compute the exponential terms (eq. 8.18) at each layer due to
8472 ! co2 absorption
8473 if (.not.high .and. co2bnd) then
8474 call co2exps(m,np,dco2,pa,dt,co2exp)
8475 endif
8476 !***** for trace gases *****
8477 if (trace) then
8478 !-----compute the exponential terms at each layer due to n2o absorption
8479 if (n2obnd) then
8480 call n2oexps(ibn,m,np,dn2o,pa,dt,n2oexp)
8481 endif
8482 !-----compute the exponential terms at each layer due to ch4 absorption
8483 if (ch4bnd) then
8484 call ch4exps(ibn,m,np,dch4,pa,dt,ch4exp)
8485 endif
8486 !-----compute the exponential terms due to co2 minor absorption
8487 if (combnd) then
8488 call comexps(ibn,m,np,dco2,dt,comexp)
8489 endif
8490 !-----compute the exponential terms due to cfc11 absorption.
8491 ! the values of the parameters are given in table 7.
8492 if (f11bnd) then
8493 a1 = 1.26610e-3
8494 b1 = 3.55940e-6
8495 fk1 = 1.89736e+1
8496 a2 = 8.19370e-4
8497 b2 = 4.67810e-6
8498 fk2 = 1.01487e+1
8499 call cfcexps(ibn,m,np,a1,b1,fk1,a2,b2,fk2,df11,dt,f11exp)
8500 endif
8501 !-----compute the exponential terms due to cfc12 absorption.
8502 if (f12bnd) then
8503 a1 = 8.77370e-4
8504 b1 =-5.88440e-6
8505 fk1 = 1.58104e+1
8506 a2 = 8.62000e-4
8507 b2 =-4.22500e-6
8508 fk2 = 3.70107e+1
8509 call cfcexps(ibn,m,np,a1,b1,fk1,a2,b2,fk2,df12,dt,f12exp)
8510 endif
8511 !-----compute the exponential terms due to cfc22 absorption.
8512 if (f22bnd) then
8513 a1 = 9.65130e-4
8514 b1 = 1.31280e-5
8515 fk1 = 6.18536e+0
8516 a2 =-3.00010e-5
8517 b2 = 5.25010e-7
8518 fk2 = 3.27912e+1
8519 call cfcexps(ibn,m,np,a1,b1,fk1,a2,b2,fk2,df22,dt,f22exp)
8520 endif
8521 !-----compute the exponential terms at each layer in band 10 due to
8522 ! h2o line and continuum, co2, and n2o absorption
8523 if (b10bnd) then
8524 call b10exps(m,np,dh2o,dcont,dco2,dn2o,pa,dt &
8525 ,h2oexp,conexp,co2exp,n2oexp)
8526 endif
8527 endif
8528 !-----compute transmittances for regions between levels k1 and k2
8529 ! and update fluxes at the two levels.
8530 !-----initialize fluxes
8531 do k=1,np+1
8532 do i=1,m
8533 flxu(i,k) = 0.0
8534 flxd(i,k) = 0.0
8535 flcu(i,k) = 0.0
8536 flcd(i,k) = 0.0
8537 enddo
8538 enddo
8539 do 2000 k1=1,np
8540 !-----initialization
8541 !
8542 ! it, im, and ib are the numbers of cloudy layers in the high,
8543 ! middle, and low cloud groups between levels k1 and k2.
8544 ! cldlw, cldmd, and cldhi are the equivalent black-cloud fractions
8545 ! of low, middle, and high troposphere.
8546 ! tranal is the aerosol transmission function
8547 do i=1,m
8548 it(i) = 0
8549 im(i) = 0
8550 ib(i) = 0
8551 cldlw(i) = 0.0
8552 cldmd(i) = 0.0
8553 cldhi(i) = 0.0
8554 tranal(i)= 1.0
8555 enddo
8556 !-----for h2o line transmission
8557 if (.not. h2otbl) then
8558 do ik=1,6
8559 do i=1,m
8560 th2o(i,ik)=1.0
8561 enddo
8562 enddo
8563 endif
8564 !-----for h2o continuum transmission
8565 do iq=1,3
8566 do i=1,m
8567 tcon(i,iq)=1.0
8568 enddo
8569 enddo
8570 !-----for co2 transmission using k-distribution method.
8571 ! band 3 is divided into 3 sub-bands, but sub-bands 3a and 3c
8572 ! are combined in computing the co2 transmittance.
8573 if (.not.high .and. co2bnd) then
8574 do isb=1,2
8575 do ik=1,6
8576 do i=1,m
8577 tco2(i,ik,isb)=1.0
8578 enddo
8579 enddo
8580 enddo
8581 endif
8582 !***** for trace gases *****
8583 if (trace) then
8584 !-----for n2o transmission using k-distribution method.
8585 if (n2obnd) then
8586 do ik=1,4
8587 do i=1,m
8588 tn2o(i,ik)=1.0
8589 enddo
8590 enddo
8591 endif
8592 !-----for ch4 transmission using k-distribution method.
8593 if (ch4bnd) then
8594 do ik=1,4
8595 do i=1,m
8596 tch4(i,ik)=1.0
8597 enddo
8598 enddo
8599 endif
8600 !-----for co2-minor transmission using k-distribution method.
8601 if (combnd) then
8602 do ik=1,6
8603 do i=1,m
8604 tcom(i,ik)=1.0
8605 enddo
8606 enddo
8607 endif
8608 !-----for cfc-11 transmission using k-distribution method.
8609 if (f11bnd) then
8610 do i=1,m
8611 tf11(i)=1.0
8612 enddo
8613 endif
8614 !-----for cfc-12 transmission using k-distribution method.
8615 if (f12bnd) then
8616 do i=1,m
8617 tf12(i)=1.0
8618 enddo
8619 endif
8620 !-----for cfc-22 transmission when using k-distribution method.
8621 if (f22bnd) then
8622 do i=1,m
8623 tf22(i)=1.0
8624 enddo
8625 endif
8626 !-----for the transmission in band 10 using k-distribution method.
8627 if (b10bnd) then
8628 do ik=1,5
8629 do i=1,m
8630 th2o(i,ik)=1.0
8631 enddo
8632 enddo
8633 do ik=1,6
8634 do i=1,m
8635 tco2(i,ik,1)=1.0
8636 enddo
8637 enddo
8638 do i=1,m
8639 tcon(i,1)=1.0
8640 enddo
8641 do ik=1,2
8642 do i=1,m
8643 tn2o(i,ik)=1.0
8644 enddo
8645 enddo
8646 endif
8647 endif
8648 !***** end trace gases *****
8649 do i=1,m
8650 fclr(i)=1.0
8651 enddo
8652 !-----loop over the bottom level of the region (k2)
8653 do 3000 k2=k1+1,np+1
8654 !-----trant is the total transmittance between levels k1 and k2.
8655 do i=1,m
8656 trant(i)=1.0
8657 enddo
8658 if (h2otbl) then
8659 !-----compute water vapor transmittance using table look-up.
8660 ! the following values are taken from table 8.
8661 w1=-8.0
8662 p1=-2.0
8663 dwe=0.3
8664 dpe=0.2
8665 if (ibn.eq.1) then
8666 call tablup(k1,k2,m,np,nx2,nh,sh2o,swpre,swtem, &
8667 w1,p1,dwe,dpe,h11,h12,h13,trant)
8668 endif
8669 if (ibn.eq.2) then
8670 call tablup(k1,k2,m,np,nx2,nh,sh2o,swpre,swtem, &
8671 w1,p1,dwe,dpe,h21,h22,h23,trant)
8672 endif
8673 if (ibn.eq.8) then
8674 call tablup(k1,k2,m,np,nx2,nh,sh2o,swpre,swtem, &
8675 w1,p1,dwe,dpe,h81,h82,h83,trant)
8676 endif
8677 else
8678 !-----compute water vapor transmittance using k-distribution
8679 if (.not.b10bnd) then
8680 call h2okdis(ibn,m,np,k2-1,fkw,gkw,ne,h2oexp,conexp, &
8681 th2o,tcon,trant)
8682 endif
8683 endif
8684 if (co2bnd) then
8685 if (high) then
8686 !-----compute co2 transmittance using table look-up method.
8687 ! the following values are taken from table 8.
8688 w1=-4.0
8689 p1=-2.0
8690 dwe=0.3
8691 dpe=0.2
8692 call tablup(k1,k2,m,np,nx2,nc,sco3,scopre,scotem, &
8693 w1,p1,dwe,dpe,c1,c2,c3,trant)
8694 else
8695 !-----compute co2 transmittance using k-distribution method
8696 call co2kdis(m,np,k2-1,co2exp,tco2,trant)
8697 endif
8698 endif
8699 !-----always use table look-up to compute o3 transmittance.
8700 ! the following values are taken from table 8.
8701 if (oznbnd) then
8702 w1=-6.0
8703 p1=-2.0
8704 dwe=0.3
8705 dpe=0.2
8706 call tablup(k1,k2,m,np,nx2,no,sco3,scopre,scotem, &
8707 w1,p1,dwe,dpe,o1,o2,o3,trant)
8708 endif
8709 !***** for trace gases *****
8710 if (trace) then
8711 !-----compute n2o transmittance using k-distribution method
8712 if (n2obnd) then
8713 call n2okdis(ibn,m,np,k2-1,n2oexp,tn2o,trant)
8714 endif
8715 !-----compute ch4 transmittance using k-distribution method
8716 if (ch4bnd) then
8717 call ch4kdis(ibn,m,np,k2-1,ch4exp,tch4,trant)
8718 endif
8719 !-----compute co2-minor transmittance using k-distribution method
8720 if (combnd) then
8721 call comkdis(ibn,m,np,k2-1,comexp,tcom,trant)
8722 endif
8723 !-----compute cfc11 transmittance using k-distribution method
8724 if (f11bnd) then
8725 call cfckdis(m,np,k2-1,f11exp,tf11,trant)
8726 endif
8727 !-----compute cfc12 transmittance using k-distribution method
8728 if (f12bnd) then
8729 call cfckdis(m,np,k2-1,f12exp,tf12,trant)
8730 endif
8731 !-----compute cfc22 transmittance using k-distribution method
8732 if (f22bnd) then
8733 call cfckdis(m,np,k2-1,f22exp,tf22,trant)
8734 endif
8735 !-----compute transmittance in band 10 using k-distribution method.
8736 ! for band 10, trant is the change in transmittance due to n2o
8737 ! absorption.
8738 if (b10bnd) then
8739 call b10kdis(m,np,k2-1,h2oexp,conexp,co2exp,n2oexp &
8740 ,th2o,tcon,tco2,tn2o,trant)
8741 endif
8742 endif
8743 !***** end trace gases *****
8744 !-----include aerosol effect
8745 do i=1,m
8746 tranal(i)=tranal(i)*taerlyr(i,k2-1)
8747 trant (i)=trant(i) *tranal(i)
8748 enddo
8749 !***** cloud overlapping *****
8750 if (.not. overcast) then
8751 call cldovlp (m,np,k2,ict,icb,it,im,ib, &
8752 cldhi,cldmd,cldlw,fcld,tcldlyr,fclr)
8753 else
8754 do i=1,m
8755 fclr(i)=fclr(i)*tcldlyr(i,k2-1)
8756 enddo
8757 endif
8758 !-----compute upward and downward fluxes (bands 1-9). it follows
8759 ! eqs. (8.14) and (8.15). downward fluxes are positive.
8760 if (.not. b10bnd) then
8761 !-----contribution from the "adjacent layer"
8762 if (k2 .eq. k1+1) then
8763 do i=1,m
8764 yy=min(0.999_fp_kind,trant(i))
8765 yy=max(0.001_fp_kind,yy)
8766 !-hmhj use log instead of alog for default intrinsic function
8767 xx=(blevel(i,k1)-blevel(i,k2))/ log(yy)
8768 bu=(blevel(i,k1)-blevel(i,k2)*yy)/(1.0-yy)+xx
8769 bd=(blevel(i,k2)-blevel(i,k1)*yy)/(1.0-yy)-xx
8770 ! bu=blayer(i,k1)
8771 ! bd=blayer(i,k1)
8772 !-----for clear-sky situation
8773 flcu(i,k1)=flcu(i,k1)-bu+(bu-blayer(i,k2))*trant(i)
8774 flcd(i,k2)=flcd(i,k2)+bd-(bd-blayer(i,k1-1))*trant(i)
8775 !-----for all-sky situation
8776 flxu(i,k1)=flxu(i,k1)-bu+(bu-blayer(i,k2))*trant(i)*fclr(i)
8777 flxd(i,k2)=flxd(i,k2)+bd-(bd-blayer(i,k1-1))*trant(i)*fclr(i)
8778 enddo
8779 else
8780 !-----contribution from distant layers.
8781 do i=1,m
8782 xx=trant(i)*dblayr(i,k2)
8783 flcu(i,k1) =flcu(i,k1)+xx
8784 flxu(i,k1) =flxu(i,k1)+xx*fclr(i)
8785 xx=trant(i)*dblayr(i,k1)
8786 flcd(i,k2) =flcd(i,k2)+xx
8787 flxd(i,k2) =flxd(i,k2)+xx*fclr(i)
8788 enddo
8789 endif
8790 else
8791 !-----flux reduction due to n2o in band 10 (eqs. 5.1 and 5.2)
8792 ! trant is the transmittance change due to n2o absorption (eq. 5.3).
8793 do i=1,m
8794 rflx(i,k1) = rflx(i,k1)+trant(i)*fclr(i)*dblayr(i,k2)
8795 rflx(i,k2) = rflx(i,k2)+trant(i)*fclr(i)*dblayr(i,k1)
8796 rflc(i,k1) = rflc(i,k1)+trant(i)*dblayr(i,k2)
8797 rflc(i,k2) = rflc(i,k2)+trant(i)*dblayr(i,k1)
8798 enddo
8799 endif
8800 3000 continue
8801 !-----here, fclr and trant are, respectively, the clear line-of-sight
8802 ! and the transmittance between k1 and the surface.
8803 do i=1,m
8804 trantcr(i,k1) =trant(i)
8805 transfc(i,k1) =trant(i)*fclr(i)
8806 enddo
8807 !-----compute the partial derivative of fluxes with respect to
8808 ! surface temperature (eq. 3.12). note: upward flux is negative.
8809 do i=1,m
8810 dfdts(i,k1) =dfdts(i,k1)-dbs(i)*transfc(i,k1)
8811 enddo
8812 2000 continue
8813 if (.not. b10bnd) then
8814 !-----for surface emission.
8815 ! note: blayer(i,np+1) and dbs include the surface emissivity effect.
8816 do i=1,m
8817 flcu(i,np+1)=-blayer(i,np+1)
8818 flxu(i,np+1)=-blayer(i,np+1)
8819 sfcem(i)=sfcem(i)-blayer(i,np+1)
8820 dfdts(i,np+1)=dfdts(i,np+1)-dbs(i)
8821 enddo
8822 !-----add the flux reflected by the surface. (last term on the
8823 ! rhs of eq. 3.10)
8824 do k=1,np+1
8825 do i=1,m
8826 flcu(i,k)=flcu(i,k)- &
8827 flcd(i,np+1)*trantcr(i,k)*(1.-emiss(i,ibn))
8828 flxu(i,k)=flxu(i,k)- &
8829 flxd(i,np+1)*transfc(i,k)*(1.-emiss(i,ibn))
8830 enddo
8831 enddo
8832 endif
8833 !-----summation of fluxes over spectral bands
8834 do k=1,np+1
8835 do i=1,m
8836 flc(i,k)=flc(i,k)+flcd(i,k)+flcu(i,k)
8837 flx(i,k)=flx(i,k)+flxd(i,k)+flxu(i,k)
8838 acflxu(i,k)=acflxu(i,k)+flxu(i,k) ! (LW upward must hold negative values)
8839 acflxd(i,k)=acflxd(i,k)+flxd(i,k) ! (LW downward must hold postive values, and should=0 a
8840 enddo
8841 enddo
8842 !-----adjustment due to n2o absorption in band 10. eqs. (5.4) and (5.5)
8843 if (b10bnd) then
8844 do k=1,np+1
8845 do i=1,m
8846 flc(i,k)=flc(i,k)+rflc(i,k)
8847 flx(i,k)=flx(i,k)+rflx(i,k)
8848 if(rflx(i,k).ge.0.0) acflxd(i,k)=acflxd(i,k)+rflx(i,k)
8849 if(rflx(i,k).lt.0.0) acflxu(i,k)=acflxu(i,k)+rflx(i,k)
8850 enddo
8851 enddo
8852 endif
8853 endif ! endif (.not. b10bnd .or. trace)
8854 1000 continue
8856 !ccshie 8/19/04 based on D. Johnson GCSS Workshop
8857 ! do i=1,m
8858 ! (i)=acflxd(i,np+1) ! downward LW surface
8859 ! rflux(i,5)=acflxu(i,1) ! upward LW TOA
8860 ! rflux(i,7)=acflxu(i,np+1) ! upward LW surface
8861 ! rflux(i,8)=acflxd(i,1) ! downward LW TOA
8862 ! enddo
8864 !xp
8865 ! deallocate(pa)
8866 ! deallocate(dt)
8867 ! deallocate(sh2o)
8868 ! deallocate(swpre)
8869 ! deallocate(swtem)
8870 ! deallocate(sco3)
8871 ! deallocate(scopre)
8872 ! deallocate(scotem)
8873 ! deallocate(dh2o)
8874 ! deallocate(dcont)
8875 ! deallocate(dco2)
8876 ! deallocate(do3)
8877 ! deallocate(dn2o)
8878 ! deallocate(dch4)
8879 ! deallocate(df11)
8880 ! deallocate(df12)
8881 ! deallocate(df22)
8882 ! deallocate(th2o)
8883 ! deallocate(tcon)
8884 ! deallocate(tco2)
8885 ! deallocate(tn2o)
8886 ! deallocate(tch4)
8887 ! deallocate(tcom)
8888 ! deallocate(tf11)
8889 ! deallocate(tf12)
8890 ! deallocate(tf22)
8891 ! deallocate(h2oexp)
8892 ! deallocate(conexp)
8893 ! deallocate(co2exp)
8894 ! deallocate(n2oexp)
8895 ! deallocate(ch4exp)
8896 ! deallocate(comexp)
8897 ! deallocate(f11exp)
8898 ! deallocate(f12exp)
8899 ! deallocate(f22exp)
8900 ! deallocate(blayer)
8901 ! deallocate(blevel)
8902 ! deallocate(dblayr)
8903 ! deallocate(dbs)
8904 ! deallocate(dp)
8905 ! deallocate(cwp)
8906 ! deallocate(trant)
8907 ! deallocate(tranal)
8908 ! deallocate(transfc)
8909 ! deallocate(trantcr)
8910 ! deallocate(flxu)
8911 ! deallocate(flxd)
8912 ! deallocate(flcu)
8913 ! deallocate(flcd)
8914 ! deallocate(rflx)
8915 ! deallocate(rflc)
8916 ! deallocate(it)
8917 ! deallocate(im)
8918 ! deallocate(ib)
8919 ! deallocate(cldhi)
8920 ! deallocate(cldmd)
8921 ! deallocate(cldlw)
8922 ! deallocate(tcldlyr)
8923 ! deallocate(fclr)
8924 ! deallocate(taerlyr)
8925 return
8926 end subroutine lwrad
8928 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
8929 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
8931 subroutine column (m,np,pa,dt,sabs0,sabs,spre,stem)
8932 !***********************************************************************
8933 !-----compute column-integrated (from top of the model atmosphere)
8934 ! absorber amount (sabs), absorber-weighted pressure (spre) and
8935 ! temperature (stem).
8936 ! computations follow eqs. (8.24) - (8.26).
8937 !
8938 !--- input parameters
8939 ! number of soundings (m)
8940 ! number of atmospheric layers (np)
8941 ! layer pressure (pa)
8942 ! layer temperature minus 250k (dt)
8943 ! layer absorber amount (sabs0)
8944 !
8945 !--- output parameters
8946 ! column-integrated absorber amount (sabs)
8947 ! column absorber-weighted pressure (spre)
8948 ! column absorber-weighted temperature (stem)
8949 !
8950 !--- units of pa and dt are mb and k, respectively.
8951 ! units of sabs are g/cm**2 for water vapor and (cm-atm)stp
8952 ! for co2 and o3
8953 !***********************************************************************
8954 implicit none
8955 integer m,np,i,k
8956 !---- input parameters -----
8957 real(Kind=fp_kind) pa(m,np),dt(m,np),sabs0(m,np)
8958 !---- output parameters -----
8959 real(Kind=fp_kind) sabs(m,np+1),spre(m,np+1),stem(m,np+1)
8960 !*********************************************************************
8961 do i=1,m
8962 sabs(i,1)=0.0
8963 spre(i,1)=0.0
8964 stem(i,1)=0.0
8965 enddo
8966 do k=1,np
8967 do i=1,m
8968 sabs(i,k+1)=sabs(i,k)+sabs0(i,k)
8969 spre(i,k+1)=spre(i,k)+pa(i,k)*sabs0(i,k)
8970 stem(i,k+1)=stem(i,k)+dt(i,k)*sabs0(i,k)
8971 enddo
8972 enddo
8973 return
8974 end subroutine column
8976 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
8977 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
8979 subroutine h2oexps(ib,m,np,dh2o,pa,dt,xkw,aw,bw,pm,mw,h2oexp)
8980 !**********************************************************************
8981 ! compute exponentials for water vapor line absorption
8982 ! in individual layers using eqs. (8.18) and (8.19).
8983 !
8984 !---- input parameters
8985 ! spectral band (ib)
8986 ! number of grid intervals (m)
8987 ! number of layers (np)
8988 ! layer water vapor amount for line absorption (dh2o)
8989 ! layer pressure (pa)
8990 ! layer temperature minus 250k (dt)
8991 ! absorption coefficients for the first k-distribution
8992 ! function due to h2o line absorption (xkw)
8993 ! coefficients for the temperature and pressure scaling (aw,bw,pm)
8994 ! ratios between neighboring absorption coefficients for
8995 ! h2o line absorption (mw)
8996 !
8997 !---- output parameters
8998 ! 6 exponentials for each layer (h2oexp)
8999 !**********************************************************************
9000 implicit none
9001 integer ib,m,np,i,k,ik
9002 !---- input parameters ------
9003 real(Kind=fp_kind) dh2o(m,np),pa(m,np),dt(m,np)
9004 !---- output parameters -----
9005 real(Kind=fp_kind) h2oexp(m,np,6)
9006 !---- static data -----
9007 integer mw(9)
9008 real(Kind=fp_kind) xkw(9),aw(9),bw(9),pm(9)
9009 !---- temporary arrays -----
9010 real(Kind=fp_kind) xh
9011 !**********************************************************************
9012 ! note that the 3 sub-bands in band 3 use the same set of xkw, aw,
9013 ! and bw, therefore, h2oexp for these sub-bands are identical.
9014 !**********************************************************************
9015 do k=1,np
9016 do i=1,m
9017 !-----xh is the scaled water vapor amount for line absorption
9018 ! computed from eq. (4.4).
9019 xh = dh2o(i,k)*(pa(i,k)/500.)**pm(ib) &
9020 * ( 1.+(aw(ib)+bw(ib)* dt(i,k))*dt(i,k) )
9021 !-----h2oexp is the water vapor transmittance of the layer k
9022 ! due to line absorption
9023 h2oexp(i,k,1) = exp(-xh*xkw(ib))
9024 enddo
9025 enddo
9026 !-----compute transmittances from eq. (8.19)
9027 if (mw(ib).eq.6) then
9028 do ik=2,6
9029 do k=1,np
9030 do i=1,m
9031 xh = h2oexp(i,k,ik-1)*h2oexp(i,k,ik-1)
9032 if(xh.lt.1.e-4)xh=0.
9033 h2oexp(i,k,ik) = xh*xh*xh
9034 enddo
9035 enddo
9036 enddo
9037 elseif (mw(ib).eq.8) then
9038 do ik=2,6
9039 do k=1,np
9040 do i=1,m
9041 xh = h2oexp(i,k,ik-1)*h2oexp(i,k,ik-1)
9042 if(xh.lt.1.e-3)xh=0.
9043 xh = xh*xh
9044 h2oexp(i,k,ik) = xh*xh
9045 enddo
9046 enddo
9047 enddo
9048 elseif (mw(ib).eq.9) then
9049 do ik=2,6
9050 do k=1,np
9051 do i=1,m
9052 xh=h2oexp(i,k,ik-1)*h2oexp(i,k,ik-1)*h2oexp(i,k,ik-1)
9053 if(xh.lt.1.e-4)xh=0.
9054 h2oexp(i,k,ik) = xh*xh*xh
9055 enddo
9056 enddo
9057 enddo
9058 else
9059 do ik=2,6
9060 do k=1,np
9061 do i=1,m
9062 xh = h2oexp(i,k,ik-1)*h2oexp(i,k,ik-1)
9063 if(xh.lt.2.e-2)xh=0.
9064 xh = xh*xh
9065 xh = xh*xh
9066 h2oexp(i,k,ik) = xh*xh
9067 enddo
9068 enddo
9069 enddo
9070 endif
9071 return
9072 end subroutine h2oexps
9074 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
9075 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
9077 subroutine conexps(ib,m,np,dcont,xke,conexp)
9078 !**********************************************************************
9079 ! compute exponentials for continuum absorption in individual layers.
9080 !
9081 !---- input parameters
9082 ! spectral band (ib)
9083 ! number of grid intervals (m)
9084 ! number of layers (np)
9085 ! layer scaled water vapor amount for continuum absorption (dcont)
9086 ! absorption coefficients for the first k-distribution function
9087 ! due to water vapor continuum absorption (xke)
9088 !
9089 !---- output parameters
9090 ! 1 or 3 exponentials for each layer (conexp)
9091 !**********************************************************************
9092 implicit none
9093 integer ib,m,np,i,k
9094 !---- input parameters ------
9095 real(Kind=fp_kind) dcont(m,np)
9096 !---- updated parameters -----
9097 real(Kind=fp_kind) conexp(m,np,3)
9098 !---- static data -----
9099 real(Kind=fp_kind) xke(9)
9100 !****************************************************************
9101 do k=1,np
9102 do i=1,m
9103 conexp(i,k,1) = exp(-dcont(i,k)*xke(ib))
9104 enddo
9105 enddo
9106 if (ib .eq. 3) then
9107 !-----the absorption coefficients for sub-bands 3b and 3a are, respectively,
9108 ! two and four times the absorption coefficient for sub-band 3c (table 9).
9109 ! note that conexp(i,k,3) is for sub-band 3a.
9110 do k=1,np
9111 do i=1,m
9112 conexp(i,k,2) = conexp(i,k,1) *conexp(i,k,1)
9113 conexp(i,k,3) = conexp(i,k,2) *conexp(i,k,2)
9114 enddo
9115 enddo
9116 endif
9117 return
9118 end subroutine conexps
9120 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
9121 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
9123 subroutine co2exps(m,np,dco2,pa,dt,co2exp)
9124 !**********************************************************************
9125 ! compute co2 exponentials for individual layers.
9126 !
9127 !---- input parameters
9128 ! number of grid intervals (m)
9129 ! number of layers (np)
9130 ! layer co2 amount (dco2)
9131 ! layer pressure (pa)
9132 ! layer temperature minus 250k (dt)
9133 !
9134 !---- output parameters
9135 ! 6 exponentials for each layer (co2exp)
9136 !**********************************************************************
9137 implicit none
9138 integer m,np,i,k
9139 !---- input parameters -----
9140 real(Kind=fp_kind) dco2(m,np),pa(m,np),dt(m,np)
9141 !---- output parameters -----
9142 real(Kind=fp_kind) co2exp(m,np,6,2)
9143 !---- temporary arrays -----
9144 real(Kind=fp_kind) xc
9145 !**********************************************************************
9146 do k=1,np
9147 do i=1,m
9148 !-----the scakubg oaraneters are given in table 3, and values of
9149 ! the absorption coefficient are given in table 10.
9150 ! scaled co2 amount for band-wings (sub-bands 3a and 3c)
9151 xc = dco2(i,k)*(pa(i,k)/300.0)**0.5 &
9152 *(1.+(0.0182+1.07e-4*dt(i,k))*dt(i,k))
9153 !-----six exponentials by powers of 8 (see eqs. 8.18, 8.19 and table 10).
9154 co2exp(i,k,1,1)=exp(-xc*2.656e-5)
9155 xc=co2exp(i,k,1,1)*co2exp(i,k,1,1)
9156 xc=xc*xc
9157 co2exp(i,k,2,1)=xc*xc
9158 xc=co2exp(i,k,2,1)*co2exp(i,k,2,1)
9159 xc=xc*xc
9160 co2exp(i,k,3,1)=xc*xc
9161 xc=co2exp(i,k,3,1)*co2exp(i,k,3,1)
9162 xc=xc*xc
9163 co2exp(i,k,4,1)=xc*xc
9164 xc=co2exp(i,k,4,1)*co2exp(i,k,4,1)
9165 xc=xc*xc
9166 co2exp(i,k,5,1)=xc*xc
9167 xc=co2exp(i,k,5,1)*co2exp(i,k,5,1)
9168 xc=xc*xc
9169 co2exp(i,k,6,1)=xc*xc
9170 !-----for band-center region (sub-band 3b)
9171 xc = dco2(i,k)*(pa(i,k)/30.0)**0.85 &
9172 *(1.+(0.0042+2.00e-5*dt(i,k))*dt(i,k))
9173 co2exp(i,k,1,2)=exp(-xc*2.656e-3)
9174 xc=co2exp(i,k,1,2)*co2exp(i,k,1,2)
9175 xc=xc*xc
9176 co2exp(i,k,2,2)=xc*xc
9177 xc=co2exp(i,k,2,2)*co2exp(i,k,2,2)
9178 xc=xc*xc
9179 co2exp(i,k,3,2)=xc*xc
9180 xc=co2exp(i,k,3,2)*co2exp(i,k,3,2)
9181 xc=xc*xc
9182 co2exp(i,k,4,2)=xc*xc
9183 xc=co2exp(i,k,4,2)*co2exp(i,k,4,2)
9184 xc=xc*xc
9185 co2exp(i,k,5,2)=xc*xc
9186 xc=co2exp(i,k,5,2)*co2exp(i,k,5,2)
9187 xc=xc*xc
9188 co2exp(i,k,6,2)=xc*xc
9189 enddo
9190 enddo
9191 return
9192 end subroutine co2exps
9194 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
9195 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
9197 subroutine n2oexps(ib,m,np,dn2o,pa,dt,n2oexp)
9198 !**********************************************************************
9199 ! compute n2o exponentials for individual layers
9200 !
9201 !---- input parameters
9202 ! spectral band (ib)
9203 ! number of grid intervals (m)
9204 ! number of layers (np)
9205 ! layer n2o amount (dn2o)
9206 ! layer pressure (pa)
9207 ! layer temperature minus 250k (dt)
9208 !
9209 !---- output parameters
9210 ! 2 or 4 exponentials for each layer (n2oexp)
9211 !**********************************************************************
9212 implicit none
9213 integer ib,m,np,i,k
9215 !---- input parameters -----
9217 real(Kind=fp_kind) dn2o(m,np),pa(m,np),dt(m,np)
9219 !---- output parameters -----
9221 real(Kind=fp_kind) n2oexp(m,np,4)
9223 !---- temporary arrays -----
9225 real(Kind=fp_kind) xc,xc1,xc2
9227 !-----scaling and absorpton data are given in table 5.
9228 ! transmittances are computed using eqs. (8.18) and (8.19).
9230 do k=1,np
9231 do i=1,m
9233 !-----four exponential by powers of 21 for band 6.
9235 if (ib.eq.6) then
9237 xc=dn2o(i,k)*(1.+(1.9297e-3+4.3750e-6*dt(i,k))*dt(i,k))
9238 n2oexp(i,k,1)=exp(-xc*6.31582e-2)
9240 xc=n2oexp(i,k,1)*n2oexp(i,k,1)*n2oexp(i,k,1)
9241 xc1=xc*xc
9242 xc2=xc1*xc1
9243 n2oexp(i,k,2)=xc*xc1*xc2
9245 !-----four exponential by powers of 8 for band 7
9247 else
9249 xc=dn2o(i,k)*(pa(i,k)/500.0)**0.48 &
9250 *(1.+(1.3804e-3+7.4838e-6*dt(i,k))*dt(i,k))
9251 n2oexp(i,k,1)=exp(-xc*5.35779e-2)
9253 xc=n2oexp(i,k,1)*n2oexp(i,k,1)
9254 xc=xc*xc
9255 n2oexp(i,k,2)=xc*xc
9256 xc=n2oexp(i,k,2)*n2oexp(i,k,2)
9257 xc=xc*xc
9258 n2oexp(i,k,3)=xc*xc
9259 xc=n2oexp(i,k,3)*n2oexp(i,k,3)
9260 xc=xc*xc
9261 n2oexp(i,k,4)=xc*xc
9263 endif
9265 enddo
9266 enddo
9268 return
9269 end subroutine n2oexps
9271 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
9272 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
9274 subroutine ch4exps(ib,m,np,dch4,pa,dt,ch4exp)
9275 !**********************************************************************
9276 ! compute ch4 exponentials for individual layers
9277 !
9278 !---- input parameters
9279 ! spectral band (ib)
9280 ! number of grid intervals (m)
9281 ! number of layers (np)
9282 ! layer ch4 amount (dch4)
9283 ! layer pressure (pa)
9284 ! layer temperature minus 250k (dt)
9285 !
9286 !---- output parameters
9287 ! 1 or 4 exponentials for each layer (ch4exp)
9288 !**********************************************************************
9289 implicit none
9290 integer ib,m,np,i,k
9291 !---- input parameters -----
9292 real(Kind=fp_kind) dch4(m,np),pa(m,np),dt(m,np)
9293 !---- output parameters -----
9294 real(Kind=fp_kind) ch4exp(m,np,4)
9295 !---- temporary arrays -----
9296 real(Kind=fp_kind) xc
9297 !***** scaling and absorpton data are given in table 5 *****
9298 do k=1,np
9299 do i=1,m
9300 !-----four exponentials for band 6
9301 if (ib.eq.6) then
9302 xc=dch4(i,k)*(1.+(1.7007e-2+1.5826e-4*dt(i,k))*dt(i,k))
9303 ch4exp(i,k,1)=exp(-xc*5.80708e-3)
9304 !-----four exponentials by powers of 12 for band 7
9305 else
9306 xc=dch4(i,k)*(pa(i,k)/500.0)**0.65 &
9307 *(1.+(5.9590e-4-2.2931e-6*dt(i,k))*dt(i,k))
9308 ch4exp(i,k,1)=exp(-xc*6.29247e-2)
9309 xc=ch4exp(i,k,1)*ch4exp(i,k,1)*ch4exp(i,k,1)
9310 xc=xc*xc
9311 ch4exp(i,k,2)=xc*xc
9312 xc=ch4exp(i,k,2)*ch4exp(i,k,2)*ch4exp(i,k,2)
9313 xc=xc*xc
9314 ch4exp(i,k,3)=xc*xc
9315 xc=ch4exp(i,k,3)*ch4exp(i,k,3)*ch4exp(i,k,3)
9316 xc=xc*xc
9317 ch4exp(i,k,4)=xc*xc
9318 endif
9319 enddo
9320 enddo
9321 return
9322 end subroutine ch4exps
9324 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
9325 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
9327 subroutine comexps(ib,m,np,dcom,dt,comexp)
9328 !**********************************************************************
9329 ! compute co2-minor exponentials for individual layers using
9330 ! eqs. (8.18) and (8.19).
9331 !
9332 !---- input parameters
9333 ! spectral band (ib)
9334 ! number of grid intervals (m)
9335 ! number of layers (np)
9336 ! layer co2 amount (dcom)
9337 ! layer temperature minus 250k (dt)
9338 !
9339 !---- output parameters
9340 ! 6 exponentials for each layer (comexp)
9341 !**********************************************************************
9342 implicit none
9343 integer ib,m,np,i,k,ik
9344 !---- input parameters -----
9345 real(Kind=fp_kind) dcom(m,np),dt(m,np)
9346 !---- output parameters -----
9347 real(Kind=fp_kind) comexp(m,np,6)
9348 !---- temporary arrays -----
9349 real(Kind=fp_kind) xc
9350 !***** scaling and absorpton data are given in table 6 *****
9351 do k=1,np
9352 do i=1,m
9353 if (ib.eq.4) then
9354 xc=dcom(i,k)*(1.+(3.5775e-2+4.0447e-4*dt(i,k))*dt(i,k))
9355 endif
9356 if (ib.eq.5) then
9357 xc=dcom(i,k)*(1.+(3.4268e-2+3.7401e-4*dt(i,k))*dt(i,k))
9358 endif
9359 comexp(i,k,1)=exp(-xc*1.922e-7)
9360 do ik=2,6
9361 xc=comexp(i,k,ik-1)*comexp(i,k,ik-1)
9362 xc=xc*xc
9363 comexp(i,k,ik)=xc*comexp(i,k,ik-1)
9364 enddo
9365 enddo
9366 enddo
9367 return
9368 end subroutine comexps
9370 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
9371 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
9373 subroutine cfcexps(ib,m,np,a1,b1,fk1,a2,b2,fk2,dcfc,dt,cfcexp)
9374 !**********************************************************************
9375 ! compute cfc(-11, -12, -22) exponentials for individual layers.
9376 !
9377 !---- input parameters
9378 ! spectral band (ib)
9379 ! number of grid intervals (m)
9380 ! number of layers (np)
9381 ! parameters for computing the scaled cfc amounts
9382 ! for temperature scaling (a1,b1,a2,b2)
9383 ! the absorption coefficients for the
9384 ! first k-distribution function due to cfcs (fk1,fk2)
9385 ! layer cfc amounts (dcfc)
9386 ! layer temperature minus 250k (dt)
9387 !
9388 !---- output parameters
9389 ! 1 exponential for each layer (cfcexp)
9390 !**********************************************************************
9391 implicit none
9392 integer ib,m,np,i,k
9393 !---- input parameters -----
9394 real(Kind=fp_kind) dcfc(m,np),dt(m,np)
9395 !---- output parameters -----
9396 real(Kind=fp_kind) cfcexp(m,np)
9397 !---- static data -----
9398 real(Kind=fp_kind) a1,b1,fk1,a2,b2,fk2
9399 !---- temporary arrays -----
9400 real(Kind=fp_kind) xf
9401 !**********************************************************************
9402 do k=1,np
9403 do i=1,m
9404 !-----compute the scaled cfc amount (xf) and exponential (cfcexp)
9405 if (ib.eq.4) then
9406 xf=dcfc(i,k)*(1.+(a1+b1*dt(i,k))*dt(i,k))
9407 cfcexp(i,k)=exp(-xf*fk1)
9408 else
9409 xf=dcfc(i,k)*(1.+(a2+b2*dt(i,k))*dt(i,k))
9410 cfcexp(i,k)=exp(-xf*fk2)
9411 endif
9412 enddo
9413 enddo
9414 return
9415 end subroutine cfcexps
9417 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
9418 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
9420 subroutine b10exps(m,np,dh2o,dcont,dco2,dn2o,pa,dt &
9421 ,h2oexp,conexp,co2exp,n2oexp)
9422 !**********************************************************************
9423 ! compute band3a exponentials for individual layers
9424 !
9425 !---- input parameters
9426 ! number of grid intervals (m)
9427 ! number of layers (np)
9428 ! layer h2o amount for line absorption (dh2o)
9429 ! layer h2o amount for continuum absorption (dcont)
9430 ! layer co2 amount (dco2)
9431 ! layer n2o amount (dn2o)
9432 ! layer pressure (pa)
9433 ! layer temperature minus 250k (dt)
9434 !
9435 !---- output parameters
9436 !
9437 ! exponentials for each layer (h2oexp,conexp,co2exp,n2oexp)
9438 !**********************************************************************
9439 implicit none
9440 integer m,np,i,k
9441 !---- input parameters -----
9442 real(Kind=fp_kind) dh2o(m,np),dcont(m,np),dn2o(m,np)
9443 real(Kind=fp_kind) dco2(m,np),pa(m,np),dt(m,np)
9444 !---- output parameters -----
9445 real(Kind=fp_kind) h2oexp(m,np,6),conexp(m,np,3),co2exp(m,np,6,2) &
9446 ,n2oexp(m,np,4)
9447 !---- temporary arrays -----
9448 real(Kind=fp_kind) xx,xx1,xx2,xx3
9449 !**********************************************************************
9450 do k=1,np
9451 do i=1,m
9452 !-----compute scaled h2o-line amount for band 10 (eq. 4.4 and table 3).
9453 xx=dh2o(i,k)*(pa(i,k)/500.0) &
9454 *(1.+(0.0149+6.20e-5*dt(i,k))*dt(i,k))
9455 !-----six exponentials by powers of 8
9456 ! the constant 0.10624 is equal to 1.66*0.064
9457 h2oexp(i,k,1)=exp(-xx*0.10624)
9458 xx=h2oexp(i,k,1)*h2oexp(i,k,1)
9459 xx=xx*xx
9460 h2oexp(i,k,2)=xx*xx
9461 xx=h2oexp(i,k,2)*h2oexp(i,k,2)
9462 xx=xx*xx
9463 h2oexp(i,k,3)=xx*xx
9464 xx=h2oexp(i,k,3)*h2oexp(i,k,3)
9465 xx=xx*xx
9466 h2oexp(i,k,4)=xx*xx
9467 xx=h2oexp(i,k,4)*h2oexp(i,k,4)
9468 xx=xx*xx
9469 h2oexp(i,k,5)=xx*xx
9470 xx=h2oexp(i,k,5)*h2oexp(i,k,5)
9471 xx=xx*xx
9472 ! h2oexp(i,k,6)=xx*xx
9473 !-----compute scaled co2 amount for the band 10 (eq. 4.4 and table 6).
9474 xx=dco2(i,k)*(pa(i,k)/300.0)**0.5 &
9475 *(1.+(0.0179+1.02e-4*dt(i,k))*dt(i,k))
9476 !-----six exponentials by powers of 8
9477 ! the constant 2.656e-5 is equal to 1.66*1.60e-5
9478 co2exp(i,k,1,1)=exp(-xx*2.656e-5)
9479 xx=co2exp(i,k,1,1)*co2exp(i,k,1,1)
9480 xx=xx*xx
9481 co2exp(i,k,2,1)=xx*xx
9482 xx=co2exp(i,k,2,1)*co2exp(i,k,2,1)
9483 xx=xx*xx
9484 co2exp(i,k,3,1)=xx*xx
9485 xx=co2exp(i,k,3,1)*co2exp(i,k,3,1)
9486 xx=xx*xx
9487 co2exp(i,k,4,1)=xx*xx
9488 xx=co2exp(i,k,4,1)*co2exp(i,k,4,1)
9489 xx=xx*xx
9490 co2exp(i,k,5,1)=xx*xx
9491 xx=co2exp(i,k,5,1)*co2exp(i,k,5,1)
9492 xx=xx*xx
9493 co2exp(i,k,6,1)=xx*xx
9494 !-----one exponential of h2o continuum for sub-band 3a (table 9).
9495 conexp(i,k,1)=exp(-dcont(i,k)*1.04995e+2)
9496 !-----compute the scaled n2o amount for band 10 (table 5).
9497 xx=dn2o(i,k)*(1.+(1.4476e-3+3.6656e-6*dt(i,k))*dt(i,k))
9498 !-----two exponentials by powers of 58
9499 n2oexp(i,k,1)=exp(-xx*0.25238)
9500 xx=n2oexp(i,k,1)*n2oexp(i,k,1)
9501 xx1=xx*xx
9502 xx1=xx1*xx1
9503 xx2=xx1*xx1
9504 xx3=xx2*xx2
9505 n2oexp(i,k,2)=xx*xx1*xx2*xx3
9506 enddo
9507 enddo
9508 return
9509 end subroutine b10exps
9511 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
9512 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
9514 subroutine tablup(k1,k2,m,np,nx,nh,sabs,spre,stem,w1,p1, &
9515 dwe,dpe,coef1,coef2,coef3,tran)
9516 !**********************************************************************
9517 ! compute water vapor, co2 and o3 transmittances between level
9518 ! k1 and and level k2 for m soundings, using table look-up.
9519 !
9520 ! calculations follow eq. (4.16).
9521 !
9522 !---- input ---------------------
9523 ! indices for layer (k1) and level (k2)
9524 ! number of grid intervals (m)
9525 ! number of atmospheric layers (np)
9526 ! number of pressure intervals in the table (nx)
9527 ! number of absorber amount intervals in the table (nh)
9528 ! column-integrated absorber amount (sabs)
9529 ! column absorber amount-weighted pressure (spre)
9530 ! column absorber amount-weighted temperature (stem)
9531 ! first value of absorber amount (log10) in the table (w1)
9532 ! first value of pressure (log10) in the table (p1)
9533 ! size of the interval of absorber amount (log10) in the table (dwe)
9534 ! size of the interval of pressure (log10) in the table (dpe)
9535 ! pre-computed coefficients (coef1, coef2, and coef3)
9536 !
9537 !---- updated ---------------------
9538 ! transmittance (tran)
9539 !
9540 ! note:
9541 ! (1) units of sabs are g/cm**2 for water vapor and
9542 ! (cm-atm)stp for co2 and o3.
9543 ! (2) units of spre and stem are, respectively, mb and k.
9544 !
9545 !**********************************************************************
9546 implicit none
9547 integer k1,k2,m,np,nx,nh,i
9548 !---- input parameters -----
9549 real(Kind=fp_kind) w1,p1,dwe,dpe
9550 real(Kind=fp_kind) sabs(m,np+1),spre(m,np+1),stem(m,np+1)
9551 real(Kind=fp_kind) coef1(nx,nh),coef2(nx,nh),coef3(nx,nh)
9552 !---- update parameter -----
9553 real(Kind=fp_kind) tran(m)
9554 !---- temporary variables -----
9555 real(Kind=fp_kind) x1,x2,x3,we,pe,fw,fp,pa,pb,pc,ax,ba,bb,t1,ca,cb,t2,xxx
9556 integer iw,ip
9557 !**********************************************************************
9558 do i=1,m
9559 x1=sabs(i,k2)-sabs(i,k1)
9560 we=(log10(x1)-w1)/dwe
9561 if (we .ge. (w1-2.)) then
9562 x2=(spre(i,k2)-spre(i,k1))/x1
9563 x3=(stem(i,k2)-stem(i,k1))/x1
9564 !-----normalize we and pe
9565 pe=(log10(x2)-p1)/dpe
9566 !-----restrict the magnitudes of the normalized we and pe.
9567 ! we=min(we,real(nh-1))
9568 xxx=real(nh-1)
9569 we=min(we,xxx)
9570 pe=max(pe,0.0_fp_kind)
9571 ! pe=min(pe,real(nx-1))
9572 xxx=real(nx-1)
9573 pe=min(pe,xxx)
9574 !-----assign iw and ip and compute the distance of we and pe
9575 ! from iw and ip.
9576 iw=int(we+1.0)
9577 iw=min(iw,nh-1)
9578 iw=max(iw, 2)
9579 fw=we-float(iw-1)
9580 ip=int(pe+1.0)
9581 ip=min(ip,nx-1)
9582 ip=max(ip, 1)
9583 fp=pe-float(ip-1)
9584 !-----linear interpolation in pressure
9585 pa = coef1(ip,iw-1)*(1.-fp)+coef1(ip+1,iw-1)*fp
9586 pb = coef1(ip, iw)*(1.-fp)+coef1(ip+1, iw)*fp
9587 pc = coef1(ip,iw+1)*(1.-fp)+coef1(ip+1,iw+1)*fp
9588 !-----quadratic interpolation in absorber amount for coef1
9589 ax = (-pa*(1.-fw)+pc*(1.+fw)) *fw*0.5 + pb*(1.-fw*fw)
9590 !-----linear interpolation in absorber amount for coef2 and coef3
9591 ba = coef2(ip, iw)*(1.-fp)+coef2(ip+1, iw)*fp
9592 bb = coef2(ip,iw+1)*(1.-fp)+coef2(ip+1,iw+1)*fp
9593 t1 = ba*(1.-fw) + bb*fw
9594 ca = coef3(ip, iw)*(1.-fp)+coef3(ip+1, iw)*fp
9595 cb = coef3(ip,iw+1)*(1.-fp)+coef3(ip+1,iw+1)*fp
9596 t2 = ca*(1.-fw) + cb*fw
9597 !-----update the total transmittance between levels k1 and k2
9598 tran(i)= (ax + (t1+t2*x3) * x3)*tran(i)
9599 tran(i)=min(tran(i),0.9999999_fp_kind)
9600 tran(i)=max(tran(i),0.0000001_fp_kind)
9601 else
9602 tran(i)=0.9999999
9603 endif
9604 enddo
9605 return
9606 end subroutine tablup
9608 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
9609 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
9611 subroutine h2okdis(ib,m,np,k,fkw,gkw,ne,h2oexp,conexp, &
9612 th2o,tcon,tran)
9613 !**********************************************************************
9614 ! compute water vapor transmittance between levels k1 and k2 for
9615 ! m soundings, using the k-distribution method.
9616 !
9617 !---- input parameters
9618 ! spectral band (ib)
9619 ! number of grid intervals (m)
9620 ! number of levels (np)
9621 ! current level (k)
9622 ! planck-weighted k-distribution function due to
9623 ! h2o line absorption (fkw)
9624 ! planck-weighted k-distribution function due to
9625 ! h2o continuum absorption (gkw)
9626 ! number of terms used in each band to compute water vapor
9627 ! continuum transmittance (ne)
9628 ! exponentials for line absorption (h2oexp)
9629 ! exponentials for continuum absorption (conexp)
9630 !
9631 !---- updated parameters
9632 ! transmittance between levels k1 and k2 due to
9633 ! water vapor line absorption (th2o)
9634 ! transmittance between levels k1 and k2 due to
9635 ! water vapor continuum absorption (tcon)
9636 ! total transmittance (tran)
9637 !
9638 !**********************************************************************
9639 implicit none
9640 integer ib,m,np,i,k
9641 !---- input parameters ------
9642 real(Kind=fp_kind) conexp(m,np,3),h2oexp(m,np,6)
9643 integer ne(9)
9644 real(Kind=fp_kind) fkw(6,9),gkw(6,3)
9645 !---- updated parameters -----
9646 real(Kind=fp_kind) th2o(m,6),tcon(m,3),tran(m)
9647 !---- temporary arrays -----
9648 real(Kind=fp_kind) trnth2o
9649 !-----tco2 are the six exp factors between levels k1 and k2
9650 ! tran is the updated total transmittance between levels k1 and k2
9651 !-----th2o is the 6 exp factors between levels k1 and k2 due to
9652 ! h2o line absorption.
9653 !-----tcon is the 3 exp factors between levels k1 and k2 due to
9654 ! h2o continuum absorption.
9655 !-----trnth2o is the total transmittance between levels k1 and k2 due
9656 ! to both line and continuum absorption.
9657 !-----comoute th2o following eq. (8.20).
9658 do i=1,m
9659 th2o(i,1) = th2o(i,1)*h2oexp(i,k,1)
9660 th2o(i,2) = th2o(i,2)*h2oexp(i,k,2)
9661 th2o(i,3) = th2o(i,3)*h2oexp(i,k,3)
9662 th2o(i,4) = th2o(i,4)*h2oexp(i,k,4)
9663 th2o(i,5) = th2o(i,5)*h2oexp(i,k,5)
9664 th2o(i,6) = th2o(i,6)*h2oexp(i,k,6)
9665 enddo
9666 if (ne(ib).eq.0) then
9667 !-----comoute trnh2o following eq. (8.22). fkw is given in table 4.
9668 do i=1,m
9669 trnth2o =(fkw(1,ib)*th2o(i,1) &
9670 + fkw(2,ib)*th2o(i,2) &
9671 + fkw(3,ib)*th2o(i,3) &
9672 + fkw(4,ib)*th2o(i,4) &
9673 + fkw(5,ib)*th2o(i,5) &
9674 + fkw(6,ib)*th2o(i,6))
9675 tran(i)=tran(i)*trnth2o
9676 enddo
9677 elseif (ne(ib).eq.1) then
9678 !-----comoute trnh2o following eq. (8.22) and (4.27).
9679 do i=1,m
9680 tcon(i,1)= tcon(i,1)*conexp(i,k,1)
9681 trnth2o =(fkw(1,ib)*th2o(i,1) &
9682 + fkw(2,ib)*th2o(i,2) &
9683 + fkw(3,ib)*th2o(i,3) &
9684 + fkw(4,ib)*th2o(i,4) &
9685 + fkw(5,ib)*th2o(i,5) &
9686 + fkw(6,ib)*th2o(i,6))*tcon(i,1)
9687 tran(i)=tran(i)*trnth2o
9688 enddo
9689 else
9690 !-----for band 3. this band is divided into 3 subbands.
9691 do i=1,m
9692 tcon(i,1)= tcon(i,1)*conexp(i,k,1)
9693 tcon(i,2)= tcon(i,2)*conexp(i,k,2)
9694 tcon(i,3)= tcon(i,3)*conexp(i,k,3)
9695 !-----comoute trnh2o following eq. (4.29).
9696 trnth2o = ( gkw(1,1)*th2o(i,1) &
9697 + gkw(2,1)*th2o(i,2) &
9698 + gkw(3,1)*th2o(i,3) &
9699 + gkw(4,1)*th2o(i,4) &
9700 + gkw(5,1)*th2o(i,5) &
9701 + gkw(6,1)*th2o(i,6) ) * tcon(i,1) &
9702 + ( gkw(1,2)*th2o(i,1) &
9703 + gkw(2,2)*th2o(i,2) &
9704 + gkw(3,2)*th2o(i,3) &
9705 + gkw(4,2)*th2o(i,4) &
9706 + gkw(5,2)*th2o(i,5) &
9707 + gkw(6,2)*th2o(i,6) ) * tcon(i,2) &
9708 + ( gkw(1,3)*th2o(i,1) &
9709 + gkw(2,3)*th2o(i,2) &
9710 + gkw(3,3)*th2o(i,3) &
9711 + gkw(4,3)*th2o(i,4) &
9712 + gkw(5,3)*th2o(i,5) &
9713 + gkw(6,3)*th2o(i,6) ) * tcon(i,3)
9714 tran(i)=tran(i)*trnth2o
9715 enddo
9716 endif
9717 return
9718 end subroutine h2okdis
9720 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
9721 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
9723 subroutine co2kdis(m,np,k,co2exp,tco2,tran)
9724 !**********************************************************************
9725 ! compute co2 transmittances between levels k1 and k2 for
9726 ! m soundings, using the k-distribution method with linear
9727 ! pressure scaling.
9728 !
9729 !---- input parameters
9730 ! number of grid intervals (m)
9731 ! number of levels (np)
9732 ! current level (k)
9733 ! exponentials for co2 absorption (co2exp)
9734 !
9735 !---- updated parameters
9736 ! transmittance between levels k1 and k2 due to co2 absorption
9737 ! for the various values of the absorption coefficient (tco2)
9738 ! total transmittance (tran)
9739 !
9740 !**********************************************************************
9741 implicit none
9742 integer m,np,i,k
9743 !---- input parameters -----
9744 real(Kind=fp_kind) co2exp(m,np,6,2)
9745 !---- updated parameters -----
9746 real(Kind=fp_kind) tco2(m,6,2),tran(m)
9747 !---- temporary arrays -----
9748 real(Kind=fp_kind) xc
9749 !-----tco2 is the 6 exp factors between levels k1 and k2.
9750 ! xc is the total co2 transmittance given by eq. (4.30).
9751 ! the k-distribution functions are given in table 10.
9752 do i=1,m
9753 !-----band-wings
9754 tco2(i,1,1)=tco2(i,1,1)*co2exp(i,k,1,1)
9755 xc= 0.1395 *tco2(i,1,1)
9756 tco2(i,2,1)=tco2(i,2,1)*co2exp(i,k,2,1)
9757 xc=xc+0.1407 *tco2(i,2,1)
9758 tco2(i,3,1)=tco2(i,3,1)*co2exp(i,k,3,1)
9759 xc=xc+0.1549 *tco2(i,3,1)
9760 tco2(i,4,1)=tco2(i,4,1)*co2exp(i,k,4,1)
9761 xc=xc+0.1357 *tco2(i,4,1)
9762 tco2(i,5,1)=tco2(i,5,1)*co2exp(i,k,5,1)
9763 xc=xc+0.0182 *tco2(i,5,1)
9764 tco2(i,6,1)=tco2(i,6,1)*co2exp(i,k,6,1)
9765 xc=xc+0.0220 *tco2(i,6,1)
9766 !-----band-center region
9767 tco2(i,1,2)=tco2(i,1,2)*co2exp(i,k,1,2)
9768 xc=xc+0.0766 *tco2(i,1,2)
9769 tco2(i,2,2)=tco2(i,2,2)*co2exp(i,k,2,2)
9770 xc=xc+0.1372 *tco2(i,2,2)
9771 tco2(i,3,2)=tco2(i,3,2)*co2exp(i,k,3,2)
9772 xc=xc+0.1189 *tco2(i,3,2)
9773 tco2(i,4,2)=tco2(i,4,2)*co2exp(i,k,4,2)
9774 xc=xc+0.0335 *tco2(i,4,2)
9775 tco2(i,5,2)=tco2(i,5,2)*co2exp(i,k,5,2)
9776 xc=xc+0.0169 *tco2(i,5,2)
9777 tco2(i,6,2)=tco2(i,6,2)*co2exp(i,k,6,2)
9778 xc=xc+0.0059 *tco2(i,6,2)
9779 tran(i)=tran(i)*xc
9780 enddo
9781 return
9782 end subroutine co2kdis
9784 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
9785 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
9787 subroutine n2okdis(ib,m,np,k,n2oexp,tn2o,tran)
9788 !**********************************************************************
9789 ! compute n2o transmittances between levels k1 and k2 for
9790 ! m soundings, using the k-distribution method with linear
9791 ! pressure scaling.
9792 !
9793 !---- input parameters
9794 ! spectral band (ib)
9795 ! number of grid intervals (m)
9796 ! number of levels (np)
9797 ! current level (k)
9798 ! exponentials for n2o absorption (n2oexp)
9799 !
9800 !---- updated parameters
9801 ! transmittance between levels k1 and k2 due to n2o absorption
9802 ! for the various values of the absorption coefficient (tn2o)
9803 ! total transmittance (tran)
9804 !
9805 !**********************************************************************
9806 implicit none
9807 integer ib,m,np,i,k
9808 !---- input parameters -----
9809 real(Kind=fp_kind) n2oexp(m,np,4)
9810 !---- updated parameters -----
9811 real(Kind=fp_kind) tn2o(m,4),tran(m)
9812 !---- temporary arrays -----
9813 real(Kind=fp_kind) xc
9814 !-----tn2o is computed from eq. (8.20).
9815 ! xc is the total n2o transmittance computed from (8.22)
9816 ! the k-distribution functions are given in table 5.
9817 do i=1,m
9818 !-----band 6
9819 if (ib.eq.6) then
9820 tn2o(i,1)=tn2o(i,1)*n2oexp(i,k,1)
9821 xc= 0.940414*tn2o(i,1)
9822 tn2o(i,2)=tn2o(i,2)*n2oexp(i,k,2)
9823 xc=xc+0.059586*tn2o(i,2)
9824 !-----band 7
9825 else
9826 tn2o(i,1)=tn2o(i,1)*n2oexp(i,k,1)
9827 xc= 0.561961*tn2o(i,1)
9828 tn2o(i,2)=tn2o(i,2)*n2oexp(i,k,2)
9829 xc=xc+0.138707*tn2o(i,2)
9830 tn2o(i,3)=tn2o(i,3)*n2oexp(i,k,3)
9831 xc=xc+0.240670*tn2o(i,3)
9832 tn2o(i,4)=tn2o(i,4)*n2oexp(i,k,4)
9833 xc=xc+0.058662*tn2o(i,4)
9834 endif
9835 tran(i)=tran(i)*xc
9836 enddo
9837 return
9838 end subroutine n2okdis
9840 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
9841 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
9843 subroutine ch4kdis(ib,m,np,k,ch4exp,tch4,tran)
9844 !**********************************************************************
9845 ! compute ch4 transmittances between levels k1 and k2 for
9846 ! m soundings, using the k-distribution method with
9847 ! linear pressure scaling.
9848 !
9849 !---- input parameters
9850 ! spectral band (ib)
9851 ! number of grid intervals (m)
9852 ! number of levels (np)
9853 ! current level (k)
9854 ! exponentials for ch4 absorption (ch4exp)
9855 !
9856 !---- updated parameters
9857 ! transmittance between levels k1 and k2 due to ch4 absorption
9858 ! for the various values of the absorption coefficient (tch4)
9859 ! total transmittance (tran)
9860 !
9861 !**********************************************************************
9862 implicit none
9863 integer ib,m,np,i,k
9864 !---- input parameters -----
9865 real(Kind=fp_kind) ch4exp(m,np,4)
9866 !---- updated parameters -----
9867 real(Kind=fp_kind) tch4(m,4),tran(m)
9868 !---- temporary arrays -----
9869 real(Kind=fp_kind) xc
9870 !-----tch4 is computed from eq. (8.20).
9871 ! xc is the total ch4 transmittance computed from (8.22)
9872 ! the k-distribution functions are given in table 5.
9873 do i=1,m
9874 !-----band 6
9875 if (ib.eq.6) then
9876 tch4(i,1)=tch4(i,1)*ch4exp(i,k,1)
9877 xc= tch4(i,1)
9878 !-----band 7
9879 else
9880 tch4(i,1)=tch4(i,1)*ch4exp(i,k,1)
9881 xc= 0.610650*tch4(i,1)
9882 tch4(i,2)=tch4(i,2)*ch4exp(i,k,2)
9883 xc=xc+0.280212*tch4(i,2)
9884 tch4(i,3)=tch4(i,3)*ch4exp(i,k,3)
9885 xc=xc+0.107349*tch4(i,3)
9886 tch4(i,4)=tch4(i,4)*ch4exp(i,k,4)
9887 xc=xc+0.001789*tch4(i,4)
9888 endif
9889 tran(i)=tran(i)*xc
9890 enddo
9891 return
9892 end subroutine ch4kdis
9894 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
9895 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
9897 subroutine comkdis(ib,m,np,k,comexp,tcom,tran)
9898 !**********************************************************************
9899 ! compute co2-minor transmittances between levels k1 and k2
9900 ! for m soundings, using the k-distribution method
9901 ! with linear pressure scaling.
9902 !
9903 !---- input parameters
9904 ! spectral band (ib)
9905 ! number of grid intervals (m)
9906 ! number of levels (np)
9907 ! current level (k)
9908 ! exponentials for co2-minor absorption (comexp)
9909 !
9910 !---- updated parameters
9911 ! transmittance between levels k1 and k2 due to co2-minor absorption
9912 ! for the various values of the absorption coefficient (tcom)
9913 ! total transmittance (tran)
9914 !
9915 !**********************************************************************
9916 implicit none
9917 integer ib,m,np,i,k
9918 !---- input parameters -----
9919 real(Kind=fp_kind) comexp(m,np,6)
9920 !---- updated parameters -----
9921 real(Kind=fp_kind) tcom(m,6),tran(m)
9922 !---- temporary arrays -----
9923 real(Kind=fp_kind) xc
9924 !-----tcom is computed from eq. (8.20).
9925 ! xc is the total co2 transmittance computed from (8.22)
9926 ! the k-distribution functions are given in table 6.
9927 do i=1,m
9928 !-----band 4
9929 if (ib.eq.4) then
9930 tcom(i,1)=tcom(i,1)*comexp(i,k,1)
9931 xc= 0.12159*tcom(i,1)
9932 tcom(i,2)=tcom(i,2)*comexp(i,k,2)
9933 xc=xc+0.24359*tcom(i,2)
9934 tcom(i,3)=tcom(i,3)*comexp(i,k,3)
9935 xc=xc+0.24981*tcom(i,3)
9936 tcom(i,4)=tcom(i,4)*comexp(i,k,4)
9937 xc=xc+0.26427*tcom(i,4)
9938 tcom(i,5)=tcom(i,5)*comexp(i,k,5)
9939 xc=xc+0.07807*tcom(i,5)
9940 tcom(i,6)=tcom(i,6)*comexp(i,k,6)
9941 xc=xc+0.04267*tcom(i,6)
9942 !-----band 5
9943 else
9944 tcom(i,1)=tcom(i,1)*comexp(i,k,1)
9945 xc= 0.06869*tcom(i,1)
9946 tcom(i,2)=tcom(i,2)*comexp(i,k,2)
9947 xc=xc+0.14795*tcom(i,2)
9948 tcom(i,3)=tcom(i,3)*comexp(i,k,3)
9949 xc=xc+ 0.19512*tcom(i,3)
9950 tcom(i,4)=tcom(i,4)*comexp(i,k,4)
9951 xc=xc+ 0.33446*tcom(i,4)
9952 tcom(i,5)=tcom(i,5)*comexp(i,k,5)
9953 xc=xc+ 0.17199*tcom(i,5)
9954 tcom(i,6)=tcom(i,6)*comexp(i,k,6)
9955 xc=xc+ 0.08179*tcom(i,6)
9956 endif
9957 tran(i)=tran(i)*xc
9958 enddo
9959 return
9960 end subroutine comkdis
9962 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
9963 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
9965 subroutine cfckdis(m,np,k,cfcexp,tcfc,tran)
9966 !**********************************************************************
9967 ! compute cfc-(11,12,22) transmittances between levels k1 and k2
9968 ! for m soundings, using the k-distribution method with
9969 ! linear pressure scaling.
9970 !
9971 !---- input parameters
9972 ! number of grid intervals (m)
9973 ! number of levels (np)
9974 ! current level (k)
9975 ! exponentials for cfc absorption (cfcexp)
9976 !
9977 !---- updated parameters
9978 ! transmittance between levels k1 and k2 due to cfc absorption
9979 ! for the various values of the absorption coefficient (tcfc)
9980 ! total transmittance (tran)
9981 !
9982 !**********************************************************************
9983 implicit none
9984 integer m,np,i,k
9985 !---- input parameters -----
9986 real(Kind=fp_kind) cfcexp(m,np)
9987 !---- updated parameters -----
9988 real(Kind=fp_kind) tcfc(m),tran(m)
9989 !-----tcfc is the exp factors between levels k1 and k2.
9990 do i=1,m
9991 tcfc(i)=tcfc(i)*cfcexp(i,k)
9992 tran(i)=tran(i)*tcfc(i)
9993 enddo
9994 return
9995 end subroutine cfckdis
9997 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
9998 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
10000 subroutine b10kdis(m,np,k,h2oexp,conexp,co2exp,n2oexp &
10001 ,th2o,tcon,tco2,tn2o,tran)
10002 !**********************************************************************
10003 !
10004 ! compute h2o (line and continuum),co2,n2o transmittances between
10005 ! levels k1 and k2 for m soundings, using the k-distribution
10006 ! method with linear pressure scaling.
10007 !
10008 !---- input parameters
10009 ! number of grid intervals (m)
10010 ! number of levels (np)
10011 ! current level (k)
10012 ! exponentials for h2o line absorption (h2oexp)
10013 ! exponentials for h2o continuum absorption (conexp)
10014 ! exponentials for co2 absorption (co2exp)
10015 ! exponentials for n2o absorption (n2oexp)
10016 !
10017 !---- updated parameters
10018 ! transmittance between levels k1 and k2 due to h2o line absorption
10019 ! for the various values of the absorption coefficient (th2o)
10020 ! transmittance between levels k1 and k2 due to h2o continuum
10021 ! absorption for the various values of the absorption
10022 ! coefficient (tcon)
10023 ! transmittance between levels k1 and k2 due to co2 absorption
10024 ! for the various values of the absorption coefficient (tco2)
10025 ! transmittance between levels k1 and k2 due to n2o absorption
10026 ! for the various values of the absorption coefficient (tn2o)
10027 ! total transmittance (tran)
10028 !
10029 !**********************************************************************
10030 implicit none
10031 integer m,np,i,k
10032 !---- input parameters -----
10033 real(Kind=fp_kind) h2oexp(m,np,6),conexp(m,np,3),co2exp(m,np,6,2) &
10034 ,n2oexp(m,np,4)
10035 !---- updated parameters -----
10036 real(Kind=fp_kind) th2o(m,6),tcon(m,3),tco2(m,6,2),tn2o(m,4) &
10037 ,tran(m)
10038 !---- temporary arrays -----
10039 real(Kind=fp_kind) xx
10040 !-----for h2o line. the k-distribution functions are given in table 4.
10041 do i=1,m
10042 th2o(i,1)=th2o(i,1)*h2oexp(i,k,1)
10043 xx= 0.3153*th2o(i,1)
10044 th2o(i,2)=th2o(i,2)*h2oexp(i,k,2)
10045 xx=xx+0.4604*th2o(i,2)
10046 th2o(i,3)=th2o(i,3)*h2oexp(i,k,3)
10047 xx=xx+0.1326*th2o(i,3)
10048 th2o(i,4)=th2o(i,4)*h2oexp(i,k,4)
10049 xx=xx+0.0798*th2o(i,4)
10050 th2o(i,5)=th2o(i,5)*h2oexp(i,k,5)
10051 xx=xx+0.0119*th2o(i,5)
10052 tran(i)=xx
10053 enddo
10054 !-----for h2o continuum. note that conexp(i,k,3) is for subband 3a.
10055 do i=1,m
10056 tcon(i,1)=tcon(i,1)*conexp(i,k,1)
10057 tran(i)=tran(i)*tcon(i,1)
10058 enddo
10059 !-----for co2 (table 6)
10060 do i=1,m
10061 tco2(i,1,1)=tco2(i,1,1)*co2exp(i,k,1,1)
10062 xx= 0.2673*tco2(i,1,1)
10063 tco2(i,2,1)=tco2(i,2,1)*co2exp(i,k,2,1)
10064 xx=xx+ 0.2201*tco2(i,2,1)
10065 tco2(i,3,1)=tco2(i,3,1)*co2exp(i,k,3,1)
10066 xx=xx+ 0.2106*tco2(i,3,1)
10067 tco2(i,4,1)=tco2(i,4,1)*co2exp(i,k,4,1)
10068 xx=xx+ 0.2409*tco2(i,4,1)
10069 tco2(i,5,1)=tco2(i,5,1)*co2exp(i,k,5,1)
10070 xx=xx+ 0.0196*tco2(i,5,1)
10071 tco2(i,6,1)=tco2(i,6,1)*co2exp(i,k,6,1)
10072 xx=xx+ 0.0415*tco2(i,6,1)
10073 tran(i)=tran(i)*xx
10074 enddo
10075 !-----for n2o (table 5)
10076 do i=1,m
10077 tn2o(i,1)=tn2o(i,1)*n2oexp(i,k,1)
10078 xx= 0.970831*tn2o(i,1)
10079 tn2o(i,2)=tn2o(i,2)*n2oexp(i,k,2)
10080 xx=xx+0.029169*tn2o(i,2)
10081 tran(i)=tran(i)*(xx-1.0)
10082 enddo
10083 return
10084 end subroutine b10kdis
10086 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
10087 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
10089 subroutine cldovlp (m,np,k2,ict,icb,it,im,ib, &
10090 cldhi,cldmd,cldlw,fcld,tcldlyr,fclr)
10091 !***********************************************************************
10092 ! compute the fractional clear line-of-sight between levels k1
10093 ! and k2
10094 !
10095 ! input parameters
10096 !
10097 ! m: number of soundings
10098 ! np: number of layers
10099 ! k2: index for the level
10100 ! ict: the level separating high and middle clouds
10101 ! icb: the level separating middle and low clouds
10102 ! it: number of cloudy layers in the high-cloud group
10103 ! im: number of cloudy layers in the middle-cloud group
10104 ! ib: number of cloudy layers in the low-cloud group
10105 ! fcld: fractional cloud cover of a layer
10106 ! tcldlyr: transmittance of a cloud layer
10107 !
10108 ! output parameter
10109 !
10110 ! fclr: clear line-of-sight between levels k1 and k2
10111 !***********************************************************************
10112 implicit none
10113 integer m,np,k2,ict(m),icb(m)
10114 integer i,j,k,ii,it(m),im(m),ib(m),itx(m,np),imx(m,np),ibx(m,np)
10115 real(Kind=fp_kind) cldhi(m),cldmd(m),cldlw(m)
10116 real(Kind=fp_kind) fcld(m,np),tcldlyr(m,np),fclr(m)
10117 !***********************************************************************
10118 do i=1,m
10119 !-----for high clouds
10120 ! "it" is the number of high-cloud layers
10121 if (k2.le.ict(i)) then
10122 if(fcld(i,k2-1).gt.0.001) then
10123 it(i)=it(i)+1
10124 ii=it(i)
10125 itx(i,ii)=k2-1
10126 if (ii .eq. 1) go to 11
10127 !-----rearrange the order of cloud layers with increasing cloud amount
10128 do k=1,ii-1
10129 j=itx(i,k)
10130 if(fcld(i,j).gt.fcld(i,k2-1)) then
10131 do j=ii-1,k,-1
10132 itx(i,j+1)=itx(i,j)
10133 enddo
10134 itx(i,k)=k2-1
10135 go to 11
10136 endif
10137 enddo
10138 11 continue
10139 !-----compute equivalent black-body high cloud amount
10140 cldhi(i)=0.0
10141 do k=1,ii
10142 j=itx(i,k)
10143 cldhi(i)=fcld(i,j)-tcldlyr(i,j)*(fcld(i,j)-cldhi(i))
10144 enddo
10145 endif
10146 endif
10147 !-----for middle clouds
10148 ! "im" is the number of middle-cloud layers
10149 if (k2.gt.ict(m) .and. k2.le.icb(m)) then
10150 if(fcld(i,k2-1).gt.0.001) then
10151 im(i)=im(i)+1
10152 ii=im(i)
10153 imx(i,ii)=k2-1
10154 if (ii .eq. 1) go to 21
10155 !-----rearrange the order of cloud layers with increasing cloud amount
10156 do k=1,ii-1
10157 j=imx(i,k)
10158 if(fcld(i,j).gt.fcld(i,k2-1)) then
10159 do j=ii-1,k,-1
10160 imx(i,j+1)=imx(i,j)
10161 enddo
10162 imx(i,k)=k2-1
10163 go to 21
10164 endif
10165 enddo
10166 21 continue
10167 !-----compute equivalent black-body middle cloud amount
10168 cldmd(i)=0.0
10169 do k=1,ii
10170 j=imx(i,k)
10171 cldmd(i)=fcld(i,j)-tcldlyr(i,j)*(fcld(i,j)-cldmd(i))
10172 enddo
10173 endif
10174 endif
10175 !-----for low clouds
10176 ! "ib" is the number of low-cloud layers
10177 if (k2.gt.icb(m)) then
10178 if(fcld(i,k2-1).gt.0.001) then
10179 ib(i)=ib(i)+1
10180 ii=ib(i)
10181 ibx(i,ii)=k2-1
10182 if (ii .eq. 1) go to 31
10183 !-----rearrange the order of cloud layers with increasing cloud amount
10184 do k=1,ii-1
10185 j=ibx(i,k)
10186 if(fcld(i,j).gt.fcld(i,k2-1)) then
10187 do j=ii-1,k,-1
10188 ibx(i,j+1)=ibx(i,j)
10189 enddo
10190 ibx(i,k)=k2-1
10191 go to 31
10192 endif
10193 enddo
10194 31 continue
10195 !-----compute equivalent black-body low cloud amount
10196 cldlw(i)=0.0
10197 do k=1,ii
10198 j=ibx(i,k)
10199 cldlw(i)=fcld(i,j)-tcldlyr(i,j)*(fcld(i,j)-cldlw(i))
10200 enddo
10201 endif
10202 endif
10203 !-----fclr is the equivalent clear fraction between levels k1 and k2
10204 ! assuming the three cloud groups are randomly overlapped.
10205 ! it follows eqs. (10) and (12).
10206 fclr(i)=(1.0-cldhi(i))*(1.0-cldmd(i))*(1.0-cldlw(i))
10207 enddo !i loop
10208 return
10209 end subroutine cldovlp
10211 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
10212 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
10214 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
10215 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
10217 end module module_ra_goddard