!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
! ------------------ Goddard Radiation Code ---------------------------------
!
! Purpose :
! Drive Goddard radiative transfer to compute radiative heating rate and surface radiation.
!
!
! Method (Calling sequence) :
! goddardrad(preparation for radiative transfer)
! |-- o3_profile (intepolate ozone profile)
! |-- swrad(compute SW radiative transfer)
! | |-- sw_uvpar(compute SW radiative transfer for UV band)
! | | |-cloud_scale(scale cloud optical thickness for diffuse/direct radiation)
! | | |-delta_eddington(delta-eddington approximation for the bulk scattering properties)
! | | |-twostream_adding(compute updown fluxes using two-stream adding method)
! | |-- sw_ir(compute SW radiative transfer for IR band)
! | | |-cloud_scale(scale cloud optical thickness for diffuse/direct radiation)
! | | |-delta_eddington(delta-eddington approximation for the bulk scattering properties)
! | | |-twostream_adding(compute updown fluxes using two-stream adding method)
! | |-- rflx(compute the reduction of clear-sky downward solar flux)
! |
! |-- lwrad(compute LW radiative transfer)
! |-- column(compute column-integrated amount of absorber)
! |-- h2oexps(compute exponentials for water vapor line absorption)
! |-- conexps(compute exponentials for continuum absorption)
! |-- co2exps(compute co2 exponentials)
! |-- ch4exps(compute ch4 exponentials)
! |-- comexps(compute co2-minor exponentials)
! |-- cfcexps(compute cfc exponentials)
! |-- b10exps(compute band3a exponentials)
! |-- tablup(compute water vapor, co2 and o3 transmittances)
! |-- h2okdis(compute water vapor transmittance using kdistirubion method)
! |-- co2kdis(compute co2 transmittances using k-distribution method)
! |-- n2okdis(compute n2o transmittances using k-distribution method)
! |-- ch4kdis(compute ch4 transmittances using k-distribution method)
! |-- comkdis(compute co2-minor transmittances using k-distribution method)
! |-- cfckdis(compute cfc transmittances using k-distribution method)
! |-- b10kdis(compute band3a transmittances using k-distribution method)
! |-- cldovlp(compute the fractional clear line-of-sight)
!
!
! History :
! Aug 2007 , Toshi Matsui : One-dimensinalized swrad to skip swrad in night.
! Jun 2007 , Toshi Matsui ; Revise broadband flux reduction to avoid negative SW heating.
! May 2007 , Toshi Matsui ; Made driver to plug WRF, GOCCART module, and F90 revision.
! Apr 2007 , Toshi Matsui ; SW radiation routine is optimized (add fast_overcast option for CRM).
! 1996 ~ 2002 , Ming-dah Chou and Max Suarez ; initial and misc changes
!
!
! Refferences :
! Chou M.-D., and M. J. Suarez, 1999: A solar radiation parameterization for atmospheric studies.
! NASA Tech. Rep. NASA/TM-1999-10460, vol. 15, 38 pp
! Chou M.-D., and M. J. Suarez, 2001: A thermal infrared radiation parameterization for atmospheric
! studies. NASA/TM-2001-104606, vol. 19, 55pp
! Matsui, T., W.-K. Tao, and J. J. Shi: 2007: Goddard Radiation and Aerosol Direct Effect in Goddard
! WRF, NASA/UMD WRF Meeting, Sep 14 2007.
! Shi, J. J., W.-K. Tao, T. Matsui, R. Cifelli, A. Hou, S. Lang, A. Tokey, N.-Y. Wang,
! C. Peters-Lidard, G. Jackson, S. Rutledge, W. Petersen, 2010: WRF Simulations of the
! 20-22 January 2007 Snow Events over Eastern Canada: Comparison with in-situ and Satellite
! Observations. J. Applied Meteor. Climatol, 49, 2246-2266.
!
!
! Bug report:
! If you find any bug, please report to
! Toshi Matsui @ NASA GSFC, email:toshihisa.matsui-1@nasa.gov
! Jainn J. Shi @ NASA GSFC, email:jainn.j.shi@nasa.gov
!
! We will report bugs to
! Ming-Dah Chou @ National Taiwa University mdchou@webmail.as.ntu.edu.tw
!---------------------------------------------------------------------------------------------------------
module module_ra_goddard 1
! encapsulation control
private !-> privatize all variables in this module excepting public parameter (subroutine) below.
public :: goddardrad !only this subroutine can be called from other module
integer,parameter :: fp_kind = selected_real_kind(15) !Real precision (6-single 15-double 20-quad)
!-------------------------------------------------------------------------------
!--------------------- User Modification -----------------------------------
! (Both SW and LW radiation option)
! there is an option of providing either cloud ice/water mixing ratio
! (cwc) or optical thickness (taucld). if the former is provided, set
! cldwater=.true., and taucld is computed from cwc and reff as a
! function of spectra band. otherwise, set cldwater=.false., and
! specify taucld, independent of spectral band.
logical,parameter :: cldwater = .true. !ALWAYS .true.
! (Both SW and LW radiation option)
! in a high spatial-resolution atmospheric model, fractional cloud cover
! might be computed to be either 0 or 1. in such a case, scaling of the
! cloud optical thickness is not necessary, and the computation can be
! made faster by setting overcast=.true. otherwise, set the option
! overcast=.false. (-> hardwire with WRF module)
logical,parameter :: overcast = .true. ! recommend true for CRM or LES
! (SW radition option)
! For overcast (=true) option, this option (fast_overcast=.true.) skip the clear-sky
! two-stream radiative transfer computation, and only compute cloudy ski option.
! Fclear/Fcloud is estimated from pre-computed look-up table for the below cloud
! flux reduction due to CO2 and O2. So, this option make SW radiation faster 1.5 time.
! Difference in surface downwelling radiation betweeen true and false option is less than 1.W/m^2.
logical,parameter :: fast_overcast = .true. ! recommend true
! (LW radiation option)
! if high = .true., transmission functions in the co2, o3, and the
! three water vapor bands with strong absorption are computed using
! table look-up. cooling rates are computed accurately from the
! surface up to 0.01 mb. But slightly computationally expensive.
!
! if high = .false., transmission functions in LW radiation are computed using the
! k-distribution method with linear pressure scaling for all spectral
! bands and gases. cooling rates are not accurately calculated for
! pressures less than 10 mb. But, the computationally slightly cheap.
logical,parameter :: high = .false. !recommend false for CRM
!recommend true if you include storatosphere (<10mb)
! (LW radiation option)
! if trace = .true., absorption due to n2o, ch4, cfcs, and the
! two minor co2 bands in the LW window region is included.
! if trace = .false., absorption in those minor bands is neglected.
logical,parameter :: trace = .true. !recommend true
real(Kind=fp_kind), parameter :: co2 = 336.77e-6 ! co2 concentration [ppv] (Y1850 = 285.43e-6)
real(Kind=fp_kind), parameter :: n2o = 0.32e-6 ! n2o concentration [ppv] (Y1850 = 0.28e-6)
real(Kind=fp_kind), parameter :: ch4 = 1.79e-6 ! ch4 concentration [ppv] (Y1850 = 0.86e-6)
real(Kind=fp_kind), parameter :: cfc11 = 268.0e-12 ! cfc11 concentration [ppv] (Y1850 = 0.)
real(Kind=fp_kind), parameter :: cfc12 = 503.0e-12 ! cfc12 concentration [ppv] (Y1850 = 0.)
real(Kind=fp_kind), parameter :: cfc22 = 105.0e-12 ! cfc22 concentration [ppv] (Y1850 = 0.)
! some tuning parameters
real(Kind=fp_kind), parameter :: re = 10. ! cloud droplet effective radius [micron]
!--------------------- End of User Modification -----------------------------
!-------------------------------------------------------------------------------
! number of radiation bands
integer, parameter :: ib_sw = 11 !number of shortwave band
integer, parameter :: ib_lw = 10 !number of longwave band
! Threshold values
! - Do not change. These values are the lowest threshold, while avoiding numerical instability.
real(Kind=fp_kind), parameter :: cosz_min = 0.0001 ! threshold of minimum cosizne of solar zenith angle for SW rad
real(Kind=fp_kind), parameter :: fcld_min = 0.01 ! threshold of minimum cloud fraction for account clooud
real(Kind=fp_kind), parameter :: taux_min = 0.0001 ! threshold of minimum optical depth for accouting cloud (0.02)
real(Kind=fp_kind), parameter :: opt_min = 1.e-6 ! threshold of optical properties to avoid numerical instability.
integer :: jloop
contains
!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
subroutine goddardrad( rthraten, gsf, xlat,xlong & 2,3
,dz8w,t8w,rho_phy,sw_or_lw &
,alb,emiss,t3d,qv3d,qc3d,qr3d &
,qi3d,qs3d,qg3d &
,p3d,p8w3d,pi3d,cldfra3d &
,gmt,cp,g,julday,xtime,declin,solcon &
,center_lat &
,radfrq,degrad,taucldi,taucldc,warm_rain &
,f_qv,f_qc,f_qr,f_qi,f_qs,f_qg &
,ids,ide, jds,jde, kds,kde &
,ims,ime, jms,jme, kms,kme &
,its,ite, jts,jte, kts,kte &
! ,cosz_urb2d,omg_urb2d & !optional urban
,ERBE_out & !optional sdsu
)
implicit none
!------- I / O variables ----------------------------------------------
character(len=2), intent(in) :: &
sw_or_lw ! 'sw'=shortwave radiation,'lw'=longwave radiation,'is'=ISCCP simulator
integer, intent(in) :: &
ids, & ! start index for i in domain
ide, & ! end index for i in domain
jds, & ! start index for j in domain
jde, & ! end index for j in domain
kds, & ! start index for k in domain
kde, & ! end index for k in domain
ims, & ! start index for i in memory
ime, & ! end index for i in memory
jms, & ! start index for j in memory
jme, & ! end index for j in memory
kms, & ! start index for k in memory
kme, & ! end index for k in memory
its, & ! start index for i in tile
ite, & ! end index for i in tile
jts, & ! start index for j in tile
jte, & ! end index for j in tile
kts, & ! start index for k in tile
kte, & ! end index for k in tile
julday ! integer of julian date
logical, intent(in) :: &
warm_rain ! logics for warm_rain only or not
real, intent(in) :: &
radfrq, & ! time for calling radiation (min)
degrad, & ! conversion factor for degrees to radians (pi/180.) (rad/deg)
xtime, & ! time since simulation start (min)
declin, & ! solar declination angle (rad)
solcon, & ! solar constant (W/m^2)
gmt, & ! greenwich mean time hour of model start (hour)
cp, & ! heat capacity at constant pressure for dry air (J/kg/K)
g ! acceleration due to gravity (m/s^2)
real, dimension( ims:ime, kms:kme, jms:jme ), intent(in) :: &
p3d, & ! pressure (Pa)
p8w3d, & ! pressure at full levels (Pa)
pi3d, & ! exner function (-)
t3d, & ! temperature (K)
t8w, & ! temperature at full levels (K)
dz8w, & ! dz between full levels (m)
rho_phy, & ! density (kg/m^3)
cldfra3d ! cloud fraction (0-1)
real, dimension( ims:ime, jms:jme ), intent(in) :: &
xlat, & ! latitude, south is negative (degree)
xlong, & ! longitude, west is negative (degree)
alb, & ! broadband surface albedo (between 0 and 1)
emiss ! broadband surface emissivity (between 0 and 1)
real, dimension( ims:ime, kms:kme, jms:jme ),optional,intent(in) :: &
qv3d, & ! water vapor mixing ratio (kg/kg) (in)
qc3d, & ! cloud water mixing ratio (kg/kg) (in)
qr3d, & ! rain water mixing ratio (kg/kg) (in)
qi3d, & ! cloud ice mixing ratio (kg/kg) (in)
qs3d, & ! snow mixing ratio (kg/kg) (in)
qg3d ! graupel mixing ration (kg/kg) (in)
logical, optional, intent(in ) :: f_qv,f_qc,f_qr,f_qi,f_qs,f_qg !hydrometeor flags
!
real, dimension( ims:ime, kms:kme, jms:jme ), intent(inout) :: &
rthraten, & ! theta tendency due to radiative heating (K/sec)
taucldi, & ! ice cloud optical thickness for visible broadband
taucldc ! liquid cloud optical thickness for visible braodband
real, dimension( ims:ime, jms:jme ), intent(inout) :: &
gsf ! (for SW) : net short wave flux at ground surface (W/m^2)
! (for LW) : downward long wave flux at ground surface (W/m^2)
!
!
! Extra 3D variables (last dimension 1-TOA LW down, 2-TOA LW up, 3-surface LW down, 4-surface LW up)
! 5-TOA SW down, 6-TOA SW up, 7-surface SW down, 8-surface SW up)
real, optional,dimension(ims:ime, jms:jme, 1:8),intent(out) :: ERBE_out !extra output for SDSU
!------- Local variables ----------------------------------------------
integer :: i,j,k,nk,ib,is ! loop indice
integer :: mix, mkx !maximum dimension for i and k
real(Kind=fp_kind), dimension( its:ite ) :: &
cosz, & ! cosine of solar zenith angle (0~1)
rsuvbm, & ! surface albedo for direct UV-VIS radiation
rsuvdf, & ! surface albedo for diffuse UV-VIS radiation
rsirbm, & ! surface albedo for direct NIR radiation
rsirdf, & ! surface albedo for diffuse NIR radiation
tsfc, & ! surface air temperature (K)
tskin, & ! surface skin (radiative) temperature (K)
p400, & ! pressure criteria for upper
p700 ! pressure criteir for middle
real(Kind=fp_kind), dimension( its:ite, ib_lw ) :: emis2d !emissivity
integer, dimension( its:ite ) :: &
ict, & ! 400mb level indice
icb ! 700mb level indice
real(Kind=fp_kind), dimension( its:ite, kts-1:kte+1 ) :: &
flx, & !flux fraction (-) or actual flux (W/m^2)
flxd, & !donwelling flux fraction [-] (for shortwave) , but actual flux [W/m2] (for longwave)
flxu !upwelling flux fraction [-] (for shortwave) , but actual flux [W/m2] (for longwave)
real(Kind=fp_kind), dimension( its:ite, kts-1:kte ) :: o3 !ozone profile
real(Kind=fp_kind), dimension( its:ite, kts-1:kte, ib_sw ) :: &
taual_sw, & ! aerosol optical depth for SW bands
ssaal_sw, & ! aerosol single scattering albedo for SW bands
asyal_sw ! aerosol asymetry factor for SW bands
real(Kind=fp_kind), dimension( its:ite, kts-1:kte, ib_lw ) :: &
taual_lw, & ! aerosol optical depth for LW bands
ssaal_lw, & ! aerosol single scattering albedo for LW bands
asyal_lw ! aerosol asymetry factor for LW bands
real(Kind=fp_kind), dimension( its:ite, kts-1:kte, 3 ) :: & !1-ice cloud, 2-liquid cloud, 3-rain
reff, & !particle effective size (micron)
cwc !hydrometer mixing ratio (kg/kg) or (g/g)
real(Kind=fp_kind), dimension( its: ite, kts-1:kte+1 ) :: &
p8w2d, & ! pressure in full level (mb)
t8w2d ! temperature in full level (K)
real(Kind=fp_kind), dimension( its: ite, kts-1:kte ) :: &
tten2d, & ! temperature tendency (K/sec)
sh2d, & ! specific humidity (-)
p2d, & ! pressure (mb)
t2d, & ! temperature (K)
dz2d, & ! layer depth
fcld2d ! cloud fraction
real(Kind=fp_kind), dimension( its:ite , kts:kte+1 ) :: phyd ! pressure (Pa)
real(Kind=fp_kind), dimension( its:ite , kts:kte ) :: phydmid ! pressure in middle (Pa)
!
! ozone table
!
integer, parameter :: np = 75
real(Kind=fp_kind), dimension( np, 5 ) :: pres, ozone
real(Kind=fp_kind), dimension( np ) :: p
integer :: iprof !index for porfile
integer,parameter :: is_summer = 80 !summer start indice
integer,parameter :: ie_summer = 265 !summer end indice
!
real(Kind=fp_kind) :: fac,x
real(Kind=fp_kind) :: xt24,tloctm,hrang,xxlat
real, intent(in) :: center_lat ! center of latitude
!urban
! real, optional, dimension( ims:ime, jms:jme ), intent(out) :: cosz_urb2d !urban
! real, optional, dimension( ims:ime, jms:jme ), intent(out) :: omg_urb2d !urban
!--------------------------------------------------------------------------------
! data set 1
! mid-latitude summer (75 levels) : p(mb) o3(g/g)
! surface temp = 294.0
!
data (pres(i,1),i=1,np)/ &
0.0006244, 0.0008759, 0.0012286, 0.0017234, 0.0024174, &
0.0033909, 0.0047565, 0.0066720, 0.0093589, 0.0131278, &
0.0184145, 0.0258302, 0.0362323, 0.0508234, 0.0712906, &
0.1000000, 0.1402710, 0.1967600, 0.2759970, 0.3871430, &
0.5430, 0.7617, 1.0685, 1.4988, 2.1024, 2.9490, &
4.1366, 5.8025, 8.1392, 11.4170, 16.0147, 22.4640, &
31.5105, 44.2001, 62.0000, 85.7750, 109.5500, 133.3250, &
157.1000, 180.8750, 204.6500, 228.4250, 252.2000, 275.9750, &
299.7500, 323.5250, 347.3000, 371.0750, 394.8500, 418.6250, &
442.4000, 466.1750, 489.9500, 513.7250, 537.5000, 561.2750, &
585.0500, 608.8250, 632.6000, 656.3750, 680.1500, 703.9250, &
727.7000, 751.4750, 775.2500, 799.0250, 822.8000, 846.5750, &
870.3500, 894.1250, 917.9000, 941.6750, 965.4500, 989.2250, &
1013.0000/
!
data (ozone(i,1),i=1,np)/ &
0.1793e-06, 0.2228e-06, 0.2665e-06, 0.3104e-06, 0.3545e-06, &
0.3989e-06, 0.4435e-06, 0.4883e-06, 0.5333e-06, 0.5786e-06, &
0.6241e-06, 0.6698e-06, 0.7157e-06, 0.7622e-06, 0.8557e-06, &
0.1150e-05, 0.1462e-05, 0.1793e-05, 0.2143e-05, 0.2512e-05, &
0.2902e-05, 0.3313e-05, 0.4016e-05, 0.5193e-05, 0.6698e-05, &
0.8483e-05, 0.9378e-05, 0.9792e-05, 0.1002e-04, 0.1014e-04, &
0.9312e-05, 0.7834e-05, 0.6448e-05, 0.5159e-05, 0.3390e-05, &
0.1937e-05, 0.1205e-05, 0.8778e-06, 0.6935e-06, 0.5112e-06, &
0.3877e-06, 0.3262e-06, 0.2770e-06, 0.2266e-06, 0.2020e-06, &
0.1845e-06, 0.1679e-06, 0.1519e-06, 0.1415e-06, 0.1317e-06, &
0.1225e-06, 0.1137e-06, 0.1055e-06, 0.1001e-06, 0.9487e-07, &
0.9016e-07, 0.8641e-07, 0.8276e-07, 0.7930e-07, 0.7635e-07, &
0.7347e-07, 0.7065e-07, 0.6821e-07, 0.6593e-07, 0.6368e-07, &
0.6148e-07, 0.5998e-07, 0.5859e-07, 0.5720e-07, 0.5582e-07, &
0.5457e-07, 0.5339e-07, 0.5224e-07, 0.5110e-07, 0.4999e-07/
!--------------------------------------------------------------------------------
! data set 2
! mid-latitude winter (75 levels) : p(mb) o3(g/g)
! surface temp = 272.2
!
data (pres(i,2),i=1,np)/ &
0.0006244, 0.0008759, 0.0012286, 0.0017234, 0.0024174, &
0.0033909, 0.0047565, 0.0066720, 0.0093589, 0.0131278, &
0.0184145, 0.0258302, 0.0362323, 0.0508234, 0.0712906, &
0.1000000, 0.1402710, 0.1967600, 0.2759970, 0.3871430, &
0.5430, 0.7617, 1.0685, 1.4988, 2.1024, 2.9490, &
4.1366, 5.8025, 8.1392, 11.4170, 16.0147, 22.4640, &
31.5105, 44.2001, 62.0000, 85.9000, 109.8000, 133.7000, &
157.6000, 181.5000, 205.4000, 229.3000, 253.2000, 277.1000, &
301.0000, 324.9000, 348.8000, 372.7000, 396.6000, 420.5000, &
444.4000, 468.3000, 492.2000, 516.1000, 540.0000, 563.9000, &
587.8000, 611.7000, 635.6000, 659.5000, 683.4000, 707.3000, &
731.2000, 755.1000, 779.0000, 802.9000, 826.8000, 850.7000, &
874.6000, 898.5000, 922.4000, 946.3000, 970.2000, 994.1000, &
1018.0000/
!
data (ozone(i,2),i=1,np)/ &
0.2353e-06, 0.3054e-06, 0.3771e-06, 0.4498e-06, 0.5236e-06, &
0.5984e-06, 0.6742e-06, 0.7511e-06, 0.8290e-06, 0.9080e-06, &
0.9881e-06, 0.1069e-05, 0.1152e-05, 0.1319e-05, 0.1725e-05, &
0.2145e-05, 0.2581e-05, 0.3031e-05, 0.3497e-05, 0.3980e-05, &
0.4478e-05, 0.5300e-05, 0.6725e-05, 0.8415e-05, 0.1035e-04, &
0.1141e-04, 0.1155e-04, 0.1143e-04, 0.1093e-04, 0.1060e-04, &
0.9720e-05, 0.8849e-05, 0.7424e-05, 0.6023e-05, 0.4310e-05, &
0.2820e-05, 0.1990e-05, 0.1518e-05, 0.1206e-05, 0.9370e-06, &
0.7177e-06, 0.5450e-06, 0.4131e-06, 0.3277e-06, 0.2563e-06, &
0.2120e-06, 0.1711e-06, 0.1524e-06, 0.1344e-06, 0.1199e-06, &
0.1066e-06, 0.9516e-07, 0.8858e-07, 0.8219e-07, 0.7598e-07, &
0.6992e-07, 0.6403e-07, 0.5887e-07, 0.5712e-07, 0.5540e-07, &
0.5370e-07, 0.5214e-07, 0.5069e-07, 0.4926e-07, 0.4785e-07, &
0.4713e-07, 0.4694e-07, 0.4676e-07, 0.4658e-07, 0.4641e-07, &
0.4634e-07, 0.4627e-07, 0.4619e-07, 0.4612e-07, 0.4605e-07/
!--------------------------------------------------------------------------------
! data set 3
! sub-arctic summer (75 levels) : p(mb) o3(g/g)
! surface temp = 287.0
!
data (pres(i,3),i=1,np)/ &
0.0006244, 0.0008759, 0.0012286, 0.0017234, 0.0024174, &
0.0033909, 0.0047565, 0.0066720, 0.0093589, 0.0131278, &
0.0184145, 0.0258302, 0.0362323, 0.0508234, 0.0712906, &
0.1000000, 0.1402710, 0.1967600, 0.2759970, 0.3871430, &
0.5430, 0.7617, 1.0685, 1.4988, 2.1024, 2.9490, &
4.1366, 5.8025, 8.1392, 11.4170, 16.0147, 22.4640, &
31.5105, 44.2001, 62.0000, 85.7000, 109.4000, 133.1000, &
156.8000, 180.5000, 204.2000, 227.9000, 251.6000, 275.3000, &
299.0000, 322.7000, 346.4000, 370.1000, 393.8000, 417.5000, &
441.2000, 464.9000, 488.6000, 512.3000, 536.0000, 559.7000, &
583.4000, 607.1000, 630.8000, 654.5000, 678.2000, 701.9000, &
725.6000, 749.3000, 773.0000, 796.7000, 820.4000, 844.1000, &
867.8000, 891.5000, 915.2000, 938.9000, 962.6000, 986.3000, &
1010.0000/
!
data (ozone(i,3),i=1,np)/ &
0.1728e-06, 0.2131e-06, 0.2537e-06, 0.2944e-06, 0.3353e-06, &
0.3764e-06, 0.4176e-06, 0.4590e-06, 0.5006e-06, 0.5423e-06, &
0.5842e-06, 0.6263e-06, 0.6685e-06, 0.7112e-06, 0.7631e-06, &
0.1040e-05, 0.1340e-05, 0.1660e-05, 0.2001e-05, 0.2362e-05, &
0.2746e-05, 0.3153e-05, 0.3762e-05, 0.4988e-05, 0.6518e-05, &
0.8352e-05, 0.9328e-05, 0.9731e-05, 0.8985e-05, 0.7632e-05, &
0.6814e-05, 0.6384e-05, 0.5718e-05, 0.4728e-05, 0.4136e-05, &
0.3033e-05, 0.2000e-05, 0.1486e-05, 0.1121e-05, 0.8680e-06, &
0.6474e-06, 0.5164e-06, 0.3921e-06, 0.2996e-06, 0.2562e-06, &
0.2139e-06, 0.1723e-06, 0.1460e-06, 0.1360e-06, 0.1267e-06, &
0.1189e-06, 0.1114e-06, 0.1040e-06, 0.9678e-07, 0.8969e-07, &
0.8468e-07, 0.8025e-07, 0.7590e-07, 0.7250e-07, 0.6969e-07, &
0.6694e-07, 0.6429e-07, 0.6208e-07, 0.5991e-07, 0.5778e-07, &
0.5575e-07, 0.5403e-07, 0.5233e-07, 0.5067e-07, 0.4904e-07, &
0.4721e-07, 0.4535e-07, 0.4353e-07, 0.4173e-07, 0.3997e-07/
!--------------------------------------------------------------------------------
! data set 3
! sub-arctic winter (75 levels) : p(mb) o3(g/g)
! surface temp = 257.1
!
data (pres(i,4),i=1,np)/ &
0.0006244, 0.0008759, 0.0012286, 0.0017234, 0.0024174, &
0.0033909, 0.0047565, 0.0066720, 0.0093589, 0.0131278, &
0.0184145, 0.0258302, 0.0362323, 0.0508234, 0.0712906, &
0.1000000, 0.1402710, 0.1967600, 0.2759970, 0.3871430, &
0.5430, 0.7617, 1.0685, 1.4988, 2.1024, 2.9490, &
4.1366, 5.8025, 8.1392, 11.4170, 16.0147, 22.4640, &
31.5105, 44.2001, 62.0000, 85.7750, 109.5500, 133.3250, &
157.1000, 180.8750, 204.6500, 228.4250, 252.2000, 275.9750, &
299.7500, 323.5250, 347.3000, 371.0750, 394.8500, 418.6250, &
442.4000, 466.1750, 489.9500, 513.7250, 537.5000, 561.2750, &
585.0500, 608.8250, 632.6000, 656.3750, 680.1500, 703.9250, &
727.7000, 751.4750, 775.2500, 799.0250, 822.8000, 846.5750, &
870.3500, 894.1250, 917.9000, 941.6750, 965.4500, 989.2250, &
1013.0000/
!
data (ozone(i,4),i=1,np)/ &
0.2683e-06, 0.3562e-06, 0.4464e-06, 0.5387e-06, 0.6333e-06, &
0.7301e-06, 0.8291e-06, 0.9306e-06, 0.1034e-05, 0.1140e-05, &
0.1249e-05, 0.1360e-05, 0.1474e-05, 0.1855e-05, 0.2357e-05, &
0.2866e-05, 0.3383e-05, 0.3906e-05, 0.4437e-05, 0.4975e-05, &
0.5513e-05, 0.6815e-05, 0.8157e-05, 0.1008e-04, 0.1200e-04, &
0.1242e-04, 0.1250e-04, 0.1157e-04, 0.1010e-04, 0.9063e-05, &
0.8836e-05, 0.8632e-05, 0.8391e-05, 0.7224e-05, 0.6054e-05, &
0.4503e-05, 0.3204e-05, 0.2278e-05, 0.1833e-05, 0.1433e-05, &
0.9996e-06, 0.7440e-06, 0.5471e-06, 0.3944e-06, 0.2852e-06, &
0.1977e-06, 0.1559e-06, 0.1333e-06, 0.1126e-06, 0.9441e-07, &
0.7678e-07, 0.7054e-07, 0.6684e-07, 0.6323e-07, 0.6028e-07, &
0.5746e-07, 0.5468e-07, 0.5227e-07, 0.5006e-07, 0.4789e-07, &
0.4576e-07, 0.4402e-07, 0.4230e-07, 0.4062e-07, 0.3897e-07, &
0.3793e-07, 0.3697e-07, 0.3602e-07, 0.3506e-07, 0.3413e-07, &
0.3326e-07, 0.3239e-07, 0.3153e-07, 0.3069e-07, 0.2987e-07/
!--------------------------------------------------------------------------------
! data set 4
! tropical (75 levels) : p(mb) o3(g/g)
! surface temp = 300.0
!
data (pres(i,5),i=1,np)/ &
0.0006244, 0.0008759, 0.0012286, 0.0017234, 0.0024174, &
0.0033909, 0.0047565, 0.0066720, 0.0093589, 0.0131278, &
0.0184145, 0.0258302, 0.0362323, 0.0508234, 0.0712906, &
0.1000000, 0.1402710, 0.1967600, 0.2759970, 0.3871430, &
0.5430, 0.7617, 1.0685, 1.4988, 2.1024, 2.9490, &
4.1366, 5.8025, 8.1392, 11.4170, 16.0147, 22.4640, &
31.5105, 44.2001, 62.0000, 85.7750, 109.5500, 133.3250, &
157.1000, 180.8750, 204.6500, 228.4250, 252.2000, 275.9750, &
299.7500, 323.5250, 347.3000, 371.0750, 394.8500, 418.6250, &
442.4000, 466.1750, 489.9500, 513.7250, 537.5000, 561.2750, &
585.0500, 608.8250, 632.6000, 656.3750, 680.1500, 703.9250, &
727.7000, 751.4750, 775.2500, 799.0250, 822.8000, 846.5750, &
870.3500, 894.1250, 917.9000, 941.6750, 965.4500, 989.2250, &
1013.0000/
!
data (ozone(i,5),i=1,np)/ &
0.1993e-06, 0.2521e-06, 0.3051e-06, 0.3585e-06, 0.4121e-06, &
0.4661e-06, 0.5203e-06, 0.5748e-06, 0.6296e-06, 0.6847e-06, &
0.7402e-06, 0.7959e-06, 0.8519e-06, 0.9096e-06, 0.1125e-05, &
0.1450e-05, 0.1794e-05, 0.2156e-05, 0.2538e-05, 0.2939e-05, &
0.3362e-05, 0.3785e-05, 0.4753e-05, 0.6005e-05, 0.7804e-05, &
0.9635e-05, 0.1023e-04, 0.1067e-04, 0.1177e-04, 0.1290e-04, &
0.1134e-04, 0.9223e-05, 0.6667e-05, 0.3644e-05, 0.1545e-05, &
0.5355e-06, 0.2523e-06, 0.2062e-06, 0.1734e-06, 0.1548e-06, &
0.1360e-06, 0.1204e-06, 0.1074e-06, 0.9707e-07, 0.8960e-07, &
0.8419e-07, 0.7962e-07, 0.7542e-07, 0.7290e-07, 0.7109e-07, &
0.6940e-07, 0.6786e-07, 0.6635e-07, 0.6500e-07, 0.6370e-07, &
0.6244e-07, 0.6132e-07, 0.6022e-07, 0.5914e-07, 0.5884e-07, &
0.5855e-07, 0.5823e-07, 0.5772e-07, 0.5703e-07, 0.5635e-07, &
0.5570e-07, 0.5492e-07, 0.5412e-07, 0.5335e-07, 0.5260e-07, &
0.5167e-07, 0.5063e-07, 0.4961e-07, 0.4860e-07, 0.4761e-07/
!--------------------------------------------------------------------------------
mix = ite-its+1 ! maximum dimension for i
mkx = kte-kts+1 ! maximum dimension for k
! testing, need to change iprof, which is function of lat and julian day
! iprof = 1 : mid-latitude summer profile
! = 2 : mid-latitude winter profile
! = 3 : sub-arctic summer profile
! = 4 : sub-arctic winter profile
! = 5 : tropical profile
!toshi
! center_lat = xlat ( mix/2, (jte-jts+1)/2 )
if (abs(center_lat) .le. 30. ) then ! tropic
iprof = 5
else
if (center_lat .gt. 0.) then
if (center_lat .gt. 60. ) then ! arctic
if (julday .gt. is_summer .and. julday .lt. ie_summer ) then
! arctic summer
iprof = 3
else
! arctic winter
iprof = 4
endif
else ! midlatitude
if (julday .gt. is_summer .and. julday .lt. ie_summer ) then
! north midlatitude summer
iprof = 1
else
! north midlatitude winter
iprof = 2
endif
endif
else
if (center_lat .lt. -60. ) then ! antarctic
if (julday .lt. is_summer .or. julday .gt. ie_summer ) then
! antarctic summer
iprof = 3
else
! antarctic winter
iprof = 4
endif
else ! midlatitude
if (julday .lt. is_summer .or. julday .gt. ie_summer ) then
! south midlatitude summer
iprof = 1
else
! south midlatitude winter
iprof = 2
endif
endif
endif
endif
j_loop: do j=jts,jte
jloop=j
!-----------------------------------------------------------------------------
do k=1,np
p(k)=pres(k,iprof)
enddo
do k = kts,kte+1
do i = its,ite
if(k.eq.kts)then
phyd(i,k)=p8w3d(i,kts,j)
else
! 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.
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
phydmid(i,k-1)=0.5*(phyd(i,k-1)+phyd(i,k))
endif
enddo
enddo
!
! reverse vars
!
do k=kts,kte+1
do i=its,ite
nk=kme-k+kms
p8w2d(i,k)=phyd(i,nk)*0.01 ! p8w2d is in mb
t8w2d(i,k) = t8w(i,nk,j)
enddo
enddo
do i=its,ite
p8w2d(i,0)=.0
enddo
!
do k=kts,kte
do i=its,ite
nk=kme-1-k+kms
tten2d(i,k)=0.
t2d(i,k)=t3d(i,nk,j)
sh2d(i,k)=qv3d(i,nk,j)/(1.+qv3d(i,nk,j))
sh2d(i,k)=max(0._fp_kind,sh2d(i,k))
p2d(i,k)=phydmid(i,nk)*0.01 ! p2d is in mb
fcld2d(i,k)=cldfra3d(i,nk,j)
dz2d(i,k) = dz8w(i,nk,j)
enddo
enddo
! this logic is tortured because cannot test f_qi unless
! it is present, and order of evaluation of expressions
! is not specified in fortran
! if (.not. warm_rain .and. .not. present ( f_qi ) ) then
! do k=kts,kte
! do i=its,ite
! if (t2d(i,k) .lt. 273.15) then
! cwc(i,k,1)=cwc(i,k,2) ! ice cloud water mixing ratio
! cwc(i,k,2)=0. ! liquid cloud water mixing ratio
! endif
! enddo
! enddo
! endif
!
! intilize TOA value -> 0.
!
do i=its,ite
tten2d(i,0)=0.
t2d(i,0)=t2d(i,1)
sh2d(i,0)=0.5*sh2d(i,1)
dz2d(i,0)=dz2d(i,1)
cwc(i,0,3)=0.
cwc(i,0,2)=0.
cwc(i,0,1)=0.
p2d(i,0)=0.5*(p8w2d(i,0)+p8w2d(i,1))
fcld2d(i,0)=0.
enddo
!
! vertical profiles for ozone
!
call o3_profile
(np, p, ozone(1,iprof), its, ite, kts-1, kte, p2d, o3)
!
! cloud water mixing ratio
!
if ( present( f_qc ) .and. present( qc3d) ) then
do k=kts,kte
do i=its,ite
nk=kme-1-k+kms
if ( (f_qc) ) then
cwc(i,k,2)=max(0.,qc3d(i,nk,j))
reff(i,k,2) = re !fixed value
x=1.02*10000.*( p8w2d(i,k+1)-p8w2d(i,k) )
taucldc(i,nk,j) = x * cwc(i,k,2) * ( 3.33e-4 + 2.52/reff(i,k,2) ) !output purpose
else
cwc(i,k,2) = 0.
reff(i,k,2) =0.
taucldc(i,nk,j) = 0.
endif
enddo
enddo
endif
!
! cloud ice mixing ratio (currently adding the snow.)
!
if ( present( f_qi ) .and. present( qi3d) ) then ! ice
do k=kts,kte
do i=its,ite
nk=kme-1-k+kms
if ( (f_qi) ) then
cwc(i,k,1)=max(0.,qi3d(i,nk,j))
reff(i,k,1) = 125. + (t2d(i,k)-243.16)*5. ! ice effective radius depends on temp
reff(i,k,1) = min(125.,max(25.,reff(i,k,1)))
x=1.02*10000.*( p8w2d(i,k+1)-p8w2d(i,k) )
taucldi(i,nk,j) = x * cwc(i,k,1) * ( -6.59e-3 + 1.65/reff(i,k,1) ) ! output purpose
else
cwc(i,k,1)= 0.
reff(i,k,1) = 0.
taucldi(i,nk,j) = 0.
endif
enddo
enddo
endif
if ( present( f_qs ) .and. present( qs3d ) ) then ! snow
do k=kts,kte
do i=its,ite
nk=kme-1-k+kms
if ( (f_qs) ) then
if ( cwc(i,k,1) > 0. ) then !ice exist
cwc(i,k,1)=cwc(i,k,1) + max(0.,qs3d(i,nk,j)) ! ice + snow
reff(i,k,1) = 125. + (t2d(i,k)-243.16)*5. ! ice + snow (use ice definition)
reff(i,k,1) = min(125.,max(25.,reff(i,k,1)))
else
cwc(i,k,1)= max(0.,qs3d(i,nk,j)) ! snow only (define snow is large aggrefated ice)
reff(i,k,1) = 125. ! snow only (use largest reff of ice)
endif
x=1.02*10000.*( p8w2d(i,k+1)-p8w2d(i,k) )
taucldi(i,nk,j) = x * cwc(i,k,1) * ( -6.59e-3 + 1.65/reff(i,k,1) ) ! output purpose
else
! cwc(i,k,1)=cwc(i,k,1)
endif
enddo
enddo
endif
!
! rain mixing ratio (currently adding graupel here, since it's size are much larger than ice and snow)
!
if ( present( f_qr ) .and. present( qr3d) ) then ! rain
do k=kts,kte
do i=its,ite
nk=kme-1-k+kms
if ( (f_qr) ) then
cwc(i,k,3) = max(0.,qr3d(i,nk,j))
else
cwc(i,k,3) = 0.
endif
enddo
enddo
endif
if ( present( f_qg ) .and. present( qg3d) ) then ! graupel (-> change)
do k=kts,kte
do i=its,ite
nk=kme-1-k+kms
if ( (f_qg) ) then
if( cwc(i,k,3) > 0.) then
cwc(i,k,3)=cwc(i,k,3) + max(0.,qg3d(i,nk,j))
else
cwc(i,k,3)= max(0.,qg3d(i,nk,j))
endif
else
cwc(i,k,3)=cwc(i,k,3)
endif
enddo
enddo
endif
!
! Vertical profiles for effective particle size (old)
!
! do k = kts-1, kte
! do i = its, ite
! reff(i,k,1) = 80.
! reff(i,k,2) = 10.
! reff(i,k,3) = 500. !dummy not used
! end do
! end do
!
! filter min and max value of effective size
!
do k = kts-1, kte
do i = its, ite
reff(i,k,1) = max( min(reff(i,k,1),125._fp_kind) , 25._fp_kind) !ice
reff(i,k,2) = max( min(reff(i,k,2), 20._fp_kind) , 4._fp_kind) !liquid
reff(i,k,3) = max( min(reff(i,k,3), 60._fp_kind) , 1800._fp_kind) !rain (dummy not used)
end do
end do
!
! level indices separating high, middle and low clouds
!
do i = its, ite
p400(i) = 1.e5
p700(i) = 1.e5
enddo
do k = kts-1,kte+1
do i = its, ite
if (abs(p8w2d(i,k) - 400.) .lt. p400(i)) then
p400(i) = abs(p8w2d(i,k) - 400.)
ict(i) = k
endif
if (abs(p8w2d(i,k) - 700.) .lt. p700(i)) then
p700(i) = abs(p8w2d(i,k) - 700.)
icb(i) = k
endif
end do
end do
rad_select: select case(sw_or_lw)
! ISCCP ISCCP ISCCP ISCCP ISCCP ISCCP ISCCP ISCCP ISCCP ISCCP ISCCP ISCCP
! ISCCP ISCCP ISCCP ISCCP ISCCP ISCCP ISCCP ISCCP ISCCP ISCCP ISCCP ISCCP
! ISCCP ISCCP ISCCP ISCCP ISCCP ISCCP ISCCP ISCCP ISCCP ISCCP ISCCP ISCCP
case('is')
! in case of isccp simulation, all we need is cloud optical depth. So return.
! SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW
! SW SW SW SW SW SW SW SW Shortwave scheme SW SW SW SW SW SW SW SW SW
! SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW SW
case ('sw')
!
! solar zenith angle and surface albedo
!
do i = its,ite
xt24 = mod(xtime + radfrq * 0.5, 1440.)
tloctm = gmt + xt24 / 60. + xlong(i,j) / 15.
hrang = 15. * (tloctm - 12.) * degrad
xxlat = xlat(i,j) * degrad
cosz(i) = sin(xxlat) * sin(declin) + &
cos(xxlat) * cos(declin) * cos(hrang)
!
! surface spectrum albedo for direct and diffuse radiation
!
rsuvbm(i) = alb(i,j)
rsuvdf(i) = alb(i,j)
rsirbm(i) = alb(i,j)
rsirdf(i) = alb(i,j)
!
! urban
!
! if(present(cosz_urb2d)) cosz_urb2d(i,j)=cosz(i) !urban
! if(present(omg_urb2d)) omg_urb2d(i,j)=hrang !urban
end do
!
! aerosol effects -> gocart aerosol module
!
do ib = 1, ib_sw
do k = kts-1,kte
do i = its,ite
taual_sw(i,k,ib) = 0.
ssaal_sw(i,k,ib) = 0.
asyal_sw(i,k,ib) = 0.
end do
end do
end do
!
! 1-dimension driver of shortwave radiative transfer scheme
!
do i = its,ite
if (cosz(i) .gt. cosz_min) then !for daytime only
call swrad
( m=1, np=mkx+1, pl=p8w2d(i,:), ta=t2d(i,:), wa=sh2d(i,:), oa=o3(i,:), &
cwc=cwc(i,:,:), reff=reff(i,:,:), fcld=fcld2d(i,:), ict=ict(i), icb=icb(i), &
taual=taual_sw(i,:,:), ssaal=ssaal_sw(i,:,:), asyal=asyal_sw(i,:,:), &
cosz=cosz(i), rsuvbm=rsuvbm(i), rsuvdf=rsuvdf(i), rsirbm=rsirbm(i), rsirdf=rsirdf(i), &
flx=flx(i,:), flxd=flxd(i,:),flxu=flxu(i,:) )
endif
enddo
!
! convert the units of flx and flc from fraction to w/m^2
!
do k = kts, kte+1
do i = its, ite
if (cosz(i) .le. cosz_min) then
flx(i,k) = 0.
else
flx(i,k) = flx(i,k) * solcon * cosz(i)
endif
end do
end do
!
! calculate heating rate (deg/sec)
!
fac = .01 * g / cp
do k = kts, kte
do i = its, ite
tten2d(i,k) = - fac * (flx(i,k) - flx(i,k+1))/ (p8w2d(i,k)-p8w2d(i,k+1))
end do
end do
do k=kts,kte
nk=kme-1-k+kms
do i=its,ite
rthraten(i,k,j)=rthraten(i,k,j)+tten2d(i,nk)/pi3d(i,k,j)
enddo
enddo
do i = its, ite
if (cosz(i) .le. cosz_min) then
gsf(i,j) = 0.
if(present(ERBE_out)) then
ERBE_out(i,j,5) = 0.
ERBE_out(i,j,6) = 0.
ERBE_out(i,j,7) = 0.
ERBE_out(i,j,8) = 0.
endif
else
!
! absorbed part in surface energy budget [W/m^2] (Note that flxd in SW is flux fraction)
!
gsf(i,j) = (1. - rsuvbm(i)) * flxd(i,kte+1) * solcon * cosz(i)
!
! extra output for SDSU
!
if(present(ERBE_out)) then
ERBE_out(i,j,5) = flxd(i,1) * solcon * cosz(i) ! TOA SW downwelling flux [W/m2]
ERBE_out(i,j,6) = flxu(i,1) * solcon * cosz(i) ! TOA SW upwelling flux [W/m2]
ERBE_out(i,j,7) = flxd(i,kte+1) * solcon * cosz(i) ! surface SW downwelling flux [W/m2]
ERBE_out(i,j,8) = flxu(i,kte+1) * solcon * cosz(i) ! surface SW upwelling flux [W/m2]
endif
endif
enddo
! LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW
! LW LW LW LW LW LW LW LW Longwave scheme LW LW LW LW LW LW LW LW LW
! LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW LW
case ('lw')
!
! aerosol effects -> gocart aerosol module
!
do ib = 1, ib_lw
do k = kts-1,kte
do i = its,ite
taual_lw(i,k,ib) = 0.
ssaal_lw(i,k,ib) = 0.
asyal_lw(i,k,ib) = 0.
end do
end do
end do
!
! surface parameters
!
do i = its,ite
emis2d(i,1:ib_lw) = emiss(i,j)
!toshi
tsfc(i)=0.5*t8w2d(i,kme) + 0.5*t2d(i,kte) !make sure
tskin(i)=t8w2d(i,kme)
end do
!
! drive goddard longwave radiative transfer scheme
!
call lwrad
(m=mix, np=mkx+1, pl=p8w2d, ta=t2d, wa=sh2d, oa=o3, tb=tsfc, ts=tskin, &
cwc=cwc, emiss=emis2d, reff=reff, fcld=fcld2d, ict=ict, icb=icb, &
taual=taual_lw, ssaal=ssaal_lw, asyal=asyal_lw, &
flx=flx, acflxd=flxd , acflxu=flxu )
!
! calculate heating rate (deg/sec)
!
fac = .01 * g / cp
do k = kts, kte
do i = its, ite
tten2d(i,k) = - fac * (flx(i,k) - flx(i,k+1))/(p8w2d(i,k)-p8w2d(i,k+1))
end do
end do
do k=kts,kte
nk=kme-1-k+kms
do i=its,ite
rthraten(i,k,j)=rthraten(i,k,j)+tten2d(i,nk)/pi3d(i,k,j) !<- potential temperature
enddo
enddo
!
! downwelling/upwelling longwave radiation [W/m^2] (Note that flxd/flxu of LW is actual flux [W/m2])
!
do i = its, ite
gsf(i,j) = flxd(i,kte+1) !surface downwelling LW radiation
!
! extra output for SDSU
!
if(present(ERBE_out)) then
ERBE_out(i,j,1) = flxd(i,1) ! TOA LW downwelling flux [W/m2]
ERBE_out(i,j,2) = flxu(i,1) ! TOA LW upwelling flux [W/m2]
ERBE_out(i,j,3) = flxd(i,kte+1) ! surface LW downwelling flux [W/m2]
ERBE_out(i,j,4) = flxu(i,kte+1) ! surface LW upwelling flux [W/m2]
endif
end do
case default
stop 'the option does not exist: sw_or_lw '
end select rad_select
!
!-----------------------------------------------------------------------
!
enddo j_loop
end subroutine goddardrad
!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
subroutine swrad (m,np,pl,ta,wa,oa, cwc,reff,fcld,ict,icb, & 2,5
taual,ssaal,asyal, cosz,rsuvbm,rsuvdf,rsirbm,rsirdf, &
flx,flxd,flxu)
!------------ corrections for bugs ----------------------------
!
! a bug was found in "ntop=nctop(m)", it has been corrected to be
! "ntop=nctop(i)". dated march 28, 2000.
!
!
!-----------------------------------------------------------------------
!
! following the nasa technical memorandum (nasa/tm-1999-104606, vol. 15)
! of chou and suarez (1999), this routine computes solar fluxes due to
! absorption by water vapor, ozone, co2, o2, clouds, and aerosols and
! due to scattering by clouds, aerosols, and gases.
!
! this code computes fluxes simultaneously for m soundings.
!
! cloud ice, liquid, and rain particles are allowed to co-exist in a layer.
!
! if no information is available for the effective particle size, reff,
! default values of 10 micron for liquid water and 75 micron for ice may be
! used.
! the size of raindrops, reff(3), is irrelevant in this code. it can be
! set to any values.
! for a clear layer, reff can be set to any values except zero.
!
! the maximum-random assumption is applied for treating cloud
! overlapping. clouds are grouped into high, middle, and low clouds
! separated by the level indices ict and icb. for detail, see
! subroutine "cloud_scale".
!
! aerosol optical thickness, single-scattering albedo, and asymmetry
! factor can be specified as functions of height and spectral band.
!
!----- input parameters:
! units size
! number of soundings (m) n/d 1
! number of atmospheric layers (np) n/d 1
! level pressure (pl) mb m*(np+1)
! layer temperature (ta) k m*np
! layer specific humidity (wa) gm/gm m*np
! layer ozone concentration (oa) gm/gm m*np
! co2 mixing ratio by volume (co2) pppv 1
! option for scaling cloud optical thickness n/d 1
! overcast="true" if scaling is not required
! overcast="fasle" if scaling is required
! option for cloud optical thickness n/d 1
! cldwater="true" if cwc is provided
! cldwater="false" if taucld is provided
! cloud water mixing ratio (cwc) gm/gm m*np*3
! index 1 for ice particles
! index 2 for liquid drops
! index 3 for rain drops
! cloud optical thickness (taucld) n/d m*np*3
! index 1 for ice particles
! index 2 for liquid drops
! index 3 for rain drops
! effective cloud-particle size (reff) micrometer m*np*3
! index 1 for ice particles
! index 2 for liquid drops
! index 3 for rain drops
! cloud amount (fcld) fraction m*np
! level index separating high and middle n/d 1
! clouds (ict)
! level index separating middle and low n/d 1
! clouds (icb)
! aerosol optical thickness (taual) n/d m*np*11
! aerosol single-scattering albedo (ssaal) n/d m*np*11
! aerosol asymmetry factor (asyal) n/d m*np*11
! in the uv region :
! index 1 for the 0.175-0.225 micron band
! index 2 for the 0.225-0.245; 0.260-0.280 micron band
! index 3 for the 0.245-0.260 micron band
! index 4 for the 0.280-0.295 micron band
! index 5 for the 0.295-0.310 micron band
! index 6 for the 0.310-0.320 micron band
! index 7 for the 0.325-0.400 micron band
! in the par region :
! index 8 for the 0.400-0.700 micron band
! in the infrared region :
! index 9 for the 0.700-1.220 micron band
! index 10 for the 1.220-2.270 micron band
! index 11 for the 2.270-10.00 micron band
! cosine of solar zenith angle (cosz) n/d m
! uv+visible sfc albedo for beam radiation
! for wavelengths<0.7 micron (rsuvbm) fraction m
! uv+visible sfc albedo for diffuse radiation
! for wavelengths<0.7 micron (rsuvdf) fraction m
! ir sfc albedo for beam radiation
! for wavelengths>0.7 micron (rsirbm) fraction m
! ir sfc albedo for diffuse radiation (rsirdf) fraction m
!
!----- output parameters
!
! all-sky flux divergence (downward minus upward) (flx) fraction m*(np+1)
! clear-sky flux divergence (downward minus upward) (flc) fraction m*(np+1)
!
! all-sky direct downward uv (0.175-0.4 micron)
! flux at the surface (fdiruv) fraction m
! all-sky diffuse downward uv flux at
! the surface (fdifuv) fraction m
! all-sky direct downward par (0.4-0.7 micron)
! flux at the surface (fdirpar) fraction m
! all-sky diffuse downward par flux at
! the surface (fdifpar) fraction m
! all-sky direct downward ir (0.7-10 micron)
! flux at the surface (fdirir) fraction m
! all-sky diffuse downward ir flux at
! the surface (fdifir) fraction m
!
!----- notes:
!
! (1) the unit of output fluxes (flx,flc,etc.) is fraction of the
! insolation at the top of the atmosphere. therefore, fluxes
! are the output fluxes multiplied by the extra-terrestrial solar
! flux and the cosine of the solar zenith angle.
! (2) pl( ,1) is the pressure at the top of the model, and
! pl( ,np+1) is the surface pressure.
! (3) the pressure levels ict and icb correspond approximately
! to 400 and 700 mb.
!
!-----if coding errors are found, please notify ming-dah chou at
! chou@climate.gsfc.nasa.gov
!
!*************************************************************************
implicit none
!-----IO parameters
integer,intent(in) :: m,np,ict(m),icb(m)
real(Kind=fp_kind),intent(in) :: pl(m,np+1),ta(m,np),wa(m,np),oa(m,np)
real(Kind=fp_kind),intent(in) :: cwc(m,np,3),reff(m,np,3),fcld(m,np)
real(Kind=fp_kind),intent(in) :: taual(m,np,ib_sw),ssaal(m,np,ib_sw),asyal(m,np,ib_sw)
real(Kind=fp_kind),intent(in) :: cosz(m),rsuvbm(m),rsuvdf(m),rsirbm(m),rsirdf(m)
real(Kind=fp_kind),intent(inout) :: flx(m,np+1) !flux divergence (down-up) []
real(Kind=fp_kind),intent(inout) :: flxd(m,np+1) !downward flux fraction []
real(Kind=fp_kind),intent(inout) :: flxu(m,np+1) !upwelling flux fraction []
!-----IO parameter used to be-----
real(Kind=fp_kind) flc(m,np+1)
real(Kind=fp_kind) fdiruv (m),fdifuv (m)
real(Kind=fp_kind) fdirpar(m),fdifpar(m)
real(Kind=fp_kind) fdirir (m),fdifir (m)
!-----temporary array
integer i,j,k,ntop
integer :: nctop(m)
real(Kind=fp_kind) x
real(Kind=fp_kind) :: taucld(m,np,3)
real(Kind=fp_kind) :: taux(m,np) ! total condensates optical depth
real(Kind=fp_kind) :: cwp(m,np,3)
real(Kind=fp_kind) :: dp(m,np)
real(Kind=fp_kind) :: wh(m,np)
real(Kind=fp_kind) :: oh(m,np)
real(Kind=fp_kind) :: scal(m,np)
real(Kind=fp_kind) :: swu(m,np+1)
real(Kind=fp_kind) :: swh(m,np+1)
real(Kind=fp_kind) :: so2(m,np+1) !scaled o2 conc
real(Kind=fp_kind) :: df(m,np+1) !integrated flux refuction rate []
real(Kind=fp_kind) :: df_sub(m,np+1) !sub-layer flux reduction rate []
real(Kind=fp_kind) :: df_cld(m,np+1) !integrated clear-sky flux reduction rate []
real(Kind=fp_kind) :: df_clr(m,np+1) !integrated all-sky flux reduction rate []
real(Kind=fp_kind) :: snt(m) !inverse of cosz
real(Kind=fp_kind) :: cnt(m)
! new look-up table for (Fclr/Fall) ratio (overcast_fast option)
real(Kind=fp_kind) :: ratio, cld_alb
integer :: i_cos, i_tau
real(Kind=fp_kind) :: ratio_lut(10,10)
data ((ratio_lut(i,j),i=1,10),j=1,10)/ & !i cosin j albedo
0.796, 0.559, 0.523, 0.474, 0.439, 0.377, 0.298, 0.239, 0.154, 0.086, &
0.845, 0.628, 0.566, 0.508, 0.457, 0.392, 0.315, 0.242, 0.156, 0.087, &
0.894, 0.697, 0.609, 0.542, 0.475, 0.407, 0.332, 0.245, 0.158, 0.088, &
0.924, 0.759, 0.662, 0.581, 0.511, 0.432, 0.350, 0.269, 0.173, 0.092, &
0.944, 0.809, 0.713, 0.634, 0.552, 0.471, 0.381, 0.288, 0.183, 0.097, &
0.961, 0.848, 0.760, 0.689, 0.602, 0.516, 0.425, 0.323, 0.208, 0.116, &
0.971, 0.882, 0.808, 0.730, 0.650, 0.556, 0.456, 0.355, 0.233, 0.134, &
0.978, 0.910, 0.844, 0.776, 0.695, 0.601, 0.499, 0.387, 0.256, 0.141, &
0.984, 0.934, 0.876, 0.810, 0.731, 0.637, 0.533, 0.405, 0.275, 0.151, &
0.988, 0.944, 0.897, 0.844, 0.773, 0.683, 0.561, 0.421, 0.277, 0.156/
!-----parameters for co2 transmission tables---------------------------
integer nu,nw,nx2,ny2 ! cccshie 9/15/04
parameter (nu=43,nw=37,nx2=62,ny2=101)
real(Kind=fp_kind) w1,dw,u1,du,coa(nx2,ny2),cah(nu,nw)
!-----cah is the co2 absorptance in band 10
data ((cah(i,j),i=1,43),j= 1, 1)/ &
0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, &
0.0000019, 0.0000026, 0.0000037, 0.0000053, 0.0000074, &
0.0000104, 0.0000147, 0.0000206, 0.0000288, 0.0000402, &
0.0000559, 0.0000772, 0.0001059, 0.0001439, 0.0001936, &
0.0002575, 0.0003384, 0.0004400, 0.0005662, 0.0007219, &
0.0009131, 0.0011470, 0.0014327, 0.0017806, 0.0022021, &
0.0027093, 0.0033141, 0.0040280, 0.0048609, 0.0058217, &
0.0069177, 0.0081559, 0.0095430/
data ((cah(i,j),i=1,43),j= 2, 2)/ &
0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, &
0.0000019, 0.0000026, 0.0000037, 0.0000053, 0.0000074, &
0.0000104, 0.0000147, 0.0000206, 0.0000288, 0.0000402, &
0.0000559, 0.0000772, 0.0001059, 0.0001439, 0.0001936, &
0.0002575, 0.0003384, 0.0004400, 0.0005662, 0.0007219, &
0.0009130, 0.0011470, 0.0014326, 0.0017805, 0.0022020, &
0.0027091, 0.0033139, 0.0040276, 0.0048605, 0.0058211, &
0.0069170, 0.0081551, 0.0095420/
data ((cah(i,j),i=1,43),j= 3, 3)/ &
0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, &
0.0000019, 0.0000026, 0.0000037, 0.0000053, 0.0000074, &
0.0000104, 0.0000147, 0.0000206, 0.0000288, 0.0000402, &
0.0000559, 0.0000772, 0.0001059, 0.0001439, 0.0001936, &
0.0002574, 0.0003384, 0.0004399, 0.0005661, 0.0007218, &
0.0009129, 0.0011468, 0.0014325, 0.0017803, 0.0022017, &
0.0027088, 0.0033135, 0.0040271, 0.0048599, 0.0058204, &
0.0069161, 0.0081539, 0.0095406/
data ((cah(i,j),i=1,43),j= 4, 4)/ &
0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, &
0.0000019, 0.0000026, 0.0000037, 0.0000053, 0.0000074, &
0.0000104, 0.0000147, 0.0000206, 0.0000288, 0.0000402, &
0.0000559, 0.0000772, 0.0001059, 0.0001439, 0.0001936, &
0.0002574, 0.0003384, 0.0004399, 0.0005661, 0.0007217, &
0.0009128, 0.0011467, 0.0014323, 0.0017800, 0.0022014, &
0.0027084, 0.0033130, 0.0040265, 0.0048591, 0.0058194, &
0.0069148, 0.0081524, 0.0095387/
data ((cah(i,j),i=1,43),j= 5, 5)/ &
0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, &
0.0000019, 0.0000026, 0.0000037, 0.0000053, 0.0000074, &
0.0000104, 0.0000147, 0.0000206, 0.0000288, 0.0000402, &
0.0000559, 0.0000772, 0.0001059, 0.0001439, 0.0001935, &
0.0002574, 0.0003383, 0.0004398, 0.0005660, 0.0007216, &
0.0009127, 0.0011465, 0.0014320, 0.0017797, 0.0022010, &
0.0027078, 0.0033123, 0.0040256, 0.0048580, 0.0058180, &
0.0069132, 0.0081503, 0.0095361/
data ((cah(i,j),i=1,43),j= 6, 6)/ &
0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, &
0.0000019, 0.0000026, 0.0000037, 0.0000053, 0.0000074, &
0.0000104, 0.0000147, 0.0000206, 0.0000288, 0.0000402, &
0.0000559, 0.0000772, 0.0001059, 0.0001439, 0.0001935, &
0.0002573, 0.0003383, 0.0004398, 0.0005659, 0.0007215, &
0.0009125, 0.0011462, 0.0014317, 0.0017792, 0.0022004, &
0.0027071, 0.0033113, 0.0040244, 0.0048565, 0.0058162, &
0.0069109, 0.0081476, 0.0095328/
data ((cah(i,j),i=1,43),j= 7, 7)/ &
0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, &
0.0000019, 0.0000026, 0.0000037, 0.0000053, 0.0000074, &
0.0000104, 0.0000147, 0.0000206, 0.0000288, 0.0000402, &
0.0000559, 0.0000772, 0.0001058, 0.0001438, 0.0001935, &
0.0002573, 0.0003382, 0.0004396, 0.0005657, 0.0007213, &
0.0009122, 0.0011459, 0.0014312, 0.0017786, 0.0021996, &
0.0027061, 0.0033100, 0.0040228, 0.0048545, 0.0058137, &
0.0069079, 0.0081439, 0.0095283/
data ((cah(i,j),i=1,43),j= 8, 8)/ &
0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, &
0.0000019, 0.0000026, 0.0000037, 0.0000052, 0.0000074, &
0.0000104, 0.0000146, 0.0000206, 0.0000288, 0.0000402, &
0.0000558, 0.0000772, 0.0001058, 0.0001438, 0.0001934, &
0.0002572, 0.0003381, 0.0004395, 0.0005655, 0.0007210, &
0.0009119, 0.0011454, 0.0014306, 0.0017778, 0.0021985, &
0.0027047, 0.0033084, 0.0040207, 0.0048519, 0.0058105, &
0.0069040, 0.0081391, 0.0095225/
data ((cah(i,j),i=1,43),j= 9, 9)/ &
0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, &
0.0000019, 0.0000026, 0.0000037, 0.0000052, 0.0000074, &
0.0000104, 0.0000146, 0.0000206, 0.0000288, 0.0000402, &
0.0000558, 0.0000771, 0.0001058, 0.0001437, 0.0001933, &
0.0002571, 0.0003379, 0.0004393, 0.0005652, 0.0007206, &
0.0009114, 0.0011447, 0.0014297, 0.0017767, 0.0021971, &
0.0027030, 0.0033061, 0.0040180, 0.0048485, 0.0058064, &
0.0068989, 0.0081329, 0.0095149/
data ((cah(i,j),i=1,43),j= 10, 10)/ &
0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, &
0.0000019, 0.0000026, 0.0000037, 0.0000052, 0.0000074, &
0.0000104, 0.0000146, 0.0000205, 0.0000288, 0.0000402, &
0.0000558, 0.0000771, 0.0001057, 0.0001437, 0.0001932, &
0.0002569, 0.0003377, 0.0004390, 0.0005649, 0.0007201, &
0.0009107, 0.0011439, 0.0014286, 0.0017753, 0.0021953, &
0.0027006, 0.0033032, 0.0040144, 0.0048441, 0.0058009, &
0.0068922, 0.0081248, 0.0095051/
data ((cah(i,j),i=1,43),j= 11, 11)/ &
0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, &
0.0000019, 0.0000026, 0.0000037, 0.0000052, 0.0000074, &
0.0000104, 0.0000146, 0.0000205, 0.0000287, 0.0000401, &
0.0000558, 0.0000770, 0.0001056, 0.0001436, 0.0001931, &
0.0002567, 0.0003375, 0.0004387, 0.0005644, 0.0007195, &
0.0009098, 0.0011428, 0.0014271, 0.0017734, 0.0021929, &
0.0026976, 0.0032995, 0.0040097, 0.0048384, 0.0057939, &
0.0068837, 0.0081145, 0.0094926/
data ((cah(i,j),i=1,43),j= 12, 12)/ &
0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, &
0.0000019, 0.0000026, 0.0000037, 0.0000052, 0.0000074, &
0.0000104, 0.0000146, 0.0000205, 0.0000287, 0.0000401, &
0.0000557, 0.0000770, 0.0001055, 0.0001434, 0.0001929, &
0.0002565, 0.0003371, 0.0004382, 0.0005637, 0.0007186, &
0.0009087, 0.0011413, 0.0014252, 0.0017709, 0.0021898, &
0.0026937, 0.0032946, 0.0040038, 0.0048311, 0.0057850, &
0.0068729, 0.0081013, 0.0094768/
data ((cah(i,j),i=1,43),j= 13, 13)/ &
0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, &
0.0000019, 0.0000026, 0.0000037, 0.0000052, 0.0000074, &
0.0000104, 0.0000146, 0.0000205, 0.0000287, 0.0000400, &
0.0000556, 0.0000769, 0.0001054, 0.0001432, 0.0001926, &
0.0002561, 0.0003366, 0.0004376, 0.0005629, 0.0007175, &
0.0009073, 0.0011394, 0.0014228, 0.0017678, 0.0021859, &
0.0026888, 0.0032885, 0.0039963, 0.0048218, 0.0057738, &
0.0068592, 0.0080849, 0.0094570/
data ((cah(i,j),i=1,43),j= 14, 14)/ &
0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, &
0.0000019, 0.0000026, 0.0000037, 0.0000052, 0.0000074, &
0.0000104, 0.0000146, 0.0000205, 0.0000286, 0.0000400, &
0.0000556, 0.0000767, 0.0001052, 0.0001430, 0.0001923, &
0.0002557, 0.0003361, 0.0004368, 0.0005619, 0.0007161, &
0.0009054, 0.0011370, 0.0014197, 0.0017639, 0.0021809, &
0.0026826, 0.0032809, 0.0039869, 0.0048103, 0.0057597, &
0.0068422, 0.0080643, 0.0094323/
data ((cah(i,j),i=1,43),j= 15, 15)/ &
0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, &
0.0000019, 0.0000026, 0.0000037, 0.0000052, 0.0000073, &
0.0000103, 0.0000145, 0.0000204, 0.0000286, 0.0000399, &
0.0000554, 0.0000766, 0.0001050, 0.0001427, 0.0001919, &
0.0002552, 0.0003353, 0.0004358, 0.0005605, 0.0007144, &
0.0009032, 0.0011340, 0.0014159, 0.0017590, 0.0021748, &
0.0026750, 0.0032715, 0.0039752, 0.0047961, 0.0057424, &
0.0068212, 0.0080389, 0.0094019/
data ((cah(i,j),i=1,43),j= 16, 16)/ &
0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, &
0.0000019, 0.0000026, 0.0000037, 0.0000052, 0.0000073, &
0.0000103, 0.0000145, 0.0000204, 0.0000285, 0.0000398, &
0.0000553, 0.0000764, 0.0001047, 0.0001423, 0.0001914, &
0.0002545, 0.0003344, 0.0004345, 0.0005589, 0.0007122, &
0.0009003, 0.0011304, 0.0014112, 0.0017531, 0.0021673, &
0.0026656, 0.0032598, 0.0039609, 0.0047786, 0.0057211, &
0.0067954, 0.0080078, 0.0093646/
data ((cah(i,j),i=1,43),j= 17, 17)/ &
0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, &
0.0000018, 0.0000026, 0.0000037, 0.0000052, 0.0000073, &
0.0000103, 0.0000145, 0.0000203, 0.0000284, 0.0000397, &
0.0000551, 0.0000761, 0.0001044, 0.0001419, 0.0001908, &
0.0002536, 0.0003332, 0.0004330, 0.0005568, 0.0007095, &
0.0008968, 0.0011259, 0.0014054, 0.0017458, 0.0021123, &
0.0026542, 0.0032457, 0.0039435, 0.0047573, 0.0056951, &
0.0067640, 0.0079700, 0.0093194/
data ((cah(i,j),i=1,43),j= 18, 18)/ &
0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
0.0000003, 0.0000005, 0.0000007, 0.0000009, 0.0000013, &
0.0000018, 0.0000026, 0.0000037, 0.0000052, 0.0000073, &
0.0000102, 0.0000144, 0.0000202, 0.0000283, 0.0000395, &
0.0000549, 0.0000758, 0.0001040, 0.0001413, 0.0001900, &
0.0002525, 0.0003318, 0.0004311, 0.0005543, 0.0007063, &
0.0008926, 0.0011204, 0.0013985, 0.0017370, 0.0021470, &
0.0026404, 0.0032285, 0.0039224, 0.0047315, 0.0056637, &
0.0067260, 0.0079245, 0.0092651/
data ((cah(i,j),i=1,43),j= 19, 19)/ &
0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
0.0000003, 0.0000005, 0.0000006, 0.0000009, 0.0000013, &
0.0000018, 0.0000026, 0.0000036, 0.0000051, 0.0000072, &
0.0000102, 0.0000143, 0.0000201, 0.0000282, 0.0000393, &
0.0000546, 0.0000754, 0.0001034, 0.0001406, 0.0001890, &
0.0002512, 0.0003300, 0.0004287, 0.0005513, 0.0007023, &
0.0008875, 0.0011139, 0.0013901, 0.0017264, 0.0021337, &
0.0026238, 0.0032080, 0.0038971, 0.0047005, 0.0056261, &
0.0066806, 0.0078701, 0.0092003/
data ((cah(i,j),i=1,43),j= 20, 20)/ &
0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
0.0000003, 0.0000005, 0.0000006, 0.0000009, 0.0000013, &
0.0000018, 0.0000026, 0.0000036, 0.0000051, 0.0000072, &
0.0000101, 0.0000142, 0.0000200, 0.0000280, 0.0000391, &
0.0000543, 0.0000750, 0.0001028, 0.0001397, 0.0001878, &
0.0002496, 0.0003279, 0.0004259, 0.0005476, 0.0006975, &
0.0008813, 0.0011060, 0.0013802, 0.0017138, 0.0021179, &
0.0026040, 0.0031835, 0.0038670, 0.0046637, 0.0055814, &
0.0066267, 0.0078055, 0.0091235/
data ((cah(i,j),i=1,43),j= 21, 21)/ &
0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
0.0000003, 0.0000005, 0.0000006, 0.0000009, 0.0000013, &
0.0000018, 0.0000025, 0.0000036, 0.0000051, 0.0000071, &
0.0000100, 0.0000141, 0.0000198, 0.0000278, 0.0000388, &
0.0000539, 0.0000744, 0.0001020, 0.0001386, 0.0001863, &
0.0002477, 0.0003253, 0.0004226, 0.0005432, 0.0006918, &
0.0008740, 0.0010966, 0.0013683, 0.0016988, 0.0020991, &
0.0025806, 0.0031545, 0.0038313, 0.0046201, 0.0055285, &
0.0065630, 0.0077294, 0.0090332/
data ((cah(i,j),i=1,43),j= 22, 22)/ &
0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
0.0000003, 0.0000004, 0.0000006, 0.0000009, 0.0000013, &
0.0000018, 0.0000025, 0.0000036, 0.0000050, 0.0000071, &
0.0000100, 0.0000140, 0.0000197, 0.0000275, 0.0000384, &
0.0000534, 0.0000737, 0.0001011, 0.0001373, 0.0001846, &
0.0002453, 0.0003222, 0.0004185, 0.0005265, 0.0006850, &
0.0008652, 0.0010855, 0.0013541, 0.0016809, 0.0020768, &
0.0025528, 0.0031202, 0.0037892, 0.0045688, 0.0054664, &
0.0064883, 0.0076402, 0.0089277/
data ((cah(i,j),i=1,43),j= 23, 23)/ &
0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
0.0000003, 0.0000004, 0.0000006, 0.0000009, 0.0000013, &
0.0000018, 0.0000025, 0.0000035, 0.0000050, 0.0000070, &
0.0000098, 0.0000138, 0.0000194, 0.0000272, 0.0000380, &
0.0000528, 0.0000729, 0.0000999, 0.0001357, 0.0001825, &
0.0002425, 0.0003185, 0.0004137, 0.0005316, 0.0006769, &
0.0008548, 0.0010722, 0.0013373, 0.0016599, 0.0020504, &
0.0025201, 0.0030799, 0.0037398, 0.0045087, 0.0053938, &
0.0064013, 0.0075366, 0.0088053/
data ((cah(i,j),i=1,43),j= 24, 24)/ &
0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
0.0000003, 0.0000004, 0.0000006, 0.0000009, 0.0000012, &
0.0000017, 0.0000025, 0.0000035, 0.0000049, 0.0000069, &
0.0000097, 0.0000137, 0.0000192, 0.0000268, 0.0000375, &
0.0000520, 0.0000719, 0.0000986, 0.0001339, 0.0001800, &
0.0002392, 0.0003142, 0.0004079, 0.0005242, 0.0006673, &
0.0008426, 0.0010567, 0.0013177, 0.0016352, 0.0020196, &
0.0024820, 0.0030330, 0.0036825, 0.0044391, 0.0053098, &
0.0063007, 0.0074172, 0.0084815/
data ((cah(i,j),i=1,43),j= 25, 25)/ &
0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
0.0000003, 0.0000004, 0.0000006, 0.0000009, 0.0000012, &
0.0000017, 0.0000024, 0.0000034, 0.0000048, 0.0000068, &
0.0000096, 0.0000134, 0.0000189, 0.0000264, 0.0000369, &
0.0000512, 0.0000708, 0.0000970, 0.0001318, 0.0001772, &
0.0002354, 0.0003091, 0.0004013, 0.0005156, 0.0006562, &
0.0008284, 0.0010386, 0.0012949, 0.0016066, 0.0019840, &
0.0024379, 0.0029788, 0.0036164, 0.0043590, 0.0052135, &
0.0061857, 0.0072808, 0.0085042/
data ((cah(i,j),i=1,43),j= 26, 26)/ &
0.0000001, 0.0000001, 0.0000001, 0.0000002, 0.0000002, &
0.0000003, 0.0000004, 0.0000006, 0.0000008, 0.0000012, &
0.0000017, 0.0000024, 0.0000034, 0.0000047, 0.0000067, &
0.0000094, 0.0000132, 0.0000185, 0.0000259, 0.0000362, &
0.0000503, 0.0000695, 0.0000952, 0.0001294, 0.0001739, &
0.0002310, 0.0003033, 0.0003937, 0.0005057, 0.0006435, &
0.0008121, 0.0010180, 0.0012688, 0.0015739, 0.0019434, &
0.0023877, 0.0029172, 0.0035413, 0.0042681, 0.0051043, &
0.0060554, 0.0071267, 0.0083234/
data ((cah(i,j),i=1,43),j= 27, 27)/ &
0.0000001, 0.0000001, 0.0000001, 0.0000001, 0.0000002, &
0.0000003, 0.0000004, 0.0000006, 0.0000008, 0.0000012, &
0.0000016, 0.0000023, 0.0000033, 0.0000046, 0.0000065, &
0.0000092, 0.0000129, 0.0000181, 0.0000254, 0.0000355, &
0.0000493, 0.0000680, 0.0000933, 0.0001267, 0.0001702, &
0.0002261, 0.0002968, 0.0003852, 0.0004946, 0.0006291, &
0.0007937, 0.0009946, 0.0012394, 0.0015370, 0.0018975, &
0.0023310, 0.0028478, 0.0034568, 0.0041660, 0.0049818, &
0.0059096, 0.0069544, 0.0081215/
data ((cah(i,j),i=1,43),j= 28, 28)/ &
0.0000001, 0.0000001, 0.0000001, 0.0000001, 0.0000002, &
0.0000003, 0.0000004, 0.0000006, 0.0000008, 0.0000011, &
0.0000016, 0.0000023, 0.0000032, 0.0000045, 0.0000064, &
0.0000090, 0.0000126, 0.0000177, 0.0000248, 0.0000346, &
0.0000481, 0.0000664, 0.0000910, 0.0001236, 0.0001661, &
0.0002206, 0.0002895, 0.0003755, 0.0004821, 0.0006130, &
0.0007731, 0.0009685, 0.0012065, 0.0014959, 0.0018463, &
0.0022680, 0.0027705, 0.0033629, 0.0040526, 0.0048459, &
0.0057480, 0.0067639, 0.0078987/
data ((cah(i,j),i=1,43),j= 29, 29)/ &
0.0000000, 0.0000001, 0.0000001, 0.0000001, 0.0000002, &
0.0000003, 0.0000004, 0.0000006, 0.0000008, 0.0000011, &
0.0000016, 0.0000022, 0.0000031, 0.0000044, 0.0000062, &
0.0000087, 0.0000123, 0.0000173, 0.0000242, 0.0000330, &
0.0000468, 0.0000646, 0.0000886, 0.0001203, 0.0001616, &
0.0002145, 0.0002814, 0.0003649, 0.0004682, 0.0005951, &
0.0007503, 0.0009396, 0.0011701, 0.0014505, 0.0017900, &
0.0021986, 0.0026857, 0.0032598, 0.0039283, 0.0046971, &
0.0055713, 0.0065558, 0.0076557/
data ((cah(i,j),i=1,43),j= 30, 30)/ &
0.0000000, 0.0000001, 0.0000001, 0.0000001, 0.0000002, &
0.0000003, 0.0000004, 0.0000005, 0.0000008, 0.0000011, &
0.0000015, 0.0000021, 0.0000030, 0.0000043, 0.0000060, &
0.0000085, 0.0000119, 0.0000167, 0.0000234, 0.0000327, &
0.0000454, 0.0000627, 0.0000859, 0.0001166, 0.0001566, &
0.0002078, 0.0002724, 0.0003531, 0.0004529, 0.0005755, &
0.0007253, 0.0009079, 0.0011304, 0.0014010, 0.0017287, &
0.0021232, 0.0025935, 0.0031480, 0.0037936, 0.0045361, &
0.0053805, 0.0063314, 0.0073941/
data ((cah(i,j),i=1,43),j= 31, 31)/ &
0.0000000, 0.0000001, 0.0000001, 0.0000001, 0.0000002, &
0.0000003, 0.0000004, 0.0000005, 0.0000007, 0.0000010, &
0.0000015, 0.0000021, 0.0000029, 0.0000041, 0.0000058, &
0.0000082, 0.0000115, 0.0000162, 0.0000226, 0.0000316, &
0.0000438, 0.0000605, 0.0000829, 0.0001125, 0.0001510, &
0.0002004, 0.0002626, 0.0003402, 0.0004362, 0.0005540, &
0.0006980, 0.0008736, 0.0010874, 0.0013476, 0.0016627, &
0.0020421, 0.0024947, 0.0030283, 0.0036497, 0.0043644, &
0.0051772, 0.0060928, 0.0071164/
data ((cah(i,j),i=1,43),j= 32, 32)/ &
0.0000000, 0.0000001, 0.0000001, 0.0000001, 0.0000002, &
0.0000003, 0.0000004, 0.0000005, 0.0000007, 0.0000010, &
0.0000014, 0.0000020, 0.0000028, 0.0000040, 0.0000056, &
0.0000079, 0.0000111, 0.0000155, 0.0000218, 0.0000303, &
0.0000421, 0.0000582, 0.0000797, 0.0001081, 0.0001450, &
0.0001923, 0.0002519, 0.0003262, 0.0004180, 0.0005308, &
0.0006686, 0.0008367, 0.0010414, 0.0012905, 0.0015925, &
0.0019561, 0.0023900, 0.0029017, 0.0034978, 0.0041836, &
0.0049638, 0.0058430, 0.0068264/
data ((cah(i,j),i=1,43),j= 33, 33)/ &
0.0000000, 0.0000001, 0.0000001, 0.0000001, 0.0000002, &
0.0000002, 0.0000003, 0.0000005, 0.0000007, 0.0000010, &
0.0000014, 0.0000019, 0.0000027, 0.0000038, 0.0000053, &
0.0000075, 0.0000106, 0.0000149, 0.0000208, 0.0000290, &
0.0000403, 0.0000556, 0.0000761, 0.0001032, 0.0001384, &
0.0001834, 0.0002402, 0.0003110, 0.0003985, 0.0005059, &
0.0006372, 0.0007974, 0.0009926, 0.0012302, 0.0015185, &
0.0018657, 0.0022803, 0.0027696, 0.0033398, 0.0039960, &
0.0047430, 0.0055851, 0.0065278/
data ((cah(i,j),i=1,43),j= 34, 34)/ &
0.0000000, 0.0000001, 0.0000001, 0.0000001, 0.0000002, &
0.0000002, 0.0000003, 0.0000005, 0.0000006, 0.0000009, &
0.0000013, 0.0000018, 0.0000026, 0.0000036, 0.0000051, &
0.0000071, 0.0000100, 0.0000141, 0.0000197, 0.0000275, &
0.0000382, 0.0000527, 0.0000722, 0.0000979, 0.0001312, &
0.0001739, 0.0002277, 0.0002947, 0.0003775, 0.0004793, &
0.0006038, 0.0007558, 0.0009412, 0.0011671, 0.0014412, &
0.0017717, 0.0021208, 0.0026329, 0.0031768, 0.0038033, &
0.0045168, 0.0053220, 0.0062240/
data ((cah(i,j),i=1,43),j= 35, 35)/ &
0.0000000, 0.0000001, 0.0000001, 0.0000001, 0.0000002, &
0.0000002, 0.0000003, 0.0000004, 0.0000006, 0.0000009, &
0.0000012, 0.0000017, 0.0000024, 0.0000034, 0.0000048, &
0.0000067, 0.0000095, 0.0000133, 0.0000186, 0.0000259, &
0.0000360, 0.0000496, 0.0000679, 0.0000921, 0.0001235, &
0.0001637, 0.0002143, 0.0002773, 0.0003554, 0.0004513, &
0.0005688, 0.0007124, 0.0008876, 0.0011014, 0.0013610, &
0.0016745, 0.0020493, 0.0024925, 0.0030099, 0.0036066, &
0.0042868, 0.0050553, 0.0059171/
data ((cah(i,j),i=1,43),j= 36, 36)/ &
0.0000000, 0.0000001, 0.0000001, 0.0000001, 0.0000001, &
0.0000002, 0.0000003, 0.0000004, 0.0000006, 0.0000008, &
0.0000011, 0.0000016, 0.0000022, 0.0000032, 0.0000045, &
0.0000063, 0.0000088, 0.0000124, 0.0000173, 0.0000242, &
0.0000336, 0.0000463, 0.0000634, 0.0000860, 0.0001153, &
0.0001528, 0.0002001, 0.0002591, 0.0003322, 0.0004221, &
0.0005323, 0.0006672, 0.0008322, 0.0010335, 0.0012785, &
0.0015746, 0.0019293, 0.0023491, 0.0028399, 0.0034067, &
0.0040539, 0.0047860, 0.0056083/
data ((cah(i,j),i=1,43),j= 37, 37)/ &
0.0000000, 0.0000000, 0.0000001, 0.0000001, 0.0000001, &
0.0000002, 0.0000003, 0.0000004, 0.0000005, 0.0000007, &
0.0000010, 0.0000015, 0.0000021, 0.0000029, 0.0000041, &
0.0000058, 0.0000082, 0.0000114, 0.0000160, 0.0000223, &
0.0000310, 0.0000428, 0.0000586, 0.0000795, 0.0001067, &
0.0001414, 0.0001853, 0.0002401, 0.0003081, 0.0003918, &
0.0004947, 0.0006208, 0.0007751, 0.0009639, 0.0011940, &
0.0014726, 0.0018069, 0.0022032, 0.0026674, 0.0032043, &
0.0038186, 0.0045147, 0.0052979/
!-----coa is the co2 absorptance in strong absorption regions of band 11
data ((coa(i,j),i=1,62),j= 1, 1)/ &
0.0000080, 0.0000089, 0.0000098, 0.0000106, 0.0000114, &
0.0000121, 0.0000128, 0.0000134, 0.0000140, 0.0000146, &
0.0000152, 0.0000158, 0.0000163, 0.0000168, 0.0000173, &
0.0000178, 0.0000182, 0.0000186, 0.0000191, 0.0000195, &
0.0000199, 0.0000202, 0.0000206, 0.0000210, 0.0000213, &
0.0000217, 0.0000220, 0.0000223, 0.0000226, 0.0000229, &
0.0000232, 0.0000235, 0.0000238, 0.0000241, 0.0000244, &
0.0000246, 0.0000249, 0.0000252, 0.0000254, 0.0000257, &
0.0000259, 0.0000261, 0.0000264, 0.0000266, 0.0000268, &
0.0000271, 0.0000273, 0.0000275, 0.0000277, 0.0000279, &
0.0000281, 0.0000283, 0.0000285, 0.0000287, 0.0000289, &
0.0000291, 0.0000293, 0.0000295, 0.0000297, 0.0000298, &
0.0000300, 0.0000302/
data ((coa(i,j),i=1,62),j= 2, 2)/ &
0.0000085, 0.0000095, 0.0000104, 0.0000113, 0.0000121, &
0.0000128, 0.0000136, 0.0000143, 0.0000149, 0.0000155, &
0.0000161, 0.0000167, 0.0000172, 0.0000178, 0.0000183, &
0.0000187, 0.0000192, 0.0000196, 0.0000201, 0.0000205, &
0.0000209, 0.0000213, 0.0000217, 0.0000220, 0.0000224, &
0.0000227, 0.0000231, 0.0000234, 0.0000237, 0.0000240, &
0.0000243, 0.0000246, 0.0000249, 0.0000252, 0.0000255, &
0.0000258, 0.0000260, 0.0000263, 0.0000266, 0.0000268, &
0.0000271, 0.0000273, 0.0000275, 0.0000278, 0.0000280, &
0.0000282, 0.0000285, 0.0000287, 0.0000289, 0.0000291, &
0.0000293, 0.0000295, 0.0000297, 0.0000299, 0.0000301, &
0.0000303, 0.0000305, 0.0000307, 0.0000309, 0.0000311, &
0.0000313, 0.0000314/
data ((coa(i,j),i=1,62),j= 3, 3)/ &
0.0000095, 0.0000106, 0.0000116, 0.0000125, 0.0000134, &
0.0000143, 0.0000150, 0.0000158, 0.0000165, 0.0000171, &
0.0000178, 0.0000184, 0.0000189, 0.0000195, 0.0000200, &
0.0000205, 0.0000210, 0.0000215, 0.0000219, 0.0000223, &
0.0000228, 0.0000232, 0.0000235, 0.0000239, 0.0000243, &
0.0000247, 0.0000250, 0.0000253, 0.0000257, 0.0000260, &
0.0000263, 0.0000266, 0.0000269, 0.0000272, 0.0000275, &
0.0000278, 0.0000281, 0.0000283, 0.0000286, 0.0000289, &
0.0000291, 0.0000294, 0.0000296, 0.0000299, 0.0000301, &
0.0000303, 0.0000306, 0.0000308, 0.0000310, 0.0000312, &
0.0000315, 0.0000317, 0.0000319, 0.0000321, 0.0000323, &
0.0000325, 0.0000327, 0.0000329, 0.0000331, 0.0000333, &
0.0000335, 0.0000329/
data ((coa(i,j),i=1,62),j= 4, 4)/ &
0.0000100, 0.0000111, 0.0000122, 0.0000131, 0.0000141, &
0.0000149, 0.0000157, 0.0000165, 0.0000172, 0.0000179, &
0.0000185, 0.0000191, 0.0000197, 0.0000203, 0.0000208, &
0.0000213, 0.0000218, 0.0000223, 0.0000227, 0.0000232, &
0.0000236, 0.0000240, 0.0000244, 0.0000248, 0.0000252, &
0.0000255, 0.0000259, 0.0000262, 0.0000266, 0.0000269, &
0.0000272, 0.0000275, 0.0000278, 0.0000281, 0.0000284, &
0.0000287, 0.0000290, 0.0000293, 0.0000295, 0.0000298, &
0.0000300, 0.0000303, 0.0000306, 0.0000308, 0.0000310, &
0.0000313, 0.0000315, 0.0000317, 0.0000320, 0.0000322, &
0.0000324, 0.0000326, 0.0000328, 0.0000331, 0.0000333, &
0.0000335, 0.0000330, 0.0000339, 0.0000341, 0.0000343, &
0.0000345, 0.0000346/
data ((coa(i,j),i=1,62),j= 5, 5)/ &
0.0000109, 0.0000121, 0.0000132, 0.0000143, 0.0000152, &
0.0000161, 0.0000170, 0.0000178, 0.0000185, 0.0000192, &
0.0000199, 0.0000205, 0.0000211, 0.0000217, 0.0000222, &
0.0000228, 0.0000233, 0.0000238, 0.0000242, 0.0000247, &
0.0000251, 0.0000255, 0.0000259, 0.0000263, 0.0000267, &
0.0000271, 0.0000275, 0.0000278, 0.0000282, 0.0000285, &
0.0000288, 0.0000291, 0.0000295, 0.0000298, 0.0000301, &
0.0000304, 0.0000307, 0.0000309, 0.0000312, 0.0000315, &
0.0000318, 0.0000320, 0.0000323, 0.0000325, 0.0000328, &
0.0000330, 0.0000333, 0.0000335, 0.0000330, 0.0000340, &
0.0000342, 0.0000344, 0.0000346, 0.0000348, 0.0000351, &
0.0000353, 0.0000355, 0.0000357, 0.0000359, 0.0000361, &
0.0000363, 0.0000365/
data ((coa(i,j),i=1,62),j= 6, 6)/ &
0.0000117, 0.0000130, 0.0000142, 0.0000153, 0.0000163, &
0.0000173, 0.0000181, 0.0000190, 0.0000197, 0.0000204, &
0.0000211, 0.0000218, 0.0000224, 0.0000230, 0.0000235, &
0.0000241, 0.0000246, 0.0000251, 0.0000256, 0.0000260, &
0.0000265, 0.0000269, 0.0000273, 0.0000277, 0.0000281, &
0.0000285, 0.0000289, 0.0000293, 0.0000296, 0.0000299, &
0.0000303, 0.0000306, 0.0000309, 0.0000313, 0.0000316, &
0.0000319, 0.0000322, 0.0000324, 0.0000327, 0.0000330, &
0.0000333, 0.0000336, 0.0000331, 0.0000341, 0.0000343, &
0.0000346, 0.0000348, 0.0000351, 0.0000353, 0.0000355, &
0.0000358, 0.0000360, 0.0000362, 0.0000365, 0.0000367, &
0.0000369, 0.0000371, 0.0000373, 0.0000375, 0.0000377, &
0.0000379, 0.0000381/
data ((coa(i,j),i=1,62),j= 7, 7)/ &
0.0000125, 0.0000139, 0.0000151, 0.0000163, 0.0000173, &
0.0000183, 0.0000192, 0.0000200, 0.0000208, 0.0000216, &
0.0000223, 0.0000229, 0.0000236, 0.0000242, 0.0000247, &
0.0000253, 0.0000258, 0.0000263, 0.0000268, 0.0000273, &
0.0000277, 0.0000282, 0.0000286, 0.0000290, 0.0000294, &
0.0000298, 0.0000302, 0.0000306, 0.0000309, 0.0000313, &
0.0000316, 0.0000320, 0.0000323, 0.0000326, 0.0000329, &
0.0000332, 0.0000335, 0.0000331, 0.0000341, 0.0000344, &
0.0000347, 0.0000350, 0.0000352, 0.0000355, 0.0000358, &
0.0000360, 0.0000363, 0.0000365, 0.0000368, 0.0000370, &
0.0000372, 0.0000375, 0.0000377, 0.0000379, 0.0000382, &
0.0000384, 0.0000386, 0.0000388, 0.0000390, 0.0000392, &
0.0000394, 0.0000396/
data ((coa(i,j),i=1,62),j= 8, 8)/ &
0.0000132, 0.0000147, 0.0000160, 0.0000172, 0.0000183, &
0.0000193, 0.0000202, 0.0000210, 0.0000218, 0.0000226, &
0.0000233, 0.0000240, 0.0000246, 0.0000252, 0.0000258, &
0.0000264, 0.0000269, 0.0000274, 0.0000279, 0.0000284, &
0.0000289, 0.0000293, 0.0000298, 0.0000302, 0.0000306, &
0.0000310, 0.0000314, 0.0000318, 0.0000321, 0.0000325, &
0.0000328, 0.0000332, 0.0000335, 0.0000331, 0.0000342, &
0.0000345, 0.0000348, 0.0000351, 0.0000354, 0.0000357, &
0.0000360, 0.0000363, 0.0000365, 0.0000368, 0.0000371, &
0.0000373, 0.0000376, 0.0000378, 0.0000381, 0.0000383, &
0.0000386, 0.0000388, 0.0000391, 0.0000393, 0.0000395, &
0.0000397, 0.0000400, 0.0000402, 0.0000404, 0.0000406, &
0.0000408, 0.0000411/
data ((coa(i,j),i=1,62),j= 9, 9)/ &
0.0000143, 0.0000158, 0.0000172, 0.0000184, 0.0000195, &
0.0000206, 0.0000215, 0.0000224, 0.0000232, 0.0000240, &
0.0000247, 0.0000254, 0.0000261, 0.0000267, 0.0000273, &
0.0000279, 0.0000284, 0.0000290, 0.0000295, 0.0000300, &
0.0000305, 0.0000309, 0.0000314, 0.0000318, 0.0000322, &
0.0000326, 0.0000330, 0.0000334, 0.0000331, 0.0000342, &
0.0000345, 0.0000349, 0.0000352, 0.0000356, 0.0000359, &
0.0000362, 0.0000365, 0.0000368, 0.0000371, 0.0000374, &
0.0000377, 0.0000380, 0.0000383, 0.0000386, 0.0000389, &
0.0000391, 0.0000394, 0.0000397, 0.0000399, 0.0000402, &
0.0000404, 0.0000407, 0.0000409, 0.0000412, 0.0000414, &
0.0000416, 0.0000419, 0.0000421, 0.0000423, 0.0000426, &
0.0000428, 0.0000430/
data ((coa(i,j),i=1,62),j= 10, 10)/ &
0.0000153, 0.0000169, 0.0000183, 0.0000196, 0.0000207, &
0.0000218, 0.0000227, 0.0000236, 0.0000245, 0.0000253, &
0.0000260, 0.0000267, 0.0000274, 0.0000281, 0.0000287, &
0.0000293, 0.0000298, 0.0000304, 0.0000309, 0.0000314, &
0.0000319, 0.0000324, 0.0000328, 0.0000333, 0.0000330, &
0.0000341, 0.0000345, 0.0000349, 0.0000353, 0.0000357, &
0.0000361, 0.0000364, 0.0000368, 0.0000371, 0.0000375, &
0.0000378, 0.0000381, 0.0000384, 0.0000387, 0.0000391, &
0.0000394, 0.0000397, 0.0000399, 0.0000402, 0.0000405, &
0.0000408, 0.0000411, 0.0000413, 0.0000416, 0.0000419, &
0.0000421, 0.0000424, 0.0000426, 0.0000429, 0.0000431, &
0.0000434, 0.0000436, 0.0000439, 0.0000441, 0.0000443, &
0.0000446, 0.0000448/
data ((coa(i,j),i=1,62),j= 11, 11)/ &
0.0000165, 0.0000182, 0.0000196, 0.0000209, 0.0000221, &
0.0000232, 0.0000242, 0.0000251, 0.0000260, 0.0000268, &
0.0000276, 0.0000283, 0.0000290, 0.0000297, 0.0000303, &
0.0000309, 0.0000315, 0.0000321, 0.0000326, 0.0000331, &
0.0000336, 0.0000341, 0.0000346, 0.0000350, 0.0000355, &
0.0000359, 0.0000363, 0.0000367, 0.0000371, 0.0000375, &
0.0000379, 0.0000383, 0.0000386, 0.0000390, 0.0000394, &
0.0000397, 0.0000400, 0.0000404, 0.0000407, 0.0000410, &
0.0000413, 0.0000416, 0.0000419, 0.0000422, 0.0000425, &
0.0000428, 0.0000431, 0.0000434, 0.0000437, 0.0000439, &
0.0000442, 0.0000445, 0.0000447, 0.0000450, 0.0000453, &
0.0000455, 0.0000458, 0.0000460, 0.0000463, 0.0000465, &
0.0000468, 0.0000470/
data ((coa(i,j),i=1,62),j= 12, 12)/ &
0.0000173, 0.0000190, 0.0000205, 0.0000219, 0.0000231, &
0.0000242, 0.0000252, 0.0000262, 0.0000271, 0.0000279, &
0.0000287, 0.0000294, 0.0000301, 0.0000308, 0.0000314, &
0.0000320, 0.0000326, 0.0000332, 0.0000330, 0.0000343, &
0.0000348, 0.0000353, 0.0000358, 0.0000362, 0.0000367, &
0.0000371, 0.0000376, 0.0000380, 0.0000384, 0.0000388, &
0.0000392, 0.0000396, 0.0000399, 0.0000403, 0.0000407, &
0.0000410, 0.0000414, 0.0000417, 0.0000420, 0.0000424, &
0.0000427, 0.0000430, 0.0000433, 0.0000436, 0.0000439, &
0.0000442, 0.0000445, 0.0000448, 0.0000451, 0.0000454, &
0.0000457, 0.0000459, 0.0000462, 0.0000465, 0.0000468, &
0.0000470, 0.0000473, 0.0000475, 0.0000478, 0.0000481, &
0.0000483, 0.0000486/
data ((coa(i,j),i=1,62),j= 13, 13)/ &
0.0000186, 0.0000204, 0.0000219, 0.0000233, 0.0000246, &
0.0000257, 0.0000268, 0.0000277, 0.0000286, 0.0000295, &
0.0000303, 0.0000311, 0.0000318, 0.0000325, 0.0000331, &
0.0000331, 0.0000344, 0.0000350, 0.0000355, 0.0000361, &
0.0000366, 0.0000371, 0.0000376, 0.0000381, 0.0000386, &
0.0000390, 0.0000395, 0.0000399, 0.0000403, 0.0000407, &
0.0000412, 0.0000416, 0.0000419, 0.0000423, 0.0000427, &
0.0000431, 0.0000434, 0.0000438, 0.0000441, 0.0000445, &
0.0000448, 0.0000451, 0.0000455, 0.0000458, 0.0000461, &
0.0000464, 0.0000467, 0.0000470, 0.0000473, 0.0000476, &
0.0000479, 0.0000482, 0.0000485, 0.0000488, 0.0000491, &
0.0000494, 0.0000497, 0.0000499, 0.0000502, 0.0000505, &
0.0000507, 0.0000510/
data ((coa(i,j),i=1,62),j= 14, 14)/ &
0.0000198, 0.0000216, 0.0000232, 0.0000246, 0.0000259, &
0.0000271, 0.0000281, 0.0000291, 0.0000301, 0.0000310, &
0.0000318, 0.0000326, 0.0000333, 0.0000340, 0.0000347, &
0.0000354, 0.0000360, 0.0000366, 0.0000372, 0.0000377, &
0.0000383, 0.0000388, 0.0000393, 0.0000398, 0.0000403, &
0.0000408, 0.0000412, 0.0000417, 0.0000421, 0.0000425, &
0.0000430, 0.0000434, 0.0000438, 0.0000442, 0.0000446, &
0.0000449, 0.0000453, 0.0000457, 0.0000461, 0.0000464, &
0.0000468, 0.0000471, 0.0000475, 0.0000478, 0.0000481, &
0.0000485, 0.0000488, 0.0000491, 0.0000494, 0.0000498, &
0.0000501, 0.0000504, 0.0000507, 0.0000510, 0.0000513, &
0.0000516, 0.0000519, 0.0000522, 0.0000524, 0.0000527, &
0.0000530, 0.0000533/
data ((coa(i,j),i=1,62),j= 15, 15)/ &
0.0000209, 0.0000228, 0.0000244, 0.0000258, 0.0000271, &
0.0000283, 0.0000294, 0.0000305, 0.0000314, 0.0000323, &
0.0000332, 0.0000340, 0.0000347, 0.0000354, 0.0000361, &
0.0000368, 0.0000375, 0.0000381, 0.0000387, 0.0000392, &
0.0000398, 0.0000404, 0.0000409, 0.0000414, 0.0000419, &
0.0000424, 0.0000429, 0.0000433, 0.0000438, 0.0000442, &
0.0000447, 0.0000451, 0.0000455, 0.0000459, 0.0000463, &
0.0000467, 0.0000471, 0.0000475, 0.0000479, 0.0000483, &
0.0000486, 0.0000490, 0.0000493, 0.0000497, 0.0000501, &
0.0000504, 0.0000507, 0.0000511, 0.0000514, 0.0000518, &
0.0000521, 0.0000524, 0.0000527, 0.0000530, 0.0000534, &
0.0000537, 0.0000540, 0.0000543, 0.0000546, 0.0000549, &
0.0000552, 0.0000555/
data ((coa(i,j),i=1,62),j= 16, 16)/ &
0.0000221, 0.0000240, 0.0000257, 0.0000272, 0.0000285, &
0.0000297, 0.0000308, 0.0000319, 0.0000329, 0.0000331, &
0.0000347, 0.0000355, 0.0000363, 0.0000370, 0.0000377, &
0.0000384, 0.0000391, 0.0000397, 0.0000404, 0.0000409, &
0.0000415, 0.0000421, 0.0000426, 0.0000432, 0.0000437, &
0.0000442, 0.0000447, 0.0000452, 0.0000456, 0.0000461, &
0.0000466, 0.0000470, 0.0000475, 0.0000479, 0.0000483, &
0.0000487, 0.0000491, 0.0000496, 0.0000500, 0.0000503, &
0.0000507, 0.0000511, 0.0000515, 0.0000519, 0.0000523, &
0.0000526, 0.0000530, 0.0000533, 0.0000537, 0.0000540, &
0.0000544, 0.0000547, 0.0000551, 0.0000554, 0.0000558, &
0.0000561, 0.0000564, 0.0000567, 0.0000571, 0.0000574, &
0.0000577, 0.0000580/
data ((coa(i,j),i=1,62),j= 17, 17)/ &
0.0000234, 0.0000254, 0.0000271, 0.0000286, 0.0000300, &
0.0000312, 0.0000324, 0.0000335, 0.0000345, 0.0000354, &
0.0000363, 0.0000372, 0.0000380, 0.0000387, 0.0000395, &
0.0000402, 0.0000409, 0.0000415, 0.0000422, 0.0000428, &
0.0000434, 0.0000440, 0.0000446, 0.0000451, 0.0000457, &
0.0000462, 0.0000467, 0.0000472, 0.0000477, 0.0000482, &
0.0000487, 0.0000492, 0.0000496, 0.0000501, 0.0000505, &
0.0000510, 0.0000514, 0.0000518, 0.0000523, 0.0000527, &
0.0000531, 0.0000535, 0.0000539, 0.0000543, 0.0000547, &
0.0000551, 0.0000555, 0.0000559, 0.0000562, 0.0000566, &
0.0000570, 0.0000573, 0.0000577, 0.0000581, 0.0000584, &
0.0000588, 0.0000591, 0.0000595, 0.0000598, 0.0000602, &
0.0000605, 0.0000608/
data ((coa(i,j),i=1,62),j= 18, 18)/ &
0.0000248, 0.0000268, 0.0000285, 0.0000301, 0.0000315, &
0.0000328, 0.0000340, 0.0000351, 0.0000362, 0.0000371, &
0.0000381, 0.0000389, 0.0000398, 0.0000406, 0.0000413, &
0.0000421, 0.0000428, 0.0000435, 0.0000442, 0.0000448, &
0.0000454, 0.0000460, 0.0000466, 0.0000472, 0.0000478, &
0.0000484, 0.0000489, 0.0000494, 0.0000500, 0.0000505, &
0.0000510, 0.0000515, 0.0000520, 0.0000525, 0.0000530, &
0.0000534, 0.0000539, 0.0000544, 0.0000548, 0.0000553, &
0.0000557, 0.0000561, 0.0000566, 0.0000570, 0.0000574, &
0.0000578, 0.0000582, 0.0000586, 0.0000590, 0.0000594, &
0.0000598, 0.0000602, 0.0000606, 0.0000610, 0.0000614, &
0.0000618, 0.0000621, 0.0000625, 0.0000629, 0.0000633, &
0.0000636, 0.0000640/
data ((coa(i,j),i=1,62),j= 19, 19)/ &
0.0000260, 0.0000281, 0.0000299, 0.0000315, 0.0000330, &
0.0000343, 0.0000355, 0.0000367, 0.0000377, 0.0000388, &
0.0000397, 0.0000406, 0.0000415, 0.0000423, 0.0000431, &
0.0000439, 0.0000446, 0.0000453, 0.0000460, 0.0000467, &
0.0000474, 0.0000480, 0.0000487, 0.0000493, 0.0000499, &
0.0000505, 0.0000510, 0.0000516, 0.0000522, 0.0000527, &
0.0000533, 0.0000538, 0.0000543, 0.0000548, 0.0000553, &
0.0000558, 0.0000563, 0.0000568, 0.0000573, 0.0000578, &
0.0000582, 0.0000587, 0.0000591, 0.0000596, 0.0000601, &
0.0000605, 0.0000609, 0.0000614, 0.0000618, 0.0000622, &
0.0000626, 0.0000631, 0.0000635, 0.0000639, 0.0000643, &
0.0000647, 0.0000651, 0.0000655, 0.0000659, 0.0000663, &
0.0000667, 0.0000670/
data ((coa(i,j),i=1,62),j= 20, 20)/ &
0.0000275, 0.0000296, 0.0000315, 0.0000332, 0.0000347, &
0.0000360, 0.0000373, 0.0000385, 0.0000396, 0.0000407, &
0.0000417, 0.0000426, 0.0000435, 0.0000444, 0.0000452, &
0.0000460, 0.0000468, 0.0000476, 0.0000483, 0.0000490, &
0.0000497, 0.0000504, 0.0000511, 0.0000517, 0.0000524, &
0.0000530, 0.0000536, 0.0000542, 0.0000548, 0.0000554, &
0.0000560, 0.0000566, 0.0000571, 0.0000577, 0.0000582, &
0.0000587, 0.0000593, 0.0000598, 0.0000603, 0.0000608, &
0.0000613, 0.0000618, 0.0000623, 0.0000628, 0.0000633, &
0.0000638, 0.0000642, 0.0000647, 0.0000652, 0.0000656, &
0.0000661, 0.0000665, 0.0000670, 0.0000674, 0.0000678, &
0.0000683, 0.0000687, 0.0000691, 0.0000695, 0.0000700, &
0.0000704, 0.0000708/
data ((coa(i,j),i=1,62),j= 21, 21)/ &
0.0000290, 0.0000312, 0.0000331, 0.0000349, 0.0000364, &
0.0000379, 0.0000392, 0.0000404, 0.0000416, 0.0000427, &
0.0000437, 0.0000447, 0.0000457, 0.0000466, 0.0000475, &
0.0000483, 0.0000492, 0.0000500, 0.0000507, 0.0000515, &
0.0000523, 0.0000530, 0.0000537, 0.0000544, 0.0000551, &
0.0000558, 0.0000564, 0.0000571, 0.0000577, 0.0000583, &
0.0000589, 0.0000596, 0.0000602, 0.0000607, 0.0000613, &
0.0000619, 0.0000625, 0.0000630, 0.0000636, 0.0000641, &
0.0000647, 0.0000652, 0.0000657, 0.0000663, 0.0000668, &
0.0000673, 0.0000678, 0.0000683, 0.0000688, 0.0000693, &
0.0000698, 0.0000702, 0.0000707, 0.0000712, 0.0000716, &
0.0000721, 0.0000726, 0.0000730, 0.0000735, 0.0000739, &
0.0000744, 0.0000748/
data ((coa(i,j),i=1,62),j= 22, 22)/ &
0.0000306, 0.0000329, 0.0000349, 0.0000366, 0.0000383, &
0.0000398, 0.0000411, 0.0000424, 0.0000436, 0.0000448, &
0.0000459, 0.0000469, 0.0000479, 0.0000489, 0.0000499, &
0.0000508, 0.0000516, 0.0000525, 0.0000533, 0.0000542, &
0.0000549, 0.0000557, 0.0000565, 0.0000572, 0.0000580, &
0.0000587, 0.0000594, 0.0000601, 0.0000608, 0.0000615, &
0.0000621, 0.0000628, 0.0000634, 0.0000640, 0.0000647, &
0.0000653, 0.0000659, 0.0000665, 0.0000671, 0.0000677, &
0.0000683, 0.0000688, 0.0000694, 0.0000700, 0.0000705, &
0.0000711, 0.0000716, 0.0000721, 0.0000727, 0.0000732, &
0.0000737, 0.0000742, 0.0000747, 0.0000752, 0.0000757, &
0.0000762, 0.0000767, 0.0000772, 0.0000777, 0.0000782, &
0.0000786, 0.0000791/
data ((coa(i,j),i=1,62),j= 23, 23)/ &
0.0000323, 0.0000347, 0.0000368, 0.0000386, 0.0000403, &
0.0000419, 0.0000433, 0.0000447, 0.0000459, 0.0000472, &
0.0000483, 0.0000494, 0.0000505, 0.0000516, 0.0000526, &
0.0000535, 0.0000545, 0.0000554, 0.0000563, 0.0000572, &
0.0000580, 0.0000589, 0.0000597, 0.0000605, 0.0000613, &
0.0000621, 0.0000628, 0.0000636, 0.0000643, 0.0000650, &
0.0000657, 0.0000664, 0.0000671, 0.0000678, 0.0000685, &
0.0000692, 0.0000698, 0.0000705, 0.0000711, 0.0000717, &
0.0000724, 0.0000730, 0.0000736, 0.0000742, 0.0000748, &
0.0000754, 0.0000760, 0.0000765, 0.0000771, 0.0000777, &
0.0000782, 0.0000788, 0.0000793, 0.0000799, 0.0000804, &
0.0000809, 0.0000815, 0.0000820, 0.0000825, 0.0000830, &
0.0000835, 0.0000840/
data ((coa(i,j),i=1,62),j= 24, 24)/ &
0.0000341, 0.0000365, 0.0000387, 0.0000406, 0.0000424, &
0.0000440, 0.0000456, 0.0000470, 0.0000483, 0.0000496, &
0.0000509, 0.0000521, 0.0000532, 0.0000543, 0.0000554, &
0.0000564, 0.0000574, 0.0000584, 0.0000594, 0.0000603, &
0.0000613, 0.0000622, 0.0000630, 0.0000639, 0.0000648, &
0.0000656, 0.0000664, 0.0000672, 0.0000680, 0.0000688, &
0.0000696, 0.0000703, 0.0000711, 0.0000718, 0.0000725, &
0.0000732, 0.0000739, 0.0000746, 0.0000753, 0.0000760, &
0.0000767, 0.0000773, 0.0000780, 0.0000786, 0.0000793, &
0.0000799, 0.0000805, 0.0000811, 0.0000817, 0.0000823, &
0.0000829, 0.0000835, 0.0000841, 0.0000847, 0.0000853, &
0.0000858, 0.0000864, 0.0000870, 0.0000875, 0.0000881, &
0.0000886, 0.0000892/
data ((coa(i,j),i=1,62),j= 25, 25)/ &
0.0000359, 0.0000385, 0.0000408, 0.0000428, 0.0000447, &
0.0000464, 0.0000480, 0.0000495, 0.0000510, 0.0000524, &
0.0000537, 0.0000550, 0.0000562, 0.0000574, 0.0000585, &
0.0000597, 0.0000608, 0.0000618, 0.0000629, 0.0000639, &
0.0000649, 0.0000658, 0.0000668, 0.0000677, 0.0000686, &
0.0000695, 0.0000704, 0.0000713, 0.0000721, 0.0000730, &
0.0000738, 0.0000746, 0.0000754, 0.0000762, 0.0000770, &
0.0000777, 0.0000785, 0.0000792, 0.0000800, 0.0000807, &
0.0000814, 0.0000821, 0.0000828, 0.0000835, 0.0000842, &
0.0000849, 0.0000856, 0.0000862, 0.0000869, 0.0000875, &
0.0000882, 0.0000888, 0.0000894, 0.0000900, 0.0000907, &
0.0000913, 0.0000919, 0.0000925, 0.0000931, 0.0000936, &
0.0000942, 0.0000948/
data ((coa(i,j),i=1,62),j= 26, 26)/ &
0.0000380, 0.0000407, 0.0000431, 0.0000453, 0.0000473, &
0.0000491, 0.0000508, 0.0000525, 0.0000540, 0.0000555, &
0.0000569, 0.0000583, 0.0000596, 0.0000609, 0.0000622, &
0.0000634, 0.0000646, 0.0000657, 0.0000668, 0.0000679, &
0.0000690, 0.0000700, 0.0000711, 0.0000721, 0.0000731, &
0.0000740, 0.0000750, 0.0000759, 0.0000769, 0.0000778, &
0.0000786, 0.0000795, 0.0000804, 0.0000812, 0.0000821, &
0.0000829, 0.0000837, 0.0000845, 0.0000853, 0.0000861, &
0.0000869, 0.0000876, 0.0000884, 0.0000891, 0.0000899, &
0.0000906, 0.0000913, 0.0000920, 0.0000927, 0.0000934, &
0.0000941, 0.0000948, 0.0000955, 0.0000961, 0.0000968, &
0.0000974, 0.0000981, 0.0000987, 0.0000994, 0.0001000, &
0.0001006, 0.0001012/
data ((coa(i,j),i=1,62),j= 27, 27)/ &
0.0000403, 0.0000431, 0.0000456, 0.0000479, 0.0000500, &
0.0000520, 0.0000538, 0.0000556, 0.0000573, 0.0000589, &
0.0000604, 0.0000619, 0.0000633, 0.0000647, 0.0000661, &
0.0000674, 0.0000686, 0.0000699, 0.0000711, 0.0000723, &
0.0000734, 0.0000746, 0.0000757, 0.0000768, 0.0000778, &
0.0000789, 0.0000799, 0.0000809, 0.0000819, 0.0000829, &
0.0000838, 0.0000848, 0.0000857, 0.0000866, 0.0000875, &
0.0000884, 0.0000893, 0.0000902, 0.0000910, 0.0000919, &
0.0000927, 0.0000935, 0.0000943, 0.0000951, 0.0000959, &
0.0000967, 0.0000974, 0.0000982, 0.0000990, 0.0000997, &
0.0001004, 0.0001012, 0.0001019, 0.0001026, 0.0001033, &
0.0001040, 0.0001047, 0.0001054, 0.0001061, 0.0001067, &
0.0001074, 0.0001080/
data ((coa(i,j),i=1,62),j= 28, 28)/ &
0.0000426, 0.0000456, 0.0000482, 0.0000507, 0.0000529, &
0.0000550, 0.0000570, 0.0000589, 0.0000607, 0.0000624, &
0.0000641, 0.0000657, 0.0000672, 0.0000687, 0.0000702, &
0.0000716, 0.0000730, 0.0000743, 0.0000756, 0.0000769, &
0.0000781, 0.0000794, 0.0000806, 0.0000817, 0.0000829, &
0.0000840, 0.0000851, 0.0000862, 0.0000873, 0.0000883, &
0.0000893, 0.0000904, 0.0000913, 0.0000923, 0.0000933, &
0.0000943, 0.0000952, 0.0000961, 0.0000970, 0.0000979, &
0.0000988, 0.0000997, 0.0001006, 0.0001014, 0.0001023, &
0.0001031, 0.0001039, 0.0001047, 0.0001055, 0.0001063, &
0.0001071, 0.0001079, 0.0001087, 0.0001094, 0.0001102, &
0.0001109, 0.0001116, 0.0001124, 0.0001131, 0.0001138, &
0.0001145, 0.0001152/
data ((coa(i,j),i=1,62),j= 29, 29)/ &
0.0000451, 0.0000482, 0.0000511, 0.0000537, 0.0000561, &
0.0000584, 0.0000605, 0.0000626, 0.0000645, 0.0000664, &
0.0000682, 0.0000699, 0.0000715, 0.0000732, 0.0000747, &
0.0000763, 0.0000777, 0.0000792, 0.0000806, 0.0000820, &
0.0000833, 0.0000846, 0.0000859, 0.0000872, 0.0000884, &
0.0000896, 0.0000908, 0.0000920, 0.0000931, 0.0000942, &
0.0000953, 0.0000964, 0.0000975, 0.0000986, 0.0000996, &
0.0001006, 0.0001016, 0.0001026, 0.0001036, 0.0001046, &
0.0001055, 0.0001064, 0.0001074, 0.0001083, 0.0001092, &
0.0001101, 0.0001110, 0.0001118, 0.0001127, 0.0001135, &
0.0001144, 0.0001152, 0.0001160, 0.0001168, 0.0001176, &
0.0001184, 0.0001192, 0.0001200, 0.0001207, 0.0001215, &
0.0001222, 0.0001230/
data ((coa(i,j),i=1,62),j= 30, 30)/ &
0.0000478, 0.0000512, 0.0000543, 0.0000571, 0.0000597, &
0.0000621, 0.0000644, 0.0000666, 0.0000687, 0.0000708, &
0.0000727, 0.0000746, 0.0000764, 0.0000781, 0.0000798, &
0.0000814, 0.0000830, 0.0000846, 0.0000861, 0.0000876, &
0.0000891, 0.0000905, 0.0000919, 0.0000932, 0.0000945, &
0.0000958, 0.0000971, 0.0000984, 0.0000996, 0.0001008, &
0.0001020, 0.0001032, 0.0001043, 0.0001055, 0.0001066, &
0.0001077, 0.0001088, 0.0001098, 0.0001109, 0.0001119, &
0.0001129, 0.0001139, 0.0001149, 0.0001159, 0.0001168, &
0.0001178, 0.0001187, 0.0001197, 0.0001206, 0.0001215, &
0.0001224, 0.0001233, 0.0001241, 0.0001250, 0.0001258, &
0.0001267, 0.0001275, 0.0001283, 0.0001292, 0.0001300, &
0.0001308, 0.0001316/
data ((coa(i,j),i=1,62),j= 31, 31)/ &
0.0000508, 0.0000544, 0.0000577, 0.0000607, 0.0000635, &
0.0000661, 0.0000686, 0.0000710, 0.0000733, 0.0000754, &
0.0000775, 0.0000795, 0.0000815, 0.0000834, 0.0000852, &
0.0000870, 0.0000887, 0.0000904, 0.0000920, 0.0000936, &
0.0000952, 0.0000967, 0.0000982, 0.0000996, 0.0001011, &
0.0001025, 0.0001038, 0.0001052, 0.0001065, 0.0001078, &
0.0001091, 0.0001103, 0.0001116, 0.0001128, 0.0001140, &
0.0001151, 0.0001163, 0.0001174, 0.0001186, 0.0001197, &
0.0001207, 0.0001218, 0.0001229, 0.0001239, 0.0001249, &
0.0001260, 0.0001270, 0.0001279, 0.0001289, 0.0001299, &
0.0001308, 0.0001318, 0.0001327, 0.0001336, 0.0001317, &
0.0001325, 0.0001363, 0.0001372, 0.0001380, 0.0001389, &
0.0001397, 0.0001406/
data ((coa(i,j),i=1,62),j= 32, 32)/ &
0.0000540, 0.0000579, 0.0000615, 0.0000647, 0.0000677, &
0.0000706, 0.0000733, 0.0000758, 0.0000783, 0.0000806, &
0.0000829, 0.0000851, 0.0000872, 0.0000892, 0.0000912, &
0.0000931, 0.0000950, 0.0000968, 0.0000985, 0.0001003, &
0.0001020, 0.0001036, 0.0001052, 0.0001068, 0.0001083, &
0.0001098, 0.0001113, 0.0001127, 0.0001142, 0.0001156, &
0.0001169, 0.0001183, 0.0001196, 0.0001209, 0.0001222, &
0.0001234, 0.0001246, 0.0001259, 0.0001270, 0.0001282, &
0.0001294, 0.0001305, 0.0001317, 0.0001328, 0.0001339, &
0.0001321, 0.0001360, 0.0001371, 0.0001381, 0.0001391, &
0.0001401, 0.0001411, 0.0001421, 0.0001431, 0.0001440, &
0.0001450, 0.0001459, 0.0001469, 0.0001478, 0.0001487, &
0.0001496, 0.0001505/
data ((coa(i,j),i=1,62),j= 33, 33)/ &
0.0000575, 0.0000617, 0.0000655, 0.0000690, 0.0000723, &
0.0000754, 0.0000783, 0.0000810, 0.0000837, 0.0000862, &
0.0000887, 0.0000910, 0.0000933, 0.0000955, 0.0000976, &
0.0000997, 0.0001017, 0.0001036, 0.0001055, 0.0001074, &
0.0001092, 0.0001110, 0.0001127, 0.0001144, 0.0001160, &
0.0001176, 0.0001192, 0.0001208, 0.0001223, 0.0001238, &
0.0001252, 0.0001267, 0.0001281, 0.0001295, 0.0001308, &
0.0001322, 0.0001335, 0.0001319, 0.0001360, 0.0001373, &
0.0001385, 0.0001397, 0.0001409, 0.0001421, 0.0001433, &
0.0001444, 0.0001456, 0.0001467, 0.0001478, 0.0001489, &
0.0001499, 0.0001510, 0.0001520, 0.0001531, 0.0001541, &
0.0001551, 0.0001561, 0.0001571, 0.0001581, 0.0001590, &
0.0001600, 0.0001609/
data ((coa(i,j),i=1,62),j= 34, 34)/ &
0.0000613, 0.0000659, 0.0000700, 0.0000738, 0.0000773, &
0.0000806, 0.0000838, 0.0000868, 0.0000896, 0.0000924, &
0.0000950, 0.0000976, 0.0001000, 0.0001024, 0.0001047, &
0.0001069, 0.0001091, 0.0001112, 0.0001132, 0.0001152, &
0.0001172, 0.0001191, 0.0001209, 0.0001227, 0.0001245, &
0.0001262, 0.0001279, 0.0001296, 0.0001312, 0.0001328, &
0.0001344, 0.0001359, 0.0001374, 0.0001389, 0.0001403, &
0.0001417, 0.0001432, 0.0001445, 0.0001459, 0.0001472, &
0.0001485, 0.0001498, 0.0001511, 0.0001524, 0.0001536, &
0.0001548, 0.0001560, 0.0001572, 0.0001584, 0.0001595, &
0.0001607, 0.0001618, 0.0001629, 0.0001640, 0.0001651, &
0.0001661, 0.0001672, 0.0001682, 0.0001693, 0.0001703, &
0.0001713, 0.0001723/
data ((coa(i,j),i=1,62),j= 35, 35)/ &
0.0000654, 0.0000703, 0.0000747, 0.0000789, 0.0000827, &
0.0000863, 0.0000897, 0.0000929, 0.0000960, 0.0000990, &
0.0001018, 0.0001046, 0.0001072, 0.0001098, 0.0001123, &
0.0001147, 0.0001170, 0.0001193, 0.0001214, 0.0001236, &
0.0001257, 0.0001277, 0.0001297, 0.0001316, 0.0001335, &
0.0001325, 0.0001372, 0.0001389, 0.0001407, 0.0001424, &
0.0001440, 0.0001457, 0.0001473, 0.0001488, 0.0001504, &
0.0001519, 0.0001534, 0.0001548, 0.0001563, 0.0001577, &
0.0001591, 0.0001605, 0.0001618, 0.0001631, 0.0001645, &
0.0001658, 0.0001670, 0.0001683, 0.0001695, 0.0001707, &
0.0001720, 0.0001732, 0.0001743, 0.0001755, 0.0001767, &
0.0001778, 0.0001789, 0.0001800, 0.0001811, 0.0001822, &
0.0001833, 0.0001844/
data ((coa(i,j),i=1,62),j= 36, 36)/ &
0.0000699, 0.0000752, 0.0000800, 0.0000844, 0.0000886, &
0.0000925, 0.0000962, 0.0000997, 0.0001030, 0.0001062, &
0.0001093, 0.0001123, 0.0001151, 0.0001179, 0.0001205, &
0.0001231, 0.0001256, 0.0001280, 0.0001304, 0.0001327, &
0.0001321, 0.0001371, 0.0001392, 0.0001413, 0.0001433, &
0.0001453, 0.0001472, 0.0001491, 0.0001509, 0.0001527, &
0.0001545, 0.0001562, 0.0001579, 0.0001596, 0.0001612, &
0.0001629, 0.0001644, 0.0001660, 0.0001675, 0.0001690, &
0.0001705, 0.0001720, 0.0001734, 0.0001749, 0.0001762, &
0.0001776, 0.0001790, 0.0001803, 0.0001817, 0.0001830, &
0.0001842, 0.0001855, 0.0001868, 0.0001880, 0.0001892, &
0.0001905, 0.0001917, 0.0001928, 0.0001940, 0.0001952, &
0.0001963, 0.0001975/
data ((coa(i,j),i=1,62),j= 37, 37)/ &
0.0000748, 0.0000805, 0.0000858, 0.0000906, 0.0000951, &
0.0000993, 0.0001033, 0.0001071, 0.0001107, 0.0001142, &
0.0001175, 0.0001207, 0.0001238, 0.0001267, 0.0001296, &
0.0001323, 0.0001322, 0.0001376, 0.0001401, 0.0001426, &
0.0001450, 0.0001473, 0.0001496, 0.0001518, 0.0001539, &
0.0001560, 0.0001581, 0.0001601, 0.0001620, 0.0001640, &
0.0001659, 0.0001677, 0.0001695, 0.0001713, 0.0001731, &
0.0001748, 0.0001765, 0.0001781, 0.0001798, 0.0001814, &
0.0001830, 0.0001845, 0.0001861, 0.0001876, 0.0001891, &
0.0001905, 0.0001920, 0.0001934, 0.0001948, 0.0001962, &
0.0001976, 0.0001990, 0.0002003, 0.0002017, 0.0002030, &
0.0002043, 0.0002056, 0.0002068, 0.0002081, 0.0002093, &
0.0002106, 0.0002118/
data ((coa(i,j),i=1,62),j= 38, 38)/ &
0.0000802, 0.0000863, 0.0000920, 0.0000972, 0.0001021, &
0.0001067, 0.0001110, 0.0001151, 0.0001190, 0.0001227, &
0.0001263, 0.0001297, 0.0001330, 0.0001362, 0.0001393, &
0.0001422, 0.0001451, 0.0001479, 0.0001506, 0.0001532, &
0.0001557, 0.0001582, 0.0001606, 0.0001630, 0.0001653, &
0.0001675, 0.0001697, 0.0001719, 0.0001740, 0.0001760, &
0.0001780, 0.0001800, 0.0001819, 0.0001839, 0.0001857, &
0.0001876, 0.0001894, 0.0001911, 0.0001929, 0.0001946, &
0.0001963, 0.0001980, 0.0001996, 0.0002012, 0.0002028, &
0.0002044, 0.0002060, 0.0002075, 0.0002090, 0.0002105, &
0.0002120, 0.0002135, 0.0002149, 0.0002164, 0.0002178, &
0.0002192, 0.0002205, 0.0002219, 0.0002233, 0.0002246, &
0.0002259, 0.0002273/
data ((coa(i,j),i=1,62),j= 39, 39)/ &
0.0000859, 0.0000926, 0.0000987, 0.0001044, 0.0001097, &
0.0001146, 0.0001193, 0.0001237, 0.0001279, 0.0001319, &
0.0001358, 0.0001395, 0.0001430, 0.0001464, 0.0001497, &
0.0001528, 0.0001559, 0.0001589, 0.0001617, 0.0001645, &
0.0001673, 0.0001699, 0.0001725, 0.0001750, 0.0001774, &
0.0001798, 0.0001822, 0.0001845, 0.0001867, 0.0001889, &
0.0001911, 0.0001932, 0.0001953, 0.0001973, 0.0001993, &
0.0002013, 0.0002032, 0.0002051, 0.0002070, 0.0002088, &
0.0002107, 0.0002124, 0.0002142, 0.0002160, 0.0002177, &
0.0002194, 0.0002211, 0.0002227, 0.0002243, 0.0002260, &
0.0002276, 0.0002291, 0.0002307, 0.0002322, 0.0002338, &
0.0002353, 0.0002368, 0.0002382, 0.0002397, 0.0002412, &
0.0002426, 0.0002440/
data ((coa(i,j),i=1,62),j= 40, 40)/ &
0.0000922, 0.0000995, 0.0001061, 0.0001122, 0.0001179, &
0.0001233, 0.0001283, 0.0001331, 0.0001376, 0.0001419, &
0.0001460, 0.0001500, 0.0001538, 0.0001574, 0.0001609, &
0.0001643, 0.0001676, 0.0001707, 0.0001738, 0.0001768, &
0.0001797, 0.0001825, 0.0001853, 0.0001880, 0.0001906, &
0.0001932, 0.0001957, 0.0001981, 0.0002006, 0.0002029, &
0.0002052, 0.0002075, 0.0002097, 0.0002119, 0.0002141, &
0.0002162, 0.0002183, 0.0002203, 0.0002223, 0.0002243, &
0.0002263, 0.0002282, 0.0002301, 0.0002320, 0.0002339, &
0.0002357, 0.0002375, 0.0002393, 0.0002411, 0.0002428, &
0.0002446, 0.0002463, 0.0002480, 0.0002496, 0.0002513, &
0.0002529, 0.0002546, 0.0002562, 0.0002578, 0.0002593, &
0.0002609, 0.0002625/
data ((coa(i,j),i=1,62),j= 41, 41)/ &
0.0000990, 0.0001069, 0.0001141, 0.0001207, 0.0001268, &
0.0001326, 0.0001380, 0.0001431, 0.0001480, 0.0001526, &
0.0001570, 0.0001612, 0.0001653, 0.0001692, 0.0001729, &
0.0001766, 0.0001801, 0.0001835, 0.0001868, 0.0001900, &
0.0001931, 0.0001961, 0.0001991, 0.0002019, 0.0002048, &
0.0002075, 0.0002102, 0.0002129, 0.0002154, 0.0002180, &
0.0002205, 0.0002229, 0.0002253, 0.0002277, 0.0002300, &
0.0002323, 0.0002346, 0.0002368, 0.0002390, 0.0002411, &
0.0002432, 0.0002453, 0.0002474, 0.0002494, 0.0002515, &
0.0002535, 0.0002554, 0.0002574, 0.0002593, 0.0002612, &
0.0002631, 0.0002649, 0.0002668, 0.0002686, 0.0002704, &
0.0002722, 0.0002740, 0.0002757, 0.0002775, 0.0002792, &
0.0002809, 0.0002826/
data ((coa(i,j),i=1,62),j= 42, 42)/ &
0.0001063, 0.0001148, 0.0001226, 0.0001297, 0.0001363, &
0.0001425, 0.0001483, 0.0001538, 0.0001590, 0.0001639, &
0.0001687, 0.0001732, 0.0001775, 0.0001817, 0.0001857, &
0.0001896, 0.0001933, 0.0001970, 0.0002005, 0.0002039, &
0.0002073, 0.0002105, 0.0002137, 0.0002168, 0.0002198, &
0.0002228, 0.0002257, 0.0002286, 0.0002314, 0.0002341, &
0.0002368, 0.0002394, 0.0002420, 0.0002446, 0.0002471, &
0.0002496, 0.0002520, 0.0002544, 0.0002568, 0.0002591, &
0.0002615, 0.0002637, 0.0002660, 0.0002682, 0.0002704, &
0.0002726, 0.0002747, 0.0002768, 0.0002789, 0.0002810, &
0.0002831, 0.0002851, 0.0002871, 0.0002891, 0.0002911, &
0.0002930, 0.0002950, 0.0002969, 0.0002988, 0.0003007, &
0.0003025, 0.0003044/
data ((coa(i,j),i=1,62),j= 43, 43)/ &
0.0001141, 0.0001233, 0.0001316, 0.0001393, 0.0001464, &
0.0001531, 0.0001593, 0.0001652, 0.0001707, 0.0001760, &
0.0001811, 0.0001859, 0.0001905, 0.0001950, 0.0001993, &
0.0002035, 0.0002075, 0.0002114, 0.0002152, 0.0002189, &
0.0002225, 0.0002260, 0.0002294, 0.0002328, 0.0002360, &
0.0002393, 0.0002424, 0.0002455, 0.0002485, 0.0002515, &
0.0002544, 0.0002573, 0.0002601, 0.0002629, 0.0002656, &
0.0002683, 0.0002709, 0.0002736, 0.0002762, 0.0002787, &
0.0002812, 0.0002837, 0.0002862, 0.0002886, 0.0002910, &
0.0002934, 0.0002957, 0.0002980, 0.0003003, 0.0003026, &
0.0003048, 0.0003071, 0.0003093, 0.0003114, 0.0003136, &
0.0003157, 0.0003179, 0.0003200, 0.0003221, 0.0003241, &
0.0003262, 0.0003282/
data ((coa(i,j),i=1,62),j= 44, 44)/ &
0.0001224, 0.0001323, 0.0001413, 0.0001496, 0.0001572, &
0.0001643, 0.0001709, 0.0001772, 0.0001832, 0.0001888, &
0.0001943, 0.0001994, 0.0002044, 0.0002092, 0.0002138, &
0.0002183, 0.0002226, 0.0002269, 0.0002309, 0.0002349, &
0.0002388, 0.0002426, 0.0002463, 0.0002499, 0.0002535, &
0.0002570, 0.0002604, 0.0002637, 0.0002670, 0.0002702, &
0.0002734, 0.0002765, 0.0002796, 0.0002826, 0.0002856, &
0.0002886, 0.0002915, 0.0002943, 0.0002972, 0.0002999, &
0.0003027, 0.0003054, 0.0003081, 0.0003108, 0.0003134, &
0.0003160, 0.0003185, 0.0003211, 0.0003236, 0.0003261, &
0.0003286, 0.0003310, 0.0003334, 0.0003358, 0.0003382, &
0.0003405, 0.0003428, 0.0003451, 0.0003474, 0.0003497, &
0.0003519, 0.0003542/
data ((coa(i,j),i=1,62),j= 45, 45)/ &
0.0001312, 0.0001419, 0.0001515, 0.0001603, 0.0001685, &
0.0001761, 0.0001832, 0.0001899, 0.0001963, 0.0002024, &
0.0002082, 0.0002138, 0.0002191, 0.0002243, 0.0002292, &
0.0002341, 0.0002387, 0.0002433, 0.0002477, 0.0002520, &
0.0002562, 0.0002603, 0.0002644, 0.0002683, 0.0002722, &
0.0002759, 0.0002796, 0.0002833, 0.0002869, 0.0002904, &
0.0002939, 0.0002973, 0.0003006, 0.0003039, 0.0003072, &
0.0003104, 0.0003136, 0.0003167, 0.0003198, 0.0003228, &
0.0003259, 0.0003288, 0.0003318, 0.0003347, 0.0003376, &
0.0003404, 0.0003432, 0.0003460, 0.0003487, 0.0003515, &
0.0003542, 0.0003568, 0.0003595, 0.0003621, 0.0003647, &
0.0003673, 0.0003698, 0.0003724, 0.0003749, 0.0003773, &
0.0003798, 0.0003822/
data ((coa(i,j),i=1,62),j= 46, 46)/ &
0.0001406, 0.0001520, 0.0001623, 0.0001718, 0.0001805, &
0.0001886, 0.0001963, 0.0002035, 0.0002103, 0.0002168, &
0.0002231, 0.0002291, 0.0002348, 0.0002404, 0.0002458, &
0.0002510, 0.0002561, 0.0002610, 0.0002658, 0.0002705, &
0.0002750, 0.0002795, 0.0002839, 0.0002882, 0.0002924, &
0.0002965, 0.0003005, 0.0003045, 0.0003084, 0.0003123, &
0.0003161, 0.0003198, 0.0003235, 0.0003271, 0.0003307, &
0.0003342, 0.0003376, 0.0003411, 0.0003445, 0.0003478, &
0.0003511, 0.0003544, 0.0003576, 0.0003608, 0.0003639, &
0.0003670, 0.0003701, 0.0003731, 0.0003762, 0.0003791, &
0.0003821, 0.0003850, 0.0003879, 0.0003908, 0.0003936, &
0.0003965, 0.0003992, 0.0004020, 0.0004047, 0.0004075, &
0.0004102, 0.0004128/
data ((coa(i,j),i=1,62),j= 47, 47)/ &
0.0001506, 0.0001628, 0.0001739, 0.0001840, 0.0001934, &
0.0002021, 0.0002103, 0.0002180, 0.0002254, 0.0002324, &
0.0002391, 0.0002456, 0.0002518, 0.0002579, 0.0002637, &
0.0002694, 0.0002749, 0.0002802, 0.0002854, 0.0002905, &
0.0002955, 0.0003004, 0.0003052, 0.0003099, 0.0003145, &
0.0003190, 0.0003234, 0.0003278, 0.0003320, 0.0003362, &
0.0003404, 0.0003445, 0.0003485, 0.0003524, 0.0003564, &
0.0003602, 0.0003640, 0.0003678, 0.0003715, 0.0003751, &
0.0003787, 0.0003823, 0.0003858, 0.0003893, 0.0003928, &
0.0003962, 0.0003995, 0.0004029, 0.0004062, 0.0004094, &
0.0004127, 0.0004159, 0.0004190, 0.0004222, 0.0004253, &
0.0004283, 0.0004314, 0.0004344, 0.0004374, 0.0004404, &
0.0004433, 0.0004462/
data ((coa(i,j),i=1,62),j= 48, 48)/ &
0.0001613, 0.0001744, 0.0001863, 0.0001971, 0.0002072, &
0.0002165, 0.0002254, 0.0002337, 0.0002417, 0.0002493, &
0.0002565, 0.0002636, 0.0002703, 0.0002769, 0.0002832, &
0.0002894, 0.0002954, 0.0003013, 0.0003070, 0.0003125, &
0.0003180, 0.0003233, 0.0003286, 0.0003337, 0.0003387, &
0.0003436, 0.0003485, 0.0003533, 0.0003579, 0.0003625, &
0.0003671, 0.0003716, 0.0003760, 0.0003803, 0.0003846, &
0.0003888, 0.0003929, 0.0003971, 0.0004011, 0.0004051, &
0.0004091, 0.0004130, 0.0004168, 0.0004206, 0.0004244, &
0.0004281, 0.0004318, 0.0004354, 0.0004390, 0.0004426, &
0.0004461, 0.0004496, 0.0004530, 0.0004565, 0.0004598, &
0.0004632, 0.0004665, 0.0004698, 0.0004730, 0.0004763, &
0.0004795, 0.0004826/
data ((coa(i,j),i=1,62),j= 49, 49)/ &
0.0001728, 0.0001868, 0.0001996, 0.0002112, 0.0002220, &
0.0002321, 0.0002417, 0.0002507, 0.0002593, 0.0002676, &
0.0002755, 0.0002831, 0.0002905, 0.0002977, 0.0003046, &
0.0003113, 0.0003179, 0.0003243, 0.0003305, 0.0003366, &
0.0003426, 0.0003484, 0.0003542, 0.0003598, 0.0003653, &
0.0003707, 0.0003760, 0.0003812, 0.0003863, 0.0003914, &
0.0003963, 0.0004012, 0.0004060, 0.0004108, 0.0004154, &
0.0004201, 0.0004246, 0.0004291, 0.0004335, 0.0004379, &
0.0004422, 0.0004464, 0.0004506, 0.0004548, 0.0004589, &
0.0004629, 0.0004669, 0.0004709, 0.0004748, 0.0004787, &
0.0004825, 0.0004863, 0.0004900, 0.0004937, 0.0004974, &
0.0005010, 0.0005046, 0.0005082, 0.0005117, 0.0005152, &
0.0005187, 0.0005221/
data ((coa(i,j),i=1,62),j= 50, 50)/ &
0.0001851, 0.0002003, 0.0002139, 0.0002265, 0.0002382, &
0.0002491, 0.0002595, 0.0002693, 0.0002787, 0.0002877, &
0.0002963, 0.0003047, 0.0003127, 0.0003205, 0.0003281, &
0.0003355, 0.0003427, 0.0003497, 0.0003565, 0.0003632, &
0.0003697, 0.0003761, 0.0003824, 0.0003885, 0.0003945, &
0.0004004, 0.0004062, 0.0004119, 0.0004175, 0.0004230, &
0.0004285, 0.0004338, 0.0004390, 0.0004442, 0.0004493, &
0.0004543, 0.0004593, 0.0004641, 0.0004689, 0.0004737, &
0.0004784, 0.0004830, 0.0004875, 0.0004920, 0.0004965, &
0.0005009, 0.0005052, 0.0005095, 0.0005138, 0.0005179, &
0.0005221, 0.0005262, 0.0005302, 0.0005342, 0.0005268, &
0.0005421, 0.0005460, 0.0005499, 0.0005537, 0.0005574, &
0.0005612, 0.0005649/
data ((coa(i,j),i=1,62),j= 51, 51)/ &
0.0001985, 0.0002149, 0.0002297, 0.0002433, 0.0002559, &
0.0002679, 0.0002791, 0.0002898, 0.0003001, 0.0003099, &
0.0003193, 0.0003285, 0.0003373, 0.0003459, 0.0003542, &
0.0003622, 0.0003701, 0.0003778, 0.0003853, 0.0003926, &
0.0003997, 0.0004067, 0.0004135, 0.0004202, 0.0004268, &
0.0004333, 0.0004396, 0.0004458, 0.0004519, 0.0004579, &
0.0004638, 0.0004696, 0.0004753, 0.0004809, 0.0004864, &
0.0004919, 0.0004972, 0.0005025, 0.0005077, 0.0005129, &
0.0005179, 0.0005229, 0.0005279, 0.0005327, 0.0005375, &
0.0005423, 0.0005470, 0.0005516, 0.0005562, 0.0005607, &
0.0005652, 0.0005696, 0.0005739, 0.0005782, 0.0005825, &
0.0005867, 0.0005909, 0.0005951, 0.0005991, 0.0006032, &
0.0006072, 0.0006112/
data ((coa(i,j),i=1,62),j= 52, 52)/ &
0.0002132, 0.0002309, 0.0002469, 0.0002617, 0.0002755, &
0.0002885, 0.0003008, 0.0003125, 0.0003237, 0.0003345, &
0.0003449, 0.0003549, 0.0003645, 0.0003739, 0.0003830, &
0.0003918, 0.0004004, 0.0004088, 0.0004170, 0.0004250, &
0.0004328, 0.0004404, 0.0004478, 0.0004551, 0.0004623, &
0.0004693, 0.0004762, 0.0004829, 0.0004895, 0.0004960, &
0.0005024, 0.0005087, 0.0005149, 0.0005210, 0.0005269, &
0.0005328, 0.0005272, 0.0005443, 0.0005500, 0.0005555, &
0.0005609, 0.0005663, 0.0005717, 0.0005769, 0.0005821, &
0.0005872, 0.0005922, 0.0005972, 0.0006021, 0.0006070, &
0.0006118, 0.0006165, 0.0006212, 0.0006258, 0.0006304, &
0.0006349, 0.0006394, 0.0006438, 0.0006482, 0.0006525, &
0.0006568, 0.0006611/
data ((coa(i,j),i=1,62),j= 53, 53)/ &
0.0002293, 0.0002485, 0.0002660, 0.0002821, 0.0002972, &
0.0003114, 0.0003249, 0.0003377, 0.0003500, 0.0003618, &
0.0003732, 0.0003841, 0.0003947, 0.0004049, 0.0004149, &
0.0004245, 0.0004339, 0.0004430, 0.0004520, 0.0004606, &
0.0004691, 0.0004774, 0.0004855, 0.0004934, 0.0005012, &
0.0005087, 0.0005162, 0.0005235, 0.0005306, 0.0005377, &
0.0005446, 0.0005513, 0.0005580, 0.0005646, 0.0005710, &
0.0005773, 0.0005836, 0.0005897, 0.0005957, 0.0006017, &
0.0006076, 0.0006134, 0.0006191, 0.0006247, 0.0006302, &
0.0006357, 0.0006411, 0.0006464, 0.0006517, 0.0006569, &
0.0006620, 0.0006671, 0.0006721, 0.0006771, 0.0006820, &
0.0006868, 0.0006916, 0.0006963, 0.0007010, 0.0007056, &
0.0007102, 0.0007147/
data ((coa(i,j),i=1,62),j= 54, 54)/ &
0.0002471, 0.0002680, 0.0002871, 0.0003048, 0.0003214, &
0.0003369, 0.0003517, 0.0003658, 0.0003792, 0.0003921, &
0.0004045, 0.0004165, 0.0004281, 0.0004392, 0.0004501, &
0.0004606, 0.0004708, 0.0004807, 0.0004903, 0.0004998, &
0.0005089, 0.0005179, 0.0005267, 0.0005352, 0.0005436, &
0.0005518, 0.0005598, 0.0005677, 0.0005754, 0.0005829, &
0.0005903, 0.0005976, 0.0006048, 0.0006118, 0.0006187, &
0.0006255, 0.0006322, 0.0006388, 0.0006453, 0.0006516, &
0.0006579, 0.0006641, 0.0006702, 0.0006762, 0.0006822, &
0.0006880, 0.0006938, 0.0006995, 0.0007051, 0.0007106, &
0.0007161, 0.0007215, 0.0007269, 0.0007321, 0.0007374, &
0.0007425, 0.0007476, 0.0007527, 0.0007576, 0.0007626, &
0.0007674, 0.0007723/
data ((coa(i,j),i=1,62),j= 55, 55)/ &
0.0002669, 0.0002898, 0.0003107, 0.0003300, 0.0003482, &
0.0003653, 0.0003815, 0.0003969, 0.0004116, 0.0004257, &
0.0004392, 0.0004522, 0.0004648, 0.0004769, 0.0004887, &
0.0005001, 0.0005111, 0.0005218, 0.0005323, 0.0005425, &
0.0005524, 0.0005620, 0.0005714, 0.0005807, 0.0005897, &
0.0005985, 0.0006071, 0.0006155, 0.0006238, 0.0006319, &
0.0006398, 0.0006476, 0.0006553, 0.0006628, 0.0006702, &
0.0006775, 0.0006846, 0.0006917, 0.0006986, 0.0007054, &
0.0007121, 0.0007187, 0.0007252, 0.0007316, 0.0007379, &
0.0007442, 0.0007503, 0.0007564, 0.0007624, 0.0007683, &
0.0007741, 0.0007798, 0.0007855, 0.0007911, 0.0007967, &
0.0008022, 0.0008076, 0.0008129, 0.0008182, 0.0008235, &
0.0008286, 0.0008337/
data ((coa(i,j),i=1,62),j= 56, 56)/ &
0.0002889, 0.0003140, 0.0003369, 0.0003582, 0.0003780, &
0.0003967, 0.0004144, 0.0004312, 0.0004473, 0.0004626, &
0.0004773, 0.0004914, 0.0005050, 0.0005182, 0.0005309, &
0.0005432, 0.0005551, 0.0005666, 0.0005779, 0.0005888, &
0.0005995, 0.0006098, 0.0006200, 0.0006298, 0.0006395, &
0.0006489, 0.0006581, 0.0006672, 0.0006760, 0.0006847, &
0.0006932, 0.0007015, 0.0007097, 0.0007177, 0.0007256, &
0.0007333, 0.0007409, 0.0007484, 0.0007558, 0.0007630, &
0.0007702, 0.0007772, 0.0007841, 0.0007909, 0.0007976, &
0.0008043, 0.0008108, 0.0008172, 0.0008236, 0.0008298, &
0.0008360, 0.0008421, 0.0008481, 0.0008541, 0.0008600, &
0.0008658, 0.0008715, 0.0008772, 0.0008828, 0.0008883, &
0.0008938, 0.0008992/
data ((coa(i,j),i=1,62),j= 57, 57)/ &
0.0003135, 0.0003410, 0.0003662, 0.0003895, 0.0004112, &
0.0004316, 0.0004509, 0.0004692, 0.0004866, 0.0005032, &
0.0005191, 0.0005344, 0.0005491, 0.0005632, 0.0005769, &
0.0005901, 0.0006029, 0.0006153, 0.0006274, 0.0006391, &
0.0006505, 0.0006616, 0.0006725, 0.0006830, 0.0006933, &
0.0007034, 0.0007132, 0.0007229, 0.0007323, 0.0007415, &
0.0007506, 0.0007595, 0.0007682, 0.0007767, 0.0007851, &
0.0007933, 0.0008014, 0.0008093, 0.0008172, 0.0008249, &
0.0008324, 0.0008399, 0.0008472, 0.0008544, 0.0008615, &
0.0008685, 0.0008755, 0.0008823, 0.0008890, 0.0008956, &
0.0009021, 0.0009086, 0.0009149, 0.0009212, 0.0009274, &
0.0009335, 0.0009396, 0.0009455, 0.0009514, 0.0009573, &
0.0009630, 0.0009687/
data ((coa(i,j),i=1,62),j= 58, 58)/ &
0.0003409, 0.0003711, 0.0003987, 0.0004241, 0.0004478, &
0.0004700, 0.0004909, 0.0005107, 0.0005295, 0.0005474, &
0.0005645, 0.0005810, 0.0005968, 0.0006120, 0.0006267, &
0.0006408, 0.0006545, 0.0006678, 0.0006807, 0.0006932, &
0.0007054, 0.0007173, 0.0007288, 0.0007401, 0.0007510, &
0.0007618, 0.0007722, 0.0007825, 0.0007925, 0.0008023, &
0.0008119, 0.0008213, 0.0008306, 0.0008396, 0.0008485, &
0.0008572, 0.0008658, 0.0008742, 0.0008824, 0.0008906, &
0.0008986, 0.0009064, 0.0009142, 0.0009218, 0.0009293, &
0.0009367, 0.0009439, 0.0009511, 0.0009582, 0.0009652, &
0.0009720, 0.0009788, 0.0009855, 0.0009921, 0.0009986, &
0.0010050, 0.0010113, 0.0010176, 0.0010238, 0.0010299, &
0.0010359, 0.0010419/
data ((coa(i,j),i=1,62),j= 59, 59)/ &
0.0003715, 0.0004046, 0.0004346, 0.0004623, 0.0004880, &
0.0005120, 0.0005346, 0.0005560, 0.0005762, 0.0005955, &
0.0006139, 0.0006315, 0.0006485, 0.0006648, 0.0006804, &
0.0006956, 0.0007102, 0.0007244, 0.0007382, 0.0007515, &
0.0007645, 0.0007771, 0.0007893, 0.0008012, 0.0008129, &
0.0008243, 0.0008354, 0.0008463, 0.0008569, 0.0008673, &
0.0008774, 0.0008874, 0.0008971, 0.0009067, 0.0009160, &
0.0009252, 0.0009342, 0.0009431, 0.0009518, 0.0009604, &
0.0009688, 0.0009770, 0.0009851, 0.0009931, 0.0010010, &
0.0010088, 0.0010164, 0.0010239, 0.0010313, 0.0010386, &
0.0010458, 0.0010529, 0.0010598, 0.0010667, 0.0010735, &
0.0010802, 0.0010869, 0.0010934, 0.0010998, 0.0011062, &
0.0011125, 0.0011187/
data ((coa(i,j),i=1,62),j= 60, 60)/ &
0.0004055, 0.0004415, 0.0004742, 0.0005042, 0.0005320, &
0.0005579, 0.0005822, 0.0006052, 0.0006269, 0.0006476, &
0.0006673, 0.0006862, 0.0007042, 0.0007216, 0.0007383, &
0.0007545, 0.0007701, 0.0007851, 0.0007997, 0.0008139, &
0.0008276, 0.0008410, 0.0008540, 0.0008666, 0.0008789, &
0.0008910, 0.0009027, 0.0009141, 0.0009253, 0.0009362, &
0.0009469, 0.0009574, 0.0009676, 0.0009777, 0.0009875, &
0.0009972, 0.0010066, 0.0010159, 0.0010250, 0.0010339, &
0.0010427, 0.0010514, 0.0010599, 0.0010682, 0.0010764, &
0.0010845, 0.0010925, 0.0011003, 0.0011080, 0.0011156, &
0.0011231, 0.0011304, 0.0011377, 0.0011449, 0.0011519, &
0.0011589, 0.0011658, 0.0011726, 0.0011793, 0.0011859, &
0.0011924, 0.0011989/
data ((coa(i,j),i=1,62),j= 61, 61)/ &
0.0004429, 0.0004821, 0.0005175, 0.0005499, 0.0005798, &
0.0006076, 0.0006337, 0.0006583, 0.0006816, 0.0007037, &
0.0007247, 0.0007448, 0.0007640, 0.0007825, 0.0008003, &
0.0008174, 0.0008339, 0.0008499, 0.0008653, 0.0008803, &
0.0008948, 0.0009089, 0.0009226, 0.0009359, 0.0009488, &
0.0009615, 0.0009738, 0.0009858, 0.0009975, 0.0010089, &
0.0010201, 0.0010311, 0.0010418, 0.0010523, 0.0010625, &
0.0010726, 0.0010825, 0.0010921, 0.0011016, 0.0011109, &
0.0011201, 0.0011291, 0.0011379, 0.0011466, 0.0011551, &
0.0011635, 0.0011718, 0.0011799, 0.0011879, 0.0011958, &
0.0012035, 0.0012112, 0.0012187, 0.0012261, 0.0012335, &
0.0012407, 0.0012478, 0.0012548, 0.0012618, 0.0012686, &
0.0012754, 0.0012821/
data ((coa(i,j),i=1,62),j= 62, 62)/ &
0.0004840, 0.0005264, 0.0005646, 0.0005994, 0.0006316, &
0.0006614, 0.0006893, 0.0007155, 0.0007403, 0.0007638, &
0.0007862, 0.0008075, 0.0008279, 0.0008475, 0.0008663, &
0.0008844, 0.0009018, 0.0009186, 0.0009349, 0.0009506, &
0.0009658, 0.0009806, 0.0009950, 0.0010089, 0.0010225, &
0.0010356, 0.0010485, 0.0010610, 0.0010733, 0.0010852, &
0.0010968, 0.0011082, 0.0011194, 0.0011303, 0.0011409, &
0.0011514, 0.0011616, 0.0011717, 0.0011815, 0.0011912, &
0.0012007, 0.0012100, 0.0012191, 0.0012281, 0.0012370, &
0.0012457, 0.0012542, 0.0012627, 0.0012709, 0.0012791, &
0.0012871, 0.0012951, 0.0013029, 0.0013106, 0.0013181, &
0.0013256, 0.0013330, 0.0013403, 0.0013475, 0.0013546, &
0.0013616, 0.0013685/
data ((coa(i,j),i=1,62),j= 63, 63)/ &
0.0005290, 0.0005747, 0.0006157, 0.0006530, 0.0006874, &
0.0007192, 0.0007490, 0.0007769, 0.0008032, 0.0008281, &
0.0008518, 0.0008743, 0.0008959, 0.0009165, 0.0009362, &
0.0009552, 0.0009735, 0.0009911, 0.0010082, 0.0010246, &
0.0010405, 0.0010559, 0.0010709, 0.0010854, 0.0010995, &
0.0011132, 0.0011266, 0.0011396, 0.0011523, 0.0011647, &
0.0011768, 0.0011886, 0.0012002, 0.0012115, 0.0012225, &
0.0012334, 0.0012440, 0.0012544, 0.0012646, 0.0012746, &
0.0012844, 0.0012941, 0.0013036, 0.0013129, 0.0013220, &
0.0013310, 0.0013399, 0.0013486, 0.0013572, 0.0013657, &
0.0013740, 0.0013823, 0.0013904, 0.0013983, 0.0014062, &
0.0014140, 0.0014217, 0.0014292, 0.0014367, 0.0014441, &
0.0014514, 0.0014586/
data ((coa(i,j),i=1,62),j= 64, 64)/ &
0.0005778, 0.0006269, 0.0006708, 0.0007107, 0.0007473, &
0.0007812, 0.0008127, 0.0008423, 0.0008701, 0.0008964, &
0.0009213, 0.0009450, 0.0009676, 0.0009892, 0.0010099, &
0.0010297, 0.0010488, 0.0010671, 0.0010848, 0.0011020, &
0.0011185, 0.0011345, 0.0011500, 0.0011651, 0.0011798, &
0.0011940, 0.0012078, 0.0012213, 0.0012345, 0.0012473, &
0.0012599, 0.0012721, 0.0012841, 0.0012958, 0.0013073, &
0.0013185, 0.0013295, 0.0013403, 0.0013509, 0.0013612, &
0.0013714, 0.0013815, 0.0013913, 0.0014010, 0.0014105, &
0.0014199, 0.0014291, 0.0014382, 0.0014471, 0.0014559, &
0.0014646, 0.0014732, 0.0014816, 0.0014900, 0.0014982, &
0.0015063, 0.0015143, 0.0015222, 0.0015300, 0.0015377, &
0.0015453, 0.0015528/
data ((coa(i,j),i=1,62),j= 65, 65)/ &
0.0006307, 0.0006832, 0.0007301, 0.0007725, 0.0008114, &
0.0008472, 0.0008805, 0.0009116, 0.0009409, 0.0009684, &
0.0009945, 0.0010193, 0.0010428, 0.0010653, 0.0010868, &
0.0011075, 0.0011273, 0.0011464, 0.0011647, 0.0011825, &
0.0011996, 0.0012162, 0.0012323, 0.0012480, 0.0012631, &
0.0012779, 0.0012922, 0.0013062, 0.0013199, 0.0013332, &
0.0013462, 0.0013589, 0.0013713, 0.0013835, 0.0013954, &
0.0014071, 0.0014186, 0.0014298, 0.0014408, 0.0014516, &
0.0014623, 0.0014727, 0.0014830, 0.0014931, 0.0015030, &
0.0015128, 0.0015225, 0.0015319, 0.0015413, 0.0015505, &
0.0015596, 0.0015686, 0.0015774, 0.0015862, 0.0015948, &
0.0016033, 0.0016117, 0.0016200, 0.0016282, 0.0016363, &
0.0016443, 0.0016522/
data ((coa(i,j),i=1,62),j= 66, 66)/ &
0.0006876, 0.0007436, 0.0007934, 0.0008383, 0.0008793, &
0.0009170, 0.0009520, 0.0009846, 0.0010150, 0.0010439, &
0.0010710, 0.0010968, 0.0011213, 0.0011446, 0.0011669, &
0.0011883, 0.0012089, 0.0012287, 0.0012477, 0.0012661, &
0.0012839, 0.0013011, 0.0013178, 0.0013340, 0.0013498, &
0.0013651, 0.0013800, 0.0013946, 0.0014088, 0.0014227, &
0.0014362, 0.0014495, 0.0014624, 0.0014751, 0.0014876, &
0.0014998, 0.0015117, 0.0015235, 0.0015350, 0.0015464, &
0.0015575, 0.0015685, 0.0015792, 0.0015899, 0.0016003, &
0.0016106, 0.0016207, 0.0016307, 0.0016405, 0.0016502, &
0.0016598, 0.0016693, 0.0016786, 0.0016878, 0.0016969, &
0.0017059, 0.0017147, 0.0017235, 0.0017322, 0.0017407, &
0.0017492, 0.0017575/
data ((coa(i,j),i=1,62),j= 67, 67)/ &
0.0007485, 0.0008080, 0.0008606, 0.0009079, 0.0009509, &
0.0009904, 0.0010269, 0.0010608, 0.0010926, 0.0011225, &
0.0011507, 0.0011774, 0.0012028, 0.0012270, 0.0012501, &
0.0012723, 0.0012936, 0.0013142, 0.0013339, 0.0013531, &
0.0013716, 0.0013895, 0.0014069, 0.0014238, 0.0014402, &
0.0014562, 0.0014718, 0.0014870, 0.0015019, 0.0015164, &
0.0015306, 0.0015445, 0.0015581, 0.0015714, 0.0015845, &
0.0015973, 0.0016099, 0.0016223, 0.0016344, 0.0016464, &
0.0016581, 0.0016697, 0.0016811, 0.0016922, 0.0017033, &
0.0017141, 0.0017249, 0.0017354, 0.0017458, 0.0017561, &
0.0017662, 0.0017762, 0.0017861, 0.0017959, 0.0018055, &
0.0018150, 0.0018244, 0.0018337, 0.0018429, 0.0018520, &
0.0018610, 0.0018698/
data ((coa(i,j),i=1,62),j= 68, 68)/ &
0.0008135, 0.0008762, 0.0009315, 0.0009811, 0.0010259, &
0.0010670, 0.0011050, 0.0011402, 0.0011732, 0.0012042, &
0.0012334, 0.0012611, 0.0012874, 0.0013126, 0.0013366, &
0.0013597, 0.0013819, 0.0014033, 0.0014239, 0.0014439, &
0.0014632, 0.0014820, 0.0015002, 0.0015179, 0.0015351, &
0.0015519, 0.0015683, 0.0015843, 0.0016000, 0.0016153, &
0.0016302, 0.0016449, 0.0016592, 0.0016733, 0.0016871, &
0.0017007, 0.0017140, 0.0017271, 0.0017400, 0.0017526, &
0.0017651, 0.0017773, 0.0017894, 0.0018012, 0.0018129, &
0.0018245, 0.0018358, 0.0018471, 0.0018581, 0.0018690, &
0.0018798, 0.0018904, 0.0019009, 0.0019113, 0.0019215, &
0.0019316, 0.0019416, 0.0019515, 0.0019613, 0.0019709, &
0.0019805, 0.0019899/
data ((coa(i,j),i=1,62),j= 69, 69)/ &
0.0008823, 0.0009481, 0.0010059, 0.0010575, 0.0011042, &
0.0011468, 0.0011862, 0.0012227, 0.0012569, 0.0012891, &
0.0013195, 0.0013483, 0.0013757, 0.0014020, 0.0014271, &
0.0014512, 0.0014744, 0.0014968, 0.0015185, 0.0015395, &
0.0015598, 0.0015795, 0.0015987, 0.0016174, 0.0016356, &
0.0016533, 0.0016707, 0.0016876, 0.0017041, 0.0017203, &
0.0017362, 0.0017517, 0.0017669, 0.0017819, 0.0017965, &
0.0018109, 0.0018251, 0.0018390, 0.0018527, 0.0018661, &
0.0018793, 0.0018924, 0.0019052, 0.0019178, 0.0019303, &
0.0019425, 0.0019546, 0.0019665, 0.0019783, 0.0019899, &
0.0020014, 0.0020127, 0.0020238, 0.0020348, 0.0020457, &
0.0020565, 0.0020671, 0.0020776, 0.0020880, 0.0020983, &
0.0021084, 0.0021185/
data ((coa(i,j),i=1,62),j= 70, 70)/ &
0.0009546, 0.0010233, 0.0010834, 0.0011370, 0.0011854, &
0.0012297, 0.0012705, 0.0013085, 0.0013441, 0.0013776, &
0.0014093, 0.0014395, 0.0014682, 0.0014957, 0.0015221, &
0.0015475, 0.0015720, 0.0015956, 0.0016185, 0.0016406, &
0.0016621, 0.0016830, 0.0017033, 0.0017231, 0.0017424, &
0.0017613, 0.0017797, 0.0017976, 0.0018152, 0.0018324, &
0.0018493, 0.0018658, 0.0018820, 0.0018979, 0.0019135, &
0.0019288, 0.0019439, 0.0019587, 0.0019732, 0.0019875, &
0.0020016, 0.0020155, 0.0020291, 0.0020425, 0.0020558, &
0.0020688, 0.0020817, 0.0020944, 0.0021069, 0.0021192, &
0.0021314, 0.0021434, 0.0021095, 0.0021670, 0.0021786, &
0.0021900, 0.0022013, 0.0022125, 0.0022235, 0.0022344, &
0.0022452, 0.0022558/
data ((coa(i,j),i=1,62),j= 71, 71)/ &
0.0010302, 0.0011016, 0.0011640, 0.0012195, 0.0012698, &
0.0013159, 0.0013584, 0.0013981, 0.0014354, 0.0014705, &
0.0015038, 0.0015355, 0.0015658, 0.0015948, 0.0016227, &
0.0016496, 0.0016755, 0.0017005, 0.0017248, 0.0017483, &
0.0017712, 0.0017934, 0.0018150, 0.0018360, 0.0018566, &
0.0018766, 0.0018962, 0.0019153, 0.0019340, 0.0019524, &
0.0019703, 0.0019879, 0.0020052, 0.0020221, 0.0020387, &
0.0020550, 0.0020710, 0.0020867, 0.0021022, 0.0021174, &
0.0021324, 0.0021471, 0.0021159, 0.0021759, 0.0021900, &
0.0022039, 0.0022175, 0.0022310, 0.0022443, 0.0022574, &
0.0022703, 0.0022830, 0.0022956, 0.0023080, 0.0023203, &
0.0023324, 0.0023443, 0.0023562, 0.0023678, 0.0023794, &
0.0023908, 0.0024020/
data ((coa(i,j),i=1,62),j= 72, 72)/ &
0.0011087, 0.0011828, 0.0012476, 0.0013054, 0.0013579, &
0.0014060, 0.0014506, 0.0014923, 0.0015315, 0.0015685, &
0.0016038, 0.0016373, 0.0016694, 0.0017002, 0.0017298, &
0.0017583, 0.0017859, 0.0018125, 0.0018384, 0.0018634, &
0.0018877, 0.0019114, 0.0019344, 0.0019568, 0.0019787, &
0.0020000, 0.0020209, 0.0020412, 0.0020612, 0.0020807, &
0.0020998, 0.0021185, 0.0021368, 0.0021090, 0.0021725, &
0.0021898, 0.0022068, 0.0022235, 0.0022399, 0.0022561, &
0.0022720, 0.0022876, 0.0023029, 0.0023181, 0.0023330, &
0.0023477, 0.0023621, 0.0023764, 0.0023904, 0.0024042, &
0.0024179, 0.0024314, 0.0024446, 0.0024577, 0.0024707, &
0.0024834, 0.0024960, 0.0025085, 0.0025208, 0.0025329, &
0.0025449, 0.0025568/
data ((coa(i,j),i=1,62),j= 73, 73)/ &
0.0011902, 0.0012672, 0.0013347, 0.0013952, 0.0014502, &
0.0015008, 0.0015478, 0.0015919, 0.0016334, 0.0016727, &
0.0017101, 0.0017457, 0.0017799, 0.0018126, 0.0018442, &
0.0018746, 0.0019039, 0.0019323, 0.0019598, 0.0019865, &
0.0020124, 0.0020376, 0.0020621, 0.0020859, 0.0021092, &
0.0021319, 0.0021083, 0.0021757, 0.0021969, 0.0022176, &
0.0022379, 0.0022577, 0.0022772, 0.0022962, 0.0023149, &
0.0023333, 0.0023513, 0.0023690, 0.0023863, 0.0024034, &
0.0024202, 0.0024366, 0.0024529, 0.0024688, 0.0024845, &
0.0025000, 0.0025152, 0.0025302, 0.0025450, 0.0025595, &
0.0025739, 0.0025880, 0.0026019, 0.0026157, 0.0026293, &
0.0026426, 0.0026557, 0.0026689, 0.0026817, 0.0026944, &
0.0027070, 0.0027194/
data ((coa(i,j),i=1,62),j= 74, 74)/ &
0.0012749, 0.0013552, 0.0014259, 0.0014895, 0.0015475, &
0.0016010, 0.0016509, 0.0016977, 0.0017418, 0.0017836, &
0.0018234, 0.0018614, 0.0018978, 0.0019328, 0.0019664, &
0.0019987, 0.0020300, 0.0020602, 0.0020895, 0.0021179, &
0.0021454, 0.0021722, 0.0021982, 0.0022235, 0.0022482, &
0.0022723, 0.0022958, 0.0023187, 0.0023411, 0.0023630, &
0.0023844, 0.0024054, 0.0024259, 0.0024460, 0.0024658, &
0.0024851, 0.0025040, 0.0025226, 0.0025409, 0.0025588, &
0.0025764, 0.0025937, 0.0026107, 0.0026275, 0.0026439, &
0.0026601, 0.0026760, 0.0026917, 0.0027071, 0.0027223, &
0.0027373, 0.0027520, 0.0027665, 0.0027808, 0.0027950, &
0.0028089, 0.0028226, 0.0028361, 0.0028495, 0.0028627, &
0.0028757, 0.0028885/
data ((coa(i,j),i=1,62),j= 75, 75)/ &
0.0013631, 0.0014474, 0.0015220, 0.0015892, 0.0016507, &
0.0017076, 0.0017607, 0.0018105, 0.0018575, 0.0019021, &
0.0019445, 0.0019850, 0.0020238, 0.0020610, 0.0020967, &
0.0021312, 0.0021186, 0.0021965, 0.0022276, 0.0022577, &
0.0022868, 0.0023152, 0.0023427, 0.0023695, 0.0023956, &
0.0024210, 0.0024457, 0.0024699, 0.0024935, 0.0025165, &
0.0025390, 0.0025610, 0.0025826, 0.0026037, 0.0026243, &
0.0026445, 0.0026643, 0.0026838, 0.0027028, 0.0027215, &
0.0027399, 0.0027579, 0.0027756, 0.0027930, 0.0028101, &
0.0028269, 0.0028434, 0.0028596, 0.0028756, 0.0028913, &
0.0029068, 0.0029220, 0.0029370, 0.0029518, 0.0029664, &
0.0029807, 0.0029949, 0.0030088, 0.0030225, 0.0030361, &
0.0030494, 0.0030626/
data ((coa(i,j),i=1,62),j= 76, 76)/ &
0.0014557, 0.0015446, 0.0016236, 0.0016950, 0.0017605, &
0.0018211, 0.0018777, 0.0019308, 0.0019809, 0.0020284, &
0.0020736, 0.0021167, 0.0021121, 0.0021973, 0.0022353, &
0.0022718, 0.0023069, 0.0023409, 0.0023737, 0.0024055, &
0.0024362, 0.0024661, 0.0024950, 0.0025232, 0.0025506, &
0.0025772, 0.0026031, 0.0026284, 0.0026531, 0.0026771, &
0.0027006, 0.0027235, 0.0027460, 0.0027679, 0.0027893, &
0.0028103, 0.0028309, 0.0028510, 0.0028707, 0.0028900, &
0.0029090, 0.0029276, 0.0029458, 0.0029637, 0.0029813, &
0.0029986, 0.0030156, 0.0030322, 0.0030486, 0.0030647, &
0.0030806, 0.0030962, 0.0031115, 0.0031266, 0.0031414, &
0.0031560, 0.0031704, 0.0031846, 0.0031986, 0.0032123, &
0.0032259, 0.0032392/
data ((coa(i,j),i=1,62),j= 77, 77)/ &
0.0015532, 0.0016476, 0.0017317, 0.0018078, 0.0018775, &
0.0019422, 0.0020024, 0.0020590, 0.0021123, 0.0021169, &
0.0022106, 0.0022563, 0.0022999, 0.0023416, 0.0023817, &
0.0024202, 0.0024572, 0.0024929, 0.0025273, 0.0025607, &
0.0025929, 0.0026241, 0.0026543, 0.0026837, 0.0027122, &
0.0027399, 0.0027668, 0.0027931, 0.0028186, 0.0028435, &
0.0028678, 0.0028915, 0.0029146, 0.0029372, 0.0029592, &
0.0029808, 0.0030019, 0.0030225, 0.0030427, 0.0030625, &
0.0030819, 0.0031009, 0.0031195, 0.0031377, 0.0031556, &
0.0031732, 0.0031904, 0.0032073, 0.0032239, 0.0032402, &
0.0032563, 0.0032720, 0.0032875, 0.0033027, 0.0033177, &
0.0033324, 0.0033468, 0.0033611, 0.0033751, 0.0033889, &
0.0034025, 0.0034159/
data ((coa(i,j),i=1,62),j= 78, 78)/ &
0.0016566, 0.0017571, 0.0018467, 0.0019278, 0.0020021, &
0.0020708, 0.0021349, 0.0021949, 0.0022514, 0.0023047, &
0.0023554, 0.0024035, 0.0024494, 0.0024932, 0.0025352, &
0.0025755, 0.0026142, 0.0026515, 0.0026874, 0.0027220, &
0.0027555, 0.0027878, 0.0028191, 0.0028495, 0.0028789, &
0.0029075, 0.0029352, 0.0029621, 0.0029883, 0.0030138, &
0.0030387, 0.0030629, 0.0030864, 0.0031094, 0.0031319, &
0.0031538, 0.0031752, 0.0031961, 0.0032166, 0.0032365, &
0.0032561, 0.0032752, 0.0032940, 0.0033123, 0.0033303, &
0.0033479, 0.0033652, 0.0033821, 0.0033988, 0.0034151, &
0.0034310, 0.0034467, 0.0034622, 0.0034773, 0.0034922, &
0.0035068, 0.0035211, 0.0035353, 0.0035491, 0.0035628, &
0.0035762, 0.0035894/
data ((coa(i,j),i=1,62),j= 79, 79)/ &
0.0017664, 0.0018736, 0.0019689, 0.0020552, 0.0021342, &
0.0022071, 0.0022749, 0.0023383, 0.0023978, 0.0024539, &
0.0025070, 0.0025574, 0.0026054, 0.0026511, 0.0026948, &
0.0027366, 0.0027767, 0.0028153, 0.0028523, 0.0028880, &
0.0029224, 0.0029556, 0.0029877, 0.0030187, 0.0030487, &
0.0030778, 0.0031060, 0.0031334, 0.0031599, 0.0031857, &
0.0032108, 0.0032352, 0.0032590, 0.0032821, 0.0033047, &
0.0033267, 0.0033481, 0.0033690, 0.0033894, 0.0034094, &
0.0034289, 0.0034479, 0.0034665, 0.0034847, 0.0035025, &
0.0035200, 0.0035371, 0.0035538, 0.0035702, 0.0035862, &
0.0036020, 0.0036174, 0.0036325, 0.0036474, 0.0036620, &
0.0036763, 0.0036903, 0.0037041, 0.0037177, 0.0037310, &
0.0037441, 0.0037569/
data ((coa(i,j),i=1,62),j= 80, 80)/ &
0.0018832, 0.0019973, 0.0020987, 0.0021902, 0.0022737, &
0.0023505, 0.0024220, 0.0024885, 0.0025508, 0.0026093, &
0.0026646, 0.0027169, 0.0027666, 0.0028138, 0.0028589, &
0.0029018, 0.0029430, 0.0029824, 0.0030202, 0.0030565, &
0.0030915, 0.0031252, 0.0031576, 0.0031890, 0.0032192, &
0.0032485, 0.0032768, 0.0033042, 0.0033308, 0.0033566, &
0.0033816, 0.0034059, 0.0034295, 0.0034525, 0.0034748, &
0.0034966, 0.0035177, 0.0035384, 0.0035585, 0.0035781, &
0.0035972, 0.0036159, 0.0036341, 0.0036520, 0.0036694, &
0.0036864, 0.0037031, 0.0037193, 0.0037353, 0.0037509, &
0.0037662, 0.0037811, 0.0037958, 0.0038102, 0.0038243, &
0.0038381, 0.0038517, 0.0038650, 0.0038780, 0.0038908, &
0.0039034, 0.0039158/
data ((coa(i,j),i=1,62),j= 81, 81)/ &
0.0020072, 0.0021282, 0.0022356, 0.0023321, 0.0024200, &
0.0025006, 0.0025751, 0.0026443, 0.0027089, 0.0027695, &
0.0028265, 0.0028803, 0.0029311, 0.0029794, 0.0030252, &
0.0030689, 0.0031106, 0.0031504, 0.0031886, 0.0032251, &
0.0032602, 0.0032939, 0.0033263, 0.0033575, 0.0033876, &
0.0034166, 0.0034447, 0.0034718, 0.0034980, 0.0035234, &
0.0035480, 0.0035719, 0.0035950, 0.0036175, 0.0036393, &
0.0036605, 0.0036811, 0.0037012, 0.0037207, 0.0037398, &
0.0037583, 0.0037764, 0.0037940, 0.0038112, 0.0038280, &
0.0038444, 0.0038604, 0.0038761, 0.0038914, 0.0039063, &
0.0039210, 0.0039353, 0.0039494, 0.0039631, 0.0039766, &
0.0039898, 0.0040027, 0.0040154, 0.0040278, 0.0040400, &
0.0040520, 0.0040638/
data ((coa(i,j),i=1,62),j= 82, 82)/ &
0.0021381, 0.0022661, 0.0023791, 0.0024803, 0.0025719, &
0.0026557, 0.0027328, 0.0028041, 0.0028705, 0.0029325, &
0.0029905, 0.0030451, 0.0030966, 0.0031453, 0.0031914, &
0.0032353, 0.0032769, 0.0033166, 0.0033545, 0.0033908, &
0.0034255, 0.0034588, 0.0034907, 0.0035214, 0.0035509, &
0.0035793, 0.0036067, 0.0036331, 0.0036586, 0.0036833, &
0.0037071, 0.0037302, 0.0037526, 0.0037743, 0.0037953, &
0.0038157, 0.0038356, 0.0038548, 0.0038736, 0.0038916, &
0.0039095, 0.0039268, 0.0039436, 0.0039600, 0.0039761, &
0.0039917, 0.0040069, 0.0040218, 0.0040364, 0.0040506, &
0.0040645, 0.0040781, 0.0040914, 0.0041044, 0.0041172, &
0.0041296, 0.0041419, 0.0041539, 0.0041656, 0.0041772, &
0.0041885, 0.0041996/
data ((coa(i,j),i=1,62),j= 83, 83)/ &
0.0022756, 0.0024100, 0.0025280, 0.0026332, 0.0027280, &
0.0028142, 0.0028931, 0.0029658, 0.0030331, 0.0030957, &
0.0031541, 0.0032089, 0.0032603, 0.0033088, 0.0033545, &
0.0033978, 0.0034389, 0.0034780, 0.0035151, 0.0035506, &
0.0035844, 0.0036168, 0.0036478, 0.0036775, 0.0037061, &
0.0037335, 0.0037599, 0.0037853, 0.0038098, 0.0038335, &
0.0038563, 0.0038784, 0.0038998, 0.0039205, 0.0039405, &
0.0039599, 0.0039788, 0.0039971, 0.0040149, 0.0040322, &
0.0040490, 0.0040653, 0.0040813, 0.0040968, 0.0041119, &
0.0041267, 0.0041411, 0.0041552, 0.0041689, 0.0041823, &
0.0041954, 0.0042082, 0.0042208, 0.0042331, 0.0042451, &
0.0042569, 0.0042684, 0.0042797, 0.0042908, 0.0043017, &
0.0043123, 0.0043228/
data ((coa(i,j),i=1,62),j= 84, 84)/ &
0.0024185, 0.0025586, 0.0026808, 0.0027890, 0.0028859, &
0.0029735, 0.0030533, 0.0031264, 0.0031938, 0.0032562, &
0.0033142, 0.0033683, 0.0034190, 0.0034665, 0.0035113, &
0.0035535, 0.0035934, 0.0036313, 0.0036672, 0.0037014, &
0.0037340, 0.0037651, 0.0037948, 0.0038232, 0.0038505, &
0.0038767, 0.0039018, 0.0039260, 0.0039493, 0.0039717, &
0.0039934, 0.0040143, 0.0040345, 0.0040540, 0.0040730, &
0.0040913, 0.0041091, 0.0041264, 0.0041432, 0.0041595, &
0.0041753, 0.0041907, 0.0042057, 0.0042204, 0.0042346, &
0.0042485, 0.0042621, 0.0042754, 0.0042883, 0.0043009, &
0.0043133, 0.0043254, 0.0043372, 0.0043488, 0.0043601, &
0.0043712, 0.0043821, 0.0043928, 0.0044032, 0.0044135, &
0.0044236, 0.0044335/
data ((coa(i,j),i=1,62),j= 85, 85)/ &
0.0025653, 0.0027099, 0.0028350, 0.0029450, 0.0030428, &
0.0031307, 0.0032102, 0.0032828, 0.0033493, 0.0034106, &
0.0034673, 0.0035200, 0.0035692, 0.0036152, 0.0036583, &
0.0036990, 0.0037373, 0.0037735, 0.0038078, 0.0038404, &
0.0038714, 0.0039009, 0.0039291, 0.0039560, 0.0039818, &
0.0040065, 0.0040303, 0.0040531, 0.0040751, 0.0040962, &
0.0041166, 0.0041363, 0.0041553, 0.0041738, 0.0041916, &
0.0042089, 0.0042256, 0.0042419, 0.0042577, 0.0042730, &
0.0042879, 0.0043025, 0.0043166, 0.0043304, 0.0043439, &
0.0043570, 0.0043698, 0.0043823, 0.0043945, 0.0044064, &
0.0044181, 0.0044296, 0.0044407, 0.0044517, 0.0044624, &
0.0044730, 0.0044833, 0.0044934, 0.0045033, 0.0045130, &
0.0045226, 0.0045320/
data ((coa(i,j),i=1,62),j= 86, 86)/ &
0.0027124, 0.0028597, 0.0029861, 0.0030963, 0.0031936, &
0.0032805, 0.0033586, 0.0034295, 0.0034941, 0.0035534, &
0.0036081, 0.0036587, 0.0037058, 0.0037497, 0.0037908, &
0.0038294, 0.0038657, 0.0039000, 0.0039324, 0.0039631, &
0.0039923, 0.0040201, 0.0040467, 0.0040720, 0.0040963, &
0.0041195, 0.0041418, 0.0041633, 0.0041839, 0.0042038, &
0.0042230, 0.0042415, 0.0042594, 0.0042768, 0.0042935, &
0.0043098, 0.0043256, 0.0043409, 0.0043558, 0.0043703, &
0.0043844, 0.0043982, 0.0044115, 0.0044246, 0.0044373, &
0.0044497, 0.0044619, 0.0044737, 0.0044853, 0.0044966, &
0.0045077, 0.0045186, 0.0045292, 0.0045397, 0.0045499, &
0.0045599, 0.0045697, 0.0045793, 0.0045888, 0.0045981, &
0.0046072, 0.0046162/
data ((coa(i,j),i=1,62),j= 87, 87)/ &
0.0028481, 0.0029956, 0.0031209, 0.0032292, 0.0033241, &
0.0034083, 0.0034836, 0.0035515, 0.0036132, 0.0036696, &
0.0037214, 0.0037692, 0.0038136, 0.0038548, 0.0038934, &
0.0039296, 0.0039636, 0.0039956, 0.0040260, 0.0040547, &
0.0040820, 0.0041080, 0.0041328, 0.0041565, 0.0041792, &
0.0042010, 0.0042219, 0.0042419, 0.0042613, 0.0042800, &
0.0042980, 0.0043154, 0.0043322, 0.0043485, 0.0043643, &
0.0043796, 0.0043945, 0.0044090, 0.0044231, 0.0044367, &
0.0044501, 0.0044631, 0.0044757, 0.0044881, 0.0045001, &
0.0045119, 0.0045234, 0.0045347, 0.0045457, 0.0045564, &
0.0045670, 0.0045773, 0.0045874, 0.0045973, 0.0046070, &
0.0046166, 0.0046259, 0.0046351, 0.0046441, 0.0046530, &
0.0046616, 0.0046702/
data ((coa(i,j),i=1,62),j= 88, 88)/ &
0.0029341, 0.0030768, 0.0031968, 0.0032997, 0.0033892, &
0.0034681, 0.0035383, 0.0036014, 0.0036584, 0.0037104, &
0.0037581, 0.0038020, 0.0038427, 0.0038805, 0.0039159, &
0.0039490, 0.0039801, 0.0040095, 0.0040373, 0.0040637, &
0.0040888, 0.0041127, 0.0041355, 0.0041573, 0.0041782, &
0.0041983, 0.0042175, 0.0042361, 0.0042540, 0.0042713, &
0.0042880, 0.0043041, 0.0043197, 0.0043349, 0.0043495, &
0.0043638, 0.0043777, 0.0043911, 0.0044042, 0.0044170, &
0.0044294, 0.0044416, 0.0044534, 0.0044649, 0.0044762, &
0.0044872, 0.0044980, 0.0045085, 0.0045188, 0.0045289, &
0.0045387, 0.0045484, 0.0045579, 0.0045672, 0.0045763, &
0.0045852, 0.0045940, 0.0046026, 0.0046110, 0.0046193, &
0.0046275, 0.0046355/
data ((coa(i,j),i=1,62),j= 89, 89)/ &
0.0029122, 0.0030427, 0.0031513, 0.0032438, 0.0033237, &
0.0033938, 0.0034559, 0.0035116, 0.0035619, 0.0036076, &
0.0036495, 0.0036882, 0.0037238, 0.0037573, 0.0037884, &
0.0038176, 0.0038451, 0.0038711, 0.0038957, 0.0039191, &
0.0039413, 0.0039626, 0.0039829, 0.0040023, 0.0040209, &
0.0040389, 0.0040561, 0.0040727, 0.0040887, 0.0041042, &
0.0041192, 0.0041337, 0.0041477, 0.0041613, 0.0041745, &
0.0041874, 0.0041998, 0.0042120, 0.0042238, 0.0042353, &
0.0042465, 0.0042574, 0.0042681, 0.0042785, 0.0042887, &
0.0042986, 0.0043084, 0.0043179, 0.0043272, 0.0043363, &
0.0043452, 0.0043539, 0.0043625, 0.0043709, 0.0043791, &
0.0043872, 0.0043951, 0.0044029, 0.0044105, 0.0044180, &
0.0044254, 0.0044326/
data ((coa(i,j),i=1,62),j= 90, 90)/ &
0.0027405, 0.0028512, 0.0029426, 0.0030199, 0.0030864, &
0.0031447, 0.0031962, 0.0032424, 0.0032841, 0.0033221, &
0.0033569, 0.0033891, 0.0034190, 0.0034468, 0.0034729, &
0.0034974, 0.0035206, 0.0035424, 0.0035632, 0.0035830, &
0.0036018, 0.0036198, 0.0036370, 0.0036535, 0.0036694, &
0.0036847, 0.0036993, 0.0037135, 0.0037272, 0.0037404, &
0.0037532, 0.0037656, 0.0037776, 0.0037892, 0.0038005, &
0.0038115, 0.0038222, 0.0038326, 0.0038427, 0.0038526, &
0.0038622, 0.0038716, 0.0038808, 0.0038897, 0.0038984, &
0.0039070, 0.0039153, 0.0039235, 0.0039314, 0.0039393, &
0.0039469, 0.0039544, 0.0039618, 0.0039690, 0.0039761, &
0.0039830, 0.0039898, 0.0039965, 0.0040030, 0.0040095, &
0.0040158, 0.0040220/
data ((coa(i,j),i=1,62),j= 91, 91)/ &
0.0024633, 0.0025514, 0.0026239, 0.0026851, 0.0027377, &
0.0027838, 0.0028247, 0.0028613, 0.0028946, 0.0029249, &
0.0029529, 0.0029787, 0.0030028, 0.0030253, 0.0030464, &
0.0030663, 0.0030851, 0.0031029, 0.0031199, 0.0031360, &
0.0031514, 0.0031661, 0.0031803, 0.0031938, 0.0032068, &
0.0032194, 0.0032314, 0.0032431, 0.0032544, 0.0032652, &
0.0032758, 0.0032860, 0.0032959, 0.0033055, 0.0033148, &
0.0033239, 0.0033327, 0.0033413, 0.0033497, 0.0033578, &
0.0033658, 0.0033735, 0.0033811, 0.0033885, 0.0033957, &
0.0034028, 0.0034097, 0.0034164, 0.0034230, 0.0034295, &
0.0034359, 0.0034421, 0.0034482, 0.0034541, 0.0034600, &
0.0034657, 0.0034714, 0.0034769, 0.0034823, 0.0034877, &
0.0034929, 0.0034981/
data ((coa(i,j),i=1,62),j= 92, 92)/ &
0.0021142, 0.0022278, 0.0022837, 0.0023309, 0.0023717, &
0.0024075, 0.0024394, 0.0024681, 0.0024943, 0.0025182, &
0.0025404, 0.0025609, 0.0025801, 0.0025980, 0.0026149, &
0.0026308, 0.0026459, 0.0026602, 0.0026738, 0.0026868, &
0.0026992, 0.0027111, 0.0027225, 0.0027334, 0.0027439, &
0.0027541, 0.0027638, 0.0027733, 0.0027824, 0.0027912, &
0.0027997, 0.0028080, 0.0028160, 0.0028238, 0.0028314, &
0.0028387, 0.0028459, 0.0028529, 0.0028597, 0.0028663, &
0.0028727, 0.0028791, 0.0028852, 0.0028912, 0.0028971, &
0.0029028, 0.0029084, 0.0029139, 0.0029193, 0.0029246, &
0.0029297, 0.0029348, 0.0029398, 0.0029446, 0.0029494, &
0.0029541, 0.0029587, 0.0029632, 0.0029676, 0.0029720, &
0.0029761, 0.0029805/
data ((coa(i,j),i=1,62),j= 93, 93)/ &
0.0018726, 0.0019238, 0.0019660, 0.0020019, 0.0020331, &
0.0020606, 0.0020852, 0.0021074, 0.0021278, 0.0021464, &
0.0021179, 0.0021798, 0.0021948, 0.0022089, 0.0022221, &
0.0022347, 0.0022466, 0.0022578, 0.0022686, 0.0022789, &
0.0022887, 0.0022981, 0.0023071, 0.0023158, 0.0023241, &
0.0023321, 0.0023399, 0.0023474, 0.0023546, 0.0023616, &
0.0023684, 0.0023750, 0.0023814, 0.0023876, 0.0023936, &
0.0023995, 0.0024052, 0.0024108, 0.0024162, 0.0024215, &
0.0024266, 0.0024317, 0.0024366, 0.0024414, 0.0024461, &
0.0024507, 0.0024552, 0.0024596, 0.0024639, 0.0024681, &
0.0024722, 0.0024763, 0.0024802, 0.0024841, 0.0024880, &
0.0024917, 0.0024954, 0.0024990, 0.0025026, 0.0025060, &
0.0025095, 0.0025129/
data ((coa(i,j),i=1,62),j= 94, 94)/ &
0.0016337, 0.0016718, 0.0017033, 0.0017303, 0.0017537, &
0.0017745, 0.0017931, 0.0018100, 0.0018254, 0.0018397, &
0.0018529, 0.0018651, 0.0018766, 0.0018874, 0.0018976, &
0.0019073, 0.0019164, 0.0019251, 0.0019334, 0.0019413, &
0.0019489, 0.0019562, 0.0019631, 0.0019698, 0.0019763, &
0.0019825, 0.0019885, 0.0019944, 0.0020000, 0.0020054, &
0.0020107, 0.0020158, 0.0020208, 0.0020256, 0.0020303, &
0.0020349, 0.0020394, 0.0020437, 0.0020479, 0.0020521, &
0.0020561, 0.0020600, 0.0020639, 0.0020676, 0.0020713, &
0.0020749, 0.0020784, 0.0020819, 0.0020852, 0.0020886, &
0.0020918, 0.0020950, 0.0020981, 0.0021011, 0.0021041, &
0.0021071, 0.0021100, 0.0021128, 0.0021156, 0.0021183, &
0.0021210, 0.0021236/
data ((coa(i,j),i=1,62),j= 95, 95)/ &
0.0014740, 0.0015024, 0.0015259, 0.0015460, 0.0015636, &
0.0015791, 0.0015931, 0.0016058, 0.0016174, 0.0016282, &
0.0016381, 0.0016474, 0.0016561, 0.0016643, 0.0016720, &
0.0016793, 0.0016863, 0.0016929, 0.0016992, 0.0017052, &
0.0017110, 0.0017165, 0.0017219, 0.0017270, 0.0017319, &
0.0017367, 0.0017413, 0.0017458, 0.0017501, 0.0017543, &
0.0017584, 0.0017623, 0.0017661, 0.0017699, 0.0017735, &
0.0017770, 0.0017804, 0.0017838, 0.0017870, 0.0017902, &
0.0017933, 0.0017964, 0.0017993, 0.0018023, 0.0018051, &
0.0018079, 0.0018106, 0.0018132, 0.0018158, 0.0018184, &
0.0018209, 0.0018233, 0.0018258, 0.0018281, 0.0018304, &
0.0018327, 0.0018349, 0.0018371, 0.0018393, 0.0018414, &
0.0018434, 0.0018455/
data ((coa(i,j),i=1,62),j= 96, 96)/ &
0.0013895, 0.0014110, 0.0014289, 0.0014441, 0.0014574, &
0.0014692, 0.0014798, 0.0014894, 0.0014982, 0.0015064, &
0.0015139, 0.0015210, 0.0015277, 0.0015338, 0.0015398, &
0.0015454, 0.0015508, 0.0015558, 0.0015607, 0.0015653, &
0.0015698, 0.0015740, 0.0015782, 0.0015821, 0.0015859, &
0.0015896, 0.0015932, 0.0015966, 0.0016000, 0.0016032, &
0.0016064, 0.0016094, 0.0016124, 0.0016153, 0.0016181, &
0.0016208, 0.0016235, 0.0016261, 0.0016286, 0.0016311, &
0.0016335, 0.0016358, 0.0016381, 0.0016404, 0.0016426, &
0.0016447, 0.0016468, 0.0016489, 0.0016509, 0.0016529, &
0.0016548, 0.0016567, 0.0016586, 0.0016604, 0.0016622, &
0.0016639, 0.0016657, 0.0016673, 0.0016690, 0.0016706, &
0.0016722, 0.0016738/
data ((coa(i,j),i=1,62),j= 97, 97)/ &
0.0013502, 0.0013669, 0.0013807, 0.0013924, 0.0014027, &
0.0014118, 0.0014200, 0.0014274, 0.0014343, 0.0014406, &
0.0014465, 0.0014520, 0.0014571, 0.0014620, 0.0014666, &
0.0014710, 0.0014751, 0.0014791, 0.0014829, 0.0014865, &
0.0014900, 0.0014933, 0.0014966, 0.0014997, 0.0015027, &
0.0015055, 0.0015083, 0.0015109, 0.0015136, 0.0015162, &
0.0015186, 0.0015210, 0.0015234, 0.0015256, 0.0015278, &
0.0015299, 0.0015320, 0.0015340, 0.0015360, 0.0015380, &
0.0015398, 0.0015417, 0.0015435, 0.0015452, 0.0015469, &
0.0015486, 0.0015503, 0.0015519, 0.0015534, 0.0015550, &
0.0015565, 0.0015580, 0.0015594, 0.0015608, 0.0015622, &
0.0015636, 0.0015649, 0.0015663, 0.0015676, 0.0015688, &
0.0015701, 0.0015713/
data ((coa(i,j),i=1,62),j= 98, 98)/ &
0.0013341, 0.0013476, 0.0013588, 0.0013683, 0.0013766, &
0.0013840, 0.0013907, 0.0013967, 0.0014023, 0.0014074, &
0.0014122, 0.0014167, 0.0014209, 0.0014248, 0.0014286, &
0.0014321, 0.0014355, 0.0014387, 0.0014418, 0.0014447, &
0.0014476, 0.0014503, 0.0014529, 0.0014554, 0.0014578, &
0.0014602, 0.0014624, 0.0014646, 0.0014667, 0.0014688, &
0.0014708, 0.0014727, 0.0014746, 0.0014764, 0.0014782, &
0.0014799, 0.0014816, 0.0014833, 0.0014849, 0.0014864, &
0.0014879, 0.0014894, 0.0014909, 0.0014923, 0.0014937, &
0.0014950, 0.0014964, 0.0014977, 0.0014989, 0.0015002, &
0.0015014, 0.0015026, 0.0015038, 0.0015049, 0.0015060, &
0.0015071, 0.0015082, 0.0015093, 0.0015103, 0.0015114, &
0.0015124, 0.0015134/
data ((coa(i,j),i=1,62),j= 99, 99)/ &
0.0013255, 0.0013373, 0.0013470, 0.0013554, 0.0013626, &
0.0013691, 0.0013749, 0.0013803, 0.0013851, 0.0013896, &
0.0013938, 0.0013977, 0.0014014, 0.0014049, 0.0014082, &
0.0014113, 0.0014142, 0.0014171, 0.0014197, 0.0014223, &
0.0014248, 0.0014272, 0.0014294, 0.0014316, 0.0014337, &
0.0014358, 0.0014378, 0.0014397, 0.0014415, 0.0014433, &
0.0014450, 0.0014467, 0.0014483, 0.0014499, 0.0014515, &
0.0014530, 0.0014544, 0.0014559, 0.0014573, 0.0014586, &
0.0014599, 0.0014612, 0.0014625, 0.0014637, 0.0014649, &
0.0014661, 0.0014672, 0.0014684, 0.0014695, 0.0014705, &
0.0014716, 0.0014726, 0.0014736, 0.0014746, 0.0014756, &
0.0014766, 0.0014775, 0.0014784, 0.0014793, 0.0014802, &
0.0014811, 0.0014820/
data ((coa(i,j),i=1,62),j=100,100)/ &
0.0013126, 0.0013234, 0.0013324, 0.0013401, 0.0013469, &
0.0013529, 0.0013583, 0.0013632, 0.0013677, 0.0013719, &
0.0013758, 0.0013795, 0.0013829, 0.0013861, 0.0013891, &
0.0013920, 0.0013947, 0.0013974, 0.0013998, 0.0014022, &
0.0014045, 0.0014067, 0.0014088, 0.0014108, 0.0014127, &
0.0014146, 0.0014164, 0.0014181, 0.0014198, 0.0014215, &
0.0014230, 0.0014246, 0.0014261, 0.0014275, 0.0014289, &
0.0014303, 0.0014316, 0.0014329, 0.0014341, 0.0014354, &
0.0014366, 0.0014377, 0.0014389, 0.0014400, 0.0014411, &
0.0014421, 0.0014432, 0.0014442, 0.0014452, 0.0014462, &
0.0014471, 0.0014480, 0.0014490, 0.0014499, 0.0014507, &
0.0014516, 0.0014525, 0.0014533, 0.0014541, 0.0014549, &
0.0014557, 0.0014565/
data ((coa(i,j),i=1,62),j=101,101)/ &
0.0012882, 0.0012983, 0.0013066, 0.0013138, 0.0013202, &
0.0013258, 0.0013309, 0.0013355, 0.0013398, 0.0013437, &
0.0013473, 0.0013507, 0.0013539, 0.0013569, 0.0013598, &
0.0013625, 0.0013650, 0.0013674, 0.0013697, 0.0013719, &
0.0013740, 0.0013760, 0.0013780, 0.0013798, 0.0013816, &
0.0013833, 0.0013850, 0.0013865, 0.0013881, 0.0013896, &
0.0013910, 0.0013924, 0.0013938, 0.0013951, 0.0013963, &
0.0013976, 0.0013988, 0.0013999, 0.0014011, 0.0014022, &
0.0014033, 0.0014043, 0.0014054, 0.0014064, 0.0014073, &
0.0014083, 0.0014092, 0.0014101, 0.0014110, 0.0014119, &
0.0014128, 0.0014136, 0.0014145, 0.0014153, 0.0014161, &
0.0014168, 0.0014176, 0.0014183, 0.0014191, 0.0014198, &
0.0014205, 0.0014212/
!-----
do i=1,m
swh(i,1)=0.
so2(i,1)=0.
!-----snt is the secant of the solar zenith angle
!
snt(i)=1.0 /cosz(i)
enddo
do k=1,np
do i=1,m
!
!-----compute layer thickness. indices for the surface level and
! surface layer are np+1 and np, respectively.
dp(i,k)=pl(i,k+1)-pl(i,k)
!
!-----compute scaled water vapor amount following eqs. (3.3) and (3.5)
! unit is g/cm**2
!
scal(i,k)=dp(i,k)*(.5*(pl(i,k)+pl(i,k+1))/300.)**.8
wh(i,k)=1.02*wa(i,k)*scal(i,k) &
*(1.+0.00135*(ta(i,k)-240.)) +1.e-11
swh(i,k+1)=swh(i,k)+wh(i,k)
!-----compute ozone amount, unit is (cm-atm)stp
! the number 466.7 is the unit conversion factor
! from g/cm**2 to (cm-atm)stp
oh(i,k)=1.02*oa(i,k)*dp(i,k)*466.7 +1.e-11
!-----compute layer cloud water amount (gm/m**2)
! the index is 1 for ice crystals, 2 for liquid drops, and
! 3 for rain drops
x=1.02*10000.*dp(i,k)
cwp(i,k,1)=x*cwc(i,k,1)
cwp(i,k,2)=x*cwc(i,k,2)
cwp(i,k,3)=x*cwc(i,k,3)
enddo
enddo
!-----initialize fluxes for all-sky (flx), clear-sky (flc), and
! flux reduction (df)
do k=1,np+1
do i=1,m
flx(i,k)=0.
flc(i,k)=0.
flxu(i,k)=0.
flxd(i,k)=0.
df(i,k)=0.
df_sub(i,k)=0.
df_cld(i,k)=0.
df_clr(i,k)=0.
enddo
enddo
!-----compute solar uv and par fluxes
!ccshie 9/18/04
call sw_uvpar
(m,np,wh,oh,dp, &
cwp,taucld,reff,ict,icb,fcld,cosz, &
taual,ssaal,asyal,taux,rsuvbm,rsuvdf, &
flx,flc,flxd,fdiruv,fdifuv,fdirpar,fdifpar)
!-----compute and update solar ir fluxes
call sw_ir
(m,np,wh,dp, &
cwp,taucld,reff,ict,icb,fcld,cosz, &
taual,ssaal,asyal,rsirbm,rsirdf, &
flx,flc,flxd,fdirir,fdifir)
!-----compute pressure-scaled o2 amount following eq. (3.5) with
! f=1. unit is (cm-atm)stp.
! the constant 165.22 equals (1000/980)*23.14%*(22400/32)
do i= 1, m
cnt(i)=165.22*snt(i)
enddo
do k=1,np
do i=1,m
so2(i,k+1)=so2(i,k)+scal(i,k)*cnt(i)
enddo
enddo
!-----compute flux reduction due to o2 following eq. (3.18)
! the constant 0.0633 is the fraction of insolation contained
! in the oxygen bands
do k= 2, np+1
do i= 1, m
x=so2(i,k)
df(i,k)=0.0633*(1.-exp(-0.000145*sqrt(x)))
enddo
enddo
!-----for solar heating due to co2
do i= 1, m
cnt(i)=co2*snt(i)
enddo
!-----scale co2 amounts following eq. (3.5) with f=1.
! unit is (cm-atm)stp.
! the constant 789 equals (1000/980)*(44/28.97)*(22400/44)
do k=1,np
do i=1,m
x=789.*cnt(i)
so2(i,k+1)=so2(i,k)+x*scal(i,k)+1.e-11
enddo
enddo
!-----for co2 absorption in band 10 where absorption due to
! water vapor and co2 are both moderate
u1=-3.0
du=0.15
w1=-4.0
dw=0.15
!-----so2 and swh are the co2 and water vapor amounts integrated
! from the top of the atmosphere
do k= 2, np+1
do i= 1, m
swu(i,k)=log10(so2(i,k))
swh(i,k)=log10(swh(i,k)*snt(i))
enddo
enddo
!-----df is the updated flux reduction given by the second term on the
! right-hand-side of eq. (3.24) divided by so
call reduce_flux
(m,np,swu,u1,du,nu,swh,w1,dw,nw,cah,df)
!-----for co2 absorption in band 11 where the co2 absorption has
! a large impact on the heating of middle atmosphere.
u1=0.000250
du=0.000050
w1=-2.0
dw=0.05
do i= 1, m
swu(i,1)=co2*snt(i)
enddo
!-----co2 mixing ratio is independent of space (spatially homogeneous)
do k= 2, np+1
do i= 1, m
swu(i,k)=swu(i,1)
enddo
enddo
!-----swh is the logarithm of pressure
do k= 2, np+1
do i= 1, m
swh(i,k)=log10(pl(i,k))
enddo
enddo
!-----df is the updated flux reduction derived from the table given by
! eq. (3.19)
call reduce_flux
(m,np,swu,u1,du,nx2,swh,w1,dw,ny2,coa,df)
! compute layer sub df (also filter negative values)
do i=1,m
do k = 2, np+1
df_sub(i,k) = max(df(i,k) - df(i,k-1), 0._fp_kind) !df for each layer (remove negative df_sub)
enddo
enddo
! compute clear-sky df
do i=1,m
do k = 2, np+1
df_clr(i,k) = df_clr(i,k-1)+df_sub(i,k)
enddo
enddo
!-----adjustment for the effect of o2 cnd co2 on clear-sky fluxes.
! both flc and df_clr are positive quantities
do k=1,np+1
do i=1,m
flc(i,k)=max(flc(i,k)-df_clr(i,k),0._fp_kind) !this filter is for small cosine zenith angle.
enddo
enddo
!-----identify top cloud-layer
do i= 1, m
nctop(i)=np+1
enddo
do k=1,np
do i= 1, m
if (fcld(i,k).gt.fcld_min .and. nctop(i).eq.np+1) then
nctop(i)=k
endif
enddo
enddo
! adjust df_sub for below cloud
do i= 1,m
ntop=nctop(i)
if(overcast .and. fast_overcast) then !compute cloud albedo
! cld_alb = sum(taux(i,ntop+1:np+1))/(6.7+sum(taux(i,ntop+1:np+1)))
cld_alb = sum(taux(i,ntop+1:np))/(6.7+sum(taux(i,ntop+1:np)))
endif
if (ntop.lt.np+1) then
do k= ntop+1,np+1 !cloud top -> surface
if(overcast .and. fast_overcast) then !use ratio in LUT
i_cos = int(cosz(i)*10.)+1 !1~10
i_tau = int(cld_alb*10.)+1 !1~10
ratio = ratio_lut(i_tau,i_cos)
else !use computed clear and cloudy flux ratio (not fast_overcast)
ratio = max(0.01_fp_kind, min(1._fp_kind,(flx(i,k)/flc(i,k))))
endif
df_sub(i,k) = df_sub(i,k)*ratio !compute cloudy-sky df_sub
enddo !k
endif
enddo !i
!update df for cloudy-sky
do i=1,m
do k = 2, np+1
df_cld(i,k) = df_cld(i,k-1)+df_sub(i,k)
enddo
enddo
!-----adjustment for the effect of o2 cnd co2 on all-sky fluxes.
! max statement filter negative value in flx for small cosz (for df_cld > flx)
do i=1,m
do k = 1, np+1
flx(i,k) = max(flx(i,k)-df_cld(i,k) , 0._fp_kind) !this max is for small cosz
flxd(i,k) = max(flxd(i,k)-df_cld(i,k), 0._fp_kind) !this max is for small cosz
flxu(i,k) = flx(i,k)-flxd(i,k)
enddo
enddo
!-----adjustment for the direct downward flux
do i= 1,m
fdirir(i)=fdirir(i)-df_cld(i,np+1)
if (fdirir(i) .lt. 0.0) fdirir(i)=0.0
enddo
return
end subroutine swrad
!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
subroutine sw_uvpar (m,np,wh,oh,dp, & 1,8
cwp,taucld,reff,ict,icb,fcld,cosz, &
taual,ssaal,asyal,taux,rsuvbm,rsuvdf, &
flx,flc,flxd,fdiruv,fdifuv,fdirpar,fdifpar)
!******************************************************************
! compute solar fluxes in the uv+par region. the spectrum is
! grouped into 8 bands:
!
! band micrometer
!
! uv-c 1. .175 - .225
! 2. .225 - .245
! .260 - .280
! 3. .245 - .260
!
! uv-b 4. .280 - .295
! 5. .295 - .310
! 6. .310 - .320
!
! uv-a 7. .320 - .400
!
! par 8. .400 - .700
!
!----- input parameters: units size
!
! number of soundings (m) n/d 1
! number of atmospheric layers (np) n/d 1
! layer scaled-water vapor content (wh) gm/cm^2 m*np
! layer ozone content (oh) (cm-atm)stp m*np
! layer pressure thickness (dp) mb m*np
! option for scaling cloud optical thickness n/d 1
! overcast="true" if scaling is not required
! overcast="fasle" if scaling is required
! input option for cloud optical thickness n/d 1
! cldwater="true" if taucld is provided
! cldwater="false" if cwp is provided
! cloud water amount (cwp) gm/m**2 m*np*3
! index 1 for ice particles
! index 2 for liquid drops
! index 3 for rain drops
! cloud optical thickness (taucld) n/d m*np*3
! index 1 for ice particles
! index 2 for liquid drops
! index 3 for rain drops
! effective cloud-particle size (reff) micrometer m*np*3
! index 1 for ice paticles
! index 2 for liquid drops
! index 3 for rain drops
! level index separating high and n/d m
! middle clouds (ict)
! level indiex separating middle and n/d m
! low clouds (icb)
! cloud amount (fcld) fraction m*np
! cosine of solar zenith angle (cosz) n/d m
! aerosol optical thickness (taual) n/d m*np*11
! aerosol single-scattering albedo (ssaal) n/d m*np*11
! aerosol asymmetry factor (asyal) n/d m*np*11
! uv+par surface albedo for beam fraction m
! radiation (rsuvbm)
! uv+par surface albedo for diffuse fraction m
! radiation (rsuvdf)
!
!---- temporary array
!
! scaled cloud optical thickness n/d m*np
! for beam radiation (tauclb)
! scaled cloud optical thickness n/d m*np
! for diffuse radiation (tauclf)
!
!----- output (updated) parameters:
!
! all-sky flux divergence (downward-upward) (flx) fraction m*(np+1)
! clear-sky flux divergence (downward-upward) (flc) fraction m*(np+1)
! all-sky direct downward uv flux at
! the surface (fdiruv) fraction m
! all-sky diffuse downward uv flux at
! the surface (fdifuv) fraction m
! all-sky direct downward par flux at
! the surface (fdirpar) fraction m
! all-sky diffuse downward par flux at
! the surface (fdifpar) fraction m
!
!***********************************************************************
!ccshie 8/19/04
implicit none
!-----input parameters
integer m,np,ict(m),icb(m)
real(Kind=fp_kind) taucld(m,np,3),reff(m,np,3),fcld(m,np)
real(Kind=fp_kind) cwp(m,np,3),wh(m,np),oh(m,np),dp(m,np)
real(Kind=fp_kind) taual(m,np,ib_sw),ssaal(m,np,ib_sw),asyal(m,np,ib_sw)
real(Kind=fp_kind) rsuvbm(m),rsuvdf(m),cosz(m)
!-----output (updated) parameter
real(Kind=fp_kind) flx(m,np+1),flc(m,np+1)
real(Kind=fp_kind) flxd(m,np+1)
real(Kind=fp_kind) fdiruv (m),fdifuv (m)
real(Kind=fp_kind) fdirpar(m),fdifpar(m)
real(Kind=fp_kind) taux(m,np)
!-----static parameters
integer nband
parameter (nband=8)
real(Kind=fp_kind) hk(nband),wk(nband),zk(nband),ry(nband)
real(Kind=fp_kind) aig(3),awg(3),arg(3)
real(Kind=fp_kind) aib(2),awb(2),arb(2)
!-----temporary array
integer i,k,ib
integer ih1,ih2,im1,im2,is1,is2
real(Kind=fp_kind) taurs,tauoz,tauwv
real(Kind=fp_kind) :: g1,g2,g3
real(Kind=fp_kind) :: dsm(m)
real(Kind=fp_kind) :: tauclb(m,np)
real(Kind=fp_kind) :: tauclf(m,np)
real(Kind=fp_kind) :: asycl(m,np)
real(Kind=fp_kind) :: tausto(m,np)
real(Kind=fp_kind) :: ssatau(m,np)
real(Kind=fp_kind) :: asysto(m,np)
real(Kind=fp_kind) :: tautob(m,np)
real(Kind=fp_kind) :: ssatob(m,np)
real(Kind=fp_kind) :: asytob(m,np)
real(Kind=fp_kind) :: tautof(m,np)
real(Kind=fp_kind) :: ssatof(m,np)
real(Kind=fp_kind) :: asytof(m,np)
real(Kind=fp_kind) :: rr(m,np+1,2)
real(Kind=fp_kind) :: tt(m,np+1,2)
real(Kind=fp_kind) :: td(m,np+1,2)
real(Kind=fp_kind) :: rs(m,np+1,2)
real(Kind=fp_kind) :: ts(m,np+1,2)
real(Kind=fp_kind) :: fall(m,np+1)
real(Kind=fp_kind) :: falld(m,np+1)
real(Kind=fp_kind) :: fclr(m,np+1)
real(Kind=fp_kind) :: fsdir(m)
real(Kind=fp_kind) :: fsdif(m)
real(Kind=fp_kind) :: asyclt(m)
real(Kind=fp_kind) :: cc(m,3)
real(Kind=fp_kind) :: rrt(m,np)
real(Kind=fp_kind) :: ttt(m,np)
real(Kind=fp_kind) :: tdt(m,np)
real(Kind=fp_kind) :: rst(m,np)
real(Kind=fp_kind) :: tst(m,np)
real(Kind=fp_kind) :: dum1(m,np+1)
real(Kind=fp_kind) :: dum2(m)
real(Kind=fp_kind) :: dum3(m)
real(Kind=fp_kind) :: dum(m,np)
!-----hk is the fractional extra-terrestrial solar flux in each
! of the 8 bands. the sum of hk is 0.47074. (table 3)
data hk/.00057, .00367, .00083, .00417, &
.00600, .00556, .05913, .39081/
!-----zk is the ozone absorption coefficient. unit: /(cm-atm)stp
! (table 3)
data zk /30.47, 187.2, 301.9, 42.83, &
7.09, 1.25, 0.0345, 0.0572/
!-----wk is the water vapor absorption coefficient. unit: cm**2/g
! (table 3)
data wk /7*0.0, 0.00075/
!-----ry is the extinction coefficient for rayleigh scattering.
! unit: /mb. (table 3)
data ry /.00604, .00170, .00222, .00132, &
.00107, .00091, .00055, .00012/
!-----coefficients for computing the extinction coefficients of ice,
! water, and rain particles, independent of spectral band. (table 4)
data aib/ 3.33e-4,2.52/
data awb/-6.59e-3,1.65/
data arb/ 3.07e-3,0.00/
!-----coefficients for computing the asymmetry factor of ice, water,
! and rain particles, independent of spectral band. (table 6)
data aig/.74625,.0010541,-.00000264/
data awg/.82562,.0052900,-.00014866/
data arg/.883,0.0,0.0/
!-----initialize fdiruv, fdifuv, surface reflectances and transmittances.
! the reflectance and transmittance of the clear and cloudy portions
! of a layer are denoted by 1 and 2, respectively.
! cc is the maximum cloud cover in each of the high, middle, and low
! cloud groups.
! 1/dsm=1/cos(53) = 1.66
do i=1,m
dsm(i)=0.602
fdiruv(i)=0.0
fdifuv(i)=0.0
rr(i,np+1,1)=rsuvbm(i)
rr(i,np+1,2)=rsuvbm(i)
rs(i,np+1,1)=rsuvdf(i)
rs(i,np+1,2)=rsuvdf(i)
td(i,np+1,1)=0.0
td(i,np+1,2)=0.0
tt(i,np+1,1)=0.0
tt(i,np+1,2)=0.0
ts(i,np+1,1)=0.0
ts(i,np+1,2)=0.0
cc(i,1)=0.0
cc(i,2)=0.0
cc(i,3)=0.0
enddo
if (cldwater) then
do k=1,np
do i=1,m
taucld(i,k,1)=cwp(i,k,1)*(aib(1)+aib(2)/reff(i,k,1))
taucld(i,k,2)=cwp(i,k,2)*(awb(1)+awb(2)/reff(i,k,2))
taucld(i,k,3)=cwp(i,k,3)* arb(1)
enddo
enddo
endif
!-----options for scaling cloud optical thickness
if (overcast) then
do k=1,np
do i=1,m
tauclb(i,k)=taucld(i,k,1)+taucld(i,k,2)+taucld(i,k,3)
tauclf(i,k)=tauclb(i,k)
enddo
enddo
do k=1,3
do i=1,m
cc(i,k)=1.0
enddo
enddo
else
!-----scale cloud optical thickness in each layer from taucld (with
! cloud amount fcld) to tauclb and tauclf (with cloud amount cc).
! tauclb is the scaled optical thickness for beam radiation and
! tauclf is for diffuse radiation (see section 7).
call cloud_scale
(m,np,cosz,fcld,taucld,ict,icb, &
cc,tauclb,tauclf)
endif
!-----cloud asymmetry factor for a mixture of liquid and ice particles.
! unit of reff is micrometers. eqs. (4.8) and (6.4)
do k=1,np
do i=1,m
asyclt(i)=1.0
taux(i,k)=taucld(i,k,1)+taucld(i,k,2)+taucld(i,k,3)
if (taux(i,k).gt.taux_min .and. fcld(i,k).gt.fcld_min) then
g1=(aig(1)+(aig(2)+aig(3)*reff(i,k,1))*reff(i,k,1))*taucld(i,k,1)
g2=(awg(1)+(awg(2)+awg(3)*reff(i,k,2))*reff(i,k,2))*taucld(i,k,2)
g3= arg(1)*taucld(i,k,3)
asyclt(i)=(g1+g2+g3)/taux(i,k)
endif
enddo
do i=1,m
asycl(i,k)=asyclt(i)
enddo
enddo
!-----integration over spectral bands---------------------------------
do 100 ib=1,nband
!-----compute reflectance and transmittance of the clear portion of a layer
do k=1,np
do i=1,m
!-----compute rayleigh, ozone and water vapor optical thicknesses
taurs=ry(ib)*dp(i,k)
tauoz=zk(ib)*oh(i,k)
tauwv=wk(ib)*wh(i,k)
!-----compute clear-sky optical thickness, single scattering albedo,
! and asymmetry factor (eqs. 6.2-6.4)
tausto(i,k)=max(taurs+tauoz+tauwv+taual(i,k,ib),opt_min)
ssatau(i,k)=max(ssaal(i,k,ib)*taual(i,k,ib)+taurs,opt_min)
asysto(i,k)=max(asyal(i,k,ib)*ssaal(i,k,ib)*taual(i,k,ib),opt_min)
if (overcast .and. fast_overcast ) then ; else
tautob(i,k)=tausto(i,k)
ssatob(i,k)=max(ssatau(i,k)/tautob(i,k),opt_min)
ssatob(i,k)=min(ssatob(i,k),0.999999_fp_kind)
asytob(i,k)=max(asysto(i,k)/(ssatob(i,k)*tautob(i,k)),opt_min)
!-----Compute delta-eddington approximation of scattering properties
! for direct incident radiation
call delta_eddington
(tautob(i,k), ssatob(i,k), asytob(i,k), cosz(i) , &
rrt(i,k),ttt(i,k), tdt(i,k) )
!
!-----diffuse incident radiation is approximated by beam radiation with
! an incident angle of 53 degrees, eqs. (6.5) and (6.6)
call delta_eddington
(tautob(i,k), ssatob(i,k), asytob(i,k), dsm(i) , &
rst(i,k),tst(i,k), dum(i,k) )
rr(i,k,1)=rrt(i,k)
tt(i,k,1)=ttt(i,k)
td(i,k,1)=tdt(i,k)
rs(i,k,1)=rst(i,k)
ts(i,k,1)=tst(i,k)
endif ! not overcast .and. not fast_overcast
!-----compute reflectance and transmittance of the cloudy portion of a layer
if ( (tauclb(i,k).ge.taux_min .or. fcld(i,k).ge.fcld_min ) .or. & !cloud exists
(overcast .and. fast_overcast ) ) then ! overcast .and. fast_overcast
!-----for direct incident radiation
! the effective layer optical properties. eqs. (6.2)-(6.4)
tautob(i,k)=tausto(i,k) + max(tauclb(i,k),opt_min)
ssatob(i,k)=max((ssatau(i,k)+tauclb(i,k))/tautob(i,k),opt_min)
ssatob(i,k)=min(ssatob(i,k),0.999999_fp_kind)
asytob(i,k)=max((asysto(i,k)+asycl(i,k)*tauclb(i,k)) &
/(ssatob(i,k)*tautob(i,k)),opt_min)
!-----for diffuse incident radiation
tautof(i,k)=tausto(i,k)+max(tauclf(i,k),opt_min)
ssatof(i,k)=max((ssatau(i,k)+tauclf(i,k))/tautof(i,k),opt_min)
ssatof(i,k)=min(ssatof(i,k),0.999999_fp_kind)
asytof(i,k)=max((asysto(i,k)+asycl(i,k)*tauclf(i,k)) &
/(ssatof(i,k)*tautof(i,k)),opt_min)
!-----Compute delta-eddington approximation of scattering properties
! for direct incident radiation
! note that the cloud optical thickness is scaled differently for direct
! and diffuse insolation, eqs. (7.3) and (7.4).
call delta_eddington
(tautob(i,k), ssatob(i,k), asytob(i,k), cosz(i) , &
rrt(i,k),ttt(i,k), tdt(i,k) )
!-----diffuse incident radiation is approximated by beam radiation with
! an incident angle of 53 degrees, eqs. (6.5) and (6.6)
call delta_eddington
(tautob(i,k), ssatob(i,k), asytob(i,k), dsm(i) , &
rst(i,k),tst(i,k), dum(i,k) )
endif
rr(i,k,2)=rrt(i,k)
tt(i,k,2)=ttt(i,k)
td(i,k,2)=tdt(i,k)
rs(i,k,2)=rst(i,k)
ts(i,k,2)=tst(i,k)
enddo !i loop
enddo !k loop
!-----flux calculations
if (overcast) then !cloud fraction 0 or 1 -> CRM
if( .not. fast_overcast ) then
!-----for clear-sky fluxes only (This is needed for equation 6.18 flux redtion due to CO2 and O2 below cloud)
ih1=1 ; im1=1 ; is1=1
ih2=1 ; im2=1 ; is2=1
call twostream_adding
(m,np,ict,icb,ih1,ih2,im1,im2,is1,is2, &
cc,rr,tt,td,rs,ts,fclr,dum1,falld,dum2,dum3)
endif
!-----for cloudy-sky fluxes only
ih1=2 ; im1=2 ; is1=2
ih2=2 ; im2=2 ; is2=2
call twostream_adding
(m,np,ict,icb,ih1,ih2,im1,im2,is1,is2, &
cc,rr,tt,td,rs,ts,dum1,fall,falld,fsdir,fsdif)
else ! non overcast (cloud fraction 0.~1. GCM or RCM )
!-----for clear- and all-sky fluxes the all-sky flux, fall is the summation inside the brackets of eq. (7.11)
ih1=1 ; im1=1 ; is1=1
ih2=2 ; im2=2 ; is2=2
call twostream_adding
(m,np,ict,icb,ih1,ih2,im1,im2,is1,is2, &
cc,rr,tt,td,rs,ts,fclr,fall,falld,fsdir,fsdif)
endif ! overcast
!-----flux integration, eq. (6.1)
do k=1,np+1
do i=1,m
flx(i,k)=flx(i,k)+fall(i,k)*hk(ib)
flxd(i,k)=flxd(i,k)+falld(i,k)*hk(ib)
if(overcast .and. fast_overcast) then ; else
flc(i,k)=flc(i,k)+fclr(i,k)*hk(ib)
endif
enddo
enddo
!-----compute direct and diffuse downward surface fluxes in the uv
! and par regions
if(ib.lt.8) then
do i=1,m
fdiruv(i)=fdiruv(i)+fsdir(i)*hk(ib)
fdifuv(i)=fdifuv(i)+fsdif(i)*hk(ib)
enddo
else
do i=1,m
fdirpar(i)=fsdir(i)*hk(ib)
fdifpar(i)=fsdif(i)*hk(ib)
enddo
endif
100 continue
return
end subroutine sw_uvpar
!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
subroutine sw_ir (m,np,wh,dp, & 1,8
cwp,taucld,reff,ict,icb,fcld,cosz, &
taual,ssaal,asyal, &
rsirbm,rsirdf,flx,flc,flxd,fdirir,fdifir)
!************************************************************************
! compute solar flux in the infrared region. the spectrum is divided
! into three bands:
!
! band wavenumber(/cm) wavelength (micron)
! 1( 9) 14280-8200 0.70-1.22
! 2(10) 8200-4400 1.22-2.27
! 3(11) 4400-1000 2.27-10.0
!
!----- input parameters: units size
!
! number of soundings (m) n/d 1
! number of atmospheric layers (np) n/d 1
! layer scaled-water vapor content (wh) gm/cm^2 m*np
! option for scaling cloud optical thickness n/d 1
! overcast="true" if scaling is not required
! overcast="fasle" if scaling is required
! input option for cloud optical thickness n/d 1
! cldwater="true" if taucld is provided
! cldwater="false" if cwp is provided
! cloud water concentration (cwp) gm/m**2 m*np*3
! index 1 for ice particles
! index 2 for liquid drops
! index 3 for rain drops
! cloud optical thickness (taucld) n/d m*np*3
! index 1 for ice paticles
! index 2 for liquid drops
! index 3 for rain drops
! effective cloud-particle size (reff) micrometer m*np*3
! index 1 for ice paticles
! index 2 for liquid drops
! index 3 for rain drops
! level index separating high and n/d m
! middle clouds (ict)
! level index separating middle and n/d m
! low clouds (icb)
! cloud amount (fcld) fraction m*np
! aerosol optical thickness (taual) n/d m*np*11
! aerosol single-scattering albedo (ssaal) n/d m*np*11
! aerosol asymmetry factor (asyal) n/d m*np*11
! near ir surface albedo for beam fraction m
! radiation (rsirbm)
! near ir surface albedo for diffuse fraction m
! radiation (rsirdf)
!
!---- temporary array
!
! scaled cloud optical thickness n/d m*np
! for beam radiation (tauclb)
! scaled cloud optical thickness n/d m*np
! for diffuse radiation (tauclf)
!
!----- output (updated) parameters:
!
! all-sky flux divergence (downward-upward) (flx) fraction m*(np+1)
! clear-sky flux divergence (downward-upward) (flc) fraction m*(np+1)
! all-sky direct downward ir flux at
! the surface (fdirir) fraction m
! all-sky diffuse downward ir flux at
! the surface (fdifir) fraction m
!
!**********************************************************************
implicit none
!-----input parameters
integer m,np,ict(m),icb(m)
integer ih1,ih2,im1,im2,is1,is2
real(Kind=fp_kind) cwp(m,np,3),taucld(m,np,3),reff(m,np,3)
real(Kind=fp_kind) fcld(m,np),cosz(m)
real(Kind=fp_kind) rsirbm(m),rsirdf(m)
real(Kind=fp_kind) taual(m,np,ib_sw),ssaal(m,np,ib_sw),asyal(m,np,ib_sw)
real(Kind=fp_kind) dp(m,np),wh(m,np)
!-----output (updated) parameters
real(Kind=fp_kind) flx(m,np+1),flc(m,np+1)
real(Kind=fp_kind) flxd(m,np+1)
real(Kind=fp_kind) fdirir(m),fdifir(m)
!-----static parameters
integer nk,nband
parameter (nk=10,nband=3)
real(Kind=fp_kind) :: taux
real(Kind=fp_kind) :: w1, w2, w3 !expansion stuff
real(Kind=fp_kind) :: g1, g2, g3 !asymetry stuff
real(Kind=fp_kind) hk(nband,nk),xk(nk),ry(nband)
real(Kind=fp_kind) aib(nband,2),awb(nband,2),arb(nband,2)
real(Kind=fp_kind) aia(nband,3),awa(nband,3),ara(nband,3)
real(Kind=fp_kind) aig(nband,3),awg(nband,3),arg(nband,3)
!-----temporary array
integer ib,iv,ik,i,k
real(Kind=fp_kind) taurs,tauwv
real(Kind=fp_kind) :: dsm(m)
real(Kind=fp_kind) :: tauclb(m,np)
real(Kind=fp_kind) :: tauclf(m,np)
real(Kind=fp_kind) :: cc(m,3)
real(Kind=fp_kind) :: ssacl(m,np)
real(Kind=fp_kind) :: asycl(m,np)
real(Kind=fp_kind) :: rr(m,np+1,2)
real(Kind=fp_kind) :: tt(m,np+1,2)
real(Kind=fp_kind) :: td(m,np+1,2)
real(Kind=fp_kind) :: rs(m,np+1,2)
real(Kind=fp_kind) :: ts(m,np+1,2)
real(Kind=fp_kind) :: fall(m,np+1)
real(Kind=fp_kind) :: falld(m,np+1)
real(Kind=fp_kind) :: fclr(m,np+1)
real(Kind=fp_kind) :: fsdir(m)
real(Kind=fp_kind) :: fsdif(m)
real(Kind=fp_kind) :: tausto(m,np)
real(Kind=fp_kind) :: ssatau(m,np)
real(Kind=fp_kind) :: asysto(m,np)
real(Kind=fp_kind) :: tautob(m,np)
real(Kind=fp_kind) :: ssatob(m,np)
real(Kind=fp_kind) :: asytob(m,np)
real(Kind=fp_kind) :: tautof(m,np)
real(Kind=fp_kind) :: ssatof(m,np)
real(Kind=fp_kind) :: asytof(m,np)
real(Kind=fp_kind) :: ssaclt(m)
real(Kind=fp_kind) :: asyclt(m)
real(Kind=fp_kind) :: rrt(m,np)
real(Kind=fp_kind) :: ttt(m,np)
real(Kind=fp_kind) :: tdt(m,np)
real(Kind=fp_kind) :: rst(m,np)
real(Kind=fp_kind) :: tst(m,np)
real(Kind=fp_kind) :: dum1(m,np+1)
real(Kind=fp_kind) :: dum2(m)
real(Kind=fp_kind) :: dum3(m)
real(Kind=fp_kind) :: dum(m,np)
!-----water vapor absorption coefficient for 10 k-intervals.
! unit: cm^2/gm (table 2)
data xk/ &
0.0010, 0.0133, 0.0422, 0.1334, 0.4217, &
1.334, 5.623, 31.62, 177.8, 1000.0/
!-----water vapor k-distribution function,
! the sum of hk is 0.52926. unit: fraction (table 2)
data hk/ &
.20673,.08236,.01074, .03497,.01157,.00360, &
.03011,.01133,.00411, .02260,.01143,.00421, &
.01336,.01240,.00389, .00696,.01258,.00326, &
.00441,.01381,.00499, .00115,.00650,.00465, &
.00026,.00244,.00245, .00000,.00094,.00145/
!-----ry is the extinction coefficient for rayleigh scattering.
! unit: /mb (table 3)
data ry /.0000156, .0000018, .000000/
!-----coefficients for computing the extinction coefficients of
! ice, water, and rain particles (table 4)
data aib/ &
.000333, .000333, .000333, &
2.52, 2.52, 2.52/
data awb/ &
-0.0101, -0.0166, -0.0339, &
1.72, 1.85, 2.16/
data arb/ &
0.00307, 0.00307, 0.00307, &
0.0 , 0.0 , 0.0 /
!-----coefficients for computing the single-scattering co-albedo of
! ice, water, and rain particles (table 5)
data aia/ &
-.00000260, .00215346, .08938331, &
.00000746, .00073709, .00299387, &
.00000000,-.00000134,-.00001038/
data awa/ &
.00000007,-.00019934, .01209318, &
.00000845, .00088757, .01784739, &
-.00000004,-.00000650,-.00036910/
data ara/ &
.029, .342, .466, &
.0000, .000, .000, &
.0000, .000, .000/
!-----coefficients for computing the asymmetry factor of
! ice, water, and rain particles (table 6)
data aig/ &
.74935228, .76098937, .84090400, &
.00119715, .00141864, .00126222, &
-.00000367,-.00000396,-.00000385/
data awg/ &
.79375035, .74513197, .83530748, &
.00832441, .01370071, .00257181, &
-.00023263,-.00038203, .00005519/
data arg/ &
.891, .948, .971, &
.0000, .000, .000, &
.0000, .000, .000/
!-----initialize surface fluxes, reflectances, and transmittances.
! the reflectance and transmittance of the clear and cloudy portions
! of a layer are denoted by 1 and 2, respectively.
! cc is the maximum cloud cover in each of the high, middle, and low
! cloud groups.
! 1/dsm=1/cos(53)=1.66
do i=1,m
dsm(i)=0.602
fdirir(i)=0.0
fdifir(i)=0.0
rr(i,np+1,1)=rsirbm(i)
rr(i,np+1,2)=rsirbm(i)
rs(i,np+1,1)=rsirdf(i)
rs(i,np+1,2)=rsirdf(i)
td(i,np+1,1)=0.0
td(i,np+1,2)=0.0
tt(i,np+1,1)=0.0
tt(i,np+1,2)=0.0
ts(i,np+1,1)=0.0
ts(i,np+1,2)=0.0
cc(i,1)=0.0
cc(i,2)=0.0
cc(i,3)=0.0
enddo
!-----integration over spectral bands
do 100 ib=1,nband
iv=ib+8
!-----compute cloud optical thickness. eqs. (4.6) and (4.11)
if (cldwater) then
do k=1,np
do i=1,m
taucld(i,k,1)=cwp(i,k,1)*(aib(ib,1) &
+aib(ib,2)/reff(i,k,1))
taucld(i,k,2)=cwp(i,k,2)*(awb(ib,1) &
+awb(ib,2)/reff(i,k,2))
taucld(i,k,3)=cwp(i,k,3)*arb(ib,1)
enddo
enddo
endif
!-----options for scaling cloud optical thickness
if (overcast) then
do k=1,np
do i=1,m
tauclb(i,k)=taucld(i,k,1)+taucld(i,k,2)+taucld(i,k,3)
tauclf(i,k)=tauclb(i,k)
enddo
enddo
do k=1,3
do i=1,m
cc(i,k)=1.0
enddo
enddo
else
!-----scale cloud optical thickness in each layer from taucld (with
! cloud amount fcld) to tauclb and tauclf (with cloud amount cc).
! tauclb is the scaled optical thickness for beam radiation and
! tauclf is for diffuse radiation.
call cloud_scale
(m,np,cosz,fcld,taucld,ict,icb, &
cc,tauclb,tauclf)
endif
!-----compute cloud single scattering albedo and asymmetry factor
! for a mixture of ice and liquid particles.
! eqs.(4.6)-(4.8), (6.2)-(6.4)
do k=1,np
do i=1,m
ssaclt(i)=0.99999
asyclt(i)=1.0
taux=taucld(i,k,1)+taucld(i,k,2)+taucld(i,k,3)
if (taux.gt.taux_min .and. fcld(i,k).gt.fcld_min) then
w1=(1.-(aia(ib,1)+(aia(ib,2)+ &
aia(ib,3)*reff(i,k,1))*reff(i,k,1)))*taucld(i,k,1)
w2=(1.-(awa(ib,1)+(awa(ib,2)+ &
awa(ib,3)*reff(i,k,2))*reff(i,k,2)))*taucld(i,k,2)
w3=(1.- ara(ib,1))*taucld(i,k,3)
ssaclt(i)=(w1+w2+w3)/taux
g1=(aig(ib,1)+(aig(ib,2)+aig(ib,3)*reff(i,k,1))*reff(i,k,1))*w1
g2=(awg(ib,1)+(awg(ib,2)+awg(ib,3)*reff(i,k,2))*reff(i,k,2))*w2
g3= arg(ib,1)*w3
asyclt(i)=(g1+g2+g3)/(w1+w2+w3)
endif
enddo
do i=1,m
ssacl(i,k)=ssaclt(i)
enddo
do i=1,m
asycl(i,k)=asyclt(i)
enddo
enddo
!-----integration over the k-distribution function
do 200 ik=1,nk
!-----compute clear-sky optical thickness, single scattering albedo,
! and asymmetry factor. eqs.(6.2)-(6.4)
do k=1,np
do i=1,m
taurs=ry(ib)*dp(i,k)
tauwv=xk(ik)*wh(i,k)
tausto(i,k)=max(taurs+tauwv+taual(i,k,iv),opt_min)
ssatau(i,k)=max(ssaal(i,k,iv)*taual(i,k,iv)+taurs,opt_min) !add for stability
asysto(i,k)=max(asyal(i,k,iv)*ssaal(i,k,iv)*taual(i,k,iv),opt_min)
if (overcast .and. fast_overcast ) then
else
!-----compute reflectance and transmittance of the clear portion of a layer
tautob(i,k)=tausto(i,k)
ssatob(i,k)=max(ssatau(i,k)/tautob(i,k),opt_min)
ssatob(i,k)=min(ssatob(i,k),0.999999_fp_kind)
asytob(i,k)=max(asysto(i,k)/(ssatob(i,k)*tautob(i,k)),opt_min)
! delta-eddington approximation for optical propeties
!-----for direct incident radiation
call delta_eddington
(tautob(i,k), ssatob(i,k), asytob(i,k), cosz(i) , &
rrt(i,k),ttt(i,k), tdt(i,k) )
!-----diffuse incident radiation is approximated by beam radiation with
! an incident angle of 53 degrees, eqs. (6.5) and (6.6)
call delta_eddington
(tautob(i,k), ssatob(i,k), asytob(i,k), dsm(i) , &
rst(i,k),tst(i,k), dum(i,k) )
rr(i,k,1)=rrt(i,k)
tt(i,k,1)=ttt(i,k)
td(i,k,1)=tdt(i,k)
rs(i,k,1)=rst(i,k)
ts(i,k,1)=tst(i,k)
endif ! overcast .and. fast_overcast
!-----compute reflectance and transmittance of the cloudy portion of a layer
if ( (tauclb(i,k).ge.taux_min .or. fcld(i,k).ge.fcld_min ) .or. & !cloud exists
(overcast .and. fast_overcast ) ) then ! overcast .and. fast_overcast
!-----for direct incident radiation. eqs.(6.2)-(6.4)
tautob(i,k)=tausto(i,k)+max(tauclb(i,k),opt_min)
ssatob(i,k)=max((ssatau(i,k)+ssacl(i,k)*tauclb(i,k))/tautob(i,k),opt_min)
ssatob(i,k)=min(ssatob(i,k),0.999999_fp_kind)
asytob(i,k)=max((asysto(i,k)+asycl(i,k)*ssacl(i,k)*tauclb(i,k)) &
/(ssatob(i,k)*tautob(i,k)),opt_min)
!-----for diffuse incident radiation
tautof(i,k)=tausto(i,k)+max(tauclf(i,k),opt_min)
ssatof(i,k)=max((ssatau(i,k)+ssacl(i,k)*tauclf(i,k))/tautof(i,k),opt_min)
ssatof(i,k)=min(ssatof(i,k),0.999999_fp_kind)
asytof(i,k)=max((asysto(i,k)+asycl(i,k)*ssacl(i,k)*tauclf(i,k)) &
/(ssatof(i,k)*tautof(i,k)),opt_min)
! delta-eddington approximation for optical propeties
!-----for direct incident radiation
call delta_eddington
(tautob(i,k), ssatob(i,k), asytob(i,k), cosz(i) , &
rrt(i,k),ttt(i,k), tdt(i,k) )
!-----diffuse incident radiation is approximated by beam radiation with
! an incident angle of 53 degrees, eqs.(6.5) and (6.6)
call delta_eddington
(tautob(i,k), ssatob(i,k), asytob(i,k), dsm(i) , &
rst(i,k),tst(i,k), dum(i,k) )
endif
rr(i,k,2)=rrt(i,k)
tt(i,k,2)=ttt(i,k)
td(i,k,2)=tdt(i,k)
rs(i,k,2)=rst(i,k)
ts(i,k,2)=tst(i,k)
enddo
enddo
!-----flux calculations
if (overcast) then ! overcast (LES or CRM)
if( .not. fast_overcast ) then
!-----for clear-sky fluxes only
ih1=1 ; im1=1 ; is1=1
ih2=1 ; im2=1 ; is2=1
call twostream_adding
(m,np,ict,icb,ih1,ih2,im1,im2,is1,is2, &
cc,rr,tt,td,rs,ts,fclr,dum1,falld,dum2,dum3)
endif
!-----for cloudy-sky fluxes only
ih1=2 ; im1=2 ; is1=2
ih2=2 ; im2=2 ; is2=2
call twostream_adding
(m,np,ict,icb,ih1,ih2,im1,im2,is1,is2, &
cc,rr,tt,td,rs,ts,dum1,fall,falld,fsdir,fsdif)
else ! NON overcast (GCM or RCM)
!-----for clear- and all-sky fluxes
! the all-sky flux, fall is the summation inside the brackets
! of eq. (7.11)
ih1=1 ; im1=1 ; is1=1
ih2=2 ; im2=2 ; is2=2
call twostream_adding
(m,np,ict,icb,ih1,ih2,im1,im2,is1,is2, &
cc,rr,tt,td,rs,ts,fclr,fall,falld,fsdir,fsdif)
endif ! ovrercast
!-----flux integration following eq. (6.1)
do k=1,np+1
do i=1,m
flx(i,k) = flx(i,k)+fall(i,k)*hk(ib,ik)
flxd(i,k) = flxd(i,k)+falld(i,k)*hk(ib,ik)
if(overcast .and. fast_overcast) then
else
flc(i,k) = flc(i,k)+fclr(i,k)*hk(ib,ik)
endif
enddo
enddo
!-----compute downward surface fluxes in the ir region
do i=1,m
fdirir(i) = fdirir(i)+fsdir(i)*hk(ib,ik)
fdifir(i) = fdifir(i)+fsdif(i)*hk(ib,ik)
enddo
200 continue !k integration
100 continue !iband
return
end subroutine sw_ir
!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
subroutine cloud_scale (m,np,cosz,fcld,taucld,ict,icb, & 2
cc,tauclb,tauclf)
!********************************************************************
!
! this subroutine computes the high, middle, and low cloud
! amounts and scales the cloud optical thickness (section 7)
!
! to simplify calculations in a cloudy atmosphere, clouds are
! grouped into high, middle and low clouds separated by the levels
! ict and icb (level 1 is the top of the model atmosphere).
!
! within each of the three groups, clouds are assumed maximally
! overlapped, and the cloud cover (cc) of a group is the maximum
! cloud cover of all the layers in the group. the optical thickness
! (taucld) of a given layer is then scaled to new values (tauclb and
! tauclf) so that the layer reflectance corresponding to the cloud
! cover cc is the same as the original reflectance with optical
! thickness taucld and cloud cover fcld.
!
!---input parameters
!
! number of atmospheric soundings (m)
! number of atmospheric layers (np)
! cosine of the solar zenith angle (cosz)
! fractional cloud cover (fcld)
! cloud optical thickness (taucld)
! index separating high and middle clouds (ict)
! index separating middle and low clouds (icb)
!
!---output parameters
!
! fractional cover of high, middle, and low cloud groups (cc)
! scaled cloud optical thickness for direct radiation (tauclb)
! scaled cloud optical thickness for diffuse radiation (tauclf)
!
!********************************************************************
implicit none
!-----input parameters
integer m,np,ict(m),icb(m)
real(Kind=fp_kind) cosz(m),fcld(m,np),taucld(m,np,3)
!-----output parameters
real(Kind=fp_kind) cc(m,3),tauclb(m,np),tauclf(m,np)
!-----temporary variables
integer i,j,k,im,it,ia,kk
real(Kind=fp_kind) fm,ft,fa,xai,taux
!-----pre-computed table
! size of cosz-interval: dm
! size of taucld-interval: dt
! size of cloud amount-interval: da
integer nm,nt,na
parameter (nm=11,nt=9,na=11)
real(Kind=fp_kind) dm,dt,da,t1,caib(nm,nt,na),caif(nt,na)
parameter (dm=0.1,dt=0.30103,da=0.1,t1=-0.9031)
!-----include the pre-computed table of mcai for scaling the cloud optical
! thickness under the assumption that clouds are maximally overlapped
!
! caib is for scaling the cloud optical thickness for direct radiation
! caif is for scaling the cloud optical thickness for diffuse radiation
! include "mcai.data"
data ((caib(1,i,j),j=1,11),i=1,9)/ &
.000,0.068,0.140,0.216,0.298,0.385,0.481,0.586,0.705,0.840,1.000, &
.000,0.052,0.106,0.166,0.230,0.302,0.383,0.478,0.595,0.752,1.000, &
.000,0.038,0.078,0.120,0.166,0.218,0.276,0.346,0.438,0.582,1.000, &
.000,0.030,0.060,0.092,0.126,0.164,0.206,0.255,0.322,0.442,1.000, &
.000,0.025,0.051,0.078,0.106,0.136,0.170,0.209,0.266,0.462,1.000, &
.000,0.023,0.046,0.070,0.095,0.122,0.150,0.187,0.278,0.577,1.000, &
.000,0.022,0.043,0.066,0.089,0.114,0.141,0.187,0.354,0.603,1.000, &
.000,0.021,0.042,0.063,0.086,0.108,0.135,0.214,0.349,0.565,1.000, &
.000,0.021,0.041,0.062,0.083,0.105,0.134,0.202,0.302,0.479,1.000/
data ((caib(2,i,j),j=1,11),i=1,9)/ &
.000,0.088,0.179,0.272,0.367,0.465,0.566,0.669,0.776,0.886,1.000, &
.000,0.079,0.161,0.247,0.337,0.431,0.531,0.637,0.749,0.870,1.000, &
.000,0.065,0.134,0.207,0.286,0.372,0.466,0.572,0.692,0.831,1.000, &
.000,0.049,0.102,0.158,0.221,0.290,0.370,0.465,0.583,0.745,1.000, &
.000,0.037,0.076,0.118,0.165,0.217,0.278,0.354,0.459,0.638,1.000, &
.000,0.030,0.061,0.094,0.130,0.171,0.221,0.286,0.398,0.631,1.000, &
.000,0.026,0.052,0.081,0.111,0.146,0.189,0.259,0.407,0.643,1.000, &
.000,0.023,0.047,0.072,0.098,0.129,0.170,0.250,0.387,0.598,1.000, &
.000,0.022,0.044,0.066,0.090,0.118,0.156,0.224,0.328,0.508,1.000/
data ((caib(3,i,j),j=1,11),i=1,9)/ &
.000,0.094,0.189,0.285,0.383,0.482,0.582,0.685,0.788,0.894,1.000, &
.000,0.088,0.178,0.271,0.366,0.465,0.565,0.669,0.776,0.886,1.000, &
.000,0.079,0.161,0.247,0.337,0.431,0.531,0.637,0.750,0.870,1.000, &
.000,0.066,0.134,0.209,0.289,0.375,0.470,0.577,0.697,0.835,1.000, &
.000,0.050,0.104,0.163,0.227,0.300,0.383,0.483,0.606,0.770,1.000, &
.000,0.038,0.080,0.125,0.175,0.233,0.302,0.391,0.518,0.710,1.000, &
.000,0.031,0.064,0.100,0.141,0.188,0.249,0.336,0.476,0.689,1.000, &
.000,0.026,0.054,0.084,0.118,0.158,0.213,0.298,0.433,0.638,1.000, &
.000,0.023,0.048,0.074,0.102,0.136,0.182,0.254,0.360,0.542,1.000/
data ((caib(4,i,j),j=1,11),i=1,9)/ &
.000,0.096,0.193,0.290,0.389,0.488,0.589,0.690,0.792,0.896,1.000, &
.000,0.092,0.186,0.281,0.378,0.477,0.578,0.680,0.785,0.891,1.000, &
.000,0.086,0.174,0.264,0.358,0.455,0.556,0.660,0.769,0.882,1.000, &
.000,0.074,0.153,0.235,0.323,0.416,0.514,0.622,0.737,0.862,1.000, &
.000,0.061,0.126,0.195,0.271,0.355,0.449,0.555,0.678,0.823,1.000, &
.000,0.047,0.098,0.153,0.215,0.286,0.370,0.471,0.600,0.770,1.000, &
.000,0.037,0.077,0.120,0.170,0.230,0.303,0.401,0.537,0.729,1.000, &
.000,0.030,0.062,0.098,0.138,0.187,0.252,0.343,0.476,0.673,1.000, &
.000,0.026,0.053,0.082,0.114,0.154,0.207,0.282,0.391,0.574,1.000/
data ((caib(5,i,j),j=1,11),i=1,9)/ &
.000,0.097,0.194,0.293,0.392,0.492,0.592,0.693,0.794,0.897,1.000, &
.000,0.094,0.190,0.286,0.384,0.483,0.584,0.686,0.789,0.894,1.000, &
.000,0.090,0.181,0.274,0.370,0.468,0.569,0.672,0.778,0.887,1.000, &
.000,0.081,0.165,0.252,0.343,0.439,0.539,0.645,0.757,0.874,1.000, &
.000,0.069,0.142,0.218,0.302,0.392,0.490,0.598,0.717,0.850,1.000, &
.000,0.054,0.114,0.178,0.250,0.330,0.422,0.529,0.656,0.810,1.000, &
.000,0.042,0.090,0.141,0.200,0.269,0.351,0.455,0.589,0.764,1.000, &
.000,0.034,0.070,0.112,0.159,0.217,0.289,0.384,0.515,0.703,1.000, &
.000,0.028,0.058,0.090,0.128,0.174,0.231,0.309,0.420,0.602,1.000/
data ((caib(6,i,j),j=1,11),i=1,9)/ &
.000,0.098,0.196,0.295,0.394,0.494,0.594,0.695,0.796,0.898,1.000, &
.000,0.096,0.193,0.290,0.389,0.488,0.588,0.690,0.792,0.895,1.000, &
.000,0.092,0.186,0.281,0.378,0.477,0.577,0.680,0.784,0.891,1.000, &
.000,0.086,0.174,0.264,0.358,0.455,0.556,0.661,0.769,0.882,1.000, &
.000,0.075,0.154,0.237,0.325,0.419,0.518,0.626,0.741,0.865,1.000, &
.000,0.062,0.129,0.201,0.279,0.366,0.462,0.571,0.694,0.836,1.000, &
.000,0.049,0.102,0.162,0.229,0.305,0.394,0.501,0.631,0.793,1.000, &
.000,0.038,0.080,0.127,0.182,0.245,0.323,0.422,0.550,0.730,1.000, &
.000,0.030,0.064,0.100,0.142,0.192,0.254,0.334,0.448,0.627,1.000/
data ((caib(7,i,j),j=1,11),i=1,9)/ &
.000,0.098,0.198,0.296,0.396,0.496,0.596,0.696,0.797,0.898,1.000, &
.000,0.097,0.194,0.293,0.392,0.491,0.591,0.693,0.794,0.897,1.000, &
.000,0.094,0.190,0.286,0.384,0.483,0.583,0.686,0.789,0.894,1.000, &
.000,0.089,0.180,0.274,0.369,0.467,0.568,0.672,0.778,0.887,1.000, &
.000,0.081,0.165,0.252,0.344,0.440,0.541,0.646,0.758,0.875,1.000, &
.000,0.069,0.142,0.221,0.306,0.397,0.496,0.604,0.722,0.854,1.000, &
.000,0.056,0.116,0.182,0.256,0.338,0.432,0.540,0.666,0.816,1.000, &
.000,0.043,0.090,0.143,0.203,0.273,0.355,0.455,0.583,0.754,1.000, &
.000,0.034,0.070,0.111,0.157,0.210,0.276,0.359,0.474,0.650,1.000/
data ((caib(8,i,j),j=1,11),i=1,9)/ &
.000,0.099,0.198,0.298,0.398,0.497,0.598,0.698,0.798,0.899,1.000, &
.000,0.098,0.196,0.295,0.394,0.494,0.594,0.695,0.796,0.898,1.000, &
.000,0.096,0.193,0.290,0.390,0.489,0.589,0.690,0.793,0.896,1.000, &
.000,0.093,0.186,0.282,0.379,0.478,0.578,0.681,0.786,0.892,1.000, &
.000,0.086,0.175,0.266,0.361,0.458,0.558,0.663,0.771,0.883,1.000, &
.000,0.076,0.156,0.240,0.330,0.423,0.523,0.630,0.744,0.867,1.000, &
.000,0.063,0.130,0.203,0.282,0.369,0.465,0.572,0.694,0.834,1.000, &
.000,0.049,0.102,0.161,0.226,0.299,0.385,0.486,0.611,0.774,1.000, &
.000,0.038,0.078,0.122,0.172,0.229,0.297,0.382,0.498,0.672,1.000/
data ((caib(9,i,j),j=1,11),i=1,9)/ &
.000,0.099,0.199,0.298,0.398,0.498,0.598,0.699,0.799,0.899,1.000, &
.000,0.099,0.198,0.298,0.398,0.497,0.598,0.698,0.798,0.899,1.000, &
.000,0.098,0.196,0.295,0.394,0.494,0.594,0.695,0.796,0.898,1.000, &
.000,0.096,0.193,0.290,0.389,0.488,0.588,0.690,0.792,0.895,1.000, &
.000,0.092,0.185,0.280,0.376,0.474,0.575,0.678,0.782,0.890,1.000, &
.000,0.084,0.170,0.259,0.351,0.447,0.547,0.652,0.762,0.878,1.000, &
.000,0.071,0.146,0.224,0.308,0.398,0.494,0.601,0.718,0.850,1.000, &
.000,0.056,0.114,0.178,0.248,0.325,0.412,0.514,0.638,0.793,1.000, &
.000,0.042,0.086,0.134,0.186,0.246,0.318,0.405,0.521,0.691,1.000/
data ((caib(10,i,j),j=1,11),i=1,9)/ &
.000,0.100,0.200,0.300,0.400,0.500,0.600,0.700,0.800,0.900,1.000, &
.000,0.100,0.200,0.300,0.400,0.500,0.600,0.700,0.800,0.900,1.000, &
.000,0.100,0.200,0.300,0.400,0.500,0.600,0.700,0.800,0.900,1.000, &
.000,0.100,0.199,0.298,0.398,0.498,0.598,0.698,0.798,0.899,1.000, &
.000,0.098,0.196,0.294,0.392,0.491,0.590,0.691,0.793,0.896,1.000, &
.000,0.092,0.185,0.278,0.374,0.470,0.570,0.671,0.777,0.886,1.000, &
.000,0.081,0.162,0.246,0.333,0.424,0.521,0.625,0.738,0.862,1.000, &
.000,0.063,0.128,0.196,0.270,0.349,0.438,0.540,0.661,0.809,1.000, &
.000,0.046,0.094,0.146,0.202,0.264,0.337,0.426,0.542,0.710,1.000/
data ((caib(11,i,j),j=1,11),i=1,9)/ &
.000,0.101,0.202,0.302,0.402,0.502,0.602,0.702,0.802,0.901,1.000, &
.000,0.102,0.202,0.303,0.404,0.504,0.604,0.703,0.802,0.902,1.000, &
.000,0.102,0.205,0.306,0.406,0.506,0.606,0.706,0.804,0.902,1.000, &
.000,0.104,0.207,0.309,0.410,0.510,0.609,0.707,0.805,0.902,1.000, &
.000,0.106,0.208,0.309,0.409,0.508,0.606,0.705,0.803,0.902,1.000, &
.000,0.102,0.202,0.298,0.395,0.493,0.590,0.690,0.790,0.894,1.000, &
.000,0.091,0.179,0.267,0.357,0.449,0.545,0.647,0.755,0.872,1.000, &
.000,0.073,0.142,0.214,0.290,0.372,0.462,0.563,0.681,0.822,1.000, &
.000,0.053,0.104,0.158,0.217,0.281,0.356,0.446,0.562,0.726,1.000/
data ((caif(i,j),j=1,11),i=1,9)/ &
.000,0.099,0.198,0.297,0.397,0.496,0.597,0.697,0.798,0.899,1.000, &
.000,0.098,0.196,0.294,0.394,0.494,0.594,0.694,0.796,0.898,1.000, &
.000,0.096,0.192,0.290,0.388,0.487,0.587,0.689,0.792,0.895,1.000, &
.000,0.092,0.185,0.280,0.376,0.476,0.576,0.678,0.783,0.890,1.000, &
.000,0.085,0.173,0.263,0.357,0.454,0.555,0.659,0.768,0.881,1.000, &
.000,0.076,0.154,0.237,0.324,0.418,0.517,0.624,0.738,0.864,1.000, &
.000,0.063,0.131,0.203,0.281,0.366,0.461,0.567,0.688,0.830,1.000, &
.000,0.052,0.107,0.166,0.232,0.305,0.389,0.488,0.610,0.770,1.000, &
.000,0.043,0.088,0.136,0.189,0.248,0.317,0.400,0.510,0.675,1.000/
!-----clouds within each of the high, middle, and low clouds are assumed
! to be maximally overlapped, and the cloud cover (cc) for a group
! (high, middle, or low) is the maximum cloud cover of all the layers
! within a group
do i=1,m
cc(i,1)=0.0
cc(i,2)=0.0
cc(i,3)=0.0
enddo
do i=1,m
do k=1,ict(i)-1
cc(i,1)=max(cc(i,1),fcld(i,k))
enddo
enddo
do i=1,m
do k=ict(i),icb(i)-1
cc(i,2)=max(cc(i,2),fcld(i,k))
enddo
enddo
do i=1,m
do k=icb(i),np
cc(i,3)=max(cc(i,3),fcld(i,k))
enddo
enddo
!-----scale the cloud optical thickness.
! taucld(i,k,1) is the optical thickness for ice particles
! taucld(i,k,2) is the optical thickness for liquid particles
! taucld(i,k,3) is the optical thickness for rain drops
do i=1,m
do k=1,np
if(k.lt.ict(i)) then
kk=1
elseif(k.ge.ict(i) .and. k.lt.icb(i)) then
kk=2
else
kk=3
endif
tauclb(i,k) = 0.0
tauclf(i,k) = 0.0
taux=taucld(i,k,1)+taucld(i,k,2)+taucld(i,k,3)
if (taux.gt.taux_min .and. fcld(i,k).gt.fcld_min) then
!-----normalize cloud cover following eq. (7.8)
fa=fcld(i,k)/cc(i,kk)
!-----table look-up
taux=min(taux,32._fp_kind)
fm=cosz(i)/dm
ft=(log10(taux)-t1)/dt
fa=fa/da
im=int(fm+1.5)
it=int(ft+1.5)
ia=int(fa+1.5)
im=max(im,2)
it=max(it,2)
ia=max(ia,2)
im=min(im,nm-1)
it=min(it,nt-1)
ia=min(ia,na-1)
fm=fm-float(im-1)
ft=ft-float(it-1)
fa=fa-float(ia-1)
!-----scale cloud optical thickness for beam radiation following eq. (7.3)
! the scaling factor, xai, is a function of the solar zenith
! angle, optical thickness, and cloud cover.
xai= (-caib(im-1,it,ia)*(1.-fm)+ &
caib(im+1,it,ia)*(1.+fm))*fm*.5+caib(im,it,ia)*(1.-fm*fm)
xai=xai+(-caib(im,it-1,ia)*(1.-ft)+ &
caib(im,it+1,ia)*(1.+ft))*ft*.5+caib(im,it,ia)*(1.-ft*ft)
xai=xai+(-caib(im,it,ia-1)*(1.-fa)+ &
caib(im,it,ia+1)*(1.+fa))*fa*.5+caib(im,it,ia)*(1.-fa*fa)
xai= xai-2.*caib(im,it,ia)
xai=max(xai,0.0_fp_kind)
xai=min(xai,1.0_fp_kind)
tauclb(i,k) = taux*xai
!-----scale cloud optical thickness for diffuse radiation following eq. (7.4)
! the scaling factor, xai, is a function of the cloud optical
! thickness and cover but not the solar zenith angle.
xai= (-caif(it-1,ia)*(1.-ft)+ &
caif(it+1,ia)*(1.+ft))*ft*.5+caif(it,ia)*(1.-ft*ft)
xai=xai+(-caif(it,ia-1)*(1.-fa)+ &
caif(it,ia+1)*(1.+fa))*fa*.5+caif(it,ia)*(1.-fa*fa)
xai= xai-caif(it,ia)
xai=max(xai,0.0_fp_kind)
xai=min(xai,1.0_fp_kind)
tauclf(i,k) = taux*xai
endif
enddo
enddo
return
end subroutine cloud_scale
!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
subroutine delta_eddington(tau,ssc,g0,cza,rr,tt,td) 8
!*********************************************************************
!
!-----uses the delta-eddington approximation to compute the
! bulk scattering properties of a single layer
! coded following king and harshvardhan (jas, 1986)
!
! inputs:
!
! tau: the effective optical thickness
! ssc: the effective single scattering albedo
! g0: the effective asymmetry factor
! cza: cosine of solar zenith angle
!
! outputs:
!
! rr: the layer reflection of the direct beam
! tt: the layer diffuse transmission of the direct beam
! td: the layer direct transmission of the direct beam
!
!*********************************************************************
implicit none
!*********************************************************************
real(Kind=fp_kind) zero,one,two,three,four,fourth,seven,thresh
parameter (one =1., three=3.)
parameter (two =2., seven=7.)
parameter (four=4., fourth=.25)
parameter (zero=0., thresh=1.e-8)
!-----input parameters
real(Kind=fp_kind) tau,ssc,g0,cza
!-----output parameters
real(Kind=fp_kind) rr,tt,td
!-----temporary parameters
real(Kind=fp_kind) zth,ff,xx,taup,sscp,gp,gm1,gm2,gm3,akk,alf1,alf2, &
all,bll,st7,st8,cll,dll,fll,ell,st1,st2,st3,st4
real(Kind=fp_kind) taupdzth,akkdtaup
!---------------------------------------------------------------------
zth = cza
! delta-eddington scaling of single scattering albedo,
! optical thickness, and asymmetry factor,
! k & h eqs(27-29)
ff = g0*g0
xx = one-ff*ssc
taup= tau*xx
sscp= ssc*(one-ff)/xx
gp = g0/(one+g0)
! gamma1, gamma2, and gamma3. see table 2 and eq(26) k & h
! ssc and gp are the d-s single scattering
! albedo and asymmetry factor.
xx = three*gp
gm1 = (seven - sscp*(four+xx))*fourth
gm2 = -(one - sscp*(four-xx))*fourth
! akk is k as defined in eq(25) of k & h
akk = sqrt((gm1+gm2)*(gm1-gm2))
xx = akk * zth
if (abs((one-xx)*(one+xx)) .lt. thresh) then
zth = zth + 0.001
xx = akk * zth
endif
st7 = one - xx
st8 = one + xx
st3 = st7 * st8
! if (abs(st3) .lt. thresh) then
! zth = zth + 0.001
! xx = akk * zth
! st7 = one - xx
! st8 = one + xx
! st3 = st7 * st8
! endif
! extinction of the direct beam transmission
td=0.
taupdzth=taup/zth
if (taupdzth .lt. 40. ) td = exp(-taup/zth)
! alf1 and alf2 are alpha1 and alpha2 from eqs (23) & (24) of k & h
gm3 = (two - zth*three*gp)*fourth
xx = gm1 - gm2
alf1 = gm1 - gm3 * xx
alf2 = gm2 + gm3 * xx
! all is last term in eq(21) of k & h
! bll is last term in eq(22) of k & h
xx = akk * two
all = (gm3 - alf2 * zth )*xx*td
bll = (one - gm3 + alf1*zth)*xx
xx = akk * gm3
cll = (alf2 + xx) * st7
dll = (alf2 - xx) * st8
xx = akk * (one-gm3)
fll = (alf1 + xx) * st8
ell = (alf1 - xx) * st7
st2=0.
akkdtaup=akk*taup
if (akkdtaup.lt.40.) st2 = exp(-akkdtaup)
st4 = st2 * st2
st1 = sscp / ((akk+gm1 + (akk-gm1)*st4) * st3)
! rr is r-hat of eq(21) of k & h
! tt is diffuse part of t-hat of eq(22) of k & h
rr = ( cll-dll*st4 -all*st2)*st1
tt = - ((fll-ell*st4)*td-bll*st2)*st1
rr = max(rr,zero)
tt = max(tt,zero)
tt = tt+td
end subroutine delta_eddington
!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
subroutine twostream_adding (m,np,ict,icb,ih1,ih2,im1,im2,is1,is2, & 6
cc,rr,tt,td,rs,ts,fclr,fall,falld,fsdir,fsdif)
!*******************************************************************
! compute upward and downward fluxes using a two-stream adding method
! following equations (6.9)-(6.16).
!
! clouds are grouped into high, middle, and low clouds which are assumed
! randomly overlapped. it involves a maximum of 8 sets of calculations.
! in each set of calculations, each atmospheric layer is homogeneous,
! either totally filled with clouds or without clouds.
! input parameters:
!
! m: number of soundings
! np: number of atmospheric layers
! ict: the level separating high and middle clouds
! icb: the level separating middle and low clouds
! ih1,ih2,im1,im2,is1,is2: indices for three group of clouds
! cc: effective cloud covers for high, middle and low clouds
! rr: reflection of a layer illuminated by beam radiation
! tt: total (direct+diffuse) transmission of a layer illuminated
! by beam radiation
! td: direct beam transmission
! rs: reflection of a layer illuminated by diffuse radiation
! ts: transmission of a layer illuminated by diffuse radiation
!
! output parameters:
!
! fclr: clear-sky flux divergence (downward minus upward)
! fall: all-sky flux divergence (downward minus upward)
! fsdir: surface direct downward flux
! fsdif: surface diffuse downward flux
!
!*********************************************************************c
!ccshie 8/19/04
implicit none
!-----input parameters
integer m,np,ict(m),icb(m),ih1,ih2,im1,im2,is1,is2
real(Kind=fp_kind) rr(m,np+1,2),tt(m,np+1,2),td(m,np+1,2)
real(Kind=fp_kind) rs(m,np+1,2),ts(m,np+1,2)
real(Kind=fp_kind) cc(m,3)
!-----temporary array
integer i,k,ih,im,is
real(Kind=fp_kind) denm,xx,yy
real(Kind=fp_kind) fupdif
real(Kind=fp_kind) :: rra(m,np+1,2,2)
real(Kind=fp_kind) :: tta(m,np+1,2,2)
real(Kind=fp_kind) :: tda(m,np+1,2,2)
real(Kind=fp_kind) :: rsa(m,np+1,2,2)
real(Kind=fp_kind) :: rxa(m,np+1,2,2)
real(Kind=fp_kind) :: ch(m)
real(Kind=fp_kind) :: cm(m)
real(Kind=fp_kind) :: ct(m)
real(Kind=fp_kind) :: flxdn(m,np+1)
real(Kind=fp_kind) :: fdndir(m)
real(Kind=fp_kind) :: fdndif(m)
real(Kind=fp_kind) flxdnu(m,np+1),flxdnd(m,np+1)
!-----output parameters
real(Kind=fp_kind) fclr(m,np+1),fall(m,np+1)
real(Kind=fp_kind) falld(m,np+1)
real(Kind=fp_kind) fsdir(m),fsdif(m)
if(overcast) then
! ih1=2 ; im1=2 ; is1=2
else
! ih1=1 ; im1=1 ; is1=1
endif
! ih2=2 ; im2=2 ; is2=2
!-----initialize all-sky flux (fall) and surface downward fluxes
do k=1,np+1
do i=1,m
fclr(i,k)=0.0
fall(i,k)=0.0
falld(i,k)=0.0
enddo
enddo
do i=1,m
fsdir(i)=0.0
fsdif(i)=0.0
enddo
!-----compute transmittances and reflectances for a composite of
! layers. layers are added one at a time, going down from the top.
! tda is the composite direct transmittance illuminated by beam radiation
! tta is the composite total transmittance illuminated by
! beam radiation
! rsa is the composite reflectance illuminated from below
! by diffuse radiation
! tta and rsa are computed from eqs. (6.10) and (6.12)
!-----for high clouds
! ih=1 for clear-sky condition, ih=2 for cloudy-sky condition
do ih=ih1,ih2
do i=1,m
tda(i,1,ih,1)=td(i,1,ih)
tta(i,1,ih,1)=tt(i,1,ih)
rsa(i,1,ih,1)=rs(i,1,ih)
tda(i,1,ih,2)=td(i,1,ih)
tta(i,1,ih,2)=tt(i,1,ih)
rsa(i,1,ih,2)=rs(i,1,ih)
enddo
do i=1,m
do k=2,ict(i)-1
denm = ts(i,k,ih)/( 1.-rsa(i,k-1,ih,1)*rs(i,k,ih))
tda(i,k,ih,1)= tda(i,k-1,ih,1)*td(i,k,ih)
tta(i,k,ih,1)= tda(i,k-1,ih,1)*tt(i,k,ih) &
+(tda(i,k-1,ih,1)*rsa(i,k-1,ih,1)*rr(i,k,ih) &
+tta(i,k-1,ih,1)-tda(i,k-1,ih,1))*denm !additional -tda(i,k-1,ih,1)
rsa(i,k,ih,1)= rs(i,k,ih)+ts(i,k,ih) &
*rsa(i,k-1,ih,1)*denm
if(tda(i,k,ih,1).lt.1.e-10) tda(i,k,ih,1)=0. !!
if(tta(i,k,ih,1).lt.1.e-10) tta(i,k,ih,1)=0. !!
tda(i,k,ih,2)= tda(i,k,ih,1)
tta(i,k,ih,2)= tta(i,k,ih,1)
rsa(i,k,ih,2)= rsa(i,k,ih,1)
enddo
enddo
!-----for middle clouds
! im=1 for clear-sky condition, im=2 for cloudy-sky condition
do im=im1,im2
do i=1,m
do k=ict(i),icb(i)-1
denm = ts(i,k,im)/( 1.-rsa(i,k-1,ih,im)*rs(i,k,im))
tda(i,k,ih,im)= tda(i,k-1,ih,im)*td(i,k,im)
tta(i,k,ih,im)= tda(i,k-1,ih,im)*tt(i,k,im) &
+(tda(i,k-1,ih,im)*rsa(i,k-1,ih,im)*rr(i,k,im) &
+tta(i,k-1,ih,im)-tda(i,k-1,ih,im))*denm !additional -tda(i,k-1,ih,im)
rsa(i,k,ih,im)= rs(i,k,im)+ts(i,k,im) &
*rsa(i,k-1,ih,im)*denm
if(tda(i,k,ih,im).lt.1.e-10) tda(i,k,ih,im)=0. !!
if(tta(i,k,ih,im).lt.1.e-10) tta(i,k,ih,im)=0. !!
enddo
enddo
enddo ! end im loop
enddo ! end ih loop
!-----layers are added one at a time, going up from the surface.
! rra is the composite reflectance illuminated by beam radiation
! rxa is the composite reflectance illuminated from above
! by diffuse radiation
! rra and rxa are computed from eqs. (6.9) and (6.11)
!-----for the low clouds
! is=1 for clear-sky condition, is=2 for cloudy-sky condition
do is=is1,is2
do i=1,m
rra(i,np+1,1,is)=rr(i,np+1,is)
rxa(i,np+1,1,is)=rs(i,np+1,is)
rra(i,np+1,2,is)=rr(i,np+1,is)
rxa(i,np+1,2,is)=rs(i,np+1,is)
enddo
do i=1,m
do k=np,icb(i),-1
denm=ts(i,k,is)/( 1.-rs(i,k,is)*rxa(i,k+1,1,is) )
rra(i,k,1,is)=rr(i,k,is)+(td(i,k,is)*rra(i,k+1,1,is) &
+(tt(i,k,is)-td(i,k,is))*rxa(i,k+1,1,is))*denm !additional -td(i,k,is)
rxa(i,k,1,is)= rs(i,k,is)+ts(i,k,is) &
*rxa(i,k+1,1,is)*denm
rra(i,k,2,is)=rra(i,k,1,is)
rxa(i,k,2,is)=rxa(i,k,1,is)
enddo
enddo
!-----for middle clouds
do im=im1,im2
do i=1,m
do k=icb(i)-1,ict(i),-1
denm=ts(i,k,im)/( 1.-rs(i,k,im)*rxa(i,k+1,im,is) )
rra(i,k,im,is)= rr(i,k,im)+(td(i,k,im)*rra(i,k+1,im,is) &
+(tt(i,k,im)-td(i,k,im))*rxa(i,k+1,im,is))*denm !additiona -td(i,k,im)
rxa(i,k,im,is)= rs(i,k,im)+ts(i,k,im) &
*rxa(i,k+1,im,is)*denm
enddo
enddo
enddo ! end im loop
enddo ! end is loop
!-----integration over eight sky situations.
! ih, im, is denotes high, middle and low cloud groups.
do ih=ih1,ih2
!-----clear portion
if(ih.eq.1) then
do i=1,m
ch(i)=1.0-cc(i,1)
enddo
else
!-----cloudy portion
do i=1,m
ch(i)=cc(i,1)
enddo
endif
do im=im1,im2
!-----clear portion
if(im.eq.1) then
do i=1,m
cm(i)=ch(i)*(1.0-cc(i,2))
enddo
else
!-----cloudy portion
do i=1,m
cm(i)=ch(i)*cc(i,2)
enddo
endif
do is=is1,is2
!-----clear portion
if(is.eq.1) then
do i=1,m
ct(i)=cm(i)*(1.0-cc(i,3))
enddo
else
!-----cloudy portion
do i=1,m
ct(i)=cm(i)*cc(i,3)
enddo
endif
!-----add one layer at a time, going down.
do i=1,m
do k=icb(i),np
denm = ts(i,k,is)/( 1.-rsa(i,k-1,ih,im)*rs(i,k,is) )
tda(i,k,ih,im)= tda(i,k-1,ih,im)*td(i,k,is)
tta(i,k,ih,im)= tda(i,k-1,ih,im)*tt(i,k,is) &
+(tda(i,k-1,ih,im)*rr(i,k,is) &
*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)
rsa(i,k,ih,im)= rs(i,k,is)+ts(i,k,is) &
*rsa(i,k-1,ih,im)*denm
if(tda(i,k,ih,im).lt.1.e-10) tda(i,k,ih,im)=0. !!
if(tta(i,k,ih,im).lt.1.e-10) tta(i,k,ih,im)=0. !!
enddo
enddo
!-----add one layer at a time, going up.
do i=1,m
do k=ict(i)-1,1,-1
denm =ts(i,k,ih)/(1.-rs(i,k,ih)*rxa(i,k+1,im,is))
rra(i,k,im,is)= rr(i,k,ih)+(td(i,k,ih)*rra(i,k+1,im,is) &
+(tt(i,k,ih)-td(i,k,ih))*rxa(i,k+1,im,is))*denm !addittional -td(i,k,ih)
rxa(i,k,im,is)= rs(i,k,ih)+ts(i,k,ih) &
*rxa(i,k+1,im,is)*denm
enddo
enddo
!-----compute fluxes following eq. (6.15) for fupdif and
! eq. (6.16) for (fdndir+fdndif)
! fdndir is the direct downward flux
! fdndif is the diffuse downward flux
! fupdif is the diffuse upward flux
do k=2,np+1
do i=1,m
denm= 1./(1.-rsa(i,k-1,ih,im)*rxa(i,k,im,is))
fdndir(i)= tda(i,k-1,ih,im)
xx= tda(i,k-1,ih,im)*rra(i,k,im,is)
yy= tta(i,k-1,ih,im)-tda(i,k-1,ih,im) !additional -tda(i,k-1,ih,im)
fdndif(i)= (xx*rsa(i,k-1,ih,im)+yy)*denm
fupdif= (xx+yy*rxa(i,k,im,is))*denm
flxdn(i,k)= fdndir(i)+fdndif(i)-fupdif
flxdnu(i,k)=-fupdif
flxdnd(i,k)=fdndir(i)+fdndif(i)
enddo
enddo
do i=1,m
flxdn(i,1)=1.0-rra(i,1,im,is)
flxdnu(i,1)=-rra(i,1,im,is)
flxdnd(i,1)=1.0
enddo
!-----summation of fluxes over all sky situations;
! the term in the brackets of eq. (7.11)
do k=1,np+1
do i=1,m
if(ih.eq.1 .and. im.eq.1 .and. is.eq.1) then
fclr(i,k)=flxdn(i,k)
endif
fall(i,k)=fall(i,k)+flxdn(i,k)*ct(i)
falld(i,k)=falld(i,k)+flxdnd(i,k)*ct(i)
enddo
enddo
do i=1,m
fsdir(i)=fsdir(i)+fdndir(i)*ct(i)
fsdif(i)=fsdif(i)+fdndif(i)*ct(i)
enddo
enddo ! end is loop
enddo ! end im loop
enddo ! end ih loop
return
end subroutine twostream_adding
!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
subroutine reduce_flux (m,np,swc,u1,du,nu,swh,w1,dw,nw,tbl,df) 2
!*****************************************************************
!-----compute the reduction of clear-sky downward solar flux
! due to co2 absorption.
implicit none
!-----input parameters
integer m,np,nu,nw
real(Kind=fp_kind) u1,du,w1,dw
real(Kind=fp_kind) swc(m,np+1),swh(m,np+1),tbl(nu,nw)
!-----output (undated) parameter
real(Kind=fp_kind) df(m,np+1)
!-----temporary array
integer i,k,ic,iw
real(Kind=fp_kind) clog,wlog,dc,dd,x0,x1,x2,y0,y1,y2
!-----table look-up for the reduction of clear-sky solar
x0=u1+float(nu)*du
y0=w1+float(nw)*dw
x1=u1-0.5*du
y1=w1-0.5*dw
do k= 2, np+1
do i= 1, m
clog=min(swc(i,k),x0)
clog=max(swc(i,k),x1)
wlog=min(swh(i,k),y0)
wlog=max(swh(i,k),y1)
ic=int( (clog-x1)/du+1.)
iw=int( (wlog-y1)/dw+1.)
if(ic.lt.2)ic=2
if(iw.lt.2)iw=2
if(ic.gt.nu)ic=nu
if(iw.gt.nw)iw=nw
dc=clog-float(ic-2)*du-u1
dd=wlog-float(iw-2)*dw-w1
x2=tbl(ic-1,iw-1)+(tbl(ic-1,iw)-tbl(ic-1,iw-1))/dw*dd
y2=x2+(tbl(ic,iw-1)-tbl(ic-1,iw-1))/du*dc
df(i,k)=df(i,k)+y2
enddo
enddo
return
end subroutine reduce_flux
!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
subroutine o3_profile (np, pres, ozone, its, ite, kts, kte, p2d, o3) 1
implicit none
integer m,np,its,ite,kts,kte
integer i,k,ko,kk
real(Kind=fp_kind) pres(np),ozone(np)
real(Kind=fp_kind) p(its:ite,kts:kte),o3(its:ite,kts:kte)
real(Kind=fp_kind),intent(in) :: p2d(its:ite,kts:kte)
! statement function
real(Kind=fp_kind) linear, x1, y1, x2, y2, x
linear(x1, y1, x2, y2, x) = &
(y1 * (x2 - x) + y2 * (x - x1)) / (x2 - x1)
p = p2d
!
do k = 1,np
pres(k) = log(pres(k)) !toshii
enddo
do k = kts,kte
do i = its, ite
p(i,k) = log(p(i,k)) !toshii
end do
end do
! assume the pressure at model top is greater than pres(1)
! if it is not, this part needs to change
do i = its, ite
ko = 1
do k = kts+1, kte
do while (ko .lt. np .and. p(i,k) .gt. pres(ko))
ko = ko + 1
end do
o3(i,k) = linear (pres(ko), ozone(ko), &
pres(ko-1), ozone(ko-1), &
p(i,k))
ko = ko - 1
end do
end do
! calculate top lay o3
do i = its, ite
ko = 1
k = kts
do while (ko .le. np .and. p(i,k) .gt. pres(ko))
ko = ko + 1
end do
if (ko-1 .le. 1) then
o3(i,k)=ozone(k)
else
o3(i,k)=0.
do kk=ko-2,1,-1
o3(i,k)=o3(i,k)+ozone(kk)*(pres(kk+1)-pres(kk))
enddo
o3(i,k)=o3(i,k)/(pres(ko-1)-pres(1))
endif
end do
end subroutine o3_profile
!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
subroutine lwrad (m,np,pl,ta,wa,oa,tb,ts,emiss, & 1,28
cwc,reff,fcld,ict,icb, &
taual,ssaal,asyal,&
flx,acflxd,acflxu)
!***********************************************************************
! this routine computes ir fluxes due to water vapor, co2, o3,
! trace gases (n2o, ch4, cfc11, cfc12, cfc22, co2-minor),
! clouds, and aerosols.
!
! this is a vectorized code. it computes fluxes simultaneously for
! m soundings.
!
! some detailed descriptions of the radiation routine are given in
! chou and suarez (1994).
!
! ice and liquid cloud particles are allowed to co-exist in any of the
! np layers.
!
! if no information is available for the effective cloud particle size,
! reff, default values of 10 micron for liquid water and 75 micron
! for ice can be used.
!
! the maximum-random assumption is applied for cloud overlapping.
! clouds are grouped into high, middle, and low clouds separated by the
! level indices ict and icb. within each of the three groups, clouds
! are assumed maximally overlapped, and the cloud cover of a group is
! the maximum cloud cover of all the layers in the group. clouds among
! the three groups are assumed randomly overlapped. the indices ict and
! icb correpond approximately to the 400 mb and 700 mb levels.
!
! aerosols are allowed to be in any of the np layers. aerosol optical
! properties can be specified as functions of height and spectral band.
!
! the ir spectrum is divided into nine bands:
!
! band wavenumber (/cm) absorber
!
! 1 0 - 340 h2o
! 2 340 - 540 h2o
! 3 540 - 800 h2o,cont,co2
! 4 800 - 980 h2o,cont
! co2,f11,f12,f22
! 5 980 - 1100 h2o,cont,o3
! co2,f11
! 6 1100 - 1215 h2o,cont
! n2o,ch4,f12,f22
! 7 1215 - 1380 h2o,cont
! n2o,ch4
! 8 1380 - 1900 h2o
! 9 1900 - 3000 h2o
!
! in addition, a narrow band in the 17 micrometer region is added to
! compute flux reduction due to n2o
!
! 10 540 - 620 h2o,cont,co2,n2o
!
! band 3 (540-800/cm) is further divided into 3 sub-bands :
!
! subband wavenumber (/cm)
!
! 1 540 - 620
! 2 620 - 720
! 3 720 - 800
!
!---- input parameters units size
!
! number of soundings (m) -- 1
! number of atmospheric layers (np) -- 1
! level pressure (pl) mb m*(np+1)
! layer temperature (ta) k m*np
! layer specific humidity (wa) g/g m*np
! layer ozone mixing ratio by mass (oa) g/g m*np
! surface air temperature (tb) k m
! surface temperature (ts) k m
! surface emissivity (emiss) fraction m*10
! input option for cloud fractional cover -- 1
! (overcast) (see explanation above)
! input option for cloud optical thickness -- 1
! (cldwater) (see explanation above)
! cloud water mixing ratio (cwc) gm/gm m*np*3
! index 1 for ice particles
! index 2 for liquid drops
! index 3 for rain drops
! cloud optical thickness (taucl) -- m*np*3
! index 1 for ice particles
! index 2 for liquid drops
! index 3 for rain drops
! effective cloud-particle size (reff) micrometer m*np*3
! index 1 for ice particles
! index 2 for liquid drops
! index 3 for rain drops
! cloud amount (fcld) fraction m*np
! level index separating high and middle -- 1
! clouds (ict)
! level index separating middle and low -- 1
! clouds (icb)
! aerosol optical thickness (taual) -- m*np*10
! aerosol single-scattering albedo (ssaal) -- m*np*10
! aerosol asymmetry factor (asyal) -- m*np*10
! high (see explanation above) -- 1
! trace (see explanation above) -- 1
!
! data used in table look-up for transmittance calculations:
!
! c1 , c2, c3: for co2 (band 3)
! o1 , o2, o3: for o3 (band 5)
! h11,h12,h13: for h2o (band 1)
! h21,h22,h23: for h2o (band 2)
! h81,h82,h83: for h2o (band 8)
!
!---- output parameters
!
! net downward flux, all-sky (flx) w/m**2 m*(np+1)
! net downward flux, clear-sky (flc) w/m**2 m*(np+1)
! sensitivity of net downward flux
! to surface temperature (dfdts) w/m**2/k m*(np+1)
! emission by the surface (sfcem) w/m**2 m
!
! notes:
!
! (1) water vapor continuum absorption is included in 540-1380 /cm.
! (2) scattering is parameterized for clouds and aerosols.
! (3) diffuse cloud and aerosol transmissions are computed
! from exp(-1.66*tau).
! (4) if there are no clouds, flx=flc.
! (5) plevel(1) is the pressure at the top of the model atmosphere,
! and plevel(np+1) is the surface pressure.
! (6) downward flux is positive and upward flux is negative.
! (7) sfcem and dfdts are negative because upward flux is defined as negative.
! (8) for questions and coding errors, plaese contact ming-dah chou,
! code 913, nasa/goddard space flight center, greenbelt, md 20771.
! phone: 301-614-6192, fax: 301-614-6307,
! e-mail: chou@climate.gsfc.nasa.gov
!
!***************************************************************************
implicit none
!---- input parameters ------
integer,intent(in) :: m,np,ict(m),icb(m)
real(Kind=fp_kind) ,intent(in) :: pl(m,np+1),ta(m,np),wa(m,np),oa(m,np), &
tb(m),ts(m), emiss(m,ib_lw)
real(Kind=fp_kind) ,intent(in) :: cwc(m,np,3),reff(m,np,3), fcld(m,np)
real(Kind=fp_kind) , intent(in) :: taual(m,np,ib_lw),ssaal(m,np,ib_lw),asyal(m,np,ib_lw)
!---- output parameters ------
real(Kind=fp_kind),intent(out) :: flx(m,np+1)
real(Kind=fp_kind) :: flc(m,np+1),dfdts(m,np+1), sfcem(m)
real(Kind=fp_kind) :: acflxu(m,np+1),acflxd(m,np+1) !upwelling and downwelling broadband LW flux [W/m2]
!---- static data -----
real(Kind=fp_kind) cb(6,10),xkw(9),xke(9),aw(9),bw(9),pm(9),fkw(6,9),gkw(6,3)
real(Kind=fp_kind) aib(3,10),awb(4,10),aiw(4,10),aww(4,10),aig(4,10),awg(4,10)
integer ne(9),mw(9)
real(Kind=fp_kind) :: taucl(m,np,3)
!-----parameters defining the size of the pre-computed tables for
! transmittance using table look-up.
!c "nx" is the number of intervals in pressure
! "nx2" is the number of intervals in pressure
! "no" is the number of intervals in o3 amount
! "nc" is the number of intervals in co2 amount
! "nh" is the number of intervals in h2o amount
integer nx2,no,nc,nh
parameter (nx2=26,no=21,nc=30,nh=31) ! cccshie 9/15/04
real(Kind=fp_kind) c1 (nx2,nc),c2 (nx2,nc),c3 (nx2,nc)
real(Kind=fp_kind) o1 (nx2,no),o2 (nx2,no),o3 (nx2,no)
real(Kind=fp_kind) h11(nx2,nh),h12(nx2,nh),h13(nx2,nh)
real(Kind=fp_kind) h21(nx2,nh),h22(nx2,nh),h23(nx2,nh)
real(Kind=fp_kind) h71(nx2,nh),h72(nx2,nh),h73(nx2,nh)
real(Kind=fp_kind) h81(nx2,nh),h82(nx2,nh),h83(nx2,nh)
!---- temporary arrays -----
real(Kind=fp_kind) pa(m,np),dt(m,np)
real(Kind=fp_kind) sh2o(m,np+1),swpre(m,np+1),swtem(m,np+1)
real(Kind=fp_kind) sco3(m,np+1),scopre(m,np+1),scotem(m,np+1)
real(Kind=fp_kind) dh2o(m,np),dcont(m,np),dco2(m,np),do3(m,np)
real(Kind=fp_kind) dn2o(m,np),dch4(m,np)
real(Kind=fp_kind) df11(m,np),df12(m,np),df22(m,np)
real(Kind=fp_kind) th2o(m,6),tcon(m,3),tco2(m,6,2)
real(Kind=fp_kind) tn2o(m,4),tch4(m,4),tcom(m,6)
real(Kind=fp_kind) tf11(m),tf12(m),tf22(m)
real(Kind=fp_kind) h2oexp(m,np,6),conexp(m,np,3),co2exp(m,np,6,2)
real(Kind=fp_kind) n2oexp(m,np,4),ch4exp(m,np,4),comexp(m,np,6)
real(Kind=fp_kind) f11exp(m,np),f12exp(m,np),f22exp(m,np)
real(Kind=fp_kind) blayer(m,0:np+1),blevel(m,np+1),dblayr(m,np+1),dbs(m)
real(Kind=fp_kind) dp(m,np),cwp(m,np,3)
real(Kind=fp_kind) trant(m),tranal(m),transfc(m,np+1),trantcr(m,np+1)
real(Kind=fp_kind) flxu(m,np+1),flxd(m,np+1),flcu(m,np+1),flcd(m,np+1)
real(Kind=fp_kind) rflx(m,np+1),rflc(m,np+1)
integer it(m),im(m),ib(m)
real(Kind=fp_kind) cldhi(m),cldmd(m),cldlw(m),tcldlyr(m,np),fclr(m)
real(Kind=fp_kind) taerlyr(m,np)
! real(Kind=fp_kind) , allocatable :: pa(:,:),dt(:,:)
! real(Kind=fp_kind) , allocatable :: sh2o(:,:),swpre(:,:),swtem(:,:)
! real(Kind=fp_kind) , allocatable :: sco3(:,:),scopre(:,:),scotem(:,:)
! real(Kind=fp_kind) , allocatable :: dh2o(:,:),dcont(:,:),dco2(:,:),do3(:,:)
! real(Kind=fp_kind) , allocatable :: dn2o(:,:),dch4(:,:)
! real(Kind=fp_kind) , allocatable :: df11(:,:),df12(:,:),df22(:,:)
! real(Kind=fp_kind) , allocatable :: th2o(:,:),tcon(:,:),tco2(:,:,:)
! real(Kind=fp_kind) , allocatable :: tn2o(:,:),tch4(:,:),tcom(:,:)
! real(Kind=fp_kind) , allocatable :: tf11(:),tf12(:),tf22(:)
! real(Kind=fp_kind) , allocatable :: h2oexp(:,:,:),conexp(:,:,:),co2exp(:,:,:,:)
! real(Kind=fp_kind) , allocatable :: n2oexp(:,:,:),ch4exp(:,:,:),comexp(:,:,:)
! real(Kind=fp_kind) , allocatable :: f11exp(:,:),f12exp(:,:),f22exp(:,:)
! real(Kind=fp_kind) , allocatable :: blayer(:,:),blevel(:,:),dblayr(:,:),dbs(:)
! real(Kind=fp_kind) , allocatable :: dp(:,:),cwp(:,:,:)
! real(Kind=fp_kind),allocatable :: trant(:),tranal(:),transfc(:,:),trantcr(:,:)
! real(Kind=fp_kind) , allocatable :: flxu(:,:),flxd(:,:),flcu(:,:),flcd(:,:)
! real(Kind=fp_kind) , allocatable :: rflx(:,:),rflc(:,:)
! integer, allocatable :: it(:),im(:),ib(:)
! real(Kind=fp_kind),allocatable::cldhi(:),cldmd(:),cldlw(:),tcldlyr(:,:),fclr(:)
! real(Kind=fp_kind) , allocatable :: taerlyr(:,:)
integer i,j,k,ip,iw,ibn,ik,iq,isb,k1,k2
real(Kind=fp_kind) xx,yy,p1,dwe,dpe,a1,b1,fk1,a2,b2,fk2,bu,bd
real(Kind=fp_kind) w1,w2,w3,g1,g2,g3,ww,gg,ff,taux,reff1,reff2
real(Kind=fp_kind) tauxa
logical oznbnd,co2bnd,h2otbl,conbnd,n2obnd
logical ch4bnd,combnd,f11bnd,f12bnd,f22bnd,b10bnd
!-----the following coefficients are given in table 2 for computing
! spectrally integrated planck fluxes using eq. (3.11)
data cb/ &
5.3443e+0, -2.0617e-1, 2.5333e-3, &
-6.8633e-6, 1.0115e-8, -6.2672e-12, &
2.7148e+1, -5.4038e-1, 2.9501e-3, &
2.7228e-7, -9.3384e-9, 9.9677e-12, &
-3.4860e+1, 1.1132e+0, -1.3006e-2, &
6.4955e-5, -1.1815e-7, 8.0424e-11, &
-6.0513e+1, 1.4087e+0, -1.2077e-2, &
4.4050e-5, -5.6735e-8, 2.5660e-11, &
-2.6689e+1, 5.2828e-1, -3.4453e-3, &
6.0715e-6, 1.2523e-8, -2.1550e-11, &
-6.7274e+0, 4.2256e-2, 1.0441e-3, &
-1.2917e-5, 4.7396e-8, -4.4855e-11, &
1.8786e+1, -5.8359e-1, 6.9674e-3, &
-3.9391e-5, 1.0120e-7, -8.2301e-11, &
1.0344e+2, -2.5134e+0, 2.3748e-2, &
-1.0692e-4, 2.1841e-7, -1.3704e-10, &
-1.0482e+1, 3.8213e-1, -5.2267e-3, &
3.4412e-5, -1.1075e-7, 1.4092e-10, &
1.6769e+0, 6.5397e-2, -1.8125e-3, &
1.2912e-5, -2.6715e-8, 1.9792e-11/
!-----xkw is the absorption coefficient are given in table 4 for the
! first k-distribution interval due to water vapor line absorption.
! units are cm**2/g
data xkw / 29.55 , 4.167e-1, 1.328e-2, 5.250e-4, &
5.25e-4, 9.369e-3, 4.719e-2, 1.320e-0, 5.250e-4/
!-----xke is the absorption coefficient given in table 9 for the first
! k-distribution function due to water vapor continuum absorption
! units are cm**2/g
data xke / 0.00, 0.00, 27.40, 15.8, &
9.40, 7.75, 8.78, 0.0, 0.0/
!-----mw is the ratio between neighboring absorption coefficients
! for water vapor line absorption (table 4).
data mw /6,6,8,6,6,8,9,6,16/
!-----aw and bw (table 3) are the coefficients for temperature scaling
! in eq. (4.2).
data aw/ 0.0021, 0.0140, 0.0167, 0.0302, &
0.0307, 0.0195, 0.0152, 0.0008, 0.0096/
data bw/ -1.01e-5, 5.57e-5, 8.54e-5, 2.96e-4, &
2.86e-4, 1.108e-4, 7.608e-5, -3.52e-6, 1.64e-5/
!-----pm is the pressure-scaling parameter for water vapor absorption
! eq. (4.1) and table 3.
data pm/ 1.0, 1.0, 1.0, 1.0, 1.0, 0.77, 0.5, 1.0, 1.0/
!-----fkw is the planck-weighted k-distribution function due to h2o
! line absorption given in table 4.
! the k-distribution function for the third band, fkw(*,3),
! is not used (see the parameter gkw below).
data fkw / 0.2747,0.2717,0.2752,0.1177,0.0352,0.0255, &
0.1521,0.3974,0.1778,0.1826,0.0374,0.0527, &
6*1.00, &
0.4654,0.2991,0.1343,0.0646,0.0226,0.0140, &
0.5543,0.2723,0.1131,0.0443,0.0160,0.0000, &
0.5955,0.2693,0.0953,0.0335,0.0064,0.0000, &
0.1958,0.3469,0.3147,0.1013,0.0365,0.0048, &
0.0740,0.1636,0.4174,0.1783,0.1101,0.0566, &
0.1437,0.2197,0.3185,0.2351,0.0647,0.0183/
!-----gkw is the planck-weighted k-distribution function due to h2o
! line absorption in the 3 subbands (800-720,620-720,540-620 /cm)
! of band 3 given in table 10. note that the order of the sub-bands
! is reversed.
data gkw/ 0.1782,0.0593,0.0215,0.0068,0.0022,0.0000, &
0.0923,0.1675,0.0923,0.0187,0.0178,0.0000, &
0.0000,0.1083,0.1581,0.0455,0.0274,0.0041/
!-----ne is the number of terms used in each band to compute water vapor
! continuum transmittance (table 9).
data ne /0,0,3,1,1,1,1,0,0/
!
!-----coefficients for computing the extinction coefficient
! for cloud ice particles (table 11a, eq. 6.4a).
!
data aib / -0.44171, 0.62951, 0.06465, &
-0.13727, 0.61291, 0.28962, &
-0.01878, 1.67680, 0.79080, &
-0.01896, 1.06510, 0.69493, &
-0.04788, 0.88178, 0.54492, &
-0.02265, 1.57390, 0.76161, &
-0.01038, 2.15640, 0.89045, &
-0.00450, 2.51370, 0.95989, &
-0.00044, 3.15050, 1.03750, &
-0.02956, 1.44680, 0.71283/
!
!-----coefficients for computing the extinction coefficient
! for cloud liquid drops. (table 11b, eq. 6.4b)
!
data awb / 0.08641, 0.01769, -1.5572e-3, 3.4896e-5, &
0.22027, 0.00997, -1.8719e-3, 5.3112e-5, &
0.38074, -0.03027, 1.0154e-3, -1.1849e-5, &
0.15587, 0.00371, -7.7705e-4, 2.0547e-5, &
0.05518, 0.04544, -4.2067e-3, 1.0184e-4, &
0.12724, 0.04751, -5.2037e-3, 1.3711e-4, &
0.30390, 0.01656, -3.5271e-3, 1.0828e-4, &
0.63617, -0.06287, 2.2350e-3, -2.3177e-5, &
1.15470, -0.19282, 1.2084e-2, -2.5612e-4, &
0.34021, -0.02805, 1.0654e-3, -1.5443e-5/
!
!-----coefficients for computing the single-scattering albedo
! for cloud ice particles. (table 12a, eq. 6.5)
!
data aiw/ 0.17201, 1.2229e-2, -1.4837e-4, 5.8020e-7, &
0.81470, -2.7293e-3, 9.7816e-8, 5.7650e-8, &
0.54859, -4.8273e-4, 5.4353e-6, -1.5679e-8, &
0.39218, 4.1717e-3, - 4.8869e-5, 1.9144e-7, &
0.71773, -3.3640e-3, 1.9713e-5, -3.3189e-8, &
0.77345, -5.5228e-3, 4.8379e-5, -1.5151e-7, &
0.74975, -5.6604e-3, 5.6475e-5, -1.9664e-7, &
0.69011, -4.5348e-3, 4.9322e-5, -1.8255e-7, &
0.83963, -6.7253e-3, 6.1900e-5, -2.0862e-7, &
0.64860, -2.8692e-3, 2.7656e-5, -8.9680e-8/
!
!-----coefficients for computing the single-scattering albedo
! for cloud liquid drops. (table 12b, eq. 6.5)
!
data aww/ -7.8566e-2, 8.0875e-2, -4.3403e-3, 8.1341e-5, &
-1.3384e-2, 9.3134e-2, -6.0491e-3, 1.3059e-4, &
3.7096e-2, 7.3211e-2, -4.4211e-3, 9.2448e-5, &
-3.7600e-3, 9.3344e-2, -5.6561e-3, 1.1387e-4, &
0.40212, 7.8083e-2, -5.9583e-3, 1.2883e-4, &
0.57928, 5.9094e-2, -5.4425e-3, 1.2725e-4, &
0.68974, 4.2334e-2, -4.9469e-3, 1.2863e-4, &
0.80122, 9.4578e-3, -2.8508e-3, 9.0078e-5, &
1.02340, -2.6204e-2, 4.2552e-4, 3.2160e-6, &
0.05092, 7.5409e-2, -4.7305e-3, 1.0121e-4/
!
!-----coefficients for computing the asymmetry factor for cloud ice
! particles. (table 13a, eq. 6.6)
!
data aig / 0.57867, 1.0135e-2, -1.1142e-4, 4.1537e-7, &
0.72259, 3.1149e-3, -1.9927e-5, 5.6024e-8, &
0.76109, 4.5449e-3, -4.6199e-5, 1.6446e-7, &
0.86934, 2.7474e-3, -3.1301e-5, 1.1959e-7, &
0.89103, 1.8513e-3, -1.6551e-5, 5.5193e-8, &
0.86325, 2.1408e-3, -1.6846e-5, 4.9473e-8, &
0.85064, 2.5028e-3, -2.0812e-5, 6.3427e-8, &
0.86945, 2.4615e-3, -2.3882e-5, 8.2431e-8, &
0.80122, 3.1906e-3, -2.4856e-5, 7.2411e-8, &
0.73290, 4.8034e-3, -4.4425e-5, 1.4839e-7/
!
!-----coefficients for computing the asymmetry factor for cloud liquid
! drops. (table 13b, eq. 6.6)
!
data awg / -0.51930, 0.20290, -1.1747e-2, 2.3868e-4, &
-0.22151, 0.19708, -1.2462e-2, 2.6646e-4, &
0.14157, 0.14705, -9.5802e-3, 2.0819e-4, &
0.41590, 0.10482, -6.9118e-3, 1.5115e-4, &
0.55338, 7.7016e-2, -5.2218e-3, 1.1587e-4, &
0.61384, 6.4402e-2, -4.6241e-3, 1.0746e-4, &
0.67891, 4.8698e-2, -3.7021e-3, 9.1966e-5, &
0.78169, 2.0803e-2, -1.4749e-3, 3.9362e-5, &
0.93218, -3.3425e-2, 2.9632e-3, -6.9362e-5, &
0.01649, 0.16561, -1.0723e-2, 2.3220e-4/
!
!-----include tables used in the table look-up for co2 (band 3),
! o3 (band 5), and h2o (bands 1, 2, and 7) transmission functions.
! "co2.tran4" is the new co2 transmission table applicable to a large
! range of co2 amount (up to 100 times of the present-time value).
! include 'h2o.tran3'
! include 'co2.tran4'
! include 'o3.tran3'
data ((h11(ip,iw),iw=1,31), ip= 1, 1)/ &
0.99993843, 0.99990183, 0.99985260, 0.99979079, 0.99971771, &
0.99963379, 0.99953848, 0.99942899, 0.99930018, 0.99914461, &
0.99895102, 0.99870503, 0.99838799, 0.99797899, 0.99745202, &
0.99677002, 0.99587703, 0.99469399, 0.99311298, 0.99097902, &
0.98807001, 0.98409998, 0.97864997, 0.97114998, 0.96086001, &
0.94682997, 0.92777002, 0.90200001, 0.86739999, 0.82169998, &
0.76270002/
data ((h12(ip,iw),iw=1,31), ip= 1, 1)/ &
-0.2021e-06, -0.3628e-06, -0.5891e-06, -0.8735e-06, -0.1204e-05, &
-0.1579e-05, -0.2002e-05, -0.2494e-05, -0.3093e-05, -0.3852e-05, &
-0.4835e-05, -0.6082e-05, -0.7591e-05, -0.9332e-05, -0.1128e-04, &
-0.1347e-04, -0.1596e-04, -0.1890e-04, -0.2241e-04, -0.2672e-04, &
-0.3208e-04, -0.3884e-04, -0.4747e-04, -0.5854e-04, -0.7272e-04, &
-0.9092e-04, -0.1146e-03, -0.1458e-03, -0.1877e-03, -0.2435e-03, &
-0.3159e-03/
data ((h13(ip,iw),iw=1,31), ip= 1, 1)/ &
0.5907e-09, 0.8541e-09, 0.1095e-08, 0.1272e-08, 0.1297e-08, &
0.1105e-08, 0.6788e-09, -0.5585e-10, -0.1147e-08, -0.2746e-08, &
-0.5001e-08, -0.7715e-08, -0.1037e-07, -0.1227e-07, -0.1287e-07, &
-0.1175e-07, -0.8517e-08, -0.2920e-08, 0.4786e-08, 0.1407e-07, &
0.2476e-07, 0.3781e-07, 0.5633e-07, 0.8578e-07, 0.1322e-06, &
0.2013e-06, 0.3006e-06, 0.4409e-06, 0.6343e-06, 0.8896e-06, &
0.1216e-05/
data ((h11(ip,iw),iw=1,31), ip= 2, 2)/ &
0.99993837, 0.99990171, 0.99985230, 0.99979031, 0.99971670, &
0.99963200, 0.99953520, 0.99942321, 0.99928987, 0.99912637, &
0.99892002, 0.99865198, 0.99830002, 0.99783802, 0.99723297, &
0.99643701, 0.99537897, 0.99396098, 0.99204701, 0.98944002, &
0.98588002, 0.98098999, 0.97425997, 0.96502000, 0.95236999, &
0.93515998, 0.91184998, 0.88040000, 0.83859998, 0.78429997, &
0.71560001/
data ((h12(ip,iw),iw=1,31), ip= 2, 2)/ &
-0.2017e-06, -0.3620e-06, -0.5878e-06, -0.8713e-06, -0.1201e-05, &
-0.1572e-05, -0.1991e-05, -0.2476e-05, -0.3063e-05, -0.3808e-05, &
-0.4776e-05, -0.6011e-05, -0.7516e-05, -0.9272e-05, -0.1127e-04, &
-0.1355e-04, -0.1620e-04, -0.1936e-04, -0.2321e-04, -0.2797e-04, &
-0.3399e-04, -0.4171e-04, -0.5172e-04, -0.6471e-04, -0.8150e-04, &
-0.1034e-03, -0.1321e-03, -0.1705e-03, -0.2217e-03, -0.2889e-03, &
-0.3726e-03/
data ((h13(ip,iw),iw=1,31), ip= 2, 2)/ &
0.5894e-09, 0.8519e-09, 0.1092e-08, 0.1267e-08, 0.1289e-08, &
0.1093e-08, 0.6601e-09, -0.7831e-10, -0.1167e-08, -0.2732e-08, &
-0.4864e-08, -0.7334e-08, -0.9581e-08, -0.1097e-07, -0.1094e-07, &
-0.8999e-08, -0.4669e-08, 0.2391e-08, 0.1215e-07, 0.2424e-07, &
0.3877e-07, 0.5711e-07, 0.8295e-07, 0.1218e-06, 0.1793e-06, &
0.2621e-06, 0.3812e-06, 0.5508e-06, 0.7824e-06, 0.1085e-05, &
0.1462e-05/
data ((h11(ip,iw),iw=1,31), ip= 3, 3)/ &
0.99993825, 0.99990153, 0.99985188, 0.99978942, 0.99971509, &
0.99962920, 0.99953020, 0.99941432, 0.99927431, 0.99909937, &
0.99887401, 0.99857497, 0.99817699, 0.99764699, 0.99694097, &
0.99599802, 0.99473000, 0.99301600, 0.99068397, 0.98749000, &
0.98311001, 0.97707999, 0.96877003, 0.95738000, 0.94186002, &
0.92079002, 0.89230001, 0.85420001, 0.80430001, 0.74049997, &
0.66200000/
data ((h12(ip,iw),iw=1,31), ip= 3, 3)/ &
-0.2011e-06, -0.3609e-06, -0.5859e-06, -0.8680e-06, -0.1195e-05, &
-0.1563e-05, -0.1975e-05, -0.2450e-05, -0.3024e-05, -0.3755e-05, &
-0.4711e-05, -0.5941e-05, -0.7455e-05, -0.9248e-05, -0.1132e-04, &
-0.1373e-04, -0.1659e-04, -0.2004e-04, -0.2431e-04, -0.2966e-04, &
-0.3653e-04, -0.4549e-04, -0.5724e-04, -0.7259e-04, -0.9265e-04, &
-0.1191e-03, -0.1543e-03, -0.2013e-03, -0.2633e-03, -0.3421e-03, &
-0.4350e-03/
data ((h13(ip,iw),iw=1,31), ip= 3, 3)/ &
0.5872e-09, 0.8484e-09, 0.1087e-08, 0.1259e-08, 0.1279e-08, &
0.1077e-08, 0.6413e-09, -0.9334e-10, -0.1161e-08, -0.2644e-08, &
-0.4588e-08, -0.6709e-08, -0.8474e-08, -0.9263e-08, -0.8489e-08, &
-0.5553e-08, 0.1203e-09, 0.9035e-08, 0.2135e-07, 0.3689e-07, &
0.5610e-07, 0.8097e-07, 0.1155e-06, 0.1649e-06, 0.2350e-06, &
0.3353e-06, 0.4806e-06, 0.6858e-06, 0.9617e-06, 0.1315e-05, &
0.1741e-05/
data ((h11(ip,iw),iw=1,31), ip= 4, 4)/ &
0.99993813, 0.99990118, 0.99985123, 0.99978811, 0.99971271, &
0.99962479, 0.99952239, 0.99940068, 0.99925101, 0.99905968, &
0.99880803, 0.99846900, 0.99800998, 0.99738997, 0.99655402, &
0.99542397, 0.99389100, 0.99180400, 0.98895001, 0.98501998, &
0.97961003, 0.97215003, 0.96191001, 0.94791001, 0.92887998, &
0.90311998, 0.86849999, 0.82270002, 0.76370001, 0.69000000, &
0.60240000/
data ((h12(ip,iw),iw=1,31), ip= 4, 4)/ &
-0.2001e-06, -0.3592e-06, -0.5829e-06, -0.8631e-06, -0.1187e-05, &
-0.1549e-05, -0.1953e-05, -0.2415e-05, -0.2975e-05, -0.3694e-05, &
-0.4645e-05, -0.5882e-05, -0.7425e-05, -0.9279e-05, -0.1147e-04, &
-0.1406e-04, -0.1717e-04, -0.2100e-04, -0.2580e-04, -0.3191e-04, &
-0.3989e-04, -0.5042e-04, -0.6432e-04, -0.8261e-04, -0.1068e-03, &
-0.1389e-03, -0.1820e-03, -0.2391e-03, -0.3127e-03, -0.4021e-03, &
-0.5002e-03/
data ((h13(ip,iw),iw=1,31), ip= 4, 4)/ &
0.5838e-09, 0.8426e-09, 0.1081e-08, 0.1249e-08, 0.1267e-08, &
0.1062e-08, 0.6313e-09, -0.8241e-10, -0.1094e-08, -0.2436e-08, &
-0.4100e-08, -0.5786e-08, -0.6992e-08, -0.7083e-08, -0.5405e-08, &
-0.1259e-08, 0.6099e-08, 0.1732e-07, 0.3276e-07, 0.5256e-07, &
0.7756e-07, 0.1103e-06, 0.1547e-06, 0.2159e-06, 0.3016e-06, &
0.4251e-06, 0.6033e-06, 0.8499e-06, 0.1175e-05, 0.1579e-05, &
0.2044e-05/
data ((h11(ip,iw),iw=1,31), ip= 5, 5)/ &
0.99993789, 0.99990070, 0.99985009, 0.99978602, 0.99970889, &
0.99961799, 0.99951053, 0.99938041, 0.99921662, 0.99900270, &
0.99871498, 0.99832201, 0.99778402, 0.99704897, 0.99604702, &
0.99468100, 0.99281400, 0.99025702, 0.98673999, 0.98189002, &
0.97521001, 0.96600002, 0.95337999, 0.93620998, 0.91292000, &
0.88150001, 0.83969998, 0.78530002, 0.71650004, 0.63330001, &
0.53799999/
data ((h12(ip,iw),iw=1,31), ip= 5, 5)/ &
-0.1987e-06, -0.3565e-06, -0.5784e-06, -0.8557e-06, -0.1175e-05, &
-0.1530e-05, -0.1923e-05, -0.2372e-05, -0.2919e-05, -0.3631e-05, &
-0.4587e-05, -0.5848e-05, -0.7442e-05, -0.9391e-05, -0.1173e-04, &
-0.1455e-04, -0.1801e-04, -0.2232e-04, -0.2779e-04, -0.3489e-04, &
-0.4428e-04, -0.5678e-04, -0.7333e-04, -0.9530e-04, -0.1246e-03, &
-0.1639e-03, -0.2164e-03, -0.2848e-03, -0.3697e-03, -0.4665e-03, &
-0.5646e-03/
data ((h13(ip,iw),iw=1,31), ip= 5, 5)/ &
0.5785e-09, 0.8338e-09, 0.1071e-08, 0.1239e-08, 0.1256e-08, &
0.1057e-08, 0.6480e-09, -0.1793e-10, -0.9278e-09, -0.2051e-08, &
-0.3337e-08, -0.4514e-08, -0.5067e-08, -0.4328e-08, -0.1545e-08, &
0.4100e-08, 0.1354e-07, 0.2762e-07, 0.4690e-07, 0.7190e-07, &
0.1040e-06, 0.1459e-06, 0.2014e-06, 0.2764e-06, 0.3824e-06, &
0.5359e-06, 0.7532e-06, 0.1047e-05, 0.1424e-05, 0.1873e-05, &
0.2356e-05/
data ((h11(ip,iw),iw=1,31), ip= 6, 6)/ &
0.99993753, 0.99989992, 0.99984848, 0.99978292, 0.99970299, &
0.99960762, 0.99949282, 0.99935049, 0.99916708, 0.99892199, &
0.99858701, 0.99812400, 0.99748403, 0.99660099, 0.99538797, &
0.99372399, 0.99143797, 0.98829001, 0.98395002, 0.97794998, &
0.96968001, 0.95832998, 0.94283003, 0.92179000, 0.89330000, &
0.85530001, 0.80519998, 0.74140000, 0.66280001, 0.57099998, &
0.47049999/
data ((h12(ip,iw),iw=1,31), ip= 6, 6)/ &
-0.1964e-06, -0.3526e-06, -0.5717e-06, -0.8451e-06, -0.1158e-05, &
-0.1504e-05, -0.1886e-05, -0.2322e-05, -0.2861e-05, -0.3576e-05, &
-0.4552e-05, -0.5856e-05, -0.7529e-05, -0.9609e-05, -0.1216e-04, &
-0.1528e-04, -0.1916e-04, -0.2408e-04, -0.3043e-04, -0.3880e-04, &
-0.4997e-04, -0.6488e-04, -0.8474e-04, -0.1113e-03, -0.1471e-03, &
-0.1950e-03, -0.2583e-03, -0.3384e-03, -0.4326e-03, -0.5319e-03, &
-0.6244e-03/
data ((h13(ip,iw),iw=1,31), ip= 6, 6)/ &
0.5713e-09, 0.8263e-09, 0.1060e-08, 0.1226e-08, 0.1252e-08, &
0.1076e-08, 0.7149e-09, 0.1379e-09, -0.6043e-09, -0.1417e-08, &
-0.2241e-08, -0.2830e-08, -0.2627e-08, -0.8950e-09, 0.3231e-08, &
0.1075e-07, 0.2278e-07, 0.4037e-07, 0.6439e-07, 0.9576e-07, &
0.1363e-06, 0.1886e-06, 0.2567e-06, 0.3494e-06, 0.4821e-06, &
0.6719e-06, 0.9343e-06, 0.1280e-05, 0.1705e-05, 0.2184e-05, &
0.2651e-05/
data ((h11(ip,iw),iw=1,31), ip= 7, 7)/ &
0.99993700, 0.99989867, 0.99984592, 0.99977797, 0.99969423, &
0.99959219, 0.99946660, 0.99930722, 0.99909681, 0.99880999, &
0.99841303, 0.99786001, 0.99708802, 0.99601799, 0.99453998, &
0.99250001, 0.98969001, 0.98580003, 0.98041999, 0.97299999, &
0.96279001, 0.94881999, 0.92980999, 0.90407002, 0.86949998, &
0.82370001, 0.76459998, 0.69089997, 0.60310000, 0.50479996, &
0.40219998/
data ((h12(ip,iw),iw=1,31), ip= 7, 7)/ &
-0.1932e-06, -0.3467e-06, -0.5623e-06, -0.8306e-06, -0.1136e-05, &
-0.1472e-05, -0.1842e-05, -0.2269e-05, -0.2807e-05, -0.3539e-05, &
-0.4553e-05, -0.5925e-05, -0.7710e-05, -0.9968e-05, -0.1278e-04, &
-0.1629e-04, -0.2073e-04, -0.2644e-04, -0.3392e-04, -0.4390e-04, &
-0.5727e-04, -0.7516e-04, -0.9916e-04, -0.1315e-03, -0.1752e-03, &
-0.2333e-03, -0.3082e-03, -0.3988e-03, -0.4982e-03, -0.5947e-03, &
-0.6764e-03/
data ((h13(ip,iw),iw=1,31), ip= 7, 7)/ &
0.5612e-09, 0.8116e-09, 0.1048e-08, 0.1222e-08, 0.1270e-08, &
0.1141e-08, 0.8732e-09, 0.4336e-09, -0.6548e-10, -0.4774e-09, &
-0.7556e-09, -0.6577e-09, 0.4377e-09, 0.3359e-08, 0.9159e-08, &
0.1901e-07, 0.3422e-07, 0.5616e-07, 0.8598e-07, 0.1251e-06, &
0.1752e-06, 0.2392e-06, 0.3228e-06, 0.4389e-06, 0.6049e-06, &
0.8370e-06, 0.1150e-05, 0.1547e-05, 0.2012e-05, 0.2493e-05, &
0.2913e-05/
data ((h11(ip,iw),iw=1,31), ip= 8, 8)/ &
0.99993622, 0.99989682, 0.99984211, 0.99977070, 0.99968100, &
0.99956948, 0.99942881, 0.99924588, 0.99899900, 0.99865800, &
0.99818099, 0.99751103, 0.99657297, 0.99526602, 0.99345201, &
0.99094099, 0.98746002, 0.98264998, 0.97599000, 0.96682000, &
0.95423001, 0.93708003, 0.91380000, 0.88239998, 0.84060001, &
0.78610003, 0.71730000, 0.63400000, 0.53859997, 0.43660003, &
0.33510000/
data ((h12(ip,iw),iw=1,31), ip= 8, 8)/ &
-0.1885e-06, -0.3385e-06, -0.5493e-06, -0.8114e-06, -0.1109e-05, &
-0.1436e-05, -0.1796e-05, -0.2219e-05, -0.2770e-05, -0.3535e-05, &
-0.4609e-05, -0.6077e-05, -0.8016e-05, -0.1051e-04, -0.1367e-04, &
-0.1768e-04, -0.2283e-04, -0.2955e-04, -0.3849e-04, -0.5046e-04, &
-0.6653e-04, -0.8813e-04, -0.1173e-03, -0.1569e-03, -0.2100e-03, &
-0.2794e-03, -0.3656e-03, -0.4637e-03, -0.5629e-03, -0.6512e-03, &
-0.7167e-03/
data ((h13(ip,iw),iw=1,31), ip= 8, 8)/ &
0.5477e-09, 0.8000e-09, 0.1039e-08, 0.1234e-08, 0.1331e-08, &
0.1295e-08, 0.1160e-08, 0.9178e-09, 0.7535e-09, 0.8301e-09, &
0.1184e-08, 0.2082e-08, 0.4253e-08, 0.8646e-08, 0.1650e-07, &
0.2920e-07, 0.4834e-07, 0.7564e-07, 0.1125e-06, 0.1606e-06, &
0.2216e-06, 0.2992e-06, 0.4031e-06, 0.5493e-06, 0.7549e-06, &
0.1035e-05, 0.1400e-05, 0.1843e-05, 0.2327e-05, 0.2774e-05, &
0.3143e-05/
data ((h11(ip,iw),iw=1,31), ip= 9, 9)/ &
0.99993503, 0.99989408, 0.99983650, 0.99975997, 0.99966192, &
0.99953687, 0.99937540, 0.99916059, 0.99886602, 0.99845397, &
0.99787402, 0.99705601, 0.99590701, 0.99430102, 0.99206603, &
0.98896003, 0.98465002, 0.97869003, 0.97044003, 0.95911002, &
0.94363999, 0.92260998, 0.89419997, 0.85609996, 0.80610001, &
0.74220002, 0.66359997, 0.57169998, 0.47100002, 0.36860001, &
0.27079999/
data ((h12(ip,iw),iw=1,31), ip= 9, 9)/ &
-0.1822e-06, -0.3274e-06, -0.5325e-06, -0.7881e-06, -0.1079e-05, &
-0.1398e-05, -0.1754e-05, -0.2184e-05, -0.2763e-05, -0.3581e-05, &
-0.4739e-05, -0.6341e-05, -0.8484e-05, -0.1128e-04, -0.1490e-04, &
-0.1955e-04, -0.2561e-04, -0.3364e-04, -0.4438e-04, -0.5881e-04, &
-0.7822e-04, -0.1045e-03, -0.1401e-03, -0.1884e-03, -0.2523e-03, &
-0.3335e-03, -0.4289e-03, -0.5296e-03, -0.6231e-03, -0.6980e-03, &
-0.7406e-03/
data ((h13(ip,iw),iw=1,31), ip= 9, 9)/ &
0.5334e-09, 0.7859e-09, 0.1043e-08, 0.1279e-08, 0.1460e-08, &
0.1560e-08, 0.1618e-08, 0.1657e-08, 0.1912e-08, 0.2569e-08, &
0.3654e-08, 0.5509e-08, 0.8964e-08, 0.1518e-07, 0.2560e-07, &
0.4178e-07, 0.6574e-07, 0.9958e-07, 0.1449e-06, 0.2031e-06, &
0.2766e-06, 0.3718e-06, 0.5022e-06, 0.6849e-06, 0.9360e-06, &
0.1268e-05, 0.1683e-05, 0.2157e-05, 0.2625e-05, 0.3020e-05, &
0.3364e-05/
data ((h11(ip,iw),iw=1,31), ip=10,10)/ &
0.99993336, 0.99989021, 0.99982840, 0.99974459, 0.99963468, &
0.99949121, 0.99930137, 0.99904430, 0.99868703, 0.99818403, &
0.99747300, 0.99646801, 0.99505299, 0.99307102, 0.99030602, &
0.98645997, 0.98111999, 0.97372001, 0.96353000, 0.94957000, &
0.93058997, 0.90486002, 0.87029999, 0.82449996, 0.76530004, &
0.69159997, 0.60380000, 0.50529999, 0.40259999, 0.30269998, &
0.21020001/
data ((h12(ip,iw),iw=1,31), ip=10,10)/ &
-0.1742e-06, -0.3134e-06, -0.5121e-06, -0.7619e-06, -0.1048e-05, &
-0.1364e-05, -0.1725e-05, -0.2177e-05, -0.2801e-05, -0.3694e-05, &
-0.4969e-05, -0.6748e-05, -0.9161e-05, -0.1236e-04, -0.1655e-04, &
-0.2203e-04, -0.2927e-04, -0.3894e-04, -0.5192e-04, -0.6936e-04, &
-0.9294e-04, -0.1250e-03, -0.1686e-03, -0.2271e-03, -0.3027e-03, &
-0.3944e-03, -0.4951e-03, -0.5928e-03, -0.6755e-03, -0.7309e-03, &
-0.7417e-03/
data ((h13(ip,iw),iw=1,31), ip=10,10)/ &
0.5179e-09, 0.7789e-09, 0.1071e-08, 0.1382e-08, 0.1690e-08, &
0.1979e-08, 0.2297e-08, 0.2704e-08, 0.3466e-08, 0.4794e-08, &
0.6746e-08, 0.9739e-08, 0.1481e-07, 0.2331e-07, 0.3679e-07, &
0.5726e-07, 0.8716e-07, 0.1289e-06, 0.1837e-06, 0.2534e-06, &
0.3424e-06, 0.4609e-06, 0.6245e-06, 0.8495e-06, 0.1151e-05, &
0.1536e-05, 0.1991e-05, 0.2468e-05, 0.2891e-05, 0.3245e-05, &
0.3580e-05/
data ((h11(ip,iw),iw=1,31), ip=11,11)/ &
0.99993110, 0.99988490, 0.99981719, 0.99972337, 0.99959719, &
0.99942869, 0.99920130, 0.99888903, 0.99845201, 0.99783301, &
0.99695599, 0.99571502, 0.99396503, 0.99150997, 0.98808002, &
0.98329997, 0.97667003, 0.96750998, 0.95494002, 0.93779999, &
0.91453999, 0.88319999, 0.84130001, 0.78689998, 0.71799999, &
0.63470000, 0.53909999, 0.43699998, 0.33550000, 0.24010003, &
0.15420002/
data ((h12(ip,iw),iw=1,31), ip=11,11)/ &
-0.1647e-06, -0.2974e-06, -0.4900e-06, -0.7358e-06, -0.1022e-05, &
-0.1344e-05, -0.1721e-05, -0.2212e-05, -0.2901e-05, -0.3896e-05, &
-0.5327e-05, -0.7342e-05, -0.1011e-04, -0.1382e-04, -0.1875e-04, &
-0.2530e-04, -0.3403e-04, -0.4573e-04, -0.6145e-04, -0.8264e-04, &
-0.1114e-03, -0.1507e-03, -0.2039e-03, -0.2737e-03, -0.3607e-03, &
-0.4599e-03, -0.5604e-03, -0.6497e-03, -0.7161e-03, -0.7443e-03, &
-0.7133e-03/
data ((h13(ip,iw),iw=1,31), ip=11,11)/ &
0.5073e-09, 0.7906e-09, 0.1134e-08, 0.1560e-08, 0.2046e-08, &
0.2589e-08, 0.3254e-08, 0.4107e-08, 0.5481e-08, 0.7602e-08, &
0.1059e-07, 0.1501e-07, 0.2210e-07, 0.3334e-07, 0.5055e-07, &
0.7629e-07, 0.1134e-06, 0.1642e-06, 0.2298e-06, 0.3133e-06, &
0.4225e-06, 0.5709e-06, 0.7739e-06, 0.1047e-05, 0.1401e-05, &
0.1833e-05, 0.2308e-05, 0.2753e-05, 0.3125e-05, 0.3467e-05, &
0.3748e-05/
data ((h11(ip,iw),iw=1,31), ip=12,12)/ &
0.99992824, 0.99987793, 0.99980247, 0.99969512, 0.99954712, &
0.99934530, 0.99906880, 0.99868500, 0.99814498, 0.99738002, &
0.99629498, 0.99475700, 0.99258602, 0.98953998, 0.98527998, &
0.97934997, 0.97112000, 0.95981002, 0.94433999, 0.92332000, &
0.89490002, 0.85680002, 0.80680001, 0.74290001, 0.66420001, &
0.57220000, 0.47149998, 0.36900002, 0.27109998, 0.18159997, &
0.10460001/
data ((h12(ip,iw),iw=1,31), ip=12,12)/ &
-0.1548e-06, -0.2808e-06, -0.4683e-06, -0.7142e-06, -0.1008e-05, &
-0.1347e-05, -0.1758e-05, -0.2306e-05, -0.3083e-05, -0.4214e-05, &
-0.5851e-05, -0.8175e-05, -0.1140e-04, -0.1577e-04, -0.2166e-04, &
-0.2955e-04, -0.4014e-04, -0.5434e-04, -0.7343e-04, -0.9931e-04, &
-0.1346e-03, -0.1826e-03, -0.2467e-03, -0.3283e-03, -0.4246e-03, &
-0.5264e-03, -0.6211e-03, -0.6970e-03, -0.7402e-03, -0.7316e-03, &
-0.6486e-03/
data ((h13(ip,iw),iw=1,31), ip=12,12)/ &
0.5078e-09, 0.8244e-09, 0.1255e-08, 0.1826e-08, 0.2550e-08, &
0.3438e-08, 0.4532e-08, 0.5949e-08, 0.8041e-08, 0.1110e-07, &
0.1534e-07, 0.2157e-07, 0.3116e-07, 0.4570e-07, 0.6747e-07, &
0.9961e-07, 0.1451e-06, 0.2061e-06, 0.2843e-06, 0.3855e-06, &
0.5213e-06, 0.7060e-06, 0.9544e-06, 0.1280e-05, 0.1684e-05, &
0.2148e-05, 0.2609e-05, 0.3002e-05, 0.3349e-05, 0.3670e-05, &
0.3780e-05/
data ((h11(ip,iw),iw=1,31), ip=13,13)/ &
0.99992472, 0.99986941, 0.99978399, 0.99965900, 0.99948251, &
0.99923742, 0.99889702, 0.99842298, 0.99775398, 0.99680400, &
0.99545598, 0.99354500, 0.99084800, 0.98706001, 0.98176998, &
0.97439998, 0.96423000, 0.95029002, 0.93129998, 0.90557003, &
0.87099999, 0.82520002, 0.76600003, 0.69220001, 0.60440004, &
0.50580001, 0.40310001, 0.30299997, 0.21039999, 0.12860000, &
0.06360000/
data ((h12(ip,iw),iw=1,31), ip=13,13)/ &
-0.1461e-06, -0.2663e-06, -0.4512e-06, -0.7027e-06, -0.1014e-05, &
-0.1387e-05, -0.1851e-05, -0.2478e-05, -0.3373e-05, -0.4682e-05, &
-0.6588e-05, -0.9311e-05, -0.1311e-04, -0.1834e-04, -0.2544e-04, &
-0.3502e-04, -0.4789e-04, -0.6515e-04, -0.8846e-04, -0.1202e-03, &
-0.1635e-03, -0.2217e-03, -0.2975e-03, -0.3897e-03, -0.4913e-03, &
-0.5902e-03, -0.6740e-03, -0.7302e-03, -0.7415e-03, -0.6858e-03, &
-0.5447e-03/
data ((h13(ip,iw),iw=1,31), ip=13,13)/ &
0.5236e-09, 0.8873e-09, 0.1426e-08, 0.2193e-08, 0.3230e-08, &
0.4555e-08, 0.6200e-08, 0.8298e-08, 0.1126e-07, 0.1544e-07, &
0.2130e-07, 0.2978e-07, 0.4239e-07, 0.6096e-07, 0.8829e-07, &
0.1280e-06, 0.1830e-06, 0.2555e-06, 0.3493e-06, 0.4740e-06, &
0.6431e-06, 0.8701e-06, 0.1169e-05, 0.1547e-05, 0.1992e-05, &
0.2460e-05, 0.2877e-05, 0.3230e-05, 0.3569e-05, 0.3782e-05, &
0.3591e-05/
data ((h11(ip,iw),iw=1,31), ip=14,14)/ &
0.99992090, 0.99985969, 0.99976218, 0.99961531, 0.99940270, &
0.99910218, 0.99868101, 0.99809098, 0.99725902, 0.99607700, &
0.99440002, 0.99202299, 0.98866999, 0.98395997, 0.97737998, &
0.96825999, 0.95570999, 0.93857002, 0.91531003, 0.88389999, &
0.84210002, 0.78759998, 0.71869999, 0.63530004, 0.53970003, &
0.43750000, 0.33590001, 0.24040002, 0.15439999, 0.08300000, &
0.03299999/
data ((h12(ip,iw),iw=1,31), ip=14,14)/ &
-0.1402e-06, -0.2569e-06, -0.4428e-06, -0.7076e-06, -0.1051e-05, &
-0.1478e-05, -0.2019e-05, -0.2752e-05, -0.3802e-05, -0.5343e-05, &
-0.7594e-05, -0.1082e-04, -0.1536e-04, -0.2166e-04, -0.3028e-04, &
-0.4195e-04, -0.5761e-04, -0.7867e-04, -0.1072e-03, -0.1462e-03, &
-0.1990e-03, -0.2687e-03, -0.3559e-03, -0.4558e-03, -0.5572e-03, &
-0.6476e-03, -0.7150e-03, -0.7439e-03, -0.7133e-03, -0.6015e-03, &
-0.4089e-03/
data ((h13(ip,iw),iw=1,31), ip=14,14)/ &
0.5531e-09, 0.9757e-09, 0.1644e-08, 0.2650e-08, 0.4074e-08, &
0.5957e-08, 0.8314e-08, 0.1128e-07, 0.1528e-07, 0.2087e-07, &
0.2874e-07, 0.4002e-07, 0.5631e-07, 0.7981e-07, 0.1139e-06, &
0.1621e-06, 0.2275e-06, 0.3136e-06, 0.4280e-06, 0.5829e-06, &
0.7917e-06, 0.1067e-05, 0.1419e-05, 0.1844e-05, 0.2310e-05, &
0.2747e-05, 0.3113e-05, 0.3455e-05, 0.3739e-05, 0.3715e-05, &
0.3125e-05/
data ((h11(ip,iw),iw=1,31), ip=15,15)/ &
0.99991709, 0.99984968, 0.99973857, 0.99956548, 0.99930853, &
0.99893898, 0.99841601, 0.99768001, 0.99664098, 0.99516898, &
0.99308002, 0.99012297, 0.98594999, 0.98009998, 0.97194999, &
0.96066999, 0.94523001, 0.92421001, 0.89579999, 0.85769999, &
0.80760002, 0.74360001, 0.66490000, 0.57290000, 0.47200000, &
0.36940002, 0.27139997, 0.18180001, 0.10479999, 0.04699999, &
0.01359999/
data ((h12(ip,iw),iw=1,31), ip=15,15)/ &
-0.1378e-06, -0.2542e-06, -0.4461e-06, -0.7333e-06, -0.1125e-05, &
-0.1630e-05, -0.2281e-05, -0.3159e-05, -0.4410e-05, -0.6246e-05, &
-0.8933e-05, -0.1280e-04, -0.1826e-04, -0.2589e-04, -0.3639e-04, &
-0.5059e-04, -0.6970e-04, -0.9552e-04, -0.1307e-03, -0.1784e-03, &
-0.2422e-03, -0.3237e-03, -0.4203e-03, -0.5227e-03, -0.6184e-03, &
-0.6953e-03, -0.7395e-03, -0.7315e-03, -0.6487e-03, -0.4799e-03, &
-0.2625e-03/
data ((h13(ip,iw),iw=1,31), ip=15,15)/ &
0.5891e-09, 0.1074e-08, 0.1885e-08, 0.3167e-08, 0.5051e-08, &
0.7631e-08, 0.1092e-07, 0.1500e-07, 0.2032e-07, 0.2769e-07, &
0.3810e-07, 0.5279e-07, 0.7361e-07, 0.1032e-06, 0.1450e-06, &
0.2026e-06, 0.2798e-06, 0.3832e-06, 0.5242e-06, 0.7159e-06, &
0.9706e-06, 0.1299e-05, 0.1701e-05, 0.2159e-05, 0.2612e-05, &
0.2998e-05, 0.3341e-05, 0.3661e-05, 0.3775e-05, 0.3393e-05, &
0.2384e-05/
data ((h11(ip,iw),iw=1,31), ip=16,16)/ &
0.99991363, 0.99984020, 0.99971467, 0.99951237, 0.99920303, &
0.99874902, 0.99809903, 0.99717999, 0.99588197, 0.99404502, &
0.99144298, 0.98776001, 0.98258001, 0.97533000, 0.96524000, &
0.95135999, 0.93241000, 0.90667999, 0.87199998, 0.82620001, &
0.76700002, 0.69309998, 0.60510004, 0.50650001, 0.40359998, &
0.30350000, 0.21069998, 0.12870002, 0.06370002, 0.02200001, &
0.00389999/
data ((h12(ip,iw),iw=1,31), ip=16,16)/ &
-0.1383e-06, -0.2577e-06, -0.4608e-06, -0.7793e-06, -0.1237e-05, &
-0.1850e-05, -0.2652e-05, -0.3728e-05, -0.5244e-05, -0.7451e-05, &
-0.1067e-04, -0.1532e-04, -0.2193e-04, -0.3119e-04, -0.4395e-04, &
-0.6126e-04, -0.8466e-04, -0.1164e-03, -0.1596e-03, -0.2177e-03, &
-0.2933e-03, -0.3855e-03, -0.4874e-03, -0.5870e-03, -0.6718e-03, &
-0.7290e-03, -0.7411e-03, -0.6859e-03, -0.5450e-03, -0.3353e-03, &
-0.1363e-03/
data ((h13(ip,iw),iw=1,31), ip=16,16)/ &
0.6217e-09, 0.1165e-08, 0.2116e-08, 0.3685e-08, 0.6101e-08, &
0.9523e-08, 0.1400e-07, 0.1959e-07, 0.2668e-07, 0.3629e-07, &
0.4982e-07, 0.6876e-07, 0.9523e-07, 0.1321e-06, 0.1825e-06, &
0.2505e-06, 0.3420e-06, 0.4677e-06, 0.6416e-06, 0.8760e-06, &
0.1183e-05, 0.1565e-05, 0.2010e-05, 0.2472e-05, 0.2882e-05, &
0.3229e-05, 0.3564e-05, 0.3777e-05, 0.3589e-05, 0.2786e-05, &
0.1487e-05/
data ((h11(ip,iw),iw=1,31), ip=17,17)/ &
0.99991077, 0.99983180, 0.99969262, 0.99945968, 0.99909151, &
0.99853700, 0.99773198, 0.99658400, 0.99496001, 0.99266702, &
0.98943001, 0.98484999, 0.97842997, 0.96945000, 0.95703000, &
0.93998998, 0.91676998, 0.88540000, 0.84350002, 0.78890002, &
0.71990001, 0.63639998, 0.54060000, 0.43820000, 0.33639997, &
0.24080002, 0.15460002, 0.08310002, 0.03310001, 0.00770003, &
0.00050002/
data ((h12(ip,iw),iw=1,31), ip=17,17)/ &
-0.1405e-06, -0.2649e-06, -0.4829e-06, -0.8398e-06, -0.1379e-05, &
-0.2132e-05, -0.3138e-05, -0.4487e-05, -0.6353e-05, -0.9026e-05, &
-0.1290e-04, -0.1851e-04, -0.2650e-04, -0.3772e-04, -0.5319e-04, &
-0.7431e-04, -0.1031e-03, -0.1422e-03, -0.1951e-03, -0.2648e-03, &
-0.3519e-03, -0.4518e-03, -0.5537e-03, -0.6449e-03, -0.7133e-03, &
-0.7432e-03, -0.7133e-03, -0.6018e-03, -0.4092e-03, -0.1951e-03, &
-0.5345e-04/
data ((h13(ip,iw),iw=1,31), ip=17,17)/ &
0.6457e-09, 0.1235e-08, 0.2303e-08, 0.4149e-08, 0.7120e-08, &
0.1152e-07, 0.1749e-07, 0.2508e-07, 0.3462e-07, 0.4718e-07, &
0.6452e-07, 0.8874e-07, 0.1222e-06, 0.1675e-06, 0.2276e-06, &
0.3076e-06, 0.4174e-06, 0.5714e-06, 0.7837e-06, 0.1067e-05, &
0.1428e-05, 0.1859e-05, 0.2327e-05, 0.2760e-05, 0.3122e-05, &
0.3458e-05, 0.3739e-05, 0.3715e-05, 0.3126e-05, 0.1942e-05, &
0.6977e-06/
data ((h11(ip,iw),iw=1,31), ip=18,18)/ &
0.99990851, 0.99982500, 0.99967349, 0.99941093, 0.99897999, &
0.99831200, 0.99732101, 0.99589097, 0.99386197, 0.99099803, &
0.98695999, 0.98128998, 0.97333002, 0.96227002, 0.94700998, &
0.92614001, 0.89779997, 0.85969996, 0.80949998, 0.74540001, &
0.66649997, 0.57420003, 0.47310001, 0.37029999, 0.27200001, &
0.18220001, 0.10500002, 0.04710001, 0.01359999, 0.00169998, &
0.00000000/
data ((h12(ip,iw),iw=1,31), ip=18,18)/ &
-0.1431e-06, -0.2731e-06, -0.5072e-06, -0.9057e-06, -0.1537e-05, &
-0.2460e-05, -0.3733e-05, -0.5449e-05, -0.7786e-05, -0.1106e-04, &
-0.1574e-04, -0.2249e-04, -0.3212e-04, -0.4564e-04, -0.6438e-04, &
-0.9019e-04, -0.1256e-03, -0.1737e-03, -0.2378e-03, -0.3196e-03, &
-0.4163e-03, -0.5191e-03, -0.6154e-03, -0.6931e-03, -0.7384e-03, &
-0.7313e-03, -0.6492e-03, -0.4805e-03, -0.2629e-03, -0.8897e-04, &
-0.1432e-04/
data ((h13(ip,iw),iw=1,31), ip=18,18)/ &
0.6607e-09, 0.1282e-08, 0.2441e-08, 0.4522e-08, 0.8027e-08, &
0.1348e-07, 0.2122e-07, 0.3139e-07, 0.4435e-07, 0.6095e-07, &
0.8319e-07, 0.1139e-06, 0.1557e-06, 0.2107e-06, 0.2819e-06, &
0.3773e-06, 0.5107e-06, 0.6982e-06, 0.9542e-06, 0.1290e-05, &
0.1703e-05, 0.2170e-05, 0.2628e-05, 0.3013e-05, 0.3352e-05, &
0.3669e-05, 0.3780e-05, 0.3397e-05, 0.2386e-05, 0.1062e-05, &
0.2216e-06/
data ((h11(ip,iw),iw=1,31), ip=19,19)/ &
0.99990678, 0.99981970, 0.99965781, 0.99936831, 0.99887598, &
0.99808502, 0.99687898, 0.99510998, 0.99257898, 0.98900002, &
0.98398000, 0.97693998, 0.96711999, 0.95353001, 0.93484998, &
0.90934002, 0.87479997, 0.82900000, 0.76960003, 0.69550002, &
0.60720003, 0.50819999, 0.40490001, 0.30440003, 0.21130002, &
0.12910002, 0.06389999, 0.02200001, 0.00389999, 0.00010002, &
0.00000000/
data ((h12(ip,iw),iw=1,31), ip=19,19)/ &
-0.1454e-06, -0.2805e-06, -0.5296e-06, -0.9685e-06, -0.1695e-05, &
-0.2812e-05, -0.4412e-05, -0.6606e-05, -0.9573e-05, -0.1363e-04, &
-0.1932e-04, -0.2743e-04, -0.3897e-04, -0.5520e-04, -0.7787e-04, &
-0.1094e-03, -0.1529e-03, -0.2117e-03, -0.2880e-03, -0.3809e-03, &
-0.4834e-03, -0.5836e-03, -0.6692e-03, -0.7275e-03, -0.7408e-03, &
-0.6865e-03, -0.5459e-03, -0.3360e-03, -0.1365e-03, -0.2935e-04, &
-0.2173e-05/
data ((h13(ip,iw),iw=1,31), ip=19,19)/ &
0.6693e-09, 0.1312e-08, 0.2538e-08, 0.4802e-08, 0.8778e-08, &
0.1528e-07, 0.2501e-07, 0.3836e-07, 0.5578e-07, 0.7806e-07, &
0.1069e-06, 0.1456e-06, 0.1970e-06, 0.2631e-06, 0.3485e-06, &
0.4642e-06, 0.6268e-06, 0.8526e-06, 0.1157e-05, 0.1545e-05, &
0.2002e-05, 0.2478e-05, 0.2897e-05, 0.3245e-05, 0.3578e-05, &
0.3789e-05, 0.3598e-05, 0.2792e-05, 0.1489e-05, 0.4160e-06, &
0.3843e-07/
data ((h11(ip,iw),iw=1,31), ip=20,20)/ &
0.99990559, 0.99981570, 0.99964547, 0.99933308, 0.99878299, &
0.99786699, 0.99642301, 0.99425799, 0.99111998, 0.98667002, &
0.98041999, 0.97170001, 0.95960999, 0.94295001, 0.92012000, &
0.88900000, 0.84740001, 0.79280001, 0.72360003, 0.63960004, &
0.54330003, 0.44029999, 0.33800000, 0.24190003, 0.15530002, &
0.08350003, 0.03320003, 0.00770003, 0.00050002, 0.00000000, &
0.00000000/
data ((h12(ip,iw),iw=1,31), ip=20,20)/ &
-0.1472e-06, -0.2866e-06, -0.5485e-06, -0.1024e-05, -0.1842e-05, &
-0.3160e-05, -0.5136e-05, -0.7922e-05, -0.1171e-04, -0.1682e-04, &
-0.2381e-04, -0.3355e-04, -0.4729e-04, -0.6673e-04, -0.9417e-04, &
-0.1327e-03, -0.1858e-03, -0.2564e-03, -0.3449e-03, -0.4463e-03, &
-0.5495e-03, -0.6420e-03, -0.7116e-03, -0.7427e-03, -0.7139e-03, &
-0.6031e-03, -0.4104e-03, -0.1957e-03, -0.5358e-04, -0.6176e-05, &
-0.1347e-06/
data ((h13(ip,iw),iw=1,31), ip=20,20)/ &
0.6750e-09, 0.1332e-08, 0.2602e-08, 0.5003e-08, 0.9367e-08, &
0.1684e-07, 0.2863e-07, 0.4566e-07, 0.6865e-07, 0.9861e-07, &
0.1368e-06, 0.1856e-06, 0.2479e-06, 0.3274e-06, 0.4315e-06, &
0.5739e-06, 0.7710e-06, 0.1040e-05, 0.1394e-05, 0.1829e-05, &
0.2309e-05, 0.2759e-05, 0.3131e-05, 0.3472e-05, 0.3755e-05, &
0.3730e-05, 0.3138e-05, 0.1948e-05, 0.6994e-06, 0.1022e-06, &
0.2459e-08/
data ((h11(ip,iw),iw=1,31), ip=21,21)/ &
0.99990469, 0.99981278, 0.99963617, 0.99930513, 0.99870503, &
0.99766999, 0.99597800, 0.99336702, 0.98951000, 0.98399001, &
0.97622001, 0.96543998, 0.95059001, 0.93019998, 0.90235001, &
0.86470002, 0.81480002, 0.75059998, 0.67129999, 0.57840002, &
0.47659999, 0.37279999, 0.27389997, 0.18339998, 0.10570002, &
0.04740000, 0.01370001, 0.00169998, 0.00000000, 0.00000000, &
0.00000000/
data ((h12(ip,iw),iw=1,31), ip=21,21)/ &
-0.1487e-06, -0.2912e-06, -0.5636e-06, -0.1069e-05, -0.1969e-05, &
-0.3483e-05, -0.5858e-05, -0.9334e-05, -0.1416e-04, -0.2067e-04, &
-0.2936e-04, -0.4113e-04, -0.5750e-04, -0.8072e-04, -0.1139e-03, &
-0.1606e-03, -0.2246e-03, -0.3076e-03, -0.4067e-03, -0.5121e-03, &
-0.6110e-03, -0.6909e-03, -0.7378e-03, -0.7321e-03, -0.6509e-03, &
-0.4825e-03, -0.2641e-03, -0.8936e-04, -0.1436e-04, -0.5966e-06, &
0.0000e+00/
data ((h13(ip,iw),iw=1,31), ip=21,21)/ &
0.6777e-09, 0.1344e-08, 0.2643e-08, 0.5138e-08, 0.9798e-08, &
0.1809e-07, 0.3185e-07, 0.5285e-07, 0.8249e-07, 0.1222e-06, &
0.1730e-06, 0.2351e-06, 0.3111e-06, 0.4078e-06, 0.5366e-06, &
0.7117e-06, 0.9495e-06, 0.1266e-05, 0.1667e-05, 0.2132e-05, &
0.2600e-05, 0.3001e-05, 0.3354e-05, 0.3679e-05, 0.3796e-05, &
0.3414e-05, 0.2399e-05, 0.1067e-05, 0.2222e-06, 0.1075e-07, &
0.0000e+00/
data ((h11(ip,iw),iw=1,31), ip=22,22)/ &
0.99990410, 0.99981070, 0.99962938, 0.99928379, 0.99864298, &
0.99750000, 0.99556601, 0.99247700, 0.98780000, 0.98100001, &
0.97140002, 0.95810002, 0.93984997, 0.91491997, 0.88110000, &
0.83570004, 0.77670002, 0.70239997, 0.61350000, 0.51349998, &
0.40910000, 0.30750000, 0.21340001, 0.13040000, 0.06449997, &
0.02219999, 0.00389999, 0.00010002, 0.00000000, 0.00000000, &
0.00000000/
data ((h12(ip,iw),iw=1,31), ip=22,22)/ &
-0.1496e-06, -0.2947e-06, -0.5749e-06, -0.1105e-05, -0.2074e-05, &
-0.3763e-05, -0.6531e-05, -0.1076e-04, -0.1682e-04, -0.2509e-04, &
-0.3605e-04, -0.5049e-04, -0.7012e-04, -0.9787e-04, -0.1378e-03, &
-0.1939e-03, -0.2695e-03, -0.3641e-03, -0.4703e-03, -0.5750e-03, &
-0.6648e-03, -0.7264e-03, -0.7419e-03, -0.6889e-03, -0.5488e-03, &
-0.3382e-03, -0.1375e-03, -0.2951e-04, -0.2174e-05, 0.0000e+00, &
0.0000e+00/
data ((h13(ip,iw),iw=1,31), ip=22,22)/ &
0.6798e-09, 0.1350e-08, 0.2667e-08, 0.5226e-08, 0.1010e-07, &
0.1903e-07, 0.3455e-07, 0.5951e-07, 0.9658e-07, 0.1479e-06, &
0.2146e-06, 0.2951e-06, 0.3903e-06, 0.5101e-06, 0.6693e-06, &
0.8830e-06, 0.1168e-05, 0.1532e-05, 0.1968e-05, 0.2435e-05, &
0.2859e-05, 0.3222e-05, 0.3572e-05, 0.3797e-05, 0.3615e-05, &
0.2811e-05, 0.1500e-05, 0.4185e-06, 0.3850e-07, 0.0000e+00, &
0.0000e+00/
data ((h11(ip,iw),iw=1,31), ip=23,23)/ &
0.99990374, 0.99980932, 0.99962449, 0.99926788, 0.99859399, &
0.99736100, 0.99520397, 0.99163198, 0.98606002, 0.97779000, &
0.96600002, 0.94963002, 0.92720997, 0.89670002, 0.85580003, &
0.80170000, 0.73269999, 0.64840001, 0.55110002, 0.44669998, &
0.34280002, 0.24529999, 0.15750003, 0.08469999, 0.03369999, &
0.00779998, 0.00050002, 0.00000000, 0.00000000, 0.00000000, &
0.00000000/
data ((h12(ip,iw),iw=1,31), ip=23,23)/ &
-0.1503e-06, -0.2971e-06, -0.5832e-06, -0.1131e-05, -0.2154e-05, &
-0.3992e-05, -0.7122e-05, -0.1211e-04, -0.1954e-04, -0.2995e-04, &
-0.4380e-04, -0.6183e-04, -0.8577e-04, -0.1191e-03, -0.1668e-03, &
-0.2333e-03, -0.3203e-03, -0.4237e-03, -0.5324e-03, -0.6318e-03, &
-0.7075e-03, -0.7429e-03, -0.7168e-03, -0.6071e-03, -0.4139e-03, &
-0.1976e-03, -0.5410e-04, -0.6215e-05, -0.1343e-06, 0.0000e+00, &
0.0000e+00/
data ((h13(ip,iw),iw=1,31), ip=23,23)/ &
0.6809e-09, 0.1356e-08, 0.2683e-08, 0.5287e-08, 0.1030e-07, &
0.1971e-07, 0.3665e-07, 0.6528e-07, 0.1100e-06, 0.1744e-06, &
0.2599e-06, 0.3650e-06, 0.4887e-06, 0.6398e-06, 0.8358e-06, &
0.1095e-05, 0.1429e-05, 0.1836e-05, 0.2286e-05, 0.2716e-05, &
0.3088e-05, 0.3444e-05, 0.3748e-05, 0.3740e-05, 0.3157e-05, &
0.1966e-05, 0.7064e-06, 0.1030e-06, 0.2456e-08, 0.0000e+00, &
0.0000e+00/
data ((h11(ip,iw),iw=1,31), ip=24,24)/ &
0.99990344, 0.99980831, 0.99962109, 0.99925637, 0.99855798, &
0.99725199, 0.99489999, 0.99087203, 0.98436999, 0.97447002, &
0.96012998, 0.94006002, 0.91254002, 0.87540001, 0.82609999, &
0.76240003, 0.68299997, 0.58930004, 0.48589998, 0.38020003, &
0.27920002, 0.18699998, 0.10769999, 0.04830003, 0.01400000, &
0.00169998, 0.00000000, 0.00000000, 0.00000000, 0.00000000, &
0.00000000/
data ((h12(ip,iw),iw=1,31), ip=24,24)/ &
-0.1508e-06, -0.2989e-06, -0.5892e-06, -0.1151e-05, -0.2216e-05, &
-0.4175e-05, -0.7619e-05, -0.1333e-04, -0.2217e-04, -0.3497e-04, &
-0.5238e-04, -0.7513e-04, -0.1049e-03, -0.1455e-03, -0.2021e-03, &
-0.2790e-03, -0.3757e-03, -0.4839e-03, -0.5902e-03, -0.6794e-03, &
-0.7344e-03, -0.7341e-03, -0.6557e-03, -0.4874e-03, -0.2674e-03, &
-0.9059e-04, -0.1455e-04, -0.5986e-06, 0.0000e+00, 0.0000e+00, &
0.0000e+00/
data ((h13(ip,iw),iw=1,31), ip=24,24)/ &
0.6812e-09, 0.1356e-08, 0.2693e-08, 0.5328e-08, 0.1045e-07, &
0.2021e-07, 0.3826e-07, 0.6994e-07, 0.1218e-06, 0.1997e-06, &
0.3069e-06, 0.4428e-06, 0.6064e-06, 0.8015e-06, 0.1043e-05, &
0.1351e-05, 0.1733e-05, 0.2168e-05, 0.2598e-05, 0.2968e-05, &
0.3316e-05, 0.3662e-05, 0.3801e-05, 0.3433e-05, 0.2422e-05, &
0.1081e-05, 0.2256e-06, 0.1082e-07, 0.0000e+00, 0.0000e+00, &
0.0000e+00/
data ((h11(ip,iw),iw=1,31), ip=25,25)/ &
0.99990326, 0.99980772, 0.99961871, 0.99924821, 0.99853098, &
0.99716800, 0.99465698, 0.99022102, 0.98281002, 0.97118002, &
0.95393997, 0.92948997, 0.89579999, 0.85070002, 0.79189998, &
0.71759999, 0.62800002, 0.52639997, 0.41970003, 0.31559998, &
0.21899998, 0.13370001, 0.06610000, 0.02280003, 0.00400001, &
0.00010002, 0.00000000, 0.00000000, 0.00000000, 0.00000000, &
0.00000000/
data ((h12(ip,iw),iw=1,31), ip=25,25)/ &
-0.1511e-06, -0.3001e-06, -0.5934e-06, -0.1166e-05, -0.2263e-05, &
-0.4319e-05, -0.8028e-05, -0.1438e-04, -0.2460e-04, -0.3991e-04, &
-0.6138e-04, -0.9005e-04, -0.1278e-03, -0.1778e-03, -0.2447e-03, &
-0.3313e-03, -0.4342e-03, -0.5424e-03, -0.6416e-03, -0.7146e-03, &
-0.7399e-03, -0.6932e-03, -0.5551e-03, -0.3432e-03, -0.1398e-03, &
-0.3010e-04, -0.2229e-05, 0.0000e+00, 0.0000e+00, 0.0000e+00, &
0.0000e+00/
data ((h13(ip,iw),iw=1,31), ip=25,25)/ &
0.6815e-09, 0.1358e-08, 0.2698e-08, 0.5355e-08, 0.1054e-07, &
0.2056e-07, 0.3942e-07, 0.7349e-07, 0.1315e-06, 0.2226e-06, &
0.3537e-06, 0.5266e-06, 0.7407e-06, 0.9958e-06, 0.1296e-05, &
0.1657e-05, 0.2077e-05, 0.2512e-05, 0.2893e-05, 0.3216e-05, &
0.3562e-05, 0.3811e-05, 0.3644e-05, 0.2841e-05, 0.1524e-05, &
0.4276e-06, 0.3960e-07, 0.0000e+00, 0.0000e+00, 0.0000e+00, &
0.0000e+00/
data ((h11(ip,iw),iw=1,31), ip=26,26)/ &
0.99990320, 0.99980718, 0.99961710, 0.99924242, 0.99851102, &
0.99710602, 0.99446702, 0.98969001, 0.98144001, 0.96805000, &
0.94762999, 0.91812998, 0.87730002, 0.82290000, 0.75319999, &
0.66789997, 0.56879997, 0.46160001, 0.35450000, 0.25370002, &
0.16280001, 0.08740002, 0.03479999, 0.00809997, 0.00059998, &
0.00000000, 0.00000000, 0.00000000, 0.00000000, 0.00000000, &
0.00000000/
data ((h12(ip,iw),iw=1,31), ip=26,26)/ &
-0.1513e-06, -0.3009e-06, -0.5966e-06, -0.1176e-05, -0.2299e-05, &
-0.4430e-05, -0.8352e-05, -0.1526e-04, -0.2674e-04, -0.4454e-04, &
-0.7042e-04, -0.1062e-03, -0.1540e-03, -0.2163e-03, -0.2951e-03, &
-0.3899e-03, -0.4948e-03, -0.5983e-03, -0.6846e-03, -0.7332e-03, &
-0.7182e-03, -0.6142e-03, -0.4209e-03, -0.2014e-03, -0.5530e-04, &
-0.6418e-05, -0.1439e-06, 0.0000e+00, 0.0000e+00, 0.0000e+00, &
0.0000e+00/
data ((h13(ip,iw),iw=1,31), ip=26,26)/ &
0.6817e-09, 0.1359e-08, 0.2702e-08, 0.5374e-08, 0.1061e-07, &
0.2079e-07, 0.4022e-07, 0.7610e-07, 0.1392e-06, 0.2428e-06, &
0.3992e-06, 0.6149e-06, 0.8893e-06, 0.1220e-05, 0.1599e-05, &
0.2015e-05, 0.2453e-05, 0.2853e-05, 0.3173e-05, 0.3488e-05, &
0.3792e-05, 0.3800e-05, 0.3210e-05, 0.2002e-05, 0.7234e-06, &
0.1068e-06, 0.2646e-08, 0.0000e+00, 0.0000e+00, 0.0000e+00, &
0.0000e+00/
data ((h21(ip,iw),iw=1,31), ip= 1, 1)/ &
0.99999607, 0.99999237, 0.99998546, 0.99997294, 0.99995142, &
0.99991685, 0.99986511, 0.99979371, 0.99970162, 0.99958909, &
0.99945778, 0.99931037, 0.99914628, 0.99895900, 0.99873799, &
0.99846601, 0.99813002, 0.99771398, 0.99719697, 0.99655598, &
0.99575800, 0.99475598, 0.99348903, 0.99186200, 0.98973000, &
0.98688000, 0.98303002, 0.97777998, 0.97059000, 0.96077001, &
0.94742000/
data ((h22(ip,iw),iw=1,31), ip= 1, 1)/ &
-0.5622e-07, -0.1071e-06, -0.1983e-06, -0.3533e-06, -0.5991e-06, &
-0.9592e-06, -0.1444e-05, -0.2049e-05, -0.2764e-05, -0.3577e-05, &
-0.4469e-05, -0.5467e-05, -0.6654e-05, -0.8137e-05, -0.1002e-04, &
-0.1237e-04, -0.1528e-04, -0.1884e-04, -0.2310e-04, -0.2809e-04, &
-0.3396e-04, -0.4098e-04, -0.4960e-04, -0.6058e-04, -0.7506e-04, &
-0.9451e-04, -0.1207e-03, -0.1558e-03, -0.2026e-03, -0.2648e-03, &
-0.3468e-03/
data ((h23(ip,iw),iw=1,31), ip= 1, 1)/ &
-0.2195e-09, -0.4031e-09, -0.7043e-09, -0.1153e-08, -0.1737e-08, &
-0.2395e-08, -0.3020e-08, -0.3549e-08, -0.4034e-08, -0.4421e-08, &
-0.4736e-08, -0.5681e-08, -0.8289e-08, -0.1287e-07, -0.1873e-07, &
-0.2523e-07, -0.3223e-07, -0.3902e-07, -0.4409e-07, -0.4699e-07, &
-0.4782e-07, -0.4705e-07, -0.4657e-07, -0.4885e-07, -0.5550e-07, &
-0.6619e-07, -0.7656e-07, -0.8027e-07, -0.7261e-07, -0.4983e-07, &
-0.1101e-07/
data ((h21(ip,iw),iw=1,31), ip= 2, 2)/ &
0.99999607, 0.99999237, 0.99998546, 0.99997294, 0.99995142, &
0.99991679, 0.99986511, 0.99979353, 0.99970138, 0.99958861, &
0.99945688, 0.99930882, 0.99914342, 0.99895400, 0.99872798, &
0.99844801, 0.99809802, 0.99765801, 0.99710101, 0.99639499, &
0.99549901, 0.99435198, 0.99287099, 0.99093699, 0.98837000, &
0.98491001, 0.98019999, 0.97373998, 0.96490002, 0.95283002, &
0.93649000/
data ((h22(ip,iw),iw=1,31), ip= 2, 2)/ &
-0.5622e-07, -0.1071e-06, -0.1983e-06, -0.3534e-06, -0.5992e-06, &
-0.9594e-06, -0.1445e-05, -0.2050e-05, -0.2766e-05, -0.3580e-05, &
-0.4476e-05, -0.5479e-05, -0.6677e-05, -0.8179e-05, -0.1009e-04, &
-0.1251e-04, -0.1553e-04, -0.1928e-04, -0.2384e-04, -0.2930e-04, &
-0.3588e-04, -0.4393e-04, -0.5403e-04, -0.6714e-04, -0.8458e-04, &
-0.1082e-03, -0.1400e-03, -0.1829e-03, -0.2401e-03, -0.3157e-03, &
-0.4147e-03/
data ((h23(ip,iw),iw=1,31), ip= 2, 2)/ &
-0.2195e-09, -0.4032e-09, -0.7046e-09, -0.1153e-08, -0.1738e-08, &
-0.2395e-08, -0.3021e-08, -0.3550e-08, -0.4035e-08, -0.4423e-08, &
-0.4740e-08, -0.5692e-08, -0.8314e-08, -0.1292e-07, -0.1882e-07, &
-0.2536e-07, -0.3242e-07, -0.3927e-07, -0.4449e-07, -0.4767e-07, &
-0.4889e-07, -0.4857e-07, -0.4860e-07, -0.5132e-07, -0.5847e-07, &
-0.6968e-07, -0.8037e-07, -0.8400e-07, -0.7521e-07, -0.4830e-07, &
-0.7562e-09/
data ((h21(ip,iw),iw=1,31), ip= 3, 3)/ &
0.99999607, 0.99999237, 0.99998546, 0.99997294, 0.99995142, &
0.99991679, 0.99986500, 0.99979341, 0.99970102, 0.99958777, &
0.99945557, 0.99930632, 0.99913889, 0.99894601, 0.99871302, &
0.99842101, 0.99805099, 0.99757600, 0.99696302, 0.99617100, &
0.99514598, 0.99381000, 0.99205798, 0.98974001, 0.98662001, &
0.98238999, 0.97659999, 0.96866000, 0.95776999, 0.94296998, &
0.92306000/
data ((h22(ip,iw),iw=1,31), ip= 3, 3)/ &
-0.5622e-07, -0.1071e-06, -0.1983e-06, -0.3535e-06, -0.5994e-06, &
-0.9599e-06, -0.1446e-05, -0.2052e-05, -0.2769e-05, -0.3586e-05, &
-0.4487e-05, -0.5499e-05, -0.6712e-05, -0.8244e-05, -0.1021e-04, &
-0.1272e-04, -0.1591e-04, -0.1992e-04, -0.2489e-04, -0.3097e-04, &
-0.3845e-04, -0.4782e-04, -0.5982e-04, -0.7558e-04, -0.9674e-04, &
-0.1254e-03, -0.1644e-03, -0.2167e-03, -0.2863e-03, -0.3777e-03, &
-0.4959e-03/
data ((h23(ip,iw),iw=1,31), ip= 3, 3)/ &
-0.2196e-09, -0.4033e-09, -0.7048e-09, -0.1154e-08, -0.1739e-08, &
-0.2396e-08, -0.3022e-08, -0.3551e-08, -0.4036e-08, -0.4425e-08, &
-0.4746e-08, -0.5710e-08, -0.8354e-08, -0.1300e-07, -0.1894e-07, &
-0.2554e-07, -0.3265e-07, -0.3958e-07, -0.4502e-07, -0.4859e-07, &
-0.5030e-07, -0.5053e-07, -0.5104e-07, -0.5427e-07, -0.6204e-07, &
-0.7388e-07, -0.8477e-07, -0.8760e-07, -0.7545e-07, -0.4099e-07, &
0.2046e-07/
data ((h21(ip,iw),iw=1,31), ip= 4, 4)/ &
0.99999607, 0.99999237, 0.99998546, 0.99997294, 0.99995142, &
0.99991673, 0.99986482, 0.99979299, 0.99970031, 0.99958658, &
0.99945343, 0.99930239, 0.99913180, 0.99893302, 0.99869001, &
0.99838102, 0.99798000, 0.99745703, 0.99676800, 0.99586397, &
0.99467200, 0.99309403, 0.99099600, 0.98817998, 0.98438001, &
0.97918999, 0.97206002, 0.96227002, 0.94888997, 0.93080997, &
0.90671003/
data ((h22(ip,iw),iw=1,31), ip= 4, 4)/ &
-0.5623e-07, -0.1071e-06, -0.1984e-06, -0.3536e-06, -0.5997e-06, &
-0.9606e-06, -0.1447e-05, -0.2055e-05, -0.2775e-05, -0.3596e-05, &
-0.4504e-05, -0.5529e-05, -0.6768e-05, -0.8345e-05, -0.1039e-04, &
-0.1304e-04, -0.1645e-04, -0.2082e-04, -0.2633e-04, -0.3322e-04, &
-0.4187e-04, -0.5292e-04, -0.6730e-04, -0.8640e-04, -0.1122e-03, &
-0.1472e-03, -0.1948e-03, -0.2585e-03, -0.3428e-03, -0.4523e-03, &
-0.5915e-03/
data ((h23(ip,iw),iw=1,31), ip= 4, 4)/ &
-0.2196e-09, -0.4034e-09, -0.7050e-09, -0.1154e-08, -0.1740e-08, &
-0.2398e-08, -0.3024e-08, -0.3552e-08, -0.4037e-08, -0.4428e-08, &
-0.4756e-08, -0.5741e-08, -0.8418e-08, -0.1310e-07, -0.1910e-07, &
-0.2575e-07, -0.3293e-07, -0.3998e-07, -0.4572e-07, -0.4980e-07, &
-0.5211e-07, -0.5287e-07, -0.5390e-07, -0.5782e-07, -0.6650e-07, &
-0.7892e-07, -0.8940e-07, -0.8980e-07, -0.7119e-07, -0.2452e-07, &
0.5823e-07/
data ((h21(ip,iw),iw=1,31), ip= 5, 5)/ &
0.99999607, 0.99999237, 0.99998546, 0.99997294, 0.99995136, &
0.99991661, 0.99986458, 0.99979252, 0.99969929, 0.99958479, &
0.99945003, 0.99929619, 0.99912071, 0.99891400, 0.99865502, &
0.99831998, 0.99787700, 0.99728799, 0.99650002, 0.99544799, &
0.99404198, 0.99215603, 0.98961997, 0.98619002, 0.98153001, &
0.97513002, 0.96634001, 0.95428002, 0.93791002, 0.91593999, &
0.88700002/
data ((h22(ip,iw),iw=1,31), ip= 5, 5)/ &
-0.5623e-07, -0.1071e-06, -0.1985e-06, -0.3538e-06, -0.6002e-06, &
-0.9618e-06, -0.1450e-05, -0.2059e-05, -0.2783e-05, -0.3611e-05, &
-0.4531e-05, -0.5577e-05, -0.6855e-05, -0.8499e-05, -0.1066e-04, &
-0.1351e-04, -0.1723e-04, -0.2207e-04, -0.2829e-04, -0.3621e-04, &
-0.4636e-04, -0.5954e-04, -0.7690e-04, -0.1002e-03, -0.1317e-03, &
-0.1746e-03, -0.2326e-03, -0.3099e-03, -0.4111e-03, -0.5407e-03, &
-0.7020e-03/
data ((h23(ip,iw),iw=1,31), ip= 5, 5)/ &
-0.2197e-09, -0.4037e-09, -0.7054e-09, -0.1155e-08, -0.1741e-08, &
-0.2401e-08, -0.3027e-08, -0.3553e-08, -0.4039e-08, -0.4431e-08, &
-0.4775e-08, -0.5784e-08, -0.8506e-08, -0.1326e-07, -0.1931e-07, &
-0.2600e-07, -0.3324e-07, -0.4048e-07, -0.4666e-07, -0.5137e-07, &
-0.5428e-07, -0.5558e-07, -0.5730e-07, -0.6228e-07, -0.7197e-07, &
-0.8455e-07, -0.9347e-07, -0.8867e-07, -0.5945e-07, 0.5512e-08, &
0.1209e-06/
data ((h21(ip,iw),iw=1,31), ip= 6, 6)/ &
0.99999607, 0.99999237, 0.99998546, 0.99997288, 0.99995130, &
0.99991649, 0.99986428, 0.99979180, 0.99969780, 0.99958187, &
0.99944460, 0.99928659, 0.99910372, 0.99888301, 0.99860299, &
0.99822998, 0.99773002, 0.99705303, 0.99613500, 0.99489301, &
0.99321300, 0.99093801, 0.98785001, 0.98365998, 0.97790998, &
0.97000998, 0.95916998, 0.94437003, 0.92440999, 0.89789999, &
0.86360002/
data ((h22(ip,iw),iw=1,31), ip= 6, 6)/ &
-0.5624e-07, -0.1072e-06, -0.1986e-06, -0.3541e-06, -0.6010e-06, &
-0.9636e-06, -0.1453e-05, -0.2067e-05, -0.2796e-05, -0.3634e-05, &
-0.4572e-05, -0.5652e-05, -0.6987e-05, -0.8733e-05, -0.1107e-04, &
-0.1418e-04, -0.1832e-04, -0.2378e-04, -0.3092e-04, -0.4017e-04, &
-0.5221e-04, -0.6806e-04, -0.8916e-04, -0.1176e-03, -0.1562e-03, &
-0.2087e-03, -0.2793e-03, -0.3724e-03, -0.4928e-03, -0.6440e-03, &
-0.8270e-03/
data ((h23(ip,iw),iw=1,31), ip= 6, 6)/ &
-0.2198e-09, -0.4040e-09, -0.7061e-09, -0.1156e-08, -0.1744e-08, &
-0.2405e-08, -0.3032e-08, -0.3556e-08, -0.4040e-08, -0.4444e-08, &
-0.4800e-08, -0.5848e-08, -0.8640e-08, -0.1346e-07, -0.1957e-07, &
-0.2627e-07, -0.3357e-07, -0.4114e-07, -0.4793e-07, -0.5330e-07, &
-0.5676e-07, -0.5873e-07, -0.6152e-07, -0.6783e-07, -0.7834e-07, &
-0.9023e-07, -0.9530e-07, -0.8162e-07, -0.3634e-07, 0.5638e-07, &
0.2189e-06/
data ((h21(ip,iw),iw=1,31), ip= 7, 7)/ &
0.99999607, 0.99999237, 0.99998546, 0.99997288, 0.99995124, &
0.99991626, 0.99986368, 0.99979049, 0.99969530, 0.99957728, &
0.99943632, 0.99927181, 0.99907762, 0.99883801, 0.99852502, &
0.99810201, 0.99752498, 0.99673301, 0.99564600, 0.99416101, &
0.99213398, 0.98936999, 0.98559999, 0.98043001, 0.97333997, &
0.96359003, 0.95025003, 0.93216002, 0.90798998, 0.87639999, &
0.83609998/
data ((h22(ip,iw),iw=1,31), ip= 7, 7)/ &
-0.5626e-07, -0.1072e-06, -0.1987e-06, -0.3545e-06, -0.6022e-06, &
-0.9665e-06, -0.1460e-05, -0.2078e-05, -0.2817e-05, -0.3671e-05, &
-0.4637e-05, -0.5767e-05, -0.7188e-05, -0.9080e-05, -0.1165e-04, &
-0.1513e-04, -0.1981e-04, -0.2609e-04, -0.3441e-04, -0.4534e-04, &
-0.5978e-04, -0.7897e-04, -0.1047e-03, -0.1396e-03, -0.1870e-03, &
-0.2510e-03, -0.3363e-03, -0.4475e-03, -0.5888e-03, -0.7621e-03, &
-0.9647e-03/
data ((h23(ip,iw),iw=1,31), ip= 7, 7)/ &
-0.2200e-09, -0.4045e-09, -0.7071e-09, -0.1159e-08, -0.1748e-08, &
-0.2411e-08, -0.3040e-08, -0.3561e-08, -0.4046e-08, -0.4455e-08, &
-0.4839e-08, -0.5941e-08, -0.8815e-08, -0.1371e-07, -0.1983e-07, &
-0.2652e-07, -0.3400e-07, -0.4207e-07, -0.4955e-07, -0.5554e-07, &
-0.5966e-07, -0.6261e-07, -0.6688e-07, -0.7454e-07, -0.8521e-07, &
-0.9470e-07, -0.9275e-07, -0.6525e-07, 0.3686e-08, 0.1371e-06, &
0.3623e-06/
data ((h21(ip,iw),iw=1,31), ip= 8, 8)/ &
0.99999607, 0.99999237, 0.99998540, 0.99997282, 0.99995112, &
0.99991590, 0.99986279, 0.99978858, 0.99969149, 0.99957019, &
0.99942350, 0.99924922, 0.99903822, 0.99877101, 0.99841398, &
0.99792302, 0.99724299, 0.99630302, 0.99500000, 0.99320602, &
0.99074000, 0.98736000, 0.98272002, 0.97635001, 0.96758002, &
0.95555997, 0.93919998, 0.91722000, 0.88819999, 0.85089999, &
0.80439997/
data ((h22(ip,iw),iw=1,31), ip= 8, 8)/ &
-0.5628e-07, -0.1073e-06, -0.1990e-06, -0.3553e-06, -0.6042e-06, &
-0.9710e-06, -0.1469e-05, -0.2096e-05, -0.2849e-05, -0.3728e-05, &
-0.4738e-05, -0.5942e-05, -0.7490e-05, -0.9586e-05, -0.1247e-04, &
-0.1644e-04, -0.2184e-04, -0.2916e-04, -0.3898e-04, -0.5205e-04, &
-0.6948e-04, -0.9285e-04, -0.1244e-03, -0.1672e-03, -0.2251e-03, &
-0.3028e-03, -0.4051e-03, -0.5365e-03, -0.6998e-03, -0.8940e-03, &
-0.1112e-02/
data ((h23(ip,iw),iw=1,31), ip= 8, 8)/ &
-0.2204e-09, -0.4052e-09, -0.7088e-09, -0.1162e-08, -0.1755e-08, &
-0.2422e-08, -0.3053e-08, -0.3572e-08, -0.4052e-08, -0.4474e-08, &
-0.4898e-08, -0.6082e-08, -0.9046e-08, -0.1400e-07, -0.2009e-07, &
-0.2683e-07, -0.3463e-07, -0.4334e-07, -0.5153e-07, -0.5811e-07, &
-0.6305e-07, -0.6749e-07, -0.7346e-07, -0.8208e-07, -0.9173e-07, &
-0.9603e-07, -0.8264e-07, -0.3505e-07, 0.6878e-07, 0.2586e-06, &
0.5530e-06/
data ((h21(ip,iw),iw=1,31), ip= 9, 9)/ &
0.99999607, 0.99999237, 0.99998540, 0.99997276, 0.99995089, &
0.99991536, 0.99986148, 0.99978572, 0.99968570, 0.99955928, &
0.99940401, 0.99921501, 0.99897999, 0.99867398, 0.99825603, &
0.99767601, 0.99686497, 0.99573302, 0.99415499, 0.99196899, &
0.98895001, 0.98479998, 0.97907001, 0.97119999, 0.96038002, &
0.94559997, 0.92565000, 0.89910001, 0.86470002, 0.82130003, &
0.76830000/
data ((h22(ip,iw),iw=1,31), ip= 9, 9)/ &
-0.5630e-07, -0.1074e-06, -0.1994e-06, -0.3564e-06, -0.6072e-06, &
-0.9779e-06, -0.1484e-05, -0.2124e-05, -0.2900e-05, -0.3817e-05, &
-0.4891e-05, -0.6205e-05, -0.7931e-05, -0.1031e-04, -0.1362e-04, &
-0.1821e-04, -0.2454e-04, -0.3320e-04, -0.4493e-04, -0.6068e-04, &
-0.8186e-04, -0.1104e-03, -0.1491e-03, -0.2016e-03, -0.2722e-03, &
-0.3658e-03, -0.4873e-03, -0.6404e-03, -0.8253e-03, -0.1037e-02, &
-0.1267e-02/
data ((h23(ip,iw),iw=1,31), ip= 9, 9)/ &
-0.2207e-09, -0.4061e-09, -0.7117e-09, -0.1169e-08, -0.1767e-08, &
-0.2439e-08, -0.3074e-08, -0.3588e-08, -0.4062e-08, -0.4510e-08, &
-0.4983e-08, -0.6261e-08, -0.9324e-08, -0.1430e-07, -0.2036e-07, &
-0.2725e-07, -0.3561e-07, -0.4505e-07, -0.5384e-07, -0.6111e-07, &
-0.6731e-07, -0.7355e-07, -0.8112e-07, -0.8978e-07, -0.9616e-07, &
-0.9157e-07, -0.6114e-07, 0.1622e-07, 0.1694e-06, 0.4277e-06, &
0.7751e-06/
data ((h21(ip,iw),iw=1,31), ip=10,10)/ &
0.99999607, 0.99999237, 0.99998540, 0.99997264, 0.99995059, &
0.99991453, 0.99985939, 0.99978119, 0.99967682, 0.99954277, &
0.99937469, 0.99916458, 0.99889499, 0.99853599, 0.99804002, &
0.99734300, 0.99636298, 0.99498600, 0.99305803, 0.99037802, &
0.98667002, 0.98154002, 0.97447002, 0.96473998, 0.95141000, &
0.93333000, 0.90916002, 0.87750000, 0.83710003, 0.78729999, &
0.72790003/
data ((h22(ip,iw),iw=1,31), ip=10,10)/ &
-0.5636e-07, -0.1076e-06, -0.2000e-06, -0.3582e-06, -0.6119e-06, &
-0.9888e-06, -0.1507e-05, -0.2168e-05, -0.2978e-05, -0.3952e-05, &
-0.5122e-05, -0.6592e-05, -0.8565e-05, -0.1132e-04, -0.1518e-04, &
-0.2060e-04, -0.2811e-04, -0.3848e-04, -0.5261e-04, -0.7173e-04, &
-0.9758e-04, -0.1326e-03, -0.1801e-03, -0.2442e-03, -0.3296e-03, &
-0.4415e-03, -0.5840e-03, -0.7591e-03, -0.9636e-03, -0.1189e-02, &
-0.1427e-02/
data ((h23(ip,iw),iw=1,31), ip=10,10)/ &
-0.2214e-09, -0.4080e-09, -0.7156e-09, -0.1178e-08, -0.1784e-08, &
-0.2466e-08, -0.3105e-08, -0.3617e-08, -0.4087e-08, -0.4563e-08, &
-0.5110e-08, -0.6492e-08, -0.9643e-08, -0.1461e-07, -0.2069e-07, &
-0.2796e-07, -0.3702e-07, -0.4717e-07, -0.5662e-07, -0.6484e-07, &
-0.7271e-07, -0.8079e-07, -0.8928e-07, -0.9634e-07, -0.9625e-07, &
-0.7776e-07, -0.2242e-07, 0.9745e-07, 0.3152e-06, 0.6388e-06, &
0.9992e-06/
data ((h21(ip,iw),iw=1,31), ip=11,11)/ &
0.99999607, 0.99999237, 0.99998534, 0.99997252, 0.99995011, &
0.99991328, 0.99985629, 0.99977452, 0.99966347, 0.99951839, &
0.99933177, 0.99909180, 0.99877602, 0.99834698, 0.99774700, &
0.99690098, 0.99570400, 0.99401599, 0.99164802, 0.98834997, &
0.98377001, 0.97742999, 0.96868002, 0.95666999, 0.94032001, &
0.91833997, 0.88929999, 0.85189998, 0.80530000, 0.74909997, &
0.68299997/
data ((h22(ip,iw),iw=1,31), ip=11,11)/ &
-0.5645e-07, -0.1079e-06, -0.2009e-06, -0.3610e-06, -0.6190e-06, &
-0.1005e-05, -0.1541e-05, -0.2235e-05, -0.3096e-05, -0.4155e-05, &
-0.5463e-05, -0.7150e-05, -0.9453e-05, -0.1269e-04, -0.1728e-04, &
-0.2375e-04, -0.3279e-04, -0.4531e-04, -0.6246e-04, -0.8579e-04, &
-0.1175e-03, -0.1604e-03, -0.2186e-03, -0.2964e-03, -0.3990e-03, &
-0.5311e-03, -0.6957e-03, -0.8916e-03, -0.1112e-02, -0.1346e-02, &
-0.1590e-02/
data ((h23(ip,iw),iw=1,31), ip=11,11)/ &
-0.2225e-09, -0.4104e-09, -0.7217e-09, -0.1192e-08, -0.1811e-08, &
-0.2509e-08, -0.3155e-08, -0.3668e-08, -0.4138e-08, -0.4650e-08, &
-0.5296e-08, -0.6785e-08, -0.9991e-08, -0.1494e-07, -0.2122e-07, &
-0.2911e-07, -0.3895e-07, -0.4979e-07, -0.6002e-07, -0.6964e-07, &
-0.7935e-07, -0.8887e-07, -0.9699e-07, -0.9967e-07, -0.8883e-07, &
-0.4988e-07, 0.4156e-07, 0.2197e-06, 0.5081e-06, 0.8667e-06, &
0.1212e-05/
data ((h21(ip,iw),iw=1,31), ip=12,12)/ &
0.99999607, 0.99999237, 0.99998528, 0.99997234, 0.99994951, &
0.99991143, 0.99985188, 0.99976480, 0.99964428, 0.99948311, &
0.99927050, 0.99899000, 0.99861199, 0.99809098, 0.99735999, &
0.99632198, 0.99484903, 0.99276900, 0.98984998, 0.98576999, &
0.98009998, 0.97224998, 0.96144003, 0.94667000, 0.92672002, &
0.90020001, 0.86570001, 0.82220000, 0.76919997, 0.70640004, &
0.63330001/
data ((h22(ip,iw),iw=1,31), ip=12,12)/ &
-0.5658e-07, -0.1083e-06, -0.2023e-06, -0.3650e-06, -0.6295e-06, &
-0.1030e-05, -0.1593e-05, -0.2334e-05, -0.3273e-05, -0.4455e-05, &
-0.5955e-05, -0.7935e-05, -0.1067e-04, -0.1455e-04, -0.2007e-04, &
-0.2788e-04, -0.3885e-04, -0.5409e-04, -0.7503e-04, -0.1036e-03, &
-0.1425e-03, -0.1951e-03, -0.2660e-03, -0.3598e-03, -0.4817e-03, &
-0.6355e-03, -0.8218e-03, -0.1035e-02, -0.1267e-02, -0.1508e-02, &
-0.1755e-02/
data ((h23(ip,iw),iw=1,31), ip=12,12)/ &
-0.2241e-09, -0.4142e-09, -0.7312e-09, -0.1214e-08, -0.1854e-08, &
-0.2578e-08, -0.3250e-08, -0.3765e-08, -0.4238e-08, -0.4809e-08, &
-0.5553e-08, -0.7132e-08, -0.1035e-07, -0.1538e-07, -0.2211e-07, &
-0.3079e-07, -0.4142e-07, -0.5303e-07, -0.6437e-07, -0.7566e-07, &
-0.8703e-07, -0.9700e-07, -0.1025e-06, -0.9718e-07, -0.6973e-07, &
-0.5265e-09, 0.1413e-06, 0.3895e-06, 0.7321e-06, 0.1085e-05, &
0.1449e-05/
data ((h21(ip,iw),iw=1,31), ip=13,13)/ &
0.99999607, 0.99999231, 0.99998522, 0.99997205, 0.99994856, &
0.99990892, 0.99984580, 0.99975121, 0.99961728, 0.99943388, &
0.99918568, 0.99884999, 0.99839199, 0.99775398, 0.99685299, &
0.99557197, 0.99375200, 0.99117702, 0.98755997, 0.98250002, &
0.97548002, 0.96575999, 0.95244002, 0.93436003, 0.91018999, &
0.87849998, 0.83810002, 0.78820002, 0.72870004, 0.65910000, &
0.57850003/
data ((h22(ip,iw),iw=1,31), ip=13,13)/ &
-0.5677e-07, -0.1090e-06, -0.2043e-06, -0.3709e-06, -0.6448e-06, &
-0.1066e-05, -0.1669e-05, -0.2480e-05, -0.3532e-05, -0.4887e-05, &
-0.6650e-05, -0.9017e-05, -0.1232e-04, -0.1701e-04, -0.2372e-04, &
-0.3325e-04, -0.4664e-04, -0.6528e-04, -0.9095e-04, -0.1260e-03, &
-0.1737e-03, -0.2381e-03, -0.3238e-03, -0.4359e-03, -0.5789e-03, &
-0.7549e-03, -0.9607e-03, -0.1188e-02, -0.1427e-02, -0.1674e-02, &
-0.1914e-02/
data ((h23(ip,iw),iw=1,31), ip=13,13)/ &
-0.2262e-09, -0.4191e-09, -0.7441e-09, -0.1244e-08, -0.1916e-08, &
-0.2687e-08, -0.3407e-08, -0.3947e-08, -0.4432e-08, -0.5059e-08, &
-0.5896e-08, -0.7538e-08, -0.1079e-07, -0.1606e-07, -0.2346e-07, &
-0.3305e-07, -0.4459e-07, -0.5720e-07, -0.6999e-07, -0.8300e-07, &
-0.9536e-07, -0.1039e-06, -0.1036e-06, -0.8526e-07, -0.3316e-07, &
0.7909e-07, 0.2865e-06, 0.6013e-06, 0.9580e-06, 0.1303e-05, &
0.1792e-05/
data ((h21(ip,iw),iw=1,31), ip=14,14)/ &
0.99999607, 0.99999231, 0.99998510, 0.99997163, 0.99994737, &
0.99990571, 0.99983770, 0.99973333, 0.99958128, 0.99936771, &
0.99907219, 0.99866599, 0.99810302, 0.99731499, 0.99620003, &
0.99461198, 0.99235398, 0.98916000, 0.98466998, 0.97839999, &
0.96969002, 0.95769000, 0.94133997, 0.91935998, 0.89029998, &
0.85290003, 0.80620003, 0.74989998, 0.68369997, 0.60679996, &
0.51899999/
data ((h22(ip,iw),iw=1,31), ip=14,14)/ &
-0.5703e-07, -0.1098e-06, -0.2071e-06, -0.3788e-06, -0.6657e-06, &
-0.1116e-05, -0.1776e-05, -0.2687e-05, -0.3898e-05, -0.5493e-05, &
-0.7607e-05, -0.1048e-04, -0.1450e-04, -0.2024e-04, -0.2845e-04, &
-0.4014e-04, -0.5658e-04, -0.7947e-04, -0.1110e-03, -0.1541e-03, &
-0.2125e-03, -0.2907e-03, -0.3936e-03, -0.5261e-03, -0.6912e-03, &
-0.8880e-03, -0.1109e-02, -0.1346e-02, -0.1591e-02, -0.1837e-02, &
-0.2054e-02/
data ((h23(ip,iw),iw=1,31), ip=14,14)/ &
-0.2288e-09, -0.4265e-09, -0.7627e-09, -0.1289e-08, -0.2011e-08, &
-0.2861e-08, -0.3673e-08, -0.4288e-08, -0.4812e-08, -0.5475e-08, &
-0.6365e-08, -0.8052e-08, -0.1142e-07, -0.1711e-07, -0.2533e-07, &
-0.3597e-07, -0.4862e-07, -0.6259e-07, -0.7708e-07, -0.9150e-07, &
-0.1035e-06, -0.1079e-06, -0.9742e-07, -0.5928e-07, 0.2892e-07, &
0.1998e-06, 0.4789e-06, 0.8298e-06, 0.1172e-05, 0.1583e-05, &
0.2329e-05/
data ((h21(ip,iw),iw=1,31), ip=15,15)/ &
0.99999607, 0.99999225, 0.99998498, 0.99997115, 0.99994600, &
0.99990171, 0.99982780, 0.99971092, 0.99953562, 0.99928278, &
0.99892598, 0.99842799, 0.99773300, 0.99675500, 0.99536800, &
0.99339402, 0.99058902, 0.98662001, 0.98104000, 0.97325999, &
0.96249002, 0.94773000, 0.92778003, 0.90125000, 0.86680001, &
0.82319999, 0.77010000, 0.70730001, 0.63400000, 0.54960001, &
0.45560002/
data ((h22(ip,iw),iw=1,31), ip=15,15)/ &
-0.5736e-07, -0.1109e-06, -0.2106e-06, -0.3890e-06, -0.6928e-06, &
-0.1181e-05, -0.1917e-05, -0.2965e-05, -0.4396e-05, -0.6315e-05, &
-0.8891e-05, -0.1242e-04, -0.1736e-04, -0.2442e-04, -0.3454e-04, &
-0.4892e-04, -0.6916e-04, -0.9735e-04, -0.1362e-03, -0.1891e-03, &
-0.2602e-03, -0.3545e-03, -0.4768e-03, -0.6310e-03, -0.8179e-03, &
-0.1032e-02, -0.1265e-02, -0.1508e-02, -0.1757e-02, -0.1989e-02, &
-0.2159e-02/
data ((h23(ip,iw),iw=1,31), ip=15,15)/ &
-0.2321e-09, -0.4350e-09, -0.7861e-09, -0.1347e-08, -0.2144e-08, &
-0.3120e-08, -0.4107e-08, -0.4892e-08, -0.5511e-08, -0.6164e-08, &
-0.7054e-08, -0.8811e-08, -0.1240e-07, -0.1862e-07, -0.2773e-07, &
-0.3957e-07, -0.5371e-07, -0.6939e-07, -0.8564e-07, -0.1006e-06, &
-0.1100e-06, -0.1066e-06, -0.8018e-07, -0.1228e-07, 0.1263e-06, &
0.3678e-06, 0.7022e-06, 0.1049e-05, 0.1411e-05, 0.2015e-05, &
0.3099e-05/
data ((h21(ip,iw),iw=1,31), ip=16,16)/ &
0.99999791, 0.99999589, 0.99999183, 0.99998391, 0.99996853, &
0.99993920, 0.99988472, 0.99978709, 0.99961978, 0.99934620, &
0.99892199, 0.99830103, 0.99742401, 0.99619502, 0.99445999, &
0.99199599, 0.98851001, 0.98360002, 0.97671002, 0.96710002, &
0.95378000, 0.93559003, 0.91112000, 0.87900001, 0.83780003, &
0.78680003, 0.72549999, 0.65300000, 0.56830001, 0.47140002, &
0.36650002/
data ((h22(ip,iw),iw=1,31), ip=16,16)/ &
-0.3122e-07, -0.6175e-07, -0.1214e-06, -0.2361e-06, -0.4518e-06, &
-0.8438e-06, -0.1524e-05, -0.2643e-05, -0.4380e-05, -0.6922e-05, &
-0.1042e-04, -0.1504e-04, -0.2125e-04, -0.2987e-04, -0.4200e-04, &
-0.5923e-04, -0.8383e-04, -0.1186e-03, -0.1670e-03, -0.2328e-03, &
-0.3204e-03, -0.4347e-03, -0.5802e-03, -0.7595e-03, -0.9703e-03, &
-0.1205e-02, -0.1457e-02, -0.1720e-02, -0.1980e-02, -0.2191e-02, &
-0.2290e-02/
data ((h23(ip,iw),iw=1,31), ip=16,16)/ &
-0.1376e-09, -0.2699e-09, -0.5220e-09, -0.9897e-09, -0.1819e-08, &
-0.3186e-08, -0.5224e-08, -0.7896e-08, -0.1090e-07, -0.1349e-07, &
-0.1443e-07, -0.1374e-07, -0.1386e-07, -0.1673e-07, -0.2237e-07, &
-0.3248e-07, -0.5050e-07, -0.7743e-07, -0.1097e-06, -0.1369e-06, &
-0.1463e-06, -0.1268e-06, -0.6424e-07, 0.5941e-07, 0.2742e-06, &
0.5924e-06, 0.9445e-06, 0.1286e-05, 0.1819e-05, 0.2867e-05, &
0.4527e-05/
data ((h21(ip,iw),iw=1,31), ip=17,17)/ &
0.99999756, 0.99999511, 0.99999028, 0.99998081, 0.99996233, &
0.99992681, 0.99986011, 0.99973929, 0.99953061, 0.99918979, &
0.99866599, 0.99790198, 0.99681997, 0.99528998, 0.99312103, &
0.99004799, 0.98571002, 0.97961998, 0.97105998, 0.95915002, &
0.94278002, 0.92061001, 0.89120001, 0.85320002, 0.80550003, &
0.74759996, 0.67900002, 0.59829998, 0.50520003, 0.40219998, &
0.29600000/
data ((h22(ip,iw),iw=1,31), ip=17,17)/ &
-0.3547e-07, -0.7029e-07, -0.1386e-06, -0.2709e-06, -0.5218e-06, &
-0.9840e-06, -0.1799e-05, -0.3156e-05, -0.5272e-05, -0.8357e-05, &
-0.1260e-04, -0.1827e-04, -0.2598e-04, -0.3667e-04, -0.5169e-04, &
-0.7312e-04, -0.1037e-03, -0.1467e-03, -0.2060e-03, -0.2857e-03, &
-0.3907e-03, -0.5257e-03, -0.6940e-03, -0.8954e-03, -0.1124e-02, &
-0.1371e-02, -0.1632e-02, -0.1897e-02, -0.2131e-02, -0.2275e-02, &
-0.2265e-02/
data ((h23(ip,iw),iw=1,31), ip=17,17)/ &
-0.1482e-09, -0.2910e-09, -0.5667e-09, -0.1081e-08, -0.2005e-08, &
-0.3554e-08, -0.5902e-08, -0.8925e-08, -0.1209e-07, -0.1448e-07, &
-0.1536e-07, -0.1565e-07, -0.1763e-07, -0.2088e-07, -0.2564e-07, &
-0.3635e-07, -0.5791e-07, -0.8907e-07, -0.1213e-06, -0.1418e-06, &
-0.1397e-06, -0.1000e-06, -0.4427e-08, 0.1713e-06, 0.4536e-06, &
0.8086e-06, 0.1153e-05, 0.1588e-05, 0.2437e-05, 0.3905e-05, &
0.5874e-05/
data ((h21(ip,iw),iw=1,31), ip=18,18)/ &
0.99999714, 0.99999428, 0.99998862, 0.99997741, 0.99995553, &
0.99991333, 0.99983358, 0.99968803, 0.99943441, 0.99901879, &
0.99837899, 0.99744099, 0.99609798, 0.99418801, 0.99147803, &
0.98764998, 0.98227000, 0.97469997, 0.96410000, 0.94941998, &
0.92940998, 0.90263999, 0.86769998, 0.82330000, 0.76880002, &
0.70379996, 0.62720001, 0.53810000, 0.43769997, 0.33149999, &
0.22839999/
data ((h22(ip,iw),iw=1,31), ip=18,18)/ &
-0.4064e-07, -0.8066e-07, -0.1593e-06, -0.3124e-06, -0.6049e-06, &
-0.1148e-05, -0.2118e-05, -0.3751e-05, -0.6314e-05, -0.1006e-04, &
-0.1526e-04, -0.2232e-04, -0.3196e-04, -0.4525e-04, -0.6394e-04, &
-0.9058e-04, -0.1284e-03, -0.1812e-03, -0.2533e-03, -0.3493e-03, &
-0.4740e-03, -0.6315e-03, -0.8228e-03, -0.1044e-02, -0.1286e-02, &
-0.1544e-02, -0.1810e-02, -0.2061e-02, -0.2243e-02, -0.2291e-02, &
-0.2152e-02/
data ((h23(ip,iw),iw=1,31), ip=18,18)/ &
-0.1630e-09, -0.3213e-09, -0.6266e-09, -0.1201e-08, -0.2248e-08, &
-0.4030e-08, -0.6770e-08, -0.1033e-07, -0.1392e-07, -0.1640e-07, &
-0.1768e-07, -0.1932e-07, -0.2229e-07, -0.2508e-07, -0.2940e-07, &
-0.4200e-07, -0.6717e-07, -0.1002e-06, -0.1286e-06, -0.1402e-06, &
-0.1216e-06, -0.5487e-07, 0.8418e-07, 0.3246e-06, 0.6610e-06, &
0.1013e-05, 0.1394e-05, 0.2073e-05, 0.3337e-05, 0.5175e-05, &
0.7255e-05/
data ((h21(ip,iw),iw=1,31), ip=19,19)/ &
0.99999672, 0.99999344, 0.99998701, 0.99997419, 0.99994916, &
0.99990064, 0.99980861, 0.99963921, 0.99934143, 0.99884701, &
0.99807602, 0.99692601, 0.99525797, 0.99287403, 0.98948997, &
0.98474002, 0.97804999, 0.96867001, 0.95559001, 0.93761998, &
0.91336000, 0.88139999, 0.84029996, 0.78920001, 0.72770000, &
0.65499997, 0.56999999, 0.47280002, 0.36760002, 0.26220000, &
0.16700000/
data ((h22(ip,iw),iw=1,31), ip=19,19)/ &
-0.4629e-07, -0.9195e-07, -0.1819e-06, -0.3572e-06, -0.6936e-06, &
-0.1323e-05, -0.2456e-05, -0.4385e-05, -0.7453e-05, -0.1200e-04, &
-0.1843e-04, -0.2731e-04, -0.3943e-04, -0.5606e-04, -0.7936e-04, &
-0.1123e-03, -0.1588e-03, -0.2231e-03, -0.3101e-03, -0.4247e-03, &
-0.5713e-03, -0.7522e-03, -0.9651e-03, -0.1202e-02, -0.1456e-02, &
-0.1721e-02, -0.1983e-02, -0.2196e-02, -0.2296e-02, -0.2224e-02, &
-0.1952e-02/
data ((h23(ip,iw),iw=1,31), ip=19,19)/ &
-0.1827e-09, -0.3607e-09, -0.7057e-09, -0.1359e-08, -0.2552e-08, &
-0.4615e-08, -0.7854e-08, -0.1218e-07, -0.1670e-07, -0.2008e-07, &
-0.2241e-07, -0.2516e-07, -0.2796e-07, -0.3015e-07, -0.3506e-07, &
-0.4958e-07, -0.7627e-07, -0.1070e-06, -0.1289e-06, -0.1286e-06, &
-0.8843e-07, 0.1492e-07, 0.2118e-06, 0.5155e-06, 0.8665e-06, &
0.1220e-05, 0.1765e-05, 0.2825e-05, 0.4498e-05, 0.6563e-05, &
0.8422e-05/
data ((h21(ip,iw),iw=1,31), ip=20,20)/ &
0.99999636, 0.99999279, 0.99998569, 0.99997163, 0.99994397, &
0.99989033, 0.99978799, 0.99959832, 0.99926043, 0.99868900, &
0.99777400, 0.99637598, 0.99431503, 0.99134803, 0.98714000, &
0.98122001, 0.97290999, 0.96131998, 0.94528997, 0.92346001, &
0.89429998, 0.85650003, 0.80879998, 0.75080001, 0.68190002, &
0.60100001, 0.50740004, 0.40399998, 0.29729998, 0.19730002, &
0.11479998/
data ((h22(ip,iw),iw=1,31), ip=20,20)/ &
-0.5164e-07, -0.1026e-06, -0.2031e-06, -0.3994e-06, -0.7771e-06, &
-0.1488e-05, -0.2776e-05, -0.5001e-05, -0.8610e-05, -0.1411e-04, &
-0.2209e-04, -0.3328e-04, -0.4860e-04, -0.6954e-04, -0.9861e-04, &
-0.1393e-03, -0.1961e-03, -0.2738e-03, -0.3778e-03, -0.5132e-03, &
-0.6831e-03, -0.8868e-03, -0.1118e-02, -0.1368e-02, -0.1632e-02, &
-0.1899e-02, -0.2136e-02, -0.2282e-02, -0.2273e-02, -0.2067e-02, &
-0.1679e-02/
data ((h23(ip,iw),iw=1,31), ip=20,20)/ &
-0.2058e-09, -0.4066e-09, -0.7967e-09, -0.1539e-08, -0.2904e-08, &
-0.5293e-08, -0.9116e-08, -0.1447e-07, -0.2058e-07, -0.2608e-07, &
-0.3053e-07, -0.3418e-07, -0.3619e-07, -0.3766e-07, -0.4313e-07, &
-0.5817e-07, -0.8299e-07, -0.1072e-06, -0.1195e-06, -0.1031e-06, &
-0.3275e-07, 0.1215e-06, 0.3835e-06, 0.7220e-06, 0.1062e-05, &
0.1504e-05, 0.2367e-05, 0.3854e-05, 0.5842e-05, 0.7875e-05, &
0.9082e-05/
data ((h21(ip,iw),iw=1,31), ip=21,21)/ &
0.99999619, 0.99999237, 0.99998480, 0.99996990, 0.99994045, &
0.99988312, 0.99977320, 0.99956751, 0.99919540, 0.99855101, &
0.99748802, 0.99581498, 0.99329299, 0.98961997, 0.98439002, &
0.97702003, 0.96671999, 0.95245999, 0.93291998, 0.90660000, &
0.87199998, 0.82780004, 0.77329999, 0.70819998, 0.63119996, &
0.54159999, 0.44059998, 0.33380002, 0.23000002, 0.14029998, &
0.07340002/
data ((h22(ip,iw),iw=1,31), ip=21,21)/ &
-0.5584e-07, -0.1110e-06, -0.2198e-06, -0.4329e-06, -0.8444e-06, &
-0.1623e-05, -0.3049e-05, -0.5551e-05, -0.9714e-05, -0.1627e-04, &
-0.2609e-04, -0.4015e-04, -0.5955e-04, -0.8603e-04, -0.1223e-03, &
-0.1724e-03, -0.2413e-03, -0.3346e-03, -0.4578e-03, -0.6155e-03, &
-0.8087e-03, -0.1033e-02, -0.1279e-02, -0.1540e-02, -0.1811e-02, &
-0.2065e-02, -0.2251e-02, -0.2301e-02, -0.2163e-02, -0.1828e-02, &
-0.1365e-02/
data ((h23(ip,iw),iw=1,31), ip=21,21)/ &
-0.2274e-09, -0.4498e-09, -0.8814e-09, -0.1708e-08, -0.3247e-08, &
-0.5972e-08, -0.1045e-07, -0.1707e-07, -0.2545e-07, -0.3440e-07, &
-0.4259e-07, -0.4822e-07, -0.5004e-07, -0.5061e-07, -0.5485e-07, &
-0.6687e-07, -0.8483e-07, -0.9896e-07, -0.9646e-07, -0.5557e-07, &
0.5765e-07, 0.2752e-06, 0.5870e-06, 0.9188e-06, 0.1291e-05, &
0.1971e-05, 0.3251e-05, 0.5115e-05, 0.7221e-05, 0.8825e-05, &
0.9032e-05/
data ((h21(ip,iw),iw=1,31), ip=22,22)/ &
0.99999607, 0.99999213, 0.99998438, 0.99996895, 0.99993849, &
0.99987900, 0.99976391, 0.99954629, 0.99914569, 0.99843502, &
0.99722600, 0.99526101, 0.99221897, 0.98771000, 0.98123002, &
0.97209001, 0.95936000, 0.94187999, 0.91820002, 0.88679999, &
0.84609997, 0.79530001, 0.73379999, 0.66090000, 0.57529998, &
0.47740000, 0.37129998, 0.26490003, 0.16890001, 0.09340000, &
0.04310000/
data ((h22(ip,iw),iw=1,31), ip=22,22)/ &
-0.5833e-07, -0.1160e-06, -0.2300e-06, -0.4540e-06, -0.8885e-06, &
-0.1718e-05, -0.3256e-05, -0.6010e-05, -0.1072e-04, -0.1838e-04, &
-0.3026e-04, -0.4772e-04, -0.7223e-04, -0.1057e-03, -0.1512e-03, &
-0.2128e-03, -0.2961e-03, -0.4070e-03, -0.5514e-03, -0.7320e-03, &
-0.9467e-03, -0.1187e-02, -0.1446e-02, -0.1717e-02, -0.1985e-02, &
-0.2203e-02, -0.2307e-02, -0.2237e-02, -0.1965e-02, -0.1532e-02, &
-0.1044e-02/
data ((h23(ip,iw),iw=1,31), ip=22,22)/ &
-0.2426e-09, -0.4805e-09, -0.9447e-09, -0.1841e-08, -0.3519e-08, &
-0.6565e-08, -0.1172e-07, -0.1979e-07, -0.3095e-07, -0.4443e-07, &
-0.5821e-07, -0.6868e-07, -0.7282e-07, -0.7208e-07, -0.7176e-07, &
-0.7562e-07, -0.8110e-07, -0.7934e-07, -0.5365e-07, 0.2483e-07, &
0.1959e-06, 0.4731e-06, 0.7954e-06, 0.1123e-05, 0.1652e-05, &
0.2711e-05, 0.4402e-05, 0.6498e-05, 0.8392e-05, 0.9154e-05, &
0.8261e-05/
data ((h21(ip,iw),iw=1,31), ip=23,23)/ &
0.99999601, 0.99999207, 0.99998420, 0.99996859, 0.99993771, &
0.99987692, 0.99975860, 0.99953198, 0.99910772, 0.99833697, &
0.99698901, 0.99473202, 0.99113101, 0.98566002, 0.97770000, &
0.96640998, 0.95076001, 0.92943001, 0.90092003, 0.86370003, &
0.81659997, 0.75889999, 0.69000000, 0.60870004, 0.51440001, &
0.40990001, 0.30190003, 0.20060003, 0.11680001, 0.05760002, &
0.02270001/
data ((h22(ip,iw),iw=1,31), ip=23,23)/ &
-0.5929e-07, -0.1180e-06, -0.2344e-06, -0.4638e-06, -0.9118e-06, &
-0.1775e-05, -0.3401e-05, -0.6375e-05, -0.1160e-04, -0.2039e-04, &
-0.3444e-04, -0.5575e-04, -0.8641e-04, -0.1287e-03, -0.1856e-03, &
-0.2615e-03, -0.3618e-03, -0.4928e-03, -0.6594e-03, -0.8621e-03, &
-0.1095e-02, -0.1349e-02, -0.1618e-02, -0.1894e-02, -0.2140e-02, &
-0.2293e-02, -0.2290e-02, -0.2085e-02, -0.1696e-02, -0.1212e-02, &
-0.7506e-03/
data ((h23(ip,iw),iw=1,31), ip=23,23)/ &
-0.2496e-09, -0.4954e-09, -0.9780e-09, -0.1915e-08, -0.3697e-08, &
-0.6991e-08, -0.1279e-07, -0.2231e-07, -0.3653e-07, -0.5541e-07, &
-0.7688e-07, -0.9614e-07, -0.1069e-06, -0.1065e-06, -0.9866e-07, &
-0.8740e-07, -0.7192e-07, -0.4304e-07, 0.1982e-07, 0.1525e-06, &
0.3873e-06, 0.6947e-06, 0.1000e-05, 0.1409e-05, 0.2253e-05, &
0.3739e-05, 0.5744e-05, 0.7812e-05, 0.9067e-05, 0.8746e-05, &
0.6940e-05/
data ((h21(ip,iw),iw=1,31), ip=24,24)/ &
0.99999601, 0.99999207, 0.99998420, 0.99996853, 0.99993742, &
0.99987602, 0.99975550, 0.99952233, 0.99907869, 0.99825698, &
0.99678302, 0.99424398, 0.99007100, 0.98356003, 0.97387999, &
0.96004999, 0.94090003, 0.91503000, 0.88099998, 0.83740002, &
0.78350002, 0.71869999, 0.64170003, 0.55149996, 0.44950002, &
0.34100002, 0.23540002, 0.14380002, 0.07550001, 0.03240001, &
0.01029998/
data ((h22(ip,iw),iw=1,31), ip=24,24)/ &
-0.5950e-07, -0.1185e-06, -0.2358e-06, -0.4678e-06, -0.9235e-06, &
-0.1810e-05, -0.3503e-05, -0.6664e-05, -0.1236e-04, -0.2223e-04, &
-0.3849e-04, -0.6396e-04, -0.1017e-03, -0.1545e-03, -0.2257e-03, &
-0.3192e-03, -0.4399e-03, -0.5933e-03, -0.7824e-03, -0.1005e-02, &
-0.1251e-02, -0.1516e-02, -0.1794e-02, -0.2060e-02, -0.2257e-02, &
-0.2318e-02, -0.2186e-02, -0.1853e-02, -0.1386e-02, -0.9021e-03, &
-0.5050e-03/
data ((h23(ip,iw),iw=1,31), ip=24,24)/ &
-0.2515e-09, -0.5001e-09, -0.9904e-09, -0.1951e-08, -0.3800e-08, &
-0.7288e-08, -0.1362e-07, -0.2452e-07, -0.4184e-07, -0.6663e-07, &
-0.9770e-07, -0.1299e-06, -0.1533e-06, -0.1584e-06, -0.1425e-06, &
-0.1093e-06, -0.5972e-07, 0.1426e-07, 0.1347e-06, 0.3364e-06, &
0.6209e-06, 0.9169e-06, 0.1243e-05, 0.1883e-05, 0.3145e-05, &
0.5011e-05, 0.7136e-05, 0.8785e-05, 0.9048e-05, 0.7686e-05, &
0.5368e-05/
data ((h21(ip,iw),iw=1,31), ip=25,25)/ &
0.99999601, 0.99999207, 0.99998420, 0.99996847, 0.99993724, &
0.99987543, 0.99975342, 0.99951530, 0.99905682, 0.99819201, &
0.99660802, 0.99381101, 0.98908001, 0.98148000, 0.96991003, &
0.95317000, 0.92992002, 0.89880002, 0.85839999, 0.80799997, &
0.74689996, 0.67420000, 0.58850002, 0.48979998, 0.38200003, &
0.27329999, 0.17479998, 0.09700000, 0.04500002, 0.01620001, &
0.00349998/
data ((h22(ip,iw),iw=1,31), ip=25,25)/ &
-0.5953e-07, -0.1187e-06, -0.2363e-06, -0.4697e-06, -0.9304e-06, &
-0.1833e-05, -0.3578e-05, -0.6889e-05, -0.1299e-04, -0.2384e-04, &
-0.4227e-04, -0.7201e-04, -0.1174e-03, -0.1825e-03, -0.2710e-03, &
-0.3861e-03, -0.5313e-03, -0.7095e-03, -0.9203e-03, -0.1158e-02, &
-0.1417e-02, -0.1691e-02, -0.1968e-02, -0.2200e-02, -0.2320e-02, &
-0.2263e-02, -0.1998e-02, -0.1563e-02, -0.1068e-02, -0.6300e-03, &
-0.3174e-03/
data ((h23(ip,iw),iw=1,31), ip=25,25)/ &
-0.2520e-09, -0.5016e-09, -0.9963e-09, -0.1971e-08, -0.3867e-08, &
-0.7500e-08, -0.1427e-07, -0.2634e-07, -0.4656e-07, -0.7753e-07, &
-0.1196e-06, -0.1683e-06, -0.2113e-06, -0.2309e-06, -0.2119e-06, &
-0.1518e-06, -0.5200e-07, 0.9274e-07, 0.2973e-06, 0.5714e-06, &
0.8687e-06, 0.1152e-05, 0.1621e-05, 0.2634e-05, 0.4310e-05, &
0.6418e-05, 0.8347e-05, 0.9162e-05, 0.8319e-05, 0.6209e-05, &
0.3844e-05/
data ((h21(ip,iw),iw=1,31), ip=26,26)/ &
0.99999601, 0.99999207, 0.99998420, 0.99996847, 0.99993718, &
0.99987501, 0.99975210, 0.99951041, 0.99904078, 0.99814302, &
0.99646801, 0.99344200, 0.98819000, 0.97952002, 0.96597999, &
0.94600999, 0.91812003, 0.88099998, 0.83359998, 0.77569997, &
0.70669997, 0.62529999, 0.53049999, 0.42449999, 0.31419998, &
0.20969999, 0.12269998, 0.06089997, 0.02420002, 0.00660002, &
0.00040001/
data ((h22(ip,iw),iw=1,31), ip=26,26)/ &
-0.5954e-07, -0.1187e-06, -0.2366e-06, -0.4709e-06, -0.9349e-06, &
-0.1849e-05, -0.3632e-05, -0.7058e-05, -0.1350e-04, -0.2521e-04, &
-0.4564e-04, -0.7958e-04, -0.1329e-03, -0.2114e-03, -0.3200e-03, &
-0.4611e-03, -0.6353e-03, -0.8409e-03, -0.1072e-02, -0.1324e-02, &
-0.1592e-02, -0.1871e-02, -0.2127e-02, -0.2297e-02, -0.2312e-02, &
-0.2123e-02, -0.1738e-02, -0.1247e-02, -0.7744e-03, -0.4117e-03, &
-0.1850e-03/
data ((h23(ip,iw),iw=1,31), ip=26,26)/ &
-0.2522e-09, -0.5025e-09, -0.9997e-09, -0.1983e-08, -0.3912e-08, &
-0.7650e-08, -0.1474e-07, -0.2777e-07, -0.5055e-07, -0.8745e-07, &
-0.1414e-06, -0.2095e-06, -0.2790e-06, -0.3241e-06, -0.3135e-06, &
-0.2269e-06, -0.5896e-07, 0.1875e-06, 0.4996e-06, 0.8299e-06, &
0.1115e-05, 0.1467e-05, 0.2236e-05, 0.3672e-05, 0.5668e-05, &
0.7772e-05, 0.9094e-05, 0.8827e-05, 0.7041e-05, 0.4638e-05, &
0.2539e-05/
data ((h81(ip,iw),iw=1,31), ip= 1, 1)/ &
0.99998659, 0.99997360, 0.99994862, 0.99990171, 0.99981678, &
0.99967158, 0.99944150, 0.99910933, 0.99867302, 0.99814397, &
0.99753898, 0.99686199, 0.99610198, 0.99523401, 0.99421698, &
0.99299300, 0.99147898, 0.98958999, 0.98721999, 0.98430002, &
0.98071998, 0.97639000, 0.97115999, 0.96480000, 0.95695001, &
0.94713998, 0.93469000, 0.91873002, 0.89810002, 0.87129998, &
0.83679998/
data ((h82(ip,iw),iw=1,31), ip= 1, 1)/ &
-0.5685e-08, -0.1331e-07, -0.3249e-07, -0.8137e-07, -0.2048e-06, &
-0.4973e-06, -0.1118e-05, -0.2246e-05, -0.3982e-05, -0.6290e-05, &
-0.9040e-05, -0.1215e-04, -0.1567e-04, -0.1970e-04, -0.2449e-04, &
-0.3046e-04, -0.3798e-04, -0.4725e-04, -0.5831e-04, -0.7123e-04, &
-0.8605e-04, -0.1028e-03, -0.1212e-03, -0.1413e-03, -0.1635e-03, &
-0.1884e-03, -0.2160e-03, -0.2461e-03, -0.2778e-03, -0.3098e-03, &
-0.3411e-03/
data ((h83(ip,iw),iw=1,31), ip= 1, 1)/ &
0.2169e-10, 0.5237e-10, 0.1296e-09, 0.3204e-09, 0.7665e-09, &
0.1691e-08, 0.3222e-08, 0.5110e-08, 0.6779e-08, 0.7681e-08, &
0.7378e-08, 0.5836e-08, 0.3191e-08, -0.1491e-08, -0.1022e-07, &
-0.2359e-07, -0.3957e-07, -0.5553e-07, -0.6927e-07, -0.7849e-07, &
-0.8139e-07, -0.7853e-07, -0.7368e-07, -0.7220e-07, -0.7780e-07, &
-0.9091e-07, -0.1038e-06, -0.9929e-07, -0.5422e-07, 0.5379e-07, &
0.2350e-06/
data ((h81(ip,iw),iw=1,31), ip= 2, 2)/ &
0.99998659, 0.99997360, 0.99994862, 0.99990171, 0.99981678, &
0.99967158, 0.99944139, 0.99910921, 0.99867302, 0.99814397, &
0.99753797, 0.99686003, 0.99609798, 0.99522603, 0.99420297, &
0.99296701, 0.99142998, 0.98949999, 0.98706001, 0.98400998, &
0.98021001, 0.97552001, 0.96976000, 0.96262002, 0.95367002, &
0.94234002, 0.92781997, 0.90903997, 0.88459998, 0.85290003, &
0.81200004/
data ((h82(ip,iw),iw=1,31), ip= 2, 2)/ &
-0.5684e-08, -0.1331e-07, -0.3248e-07, -0.8133e-07, -0.2047e-06, &
-0.4971e-06, -0.1117e-05, -0.2245e-05, -0.3981e-05, -0.6287e-05, &
-0.9035e-05, -0.1215e-04, -0.1565e-04, -0.1967e-04, -0.2444e-04, &
-0.3036e-04, -0.3780e-04, -0.4694e-04, -0.5779e-04, -0.7042e-04, &
-0.8491e-04, -0.1013e-03, -0.1196e-03, -0.1399e-03, -0.1625e-03, &
-0.1879e-03, -0.2163e-03, -0.2474e-03, -0.2803e-03, -0.3140e-03, &
-0.3478e-03/
data ((h83(ip,iw),iw=1,31), ip= 2, 2)/ &
0.2168e-10, 0.5242e-10, 0.1295e-09, 0.3201e-09, 0.7662e-09, &
0.1690e-08, 0.3220e-08, 0.5106e-08, 0.6776e-08, 0.7673e-08, &
0.7362e-08, 0.5808e-08, 0.3138e-08, -0.1595e-08, -0.1041e-07, &
-0.2390e-07, -0.4010e-07, -0.5636e-07, -0.7045e-07, -0.7972e-07, &
-0.8178e-07, -0.7677e-07, -0.6876e-07, -0.6381e-07, -0.6583e-07, &
-0.7486e-07, -0.8229e-07, -0.7017e-07, -0.1497e-07, 0.1051e-06, &
0.2990e-06/
data ((h81(ip,iw),iw=1,31), ip= 3, 3)/ &
0.99998659, 0.99997360, 0.99994862, 0.99990171, 0.99981678, &
0.99967152, 0.99944133, 0.99910891, 0.99867201, 0.99814302, &
0.99753499, 0.99685597, 0.99609101, 0.99521297, 0.99418002, &
0.99292499, 0.99135399, 0.98935997, 0.98681003, 0.98356998, &
0.97947001, 0.97430998, 0.96784997, 0.95972002, 0.94941002, &
0.93620002, 0.91912001, 0.89690000, 0.86790001, 0.83020002, &
0.78210002/
data ((h82(ip,iw),iw=1,31), ip= 3, 3)/ &
-0.5682e-08, -0.1330e-07, -0.3247e-07, -0.8129e-07, -0.2046e-06, &
-0.4968e-06, -0.1117e-05, -0.2244e-05, -0.3978e-05, -0.6283e-05, &
-0.9027e-05, -0.1213e-04, -0.1563e-04, -0.1963e-04, -0.2436e-04, &
-0.3021e-04, -0.3754e-04, -0.4649e-04, -0.5709e-04, -0.6940e-04, &
-0.8359e-04, -0.9986e-04, -0.1182e-03, -0.1388e-03, -0.1620e-03, &
-0.1882e-03, -0.2175e-03, -0.2498e-03, -0.2843e-03, -0.3203e-03, &
-0.3573e-03/
data ((h83(ip,iw),iw=1,31), ip= 3, 3)/ &
0.2167e-10, 0.5238e-10, 0.1294e-09, 0.3198e-09, 0.7656e-09, &
0.1688e-08, 0.3217e-08, 0.5104e-08, 0.6767e-08, 0.7661e-08, &
0.7337e-08, 0.5764e-08, 0.3051e-08, -0.1752e-08, -0.1068e-07, &
-0.2436e-07, -0.4081e-07, -0.5740e-07, -0.7165e-07, -0.8046e-07, &
-0.8082e-07, -0.7289e-07, -0.6141e-07, -0.5294e-07, -0.5134e-07, &
-0.5552e-07, -0.5609e-07, -0.3464e-07, 0.3275e-07, 0.1669e-06, &
0.3745e-06/
data ((h81(ip,iw),iw=1,31), ip= 4, 4)/ &
0.99998659, 0.99997360, 0.99994862, 0.99990171, 0.99981678, &
0.99967140, 0.99944109, 0.99910849, 0.99867100, 0.99814099, &
0.99753201, 0.99685001, 0.99607998, 0.99519402, 0.99414498, &
0.99286002, 0.99123698, 0.98914999, 0.98644000, 0.98293000, &
0.97842002, 0.97263998, 0.96529001, 0.95592999, 0.94392002, &
0.92839003, 0.90815997, 0.88169998, 0.84720004, 0.80269998, &
0.74629998/
data ((h82(ip,iw),iw=1,31), ip= 4, 4)/ &
-0.5680e-08, -0.1329e-07, -0.3243e-07, -0.8121e-07, -0.2044e-06, &
-0.4963e-06, -0.1115e-05, -0.2242e-05, -0.3974e-05, -0.6276e-05, &
-0.9015e-05, -0.1211e-04, -0.1559e-04, -0.1956e-04, -0.2423e-04, &
-0.2999e-04, -0.3716e-04, -0.4588e-04, -0.5618e-04, -0.6818e-04, &
-0.8218e-04, -0.9847e-04, -0.1171e-03, -0.1382e-03, -0.1621e-03, &
-0.1892e-03, -0.2197e-03, -0.2535e-03, -0.2902e-03, -0.3293e-03, &
-0.3700e-03/
data ((h83(ip,iw),iw=1,31), ip= 4, 4)/ &
0.2166e-10, 0.5229e-10, 0.1294e-09, 0.3193e-09, 0.7644e-09, &
0.1686e-08, 0.3213e-08, 0.5092e-08, 0.6753e-08, 0.7640e-08, &
0.7302e-08, 0.5696e-08, 0.2917e-08, -0.1984e-08, -0.1108e-07, &
-0.2497e-07, -0.4171e-07, -0.5849e-07, -0.7254e-07, -0.8017e-07, &
-0.7802e-07, -0.6662e-07, -0.5153e-07, -0.3961e-07, -0.3387e-07, &
-0.3219e-07, -0.2426e-07, 0.8700e-08, 0.9027e-07, 0.2400e-06, &
0.4623e-06/
data ((h81(ip,iw),iw=1,31), ip= 5, 5)/ &
0.99998659, 0.99997360, 0.99994862, 0.99990165, 0.99981672, &
0.99967128, 0.99944091, 0.99910778, 0.99866998, 0.99813801, &
0.99752700, 0.99684101, 0.99606299, 0.99516302, 0.99408901, &
0.99276000, 0.99105698, 0.98882997, 0.98588997, 0.98202002, &
0.97696000, 0.97039002, 0.96192998, 0.95104003, 0.93691999, &
0.91851997, 0.89440000, 0.86290002, 0.82200003, 0.76969999, &
0.70420003/
data ((h82(ip,iw),iw=1,31), ip= 5, 5)/ &
-0.5675e-08, -0.1328e-07, -0.3239e-07, -0.8110e-07, -0.2040e-06, &
-0.4954e-06, -0.1114e-05, -0.2238e-05, -0.3968e-05, -0.6265e-05, &
-0.8996e-05, -0.1208e-04, -0.1553e-04, -0.1945e-04, -0.2404e-04, &
-0.2966e-04, -0.3663e-04, -0.4508e-04, -0.5508e-04, -0.6686e-04, &
-0.8082e-04, -0.9732e-04, -0.1165e-03, -0.1382e-03, -0.1630e-03, &
-0.1913e-03, -0.2234e-03, -0.2593e-03, -0.2989e-03, -0.3417e-03, &
-0.3857e-03/
data ((h83(ip,iw),iw=1,31), ip= 5, 5)/ &
0.2163e-10, 0.5209e-10, 0.1291e-09, 0.3186e-09, 0.7626e-09, &
0.1682e-08, 0.3203e-08, 0.5078e-08, 0.6730e-08, 0.7606e-08, &
0.7246e-08, 0.5592e-08, 0.2735e-08, -0.2325e-08, -0.1162e-07, &
-0.2576e-07, -0.4268e-07, -0.5938e-07, -0.7262e-07, -0.7827e-07, &
-0.7297e-07, -0.5786e-07, -0.3930e-07, -0.2373e-07, -0.1295e-07, &
-0.3728e-08, 0.1465e-07, 0.6114e-07, 0.1590e-06, 0.3257e-06, &
0.5622e-06/
data ((h81(ip,iw),iw=1,31), ip= 6, 6)/ &
0.99998659, 0.99997360, 0.99994862, 0.99990165, 0.99981672, &
0.99967122, 0.99944037, 0.99910682, 0.99866802, 0.99813402, &
0.99751902, 0.99682599, 0.99603701, 0.99511498, 0.99400300, &
0.99260598, 0.99078500, 0.98835999, 0.98510998, 0.98075998, &
0.97499001, 0.96741998, 0.95757002, 0.94476998, 0.92804998, &
0.90613002, 0.87739998, 0.83990002, 0.79159999, 0.73049998, &
0.65540004/
data ((h82(ip,iw),iw=1,31), ip= 6, 6)/ &
-0.5671e-08, -0.1326e-07, -0.3234e-07, -0.8091e-07, -0.2035e-06, &
-0.4941e-06, -0.1111e-05, -0.2232e-05, -0.3958e-05, -0.6247e-05, &
-0.8966e-05, -0.1202e-04, -0.1544e-04, -0.1929e-04, -0.2377e-04, &
-0.2921e-04, -0.3593e-04, -0.4409e-04, -0.5385e-04, -0.6555e-04, &
-0.7965e-04, -0.9656e-04, -0.1163e-03, -0.1390e-03, -0.1649e-03, &
-0.1947e-03, -0.2288e-03, -0.2675e-03, -0.3109e-03, -0.3575e-03, &
-0.4039e-03/
data ((h83(ip,iw),iw=1,31), ip= 6, 6)/ &
0.2155e-10, 0.5188e-10, 0.1288e-09, 0.3175e-09, 0.7599e-09, &
0.1675e-08, 0.3190e-08, 0.5059e-08, 0.6699e-08, 0.7551e-08, &
0.7154e-08, 0.5435e-08, 0.2452e-08, -0.2802e-08, -0.1235e-07, &
-0.2668e-07, -0.4353e-07, -0.5962e-07, -0.7134e-07, -0.7435e-07, &
-0.6551e-07, -0.4676e-07, -0.2475e-07, -0.4876e-08, 0.1235e-07, &
0.3092e-07, 0.6192e-07, 0.1243e-06, 0.2400e-06, 0.4247e-06, &
0.6755e-06/
data ((h81(ip,iw),iw=1,31), ip= 7, 7)/ &
0.99998659, 0.99997360, 0.99994862, 0.99990165, 0.99981660, &
0.99967092, 0.99943972, 0.99910510, 0.99866402, 0.99812698, &
0.99750602, 0.99680197, 0.99599499, 0.99504000, 0.99387002, &
0.99237198, 0.99038202, 0.98768002, 0.98400998, 0.97903001, &
0.97236001, 0.96354002, 0.95196998, 0.93681002, 0.91688001, &
0.89069998, 0.85640001, 0.81190002, 0.75520003, 0.68470001, &
0.59990001/
data ((h82(ip,iw),iw=1,31), ip= 7, 7)/ &
-0.5665e-08, -0.1322e-07, -0.3224e-07, -0.8063e-07, -0.2027e-06, &
-0.4921e-06, -0.1106e-05, -0.2223e-05, -0.3942e-05, -0.6220e-05, &
-0.8920e-05, -0.1194e-04, -0.1530e-04, -0.1905e-04, -0.2337e-04, &
-0.2860e-04, -0.3505e-04, -0.4296e-04, -0.5259e-04, -0.6439e-04, &
-0.7884e-04, -0.9635e-04, -0.1170e-03, -0.1407e-03, -0.1681e-03, &
-0.1998e-03, -0.2366e-03, -0.2790e-03, -0.3265e-03, -0.3763e-03, &
-0.4235e-03/
data ((h83(ip,iw),iw=1,31), ip= 7, 7)/ &
0.2157e-10, 0.5178e-10, 0.1283e-09, 0.3162e-09, 0.7558e-09, &
0.1665e-08, 0.3169e-08, 0.5027e-08, 0.6645e-08, 0.7472e-08, &
0.7017e-08, 0.5212e-08, 0.2059e-08, -0.3443e-08, -0.1321e-07, &
-0.2754e-07, -0.4389e-07, -0.5869e-07, -0.6825e-07, -0.6819e-07, &
-0.5570e-07, -0.3343e-07, -0.7592e-08, 0.1778e-07, 0.4322e-07, &
0.7330e-07, 0.1190e-06, 0.1993e-06, 0.3348e-06, 0.5376e-06, &
0.8030e-06/
data ((h81(ip,iw),iw=1,31), ip= 8, 8)/ &
0.99998659, 0.99997360, 0.99994856, 0.99990159, 0.99981642, &
0.99967051, 0.99943858, 0.99910247, 0.99865901, 0.99811602, &
0.99748600, 0.99676597, 0.99592900, 0.99492502, 0.99366802, &
0.99202400, 0.98979002, 0.98672003, 0.98249000, 0.97671002, &
0.96890998, 0.95854002, 0.94483000, 0.92675000, 0.90289998, &
0.87160003, 0.83069998, 0.77829999, 0.71239996, 0.63209999, &
0.53839999/
data ((h82(ip,iw),iw=1,31), ip= 8, 8)/ &
-0.5652e-08, -0.1318e-07, -0.3210e-07, -0.8018e-07, -0.2014e-06, &
-0.4888e-06, -0.1099e-05, -0.2210e-05, -0.3918e-05, -0.6179e-05, &
-0.8849e-05, -0.1182e-04, -0.1509e-04, -0.1871e-04, -0.2284e-04, &
-0.2782e-04, -0.3403e-04, -0.4177e-04, -0.5145e-04, -0.6354e-04, &
-0.7853e-04, -0.9681e-04, -0.1185e-03, -0.1437e-03, -0.1729e-03, &
-0.2072e-03, -0.2475e-03, -0.2942e-03, -0.3457e-03, -0.3973e-03, &
-0.4434e-03/
data ((h83(ip,iw),iw=1,31), ip= 8, 8)/ &
0.2153e-10, 0.5151e-10, 0.1273e-09, 0.3136e-09, 0.7488e-09, &
0.1649e-08, 0.3142e-08, 0.4980e-08, 0.6559e-08, 0.7346e-08, &
0.6813e-08, 0.4884e-08, 0.1533e-08, -0.4209e-08, -0.1409e-07, &
-0.2801e-07, -0.4320e-07, -0.5614e-07, -0.6312e-07, -0.5976e-07, &
-0.4369e-07, -0.1775e-07, 0.1280e-07, 0.4534e-07, 0.8106e-07, &
0.1246e-06, 0.1874e-06, 0.2873e-06, 0.4433e-06, 0.6651e-06, &
0.9477e-06/
data ((h81(ip,iw),iw=1,31), ip= 9, 9)/ &
0.99998659, 0.99997360, 0.99994856, 0.99990153, 0.99981618, &
0.99966979, 0.99943691, 0.99909842, 0.99865001, 0.99809903, &
0.99745399, 0.99670798, 0.99582899, 0.99475002, 0.99336600, &
0.99151403, 0.98896003, 0.98540002, 0.98044997, 0.97364998, &
0.96445000, 0.95213997, 0.93579000, 0.91412002, 0.88550001, &
0.84810001, 0.79970002, 0.73850000, 0.66280001, 0.57309997, &
0.47189999/
data ((h82(ip,iw),iw=1,31), ip= 9, 9)/ &
-0.5629e-08, -0.1310e-07, -0.3186e-07, -0.7948e-07, -0.1995e-06, &
-0.4837e-06, -0.1088e-05, -0.2188e-05, -0.3880e-05, -0.6115e-05, &
-0.8743e-05, -0.1165e-04, -0.1480e-04, -0.1824e-04, -0.2216e-04, &
-0.2691e-04, -0.3293e-04, -0.4067e-04, -0.5057e-04, -0.6314e-04, &
-0.7885e-04, -0.9813e-04, -0.1212e-03, -0.1482e-03, -0.1799e-03, &
-0.2175e-03, -0.2622e-03, -0.3135e-03, -0.3678e-03, -0.4193e-03, &
-0.4627e-03/
data ((h83(ip,iw),iw=1,31), ip= 9, 9)/ &
0.2121e-10, 0.5076e-10, 0.1257e-09, 0.3091e-09, 0.7379e-09, &
0.1623e-08, 0.3097e-08, 0.4904e-08, 0.6453e-08, 0.7168e-08, &
0.6534e-08, 0.4458e-08, 0.8932e-09, -0.5026e-08, -0.1469e-07, &
-0.2765e-07, -0.4103e-07, -0.5169e-07, -0.5585e-07, -0.4913e-07, &
-0.2954e-07, 0.6372e-09, 0.3738e-07, 0.7896e-07, 0.1272e-06, &
0.1867e-06, 0.2682e-06, 0.3895e-06, 0.5672e-06, 0.8091e-06, &
0.1114e-05/
data ((h81(ip,iw),iw=1,31), ip=10,10)/ &
0.99998659, 0.99997360, 0.99994850, 0.99990141, 0.99981582, &
0.99966878, 0.99943417, 0.99909198, 0.99863601, 0.99807203, &
0.99740499, 0.99662101, 0.99567503, 0.99448699, 0.99292302, &
0.99078500, 0.98780000, 0.98360002, 0.97773999, 0.96968001, &
0.95872998, 0.94401997, 0.92440999, 0.89840001, 0.86409998, &
0.81959999, 0.76279998, 0.69190001, 0.60650003, 0.50839996, &
0.40249997/
data ((h82(ip,iw),iw=1,31), ip=10,10)/ &
-0.5597e-08, -0.1300e-07, -0.3148e-07, -0.7838e-07, -0.1964e-06, &
-0.4759e-06, -0.1071e-05, -0.2155e-05, -0.3822e-05, -0.6019e-05, &
-0.8586e-05, -0.1139e-04, -0.1439e-04, -0.1764e-04, -0.2134e-04, &
-0.2591e-04, -0.3188e-04, -0.3978e-04, -0.5011e-04, -0.6334e-04, &
-0.7998e-04, -0.1006e-03, -0.1253e-03, -0.1547e-03, -0.1895e-03, &
-0.2315e-03, -0.2811e-03, -0.3363e-03, -0.3917e-03, -0.4413e-03, &
-0.4809e-03/
data ((h83(ip,iw),iw=1,31), ip=10,10)/ &
0.2109e-10, 0.5017e-10, 0.1235e-09, 0.3021e-09, 0.7217e-09, &
0.1585e-08, 0.3028e-08, 0.4796e-08, 0.6285e-08, 0.6910e-08, &
0.6178e-08, 0.3945e-08, 0.2436e-09, -0.5632e-08, -0.1464e-07, &
-0.2596e-07, -0.3707e-07, -0.4527e-07, -0.4651e-07, -0.3644e-07, &
-0.1296e-07, 0.2250e-07, 0.6722e-07, 0.1202e-06, 0.1831e-06, &
0.2605e-06, 0.3627e-06, 0.5062e-06, 0.7064e-06, 0.9725e-06, &
0.1304e-05/
data ((h81(ip,iw),iw=1,31), ip=11,11)/ &
0.99998659, 0.99997354, 0.99994850, 0.99990124, 0.99981529, &
0.99966723, 0.99942988, 0.99908209, 0.99861503, 0.99803102, &
0.99732900, 0.99648702, 0.99544603, 0.99409997, 0.99228698, &
0.98977000, 0.98620999, 0.98120999, 0.97421998, 0.96458000, &
0.95146000, 0.93378001, 0.91017002, 0.87889999, 0.83810002, &
0.78549999, 0.71930003, 0.63859999, 0.54409999, 0.43970001, &
0.33249998/
data ((h82(ip,iw),iw=1,31), ip=11,11)/ &
-0.5538e-08, -0.1280e-07, -0.3089e-07, -0.7667e-07, -0.1917e-06, &
-0.4642e-06, -0.1045e-05, -0.2106e-05, -0.3736e-05, -0.5878e-05, &
-0.8363e-05, -0.1104e-04, -0.1387e-04, -0.1692e-04, -0.2044e-04, &
-0.2493e-04, -0.3101e-04, -0.3926e-04, -0.5020e-04, -0.6429e-04, &
-0.8213e-04, -0.1044e-03, -0.1314e-03, -0.1637e-03, -0.2027e-03, &
-0.2498e-03, -0.3042e-03, -0.3617e-03, -0.4163e-03, -0.4625e-03, &
-0.4969e-03/
data ((h83(ip,iw),iw=1,31), ip=11,11)/ &
0.2067e-10, 0.4903e-10, 0.1200e-09, 0.2917e-09, 0.6965e-09, &
0.1532e-08, 0.2925e-08, 0.4632e-08, 0.6054e-08, 0.6590e-08, &
0.5746e-08, 0.3436e-08, -0.2251e-09, -0.5703e-08, -0.1344e-07, &
-0.2256e-07, -0.3120e-07, -0.3690e-07, -0.3520e-07, -0.2164e-07, &
0.6510e-08, 0.4895e-07, 0.1037e-06, 0.1702e-06, 0.2502e-06, &
0.3472e-06, 0.4710e-06, 0.6379e-06, 0.8633e-06, 0.1159e-05, &
0.1514e-05/
data ((h81(ip,iw),iw=1,31), ip=12,12)/ &
0.99998659, 0.99997354, 0.99994838, 0.99990094, 0.99981439, &
0.99966472, 0.99942350, 0.99906689, 0.99858302, 0.99796802, &
0.99721497, 0.99628800, 0.99510801, 0.99354398, 0.99139601, &
0.98838001, 0.98409998, 0.97807997, 0.96967000, 0.95806998, &
0.94226003, 0.92093998, 0.89249998, 0.85510004, 0.80659997, &
0.74510002, 0.66909999, 0.57870001, 0.47680002, 0.36919999, &
0.26520002/
data ((h82(ip,iw),iw=1,31), ip=12,12)/ &
-0.5476e-08, -0.1257e-07, -0.3008e-07, -0.7418e-07, -0.1848e-06, &
-0.4468e-06, -0.1006e-05, -0.2032e-05, -0.3611e-05, -0.5679e-05, &
-0.8058e-05, -0.1059e-04, -0.1324e-04, -0.1612e-04, -0.1956e-04, &
-0.2411e-04, -0.3046e-04, -0.3925e-04, -0.5098e-04, -0.6619e-04, &
-0.8562e-04, -0.1100e-03, -0.1399e-03, -0.1761e-03, -0.2202e-03, &
-0.2726e-03, -0.3306e-03, -0.3885e-03, -0.4404e-03, -0.4820e-03, &
-0.5082e-03/
data ((h83(ip,iw),iw=1,31), ip=12,12)/ &
0.2041e-10, 0.4771e-10, 0.1149e-09, 0.2782e-09, 0.6614e-09, &
0.1451e-08, 0.2778e-08, 0.4401e-08, 0.5736e-08, 0.6189e-08, &
0.5315e-08, 0.3087e-08, -0.2518e-09, -0.4806e-08, -0.1071e-07, &
-0.1731e-07, -0.2346e-07, -0.2659e-07, -0.2184e-07, -0.4261e-08, &
0.2975e-07, 0.8112e-07, 0.1484e-06, 0.2308e-06, 0.3296e-06, &
0.4475e-06, 0.5942e-06, 0.7859e-06, 0.1041e-05, 0.1369e-05, &
0.1726e-05/
data ((h81(ip,iw),iw=1,31), ip=13,13)/ &
0.99998653, 0.99997348, 0.99994826, 0.99990052, 0.99981320, &
0.99966109, 0.99941391, 0.99904412, 0.99853402, 0.99787498, &
0.99704498, 0.99599600, 0.99462402, 0.99276501, 0.99017602, &
0.98651999, 0.98133999, 0.97403997, 0.96386999, 0.94984001, &
0.93071002, 0.90495998, 0.87080002, 0.82620001, 0.76910001, &
0.69790000, 0.61199999, 0.51320004, 0.40640002, 0.29970002, &
0.20359999/
data ((h82(ip,iw),iw=1,31), ip=13,13)/ &
-0.5362e-08, -0.1223e-07, -0.2895e-07, -0.7071e-07, -0.1748e-06, &
-0.4219e-06, -0.9516e-06, -0.1928e-05, -0.3436e-05, -0.5409e-05, &
-0.7666e-05, -0.1005e-04, -0.1254e-04, -0.1533e-04, -0.1880e-04, &
-0.2358e-04, -0.3038e-04, -0.3988e-04, -0.5264e-04, -0.6934e-04, &
-0.9083e-04, -0.1179e-03, -0.1515e-03, -0.1927e-03, -0.2424e-03, &
-0.2994e-03, -0.3591e-03, -0.4155e-03, -0.4634e-03, -0.4982e-03, &
-0.5096e-03/
data ((h83(ip,iw),iw=1,31), ip=13,13)/ &
0.1976e-10, 0.4551e-10, 0.1086e-09, 0.2601e-09, 0.6126e-09, &
0.1345e-08, 0.2583e-08, 0.4112e-08, 0.5365e-08, 0.5796e-08, &
0.5031e-08, 0.3182e-08, 0.5970e-09, -0.2547e-08, -0.6172e-08, &
-0.1017e-07, -0.1388e-07, -0.1430e-07, -0.6118e-08, 0.1624e-07, &
0.5791e-07, 0.1205e-06, 0.2025e-06, 0.3032e-06, 0.4225e-06, &
0.5619e-06, 0.7322e-06, 0.9528e-06, 0.1243e-05, 0.1592e-05, &
0.1904e-05/
data ((h81(ip,iw),iw=1,31), ip=14,14)/ &
0.99998653, 0.99997348, 0.99994808, 0.99989992, 0.99981129, &
0.99965578, 0.99939990, 0.99901080, 0.99846399, 0.99773800, &
0.99680001, 0.99558002, 0.99394703, 0.99169999, 0.98853999, &
0.98408002, 0.97776002, 0.96888000, 0.95652002, 0.93949002, &
0.91631001, 0.88529998, 0.84439999, 0.79159999, 0.72510004, &
0.64390004, 0.54890001, 0.44379997, 0.33560002, 0.23449999, &
0.15009999/
data ((h82(ip,iw),iw=1,31), ip=14,14)/ &
-0.5210e-08, -0.1172e-07, -0.2731e-07, -0.6598e-07, -0.1615e-06, &
-0.3880e-06, -0.8769e-06, -0.1787e-05, -0.3204e-05, -0.5066e-05, &
-0.7197e-05, -0.9451e-05, -0.1185e-04, -0.1465e-04, -0.1831e-04, &
-0.2346e-04, -0.3088e-04, -0.4132e-04, -0.5545e-04, -0.7410e-04, &
-0.9820e-04, -0.1288e-03, -0.1670e-03, -0.2140e-03, -0.2692e-03, &
-0.3293e-03, -0.3886e-03, -0.4417e-03, -0.4840e-03, -0.5073e-03, &
-0.4944e-03/
data ((h83(ip,iw),iw=1,31), ip=14,14)/ &
0.1880e-10, 0.4271e-10, 0.9966e-10, 0.2352e-09, 0.5497e-09, &
0.1205e-08, 0.2334e-08, 0.3765e-08, 0.4993e-08, 0.5532e-08, &
0.5148e-08, 0.4055e-08, 0.2650e-08, 0.1326e-08, 0.2019e-09, &
-0.1124e-08, -0.2234e-08, 0.2827e-09, 0.1247e-07, 0.4102e-07, &
0.9228e-07, 0.1682e-06, 0.2676e-06, 0.3885e-06, 0.5286e-06, &
0.6904e-06, 0.8871e-06, 0.1142e-05, 0.1466e-05, 0.1800e-05, &
0.2004e-05/
data ((h81(ip,iw),iw=1,31), ip=15,15)/ &
0.99998653, 0.99997336, 0.99994785, 0.99989909, 0.99980879, &
0.99964851, 0.99938041, 0.99896401, 0.99836302, 0.99754399, &
0.99645603, 0.99500400, 0.99302697, 0.99027801, 0.98640001, &
0.98092002, 0.97319001, 0.96234000, 0.94727999, 0.92657000, &
0.89850003, 0.86119998, 0.81260002, 0.75080001, 0.67429996, &
0.58350003, 0.48089999, 0.37250000, 0.26760000, 0.17650002, &
0.10610002/
data ((h82(ip,iw),iw=1,31), ip=15,15)/ &
-0.5045e-08, -0.1113e-07, -0.2540e-07, -0.6008e-07, -0.1449e-06, &
-0.3457e-06, -0.7826e-06, -0.1609e-05, -0.2920e-05, -0.4665e-05, &
-0.6691e-05, -0.8868e-05, -0.1127e-04, -0.1422e-04, -0.1820e-04, &
-0.2389e-04, -0.3213e-04, -0.4380e-04, -0.5975e-04, -0.8092e-04, &
-0.1083e-03, -0.1433e-03, -0.1873e-03, -0.2402e-03, -0.2997e-03, &
-0.3607e-03, -0.4178e-03, -0.4662e-03, -0.4994e-03, -0.5028e-03, &
-0.4563e-03/
data ((h83(ip,iw),iw=1,31), ip=15,15)/ &
0.1804e-10, 0.3983e-10, 0.9045e-10, 0.2080e-09, 0.4786e-09, &
0.1046e-08, 0.2052e-08, 0.3413e-08, 0.4704e-08, 0.5565e-08, &
0.5887e-08, 0.5981e-08, 0.6202e-08, 0.6998e-08, 0.8493e-08, &
0.1002e-07, 0.1184e-07, 0.1780e-07, 0.3483e-07, 0.7122e-07, &
0.1341e-06, 0.2259e-06, 0.3446e-06, 0.4866e-06, 0.6486e-06, &
0.8343e-06, 0.1063e-05, 0.1356e-05, 0.1690e-05, 0.1951e-05, &
0.2005e-05/
data ((h81(ip,iw),iw=1,31), ip=16,16)/ &
0.99998647, 0.99997330, 0.99994755, 0.99989808, 0.99980563, &
0.99963909, 0.99935490, 0.99890202, 0.99822801, 0.99728203, &
0.99599099, 0.99423301, 0.99181002, 0.98842001, 0.98364002, &
0.97689003, 0.96740001, 0.95414001, 0.93575001, 0.91060001, &
0.87680000, 0.83219999, 0.77490002, 0.70330000, 0.61689997, &
0.51750004, 0.40990001, 0.30239999, 0.20539999, 0.12750000, &
0.07150000/
data ((h82(ip,iw),iw=1,31), ip=16,16)/ &
-0.4850e-08, -0.1045e-07, -0.2334e-07, -0.5367e-07, -0.1265e-06, &
-0.2980e-06, -0.6750e-06, -0.1406e-05, -0.2601e-05, -0.4239e-05, &
-0.6201e-05, -0.8389e-05, -0.1091e-04, -0.1413e-04, -0.1859e-04, &
-0.2500e-04, -0.3432e-04, -0.4761e-04, -0.6595e-04, -0.9030e-04, &
-0.1219e-03, -0.1624e-03, -0.2126e-03, -0.2708e-03, -0.3327e-03, &
-0.3926e-03, -0.4458e-03, -0.4871e-03, -0.5045e-03, -0.4777e-03, &
-0.3954e-03/
data ((h83(ip,iw),iw=1,31), ip=16,16)/ &
0.1717e-10, 0.3723e-10, 0.8093e-10, 0.1817e-09, 0.4100e-09, &
0.8932e-09, 0.1791e-08, 0.3126e-08, 0.4634e-08, 0.6095e-08, &
0.7497e-08, 0.9170e-08, 0.1136e-07, 0.1453e-07, 0.1892e-07, &
0.2369e-07, 0.2909e-07, 0.3922e-07, 0.6232e-07, 0.1083e-06, &
0.1847e-06, 0.2943e-06, 0.4336e-06, 0.5970e-06, 0.7815e-06, &
0.9959e-06, 0.1263e-05, 0.1583e-05, 0.1880e-05, 0.2009e-05, &
0.1914e-05/
data ((h81(ip,iw),iw=1,31), ip=17,17)/ &
0.99998647, 0.99997318, 0.99994719, 0.99989688, 0.99980187, &
0.99962789, 0.99932390, 0.99882400, 0.99805701, 0.99694502, &
0.99538797, 0.99323398, 0.99023998, 0.98604000, 0.98013997, &
0.97182000, 0.96016002, 0.94391000, 0.92149997, 0.89100003, &
0.85049999, 0.79769999, 0.73089999, 0.64919996, 0.55350000, &
0.44760001, 0.33870000, 0.23670000, 0.15149999, 0.08810002, &
0.04570001/
data ((h82(ip,iw),iw=1,31), ip=17,17)/ &
-0.4673e-08, -0.9862e-08, -0.2135e-07, -0.4753e-07, -0.1087e-06, &
-0.2512e-06, -0.5671e-06, -0.1199e-05, -0.2281e-05, -0.3842e-05, &
-0.5804e-05, -0.8110e-05, -0.1088e-04, -0.1452e-04, -0.1961e-04, &
-0.2696e-04, -0.3768e-04, -0.5311e-04, -0.7444e-04, -0.1028e-03, &
-0.1397e-03, -0.1865e-03, -0.2427e-03, -0.3047e-03, -0.3667e-03, &
-0.4237e-03, -0.4712e-03, -0.5003e-03, -0.4921e-03, -0.4286e-03, &
-0.3188e-03/
data ((h83(ip,iw),iw=1,31), ip=17,17)/ &
0.1653e-10, 0.3436e-10, 0.7431e-10, 0.1605e-09, 0.3548e-09, &
0.7723e-09, 0.1595e-08, 0.2966e-08, 0.4849e-08, 0.7169e-08, &
0.1003e-07, 0.1366e-07, 0.1825e-07, 0.2419e-07, 0.3186e-07, &
0.4068e-07, 0.5064e-07, 0.6618e-07, 0.9684e-07, 0.1536e-06, &
0.2450e-06, 0.3730e-06, 0.5328e-06, 0.7184e-06, 0.9291e-06, &
0.1180e-05, 0.1484e-05, 0.1798e-05, 0.1992e-05, 0.1968e-05, &
0.1736e-05/
data ((h81(ip,iw),iw=1,31), ip=18,18)/ &
0.99998647, 0.99997312, 0.99994683, 0.99989569, 0.99979800, &
0.99961591, 0.99928999, 0.99873698, 0.99785602, 0.99653602, &
0.99464101, 0.99198103, 0.98825997, 0.98306000, 0.97574002, &
0.96548998, 0.95117003, 0.93129998, 0.90407002, 0.86739999, &
0.81910002, 0.75720000, 0.68040001, 0.58880001, 0.48530000, &
0.37610000, 0.27029997, 0.17830002, 0.10720003, 0.05790001, &
0.02740002/
data ((h82(ip,iw),iw=1,31), ip=18,18)/ &
-0.4532e-08, -0.9395e-08, -0.1978e-07, -0.4272e-07, -0.9442e-07, &
-0.2124e-06, -0.4747e-06, -0.1017e-05, -0.2003e-05, -0.3524e-05, &
-0.5567e-05, -0.8108e-05, -0.1127e-04, -0.1547e-04, -0.2138e-04, &
-0.2996e-04, -0.4251e-04, -0.6059e-04, -0.8563e-04, -0.1190e-03, &
-0.1623e-03, -0.2156e-03, -0.2767e-03, -0.3403e-03, -0.4006e-03, &
-0.4530e-03, -0.4912e-03, -0.4995e-03, -0.4563e-03, -0.3592e-03, &
-0.2383e-03/
data ((h83(ip,iw),iw=1,31), ip=18,18)/ &
0.1593e-10, 0.3276e-10, 0.6896e-10, 0.1476e-09, 0.3190e-09, &
0.6944e-09, 0.1474e-08, 0.2935e-08, 0.5300e-08, 0.8697e-08, &
0.1336e-07, 0.1946e-07, 0.2707e-07, 0.3637e-07, 0.4800e-07, &
0.6187e-07, 0.7806e-07, 0.1008e-06, 0.1404e-06, 0.2089e-06, &
0.3153e-06, 0.4613e-06, 0.6416e-06, 0.8506e-06, 0.1095e-05, &
0.1387e-05, 0.1708e-05, 0.1956e-05, 0.2003e-05, 0.1836e-05, &
0.1483e-05/
data ((h81(ip,iw),iw=1,31), ip=19,19)/ &
0.99998641, 0.99997300, 0.99994648, 0.99989462, 0.99979430, &
0.99960452, 0.99925661, 0.99864697, 0.99763900, 0.99607199, &
0.99376297, 0.99046898, 0.98584002, 0.97937000, 0.97031999, &
0.95766997, 0.94010001, 0.91588002, 0.88300002, 0.83920002, &
0.78230000, 0.71060002, 0.62360001, 0.52320004, 0.41450000, &
0.30589998, 0.20789999, 0.12900001, 0.07239997, 0.03590000, &
0.01539999/
data ((h82(ip,iw),iw=1,31), ip=19,19)/ &
-0.4448e-08, -0.9085e-08, -0.1877e-07, -0.3946e-07, -0.8472e-07, &
-0.1852e-06, -0.4074e-06, -0.8791e-06, -0.1789e-05, -0.3314e-05, &
-0.5521e-05, -0.8425e-05, -0.1215e-04, -0.1711e-04, -0.2407e-04, &
-0.3421e-04, -0.4905e-04, -0.7032e-04, -0.9985e-04, -0.1394e-03, &
-0.1897e-03, -0.2491e-03, -0.3132e-03, -0.3763e-03, -0.4332e-03, &
-0.4786e-03, -0.5005e-03, -0.4775e-03, -0.3970e-03, -0.2794e-03, &
-0.1652e-03/
data ((h83(ip,iw),iw=1,31), ip=19,19)/ &
0.1566e-10, 0.3219e-10, 0.6635e-10, 0.1400e-09, 0.2999e-09, &
0.6513e-09, 0.1406e-08, 0.2953e-08, 0.5789e-08, 0.1037e-07, &
0.1709e-07, 0.2623e-07, 0.3777e-07, 0.5159e-07, 0.6823e-07, &
0.8864e-07, 0.1134e-06, 0.1461e-06, 0.1960e-06, 0.2761e-06, &
0.3962e-06, 0.5583e-06, 0.7580e-06, 0.9957e-06, 0.1282e-05, &
0.1607e-05, 0.1898e-05, 0.2020e-05, 0.1919e-05, 0.1623e-05, &
0.1171e-05/
data ((h81(ip,iw),iw=1,31), ip=20,20)/ &
0.99998641, 0.99997294, 0.99994624, 0.99989372, 0.99979132, &
0.99959481, 0.99922693, 0.99856299, 0.99742502, 0.99558598, &
0.99278802, 0.98872000, 0.98295999, 0.97491002, 0.96368998, &
0.94812000, 0.92662001, 0.89719999, 0.85780001, 0.80599999, &
0.73969996, 0.65779996, 0.56130004, 0.45410001, 0.34369999, &
0.24030000, 0.15390003, 0.08950001, 0.04640001, 0.02090001, &
0.00800002/
data ((h82(ip,iw),iw=1,31), ip=20,20)/ &
-0.4403e-08, -0.8896e-08, -0.1818e-07, -0.3751e-07, -0.7880e-07, &
-0.1683e-06, -0.3640e-06, -0.7852e-06, -0.1640e-05, -0.3191e-05, &
-0.5634e-05, -0.9046e-05, -0.1355e-04, -0.1953e-04, -0.2786e-04, &
-0.3995e-04, -0.5752e-04, -0.8256e-04, -0.1174e-03, -0.1638e-03, &
-0.2211e-03, -0.2854e-03, -0.3507e-03, -0.4116e-03, -0.4633e-03, &
-0.4966e-03, -0.4921e-03, -0.4309e-03, -0.3215e-03, -0.2016e-03, &
-0.1061e-03/
data ((h83(ip,iw),iw=1,31), ip=20,20)/ &
0.1551e-10, 0.3147e-10, 0.6419e-10, 0.1356e-09, 0.2860e-09, &
0.6178e-09, 0.1353e-08, 0.2934e-08, 0.6095e-08, 0.1174e-07, &
0.2067e-07, 0.3346e-07, 0.5014e-07, 0.7024e-07, 0.9377e-07, &
0.1226e-06, 0.1592e-06, 0.2056e-06, 0.2678e-06, 0.3584e-06, &
0.4892e-06, 0.6651e-06, 0.8859e-06, 0.1160e-05, 0.1488e-05, &
0.1814e-05, 0.2010e-05, 0.1984e-05, 0.1748e-05, 0.1338e-05, &
0.8445e-06/
data ((h81(ip,iw),iw=1,31), ip=21,21)/ &
0.99998641, 0.99997288, 0.99994606, 0.99989301, 0.99978900, &
0.99958712, 0.99920273, 0.99849200, 0.99723101, 0.99511403, &
0.99177098, 0.98677999, 0.97962999, 0.96961999, 0.95573002, &
0.93658000, 0.91036999, 0.87500000, 0.82800001, 0.76730001, &
0.69110000, 0.59930003, 0.49479997, 0.38370001, 0.27590001, &
0.18210000, 0.10949999, 0.05919999, 0.02800000, 0.01130003, &
0.00389999/
data ((h82(ip,iw),iw=1,31), ip=21,21)/ &
-0.4379e-08, -0.8801e-08, -0.1782e-07, -0.3642e-07, -0.7536e-07, &
-0.1581e-06, -0.3366e-06, -0.7227e-06, -0.1532e-05, -0.3106e-05, &
-0.5810e-05, -0.9862e-05, -0.1540e-04, -0.2279e-04, -0.3292e-04, &
-0.4738e-04, -0.6817e-04, -0.9765e-04, -0.1384e-03, -0.1918e-03, &
-0.2551e-03, -0.3226e-03, -0.3876e-03, -0.4452e-03, -0.4883e-03, &
-0.5005e-03, -0.4598e-03, -0.3633e-03, -0.2416e-03, -0.1349e-03, &
-0.6278e-04/
data ((h83(ip,iw),iw=1,31), ip=21,21)/ &
0.1542e-10, 0.3111e-10, 0.6345e-10, 0.1310e-09, 0.2742e-09, &
0.5902e-09, 0.1289e-08, 0.2826e-08, 0.6103e-08, 0.1250e-07, &
0.2355e-07, 0.4041e-07, 0.6347e-07, 0.9217e-07, 0.1256e-06, &
0.1658e-06, 0.2175e-06, 0.2824e-06, 0.3607e-06, 0.4614e-06, &
0.6004e-06, 0.7880e-06, 0.1034e-05, 0.1349e-05, 0.1698e-05, &
0.1965e-05, 0.2021e-05, 0.1857e-05, 0.1500e-05, 0.1015e-05, &
0.5467e-06/
data ((h81(ip,iw),iw=1,31), ip=22,22)/ &
0.99998635, 0.99997288, 0.99994594, 0.99989259, 0.99978727, &
0.99958128, 0.99918407, 0.99843502, 0.99706697, 0.99468601, &
0.99077803, 0.98474997, 0.97593999, 0.96350998, 0.94633001, &
0.92282999, 0.89100003, 0.84860003, 0.79330003, 0.72299999, &
0.63670003, 0.53600001, 0.42580003, 0.31470001, 0.21410000, &
0.13300002, 0.07470000, 0.03710002, 0.01580000, 0.00580001, &
0.00169998/
data ((h82(ip,iw),iw=1,31), ip=22,22)/ &
-0.4366e-08, -0.8749e-08, -0.1761e-07, -0.3578e-07, -0.7322e-07, &
-0.1517e-06, -0.3189e-06, -0.6785e-06, -0.1446e-05, -0.3014e-05, &
-0.5933e-05, -0.1069e-04, -0.1755e-04, -0.2683e-04, -0.3936e-04, &
-0.5675e-04, -0.8137e-04, -0.1160e-03, -0.1630e-03, -0.2223e-03, &
-0.2899e-03, -0.3589e-03, -0.4230e-03, -0.4755e-03, -0.5031e-03, &
-0.4834e-03, -0.4036e-03, -0.2849e-03, -0.1687e-03, -0.8356e-04, &
-0.3388e-04/
data ((h83(ip,iw),iw=1,31), ip=22,22)/ &
0.1536e-10, 0.3086e-10, 0.6248e-10, 0.1288e-09, 0.2664e-09, &
0.5637e-09, 0.1222e-08, 0.2680e-08, 0.5899e-08, 0.1262e-07, &
0.2527e-07, 0.4621e-07, 0.7678e-07, 0.1165e-06, 0.1640e-06, &
0.2199e-06, 0.2904e-06, 0.3783e-06, 0.4787e-06, 0.5925e-06, &
0.7377e-06, 0.9389e-06, 0.1216e-05, 0.1560e-05, 0.1879e-05, &
0.2025e-05, 0.1940e-05, 0.1650e-05, 0.1194e-05, 0.6981e-06, &
0.3103e-06/
data ((h81(ip,iw),iw=1,31), ip=23,23)/ &
0.99998635, 0.99997282, 0.99994588, 0.99989229, 0.99978608, &
0.99957722, 0.99917048, 0.99839097, 0.99693698, 0.99432403, &
0.98987001, 0.98273998, 0.97201002, 0.95668000, 0.93548000, &
0.90671998, 0.86830002, 0.81800002, 0.75330001, 0.67299998, &
0.57720000, 0.46920002, 0.35659999, 0.25010002, 0.16049999, &
0.09350002, 0.04850000, 0.02179998, 0.00840002, 0.00269997, &
0.00070000/
data ((h82(ip,iw),iw=1,31), ip=23,23)/ &
-0.4359e-08, -0.8720e-08, -0.1749e-07, -0.3527e-07, -0.7175e-07, &
-0.1473e-06, -0.3062e-06, -0.6451e-06, -0.1372e-05, -0.2902e-05, &
-0.5936e-05, -0.1133e-04, -0.1971e-04, -0.3143e-04, -0.4715e-04, &
-0.6833e-04, -0.9759e-04, -0.1379e-03, -0.1907e-03, -0.2542e-03, &
-0.3239e-03, -0.3935e-03, -0.4559e-03, -0.4991e-03, -0.5009e-03, &
-0.4414e-03, -0.3306e-03, -0.2077e-03, -0.1093e-03, -0.4754e-04, &
-0.1642e-04/
data ((h83(ip,iw),iw=1,31), ip=23,23)/ &
0.1531e-10, 0.3070e-10, 0.6184e-10, 0.1257e-09, 0.2578e-09, &
0.5451e-09, 0.1159e-08, 0.2526e-08, 0.5585e-08, 0.1225e-07, &
0.2576e-07, 0.5017e-07, 0.8855e-07, 0.1417e-06, 0.2078e-06, &
0.2858e-06, 0.3802e-06, 0.4946e-06, 0.6226e-06, 0.7572e-06, &
0.9137e-06, 0.1133e-05, 0.1438e-05, 0.1772e-05, 0.1994e-05, &
0.1994e-05, 0.1779e-05, 0.1375e-05, 0.8711e-06, 0.4273e-06, &
0.1539e-06/
data ((h81(ip,iw),iw=1,31), ip=24,24)/ &
0.99998635, 0.99997282, 0.99994582, 0.99989212, 0.99978542, &
0.99957442, 0.99916071, 0.99835902, 0.99683702, 0.99403203, &
0.98908001, 0.98084998, 0.96805000, 0.94933999, 0.92330998, &
0.88830000, 0.84219998, 0.78270000, 0.70809996, 0.61759996, &
0.51330000, 0.40079999, 0.29000002, 0.19239998, 0.11619997, &
0.06300002, 0.02980000, 0.01200002, 0.00410002, 0.00120002, &
0.00019997/
data ((h82(ip,iw),iw=1,31), ip=24,24)/ &
-0.4354e-08, -0.8703e-08, -0.1742e-07, -0.3499e-07, -0.7074e-07, &
-0.1441e-06, -0.2971e-06, -0.6195e-06, -0.1309e-05, -0.2780e-05, &
-0.5823e-05, -0.1165e-04, -0.2152e-04, -0.3616e-04, -0.5604e-04, &
-0.8230e-04, -0.1173e-03, -0.1635e-03, -0.2211e-03, -0.2868e-03, &
-0.3567e-03, -0.4260e-03, -0.4844e-03, -0.5097e-03, -0.4750e-03, &
-0.3779e-03, -0.2522e-03, -0.1409e-03, -0.6540e-04, -0.2449e-04, &
-0.6948e-05/
data ((h83(ip,iw),iw=1,31), ip=24,24)/ &
0.1529e-10, 0.3060e-10, 0.6142e-10, 0.1241e-09, 0.2535e-09, &
0.5259e-09, 0.1107e-08, 0.2383e-08, 0.5243e-08, 0.1161e-07, &
0.2523e-07, 0.5188e-07, 0.9757e-07, 0.1657e-06, 0.2553e-06, &
0.3629e-06, 0.4878e-06, 0.6323e-06, 0.7923e-06, 0.9575e-06, &
0.1139e-05, 0.1381e-05, 0.1687e-05, 0.1952e-05, 0.2029e-05, &
0.1890e-05, 0.1552e-05, 0.1062e-05, 0.5728e-06, 0.2280e-06, &
0.6762e-07/
data ((h81(ip,iw),iw=1,31), ip=25,25)/ &
0.99998635, 0.99997282, 0.99994582, 0.99989200, 0.99978489, &
0.99957252, 0.99915391, 0.99833602, 0.99676299, 0.99380499, &
0.98843998, 0.97920001, 0.96427000, 0.94182003, 0.91018999, &
0.86769998, 0.81260002, 0.74300003, 0.65770000, 0.55750000, &
0.44660002, 0.33310002, 0.22860003, 0.14319998, 0.08090001, &
0.04030001, 0.01719999, 0.00620002, 0.00190002, 0.00040001, &
0.00000000/
data ((h82(ip,iw),iw=1,31), ip=25,25)/ &
-0.4352e-08, -0.8693e-08, -0.1738e-07, -0.3483e-07, -0.7006e-07, &
-0.1423e-06, -0.2905e-06, -0.6008e-06, -0.1258e-05, -0.2663e-05, &
-0.5638e-05, -0.1165e-04, -0.2270e-04, -0.4044e-04, -0.6554e-04, &
-0.9855e-04, -0.1407e-03, -0.1928e-03, -0.2534e-03, -0.3197e-03, &
-0.3890e-03, -0.4563e-03, -0.5040e-03, -0.4998e-03, -0.4249e-03, &
-0.3025e-03, -0.1794e-03, -0.8860e-04, -0.3575e-04, -0.1122e-04, &
-0.2506e-05/
data ((h83(ip,iw),iw=1,31), ip=25,25)/ &
0.1527e-10, 0.3053e-10, 0.6115e-10, 0.1230e-09, 0.2492e-09, &
0.5149e-09, 0.1068e-08, 0.2268e-08, 0.4932e-08, 0.1089e-07, &
0.2408e-07, 0.5156e-07, 0.1028e-06, 0.1859e-06, 0.3028e-06, &
0.4476e-06, 0.6124e-06, 0.7932e-06, 0.9879e-06, 0.1194e-05, &
0.1417e-05, 0.1673e-05, 0.1929e-05, 0.2064e-05, 0.1997e-05, &
0.1725e-05, 0.1267e-05, 0.7464e-06, 0.3312e-06, 0.1066e-06, &
0.2718e-07/
data ((h81(ip,iw),iw=1,31), ip=26,26)/ &
0.99998635, 0.99997282, 0.99994576, 0.99989188, 0.99978459, &
0.99957132, 0.99914938, 0.99831998, 0.99670899, 0.99363601, &
0.98794001, 0.97781998, 0.96087998, 0.93456000, 0.89670002, &
0.84560001, 0.78020000, 0.69920003, 0.60299999, 0.49400002, &
0.37910002, 0.26889998, 0.17460001, 0.10280001, 0.05379999, &
0.02429998, 0.00929999, 0.00300002, 0.00080001, 0.00010002, &
0.00000000/
data ((h82(ip,iw),iw=1,31), ip=26,26)/ &
-0.4351e-08, -0.8688e-08, -0.1736e-07, -0.3473e-07, -0.6966e-07, &
-0.1405e-06, -0.2857e-06, -0.5867e-06, -0.1218e-05, -0.2563e-05, &
-0.5435e-05, -0.1144e-04, -0.2321e-04, -0.4379e-04, -0.7487e-04, &
-0.1163e-03, -0.1670e-03, -0.2250e-03, -0.2876e-03, -0.3535e-03, &
-0.4215e-03, -0.4826e-03, -0.5082e-03, -0.4649e-03, -0.3564e-03, &
-0.2264e-03, -0.1188e-03, -0.5128e-04, -0.1758e-04, -0.4431e-05, &
-0.7275e-06/
data ((h83(ip,iw),iw=1,31), ip=26,26)/ &
0.1525e-10, 0.3048e-10, 0.6097e-10, 0.1223e-09, 0.2466e-09, &
0.5021e-09, 0.1032e-08, 0.2195e-08, 0.4688e-08, 0.1027e-07, &
0.2279e-07, 0.4999e-07, 0.1046e-06, 0.2009e-06, 0.3460e-06, &
0.5335e-06, 0.7478e-06, 0.9767e-06, 0.1216e-05, 0.1469e-05, &
0.1735e-05, 0.1977e-05, 0.2121e-05, 0.2103e-05, 0.1902e-05, &
0.1495e-05, 0.9541e-06, 0.4681e-06, 0.1672e-06, 0.4496e-07, &
0.9859e-08/
data ((c1(ip,iw),iw=1,30), ip= 1, 1)/ &
0.99985647, 0.99976432, 0.99963892, 0.99948031, 0.99927652, &
0.99899602, 0.99860001, 0.99804801, 0.99732202, 0.99640399, &
0.99526399, 0.99384302, 0.99204999, 0.98979002, 0.98694998, &
0.98334998, 0.97878999, 0.97307003, 0.96592999, 0.95722002, &
0.94660002, 0.93366003, 0.91777998, 0.89819998, 0.87419999, &
0.84500003, 0.81029999, 0.76989996, 0.72440004, 0.67490000/
data ((c2(ip,iw),iw=1,30), ip= 1, 1)/ &
-0.1841e-06, -0.4666e-06, -0.1050e-05, -0.2069e-05, -0.3601e-05, &
-0.5805e-05, -0.8863e-05, -0.1291e-04, -0.1806e-04, -0.2460e-04, &
-0.3317e-04, -0.4452e-04, -0.5944e-04, -0.7884e-04, -0.1036e-03, &
-0.1346e-03, -0.1727e-03, -0.2186e-03, -0.2728e-03, -0.3364e-03, &
-0.4102e-03, -0.4948e-03, -0.5890e-03, -0.6900e-03, -0.7930e-03, &
-0.8921e-03, -0.9823e-03, -0.1063e-02, -0.1138e-02, -0.1214e-02/
data ((c3(ip,iw),iw=1,30), ip= 1, 1)/ &
0.5821e-10, 0.5821e-10, -0.3201e-09, -0.1804e-08, -0.4336e-08, &
-0.7829e-08, -0.1278e-07, -0.1847e-07, -0.2827e-07, -0.4495e-07, &
-0.7126e-07, -0.1071e-06, -0.1524e-06, -0.2160e-06, -0.3014e-06, &
-0.4097e-06, -0.5349e-06, -0.6718e-06, -0.8125e-06, -0.9755e-06, &
-0.1157e-05, -0.1339e-05, -0.1492e-05, -0.1563e-05, -0.1485e-05, &
-0.1210e-05, -0.7280e-06, -0.1107e-06, 0.5369e-06, 0.1154e-05/
data ((c1(ip,iw),iw=1,30), ip= 2, 2)/ &
0.99985647, 0.99976432, 0.99963868, 0.99947977, 0.99927580, &
0.99899501, 0.99859601, 0.99804401, 0.99731201, 0.99638498, &
0.99523097, 0.99378198, 0.99194402, 0.98961002, 0.98664999, &
0.98286998, 0.97807002, 0.97200000, 0.96439999, 0.95503998, &
0.94352001, 0.92931998, 0.91175002, 0.88989997, 0.86300004, &
0.83039999, 0.79159999, 0.74710000, 0.69790000, 0.64579999/
data ((c2(ip,iw),iw=1,30), ip= 2, 2)/ &
-0.1831e-06, -0.4642e-06, -0.1048e-05, -0.2067e-05, -0.3596e-05, &
-0.5797e-05, -0.8851e-05, -0.1289e-04, -0.1802e-04, -0.2454e-04, &
-0.3307e-04, -0.4435e-04, -0.5916e-04, -0.7842e-04, -0.1031e-03, &
-0.1342e-03, -0.1725e-03, -0.2189e-03, -0.2739e-03, -0.3386e-03, &
-0.4138e-03, -0.5003e-03, -0.5968e-03, -0.7007e-03, -0.8076e-03, &
-0.9113e-03, -0.1007e-02, -0.1096e-02, -0.1181e-02, -0.1271e-02/
data ((c3(ip,iw),iw=1,30), ip= 2, 2)/ &
0.5821e-10, 0.5821e-10, -0.3347e-09, -0.1746e-08, -0.4366e-08, &
-0.7858e-08, -0.1262e-07, -0.1866e-07, -0.2849e-07, -0.4524e-07, &
-0.7176e-07, -0.1077e-06, -0.1531e-06, -0.2166e-06, -0.3018e-06, &
-0.4090e-06, -0.5327e-06, -0.6670e-06, -0.8088e-06, -0.9714e-06, &
-0.1151e-05, -0.1333e-05, -0.1483e-05, -0.1548e-05, -0.1467e-05, &
-0.1192e-05, -0.7159e-06, -0.1032e-06, 0.5571e-06, 0.1217e-05/
data ((c1(ip,iw),iw=1,30), ip= 3, 3)/ &
0.99985671, 0.99976432, 0.99963838, 0.99947912, 0.99927449, &
0.99899203, 0.99859202, 0.99803501, 0.99729699, 0.99635702, &
0.99518001, 0.99369103, 0.99178600, 0.98935002, 0.98623002, &
0.98223001, 0.97711003, 0.97060001, 0.96243000, 0.95222998, &
0.93957001, 0.92379999, 0.90411001, 0.87959999, 0.84930003, &
0.81270003, 0.76980001, 0.72140002, 0.66909999, 0.61539996/
data ((c2(ip,iw),iw=1,30), ip= 3, 3)/ &
-0.1831e-06, -0.4623e-06, -0.1048e-05, -0.2065e-05, -0.3589e-05, &
-0.5789e-05, -0.8833e-05, -0.1286e-04, -0.1797e-04, -0.2446e-04, &
-0.3292e-04, -0.4412e-04, -0.5880e-04, -0.7795e-04, -0.1027e-03, &
-0.1340e-03, -0.1728e-03, -0.2199e-03, -0.2759e-03, -0.3419e-03, &
-0.4194e-03, -0.5081e-03, -0.6078e-03, -0.7156e-03, -0.8270e-03, &
-0.9365e-03, -0.1040e-02, -0.1137e-02, -0.1235e-02, -0.1339e-02/
data ((c3(ip,iw),iw=1,30), ip= 3, 3)/ &
0.2910e-10, 0.5821e-10, -0.3201e-09, -0.1732e-08, -0.4307e-08, &
-0.7843e-08, -0.1270e-07, -0.1882e-07, -0.2862e-07, -0.4571e-07, &
-0.7225e-07, -0.1082e-06, -0.1535e-06, -0.2171e-06, -0.3021e-06, &
-0.4084e-06, -0.5302e-06, -0.6615e-06, -0.8059e-06, -0.9668e-06, &
-0.1146e-05, -0.1325e-05, -0.1468e-05, -0.1530e-05, -0.1448e-05, &
-0.1168e-05, -0.6907e-06, -0.7148e-07, 0.6242e-06, 0.1357e-05/
data ((c1(ip,iw),iw=1,30), ip= 4, 4)/ &
0.99985629, 0.99976349, 0.99963838, 0.99947798, 0.99927282, &
0.99898797, 0.99858499, 0.99802202, 0.99727303, 0.99631298, &
0.99510002, 0.99355298, 0.99155599, 0.98898000, 0.98566002, &
0.98136997, 0.97584999, 0.96880001, 0.95986998, 0.94862998, &
0.93452001, 0.91681999, 0.89459997, 0.86680001, 0.83270001, &
0.79189998, 0.74479997, 0.69290000, 0.63839996, 0.58410001/
data ((c2(ip,iw),iw=1,30), ip= 4, 4)/ &
-0.1808e-06, -0.4642e-06, -0.1045e-05, -0.2058e-05, -0.3581e-05, &
-0.5776e-05, -0.8801e-05, -0.1281e-04, -0.1789e-04, -0.2433e-04, &
-0.3273e-04, -0.4382e-04, -0.5840e-04, -0.7755e-04, -0.1024e-03, &
-0.1342e-03, -0.1737e-03, -0.2217e-03, -0.2791e-03, -0.3473e-03, &
-0.4272e-03, -0.5191e-03, -0.6227e-03, -0.7354e-03, -0.8526e-03, &
-0.9688e-03, -0.1081e-02, -0.1189e-02, -0.1300e-02, -0.1417e-02/
data ((c3(ip,iw),iw=1,30), ip= 4, 4)/ &
0.1019e-09, 0.1601e-09, -0.4075e-09, -0.1746e-08, -0.4366e-08, &
-0.7960e-08, -0.1294e-07, -0.1898e-07, -0.2899e-07, -0.4594e-07, &
-0.7267e-07, -0.1088e-06, -0.1536e-06, -0.2164e-06, -0.3002e-06, &
-0.4055e-06, -0.5260e-06, -0.6571e-06, -0.8022e-06, -0.9624e-06, &
-0.1139e-05, -0.1315e-05, -0.1456e-05, -0.1512e-05, -0.1420e-05, &
-0.1137e-05, -0.6483e-06, 0.6679e-08, 0.7652e-06, 0.1574e-05/
data ((c1(ip,iw),iw=1,30), ip= 5, 5)/ &
0.99985641, 0.99976403, 0.99963748, 0.99947661, 0.99926913, &
0.99898303, 0.99857402, 0.99800003, 0.99723399, 0.99624503, &
0.99498397, 0.99335301, 0.99123502, 0.98847997, 0.98488998, &
0.98023999, 0.97421998, 0.96648002, 0.95659000, 0.94404000, &
0.92815000, 0.90802002, 0.88270003, 0.85119998, 0.81290001, &
0.76770002, 0.71679997, 0.66219997, 0.60670000, 0.55250001/
data ((c2(ip,iw),iw=1,30), ip= 5, 5)/ &
-0.1827e-06, -0.4608e-06, -0.1042e-05, -0.2053e-05, -0.3565e-05, &
-0.5745e-05, -0.8758e-05, -0.1273e-04, -0.1778e-04, -0.2417e-04, &
-0.3250e-04, -0.4347e-04, -0.5801e-04, -0.7729e-04, -0.1025e-03, &
-0.1349e-03, -0.1755e-03, -0.2249e-03, -0.2842e-03, -0.3549e-03, &
-0.4380e-03, -0.5340e-03, -0.6428e-03, -0.7613e-03, -0.8854e-03, &
-0.1009e-02, -0.1131e-02, -0.1252e-02, -0.1376e-02, -0.1502e-02/
data ((c3(ip,iw),iw=1,30), ip= 5, 5)/ &
0.4366e-10, -0.1455e-10, -0.4075e-09, -0.1804e-08, -0.4293e-08, &
-0.8178e-08, -0.1301e-07, -0.1915e-07, -0.2938e-07, -0.4664e-07, &
-0.7365e-07, -0.1090e-06, -0.1539e-06, -0.2158e-06, -0.2992e-06, &
-0.4033e-06, -0.5230e-06, -0.6537e-06, -0.7976e-06, -0.9601e-06, &
-0.1135e-05, -0.1305e-05, -0.1440e-05, -0.1490e-05, -0.1389e-05, &
-0.1087e-05, -0.5646e-06, 0.1475e-06, 0.9852e-06, 0.1853e-05/
data ((c1(ip,iw),iw=1,30), ip= 6, 6)/ &
0.99985617, 0.99976331, 0.99963629, 0.99947429, 0.99926388, &
0.99897301, 0.99855602, 0.99796802, 0.99717802, 0.99614400, &
0.99480897, 0.99306899, 0.99078500, 0.98778999, 0.98387998, &
0.97876000, 0.97211999, 0.96350002, 0.95240998, 0.93821001, &
0.92009002, 0.89709997, 0.86820000, 0.83249998, 0.78970003, &
0.74039996, 0.68630004, 0.63010001, 0.57459998, 0.52069998/
data ((c2(ip,iw),iw=1,30), ip= 6, 6)/ &
-0.1798e-06, -0.4580e-06, -0.1033e-05, -0.2039e-05, -0.3544e-05, &
-0.5709e-05, -0.8696e-05, -0.1264e-04, -0.1763e-04, -0.2395e-04, &
-0.3220e-04, -0.4311e-04, -0.5777e-04, -0.7732e-04, -0.1032e-03, &
-0.1365e-03, -0.1784e-03, -0.2295e-03, -0.2914e-03, -0.3653e-03, &
-0.4527e-03, -0.5541e-03, -0.6689e-03, -0.7947e-03, -0.9265e-03, &
-0.1060e-02, -0.1192e-02, -0.1326e-02, -0.1460e-02, -0.1586e-02/
data ((c3(ip,iw),iw=1,30), ip= 6, 6)/ &
0.8731e-10, 0.0000e+00, -0.3492e-09, -0.1892e-08, -0.4322e-08, &
-0.8367e-08, -0.1318e-07, -0.1962e-07, -0.3024e-07, -0.4708e-07, &
-0.7359e-07, -0.1087e-06, -0.1534e-06, -0.2152e-06, -0.2978e-06, &
-0.4008e-06, -0.5207e-06, -0.6509e-06, -0.7968e-06, -0.9584e-06, &
-0.1128e-05, -0.1297e-05, -0.1425e-05, -0.1461e-05, -0.1342e-05, &
-0.1009e-05, -0.4283e-06, 0.3666e-06, 0.1272e-05, 0.2171e-05/
data ((c1(ip,iw),iw=1,30), ip= 7, 7)/ &
0.99985600, 0.99976230, 0.99963462, 0.99947017, 0.99925607, &
0.99895698, 0.99852800, 0.99791902, 0.99709100, 0.99599499, &
0.99456000, 0.99267203, 0.99017102, 0.98688000, 0.98255002, &
0.97685999, 0.96941000, 0.95969999, 0.94709998, 0.93085998, &
0.91001999, 0.88360000, 0.85060000, 0.81040001, 0.76319999, &
0.71029997, 0.65400004, 0.59740001, 0.54229999, 0.48839998/
data ((c2(ip,iw),iw=1,30), ip= 7, 7)/ &
-0.1784e-06, -0.4551e-06, -0.1023e-05, -0.2019e-05, -0.3507e-05, &
-0.5651e-05, -0.8608e-05, -0.1250e-04, -0.1744e-04, -0.2370e-04, &
-0.3189e-04, -0.4289e-04, -0.5777e-04, -0.7787e-04, -0.1045e-03, &
-0.1392e-03, -0.1828e-03, -0.2365e-03, -0.3015e-03, -0.3797e-03, &
-0.4723e-03, -0.5803e-03, -0.7026e-03, -0.8365e-03, -0.9772e-03, &
-0.1120e-02, -0.1265e-02, -0.1409e-02, -0.1547e-02, -0.1665e-02/
data ((c3(ip,iw),iw=1,30), ip= 7, 7)/ &
0.5821e-10, 0.8731e-10, -0.4366e-09, -0.1935e-08, -0.4555e-08, &
-0.8455e-08, -0.1356e-07, -0.2024e-07, -0.3079e-07, -0.4758e-07, &
-0.7352e-07, -0.1078e-06, -0.1520e-06, -0.2139e-06, -0.2964e-06, &
-0.3997e-06, -0.5185e-06, -0.6493e-06, -0.7943e-06, -0.9568e-06, &
-0.1127e-05, -0.1288e-05, -0.1405e-05, -0.1425e-05, -0.1275e-05, &
-0.8809e-06, -0.2158e-06, 0.6597e-06, 0.1610e-05, 0.2524e-05/
data ((c1(ip,iw),iw=1,30), ip= 8, 8)/ &
0.99985582, 0.99976122, 0.99963123, 0.99946368, 0.99924308, &
0.99893397, 0.99848598, 0.99784499, 0.99696398, 0.99577999, &
0.99421299, 0.99212801, 0.98935997, 0.98569000, 0.98083001, &
0.97442001, 0.96595001, 0.95486999, 0.94040000, 0.92163002, &
0.89760000, 0.86720002, 0.82969999, 0.78499997, 0.73370004, &
0.67799997, 0.62070000, 0.56439996, 0.50960004, 0.45539999/
data ((c2(ip,iw),iw=1,30), ip= 8, 8)/ &
-0.1760e-06, -0.4451e-06, -0.1004e-05, -0.1989e-05, -0.3457e-05, &
-0.5574e-05, -0.8470e-05, -0.1230e-04, -0.1721e-04, -0.2344e-04, &
-0.3168e-04, -0.4286e-04, -0.5815e-04, -0.7898e-04, -0.1070e-03, &
-0.1434e-03, -0.1892e-03, -0.2460e-03, -0.3152e-03, -0.3985e-03, &
-0.4981e-03, -0.6139e-03, -0.7448e-03, -0.8878e-03, -0.1038e-02, &
-0.1193e-02, -0.1348e-02, -0.1499e-02, -0.1631e-02, -0.1735e-02/
data ((c3(ip,iw),iw=1,30), ip= 8, 8)/ &
-0.1455e-10, 0.4366e-10, -0.3929e-09, -0.2081e-08, -0.4700e-08, &
-0.8804e-08, -0.1417e-07, -0.2068e-07, -0.3143e-07, -0.4777e-07, &
-0.7336e-07, -0.1070e-06, -0.1517e-06, -0.2134e-06, -0.2967e-06, &
-0.3991e-06, -0.5164e-06, -0.6510e-06, -0.7979e-06, -0.9575e-06, &
-0.1123e-05, -0.1279e-05, -0.1382e-05, -0.1374e-05, -0.1166e-05, &
-0.6893e-06, 0.7339e-07, 0.1013e-05, 0.1982e-05, 0.2896e-05/
data ((c1(ip,iw),iw=1,30), ip= 9, 9)/ &
0.99985498, 0.99975908, 0.99962622, 0.99945402, 0.99922228, &
0.99889803, 0.99842203, 0.99773699, 0.99677801, 0.99547797, &
0.99373603, 0.99140298, 0.98829001, 0.98413998, 0.97863001, &
0.97127002, 0.96156001, 0.94875997, 0.93197000, 0.91017997, &
0.88230002, 0.84749997, 0.80540001, 0.75620002, 0.70159996, &
0.64429998, 0.58710003, 0.53130001, 0.47640002, 0.42189997/
data ((c2(ip,iw),iw=1,30), ip= 9, 9)/ &
-0.1717e-06, -0.4327e-06, -0.9759e-06, -0.1943e-05, -0.3391e-05, &
-0.5454e-05, -0.8297e-05, -0.1209e-04, -0.1697e-04, -0.2322e-04, &
-0.3163e-04, -0.4318e-04, -0.5910e-04, -0.8111e-04, -0.1108e-03, &
-0.1493e-03, -0.1982e-03, -0.2588e-03, -0.3333e-03, -0.4237e-03, &
-0.5312e-03, -0.6562e-03, -0.7968e-03, -0.9496e-03, -0.1110e-02, &
-0.1276e-02, -0.1439e-02, -0.1588e-02, -0.1708e-02, -0.1796e-02/
data ((c3(ip,iw),iw=1,30), ip= 9, 9)/ &
0.0000e+00, 0.1455e-10, -0.3638e-09, -0.2299e-08, -0.4744e-08, &
-0.9284e-08, -0.1445e-07, -0.2141e-07, -0.3162e-07, -0.4761e-07, &
-0.7248e-07, -0.1065e-06, -0.1501e-06, -0.2140e-06, -0.2981e-06, &
-0.3994e-06, -0.5201e-06, -0.6549e-06, -0.8009e-06, -0.9627e-06, &
-0.1125e-05, -0.1266e-05, -0.1348e-05, -0.1292e-05, -0.1005e-05, &
-0.4166e-06, 0.4279e-06, 0.1401e-05, 0.2379e-05, 0.3278e-05/
data ((c1(ip,iw),iw=1,30), ip=10,10)/ &
0.99985462, 0.99975640, 0.99961889, 0.99943668, 0.99919188, &
0.99884301, 0.99832898, 0.99757999, 0.99651998, 0.99506402, &
0.99309200, 0.99044400, 0.98689002, 0.98215997, 0.97579002, &
0.96730000, 0.95603001, 0.94110000, 0.92149001, 0.89609998, &
0.86399996, 0.82449996, 0.77759999, 0.72459996, 0.66769999, &
0.61000001, 0.55340004, 0.49769998, 0.44250000, 0.38810003/
data ((c2(ip,iw),iw=1,30), ip=10,10)/ &
-0.1607e-06, -0.4160e-06, -0.9320e-06, -0.1872e-05, -0.3281e-05, &
-0.5286e-05, -0.8097e-05, -0.1187e-04, -0.1677e-04, -0.2320e-04, &
-0.3190e-04, -0.4402e-04, -0.6081e-04, -0.8441e-04, -0.1162e-03, &
-0.1576e-03, -0.2102e-03, -0.2760e-03, -0.3571e-03, -0.4558e-03, &
-0.5730e-03, -0.7082e-03, -0.8591e-03, -0.1022e-02, -0.1194e-02, &
-0.1368e-02, -0.1533e-02, -0.1671e-02, -0.1775e-02, -0.1843e-02/
data ((c3(ip,iw),iw=1,30), ip=10,10)/ &
-0.1164e-09, -0.7276e-10, -0.5530e-09, -0.2270e-08, -0.5093e-08, &
-0.9517e-08, -0.1502e-07, -0.2219e-07, -0.3171e-07, -0.4712e-07, &
-0.7123e-07, -0.1042e-06, -0.1493e-06, -0.2156e-06, -0.2999e-06, &
-0.4027e-06, -0.5243e-06, -0.6616e-06, -0.8125e-06, -0.9691e-06, &
-0.1126e-05, -0.1251e-05, -0.1294e-05, -0.1163e-05, -0.7639e-06, &
-0.7395e-07, 0.8279e-06, 0.1819e-05, 0.2795e-05, 0.3647e-05/
data ((c1(ip,iw),iw=1,30), ip=11,11)/ &
0.99985212, 0.99975210, 0.99960798, 0.99941242, 0.99914628, &
0.99876302, 0.99819702, 0.99736100, 0.99616700, 0.99450397, &
0.99225003, 0.98920000, 0.98510998, 0.97961998, 0.97220999, &
0.96231002, 0.94909000, 0.93155003, 0.90856999, 0.87910002, &
0.84219998, 0.79790002, 0.74669999, 0.69080001, 0.63300002, &
0.57570004, 0.51950002, 0.46359998, 0.40829998, 0.35450000/
data ((c2(ip,iw),iw=1,30), ip=11,11)/ &
-0.1531e-06, -0.3864e-06, -0.8804e-06, -0.1776e-05, -0.3131e-05, &
-0.5082e-05, -0.7849e-05, -0.1164e-04, -0.1669e-04, -0.2340e-04, &
-0.3261e-04, -0.4546e-04, -0.6380e-04, -0.8932e-04, -0.1237e-03, &
-0.1687e-03, -0.2262e-03, -0.2984e-03, -0.3880e-03, -0.4964e-03, &
-0.6244e-03, -0.7705e-03, -0.9325e-03, -0.1107e-02, -0.1288e-02, &
-0.1466e-02, -0.1623e-02, -0.1746e-02, -0.1831e-02, -0.1875e-02/
data ((c3(ip,iw),iw=1,30), ip=11,11)/ &
0.1019e-09, -0.2037e-09, -0.8004e-09, -0.2387e-08, -0.5326e-08, &
-0.9764e-08, -0.1576e-07, -0.2256e-07, -0.3180e-07, -0.4616e-07, &
-0.7026e-07, -0.1031e-06, -0.1520e-06, -0.2181e-06, -0.3037e-06, &
-0.4109e-06, -0.5354e-06, -0.6740e-06, -0.8241e-06, -0.9810e-06, &
-0.1126e-05, -0.1221e-05, -0.1200e-05, -0.9678e-06, -0.4500e-06, &
0.3236e-06, 0.1256e-05, 0.2259e-05, 0.3206e-05, 0.3978e-05/
data ((c1(ip,iw),iw=1,30), ip=12,12)/ &
0.99985027, 0.99974507, 0.99959022, 0.99937689, 0.99907988, &
0.99865198, 0.99801201, 0.99706602, 0.99569201, 0.99377203, &
0.99115402, 0.98762000, 0.98286003, 0.97640002, 0.96771997, &
0.95604998, 0.94045001, 0.91979003, 0.89289999, 0.85879999, &
0.81700003, 0.76800001, 0.71340001, 0.65579998, 0.59810001, &
0.54139996, 0.48519999, 0.42909998, 0.37410003, 0.32190001/
data ((c2(ip,iw),iw=1,30), ip=12,12)/ &
-0.1340e-06, -0.3478e-06, -0.8189e-06, -0.1653e-05, -0.2944e-05, &
-0.4852e-05, -0.7603e-05, -0.1150e-04, -0.1682e-04, -0.2400e-04, &
-0.3390e-04, -0.4799e-04, -0.6807e-04, -0.9596e-04, -0.1338e-03, &
-0.1833e-03, -0.2471e-03, -0.3275e-03, -0.4268e-03, -0.5466e-03, &
-0.6862e-03, -0.8439e-03, -0.1017e-02, -0.1201e-02, -0.1389e-02, &
-0.1563e-02, -0.1706e-02, -0.1809e-02, -0.1872e-02, -0.1890e-02/
data ((c3(ip,iw),iw=1,30), ip=12,12)/ &
-0.1455e-10, -0.1892e-09, -0.8295e-09, -0.2547e-08, -0.5544e-08, &
-0.1014e-07, -0.1605e-07, -0.2341e-07, -0.3156e-07, -0.4547e-07, &
-0.6749e-07, -0.1034e-06, -0.1550e-06, -0.2230e-06, -0.3130e-06, &
-0.4219e-06, -0.5469e-06, -0.6922e-06, -0.8448e-06, -0.9937e-06, &
-0.1118e-05, -0.1166e-05, -0.1054e-05, -0.6926e-06, -0.7180e-07, &
0.7515e-06, 0.1709e-05, 0.2703e-05, 0.3593e-05, 0.4232e-05/
data ((c1(ip,iw),iw=1,30), ip=13,13)/ &
0.99984729, 0.99973530, 0.99956691, 0.99932659, 0.99898797, &
0.99849701, 0.99776399, 0.99667102, 0.99507397, 0.99283201, &
0.98977000, 0.98563999, 0.98001999, 0.97241002, 0.96213001, &
0.94830000, 0.92980999, 0.90546000, 0.87409997, 0.83510000, &
0.78850001, 0.73549998, 0.67850000, 0.62049997, 0.56340003, &
0.50699997, 0.45050001, 0.39450002, 0.34060001, 0.29079998/
data ((c2(ip,iw),iw=1,30), ip=13,13)/ &
-0.1163e-06, -0.3048e-06, -0.7186e-06, -0.1495e-05, -0.2726e-05, &
-0.4588e-05, -0.7396e-05, -0.1152e-04, -0.1725e-04, -0.2514e-04, &
-0.3599e-04, -0.5172e-04, -0.7403e-04, -0.1051e-03, -0.1469e-03, &
-0.2023e-03, -0.2735e-03, -0.3637e-03, -0.4746e-03, -0.6067e-03, &
-0.7586e-03, -0.9281e-03, -0.1112e-02, -0.1304e-02, -0.1491e-02, &
-0.1653e-02, -0.1777e-02, -0.1860e-02, -0.1896e-02, -0.1891e-02/
data ((c3(ip,iw),iw=1,30), ip=13,13)/ &
-0.1455e-09, -0.2765e-09, -0.9750e-09, -0.2794e-08, -0.5413e-08, &
-0.1048e-07, -0.1625e-07, -0.2344e-07, -0.3105e-07, -0.4304e-07, &
-0.6608e-07, -0.1057e-06, -0.1587e-06, -0.2308e-06, -0.3235e-06, &
-0.4373e-06, -0.5687e-06, -0.7156e-06, -0.8684e-06, -0.1007e-05, &
-0.1094e-05, -0.1062e-05, -0.8273e-06, -0.3485e-06, 0.3463e-06, &
0.1206e-05, 0.2173e-05, 0.3132e-05, 0.3919e-05, 0.4370e-05/
data ((c1(ip,iw),iw=1,30), ip=14,14)/ &
0.99984348, 0.99972272, 0.99953479, 0.99926043, 0.99886698, &
0.99829400, 0.99744201, 0.99615997, 0.99429500, 0.99166000, &
0.98806000, 0.98316997, 0.97649997, 0.96748000, 0.95525998, &
0.93878001, 0.91687000, 0.88830000, 0.85220003, 0.80820000, &
0.75699997, 0.70099998, 0.64300001, 0.58550000, 0.52890003, &
0.47219998, 0.41560000, 0.36040002, 0.30849999, 0.26169997/
data ((c2(ip,iw),iw=1,30), ip=14,14)/ &
-0.8581e-07, -0.2557e-06, -0.6103e-06, -0.1305e-05, -0.2472e-05, &
-0.4334e-05, -0.7233e-05, -0.1167e-04, -0.1806e-04, -0.2679e-04, &
-0.3933e-04, -0.5705e-04, -0.8194e-04, -0.1165e-03, -0.1637e-03, &
-0.2259e-03, -0.3068e-03, -0.4082e-03, -0.5318e-03, -0.6769e-03, &
-0.8415e-03, -0.1023e-02, -0.1216e-02, -0.1410e-02, -0.1588e-02, &
-0.1733e-02, -0.1837e-02, -0.1894e-02, -0.1904e-02, -0.1881e-02/
data ((c3(ip,iw),iw=1,30), ip=14,14)/ &
-0.2037e-09, -0.4220e-09, -0.1091e-08, -0.2896e-08, -0.5821e-08, &
-0.1052e-07, -0.1687e-07, -0.2353e-07, -0.3193e-07, -0.4254e-07, &
-0.6685e-07, -0.1072e-06, -0.1638e-06, -0.2427e-06, -0.3421e-06, &
-0.4600e-06, -0.5946e-06, -0.7472e-06, -0.8958e-06, -0.1009e-05, &
-0.1032e-05, -0.8919e-06, -0.5224e-06, 0.5218e-07, 0.7886e-06, &
0.1672e-05, 0.2626e-05, 0.3513e-05, 0.4138e-05, 0.4379e-05/
data ((c1(ip,iw),iw=1,30), ip=15,15)/ &
0.99983788, 0.99970680, 0.99949580, 0.99917668, 0.99871200, &
0.99803603, 0.99703097, 0.99552703, 0.99333203, 0.99023402, &
0.98597997, 0.98013997, 0.97223002, 0.96145999, 0.94686002, &
0.92727000, 0.90142000, 0.86820000, 0.82700002, 0.77820003, &
0.72350001, 0.66569996, 0.60769999, 0.55089998, 0.49430001, &
0.43739998, 0.38110000, 0.32749999, 0.27840000, 0.23479998/
data ((c2(ip,iw),iw=1,30), ip=15,15)/ &
-0.8246e-07, -0.2070e-06, -0.4895e-06, -0.1106e-05, -0.2216e-05, &
-0.4077e-05, -0.7150e-05, -0.1202e-04, -0.1920e-04, -0.2938e-04, &
-0.4380e-04, -0.6390e-04, -0.9209e-04, -0.1310e-03, -0.1843e-03, &
-0.2554e-03, -0.3468e-03, -0.4611e-03, -0.5982e-03, -0.7568e-03, &
-0.9340e-03, -0.1126e-02, -0.1324e-02, -0.1514e-02, -0.1676e-02, &
-0.1801e-02, -0.1881e-02, -0.1911e-02, -0.1900e-02, -0.1867e-02/
data ((c3(ip,iw),iw=1,30), ip=15,15)/ &
-0.1601e-09, -0.3492e-09, -0.1019e-08, -0.2634e-08, -0.5632e-08, &
-0.1065e-07, -0.1746e-07, -0.2542e-07, -0.3206e-07, -0.4390e-07, &
-0.6956e-07, -0.1093e-06, -0.1729e-06, -0.2573e-06, -0.3612e-06, &
-0.4904e-06, -0.6342e-06, -0.7834e-06, -0.9175e-06, -0.9869e-06, &
-0.9164e-06, -0.6386e-06, -0.1544e-06, 0.4798e-06, 0.1252e-05, &
0.2137e-05, 0.3043e-05, 0.3796e-05, 0.4211e-05, 0.4332e-05/
data ((c1(ip,iw),iw=1,30), ip=16,16)/ &
0.99983227, 0.99968958, 0.99945217, 0.99907941, 0.99852598, &
0.99772000, 0.99652398, 0.99475902, 0.99218899, 0.98856002, &
0.98348999, 0.97653997, 0.96708000, 0.95420998, 0.93677002, &
0.91352999, 0.88330001, 0.84509999, 0.79900002, 0.74599999, &
0.68879998, 0.63049996, 0.57319999, 0.51660001, 0.45969999, &
0.40289998, 0.34780002, 0.29650003, 0.25070000, 0.20959997/
data ((c2(ip,iw),iw=1,30), ip=16,16)/ &
-0.7004e-07, -0.1592e-06, -0.3936e-06, -0.9145e-06, -0.1958e-05, &
-0.3850e-05, -0.7093e-05, -0.1252e-04, -0.2066e-04, -0.3271e-04, &
-0.4951e-04, -0.7268e-04, -0.1045e-03, -0.1487e-03, -0.2092e-03, &
-0.2899e-03, -0.3936e-03, -0.5215e-03, -0.6729e-03, -0.8454e-03, &
-0.1035e-02, -0.1235e-02, -0.1432e-02, -0.1608e-02, -0.1751e-02, &
-0.1854e-02, -0.1907e-02, -0.1913e-02, -0.1888e-02, -0.1857e-02/
data ((c3(ip,iw),iw=1,30), ip=16,16)/ &
-0.2328e-09, -0.3347e-09, -0.9750e-09, -0.2314e-08, -0.5166e-08, &
-0.1052e-07, -0.1726e-07, -0.2605e-07, -0.3532e-07, -0.4949e-07, &
-0.7229e-07, -0.1133e-06, -0.1799e-06, -0.2725e-06, -0.3881e-06, &
-0.5249e-06, -0.6763e-06, -0.8227e-06, -0.9279e-06, -0.9205e-06, &
-0.7228e-06, -0.3109e-06, 0.2583e-06, 0.9390e-06, 0.1726e-05, &
0.2579e-05, 0.3376e-05, 0.3931e-05, 0.4161e-05, 0.4369e-05/
data ((c1(ip,iw),iw=1,30), ip=17,17)/ &
0.99982637, 0.99967217, 0.99940813, 0.99897701, 0.99831802, &
0.99734300, 0.99592501, 0.99385202, 0.99086499, 0.98659998, &
0.98057997, 0.97229999, 0.96098000, 0.94555002, 0.92479002, &
0.89740002, 0.86240000, 0.81919998, 0.76859999, 0.71249998, &
0.65419996, 0.59630001, 0.53950000, 0.48259997, 0.42549998, &
0.36940002, 0.31629997, 0.26810002, 0.22520000, 0.18580002/
data ((c2(ip,iw),iw=1,30), ip=17,17)/ &
-0.6526e-07, -0.1282e-06, -0.3076e-06, -0.7454e-06, -0.1685e-05, &
-0.3600e-05, -0.7071e-05, -0.1292e-04, -0.2250e-04, -0.3665e-04, &
-0.5623e-04, -0.8295e-04, -0.1195e-03, -0.1696e-03, -0.2385e-03, &
-0.3298e-03, -0.4465e-03, -0.5887e-03, -0.7546e-03, -0.9408e-03, &
-0.1141e-02, -0.1345e-02, -0.1533e-02, -0.1691e-02, -0.1813e-02, &
-0.1889e-02, -0.1916e-02, -0.1904e-02, -0.1877e-02, -0.1850e-02/
data ((c3(ip,iw),iw=1,30), ip=17,17)/ &
-0.1746e-09, -0.2037e-09, -0.8149e-09, -0.2095e-08, -0.4889e-08, &
-0.9517e-08, -0.1759e-07, -0.2740e-07, -0.4147e-07, -0.5774e-07, &
-0.7909e-07, -0.1199e-06, -0.1877e-06, -0.2859e-06, -0.4137e-06, &
-0.5649e-06, -0.7218e-06, -0.8516e-06, -0.9022e-06, -0.7905e-06, &
-0.4531e-06, 0.6917e-07, 0.7009e-06, 0.1416e-05, 0.2194e-05, &
0.2963e-05, 0.3578e-05, 0.3900e-05, 0.4094e-05, 0.4642e-05/
data ((c1(ip,iw),iw=1,30), ip=18,18)/ &
0.99982101, 0.99965781, 0.99936712, 0.99887502, 0.99809802, &
0.99692702, 0.99523401, 0.99281400, 0.98935997, 0.98435003, &
0.97728002, 0.96740997, 0.95381999, 0.93539000, 0.91082001, &
0.87889999, 0.83889997, 0.79100001, 0.73660004, 0.67879999, &
0.62049997, 0.56330001, 0.50629997, 0.44900000, 0.39209998, &
0.33749998, 0.28729999, 0.24229997, 0.20150000, 0.16280001/
data ((c2(ip,iw),iw=1,30), ip=18,18)/ &
-0.6477e-07, -0.1243e-06, -0.2536e-06, -0.6173e-06, -0.1495e-05, &
-0.3353e-05, -0.6919e-05, -0.1337e-04, -0.2418e-04, -0.4049e-04, &
-0.6354e-04, -0.9455e-04, -0.1367e-03, -0.1942e-03, -0.2717e-03, &
-0.3744e-03, -0.5042e-03, -0.6609e-03, -0.8416e-03, -0.1041e-02, &
-0.1249e-02, -0.1448e-02, -0.1622e-02, -0.1760e-02, -0.1857e-02, &
-0.1906e-02, -0.1911e-02, -0.1892e-02, -0.1870e-02, -0.1844e-02/
data ((c3(ip,iw),iw=1,30), ip=18,18)/ &
-0.5821e-10, -0.2328e-09, -0.6985e-09, -0.1368e-08, -0.4351e-08, &
-0.8993e-08, -0.1579e-07, -0.2916e-07, -0.4904e-07, -0.7010e-07, &
-0.9623e-07, -0.1332e-06, -0.1928e-06, -0.2977e-06, -0.4371e-06, &
-0.5992e-06, -0.7586e-06, -0.8580e-06, -0.8238e-06, -0.5811e-06, &
-0.1298e-06, 0.4702e-06, 0.1162e-05, 0.1905e-05, 0.2632e-05, &
0.3247e-05, 0.3609e-05, 0.3772e-05, 0.4166e-05, 0.5232e-05/
data ((c1(ip,iw),iw=1,30), ip=19,19)/ &
0.99981648, 0.99964571, 0.99933147, 0.99878597, 0.99787998, &
0.99649400, 0.99448699, 0.99166602, 0.98762000, 0.98181999, &
0.97352999, 0.96183002, 0.94558001, 0.92363000, 0.89480001, &
0.85799998, 0.81309998, 0.76100004, 0.70420003, 0.64590001, &
0.58840001, 0.53139997, 0.47380000, 0.41619998, 0.36030000, &
0.30809999, 0.26109999, 0.21880001, 0.17909998, 0.14080000/
data ((c2(ip,iw),iw=1,30), ip=19,19)/ &
-0.7906e-07, -0.1291e-06, -0.2430e-06, -0.5145e-06, -0.1327e-05, &
-0.3103e-05, -0.6710e-05, -0.1371e-04, -0.2561e-04, -0.4405e-04, &
-0.7051e-04, -0.1070e-03, -0.1560e-03, -0.2217e-03, -0.3090e-03, &
-0.4228e-03, -0.5657e-03, -0.7371e-03, -0.9322e-03, -0.1142e-02, &
-0.1352e-02, -0.1541e-02, -0.1697e-02, -0.1813e-02, -0.1883e-02, &
-0.1906e-02, -0.1898e-02, -0.1882e-02, -0.1866e-02, -0.1832e-02/
data ((c3(ip,iw),iw=1,30), ip=19,19)/ &
0.2910e-10, 0.1455e-10, -0.2765e-09, -0.1426e-08, -0.2576e-08, &
-0.5923e-08, -0.1429e-07, -0.3159e-07, -0.5441e-07, -0.8367e-07, &
-0.1161e-06, -0.1526e-06, -0.2060e-06, -0.3007e-06, -0.4450e-06, &
-0.6182e-06, -0.7683e-06, -0.8170e-06, -0.6754e-06, -0.3122e-06, &
0.2234e-06, 0.8828e-06, 0.1632e-05, 0.2373e-05, 0.3002e-05, &
0.3384e-05, 0.3499e-05, 0.3697e-05, 0.4517e-05, 0.6117e-05/
data ((c1(ip,iw),iw=1,30), ip=20,20)/ &
0.99981302, 0.99963689, 0.99930489, 0.99870700, 0.99768901, &
0.99608499, 0.99373102, 0.99039900, 0.98566997, 0.97895002, &
0.96930999, 0.95548999, 0.93621999, 0.91029000, 0.87669998, &
0.83490002, 0.78549999, 0.73019999, 0.67240000, 0.61469996, &
0.55779999, 0.50029999, 0.44220001, 0.38489997, 0.33069998, &
0.28149998, 0.23760003, 0.19690001, 0.15759999, 0.11989999/
data ((c2(ip,iw),iw=1,30), ip=20,20)/ &
-0.7762e-07, -0.1319e-06, -0.2315e-06, -0.4780e-06, -0.1187e-05, &
-0.2750e-05, -0.6545e-05, -0.1393e-04, -0.2645e-04, -0.4652e-04, &
-0.7657e-04, -0.1190e-03, -0.1766e-03, -0.2520e-03, -0.3499e-03, &
-0.4751e-03, -0.6307e-03, -0.8160e-03, -0.1024e-02, -0.1240e-02, &
-0.1443e-02, -0.1619e-02, -0.1757e-02, -0.1849e-02, -0.1892e-02, &
-0.1896e-02, -0.1886e-02, -0.1878e-02, -0.1861e-02, -0.1807e-02/
data ((c3(ip,iw),iw=1,30), ip=20,20)/ &
0.8731e-10, -0.7276e-10, -0.2328e-09, -0.6403e-09, -0.1455e-08, &
-0.3827e-08, -0.1270e-07, -0.3014e-07, -0.5594e-07, -0.9677e-07, &
-0.1422e-06, -0.1823e-06, -0.2296e-06, -0.3094e-06, -0.4399e-06, &
-0.6008e-06, -0.7239e-06, -0.7014e-06, -0.4562e-06, -0.7778e-08, &
0.5785e-06, 0.1291e-05, 0.2072e-05, 0.2783e-05, 0.3247e-05, &
0.3358e-05, 0.3364e-05, 0.3847e-05, 0.5194e-05, 0.7206e-05/
data ((c1(ip,iw),iw=1,30), ip=21,21)/ &
0.99981070, 0.99962878, 0.99928439, 0.99864298, 0.99752903, &
0.99573100, 0.99301797, 0.98905998, 0.98354000, 0.97570997, &
0.96449000, 0.94837999, 0.92576003, 0.89539999, 0.85680002, &
0.81000000, 0.75660002, 0.69949996, 0.64199996, 0.58529997, &
0.52829999, 0.47020000, 0.41200000, 0.35570002, 0.30400002, &
0.25800002, 0.21609998, 0.17610002, 0.13709998, 0.10020000/
data ((c2(ip,iw),iw=1,30), ip=21,21)/ &
-0.1010e-06, -0.1533e-06, -0.2347e-06, -0.4535e-06, -0.1029e-05, &
-0.2530e-05, -0.6335e-05, -0.1381e-04, -0.2681e-04, -0.4777e-04, &
-0.8083e-04, -0.1296e-03, -0.1966e-03, -0.2836e-03, -0.3937e-03, &
-0.5313e-03, -0.6995e-03, -0.8972e-03, -0.1113e-02, -0.1327e-02, &
-0.1520e-02, -0.1681e-02, -0.1800e-02, -0.1867e-02, -0.1887e-02, &
-0.1884e-02, -0.1881e-02, -0.1879e-02, -0.1849e-02, -0.1764e-02/
data ((c3(ip,iw),iw=1,30), ip=21,21)/ &
0.8731e-10, 0.1310e-09, -0.2474e-09, -0.2619e-09, 0.8295e-09, &
-0.1979e-08, -0.1141e-07, -0.2621e-07, -0.5799e-07, -0.1060e-06, &
-0.1621e-06, -0.2281e-06, -0.2793e-06, -0.3335e-06, -0.4277e-06, &
-0.5429e-06, -0.5970e-06, -0.4872e-06, -0.1775e-06, 0.3028e-06, &
0.9323e-06, 0.1680e-05, 0.2452e-05, 0.3063e-05, 0.3299e-05, &
0.3219e-05, 0.3369e-05, 0.4332e-05, 0.6152e-05, 0.8413e-05/
data ((c1(ip,iw),iw=1,30), ip=22,22)/ &
0.99980962, 0.99962330, 0.99926400, 0.99858999, 0.99741602, &
0.99547201, 0.99236798, 0.98776001, 0.98124999, 0.97210997, &
0.95902997, 0.94033003, 0.91415000, 0.87919998, 0.83529997, &
0.78380001, 0.72749996, 0.66990000, 0.61339998, 0.55720001, &
0.49980003, 0.44129997, 0.38360000, 0.32929999, 0.28070003, &
0.23710001, 0.19620001, 0.15619999, 0.11769998, 0.08200002/
data ((c2(ip,iw),iw=1,30), ip=22,22)/ &
-0.1258e-06, -0.1605e-06, -0.2581e-06, -0.4286e-06, -0.8321e-06, &
-0.2392e-05, -0.6163e-05, -0.1358e-04, -0.2646e-04, -0.4792e-04, &
-0.8284e-04, -0.1369e-03, -0.2138e-03, -0.3141e-03, -0.4393e-03, &
-0.5917e-03, -0.7731e-03, -0.9796e-03, -0.1195e-02, -0.1399e-02, &
-0.1579e-02, -0.1725e-02, -0.1822e-02, -0.1867e-02, -0.1877e-02, &
-0.1879e-02, -0.1886e-02, -0.1879e-02, -0.1825e-02, -0.1706e-02/
data ((c3(ip,iw),iw=1,30), ip=22,22)/ &
-0.8731e-10, 0.2910e-10, 0.7276e-10, 0.1281e-08, 0.1222e-08, &
-0.1935e-08, -0.8004e-08, -0.2258e-07, -0.5428e-07, -0.1085e-06, &
-0.1835e-06, -0.2716e-06, -0.3446e-06, -0.3889e-06, -0.4203e-06, &
-0.4394e-06, -0.3716e-06, -0.1677e-06, 0.1622e-06, 0.6327e-06, &
0.1275e-05, 0.2018e-05, 0.2716e-05, 0.3137e-05, 0.3136e-05, &
0.3078e-05, 0.3649e-05, 0.5152e-05, 0.7315e-05, 0.9675e-05/
data ((c1(ip,iw),iw=1,30), ip=23,23)/ &
0.99980921, 0.99961692, 0.99924570, 0.99854898, 0.99734801, &
0.99527103, 0.99182302, 0.98655999, 0.97895002, 0.96814001, &
0.95284998, 0.93124998, 0.90130001, 0.86170000, 0.81290001, &
0.75740004, 0.69920003, 0.64199996, 0.58640003, 0.53020000, &
0.47240001, 0.41399997, 0.35780001, 0.30650002, 0.26069999, &
0.21850002, 0.17750001, 0.13739997, 0.09950000, 0.06540000/
data ((c2(ip,iw),iw=1,30), ip=23,23)/ &
-0.1434e-06, -0.1676e-06, -0.2699e-06, -0.2859e-06, -0.7542e-06, &
-0.2273e-05, -0.5898e-05, -0.1292e-04, -0.2538e-04, -0.4649e-04, &
-0.8261e-04, -0.1405e-03, -0.2259e-03, -0.3407e-03, -0.4845e-03, &
-0.6561e-03, -0.8524e-03, -0.1062e-02, -0.1266e-02, -0.1456e-02, &
-0.1621e-02, -0.1748e-02, -0.1823e-02, -0.1854e-02, -0.1868e-02, &
-0.1886e-02, -0.1899e-02, -0.1876e-02, -0.1790e-02, -0.1636e-02/
data ((c3(ip,iw),iw=1,30), ip=23,23)/ &
-0.1892e-09, -0.2474e-09, 0.1892e-09, 0.2561e-08, 0.4366e-09, &
-0.1499e-08, -0.4336e-08, -0.1740e-07, -0.5233e-07, -0.1055e-06, &
-0.1940e-06, -0.3113e-06, -0.4161e-06, -0.4620e-06, -0.4316e-06, &
-0.3031e-06, -0.5438e-07, 0.2572e-06, 0.5773e-06, 0.1008e-05, &
0.1609e-05, 0.2290e-05, 0.2817e-05, 0.2940e-05, 0.2803e-05, &
0.3061e-05, 0.4235e-05, 0.6225e-05, 0.8615e-05, 0.1095e-04/
data ((c1(ip,iw),iw=1,30), ip=24,24)/ &
0.99980992, 0.99961102, 0.99922198, 0.99852699, 0.99732202, &
0.99510902, 0.99140203, 0.98550999, 0.97672999, 0.96399999, &
0.94602001, 0.92101002, 0.88709998, 0.84310001, 0.79020000, &
0.73189998, 0.67299998, 0.61619997, 0.56060004, 0.50400001, &
0.44610000, 0.38880002, 0.33530003, 0.28740001, 0.24390000, &
0.20179999, 0.16009998, 0.11979997, 0.08260000, 0.05049998/
data ((c2(ip,iw),iw=1,30), ip=24,24)/ &
-0.1529e-06, -0.2005e-06, -0.2861e-06, -0.1652e-06, -0.6334e-06, &
-0.1965e-05, -0.5437e-05, -0.1182e-04, -0.2344e-04, -0.4384e-04, &
-0.7982e-04, -0.1398e-03, -0.2321e-03, -0.3616e-03, -0.5274e-03, &
-0.7239e-03, -0.9363e-03, -0.1142e-02, -0.1328e-02, -0.1499e-02, &
-0.1645e-02, -0.1748e-02, -0.1804e-02, -0.1834e-02, -0.1867e-02, &
-0.1903e-02, -0.1914e-02, -0.1866e-02, -0.1746e-02, -0.1558e-02/
data ((c3(ip,iw),iw=1,30), ip=24,24)/ &
-0.3638e-09, -0.9313e-09, 0.1703e-08, 0.2081e-08, -0.1251e-08, &
-0.1208e-08, -0.6883e-08, -0.1608e-07, -0.4559e-07, -0.1047e-06, &
-0.2040e-06, -0.3312e-06, -0.4624e-06, -0.5198e-06, -0.4326e-06, &
-0.1452e-06, 0.3003e-06, 0.7455e-06, 0.1102e-05, 0.1470e-05, &
0.1957e-05, 0.2474e-05, 0.2691e-05, 0.2484e-05, 0.2414e-05, &
0.3232e-05, 0.5050e-05, 0.7455e-05, 0.9997e-05, 0.1217e-04/
data ((c1(ip,iw),iw=1,30), ip=25,25)/ &
0.99980998, 0.99960178, 0.99920201, 0.99852800, 0.99729002, &
0.99498200, 0.99102801, 0.98461998, 0.97465998, 0.95982999, &
0.93866003, 0.90968001, 0.87140000, 0.82340002, 0.76770002, &
0.70860004, 0.64999998, 0.59290004, 0.53610003, 0.47860003, &
0.42110002, 0.36610001, 0.31639999, 0.27200001, 0.22960001, &
0.18690002, 0.14429998, 0.10380000, 0.06739998, 0.03740001/
data ((c2(ip,iw),iw=1,30), ip=25,25)/ &
-0.1453e-06, -0.2529e-06, -0.1807e-06, -0.1109e-06, -0.4469e-06, &
-0.1885e-05, -0.4590e-05, -0.1043e-04, -0.2057e-04, -0.3951e-04, &
-0.7466e-04, -0.1356e-03, -0.2341e-03, -0.3783e-03, -0.5688e-03, &
-0.7935e-03, -0.1021e-02, -0.1219e-02, -0.1388e-02, -0.1535e-02, &
-0.1653e-02, -0.1726e-02, -0.1768e-02, -0.1813e-02, -0.1874e-02, &
-0.1925e-02, -0.1927e-02, -0.1851e-02, -0.1697e-02, -0.1478e-02/
data ((c3(ip,iw),iw=1,30), ip=25,25)/ &
-0.6257e-09, -0.1382e-08, 0.2095e-08, 0.1863e-08, -0.1834e-08, &
-0.2125e-08, -0.6985e-08, -0.1634e-07, -0.4128e-07, -0.9924e-07, &
-0.1938e-06, -0.3275e-06, -0.4556e-06, -0.5046e-06, -0.3633e-06, &
0.2484e-07, 0.6195e-06, 0.1249e-05, 0.1731e-05, 0.2053e-05, &
0.2358e-05, 0.2569e-05, 0.2342e-05, 0.1883e-05, 0.2103e-05, &
0.3570e-05, 0.5973e-05, 0.8752e-05, 0.1140e-04, 0.1328e-04/
data ((c1(ip,iw),iw=1,30), ip=26,26)/ &
0.99980712, 0.99958581, 0.99919039, 0.99854302, 0.99724799, &
0.99486500, 0.99071401, 0.98379999, 0.97279000, 0.95585001, &
0.93112999, 0.89749998, 0.85460001, 0.80320001, 0.74660003, &
0.68869996, 0.63100004, 0.57249999, 0.51320004, 0.45450002, &
0.39810002, 0.34649998, 0.30119997, 0.25950003, 0.21740001, &
0.17379999, 0.13029999, 0.08950001, 0.05400002, 0.02640003/
data ((c2(ip,iw),iw=1,30), ip=26,26)/ &
-0.1257e-06, -0.2495e-06, -0.1334e-06, -0.8414e-07, -0.1698e-06, &
-0.1346e-05, -0.3692e-05, -0.8625e-05, -0.1750e-04, -0.3483e-04, &
-0.6843e-04, -0.1305e-03, -0.2362e-03, -0.3971e-03, -0.6127e-03, &
-0.8621e-03, -0.1101e-02, -0.1297e-02, -0.1452e-02, -0.1570e-02, &
-0.1647e-02, -0.1688e-02, -0.1727e-02, -0.1797e-02, -0.1887e-02, &
-0.1947e-02, -0.1935e-02, -0.1833e-02, -0.1647e-02, -0.1401e-02/
data ((c3(ip,iw),iw=1,30), ip=26,26)/ &
-0.1222e-08, -0.1164e-09, 0.2285e-08, 0.2037e-09, 0.5675e-09, &
-0.5239e-08, -0.9211e-08, -0.1483e-07, -0.3981e-07, -0.9641e-07, &
-0.1717e-06, -0.2796e-06, -0.3800e-06, -0.3762e-06, -0.1936e-06, &
0.1920e-06, 0.8335e-06, 0.1691e-05, 0.2415e-05, 0.2767e-05, &
0.2823e-05, 0.2551e-05, 0.1839e-05, 0.1314e-05, 0.1960e-05, &
0.4003e-05, 0.6909e-05, 0.1004e-04, 0.1273e-04, 0.1423e-04/
data ((o1(ip,iw),iw=1,21), ip= 1, 1)/ &
0.99999344, 0.99998689, 0.99997336, 0.99994606, 0.99989170, &
0.99978632, 0.99957907, 0.99918377, 0.99844402, 0.99712098, &
0.99489498, 0.99144602, 0.98655999, 0.98008001, 0.97165000, &
0.96043998, 0.94527000, 0.92462999, 0.89709997, 0.86180001, &
0.81800002/
data ((o2(ip,iw),iw=1,21), ip= 1, 1)/ &
0.6531e-10, 0.5926e-10, -0.1646e-09, -0.1454e-08, -0.7376e-08, &
-0.2968e-07, -0.1071e-06, -0.3584e-06, -0.1125e-05, -0.3289e-05, &
-0.8760e-05, -0.2070e-04, -0.4259e-04, -0.7691e-04, -0.1264e-03, &
-0.1957e-03, -0.2895e-03, -0.4107e-03, -0.5588e-03, -0.7300e-03, &
-0.9199e-03/
data ((o3(ip,iw),iw=1,21), ip= 1, 1)/ &
-0.2438e-10, -0.4826e-10, -0.9474e-10, -0.1828e-09, -0.3406e-09, &
-0.6223e-09, -0.1008e-08, -0.1412e-08, -0.1244e-08, 0.8485e-09, &
0.6343e-08, 0.1201e-07, 0.2838e-08, -0.4024e-07, -0.1257e-06, &
-0.2566e-06, -0.4298e-06, -0.6184e-06, -0.7657e-06, -0.8153e-06, &
-0.7552e-06/
data ((o1(ip,iw),iw=1,21), ip= 2, 2)/ &
0.99999344, 0.99998689, 0.99997348, 0.99994606, 0.99989170, &
0.99978632, 0.99957907, 0.99918377, 0.99844402, 0.99712098, &
0.99489498, 0.99144298, 0.98654997, 0.98006999, 0.97162998, &
0.96042001, 0.94520003, 0.92449999, 0.89690000, 0.86140001, &
0.81739998/
data ((o2(ip,iw),iw=1,21), ip= 2, 2)/ &
0.6193e-10, 0.5262e-10, -0.1774e-09, -0.1478e-08, -0.7416e-08, &
-0.2985e-07, -0.1071e-06, -0.3584e-06, -0.1124e-05, -0.3287e-05, &
-0.8753e-05, -0.2069e-04, -0.4256e-04, -0.7686e-04, -0.1264e-03, &
-0.1956e-03, -0.2893e-03, -0.4103e-03, -0.5580e-03, -0.7285e-03, &
-0.9171e-03/
data ((o3(ip,iw),iw=1,21), ip= 2, 2)/ &
-0.2436e-10, -0.4822e-10, -0.9466e-10, -0.1827e-09, -0.3404e-09, &
-0.6220e-09, -0.1008e-08, -0.1414e-08, -0.1247e-08, 0.8360e-09, &
0.6312e-08, 0.1194e-07, 0.2753e-08, -0.4040e-07, -0.1260e-06, &
-0.2571e-06, -0.4307e-06, -0.6202e-06, -0.7687e-06, -0.8204e-06, &
-0.7636e-06/
data ((o1(ip,iw),iw=1,21), ip= 3, 3)/ &
0.99999344, 0.99998689, 0.99997348, 0.99994606, 0.99989170, &
0.99978632, 0.99957907, 0.99918377, 0.99844402, 0.99712098, &
0.99489301, 0.99143898, 0.98654997, 0.98005998, 0.97158998, &
0.96035999, 0.94509000, 0.92431998, 0.89660001, 0.86080003, &
0.81639999/
data ((o2(ip,iw),iw=1,21), ip= 3, 3)/ &
0.5658e-10, 0.4212e-10, -0.1977e-09, -0.1516e-08, -0.7481e-08, &
-0.2995e-07, -0.1072e-06, -0.3583e-06, -0.1123e-05, -0.3283e-05, &
-0.8744e-05, -0.2067e-04, -0.4252e-04, -0.7679e-04, -0.1262e-03, &
-0.1953e-03, -0.2889e-03, -0.4096e-03, -0.5567e-03, -0.7263e-03, &
-0.9130e-03/
data ((o3(ip,iw),iw=1,21), ip= 3, 3)/ &
-0.2433e-10, -0.4815e-10, -0.9453e-10, -0.1825e-09, -0.3400e-09, &
-0.6215e-09, -0.1007e-08, -0.1415e-08, -0.1253e-08, 0.8143e-09, &
0.6269e-08, 0.1186e-07, 0.2604e-08, -0.4067e-07, -0.1264e-06, &
-0.2579e-06, -0.4321e-06, -0.6229e-06, -0.7732e-06, -0.8277e-06, &
-0.7752e-06/
data ((o1(ip,iw),iw=1,21), ip= 4, 4)/ &
0.99999344, 0.99998689, 0.99997348, 0.99994606, 0.99989200, &
0.99978632, 0.99957907, 0.99918377, 0.99844402, 0.99711901, &
0.99489301, 0.99143499, 0.98653001, 0.98003000, 0.97153997, &
0.96026999, 0.94493997, 0.92404002, 0.89609998, 0.85990000, &
0.81480002/
data ((o2(ip,iw),iw=1,21), ip= 4, 4)/ &
0.4814e-10, 0.2552e-10, -0.2298e-09, -0.1576e-08, -0.7579e-08, &
-0.3009e-07, -0.1074e-06, -0.3581e-06, -0.1122e-05, -0.3278e-05, &
-0.8729e-05, -0.2063e-04, -0.4245e-04, -0.7667e-04, -0.1260e-03, &
-0.1950e-03, -0.2883e-03, -0.4086e-03, -0.5549e-03, -0.7229e-03, &
-0.9071e-03/
data ((o3(ip,iw),iw=1,21), ip= 4, 4)/ &
-0.2428e-10, -0.4805e-10, -0.9433e-10, -0.1821e-09, -0.3394e-09, &
-0.6206e-09, -0.1008e-08, -0.1416e-08, -0.1261e-08, 0.7860e-09, &
0.6188e-08, 0.1171e-07, 0.2389e-08, -0.4109e-07, -0.1271e-06, &
-0.2591e-06, -0.4344e-06, -0.6267e-06, -0.7797e-06, -0.8378e-06, &
-0.7901e-06/
data ((o1(ip,iw),iw=1,21), ip= 5, 5)/ &
0.99999344, 0.99998689, 0.99997348, 0.99994606, 0.99989200, &
0.99978638, 0.99957907, 0.99918377, 0.99844402, 0.99711901, &
0.99488801, 0.99142599, 0.98650998, 0.97999001, 0.97148001, &
0.96011001, 0.94467002, 0.92356998, 0.89530003, 0.85860002, &
0.81250000/
data ((o2(ip,iw),iw=1,21), ip= 5, 5)/ &
0.3482e-10, -0.6492e-12, -0.2805e-09, -0.1671e-08, -0.7740e-08, &
-0.3032e-07, -0.1076e-06, -0.3582e-06, -0.1120e-05, -0.3270e-05, &
-0.8704e-05, -0.2058e-04, -0.4235e-04, -0.7649e-04, -0.1257e-03, &
-0.1945e-03, -0.2874e-03, -0.4070e-03, -0.5521e-03, -0.7181e-03, &
-0.8990e-03/
data ((o3(ip,iw),iw=1,21), ip= 5, 5)/ &
-0.2419e-10, -0.4788e-10, -0.9401e-10, -0.1815e-09, -0.3385e-09, &
-0.6192e-09, -0.1006e-08, -0.1417e-08, -0.1273e-08, 0.7404e-09, &
0.6068e-08, 0.1148e-07, 0.2021e-08, -0.4165e-07, -0.1281e-06, &
-0.2609e-06, -0.4375e-06, -0.6323e-06, -0.7887e-06, -0.8508e-06, &
-0.8067e-06/
data ((o1(ip,iw),iw=1,21), ip= 6, 6)/ &
0.99999344, 0.99998689, 0.99997348, 0.99994606, 0.99989200, &
0.99978638, 0.99957931, 0.99918377, 0.99844301, 0.99711698, &
0.99488401, 0.99141300, 0.98648000, 0.97992003, 0.97135001, &
0.95989001, 0.94428003, 0.92286998, 0.89410001, 0.85640001, &
0.80890000/
data ((o2(ip,iw),iw=1,21), ip= 6, 6)/ &
0.1388e-10, -0.4180e-10, -0.3601e-09, -0.1820e-08, -0.7993e-08, &
-0.3068e-07, -0.1081e-06, -0.3580e-06, -0.1117e-05, -0.3257e-05, &
-0.8667e-05, -0.2049e-04, -0.4218e-04, -0.7620e-04, -0.1253e-03, &
-0.1937e-03, -0.2860e-03, -0.4047e-03, -0.5481e-03, -0.7115e-03, &
-0.8885e-03/
data ((o3(ip,iw),iw=1,21), ip= 6, 6)/ &
-0.2406e-10, -0.4762e-10, -0.9351e-10, -0.1806e-09, -0.3370e-09, &
-0.6170e-09, -0.1004e-08, -0.1417e-08, -0.1297e-08, 0.6738e-09, &
0.5895e-08, 0.1113e-07, 0.1466e-08, -0.4265e-07, -0.1298e-06, &
-0.2636e-06, -0.4423e-06, -0.6402e-06, -0.8005e-06, -0.8658e-06, &
-0.8222e-06/
data ((o1(ip,iw),iw=1,21), ip= 7, 7)/ &
0.99999344, 0.99998689, 0.99997348, 0.99994630, 0.99989200, &
0.99978638, 0.99957931, 0.99918360, 0.99844301, 0.99711502, &
0.99487501, 0.99138802, 0.98642999, 0.97982001, 0.97114998, &
0.95954001, 0.94363999, 0.92176998, 0.89219999, 0.85329998, &
0.80379999/
data ((o2(ip,iw),iw=1,21), ip= 7, 7)/ &
-0.1889e-10, -0.1062e-09, -0.4847e-09, -0.2053e-08, -0.8389e-08, &
-0.3140e-07, -0.1089e-06, -0.3577e-06, -0.1112e-05, -0.3236e-05, &
-0.8607e-05, -0.2035e-04, -0.4192e-04, -0.7576e-04, -0.1245e-03, &
-0.1925e-03, -0.2840e-03, -0.4013e-03, -0.5427e-03, -0.7029e-03, &
-0.8756e-03/
data ((o3(ip,iw),iw=1,21), ip= 7, 7)/ &
-0.2385e-10, -0.4722e-10, -0.9273e-10, -0.1791e-09, -0.3348e-09, &
-0.6121e-09, -0.9974e-09, -0.1422e-08, -0.1326e-08, 0.5603e-09, &
0.5604e-08, 0.1061e-07, 0.6106e-09, -0.4398e-07, -0.1321e-06, &
-0.2676e-06, -0.4490e-06, -0.6507e-06, -0.8145e-06, -0.8801e-06, &
-0.8311e-06/
data ((o1(ip,iw),iw=1,21), ip= 8, 8)/ &
0.99999344, 0.99998689, 0.99997348, 0.99994630, 0.99989229, &
0.99978650, 0.99957931, 0.99918288, 0.99844098, 0.99711001, &
0.99486202, 0.99135500, 0.98635000, 0.97965997, 0.97083998, &
0.95898998, 0.94266999, 0.92009997, 0.88929999, 0.84860003, &
0.79640001/
data ((o2(ip,iw),iw=1,21), ip= 8, 8)/ &
-0.6983e-10, -0.2063e-09, -0.6785e-09, -0.2416e-08, -0.9000e-08, &
-0.3243e-07, -0.1100e-06, -0.3574e-06, -0.1104e-05, -0.3205e-05, &
-0.8516e-05, -0.2014e-04, -0.4151e-04, -0.7508e-04, -0.1234e-03, &
-0.1907e-03, -0.2811e-03, -0.3966e-03, -0.5355e-03, -0.6924e-03, &
-0.8613e-03/
data ((o3(ip,iw),iw=1,21), ip= 8, 8)/ &
-0.2353e-10, -0.4659e-10, -0.9153e-10, -0.1769e-09, -0.3313e-09, &
-0.6054e-09, -0.9899e-09, -0.1430e-08, -0.1375e-08, 0.3874e-09, &
0.5171e-08, 0.9807e-08, -0.7345e-09, -0.4604e-07, -0.1356e-06, &
-0.2731e-06, -0.4577e-06, -0.6632e-06, -0.8284e-06, -0.8894e-06, &
-0.8267e-06/
data ((o1(ip,iw),iw=1,21), ip= 9, 9)/ &
0.99999344, 0.99998689, 0.99997360, 0.99994630, 0.99989229, &
0.99978650, 0.99957961, 0.99918252, 0.99843901, 0.99710202, &
0.99484003, 0.99130303, 0.98623002, 0.97940999, 0.97038001, &
0.95815003, 0.94119000, 0.91755998, 0.88510001, 0.84189999, &
0.78610003/
data ((o2(ip,iw),iw=1,21), ip= 9, 9)/ &
-0.1481e-09, -0.3601e-09, -0.9762e-09, -0.2973e-08, -0.1014e-07, &
-0.3421e-07, -0.1121e-06, -0.3569e-06, -0.1092e-05, -0.3156e-05, &
-0.8375e-05, -0.1981e-04, -0.4090e-04, -0.7405e-04, -0.1218e-03, &
-0.1881e-03, -0.2770e-03, -0.3906e-03, -0.5269e-03, -0.6810e-03, &
-0.8471e-03/
data ((o3(ip,iw),iw=1,21), ip= 9, 9)/ &
-0.2304e-10, -0.4564e-10, -0.8969e-10, -0.1735e-09, -0.3224e-09, &
-0.5933e-09, -0.9756e-09, -0.1428e-08, -0.1446e-08, 0.1156e-09, &
0.4499e-08, 0.8469e-08, -0.2720e-08, -0.4904e-07, -0.1401e-06, &
-0.2801e-06, -0.4681e-06, -0.6761e-06, -0.8387e-06, -0.8879e-06, &
-0.8040e-06/
data ((o1(ip,iw),iw=1,21), ip=10,10)/ &
0.99999344, 0.99998689, 0.99997360, 0.99994630, 0.99989259, &
0.99978650, 0.99957931, 0.99918163, 0.99843597, 0.99709100, &
0.99480897, 0.99122101, 0.98604000, 0.97902000, 0.96965003, &
0.95684999, 0.93896997, 0.91386002, 0.87910002, 0.83249998, &
0.77200001/
data ((o2(ip,iw),iw=1,21), ip=10,10)/ &
-0.2661e-09, -0.5923e-09, -0.1426e-08, -0.3816e-08, -0.1159e-07, &
-0.3654e-07, -0.1143e-06, -0.3559e-06, -0.1074e-05, -0.3083e-05, &
-0.8159e-05, -0.1932e-04, -0.3998e-04, -0.7253e-04, -0.1194e-03, &
-0.1845e-03, -0.2718e-03, -0.3833e-03, -0.5176e-03, -0.6701e-03, &
-0.8354e-03/
data ((o3(ip,iw),iw=1,21), ip=10,10)/ &
-0.2232e-10, -0.4421e-10, -0.8695e-10, -0.1684e-09, -0.3141e-09, &
-0.5765e-09, -0.9606e-09, -0.1434e-08, -0.1551e-08, -0.2663e-09, &
0.3515e-08, 0.6549e-08, -0.5479e-08, -0.5312e-07, -0.1460e-06, &
-0.2883e-06, -0.4787e-06, -0.6863e-06, -0.8399e-06, -0.8703e-06, &
-0.7602e-06/
data ((o1(ip,iw),iw=1,21), ip=11,11)/ &
0.99999356, 0.99998701, 0.99997360, 0.99994630, 0.99989289, &
0.99978679, 0.99957907, 0.99917960, 0.99843001, 0.99707502, &
0.99475998, 0.99109501, 0.98575002, 0.97843999, 0.96855003, &
0.95494002, 0.93572998, 0.90853000, 0.87070000, 0.81970000, &
0.75380003/
data ((o2(ip,iw),iw=1,21), ip=11,11)/ &
-0.4394e-09, -0.9330e-09, -0.2086e-08, -0.5054e-08, -0.1373e-07, &
-0.3971e-07, -0.1178e-06, -0.3546e-06, -0.1049e-05, -0.2976e-05, &
-0.7847e-05, -0.1860e-04, -0.3864e-04, -0.7038e-04, -0.1162e-03, &
-0.1798e-03, -0.2654e-03, -0.3754e-03, -0.5091e-03, -0.6621e-03, &
-0.8286e-03/
data ((o3(ip,iw),iw=1,21), ip=11,11)/ &
-0.2127e-10, -0.4216e-10, -0.8300e-10, -0.1611e-09, -0.3019e-09, &
-0.5597e-09, -0.9431e-09, -0.1450e-08, -0.1694e-08, -0.7913e-09, &
0.2144e-08, 0.3990e-08, -0.9282e-08, -0.5810e-07, -0.1525e-06, &
-0.2965e-06, -0.4869e-06, -0.6894e-06, -0.8281e-06, -0.8350e-06, &
-0.6956e-06/
data ((o1(ip,iw),iw=1,21), ip=12,12)/ &
0.99999368, 0.99998701, 0.99997377, 0.99994630, 0.99989259, &
0.99978709, 0.99957848, 0.99917740, 0.99842203, 0.99704897, &
0.99468797, 0.99090999, 0.98532999, 0.97758001, 0.96693999, &
0.95213997, 0.93109000, 0.90110999, 0.85930002, 0.80290002, &
0.73019999/
data ((o2(ip,iw),iw=1,21), ip=12,12)/ &
-0.6829e-09, -0.1412e-08, -0.3014e-08, -0.6799e-08, -0.1675e-07, &
-0.4450e-07, -0.1235e-06, -0.3538e-06, -0.1014e-05, -0.2827e-05, &
-0.7407e-05, -0.1759e-04, -0.3676e-04, -0.6744e-04, -0.1120e-03, &
-0.1742e-03, -0.2585e-03, -0.3683e-03, -0.5034e-03, -0.6594e-03, &
-0.8290e-03/
data ((o3(ip,iw),iw=1,21), ip=12,12)/ &
-0.1985e-10, -0.3937e-10, -0.7761e-10, -0.1511e-09, -0.2855e-09, &
-0.5313e-09, -0.9251e-09, -0.1470e-08, -0.1898e-08, -0.1519e-08, &
0.2914e-09, 0.5675e-09, -0.1405e-07, -0.6359e-07, -0.1584e-06, &
-0.3020e-06, -0.4893e-06, -0.6821e-06, -0.8021e-06, -0.7834e-06, &
-0.6105e-06/
data ((o1(ip,iw),iw=1,21), ip=13,13)/ &
0.99999368, 0.99998701, 0.99997389, 0.99994695, 0.99989289, &
0.99978721, 0.99957782, 0.99917412, 0.99840999, 0.99701297, &
0.99458599, 0.99064600, 0.98471999, 0.97632003, 0.96464998, &
0.94819999, 0.92467999, 0.89109999, 0.84430003, 0.78139997, &
0.70070004/
data ((o2(ip,iw),iw=1,21), ip=13,13)/ &
-0.1004e-08, -0.2043e-08, -0.4239e-08, -0.9104e-08, -0.2075e-07, &
-0.5096e-07, -0.1307e-06, -0.3520e-06, -0.9671e-06, -0.2630e-05, &
-0.6825e-05, -0.1624e-04, -0.3429e-04, -0.6369e-04, -0.1069e-03, &
-0.1680e-03, -0.2520e-03, -0.3635e-03, -0.5029e-03, -0.6647e-03, &
-0.8390e-03/
data ((o3(ip,iw),iw=1,21), ip=13,13)/ &
-0.1807e-10, -0.3587e-10, -0.7085e-10, -0.1385e-09, -0.2648e-09, &
-0.4958e-09, -0.8900e-09, -0.1473e-08, -0.2112e-08, -0.2399e-08, &
-0.2002e-08, -0.3646e-08, -0.1931e-07, -0.6852e-07, -0.1618e-06, &
-0.3021e-06, -0.4828e-06, -0.6634e-06, -0.7643e-06, -0.7177e-06, &
-0.5054e-06/
data ((o1(ip,iw),iw=1,21), ip=14,14)/ &
0.99999368, 0.99998713, 0.99997389, 0.99994725, 0.99989289, &
0.99978679, 0.99957597, 0.99916971, 0.99839503, 0.99696702, &
0.99444997, 0.99028301, 0.98387003, 0.97457999, 0.96148002, &
0.94284999, 0.91613001, 0.87809998, 0.82520002, 0.75489998, &
0.66520000/
data ((o2(ip,iw),iw=1,21), ip=14,14)/ &
-0.1387e-08, -0.2798e-08, -0.5706e-08, -0.1187e-07, -0.2564e-07, &
-0.5866e-07, -0.1398e-06, -0.3516e-06, -0.9148e-06, -0.2398e-05, &
-0.6122e-05, -0.1459e-04, -0.3125e-04, -0.5923e-04, -0.1013e-03, &
-0.1620e-03, -0.2473e-03, -0.3631e-03, -0.5098e-03, -0.6800e-03, &
-0.8603e-03/
data ((o3(ip,iw),iw=1,21), ip=14,14)/ &
-0.1610e-10, -0.3200e-10, -0.6337e-10, -0.1245e-09, -0.2408e-09, &
-0.4533e-09, -0.8405e-09, -0.1464e-08, -0.2337e-08, -0.3341e-08, &
-0.4467e-08, -0.8154e-08, -0.2436e-07, -0.7128e-07, -0.1604e-06, &
-0.2945e-06, -0.4666e-06, -0.6357e-06, -0.7187e-06, -0.6419e-06, &
-0.3795e-06/
data ((o1(ip,iw),iw=1,21), ip=15,15)/ &
0.99999410, 0.99998724, 0.99997455, 0.99994725, 0.99989331, &
0.99978632, 0.99957472, 0.99916393, 0.99837703, 0.99690801, &
0.99427801, 0.98982000, 0.98277998, 0.97232002, 0.95731997, &
0.93585998, 0.90521002, 0.86180001, 0.80190003, 0.72290003, &
0.62380004/
data ((o2(ip,iw),iw=1,21), ip=15,15)/ &
-0.1788e-08, -0.3588e-08, -0.7244e-08, -0.1479e-07, -0.3083e-07, &
-0.6671e-07, -0.1497e-06, -0.3519e-06, -0.8607e-06, -0.2154e-05, &
-0.5364e-05, -0.1276e-04, -0.2785e-04, -0.5435e-04, -0.9573e-04, &
-0.1570e-03, -0.2455e-03, -0.3682e-03, -0.5253e-03, -0.7065e-03, &
-0.8938e-03/
data ((o3(ip,iw),iw=1,21), ip=15,15)/ &
-0.1429e-10, -0.2843e-10, -0.5645e-10, -0.1115e-09, -0.2181e-09, &
-0.4200e-09, -0.7916e-09, -0.1460e-08, -0.2542e-08, -0.4168e-08, &
-0.6703e-08, -0.1215e-07, -0.2821e-07, -0.7073e-07, -0.1530e-06, &
-0.2791e-06, -0.4426e-06, -0.6027e-06, -0.6707e-06, -0.5591e-06, &
-0.2328e-06/
data ((o1(ip,iw),iw=1,21), ip=16,16)/ &
0.99999434, 0.99998778, 0.99997467, 0.99994761, 0.99989331, &
0.99978602, 0.99957269, 0.99915779, 0.99835497, 0.99684399, &
0.99408400, 0.98929000, 0.98148000, 0.96954000, 0.95212001, &
0.92719001, 0.89170003, 0.84200001, 0.77420002, 0.68620002, &
0.57780004/
data ((o2(ip,iw),iw=1,21), ip=16,16)/ &
-0.2141e-08, -0.4286e-08, -0.8603e-08, -0.1737e-07, -0.3548e-07, &
-0.7410e-07, -0.1590e-06, -0.3537e-06, -0.8142e-06, -0.1935e-05, &
-0.4658e-05, -0.1099e-04, -0.2444e-04, -0.4948e-04, -0.9067e-04, &
-0.1538e-03, -0.2474e-03, -0.3793e-03, -0.5495e-03, -0.7439e-03, &
-0.9383e-03/
data ((o3(ip,iw),iw=1,21), ip=16,16)/ &
-0.1295e-10, -0.2581e-10, -0.5136e-10, -0.1019e-09, -0.2011e-09, &
-0.3916e-09, -0.7585e-09, -0.1439e-08, -0.2648e-08, -0.4747e-08, &
-0.8301e-08, -0.1499e-07, -0.3024e-07, -0.6702e-07, -0.1399e-06, &
-0.2564e-06, -0.4117e-06, -0.5669e-06, -0.6239e-06, -0.4748e-06, &
-0.7013e-07/
data ((o1(ip,iw),iw=1,21), ip=17,17)/ &
0.99999434, 0.99998778, 0.99997479, 0.99994791, 0.99989331, &
0.99978608, 0.99957120, 0.99915212, 0.99833500, 0.99677801, &
0.99388403, 0.98873001, 0.98005998, 0.96639001, 0.94606000, &
0.91689998, 0.87580001, 0.81889999, 0.74280000, 0.64559996, &
0.52869999/
data ((o2(ip,iw),iw=1,21), ip=17,17)/ &
-0.2400e-08, -0.4796e-08, -0.9599e-08, -0.1927e-07, -0.3892e-07, &
-0.7954e-07, -0.1661e-06, -0.3540e-06, -0.7780e-06, -0.1763e-05, &
-0.4092e-05, -0.9512e-05, -0.2142e-04, -0.4502e-04, -0.8640e-04, &
-0.1525e-03, -0.2526e-03, -0.3955e-03, -0.5805e-03, -0.7897e-03, &
-0.9899e-03/
data ((o3(ip,iw),iw=1,21), ip=17,17)/ &
-0.1220e-10, -0.2432e-10, -0.4845e-10, -0.9640e-10, -0.1912e-09, &
-0.3771e-09, -0.7392e-09, -0.1420e-08, -0.2702e-08, -0.5049e-08, &
-0.9214e-08, -0.1659e-07, -0.3101e-07, -0.6162e-07, -0.1235e-06, &
-0.2287e-06, -0.3755e-06, -0.5274e-06, -0.5790e-06, -0.3947e-06, &
0.1003e-06/
data ((o1(ip,iw),iw=1,21), ip=18,18)/ &
0.99999464, 0.99998808, 0.99997497, 0.99994791, 0.99989331, &
0.99978518, 0.99957031, 0.99914658, 0.99831802, 0.99671799, &
0.99370098, 0.98821002, 0.97867000, 0.96313000, 0.93948001, &
0.90534002, 0.85769999, 0.79310000, 0.70840001, 0.60290003, &
0.47930002/
data ((o2(ip,iw),iw=1,21), ip=18,18)/ &
-0.2557e-08, -0.5106e-08, -0.1020e-07, -0.2043e-07, -0.4103e-07, &
-0.8293e-07, -0.1697e-06, -0.3531e-06, -0.7531e-06, -0.1645e-05, &
-0.3690e-05, -0.8411e-05, -0.1902e-04, -0.4118e-04, -0.8276e-04, &
-0.1525e-03, -0.2601e-03, -0.4147e-03, -0.6149e-03, -0.8384e-03, &
-0.1042e-02/
data ((o3(ip,iw),iw=1,21), ip=18,18)/ &
-0.1189e-10, -0.2372e-10, -0.4729e-10, -0.9421e-10, -0.1873e-09, &
-0.3713e-09, -0.7317e-09, -0.1437e-08, -0.2764e-08, -0.5243e-08, &
-0.9691e-08, -0.1751e-07, -0.3122e-07, -0.5693e-07, -0.1076e-06, &
-0.1981e-06, -0.3324e-06, -0.4785e-06, -0.5280e-06, -0.3174e-06, &
0.2672e-06/
data ((o1(ip,iw),iw=1,21), ip=19,19)/ &
0.99999464, 0.99998820, 0.99997509, 0.99994779, 0.99989331, &
0.99978518, 0.99956989, 0.99914283, 0.99830401, 0.99667197, &
0.99355298, 0.98776001, 0.97741997, 0.96007001, 0.93285000, &
0.89310002, 0.83819997, 0.76520002, 0.67250001, 0.56000000, &
0.43199998/
data ((o2(ip,iw),iw=1,21), ip=19,19)/ &
-0.2630e-08, -0.5249e-08, -0.1048e-07, -0.2096e-07, -0.4198e-07, &
-0.8440e-07, -0.1710e-06, -0.3513e-06, -0.7326e-06, -0.1562e-05, &
-0.3416e-05, -0.7637e-05, -0.1719e-04, -0.3795e-04, -0.7926e-04, &
-0.1524e-03, -0.2680e-03, -0.4344e-03, -0.6486e-03, -0.8838e-03, &
-0.1089e-02/
data ((o3(ip,iw),iw=1,21), ip=19,19)/ &
-0.1188e-10, -0.2369e-10, -0.4725e-10, -0.9417e-10, -0.1875e-09, &
-0.3725e-09, -0.7365e-09, -0.1445e-08, -0.2814e-08, -0.5384e-08, &
-0.1008e-07, -0.1816e-07, -0.3179e-07, -0.5453e-07, -0.9500e-07, &
-0.1679e-06, -0.2819e-06, -0.4109e-06, -0.4555e-06, -0.2283e-06, &
0.4283e-06/
data ((o1(ip,iw),iw=1,21), ip=20,20)/ &
0.99999487, 0.99998832, 0.99997520, 0.99994791, 0.99989331, &
0.99978459, 0.99956900, 0.99913990, 0.99829400, 0.99663699, &
0.99344099, 0.98741001, 0.97643000, 0.95743001, 0.92672002, &
0.88099998, 0.81809998, 0.73660004, 0.63620001, 0.51880002, &
0.38880002/
data ((o2(ip,iw),iw=1,21), ip=20,20)/ &
-0.2651e-08, -0.5291e-08, -0.1056e-07, -0.2110e-07, -0.4221e-07, &
-0.8462e-07, -0.1705e-06, -0.3466e-06, -0.7155e-06, -0.1501e-05, &
-0.3223e-05, -0.7079e-05, -0.1581e-04, -0.3517e-04, -0.7553e-04, &
-0.1510e-03, -0.2746e-03, -0.4528e-03, -0.6789e-03, -0.9214e-03, &
-0.1124e-02/
data ((o3(ip,iw),iw=1,21), ip=20,20)/ &
-0.1193e-10, -0.2380e-10, -0.4748e-10, -0.9465e-10, -0.1886e-09, &
-0.3751e-09, -0.7436e-09, -0.1466e-08, -0.2872e-08, -0.5508e-08, &
-0.1038e-07, -0.1891e-07, -0.3279e-07, -0.5420e-07, -0.8711e-07, &
-0.1403e-06, -0.2248e-06, -0.3221e-06, -0.3459e-06, -0.1066e-06, &
0.5938e-06/
data ((o1(ip,iw),iw=1,21), ip=21,21)/ &
0.99999487, 0.99998873, 0.99997509, 0.99994779, 0.99989349, &
0.99978501, 0.99956918, 0.99913877, 0.99828798, 0.99661303, &
0.99335998, 0.98715001, 0.97566003, 0.95530999, 0.92153001, &
0.87000000, 0.79869998, 0.70819998, 0.60109997, 0.48110002, &
0.35140002/
data ((o2(ip,iw),iw=1,21), ip=21,21)/ &
-0.2654e-08, -0.5296e-08, -0.1057e-07, -0.2111e-07, -0.4219e-07, &
-0.8445e-07, -0.1696e-06, -0.3428e-06, -0.7013e-06, -0.1458e-05, &
-0.3084e-05, -0.6678e-05, -0.1476e-04, -0.3284e-04, -0.7173e-04, &
-0.1481e-03, -0.2786e-03, -0.4688e-03, -0.7052e-03, -0.9506e-03, &
-0.1148e-02/
data ((o3(ip,iw),iw=1,21), ip=21,21)/ &
-0.1195e-10, -0.2384e-10, -0.4755e-10, -0.9482e-10, -0.1890e-09, &
-0.3761e-09, -0.7469e-09, -0.1476e-08, -0.2892e-08, -0.5603e-08, &
-0.1060e-07, -0.1942e-07, -0.3393e-07, -0.5508e-07, -0.8290e-07, &
-0.1182e-06, -0.1657e-06, -0.2170e-06, -0.1997e-06, 0.6227e-07, &
0.7847e-06/
data ((o1(ip,iw),iw=1,21), ip=22,22)/ &
0.99999541, 0.99998873, 0.99997497, 0.99994737, 0.99989349, &
0.99978501, 0.99956882, 0.99913770, 0.99828303, 0.99659699, &
0.99330199, 0.98697001, 0.97510999, 0.95372999, 0.91742998, &
0.86080003, 0.78139997, 0.68220001, 0.56920004, 0.44809997, &
0.32080001/
data ((o2(ip,iw),iw=1,21), ip=22,22)/ &
-0.2653e-08, -0.5295e-08, -0.1057e-07, -0.2110e-07, -0.4215e-07, &
-0.8430e-07, -0.1690e-06, -0.3403e-06, -0.6919e-06, -0.1427e-05, &
-0.2991e-05, -0.6399e-05, -0.1398e-04, -0.3099e-04, -0.6824e-04, &
-0.1441e-03, -0.2795e-03, -0.4814e-03, -0.7282e-03, -0.9739e-03, &
-0.1163e-02/
data ((o3(ip,iw),iw=1,21), ip=22,22)/ &
-0.1195e-10, -0.2384e-10, -0.4756e-10, -0.9485e-10, -0.1891e-09, &
-0.3765e-09, -0.7483e-09, -0.1481e-08, -0.2908e-08, -0.5660e-08, &
-0.1075e-07, -0.1980e-07, -0.3472e-07, -0.5626e-07, -0.8149e-07, &
-0.1027e-06, -0.1136e-06, -0.1071e-06, -0.2991e-07, 0.2743e-06, &
0.1017e-05/
data ((o1(ip,iw),iw=1,21), ip=23,23)/ &
0.99999595, 0.99998885, 0.99997479, 0.99994725, 0.99989331, &
0.99978518, 0.99956882, 0.99913692, 0.99827999, 0.99658602, &
0.99326497, 0.98685002, 0.97474003, 0.95260000, 0.91441000, &
0.85360003, 0.76719999, 0.65990001, 0.54190004, 0.42119998, &
0.29699999/
data ((o2(ip,iw),iw=1,21), ip=23,23)/ &
-0.2653e-08, -0.5294e-08, -0.1057e-07, -0.2109e-07, -0.4212e-07, &
-0.8420e-07, -0.1686e-06, -0.3388e-06, -0.6858e-06, -0.1406e-05, &
-0.2928e-05, -0.6206e-05, -0.1344e-04, -0.2961e-04, -0.6533e-04, &
-0.1399e-03, -0.2780e-03, -0.4904e-03, -0.7488e-03, -0.9953e-03, &
-0.1175e-02/
data ((o3(ip,iw),iw=1,21), ip=23,23)/ &
-0.1195e-10, -0.2384e-10, -0.4756e-10, -0.9485e-10, -0.1891e-09, &
-0.3767e-09, -0.7492e-09, -0.1485e-08, -0.2924e-08, -0.5671e-08, &
-0.1084e-07, -0.2009e-07, -0.3549e-07, -0.5773e-07, -0.8208e-07, &
-0.9394e-07, -0.7270e-07, -0.3947e-08, 0.1456e-06, 0.5083e-06, &
0.1270e-05/
data ((o1(ip,iw),iw=1,21), ip=24,24)/ &
0.99999630, 0.99998873, 0.99997401, 0.99994725, 0.99989349, &
0.99978501, 0.99956959, 0.99913663, 0.99827701, 0.99658000, &
0.99324101, 0.98676997, 0.97447002, 0.95185000, 0.91232002, &
0.84850001, 0.75660002, 0.64230001, 0.52030003, 0.40090001, &
0.27980000/
data ((o2(ip,iw),iw=1,21), ip=24,24)/ &
-0.2653e-08, -0.5294e-08, -0.1056e-07, -0.2109e-07, -0.4210e-07, &
-0.8413e-07, -0.1684e-06, -0.3379e-06, -0.6820e-06, -0.1393e-05, &
-0.2889e-05, -0.6080e-05, -0.1307e-04, -0.2861e-04, -0.6310e-04, &
-0.1363e-03, -0.2758e-03, -0.4969e-03, -0.7681e-03, -0.1017e-02, &
-0.1186e-02/
data ((o3(ip,iw),iw=1,21), ip=24,24)/ &
-0.1195e-10, -0.2384e-10, -0.4756e-10, -0.9485e-10, -0.1891e-09, &
-0.3768e-09, -0.7497e-09, -0.1487e-08, -0.2933e-08, -0.5710e-08, &
-0.1089e-07, -0.2037e-07, -0.3616e-07, -0.5907e-07, -0.8351e-07, &
-0.8925e-07, -0.4122e-07, 0.8779e-07, 0.3143e-06, 0.7281e-06, &
0.1500e-05/
data ((o1(ip,iw),iw=1,21), ip=25,25)/ &
0.99999648, 0.99998897, 0.99997377, 0.99994749, 0.99989331, &
0.99978501, 0.99956989, 0.99913692, 0.99827600, 0.99657297, &
0.99322498, 0.98672003, 0.97431999, 0.95137000, 0.91095001, &
0.84500003, 0.74909997, 0.62979996, 0.50510001, 0.38679999, &
0.26789999/
data ((o2(ip,iw),iw=1,21), ip=25,25)/ &
-0.2653e-08, -0.5293e-08, -0.1056e-07, -0.2108e-07, -0.4209e-07, &
-0.8409e-07, -0.1682e-06, -0.3373e-06, -0.6797e-06, -0.1383e-05, &
-0.2862e-05, -0.5993e-05, -0.1283e-04, -0.2795e-04, -0.6158e-04, &
-0.1338e-03, -0.2743e-03, -0.5030e-03, -0.7863e-03, -0.1038e-02, &
-0.1196e-02/
data ((o3(ip,iw),iw=1,21), ip=25,25)/ &
-0.1195e-10, -0.2383e-10, -0.4755e-10, -0.9484e-10, -0.1891e-09, &
-0.3768e-09, -0.7499e-09, -0.1489e-08, -0.2939e-08, -0.5741e-08, &
-0.1100e-07, -0.2066e-07, -0.3660e-07, -0.6002e-07, -0.8431e-07, &
-0.8556e-07, -0.1674e-07, 0.1638e-06, 0.4525e-06, 0.8949e-06, &
0.1669e-05/
data ((o1(ip,iw),iw=1,21), ip=26,26)/ &
0.99999672, 0.99998909, 0.99997377, 0.99994695, 0.99989349, &
0.99978518, 0.99956989, 0.99913692, 0.99827498, 0.99657100, &
0.99321902, 0.98668998, 0.97421002, 0.95106000, 0.91009998, &
0.84280002, 0.74430001, 0.62180001, 0.49519998, 0.37800002, &
0.25999999/
data ((o2(ip,iw),iw=1,21), ip=26,26)/ &
-0.2652e-08, -0.5292e-08, -0.1056e-07, -0.2108e-07, -0.4208e-07, &
-0.8406e-07, -0.1681e-06, -0.3369e-06, -0.6784e-06, -0.1378e-05, &
-0.2843e-05, -0.5944e-05, -0.1269e-04, -0.2759e-04, -0.6078e-04, &
-0.1326e-03, -0.2742e-03, -0.5088e-03, -0.8013e-03, -0.1054e-02, &
-0.1202e-02/
data ((o3(ip,iw),iw=1,21), ip=26,26)/ &
-0.1194e-10, -0.2383e-10, -0.4754e-10, -0.9482e-10, -0.1891e-09, &
-0.3768e-09, -0.7499e-09, -0.1489e-08, -0.2941e-08, -0.5752e-08, &
-0.1104e-07, -0.2069e-07, -0.3661e-07, -0.6012e-07, -0.8399e-07, &
-0.8183e-07, 0.1930e-08, 0.2167e-06, 0.5434e-06, 0.9990e-06, &
0.1787e-05/
!xp
! allocate(pa(m,np))
! allocate(dt(m,np))
! allocate(sh2o(m,np+1))
! allocate(swpre(m,np+1))
! allocate(swtem(m,np+1))
! allocate(sco3(m,np+1))
! allocate(scopre(m,np+1))
! allocate(scotem(m,np+1))
! allocate(dh2o(m,np))
! allocate(dcont(m,np))
! allocate(dco2(m,np))
! allocate(do3(m,np))
! allocate(dn2o(m,np))
! allocate(dch4(m,np))
! allocate(df11(m,np))
! allocate(df12(m,np))
! allocate(df22(m,np))
! allocate(th2o(m,6))
! allocate(tcon(m,3))
! allocate(tco2(m,6,2))
! allocate(tn2o(m,4))
! allocate(tch4(m,4))
! allocate(tcom(m,6))
! allocate(tf11(m))
! allocate(tf12(m))
! allocate(tf22(m))
! allocate(h2oexp(m,np,6))
! allocate(conexp(m,np,3))
! allocate(co2exp(m,np,6,2))
! allocate(n2oexp(m,np,4))
! allocate(ch4exp(m,np,4))
! allocate(comexp(m,np,6))
! allocate(f11exp(m,np))
! allocate(f12exp(m,np))
! allocate(f22exp(m,np))
! allocate(blayer(m,0:np+1))
! allocate(blevel(m,np+1))
! allocate(dblayr(m,np+1))
! allocate(dbs(m))
! allocate(dp(m,np))
! allocate(cwp(m,np,3))
! allocate(trant(m))
! allocate(tranal(m))
! allocate(transfc(m,np+1))
! allocate(trantcr(m,np+1))
! allocate(flxu(m,np+1))
! allocate(flxd(m,np+1))
! allocate(flcu(m,np+1))
! allocate(flcd(m,np+1))
! allocate(rflx(m,np+1))
! allocate(rflc(m,np+1))
! allocate(it(m))
! allocate(im(m))
! allocate(ib(m))
! allocate(cldhi(m))
! allocate(cldmd(m))
! allocate(cldlw(m))
! allocate(tcldlyr(m,np))
! allocate(fclr(m))
! allocate(taerlyr(m,np))
!-----compute layer pressure (pa) and layer temperature minus 250k (dt)
do k=1,np
do i=1,m
pa(i,k)=0.5*(pl(i,k)+pl(i,k+1))
dt(i,k)=ta(i,k)-250.0
enddo
enddo
!-----compute layer absorber amount
! dh2o : water vapor amount (g/cm**2)
! dcont: scaled water vapor amount for continuum absorption
! (g/cm**2)
! dco2 : co2 amount (cm-atm)stp
! do3 : o3 amount (cm-atm)stp
! dn2o : n2o amount (cm-atm)stp
! dch4 : ch4 amount (cm-atm)stp
! df11 : cfc11 amount (cm-atm)stp
! df12 : cfc12 amount (cm-atm)stp
! df22 : cfc22 amount (cm-atm)stp
! the factor 1.02 is equal to 1000/980
! factors 789 and 476 are for unit conversion
! the factor 0.001618 is equal to 1.02/(.622*1013.25)
! the factor 6.081 is equal to 1800/296
do k=1,np
do i=1,m
dp (i,k) = pl(i,k+1)-pl(i,k)
dh2o (i,k) = 1.02*wa(i,k)*dp(i,k)+1.e-10
do3 (i,k) = 476.*oa(i,k)*dp(i,k)+1.e-10
dco2 (i,k) = 789.*co2*dp(i,k)+1.e-10
dch4 (i,k) = 789.*ch4*dp(i,k)+1.e-10
dn2o (i,k) = 789.*n2o*dp(i,k)+1.e-10
df11 (i,k) = 789.*cfc11*dp(i,k)+1.e-10
df12 (i,k) = 789.*cfc12*dp(i,k)+1.e-10
df22 (i,k) = 789.*cfc22*dp(i,k)+1.e-10
!-----compute scaled water vapor amount for h2o continuum absorption
! following eq. (4.21).
xx=pa(i,k)*0.001618*wa(i,k)*wa(i,k)*dp(i,k)
dcont(i,k) = xx*exp(1800./ta(i,k)-6.081)+1.e-10
enddo
enddo
!-----compute column-integrated h2o amoumt (sh2o), h2o-weighted pressure
! (swpre) and temperature (swtem). it follows eqs. (4.13) and (4.14).
if (high) then
call column
(m,np,pa,dt,dh2o,sh2o,swpre,swtem)
endif
!-----compute layer cloud water amount (gm/m**2)
! index is 1 for ice, 2 for waterdrops and 3 for raindrops.
if (cldwater) then
do k=1,np
do i=1,m
xx=1.02*10000.*(pl(i,k+1)-pl(i,k))
cwp(i,k,1)=xx*cwc(i,k,1)
cwp(i,k,2)=xx*cwc(i,k,2)
cwp(i,k,3)=xx*cwc(i,k,3)
enddo
enddo
endif
!-----the surface (np+1) is treated as a layer filled with black clouds.
! transfc is the transmttance between the surface and a pressure level.
! trantcr is the clear-sky transmttance between the surface and a
! pressure level.
do i=1,m
sfcem(i) =0.0
transfc(i,np+1)=1.0
trantcr(i,np+1)=1.0
enddo
!-----initialize fluxes
do k=1,np+1
do i=1,m
flx(i,k) = 0.0
flc(i,k) = 0.0
dfdts(i,k)= 0.0
rflx(i,k) = 0.0
rflc(i,k) = 0.0
acflxu(i,k) = 0.0
acflxd(i,k) = 0.0
enddo
enddo
!-----integration over spectral bands
do 1000 ibn=1,ib_lw
!-----if h2otbl, compute h2o (line) transmittance using table look-up.
! if conbnd, compute h2o (continuum) transmittance in bands 3-7.
! if co2bnd, compute co2 transmittance in band 3.
! if oznbnd, compute o3 transmittance in band 5.
! if n2obnd, compute n2o transmittance in bands 6 and 7.
! if ch4bnd, compute ch4 transmittance in bands 6 and 7.
! if combnd, compute co2-minor transmittance in bands 4 and 5.
! if f11bnd, compute cfc11 transmittance in bands 4 and 5.
! if f12bnd, compute cfc12 transmittance in bands 4 and 6.
! if f22bnd, compute cfc22 transmittance in bands 4 and 6.
! if b10bnd, compute flux reduction due to n2o in band 10.
h2otbl=high.and.(ibn.eq.1.or.ibn.eq.2.or.ibn.eq.8)
conbnd=ibn.ge.3.and.ibn.le.7
co2bnd=ibn.eq.3
oznbnd=ibn.eq.5
n2obnd=ibn.eq.6.or.ibn.eq.7
ch4bnd=ibn.eq.6.or.ibn.eq.7
combnd=ibn.eq.4.or.ibn.eq.5
f11bnd=ibn.eq.4.or.ibn.eq.5
f12bnd=ibn.eq.4.or.ibn.eq.6
f22bnd=ibn.eq.4.or.ibn.eq.6
b10bnd=ibn.eq.10
if (.not. b10bnd .or. trace) then ! skip b10 and .not.trace
!-----blayer is the spectrally integrated planck flux of the mean layer
! temperature derived from eq. (3.11)
! the fitting for the planck flux is valid for the range 160-345 k.
do k=1,np
do i=1,m
blayer(i,k)=ta(i,k)*(ta(i,k)*(ta(i,k)*(ta(i,k) &
*(ta(i,k)*cb(6,ibn)+cb(5,ibn))+cb(4,ibn)) &
+cb(3,ibn))+cb(2,ibn))+cb(1,ibn)
enddo
enddo
do i=1,m
!-----the earth's surface, with index "np+1", is treated as a layer.
! index "0" is the layer above the top of the atmosphere.
blayer(i,np+1)=(ts(i)*(ts(i)*(ts(i)*(ts(i) &
*(ts(i)*cb(6,ibn)+cb(5,ibn))+cb(4,ibn)) &
+cb(3,ibn))+cb(2,ibn))+cb(1,ibn))*emiss(i,ibn)
blayer(i,0) = 0.0
!-----dbs is the derivative of the surface emission with respect to
! surface temperature eq. (3.12).
dbs(i)=(ts(i)*(ts(i)*(ts(i)*(ts(i)*5.*cb(6,ibn)+4.*cb(5,ibn)) &
+3.*cb(4,ibn))+2.*cb(3,ibn))+cb(2,ibn))*emiss(i,ibn)
enddo
!-----difference in planck functions between adjacent layers.
do k=1,np+1
do i=1,m
dblayr(i,k)=blayer(i,k-1)-blayer(i,k)
enddo
enddo
!------interpolate planck function at model levels
do k=2,np
do i=1,m
blevel(i,k)=(blayer(i,k-1)*dp(i,k)+blayer(i,k)*dp(i,k-1))/ &
(dp(i,k-1)+dp(i,k))
enddo
enddo
do i=1,m
blevel(i,1)=blayer(i,1)+(blayer(i,1)-blayer(i,2))*dp(i,1)/ &
(dp(i,1)+dp(i,2))
blevel(i,np+1)=tb(i)*(tb(i)*(tb(i)*(tb(i) &
*(tb(i)*cb(6,ibn)+cb(5,ibn))+cb(4,ibn)) &
+cb(3,ibn))+cb(2,ibn))+cb(1,ibn)
enddo
!-----compute column-integrated absorber amoumt, absorber-weighted
! pressure and temperature for co2 (band 3) and o3 (band 5).
! it follows eqs. (4.13) and (4.14).
!-----this is in the band loop to save storage
if (high .and. co2bnd) then
call column
(m,np,pa,dt,dco2,sco3,scopre,scotem)
endif
if (oznbnd) then
call column
(m,np,pa,dt,do3,sco3,scopre,scotem)
endif
!-----compute cloud optical thickness following eqs. (6.4a,b) and (6.7)
! rain optical thickness is set to 0.00307 /(gm/m**2).
! it is for a specific drop size distribution provided by q. fu.
if (cldwater) then
do k=1,np
do i=1,m
taucl(i,k,1)=cwp(i,k,1)*(aib(1,ibn)+aib(2,ibn)/ &
reff(i,k,1)**aib(3,ibn))
taucl(i,k,2)=cwp(i,k,2)*(awb(1,ibn)+(awb(2,ibn)+ &
(awb(3,ibn)+awb(4,ibn)*reff(i,k,2))*reff(i,k,2)) &
*reff(i,k,2))
taucl(i,k,3)=0.00307*cwp(i,k,3)
enddo
enddo
endif
!-----compute cloud single-scattering albedo and asymmetry factor for
! a mixture of ice particles and liquid drops following
! eqs. (6.5), (6.6), (6.11) and (6.12).
! single-scattering albedo and asymmetry factor of rain are set
! to 0.54 and 0.95, respectively, based on the information provided
! by prof. qiang fu.
do k=1,np
do i=1,m
tcldlyr(i,k) = 1.0
taux=taucl(i,k,1)+taucl(i,k,2)+taucl(i,k,3)
if (taux.gt.0.02 .and. fcld(i,k).gt.0.01) then
reff1=min(reff(i,k,1),150._fp_kind)
reff2=min(reff(i,k,2),20.0_fp_kind)
w1=taucl(i,k,1)*(aiw(1,ibn)+(aiw(2,ibn)+(aiw(3,ibn) &
+aiw(4,ibn)*reff1)*reff1)*reff1)
w2=taucl(i,k,2)*(aww(1,ibn)+(aww(2,ibn)+(aww(3,ibn) &
+aww(4,ibn)*reff2)*reff2)*reff2)
w3=taucl(i,k,3)*0.54
ww=(w1+w2+w3)/taux
g1=w1*(aig(1,ibn)+(aig(2,ibn)+(aig(3,ibn) &
+aig(4,ibn)*reff1)*reff1)*reff1)
g2=w2*(awg(1,ibn)+(awg(2,ibn)+(awg(3,ibn) &
+awg(4,ibn)*reff2)*reff2)*reff2)
g3=w3*0.95
gg=(g1+g2+g3)/(w1+w2+w3)
!-----parameterization of lw scattering following eqs. (6.8) and (6.9).
ff=0.5+(0.3739+(0.0076+0.1185*gg)*gg)*gg
taux=taux*(1.-ww*ff)
!-----compute cloud diffuse transmittance. it is approximated by using
! a diffusivity factor of 1.66.
tauxa=max(0._fp_kind,1.66*taux)
tcldlyr(i,k)=0.
if(tauxa.lt.80.)tcldlyr(i,k)=exp(-tauxa)
endif
enddo
enddo
!-----for aerosol diffuse transmittance
! the same scaling of cloud optical thickness is applied to aerosols
do k=1,np
do i=1,m
taerlyr(i,k)=1.0
if (taual(i,k,ibn).gt.0.01) then
ff=0.5+(0.3739+(0.0076+0.1185*asyal(i,k,ibn)) &
*asyal(i,k,ibn))*asyal(i,k,ibn)
taux=taual(i,k,ibn)*(1.-ssaal(i,k,ibn)*ff)
taerlyr(i,k)=exp(-1.66*taux)
endif
enddo
enddo
!-----compute the exponential terms (eq. 8.18) at each layer due to
! water vapor line absorption when k-distribution is used
if (.not.h2otbl .and. .not.b10bnd) then
call h2oexps
(ibn,m,np,dh2o,pa,dt,xkw,aw,bw,pm,mw,h2oexp)
endif
!-----compute the exponential terms (eq. 8.18) at each layer due to
! water vapor continuum absorption
if (conbnd) then
call conexps
(ibn,m,np,dcont,xke,conexp)
endif
!-----compute the exponential terms (eq. 8.18) at each layer due to
! co2 absorption
if (.not.high .and. co2bnd) then
call co2exps
(m,np,dco2,pa,dt,co2exp)
endif
!***** for trace gases *****
if (trace) then
!-----compute the exponential terms at each layer due to n2o absorption
if (n2obnd) then
call n2oexps
(ibn,m,np,dn2o,pa,dt,n2oexp)
endif
!-----compute the exponential terms at each layer due to ch4 absorption
if (ch4bnd) then
call ch4exps
(ibn,m,np,dch4,pa,dt,ch4exp)
endif
!-----compute the exponential terms due to co2 minor absorption
if (combnd) then
call comexps
(ibn,m,np,dco2,dt,comexp)
endif
!-----compute the exponential terms due to cfc11 absorption.
! the values of the parameters are given in table 7.
if (f11bnd) then
a1 = 1.26610e-3
b1 = 3.55940e-6
fk1 = 1.89736e+1
a2 = 8.19370e-4
b2 = 4.67810e-6
fk2 = 1.01487e+1
call cfcexps
(ibn,m,np,a1,b1,fk1,a2,b2,fk2,df11,dt,f11exp)
endif
!-----compute the exponential terms due to cfc12 absorption.
if (f12bnd) then
a1 = 8.77370e-4
b1 =-5.88440e-6
fk1 = 1.58104e+1
a2 = 8.62000e-4
b2 =-4.22500e-6
fk2 = 3.70107e+1
call cfcexps
(ibn,m,np,a1,b1,fk1,a2,b2,fk2,df12,dt,f12exp)
endif
!-----compute the exponential terms due to cfc22 absorption.
if (f22bnd) then
a1 = 9.65130e-4
b1 = 1.31280e-5
fk1 = 6.18536e+0
a2 =-3.00010e-5
b2 = 5.25010e-7
fk2 = 3.27912e+1
call cfcexps
(ibn,m,np,a1,b1,fk1,a2,b2,fk2,df22,dt,f22exp)
endif
!-----compute the exponential terms at each layer in band 10 due to
! h2o line and continuum, co2, and n2o absorption
if (b10bnd) then
call b10exps
(m,np,dh2o,dcont,dco2,dn2o,pa,dt &
,h2oexp,conexp,co2exp,n2oexp)
endif
endif
!-----compute transmittances for regions between levels k1 and k2
! and update fluxes at the two levels.
!-----initialize fluxes
do k=1,np+1
do i=1,m
flxu(i,k) = 0.0
flxd(i,k) = 0.0
flcu(i,k) = 0.0
flcd(i,k) = 0.0
enddo
enddo
do 2000 k1=1,np
!-----initialization
!
! it, im, and ib are the numbers of cloudy layers in the high,
! middle, and low cloud groups between levels k1 and k2.
! cldlw, cldmd, and cldhi are the equivalent black-cloud fractions
! of low, middle, and high troposphere.
! tranal is the aerosol transmission function
do i=1,m
it(i) = 0
im(i) = 0
ib(i) = 0
cldlw(i) = 0.0
cldmd(i) = 0.0
cldhi(i) = 0.0
tranal(i)= 1.0
enddo
!-----for h2o line transmission
if (.not. h2otbl) then
do ik=1,6
do i=1,m
th2o(i,ik)=1.0
enddo
enddo
endif
!-----for h2o continuum transmission
do iq=1,3
do i=1,m
tcon(i,iq)=1.0
enddo
enddo
!-----for co2 transmission using k-distribution method.
! band 3 is divided into 3 sub-bands, but sub-bands 3a and 3c
! are combined in computing the co2 transmittance.
if (.not.high .and. co2bnd) then
do isb=1,2
do ik=1,6
do i=1,m
tco2(i,ik,isb)=1.0
enddo
enddo
enddo
endif
!***** for trace gases *****
if (trace) then
!-----for n2o transmission using k-distribution method.
if (n2obnd) then
do ik=1,4
do i=1,m
tn2o(i,ik)=1.0
enddo
enddo
endif
!-----for ch4 transmission using k-distribution method.
if (ch4bnd) then
do ik=1,4
do i=1,m
tch4(i,ik)=1.0
enddo
enddo
endif
!-----for co2-minor transmission using k-distribution method.
if (combnd) then
do ik=1,6
do i=1,m
tcom(i,ik)=1.0
enddo
enddo
endif
!-----for cfc-11 transmission using k-distribution method.
if (f11bnd) then
do i=1,m
tf11(i)=1.0
enddo
endif
!-----for cfc-12 transmission using k-distribution method.
if (f12bnd) then
do i=1,m
tf12(i)=1.0
enddo
endif
!-----for cfc-22 transmission when using k-distribution method.
if (f22bnd) then
do i=1,m
tf22(i)=1.0
enddo
endif
!-----for the transmission in band 10 using k-distribution method.
if (b10bnd) then
do ik=1,5
do i=1,m
th2o(i,ik)=1.0
enddo
enddo
do ik=1,6
do i=1,m
tco2(i,ik,1)=1.0
enddo
enddo
do i=1,m
tcon(i,1)=1.0
enddo
do ik=1,2
do i=1,m
tn2o(i,ik)=1.0
enddo
enddo
endif
endif
!***** end trace gases *****
do i=1,m
fclr(i)=1.0
enddo
!-----loop over the bottom level of the region (k2)
do 3000 k2=k1+1,np+1
!-----trant is the total transmittance between levels k1 and k2.
do i=1,m
trant(i)=1.0
enddo
if (h2otbl) then
!-----compute water vapor transmittance using table look-up.
! the following values are taken from table 8.
w1=-8.0
p1=-2.0
dwe=0.3
dpe=0.2
if (ibn.eq.1) then
call tablup
(k1,k2,m,np,nx2,nh,sh2o,swpre,swtem, &
w1,p1,dwe,dpe,h11,h12,h13,trant)
endif
if (ibn.eq.2) then
call tablup
(k1,k2,m,np,nx2,nh,sh2o,swpre,swtem, &
w1,p1,dwe,dpe,h21,h22,h23,trant)
endif
if (ibn.eq.8) then
call tablup
(k1,k2,m,np,nx2,nh,sh2o,swpre,swtem, &
w1,p1,dwe,dpe,h81,h82,h83,trant)
endif
else
!-----compute water vapor transmittance using k-distribution
if (.not.b10bnd) then
call h2okdis
(ibn,m,np,k2-1,fkw,gkw,ne,h2oexp,conexp, &
th2o,tcon,trant)
endif
endif
if (co2bnd) then
if (high) then
!-----compute co2 transmittance using table look-up method.
! the following values are taken from table 8.
w1=-4.0
p1=-2.0
dwe=0.3
dpe=0.2
call tablup
(k1,k2,m,np,nx2,nc,sco3,scopre,scotem, &
w1,p1,dwe,dpe,c1,c2,c3,trant)
else
!-----compute co2 transmittance using k-distribution method
call co2kdis
(m,np,k2-1,co2exp,tco2,trant)
endif
endif
!-----always use table look-up to compute o3 transmittance.
! the following values are taken from table 8.
if (oznbnd) then
w1=-6.0
p1=-2.0
dwe=0.3
dpe=0.2
call tablup
(k1,k2,m,np,nx2,no,sco3,scopre,scotem, &
w1,p1,dwe,dpe,o1,o2,o3,trant)
endif
!***** for trace gases *****
if (trace) then
!-----compute n2o transmittance using k-distribution method
if (n2obnd) then
call n2okdis
(ibn,m,np,k2-1,n2oexp,tn2o,trant)
endif
!-----compute ch4 transmittance using k-distribution method
if (ch4bnd) then
call ch4kdis
(ibn,m,np,k2-1,ch4exp,tch4,trant)
endif
!-----compute co2-minor transmittance using k-distribution method
if (combnd) then
call comkdis
(ibn,m,np,k2-1,comexp,tcom,trant)
endif
!-----compute cfc11 transmittance using k-distribution method
if (f11bnd) then
call cfckdis
(m,np,k2-1,f11exp,tf11,trant)
endif
!-----compute cfc12 transmittance using k-distribution method
if (f12bnd) then
call cfckdis
(m,np,k2-1,f12exp,tf12,trant)
endif
!-----compute cfc22 transmittance using k-distribution method
if (f22bnd) then
call cfckdis
(m,np,k2-1,f22exp,tf22,trant)
endif
!-----compute transmittance in band 10 using k-distribution method.
! for band 10, trant is the change in transmittance due to n2o
! absorption.
if (b10bnd) then
call b10kdis
(m,np,k2-1,h2oexp,conexp,co2exp,n2oexp &
,th2o,tcon,tco2,tn2o,trant)
endif
endif
!***** end trace gases *****
!-----include aerosol effect
do i=1,m
tranal(i)=tranal(i)*taerlyr(i,k2-1)
trant (i)=trant(i) *tranal(i)
enddo
!***** cloud overlapping *****
if (.not. overcast) then
call cldovlp
(m,np,k2,ict,icb,it,im,ib, &
cldhi,cldmd,cldlw,fcld,tcldlyr,fclr)
else
do i=1,m
fclr(i)=fclr(i)*tcldlyr(i,k2-1)
enddo
endif
!-----compute upward and downward fluxes (bands 1-9). it follows
! eqs. (8.14) and (8.15). downward fluxes are positive.
if (.not. b10bnd) then
!-----contribution from the "adjacent layer"
if (k2 .eq. k1+1) then
do i=1,m
yy=min(0.999_fp_kind,trant(i))
yy=max(0.001_fp_kind,yy)
!-hmhj use log instead of alog for default intrinsic function
xx=(blevel(i,k1)-blevel(i,k2))/ log(yy)
bu=(blevel(i,k1)-blevel(i,k2)*yy)/(1.0-yy)+xx
bd=(blevel(i,k2)-blevel(i,k1)*yy)/(1.0-yy)-xx
! bu=blayer(i,k1)
! bd=blayer(i,k1)
!-----for clear-sky situation
flcu(i,k1)=flcu(i,k1)-bu+(bu-blayer(i,k2))*trant(i)
flcd(i,k2)=flcd(i,k2)+bd-(bd-blayer(i,k1-1))*trant(i)
!-----for all-sky situation
flxu(i,k1)=flxu(i,k1)-bu+(bu-blayer(i,k2))*trant(i)*fclr(i)
flxd(i,k2)=flxd(i,k2)+bd-(bd-blayer(i,k1-1))*trant(i)*fclr(i)
enddo
else
!-----contribution from distant layers.
do i=1,m
xx=trant(i)*dblayr(i,k2)
flcu(i,k1) =flcu(i,k1)+xx
flxu(i,k1) =flxu(i,k1)+xx*fclr(i)
xx=trant(i)*dblayr(i,k1)
flcd(i,k2) =flcd(i,k2)+xx
flxd(i,k2) =flxd(i,k2)+xx*fclr(i)
enddo
endif
else
!-----flux reduction due to n2o in band 10 (eqs. 5.1 and 5.2)
! trant is the transmittance change due to n2o absorption (eq. 5.3).
do i=1,m
rflx(i,k1) = rflx(i,k1)+trant(i)*fclr(i)*dblayr(i,k2)
rflx(i,k2) = rflx(i,k2)+trant(i)*fclr(i)*dblayr(i,k1)
rflc(i,k1) = rflc(i,k1)+trant(i)*dblayr(i,k2)
rflc(i,k2) = rflc(i,k2)+trant(i)*dblayr(i,k1)
enddo
endif
3000 continue
!-----here, fclr and trant are, respectively, the clear line-of-sight
! and the transmittance between k1 and the surface.
do i=1,m
trantcr(i,k1) =trant(i)
transfc(i,k1) =trant(i)*fclr(i)
enddo
!-----compute the partial derivative of fluxes with respect to
! surface temperature (eq. 3.12). note: upward flux is negative.
do i=1,m
dfdts(i,k1) =dfdts(i,k1)-dbs(i)*transfc(i,k1)
enddo
2000 continue
if (.not. b10bnd) then
!-----for surface emission.
! note: blayer(i,np+1) and dbs include the surface emissivity effect.
do i=1,m
flcu(i,np+1)=-blayer(i,np+1)
flxu(i,np+1)=-blayer(i,np+1)
sfcem(i)=sfcem(i)-blayer(i,np+1)
dfdts(i,np+1)=dfdts(i,np+1)-dbs(i)
enddo
!-----add the flux reflected by the surface. (last term on the
! rhs of eq. 3.10)
do k=1,np+1
do i=1,m
flcu(i,k)=flcu(i,k)- &
flcd(i,np+1)*trantcr(i,k)*(1.-emiss(i,ibn))
flxu(i,k)=flxu(i,k)- &
flxd(i,np+1)*transfc(i,k)*(1.-emiss(i,ibn))
enddo
enddo
endif
!-----summation of fluxes over spectral bands
do k=1,np+1
do i=1,m
flc(i,k)=flc(i,k)+flcd(i,k)+flcu(i,k)
flx(i,k)=flx(i,k)+flxd(i,k)+flxu(i,k)
acflxu(i,k)=acflxu(i,k)+flxu(i,k) ! (LW upward must hold negative values)
acflxd(i,k)=acflxd(i,k)+flxd(i,k) ! (LW downward must hold postive values, and should=0 a
enddo
enddo
!-----adjustment due to n2o absorption in band 10. eqs. (5.4) and (5.5)
if (b10bnd) then
do k=1,np+1
do i=1,m
flc(i,k)=flc(i,k)+rflc(i,k)
flx(i,k)=flx(i,k)+rflx(i,k)
if(rflx(i,k).ge.0.0) acflxd(i,k)=acflxd(i,k)+rflx(i,k)
if(rflx(i,k).lt.0.0) acflxu(i,k)=acflxu(i,k)+rflx(i,k)
enddo
enddo
endif
endif ! endif (.not. b10bnd .or. trace)
1000 continue
!ccshie 8/19/04 based on D. Johnson GCSS Workshop
! do i=1,m
! (i)=acflxd(i,np+1) ! downward LW surface
! rflux(i,5)=acflxu(i,1) ! upward LW TOA
! rflux(i,7)=acflxu(i,np+1) ! upward LW surface
! rflux(i,8)=acflxd(i,1) ! downward LW TOA
! enddo
!xp
! deallocate(pa)
! deallocate(dt)
! deallocate(sh2o)
! deallocate(swpre)
! deallocate(swtem)
! deallocate(sco3)
! deallocate(scopre)
! deallocate(scotem)
! deallocate(dh2o)
! deallocate(dcont)
! deallocate(dco2)
! deallocate(do3)
! deallocate(dn2o)
! deallocate(dch4)
! deallocate(df11)
! deallocate(df12)
! deallocate(df22)
! deallocate(th2o)
! deallocate(tcon)
! deallocate(tco2)
! deallocate(tn2o)
! deallocate(tch4)
! deallocate(tcom)
! deallocate(tf11)
! deallocate(tf12)
! deallocate(tf22)
! deallocate(h2oexp)
! deallocate(conexp)
! deallocate(co2exp)
! deallocate(n2oexp)
! deallocate(ch4exp)
! deallocate(comexp)
! deallocate(f11exp)
! deallocate(f12exp)
! deallocate(f22exp)
! deallocate(blayer)
! deallocate(blevel)
! deallocate(dblayr)
! deallocate(dbs)
! deallocate(dp)
! deallocate(cwp)
! deallocate(trant)
! deallocate(tranal)
! deallocate(transfc)
! deallocate(trantcr)
! deallocate(flxu)
! deallocate(flxd)
! deallocate(flcu)
! deallocate(flcd)
! deallocate(rflx)
! deallocate(rflc)
! deallocate(it)
! deallocate(im)
! deallocate(ib)
! deallocate(cldhi)
! deallocate(cldmd)
! deallocate(cldlw)
! deallocate(tcldlyr)
! deallocate(fclr)
! deallocate(taerlyr)
return
end subroutine lwrad
!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
subroutine column (m,np,pa,dt,sabs0,sabs,spre,stem) 3
!***********************************************************************
!-----compute column-integrated (from top of the model atmosphere)
! absorber amount (sabs), absorber-weighted pressure (spre) and
! temperature (stem).
! computations follow eqs. (8.24) - (8.26).
!
!--- input parameters
! number of soundings (m)
! number of atmospheric layers (np)
! layer pressure (pa)
! layer temperature minus 250k (dt)
! layer absorber amount (sabs0)
!
!--- output parameters
! column-integrated absorber amount (sabs)
! column absorber-weighted pressure (spre)
! column absorber-weighted temperature (stem)
!
!--- units of pa and dt are mb and k, respectively.
! units of sabs are g/cm**2 for water vapor and (cm-atm)stp
! for co2 and o3
!***********************************************************************
implicit none
integer m,np,i,k
!---- input parameters -----
real(Kind=fp_kind) pa(m,np),dt(m,np),sabs0(m,np)
!---- output parameters -----
real(Kind=fp_kind) sabs(m,np+1),spre(m,np+1),stem(m,np+1)
!*********************************************************************
do i=1,m
sabs(i,1)=0.0
spre(i,1)=0.0
stem(i,1)=0.0
enddo
do k=1,np
do i=1,m
sabs(i,k+1)=sabs(i,k)+sabs0(i,k)
spre(i,k+1)=spre(i,k)+pa(i,k)*sabs0(i,k)
stem(i,k+1)=stem(i,k)+dt(i,k)*sabs0(i,k)
enddo
enddo
return
end subroutine column
!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
subroutine h2oexps(ib,m,np,dh2o,pa,dt,xkw,aw,bw,pm,mw,h2oexp) 1
!**********************************************************************
! compute exponentials for water vapor line absorption
! in individual layers using eqs. (8.18) and (8.19).
!
!---- input parameters
! spectral band (ib)
! number of grid intervals (m)
! number of layers (np)
! layer water vapor amount for line absorption (dh2o)
! layer pressure (pa)
! layer temperature minus 250k (dt)
! absorption coefficients for the first k-distribution
! function due to h2o line absorption (xkw)
! coefficients for the temperature and pressure scaling (aw,bw,pm)
! ratios between neighboring absorption coefficients for
! h2o line absorption (mw)
!
!---- output parameters
! 6 exponentials for each layer (h2oexp)
!**********************************************************************
implicit none
integer ib,m,np,i,k,ik
!---- input parameters ------
real(Kind=fp_kind) dh2o(m,np),pa(m,np),dt(m,np)
!---- output parameters -----
real(Kind=fp_kind) h2oexp(m,np,6)
!---- static data -----
integer mw(9)
real(Kind=fp_kind) xkw(9),aw(9),bw(9),pm(9)
!---- temporary arrays -----
real(Kind=fp_kind) xh
!**********************************************************************
! note that the 3 sub-bands in band 3 use the same set of xkw, aw,
! and bw, therefore, h2oexp for these sub-bands are identical.
!**********************************************************************
do k=1,np
do i=1,m
!-----xh is the scaled water vapor amount for line absorption
! computed from eq. (4.4).
xh = dh2o(i,k)*(pa(i,k)/500.)**pm(ib) &
* ( 1.+(aw(ib)+bw(ib)* dt(i,k))*dt(i,k) )
!-----h2oexp is the water vapor transmittance of the layer k
! due to line absorption
h2oexp(i,k,1) = exp(-xh*xkw(ib))
enddo
enddo
!-----compute transmittances from eq. (8.19)
if (mw(ib).eq.6) then
do ik=2,6
do k=1,np
do i=1,m
xh = h2oexp(i,k,ik-1)*h2oexp(i,k,ik-1)
if(xh.lt.1.e-4)xh=0.
h2oexp(i,k,ik) = xh*xh*xh
enddo
enddo
enddo
elseif (mw(ib).eq.8) then
do ik=2,6
do k=1,np
do i=1,m
xh = h2oexp(i,k,ik-1)*h2oexp(i,k,ik-1)
if(xh.lt.1.e-3)xh=0.
xh = xh*xh
h2oexp(i,k,ik) = xh*xh
enddo
enddo
enddo
elseif (mw(ib).eq.9) then
do ik=2,6
do k=1,np
do i=1,m
xh=h2oexp(i,k,ik-1)*h2oexp(i,k,ik-1)*h2oexp(i,k,ik-1)
if(xh.lt.1.e-4)xh=0.
h2oexp(i,k,ik) = xh*xh*xh
enddo
enddo
enddo
else
do ik=2,6
do k=1,np
do i=1,m
xh = h2oexp(i,k,ik-1)*h2oexp(i,k,ik-1)
if(xh.lt.2.e-2)xh=0.
xh = xh*xh
xh = xh*xh
h2oexp(i,k,ik) = xh*xh
enddo
enddo
enddo
endif
return
end subroutine h2oexps
!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
subroutine conexps(ib,m,np,dcont,xke,conexp) 1
!**********************************************************************
! compute exponentials for continuum absorption in individual layers.
!
!---- input parameters
! spectral band (ib)
! number of grid intervals (m)
! number of layers (np)
! layer scaled water vapor amount for continuum absorption (dcont)
! absorption coefficients for the first k-distribution function
! due to water vapor continuum absorption (xke)
!
!---- output parameters
! 1 or 3 exponentials for each layer (conexp)
!**********************************************************************
implicit none
integer ib,m,np,i,k
!---- input parameters ------
real(Kind=fp_kind) dcont(m,np)
!---- updated parameters -----
real(Kind=fp_kind) conexp(m,np,3)
!---- static data -----
real(Kind=fp_kind) xke(9)
!****************************************************************
do k=1,np
do i=1,m
conexp(i,k,1) = exp(-dcont(i,k)*xke(ib))
enddo
enddo
if (ib .eq. 3) then
!-----the absorption coefficients for sub-bands 3b and 3a are, respectively,
! two and four times the absorption coefficient for sub-band 3c (table 9).
! note that conexp(i,k,3) is for sub-band 3a.
do k=1,np
do i=1,m
conexp(i,k,2) = conexp(i,k,1) *conexp(i,k,1)
conexp(i,k,3) = conexp(i,k,2) *conexp(i,k,2)
enddo
enddo
endif
return
end subroutine conexps
!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
subroutine co2exps(m,np,dco2,pa,dt,co2exp) 1
!**********************************************************************
! compute co2 exponentials for individual layers.
!
!---- input parameters
! number of grid intervals (m)
! number of layers (np)
! layer co2 amount (dco2)
! layer pressure (pa)
! layer temperature minus 250k (dt)
!
!---- output parameters
! 6 exponentials for each layer (co2exp)
!**********************************************************************
implicit none
integer m,np,i,k
!---- input parameters -----
real(Kind=fp_kind) dco2(m,np),pa(m,np),dt(m,np)
!---- output parameters -----
real(Kind=fp_kind) co2exp(m,np,6,2)
!---- temporary arrays -----
real(Kind=fp_kind) xc
!**********************************************************************
do k=1,np
do i=1,m
!-----the scakubg oaraneters are given in table 3, and values of
! the absorption coefficient are given in table 10.
! scaled co2 amount for band-wings (sub-bands 3a and 3c)
xc = dco2(i,k)*(pa(i,k)/300.0)**0.5 &
*(1.+(0.0182+1.07e-4*dt(i,k))*dt(i,k))
!-----six exponentials by powers of 8 (see eqs. 8.18, 8.19 and table 10).
co2exp(i,k,1,1)=exp(-xc*2.656e-5)
xc=co2exp(i,k,1,1)*co2exp(i,k,1,1)
xc=xc*xc
co2exp(i,k,2,1)=xc*xc
xc=co2exp(i,k,2,1)*co2exp(i,k,2,1)
xc=xc*xc
co2exp(i,k,3,1)=xc*xc
xc=co2exp(i,k,3,1)*co2exp(i,k,3,1)
xc=xc*xc
co2exp(i,k,4,1)=xc*xc
xc=co2exp(i,k,4,1)*co2exp(i,k,4,1)
xc=xc*xc
co2exp(i,k,5,1)=xc*xc
xc=co2exp(i,k,5,1)*co2exp(i,k,5,1)
xc=xc*xc
co2exp(i,k,6,1)=xc*xc
!-----for band-center region (sub-band 3b)
xc = dco2(i,k)*(pa(i,k)/30.0)**0.85 &
*(1.+(0.0042+2.00e-5*dt(i,k))*dt(i,k))
co2exp(i,k,1,2)=exp(-xc*2.656e-3)
xc=co2exp(i,k,1,2)*co2exp(i,k,1,2)
xc=xc*xc
co2exp(i,k,2,2)=xc*xc
xc=co2exp(i,k,2,2)*co2exp(i,k,2,2)
xc=xc*xc
co2exp(i,k,3,2)=xc*xc
xc=co2exp(i,k,3,2)*co2exp(i,k,3,2)
xc=xc*xc
co2exp(i,k,4,2)=xc*xc
xc=co2exp(i,k,4,2)*co2exp(i,k,4,2)
xc=xc*xc
co2exp(i,k,5,2)=xc*xc
xc=co2exp(i,k,5,2)*co2exp(i,k,5,2)
xc=xc*xc
co2exp(i,k,6,2)=xc*xc
enddo
enddo
return
end subroutine co2exps
!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
subroutine n2oexps(ib,m,np,dn2o,pa,dt,n2oexp) 1
!**********************************************************************
! compute n2o exponentials for individual layers
!
!---- input parameters
! spectral band (ib)
! number of grid intervals (m)
! number of layers (np)
! layer n2o amount (dn2o)
! layer pressure (pa)
! layer temperature minus 250k (dt)
!
!---- output parameters
! 2 or 4 exponentials for each layer (n2oexp)
!**********************************************************************
implicit none
integer ib,m,np,i,k
!---- input parameters -----
real(Kind=fp_kind) dn2o(m,np),pa(m,np),dt(m,np)
!---- output parameters -----
real(Kind=fp_kind) n2oexp(m,np,4)
!---- temporary arrays -----
real(Kind=fp_kind) xc,xc1,xc2
!-----scaling and absorpton data are given in table 5.
! transmittances are computed using eqs. (8.18) and (8.19).
do k=1,np
do i=1,m
!-----four exponential by powers of 21 for band 6.
if (ib.eq.6) then
xc=dn2o(i,k)*(1.+(1.9297e-3+4.3750e-6*dt(i,k))*dt(i,k))
n2oexp(i,k,1)=exp(-xc*6.31582e-2)
xc=n2oexp(i,k,1)*n2oexp(i,k,1)*n2oexp(i,k,1)
xc1=xc*xc
xc2=xc1*xc1
n2oexp(i,k,2)=xc*xc1*xc2
!-----four exponential by powers of 8 for band 7
else
xc=dn2o(i,k)*(pa(i,k)/500.0)**0.48 &
*(1.+(1.3804e-3+7.4838e-6*dt(i,k))*dt(i,k))
n2oexp(i,k,1)=exp(-xc*5.35779e-2)
xc=n2oexp(i,k,1)*n2oexp(i,k,1)
xc=xc*xc
n2oexp(i,k,2)=xc*xc
xc=n2oexp(i,k,2)*n2oexp(i,k,2)
xc=xc*xc
n2oexp(i,k,3)=xc*xc
xc=n2oexp(i,k,3)*n2oexp(i,k,3)
xc=xc*xc
n2oexp(i,k,4)=xc*xc
endif
enddo
enddo
return
end subroutine n2oexps
!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
subroutine ch4exps(ib,m,np,dch4,pa,dt,ch4exp) 1
!**********************************************************************
! compute ch4 exponentials for individual layers
!
!---- input parameters
! spectral band (ib)
! number of grid intervals (m)
! number of layers (np)
! layer ch4 amount (dch4)
! layer pressure (pa)
! layer temperature minus 250k (dt)
!
!---- output parameters
! 1 or 4 exponentials for each layer (ch4exp)
!**********************************************************************
implicit none
integer ib,m,np,i,k
!---- input parameters -----
real(Kind=fp_kind) dch4(m,np),pa(m,np),dt(m,np)
!---- output parameters -----
real(Kind=fp_kind) ch4exp(m,np,4)
!---- temporary arrays -----
real(Kind=fp_kind) xc
!***** scaling and absorpton data are given in table 5 *****
do k=1,np
do i=1,m
!-----four exponentials for band 6
if (ib.eq.6) then
xc=dch4(i,k)*(1.+(1.7007e-2+1.5826e-4*dt(i,k))*dt(i,k))
ch4exp(i,k,1)=exp(-xc*5.80708e-3)
!-----four exponentials by powers of 12 for band 7
else
xc=dch4(i,k)*(pa(i,k)/500.0)**0.65 &
*(1.+(5.9590e-4-2.2931e-6*dt(i,k))*dt(i,k))
ch4exp(i,k,1)=exp(-xc*6.29247e-2)
xc=ch4exp(i,k,1)*ch4exp(i,k,1)*ch4exp(i,k,1)
xc=xc*xc
ch4exp(i,k,2)=xc*xc
xc=ch4exp(i,k,2)*ch4exp(i,k,2)*ch4exp(i,k,2)
xc=xc*xc
ch4exp(i,k,3)=xc*xc
xc=ch4exp(i,k,3)*ch4exp(i,k,3)*ch4exp(i,k,3)
xc=xc*xc
ch4exp(i,k,4)=xc*xc
endif
enddo
enddo
return
end subroutine ch4exps
!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
subroutine comexps(ib,m,np,dcom,dt,comexp) 1
!**********************************************************************
! compute co2-minor exponentials for individual layers using
! eqs. (8.18) and (8.19).
!
!---- input parameters
! spectral band (ib)
! number of grid intervals (m)
! number of layers (np)
! layer co2 amount (dcom)
! layer temperature minus 250k (dt)
!
!---- output parameters
! 6 exponentials for each layer (comexp)
!**********************************************************************
implicit none
integer ib,m,np,i,k,ik
!---- input parameters -----
real(Kind=fp_kind) dcom(m,np),dt(m,np)
!---- output parameters -----
real(Kind=fp_kind) comexp(m,np,6)
!---- temporary arrays -----
real(Kind=fp_kind) xc
!***** scaling and absorpton data are given in table 6 *****
do k=1,np
do i=1,m
if (ib.eq.4) then
xc=dcom(i,k)*(1.+(3.5775e-2+4.0447e-4*dt(i,k))*dt(i,k))
endif
if (ib.eq.5) then
xc=dcom(i,k)*(1.+(3.4268e-2+3.7401e-4*dt(i,k))*dt(i,k))
endif
comexp(i,k,1)=exp(-xc*1.922e-7)
do ik=2,6
xc=comexp(i,k,ik-1)*comexp(i,k,ik-1)
xc=xc*xc
comexp(i,k,ik)=xc*comexp(i,k,ik-1)
enddo
enddo
enddo
return
end subroutine comexps
!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
subroutine cfcexps(ib,m,np,a1,b1,fk1,a2,b2,fk2,dcfc,dt,cfcexp) 3
!**********************************************************************
! compute cfc(-11, -12, -22) exponentials for individual layers.
!
!---- input parameters
! spectral band (ib)
! number of grid intervals (m)
! number of layers (np)
! parameters for computing the scaled cfc amounts
! for temperature scaling (a1,b1,a2,b2)
! the absorption coefficients for the
! first k-distribution function due to cfcs (fk1,fk2)
! layer cfc amounts (dcfc)
! layer temperature minus 250k (dt)
!
!---- output parameters
! 1 exponential for each layer (cfcexp)
!**********************************************************************
implicit none
integer ib,m,np,i,k
!---- input parameters -----
real(Kind=fp_kind) dcfc(m,np),dt(m,np)
!---- output parameters -----
real(Kind=fp_kind) cfcexp(m,np)
!---- static data -----
real(Kind=fp_kind) a1,b1,fk1,a2,b2,fk2
!---- temporary arrays -----
real(Kind=fp_kind) xf
!**********************************************************************
do k=1,np
do i=1,m
!-----compute the scaled cfc amount (xf) and exponential (cfcexp)
if (ib.eq.4) then
xf=dcfc(i,k)*(1.+(a1+b1*dt(i,k))*dt(i,k))
cfcexp(i,k)=exp(-xf*fk1)
else
xf=dcfc(i,k)*(1.+(a2+b2*dt(i,k))*dt(i,k))
cfcexp(i,k)=exp(-xf*fk2)
endif
enddo
enddo
return
end subroutine cfcexps
!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
subroutine b10exps(m,np,dh2o,dcont,dco2,dn2o,pa,dt & 1
,h2oexp,conexp,co2exp,n2oexp)
!**********************************************************************
! compute band3a exponentials for individual layers
!
!---- input parameters
! number of grid intervals (m)
! number of layers (np)
! layer h2o amount for line absorption (dh2o)
! layer h2o amount for continuum absorption (dcont)
! layer co2 amount (dco2)
! layer n2o amount (dn2o)
! layer pressure (pa)
! layer temperature minus 250k (dt)
!
!---- output parameters
!
! exponentials for each layer (h2oexp,conexp,co2exp,n2oexp)
!**********************************************************************
implicit none
integer m,np,i,k
!---- input parameters -----
real(Kind=fp_kind) dh2o(m,np),dcont(m,np),dn2o(m,np)
real(Kind=fp_kind) dco2(m,np),pa(m,np),dt(m,np)
!---- output parameters -----
real(Kind=fp_kind) h2oexp(m,np,6),conexp(m,np,3),co2exp(m,np,6,2) &
,n2oexp(m,np,4)
!---- temporary arrays -----
real(Kind=fp_kind) xx,xx1,xx2,xx3
!**********************************************************************
do k=1,np
do i=1,m
!-----compute scaled h2o-line amount for band 10 (eq. 4.4 and table 3).
xx=dh2o(i,k)*(pa(i,k)/500.0) &
*(1.+(0.0149+6.20e-5*dt(i,k))*dt(i,k))
!-----six exponentials by powers of 8
! the constant 0.10624 is equal to 1.66*0.064
h2oexp(i,k,1)=exp(-xx*0.10624)
xx=h2oexp(i,k,1)*h2oexp(i,k,1)
xx=xx*xx
h2oexp(i,k,2)=xx*xx
xx=h2oexp(i,k,2)*h2oexp(i,k,2)
xx=xx*xx
h2oexp(i,k,3)=xx*xx
xx=h2oexp(i,k,3)*h2oexp(i,k,3)
xx=xx*xx
h2oexp(i,k,4)=xx*xx
xx=h2oexp(i,k,4)*h2oexp(i,k,4)
xx=xx*xx
h2oexp(i,k,5)=xx*xx
xx=h2oexp(i,k,5)*h2oexp(i,k,5)
xx=xx*xx
! h2oexp(i,k,6)=xx*xx
!-----compute scaled co2 amount for the band 10 (eq. 4.4 and table 6).
xx=dco2(i,k)*(pa(i,k)/300.0)**0.5 &
*(1.+(0.0179+1.02e-4*dt(i,k))*dt(i,k))
!-----six exponentials by powers of 8
! the constant 2.656e-5 is equal to 1.66*1.60e-5
co2exp(i,k,1,1)=exp(-xx*2.656e-5)
xx=co2exp(i,k,1,1)*co2exp(i,k,1,1)
xx=xx*xx
co2exp(i,k,2,1)=xx*xx
xx=co2exp(i,k,2,1)*co2exp(i,k,2,1)
xx=xx*xx
co2exp(i,k,3,1)=xx*xx
xx=co2exp(i,k,3,1)*co2exp(i,k,3,1)
xx=xx*xx
co2exp(i,k,4,1)=xx*xx
xx=co2exp(i,k,4,1)*co2exp(i,k,4,1)
xx=xx*xx
co2exp(i,k,5,1)=xx*xx
xx=co2exp(i,k,5,1)*co2exp(i,k,5,1)
xx=xx*xx
co2exp(i,k,6,1)=xx*xx
!-----one exponential of h2o continuum for sub-band 3a (table 9).
conexp(i,k,1)=exp(-dcont(i,k)*1.04995e+2)
!-----compute the scaled n2o amount for band 10 (table 5).
xx=dn2o(i,k)*(1.+(1.4476e-3+3.6656e-6*dt(i,k))*dt(i,k))
!-----two exponentials by powers of 58
n2oexp(i,k,1)=exp(-xx*0.25238)
xx=n2oexp(i,k,1)*n2oexp(i,k,1)
xx1=xx*xx
xx1=xx1*xx1
xx2=xx1*xx1
xx3=xx2*xx2
n2oexp(i,k,2)=xx*xx1*xx2*xx3
enddo
enddo
return
end subroutine b10exps
!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
subroutine tablup(k1,k2,m,np,nx,nh,sabs,spre,stem,w1,p1, & 5
dwe,dpe,coef1,coef2,coef3,tran)
!**********************************************************************
! compute water vapor, co2 and o3 transmittances between level
! k1 and and level k2 for m soundings, using table look-up.
!
! calculations follow eq. (4.16).
!
!---- input ---------------------
! indices for layer (k1) and level (k2)
! number of grid intervals (m)
! number of atmospheric layers (np)
! number of pressure intervals in the table (nx)
! number of absorber amount intervals in the table (nh)
! column-integrated absorber amount (sabs)
! column absorber amount-weighted pressure (spre)
! column absorber amount-weighted temperature (stem)
! first value of absorber amount (log10) in the table (w1)
! first value of pressure (log10) in the table (p1)
! size of the interval of absorber amount (log10) in the table (dwe)
! size of the interval of pressure (log10) in the table (dpe)
! pre-computed coefficients (coef1, coef2, and coef3)
!
!---- updated ---------------------
! transmittance (tran)
!
! note:
! (1) units of sabs are g/cm**2 for water vapor and
! (cm-atm)stp for co2 and o3.
! (2) units of spre and stem are, respectively, mb and k.
!
!**********************************************************************
implicit none
integer k1,k2,m,np,nx,nh,i
!---- input parameters -----
real(Kind=fp_kind) w1,p1,dwe,dpe
real(Kind=fp_kind) sabs(m,np+1),spre(m,np+1),stem(m,np+1)
real(Kind=fp_kind) coef1(nx,nh),coef2(nx,nh),coef3(nx,nh)
!---- update parameter -----
real(Kind=fp_kind) tran(m)
!---- temporary variables -----
real(Kind=fp_kind) x1,x2,x3,we,pe,fw,fp,pa,pb,pc,ax,ba,bb,t1,ca,cb,t2,xxx
integer iw,ip
!**********************************************************************
do i=1,m
x1=sabs(i,k2)-sabs(i,k1)
we=(log10(x1)-w1)/dwe
if (we .ge. (w1-2.)) then
x2=(spre(i,k2)-spre(i,k1))/x1
x3=(stem(i,k2)-stem(i,k1))/x1
!-----normalize we and pe
pe=(log10(x2)-p1)/dpe
!-----restrict the magnitudes of the normalized we and pe.
! we=min(we,real(nh-1))
xxx=real(nh-1)
we=min(we,xxx)
pe=max(pe,0.0_fp_kind)
! pe=min(pe,real(nx-1))
xxx=real(nx-1)
pe=min(pe,xxx)
!-----assign iw and ip and compute the distance of we and pe
! from iw and ip.
iw=int(we+1.0)
iw=min(iw,nh-1)
iw=max(iw, 2)
fw=we-float(iw-1)
ip=int(pe+1.0)
ip=min(ip,nx-1)
ip=max(ip, 1)
fp=pe-float(ip-1)
!-----linear interpolation in pressure
pa = coef1(ip,iw-1)*(1.-fp)+coef1(ip+1,iw-1)*fp
pb = coef1(ip, iw)*(1.-fp)+coef1(ip+1, iw)*fp
pc = coef1(ip,iw+1)*(1.-fp)+coef1(ip+1,iw+1)*fp
!-----quadratic interpolation in absorber amount for coef1
ax = (-pa*(1.-fw)+pc*(1.+fw)) *fw*0.5 + pb*(1.-fw*fw)
!-----linear interpolation in absorber amount for coef2 and coef3
ba = coef2(ip, iw)*(1.-fp)+coef2(ip+1, iw)*fp
bb = coef2(ip,iw+1)*(1.-fp)+coef2(ip+1,iw+1)*fp
t1 = ba*(1.-fw) + bb*fw
ca = coef3(ip, iw)*(1.-fp)+coef3(ip+1, iw)*fp
cb = coef3(ip,iw+1)*(1.-fp)+coef3(ip+1,iw+1)*fp
t2 = ca*(1.-fw) + cb*fw
!-----update the total transmittance between levels k1 and k2
tran(i)= (ax + (t1+t2*x3) * x3)*tran(i)
tran(i)=min(tran(i),0.9999999_fp_kind)
tran(i)=max(tran(i),0.0000001_fp_kind)
else
tran(i)=0.9999999
endif
enddo
return
end subroutine tablup
!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
subroutine h2okdis(ib,m,np,k,fkw,gkw,ne,h2oexp,conexp, & 1
th2o,tcon,tran)
!**********************************************************************
! compute water vapor transmittance between levels k1 and k2 for
! m soundings, using the k-distribution method.
!
!---- input parameters
! spectral band (ib)
! number of grid intervals (m)
! number of levels (np)
! current level (k)
! planck-weighted k-distribution function due to
! h2o line absorption (fkw)
! planck-weighted k-distribution function due to
! h2o continuum absorption (gkw)
! number of terms used in each band to compute water vapor
! continuum transmittance (ne)
! exponentials for line absorption (h2oexp)
! exponentials for continuum absorption (conexp)
!
!---- updated parameters
! transmittance between levels k1 and k2 due to
! water vapor line absorption (th2o)
! transmittance between levels k1 and k2 due to
! water vapor continuum absorption (tcon)
! total transmittance (tran)
!
!**********************************************************************
implicit none
integer ib,m,np,i,k
!---- input parameters ------
real(Kind=fp_kind) conexp(m,np,3),h2oexp(m,np,6)
integer ne(9)
real(Kind=fp_kind) fkw(6,9),gkw(6,3)
!---- updated parameters -----
real(Kind=fp_kind) th2o(m,6),tcon(m,3),tran(m)
!---- temporary arrays -----
real(Kind=fp_kind) trnth2o
!-----tco2 are the six exp factors between levels k1 and k2
! tran is the updated total transmittance between levels k1 and k2
!-----th2o is the 6 exp factors between levels k1 and k2 due to
! h2o line absorption.
!-----tcon is the 3 exp factors between levels k1 and k2 due to
! h2o continuum absorption.
!-----trnth2o is the total transmittance between levels k1 and k2 due
! to both line and continuum absorption.
!-----comoute th2o following eq. (8.20).
do i=1,m
th2o(i,1) = th2o(i,1)*h2oexp(i,k,1)
th2o(i,2) = th2o(i,2)*h2oexp(i,k,2)
th2o(i,3) = th2o(i,3)*h2oexp(i,k,3)
th2o(i,4) = th2o(i,4)*h2oexp(i,k,4)
th2o(i,5) = th2o(i,5)*h2oexp(i,k,5)
th2o(i,6) = th2o(i,6)*h2oexp(i,k,6)
enddo
if (ne(ib).eq.0) then
!-----comoute trnh2o following eq. (8.22). fkw is given in table 4.
do i=1,m
trnth2o =(fkw(1,ib)*th2o(i,1) &
+ fkw(2,ib)*th2o(i,2) &
+ fkw(3,ib)*th2o(i,3) &
+ fkw(4,ib)*th2o(i,4) &
+ fkw(5,ib)*th2o(i,5) &
+ fkw(6,ib)*th2o(i,6))
tran(i)=tran(i)*trnth2o
enddo
elseif (ne(ib).eq.1) then
!-----comoute trnh2o following eq. (8.22) and (4.27).
do i=1,m
tcon(i,1)= tcon(i,1)*conexp(i,k,1)
trnth2o =(fkw(1,ib)*th2o(i,1) &
+ fkw(2,ib)*th2o(i,2) &
+ fkw(3,ib)*th2o(i,3) &
+ fkw(4,ib)*th2o(i,4) &
+ fkw(5,ib)*th2o(i,5) &
+ fkw(6,ib)*th2o(i,6))*tcon(i,1)
tran(i)=tran(i)*trnth2o
enddo
else
!-----for band 3. this band is divided into 3 subbands.
do i=1,m
tcon(i,1)= tcon(i,1)*conexp(i,k,1)
tcon(i,2)= tcon(i,2)*conexp(i,k,2)
tcon(i,3)= tcon(i,3)*conexp(i,k,3)
!-----comoute trnh2o following eq. (4.29).
trnth2o = ( gkw(1,1)*th2o(i,1) &
+ gkw(2,1)*th2o(i,2) &
+ gkw(3,1)*th2o(i,3) &
+ gkw(4,1)*th2o(i,4) &
+ gkw(5,1)*th2o(i,5) &
+ gkw(6,1)*th2o(i,6) ) * tcon(i,1) &
+ ( gkw(1,2)*th2o(i,1) &
+ gkw(2,2)*th2o(i,2) &
+ gkw(3,2)*th2o(i,3) &
+ gkw(4,2)*th2o(i,4) &
+ gkw(5,2)*th2o(i,5) &
+ gkw(6,2)*th2o(i,6) ) * tcon(i,2) &
+ ( gkw(1,3)*th2o(i,1) &
+ gkw(2,3)*th2o(i,2) &
+ gkw(3,3)*th2o(i,3) &
+ gkw(4,3)*th2o(i,4) &
+ gkw(5,3)*th2o(i,5) &
+ gkw(6,3)*th2o(i,6) ) * tcon(i,3)
tran(i)=tran(i)*trnth2o
enddo
endif
return
end subroutine h2okdis
!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
subroutine co2kdis(m,np,k,co2exp,tco2,tran) 1
!**********************************************************************
! compute co2 transmittances between levels k1 and k2 for
! m soundings, using the k-distribution method with linear
! pressure scaling.
!
!---- input parameters
! number of grid intervals (m)
! number of levels (np)
! current level (k)
! exponentials for co2 absorption (co2exp)
!
!---- updated parameters
! transmittance between levels k1 and k2 due to co2 absorption
! for the various values of the absorption coefficient (tco2)
! total transmittance (tran)
!
!**********************************************************************
implicit none
integer m,np,i,k
!---- input parameters -----
real(Kind=fp_kind) co2exp(m,np,6,2)
!---- updated parameters -----
real(Kind=fp_kind) tco2(m,6,2),tran(m)
!---- temporary arrays -----
real(Kind=fp_kind) xc
!-----tco2 is the 6 exp factors between levels k1 and k2.
! xc is the total co2 transmittance given by eq. (4.30).
! the k-distribution functions are given in table 10.
do i=1,m
!-----band-wings
tco2(i,1,1)=tco2(i,1,1)*co2exp(i,k,1,1)
xc= 0.1395 *tco2(i,1,1)
tco2(i,2,1)=tco2(i,2,1)*co2exp(i,k,2,1)
xc=xc+0.1407 *tco2(i,2,1)
tco2(i,3,1)=tco2(i,3,1)*co2exp(i,k,3,1)
xc=xc+0.1549 *tco2(i,3,1)
tco2(i,4,1)=tco2(i,4,1)*co2exp(i,k,4,1)
xc=xc+0.1357 *tco2(i,4,1)
tco2(i,5,1)=tco2(i,5,1)*co2exp(i,k,5,1)
xc=xc+0.0182 *tco2(i,5,1)
tco2(i,6,1)=tco2(i,6,1)*co2exp(i,k,6,1)
xc=xc+0.0220 *tco2(i,6,1)
!-----band-center region
tco2(i,1,2)=tco2(i,1,2)*co2exp(i,k,1,2)
xc=xc+0.0766 *tco2(i,1,2)
tco2(i,2,2)=tco2(i,2,2)*co2exp(i,k,2,2)
xc=xc+0.1372 *tco2(i,2,2)
tco2(i,3,2)=tco2(i,3,2)*co2exp(i,k,3,2)
xc=xc+0.1189 *tco2(i,3,2)
tco2(i,4,2)=tco2(i,4,2)*co2exp(i,k,4,2)
xc=xc+0.0335 *tco2(i,4,2)
tco2(i,5,2)=tco2(i,5,2)*co2exp(i,k,5,2)
xc=xc+0.0169 *tco2(i,5,2)
tco2(i,6,2)=tco2(i,6,2)*co2exp(i,k,6,2)
xc=xc+0.0059 *tco2(i,6,2)
tran(i)=tran(i)*xc
enddo
return
end subroutine co2kdis
!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
subroutine n2okdis(ib,m,np,k,n2oexp,tn2o,tran) 1
!**********************************************************************
! compute n2o transmittances between levels k1 and k2 for
! m soundings, using the k-distribution method with linear
! pressure scaling.
!
!---- input parameters
! spectral band (ib)
! number of grid intervals (m)
! number of levels (np)
! current level (k)
! exponentials for n2o absorption (n2oexp)
!
!---- updated parameters
! transmittance between levels k1 and k2 due to n2o absorption
! for the various values of the absorption coefficient (tn2o)
! total transmittance (tran)
!
!**********************************************************************
implicit none
integer ib,m,np,i,k
!---- input parameters -----
real(Kind=fp_kind) n2oexp(m,np,4)
!---- updated parameters -----
real(Kind=fp_kind) tn2o(m,4),tran(m)
!---- temporary arrays -----
real(Kind=fp_kind) xc
!-----tn2o is computed from eq. (8.20).
! xc is the total n2o transmittance computed from (8.22)
! the k-distribution functions are given in table 5.
do i=1,m
!-----band 6
if (ib.eq.6) then
tn2o(i,1)=tn2o(i,1)*n2oexp(i,k,1)
xc= 0.940414*tn2o(i,1)
tn2o(i,2)=tn2o(i,2)*n2oexp(i,k,2)
xc=xc+0.059586*tn2o(i,2)
!-----band 7
else
tn2o(i,1)=tn2o(i,1)*n2oexp(i,k,1)
xc= 0.561961*tn2o(i,1)
tn2o(i,2)=tn2o(i,2)*n2oexp(i,k,2)
xc=xc+0.138707*tn2o(i,2)
tn2o(i,3)=tn2o(i,3)*n2oexp(i,k,3)
xc=xc+0.240670*tn2o(i,3)
tn2o(i,4)=tn2o(i,4)*n2oexp(i,k,4)
xc=xc+0.058662*tn2o(i,4)
endif
tran(i)=tran(i)*xc
enddo
return
end subroutine n2okdis
!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
subroutine ch4kdis(ib,m,np,k,ch4exp,tch4,tran) 1
!**********************************************************************
! compute ch4 transmittances between levels k1 and k2 for
! m soundings, using the k-distribution method with
! linear pressure scaling.
!
!---- input parameters
! spectral band (ib)
! number of grid intervals (m)
! number of levels (np)
! current level (k)
! exponentials for ch4 absorption (ch4exp)
!
!---- updated parameters
! transmittance between levels k1 and k2 due to ch4 absorption
! for the various values of the absorption coefficient (tch4)
! total transmittance (tran)
!
!**********************************************************************
implicit none
integer ib,m,np,i,k
!---- input parameters -----
real(Kind=fp_kind) ch4exp(m,np,4)
!---- updated parameters -----
real(Kind=fp_kind) tch4(m,4),tran(m)
!---- temporary arrays -----
real(Kind=fp_kind) xc
!-----tch4 is computed from eq. (8.20).
! xc is the total ch4 transmittance computed from (8.22)
! the k-distribution functions are given in table 5.
do i=1,m
!-----band 6
if (ib.eq.6) then
tch4(i,1)=tch4(i,1)*ch4exp(i,k,1)
xc= tch4(i,1)
!-----band 7
else
tch4(i,1)=tch4(i,1)*ch4exp(i,k,1)
xc= 0.610650*tch4(i,1)
tch4(i,2)=tch4(i,2)*ch4exp(i,k,2)
xc=xc+0.280212*tch4(i,2)
tch4(i,3)=tch4(i,3)*ch4exp(i,k,3)
xc=xc+0.107349*tch4(i,3)
tch4(i,4)=tch4(i,4)*ch4exp(i,k,4)
xc=xc+0.001789*tch4(i,4)
endif
tran(i)=tran(i)*xc
enddo
return
end subroutine ch4kdis
!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
subroutine comkdis(ib,m,np,k,comexp,tcom,tran) 1
!**********************************************************************
! compute co2-minor transmittances between levels k1 and k2
! for m soundings, using the k-distribution method
! with linear pressure scaling.
!
!---- input parameters
! spectral band (ib)
! number of grid intervals (m)
! number of levels (np)
! current level (k)
! exponentials for co2-minor absorption (comexp)
!
!---- updated parameters
! transmittance between levels k1 and k2 due to co2-minor absorption
! for the various values of the absorption coefficient (tcom)
! total transmittance (tran)
!
!**********************************************************************
implicit none
integer ib,m,np,i,k
!---- input parameters -----
real(Kind=fp_kind) comexp(m,np,6)
!---- updated parameters -----
real(Kind=fp_kind) tcom(m,6),tran(m)
!---- temporary arrays -----
real(Kind=fp_kind) xc
!-----tcom is computed from eq. (8.20).
! xc is the total co2 transmittance computed from (8.22)
! the k-distribution functions are given in table 6.
do i=1,m
!-----band 4
if (ib.eq.4) then
tcom(i,1)=tcom(i,1)*comexp(i,k,1)
xc= 0.12159*tcom(i,1)
tcom(i,2)=tcom(i,2)*comexp(i,k,2)
xc=xc+0.24359*tcom(i,2)
tcom(i,3)=tcom(i,3)*comexp(i,k,3)
xc=xc+0.24981*tcom(i,3)
tcom(i,4)=tcom(i,4)*comexp(i,k,4)
xc=xc+0.26427*tcom(i,4)
tcom(i,5)=tcom(i,5)*comexp(i,k,5)
xc=xc+0.07807*tcom(i,5)
tcom(i,6)=tcom(i,6)*comexp(i,k,6)
xc=xc+0.04267*tcom(i,6)
!-----band 5
else
tcom(i,1)=tcom(i,1)*comexp(i,k,1)
xc= 0.06869*tcom(i,1)
tcom(i,2)=tcom(i,2)*comexp(i,k,2)
xc=xc+0.14795*tcom(i,2)
tcom(i,3)=tcom(i,3)*comexp(i,k,3)
xc=xc+ 0.19512*tcom(i,3)
tcom(i,4)=tcom(i,4)*comexp(i,k,4)
xc=xc+ 0.33446*tcom(i,4)
tcom(i,5)=tcom(i,5)*comexp(i,k,5)
xc=xc+ 0.17199*tcom(i,5)
tcom(i,6)=tcom(i,6)*comexp(i,k,6)
xc=xc+ 0.08179*tcom(i,6)
endif
tran(i)=tran(i)*xc
enddo
return
end subroutine comkdis
!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
subroutine cfckdis(m,np,k,cfcexp,tcfc,tran) 3
!**********************************************************************
! compute cfc-(11,12,22) transmittances between levels k1 and k2
! for m soundings, using the k-distribution method with
! linear pressure scaling.
!
!---- input parameters
! number of grid intervals (m)
! number of levels (np)
! current level (k)
! exponentials for cfc absorption (cfcexp)
!
!---- updated parameters
! transmittance between levels k1 and k2 due to cfc absorption
! for the various values of the absorption coefficient (tcfc)
! total transmittance (tran)
!
!**********************************************************************
implicit none
integer m,np,i,k
!---- input parameters -----
real(Kind=fp_kind) cfcexp(m,np)
!---- updated parameters -----
real(Kind=fp_kind) tcfc(m),tran(m)
!-----tcfc is the exp factors between levels k1 and k2.
do i=1,m
tcfc(i)=tcfc(i)*cfcexp(i,k)
tran(i)=tran(i)*tcfc(i)
enddo
return
end subroutine cfckdis
!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
subroutine b10kdis(m,np,k,h2oexp,conexp,co2exp,n2oexp & 1
,th2o,tcon,tco2,tn2o,tran)
!**********************************************************************
!
! compute h2o (line and continuum),co2,n2o transmittances between
! levels k1 and k2 for m soundings, using the k-distribution
! method with linear pressure scaling.
!
!---- input parameters
! number of grid intervals (m)
! number of levels (np)
! current level (k)
! exponentials for h2o line absorption (h2oexp)
! exponentials for h2o continuum absorption (conexp)
! exponentials for co2 absorption (co2exp)
! exponentials for n2o absorption (n2oexp)
!
!---- updated parameters
! transmittance between levels k1 and k2 due to h2o line absorption
! for the various values of the absorption coefficient (th2o)
! transmittance between levels k1 and k2 due to h2o continuum
! absorption for the various values of the absorption
! coefficient (tcon)
! transmittance between levels k1 and k2 due to co2 absorption
! for the various values of the absorption coefficient (tco2)
! transmittance between levels k1 and k2 due to n2o absorption
! for the various values of the absorption coefficient (tn2o)
! total transmittance (tran)
!
!**********************************************************************
implicit none
integer m,np,i,k
!---- input parameters -----
real(Kind=fp_kind) h2oexp(m,np,6),conexp(m,np,3),co2exp(m,np,6,2) &
,n2oexp(m,np,4)
!---- updated parameters -----
real(Kind=fp_kind) th2o(m,6),tcon(m,3),tco2(m,6,2),tn2o(m,4) &
,tran(m)
!---- temporary arrays -----
real(Kind=fp_kind) xx
!-----for h2o line. the k-distribution functions are given in table 4.
do i=1,m
th2o(i,1)=th2o(i,1)*h2oexp(i,k,1)
xx= 0.3153*th2o(i,1)
th2o(i,2)=th2o(i,2)*h2oexp(i,k,2)
xx=xx+0.4604*th2o(i,2)
th2o(i,3)=th2o(i,3)*h2oexp(i,k,3)
xx=xx+0.1326*th2o(i,3)
th2o(i,4)=th2o(i,4)*h2oexp(i,k,4)
xx=xx+0.0798*th2o(i,4)
th2o(i,5)=th2o(i,5)*h2oexp(i,k,5)
xx=xx+0.0119*th2o(i,5)
tran(i)=xx
enddo
!-----for h2o continuum. note that conexp(i,k,3) is for subband 3a.
do i=1,m
tcon(i,1)=tcon(i,1)*conexp(i,k,1)
tran(i)=tran(i)*tcon(i,1)
enddo
!-----for co2 (table 6)
do i=1,m
tco2(i,1,1)=tco2(i,1,1)*co2exp(i,k,1,1)
xx= 0.2673*tco2(i,1,1)
tco2(i,2,1)=tco2(i,2,1)*co2exp(i,k,2,1)
xx=xx+ 0.2201*tco2(i,2,1)
tco2(i,3,1)=tco2(i,3,1)*co2exp(i,k,3,1)
xx=xx+ 0.2106*tco2(i,3,1)
tco2(i,4,1)=tco2(i,4,1)*co2exp(i,k,4,1)
xx=xx+ 0.2409*tco2(i,4,1)
tco2(i,5,1)=tco2(i,5,1)*co2exp(i,k,5,1)
xx=xx+ 0.0196*tco2(i,5,1)
tco2(i,6,1)=tco2(i,6,1)*co2exp(i,k,6,1)
xx=xx+ 0.0415*tco2(i,6,1)
tran(i)=tran(i)*xx
enddo
!-----for n2o (table 5)
do i=1,m
tn2o(i,1)=tn2o(i,1)*n2oexp(i,k,1)
xx= 0.970831*tn2o(i,1)
tn2o(i,2)=tn2o(i,2)*n2oexp(i,k,2)
xx=xx+0.029169*tn2o(i,2)
tran(i)=tran(i)*(xx-1.0)
enddo
return
end subroutine b10kdis
!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
subroutine cldovlp (m,np,k2,ict,icb,it,im,ib, & 1
cldhi,cldmd,cldlw,fcld,tcldlyr,fclr)
!***********************************************************************
! compute the fractional clear line-of-sight between levels k1
! and k2
!
! input parameters
!
! m: number of soundings
! np: number of layers
! k2: index for the level
! ict: the level separating high and middle clouds
! icb: the level separating middle and low clouds
! it: number of cloudy layers in the high-cloud group
! im: number of cloudy layers in the middle-cloud group
! ib: number of cloudy layers in the low-cloud group
! fcld: fractional cloud cover of a layer
! tcldlyr: transmittance of a cloud layer
!
! output parameter
!
! fclr: clear line-of-sight between levels k1 and k2
!***********************************************************************
implicit none
integer m,np,k2,ict(m),icb(m)
integer i,j,k,ii,it(m),im(m),ib(m),itx(m,np),imx(m,np),ibx(m,np)
real(Kind=fp_kind) cldhi(m),cldmd(m),cldlw(m)
real(Kind=fp_kind) fcld(m,np),tcldlyr(m,np),fclr(m)
!***********************************************************************
do i=1,m
!-----for high clouds
! "it" is the number of high-cloud layers
if (k2.le.ict(i)) then
if(fcld(i,k2-1).gt.0.001) then
it(i)=it(i)+1
ii=it(i)
itx(i,ii)=k2-1
if (ii .eq. 1) go to 11
!-----rearrange the order of cloud layers with increasing cloud amount
do k=1,ii-1
j=itx(i,k)
if(fcld(i,j).gt.fcld(i,k2-1)) then
do j=ii-1,k,-1
itx(i,j+1)=itx(i,j)
enddo
itx(i,k)=k2-1
go to 11
endif
enddo
11 continue
!-----compute equivalent black-body high cloud amount
cldhi(i)=0.0
do k=1,ii
j=itx(i,k)
cldhi(i)=fcld(i,j)-tcldlyr(i,j)*(fcld(i,j)-cldhi(i))
enddo
endif
endif
!-----for middle clouds
! "im" is the number of middle-cloud layers
if (k2.gt.ict(m) .and. k2.le.icb(m)) then
if(fcld(i,k2-1).gt.0.001) then
im(i)=im(i)+1
ii=im(i)
imx(i,ii)=k2-1
if (ii .eq. 1) go to 21
!-----rearrange the order of cloud layers with increasing cloud amount
do k=1,ii-1
j=imx(i,k)
if(fcld(i,j).gt.fcld(i,k2-1)) then
do j=ii-1,k,-1
imx(i,j+1)=imx(i,j)
enddo
imx(i,k)=k2-1
go to 21
endif
enddo
21 continue
!-----compute equivalent black-body middle cloud amount
cldmd(i)=0.0
do k=1,ii
j=imx(i,k)
cldmd(i)=fcld(i,j)-tcldlyr(i,j)*(fcld(i,j)-cldmd(i))
enddo
endif
endif
!-----for low clouds
! "ib" is the number of low-cloud layers
if (k2.gt.icb(m)) then
if(fcld(i,k2-1).gt.0.001) then
ib(i)=ib(i)+1
ii=ib(i)
ibx(i,ii)=k2-1
if (ii .eq. 1) go to 31
!-----rearrange the order of cloud layers with increasing cloud amount
do k=1,ii-1
j=ibx(i,k)
if(fcld(i,j).gt.fcld(i,k2-1)) then
do j=ii-1,k,-1
ibx(i,j+1)=ibx(i,j)
enddo
ibx(i,k)=k2-1
go to 31
endif
enddo
31 continue
!-----compute equivalent black-body low cloud amount
cldlw(i)=0.0
do k=1,ii
j=ibx(i,k)
cldlw(i)=fcld(i,j)-tcldlyr(i,j)*(fcld(i,j)-cldlw(i))
enddo
endif
endif
!-----fclr is the equivalent clear fraction between levels k1 and k2
! assuming the three cloud groups are randomly overlapped.
! it follows eqs. (10) and (12).
fclr(i)=(1.0-cldhi(i))*(1.0-cldmd(i))*(1.0-cldlw(i))
enddo !i loop
return
end subroutine cldovlp
!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
!GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
end module module_ra_goddard