From 5b38c42cacda3da9a6ca8e2cd946e43581919049 Mon Sep 17 00:00:00 2001 From: zmoon Date: Tue, 5 Sep 2023 12:26:46 -0600 Subject: [PATCH 01/15] Initial pre-commit config --- .pre-commit-config.yaml | 15 +++++++++++++++ 1 file changed, 15 insertions(+) create mode 100644 .pre-commit-config.yaml diff --git a/.pre-commit-config.yaml b/.pre-commit-config.yaml new file mode 100644 index 00000000..9d2a45e9 --- /dev/null +++ b/.pre-commit-config.yaml @@ -0,0 +1,15 @@ +repos: + - repo: https://github.com/pre-commit/pre-commit-hooks + rev: "v4.4.0" + hooks: + - id: trailing-whitespace + args: ['--markdown-linebreak-ext=md,markdown'] + - id: end-of-file-fixer + - id: check-yaml + + - repo: https://github.com/zmoon/findent-pre-commit + rev: "65627b8" + hooks: + # NOTE: doesn't work on Windows currently + - id: findent-pypi + args: ['-i3'] From 9c783f63ce1514337c0f10da5b523a89034dca4d Mon Sep 17 00:00:00 2001 From: zmoon Date: Tue, 5 Sep 2023 12:35:21 -0600 Subject: [PATCH 02/15] Apply pre-commit config --- README.md | 3 +- docs/_static/style.css | 2 +- docs/develop/developers_guide.rst | 9 +- docs/index.rst | 27 +- .../ccpp/catchem_anthropogenic_wrapper.F90 | 1054 +- drivers/ccpp/catchem_diag_wrapper.F90 | 160 +- drivers/ccpp/catchem_diag_wrapper.meta | 2 +- drivers/ccpp/catchem_dmsemis_wrapper.F90 | 424 +- drivers/ccpp/catchem_dmsemis_wrapper.meta | 2 +- drivers/ccpp/catchem_drydep_wrapper.F90 | 952 +- drivers/ccpp/catchem_dust_wrapper.F90 | 894 +- drivers/ccpp/catchem_gocart_wrapper.F90 | 932 +- drivers/ccpp/catchem_plume_wrapper.F90 | 942 +- drivers/ccpp/catchem_rad_wrapper.F90 | 558 +- drivers/ccpp/catchem_seas_wrapper.F90 | 630 +- drivers/ccpp/catchem_settling_wrapper.F90 | 542 +- drivers/ccpp/catchem_wetdep_wrapper.F90 | 702 +- parameters/catchem_config.F90 | 538 +- parameters/catchem_constants.F90 | 18 +- parameters/ddep_data_mod.F90 | 68 +- parameters/dust_data_mod.F90 | 146 +- parameters/opt_data_mod.F90 | 216 +- parameters/plume_data_mod.F90 | 62 +- parameters/seas_data_mod.F90 | 34 +- src/aero_soa_vbs_data_mod.F90 | 1252 +- src/dep_vertmx_mod.F90 | 94 +- src/drydep_gocart_mod.F90 | 292 +- src/drydep_wesely_mod.F90 | 2368 +- src/dust_afwa_mod.F90 | 448 +- src/dust_fengsha_mod.F90 | 1020 +- src/gocart_aerosols_mod.F90 | 432 +- src/gocart_chem_mod.F90 | 1072 +- src/gocart_diag_mod.F90 | 166 +- src/gocart_dmsemis_mod.F90 | 238 +- src/gocart_dust_default_mod.F90 | 332 +- src/gocart_dust_simple_mod.F90 | 308 +- src/gocart_seas_default_mod.F90 | 340 +- src/gocart_seas_ngac_mod.F90 | 320 +- src/gocart_seas_simple_mod.F90 | 304 +- src/gocart_settling_mod.F90 | 814 +- src/opt_aer_mod.F90 | 8 +- src/opt_aer_out_mod.F90 | 142 +- src/opt_aer_ra_mod.F90 | 127 +- src/opt_averaging_mod.F90 | 5096 ++--- src/opt_driver_mod.F90 | 98 +- src/opt_gocart_mod.F90 | 17942 ++++++++-------- src/opt_mod.F90 | 14 +- src/plume_rise_mod.F90 | 260 +- src/plume_scalar_mod.F90 | 3278 +-- src/plume_zero_mod.F90 | 118 +- src/vash_settling_mod.F90 | 776 +- src/wetdep_ls_mod.F90 | 653 +- 52 files changed, 23611 insertions(+), 23618 deletions(-) diff --git a/README.md b/README.md index e3f59080..3da6b3a9 100644 --- a/README.md +++ b/README.md @@ -1,4 +1,3 @@ -# Configurable ATmospheric Chemistry +# Configurable ATmospheric Chemistry This is the repository for the Configurable ATmospheric Chemistry modelling component. - diff --git a/docs/_static/style.css b/docs/_static/style.css index 6f426e01..e99a9bf5 100644 --- a/docs/_static/style.css +++ b/docs/_static/style.css @@ -15,4 +15,4 @@ .wy-nav-top { background-color: #ffffff; -} \ No newline at end of file +} diff --git a/docs/develop/developers_guide.rst b/docs/develop/developers_guide.rst index 980a8a78..14c71270 100644 --- a/docs/develop/developers_guide.rst +++ b/docs/develop/developers_guide.rst @@ -22,7 +22,7 @@ How to incorporate updates to CATChem In order to contribute code to CATChem, you will need to fork the repository, make changes on your fork, and submit a pull request with your -changes. +changes. (a) Fork the GitHub repository to your own GitHub account using the "Fork" button near the top right: @@ -53,11 +53,11 @@ changes. (d) Make changes to your fork. (e) Submit a pull request back to the main CATChem repository with your - changes. - + changes. + (f) Select two code reviewers (see list under development team section). -(g) Once those two reviewers approve the code, it can be merged into the develop branch. +(g) Once those two reviewers approve the code, it can be merged into the develop branch. .. _clone-notes: .. [#clone] Note that in order to do an SSH clone, @@ -74,4 +74,3 @@ changes. you can still clone the repositories via HTTPS, e.g. :: $ git clone https://github.com/ufs-community/CATChem.git - diff --git a/docs/index.rst b/docs/index.rst index 107d4024..ace1ffca 100644 --- a/docs/index.rst +++ b/docs/index.rst @@ -1,28 +1,25 @@ CATChem ============== -**CATChem** (Configurable ATmospheric Chemistry) is a modelling -component that includes all chemical and aerosol processes needed to perform -atmospheric chemistry and composition simulations within a model through a -flexible, easy to modify, and well-documented infrastructure. CATChem will -include the following processes: chemical kinetics, aerosols, photolysis, -wet deposition, dry deposition, connections to emissions, and connection to -physics schemes. The first use of CATChem will be connecting it to NOAA's -Unified Forecasting System (https://ufscommunity.org/) to create UFS-Chem. CATChem and UFS-Chem are +**CATChem** (Configurable ATmospheric Chemistry) is a modelling +component that includes all chemical and aerosol processes needed to perform +atmospheric chemistry and composition simulations within a model through a +flexible, easy to modify, and well-documented infrastructure. CATChem will +include the following processes: chemical kinetics, aerosols, photolysis, +wet deposition, dry deposition, connections to emissions, and connection to +physics schemes. The first use of CATChem will be connecting it to NOAA's +Unified Forecasting System (https://ufscommunity.org/) to create UFS-Chem. CATChem and UFS-Chem are currently under development and more information will be provided soon. - + .. warning:: - CATChem is currently under development. The code is public to - encourage collaboration amongst the community. Do not publish results using + CATChem is currently under development. The code is public to + encourage collaboration amongst the community. Do not publish results using CATChem without consulting the development team. .. toctree:: :maxdepth: 1 :caption: Contribute - + develop/development_team develop/developers_guide - - - diff --git a/drivers/ccpp/catchem_anthropogenic_wrapper.F90 b/drivers/ccpp/catchem_anthropogenic_wrapper.F90 index f3efc3cb..0174c0cf 100644 --- a/drivers/ccpp/catchem_anthropogenic_wrapper.F90 +++ b/drivers/ccpp/catchem_anthropogenic_wrapper.F90 @@ -4,7 +4,7 @@ !! Revision History: !! 05/2023, Restructure for CATChem, Jian.He@noaa.gov - module catchem_anthropogenic_wrapper +module catchem_anthropogenic_wrapper use physcons, only : g => con_g, pi => con_pi use machine , only : kind_phys @@ -20,19 +20,19 @@ module catchem_anthropogenic_wrapper !> \brief Brief description of the subroutine !! - subroutine catchem_anthropogenic_wrapper_init() - end subroutine catchem_anthropogenic_wrapper_init + subroutine catchem_anthropogenic_wrapper_init() + end subroutine catchem_anthropogenic_wrapper_init !> \brief Brief description of the subroutine !! !! \section arg_table_catchem_anthropogenic_wrapper_finalize Argument Table !! - subroutine catchem_anthropogenic_wrapper_finalize() - end subroutine catchem_anthropogenic_wrapper_finalize + subroutine catchem_anthropogenic_wrapper_finalize() + end subroutine catchem_anthropogenic_wrapper_finalize !> \defgroup catchem_anthropogenic_group CATChem anthro wrapper Module !! This is the Configurable ATmospheric Chemistry (CATChem) -!>\defgroup catchem_anthropogenic_wrapper CATChem anthro wrapper Module +!>\defgroup catchem_anthropogenic_wrapper CATChem anthro wrapper Module !> \ingroup catchem_anthropogenic_group !! This is the CATChem anthro wrapper Module !! \section arg_table_catchem_anthropogenic_wrapper_run Argument Table @@ -40,435 +40,435 @@ end subroutine catchem_anthropogenic_wrapper_finalize !! !>\section catchem_anthropogenic_wrapper CATChem Scheme General Algorithm !> @{ - subroutine catchem_anthropogenic_wrapper_run(im, kte, kme, ktau, dt, & - jdate, garea, rlat, rlon, & - pr3d, ph3d,phl3d, prl3d, tk3d, spechum,emi_in, & - ntrac,ntso2,ntsulf,ntpp25,ntbc1,ntoc1,ntpp10, & - gq0,qgrs,abem,chem_opt_in,kemit_in,pert_scale_anthro, & - emis_amp_anthro,do_sppt_emis,sppt_wts,errmsg,errflg) - - implicit none - - - integer, intent(in) :: im,kte,kme,ktau, jdate(8) - integer, intent(in) :: ntrac - integer, intent(in) :: ntso2,ntpp25,ntbc1,ntoc1,ntpp10 - integer, intent(in) :: ntsulf - real(kind_phys),intent(in) :: dt, emis_amp_anthro, pert_scale_anthro - real(kind_phys), optional, intent(in) :: sppt_wts(:,:) - logical, intent(in) :: do_sppt_emis - - integer, parameter :: ids=1,jds=1,jde=1, kds=1 - integer, parameter :: ims=1,jms=1,jme=1, kms=1 - integer, parameter :: its=1,jts=1,jte=1, kts=1 - - real(kind_phys), dimension(im, 10), intent(in) :: emi_in - real(kind_phys), dimension(im), intent(in) :: garea, rlat,rlon - real(kind_phys), dimension(im,kme), intent(in) :: ph3d, pr3d - real(kind_phys), dimension(im,kte), intent(in) :: phl3d, prl3d, tk3d, spechum - real(kind_phys), dimension(im,kte,ntrac), intent(inout) :: gq0, qgrs - real(kind_phys), dimension(im,12 ), intent(inout) :: abem - integer, intent(in) :: chem_opt_in, kemit_in - character(len=*), intent(out) :: errmsg - integer, intent(out) :: errflg - - real(kind_phys), dimension(1:im, 1:kme,jms:jme) :: rri, t_phy, & - p_phy, z_at_w, dz8w, p8w, rho_phy - - real(kind_phys), dimension(ims:im, jms:jme) :: xlat, xlong, dxy + subroutine catchem_anthropogenic_wrapper_run(im, kte, kme, ktau, dt, & + jdate, garea, rlat, rlon, & + pr3d, ph3d,phl3d, prl3d, tk3d, spechum,emi_in, & + ntrac,ntso2,ntsulf,ntpp25,ntbc1,ntoc1,ntpp10, & + gq0,qgrs,abem,chem_opt_in,kemit_in,pert_scale_anthro, & + emis_amp_anthro,do_sppt_emis,sppt_wts,errmsg,errflg) + + implicit none + + + integer, intent(in) :: im,kte,kme,ktau, jdate(8) + integer, intent(in) :: ntrac + integer, intent(in) :: ntso2,ntpp25,ntbc1,ntoc1,ntpp10 + integer, intent(in) :: ntsulf + real(kind_phys),intent(in) :: dt, emis_amp_anthro, pert_scale_anthro + real(kind_phys), optional, intent(in) :: sppt_wts(:,:) + logical, intent(in) :: do_sppt_emis + + integer, parameter :: ids=1,jds=1,jde=1, kds=1 + integer, parameter :: ims=1,jms=1,jme=1, kms=1 + integer, parameter :: its=1,jts=1,jte=1, kts=1 + + real(kind_phys), dimension(im, 10), intent(in) :: emi_in + real(kind_phys), dimension(im), intent(in) :: garea, rlat,rlon + real(kind_phys), dimension(im,kme), intent(in) :: ph3d, pr3d + real(kind_phys), dimension(im,kte), intent(in) :: phl3d, prl3d, tk3d, spechum + real(kind_phys), dimension(im,kte,ntrac), intent(inout) :: gq0, qgrs + real(kind_phys), dimension(im,12 ), intent(inout) :: abem + integer, intent(in) :: chem_opt_in, kemit_in + character(len=*), intent(out) :: errmsg + integer, intent(out) :: errflg + + real(kind_phys), dimension(1:im, 1:kme,jms:jme) :: rri, t_phy, & + p_phy, z_at_w, dz8w, p8w, rho_phy + + real(kind_phys), dimension(ims:im, jms:jme) :: xlat, xlong, dxy !>- chemistry variables - real(kind_phys), dimension(ims:im, kms:kme, jms:jme, 1:num_chem ) :: chem - integer :: ide, ime, ite, kde - real(kind_phys), dimension(ims:im, kms:kemit, jms:jme, 1:num_emis_ant) :: emis_ant - real(kind_phys) :: dtstep - real(kind_phys), dimension(1:num_chem) :: ppm2ugkg - real(kind_phys), parameter :: ugkg = 1.e-09_kind_phys !lzhang - - integer :: i, j, jp, k, kp, n - real(kind_phys) :: random_factor(ims:im,jms:jme) - - - errmsg = '' - errflg = 0 - - chem_opt = chem_opt_in - kemit = kemit_in - - ! -- set domain - ide=im - ime=im - ite=im - kde=kte - - ! -- volume to mass fraction conversion table (ppm -> ug/kg) - ppm2ugkg = 1._kind_phys - !ppm2ugkg(p_so2 ) = 1.e+03_kind_phys * mw_so2_aer / mwdry - ppm2ugkg(p_sulf) = 1.e+03_kind_phys * mw_so4_aer / mwdry - - if(do_sppt_emis) then - random_factor(:,jms) = pert_scale_anthro*max(min(1+(sppt_wts(:,kme/2)-1)*emis_amp_anthro,2.0),0.0) - else - random_factor = 1.0 - endif - - ! -- compute accumulated large-scale and convective rainfall since last call - if (ktau > 1) then - dtstep = call_chemistry * dt - else - dtstep = dt - end if + real(kind_phys), dimension(ims:im, kms:kme, jms:jme, 1:num_chem ) :: chem + integer :: ide, ime, ite, kde + real(kind_phys), dimension(ims:im, kms:kemit, jms:jme, 1:num_emis_ant) :: emis_ant + real(kind_phys) :: dtstep + real(kind_phys), dimension(1:num_chem) :: ppm2ugkg + real(kind_phys), parameter :: ugkg = 1.e-09_kind_phys !lzhang + + integer :: i, j, jp, k, kp, n + real(kind_phys) :: random_factor(ims:im,jms:jme) + + + errmsg = '' + errflg = 0 + + chem_opt = chem_opt_in + kemit = kemit_in + + ! -- set domain + ide=im + ime=im + ite=im + kde=kte + + ! -- volume to mass fraction conversion table (ppm -> ug/kg) + ppm2ugkg = 1._kind_phys + !ppm2ugkg(p_so2 ) = 1.e+03_kind_phys * mw_so2_aer / mwdry + ppm2ugkg(p_sulf) = 1.e+03_kind_phys * mw_so4_aer / mwdry + + if(do_sppt_emis) then + random_factor(:,jms) = pert_scale_anthro*max(min(1+(sppt_wts(:,kme/2)-1)*emis_amp_anthro,2.0),0.0) + else + random_factor = 1.0 + endif + + ! -- compute accumulated large-scale and convective rainfall since last call + if (ktau > 1) then + dtstep = call_chemistry * dt + else + dtstep = dt + end if !>- get ready for chemistry run - ! -- anthropogenic emission - call catchem_prep_anthropogenic( & - ktau,dtstep, & - jdate,garea,rlat,rlon, & - xlat,xlong,dxy, & - pr3d,ph3d,phl3d,tk3d,prl3d,spechum,emi_in, & - rri,t_phy,p_phy,rho_phy,dz8w,p8w,z_at_w, & - ntso2,ntsulf,ntpp25,ntbc1,ntoc1,ntpp10,ntrac,gq0, & - num_chem, num_ebu_in,num_emis_ant, & - emis_ant,ppm2ugkg,chem,random_factor, & - ids,ide, jds,jde, kds,kde, & - ims,ime, jms,jme, kms,kme, & - its,ite, jts,jte, kts,kte) - - - ! -- put chem stuff back into tracer array - do k=kts,kte - do i=its,ite - gq0(i,k,ntso2 )=ppm2ugkg(p_so2 ) * max(epsilc,chem(i,k,1,p_so2)) - gq0(i,k,ntsulf )=ppm2ugkg(p_sulf ) * max(epsilc,chem(i,k,1,p_sulf)) - gq0(i,k,ntpp25 )=ppm2ugkg(p_p25 ) * max(epsilc,chem(i,k,1,p_p25)) - gq0(i,k,ntbc1 )=ppm2ugkg(p_bc1 ) * max(epsilc,chem(i,k,1,p_bc1)) - gq0(i,k,ntoc1 )=ppm2ugkg(p_oc1 ) * max(epsilc,chem(i,k,1,p_oc1)) - gq0(i,k,ntpp10 )=ppm2ugkg(p_p10 ) * max(epsilc,chem(i,k,1,p_p10)) - enddo - enddo - - do k=kts,kte - do i=its,ite - qgrs(i,k,ntso2 )=gq0(i,k,ntso2 ) - qgrs(i,k,ntsulf )=gq0(i,k,ntsulf ) - qgrs(i,k,ntpp25 )=gq0(i,k,ntpp25 ) - qgrs(i,k,ntbc1 )=gq0(i,k,ntbc1 ) - qgrs(i,k,ntoc1 )=gq0(i,k,ntoc1 ) - qgrs(i,k,ntpp10 )=gq0(i,k,ntpp10 ) - enddo - enddo - - abem(:,1)=ugkg*emis_ant(:,kts,1,p_e_bc ) - abem(:,2)=ugkg*emis_ant(:,kts,1,p_e_oc ) - abem(:,3)=ugkg*emis_ant(:,kts,1,p_e_so2) + ! -- anthropogenic emission + call catchem_prep_anthropogenic( & + ktau,dtstep, & + jdate,garea,rlat,rlon, & + xlat,xlong,dxy, & + pr3d,ph3d,phl3d,tk3d,prl3d,spechum,emi_in, & + rri,t_phy,p_phy,rho_phy,dz8w,p8w,z_at_w, & + ntso2,ntsulf,ntpp25,ntbc1,ntoc1,ntpp10,ntrac,gq0, & + num_chem, num_ebu_in,num_emis_ant, & + emis_ant,ppm2ugkg,chem,random_factor, & + ids,ide, jds,jde, kds,kde, & + ims,ime, jms,jme, kms,kme, & + its,ite, jts,jte, kts,kte) + + + ! -- put chem stuff back into tracer array + do k=kts,kte + do i=its,ite + gq0(i,k,ntso2 )=ppm2ugkg(p_so2 ) * max(epsilc,chem(i,k,1,p_so2)) + gq0(i,k,ntsulf )=ppm2ugkg(p_sulf ) * max(epsilc,chem(i,k,1,p_sulf)) + gq0(i,k,ntpp25 )=ppm2ugkg(p_p25 ) * max(epsilc,chem(i,k,1,p_p25)) + gq0(i,k,ntbc1 )=ppm2ugkg(p_bc1 ) * max(epsilc,chem(i,k,1,p_bc1)) + gq0(i,k,ntoc1 )=ppm2ugkg(p_oc1 ) * max(epsilc,chem(i,k,1,p_oc1)) + gq0(i,k,ntpp10 )=ppm2ugkg(p_p10 ) * max(epsilc,chem(i,k,1,p_p10)) + enddo + enddo + + do k=kts,kte + do i=its,ite + qgrs(i,k,ntso2 )=gq0(i,k,ntso2 ) + qgrs(i,k,ntsulf )=gq0(i,k,ntsulf ) + qgrs(i,k,ntpp25 )=gq0(i,k,ntpp25 ) + qgrs(i,k,ntbc1 )=gq0(i,k,ntbc1 ) + qgrs(i,k,ntoc1 )=gq0(i,k,ntoc1 ) + qgrs(i,k,ntpp10 )=gq0(i,k,ntpp10 ) + enddo + enddo + + abem(:,1)=ugkg*emis_ant(:,kts,1,p_e_bc ) + abem(:,2)=ugkg*emis_ant(:,kts,1,p_e_oc ) + abem(:,3)=ugkg*emis_ant(:,kts,1,p_e_so2) ! end subroutine catchem_anthropogenic_wrapper_run !> @} subroutine catchem_prep_anthropogenic( & - ktau,dtstep, & - jdate,garea,rlat,rlon, & - xlat,xlong,dxy, & - pr3d,ph3d,phl3d,tk3d,prl3d,spechum,emi_in, & - rri,t_phy,p_phy,rho_phy,dz8w,p8w,z_at_w, & - ntso2,ntsulf,ntpp25,ntbc1,ntoc1,ntpp10,ntrac,gq0, & - num_chem, num_ebu_in,num_emis_ant, & - emis_ant,ppm2ugkg,chem,random_factor, & - ids,ide, jds,jde, kds,kde, & - ims,ime, jms,jme, kms,kme, & - its,ite, jts,jte, kts,kte) - - !Chem input configuration - integer, intent(in) :: ktau,jdate(8) - real(kind=kind_phys), intent(in) :: dtstep - - !Stochastic physics variables - real(kind_phys), intent(in) :: random_factor(ims:ime,jms:jme) - - !FV3 input variables - integer, intent(in) :: ntrac - integer, intent(in) :: ntso2,ntpp25,ntbc1,ntoc1,ntpp10 - integer, intent(in) :: ntsulf - real(kind=kind_phys), dimension(ims:ime), intent(in) :: garea, rlat, rlon - real(kind=kind_phys), dimension(ims:ime, 10), intent(in) :: emi_in - real(kind=kind_phys), dimension(ims:ime, kms:kme), intent(in) :: pr3d,ph3d - real(kind=kind_phys), dimension(ims:ime, kts:kte), intent(in) :: phl3d,tk3d,prl3d,spechum - real(kind=kind_phys), dimension(ims:ime, kts:kte,ntrac), intent(in) :: gq0 - - - !GSD Chem variables - integer,intent(in) :: num_chem, num_ebu_in,num_emis_ant - integer,intent(in) :: ids,ide, jds,jde, kds,kde, & - ims,ime, jms,jme, kms,kme, & - its,ite, jts,jte, kts,kte - - real(kind_phys), dimension(num_chem), intent(in) :: ppm2ugkg - - real(kind_phys), dimension(ims:ime, kms:kemit, jms:jme, num_emis_ant), intent(inout) :: emis_ant - - real(kind_phys), dimension(ims:ime, kms:kme, jms:jme), intent(out) :: & + ktau,dtstep, & + jdate,garea,rlat,rlon, & + xlat,xlong,dxy, & + pr3d,ph3d,phl3d,tk3d,prl3d,spechum,emi_in, & + rri,t_phy,p_phy,rho_phy,dz8w,p8w,z_at_w, & + ntso2,ntsulf,ntpp25,ntbc1,ntoc1,ntpp10,ntrac,gq0, & + num_chem, num_ebu_in,num_emis_ant, & + emis_ant,ppm2ugkg,chem,random_factor, & + ids,ide, jds,jde, kds,kde, & + ims,ime, jms,jme, kms,kme, & + its,ite, jts,jte, kts,kte) + + !Chem input configuration + integer, intent(in) :: ktau,jdate(8) + real(kind=kind_phys), intent(in) :: dtstep + + !Stochastic physics variables + real(kind_phys), intent(in) :: random_factor(ims:ime,jms:jme) + + !FV3 input variables + integer, intent(in) :: ntrac + integer, intent(in) :: ntso2,ntpp25,ntbc1,ntoc1,ntpp10 + integer, intent(in) :: ntsulf + real(kind=kind_phys), dimension(ims:ime), intent(in) :: garea, rlat, rlon + real(kind=kind_phys), dimension(ims:ime, 10), intent(in) :: emi_in + real(kind=kind_phys), dimension(ims:ime, kms:kme), intent(in) :: pr3d,ph3d + real(kind=kind_phys), dimension(ims:ime, kts:kte), intent(in) :: phl3d,tk3d,prl3d,spechum + real(kind=kind_phys), dimension(ims:ime, kts:kte,ntrac), intent(in) :: gq0 + + + !GSD Chem variables + integer,intent(in) :: num_chem, num_ebu_in,num_emis_ant + integer,intent(in) :: ids,ide, jds,jde, kds,kde, & + ims,ime, jms,jme, kms,kme, & + its,ite, jts,jte, kts,kte + + real(kind_phys), dimension(num_chem), intent(in) :: ppm2ugkg + + real(kind_phys), dimension(ims:ime, kms:kemit, jms:jme, num_emis_ant), intent(inout) :: emis_ant + + real(kind_phys), dimension(ims:ime, kms:kme, jms:jme), intent(out) :: & rri, t_phy, p_phy, rho_phy, dz8w, p8w - real(kind_phys), dimension(ims:ime, jms:jme), intent(out) :: xlat, xlong, dxy - real(kind_phys), dimension(ims:ime, kms:kme, jms:jme, num_chem), intent(out) :: chem + real(kind_phys), dimension(ims:ime, jms:jme), intent(out) :: xlat, xlong, dxy + real(kind_phys), dimension(ims:ime, kms:kme, jms:jme, num_chem), intent(out) :: chem - real(kind_phys), dimension(ims:ime, kms:kme, jms:jme), intent(out) :: z_at_w - real(kind_phys), dimension(ims:ime, jms:jme, num_ebu_in) :: emiss_ab - real(kind_phys), parameter :: frac_so2_ant = 1.0_kind_phys ! antropogenic so2 fraction + real(kind_phys), dimension(ims:ime, kms:kme, jms:jme), intent(out) :: z_at_w + real(kind_phys), dimension(ims:ime, jms:jme, num_ebu_in) :: emiss_ab + real(kind_phys), parameter :: frac_so2_ant = 1.0_kind_phys ! antropogenic so2 fraction !>- volcanic stuff - integer ::ko,k_final,k_initial,kl,kk4,curr_hours,curr_secs,curr_day,curr_mth,curr_yr - integer :: ivolcano,num_emis_voll - real(kind_phys) :: x1,ashz_above_vent,mindist,currdist - real(kind_phys), DIMENSION (kms:kme) :: vert_mass_dist - real(kind_phys) :: eh,maxth,lon_vol,lat_vol,gmm,erup_beg,erup_dt,erup_end - real(kind_phys), dimension(ims:ime, kms:kme, jms:jme, num_emis_vol) :: emis_vol - - ! -- volcano ashes parameters - real(kind_phys), dimension(7) :: h = (/ (240., i = 1, 6), huge(1.0) /) - real(kind_phys), dimension(6) :: emiss_ash_table = (/ 5834., 3834., 5834., 3334., 3334., 2334. /) - real(kind_phys), dimension(6) :: eh_table = (/ 3.11e5, 3.87e4, 3.11e5, 2.17e4, 2.17e4, 4.93e3 /) - real(kind_phys), parameter :: percen_mass_umbrel = 0.75 - real(kind_phys), parameter :: base_umbrel = 0.25 ! fraction - real(kind_phys), parameter :: base_umbrel2 = 1.0 ! evenly distribution - - ! -- local variables + integer ::ko,k_final,k_initial,kl,kk4,curr_hours,curr_secs,curr_day,curr_mth,curr_yr + integer :: ivolcano,num_emis_voll + real(kind_phys) :: x1,ashz_above_vent,mindist,currdist + real(kind_phys), DIMENSION (kms:kme) :: vert_mass_dist + real(kind_phys) :: eh,maxth,lon_vol,lat_vol,gmm,erup_beg,erup_dt,erup_end + real(kind_phys), dimension(ims:ime, kms:kme, jms:jme, num_emis_vol) :: emis_vol + + ! -- volcano ashes parameters + real(kind_phys), dimension(7) :: h = (/ (240., i = 1, 6), huge(1.0) /) + real(kind_phys), dimension(6) :: emiss_ash_table = (/ 5834., 3834., 5834., 3334., 3334., 2334. /) + real(kind_phys), dimension(6) :: eh_table = (/ 3.11e5, 3.87e4, 3.11e5, 2.17e4, 2.17e4, 4.93e3 /) + real(kind_phys), parameter :: percen_mass_umbrel = 0.75 + real(kind_phys), parameter :: base_umbrel = 0.25 ! fraction + real(kind_phys), parameter :: base_umbrel2 = 1.0 ! evenly distribution + + ! -- local variables ! real(kind=kind_phys), dimension(ims:ime, kms:kme, jms:jme) :: p_phy - integer i,ip,j,jp,k,kp,kk,kkp,nv,jmax,jmaxi,l,ll,n,ndystep,ixhour,igbox,jgbox - real(kind_phys), DIMENSION (ims:ime,jms:jme) :: so2_mass,emiss_ash_dtt - real(kind_phys), dimension(ims:ime, jms:jme) :: emiss_ash_mass - real(kind_phys), dimension(ims:ime, jms:jme) :: emiss_ash_height - real(kind_phys), dimension(ims:ime, jms:jme) :: emiss_ash_dt - real(kind_phys) :: factor,factor2 + integer i,ip,j,jp,k,kp,kk,kkp,nv,jmax,jmaxi,l,ll,n,ndystep,ixhour,igbox,jgbox + real(kind_phys), DIMENSION (ims:ime,jms:jme) :: so2_mass,emiss_ash_dtt + real(kind_phys), dimension(ims:ime, jms:jme) :: emiss_ash_mass + real(kind_phys), dimension(ims:ime, jms:jme) :: emiss_ash_height + real(kind_phys), dimension(ims:ime, jms:jme) :: emiss_ash_dt + real(kind_phys) :: factor,factor2 ! print*,'hli into volc' - ! -- initialize output arrays - rri = 0._kind_phys - t_phy = 0._kind_phys - p_phy = 0._kind_phys - rho_phy = 0._kind_phys - dz8w = 0._kind_phys - p8w = 0._kind_phys - chem = 0._kind_phys - z_at_w = 0._kind_phys - xlat = 0._kind_phys - xlong = 0._kind_phys - dxy = 0._kind_phys - chem = 0._kind_phys - - emiss_ash_dtt = 0._kind_phys - num_emis_voll =0._kind_phys - so2_mass = 0._kind_phys - vert_mass_dist = 0._kind_phys - - lon_vol=-10000 - lat_vol=-10000 - - curr_yr = jdate(1) - curr_mth = jdate(2) - curr_day = jdate(3) - ! -- initialize local arrays - !idate=20220115 - if (curr_yr==2022.and. curr_mth==1.and. curr_day==15) then - erup_beg=3*3600. - erup_dt=18000. !second - erup_end=erup_beg+erup_dt - gmm=float(ktau)*dtstep - num_emis_voll =4 - !-- locatoin of volcano - lon_vol=-175.38+360 - lat_vol=-20.57 - endif - - mindist=1.e9 - igbox=-1 - jgbox=-1 - - ! -- sanity check for volcanic emissions - if (num_emis_voll > 0) then - select case (chem_opt) - case (316) - jmax = 10 - case (317, 502) - jmax = 4 - case (CHEM_OPT_GOCART) - jmax = 4 - case default - jmax = num_emis_voll - end select - !if (num_emis_voll /= jmax) then - ! call chem_rc_set(CHEM_RC_FAILURE, & - ! msg="Inconsistent volcanic ash settings", & - ! file=__FILE__, line=__LINE__, rc=rc) - ! return - !end if - end if - - ! -- initialize fire emissions - if (ktau <= 1) then - emis_ant = 0. - emis_vol = 0. - end if - - do i=its,ite - dxy (i,1)=garea(i) - xlat (i,1)=rlat(i)*180./pi - xlong(i,1)=rlon(i)*180./pi - enddo - - do j=jts,jte - jp = j - jts + 1 + ! -- initialize output arrays + rri = 0._kind_phys + t_phy = 0._kind_phys + p_phy = 0._kind_phys + rho_phy = 0._kind_phys + dz8w = 0._kind_phys + p8w = 0._kind_phys + chem = 0._kind_phys + z_at_w = 0._kind_phys + xlat = 0._kind_phys + xlong = 0._kind_phys + dxy = 0._kind_phys + chem = 0._kind_phys + + emiss_ash_dtt = 0._kind_phys + num_emis_voll =0._kind_phys + so2_mass = 0._kind_phys + vert_mass_dist = 0._kind_phys + + lon_vol=-10000 + lat_vol=-10000 + + curr_yr = jdate(1) + curr_mth = jdate(2) + curr_day = jdate(3) + ! -- initialize local arrays + !idate=20220115 + if (curr_yr==2022.and. curr_mth==1.and. curr_day==15) then + erup_beg=3*3600. + erup_dt=18000. !second + erup_end=erup_beg+erup_dt + gmm=float(ktau)*dtstep + num_emis_voll =4 + !-- locatoin of volcano + lon_vol=-175.38+360 + lat_vol=-20.57 + endif + + mindist=1.e9 + igbox=-1 + jgbox=-1 + + ! -- sanity check for volcanic emissions + if (num_emis_voll > 0) then + select case (chem_opt) + case (316) + jmax = 10 + case (317, 502) + jmax = 4 + case (CHEM_OPT_GOCART) + jmax = 4 + case default + jmax = num_emis_voll + end select + !if (num_emis_voll /= jmax) then + ! call chem_rc_set(CHEM_RC_FAILURE, & + ! msg="Inconsistent volcanic ash settings", & + ! file=__FILE__, line=__LINE__, rc=rc) + ! return + !end if + end if + + ! -- initialize fire emissions + if (ktau <= 1) then + emis_ant = 0. + emis_vol = 0. + end if + do i=its,ite - ip = i - its + 1 - z_at_w(i,kts,j)=max(0.,ph3d(ip,1)/g) + dxy (i,1)=garea(i) + xlat (i,1)=rlat(i)*180./pi + xlong(i,1)=rlon(i)*180./pi enddo - enddo - do j=jts,jte - jp = j - jts + 1 - do k=kts,kte - kp = k - kts + 1 - do i=its,ite - ip = i - its + 1 - dz8w(i,k,j)=abs(ph3d(ip,kp+1)-ph3d(ip,kp))/g - z_at_w(i,k+1,j)=z_at_w(i,k,j)+dz8w(i,k,j) - enddo + do j=jts,jte + jp = j - jts + 1 + do i=its,ite + ip = i - its + 1 + z_at_w(i,kts,j)=max(0.,ph3d(ip,1)/g) + enddo enddo - enddo - - do j=jts,jte - jp = j - jts + 1 - do k=kts,kte+1 - kp = k - kts + 1 - do i=its,ite - ip = i - its + 1 - p8w(i,k,j)=pr3d(ip,kp) - enddo + + do j=jts,jte + jp = j - jts + 1 + do k=kts,kte + kp = k - kts + 1 + do i=its,ite + ip = i - its + 1 + dz8w(i,k,j)=abs(ph3d(ip,kp+1)-ph3d(ip,kp))/g + z_at_w(i,k+1,j)=z_at_w(i,k,j)+dz8w(i,k,j) + enddo + enddo enddo - enddo - - do j=jts,jte - jp = j - jts + 1 - do k=kts,kte+1 - kk=min(k,kte) - kkp = kk - kts + 1 - do i=its,ite - ip = i - its + 1 - dz8w(i,k,j)=z_at_w(i,kk+1,j)-z_at_w(i,kk,j) - t_phy(i,k,j)=tk3d(ip,kkp) - p_phy(i,k,j)=prl3d(ip,kkp) - rho_phy(i,k,j)=p_phy(i,k,j)/(287.04*t_phy(i,k,j)*(1.+.608*spechum(ip,kkp))) - rri(i,k,j)=1./rho_phy(i,k,j) - !-- - enddo + + do j=jts,jte + jp = j - jts + 1 + do k=kts,kte+1 + kp = k - kts + 1 + do i=its,ite + ip = i - its + 1 + p8w(i,k,j)=pr3d(ip,kp) + enddo + enddo + enddo + + do j=jts,jte + jp = j - jts + 1 + do k=kts,kte+1 + kk=min(k,kte) + kkp = kk - kts + 1 + do i=its,ite + ip = i - its + 1 + dz8w(i,k,j)=z_at_w(i,kk+1,j)-z_at_w(i,kk,j) + t_phy(i,k,j)=tk3d(ip,kkp) + p_phy(i,k,j)=prl3d(ip,kkp) + rho_phy(i,k,j)=p_phy(i,k,j)/(287.04*t_phy(i,k,j)*(1.+.608*spechum(ip,kkp))) + rri(i,k,j)=1./rho_phy(i,k,j) + !-- + enddo + enddo enddo - enddo !lzhang - ! -- volcanics - if (num_emis_voll >0) then - do j=jts,jte - do i=its,ite - if(abs(lon_vol-xlong(i,j)) .gt. 2. .or.& - abs(lat_vol-xlat(i,j)) .gt. 2. ) cycle + ! -- volcanics + if (num_emis_voll >0) then + do j=jts,jte + do i=its,ite + if(abs(lon_vol-xlong(i,j)) .gt. 2. .or.& + abs(lat_vol-xlat(i,j)) .gt. 2. ) cycle - currdist=sqrt((lon_vol-xlong(i,j))**2+& - (lat_vol-xlat(i,j))**2) + currdist=sqrt((lon_vol-xlong(i,j))**2+& + (lat_vol-xlat(i,j))**2) - if(currdist 1) then + if(currdist 1)then - if (chem_opt == CHEM_OPT_GOCART) then - do j=jts,jte - do i=its,ite - factor=dtstep*rri(i,k,j)/dz8w(i,k,j) - factor2=4.828e-4*dtstep*rri(i,k,j)/(60.*dz8w(i,k,j)) - chem(i,k,j,p_bc1)=chem(i,k,j,p_bc1)+emis_ant(i,k,j,p_e_bc)*factor - chem(i,k,j,p_oc1)=chem(i,k,j,p_oc1)+emis_ant(i,k,j,p_e_oc)*factor - chem(i,k,j,p_p25)=chem(i,k,j,p_p25)+emis_ant(i,k,j,p_e_pm_25)*factor - chem(i,k,j,p_p10)=chem(i,k,j,p_p10)+emis_ant(i,k,j,p_e_pm_10)*factor - chem(i,k,j,p_sulf)=chem(i,k,j,p_sulf)+emis_ant(i,k,j,p_e_sulf)*factor - chem(i,k,j,p_so2)=chem(i,k,j,p_so2)+emis_ant(i,k,j,p_e_so2)*factor2 - enddo - enddo + + factor=0. + k=kts + if (p_bc2 > 1) then + do j=jts,jte + do i=its,ite + emis_ant(i,k,j,p_e_bc)=emiss_ab(i,j,p_e_bc) + emis_ant(i,k,j,p_e_oc)=emiss_ab(i,j,p_e_oc) + emis_ant(i,k,j,p_e_sulf)=emiss_ab(i,j,p_e_sulf) + emis_ant(i,k,j,p_e_so2)=frac_so2_ant * emiss_ab(i,j,p_e_so2) + emis_ant(i,k,j,p_e_dms)= 0. !emiss_ab(j,p_e_dms) + emis_ant(i,k,j,p_e_pm_25)=emiss_ab(i,j,p_e_pm_25) + emis_ant(i,k,j,p_e_pm_10)=emiss_ab(i,j,p_e_pm_10) + enddo + enddo endif - else if (p_tr2 > 1)then !co2 here - do j=jts,jte - do i=its,ite -! factor2=dtstep*rri(i,k,j)/dz8w(i,k,j) - !factor2=4.828e-4*dtstep*rri(i,k,j)/(60.*dz8w(i,k,j)) - !chem(i,k,j,p_tr1)=chem(i,k,j,p_tr1)+emis_ant(i,k,j,p_e_tr1)*factor2 - !chem(i,k,j,p_tr2)=chem(i,k,j,p_tr2)+emis_ant(i,k,j,p_e_tr2)*factor2 - enddo + + do k=kms,kte + do i=ims,ime + chem(i,k,jts,p_so2 )=max(epsilc,gq0(i,k,ntso2 )/ppm2ugkg(p_so2)) + chem(i,k,jts,p_sulf )=max(epsilc,gq0(i,k,ntsulf )/ppm2ugkg(p_sulf)) + chem(i,k,jts,p_p25 )=max(epsilc,gq0(i,k,ntpp25 )/ppm2ugkg(p_p25)) + chem(i,k,jts,p_bc1 )=max(epsilc,gq0(i,k,ntbc1 )/ppm2ugkg(p_bc1)) + chem(i,k,jts,p_oc1 )=max(epsilc,gq0(i,k,ntoc1 )/ppm2ugkg(p_oc1)) + chem(i,k,jts,p_p10 )=max(epsilc,gq0(i,k,ntpp10 )/ppm2ugkg(p_p10)) + enddo enddo - else if ((p_tr2 > 1) .and. (p_bc2 > 1))then - !call chem_rc_set(CHEM_RC_FAILURE, msg="Inconsistent options detected.", & - ! file=__FILE__, line=__LINE__, rc=rc) - return - endif - - curr_secs=ktau*ifix(dtstep) - curr_hours=curr_secs/3600 + + ! + ! -- gocart background fields only if gocart is called + ! +! emis_ant=0. + nv=1 + k=kts + factor2=0. + factor=0. + if (p_bc2 > 1)then + if (chem_opt == CHEM_OPT_GOCART) then + do j=jts,jte + do i=its,ite + factor=dtstep*rri(i,k,j)/dz8w(i,k,j) + factor2=4.828e-4*dtstep*rri(i,k,j)/(60.*dz8w(i,k,j)) + chem(i,k,j,p_bc1)=chem(i,k,j,p_bc1)+emis_ant(i,k,j,p_e_bc)*factor + chem(i,k,j,p_oc1)=chem(i,k,j,p_oc1)+emis_ant(i,k,j,p_e_oc)*factor + chem(i,k,j,p_p25)=chem(i,k,j,p_p25)+emis_ant(i,k,j,p_e_pm_25)*factor + chem(i,k,j,p_p10)=chem(i,k,j,p_p10)+emis_ant(i,k,j,p_e_pm_10)*factor + chem(i,k,j,p_sulf)=chem(i,k,j,p_sulf)+emis_ant(i,k,j,p_e_sulf)*factor + chem(i,k,j,p_so2)=chem(i,k,j,p_so2)+emis_ant(i,k,j,p_e_so2)*factor2 + enddo + enddo + endif + else if (p_tr2 > 1)then !co2 here + do j=jts,jte + do i=its,ite +! factor2=dtstep*rri(i,k,j)/dz8w(i,k,j) + !factor2=4.828e-4*dtstep*rri(i,k,j)/(60.*dz8w(i,k,j)) + !chem(i,k,j,p_tr1)=chem(i,k,j,p_tr1)+emis_ant(i,k,j,p_e_tr1)*factor2 + !chem(i,k,j,p_tr2)=chem(i,k,j,p_tr2)+emis_ant(i,k,j,p_e_tr2)*factor2 + enddo + enddo + else if ((p_tr2 > 1) .and. (p_bc2 > 1))then + !call chem_rc_set(CHEM_RC_FAILURE, msg="Inconsistent options detected.", & + ! file=__FILE__, line=__LINE__, rc=rc) + return + endif + + curr_secs=ktau*ifix(dtstep) + curr_hours=curr_secs/3600 ! ! do volcanoes if avaiable ! @@ -482,146 +482,146 @@ subroutine catchem_prep_anthropogenic( & ! default ! - do j=jts,jte - jp = j - jts + 1 - do i=its,ite - ip = i - its + 1 - if (emiss_ash_dtt(i,j) > 0.) then - !lzhang so2_mass(i,j)=1.5e4*3600.*1.e9/64./area(ip,jp) - !so2_mass(i,j)=6.4e7*1.e9/64./area(ip,jp) - !so2 unit should be mol/km2/hour - so2_mass(i,j)=1.24e7*1.e9/64./garea(i) ! 1.24e7 is kg (5 hour total is 62 kilotons), garea is m2 - eh=2600.*(emiss_ash_height(i,j)*.0005)**4.1494 - emiss_ash_mass(i,j)=eh*1.e9/garea(i) !eh is kg - !emiss_ash_mass(i,j)=eh*1.e9/area(ip,jp) - end if + do j=jts,jte + jp = j - jts + 1 + do i=its,ite + ip = i - its + 1 + if (emiss_ash_dtt(i,j) > 0.) then + !lzhang so2_mass(i,j)=1.5e4*3600.*1.e9/64./area(ip,jp) + !so2_mass(i,j)=6.4e7*1.e9/64./area(ip,jp) + !so2 unit should be mol/km2/hour + so2_mass(i,j)=1.24e7*1.e9/64./garea(i) ! 1.24e7 is kg (5 hour total is 62 kilotons), garea is m2 + eh=2600.*(emiss_ash_height(i,j)*.0005)**4.1494 + emiss_ash_mass(i,j)=eh*1.e9/garea(i) !eh is kg + !emiss_ash_mass(i,j)=eh*1.e9/area(ip,jp) + end if + enddo enddo - enddo - ! -- real-time application, keeping eruption constant + ! -- real-time application, keeping eruption constant ! ! if (ktau <= 2) then ! -- volcanic emissions if (num_emis_voll > 0) then - emis_vol = 0._kind_phys - ! if(curr_hours.eq.h1 .or. curr_hours.eq.h2 .or. curr_hours.eq.h3 & - ! .or. curr_hours.eq.h4 .or. curr_hours.eq.h5 .or. curr_hours.eq.h6 - ! .or. h1.gt.239)then - ! .or. curr_hours.eq.0)then - ! if(chem_opt == 316 .or. chem_opt == 317 .or. chem_opt == 502) then - - do j=jts,jte - do i=its,ite - if (emiss_ash_dtt(i,j) <= 0) cycle - if (emiss_ash_height(i,j) <= 0) cycle - ashz_above_vent=emiss_ash_height(i,j) +z_at_w(i,kts,j) - do k=kte-1,kts,-1 - if (z_at_w(i,k,j) < ashz_above_vent)then - k_final=k+1 - exit - endif !inner - enddo - vert_mass_dist=0. - ! k_initial=int((k_final+k_initial)*0.5) - - ! -- parabolic vertical distribution between k_initial and k_final - kk4 = k_final-k_initial+2 - do ko=1,kk4-1 - kl=ko+k_initial-1 - vert_mass_dist(kl) = 6.*percen_mass_umbrel*float(ko)/float(kk4)**2 * (1. - float(ko)/float(kk4)) - enddo - if (sum(vert_mass_dist(kts:kte)) /= percen_mass_umbrel) then - x1= ( percen_mass_umbrel- sum(vert_mass_dist(kts:kte)))/float(k_final-k_initial+1) - do ko=k_initial,k_final - vert_mass_dist(ko) = vert_mass_dist(ko)+ x1 !- values between 0 and 1. - enddo - !pause - endif !inner - !k_final > 0 .and. k_initial > - - ! -- linear detrainment from vent to base of umbrella - do ko=1,k_initial-1 - vert_mass_dist(ko)=float(ko)/float(k_initial-1) - enddo - x1=sum(vert_mass_dist(1:k_initial-1)) + emis_vol = 0._kind_phys + ! if(curr_hours.eq.h1 .or. curr_hours.eq.h2 .or. curr_hours.eq.h3 & + ! .or. curr_hours.eq.h4 .or. curr_hours.eq.h5 .or. curr_hours.eq.h6 + ! .or. h1.gt.239)then + ! .or. curr_hours.eq.0)then + ! if(chem_opt == 316 .or. chem_opt == 317 .or. chem_opt == 502) then + + do j=jts,jte + do i=its,ite + if (emiss_ash_dtt(i,j) <= 0) cycle + if (emiss_ash_height(i,j) <= 0) cycle + ashz_above_vent=emiss_ash_height(i,j) +z_at_w(i,kts,j) + do k=kte-1,kts,-1 + if (z_at_w(i,k,j) < ashz_above_vent)then + k_final=k+1 + exit + endif !inner + enddo + vert_mass_dist=0. + ! k_initial=int((k_final+k_initial)*0.5) + + ! -- parabolic vertical distribution between k_initial and k_final + kk4 = k_final-k_initial+2 + do ko=1,kk4-1 + kl=ko+k_initial-1 + vert_mass_dist(kl) = 6.*percen_mass_umbrel*float(ko)/float(kk4)**2 * (1. - float(ko)/float(kk4)) + enddo + if (sum(vert_mass_dist(kts:kte)) /= percen_mass_umbrel) then + x1= ( percen_mass_umbrel- sum(vert_mass_dist(kts:kte)))/float(k_final-k_initial+1) + do ko=k_initial,k_final + vert_mass_dist(ko) = vert_mass_dist(ko)+ x1 !- values between 0 and 1. + enddo + !pause + endif !inner + !k_final > 0 .and. k_initial > + + ! -- linear detrainment from vent to base of umbrella + do ko=1,k_initial-1 + vert_mass_dist(ko)=float(ko)/float(k_initial-1) + enddo + x1=sum(vert_mass_dist(1:k_initial-1)) + + do ko=1,k_initial-1 + vert_mass_dist(ko)=(1.-percen_mass_umbrel)*vert_mass_dist(ko)/x1 + enddo + + select case (chem_opt) + case (CHEM_OPT_GOCART) + ! -- if applied to gocart we only need finest ash bins, we use + ! the coarse one for so2 + do ko=1,k_final + emis_vol(i,ko,j,p_e_vash1)=vert_mass_dist(ko)*so2_mass(i,j) + emis_vol(i,ko,j,p_e_vash2)=.08*vert_mass_dist(ko)*emiss_ash_mass(i,j) + emis_vol(i,ko,j,p_e_vash3)=.05*vert_mass_dist(ko)*emiss_ash_mass(i,j) + emis_vol(i,ko,j,p_e_vash4)=.035*vert_mass_dist(ko)*emiss_ash_mass(i,j) + enddo + case default + ! -- no default action + end select + + do ko=k_final+1,kte + emis_vol(i,ko,j,p_e_vash1)=0. + emis_vol(i,ko,j,p_e_vash2)=0. + emis_vol(i,ko,j,p_e_vash3)=0. + emis_vol(i,ko,j,p_e_vash4)=0. + enddo - do ko=1,k_initial-1 - vert_mass_dist(ko)=(1.-percen_mass_umbrel)*vert_mass_dist(ko)/x1 enddo - - select case (chem_opt) - case (CHEM_OPT_GOCART) - ! -- if applied to gocart we only need finest ash bins, we use - ! the coarse one for so2 - do ko=1,k_final - emis_vol(i,ko,j,p_e_vash1)=vert_mass_dist(ko)*so2_mass(i,j) - emis_vol(i,ko,j,p_e_vash2)=.08*vert_mass_dist(ko)*emiss_ash_mass(i,j) - emis_vol(i,ko,j,p_e_vash3)=.05*vert_mass_dist(ko)*emiss_ash_mass(i,j) - emis_vol(i,ko,j,p_e_vash4)=.035*vert_mass_dist(ko)*emiss_ash_mass(i,j) - enddo - case default - ! -- no default action - end select - - do ko=k_final+1,kte - emis_vol(i,ko,j,p_e_vash1)=0. - emis_vol(i,ko,j,p_e_vash2)=0. - emis_vol(i,ko,j,p_e_vash3)=0. - emis_vol(i,ko,j,p_e_vash4)=0. - enddo - - enddo - enddo + enddo end if !num_emis_vol - ! -- add volcanic emissions - if (num_emis_voll > 0) then - - select case (chem_opt) - case (CHEM_OPT_GOCART) - ! -- for gocart only lump ash into p25 and p10 - !if (num_emis_voll /= 4) then - ! call chem_rc_set(CHEM_RC_FAILURE, msg="num_emis_vol must be 4", & - ! file=__FILE__, line=__LINE__, rc=rc) - ! return - !end if + ! -- add volcanic emissions + if (num_emis_voll > 0) then + + select case (chem_opt) + case (CHEM_OPT_GOCART) + ! -- for gocart only lump ash into p25 and p10 + !if (num_emis_voll /= 4) then + ! call chem_rc_set(CHEM_RC_FAILURE, msg="num_emis_vol must be 4", & + ! file=__FILE__, line=__LINE__, rc=rc) + ! return + !end if ! now we got volcanoc emissions, they need to be added to chem array ! -! write(message,'(" Do volcanic emissions ")') +! write(message,'(" Do volcanic emissions ")') ! CALL WRF_MESSAGE (message) - do j=jts,jte - do i=its,ite - ivolcano = 0 - - - if (gmm >=erup_beg .and. gmm<=erup_end) then - ivolcano = 1 - endif - - do k=kts,kte - if (emiss_ash_dtt(i,j) <= 0.) cycle - factor=float(ivolcano)*4.828e-4*dtstep*rri(i,k,j)/(60.*dz8w(i,k,j)) - factor2=float(ivolcano)*dtstep*rri(i,k,j)/dz8w(i,k,j) - chem(i,k,j,p_p25)=chem(i,k,j,p_p25) & - +emis_vol(i,k,j,p_e_vash4)*factor2 - chem(i,k,j,p_so2)=chem(i,k,j,p_so2) & - +emis_vol(i,k,j,p_e_vash1)*factor - chem(i,k,j,p_p10)=chem(i,k,j,p_p10) & - ! +.5* emis_vol(i,k,j,p_e_vash4)*factor2 & - +1.* emis_vol(i,k,j,p_e_vash3)*factor2 & - +.5* emis_vol(i,k,j,p_e_vash2)*factor2 - enddo + do j=jts,jte + do i=its,ite + ivolcano = 0 + + + if (gmm >=erup_beg .and. gmm<=erup_end) then + ivolcano = 1 + endif + + do k=kts,kte + if (emiss_ash_dtt(i,j) <= 0.) cycle + factor=float(ivolcano)*4.828e-4*dtstep*rri(i,k,j)/(60.*dz8w(i,k,j)) + factor2=float(ivolcano)*dtstep*rri(i,k,j)/dz8w(i,k,j) + chem(i,k,j,p_p25)=chem(i,k,j,p_p25) & + +emis_vol(i,k,j,p_e_vash4)*factor2 + chem(i,k,j,p_so2)=chem(i,k,j,p_so2) & + +emis_vol(i,k,j,p_e_vash1)*factor + chem(i,k,j,p_p10)=chem(i,k,j,p_p10) & + ! +.5* emis_vol(i,k,j,p_e_vash4)*factor2 & + +1.* emis_vol(i,k,j,p_e_vash3)*factor2 & + +.5* emis_vol(i,k,j,p_e_vash2)*factor2 + enddo + enddo enddo - enddo - case default - ! -- volcanic emissions not included by default - end select - end if + case default + ! -- volcanic emissions not included by default + end select + end if - end subroutine catchem_prep_anthropogenic + end subroutine catchem_prep_anthropogenic !> @} - end module catchem_anthropogenic_wrapper +end module catchem_anthropogenic_wrapper diff --git a/drivers/ccpp/catchem_diag_wrapper.F90 b/drivers/ccpp/catchem_diag_wrapper.F90 index 84b76c54..751ef923 100644 --- a/drivers/ccpp/catchem_diag_wrapper.F90 +++ b/drivers/ccpp/catchem_diag_wrapper.F90 @@ -4,7 +4,7 @@ !! Revision History: !! 05/2023, Restructure for CATChem, Jian.He@noaa.gov - module catchem_diag_wrapper +module catchem_diag_wrapper use physcons, only : g => con_g, pi => con_pi use machine , only : kind_phys @@ -21,19 +21,19 @@ module catchem_diag_wrapper !> \brief Brief description of the subroutine !! - subroutine catchem_diag_wrapper_init() - end subroutine catchem_diag_wrapper_init + subroutine catchem_diag_wrapper_init() + end subroutine catchem_diag_wrapper_init !> \brief Brief description of the subroutine !! !! \section arg_table_catchem_diag_wrapper_finalize Argument Table !! - subroutine catchem_diag_wrapper_finalize() - end subroutine catchem_diag_wrapper_finalize + subroutine catchem_diag_wrapper_finalize() + end subroutine catchem_diag_wrapper_finalize !> \defgroup catchem_group CATChem diag wrapper Module !! This is the Configurable ATmospheric Chemistry (CATChem) -!>\defgroup catchem_diag_wrapper CATChem diag wrapper Module +!>\defgroup catchem_diag_wrapper CATChem diag wrapper Module !> \ingroup catchem_diag_group !! This is the CATChem diag wrapper Module !! \section arg_table_catchem_diag_wrapper_run Argument Table @@ -41,82 +41,82 @@ end subroutine catchem_diag_wrapper_finalize !! !>\section catchem_diag_wrapper CATChem Scheme General Algorithm !> @{ - subroutine catchem_diag_wrapper_run(im, kte, kme, ktau, & - pr3d, ntrac, ntso2, gq0, aecm, ntchmdiag, ntchm, & - wetdpc, wetdpc_deep, wetdpc_mid, wetdpc_shal, & - imfdeepcnv, imfdeepcnv_samf, imfdeepcnv_gf, chem_opt_in, & - errmsg,errflg) - - implicit none - - - integer, intent(in) :: im,kte,kme,ktau - integer, intent(in) :: ntrac,ntso2,ntchmdiag,ntchm - integer, intent(in) :: imfdeepcnv, imfdeepcnv_samf, imfdeepcnv_gf - - integer, parameter :: ids=1,jds=1,jde=1, kds=1 - integer, parameter :: ims=1,jms=1,jme=1, kms=1 - integer, parameter :: its=1,jts=1,jte=1, kts=1 - - real(kind_phys), dimension(im,kme), intent(in) :: pr3d - real(kind_phys), dimension(im,ntchmdiag), intent(inout) :: wetdpc - real(kind_phys), dimension(im,ntchm), intent(in) :: wetdpc_deep, wetdpc_mid, wetdpc_shal - real(kind_phys), dimension(im,kte,ntrac), intent(in) :: gq0 - real(kind_phys), dimension(im,6 ), intent(inout) :: aecm - integer, intent(in) :: chem_opt_in - character(len=*), intent(out) :: errmsg - integer, intent(out) :: errflg - - ! -- for diagnostics - real(kind_phys), dimension(ims:im, jms:jme, 6) :: trcm ! inst tracer column mass density - real(kind_phys), dimension(ims:im, jms:jme, ntchmdiag, 4) :: trdf - real(kind_phys), dimension(im,jme,kte,ntrac) :: gq0j - real(kind_phys), dimension(im,jme,kme) :: pr3dj - real(kind_phys), dimension(ims:im, jms:jme, 1:ntchm) :: wet_dep - - integer :: ide, ime, ite, kde - - integer :: i, j, jp, k, kp, n, nbegin - - - errmsg = '' - errflg = 0 - - chem_opt = chem_opt_in - - ! -- set domain - ide=im - ime=im - ite=im - kde=kte - - nbegin = ntso2-1 - pr3dj(:,1,: )=pr3d(:,: ) - gq0j (:,1,:,:)=gq0 (:,:,:) - ! -- calculate column mass density - call gocart_diag_cmass(chem_opt, nbegin, g, pr3dj, gq0j, trcm) - aecm(:,:)=trcm(:,1,:) - - ! -- calculate convective wet deposition - if (imfdeepcnv == imfdeepcnv_samf) then - do n=1,ntchm - do i=1,im - wet_dep(i,1,n) = (max(0.,wetdpc_deep(i,n)) +max(0.,wetdpc_shal(i,n))) - enddo - enddo - elseif (imfdeepcnv == imfdeepcnv_gf) then - do n=1,ntchm - do i=1,im - wet_dep(i,1,n) = (max(0.,wetdpc_deep(i,n))+max(0.,wetdpc_mid(i,n)) +max(0.,wetdpc_shal(i,n))) - enddo - enddo - endif - - call gocart_diag_store(4, wet_dep, trdf) - wetdpc (:,:)=trdf(:,1,:,4) + subroutine catchem_diag_wrapper_run(im, kte, kme, ktau, & + pr3d, ntrac, ntso2, gq0, aecm, ntchmdiag, ntchm, & + wetdpc, wetdpc_deep, wetdpc_mid, wetdpc_shal, & + imfdeepcnv, imfdeepcnv_samf, imfdeepcnv_gf, chem_opt_in, & + errmsg,errflg) + + implicit none + + + integer, intent(in) :: im,kte,kme,ktau + integer, intent(in) :: ntrac,ntso2,ntchmdiag,ntchm + integer, intent(in) :: imfdeepcnv, imfdeepcnv_samf, imfdeepcnv_gf + + integer, parameter :: ids=1,jds=1,jde=1, kds=1 + integer, parameter :: ims=1,jms=1,jme=1, kms=1 + integer, parameter :: its=1,jts=1,jte=1, kts=1 + + real(kind_phys), dimension(im,kme), intent(in) :: pr3d + real(kind_phys), dimension(im,ntchmdiag), intent(inout) :: wetdpc + real(kind_phys), dimension(im,ntchm), intent(in) :: wetdpc_deep, wetdpc_mid, wetdpc_shal + real(kind_phys), dimension(im,kte,ntrac), intent(in) :: gq0 + real(kind_phys), dimension(im,6 ), intent(inout) :: aecm + integer, intent(in) :: chem_opt_in + character(len=*), intent(out) :: errmsg + integer, intent(out) :: errflg + + ! -- for diagnostics + real(kind_phys), dimension(ims:im, jms:jme, 6) :: trcm ! inst tracer column mass density + real(kind_phys), dimension(ims:im, jms:jme, ntchmdiag, 4) :: trdf + real(kind_phys), dimension(im,jme,kte,ntrac) :: gq0j + real(kind_phys), dimension(im,jme,kme) :: pr3dj + real(kind_phys), dimension(ims:im, jms:jme, 1:ntchm) :: wet_dep + + integer :: ide, ime, ite, kde + + integer :: i, j, jp, k, kp, n, nbegin + + + errmsg = '' + errflg = 0 + + chem_opt = chem_opt_in + + ! -- set domain + ide=im + ime=im + ite=im + kde=kte + + nbegin = ntso2-1 + pr3dj(:,1,: )=pr3d(:,: ) + gq0j (:,1,:,:)=gq0 (:,:,:) + ! -- calculate column mass density + call gocart_diag_cmass(chem_opt, nbegin, g, pr3dj, gq0j, trcm) + aecm(:,:)=trcm(:,1,:) + + ! -- calculate convective wet deposition + if (imfdeepcnv == imfdeepcnv_samf) then + do n=1,ntchm + do i=1,im + wet_dep(i,1,n) = (max(0.,wetdpc_deep(i,n)) +max(0.,wetdpc_shal(i,n))) + enddo + enddo + elseif (imfdeepcnv == imfdeepcnv_gf) then + do n=1,ntchm + do i=1,im + wet_dep(i,1,n) = (max(0.,wetdpc_deep(i,n))+max(0.,wetdpc_mid(i,n)) +max(0.,wetdpc_shal(i,n))) + enddo + enddo + endif + + call gocart_diag_store(4, wet_dep, trdf) + wetdpc (:,:)=trdf(:,1,:,4) ! end subroutine catchem_diag_wrapper_run !> @} - end module catchem_diag_wrapper +end module catchem_diag_wrapper diff --git a/drivers/ccpp/catchem_diag_wrapper.meta b/drivers/ccpp/catchem_diag_wrapper.meta index 065b503c..028cfa4b 100644 --- a/drivers/ccpp/catchem_diag_wrapper.meta +++ b/drivers/ccpp/catchem_diag_wrapper.meta @@ -1,7 +1,7 @@ [ccpp-table-properties] name = catchem_diag_wrapper type = scheme - dependencies = ../../parameters/catchem_config.F90,../../parameters/catchem_constants.F90,../../src/gocart_diag_mod.F90 + dependencies = ../../parameters/catchem_config.F90,../../parameters/catchem_constants.F90,../../src/gocart_diag_mod.F90 ######################################################################## [ccpp-arg-table] diff --git a/drivers/ccpp/catchem_dmsemis_wrapper.F90 b/drivers/ccpp/catchem_dmsemis_wrapper.F90 index 624fa2b3..c98a74ca 100644 --- a/drivers/ccpp/catchem_dmsemis_wrapper.F90 +++ b/drivers/ccpp/catchem_dmsemis_wrapper.F90 @@ -4,7 +4,7 @@ !! Revision History: !! 05/2023, Restructure for CATChem, Jian.He@noaa.gov - module catchem_dmsemis_wrapper +module catchem_dmsemis_wrapper use physcons, only : g => con_g, pi => con_pi use machine , only : kind_phys @@ -22,19 +22,19 @@ module catchem_dmsemis_wrapper !> \brief Brief description of the subroutine !! - subroutine catchem_dmsemis_wrapper_init() - end subroutine catchem_dmsemis_wrapper_init + subroutine catchem_dmsemis_wrapper_init() + end subroutine catchem_dmsemis_wrapper_init !> \brief Brief description of the subroutine !! !! \section arg_table_catchem_dmsemis_wrapper_finalize Argument Table !! - subroutine catchem_dmsemis_wrapper_finalize() - end subroutine catchem_dmsemis_wrapper_finalize + subroutine catchem_dmsemis_wrapper_finalize() + end subroutine catchem_dmsemis_wrapper_finalize !> \defgroup catchem_group CATChem dmsemis wrapper Module !! This is the Configurable ATmospheric Chemistry (CATChem) -!>\defgroup catchem_dmsemis_wrapper CATChem dmsemis wrapper Module +!>\defgroup catchem_dmsemis_wrapper CATChem dmsemis wrapper Module !> \ingroup catchem_dmsemis_group !! This is the CATChem dmsemis wrapper Module !! \section arg_table_catchem_dmsemis_wrapper_run Argument Table @@ -42,251 +42,251 @@ end subroutine catchem_dmsemis_wrapper_finalize !! !>\section catchem_dmsemis_wrapper CATChem Scheme General Algorithm !> @{ - subroutine catchem_dmsemis_wrapper_run(im, kte, kme, dt, garea, & - land, u10m, v10m, tskin, & - pr3d, ph3d,phl3d, prl3d, tk3d, us3d, vs3d, spechum, & - vegtype, soiltyp, & - emi_in, ntrac, ntdms, gq0, qgrs, dmsemis_opt_in, & - errmsg,errflg) + subroutine catchem_dmsemis_wrapper_run(im, kte, kme, dt, garea, & + land, u10m, v10m, tskin, & + pr3d, ph3d,phl3d, prl3d, tk3d, us3d, vs3d, spechum, & + vegtype, soiltyp, & + emi_in, ntrac, ntdms, gq0, qgrs, dmsemis_opt_in, & + errmsg,errflg) - implicit none + implicit none - integer, intent(in) :: im,kte,kme - integer, intent(in) :: ntrac - integer, intent(in) :: ntdms - real(kind_phys),intent(in) :: dt + integer, intent(in) :: im,kte,kme + integer, intent(in) :: ntrac + integer, intent(in) :: ntdms + real(kind_phys),intent(in) :: dt - integer, parameter :: ids=1,jds=1,jde=1, kds=1 - integer, parameter :: ims=1,jms=1,jme=1, kms=1 - integer, parameter :: its=1,jts=1,jte=1, kts=1 + integer, parameter :: ids=1,jds=1,jde=1, kds=1 + integer, parameter :: ims=1,jms=1,jme=1, kms=1 + integer, parameter :: its=1,jts=1,jte=1, kts=1 - integer, dimension(im), intent(in) :: land, vegtype, soiltyp - real(kind_phys), dimension(im,10), intent(in) :: emi_in - real(kind_phys), dimension(im), intent(in) :: u10m, v10m, garea, tskin - real(kind_phys), dimension(im,kme),intent(in) :: ph3d, pr3d - real(kind_phys), dimension(im,kte),intent(in) :: phl3d, prl3d, tk3d, us3d, vs3d, spechum - real(kind_phys), dimension(im,kte,ntrac), intent(inout) :: gq0, qgrs - integer, intent(in) :: dmsemis_opt_in - character(len=*), intent(out) :: errmsg - integer, intent(out) :: errflg + integer, dimension(im), intent(in) :: land, vegtype, soiltyp + real(kind_phys), dimension(im,10), intent(in) :: emi_in + real(kind_phys), dimension(im), intent(in) :: u10m, v10m, garea, tskin + real(kind_phys), dimension(im,kme),intent(in) :: ph3d, pr3d + real(kind_phys), dimension(im,kte),intent(in) :: phl3d, prl3d, tk3d, us3d, vs3d, spechum + real(kind_phys), dimension(im,kte,ntrac), intent(inout) :: gq0, qgrs + integer, intent(in) :: dmsemis_opt_in + character(len=*), intent(out) :: errmsg + integer, intent(out) :: errflg - real(kind_phys), dimension(1:im, 1:kme,jms:jme) :: rri, t_phy, u_phy, v_phy, & - dz8w, p8w, rho_phy + real(kind_phys), dimension(1:im, 1:kme,jms:jme) :: rri, t_phy, u_phy, v_phy, & + dz8w, p8w, rho_phy - real(kind_phys), dimension(ims:im, jms:jme) :: u10, v10, tsk, xland, dxy + real(kind_phys), dimension(ims:im, jms:jme) :: u10, v10, tsk, xland, dxy - real(kind_phys), dimension(ims:im, kms:kme, jms:jme, 1:num_chem ) :: chem - real(kind_phys), dimension(ims:im, jms:jme) :: dms_0 - integer, dimension(ims:im, jms:jme) :: isltyp, ivgtyp - integer :: ide, ime, ite, kde + real(kind_phys), dimension(ims:im, kms:kme, jms:jme, 1:num_chem ) :: chem + real(kind_phys), dimension(ims:im, jms:jme) :: dms_0 + integer, dimension(ims:im, jms:jme) :: isltyp, ivgtyp + integer :: ide, ime, ite, kde - real(kind_phys), dimension(1:num_chem) :: ppm2ugkg + real(kind_phys), dimension(1:num_chem) :: ppm2ugkg !>-- local variables - integer :: i, j, jp, k, kp, n - real(kind_phys) :: delp + integer :: i, j, jp, k, kp, n + real(kind_phys) :: delp - errmsg = '' - errflg = 0 + errmsg = '' + errflg = 0 - dmsemis_opt = dmsemis_opt_in + dmsemis_opt = dmsemis_opt_in - ! -- set domain - ide=im - ime=im - ite=im - kde=kte + ! -- set domain + ide=im + ime=im + ite=im + kde=kte - ! -- volume to mass fraction conversion table (ppm -> ug/kg) - ppm2ugkg = 1._kind_phys - !ppm2ugkg(p_so2 ) = 1.e+03_kind_phys * mw_so2_aer / mwdry - ppm2ugkg(p_sulf) = 1.e+03_kind_phys * mw_so4_aer / mwdry + ! -- volume to mass fraction conversion table (ppm -> ug/kg) + ppm2ugkg = 1._kind_phys + !ppm2ugkg(p_so2 ) = 1.e+03_kind_phys * mw_so2_aer / mwdry + ppm2ugkg(p_sulf) = 1.e+03_kind_phys * mw_so4_aer / mwdry !>- get ready for chemistry run - call catchem_dmsemis_prep( & - u10m,v10m,land,garea,tskin, & - pr3d,ph3d,phl3d,tk3d,prl3d,us3d,vs3d,spechum, & - vegtype,soiltyp,emi_in,u10,v10,tsk,xland,dxy, & - rri,t_phy,u_phy,v_phy,rho_phy,dz8w,p8w, & - ntdms,ntrac,gq0,num_chem,ppm2ugkg, & - chem,ivgtyp,isltyp,dms_0, & - ids,ide, jds,jde, kds,kde, & - ims,ime, jms,jme, kms,kme, & - its,ite, jts,jte, kts,kte) - - - if (dmsemis_opt == DMSE_OPT_ENABLE) then - do j=jts,jte - do i=its,ite - ! - ! don't do this over land - ! - if(xland(i,j).lt.0.5 .and. tsk(i,j).gt.273.)then - delp = p8w(i,kts,j)-p8w(i,kts+1,j) - - ! -- GOCART dms scheme - call gocart_dmsemis(dt,u_phy(i,kts,j),v_phy(i,kts,j), & - chem(i,kts,j,:),dz8w(i,kts,j),u10(i,j),v10(i,j), & - delp,dms_0(i,j),tsk(i,j),dxy(i,j)) - endif - enddo - end do - endif - - - ! -- put chem stuff back into tracer array - do k=kts,kte - do i=its,ite - gq0(i,k,ntdms )=ppm2ugkg(p_dms ) * max(epsilc,chem(i,k,1,p_dms)) - enddo - enddo - - do k=kts,kte - do i=its,ite - qgrs(i,k,ntdms )=gq0(i,k,ntdms ) - enddo - enddo + call catchem_dmsemis_prep( & + u10m,v10m,land,garea,tskin, & + pr3d,ph3d,phl3d,tk3d,prl3d,us3d,vs3d,spechum, & + vegtype,soiltyp,emi_in,u10,v10,tsk,xland,dxy, & + rri,t_phy,u_phy,v_phy,rho_phy,dz8w,p8w, & + ntdms,ntrac,gq0,num_chem,ppm2ugkg, & + chem,ivgtyp,isltyp,dms_0, & + ids,ide, jds,jde, kds,kde, & + ims,ime, jms,jme, kms,kme, & + its,ite, jts,jte, kts,kte) + + + if (dmsemis_opt == DMSE_OPT_ENABLE) then + do j=jts,jte + do i=its,ite + ! + ! don't do this over land + ! + if(xland(i,j).lt.0.5 .and. tsk(i,j).gt.273.)then + delp = p8w(i,kts,j)-p8w(i,kts+1,j) + + ! -- GOCART dms scheme + call gocart_dmsemis(dt,u_phy(i,kts,j),v_phy(i,kts,j), & + chem(i,kts,j,:),dz8w(i,kts,j),u10(i,j),v10(i,j), & + delp,dms_0(i,j),tsk(i,j),dxy(i,j)) + endif + enddo + end do + endif + + + ! -- put chem stuff back into tracer array + do k=kts,kte + do i=its,ite + gq0(i,k,ntdms )=ppm2ugkg(p_dms ) * max(epsilc,chem(i,k,1,p_dms)) + enddo + enddo + + do k=kts,kte + do i=its,ite + qgrs(i,k,ntdms )=gq0(i,k,ntdms ) + enddo + enddo ! end subroutine catchem_dmsemis_wrapper_run !> @} - subroutine catchem_dmsemis_prep( & - u10m,v10m,land,garea,ts2d, & - pr3d,ph3d,phl3d,tk3d,prl3d,us3d,vs3d,spechum, & - vegtype,soiltyp,emi_in,u10,v10,tsk,xland,dxy, & - rri,t_phy,u_phy,v_phy,rho_phy,dz8w,p8w, & - ntdms,ntrac,gq0,num_chem,ppm2ugkg, & - chem,ivgtyp,isltyp,dms_0, & - ids,ide, jds,jde, kds,kde, & - ims,ime, jms,jme, kms,kme, & - its,ite, jts,jte, kts,kte) - - - !FV3 input variables - integer, dimension(ims:ime), intent(in) :: land, vegtype, soiltyp - integer, intent(in) :: ntrac - integer, intent(in) :: ntdms - real(kind=kind_phys), dimension(ims:ime), intent(in) :: & + subroutine catchem_dmsemis_prep( & + u10m,v10m,land,garea,ts2d, & + pr3d,ph3d,phl3d,tk3d,prl3d,us3d,vs3d,spechum, & + vegtype,soiltyp,emi_in,u10,v10,tsk,xland,dxy, & + rri,t_phy,u_phy,v_phy,rho_phy,dz8w,p8w, & + ntdms,ntrac,gq0,num_chem,ppm2ugkg, & + chem,ivgtyp,isltyp,dms_0, & + ids,ide, jds,jde, kds,kde, & + ims,ime, jms,jme, kms,kme, & + its,ite, jts,jte, kts,kte) + + + !FV3 input variables + integer, dimension(ims:ime), intent(in) :: land, vegtype, soiltyp + integer, intent(in) :: ntrac + integer, intent(in) :: ntdms + real(kind=kind_phys), dimension(ims:ime), intent(in) :: & u10m, v10m, garea, ts2d - real(kind=kind_phys), dimension(ims:ime, 10), intent(in) :: emi_in - real(kind=kind_phys), dimension(ims:ime, kms:kme), intent(in) :: & + real(kind=kind_phys), dimension(ims:ime, 10), intent(in) :: emi_in + real(kind=kind_phys), dimension(ims:ime, kms:kme), intent(in) :: & pr3d,ph3d - real(kind=kind_phys), dimension(ims:ime, kts:kte), intent(in) :: & + real(kind=kind_phys), dimension(ims:ime, kts:kte), intent(in) :: & phl3d,tk3d,prl3d,us3d,vs3d,spechum - real(kind=kind_phys), dimension(ims:ime, kts:kte,ntrac), intent(in) :: gq0 + real(kind=kind_phys), dimension(ims:ime, kts:kte,ntrac), intent(in) :: gq0 + + !GSD Chem variables + integer,intent(in) :: num_chem + integer,intent(in) :: ids,ide, jds,jde, kds,kde, & + ims,ime, jms,jme, kms,kme, & + its,ite, jts,jte, kts,kte - !GSD Chem variables - integer,intent(in) :: num_chem - integer,intent(in) :: ids,ide, jds,jde, kds,kde, & - ims,ime, jms,jme, kms,kme, & - its,ite, jts,jte, kts,kte + real(kind_phys), dimension(num_chem), intent(in) :: ppm2ugkg - real(kind_phys), dimension(num_chem), intent(in) :: ppm2ugkg - - integer,dimension(ims:ime, jms:jme), intent(out) :: isltyp, ivgtyp - real(kind_phys), dimension(ims:ime, kms:kme, jms:jme), intent(out) :: & + integer,dimension(ims:ime, jms:jme), intent(out) :: isltyp, ivgtyp + real(kind_phys), dimension(ims:ime, kms:kme, jms:jme), intent(out) :: & rri, t_phy, u_phy, v_phy, rho_phy, dz8w, p8w - real(kind_phys), dimension(ims:ime, jms:jme), intent(out) :: & + real(kind_phys), dimension(ims:ime, jms:jme), intent(out) :: & u10, v10, tsk, xland, dxy, & dms_0 - real(kind_phys), dimension(ims:ime, kms:kme, jms:jme, num_chem), intent(out) :: chem - - - ! -- local variables - real(kind_phys), dimension(ims:ime, kms:kme, jms:jme) :: z_at_w, p_phy - integer i,ip,j,jp,k,kp,kk,kkp,l,ll,n - - ! -- initialize output arrays - isltyp = 0._kind_phys - ivgtyp = 0._kind_phys - rri = 0._kind_phys - t_phy = 0._kind_phys - u_phy = 0._kind_phys - v_phy = 0._kind_phys - rho_phy = 0._kind_phys - dz8w = 0._kind_phys - p8w = 0._kind_phys - u10 = 0._kind_phys - v10 = 0._kind_phys - tsk = 0._kind_phys - xland = 0._kind_phys - dxy = 0._kind_phys - dms_0 = 0._kind_phys - chem = 0._kind_phys - - - do i=its,ite - u10 (i,1)=u10m (i) - v10 (i,1)=v10m (i) - tsk (i,1)=ts2d (i) - dxy (i,1)=garea(i) - xland(i,1)=real(land(i)) - ivgtyp (i,1)=vegtype(i) - isltyp (i,1)=soiltyp(i) - dms_0(i,1 )=emi_in(i,7) ! --dm0 - enddo - - do j=jts,jte - jp = j - jts + 1 + real(kind_phys), dimension(ims:ime, kms:kme, jms:jme, num_chem), intent(out) :: chem + + + ! -- local variables + real(kind_phys), dimension(ims:ime, kms:kme, jms:jme) :: z_at_w, p_phy + integer i,ip,j,jp,k,kp,kk,kkp,l,ll,n + + ! -- initialize output arrays + isltyp = 0._kind_phys + ivgtyp = 0._kind_phys + rri = 0._kind_phys + t_phy = 0._kind_phys + u_phy = 0._kind_phys + v_phy = 0._kind_phys + rho_phy = 0._kind_phys + dz8w = 0._kind_phys + p8w = 0._kind_phys + u10 = 0._kind_phys + v10 = 0._kind_phys + tsk = 0._kind_phys + xland = 0._kind_phys + dxy = 0._kind_phys + dms_0 = 0._kind_phys + chem = 0._kind_phys + + do i=its,ite - ip = i - its + 1 - z_at_w(i,kts,j)=max(0.,ph3d(ip,1)/g) + u10 (i,1)=u10m (i) + v10 (i,1)=v10m (i) + tsk (i,1)=ts2d (i) + dxy (i,1)=garea(i) + xland(i,1)=real(land(i)) + ivgtyp (i,1)=vegtype(i) + isltyp (i,1)=soiltyp(i) + dms_0(i,1 )=emi_in(i,7) ! --dm0 enddo - enddo - do j=jts,jte - jp = j - jts + 1 - do k=kts,kte - kp = k - kts + 1 - do i=its,ite - ip = i - its + 1 - dz8w(i,k,j)=abs(ph3d(ip,kp+1)-ph3d(ip,kp))/g - z_at_w(i,k+1,j)=z_at_w(i,k,j)+dz8w(i,k,j) - enddo + do j=jts,jte + jp = j - jts + 1 + do i=its,ite + ip = i - its + 1 + z_at_w(i,kts,j)=max(0.,ph3d(ip,1)/g) + enddo enddo - enddo - - do j=jts,jte - jp = j - jts + 1 - do k=kts,kte+1 - kp = k - kts + 1 - do i=its,ite - ip = i - its + 1 - p8w(i,k,j)=pr3d(ip,kp) - enddo + + do j=jts,jte + jp = j - jts + 1 + do k=kts,kte + kp = k - kts + 1 + do i=its,ite + ip = i - its + 1 + dz8w(i,k,j)=abs(ph3d(ip,kp+1)-ph3d(ip,kp))/g + z_at_w(i,k+1,j)=z_at_w(i,k,j)+dz8w(i,k,j) + enddo + enddo enddo - enddo - - do j=jts,jte - jp = j - jts + 1 - do k=kts,kte+1 - kk=min(k,kte) - kkp = kk - kts + 1 - do i=its,ite - ip = i - its + 1 - dz8w(i,k,j)=z_at_w(i,kk+1,j)-z_at_w(i,kk,j) - t_phy(i,k,j)=tk3d(ip,kkp) - p_phy(i,k,j)=prl3d(ip,kkp) - u_phy(i,k,j)=us3d(ip,kkp) - v_phy(i,k,j)=vs3d(ip,kkp) - rho_phy(i,k,j)=p_phy(i,k,j)/(287.04*t_phy(i,k,j)*(1.+.608*spechum(ip,kkp))) - rri(i,k,j)=1./rho_phy(i,k,j) - !-- - enddo + + do j=jts,jte + jp = j - jts + 1 + do k=kts,kte+1 + kp = k - kts + 1 + do i=its,ite + ip = i - its + 1 + p8w(i,k,j)=pr3d(ip,kp) + enddo + enddo enddo - enddo - do k=kms,kte - do i=ims,ime - chem(i,k,jts,p_dms )=max(epsilc,gq0(i,k,ntdms )/ppm2ugkg(p_dms)) - enddo - enddo + do j=jts,jte + jp = j - jts + 1 + do k=kts,kte+1 + kk=min(k,kte) + kkp = kk - kts + 1 + do i=its,ite + ip = i - its + 1 + dz8w(i,k,j)=z_at_w(i,kk+1,j)-z_at_w(i,kk,j) + t_phy(i,k,j)=tk3d(ip,kkp) + p_phy(i,k,j)=prl3d(ip,kkp) + u_phy(i,k,j)=us3d(ip,kkp) + v_phy(i,k,j)=vs3d(ip,kkp) + rho_phy(i,k,j)=p_phy(i,k,j)/(287.04*t_phy(i,k,j)*(1.+.608*spechum(ip,kkp))) + rri(i,k,j)=1./rho_phy(i,k,j) + !-- + enddo + enddo + enddo + + do k=kms,kte + do i=ims,ime + chem(i,k,jts,p_dms )=max(epsilc,gq0(i,k,ntdms )/ppm2ugkg(p_dms)) + enddo + enddo - end subroutine catchem_dmsemis_prep + end subroutine catchem_dmsemis_prep !> @} - end module catchem_dmsemis_wrapper +end module catchem_dmsemis_wrapper diff --git a/drivers/ccpp/catchem_dmsemis_wrapper.meta b/drivers/ccpp/catchem_dmsemis_wrapper.meta index 22f4fe36..b6faf019 100644 --- a/drivers/ccpp/catchem_dmsemis_wrapper.meta +++ b/drivers/ccpp/catchem_dmsemis_wrapper.meta @@ -1,7 +1,7 @@ [ccpp-table-properties] name = catchem_dmsemis_wrapper type = scheme - dependencies = ../../parameters/catchem_config.F90,../../parameters/catchem_constants.F90,../../src/gocart_dmsemis_mod.F90 + dependencies = ../../parameters/catchem_config.F90,../../parameters/catchem_constants.F90,../../src/gocart_dmsemis_mod.F90 ######################################################################## [ccpp-arg-table] diff --git a/drivers/ccpp/catchem_drydep_wrapper.F90 b/drivers/ccpp/catchem_drydep_wrapper.F90 index 9b28bcc8..abf3e2a6 100644 --- a/drivers/ccpp/catchem_drydep_wrapper.F90 +++ b/drivers/ccpp/catchem_drydep_wrapper.F90 @@ -4,7 +4,7 @@ !! Revision History: !! 05/2023, Restructure for CATChem, Jian.He@noaa.gov - module catchem_drydep_wrapper +module catchem_drydep_wrapper use physcons, only : g => con_g, pi => con_pi use machine , only : kind_phys @@ -24,195 +24,195 @@ module catchem_drydep_wrapper !> \brief Brief description of the subroutine !! - subroutine catchem_drydep_wrapper_init() - end subroutine catchem_drydep_wrapper_init + subroutine catchem_drydep_wrapper_init() + end subroutine catchem_drydep_wrapper_init !> \brief Brief description of the subroutine !! !! \section arg_table_catchem_drydep_wrapper_finalize Argument Table !! - subroutine catchem_drydep_wrapper_finalize() - end subroutine catchem_drydep_wrapper_finalize + subroutine catchem_drydep_wrapper_finalize() + end subroutine catchem_drydep_wrapper_finalize !> \defgroup catchem_group CATChem drydep wrapper Module !! This is the Configurable ATmospheric Chemistry (CATChem) -!>\defgroup catchem_drydep_wrapper CATChem drydep wrapper Module +!>\defgroup catchem_drydep_wrapper CATChem drydep wrapper Module !> \ingroup catchem_drydep_group !! This is the CATChem drydep wrapper Module !! \section arg_table_catchem_drydep_wrapper_run Argument Table !! \htmlinclude catchem_drydep_wrapper_run.html !! !> @{ - subroutine catchem_drydep_wrapper_run(im, kte, kme, ktau, dt, land, & - ustar, rlat, rlon, tskin, julian, rainc_cpl, hf2d, pb2d, & - pr3d, ph3d, phl3d, prl3d, tk3d, spechum, exch, & - vegtype, sigmaf, jdate, idat, dswsfc, zorl, snow_cplchm, & - ntrac,ntso2,ntsulf,ntDMS,ntmsa,ntpp25, & - ntbc1,ntbc2,ntoc1,ntoc2,ntss1,ntss2,ntss3,ntss4,ntss5, & - ntdust1,ntdust2,ntdust3,ntdust4,ntdust5,ntpp10, & - ntchmdiag,gq0,qgrs,drydep,chem_conv_tr_in, & - errmsg,errflg) - - implicit none - - - integer, intent(in) :: im,kte,kme,ktau,jdate(8),idat(8) - integer, intent(in) :: ntrac,ntchmdiag,ntss1,ntss2,ntss3,ntss4,ntss5 - integer, intent(in) :: ntdust1,ntdust2,ntdust3,ntdust4,ntdust5 - integer, intent(in) :: ntso2,ntpp25,ntbc1,ntoc1,ntpp10 - integer, intent(in) :: ntsulf,ntbc2,ntoc2,ntDMS,ntmsa - real(kind_phys),intent(in) :: dt,julian - - integer, parameter :: ids=1,jds=1,jde=1, kds=1 - integer, parameter :: ims=1,jms=1,jme=1, kms=1 - integer, parameter :: its=1,jts=1,jte=1, kts=1 - - integer, dimension(im), intent(in) :: land, vegtype - real(kind_phys), dimension(im), intent(in) :: ustar, & - rlat,rlon, tskin, rainc_cpl, & - hf2d, pb2d, sigmaf, dswsfc, zorl, snow_cplchm - real(kind_phys), dimension(im,kme), intent(in) :: ph3d, pr3d - real(kind_phys), dimension(im,kte), intent(in) :: phl3d, prl3d, tk3d, spechum, exch - real(kind_phys), dimension(im,kte,ntrac), intent(inout) :: gq0, qgrs - real(kind_phys), dimension(im,ntchmdiag), intent(inout) :: drydep - integer, intent(in) :: chem_conv_tr_in - character(len=*), intent(out) :: errmsg - integer, intent(out) :: errflg - - real(kind_phys), dimension(1:im, 1:kme,jms:jme) :: rri, t_phy, & - p_phy, z_at_w, dz8w, p8w, t8w, rho_phy, zmid, exch_h - - real(kind_phys), dimension(ims:im, jms:jme) :: ust, tsk, & - xland, xlat, xlong, rcav, hfx, pbl + subroutine catchem_drydep_wrapper_run(im, kte, kme, ktau, dt, land, & + ustar, rlat, rlon, tskin, julian, rainc_cpl, hf2d, pb2d, & + pr3d, ph3d, phl3d, prl3d, tk3d, spechum, exch, & + vegtype, sigmaf, jdate, idat, dswsfc, zorl, snow_cplchm, & + ntrac,ntso2,ntsulf,ntDMS,ntmsa,ntpp25, & + ntbc1,ntbc2,ntoc1,ntoc2,ntss1,ntss2,ntss3,ntss4,ntss5, & + ntdust1,ntdust2,ntdust3,ntdust4,ntdust5,ntpp10, & + ntchmdiag,gq0,qgrs,drydep,chem_conv_tr_in, & + errmsg,errflg) + + implicit none + + + integer, intent(in) :: im,kte,kme,ktau,jdate(8),idat(8) + integer, intent(in) :: ntrac,ntchmdiag,ntss1,ntss2,ntss3,ntss4,ntss5 + integer, intent(in) :: ntdust1,ntdust2,ntdust3,ntdust4,ntdust5 + integer, intent(in) :: ntso2,ntpp25,ntbc1,ntoc1,ntpp10 + integer, intent(in) :: ntsulf,ntbc2,ntoc2,ntDMS,ntmsa + real(kind_phys),intent(in) :: dt,julian + + integer, parameter :: ids=1,jds=1,jde=1, kds=1 + integer, parameter :: ims=1,jms=1,jme=1, kms=1 + integer, parameter :: its=1,jts=1,jte=1, kts=1 + + integer, dimension(im), intent(in) :: land, vegtype + real(kind_phys), dimension(im), intent(in) :: ustar, & + rlat,rlon, tskin, rainc_cpl, & + hf2d, pb2d, sigmaf, dswsfc, zorl, snow_cplchm + real(kind_phys), dimension(im,kme), intent(in) :: ph3d, pr3d + real(kind_phys), dimension(im,kte), intent(in) :: phl3d, prl3d, tk3d, spechum, exch + real(kind_phys), dimension(im,kte,ntrac), intent(inout) :: gq0, qgrs + real(kind_phys), dimension(im,ntchmdiag), intent(inout) :: drydep + integer, intent(in) :: chem_conv_tr_in + character(len=*), intent(out) :: errmsg + integer, intent(out) :: errflg + + real(kind_phys), dimension(1:im, 1:kme,jms:jme) :: rri, t_phy, & + p_phy, z_at_w, dz8w, p8w, t8w, rho_phy, zmid, exch_h + + real(kind_phys), dimension(ims:im, jms:jme) :: ust, tsk, & + xland, xlat, xlong, rcav, hfx, pbl !>- chemistry variables - real(kind_phys), dimension(ims:im, kms:kme, jms:jme, 1:num_moist) :: moist - real(kind_phys), dimension(ims:im, kms:kme, jms:jme, 1:num_chem ) :: chem + real(kind_phys), dimension(ims:im, kms:kme, jms:jme, 1:num_moist) :: moist + real(kind_phys), dimension(ims:im, kms:kme, jms:jme, 1:num_chem ) :: chem - real(kind_phys), dimension(ims:im, jms:jme, 1:num_chem ) :: dry_fall - real(kind_phys), dimension(im, 1, ntchmdiag, 4) :: trdf + real(kind_phys), dimension(ims:im, jms:jme, 1:num_chem ) :: dry_fall + real(kind_phys), dimension(im, 1, ntchmdiag, 4) :: trdf - integer :: ide, ime, ite, kde, julday + integer :: ide, ime, ite, kde, julday - real(kind_phys), dimension(ims:im, jms:jme) :: vegfrac, rmol, gsw, znt - real(kind_phys), dimension(ims:im, jms:jme) :: snowh - integer, dimension(ims:im, jms:jme) :: ivgtyp + real(kind_phys), dimension(ims:im, jms:jme) :: vegfrac, rmol, gsw, znt + real(kind_phys), dimension(ims:im, jms:jme) :: snowh + integer, dimension(ims:im, jms:jme) :: ivgtyp - integer :: current_month + integer :: current_month - real(kind_phys), dimension(ims:im, kms:kme, jms:jme) :: ac3, ahno3, anh3, asulf, cor3, h2oai, h2oaj, nu3 - real(kind_phys), dimension(ims:im, jms:jme) :: dep_vel_o3, e_co + real(kind_phys), dimension(ims:im, kms:kme, jms:jme) :: ac3, ahno3, anh3, asulf, cor3, h2oai, h2oaj, nu3 + real(kind_phys), dimension(ims:im, jms:jme) :: dep_vel_o3, e_co - real(kind_phys) :: gmt - real(kind_phys), dimension(1:num_chem) :: ppm2ugkg + real(kind_phys) :: gmt + real(kind_phys), dimension(1:num_chem) :: ppm2ugkg !>-- local variables - integer :: i, j, jp, k, kp, n, nv - ! dry deposition velocity - REAL(kind_phys), DIMENSION( its:im, jts:jte, num_chem ) :: ddvel - real(kind_phys) :: delz_at_w, cdt, factor - - ! turbulent transport - real(kind_phys), dimension(kts:kte ) :: pblst,zz - real(kind_phys), dimension(kts:kte+1):: ekmfull,zzfull - real(kind_phys), dimension(kts:kte ) :: dryrho_1d - - - errmsg = '' - errflg = 0 - - chem_conv_tr = chem_conv_tr_in - - h2oai = 0. - h2oaj = 0. - nu3 = 0. - ac3 = 0. - cor3 = 0. - asulf = 0. - ahno3 = 0. - anh3 = 0. - e_co = 0. - dep_vel_o3 = 0. - ddvel(:,:,:) = 0. - - gmt = real(idat(5)) - julday = real(julian) - - current_month=jdate(2) - - ! -- set domain - ide=im - ime=im - ite=im - kde=kte - - ! -- volume to mass fraction conversion table (ppm -> ug/kg) - ppm2ugkg = 1._kind_phys - !ppm2ugkg(p_so2 ) = 1.e+03_kind_phys * mw_so2_aer / mwdry - ppm2ugkg(p_sulf) = 1.e+03_kind_phys * mw_so4_aer / mwdry - - ! -- compute incremental convective and large-scale rainfall - do i=its,ite - rcav(i,1)=max(rainc_cpl(i)*1000. , 0.) ! meter to mm - enddo + integer :: i, j, jp, k, kp, n, nv + ! dry deposition velocity + REAL(kind_phys), DIMENSION( its:im, jts:jte, num_chem ) :: ddvel + real(kind_phys) :: delz_at_w, cdt, factor + + ! turbulent transport + real(kind_phys), dimension(kts:kte ) :: pblst,zz + real(kind_phys), dimension(kts:kte+1):: ekmfull,zzfull + real(kind_phys), dimension(kts:kte ) :: dryrho_1d + + + errmsg = '' + errflg = 0 + + chem_conv_tr = chem_conv_tr_in + + h2oai = 0. + h2oaj = 0. + nu3 = 0. + ac3 = 0. + cor3 = 0. + asulf = 0. + ahno3 = 0. + anh3 = 0. + e_co = 0. + dep_vel_o3 = 0. + ddvel(:,:,:) = 0. + + gmt = real(idat(5)) + julday = real(julian) + + current_month=jdate(2) + + ! -- set domain + ide=im + ime=im + ite=im + kde=kte + + ! -- volume to mass fraction conversion table (ppm -> ug/kg) + ppm2ugkg = 1._kind_phys + !ppm2ugkg(p_so2 ) = 1.e+03_kind_phys * mw_so2_aer / mwdry + ppm2ugkg(p_sulf) = 1.e+03_kind_phys * mw_so4_aer / mwdry + + ! -- compute incremental convective and large-scale rainfall + do i=its,ite + rcav(i,1)=max(rainc_cpl(i)*1000. , 0.) ! meter to mm + enddo !!! !>- get ready for chemistry run - call catchem_prep_drydep( & - ustar,land,rlat,rlon,tskin, & - pr3d,ph3d,phl3d,tk3d,prl3d,spechum,exch, & - vegtype,sigmaf,dswsfc,zorl,snow_cplchm,hf2d,pb2d, & - ust,tsk,xland,xlat,xlong, & - rri,t_phy,p_phy,rho_phy,dz8w,p8w, & - t8w,exch_h,z_at_w,zmid, & - ntso2,ntsulf,ntDMS,ntmsa,ntpp25, & - ntbc1,ntbc2,ntoc1,ntoc2,ntss1,ntss2,ntss3,ntss4,ntss5, & - ntdust1,ntdust2,ntdust3,ntdust4,ntdust5,ntpp10, & - ntrac,gq0,num_chem, num_moist, & - ppm2ugkg,moist,chem, & - ivgtyp,vegfrac,rmol,gsw,znt,hfx,pbl,snowh, & - ids,ide, jds,jde, kds,kde, & - ims,ime, jms,jme, kms,kme, & - its,ite, jts,jte, kts,kte) - - - !>-- compute dry deposition - do j = jts,jte - do i = its,ite - delz_at_w = z_at_w(i,kts+1,j) - z_at_w(i,kts,j) - - !JianHe: placeholder, in the future, we will do - !gas and aerosol drydep seperately - !We will not based on chem_opt, but on gas/aero schemes - - IF( chem_opt /= GOCART_SIMPLE ) THEN - ! wesely for gases - call wesely_driver(current_month,julday, & - t_phy(i,kts,j),moist(i,kts,j,:),p8w(i,kts,j), & - rcav(i,j),p_phy(i,kts,j),ddvel(i,j,:), & - ivgtyp(i,j), & - tsk(i,j),gsw(i,j),vegfrac(i,j),rmol(i,j), & - ust(i,j),znt(i,j),delz_at_w,snowh(i,j)) - ENDIF - - IF (( chem_opt == GOCART_SIMPLE ) .or. & - ( chem_opt == GOCARTRACM_KPP) .or. & - ( chem_opt == 316) .or. & - ( chem_opt == 317) .or. & + call catchem_prep_drydep( & + ustar,land,rlat,rlon,tskin, & + pr3d,ph3d,phl3d,tk3d,prl3d,spechum,exch, & + vegtype,sigmaf,dswsfc,zorl,snow_cplchm,hf2d,pb2d, & + ust,tsk,xland,xlat,xlong, & + rri,t_phy,p_phy,rho_phy,dz8w,p8w, & + t8w,exch_h,z_at_w,zmid, & + ntso2,ntsulf,ntDMS,ntmsa,ntpp25, & + ntbc1,ntbc2,ntoc1,ntoc2,ntss1,ntss2,ntss3,ntss4,ntss5, & + ntdust1,ntdust2,ntdust3,ntdust4,ntdust5,ntpp10, & + ntrac,gq0,num_chem, num_moist, & + ppm2ugkg,moist,chem, & + ivgtyp,vegfrac,rmol,gsw,znt,hfx,pbl,snowh, & + ids,ide, jds,jde, kds,kde, & + ims,ime, jms,jme, kms,kme, & + its,ite, jts,jte, kts,kte) + + + !>-- compute dry deposition + do j = jts,jte + do i = its,ite + delz_at_w = z_at_w(i,kts+1,j) - z_at_w(i,kts,j) + + !JianHe: placeholder, in the future, we will do + !gas and aerosol drydep seperately + !We will not based on chem_opt, but on gas/aero schemes + + IF( chem_opt /= GOCART_SIMPLE ) THEN + ! wesely for gases + call wesely_driver(current_month,julday, & + t_phy(i,kts,j),moist(i,kts,j,:),p8w(i,kts,j), & + rcav(i,j),p_phy(i,kts,j),ddvel(i,j,:), & + ivgtyp(i,j), & + tsk(i,j),gsw(i,j),vegfrac(i,j),rmol(i,j), & + ust(i,j),znt(i,j),delz_at_w,snowh(i,j)) + ENDIF + + IF (( chem_opt == GOCART_SIMPLE ) .or. & + ( chem_opt == GOCARTRACM_KPP) .or. & + ( chem_opt == 316) .or. & + ( chem_opt == 317) .or. & ! ( chem_opt == 502) .or. & - (chem_opt == 304 )) then - ! this does aerosol species (dust,seas, bc,oc,sulf) for gocart only - call gocart_drydep_driver( & - p8w(i,kts,j),rho_phy(i,kts,j),dz8w(i,kts,j), & - ddvel(i,j,:),xland(i,j),hfx(i,j),ivgtyp(i,j), & - tsk(i,j),pbl(i,j),ust(i,j),znt(i,j)) - ELSE if (chem_opt == 501 ) then + (chem_opt == 304 )) then + ! this does aerosol species (dust,seas, bc,oc,sulf) for gocart only + call gocart_drydep_driver( & + p8w(i,kts,j),rho_phy(i,kts,j),dz8w(i,kts,j), & + ddvel(i,j,:),xland(i,j),hfx(i,j),ivgtyp(i,j), & + tsk(i,j),pbl(i,j),ust(i,j),znt(i,j)) + ELSE if (chem_opt == 501 ) then ! for caesium .1cm/s ! - ddvel(i,j,:)=.001 + ddvel(i,j,:)=.001 - ELSE if (chem_opt == 108 ) then + ELSE if (chem_opt == 108 ) then !! call soa_vbs_depdriver (ust,t_phy, & !! moist,p8w,rmol,znt,pbl, & !! alt,p_phy,chem,rho_phy,dz8w, & @@ -224,362 +224,362 @@ subroutine catchem_drydep_wrapper_run(im, kte, kme, ktau, dt, land, & !! its,ite, jts,jte, kts,kte ) ! limit aerosol ddvels to <= 0.5 m/s ! drydep routines occasionally produce unrealistically-large particle -! diameter leading to unrealistically-large sedimentation velocity - ddvel(i,j,numgas+1:num_chem) = min( 0.50, ddvel(i,j,numgas+1:num_chem)) - ELSE - !Set dry deposition velocity to zero when using the - !chemistry tracer mode. - ddvel(i,j,:) = 0. - END IF - - ! - ! Compute dry deposition according to NGAC - ! - cdt = real(dt, kind=kind_phys) - do nv = 1, num_chem - factor = 1._kind_phys - exp(-ddvel(i,j,nv)*cdt/dz8w(i,kts,j)) - dry_fall(i,j,nv) = max(0.0, factor * chem(i,kts,j,nv)) & !ug/m2/s - * (p8w(i,kts,j)-p8w(i,kts+1,j))/g/dt - end do +! diameter leading to unrealistically-large sedimentation velocity + ddvel(i,j,numgas+1:num_chem) = min( 0.50, ddvel(i,j,numgas+1:num_chem)) + ELSE + !Set dry deposition velocity to zero when using the + !chemistry tracer mode. + ddvel(i,j,:) = 0. + END IF + + ! + ! Compute dry deposition according to NGAC + ! + cdt = real(dt, kind=kind_phys) + do nv = 1, num_chem + factor = 1._kind_phys - exp(-ddvel(i,j,nv)*cdt/dz8w(i,kts,j)) + dry_fall(i,j,nv) = max(0.0, factor * chem(i,kts,j,nv)) & !ug/m2/s + * (p8w(i,kts,j)-p8w(i,kts+1,j))/g/dt + end do + end do end do - end do - ! - ! This will be called later from subgrd_transport_driver.F !!!!!!!! - ! - do j=jts,jte - do i=its,ite - if(p_dust_1.gt.1)dep_vel_o3(i,j)=ddvel(i,j,p_dust_1) - pblst=0. - - ! - !-- start with vertical mixing - ! - do k=kts,kte+1 - zzfull(k)=z_at_w(i,k,j)-z_at_w(i,kts,j) - enddo - - if (chem_conv_tr == CTRA_OPT_NONE) then - ekmfull = 0. - else - ekmfull(kts)=0. - do k=kts+1,kte - ekmfull(k)=max(1.e-6,exch_h(i,k,j)) - enddo - ekmfull(kte+1)=0. - end if - - do k=kts,kte - zz(k)=zmid(i,k,j)-z_at_w(i,kts,j) - enddo + ! + ! This will be called later from subgrd_transport_driver.F !!!!!!!! + ! + do j=jts,jte + do i=its,ite + if(p_dust_1.gt.1)dep_vel_o3(i,j)=ddvel(i,j,p_dust_1) + pblst=0. + + ! + !-- start with vertical mixing + ! + do k=kts,kte+1 + zzfull(k)=z_at_w(i,k,j)-z_at_w(i,kts,j) + enddo + + if (chem_conv_tr == CTRA_OPT_NONE) then + ekmfull = 0. + else + ekmfull(kts)=0. + do k=kts+1,kte + ekmfull(k)=max(1.e-6,exch_h(i,k,j)) + enddo + ekmfull(kte+1)=0. + end if + + do k=kts,kte + zz(k)=zmid(i,k,j)-z_at_w(i,kts,j) + enddo ! vertical mixing routine (including deposition) ! need to be careful here with that dumm tracer in spot 1 ! do not need lho,lho2 ! (03-may-2006 rce - calc dryrho_1d and pass it to vertmx) ! ! if(p_o3.gt.1)dep_vel_o3(i,j)=ddvel(i,j,p_o3) - do nv=1,num_chem-0 - do k=kts,kte - pblst(k)=max(epsilc,chem(i,k,j,nv)) - dryrho_1d(k) = 1./rri(i,k,j) - enddo - - mix_select: SELECT CASE(chem_opt) - CASE (RADM2SORG_AQ, RACMSORG_AQ, CBMZ_MOSAIC_4BIN_AQ, CBMZ_MOSAIC_8BIN_AQ) + do nv=1,num_chem-0 + do k=kts,kte + pblst(k)=max(epsilc,chem(i,k,j,nv)) + dryrho_1d(k) = 1./rri(i,k,j) + enddo + + mix_select: SELECT CASE(chem_opt) + CASE (RADM2SORG_AQ, RACMSORG_AQ, CBMZ_MOSAIC_4BIN_AQ, CBMZ_MOSAIC_8BIN_AQ) ! if(.not.is_aerosol(nv))then ! mix gases not aerosol - call vertmx(dt,pblst,ekmfull,dryrho_1d, & - zzfull,zz,ddvel(i,j,nv),kts,kte) + call vertmx(dt,pblst,ekmfull,dryrho_1d, & + zzfull,zz,ddvel(i,j,nv),kts,kte) ! endif - CASE DEFAULT - call vertmx(dt,pblst,ekmfull,dryrho_1d, & - zzfull,zz,ddvel(i,j,nv),kts,kte) + CASE DEFAULT + call vertmx(dt,pblst,ekmfull,dryrho_1d, & + zzfull,zz,ddvel(i,j,nv),kts,kte) + + END SELECT mix_select - END SELECT mix_select + do k=kts,kte + chem(i,k,j,nv)=max(epsilc,pblst(k)) + enddo + enddo + enddo + enddo + + ! -- put chem stuff back into tracer array + do k=kts,kte + do i=its,ite + gq0(i,k,ntso2 )=ppm2ugkg(p_so2 ) * max(epsilc,chem(i,k,1,p_so2)) + gq0(i,k,ntsulf )=ppm2ugkg(p_sulf ) * max(epsilc,chem(i,k,1,p_sulf)) + gq0(i,k,ntdms )=ppm2ugkg(p_dms ) * max(epsilc,chem(i,k,1,p_dms)) + gq0(i,k,ntmsa )=ppm2ugkg(p_msa ) * max(epsilc,chem(i,k,1,p_msa)) + gq0(i,k,ntpp25 )=ppm2ugkg(p_p25 ) * max(epsilc,chem(i,k,1,p_p25)) + gq0(i,k,ntbc1 )=ppm2ugkg(p_bc1 ) * max(epsilc,chem(i,k,1,p_bc1)) + gq0(i,k,ntbc2 )=ppm2ugkg(p_bc2 ) * max(epsilc,chem(i,k,1,p_bc2)) + gq0(i,k,ntoc1 )=ppm2ugkg(p_oc1 ) * max(epsilc,chem(i,k,1,p_oc1)) + gq0(i,k,ntoc2 )=ppm2ugkg(p_oc2 ) * max(epsilc,chem(i,k,1,p_oc2)) + gq0(i,k,ntdust1)=ppm2ugkg(p_dust_1) * max(epsilc,chem(i,k,1,p_dust_1)) + gq0(i,k,ntdust2)=ppm2ugkg(p_dust_2) * max(epsilc,chem(i,k,1,p_dust_2)) + gq0(i,k,ntdust3)=ppm2ugkg(p_dust_3) * max(epsilc,chem(i,k,1,p_dust_3)) + gq0(i,k,ntdust4)=ppm2ugkg(p_dust_4) * max(epsilc,chem(i,k,1,p_dust_4)) + gq0(i,k,ntdust5)=ppm2ugkg(p_dust_5) * max(epsilc,chem(i,k,1,p_dust_5)) + gq0(i,k,ntss1 )=ppm2ugkg(p_seas_1) * max(epsilc,chem(i,k,1,p_seas_1)) + gq0(i,k,ntss2 )=ppm2ugkg(p_seas_2) * max(epsilc,chem(i,k,1,p_seas_2)) + gq0(i,k,ntss3 )=ppm2ugkg(p_seas_3) * max(epsilc,chem(i,k,1,p_seas_3)) + gq0(i,k,ntss4 )=ppm2ugkg(p_seas_4) * max(epsilc,chem(i,k,1,p_seas_4)) + gq0(i,k,ntss5 )=ppm2ugkg(p_seas_5) * max(epsilc,chem(i,k,1,p_seas_5)) + gq0(i,k,ntpp10 )=ppm2ugkg(p_p10 ) * max(epsilc,chem(i,k,1,p_p10)) + enddo + enddo - do k=kts,kte - chem(i,k,j,nv)=max(epsilc,pblst(k)) - enddo - enddo + do k=kts,kte + do i=its,ite + qgrs(i,k,ntso2 )=gq0(i,k,ntso2 ) + qgrs(i,k,ntsulf )=gq0(i,k,ntsulf ) + qgrs(i,k,ntdms )=gq0(i,k,ntdms ) + qgrs(i,k,ntmsa )=gq0(i,k,ntmsa ) + qgrs(i,k,ntpp25 )=gq0(i,k,ntpp25 ) + qgrs(i,k,ntbc1 )=gq0(i,k,ntbc1 ) + qgrs(i,k,ntbc2 )=gq0(i,k,ntbc2 ) + qgrs(i,k,ntoc1 )=gq0(i,k,ntoc1 ) + qgrs(i,k,ntoc2 )=gq0(i,k,ntoc2 ) + qgrs(i,k,ntdust1)=gq0(i,k,ntdust1) + qgrs(i,k,ntdust2)=gq0(i,k,ntdust2) + qgrs(i,k,ntdust3)=gq0(i,k,ntdust3) + qgrs(i,k,ntdust4)=gq0(i,k,ntdust4) + qgrs(i,k,ntdust5)=gq0(i,k,ntdust5) + qgrs(i,k,ntss1 )=gq0(i,k,ntss1 ) + qgrs(i,k,ntss2 )=gq0(i,k,ntss2 ) + qgrs(i,k,ntss3 )=gq0(i,k,ntss3 ) + qgrs(i,k,ntss4 )=gq0(i,k,ntss4 ) + qgrs(i,k,ntss5 )=gq0(i,k,ntss5 ) + qgrs(i,k,ntpp10 )=gq0(i,k,ntpp10 ) + enddo enddo - enddo - - ! -- put chem stuff back into tracer array - do k=kts,kte - do i=its,ite - gq0(i,k,ntso2 )=ppm2ugkg(p_so2 ) * max(epsilc,chem(i,k,1,p_so2)) - gq0(i,k,ntsulf )=ppm2ugkg(p_sulf ) * max(epsilc,chem(i,k,1,p_sulf)) - gq0(i,k,ntdms )=ppm2ugkg(p_dms ) * max(epsilc,chem(i,k,1,p_dms)) - gq0(i,k,ntmsa )=ppm2ugkg(p_msa ) * max(epsilc,chem(i,k,1,p_msa)) - gq0(i,k,ntpp25 )=ppm2ugkg(p_p25 ) * max(epsilc,chem(i,k,1,p_p25)) - gq0(i,k,ntbc1 )=ppm2ugkg(p_bc1 ) * max(epsilc,chem(i,k,1,p_bc1)) - gq0(i,k,ntbc2 )=ppm2ugkg(p_bc2 ) * max(epsilc,chem(i,k,1,p_bc2)) - gq0(i,k,ntoc1 )=ppm2ugkg(p_oc1 ) * max(epsilc,chem(i,k,1,p_oc1)) - gq0(i,k,ntoc2 )=ppm2ugkg(p_oc2 ) * max(epsilc,chem(i,k,1,p_oc2)) - gq0(i,k,ntdust1)=ppm2ugkg(p_dust_1) * max(epsilc,chem(i,k,1,p_dust_1)) - gq0(i,k,ntdust2)=ppm2ugkg(p_dust_2) * max(epsilc,chem(i,k,1,p_dust_2)) - gq0(i,k,ntdust3)=ppm2ugkg(p_dust_3) * max(epsilc,chem(i,k,1,p_dust_3)) - gq0(i,k,ntdust4)=ppm2ugkg(p_dust_4) * max(epsilc,chem(i,k,1,p_dust_4)) - gq0(i,k,ntdust5)=ppm2ugkg(p_dust_5) * max(epsilc,chem(i,k,1,p_dust_5)) - gq0(i,k,ntss1 )=ppm2ugkg(p_seas_1) * max(epsilc,chem(i,k,1,p_seas_1)) - gq0(i,k,ntss2 )=ppm2ugkg(p_seas_2) * max(epsilc,chem(i,k,1,p_seas_2)) - gq0(i,k,ntss3 )=ppm2ugkg(p_seas_3) * max(epsilc,chem(i,k,1,p_seas_3)) - gq0(i,k,ntss4 )=ppm2ugkg(p_seas_4) * max(epsilc,chem(i,k,1,p_seas_4)) - gq0(i,k,ntss5 )=ppm2ugkg(p_seas_5) * max(epsilc,chem(i,k,1,p_seas_5)) - gq0(i,k,ntpp10 )=ppm2ugkg(p_p10 ) * max(epsilc,chem(i,k,1,p_p10)) - enddo - enddo - - do k=kts,kte - do i=its,ite - qgrs(i,k,ntso2 )=gq0(i,k,ntso2 ) - qgrs(i,k,ntsulf )=gq0(i,k,ntsulf ) - qgrs(i,k,ntdms )=gq0(i,k,ntdms ) - qgrs(i,k,ntmsa )=gq0(i,k,ntmsa ) - qgrs(i,k,ntpp25 )=gq0(i,k,ntpp25 ) - qgrs(i,k,ntbc1 )=gq0(i,k,ntbc1 ) - qgrs(i,k,ntbc2 )=gq0(i,k,ntbc2 ) - qgrs(i,k,ntoc1 )=gq0(i,k,ntoc1 ) - qgrs(i,k,ntoc2 )=gq0(i,k,ntoc2 ) - qgrs(i,k,ntdust1)=gq0(i,k,ntdust1) - qgrs(i,k,ntdust2)=gq0(i,k,ntdust2) - qgrs(i,k,ntdust3)=gq0(i,k,ntdust3) - qgrs(i,k,ntdust4)=gq0(i,k,ntdust4) - qgrs(i,k,ntdust5)=gq0(i,k,ntdust5) - qgrs(i,k,ntss1 )=gq0(i,k,ntss1 ) - qgrs(i,k,ntss2 )=gq0(i,k,ntss2 ) - qgrs(i,k,ntss3 )=gq0(i,k,ntss3 ) - qgrs(i,k,ntss4 )=gq0(i,k,ntss4 ) - qgrs(i,k,ntss5 )=gq0(i,k,ntss5 ) - qgrs(i,k,ntpp10 )=gq0(i,k,ntpp10 ) - enddo - enddo - - ! -- output dry deposition - call gocart_diag_store(2, dry_fall, trdf) - - drydep (:,:)=trdf(:,1,:,2) + + ! -- output dry deposition + call gocart_diag_store(2, dry_fall, trdf) + + drydep (:,:)=trdf(:,1,:,2) ! end subroutine catchem_drydep_wrapper_run !> @} - subroutine catchem_prep_drydep( & - ustar,land,rlat,rlon,ts2d, & - pr3d,ph3d,phl3d,tk3d,prl3d,spechum,exch, & - vegtype,sigmaf,dswsfc,zorl,snow_cplchm,hf2d,pb2d, & - ust,tsk,xland,xlat,xlong, & - rri,t_phy,p_phy,rho_phy,dz8w,p8w, & - t8w,exch_h,z_at_w,zmid, & - ntso2,ntsulf,ntDMS,ntmsa,ntpp25, & - ntbc1,ntbc2,ntoc1,ntoc2,ntss1,ntss2,ntss3,ntss4,ntss5, & - ntdust1,ntdust2,ntdust3,ntdust4,ntdust5,ntpp10, & - ntrac,gq0,num_chem, num_moist, & - ppm2ugkg,moist,chem, & - ivgtyp,vegfrac,rmol,gsw,znt,hfx,pbl,snowh, & - ids,ide, jds,jde, kds,kde, & - ims,ime, jms,jme, kms,kme, & - its,ite, jts,jte, kts,kte) - - !FV3 input variables - integer, dimension(ims:ime), intent(in) :: land, vegtype - integer, intent(in) :: ntrac,ntss1,ntss2,ntss3,ntss4,ntss5 - integer, intent(in) :: ntdust1,ntdust2,ntdust3,ntdust4,ntdust5 - integer, intent(in) :: ntso2,ntpp25,ntbc1,ntoc1,ntpp10 - integer, intent(in) :: ntsulf,ntbc2,ntoc2,ntDMS,ntmsa - real(kind=kind_phys), dimension(ims:ime), intent(in) :: & + subroutine catchem_prep_drydep( & + ustar,land,rlat,rlon,ts2d, & + pr3d,ph3d,phl3d,tk3d,prl3d,spechum,exch, & + vegtype,sigmaf,dswsfc,zorl,snow_cplchm,hf2d,pb2d, & + ust,tsk,xland,xlat,xlong, & + rri,t_phy,p_phy,rho_phy,dz8w,p8w, & + t8w,exch_h,z_at_w,zmid, & + ntso2,ntsulf,ntDMS,ntmsa,ntpp25, & + ntbc1,ntbc2,ntoc1,ntoc2,ntss1,ntss2,ntss3,ntss4,ntss5, & + ntdust1,ntdust2,ntdust3,ntdust4,ntdust5,ntpp10, & + ntrac,gq0,num_chem, num_moist, & + ppm2ugkg,moist,chem, & + ivgtyp,vegfrac,rmol,gsw,znt,hfx,pbl,snowh, & + ids,ide, jds,jde, kds,kde, & + ims,ime, jms,jme, kms,kme, & + its,ite, jts,jte, kts,kte) + + !FV3 input variables + integer, dimension(ims:ime), intent(in) :: land, vegtype + integer, intent(in) :: ntrac,ntss1,ntss2,ntss3,ntss4,ntss5 + integer, intent(in) :: ntdust1,ntdust2,ntdust3,ntdust4,ntdust5 + integer, intent(in) :: ntso2,ntpp25,ntbc1,ntoc1,ntpp10 + integer, intent(in) :: ntsulf,ntbc2,ntoc2,ntDMS,ntmsa + real(kind=kind_phys), dimension(ims:ime), intent(in) :: & ustar, rlat, rlon, ts2d, sigmaf, dswsfc, zorl, snow_cplchm, hf2d, pb2d - real(kind=kind_phys), dimension(ims:ime, kms:kme), intent(in) :: pr3d,ph3d - real(kind=kind_phys), dimension(ims:ime, kts:kte), intent(in) :: phl3d,tk3d,prl3d,spechum,exch - real(kind=kind_phys), dimension(ims:ime, kts:kte,ntrac), intent(in) :: gq0 + real(kind=kind_phys), dimension(ims:ime, kms:kme), intent(in) :: pr3d,ph3d + real(kind=kind_phys), dimension(ims:ime, kts:kte), intent(in) :: phl3d,tk3d,prl3d,spechum,exch + real(kind=kind_phys), dimension(ims:ime, kts:kte,ntrac), intent(in) :: gq0 - !GSD Chem variables - integer,intent(in) :: num_chem, num_moist - integer,intent(in) :: ids,ide, jds,jde, kds,kde, & - ims,ime, jms,jme, kms,kme, & - its,ite, jts,jte, kts,kte + !GSD Chem variables + integer,intent(in) :: num_chem, num_moist + integer,intent(in) :: ids,ide, jds,jde, kds,kde, & + ims,ime, jms,jme, kms,kme, & + its,ite, jts,jte, kts,kte - real(kind_phys), dimension(num_chem), intent(in) :: ppm2ugkg + real(kind_phys), dimension(num_chem), intent(in) :: ppm2ugkg - - integer,dimension(ims:ime, jms:jme), intent(out) :: ivgtyp - real(kind_phys), dimension(ims:ime, kms:kme, jms:jme), intent(out) :: & + + integer,dimension(ims:ime, jms:jme), intent(out) :: ivgtyp + real(kind_phys), dimension(ims:ime, kms:kme, jms:jme), intent(out) :: & rri, t_phy, p_phy, rho_phy, dz8w, p8w, t8w, zmid, & exch_h - real(kind_phys), dimension(ims:ime, jms:jme), intent(out) :: & + real(kind_phys), dimension(ims:ime, jms:jme), intent(out) :: & ust, tsk, xland, xlat, xlong, vegfrac, rmol, gsw, znt, hfx, & pbl, snowh - real(kind_phys), dimension(ims:ime, kms:kme, jms:jme, num_moist), intent(out) :: moist - real(kind_phys), dimension(ims:ime, kms:kme, jms:jme, num_chem), intent(out) :: chem - - real(kind_phys), dimension(ims:ime, kms:kme, jms:jme), intent(out) :: z_at_w - - ! -- local variables - integer i,ip,j,jp,k,kp,kk,kkp,nv,l,ll,n - - - ! -- initialize output arrays - ivgtyp = 0._kind_phys - rri = 0._kind_phys - t_phy = 0._kind_phys - p_phy = 0._kind_phys - rho_phy = 0._kind_phys - dz8w = 0._kind_phys - p8w = 0._kind_phys - t8w = 0._kind_phys - zmid = 0._kind_phys - exch_h = 0._kind_phys - ust = 0._kind_phys - tsk = 0._kind_phys - xland = 0._kind_phys - xlat = 0._kind_phys - xlong = 0._kind_phys - vegfrac = 0._kind_phys - rmol = 0._kind_phys - gsw = 0._kind_phys - znt = 0._kind_phys - hfx = 0._kind_phys - pbl = 0._kind_phys - snowh = 0._kind_phys - moist = 0._kind_phys - chem = 0._kind_phys - z_at_w = 0._kind_phys - - - do i=its,ite - tsk (i,1)=ts2d (i) - ust (i,1)=ustar(i) - xland(i,1)=real(land(i)) - xlat (i,1)=rlat(i)*180./pi - xlong(i,1)=rlon(i)*180./pi - gsw (i,1)=dswsfc(i) - znt (i,1)=zorl(i)*0.01 - hfx (i,1)=hf2d(i) - pbl (i,1)=pb2d(i) - snowh(i,1)=snow_cplchm(i)*0.001 - ivgtyp (i,1)=vegtype(i) - vegfrac(i,1)=sigmaf (i) - enddo - - rmol=0. - - do j=jts,jte - jp = j - jts + 1 + real(kind_phys), dimension(ims:ime, kms:kme, jms:jme, num_moist), intent(out) :: moist + real(kind_phys), dimension(ims:ime, kms:kme, jms:jme, num_chem), intent(out) :: chem + + real(kind_phys), dimension(ims:ime, kms:kme, jms:jme), intent(out) :: z_at_w + + ! -- local variables + integer i,ip,j,jp,k,kp,kk,kkp,nv,l,ll,n + + + ! -- initialize output arrays + ivgtyp = 0._kind_phys + rri = 0._kind_phys + t_phy = 0._kind_phys + p_phy = 0._kind_phys + rho_phy = 0._kind_phys + dz8w = 0._kind_phys + p8w = 0._kind_phys + t8w = 0._kind_phys + zmid = 0._kind_phys + exch_h = 0._kind_phys + ust = 0._kind_phys + tsk = 0._kind_phys + xland = 0._kind_phys + xlat = 0._kind_phys + xlong = 0._kind_phys + vegfrac = 0._kind_phys + rmol = 0._kind_phys + gsw = 0._kind_phys + znt = 0._kind_phys + hfx = 0._kind_phys + pbl = 0._kind_phys + snowh = 0._kind_phys + moist = 0._kind_phys + chem = 0._kind_phys + z_at_w = 0._kind_phys + + do i=its,ite - ip = i - its + 1 - z_at_w(i,kts,j)=max(0.,ph3d(ip,1)/g) + tsk (i,1)=ts2d (i) + ust (i,1)=ustar(i) + xland(i,1)=real(land(i)) + xlat (i,1)=rlat(i)*180./pi + xlong(i,1)=rlon(i)*180./pi + gsw (i,1)=dswsfc(i) + znt (i,1)=zorl(i)*0.01 + hfx (i,1)=hf2d(i) + pbl (i,1)=pb2d(i) + snowh(i,1)=snow_cplchm(i)*0.001 + ivgtyp (i,1)=vegtype(i) + vegfrac(i,1)=sigmaf (i) enddo - enddo - do j=jts,jte - jp = j - jts + 1 - do k=kts,kte - kp = k - kts + 1 - do i=its,ite - ip = i - its + 1 - dz8w(i,k,j)=abs(ph3d(ip,kp+1)-ph3d(ip,kp))/g - z_at_w(i,k+1,j)=z_at_w(i,k,j)+dz8w(i,k,j) - enddo + rmol=0. + + do j=jts,jte + jp = j - jts + 1 + do i=its,ite + ip = i - its + 1 + z_at_w(i,kts,j)=max(0.,ph3d(ip,1)/g) + enddo enddo - enddo - - do j=jts,jte - jp = j - jts + 1 - do k=kts,kte+1 - kp = k - kts + 1 - do i=its,ite - ip = i - its + 1 - p8w(i,k,j)=pr3d(ip,kp) - enddo + + do j=jts,jte + jp = j - jts + 1 + do k=kts,kte + kp = k - kts + 1 + do i=its,ite + ip = i - its + 1 + dz8w(i,k,j)=abs(ph3d(ip,kp+1)-ph3d(ip,kp))/g + z_at_w(i,k+1,j)=z_at_w(i,k,j)+dz8w(i,k,j) + enddo + enddo enddo - enddo - - do j=jts,jte - jp = j - jts + 1 - do k=kts,kte+1 - kk=min(k,kte) - kkp = kk - kts + 1 - do i=its,ite - ip = i - its + 1 - dz8w(i,k,j)=z_at_w(i,kk+1,j)-z_at_w(i,kk,j) - t_phy(i,k,j)=tk3d(ip,kkp) - p_phy(i,k,j)=prl3d(ip,kkp) - rho_phy(i,k,j)=p_phy(i,k,j)/(287.04*t_phy(i,k,j)*(1.+.608*spechum(ip,kkp))) - rri(i,k,j)=1./rho_phy(i,k,j) - moist(i,k,j,:)=0. - moist(i,k,j,1)=gq0(ip,kkp,p_atm_shum) - if (t_phy(i,k,j) > 265.) then - moist(i,k,j,2)=gq0(ip,kkp,p_atm_cldq) - moist(i,k,j,3)=0. - if (moist(i,k,j,2) < 1.e-8) moist(i,k,j,2)=0. - else - moist(i,k,j,2)=0. - moist(i,k,j,3)=gq0(ip,kkp,p_atm_cldq) - if(moist(i,k,j,3) < 1.e-8)moist(i,k,j,3)=0. - endif - !-- - zmid(i,k,j)=phl3d(ip,kkp)/g - enddo + + do j=jts,jte + jp = j - jts + 1 + do k=kts,kte+1 + kp = k - kts + 1 + do i=its,ite + ip = i - its + 1 + p8w(i,k,j)=pr3d(ip,kp) + enddo + enddo enddo - enddo - - ! -- the imported atmospheric heat diffusivity is only available up to kte-1 - do j=jts,jte - jp = j - jts + 1 - do k=kts,kte-1 - kkp = k - kts + 1 - do i=its,ite - ip = i - its + 1 - exch_h(i,k,j)=exch(ip,kkp) - enddo + + do j=jts,jte + jp = j - jts + 1 + do k=kts,kte+1 + kk=min(k,kte) + kkp = kk - kts + 1 + do i=its,ite + ip = i - its + 1 + dz8w(i,k,j)=z_at_w(i,kk+1,j)-z_at_w(i,kk,j) + t_phy(i,k,j)=tk3d(ip,kkp) + p_phy(i,k,j)=prl3d(ip,kkp) + rho_phy(i,k,j)=p_phy(i,k,j)/(287.04*t_phy(i,k,j)*(1.+.608*spechum(ip,kkp))) + rri(i,k,j)=1./rho_phy(i,k,j) + moist(i,k,j,:)=0. + moist(i,k,j,1)=gq0(ip,kkp,p_atm_shum) + if (t_phy(i,k,j) > 265.) then + moist(i,k,j,2)=gq0(ip,kkp,p_atm_cldq) + moist(i,k,j,3)=0. + if (moist(i,k,j,2) < 1.e-8) moist(i,k,j,2)=0. + else + moist(i,k,j,2)=0. + moist(i,k,j,3)=gq0(ip,kkp,p_atm_cldq) + if(moist(i,k,j,3) < 1.e-8)moist(i,k,j,3)=0. + endif + !-- + zmid(i,k,j)=phl3d(ip,kkp)/g + enddo + enddo enddo - enddo - do j=jts,jte - do k=2,kte - do i=its,ite - t8w(i,k,j)=.5*(t_phy(i,k,j)+t_phy(i,k-1,j)) - enddo + ! -- the imported atmospheric heat diffusivity is only available up to kte-1 + do j=jts,jte + jp = j - jts + 1 + do k=kts,kte-1 + kkp = k - kts + 1 + do i=its,ite + ip = i - its + 1 + exch_h(i,k,j)=exch(ip,kkp) + enddo + enddo enddo - enddo - ! -- only used in phtolysis.... - do j=jts,jte - do i=its,ite - t8w(i,1,j)=t_phy(i,1,j) - t8w(i,kte+1,j)=t_phy(i,kte,j) + do j=jts,jte + do k=2,kte + do i=its,ite + t8w(i,k,j)=.5*(t_phy(i,k,j)+t_phy(i,k-1,j)) + enddo + enddo enddo - enddo - - - do k=kms,kte - do i=ims,ime - chem(i,k,jts,p_so2 )=max(epsilc,gq0(i,k,ntso2 )/ppm2ugkg(p_so2)) - chem(i,k,jts,p_sulf )=max(epsilc,gq0(i,k,ntsulf )/ppm2ugkg(p_sulf)) - chem(i,k,jts,p_dms )=max(epsilc,gq0(i,k,ntdms )/ppm2ugkg(p_dms)) - chem(i,k,jts,p_msa )=max(epsilc,gq0(i,k,ntmsa )/ppm2ugkg(p_msa)) - chem(i,k,jts,p_p25 )=max(epsilc,gq0(i,k,ntpp25 )/ppm2ugkg(p_p25)) - chem(i,k,jts,p_bc1 )=max(epsilc,gq0(i,k,ntbc1 )/ppm2ugkg(p_bc1)) - chem(i,k,jts,p_bc2 )=max(epsilc,gq0(i,k,ntbc2 )/ppm2ugkg(p_bc2)) - chem(i,k,jts,p_oc1 )=max(epsilc,gq0(i,k,ntoc1 )/ppm2ugkg(p_oc1)) - chem(i,k,jts,p_oc2 )=max(epsilc,gq0(i,k,ntoc2 )/ppm2ugkg(p_oc2)) - chem(i,k,jts,p_dust_1)=max(epsilc,gq0(i,k,ntdust1)/ppm2ugkg(p_dust_1)) - chem(i,k,jts,p_dust_2)=max(epsilc,gq0(i,k,ntdust2)/ppm2ugkg(p_dust_2)) - chem(i,k,jts,p_dust_3)=max(epsilc,gq0(i,k,ntdust3)/ppm2ugkg(p_dust_3)) - chem(i,k,jts,p_dust_4)=max(epsilc,gq0(i,k,ntdust4)/ppm2ugkg(p_dust_4)) - chem(i,k,jts,p_dust_5)=max(epsilc,gq0(i,k,ntdust5)/ppm2ugkg(p_dust_5)) - chem(i,k,jts,p_seas_1)=max(epsilc,gq0(i,k,ntss1 )/ppm2ugkg(p_seas_1)) - chem(i,k,jts,p_seas_2)=max(epsilc,gq0(i,k,ntss2 )/ppm2ugkg(p_seas_2)) - chem(i,k,jts,p_seas_3)=max(epsilc,gq0(i,k,ntss3 )/ppm2ugkg(p_seas_3)) - chem(i,k,jts,p_seas_4)=max(epsilc,gq0(i,k,ntss4 )/ppm2ugkg(p_seas_4)) - chem(i,k,jts,p_seas_5)=max(epsilc,gq0(i,k,ntss5 )/ppm2ugkg(p_seas_5)) - chem(i,k,jts,p_p10 )=max(epsilc,gq0(i,k,ntpp10 )/ppm2ugkg(p_p10)) - enddo - enddo - - - end subroutine catchem_prep_drydep + + ! -- only used in phtolysis.... + do j=jts,jte + do i=its,ite + t8w(i,1,j)=t_phy(i,1,j) + t8w(i,kte+1,j)=t_phy(i,kte,j) + enddo + enddo + + + do k=kms,kte + do i=ims,ime + chem(i,k,jts,p_so2 )=max(epsilc,gq0(i,k,ntso2 )/ppm2ugkg(p_so2)) + chem(i,k,jts,p_sulf )=max(epsilc,gq0(i,k,ntsulf )/ppm2ugkg(p_sulf)) + chem(i,k,jts,p_dms )=max(epsilc,gq0(i,k,ntdms )/ppm2ugkg(p_dms)) + chem(i,k,jts,p_msa )=max(epsilc,gq0(i,k,ntmsa )/ppm2ugkg(p_msa)) + chem(i,k,jts,p_p25 )=max(epsilc,gq0(i,k,ntpp25 )/ppm2ugkg(p_p25)) + chem(i,k,jts,p_bc1 )=max(epsilc,gq0(i,k,ntbc1 )/ppm2ugkg(p_bc1)) + chem(i,k,jts,p_bc2 )=max(epsilc,gq0(i,k,ntbc2 )/ppm2ugkg(p_bc2)) + chem(i,k,jts,p_oc1 )=max(epsilc,gq0(i,k,ntoc1 )/ppm2ugkg(p_oc1)) + chem(i,k,jts,p_oc2 )=max(epsilc,gq0(i,k,ntoc2 )/ppm2ugkg(p_oc2)) + chem(i,k,jts,p_dust_1)=max(epsilc,gq0(i,k,ntdust1)/ppm2ugkg(p_dust_1)) + chem(i,k,jts,p_dust_2)=max(epsilc,gq0(i,k,ntdust2)/ppm2ugkg(p_dust_2)) + chem(i,k,jts,p_dust_3)=max(epsilc,gq0(i,k,ntdust3)/ppm2ugkg(p_dust_3)) + chem(i,k,jts,p_dust_4)=max(epsilc,gq0(i,k,ntdust4)/ppm2ugkg(p_dust_4)) + chem(i,k,jts,p_dust_5)=max(epsilc,gq0(i,k,ntdust5)/ppm2ugkg(p_dust_5)) + chem(i,k,jts,p_seas_1)=max(epsilc,gq0(i,k,ntss1 )/ppm2ugkg(p_seas_1)) + chem(i,k,jts,p_seas_2)=max(epsilc,gq0(i,k,ntss2 )/ppm2ugkg(p_seas_2)) + chem(i,k,jts,p_seas_3)=max(epsilc,gq0(i,k,ntss3 )/ppm2ugkg(p_seas_3)) + chem(i,k,jts,p_seas_4)=max(epsilc,gq0(i,k,ntss4 )/ppm2ugkg(p_seas_4)) + chem(i,k,jts,p_seas_5)=max(epsilc,gq0(i,k,ntss5 )/ppm2ugkg(p_seas_5)) + chem(i,k,jts,p_p10 )=max(epsilc,gq0(i,k,ntpp10 )/ppm2ugkg(p_p10)) + enddo + enddo + + + end subroutine catchem_prep_drydep !> @} - end module catchem_drydep_wrapper +end module catchem_drydep_wrapper diff --git a/drivers/ccpp/catchem_dust_wrapper.F90 b/drivers/ccpp/catchem_dust_wrapper.F90 index f51eb495..fc06ae55 100644 --- a/drivers/ccpp/catchem_dust_wrapper.F90 +++ b/drivers/ccpp/catchem_dust_wrapper.F90 @@ -4,7 +4,7 @@ !! Revision History: !! 05/2023, Restructure for CATChem, Jian.He@noaa.gov - module catchem_dust_wrapper +module catchem_dust_wrapper use physcons, only : g => con_g, pi => con_pi use machine , only : kind_phys @@ -25,19 +25,19 @@ module catchem_dust_wrapper !> \brief Brief description of the subroutine !! - subroutine catchem_dust_wrapper_init() - end subroutine catchem_dust_wrapper_init + subroutine catchem_dust_wrapper_init() + end subroutine catchem_dust_wrapper_init !> \brief Brief description of the subroutine !! !! \section arg_table_catchem_dust_wrapper_finalize Argument Table !! - subroutine catchem_dust_wrapper_finalize() - end subroutine catchem_dust_wrapper_finalize + subroutine catchem_dust_wrapper_finalize() + end subroutine catchem_dust_wrapper_finalize !> \defgroup catchem_dust_group CATChem dust wrapper Module !! This is the Configurable ATmospheric Chemistry (CATChem) -!>\defgroup catchem_dust_wrapper CATChem dust wrapper Module +!>\defgroup catchem_dust_wrapper CATChem dust wrapper Module !> \ingroup catchem_dust_group !! This is the CATChem dust wrapper Module !! \section arg_table_catchem_dust_wrapper_run Argument Table @@ -45,492 +45,492 @@ end subroutine catchem_dust_wrapper_finalize !! !>\section catchem_dust_wrapper CATChem Scheme General Algorithm !> @{ - subroutine catchem_dust_wrapper_run(im, kte, kme, ktau, dt, garea, land, & - u10m, v10m, ustar, rlat, rlon, tskin, hf2d, pb2d, & - pr3d, ph3d,phl3d, prl3d, tk3d, us3d, vs3d, spechum, & - nsoil, smc, vegtype, soiltyp, sigmaf, dswsfc, zorl,snow_cplchm, & - dust_in,emi_in, nseasalt,ntrac, & - ntdust1,ntdust2,ntdust3,ntdust4,ntdust5,ndust, & - gq0,qgrs,duem, & - chem_opt_in,dust_opt_in,dust_calcdrag_in, & - dust_alpha_in,dust_gamma_in,pert_scale_dust, & - emis_amp_dust, do_sppt_emis, sppt_wts, errmsg,errflg) - - implicit none - - - integer, intent(in) :: im,kte,kme,ktau,nsoil - integer, intent(in) :: nseasalt,ntrac - integer, intent(in) :: ntdust1,ntdust2,ntdust3,ntdust4,ntdust5,ndust - real(kind_phys),intent(in) :: dt, emis_amp_dust, pert_scale_dust - - logical, intent(in) :: do_sppt_emis - real(kind_phys), optional, intent(in) :: sppt_wts(:,:) - - integer, parameter :: ids=1,jds=1,jde=1, kds=1 - integer, parameter :: ims=1,jms=1,jme=1, kms=1 - integer, parameter :: its=1,jts=1,jte=1, kts=1 - - integer, dimension(im), intent(in) :: land, vegtype, soiltyp - real(kind_phys), dimension(im,nsoil), intent(in) :: smc - real(kind_phys), dimension(im, 5), intent(in) :: dust_in - real(kind_phys), dimension(im, 10), intent(in) :: emi_in - real(kind_phys), dimension(im), intent(in) :: u10m, v10m, ustar, & - garea, rlat,rlon, tskin, & - hf2d, pb2d, sigmaf, dswsfc, zorl, snow_cplchm - real(kind_phys), dimension(im,kme), intent(in) :: ph3d, pr3d - real(kind_phys), dimension(im,kte), intent(in) :: phl3d, prl3d, tk3d, & - us3d, vs3d, spechum - real(kind_phys), dimension(im,kte,ntrac), intent(inout) :: gq0, qgrs - real(kind_phys), dimension(im,ndust ), intent(inout) :: duem - integer, intent(in) :: chem_opt_in, dust_opt_in, dust_calcdrag_in - real(kind_phys),intent(in) :: dust_alpha_in,dust_gamma_in - character(len=*), intent(out) :: errmsg - integer, intent(out) :: errflg - - real(kind_phys), dimension(1:im, 1:kme,jms:jme) :: rri, t_phy, u_phy, v_phy, & - p_phy, z_at_w, dz8w, p8w, t8w, rho_phy - - real(kind_phys), dimension(ims:im, jms:jme) :: u10, v10, ust, tsk, & - xland, xlat, xlong, dxy, rcav, rnav, hfx, pbl + subroutine catchem_dust_wrapper_run(im, kte, kme, ktau, dt, garea, land, & + u10m, v10m, ustar, rlat, rlon, tskin, hf2d, pb2d, & + pr3d, ph3d,phl3d, prl3d, tk3d, us3d, vs3d, spechum, & + nsoil, smc, vegtype, soiltyp, sigmaf, dswsfc, zorl,snow_cplchm, & + dust_in,emi_in, nseasalt,ntrac, & + ntdust1,ntdust2,ntdust3,ntdust4,ntdust5,ndust, & + gq0,qgrs,duem, & + chem_opt_in,dust_opt_in,dust_calcdrag_in, & + dust_alpha_in,dust_gamma_in,pert_scale_dust, & + emis_amp_dust, do_sppt_emis, sppt_wts, errmsg,errflg) + + implicit none + + + integer, intent(in) :: im,kte,kme,ktau,nsoil + integer, intent(in) :: nseasalt,ntrac + integer, intent(in) :: ntdust1,ntdust2,ntdust3,ntdust4,ntdust5,ndust + real(kind_phys),intent(in) :: dt, emis_amp_dust, pert_scale_dust + + logical, intent(in) :: do_sppt_emis + real(kind_phys), optional, intent(in) :: sppt_wts(:,:) + + integer, parameter :: ids=1,jds=1,jde=1, kds=1 + integer, parameter :: ims=1,jms=1,jme=1, kms=1 + integer, parameter :: its=1,jts=1,jte=1, kts=1 + + integer, dimension(im), intent(in) :: land, vegtype, soiltyp + real(kind_phys), dimension(im,nsoil), intent(in) :: smc + real(kind_phys), dimension(im, 5), intent(in) :: dust_in + real(kind_phys), dimension(im, 10), intent(in) :: emi_in + real(kind_phys), dimension(im), intent(in) :: u10m, v10m, ustar, & + garea, rlat,rlon, tskin, & + hf2d, pb2d, sigmaf, dswsfc, zorl, snow_cplchm + real(kind_phys), dimension(im,kme), intent(in) :: ph3d, pr3d + real(kind_phys), dimension(im,kte), intent(in) :: phl3d, prl3d, tk3d, & + us3d, vs3d, spechum + real(kind_phys), dimension(im,kte,ntrac), intent(inout) :: gq0, qgrs + real(kind_phys), dimension(im,ndust ), intent(inout) :: duem + integer, intent(in) :: chem_opt_in, dust_opt_in, dust_calcdrag_in + real(kind_phys),intent(in) :: dust_alpha_in,dust_gamma_in + character(len=*), intent(out) :: errmsg + integer, intent(out) :: errflg + + real(kind_phys), dimension(1:im, 1:kme,jms:jme) :: rri, t_phy, u_phy, v_phy, & + p_phy, z_at_w, dz8w, p8w, t8w, rho_phy + + real(kind_phys), dimension(ims:im, jms:jme) :: u10, v10, ust, tsk, & + xland, xlat, xlong, dxy, rcav, rnav, hfx, pbl !>- vapor & chemistry variables - real(kind_phys), dimension(ims:im, kms:kme, jms:jme, 1:num_moist) :: moist - real(kind_phys), dimension(ims:im, kms:kme, jms:jme, 1:num_chem ) :: chem + real(kind_phys), dimension(ims:im, kms:kme, jms:jme, 1:num_moist) :: moist + real(kind_phys), dimension(ims:im, kms:kme, jms:jme, 1:num_chem ) :: chem - integer :: ide, ime, ite, kde + integer :: ide, ime, ite, kde !>- dust & chemistry variables - real(kind_phys), dimension(ims:im, jms:jme, 3) :: erod ! read from input - real(kind_phys), dimension(ims:im, jms:jme) :: ssm, rdrag, uthr, snowh ! fengsha dust - real(kind_phys), dimension(ims:im, jms:jme) :: vegfrac, rmol, gsw, znt, clayf, sandf - real(kind_phys), dimension(ims:im, nsoil, jms:jme) :: smois - real(kind_phys), dimension(ims:im, 1:1, jms:jme, 1:num_emis_dust) :: emis_dust - real(kind_phys), dimension(ims:im, 1:1, jms:jme, 1:5) :: srce_dust - real(kind_phys), dimension(ims:im, jms:jme) :: dusthelp - integer, dimension(ims:im, jms:jme) :: isltyp, ivgtyp - - integer :: current_month - real(kind_phys) :: dtstep - real(kind_phys), parameter :: ugkg = 1.e-09_kind_phys !lzhang - real(kind_phys), dimension(1:num_chem) :: ppm2ugkg + real(kind_phys), dimension(ims:im, jms:jme, 3) :: erod ! read from input + real(kind_phys), dimension(ims:im, jms:jme) :: ssm, rdrag, uthr, snowh ! fengsha dust + real(kind_phys), dimension(ims:im, jms:jme) :: vegfrac, rmol, gsw, znt, clayf, sandf + real(kind_phys), dimension(ims:im, nsoil, jms:jme) :: smois + real(kind_phys), dimension(ims:im, 1:1, jms:jme, 1:num_emis_dust) :: emis_dust + real(kind_phys), dimension(ims:im, 1:1, jms:jme, 1:5) :: srce_dust + real(kind_phys), dimension(ims:im, jms:jme) :: dusthelp + integer, dimension(ims:im, jms:jme) :: isltyp, ivgtyp + + integer :: current_month + real(kind_phys) :: dtstep + real(kind_phys), parameter :: ugkg = 1.e-09_kind_phys !lzhang + real(kind_phys), dimension(1:num_chem) :: ppm2ugkg !>-- local variables - real(kind_phys) :: curr_secs - real(kind_phys) :: factor, factor2, factor3 - logical :: store_arrays - integer :: nbegin, nv, nvv - integer :: i, j, jp, k, kp, n - real(kind_phys), dimension(ims:im,jms:jme) :: random_factor - real(kind_phys) :: delp - - errmsg = '' - errflg = 0 - - chem_opt = chem_opt_in - dust_opt = dust_opt_in - dust_calcdrag = dust_calcdrag_in - chem = 0. - - ! -- initialize dust emissions - emis_dust = 0._kind_phys - - ! -- set domain - ide=im - ime=im - ite=im - kde=kte - - if(do_sppt_emis) then - random_factor(:,jms) = pert_scale_dust*max(min(1+(sppt_wts(:,kme/2)-1)*emis_amp_dust,2.0),0.0) - else - random_factor = 1.0 - endif - - ! -- volume to mass fraction conversion table (ppm -> ug/kg) - ppm2ugkg = 1._kind_phys - !ppm2ugkg(p_so2 ) = 1.e+03_kind_phys * mw_so2_aer / mwdry - ppm2ugkg(p_sulf) = 1.e+03_kind_phys * mw_so4_aer / mwdry - - ! -- compute accumulated large-scale and convective rainfall since last call - if (ktau > 1) then - dtstep = call_chemistry * dt - else - dtstep = dt - end if + real(kind_phys) :: curr_secs + real(kind_phys) :: factor, factor2, factor3 + logical :: store_arrays + integer :: nbegin, nv, nvv + integer :: i, j, jp, k, kp, n + real(kind_phys), dimension(ims:im,jms:jme) :: random_factor + real(kind_phys) :: delp + + errmsg = '' + errflg = 0 + + chem_opt = chem_opt_in + dust_opt = dust_opt_in + dust_calcdrag = dust_calcdrag_in + chem = 0. + + ! -- initialize dust emissions + emis_dust = 0._kind_phys + + ! -- set domain + ide=im + ime=im + ite=im + kde=kte + + if(do_sppt_emis) then + random_factor(:,jms) = pert_scale_dust*max(min(1+(sppt_wts(:,kme/2)-1)*emis_amp_dust,2.0),0.0) + else + random_factor = 1.0 + endif + + ! -- volume to mass fraction conversion table (ppm -> ug/kg) + ppm2ugkg = 1._kind_phys + !ppm2ugkg(p_so2 ) = 1.e+03_kind_phys * mw_so2_aer / mwdry + ppm2ugkg(p_sulf) = 1.e+03_kind_phys * mw_so4_aer / mwdry + + ! -- compute accumulated large-scale and convective rainfall since last call + if (ktau > 1) then + dtstep = call_chemistry * dt + else + dtstep = dt + end if !>- get ready for chemistry run - call catchem_prep_dust( & - ktau,dtstep, & - u10m,v10m,ustar,land,garea,rlat,rlon,tskin, & - pr3d,ph3d,phl3d,tk3d,prl3d,us3d,vs3d,spechum, & - nsoil,smc,vegtype,soiltyp,sigmaf,dswsfc,zorl, & - snow_cplchm,dust_in,emi_in, & - hf2d,pb2d,u10,v10,ust,tsk,xland,xlat,xlong,dxy, & - rri,t_phy,u_phy,v_phy,p_phy,rho_phy,dz8w,p8w,t8w,z_at_w, & - ntdust1,ntdust2,ntdust3,ntdust4,ntdust5, & - ntrac,gq0,num_chem, num_moist,ppm2ugkg,moist,chem, & - smois,ivgtyp,isltyp,vegfrac,rmol,gsw,znt,hfx,pbl, & - snowh,clayf,rdrag,sandf,ssm,uthr,erod, & - ids,ide, jds,jde, kds,kde, & - ims,ime, jms,jme, kms,kme, & - its,ite, jts,jte, kts,kte) - - - !-- compute dust - !store_arrays = .false. - dusthelp(:,:) = 0. - - select case (dust_opt) - case (DUST_OPT_AFWA) - dust_alpha = dust_alpha_in - dust_gamma = dust_gamma_in - - do j=jts,jte - do i=its,ite - if(xland(i,j).lt.1.5)then ! JianHe: why not also > 0.5? - delp = p8w(i,kts,j)-p8w(i,kts+1,j) - ! -- GOCART afwa dust scheme - call gocart_dust_afwa_driver(ktau,dt,u_phy(i,kts,j), & - v_phy(i,kts,j),chem(i,kts,j,:),rho_phy(i,kts,j), & - dz8w(i,kts,j),smois(i,:,j),u10(i,j), & - v10(i,j),delp,erod(i,j,:),isltyp(i,j),dxy(i,j), & - emis_dust(i,1,j,:),& - ust(i,j),znt(i,j),clayf(i,j),sandf(i,j),nsoil) - !store_arrays = .true. - endif - enddo - enddo - - case (DUST_OPT_FENGSHA) - dust_alpha = dust_alpha_in !fengsha_alpha - dust_gamma = dust_gamma_in !fengsha_gamma - - do j=jts,jte - do i=its,ite - if(xland(i,j).lt.1.5)then ! JianHe: why not also > 0.5? - delp = p8w(i,kts,j)-p8w(i,kts+1,j) - ! -- GOCART afwa dust scheme - call gocart_dust_fengsha_driver(dt,& - chem(i,kts,j,:),rho_phy(i,kts,j), & - dz8w(i,kts,j),smois(i,:,j), & - delp,ssm(i,j),isltyp(i,j),vegfrac(i,j),& - snowh(i,j),dxy(i,j),emis_dust(i,1,j,:), & - ust(i,j),znt(i,j),clayf(i,j),sandf(i,j), & - rdrag(i,j),uthr(i,j),nsoil,random_factor(i,j)) - !store_arrays = .true. - endif - enddo - enddo - - case (DUST_OPT_GOCART) - dust_alpha = gocart_alpha - dust_gamma = gocart_gamma - - do j=jts,jte - do i=its,ite - if(xland(i,j).lt.1.5 .and. xland(i,j).gt.0.5)then - delp = p8w(i,kts,j)-p8w(i,kts+1,j) - - ! based on chem_opt - select case (chem_opt) - - case (304, 316, 317) - !JianHe: 06/2023, we do not use this scheme - !Maybe we do not need this anymore - ! -- simple scheme - call gocart_dust_simple(ktau,dt,u_phy(i,kts,j), & - v_phy(i,kts,j),chem(i,kts,j,:),rho_phy(i,kts,j), & - dz8w(i,kts,j),smois(i,:,j),u10(i,j), & - v10(i,j),delp,erod(i,j,:),isltyp(i,j),dxy(i,j), & - emis_dust(i,1,j,:),dusthelp(i,j),nsoil,current_month) - - case default - ! -- default GOCART dust scheme - call gocart_dust_default(ktau,dt,u_phy(i,kts,j), & - v_phy(i,kts,j),chem(i,kts,j,:),rho_phy(i,kts,j), & - dz8w(i,kts,j),smois(i,:,j),u10(i,j), & - v10(i,j),delp,erod(i,j,:),isltyp(i,j),dxy(i,j), & - emis_dust(i,1,j,:),srce_dust(i,1,j,:),nsoil,current_month) - - end select - endif - enddo - enddo - - case default - errmsg = 'Logic error in catchem_dust_wrapper_run: invalid dust_opt' - errflg = 1 - return - !store_arrays = .true. - end select - - ! -- put chem stuff back into tracer array - do k=kts,kte - do i=its,ite - gq0(i,k,ntdust1 )=ppm2ugkg(p_dust_1) * max(epsilc,chem(i,k,1,p_dust_1)) - gq0(i,k,ntdust2 )=ppm2ugkg(p_dust_2) * max(epsilc,chem(i,k,1,p_dust_2)) - gq0(i,k,ntdust3 )=ppm2ugkg(p_dust_3) * max(epsilc,chem(i,k,1,p_dust_3)) - gq0(i,k,ntdust4 )=ppm2ugkg(p_dust_4) * max(epsilc,chem(i,k,1,p_dust_4)) - gq0(i,k,ntdust5 )=ppm2ugkg(p_dust_5) * max(epsilc,chem(i,k,1,p_dust_5)) - enddo - enddo - - do k=kts,kte - do i=its,ite - qgrs(i,k,ntdust1 )=gq0(i,k,ntdust1 ) - qgrs(i,k,ntdust2 )=gq0(i,k,ntdust2 ) - qgrs(i,k,ntdust3 )=gq0(i,k,ntdust3 ) - qgrs(i,k,ntdust4 )=gq0(i,k,ntdust4 ) - qgrs(i,k,ntdust5 )=gq0(i,k,ntdust5 ) - enddo - enddo - - duem(:,:)=ugkg*emis_dust(:,1,1,:) + call catchem_prep_dust( & + ktau,dtstep, & + u10m,v10m,ustar,land,garea,rlat,rlon,tskin, & + pr3d,ph3d,phl3d,tk3d,prl3d,us3d,vs3d,spechum, & + nsoil,smc,vegtype,soiltyp,sigmaf,dswsfc,zorl, & + snow_cplchm,dust_in,emi_in, & + hf2d,pb2d,u10,v10,ust,tsk,xland,xlat,xlong,dxy, & + rri,t_phy,u_phy,v_phy,p_phy,rho_phy,dz8w,p8w,t8w,z_at_w, & + ntdust1,ntdust2,ntdust3,ntdust4,ntdust5, & + ntrac,gq0,num_chem, num_moist,ppm2ugkg,moist,chem, & + smois,ivgtyp,isltyp,vegfrac,rmol,gsw,znt,hfx,pbl, & + snowh,clayf,rdrag,sandf,ssm,uthr,erod, & + ids,ide, jds,jde, kds,kde, & + ims,ime, jms,jme, kms,kme, & + its,ite, jts,jte, kts,kte) + + + !-- compute dust + !store_arrays = .false. + dusthelp(:,:) = 0. + + select case (dust_opt) + case (DUST_OPT_AFWA) + dust_alpha = dust_alpha_in + dust_gamma = dust_gamma_in + + do j=jts,jte + do i=its,ite + if(xland(i,j).lt.1.5)then ! JianHe: why not also > 0.5? + delp = p8w(i,kts,j)-p8w(i,kts+1,j) + ! -- GOCART afwa dust scheme + call gocart_dust_afwa_driver(ktau,dt,u_phy(i,kts,j), & + v_phy(i,kts,j),chem(i,kts,j,:),rho_phy(i,kts,j), & + dz8w(i,kts,j),smois(i,:,j),u10(i,j), & + v10(i,j),delp,erod(i,j,:),isltyp(i,j),dxy(i,j), & + emis_dust(i,1,j,:),& + ust(i,j),znt(i,j),clayf(i,j),sandf(i,j),nsoil) + !store_arrays = .true. + endif + enddo + enddo + + case (DUST_OPT_FENGSHA) + dust_alpha = dust_alpha_in !fengsha_alpha + dust_gamma = dust_gamma_in !fengsha_gamma + + do j=jts,jte + do i=its,ite + if(xland(i,j).lt.1.5)then ! JianHe: why not also > 0.5? + delp = p8w(i,kts,j)-p8w(i,kts+1,j) + ! -- GOCART afwa dust scheme + call gocart_dust_fengsha_driver(dt,& + chem(i,kts,j,:),rho_phy(i,kts,j), & + dz8w(i,kts,j),smois(i,:,j), & + delp,ssm(i,j),isltyp(i,j),vegfrac(i,j),& + snowh(i,j),dxy(i,j),emis_dust(i,1,j,:), & + ust(i,j),znt(i,j),clayf(i,j),sandf(i,j), & + rdrag(i,j),uthr(i,j),nsoil,random_factor(i,j)) + !store_arrays = .true. + endif + enddo + enddo + + case (DUST_OPT_GOCART) + dust_alpha = gocart_alpha + dust_gamma = gocart_gamma + + do j=jts,jte + do i=its,ite + if(xland(i,j).lt.1.5 .and. xland(i,j).gt.0.5)then + delp = p8w(i,kts,j)-p8w(i,kts+1,j) + + ! based on chem_opt + select case (chem_opt) + + case (304, 316, 317) + !JianHe: 06/2023, we do not use this scheme + !Maybe we do not need this anymore + ! -- simple scheme + call gocart_dust_simple(ktau,dt,u_phy(i,kts,j), & + v_phy(i,kts,j),chem(i,kts,j,:),rho_phy(i,kts,j), & + dz8w(i,kts,j),smois(i,:,j),u10(i,j), & + v10(i,j),delp,erod(i,j,:),isltyp(i,j),dxy(i,j), & + emis_dust(i,1,j,:),dusthelp(i,j),nsoil,current_month) + + case default + ! -- default GOCART dust scheme + call gocart_dust_default(ktau,dt,u_phy(i,kts,j), & + v_phy(i,kts,j),chem(i,kts,j,:),rho_phy(i,kts,j), & + dz8w(i,kts,j),smois(i,:,j),u10(i,j), & + v10(i,j),delp,erod(i,j,:),isltyp(i,j),dxy(i,j), & + emis_dust(i,1,j,:),srce_dust(i,1,j,:),nsoil,current_month) + + end select + endif + enddo + enddo + + case default + errmsg = 'Logic error in catchem_dust_wrapper_run: invalid dust_opt' + errflg = 1 + return + !store_arrays = .true. + end select + + ! -- put chem stuff back into tracer array + do k=kts,kte + do i=its,ite + gq0(i,k,ntdust1 )=ppm2ugkg(p_dust_1) * max(epsilc,chem(i,k,1,p_dust_1)) + gq0(i,k,ntdust2 )=ppm2ugkg(p_dust_2) * max(epsilc,chem(i,k,1,p_dust_2)) + gq0(i,k,ntdust3 )=ppm2ugkg(p_dust_3) * max(epsilc,chem(i,k,1,p_dust_3)) + gq0(i,k,ntdust4 )=ppm2ugkg(p_dust_4) * max(epsilc,chem(i,k,1,p_dust_4)) + gq0(i,k,ntdust5 )=ppm2ugkg(p_dust_5) * max(epsilc,chem(i,k,1,p_dust_5)) + enddo + enddo + + do k=kts,kte + do i=its,ite + qgrs(i,k,ntdust1 )=gq0(i,k,ntdust1 ) + qgrs(i,k,ntdust2 )=gq0(i,k,ntdust2 ) + qgrs(i,k,ntdust3 )=gq0(i,k,ntdust3 ) + qgrs(i,k,ntdust4 )=gq0(i,k,ntdust4 ) + qgrs(i,k,ntdust5 )=gq0(i,k,ntdust5 ) + enddo + enddo + + duem(:,:)=ugkg*emis_dust(:,1,1,:) ! end subroutine catchem_dust_wrapper_run !> @} subroutine catchem_prep_dust( & - ktau,dtstep, & - u10m,v10m,ustar,land,garea,rlat,rlon,ts2d, & - pr3d,ph3d,phl3d,tk3d,prl3d,us3d,vs3d,spechum, & - nsoil,smc,vegtype,soiltyp,sigmaf,dswsfc,zorl, & - snow_cplchm,dust_in,emi_in, & - hf2d,pb2d, & - u10,v10,ust,tsk,xland,xlat,xlong,dxy, & - rri,t_phy,u_phy,v_phy,p_phy,rho_phy,dz8w,p8w, & - t8w, & - z_at_w, & - ntdust1,ntdust2,ntdust3,ntdust4,ntdust5, & - ntrac,gq0, & - num_chem, num_moist, & - ppm2ugkg, & - moist,chem, & - smois,ivgtyp,isltyp,vegfrac,rmol,gsw,znt,hfx,pbl, & - snowh,clayf,rdrag,sandf,ssm,uthr,erod, & - ids,ide, jds,jde, kds,kde, & - ims,ime, jms,jme, kms,kme, & - its,ite, jts,jte, kts,kte) - - !Chem input configuration - integer, intent(in) :: ktau - real(kind=kind_phys), intent(in) :: dtstep - - !FV3 input variables - integer, intent(in) :: nsoil - integer, dimension(ims:ime), intent(in) :: land, vegtype, soiltyp - integer, intent(in) :: ntrac - integer, intent(in) :: ntdust1,ntdust2,ntdust3,ntdust4,ntdust5 - real(kind=kind_phys), dimension(ims:ime), intent(in) :: & + ktau,dtstep, & + u10m,v10m,ustar,land,garea,rlat,rlon,ts2d, & + pr3d,ph3d,phl3d,tk3d,prl3d,us3d,vs3d,spechum, & + nsoil,smc,vegtype,soiltyp,sigmaf,dswsfc,zorl, & + snow_cplchm,dust_in,emi_in, & + hf2d,pb2d, & + u10,v10,ust,tsk,xland,xlat,xlong,dxy, & + rri,t_phy,u_phy,v_phy,p_phy,rho_phy,dz8w,p8w, & + t8w, & + z_at_w, & + ntdust1,ntdust2,ntdust3,ntdust4,ntdust5, & + ntrac,gq0, & + num_chem, num_moist, & + ppm2ugkg, & + moist,chem, & + smois,ivgtyp,isltyp,vegfrac,rmol,gsw,znt,hfx,pbl, & + snowh,clayf,rdrag,sandf,ssm,uthr,erod, & + ids,ide, jds,jde, kds,kde, & + ims,ime, jms,jme, kms,kme, & + its,ite, jts,jte, kts,kte) + + !Chem input configuration + integer, intent(in) :: ktau + real(kind=kind_phys), intent(in) :: dtstep + + !FV3 input variables + integer, intent(in) :: nsoil + integer, dimension(ims:ime), intent(in) :: land, vegtype, soiltyp + integer, intent(in) :: ntrac + integer, intent(in) :: ntdust1,ntdust2,ntdust3,ntdust4,ntdust5 + real(kind=kind_phys), dimension(ims:ime), intent(in) :: & u10m, v10m, ustar, garea, rlat, rlon, ts2d, sigmaf, dswsfc, & zorl, snow_cplchm, hf2d, pb2d - real(kind=kind_phys), dimension(ims:ime, nsoil), intent(in) :: smc - real(kind=kind_phys), dimension(ims:ime, 5), intent(in) :: dust_in - real(kind=kind_phys), dimension(ims:ime, 10), intent(in) :: emi_in - real(kind=kind_phys), dimension(ims:ime, kms:kme), intent(in) :: & + real(kind=kind_phys), dimension(ims:ime, nsoil), intent(in) :: smc + real(kind=kind_phys), dimension(ims:ime, 5), intent(in) :: dust_in + real(kind=kind_phys), dimension(ims:ime, 10), intent(in) :: emi_in + real(kind=kind_phys), dimension(ims:ime, kms:kme), intent(in) :: & pr3d,ph3d - real(kind=kind_phys), dimension(ims:ime, kts:kte), intent(in) :: & + real(kind=kind_phys), dimension(ims:ime, kts:kte), intent(in) :: & phl3d,tk3d,prl3d,us3d,vs3d,spechum - real(kind=kind_phys), dimension(ims:ime, kts:kte,ntrac), intent(in) :: gq0 + real(kind=kind_phys), dimension(ims:ime, kts:kte,ntrac), intent(in) :: gq0 + + !GSD Chem variables + integer,intent(in) :: num_chem,num_moist + integer,intent(in) :: ids,ide, jds,jde, kds,kde, & + ims,ime, jms,jme, kms,kme, & + its,ite, jts,jte, kts,kte - !GSD Chem variables - integer,intent(in) :: num_chem,num_moist - integer,intent(in) :: ids,ide, jds,jde, kds,kde, & - ims,ime, jms,jme, kms,kme, & - its,ite, jts,jte, kts,kte + real(kind_phys), dimension(num_chem), intent(in) :: ppm2ugkg - real(kind_phys), dimension(num_chem), intent(in) :: ppm2ugkg - - integer,dimension(ims:ime, jms:jme), intent(out) :: isltyp, ivgtyp - real(kind_phys), dimension(ims:ime, jms:jme, 3), intent(inout) :: erod - real(kind_phys), dimension(ims:ime, kms:kme, jms:jme), intent(out) :: & + integer,dimension(ims:ime, jms:jme), intent(out) :: isltyp, ivgtyp + real(kind_phys), dimension(ims:ime, jms:jme, 3), intent(inout) :: erod + real(kind_phys), dimension(ims:ime, kms:kme, jms:jme), intent(out) :: & rri, t_phy, u_phy, v_phy, p_phy, rho_phy, dz8w, p8w, t8w - real(kind_phys), dimension(ims:ime, jms:jme), intent(out) :: & + real(kind_phys), dimension(ims:ime, jms:jme), intent(out) :: & u10, v10, ust, tsk, xland, xlat, xlong, dxy, vegfrac, rmol, gsw, znt, hfx, & pbl, snowh, clayf, rdrag, sandf, ssm, uthr - real(kind_phys), dimension(ims:ime, kms:kme, jms:jme, num_moist), intent(out) :: moist - real(kind_phys), dimension(ims:ime, kms:kme, jms:jme, num_chem), intent(out) :: chem + real(kind_phys), dimension(ims:ime, kms:kme, jms:jme, num_moist), intent(out) :: moist + real(kind_phys), dimension(ims:ime, kms:kme, jms:jme, num_chem), intent(out) :: chem - real(kind_phys), dimension(ims:ime, kms:kme, jms:jme), intent(out) :: z_at_w - real(kind_phys), dimension(ims:ime, nsoil, jms:jme), intent(out) :: smois + real(kind_phys), dimension(ims:ime, kms:kme, jms:jme), intent(out) :: z_at_w + real(kind_phys), dimension(ims:ime, nsoil, jms:jme), intent(out) :: smois - ! -- local variables + ! -- local variables ! real(kind=kind_phys), dimension(ims:ime, kms:kme, jms:jme) :: p_phy - real(kind_phys) :: factor,factor2,pu,pl - integer i,ip,j,jp,k,kp,kk,kkp,nv,l,ll,n - - - ! -- initialize output arrays - isltyp = 0._kind_phys - ivgtyp = 0._kind_phys - rri = 0._kind_phys - t_phy = 0._kind_phys - u_phy = 0._kind_phys - v_phy = 0._kind_phys - p_phy = 0._kind_phys - rho_phy = 0._kind_phys - dz8w = 0._kind_phys - p8w = 0._kind_phys - t8w = 0._kind_phys - u10 = 0._kind_phys - v10 = 0._kind_phys - ust = 0._kind_phys - tsk = 0._kind_phys - xland = 0._kind_phys - xlat = 0._kind_phys - xlong = 0._kind_phys - dxy = 0._kind_phys - vegfrac = 0._kind_phys - rmol = 0._kind_phys - gsw = 0._kind_phys - znt = 0._kind_phys - hfx = 0._kind_phys - pbl = 0._kind_phys - snowh = 0._kind_phys - clayf = 0._kind_phys - rdrag = 0._kind_phys - sandf = 0._kind_phys - ssm = 0._kind_phys - uthr = 0._kind_phys - moist = 0._kind_phys - chem = 0._kind_phys - z_at_w = 0._kind_phys - - - do i=its,ite - u10 (i,1)=u10m (i) - v10 (i,1)=v10m (i) - tsk (i,1)=ts2d (i) - ust (i,1)=ustar(i) - dxy (i,1)=garea(i) - xland(i,1)=real(land(i)) - xlat (i,1)=rlat(i)*180./pi - xlong(i,1)=rlon(i)*180./pi - gsw (i,1)=dswsfc(i) - znt (i,1)=zorl(i)*0.01 - hfx (i,1)=hf2d(i) - pbl (i,1)=pb2d(i) - snowh(i,1)=snow_cplchm(i)*0.001 - clayf(i,1)=dust_in(i,1) - rdrag(i,1)=dust_in(i,2) - sandf(i,1)=dust_in(i,3) - ssm (i,1)=dust_in(i,4) - uthr (i,1)=dust_in(i,5) - ivgtyp (i,1)=vegtype(i) - isltyp (i,1)=soiltyp(i) - vegfrac(i,1)=sigmaf (i) - erod (i,1,1)=emi_in(i,8) ! --ero1 - erod (i,1,2)=emi_in(i,9) ! --ero2 - erod (i,1,3)=emi_in(i,10)! --ero3 - enddo - - rmol=0. - - do k=1,nsoil - do j=jts,jte + real(kind_phys) :: factor,factor2,pu,pl + integer i,ip,j,jp,k,kp,kk,kkp,nv,l,ll,n + + + ! -- initialize output arrays + isltyp = 0._kind_phys + ivgtyp = 0._kind_phys + rri = 0._kind_phys + t_phy = 0._kind_phys + u_phy = 0._kind_phys + v_phy = 0._kind_phys + p_phy = 0._kind_phys + rho_phy = 0._kind_phys + dz8w = 0._kind_phys + p8w = 0._kind_phys + t8w = 0._kind_phys + u10 = 0._kind_phys + v10 = 0._kind_phys + ust = 0._kind_phys + tsk = 0._kind_phys + xland = 0._kind_phys + xlat = 0._kind_phys + xlong = 0._kind_phys + dxy = 0._kind_phys + vegfrac = 0._kind_phys + rmol = 0._kind_phys + gsw = 0._kind_phys + znt = 0._kind_phys + hfx = 0._kind_phys + pbl = 0._kind_phys + snowh = 0._kind_phys + clayf = 0._kind_phys + rdrag = 0._kind_phys + sandf = 0._kind_phys + ssm = 0._kind_phys + uthr = 0._kind_phys + moist = 0._kind_phys + chem = 0._kind_phys + z_at_w = 0._kind_phys + + do i=its,ite - smois(i,k,j)=smc(i,k) + u10 (i,1)=u10m (i) + v10 (i,1)=v10m (i) + tsk (i,1)=ts2d (i) + ust (i,1)=ustar(i) + dxy (i,1)=garea(i) + xland(i,1)=real(land(i)) + xlat (i,1)=rlat(i)*180./pi + xlong(i,1)=rlon(i)*180./pi + gsw (i,1)=dswsfc(i) + znt (i,1)=zorl(i)*0.01 + hfx (i,1)=hf2d(i) + pbl (i,1)=pb2d(i) + snowh(i,1)=snow_cplchm(i)*0.001 + clayf(i,1)=dust_in(i,1) + rdrag(i,1)=dust_in(i,2) + sandf(i,1)=dust_in(i,3) + ssm (i,1)=dust_in(i,4) + uthr (i,1)=dust_in(i,5) + ivgtyp (i,1)=vegtype(i) + isltyp (i,1)=soiltyp(i) + vegfrac(i,1)=sigmaf (i) + erod (i,1,1)=emi_in(i,8) ! --ero1 + erod (i,1,2)=emi_in(i,9) ! --ero2 + erod (i,1,3)=emi_in(i,10)! --ero3 enddo - enddo - enddo - do j=jts,jte - jp = j - jts + 1 - do i=its,ite - ip = i - its + 1 - z_at_w(i,kts,j)=max(0.,ph3d(ip,1)/g) + rmol=0. + + do k=1,nsoil + do j=jts,jte + do i=its,ite + smois(i,k,j)=smc(i,k) + enddo + enddo enddo - enddo - do j=jts,jte - jp = j - jts + 1 - do k=kts,kte - kp = k - kts + 1 - do i=its,ite - ip = i - its + 1 - dz8w(i,k,j)=abs(ph3d(ip,kp+1)-ph3d(ip,kp))/g - z_at_w(i,k+1,j)=z_at_w(i,k,j)+dz8w(i,k,j) - enddo + do j=jts,jte + jp = j - jts + 1 + do i=its,ite + ip = i - its + 1 + z_at_w(i,kts,j)=max(0.,ph3d(ip,1)/g) + enddo enddo - enddo - - do j=jts,jte - jp = j - jts + 1 - do k=kts,kte+1 - kp = k - kts + 1 - do i=its,ite - ip = i - its + 1 - p8w(i,k,j)=pr3d(ip,kp) - enddo + + do j=jts,jte + jp = j - jts + 1 + do k=kts,kte + kp = k - kts + 1 + do i=its,ite + ip = i - its + 1 + dz8w(i,k,j)=abs(ph3d(ip,kp+1)-ph3d(ip,kp))/g + z_at_w(i,k+1,j)=z_at_w(i,k,j)+dz8w(i,k,j) + enddo + enddo enddo - enddo - - do j=jts,jte - jp = j - jts + 1 - do k=kts,kte+1 - kk=min(k,kte) - kkp = kk - kts + 1 - do i=its,ite - ip = i - its + 1 - dz8w(i,k,j)=z_at_w(i,kk+1,j)-z_at_w(i,kk,j) - t_phy(i,k,j)=tk3d(ip,kkp) - p_phy(i,k,j)=prl3d(ip,kkp) - u_phy(i,k,j)=us3d(ip,kkp) - v_phy(i,k,j)=vs3d(ip,kkp) - rho_phy(i,k,j)=p_phy(i,k,j)/(287.04*t_phy(i,k,j)*(1.+.608*spechum(ip,kkp))) - rri(i,k,j)=1./rho_phy(i,k,j) - moist(i,k,j,:)=0. - moist(i,k,j,1)=gq0(ip,kkp,p_atm_shum) - if (t_phy(i,k,j) > 265.) then - moist(i,k,j,2)=gq0(ip,kkp,p_atm_cldq) - moist(i,k,j,3)=0. - if (moist(i,k,j,2) < 1.e-8) moist(i,k,j,2)=0. - else - moist(i,k,j,2)=0. - moist(i,k,j,3)=gq0(ip,kkp,p_atm_cldq) - if(moist(i,k,j,3) < 1.e-8)moist(i,k,j,3)=0. - endif - !-- - enddo + + do j=jts,jte + jp = j - jts + 1 + do k=kts,kte+1 + kp = k - kts + 1 + do i=its,ite + ip = i - its + 1 + p8w(i,k,j)=pr3d(ip,kp) + enddo + enddo enddo - enddo - do j=jts,jte - do k=2,kte - do i=its,ite - t8w(i,k,j)=.5*(t_phy(i,k,j)+t_phy(i,k-1,j)) - enddo + do j=jts,jte + jp = j - jts + 1 + do k=kts,kte+1 + kk=min(k,kte) + kkp = kk - kts + 1 + do i=its,ite + ip = i - its + 1 + dz8w(i,k,j)=z_at_w(i,kk+1,j)-z_at_w(i,kk,j) + t_phy(i,k,j)=tk3d(ip,kkp) + p_phy(i,k,j)=prl3d(ip,kkp) + u_phy(i,k,j)=us3d(ip,kkp) + v_phy(i,k,j)=vs3d(ip,kkp) + rho_phy(i,k,j)=p_phy(i,k,j)/(287.04*t_phy(i,k,j)*(1.+.608*spechum(ip,kkp))) + rri(i,k,j)=1./rho_phy(i,k,j) + moist(i,k,j,:)=0. + moist(i,k,j,1)=gq0(ip,kkp,p_atm_shum) + if (t_phy(i,k,j) > 265.) then + moist(i,k,j,2)=gq0(ip,kkp,p_atm_cldq) + moist(i,k,j,3)=0. + if (moist(i,k,j,2) < 1.e-8) moist(i,k,j,2)=0. + else + moist(i,k,j,2)=0. + moist(i,k,j,3)=gq0(ip,kkp,p_atm_cldq) + if(moist(i,k,j,3) < 1.e-8)moist(i,k,j,3)=0. + endif + !-- + enddo + enddo enddo - enddo - ! -- only used in phtolysis.... - do j=jts,jte - do i=its,ite - t8w(i,1,j)=t_phy(i,1,j) - t8w(i,kte+1,j)=t_phy(i,kte,j) + do j=jts,jte + do k=2,kte + do i=its,ite + t8w(i,k,j)=.5*(t_phy(i,k,j)+t_phy(i,k-1,j)) + enddo + enddo + enddo + + ! -- only used in phtolysis.... + do j=jts,jte + do i=its,ite + t8w(i,1,j)=t_phy(i,1,j) + t8w(i,kte+1,j)=t_phy(i,kte,j) + enddo enddo - enddo - - do k=kms,kte - do i=ims,ime - chem(i,k,jts,p_dust_1)=max(epsilc,gq0(i,k,ntdust1)/ppm2ugkg(p_dust_1)) - chem(i,k,jts,p_dust_2)=max(epsilc,gq0(i,k,ntdust2)/ppm2ugkg(p_dust_2)) - chem(i,k,jts,p_dust_3)=max(epsilc,gq0(i,k,ntdust3)/ppm2ugkg(p_dust_3)) - chem(i,k,jts,p_dust_4)=max(epsilc,gq0(i,k,ntdust4)/ppm2ugkg(p_dust_4)) - chem(i,k,jts,p_dust_5)=max(epsilc,gq0(i,k,ntdust5)/ppm2ugkg(p_dust_5)) - enddo - enddo + + do k=kms,kte + do i=ims,ime + chem(i,k,jts,p_dust_1)=max(epsilc,gq0(i,k,ntdust1)/ppm2ugkg(p_dust_1)) + chem(i,k,jts,p_dust_2)=max(epsilc,gq0(i,k,ntdust2)/ppm2ugkg(p_dust_2)) + chem(i,k,jts,p_dust_3)=max(epsilc,gq0(i,k,ntdust3)/ppm2ugkg(p_dust_3)) + chem(i,k,jts,p_dust_4)=max(epsilc,gq0(i,k,ntdust4)/ppm2ugkg(p_dust_4)) + chem(i,k,jts,p_dust_5)=max(epsilc,gq0(i,k,ntdust5)/ppm2ugkg(p_dust_5)) + enddo + enddo - ! -- real-time application, keeping eruption constant + ! -- real-time application, keeping eruption constant - end subroutine catchem_prep_dust + end subroutine catchem_prep_dust !> @} - end module catchem_dust_wrapper +end module catchem_dust_wrapper diff --git a/drivers/ccpp/catchem_gocart_wrapper.F90 b/drivers/ccpp/catchem_gocart_wrapper.F90 index 3af71c4a..9c445611 100644 --- a/drivers/ccpp/catchem_gocart_wrapper.F90 +++ b/drivers/ccpp/catchem_gocart_wrapper.F90 @@ -4,7 +4,7 @@ !! Revision History: !! 05/2023, Restructure for CATChem, Jian.He@noaa.gov - module catchem_gocart_wrapper +module catchem_gocart_wrapper use physcons, only : g => con_g, pi => con_pi use machine , only : kind_phys @@ -23,19 +23,19 @@ module catchem_gocart_wrapper !> \brief Brief description of the subroutine !! - subroutine catchem_gocart_wrapper_init() - end subroutine catchem_gocart_wrapper_init + subroutine catchem_gocart_wrapper_init() + end subroutine catchem_gocart_wrapper_init !> \brief Brief description of the subroutine !! !! \section arg_table_catchem_gocart_wrapper_finalize Argument Table !! - subroutine catchem_gocart_wrapper_finalize() - end subroutine catchem_gocart_wrapper_finalize + subroutine catchem_gocart_wrapper_finalize() + end subroutine catchem_gocart_wrapper_finalize !> \defgroup catchem_group CATChem gocart wrapper Module !! This is the Configurable ATmospheric Chemistry (CATChem) -!>\defgroup catchem_gocart_wrapper CATChem gocart wrapper Module +!>\defgroup catchem_gocart_wrapper CATChem gocart wrapper Module !> \ingroup catchem_gocart_group !! This is the CATChem gocart wrapper Module !! \section arg_table_catchem_gocart_wrapper_run Argument Table @@ -43,426 +43,426 @@ end subroutine catchem_gocart_wrapper_finalize !! !>\section catchem_gocart_wrapper CATChem Scheme General Algorithm !> @{ - subroutine catchem_gocart_wrapper_run(im, kte, kme, ktau, dt, garea, & - rlat, rlon, julian, xcosz, & - pr3d, ph3d, prl3d, tk3d, spechum, idat, emi2_in, ntrac, & - ntso2, ntsulf, ntDMS, ntmsa, ntpp25, & - ntbc1, ntbc2, ntoc1, ntoc2, ntpp10, & - chem_in_opt,chem_opt_in, & - gq0, qgrs, tile_num, errmsg, errflg) - - implicit none - - - integer, intent(in) :: im,kte,kme,ktau,idat(8),tile_num - integer, intent(in) :: ntrac - integer, intent(in) :: ntso2,ntpp25,ntbc1,ntoc1,ntpp10 - integer, intent(in) :: ntsulf,ntbc2,ntoc2,ntDMS,ntmsa - real(kind_phys),intent(in) :: dt,julian - - integer, parameter :: ids=1,jds=1,jde=1, kds=1 - integer, parameter :: ims=1,jms=1,jme=1, kms=1 - integer, parameter :: its=1,jts=1,jte=1, kts=1 - - real(kind_phys), dimension(im,64, 3), intent(in) :: emi2_in - real(kind_phys), dimension(im), intent(in) :: garea, rlat,rlon, xcosz - real(kind_phys), dimension(im,kme), intent(in) :: ph3d, pr3d - real(kind_phys), dimension(im,kte), intent(in) :: prl3d, tk3d, spechum - real(kind_phys), dimension(im,kte,ntrac), intent(inout) :: gq0, qgrs - integer, intent(in) :: chem_in_opt - integer, intent(in) :: chem_opt_in - character(len=*), intent(out) :: errmsg - integer, intent(out) :: errflg - - real(kind_phys), dimension(1:im, 1:kme,jms:jme) :: rri, t_phy, & - p_phy, dz8w, p8w, t8w, rho_phy - - real(kind_phys), dimension(ims:im, jms:jme) :: xlat, xlong, dxy + subroutine catchem_gocart_wrapper_run(im, kte, kme, ktau, dt, garea, & + rlat, rlon, julian, xcosz, & + pr3d, ph3d, prl3d, tk3d, spechum, idat, emi2_in, ntrac, & + ntso2, ntsulf, ntDMS, ntmsa, ntpp25, & + ntbc1, ntbc2, ntoc1, ntoc2, ntpp10, & + chem_in_opt,chem_opt_in, & + gq0, qgrs, tile_num, errmsg, errflg) + + implicit none + + + integer, intent(in) :: im,kte,kme,ktau,idat(8),tile_num + integer, intent(in) :: ntrac + integer, intent(in) :: ntso2,ntpp25,ntbc1,ntoc1,ntpp10 + integer, intent(in) :: ntsulf,ntbc2,ntoc2,ntDMS,ntmsa + real(kind_phys),intent(in) :: dt,julian + + integer, parameter :: ids=1,jds=1,jde=1, kds=1 + integer, parameter :: ims=1,jms=1,jme=1, kms=1 + integer, parameter :: its=1,jts=1,jte=1, kts=1 + + real(kind_phys), dimension(im,64, 3), intent(in) :: emi2_in + real(kind_phys), dimension(im), intent(in) :: garea, rlat,rlon, xcosz + real(kind_phys), dimension(im,kme), intent(in) :: ph3d, pr3d + real(kind_phys), dimension(im,kte), intent(in) :: prl3d, tk3d, spechum + real(kind_phys), dimension(im,kte,ntrac), intent(inout) :: gq0, qgrs + integer, intent(in) :: chem_in_opt + integer, intent(in) :: chem_opt_in + character(len=*), intent(out) :: errmsg + integer, intent(out) :: errflg + + real(kind_phys), dimension(1:im, 1:kme,jms:jme) :: rri, t_phy, & + p_phy, dz8w, p8w, t8w, rho_phy + + real(kind_phys), dimension(ims:im, jms:jme) :: xlat, xlong, dxy !>- chemistry variables - real(kind_phys), dimension(ims:im, kms:kme, jms:jme, 1:num_moist) :: moist - real(kind_phys), dimension(ims:im, kms:kme, jms:jme, 1:num_chem ) :: chem + real(kind_phys), dimension(ims:im, kms:kme, jms:jme, 1:num_moist) :: moist + real(kind_phys), dimension(ims:im, kms:kme, jms:jme, 1:num_chem ) :: chem - integer :: ide, ime, ite, kde, julday + integer :: ide, ime, ite, kde, julday ! integer, parameter :: SEAS_OPT_DEFAULT = 1 ! integer, parameter :: chem_in_opt = 0 ! 0 for coldstart, 1 for restart - logical, parameter :: readrestart = .false. - integer, parameter :: nvl_gocart = 64 ! number of input levels from gocart file - - real(kind_phys), dimension(ims:im, kms:kme, jms:jme) :: pm10, pm2_5_dry, pm2_5_dry_ec + logical, parameter :: readrestart = .false. + integer, parameter :: nvl_gocart = 64 ! number of input levels from gocart file + + real(kind_phys), dimension(ims:im, kms:kme, jms:jme) :: pm10, pm2_5_dry, pm2_5_dry_ec !>- chemical background variables - real(kind_phys), dimension(ims:im, kms:kme, jms:jme) :: backg_oh,backg_h2o2,backg_no3 + real(kind_phys), dimension(ims:im, kms:kme, jms:jme) :: backg_oh,backg_h2o2,backg_no3 - real(kind_phys), dimension(ims:im, kms:kme, jms:jme) :: oh_t, h2o2_t, no3_t - real(kind_phys), dimension(ims:im, jms:jme) :: ttday, tcosz + real(kind_phys), dimension(ims:im, kms:kme, jms:jme) :: oh_t, h2o2_t, no3_t + real(kind_phys), dimension(ims:im, jms:jme) :: ttday, tcosz - real(kind_phys) :: dtstep, gmt - real(kind_phys), dimension(1:num_chem) :: ppm2ugkg + real(kind_phys) :: dtstep, gmt + real(kind_phys), dimension(1:num_chem) :: ppm2ugkg - ! -- output tracers - real(kind_phys), dimension(ims:im, jms:jme, 1:kme) :: p10, pm25!, ebu_oc - real(kind_phys), dimension(ims:im, jms:jme, 1:kme) :: oh_bg, h2o2_bg, no3_bg + ! -- output tracers + real(kind_phys), dimension(ims:im, jms:jme, 1:kme) :: p10, pm25!, ebu_oc + real(kind_phys), dimension(ims:im, jms:jme, 1:kme) :: oh_bg, h2o2_bg, no3_bg !>-- local variables - logical :: call_gocart - integer :: i, j, jp, k, kp, n - + logical :: call_gocart + integer :: i, j, jp, k, kp, n + - errmsg = '' - errflg = 0 + errmsg = '' + errflg = 0 - chem_opt = chem_opt_in + chem_opt = chem_opt_in - gmt = real(idat(5)) - julday = real(julian) + gmt = real(idat(5)) + julday = real(julian) - ! -- set domain - ide=im - ime=im - ite=im - kde=kte + ! -- set domain + ide=im + ime=im + ite=im + kde=kte - ! -- volume to mass fraction conversion table (ppm -> ug/kg) - ppm2ugkg = 1._kind_phys - !ppm2ugkg(p_so2 ) = 1.e+03_kind_phys * mw_so2_aer / mwdry - ppm2ugkg(p_sulf) = 1.e+03_kind_phys * mw_so4_aer / mwdry + ! -- volume to mass fraction conversion table (ppm -> ug/kg) + ppm2ugkg = 1._kind_phys + !ppm2ugkg(p_so2 ) = 1.e+03_kind_phys * mw_so2_aer / mwdry + ppm2ugkg(p_sulf) = 1.e+03_kind_phys * mw_so4_aer / mwdry - ! -- set control flags - call_gocart = (mod(ktau, call_chemistry) == 0) .or. (ktau == 1) + ! -- set control flags + call_gocart = (mod(ktau, call_chemistry) == 0) .or. (ktau == 1) - ! -- compute accumulated large-scale and convective rainfall since last call - if (ktau > 1) then - dtstep = call_chemistry * dt - else - dtstep = dt - end if + ! -- compute accumulated large-scale and convective rainfall since last call + if (ktau > 1) then + dtstep = call_chemistry * dt + else + dtstep = dt + end if !!! !>- get ready for chemistry run - call catchem_gocart_prep( & - readrestart,chem_in_opt,ktau,dtstep,xcosz, & - garea,rlat,rlon, & - pr3d,ph3d,tk3d,prl3d,spechum, & - emi2_in, & - xlat,xlong,dxy, & - rri,t_phy,p_phy,rho_phy,dz8w,p8w, & - t8w, & - ntso2,ntsulf,ntDMS,ntmsa,ntpp25, & - ntbc1,ntbc2,ntoc1,ntoc2,ntpp10, & - ntrac,gq0, & - num_chem, num_moist, & - call_gocart,nvl_gocart, & - ttday,tcosz,gmt,julday, & - backg_oh,backg_h2o2,backg_no3, & - ppm2ugkg, & - moist,chem, & - ids,ide, jds,jde, kds,kde, & - ims,ime, jms,jme, kms,kme, & - its,ite, jts,jte, kts,kte) - !write (*,*) 'hli test2 ktau',call_gocart - - if (call_gocart) then - call gocart_chem_driver(ktau,dt,dtstep,gmt,julday,xcosz, & - t_phy,moist,chem,rho_phy,dz8w,p8w,backg_oh,oh_t, & - backg_h2o2,h2o2_t,backg_no3,no3_t, & - dxy,g,xlat,xlong,ttday,tcosz, & - chem_opt,num_chem,num_moist, & - ids,ide, jds,jde, kds,kde, & - ims,ime, jms,jme, kms,kme, & - its,ite, jts,jte, kts,kte ) - call gocart_aerosols_driver(ktau,dtstep,t_phy,moist, & - chem,rho_phy,dz8w,p8w,dxy,g, & - chem_opt,num_chem,num_moist, & - ids,ide, jds,jde, kds,kde, & - ims,ime, jms,jme, kms,kme, & - its,ite, jts,jte, kts,kte ) - endif - - call sum_pm_gocart ( & + call catchem_gocart_prep( & + readrestart,chem_in_opt,ktau,dtstep,xcosz, & + garea,rlat,rlon, & + pr3d,ph3d,tk3d,prl3d,spechum, & + emi2_in, & + xlat,xlong,dxy, & + rri,t_phy,p_phy,rho_phy,dz8w,p8w, & + t8w, & + ntso2,ntsulf,ntDMS,ntmsa,ntpp25, & + ntbc1,ntbc2,ntoc1,ntoc2,ntpp10, & + ntrac,gq0, & + num_chem, num_moist, & + call_gocart,nvl_gocart, & + ttday,tcosz,gmt,julday, & + backg_oh,backg_h2o2,backg_no3, & + ppm2ugkg, & + moist,chem, & + ids,ide, jds,jde, kds,kde, & + ims,ime, jms,jme, kms,kme, & + its,ite, jts,jte, kts,kte) + !write (*,*) 'hli test2 ktau',call_gocart + + if (call_gocart) then + call gocart_chem_driver(ktau,dt,dtstep,gmt,julday,xcosz, & + t_phy,moist,chem,rho_phy,dz8w,p8w,backg_oh,oh_t, & + backg_h2o2,h2o2_t,backg_no3,no3_t, & + dxy,g,xlat,xlong,ttday,tcosz, & + chem_opt,num_chem,num_moist, & + ids,ide, jds,jde, kds,kde, & + ims,ime, jms,jme, kms,kme, & + its,ite, jts,jte, kts,kte ) + call gocart_aerosols_driver(ktau,dtstep,t_phy,moist, & + chem,rho_phy,dz8w,p8w,dxy,g, & + chem_opt,num_chem,num_moist, & + ids,ide, jds,jde, kds,kde, & + ims,ime, jms,jme, kms,kme, & + its,ite, jts,jte, kts,kte ) + endif + + call sum_pm_gocart ( & rri, chem,pm2_5_dry, pm2_5_dry_ec, pm10, & num_chem,chem_opt, & ids,ide, jds,jde, kds,kde, & ims,ime, jms,jme, kms,kme, & its,ite, jts,jte, kts,kte) - ! -- pm25 and pm10 for output , not for tracer options - do j = jts, jte - do k = kts, kte - do i = its, ite - pm25 (i,j,k) = pm2_5_dry(i,k,j) - p10 (i,j,k) = pm10 (i,k,j) - !ebu_oc(i,j,k) = ebu (i,k,j,p_ebu_oc) - end do - end do - end do - - if (call_gocart) then + ! -- pm25 and pm10 for output , not for tracer options do j = jts, jte - do k = kts, kte - do i = its, ite - oh_bg (i,j,k) = max(0., oh_t (i,k,j)) - h2o2_bg(i,j,k) = max(0., h2o2_t(i,k,j)) - no3_bg (i,j,k) = max(0., no3_t (i,k,j)) - end do - end do + do k = kts, kte + do i = its, ite + pm25 (i,j,k) = pm2_5_dry(i,k,j) + p10 (i,j,k) = pm10 (i,k,j) + !ebu_oc(i,j,k) = ebu (i,k,j,p_ebu_oc) + end do + end do end do - end if - - - ! -- put chem stuff back into tracer array - do k=kts,kte - do i=its,ite - gq0(i,k,ntso2 )=ppm2ugkg(p_so2 ) * max(epsilc,chem(i,k,1,p_so2)) - gq0(i,k,ntsulf )=ppm2ugkg(p_sulf ) * max(epsilc,chem(i,k,1,p_sulf)) - gq0(i,k,ntdms )=ppm2ugkg(p_dms ) * max(epsilc,chem(i,k,1,p_dms)) - gq0(i,k,ntmsa )=ppm2ugkg(p_msa ) * max(epsilc,chem(i,k,1,p_msa)) - gq0(i,k,ntpp25 )=ppm2ugkg(p_p25 ) * max(epsilc,chem(i,k,1,p_p25)) - gq0(i,k,ntbc1 )=ppm2ugkg(p_bc1 ) * max(epsilc,chem(i,k,1,p_bc1)) - gq0(i,k,ntbc2 )=ppm2ugkg(p_bc2 ) * max(epsilc,chem(i,k,1,p_bc2)) - gq0(i,k,ntoc1 )=ppm2ugkg(p_oc1 ) * max(epsilc,chem(i,k,1,p_oc1)) - gq0(i,k,ntoc2 )=ppm2ugkg(p_oc2 ) * max(epsilc,chem(i,k,1,p_oc2)) - gq0(i,k,ntpp10 )=ppm2ugkg(p_p10 ) * max(epsilc,chem(i,k,1,p_p10)) - enddo - enddo - - do k=kts,kte - do i=its,ite - qgrs(i,k,ntso2 )=gq0(i,k,ntso2 ) - qgrs(i,k,ntsulf )=gq0(i,k,ntsulf ) - qgrs(i,k,ntdms )=gq0(i,k,ntdms ) - qgrs(i,k,ntmsa )=gq0(i,k,ntmsa ) - qgrs(i,k,ntpp25 )=gq0(i,k,ntpp25 ) - qgrs(i,k,ntbc1 )=gq0(i,k,ntbc1 ) - qgrs(i,k,ntbc2 )=gq0(i,k,ntbc2 ) - qgrs(i,k,ntoc1 )=gq0(i,k,ntoc1 ) - qgrs(i,k,ntoc2 )=gq0(i,k,ntoc2 ) - qgrs(i,k,ntpp10 )=gq0(i,k,ntpp10 ) - enddo - enddo + + if (call_gocart) then + do j = jts, jte + do k = kts, kte + do i = its, ite + oh_bg (i,j,k) = max(0., oh_t (i,k,j)) + h2o2_bg(i,j,k) = max(0., h2o2_t(i,k,j)) + no3_bg (i,j,k) = max(0., no3_t (i,k,j)) + end do + end do + end do + end if + + + ! -- put chem stuff back into tracer array + do k=kts,kte + do i=its,ite + gq0(i,k,ntso2 )=ppm2ugkg(p_so2 ) * max(epsilc,chem(i,k,1,p_so2)) + gq0(i,k,ntsulf )=ppm2ugkg(p_sulf ) * max(epsilc,chem(i,k,1,p_sulf)) + gq0(i,k,ntdms )=ppm2ugkg(p_dms ) * max(epsilc,chem(i,k,1,p_dms)) + gq0(i,k,ntmsa )=ppm2ugkg(p_msa ) * max(epsilc,chem(i,k,1,p_msa)) + gq0(i,k,ntpp25 )=ppm2ugkg(p_p25 ) * max(epsilc,chem(i,k,1,p_p25)) + gq0(i,k,ntbc1 )=ppm2ugkg(p_bc1 ) * max(epsilc,chem(i,k,1,p_bc1)) + gq0(i,k,ntbc2 )=ppm2ugkg(p_bc2 ) * max(epsilc,chem(i,k,1,p_bc2)) + gq0(i,k,ntoc1 )=ppm2ugkg(p_oc1 ) * max(epsilc,chem(i,k,1,p_oc1)) + gq0(i,k,ntoc2 )=ppm2ugkg(p_oc2 ) * max(epsilc,chem(i,k,1,p_oc2)) + gq0(i,k,ntpp10 )=ppm2ugkg(p_p10 ) * max(epsilc,chem(i,k,1,p_p10)) + enddo + enddo + + do k=kts,kte + do i=its,ite + qgrs(i,k,ntso2 )=gq0(i,k,ntso2 ) + qgrs(i,k,ntsulf )=gq0(i,k,ntsulf ) + qgrs(i,k,ntdms )=gq0(i,k,ntdms ) + qgrs(i,k,ntmsa )=gq0(i,k,ntmsa ) + qgrs(i,k,ntpp25 )=gq0(i,k,ntpp25 ) + qgrs(i,k,ntbc1 )=gq0(i,k,ntbc1 ) + qgrs(i,k,ntbc2 )=gq0(i,k,ntbc2 ) + qgrs(i,k,ntoc1 )=gq0(i,k,ntoc1 ) + qgrs(i,k,ntoc2 )=gq0(i,k,ntoc2 ) + qgrs(i,k,ntpp10 )=gq0(i,k,ntpp10 ) + enddo + enddo ! end subroutine catchem_gocart_wrapper_run !> @} subroutine catchem_gocart_prep( & - readrestart,chem_in_opt,ktau,dtstep,xcosz, & - garea,rlat,rlon, & - pr3d,ph3d,tk3d,prl3d,spechum, & - emi2_in, & - xlat,xlong,dxy, & - rri,t_phy,p_phy,rho_phy,dz8w,p8w, & - t8w, & - ntso2,ntsulf,ntDMS,ntmsa,ntpp25, & - ntbc1,ntbc2,ntoc1,ntoc2,ntpp10, & - ntrac,gq0, & - num_chem, num_moist, & - call_gocart,nvl_gocart, & - ttday,tcosz,gmt,julday, & - backg_oh,backg_h2o2,backg_no3, & - ppm2ugkg, & - moist,chem, & - ids,ide, jds,jde, kds,kde, & - ims,ime, jms,jme, kms,kme, & - its,ite, jts,jte, kts,kte) - - !Chem input configuration - logical, intent(in) :: readrestart - integer, intent(in) :: chem_in_opt, ktau, julday - real(kind=kind_phys), intent(in) :: dtstep, gmt - - !FV3 input variables - integer, intent(in) :: ntrac - integer, intent(in) :: ntso2,ntpp25,ntbc1,ntoc1,ntpp10 - integer, intent(in) :: ntsulf,ntbc2,ntoc2,ntDMS,ntmsa - real(kind=kind_phys), dimension(ims:ime), intent(in) :: garea, rlat, rlon, xcosz - real(kind=kind_phys), dimension(ims:ime, 64, 3), intent(in) :: emi2_in - real(kind=kind_phys), dimension(ims:ime, kms:kme), intent(in) :: pr3d,ph3d - real(kind=kind_phys), dimension(ims:ime, kts:kte), intent(in) :: & + readrestart,chem_in_opt,ktau,dtstep,xcosz, & + garea,rlat,rlon, & + pr3d,ph3d,tk3d,prl3d,spechum, & + emi2_in, & + xlat,xlong,dxy, & + rri,t_phy,p_phy,rho_phy,dz8w,p8w, & + t8w, & + ntso2,ntsulf,ntDMS,ntmsa,ntpp25, & + ntbc1,ntbc2,ntoc1,ntoc2,ntpp10, & + ntrac,gq0, & + num_chem, num_moist, & + call_gocart,nvl_gocart, & + ttday,tcosz,gmt,julday, & + backg_oh,backg_h2o2,backg_no3, & + ppm2ugkg, & + moist,chem, & + ids,ide, jds,jde, kds,kde, & + ims,ime, jms,jme, kms,kme, & + its,ite, jts,jte, kts,kte) + + !Chem input configuration + logical, intent(in) :: readrestart + integer, intent(in) :: chem_in_opt, ktau, julday + real(kind=kind_phys), intent(in) :: dtstep, gmt + + !FV3 input variables + integer, intent(in) :: ntrac + integer, intent(in) :: ntso2,ntpp25,ntbc1,ntoc1,ntpp10 + integer, intent(in) :: ntsulf,ntbc2,ntoc2,ntDMS,ntmsa + real(kind=kind_phys), dimension(ims:ime), intent(in) :: garea, rlat, rlon, xcosz + real(kind=kind_phys), dimension(ims:ime, 64, 3), intent(in) :: emi2_in + real(kind=kind_phys), dimension(ims:ime, kms:kme), intent(in) :: pr3d,ph3d + real(kind=kind_phys), dimension(ims:ime, kts:kte), intent(in) :: & tk3d,prl3d,spechum - real(kind=kind_phys), dimension(ims:ime, kts:kte,ntrac), intent(in) :: gq0 + real(kind=kind_phys), dimension(ims:ime, kts:kte,ntrac), intent(in) :: gq0 + + !GSD Chem variables + integer,intent(in) :: num_chem, num_moist, & + nvl_gocart + logical,intent(in) :: call_gocart + integer,intent(in) :: ids,ide, jds,jde, kds,kde, & + ims,ime, jms,jme, kms,kme, & + its,ite, jts,jte, kts,kte - !GSD Chem variables - integer,intent(in) :: num_chem, num_moist, & - nvl_gocart - logical,intent(in) :: call_gocart - integer,intent(in) :: ids,ide, jds,jde, kds,kde, & - ims,ime, jms,jme, kms,kme, & - its,ite, jts,jte, kts,kte + real(kind_phys), dimension(num_chem), intent(in) :: ppm2ugkg + real(kind_phys), dimension(ims:ime, kms:kme, jms:jme), intent(out) :: & + backg_oh,backg_h2o2,backg_no3 - real(kind_phys), dimension(num_chem), intent(in) :: ppm2ugkg - real(kind_phys), dimension(ims:ime, kms:kme, jms:jme), intent(out) :: & - backg_oh,backg_h2o2,backg_no3 - - real(kind_phys), dimension(ims:ime, kms:kme, jms:jme), intent(out) :: & + real(kind_phys), dimension(ims:ime, kms:kme, jms:jme), intent(out) :: & rri, t_phy, p_phy, rho_phy, dz8w, p8w, t8w - real(kind_phys), dimension(ims:ime, jms:jme), intent(out) :: & + real(kind_phys), dimension(ims:ime, jms:jme), intent(out) :: & xlat, xlong, dxy, & ttday, tcosz - real(kind_phys), dimension(ims:ime, kms:kme, jms:jme, num_moist), intent(out) :: moist - real(kind_phys), dimension(ims:ime, kms:kme, jms:jme, num_chem), intent(out) :: chem - - real(kind_phys), dimension(ims:ime, kms:kme, jms:jme) :: z_at_w - real(kind_phys), dimension(nvl_gocart) :: p_gocart - - ! -- local variables - real(kind_phys), dimension(ims:ime, jms:jme, nvl_gocart) :: oh_backgd,h2o2_backgd,no3_backgd - real(kind_phys) :: pu,pl,aln,pwant - real(kind_phys) :: xhour,xmin,gmtp,xlonn,xtime,real_time - real(kind_phys), DIMENSION (1,1) :: sza,cosszax - integer i,ip,j,jp,k,kp,kk,kkp,nv,jmax,jmaxi,l,ll,n,ndystep,ixhour - - p_gocart = (/ 1000., 992.5, 985., 977.5, 970., 955., 940., 925., 910., & - 895., 880., 865., 850., 825., 800., 775., 750., 712.5, 675., 637.5, 600., & - 562.5, 525., 487.5, 450., 412.5, 375., 337.5, 288.08, 244.88, 208.15, 176.93, & - 150.39, 127.84, 108.66, 92.37, 78.51, 66.6, 56.39, 47.64, 40.18, 33.81, 28.37, & - 23.73, 19.79, 16.46, 13.64, 11.28, 9.29, 7.62, 6.22, 5.05, 4.08, 3.28, 2.62, & - 2.08, 1.65, 1.3, 1.02, 0.8, 0.62, 0.48, 0.37, 0.28 /) - - ! -- initialize output arrays - backg_oh = 0._kind_phys - backg_h2o2 = 0._kind_phys - backg_no3 = 0._kind_phys - rri = 0._kind_phys - t_phy = 0._kind_phys - p_phy = 0._kind_phys - rho_phy = 0._kind_phys - dz8w = 0._kind_phys - p8w = 0._kind_phys - t8w = 0._kind_phys - xlat = 0._kind_phys - xlong = 0._kind_phys - dxy = 0._kind_phys - ttday = 0._kind_phys - tcosz = 0._kind_phys - moist = 0._kind_phys - chem = 0._kind_phys - z_at_w = 0._kind_phys - - - do i=its,ite - dxy (i,1)=garea(i) - xlat (i,1)=rlat(i)*180./pi - xlong(i,1)=rlon(i)*180./pi - enddo - - do j=jts,jte - jp = j - jts + 1 + real(kind_phys), dimension(ims:ime, kms:kme, jms:jme, num_moist), intent(out) :: moist + real(kind_phys), dimension(ims:ime, kms:kme, jms:jme, num_chem), intent(out) :: chem + + real(kind_phys), dimension(ims:ime, kms:kme, jms:jme) :: z_at_w + real(kind_phys), dimension(nvl_gocart) :: p_gocart + + ! -- local variables + real(kind_phys), dimension(ims:ime, jms:jme, nvl_gocart) :: oh_backgd,h2o2_backgd,no3_backgd + real(kind_phys) :: pu,pl,aln,pwant + real(kind_phys) :: xhour,xmin,gmtp,xlonn,xtime,real_time + real(kind_phys), DIMENSION (1,1) :: sza,cosszax + integer i,ip,j,jp,k,kp,kk,kkp,nv,jmax,jmaxi,l,ll,n,ndystep,ixhour + + p_gocart = (/ 1000., 992.5, 985., 977.5, 970., 955., 940., 925., 910., & + 895., 880., 865., 850., 825., 800., 775., 750., 712.5, 675., 637.5, 600., & + 562.5, 525., 487.5, 450., 412.5, 375., 337.5, 288.08, 244.88, 208.15, 176.93, & + 150.39, 127.84, 108.66, 92.37, 78.51, 66.6, 56.39, 47.64, 40.18, 33.81, 28.37, & + 23.73, 19.79, 16.46, 13.64, 11.28, 9.29, 7.62, 6.22, 5.05, 4.08, 3.28, 2.62, & + 2.08, 1.65, 1.3, 1.02, 0.8, 0.62, 0.48, 0.37, 0.28 /) + + ! -- initialize output arrays + backg_oh = 0._kind_phys + backg_h2o2 = 0._kind_phys + backg_no3 = 0._kind_phys + rri = 0._kind_phys + t_phy = 0._kind_phys + p_phy = 0._kind_phys + rho_phy = 0._kind_phys + dz8w = 0._kind_phys + p8w = 0._kind_phys + t8w = 0._kind_phys + xlat = 0._kind_phys + xlong = 0._kind_phys + dxy = 0._kind_phys + ttday = 0._kind_phys + tcosz = 0._kind_phys + moist = 0._kind_phys + chem = 0._kind_phys + z_at_w = 0._kind_phys + + do i=its,ite - ip = i - its + 1 - z_at_w(i,kts,j)=max(0.,ph3d(ip,1)/g) + dxy (i,1)=garea(i) + xlat (i,1)=rlat(i)*180./pi + xlong(i,1)=rlon(i)*180./pi enddo - enddo - do j=jts,jte - jp = j - jts + 1 - do k=kts,kte - kp = k - kts + 1 - do i=its,ite - ip = i - its + 1 - dz8w(i,k,j)=abs(ph3d(ip,kp+1)-ph3d(ip,kp))/g - z_at_w(i,k+1,j)=z_at_w(i,k,j)+dz8w(i,k,j) - enddo + do j=jts,jte + jp = j - jts + 1 + do i=its,ite + ip = i - its + 1 + z_at_w(i,kts,j)=max(0.,ph3d(ip,1)/g) + enddo enddo - enddo - - do j=jts,jte - jp = j - jts + 1 - do k=kts,kte+1 - kp = k - kts + 1 - do i=its,ite - ip = i - its + 1 - p8w(i,k,j)=pr3d(ip,kp) - enddo + + do j=jts,jte + jp = j - jts + 1 + do k=kts,kte + kp = k - kts + 1 + do i=its,ite + ip = i - its + 1 + dz8w(i,k,j)=abs(ph3d(ip,kp+1)-ph3d(ip,kp))/g + z_at_w(i,k+1,j)=z_at_w(i,k,j)+dz8w(i,k,j) + enddo + enddo enddo - enddo - - do j=jts,jte - jp = j - jts + 1 - do k=kts,kte+1 - kk=min(k,kte) - kkp = kk - kts + 1 - do i=its,ite - ip = i - its + 1 - dz8w(i,k,j)=z_at_w(i,kk+1,j)-z_at_w(i,kk,j) - t_phy(i,k,j)=tk3d(ip,kkp) - p_phy(i,k,j)=prl3d(ip,kkp) - rho_phy(i,k,j)=p_phy(i,k,j)/(287.04*t_phy(i,k,j)*(1.+.608*spechum(ip,kkp))) - rri(i,k,j)=1./rho_phy(i,k,j) - moist(i,k,j,:)=0. - moist(i,k,j,1)=gq0(ip,kkp,p_atm_shum) - if (t_phy(i,k,j) > 265.) then - moist(i,k,j,2)=gq0(ip,kkp,p_atm_cldq) - moist(i,k,j,3)=0. - if (moist(i,k,j,2) < 1.e-8) moist(i,k,j,2)=0. - else - moist(i,k,j,2)=0. - moist(i,k,j,3)=gq0(ip,kkp,p_atm_cldq) - if(moist(i,k,j,3) < 1.e-8)moist(i,k,j,3)=0. - endif - !-- - enddo + + do j=jts,jte + jp = j - jts + 1 + do k=kts,kte+1 + kp = k - kts + 1 + do i=its,ite + ip = i - its + 1 + p8w(i,k,j)=pr3d(ip,kp) + enddo + enddo enddo - enddo - do j=jts,jte - do k=2,kte - do i=its,ite - t8w(i,k,j)=.5*(t_phy(i,k,j)+t_phy(i,k-1,j)) - enddo + do j=jts,jte + jp = j - jts + 1 + do k=kts,kte+1 + kk=min(k,kte) + kkp = kk - kts + 1 + do i=its,ite + ip = i - its + 1 + dz8w(i,k,j)=z_at_w(i,kk+1,j)-z_at_w(i,kk,j) + t_phy(i,k,j)=tk3d(ip,kkp) + p_phy(i,k,j)=prl3d(ip,kkp) + rho_phy(i,k,j)=p_phy(i,k,j)/(287.04*t_phy(i,k,j)*(1.+.608*spechum(ip,kkp))) + rri(i,k,j)=1./rho_phy(i,k,j) + moist(i,k,j,:)=0. + moist(i,k,j,1)=gq0(ip,kkp,p_atm_shum) + if (t_phy(i,k,j) > 265.) then + moist(i,k,j,2)=gq0(ip,kkp,p_atm_cldq) + moist(i,k,j,3)=0. + if (moist(i,k,j,2) < 1.e-8) moist(i,k,j,2)=0. + else + moist(i,k,j,2)=0. + moist(i,k,j,3)=gq0(ip,kkp,p_atm_cldq) + if(moist(i,k,j,3) < 1.e-8)moist(i,k,j,3)=0. + endif + !-- + enddo + enddo enddo - enddo - ! -- only used in phtolysis.... - do j=jts,jte - do i=its,ite - t8w(i,1,j)=t_phy(i,1,j) - t8w(i,kte+1,j)=t_phy(i,kte,j) + do j=jts,jte + do k=2,kte + do i=its,ite + t8w(i,k,j)=.5*(t_phy(i,k,j)+t_phy(i,k-1,j)) + enddo + enddo enddo - enddo - - - - do k=kms,kte - do i=ims,ime - chem(i,k,jts,p_so2 )=max(epsilc,gq0(i,k,ntso2 )/ppm2ugkg(p_so2)) - chem(i,k,jts,p_sulf )=max(epsilc,gq0(i,k,ntsulf )/ppm2ugkg(p_sulf)) - chem(i,k,jts,p_dms )=max(epsilc,gq0(i,k,ntdms )/ppm2ugkg(p_dms)) - chem(i,k,jts,p_msa )=max(epsilc,gq0(i,k,ntmsa )/ppm2ugkg(p_msa)) - chem(i,k,jts,p_p25 )=max(epsilc,gq0(i,k,ntpp25 )/ppm2ugkg(p_p25)) - chem(i,k,jts,p_bc1 )=max(epsilc,gq0(i,k,ntbc1 )/ppm2ugkg(p_bc1)) - chem(i,k,jts,p_bc2 )=max(epsilc,gq0(i,k,ntbc2 )/ppm2ugkg(p_bc2)) - chem(i,k,jts,p_oc1 )=max(epsilc,gq0(i,k,ntoc1 )/ppm2ugkg(p_oc1)) - chem(i,k,jts,p_oc2 )=max(epsilc,gq0(i,k,ntoc2 )/ppm2ugkg(p_oc2)) - chem(i,k,jts,p_p10 )=max(epsilc,gq0(i,k,ntpp10 )/ppm2ugkg(p_p10)) - enddo - enddo - - if (.NOT. readrestart) then - if (chem_in_opt == 0 ) then - if(ktau.le.1)then + + ! -- only used in phtolysis.... + do j=jts,jte + do i=its,ite + t8w(i,1,j)=t_phy(i,1,j) + t8w(i,kte+1,j)=t_phy(i,kte,j) + enddo + enddo + + + + do k=kms,kte + do i=ims,ime + chem(i,k,jts,p_so2 )=max(epsilc,gq0(i,k,ntso2 )/ppm2ugkg(p_so2)) + chem(i,k,jts,p_sulf )=max(epsilc,gq0(i,k,ntsulf )/ppm2ugkg(p_sulf)) + chem(i,k,jts,p_dms )=max(epsilc,gq0(i,k,ntdms )/ppm2ugkg(p_dms)) + chem(i,k,jts,p_msa )=max(epsilc,gq0(i,k,ntmsa )/ppm2ugkg(p_msa)) + chem(i,k,jts,p_p25 )=max(epsilc,gq0(i,k,ntpp25 )/ppm2ugkg(p_p25)) + chem(i,k,jts,p_bc1 )=max(epsilc,gq0(i,k,ntbc1 )/ppm2ugkg(p_bc1)) + chem(i,k,jts,p_bc2 )=max(epsilc,gq0(i,k,ntbc2 )/ppm2ugkg(p_bc2)) + chem(i,k,jts,p_oc1 )=max(epsilc,gq0(i,k,ntoc1 )/ppm2ugkg(p_oc1)) + chem(i,k,jts,p_oc2 )=max(epsilc,gq0(i,k,ntoc2 )/ppm2ugkg(p_oc2)) + chem(i,k,jts,p_p10 )=max(epsilc,gq0(i,k,ntpp10 )/ppm2ugkg(p_p10)) + enddo + enddo + + if (.NOT. readrestart) then + if (chem_in_opt == 0 ) then + if(ktau.le.1)then ! if(chem_opt > 0 ) then - do j=jts,jte - jp = j - jts + 1 - do k=kts,kte - do i=its,ite - ip = i - its + 1 - if (chem_opt == CHEM_OPT_GOCART) then - do n=1,num_chem - chem(i,k,j,n)=1.e-30 - enddo - endif ! chem_opt==300 - if ((chem_opt > CHEM_OPT_GOCART) .and. (chem_opt < CHEM_OPT_MAX)) then - chem(i,k,j,p_so2)=5.e-10 - chem(i,k,j,p_sulf)=3.e-10 - chem(i,k,j,p_msa)=1.e-10 - chem(i,k,j,p_dms)=1.e-10 - endif !chem_opt >= 300 .and. chem_opt < 500 + do j=jts,jte + jp = j - jts + 1 + do k=kts,kte + do i=its,ite + ip = i - its + 1 + if (chem_opt == CHEM_OPT_GOCART) then + do n=1,num_chem + chem(i,k,j,n)=1.e-30 + enddo + endif ! chem_opt==300 + if ((chem_opt > CHEM_OPT_GOCART) .and. (chem_opt < CHEM_OPT_MAX)) then + chem(i,k,j,p_so2)=5.e-10 + chem(i,k,j,p_sulf)=3.e-10 + chem(i,k,j,p_msa)=1.e-10 + chem(i,k,j,p_dms)=1.e-10 + endif !chem_opt >= 300 .and. chem_opt < 500 ! if ((chem_opt == CHEM_OPT_GOCART_RACM) .or. (chem_opt == CHEM_OPT_RACM_SOA_VBS)) then !added o3 background !lzhang ! kk=min(k,kte) @@ -489,110 +489,110 @@ subroutine catchem_gocart_prep( & ! chem(i,k,j,p_dien)=chem(i,k,j,p_ete) ! chem(i,k,j,p_macr)=chem(i,k,j,p_ete) ! endif !( (chem_opt == 301.or.chem_opt==108)) - enddo - enddo - enddo - endif !(ktau<=1) - - else !(chem_in_opt == 0 ) - - if ((ktau<=1).and.((chem_opt == CHEM_OPT_GOCART_RACM).or.(chem_opt == CHEM_OPT_RACM_SOA_VBS))) then !added GFS o3 background above 380K!lzhang - do j=jts,jte - jp = j - jts + 1 - do k=kts,kte+1 - kk=min(k,kte) - kkp = kk - kts + 1 - do i=its,ite - ip = i - its + 1 - ! -- this section needs to be revisited before enabling the - ! corresponding chem_opt options - ! maxth=min(400.,th_pvsrf(i,j)) - ! if (tr3d(ip,jp,kkp,p_atm_ptem) >= maxth) then - ! chem(i,k,j,p_o3)=(airmw/48.)*tr3d(ip,jp,kkp,p_atm_o3mr)*1e6 !convert kg/kg to ppm - ! endif !380K - enddo - enddo - enddo - endif ! chem_opt == 301.or.chem_opt==108 - - endif !(chem_in_opt == 1 ) - endif ! readrestart - - !-- assgin read in 3D background chemical species - do i=its,ite - do k=1,nvl_gocart - h2o2_backgd(i,1,k)=emi2_in(i,k,1) - no3_backgd (i,1,k)=emi2_in(i,k,2) - oh_backgd (i,1,k)=emi2_in(i,k,3) - enddo - enddo - - ! - ! -- gocart background fields only if gocart is called - ! - !if (.NOT. readrestart) then - if (call_gocart .and. (chem_opt == CHEM_OPT_GOCART))then - do j=jts,jte - do i=its,ite - do k=kts,kte - do ll=2,nvl_gocart - l=ll - if (p_gocart(l) < .01*p_phy(i,k,j)) exit - enddo - pu=alog(p_gocart(l)) - pl=alog(p_gocart(l-1)) - pwant=alog(.01*p_phy(i,k,j)) - if (pwant > pl)then - backg_oh(i,k,j)=oh_backgd(i,j,l) - backg_h2o2(i,k,j)=h2o2_backgd(i,j,l) - backg_no3(i,k,j)=no3_backgd(i,j,l) - else - aln=(oh_backgd(i,j,l)*(pwant-pl)+ & - oh_backgd(i,j,l-1)*(pu-pwant))/(pu-pl) - backg_oh(i,k,j)=aln - aln=(h2o2_backgd(i,j,l)*(pwant-pl)+ & - h2o2_backgd(i,j,l-1)*(pu-pwant))/(pu-pl) - backg_h2o2(i,k,j)=aln - aln=(no3_backgd(i,j,l)*(pwant-pl)+ & - no3_backgd(i,j,l-1)*(pu-pwant))/(pu-pl) - backg_no3(i,k,j)=aln - endif - enddo - enddo - enddo - endif ! end gocart stuff - !endif !restart + enddo + enddo + enddo + endif !(ktau<=1) + + else !(chem_in_opt == 0 ) + + if ((ktau<=1).and.((chem_opt == CHEM_OPT_GOCART_RACM).or.(chem_opt == CHEM_OPT_RACM_SOA_VBS))) then !added GFS o3 background above 380K!lzhang + do j=jts,jte + jp = j - jts + 1 + do k=kts,kte+1 + kk=min(k,kte) + kkp = kk - kts + 1 + do i=its,ite + ip = i - its + 1 + ! -- this section needs to be revisited before enabling the + ! corresponding chem_opt options + ! maxth=min(400.,th_pvsrf(i,j)) + ! if (tr3d(ip,jp,kkp,p_atm_ptem) >= maxth) then + ! chem(i,k,j,p_o3)=(airmw/48.)*tr3d(ip,jp,kkp,p_atm_o3mr)*1e6 !convert kg/kg to ppm + ! endif !380K + enddo + enddo + enddo + endif ! chem_opt == 301.or.chem_opt==108 + endif !(chem_in_opt == 1 ) + endif ! readrestart - if ((chem_opt == CHEM_OPT_RACM_SOA_VBS) .or. (chem_opt >= CHEM_OPT_GOCART .and. chem_opt < CHEM_OPT_MAX)) then - !ndystep=86400/ifix(dtstepc) - ndystep=86400/ifix(dtstep) - do j=jts,jte - do i=its,ite - tcosz(i,j)=0. - ttday(i,j)=0. + !-- assgin read in 3D background chemical species + do i=its,ite + do k=1,nvl_gocart + h2o2_backgd(i,1,k)=emi2_in(i,k,1) + no3_backgd (i,1,k)=emi2_in(i,k,2) + oh_backgd (i,1,k)=emi2_in(i,k,3) + enddo + enddo + + ! + ! -- gocart background fields only if gocart is called + ! + !if (.NOT. readrestart) then + if (call_gocart .and. (chem_opt == CHEM_OPT_GOCART))then + do j=jts,jte + do i=its,ite + do k=kts,kte + do ll=2,nvl_gocart + l=ll + if (p_gocart(l) < .01*p_phy(i,k,j)) exit + enddo + pu=alog(p_gocart(l)) + pl=alog(p_gocart(l-1)) + pwant=alog(.01*p_phy(i,k,j)) + if (pwant > pl)then + backg_oh(i,k,j)=oh_backgd(i,j,l) + backg_h2o2(i,k,j)=h2o2_backgd(i,j,l) + backg_no3(i,k,j)=no3_backgd(i,j,l) + else + aln=(oh_backgd(i,j,l)*(pwant-pl)+ & + oh_backgd(i,j,l-1)*(pu-pwant))/(pu-pl) + backg_oh(i,k,j)=aln + aln=(h2o2_backgd(i,j,l)*(pwant-pl)+ & + h2o2_backgd(i,j,l-1)*(pu-pwant))/(pu-pl) + backg_h2o2(i,k,j)=aln + aln=(no3_backgd(i,j,l)*(pwant-pl)+ & + no3_backgd(i,j,l-1)*(pu-pwant))/(pu-pl) + backg_no3(i,k,j)=aln + endif + enddo + enddo + enddo + endif ! end gocart stuff + !endif !restart + + + if ((chem_opt == CHEM_OPT_RACM_SOA_VBS) .or. (chem_opt >= CHEM_OPT_GOCART .and. chem_opt < CHEM_OPT_MAX)) then + !ndystep=86400/ifix(dtstepc) + ndystep=86400/ifix(dtstep) + do j=jts,jte + do i=its,ite + tcosz(i,j)=0. + ttday(i,j)=0. ! rlat=xlat(i,j)*3.1415926535590/180. - xlonn=xlong(i,j) - do n=1,ndystep - xtime=n*dtstep/60. - ixhour=ifix(gmt+.01)+ifix(xtime/60.) - xhour=float(ixhour) - xmin=60.*gmt+(xtime-xhour*60.) - gmtp=mod(xhour,24.) - gmtp=gmtp+xmin/60. - CALL szangle(1, 1, julday, gmtp, sza, cosszax,xlonn,rlat(i)) - TCOSZ(i,j)=TCOSZ(I,J)+cosszax(1,1) - if (cosszax(1,1) > 0.) ttday(i,j)=ttday(i,j)+dtstep - !--use physics inst cosine zenith -- hli 03/06/2020 + xlonn=xlong(i,j) + do n=1,ndystep + xtime=n*dtstep/60. + ixhour=ifix(gmt+.01)+ifix(xtime/60.) + xhour=float(ixhour) + xmin=60.*gmt+(xtime-xhour*60.) + gmtp=mod(xhour,24.) + gmtp=gmtp+xmin/60. + CALL szangle(1, 1, julday, gmtp, sza, cosszax,xlonn,rlat(i)) + TCOSZ(i,j)=TCOSZ(I,J)+cosszax(1,1) + if (cosszax(1,1) > 0.) ttday(i,j)=ttday(i,j)+dtstep + !--use physics inst cosine zenith -- hli 03/06/2020 ! TCOSZ(i,j)=TCOSZ(I,J)+xcosz(i) ! if (xcosz(i) > 0.) ttday(i,j)=ttday(i,j)+dtstep - enddo - enddo - enddo - endif !chem_opt >= 300 .and. chem_opt < 500 + enddo + enddo + enddo + endif !chem_opt >= 300 .and. chem_opt < 500 - end subroutine catchem_gocart_prep + end subroutine catchem_gocart_prep !> @} - end module catchem_gocart_wrapper +end module catchem_gocart_wrapper diff --git a/drivers/ccpp/catchem_plume_wrapper.F90 b/drivers/ccpp/catchem_plume_wrapper.F90 index bd47be96..cdd885de 100644 --- a/drivers/ccpp/catchem_plume_wrapper.F90 +++ b/drivers/ccpp/catchem_plume_wrapper.F90 @@ -4,7 +4,7 @@ !! Revision History: !! 05/2023, Restructure for CATChem, Jian.He@noaa.gov - module catchem_plume_wrapper +module catchem_plume_wrapper use physcons, only : g => con_g, pi => con_pi use machine , only : kind_phys @@ -22,19 +22,19 @@ module catchem_plume_wrapper !> \brief Brief description of the subroutine !! - subroutine catchem_plume_wrapper_init() - end subroutine catchem_plume_wrapper_init + subroutine catchem_plume_wrapper_init() + end subroutine catchem_plume_wrapper_init !> \brief Brief description of the subroutine !! !! \section arg_table_catchem_plume_wrapper_finalize Argument Table !! - subroutine catchem_plume_wrapper_finalize() - end subroutine catchem_plume_wrapper_finalize + subroutine catchem_plume_wrapper_finalize() + end subroutine catchem_plume_wrapper_finalize !> \defgroup catchem_plume_group CATChem plume wrapper Module !! This is the Configurable ATmospheric Chemistry (CATChem) -!>\defgroup catchem_plume_wrapper CATChem plume wrapper Module +!>\defgroup catchem_plume_wrapper CATChem plume wrapper Module !> \ingroup catchem_plume_group !! This is the CATChem plume wrapper Module !! \section arg_table_catchem_plume_wrapper_run Argument Table @@ -42,518 +42,518 @@ end subroutine catchem_plume_wrapper_finalize !! !>\section catchem_plume_wrapper CATChem Scheme General Algorithm !> @{ - subroutine catchem_plume_wrapper_run(im, kte, kme, ktau, dt, & - pr3d, ph3d,phl3d, prl3d, tk3d, us3d, vs3d, spechum, & - w,vegtype,fire_GBBEPx,fire_MODIS, & - ntrac,ntso2,ntpp25,ntbc1,ntoc1,ntpp10, & - gq0,qgrs,ebu,abem,biomass_burn_opt_in,plumerise_flag_in, & - plumerisefire_frq_in,pert_scale_plume,ca_emis_plume, & - do_ca,ca_sgs,ca_sgs_emis,vegtype_cpl,ca_sgs_gbbepx_frp, & - emis_amp_plume, do_sppt_emis, sppt_wts, errmsg,errflg) - - implicit none - - - integer, intent(in) :: im,kte,kme,ktau - integer, intent(in) :: ntrac,ntso2,ntpp25,ntbc1,ntoc1,ntpp10 - real(kind_phys),intent(in) :: dt, emis_amp_plume, pert_scale_plume - - integer, parameter :: ids=1,jds=1,jde=1, kds=1 - integer, parameter :: ims=1,jms=1,jme=1, kms=1 - integer, parameter :: its=1,jts=1,jte=1, kts=1 - - logical, intent(in) :: do_sppt_emis, do_ca, ca_sgs_emis, ca_sgs - real(kind_phys), intent(in) :: sppt_wts(:,:), ca_emis_plume(:) - integer, dimension(im), intent(in) :: vegtype - integer, dimension(im), intent(out) :: vegtype_cpl - real(kind_phys), dimension(im, 5), intent(in) :: fire_GBBEPx - real(kind_phys), dimension(im, 13), intent(in) :: fire_MODIS - real(kind_phys), intent(out) :: ca_sgs_gbbepx_frp(:) - real(kind_phys), dimension(im,kme), intent(in) :: ph3d, pr3d - real(kind_phys), dimension(im,kte), intent(in) :: phl3d, prl3d, tk3d, & - us3d, vs3d, spechum, w - real(kind_phys), dimension(im,kte,ntrac), intent(inout) :: gq0, qgrs - real(kind_phys), dimension(im,12 ), intent(inout) :: abem - real(kind_phys), dimension(ims:im, kms:kme, jms:jme, 1:num_ebu), intent(inout) :: ebu - integer, intent(in) :: biomass_burn_opt_in, plumerise_flag_in, plumerisefire_frq_in - character(len=*), intent(out) :: errmsg - integer, intent(out) :: errflg - - real(kind_phys), dimension(1:im, 1:kme,jms:jme) :: rri, t_phy, u_phy, v_phy, & - p_phy, z_at_w, dz8w, p8w, rho_phy, vvel + subroutine catchem_plume_wrapper_run(im, kte, kme, ktau, dt, & + pr3d, ph3d,phl3d, prl3d, tk3d, us3d, vs3d, spechum, & + w,vegtype,fire_GBBEPx,fire_MODIS, & + ntrac,ntso2,ntpp25,ntbc1,ntoc1,ntpp10, & + gq0,qgrs,ebu,abem,biomass_burn_opt_in,plumerise_flag_in, & + plumerisefire_frq_in,pert_scale_plume,ca_emis_plume, & + do_ca,ca_sgs,ca_sgs_emis,vegtype_cpl,ca_sgs_gbbepx_frp, & + emis_amp_plume, do_sppt_emis, sppt_wts, errmsg,errflg) + + implicit none + + + integer, intent(in) :: im,kte,kme,ktau + integer, intent(in) :: ntrac,ntso2,ntpp25,ntbc1,ntoc1,ntpp10 + real(kind_phys),intent(in) :: dt, emis_amp_plume, pert_scale_plume + + integer, parameter :: ids=1,jds=1,jde=1, kds=1 + integer, parameter :: ims=1,jms=1,jme=1, kms=1 + integer, parameter :: its=1,jts=1,jte=1, kts=1 + + logical, intent(in) :: do_sppt_emis, do_ca, ca_sgs_emis, ca_sgs + real(kind_phys), intent(in) :: sppt_wts(:,:), ca_emis_plume(:) + integer, dimension(im), intent(in) :: vegtype + integer, dimension(im), intent(out) :: vegtype_cpl + real(kind_phys), dimension(im, 5), intent(in) :: fire_GBBEPx + real(kind_phys), dimension(im, 13), intent(in) :: fire_MODIS + real(kind_phys), intent(out) :: ca_sgs_gbbepx_frp(:) + real(kind_phys), dimension(im,kme), intent(in) :: ph3d, pr3d + real(kind_phys), dimension(im,kte), intent(in) :: phl3d, prl3d, tk3d, & + us3d, vs3d, spechum, w + real(kind_phys), dimension(im,kte,ntrac), intent(inout) :: gq0, qgrs + real(kind_phys), dimension(im,12 ), intent(inout) :: abem + real(kind_phys), dimension(ims:im, kms:kme, jms:jme, 1:num_ebu), intent(inout) :: ebu + integer, intent(in) :: biomass_burn_opt_in, plumerise_flag_in, plumerisefire_frq_in + character(len=*), intent(out) :: errmsg + integer, intent(out) :: errflg + + real(kind_phys), dimension(1:im, 1:kme,jms:jme) :: rri, t_phy, u_phy, v_phy, & + p_phy, z_at_w, dz8w, p8w, rho_phy, vvel !>- sea salt & chemistry variables - real(kind_phys), dimension(ims:im, kms:kme, jms:jme, 1:num_moist) :: moist - real(kind_phys), dimension(ims:im, kms:kme, jms:jme, 1:num_chem ) :: chem + real(kind_phys), dimension(ims:im, kms:kme, jms:jme, 1:num_moist) :: moist + real(kind_phys), dimension(ims:im, kms:kme, jms:jme, 1:num_chem ) :: chem - integer :: ide, ime, ite, kde - integer, dimension(ims:im, jms:jme) :: ivgtyp + integer :: ide, ime, ite, kde + integer, dimension(ims:im, jms:jme) :: ivgtyp !>- plume variables - ! -- buffers - real(kind_phys), dimension(ims:im, jms:jme, num_ebu_in) :: ebu_in - real(kind_phys), dimension(ims:im, jms:jme) :: & + ! -- buffers + real(kind_phys), dimension(ims:im, jms:jme, num_ebu_in) :: ebu_in + real(kind_phys), dimension(ims:im, jms:jme) :: & mean_fct_agef, mean_fct_aggr, mean_fct_agsv, mean_fct_agtf, & firesize_agef, firesize_aggr, firesize_agsv, firesize_agtf, & ca_sgs_gbbepx_frp_with_j - real(kind_phys), dimension(ims:im, jms:jme, num_frp_plume ) :: plume_frp - real(kind_phys) :: dtstep - !integer,parameter :: plumerise_flag = 2 ! 1=MODIS, 2=GBBEPx - logical :: call_plume, scale_fire_emiss, doing_sgs_emis - logical, save :: firstfire = .true. - real(kind_phys), dimension(1:num_chem) :: ppm2ugkg - real(kind_phys), parameter :: ugkg = 1.e-09_kind_phys !lzhang + real(kind_phys), dimension(ims:im, jms:jme, num_frp_plume ) :: plume_frp + real(kind_phys) :: dtstep + !integer,parameter :: plumerise_flag = 2 ! 1=MODIS, 2=GBBEPx + logical :: call_plume, scale_fire_emiss, doing_sgs_emis + logical, save :: firstfire = .true. + real(kind_phys), dimension(1:num_chem) :: ppm2ugkg + real(kind_phys), parameter :: ugkg = 1.e-09_kind_phys !lzhang !>-- local variables - real(kind_phys) :: curr_secs - real(kind_phys) :: factor, factor2, factor3, random_factor(ims:im) - integer :: nbegin - integer :: i, j, jp, k, kp, n - - - errmsg = '' - errflg = 0 - - biomass_burn_opt = biomass_burn_opt_in - plumerise_flag = plumerise_flag_in - plumerisefire_frq = plumerisefire_frq_in - random_factor = 1.0 - curr_secs = ktau * dt - doing_sgs_emis = do_ca .and. ca_sgs_emis .and. .not. ca_sgs - - ! -- set domain - ide=im - ime=im - ite=im - kde=kte - - ! -- volume to mass fraction conversion table (ppm -> ug/kg) - ppm2ugkg = 1._kind_phys - !ppm2ugkg(p_so2 ) = 1.e+03_kind_phys * mw_so2_aer / mwdry - ppm2ugkg(p_sulf) = 1.e+03_kind_phys * mw_so4_aer / mwdry - - ! -- set control flags - call_plume = (biomass_burn_opt == BURN_OPT_ENABLE) .and. (plumerisefire_frq > 0) - if (call_plume) & - call_plume = (mod(int(curr_secs), max(1, 60*plumerisefire_frq)) == 0) & - .or. (ktau == 1) - scale_fire_emiss = .false. - - ! -- compute accumulated large-scale and convective rainfall since last call - if (ktau > 1) then - dtstep = call_chemistry * dt - else - dtstep = dt - end if + real(kind_phys) :: curr_secs + real(kind_phys) :: factor, factor2, factor3, random_factor(ims:im) + integer :: nbegin + integer :: i, j, jp, k, kp, n + + + errmsg = '' + errflg = 0 + + biomass_burn_opt = biomass_burn_opt_in + plumerise_flag = plumerise_flag_in + plumerisefire_frq = plumerisefire_frq_in + random_factor = 1.0 + curr_secs = ktau * dt + doing_sgs_emis = do_ca .and. ca_sgs_emis .and. .not. ca_sgs + + ! -- set domain + ide=im + ime=im + ite=im + kde=kte + + ! -- volume to mass fraction conversion table (ppm -> ug/kg) + ppm2ugkg = 1._kind_phys + !ppm2ugkg(p_so2 ) = 1.e+03_kind_phys * mw_so2_aer / mwdry + ppm2ugkg(p_sulf) = 1.e+03_kind_phys * mw_so4_aer / mwdry + + ! -- set control flags + call_plume = (biomass_burn_opt == BURN_OPT_ENABLE) .and. (plumerisefire_frq > 0) + if (call_plume) & + call_plume = (mod(int(curr_secs), max(1, 60*plumerisefire_frq)) == 0) & + .or. (ktau == 1) + scale_fire_emiss = .false. + + ! -- compute accumulated large-scale and convective rainfall since last call + if (ktau > 1) then + dtstep = call_chemistry * dt + else + dtstep = dt + end if !>- get ready for chemistry run - call catchem_prep_plume(ktau,dtstep, & - pr3d,ph3d,phl3d,tk3d,prl3d,us3d,vs3d,spechum,w, & - vegtype,fire_GBBEPx,fire_MODIS, & - rri,t_phy,u_phy,v_phy,p_phy,rho_phy,dz8w,p8w, & - z_at_w,vvel, & - ntso2,ntpp25,ntbc1,ntoc1,ntpp10,ntrac,gq0, & - num_chem, num_moist,num_ebu_in,ca_sgs_gbbepx_frp_with_j, & - plumerise_flag,num_plume_data,ppm2ugkg, & - mean_fct_agtf,mean_fct_agef,mean_fct_agsv,mean_fct_aggr, & - firesize_agtf,firesize_agef,firesize_agsv,firesize_aggr, & - moist,chem,plume_frp,ebu_in,ivgtyp,ca_emis_plume,doing_sgs_emis,& - ids,ide, jds,jde, kds,kde, & - ims,ime, jms,jme, kms,kme, & - its,ite, jts,jte, kts,kte) - - ! Input to cellular automata - if(doing_sgs_emis) then - do i=ids,ide - ca_sgs_gbbepx_frp(i) = ca_sgs_gbbepx_frp_with_j(i,jds) - vegtype_cpl(i) = vegtype(i) - enddo - endif - - - ! compute wild-fire plumes - if (call_plume) then - call plumerise_driver (ktau,dtstep,num_chem,num_ebu,num_ebu_in, & - ebu,ebu_in, & - mean_fct_agtf,mean_fct_agef,mean_fct_agsv,mean_fct_aggr, & - firesize_agtf,firesize_agef,firesize_agsv,firesize_aggr, & - 'GOCART','BIOMASSB', t_phy,moist(:,:,:,p_qv), & - rho_phy,vvel,u_phy,v_phy,p_phy, & - z_at_w,scale_fire_emiss,plume_frp,plumerise_flag, & - ids,ide, jds,jde, kds,kde, & - ims,ime, jms,jme, kms,kme, & - its,ite, jts,jte, kts,kte ) - end if - ! -- add biomass burning emissions at every timestep - if (biomass_burn_opt == BURN_OPT_ENABLE) then - jp = jte - - if(plumerise_flag == FIRE_OPT_GBBEPx .and. do_sppt_emis) then - random_factor(:) = pert_scale_plume*max(min(1+(sppt_wts(:,kme/2)-1)*emis_amp_plume,2.0),0.0) + call catchem_prep_plume(ktau,dtstep, & + pr3d,ph3d,phl3d,tk3d,prl3d,us3d,vs3d,spechum,w, & + vegtype,fire_GBBEPx,fire_MODIS, & + rri,t_phy,u_phy,v_phy,p_phy,rho_phy,dz8w,p8w, & + z_at_w,vvel, & + ntso2,ntpp25,ntbc1,ntoc1,ntpp10,ntrac,gq0, & + num_chem, num_moist,num_ebu_in,ca_sgs_gbbepx_frp_with_j, & + plumerise_flag,num_plume_data,ppm2ugkg, & + mean_fct_agtf,mean_fct_agef,mean_fct_agsv,mean_fct_aggr, & + firesize_agtf,firesize_agef,firesize_agsv,firesize_aggr, & + moist,chem,plume_frp,ebu_in,ivgtyp,ca_emis_plume,doing_sgs_emis,& + ids,ide, jds,jde, kds,kde, & + ims,ime, jms,jme, kms,kme, & + its,ite, jts,jte, kts,kte) + + ! Input to cellular automata + if(doing_sgs_emis) then + do i=ids,ide + ca_sgs_gbbepx_frp(i) = ca_sgs_gbbepx_frp_with_j(i,jds) + vegtype_cpl(i) = vegtype(i) + enddo endif - factor3 = 0._kind_phys - select case (plumerise_flag) - case (FIRE_OPT_MODIS) - factor3 = 4.828e-04_kind_phys/60. - kp = kte ! full column - case (FIRE_OPT_GBBEPx) - factor3 = 1.e-03_kind_phys * mwdry / mw_so2_aer - if (plumerisefire_frq > 0) then - kp = kte ! full column - else - kp = kts ! surface only - end if - case default - ! -- no further options available, skip this step - jp = jts - 1 - end select - if (kp == kts) then - ! -- only include surface emissions - k = kts - do j = jts, jp - do i = its, ite - ! -- factor for pm emissions, factor2 for burn emissions - factor = dt*rri(i,k,j)/dz8w(i,k,j)*random_factor(i) - factor2 = factor * factor3 - chem(i,k,j,p_oc1) = chem(i,k,j,p_oc1) + factor * ebu_in(i,j,p_ebu_in_oc ) - chem(i,k,j,p_bc1) = chem(i,k,j,p_bc1) + factor * ebu_in(i,j,p_ebu_in_bc ) - chem(i,k,j,p_p25) = chem(i,k,j,p_p25) + factor * ebu_in(i,j,p_ebu_in_pm25) - chem(i,k,j,p_p10) = chem(i,k,j,p_p10) + factor * ebu_in(i,j,p_ebu_in_pm10) - chem(i,k,j,p_so2) = chem(i,k,j,p_so2) + factor2 * ebu_in(i,j,p_ebu_in_so2 ) - end do - end do + ! compute wild-fire plumes + if (call_plume) then + call plumerise_driver (ktau,dtstep,num_chem,num_ebu,num_ebu_in, & + ebu,ebu_in, & + mean_fct_agtf,mean_fct_agef,mean_fct_agsv,mean_fct_aggr, & + firesize_agtf,firesize_agef,firesize_agsv,firesize_aggr, & + 'GOCART','BIOMASSB', t_phy,moist(:,:,:,p_qv), & + rho_phy,vvel,u_phy,v_phy,p_phy, & + z_at_w,scale_fire_emiss,plume_frp,plumerise_flag, & + ids,ide, jds,jde, kds,kde, & + ims,ime, jms,jme, kms,kme, & + its,ite, jts,jte, kts,kte ) + end if + ! -- add biomass burning emissions at every timestep + if (biomass_burn_opt == BURN_OPT_ENABLE) then + jp = jte + + if(plumerise_flag == FIRE_OPT_GBBEPx .and. do_sppt_emis) then + random_factor(:) = pert_scale_plume*max(min(1+(sppt_wts(:,kme/2)-1)*emis_amp_plume,2.0),0.0) + endif + + factor3 = 0._kind_phys + select case (plumerise_flag) + case (FIRE_OPT_MODIS) + factor3 = 4.828e-04_kind_phys/60. + kp = kte ! full column + case (FIRE_OPT_GBBEPx) + factor3 = 1.e-03_kind_phys * mwdry / mw_so2_aer + if (plumerisefire_frq > 0) then + kp = kte ! full column + else + kp = kts ! surface only + end if + case default + ! -- no further options available, skip this step + jp = jts - 1 + end select + + if (kp == kts) then + ! -- only include surface emissions + k = kts + do j = jts, jp + do i = its, ite + ! -- factor for pm emissions, factor2 for burn emissions + factor = dt*rri(i,k,j)/dz8w(i,k,j)*random_factor(i) + factor2 = factor * factor3 + chem(i,k,j,p_oc1) = chem(i,k,j,p_oc1) + factor * ebu_in(i,j,p_ebu_in_oc ) + chem(i,k,j,p_bc1) = chem(i,k,j,p_bc1) + factor * ebu_in(i,j,p_ebu_in_bc ) + chem(i,k,j,p_p25) = chem(i,k,j,p_p25) + factor * ebu_in(i,j,p_ebu_in_pm25) + chem(i,k,j,p_p10) = chem(i,k,j,p_p10) + factor * ebu_in(i,j,p_ebu_in_pm10) + chem(i,k,j,p_so2) = chem(i,k,j,p_so2) + factor2 * ebu_in(i,j,p_ebu_in_so2 ) + end do + end do - else - ! -- use full-column emissions - do j = jts, jp - do k = kts, kp - do i = its, ite - ! -- factor for pm emissions, factor2 for burn emissions - factor = dt*rri(i,k,j)/dz8w(i,k,j)*random_factor(i) - factor2 = factor * factor3 - chem(i,k,j,p_oc1) = chem(i,k,j,p_oc1) + factor * ebu(i,k,j,p_ebu_oc ) - chem(i,k,j,p_bc1) = chem(i,k,j,p_bc1) + factor * ebu(i,k,j,p_ebu_bc ) - chem(i,k,j,p_p25) = chem(i,k,j,p_p25) + factor * ebu(i,k,j,p_ebu_pm25) - chem(i,k,j,p_p10) = chem(i,k,j,p_p10) + factor * ebu(i,k,j,p_ebu_pm10) - chem(i,k,j,p_so2) = chem(i,k,j,p_so2) + factor2 * ebu(i,k,j,p_ebu_so2 ) + else + ! -- use full-column emissions + do j = jts, jp + do k = kts, kp + do i = its, ite + ! -- factor for pm emissions, factor2 for burn emissions + factor = dt*rri(i,k,j)/dz8w(i,k,j)*random_factor(i) + factor2 = factor * factor3 + chem(i,k,j,p_oc1) = chem(i,k,j,p_oc1) + factor * ebu(i,k,j,p_ebu_oc ) + chem(i,k,j,p_bc1) = chem(i,k,j,p_bc1) + factor * ebu(i,k,j,p_ebu_bc ) + chem(i,k,j,p_p25) = chem(i,k,j,p_p25) + factor * ebu(i,k,j,p_ebu_pm25) + chem(i,k,j,p_p10) = chem(i,k,j,p_p10) + factor * ebu(i,k,j,p_ebu_pm10) + chem(i,k,j,p_so2) = chem(i,k,j,p_so2) + factor2 * ebu(i,k,j,p_ebu_so2 ) + end do + end do end do - end do - end do - end if + end if - end if + end if - ! -- put chem stuff back into tracer array - do k=kts,kte - do i=its,ite - gq0(i,k,ntso2 )=ppm2ugkg(p_so2 ) * max(epsilc,chem(i,k,1,p_so2)) - gq0(i,k,ntpp25 )=ppm2ugkg(p_p25 ) * max(epsilc,chem(i,k,1,p_p25)) - gq0(i,k,ntbc1 )=ppm2ugkg(p_bc1 ) * max(epsilc,chem(i,k,1,p_bc1)) - gq0(i,k,ntoc1 )=ppm2ugkg(p_oc1 ) * max(epsilc,chem(i,k,1,p_oc1)) - gq0(i,k,ntpp10 )=ppm2ugkg(p_p10 ) * max(epsilc,chem(i,k,1,p_p10)) - enddo - enddo + ! -- put chem stuff back into tracer array + do k=kts,kte + do i=its,ite + gq0(i,k,ntso2 )=ppm2ugkg(p_so2 ) * max(epsilc,chem(i,k,1,p_so2)) + gq0(i,k,ntpp25 )=ppm2ugkg(p_p25 ) * max(epsilc,chem(i,k,1,p_p25)) + gq0(i,k,ntbc1 )=ppm2ugkg(p_bc1 ) * max(epsilc,chem(i,k,1,p_bc1)) + gq0(i,k,ntoc1 )=ppm2ugkg(p_oc1 ) * max(epsilc,chem(i,k,1,p_oc1)) + gq0(i,k,ntpp10 )=ppm2ugkg(p_p10 ) * max(epsilc,chem(i,k,1,p_p10)) + enddo + enddo - do k=kts,kte - do i=its,ite - qgrs(i,k,ntso2 )=gq0(i,k,ntso2 ) - qgrs(i,k,ntpp25)=gq0(i,k,ntpp25 ) - qgrs(i,k,ntbc1 )=gq0(i,k,ntbc1 ) - qgrs(i,k,ntoc1 )=gq0(i,k,ntoc1 ) - qgrs(i,k,ntpp10)=gq0(i,k,ntpp10 ) - enddo - enddo + do k=kts,kte + do i=its,ite + qgrs(i,k,ntso2 )=gq0(i,k,ntso2 ) + qgrs(i,k,ntpp25)=gq0(i,k,ntpp25 ) + qgrs(i,k,ntbc1 )=gq0(i,k,ntbc1 ) + qgrs(i,k,ntoc1 )=gq0(i,k,ntoc1 ) + qgrs(i,k,ntpp10)=gq0(i,k,ntpp10 ) + enddo + enddo - abem(:,4)=ugkg*ebu_in (:,kts,p_ebu_in_bc )*random_factor(:) - abem(:,5)=ugkg*ebu_in (:,kts,p_ebu_in_oc )*random_factor(:) - abem(:,6)=ugkg*ebu_in (:,kts,p_ebu_in_so2)*random_factor(:) + abem(:,4)=ugkg*ebu_in (:,kts,p_ebu_in_bc )*random_factor(:) + abem(:,5)=ugkg*ebu_in (:,kts,p_ebu_in_oc )*random_factor(:) + abem(:,6)=ugkg*ebu_in (:,kts,p_ebu_in_so2)*random_factor(:) end subroutine catchem_plume_wrapper_run !> @} subroutine catchem_prep_plume( & - ktau,dtstep, & - pr3d,ph3d,phl3d,tk3d,prl3d,us3d,vs3d,spechum,w, & - vegtype, & - fire_GBBEPx,fire_MODIS, & - rri,t_phy,u_phy,v_phy,p_phy,rho_phy,dz8w,p8w, & - z_at_w,vvel, & - ntso2,ntpp25, & - ntbc1,ntoc1, & - ntpp10, & - ntrac,gq0, & - num_chem, num_moist,num_ebu_in,ca_sgs_gbbepx_frp_with_j, & - plumerise_flag,num_plume_data, & - ppm2ugkg, & - mean_fct_agtf,mean_fct_agef,mean_fct_agsv,mean_fct_aggr, & - firesize_agtf,firesize_agef,firesize_agsv,firesize_aggr, & - moist,chem,plumedist,ebu_in, & - ivgtyp,ca_emis_plume,doing_sgs_emis, & - ids,ide, jds,jde, kds,kde, & - ims,ime, jms,jme, kms,kme, & - its,ite, jts,jte, kts,kte) - - !Chem input configuration - integer, intent(in) :: ktau - real(kind=kind_phys), intent(in) :: dtstep - - !FV3 input variables - integer, dimension(ims:ime), intent(in) :: vegtype - integer, intent(in) :: ntrac - integer, intent(in) :: ntso2,ntpp25,ntbc1,ntoc1,ntpp10 - logical, intent(in) :: doing_sgs_emis - real(kind=kind_phys), intent(in) :: ca_emis_plume(:) - real(kind=kind_phys), dimension(ims:ime, 5), intent(in) :: fire_GBBEPx - real(kind=kind_phys), dimension(ims:ime, 13), intent(in) :: fire_MODIS - real(kind=kind_phys), dimension(ims:ime, kms:kme), intent(in) :: & + ktau,dtstep, & + pr3d,ph3d,phl3d,tk3d,prl3d,us3d,vs3d,spechum,w, & + vegtype, & + fire_GBBEPx,fire_MODIS, & + rri,t_phy,u_phy,v_phy,p_phy,rho_phy,dz8w,p8w, & + z_at_w,vvel, & + ntso2,ntpp25, & + ntbc1,ntoc1, & + ntpp10, & + ntrac,gq0, & + num_chem, num_moist,num_ebu_in,ca_sgs_gbbepx_frp_with_j, & + plumerise_flag,num_plume_data, & + ppm2ugkg, & + mean_fct_agtf,mean_fct_agef,mean_fct_agsv,mean_fct_aggr, & + firesize_agtf,firesize_agef,firesize_agsv,firesize_aggr, & + moist,chem,plumedist,ebu_in, & + ivgtyp,ca_emis_plume,doing_sgs_emis, & + ids,ide, jds,jde, kds,kde, & + ims,ime, jms,jme, kms,kme, & + its,ite, jts,jte, kts,kte) + + !Chem input configuration + integer, intent(in) :: ktau + real(kind=kind_phys), intent(in) :: dtstep + + !FV3 input variables + integer, dimension(ims:ime), intent(in) :: vegtype + integer, intent(in) :: ntrac + integer, intent(in) :: ntso2,ntpp25,ntbc1,ntoc1,ntpp10 + logical, intent(in) :: doing_sgs_emis + real(kind=kind_phys), intent(in) :: ca_emis_plume(:) + real(kind=kind_phys), dimension(ims:ime, 5), intent(in) :: fire_GBBEPx + real(kind=kind_phys), dimension(ims:ime, 13), intent(in) :: fire_MODIS + real(kind=kind_phys), dimension(ims:ime, kms:kme), intent(in) :: & pr3d,ph3d - real(kind=kind_phys), dimension(ims:ime, kts:kte), intent(in) :: & + real(kind=kind_phys), dimension(ims:ime, kts:kte), intent(in) :: & phl3d,tk3d,prl3d,us3d,vs3d,spechum,w - real(kind=kind_phys), dimension(ims:ime, kts:kte,ntrac), intent(in) :: gq0 - - - !GSD Chem variables - integer,intent(in) :: num_chem, num_moist, num_ebu_in, & - plumerise_flag, num_plume_data - integer,intent(in) :: ids,ide, jds,jde, kds,kde, & - ims,ime, jms,jme, kms,kme, & - its,ite, jts,jte, kts,kte - - real(kind_phys), dimension(num_chem), intent(in) :: ppm2ugkg - real(kind_phys), dimension(:, :), intent(out) :: ca_sgs_gbbepx_frp_with_j - real(kind_phys), dimension(ims:ime, jms:jme, num_ebu_in),intent(out) :: ebu_in - - integer,dimension(ims:ime, jms:jme), intent(out) :: ivgtyp - real(kind_phys), dimension(ims:ime, kms:kme, jms:jme), intent(out) :: & + real(kind=kind_phys), dimension(ims:ime, kts:kte,ntrac), intent(in) :: gq0 + + + !GSD Chem variables + integer,intent(in) :: num_chem, num_moist, num_ebu_in, & + plumerise_flag, num_plume_data + integer,intent(in) :: ids,ide, jds,jde, kds,kde, & + ims,ime, jms,jme, kms,kme, & + its,ite, jts,jte, kts,kte + + real(kind_phys), dimension(num_chem), intent(in) :: ppm2ugkg + real(kind_phys), dimension(:, :), intent(out) :: ca_sgs_gbbepx_frp_with_j + real(kind_phys), dimension(ims:ime, jms:jme, num_ebu_in),intent(out) :: ebu_in + + integer,dimension(ims:ime, jms:jme), intent(out) :: ivgtyp + real(kind_phys), dimension(ims:ime, kms:kme, jms:jme), intent(out) :: & rri, t_phy, u_phy, v_phy, p_phy, rho_phy, dz8w, p8w, vvel - - real(kind_phys), dimension(ims:ime, kms:kme, jms:jme, num_moist), intent(out) :: moist - real(kind_phys), dimension(ims:ime, kms:kme, jms:jme, num_chem), intent(out) :: chem - - real(kind_phys), dimension(ims:ime, kms:kme, jms:jme), intent(out) :: z_at_w - real(kind_phys), dimension(ims:ime, jms:jme, num_frp_plume), intent(out) :: plumedist - real(kind_phys), dimension(ims:ime, jms:jme ), intent(out) :: & - mean_fct_agtf,mean_fct_agef,mean_fct_agsv,mean_fct_aggr, & - firesize_agtf,firesize_agef,firesize_agsv,firesize_aggr - real(kind_phys), dimension(ims:ime, jms:jme, num_ebu_in) :: emiss_abu - real(kind_phys), dimension(ims:ime, jms:jme, num_plume_data) :: plume - real(kind_phys), parameter :: frp2plume = 1.e+06_kind_phys ! FRP-to-plume conversion factor - real(kind_phys), parameter :: frpc = 1.e+09_kind_phys ! FRP conversion factor - - ! -- local variables + + real(kind_phys), dimension(ims:ime, kms:kme, jms:jme, num_moist), intent(out) :: moist + real(kind_phys), dimension(ims:ime, kms:kme, jms:jme, num_chem), intent(out) :: chem + + real(kind_phys), dimension(ims:ime, kms:kme, jms:jme), intent(out) :: z_at_w + real(kind_phys), dimension(ims:ime, jms:jme, num_frp_plume), intent(out) :: plumedist + real(kind_phys), dimension(ims:ime, jms:jme ), intent(out) :: & + mean_fct_agtf,mean_fct_agef,mean_fct_agsv,mean_fct_aggr, & + firesize_agtf,firesize_agef,firesize_agsv,firesize_aggr + real(kind_phys), dimension(ims:ime, jms:jme, num_ebu_in) :: emiss_abu + real(kind_phys), dimension(ims:ime, jms:jme, num_plume_data) :: plume + real(kind_phys), parameter :: frp2plume = 1.e+06_kind_phys ! FRP-to-plume conversion factor + real(kind_phys), parameter :: frpc = 1.e+09_kind_phys ! FRP conversion factor + + ! -- local variables ! real(kind=kind_phys), dimension(ims:ime, kms:kme, jms:jme) :: p_phy - real(kind_phys) :: factor,factor2 - integer i,ip,j,jp,k,kp,kk,kkp,l,ll,n - - ! -- initialize output arrays - ebu_in = 0._kind_phys - ivgtyp = 0._kind_phys - rri = 0._kind_phys - t_phy = 0._kind_phys - u_phy = 0._kind_phys - v_phy = 0._kind_phys - p_phy = 0._kind_phys - rho_phy = 0._kind_phys - dz8w = 0._kind_phys - p8w = 0._kind_phys - vvel = 0._kind_phys - moist = 0._kind_phys - chem = 0._kind_phys - z_at_w = 0._kind_phys - - ! -- initialize fire emissions - plume = 0._kind_phys - plumedist = 0._kind_phys - mean_fct_agtf = 0._kind_phys - mean_fct_agef = 0._kind_phys - mean_fct_agsv = 0._kind_phys - mean_fct_aggr = 0._kind_phys - firesize_agtf = 0._kind_phys - firesize_agef = 0._kind_phys - firesize_agsv = 0._kind_phys - firesize_aggr = 0._kind_phys - - - do i=its,ite - ivgtyp (i,1)=vegtype(i) - enddo - - - if (ktau <= 1) then - !emis_vol = 0. - end if - - do j=jts,jte - jp = j - jts + 1 + real(kind_phys) :: factor,factor2 + integer i,ip,j,jp,k,kp,kk,kkp,l,ll,n + + ! -- initialize output arrays + ebu_in = 0._kind_phys + ivgtyp = 0._kind_phys + rri = 0._kind_phys + t_phy = 0._kind_phys + u_phy = 0._kind_phys + v_phy = 0._kind_phys + p_phy = 0._kind_phys + rho_phy = 0._kind_phys + dz8w = 0._kind_phys + p8w = 0._kind_phys + vvel = 0._kind_phys + moist = 0._kind_phys + chem = 0._kind_phys + z_at_w = 0._kind_phys + + ! -- initialize fire emissions + plume = 0._kind_phys + plumedist = 0._kind_phys + mean_fct_agtf = 0._kind_phys + mean_fct_agef = 0._kind_phys + mean_fct_agsv = 0._kind_phys + mean_fct_aggr = 0._kind_phys + firesize_agtf = 0._kind_phys + firesize_agef = 0._kind_phys + firesize_agsv = 0._kind_phys + firesize_aggr = 0._kind_phys + + do i=its,ite - ip = i - its + 1 - z_at_w(i,kts,j)=max(0.,ph3d(ip,1)/g) + ivgtyp (i,1)=vegtype(i) enddo - enddo - do j=jts,jte - jp = j - jts + 1 - do k=kts,kte - kp = k - kts + 1 - do i=its,ite - ip = i - its + 1 - dz8w(i,k,j)=abs(ph3d(ip,kp+1)-ph3d(ip,kp))/g - z_at_w(i,k+1,j)=z_at_w(i,k,j)+dz8w(i,k,j) - enddo + + if (ktau <= 1) then + !emis_vol = 0. + end if + + do j=jts,jte + jp = j - jts + 1 + do i=its,ite + ip = i - its + 1 + z_at_w(i,kts,j)=max(0.,ph3d(ip,1)/g) + enddo enddo - enddo - - do j=jts,jte - jp = j - jts + 1 - do k=kts,kte+1 - kp = k - kts + 1 - do i=its,ite - ip = i - its + 1 - p8w(i,k,j)=pr3d(ip,kp) - enddo + + do j=jts,jte + jp = j - jts + 1 + do k=kts,kte + kp = k - kts + 1 + do i=its,ite + ip = i - its + 1 + dz8w(i,k,j)=abs(ph3d(ip,kp+1)-ph3d(ip,kp))/g + z_at_w(i,k+1,j)=z_at_w(i,k,j)+dz8w(i,k,j) + enddo + enddo enddo - enddo - - do j=jts,jte - jp = j - jts + 1 - do k=kts,kte+1 - kk=min(k,kte) - kkp = kk - kts + 1 - do i=its,ite - ip = i - its + 1 - dz8w(i,k,j)=z_at_w(i,kk+1,j)-z_at_w(i,kk,j) - t_phy(i,k,j)=tk3d(ip,kkp) - p_phy(i,k,j)=prl3d(ip,kkp) - u_phy(i,k,j)=us3d(ip,kkp) - v_phy(i,k,j)=vs3d(ip,kkp) - rho_phy(i,k,j)=p_phy(i,k,j)/(287.04*t_phy(i,k,j)*(1.+.608*spechum(ip,kkp))) - rri(i,k,j)=1./rho_phy(i,k,j) - vvel(i,k,j)=-w(ip,kkp)*rri(i,k,j)/g - moist(i,k,j,:)=0. - moist(i,k,j,1)=gq0(ip,kkp,p_atm_shum) - if (t_phy(i,k,j) > 265.) then - moist(i,k,j,2)=gq0(ip,kkp,p_atm_cldq) - moist(i,k,j,3)=0. - if (moist(i,k,j,2) < 1.e-8) moist(i,k,j,2)=0. - else - moist(i,k,j,2)=0. - moist(i,k,j,3)=gq0(ip,kkp,p_atm_cldq) - if(moist(i,k,j,3) < 1.e-8)moist(i,k,j,3)=0. - endif - !-- - enddo + + do j=jts,jte + jp = j - jts + 1 + do k=kts,kte+1 + kp = k - kts + 1 + do i=its,ite + ip = i - its + 1 + p8w(i,k,j)=pr3d(ip,kp) + enddo + enddo enddo - enddo - ! -- fire - emiss_abu = 0. ! fire emission + do j=jts,jte + jp = j - jts + 1 + do k=kts,kte+1 + kk=min(k,kte) + kkp = kk - kts + 1 + do i=its,ite + ip = i - its + 1 + dz8w(i,k,j)=z_at_w(i,kk+1,j)-z_at_w(i,kk,j) + t_phy(i,k,j)=tk3d(ip,kkp) + p_phy(i,k,j)=prl3d(ip,kkp) + u_phy(i,k,j)=us3d(ip,kkp) + v_phy(i,k,j)=vs3d(ip,kkp) + rho_phy(i,k,j)=p_phy(i,k,j)/(287.04*t_phy(i,k,j)*(1.+.608*spechum(ip,kkp))) + rri(i,k,j)=1./rho_phy(i,k,j) + vvel(i,k,j)=-w(ip,kkp)*rri(i,k,j)/g + moist(i,k,j,:)=0. + moist(i,k,j,1)=gq0(ip,kkp,p_atm_shum) + if (t_phy(i,k,j) > 265.) then + moist(i,k,j,2)=gq0(ip,kkp,p_atm_cldq) + moist(i,k,j,3)=0. + if (moist(i,k,j,2) < 1.e-8) moist(i,k,j,2)=0. + else + moist(i,k,j,2)=0. + moist(i,k,j,3)=gq0(ip,kkp,p_atm_cldq) + if(moist(i,k,j,3) < 1.e-8)moist(i,k,j,3)=0. + endif + !-- + enddo + enddo + enddo - !print*,'hli ',plumerise_flag,FIRE_OPT_MODIS,FIRE_OPT_GBBEPx - select case (plumerise_flag) - case (FIRE_OPT_MODIS) - do j=jts,jte - do i=its,ite - emiss_abu(i,j,p_e_bc) =fire_MODIS(i,1) - emiss_abu(i,j,p_e_oc) =fire_MODIS(i,2) - emiss_abu(i,j,p_e_pm_25)=fire_MODIS(i,3) - emiss_abu(i,j,p_e_so2) =fire_MODIS(i,4) - emiss_abu(i,j,p_e_pm_10)=fire_MODIS(i,5) - plume(i,j,1) =fire_MODIS(i,6) - plume(i,j,2) =fire_MODIS(i,7) - plume(i,j,3) =fire_MODIS(i,8) - plume(i,j,4) =fire_MODIS(i,9) - plume(i,j,5) =fire_MODIS(i,10) - plume(i,j,6) =fire_MODIS(i,11) - plume(i,j,7) =fire_MODIS(i,12) - plume(i,j,8) =fire_MODIS(i,13) + ! -- fire + emiss_abu = 0. ! fire emission + + !print*,'hli ',plumerise_flag,FIRE_OPT_MODIS,FIRE_OPT_GBBEPx + select case (plumerise_flag) + case (FIRE_OPT_MODIS) + do j=jts,jte + do i=its,ite + emiss_abu(i,j,p_e_bc) =fire_MODIS(i,1) + emiss_abu(i,j,p_e_oc) =fire_MODIS(i,2) + emiss_abu(i,j,p_e_pm_25)=fire_MODIS(i,3) + emiss_abu(i,j,p_e_so2) =fire_MODIS(i,4) + emiss_abu(i,j,p_e_pm_10)=fire_MODIS(i,5) + plume(i,j,1) =fire_MODIS(i,6) + plume(i,j,2) =fire_MODIS(i,7) + plume(i,j,3) =fire_MODIS(i,8) + plume(i,j,4) =fire_MODIS(i,9) + plume(i,j,5) =fire_MODIS(i,10) + plume(i,j,6) =fire_MODIS(i,11) + plume(i,j,7) =fire_MODIS(i,12) + plume(i,j,8) =fire_MODIS(i,13) + enddo enddo - enddo - case (FIRE_OPT_GBBEPx) - do j=jts,jte - do i=its,ite - emiss_abu(i,j,p_e_bc) =fire_GBBEPx(i,1) - emiss_abu(i,j,p_e_oc) =fire_GBBEPx(i,2) - emiss_abu(i,j,p_e_pm_25)=fire_GBBEPx(i,3) - emiss_abu(i,j,p_e_so2) =fire_GBBEPx(i,4) + case (FIRE_OPT_GBBEPx) + do j=jts,jte + do i=its,ite + emiss_abu(i,j,p_e_bc) =fire_GBBEPx(i,1) + emiss_abu(i,j,p_e_oc) =fire_GBBEPx(i,2) + emiss_abu(i,j,p_e_pm_25)=fire_GBBEPx(i,3) + emiss_abu(i,j,p_e_so2) =fire_GBBEPx(i,4) + enddo enddo - enddo - if(doing_sgs_emis) then - do j=jts,jte - do i=its,ite - ca_sgs_gbbepx_frp_with_j(i,j) = fire_GBBEPx(i,5) - plume(i,j,1) =ca_emis_plume(i)! *0.5 + fire_GBBEPx(i,5)*0.5 - enddo - enddo - else - do j=jts,jte - do i=its,ite - plume(i,j,1) =fire_GBBEPx(i,5) - enddo - enddo - endif + if(doing_sgs_emis) then + do j=jts,jte + do i=its,ite + ca_sgs_gbbepx_frp_with_j(i,j) = fire_GBBEPx(i,5) + plume(i,j,1) =ca_emis_plume(i)! *0.5 + fire_GBBEPx(i,5)*0.5 + enddo + enddo + else + do j=jts,jte + do i=its,ite + plume(i,j,1) =fire_GBBEPx(i,5) + enddo + enddo + endif ! print*,'hli GBBEPx plume',maxval(plume(:,:,1)) - case default - ! -- no further option available - end select + case default + ! -- no further option available + end select - factor=0. - k=kts - if (p_bc2 > 1) then - do j=jts,jte - do i=its,ite - - - ebu_in(i,j,p_ebu_in_pm10)=emiss_abu(i,j,p_e_pm_10) - ebu_in(i,j,p_ebu_in_dms)= 0._kind_phys - - select case (plumerise_flag) - case (FIRE_OPT_MODIS) - ebu_in(i,j,p_ebu_in_oc) = emiss_abu(i,j,p_e_oc) - ebu_in(i,j,p_ebu_in_bc) = emiss_abu(i,j,p_e_bc) - ebu_in(i,j,p_ebu_in_pm25) = emiss_abu(i,j,p_e_pm_25) - ebu_in(i,j,p_ebu_in_so2) = emiss_abu(i,j,p_e_so2) - mean_fct_agtf(i,j)=plume(i,j,1) - mean_fct_agef(i,j)=plume(i,j,2) - mean_fct_agsv(i,j)=plume(i,j,3) - mean_fct_aggr(i,j)=plume(i,j,4) - firesize_agtf(i,j)=plume(i,j,5) - firesize_agef(i,j)=plume(i,j,6) - firesize_agsv(i,j)=plume(i,j,7) - firesize_aggr(i,j)=plume(i,j,8) - case (FIRE_OPT_GBBEPx) - ebu_in(i,j,p_ebu_in_oc) = frpc * emiss_abu(i,j,p_e_oc) - ebu_in(i,j,p_ebu_in_bc) = frpc * emiss_abu(i,j,p_e_bc) - ebu_in(i,j,p_ebu_in_pm25) = frpc * (emiss_abu(i,j,p_e_pm_25) - emiss_abu(i,j,p_e_bc) - emiss_abu(i,j,p_e_oc)) - ebu_in(i,j,p_ebu_in_so2) = frpc * emiss_abu(i,j,p_e_so2) - plumedist(i,j,p_frp_flam_frac) = flaming(catb(ivgtyp(i,j))) - plumedist(i,j,p_frp_mean ) = frp2plume * plume(i,j,1) - plumedist(i,j,p_frp_std ) = 0.3_kind_phys * frp2plume * plume(i,j,1) - plumedist(i,j,p_frp_mean_size) = msize(ivgtyp(i,j)) * frp2plume * plume(i,j,1) - plumedist(i,j,p_frp_std_size ) = 0.5_kind_phys * plumedist(i,j,p_frp_mean_size) - case default - ! -- no further option available - end select - enddo + factor=0. + k=kts + if (p_bc2 > 1) then + do j=jts,jte + do i=its,ite + + + ebu_in(i,j,p_ebu_in_pm10)=emiss_abu(i,j,p_e_pm_10) + ebu_in(i,j,p_ebu_in_dms)= 0._kind_phys + + select case (plumerise_flag) + case (FIRE_OPT_MODIS) + ebu_in(i,j,p_ebu_in_oc) = emiss_abu(i,j,p_e_oc) + ebu_in(i,j,p_ebu_in_bc) = emiss_abu(i,j,p_e_bc) + ebu_in(i,j,p_ebu_in_pm25) = emiss_abu(i,j,p_e_pm_25) + ebu_in(i,j,p_ebu_in_so2) = emiss_abu(i,j,p_e_so2) + mean_fct_agtf(i,j)=plume(i,j,1) + mean_fct_agef(i,j)=plume(i,j,2) + mean_fct_agsv(i,j)=plume(i,j,3) + mean_fct_aggr(i,j)=plume(i,j,4) + firesize_agtf(i,j)=plume(i,j,5) + firesize_agef(i,j)=plume(i,j,6) + firesize_agsv(i,j)=plume(i,j,7) + firesize_aggr(i,j)=plume(i,j,8) + case (FIRE_OPT_GBBEPx) + ebu_in(i,j,p_ebu_in_oc) = frpc * emiss_abu(i,j,p_e_oc) + ebu_in(i,j,p_ebu_in_bc) = frpc * emiss_abu(i,j,p_e_bc) + ebu_in(i,j,p_ebu_in_pm25) = frpc * (emiss_abu(i,j,p_e_pm_25) - emiss_abu(i,j,p_e_bc) - emiss_abu(i,j,p_e_oc)) + ebu_in(i,j,p_ebu_in_so2) = frpc * emiss_abu(i,j,p_e_so2) + plumedist(i,j,p_frp_flam_frac) = flaming(catb(ivgtyp(i,j))) + plumedist(i,j,p_frp_mean ) = frp2plume * plume(i,j,1) + plumedist(i,j,p_frp_std ) = 0.3_kind_phys * frp2plume * plume(i,j,1) + plumedist(i,j,p_frp_mean_size) = msize(ivgtyp(i,j)) * frp2plume * plume(i,j,1) + plumedist(i,j,p_frp_std_size ) = 0.5_kind_phys * plumedist(i,j,p_frp_mean_size) + case default + ! -- no further option available + end select + enddo + enddo + endif + + do k=kms,kte + do i=ims,ime + chem(i,k,jts,p_so2 )=max(epsilc,gq0(i,k,ntso2 )/ppm2ugkg(p_so2)) + chem(i,k,jts,p_p25 )=max(epsilc,gq0(i,k,ntpp25 )/ppm2ugkg(p_p25)) + chem(i,k,jts,p_bc1 )=max(epsilc,gq0(i,k,ntbc1 )/ppm2ugkg(p_bc1)) + chem(i,k,jts,p_oc1 )=max(epsilc,gq0(i,k,ntoc1 )/ppm2ugkg(p_oc1)) + chem(i,k,jts,p_p10 )=max(epsilc,gq0(i,k,ntpp10 )/ppm2ugkg(p_p10)) + enddo enddo - endif - - do k=kms,kte - do i=ims,ime - chem(i,k,jts,p_so2 )=max(epsilc,gq0(i,k,ntso2 )/ppm2ugkg(p_so2)) - chem(i,k,jts,p_p25 )=max(epsilc,gq0(i,k,ntpp25 )/ppm2ugkg(p_p25)) - chem(i,k,jts,p_bc1 )=max(epsilc,gq0(i,k,ntbc1 )/ppm2ugkg(p_bc1)) - chem(i,k,jts,p_oc1 )=max(epsilc,gq0(i,k,ntoc1 )/ppm2ugkg(p_oc1)) - chem(i,k,jts,p_p10 )=max(epsilc,gq0(i,k,ntpp10 )/ppm2ugkg(p_p10)) - enddo - enddo - end subroutine catchem_prep_plume + end subroutine catchem_prep_plume !> @} - end module catchem_plume_wrapper +end module catchem_plume_wrapper diff --git a/drivers/ccpp/catchem_rad_wrapper.F90 b/drivers/ccpp/catchem_rad_wrapper.F90 index 80aa5e70..0d276e86 100644 --- a/drivers/ccpp/catchem_rad_wrapper.F90 +++ b/drivers/ccpp/catchem_rad_wrapper.F90 @@ -4,7 +4,7 @@ !! Revision History: !! 05/2023, Restructure for CATChem, Jian.He@noaa.gov - module catchem_rad_wrapper +module catchem_rad_wrapper use physcons, only : g => con_g, pi => con_pi use machine , only : kind_phys @@ -22,19 +22,19 @@ module catchem_rad_wrapper !> \brief Brief description of the subroutine !! - subroutine catchem_rad_wrapper_init() - end subroutine catchem_rad_wrapper_init + subroutine catchem_rad_wrapper_init() + end subroutine catchem_rad_wrapper_init !> \brief Brief description of the subroutine !! !! \section arg_table_catchem_rad_wrapper_finalize Argument Table !! - subroutine catchem_rad_wrapper_finalize() - end subroutine catchem_rad_wrapper_finalize + subroutine catchem_rad_wrapper_finalize() + end subroutine catchem_rad_wrapper_finalize !> \defgroup catchem_group CATChem rad wrapper Module !! This is the Configurable ATmospheric Chemistry (CATChem) -!>\defgroup catchem_rad_wrapper CATChem rad wrapper Module +!>\defgroup catchem_rad_wrapper CATChem rad wrapper Module !> \ingroup catchem_rad_group !! This is the CATChem rad wrapper Module !! \section arg_table_catchem_rad_wrapper_run Argument Table @@ -42,134 +42,134 @@ end subroutine catchem_rad_wrapper_finalize !! !>\section catchem_rad_wrapper CATChem Scheme General Algorithm !> @{ - subroutine catchem_rad_wrapper_run(im, kte, kme, ktau, dt, & - ph3d,prl3d, tk3d, spechum, & - ntrac,ntso2,ntsulf,ntDMS,ntmsa,ntpp25, & - ntbc1,ntbc2,ntoc1,ntoc2, & - ntss1,ntss2,ntss3,ntss4,ntss5, & - ntdust1,ntdust2,ntdust3,ntdust4,ntdust5,ntpp10, & - gq0,abem, & + subroutine catchem_rad_wrapper_run(im, kte, kme, ktau, dt, & + ph3d,prl3d, tk3d, spechum, & + ntrac,ntso2,ntsulf,ntDMS,ntmsa,ntpp25, & + ntbc1,ntbc2,ntoc1,ntoc2, & + ntss1,ntss2,ntss3,ntss4,ntss5, & + ntdust1,ntdust2,ntdust3,ntdust4,ntdust5,ntpp10, & + gq0,abem, & ! cplchp_rad_opt,lmk,faersw_cpl, & - chem_opt_in,aer_ra_feedback_in,aer_ra_frq_in, & - errmsg,errflg) + chem_opt_in,aer_ra_feedback_in,aer_ra_frq_in, & + errmsg,errflg) - implicit none + implicit none - integer, intent(in) :: im,kte,kme,ktau - integer, intent(in) :: ntrac,ntss1,ntss2,ntss3,ntss4,ntss5 - integer, intent(in) :: ntdust1,ntdust2,ntdust3,ntdust4,ntdust5 - integer, intent(in) :: ntso2,ntpp25,ntbc1,ntoc1,ntpp10 - integer, intent(in) :: ntsulf,ntbc2,ntoc2,ntDMS,ntmsa - real(kind_phys),intent(in) :: dt + integer, intent(in) :: im,kte,kme,ktau + integer, intent(in) :: ntrac,ntss1,ntss2,ntss3,ntss4,ntss5 + integer, intent(in) :: ntdust1,ntdust2,ntdust3,ntdust4,ntdust5 + integer, intent(in) :: ntso2,ntpp25,ntbc1,ntoc1,ntpp10 + integer, intent(in) :: ntsulf,ntbc2,ntoc2,ntDMS,ntmsa + real(kind_phys),intent(in) :: dt - integer, parameter :: ids=1,jds=1,jde=1, kds=1 - integer, parameter :: ims=1,jms=1,jme=1, kms=1 - integer, parameter :: its=1,jts=1,jte=1, kts=1 + integer, parameter :: ids=1,jds=1,jde=1, kds=1 + integer, parameter :: ims=1,jms=1,jme=1, kms=1 + integer, parameter :: its=1,jts=1,jte=1, kts=1 - real(kind_phys), dimension(im,kme), intent(in) :: ph3d - real(kind_phys), dimension(im,kte), intent(in) :: prl3d, tk3d, spechum - real(kind_phys), dimension(im,kte,ntrac), intent(inout) :: gq0 - real(kind_phys), dimension(im,12 ), intent(inout) :: abem + real(kind_phys), dimension(im,kme), intent(in) :: ph3d + real(kind_phys), dimension(im,kte), intent(in) :: prl3d, tk3d, spechum + real(kind_phys), dimension(im,kte,ntrac), intent(inout) :: gq0 + real(kind_phys), dimension(im,12 ), intent(inout) :: abem ! integer, intent(in) :: lmk ! real(kind_phys), dimension(im, lmk, 14, 3),intent(inout) :: faersw_cpl ! logical, intent(in) :: cplchp_rad_opt - integer, intent(in) :: chem_opt_in - integer, intent(in) :: aer_ra_feedback_in,aer_ra_frq_in - character(len=*), intent(out) :: errmsg - integer, intent(out) :: errflg + integer, intent(in) :: chem_opt_in + integer, intent(in) :: aer_ra_feedback_in,aer_ra_frq_in + character(len=*), intent(out) :: errmsg + integer, intent(out) :: errflg - real(kind_phys), dimension(1:im, 1:kme,jms:jme) :: rri, dz8w + real(kind_phys), dimension(1:im, 1:kme,jms:jme) :: rri, dz8w - real(kind_phys), dimension(ims:im, kms:kme, jms:jme, 1:num_chem ) :: chem + real(kind_phys), dimension(ims:im, kms:kme, jms:jme, 1:num_chem ) :: chem - integer :: ide, ime, ite, kde + integer :: ide, ime, ite, kde - real(kind_phys), dimension(ims:im, kms:kme, jms:jme) :: h2oai, h2oaj + real(kind_phys), dimension(ims:im, kms:kme, jms:jme) :: h2oai, h2oaj !>- optical variables - real(kind_phys), dimension(ims:im, kms:kme, jms:jme) :: relhum - real(kind_phys), dimension(ims:im, jms:jme) :: aod - real(kind_phys), dimension(ims:im, jms:jme,5) :: aerodp ! dust, soot, waso, suso, ssam - real(kind_phys), dimension(ims:im, kms:kme, jms:jme, 1:nbands) :: extt - real(kind_phys), dimension(ims:im, kms:kme, jms:jme, 1:nbands) :: ssca - real(kind_phys), dimension(ims:im, kms:kme, jms:jme, 1:nbands) :: asympar - real(kind_phys), dimension(ims:im, kms:kme, jms:jme, 1:4) :: & - tauaersw, gaersw, waersw, bscoefsw, & - l2aer, l3aer, l4aer, l5aer, l6aer, l7aer - real(kind_phys), dimension(ims:im, kms:kme, jms:jme, 1:16) :: tauaerlw - real(kind_phys), dimension(ims:im, kms:kme, jms:jme, 1:num_ext_coef) :: ext_coeff - real(kind_phys), dimension(ims:im, kms:kme, jms:jme, 1:num_bscat_coef) :: bscat_coeff - real(kind_phys), dimension(ims:im, kms:kme, jms:jme, 1:num_asym_par) :: asym_par - real(kind_phys), dimension(im) :: aod2d - real(kind_phys), dimension(im, kte, 1:nbands) :: ext_cof, sscal, asymp + real(kind_phys), dimension(ims:im, kms:kme, jms:jme) :: relhum + real(kind_phys), dimension(ims:im, jms:jme) :: aod + real(kind_phys), dimension(ims:im, jms:jme,5) :: aerodp ! dust, soot, waso, suso, ssam + real(kind_phys), dimension(ims:im, kms:kme, jms:jme, 1:nbands) :: extt + real(kind_phys), dimension(ims:im, kms:kme, jms:jme, 1:nbands) :: ssca + real(kind_phys), dimension(ims:im, kms:kme, jms:jme, 1:nbands) :: asympar + real(kind_phys), dimension(ims:im, kms:kme, jms:jme, 1:4) :: & + tauaersw, gaersw, waersw, bscoefsw, & + l2aer, l3aer, l4aer, l5aer, l6aer, l7aer + real(kind_phys), dimension(ims:im, kms:kme, jms:jme, 1:16) :: tauaerlw + real(kind_phys), dimension(ims:im, kms:kme, jms:jme, 1:num_ext_coef) :: ext_coeff + real(kind_phys), dimension(ims:im, kms:kme, jms:jme, 1:num_bscat_coef) :: bscat_coeff + real(kind_phys), dimension(ims:im, kms:kme, jms:jme, 1:num_asym_par) :: asym_par + real(kind_phys), dimension(im) :: aod2d + real(kind_phys), dimension(im, kte, 1:nbands) :: ext_cof, sscal, asymp !>-- local variables - real(kind_phys) :: dtstep - real(kind_phys), dimension(1:num_chem) :: ppm2ugkg - real(kind_phys) :: curr_secs - logical :: call_radiation - logical :: store_arrays - integer :: nbegin, nv, nvv - integer :: i, j, jp, k, kp, n - - - errmsg = '' - errflg = 0 - - chem_opt = chem_opt_in - aer_ra_feedback = aer_ra_feedback_in - aer_ra_frq = aer_ra_frq_in - - h2oai = 0. - h2oaj = 0. - extt =0. - ssca =0. - asympar=0. - - - curr_secs = ktau * dt - - ! -- set domain - ide=im - ime=im - ite=im - kde=kte - - ! -- volume to mass fraction conversion table (ppm -> ug/kg) - ppm2ugkg = 1._kind_phys - !ppm2ugkg(p_so2 ) = 1.e+03_kind_phys * mw_so2_aer / mwdry - ppm2ugkg(p_sulf) = 1.e+03_kind_phys * mw_so4_aer / mwdry - - ! -- set control flags - call_radiation = (mod(int(curr_secs), max(1, 60*aer_ra_frq)) == 0) .or. (ktau == 1) - - if (ktau > 1) then - dtstep = call_chemistry * dt - else - dtstep = dt - end if + real(kind_phys) :: dtstep + real(kind_phys), dimension(1:num_chem) :: ppm2ugkg + real(kind_phys) :: curr_secs + logical :: call_radiation + logical :: store_arrays + integer :: nbegin, nv, nvv + integer :: i, j, jp, k, kp, n + + + errmsg = '' + errflg = 0 + + chem_opt = chem_opt_in + aer_ra_feedback = aer_ra_feedback_in + aer_ra_frq = aer_ra_frq_in + + h2oai = 0. + h2oaj = 0. + extt =0. + ssca =0. + asympar=0. + + + curr_secs = ktau * dt + + ! -- set domain + ide=im + ime=im + ite=im + kde=kte + + ! -- volume to mass fraction conversion table (ppm -> ug/kg) + ppm2ugkg = 1._kind_phys + !ppm2ugkg(p_so2 ) = 1.e+03_kind_phys * mw_so2_aer / mwdry + ppm2ugkg(p_sulf) = 1.e+03_kind_phys * mw_so4_aer / mwdry + + ! -- set control flags + call_radiation = (mod(int(curr_secs), max(1, 60*aer_ra_frq)) == 0) .or. (ktau == 1) + + if (ktau > 1) then + dtstep = call_chemistry * dt + else + dtstep = dt + end if !!! !>- get ready for chemistry run - call catchem_prep_rad( & - ktau,dtstep,ph3d,tk3d,prl3d,spechum,rri,dz8w, & - ntso2,ntsulf,ntDMS,ntmsa,ntpp25, & - ntbc1,ntbc2,ntoc1,ntoc2, & - ntss1,ntss2,ntss3,ntss4,ntss5, & - ntdust1,ntdust2,ntdust3,ntdust4,ntdust5,ntpp10, & - ntrac,gq0,num_chem,ppm2ugkg,chem,relhum, & - ids,ide, jds,jde, kds,kde, & - ims,ime, jms,jme, kms,kme, & - its,ite, jts,jte, kts,kte) - - - if (call_radiation) then - store_arrays = .false. - select case (aer_ra_feedback) - case (1) - call optical_driver(curr_secs,dtstep, & + call catchem_prep_rad( & + ktau,dtstep,ph3d,tk3d,prl3d,spechum,rri,dz8w, & + ntso2,ntsulf,ntDMS,ntmsa,ntpp25, & + ntbc1,ntbc2,ntoc1,ntoc2, & + ntss1,ntss2,ntss3,ntss4,ntss5, & + ntdust1,ntdust2,ntdust3,ntdust4,ntdust5,ntpp10, & + ntrac,gq0,num_chem,ppm2ugkg,chem,relhum, & + ids,ide, jds,jde, kds,kde, & + ims,ime, jms,jme, kms,kme, & + its,ite, jts,jte, kts,kte) + + + if (call_radiation) then + store_arrays = .false. + select case (aer_ra_feedback) + case (1) + call optical_driver(curr_secs,dtstep, & chem,dz8w,rri,relhum, & h2oai,h2oaj, & tauaersw,gaersw,waersw,bscoefsw,tauaerlw, & @@ -177,60 +177,60 @@ subroutine catchem_rad_wrapper_run(im, kte, kme, ktau, dt, & num_chem,chem_opt,ids,ide, jds,jde, kds,kde, & ims,ime, jms,jme, kms,kme, & its,ite, jts,jte, kts,kte) - call aer_opt_out(aod,dz8w, & + call aer_opt_out(aod,dz8w, & ext_coeff,bscat_coeff,asym_par, & tauaersw,gaersw,waersw,tauaerlw, & num_ext_coef,num_bscat_coef,num_asym_par, & ids,ide, jds,jde, kds,kde, & ims,ime, jms,jme, kms,kme, & its,ite, jts,jte, kts,kte) - call aer_ra(dz8w & + call aer_ra(dz8w & ,extt,ssca,asympar,nbands & ,tauaersw,gaersw,waersw,tauaerlw & ,ids,ide, jds,jde, kds,kde & ,ims,ime, jms,jme, kms,kme & ,its,ite, jts,jte, kts,kte) - store_arrays = .true. - case (2) - call aero_opt('sw',dz8w,chem & - ,rri,relhum,aod & - ,extt,ssca,asympar,num_chem & - ,ids,ide, jds,jde, kds,kde & - ,ims,ime, jms,jme, kms,kme & - ,its,ite, jts,jte, kts,kte) - store_arrays = .true. - case (3) - call aero_opt_new('sw',dz8w,chem & - ,rri,relhum & - ,extt,ssca,asympar,num_chem & - ,ids,ide, jds,jde, kds,kde & - ,ims,ime, jms,jme, kms,kme & - ,its,ite, jts,jte, kts,kte & - ,aod,aerodp) - store_arrays = .true. - case default - ! -- no feedback - end select - if (store_arrays) then - do nv = 1, nbands - do k = kts, kte - do i = its, ite - ext_cof(i,k,nv) = extt (i,k,1,nv) - sscal (i,k,nv) = ssca (i,k,1,nv) - asymp (i,k,nv) = asympar(i,k,1,nv) + store_arrays = .true. + case (2) + call aero_opt('sw',dz8w,chem & + ,rri,relhum,aod & + ,extt,ssca,asympar,num_chem & + ,ids,ide, jds,jde, kds,kde & + ,ims,ime, jms,jme, kms,kme & + ,its,ite, jts,jte, kts,kte) + store_arrays = .true. + case (3) + call aero_opt_new('sw',dz8w,chem & + ,rri,relhum & + ,extt,ssca,asympar,num_chem & + ,ids,ide, jds,jde, kds,kde & + ,ims,ime, jms,jme, kms,kme & + ,its,ite, jts,jte, kts,kte & + ,aod,aerodp) + store_arrays = .true. + case default + ! -- no feedback + end select + if (store_arrays) then + do nv = 1, nbands + do k = kts, kte + do i = its, ite + ext_cof(i,k,nv) = extt (i,k,1,nv) + sscal (i,k,nv) = ssca (i,k,1,nv) + asymp (i,k,nv) = asympar(i,k,1,nv) + end do + end do end do - end do - end do - aod2d(its:ite) = aod(its:ite,1) - end if - endif + aod2d(its:ite) = aod(its:ite,1) + end if + endif - abem(its:ite,7)=aod2d(its:ite) - abem(:,8)=aerodp(:,1,1) - abem(:,9)=aerodp(:,1,2) - abem(:,10)=aerodp(:,1,3) - abem(:,11)=aerodp(:,1,4) - abem(:,12)=aerodp(:,1,5) + abem(its:ite,7)=aod2d(its:ite) + abem(:,8)=aerodp(:,1,1) + abem(:,9)=aerodp(:,1,2) + abem(:,10)=aerodp(:,1,3) + abem(:,11)=aerodp(:,1,4) + abem(:,12)=aerodp(:,1,5) !>---- feedback to radiation ! if (cplchp_rad_opt) then @@ -249,132 +249,132 @@ subroutine catchem_rad_wrapper_run(im, kte, kme, ktau, dt, & end subroutine catchem_rad_wrapper_run !> @} subroutine catchem_prep_rad( & - ktau,dtstep,ph3d,tk3d,prl3d,spechum,rri,dz8w, & - ntso2,ntsulf,ntDMS,ntmsa,ntpp25, & - ntbc1,ntbc2,ntoc1,ntoc2, & - ntss1,ntss2,ntss3,ntss4,ntss5, & - ntdust1,ntdust2,ntdust3,ntdust4,ntdust5,ntpp10, & - ntrac,gq0,num_chem,ppm2ugkg,chem,relhum, & - ids,ide, jds,jde, kds,kde, & - ims,ime, jms,jme, kms,kme, & - its,ite, jts,jte, kts,kte) - - integer, intent(in) :: ktau - real(kind=kind_phys), intent(in) :: dtstep - - !FV3 input variables - integer, intent(in) :: ntrac,ntss1,ntss2,ntss3,ntss4,ntss5 - integer, intent(in) :: ntdust1,ntdust2,ntdust3,ntdust4,ntdust5 - integer, intent(in) :: ntso2,ntpp25,ntbc1,ntoc1,ntpp10 - integer, intent(in) :: ntsulf,ntbc2,ntoc2,ntDMS,ntmsa - real(kind=kind_phys), dimension(ims:ime, kms:kme), intent(in) :: ph3d - real(kind=kind_phys), dimension(ims:ime, kts:kte), intent(in) :: tk3d,prl3d,spechum - real(kind=kind_phys), dimension(ims:ime, kts:kte,ntrac), intent(in) :: gq0 - - - !GSD Chem variables - integer,intent(in) :: num_chem - integer,intent(in) :: ids,ide, jds,jde, kds,kde, & - ims,ime, jms,jme, kms,kme, & - its,ite, jts,jte, kts,kte - - real(kind_phys), dimension(num_chem), intent(in) :: ppm2ugkg - - real(kind_phys), dimension(ims:ime, kms:kme, jms:jme), intent(out) :: rri, dz8w, relhum - real(kind_phys), dimension(ims:ime, kms:kme, jms:jme, num_chem), intent(out) :: chem - - ! -- local variables - real(kind_phys), dimension(ims:ime, kms:kme, jms:jme, num_moist) :: moist - real(kind_phys), dimension(ims:ime, kms:kme, jms:jme) :: z_at_w, p_phy, rho_phy, t_phy - integer i,ip,j,jp,k,kp,kk,kkp,nv,l,ll,n - - ! -- initialize output arrays - rri = 0._kind_phys - dz8w = 0._kind_phys - relhum = 0._kind_phys - chem = 0._kind_phys - - - do j=jts,jte - jp = j - jts + 1 - do i=its,ite - ip = i - its + 1 - z_at_w(i,kts,j)=max(0.,ph3d(ip,1)/g) + ktau,dtstep,ph3d,tk3d,prl3d,spechum,rri,dz8w, & + ntso2,ntsulf,ntDMS,ntmsa,ntpp25, & + ntbc1,ntbc2,ntoc1,ntoc2, & + ntss1,ntss2,ntss3,ntss4,ntss5, & + ntdust1,ntdust2,ntdust3,ntdust4,ntdust5,ntpp10, & + ntrac,gq0,num_chem,ppm2ugkg,chem,relhum, & + ids,ide, jds,jde, kds,kde, & + ims,ime, jms,jme, kms,kme, & + its,ite, jts,jte, kts,kte) + + integer, intent(in) :: ktau + real(kind=kind_phys), intent(in) :: dtstep + + !FV3 input variables + integer, intent(in) :: ntrac,ntss1,ntss2,ntss3,ntss4,ntss5 + integer, intent(in) :: ntdust1,ntdust2,ntdust3,ntdust4,ntdust5 + integer, intent(in) :: ntso2,ntpp25,ntbc1,ntoc1,ntpp10 + integer, intent(in) :: ntsulf,ntbc2,ntoc2,ntDMS,ntmsa + real(kind=kind_phys), dimension(ims:ime, kms:kme), intent(in) :: ph3d + real(kind=kind_phys), dimension(ims:ime, kts:kte), intent(in) :: tk3d,prl3d,spechum + real(kind=kind_phys), dimension(ims:ime, kts:kte,ntrac), intent(in) :: gq0 + + + !GSD Chem variables + integer,intent(in) :: num_chem + integer,intent(in) :: ids,ide, jds,jde, kds,kde, & + ims,ime, jms,jme, kms,kme, & + its,ite, jts,jte, kts,kte + + real(kind_phys), dimension(num_chem), intent(in) :: ppm2ugkg + + real(kind_phys), dimension(ims:ime, kms:kme, jms:jme), intent(out) :: rri, dz8w, relhum + real(kind_phys), dimension(ims:ime, kms:kme, jms:jme, num_chem), intent(out) :: chem + + ! -- local variables + real(kind_phys), dimension(ims:ime, kms:kme, jms:jme, num_moist) :: moist + real(kind_phys), dimension(ims:ime, kms:kme, jms:jme) :: z_at_w, p_phy, rho_phy, t_phy + integer i,ip,j,jp,k,kp,kk,kkp,nv,l,ll,n + + ! -- initialize output arrays + rri = 0._kind_phys + dz8w = 0._kind_phys + relhum = 0._kind_phys + chem = 0._kind_phys + + + do j=jts,jte + jp = j - jts + 1 + do i=its,ite + ip = i - its + 1 + z_at_w(i,kts,j)=max(0.,ph3d(ip,1)/g) + enddo + enddo + + do j=jts,jte + jp = j - jts + 1 + do k=kts,kte + kp = k - kts + 1 + do i=its,ite + ip = i - its + 1 + dz8w(i,k,j)=abs(ph3d(ip,kp+1)-ph3d(ip,kp))/g + z_at_w(i,k+1,j)=z_at_w(i,k,j)+dz8w(i,k,j) + enddo + enddo enddo - enddo - - do j=jts,jte - jp = j - jts + 1 - do k=kts,kte - kp = k - kts + 1 - do i=its,ite - ip = i - its + 1 - dz8w(i,k,j)=abs(ph3d(ip,kp+1)-ph3d(ip,kp))/g - z_at_w(i,k+1,j)=z_at_w(i,k,j)+dz8w(i,k,j) - enddo + + do j=jts,jte + jp = j - jts + 1 + do k=kts,kte+1 + kk=min(k,kte) + kkp = kk - kts + 1 + do i=its,ite + ip = i - its + 1 + dz8w(i,k,j)=z_at_w(i,kk+1,j)-z_at_w(i,kk,j) + t_phy(i,k,j)=tk3d(ip,kkp) + p_phy(i,k,j)=prl3d(ip,kkp) + rho_phy(i,k,j)=p_phy(i,k,j)/(287.04*t_phy(i,k,j)*(1.+.608*spechum(ip,kkp))) + rri(i,k,j)=1./rho_phy(i,k,j) + moist(i,k,j,:)=0. + moist(i,k,j,1)=gq0(ip,kkp,p_atm_shum) + if (t_phy(i,k,j) > 265.) then + moist(i,k,j,2)=gq0(ip,kkp,p_atm_cldq) + moist(i,k,j,3)=0. + if (moist(i,k,j,2) < 1.e-8) moist(i,k,j,2)=0. + else + moist(i,k,j,2)=0. + moist(i,k,j,3)=gq0(ip,kkp,p_atm_cldq) + if(moist(i,k,j,3) < 1.e-8)moist(i,k,j,3)=0. + endif + relhum(i,k,j) = .99 + relhum(i,k,j) = MIN( .99, moist(i,k,j,1) / & + (3.80*exp(17.27*(t_phy(i,k,j)-273.)/ & + (t_phy(i,k,j)-36.))/(.01*p_phy(i,k,j)))) + relhum(i,k,j)=max(0.1,relhum(i,k,j)) + !-- + enddo + enddo enddo - enddo - - do j=jts,jte - jp = j - jts + 1 - do k=kts,kte+1 - kk=min(k,kte) - kkp = kk - kts + 1 - do i=its,ite - ip = i - its + 1 - dz8w(i,k,j)=z_at_w(i,kk+1,j)-z_at_w(i,kk,j) - t_phy(i,k,j)=tk3d(ip,kkp) - p_phy(i,k,j)=prl3d(ip,kkp) - rho_phy(i,k,j)=p_phy(i,k,j)/(287.04*t_phy(i,k,j)*(1.+.608*spechum(ip,kkp))) - rri(i,k,j)=1./rho_phy(i,k,j) - moist(i,k,j,:)=0. - moist(i,k,j,1)=gq0(ip,kkp,p_atm_shum) - if (t_phy(i,k,j) > 265.) then - moist(i,k,j,2)=gq0(ip,kkp,p_atm_cldq) - moist(i,k,j,3)=0. - if (moist(i,k,j,2) < 1.e-8) moist(i,k,j,2)=0. - else - moist(i,k,j,2)=0. - moist(i,k,j,3)=gq0(ip,kkp,p_atm_cldq) - if(moist(i,k,j,3) < 1.e-8)moist(i,k,j,3)=0. - endif - relhum(i,k,j) = .99 - relhum(i,k,j) = MIN( .99, moist(i,k,j,1) / & - (3.80*exp(17.27*(t_phy(i,k,j)-273.)/ & - (t_phy(i,k,j)-36.))/(.01*p_phy(i,k,j)))) - relhum(i,k,j)=max(0.1,relhum(i,k,j)) - !-- - enddo + + + do k=kms,kte + do i=ims,ime + chem(i,k,jts,p_so2 )=max(epsilc,gq0(i,k,ntso2 )/ppm2ugkg(p_so2)) + chem(i,k,jts,p_sulf )=max(epsilc,gq0(i,k,ntsulf )/ppm2ugkg(p_sulf)) + chem(i,k,jts,p_dms )=max(epsilc,gq0(i,k,ntdms )/ppm2ugkg(p_dms)) + chem(i,k,jts,p_msa )=max(epsilc,gq0(i,k,ntmsa )/ppm2ugkg(p_msa)) + chem(i,k,jts,p_p25 )=max(epsilc,gq0(i,k,ntpp25 )/ppm2ugkg(p_p25)) + chem(i,k,jts,p_bc1 )=max(epsilc,gq0(i,k,ntbc1 )/ppm2ugkg(p_bc1)) + chem(i,k,jts,p_bc2 )=max(epsilc,gq0(i,k,ntbc2 )/ppm2ugkg(p_bc2)) + chem(i,k,jts,p_oc1 )=max(epsilc,gq0(i,k,ntoc1 )/ppm2ugkg(p_oc1)) + chem(i,k,jts,p_oc2 )=max(epsilc,gq0(i,k,ntoc2 )/ppm2ugkg(p_oc2)) + chem(i,k,jts,p_dust_1)=max(epsilc,gq0(i,k,ntdust1)/ppm2ugkg(p_dust_1)) + chem(i,k,jts,p_dust_2)=max(epsilc,gq0(i,k,ntdust2)/ppm2ugkg(p_dust_2)) + chem(i,k,jts,p_dust_3)=max(epsilc,gq0(i,k,ntdust3)/ppm2ugkg(p_dust_3)) + chem(i,k,jts,p_dust_4)=max(epsilc,gq0(i,k,ntdust4)/ppm2ugkg(p_dust_4)) + chem(i,k,jts,p_dust_5)=max(epsilc,gq0(i,k,ntdust5)/ppm2ugkg(p_dust_5)) + chem(i,k,jts,p_seas_1)=max(epsilc,gq0(i,k,ntss1 )/ppm2ugkg(p_seas_1)) + chem(i,k,jts,p_seas_2)=max(epsilc,gq0(i,k,ntss2 )/ppm2ugkg(p_seas_2)) + chem(i,k,jts,p_seas_3)=max(epsilc,gq0(i,k,ntss3 )/ppm2ugkg(p_seas_3)) + chem(i,k,jts,p_seas_4)=max(epsilc,gq0(i,k,ntss4 )/ppm2ugkg(p_seas_4)) + chem(i,k,jts,p_seas_5)=max(epsilc,gq0(i,k,ntss5 )/ppm2ugkg(p_seas_5)) + chem(i,k,jts,p_p10 )=max(epsilc,gq0(i,k,ntpp10 )/ppm2ugkg(p_p10)) + enddo enddo - enddo - - - do k=kms,kte - do i=ims,ime - chem(i,k,jts,p_so2 )=max(epsilc,gq0(i,k,ntso2 )/ppm2ugkg(p_so2)) - chem(i,k,jts,p_sulf )=max(epsilc,gq0(i,k,ntsulf )/ppm2ugkg(p_sulf)) - chem(i,k,jts,p_dms )=max(epsilc,gq0(i,k,ntdms )/ppm2ugkg(p_dms)) - chem(i,k,jts,p_msa )=max(epsilc,gq0(i,k,ntmsa )/ppm2ugkg(p_msa)) - chem(i,k,jts,p_p25 )=max(epsilc,gq0(i,k,ntpp25 )/ppm2ugkg(p_p25)) - chem(i,k,jts,p_bc1 )=max(epsilc,gq0(i,k,ntbc1 )/ppm2ugkg(p_bc1)) - chem(i,k,jts,p_bc2 )=max(epsilc,gq0(i,k,ntbc2 )/ppm2ugkg(p_bc2)) - chem(i,k,jts,p_oc1 )=max(epsilc,gq0(i,k,ntoc1 )/ppm2ugkg(p_oc1)) - chem(i,k,jts,p_oc2 )=max(epsilc,gq0(i,k,ntoc2 )/ppm2ugkg(p_oc2)) - chem(i,k,jts,p_dust_1)=max(epsilc,gq0(i,k,ntdust1)/ppm2ugkg(p_dust_1)) - chem(i,k,jts,p_dust_2)=max(epsilc,gq0(i,k,ntdust2)/ppm2ugkg(p_dust_2)) - chem(i,k,jts,p_dust_3)=max(epsilc,gq0(i,k,ntdust3)/ppm2ugkg(p_dust_3)) - chem(i,k,jts,p_dust_4)=max(epsilc,gq0(i,k,ntdust4)/ppm2ugkg(p_dust_4)) - chem(i,k,jts,p_dust_5)=max(epsilc,gq0(i,k,ntdust5)/ppm2ugkg(p_dust_5)) - chem(i,k,jts,p_seas_1)=max(epsilc,gq0(i,k,ntss1 )/ppm2ugkg(p_seas_1)) - chem(i,k,jts,p_seas_2)=max(epsilc,gq0(i,k,ntss2 )/ppm2ugkg(p_seas_2)) - chem(i,k,jts,p_seas_3)=max(epsilc,gq0(i,k,ntss3 )/ppm2ugkg(p_seas_3)) - chem(i,k,jts,p_seas_4)=max(epsilc,gq0(i,k,ntss4 )/ppm2ugkg(p_seas_4)) - chem(i,k,jts,p_seas_5)=max(epsilc,gq0(i,k,ntss5 )/ppm2ugkg(p_seas_5)) - chem(i,k,jts,p_p10 )=max(epsilc,gq0(i,k,ntpp10 )/ppm2ugkg(p_p10)) - enddo - enddo - - - end subroutine catchem_prep_rad + + + end subroutine catchem_prep_rad !> @} - end module catchem_rad_wrapper +end module catchem_rad_wrapper diff --git a/drivers/ccpp/catchem_seas_wrapper.F90 b/drivers/ccpp/catchem_seas_wrapper.F90 index 35d83b16..b687fbef 100644 --- a/drivers/ccpp/catchem_seas_wrapper.F90 +++ b/drivers/ccpp/catchem_seas_wrapper.F90 @@ -4,7 +4,7 @@ !! Revision History: !! 05/2023, Restructure for CATChem, Jian.He@noaa.gov - module catchem_seas_wrapper +module catchem_seas_wrapper use physcons, only : g => con_g, pi => con_pi use machine , only : kind_phys @@ -24,19 +24,19 @@ module catchem_seas_wrapper !> \brief Brief description of the subroutine !! - subroutine catchem_seas_wrapper_init - end subroutine catchem_seas_wrapper_init + subroutine catchem_seas_wrapper_init + end subroutine catchem_seas_wrapper_init !> \brief Brief description of the subroutine !! !! \section arg_table_catchem_seas_wrapper_finalize Argument Table !! - subroutine catchem_seas_wrapper_finalize() - end subroutine catchem_seas_wrapper_finalize + subroutine catchem_seas_wrapper_finalize() + end subroutine catchem_seas_wrapper_finalize !> \defgroup catchem_seas_group CATChem seas wrapper Module !! This is the Configurable ATmospheric Chemistry (CATChem) -!>\defgroup catchem_seas_wrapper CATChem seas wrapper Module +!>\defgroup catchem_seas_wrapper CATChem seas wrapper Module !> \ingroup catchem_seas_group !! This is the CATChem seas wrapper Module !! \section arg_table_catchem_seas_wrapper_run Argument Table @@ -44,351 +44,351 @@ end subroutine catchem_seas_wrapper_finalize !! !>\section catchem_seas_wrapper CATChem Scheme General Algorithm !> @{ - subroutine catchem_seas_wrapper_run(im, kte, kme, ktau, dt, garea, & - land, oceanfrac, fice, u10m, v10m, ustar, rlat, rlon, tskin, & - pr3d, ph3d,prl3d, tk3d, us3d, vs3d, spechum, & - nseasalt,ntrac,ntss1,ntss2,ntss3,ntss4,ntss5, & - gq0,qgrs,ssem,seas_opt_in, sstemisFlag,seas_emis_scale, & - pert_scale_seas, & - emis_amp_seas, do_sppt_emis, sppt_wts, errmsg, errflg) - - implicit none - - integer, intent(in) :: im,kte,kme,ktau - integer, intent(in) :: nseasalt,ntrac,ntss1,ntss2,ntss3,ntss4,ntss5 - real(kind_phys),intent(in) :: dt - - logical, intent(in) :: do_sppt_emis - real(kind=kind_phys), intent(in) :: emis_amp_seas, pert_scale_seas - real(kind_phys), dimension(5), intent(in) :: seas_emis_scale - real(kind_phys), optional, intent(in) :: sppt_wts(:,:) - - - integer, parameter :: ids=1,jds=1,jde=1, kds=1 - integer, parameter :: ims=1,jms=1,jme=1, kms=1 - integer, parameter :: its=1,jts=1,jte=1, kts=1 - - integer, dimension(im), intent(in) :: land - real(kind_phys), dimension(im), intent(in) :: u10m, v10m, ustar,oceanfrac, fice, & - garea, rlat,rlon, tskin - real(kind_phys), dimension(im,kme), intent(in) :: ph3d, pr3d - real(kind_phys), dimension(im,kte), intent(in) :: prl3d, tk3d, us3d, vs3d, spechum - real(kind_phys), dimension(im,kte,ntrac), intent(inout) :: gq0,qgrs - real(kind_phys), dimension(im, nseasalt), intent(inout) :: ssem - integer, intent(in) :: seas_opt_in, sstemisFlag - character(len=*), intent(out) :: errmsg - integer, intent(out) :: errflg - - real(kind_phys), dimension(1:im, 1:kme,jms:jme) :: rri, t_phy, u_phy, v_phy, & - dz8w, p8w, rho_phy - - real(kind_phys), dimension(ims:im, jms:jme) :: u10, v10, ust, tsk, & - xland, frocean,fraci,xlat, xlong, dxy + subroutine catchem_seas_wrapper_run(im, kte, kme, ktau, dt, garea, & + land, oceanfrac, fice, u10m, v10m, ustar, rlat, rlon, tskin, & + pr3d, ph3d,prl3d, tk3d, us3d, vs3d, spechum, & + nseasalt,ntrac,ntss1,ntss2,ntss3,ntss4,ntss5, & + gq0,qgrs,ssem,seas_opt_in, sstemisFlag,seas_emis_scale, & + pert_scale_seas, & + emis_amp_seas, do_sppt_emis, sppt_wts, errmsg, errflg) + + implicit none + + integer, intent(in) :: im,kte,kme,ktau + integer, intent(in) :: nseasalt,ntrac,ntss1,ntss2,ntss3,ntss4,ntss5 + real(kind_phys),intent(in) :: dt + + logical, intent(in) :: do_sppt_emis + real(kind=kind_phys), intent(in) :: emis_amp_seas, pert_scale_seas + real(kind_phys), dimension(5), intent(in) :: seas_emis_scale + real(kind_phys), optional, intent(in) :: sppt_wts(:,:) + + + integer, parameter :: ids=1,jds=1,jde=1, kds=1 + integer, parameter :: ims=1,jms=1,jme=1, kms=1 + integer, parameter :: its=1,jts=1,jte=1, kts=1 + + integer, dimension(im), intent(in) :: land + real(kind_phys), dimension(im), intent(in) :: u10m, v10m, ustar,oceanfrac, fice, & + garea, rlat,rlon, tskin + real(kind_phys), dimension(im,kme), intent(in) :: ph3d, pr3d + real(kind_phys), dimension(im,kte), intent(in) :: prl3d, tk3d, us3d, vs3d, spechum + real(kind_phys), dimension(im,kte,ntrac), intent(inout) :: gq0,qgrs + real(kind_phys), dimension(im, nseasalt), intent(inout) :: ssem + integer, intent(in) :: seas_opt_in, sstemisFlag + character(len=*), intent(out) :: errmsg + integer, intent(out) :: errflg + + real(kind_phys), dimension(1:im, 1:kme,jms:jme) :: rri, t_phy, u_phy, v_phy, & + dz8w, p8w, rho_phy + + real(kind_phys), dimension(ims:im, jms:jme) :: u10, v10, ust, tsk, & + xland, frocean,fraci,xlat, xlong, dxy !>- sea salt & chemistry variables - real(kind_phys), dimension(ims:im, kms:kme, jms:jme, 1:num_moist) :: moist - real(kind_phys), dimension(ims:im, kms:kme, jms:jme, 1:num_chem ) :: chem - real(kind_phys), dimension(ims:im, 1, jms:jme, 1:num_emis_seas ) :: emis_seas - real(kind_phys), dimension(ims:im, jms:jme) :: seashelp + real(kind_phys), dimension(ims:im, kms:kme, jms:jme, 1:num_moist) :: moist + real(kind_phys), dimension(ims:im, kms:kme, jms:jme, 1:num_chem ) :: chem + real(kind_phys), dimension(ims:im, 1, jms:jme, 1:num_emis_seas ) :: emis_seas + real(kind_phys), dimension(ims:im, jms:jme) :: seashelp - integer :: ide, ime, ite, kde - real(kind_phys), dimension(1:num_chem) :: ppm2ugkg - real(kind_phys) :: random_factor(ims:im,jms:jme) + integer :: ide, ime, ite, kde + real(kind_phys), dimension(1:num_chem) :: ppm2ugkg + real(kind_phys) :: random_factor(ims:im,jms:jme) !>-- local variables - integer :: i, j, jp, k, kp, n - real(kind_phys) :: delp + integer :: i, j, jp, k, kp, n + real(kind_phys) :: delp - errmsg = '' - errflg = 0 + errmsg = '' + errflg = 0 - ! -- set domain - ide=im - ime=im - ite=im - kde=kte + ! -- set domain + ide=im + ime=im + ite=im + kde=kte - ! -- volume to mass fraction conversion table (ppm -> ug/kg) - ppm2ugkg = 1._kind_phys - !ppm2ugkg(p_so2 ) = 1.e+03_kind_phys * mw_so2_aer / mwdry - ppm2ugkg(p_sulf) = 1.e+03_kind_phys * mw_so4_aer / mwdry + ! -- volume to mass fraction conversion table (ppm -> ug/kg) + ppm2ugkg = 1._kind_phys + !ppm2ugkg(p_so2 ) = 1.e+03_kind_phys * mw_so2_aer / mwdry + ppm2ugkg(p_sulf) = 1.e+03_kind_phys * mw_so4_aer / mwdry - if(do_sppt_emis) then - random_factor(:,jms) = pert_scale_seas*max(min(1+(sppt_wts(:,kme/2)-1)*emis_amp_seas,2.0),0.0) - else - random_factor = 1.0 - endif + if(do_sppt_emis) then + random_factor(:,jms) = pert_scale_seas*max(min(1+(sppt_wts(:,kme/2)-1)*emis_amp_seas,2.0),0.0) + else + random_factor = 1.0 + endif !>- get ready for chemistry run - call catchem_prep_seas( & - u10m,v10m,ustar,land,oceanfrac, fice, garea,rlat,rlon,tskin, & - pr3d,ph3d,tk3d,prl3d,us3d,vs3d,spechum, & - u10,v10,ust,tsk,xland,frocean,fraci,xlat,xlong,dxy, & - rri,t_phy,u_phy,v_phy,rho_phy,dz8w,p8w, & - ntss1,ntss2,ntss3,ntss4,ntss5,ntrac,gq0, & - num_chem, num_moist,ppm2ugkg,moist,chem, & - ids,ide, jds,jde, kds,kde, & - ims,ime, jms,jme, kms,kme, & - its,ite, jts,jte, kts,kte) - - - ! -- compute sea salt - if (seas_opt_in >= SEAS_OPT_DEFAULT) then - seashelp(:,:) = 0. - - ! based on chem_opt - select case (chem_opt) - - case (304, 316, 317) - !JianHe: 06/2023, we do not use this scheme - !Maybe we do not need this anymore - ! -- simple scheme - do j=jts,jte - do i=its,ite - ! -- only use sea salt scheme over water - if (xland(i,j).lt.0.5) then - delp = p8w(i,kts,j)-p8w(i,kts+1,j) - - call gocart_seas_simple(ktau,dt,u_phy(i,kts,j), & - v_phy(i,kts,j),chem(i,kts,j,:),dz8w(i,kts,j),u10(i,j), & - v10(i,j),delp,tsk(i,j),dxy(i,j), & - seashelp(i,j)) - endif - enddo - enddo - - case default - ! based on seas_opt - select case (seas_opt_in) - case (1) - ! -- original GOCART sea salt scheme - do j=jts,jte - do i=its,ite - ! -- only use sea salt scheme over water - if (xland(i,j).lt.0.5) then - delp = p8w(i,kts,j)-p8w(i,kts+1,j) - - call gocart_seas_default(ktau,dt,u_phy(i,kts,j), & - v_phy(i,kts,j),chem(i,kts,j,:),dz8w(i,kts,j),u10(i,j), & - v10(i,j),delp,tsk(i,j),dxy(i,j), & - emis_seas(i,1,j,:)) - endif - enddo - enddo - - case (2) - ! -- NGAC sea salt scheme - do j=jts,jte - do i=its,ite + call catchem_prep_seas( & + u10m,v10m,ustar,land,oceanfrac, fice, garea,rlat,rlon,tskin, & + pr3d,ph3d,tk3d,prl3d,us3d,vs3d,spechum, & + u10,v10,ust,tsk,xland,frocean,fraci,xlat,xlong,dxy, & + rri,t_phy,u_phy,v_phy,rho_phy,dz8w,p8w, & + ntss1,ntss2,ntss3,ntss4,ntss5,ntrac,gq0, & + num_chem, num_moist,ppm2ugkg,moist,chem, & + ids,ide, jds,jde, kds,kde, & + ims,ime, jms,jme, kms,kme, & + its,ite, jts,jte, kts,kte) + + + ! -- compute sea salt + if (seas_opt_in >= SEAS_OPT_DEFAULT) then + seashelp(:,:) = 0. + + ! based on chem_opt + select case (chem_opt) + + case (304, 316, 317) + !JianHe: 06/2023, we do not use this scheme + !Maybe we do not need this anymore + ! -- simple scheme + do j=jts,jte + do i=its,ite ! -- only use sea salt scheme over water if (xland(i,j).lt.0.5) then - delp = p8w(i,kts,j)-p8w(i,kts+1,j) - - call gocart_seas_ngac(ktau,dt,u_phy(i,kts,j), & - v_phy(i,kts,j),chem(i,kts,j,:),dz8w(i,kts,j),u10(i,j), & - v10(i,j),ust(i,j),delp,tsk(i,j), & - frocean(i,j),fraci(i,j), & - xlat(i,j),xlong(i,j),dxy(i,j),emis_seas(i,1,j,:), & - sstemisFlag,seas_emis_scale,random_factor(i,j)) + delp = p8w(i,kts,j)-p8w(i,kts+1,j) + + call gocart_seas_simple(ktau,dt,u_phy(i,kts,j), & + v_phy(i,kts,j),chem(i,kts,j,:),dz8w(i,kts,j),u10(i,j), & + v10(i,j),delp,tsk(i,j),dxy(i,j), & + seashelp(i,j)) endif - enddo - enddo - - case default - ! -- no sea salt scheme - errmsg = 'Logic error in catchem_seas_wrapper_run: invalid seas_opt' - errflg = 1 - return - - end select - end select - - endif - - ! -- put chem stuff back into tracer array - do k=kts,kte - do i=its,ite - gq0(i,k,ntss1 )=ppm2ugkg(p_seas_1) * max(epsilc,chem(i,k,1,p_seas_1)) - gq0(i,k,ntss2 )=ppm2ugkg(p_seas_2) * max(epsilc,chem(i,k,1,p_seas_2)) - gq0(i,k,ntss3 )=ppm2ugkg(p_seas_3) * max(epsilc,chem(i,k,1,p_seas_3)) - gq0(i,k,ntss4 )=ppm2ugkg(p_seas_4) * max(epsilc,chem(i,k,1,p_seas_4)) - gq0(i,k,ntss5 )=ppm2ugkg(p_seas_5) * max(epsilc,chem(i,k,1,p_seas_5)) - enddo - enddo - - do k=kts,kte - do i=its,ite - qgrs(i,k,ntss1 )=gq0(i,k,ntss1 ) - qgrs(i,k,ntss2 )=gq0(i,k,ntss2 ) - qgrs(i,k,ntss3 )=gq0(i,k,ntss3 ) - qgrs(i,k,ntss4 )=gq0(i,k,ntss4 ) - qgrs(i,k,ntss5 )=gq0(i,k,ntss5 ) - enddo - enddo - - do i=1,im - do n=1,nseasalt - ssem(i,n)=emis_seas(i,1,1,n) - enddo - enddo + enddo + enddo + + case default + ! based on seas_opt + select case (seas_opt_in) + case (1) + ! -- original GOCART sea salt scheme + do j=jts,jte + do i=its,ite + ! -- only use sea salt scheme over water + if (xland(i,j).lt.0.5) then + delp = p8w(i,kts,j)-p8w(i,kts+1,j) + + call gocart_seas_default(ktau,dt,u_phy(i,kts,j), & + v_phy(i,kts,j),chem(i,kts,j,:),dz8w(i,kts,j),u10(i,j), & + v10(i,j),delp,tsk(i,j),dxy(i,j), & + emis_seas(i,1,j,:)) + endif + enddo + enddo + + case (2) + ! -- NGAC sea salt scheme + do j=jts,jte + do i=its,ite + ! -- only use sea salt scheme over water + if (xland(i,j).lt.0.5) then + delp = p8w(i,kts,j)-p8w(i,kts+1,j) + + call gocart_seas_ngac(ktau,dt,u_phy(i,kts,j), & + v_phy(i,kts,j),chem(i,kts,j,:),dz8w(i,kts,j),u10(i,j), & + v10(i,j),ust(i,j),delp,tsk(i,j), & + frocean(i,j),fraci(i,j), & + xlat(i,j),xlong(i,j),dxy(i,j),emis_seas(i,1,j,:), & + sstemisFlag,seas_emis_scale,random_factor(i,j)) + endif + enddo + enddo + + case default + ! -- no sea salt scheme + errmsg = 'Logic error in catchem_seas_wrapper_run: invalid seas_opt' + errflg = 1 + return + + end select + end select + + endif + + ! -- put chem stuff back into tracer array + do k=kts,kte + do i=its,ite + gq0(i,k,ntss1 )=ppm2ugkg(p_seas_1) * max(epsilc,chem(i,k,1,p_seas_1)) + gq0(i,k,ntss2 )=ppm2ugkg(p_seas_2) * max(epsilc,chem(i,k,1,p_seas_2)) + gq0(i,k,ntss3 )=ppm2ugkg(p_seas_3) * max(epsilc,chem(i,k,1,p_seas_3)) + gq0(i,k,ntss4 )=ppm2ugkg(p_seas_4) * max(epsilc,chem(i,k,1,p_seas_4)) + gq0(i,k,ntss5 )=ppm2ugkg(p_seas_5) * max(epsilc,chem(i,k,1,p_seas_5)) + enddo + enddo + + do k=kts,kte + do i=its,ite + qgrs(i,k,ntss1 )=gq0(i,k,ntss1 ) + qgrs(i,k,ntss2 )=gq0(i,k,ntss2 ) + qgrs(i,k,ntss3 )=gq0(i,k,ntss3 ) + qgrs(i,k,ntss4 )=gq0(i,k,ntss4 ) + qgrs(i,k,ntss5 )=gq0(i,k,ntss5 ) + enddo + enddo + + do i=1,im + do n=1,nseasalt + ssem(i,n)=emis_seas(i,1,1,n) + enddo + enddo ! end subroutine catchem_seas_wrapper_run !> @} subroutine catchem_prep_seas( & - u10m,v10m,ustar,land,oceanfrac, fice,garea,rlat,rlon,ts2d, & - pr3d,ph3d,tk3d,prl3d,us3d,vs3d,spechum, & - u10,v10,ust,tsk,xland,frocean,fraci,xlat,xlong,dxy, & - rri,t_phy,u_phy,v_phy,rho_phy,dz8w,p8w, & - ntss1,ntss2,ntss3,ntss4,ntss5,ntrac,gq0, & - num_chem, num_moist,ppm2ugkg,moist,chem, & - ids,ide, jds,jde, kds,kde, & - ims,ime, jms,jme, kms,kme, & - its,ite, jts,jte, kts,kte) - - !Chem input configuration - - !FV3 input variables - integer, dimension(ims:ime), intent(in) :: land - integer, intent(in) :: ntrac,ntss1,ntss2,ntss3,ntss4,ntss5 - real(kind=kind_phys), dimension(ims:ime), intent(in) ::oceanfrac,fice, & + u10m,v10m,ustar,land,oceanfrac, fice,garea,rlat,rlon,ts2d, & + pr3d,ph3d,tk3d,prl3d,us3d,vs3d,spechum, & + u10,v10,ust,tsk,xland,frocean,fraci,xlat,xlong,dxy, & + rri,t_phy,u_phy,v_phy,rho_phy,dz8w,p8w, & + ntss1,ntss2,ntss3,ntss4,ntss5,ntrac,gq0, & + num_chem, num_moist,ppm2ugkg,moist,chem, & + ids,ide, jds,jde, kds,kde, & + ims,ime, jms,jme, kms,kme, & + its,ite, jts,jte, kts,kte) + + !Chem input configuration + + !FV3 input variables + integer, dimension(ims:ime), intent(in) :: land + integer, intent(in) :: ntrac,ntss1,ntss2,ntss3,ntss4,ntss5 + real(kind=kind_phys), dimension(ims:ime), intent(in) ::oceanfrac,fice, & u10m, v10m, ustar, garea, rlat, rlon, ts2d - real(kind=kind_phys), dimension(ims:ime, kms:kme), intent(in) :: pr3d,ph3d - real(kind=kind_phys), dimension(ims:ime, kts:kte), intent(in) :: & + real(kind=kind_phys), dimension(ims:ime, kms:kme), intent(in) :: pr3d,ph3d + real(kind=kind_phys), dimension(ims:ime, kts:kte), intent(in) :: & tk3d,prl3d,us3d,vs3d,spechum - real(kind=kind_phys), dimension(ims:ime, kts:kte,ntrac), intent(in) :: gq0 + real(kind=kind_phys), dimension(ims:ime, kts:kte,ntrac), intent(in) :: gq0 - !GSD Chem variables - integer,intent(in) :: num_chem, num_moist - integer,intent(in) :: ids,ide, jds,jde, kds,kde, & - ims,ime, jms,jme, kms,kme, & - its,ite, jts,jte, kts,kte + !GSD Chem variables + integer,intent(in) :: num_chem, num_moist + integer,intent(in) :: ids,ide, jds,jde, kds,kde, & + ims,ime, jms,jme, kms,kme, & + its,ite, jts,jte, kts,kte - real(kind_phys), dimension(num_chem), intent(in) :: ppm2ugkg + real(kind_phys), dimension(num_chem), intent(in) :: ppm2ugkg - real(kind_phys), dimension(ims:ime, kms:kme, jms:jme), intent(out) :: & + real(kind_phys), dimension(ims:ime, kms:kme, jms:jme), intent(out) :: & rri, t_phy, u_phy, v_phy, rho_phy, dz8w, p8w - real(kind_phys), dimension(ims:ime, jms:jme), intent(out) :: & + real(kind_phys), dimension(ims:ime, jms:jme), intent(out) :: & u10, v10, ust, tsk, xland, frocean,fraci, xlat, xlong, dxy - real(kind_phys), dimension(ims:ime, kms:kme, jms:jme, num_moist), intent(out) :: moist - real(kind_phys), dimension(ims:ime, kms:kme, jms:jme, num_chem), intent(out) :: chem - - - ! -- local variables - real(kind_phys), dimension(ims:ime, kms:kme, jms:jme) :: z_at_w, p_phy - integer i,ip,j,jp,k,kp,kk,kkp,l,ll,n - - ! -- initialize output arrays - rri = 0._kind_phys - t_phy = 0._kind_phys - u_phy = 0._kind_phys - v_phy = 0._kind_phys - rho_phy = 0._kind_phys - dz8w = 0._kind_phys - p8w = 0._kind_phys - u10 = 0._kind_phys - v10 = 0._kind_phys - ust = 0._kind_phys - tsk = 0._kind_phys - xland = 0._kind_phys - frocean = 0._kind_phys - fraci = 0._kind_phys - xlat = 0._kind_phys - xlong = 0._kind_phys - dxy = 0._kind_phys - moist = 0._kind_phys - chem = 0._kind_phys - - - do i=its,ite - u10 (i,1)=u10m (i) - v10 (i,1)=v10m (i) - tsk (i,1)=ts2d (i) - ust (i,1)=ustar(i) - dxy (i,1)=garea(i) - xland(i,1)=real(land(i)) - frocean(i,1)=oceanfrac(i) - fraci(i,1)=fice(i) - xlat (i,1)=rlat(i)*180./pi - xlong(i,1)=rlon(i)*180./pi - enddo - - do j=jts,jte - jp = j - jts + 1 + real(kind_phys), dimension(ims:ime, kms:kme, jms:jme, num_moist), intent(out) :: moist + real(kind_phys), dimension(ims:ime, kms:kme, jms:jme, num_chem), intent(out) :: chem + + + ! -- local variables + real(kind_phys), dimension(ims:ime, kms:kme, jms:jme) :: z_at_w, p_phy + integer i,ip,j,jp,k,kp,kk,kkp,l,ll,n + + ! -- initialize output arrays + rri = 0._kind_phys + t_phy = 0._kind_phys + u_phy = 0._kind_phys + v_phy = 0._kind_phys + rho_phy = 0._kind_phys + dz8w = 0._kind_phys + p8w = 0._kind_phys + u10 = 0._kind_phys + v10 = 0._kind_phys + ust = 0._kind_phys + tsk = 0._kind_phys + xland = 0._kind_phys + frocean = 0._kind_phys + fraci = 0._kind_phys + xlat = 0._kind_phys + xlong = 0._kind_phys + dxy = 0._kind_phys + moist = 0._kind_phys + chem = 0._kind_phys + + do i=its,ite - ip = i - its + 1 - z_at_w(i,kts,j)=max(0.,ph3d(ip,1)/g) + u10 (i,1)=u10m (i) + v10 (i,1)=v10m (i) + tsk (i,1)=ts2d (i) + ust (i,1)=ustar(i) + dxy (i,1)=garea(i) + xland(i,1)=real(land(i)) + frocean(i,1)=oceanfrac(i) + fraci(i,1)=fice(i) + xlat (i,1)=rlat(i)*180./pi + xlong(i,1)=rlon(i)*180./pi enddo - enddo - do j=jts,jte - jp = j - jts + 1 - do k=kts,kte - kp = k - kts + 1 - do i=its,ite - ip = i - its + 1 - dz8w(i,k,j)=abs(ph3d(ip,kp+1)-ph3d(ip,kp))/g - z_at_w(i,k+1,j)=z_at_w(i,k,j)+dz8w(i,k,j) - enddo + do j=jts,jte + jp = j - jts + 1 + do i=its,ite + ip = i - its + 1 + z_at_w(i,kts,j)=max(0.,ph3d(ip,1)/g) + enddo enddo - enddo - - do j=jts,jte - jp = j - jts + 1 - do k=kts,kte+1 - kp = k - kts + 1 - do i=its,ite - ip = i - its + 1 - p8w(i,k,j)=pr3d(ip,kp) - enddo + + do j=jts,jte + jp = j - jts + 1 + do k=kts,kte + kp = k - kts + 1 + do i=its,ite + ip = i - its + 1 + dz8w(i,k,j)=abs(ph3d(ip,kp+1)-ph3d(ip,kp))/g + z_at_w(i,k+1,j)=z_at_w(i,k,j)+dz8w(i,k,j) + enddo + enddo enddo - enddo - - do j=jts,jte - jp = j - jts + 1 - do k=kts,kte+1 - kk=min(k,kte) - kkp = kk - kts + 1 - do i=its,ite - ip = i - its + 1 - dz8w(i,k,j)=z_at_w(i,kk+1,j)-z_at_w(i,kk,j) - t_phy(i,k,j)=tk3d(ip,kkp) - p_phy(i,k,j)=prl3d(ip,kkp) - u_phy(i,k,j)=us3d(ip,kkp) - v_phy(i,k,j)=vs3d(ip,kkp) - rho_phy(i,k,j)=p_phy(i,k,j)/(287.04*t_phy(i,k,j)*(1.+.608*spechum(ip,kkp))) - rri(i,k,j)=1./rho_phy(i,k,j) - moist(i,k,j,:)=0. - moist(i,k,j,1)=gq0(ip,kkp,p_atm_shum) - if (t_phy(i,k,j) > 265.) then - moist(i,k,j,2)=gq0(ip,kkp,p_atm_cldq) - moist(i,k,j,3)=0. - if (moist(i,k,j,2) < 1.e-8) moist(i,k,j,2)=0. - else - moist(i,k,j,2)=0. - moist(i,k,j,3)=gq0(ip,kkp,p_atm_cldq) - if(moist(i,k,j,3) < 1.e-8)moist(i,k,j,3)=0. - endif - !-- - enddo + + do j=jts,jte + jp = j - jts + 1 + do k=kts,kte+1 + kp = k - kts + 1 + do i=its,ite + ip = i - its + 1 + p8w(i,k,j)=pr3d(ip,kp) + enddo + enddo enddo - enddo - - do k=kms,kte - do i=ims,ime - chem(i,k,jts,p_seas_1)=max(epsilc,gq0(i,k,ntss1 )/ppm2ugkg(p_seas_1)) - chem(i,k,jts,p_seas_2)=max(epsilc,gq0(i,k,ntss2 )/ppm2ugkg(p_seas_2)) - chem(i,k,jts,p_seas_3)=max(epsilc,gq0(i,k,ntss3 )/ppm2ugkg(p_seas_3)) - chem(i,k,jts,p_seas_4)=max(epsilc,gq0(i,k,ntss4 )/ppm2ugkg(p_seas_4)) - chem(i,k,jts,p_seas_5)=max(epsilc,gq0(i,k,ntss5 )/ppm2ugkg(p_seas_5)) - enddo - enddo + do j=jts,jte + jp = j - jts + 1 + do k=kts,kte+1 + kk=min(k,kte) + kkp = kk - kts + 1 + do i=its,ite + ip = i - its + 1 + dz8w(i,k,j)=z_at_w(i,kk+1,j)-z_at_w(i,kk,j) + t_phy(i,k,j)=tk3d(ip,kkp) + p_phy(i,k,j)=prl3d(ip,kkp) + u_phy(i,k,j)=us3d(ip,kkp) + v_phy(i,k,j)=vs3d(ip,kkp) + rho_phy(i,k,j)=p_phy(i,k,j)/(287.04*t_phy(i,k,j)*(1.+.608*spechum(ip,kkp))) + rri(i,k,j)=1./rho_phy(i,k,j) + moist(i,k,j,:)=0. + moist(i,k,j,1)=gq0(ip,kkp,p_atm_shum) + if (t_phy(i,k,j) > 265.) then + moist(i,k,j,2)=gq0(ip,kkp,p_atm_cldq) + moist(i,k,j,3)=0. + if (moist(i,k,j,2) < 1.e-8) moist(i,k,j,2)=0. + else + moist(i,k,j,2)=0. + moist(i,k,j,3)=gq0(ip,kkp,p_atm_cldq) + if(moist(i,k,j,3) < 1.e-8)moist(i,k,j,3)=0. + endif + !-- + enddo + enddo + enddo + + + do k=kms,kte + do i=ims,ime + chem(i,k,jts,p_seas_1)=max(epsilc,gq0(i,k,ntss1 )/ppm2ugkg(p_seas_1)) + chem(i,k,jts,p_seas_2)=max(epsilc,gq0(i,k,ntss2 )/ppm2ugkg(p_seas_2)) + chem(i,k,jts,p_seas_3)=max(epsilc,gq0(i,k,ntss3 )/ppm2ugkg(p_seas_3)) + chem(i,k,jts,p_seas_4)=max(epsilc,gq0(i,k,ntss4 )/ppm2ugkg(p_seas_4)) + chem(i,k,jts,p_seas_5)=max(epsilc,gq0(i,k,ntss5 )/ppm2ugkg(p_seas_5)) + enddo + enddo - end subroutine catchem_prep_seas + end subroutine catchem_prep_seas !> @} - end module catchem_seas_wrapper +end module catchem_seas_wrapper diff --git a/drivers/ccpp/catchem_settling_wrapper.F90 b/drivers/ccpp/catchem_settling_wrapper.F90 index 0c0c0b98..1973ab9c 100644 --- a/drivers/ccpp/catchem_settling_wrapper.F90 +++ b/drivers/ccpp/catchem_settling_wrapper.F90 @@ -4,7 +4,7 @@ !! Revision History: !! 05/2023, Restructure for CATChem, Jian.He@noaa.gov - module catchem_settling_wrapper +module catchem_settling_wrapper use physcons, g => con_g, pi => con_pi use machine , only : kind_phys @@ -23,19 +23,19 @@ module catchem_settling_wrapper !> \brief Brief description of the subroutine !! - subroutine catchem_settling_wrapper_init() - end subroutine catchem_settling_wrapper_init + subroutine catchem_settling_wrapper_init() + end subroutine catchem_settling_wrapper_init !> \brief Brief description of the subroutine !! !! \section arg_table_catchem_settling_wrapper_finalize Argument Table !! - subroutine catchem_settling_wrapper_finalize() - end subroutine catchem_settling_wrapper_finalize + subroutine catchem_settling_wrapper_finalize() + end subroutine catchem_settling_wrapper_finalize !> \defgroup catchem_group CATChem settling wrapper Module !! This is the Configurable ATmospheric Chemistry (CATChem) -!>\defgroup catchem_settling_wrapper CATChem settling wrapper Module +!>\defgroup catchem_settling_wrapper CATChem settling wrapper Module !> \ingroup catchem_settling_group !! This is the CATChem settling wrapper Module !! \section arg_table_catchem_settling_wrapper_run Argument Table @@ -43,307 +43,307 @@ end subroutine catchem_settling_wrapper_finalize !! !>\section catchem_settling_wrapper CATChem Scheme General Algorithm !> @{ - subroutine catchem_settling_wrapper_run(im, kte, kme, ktau, dt, garea, & - pr3d, ph3d, prl3d, tk3d, spechum, & - ntrac,ntso2,ntsulf,ntDMS,ntmsa,ntpp25, & - ntbc1,ntbc2,ntoc1,ntoc2,ntss1,ntss2,ntss3,ntss4,ntss5, & - ntdust1,ntdust2,ntdust3,ntdust4,ntdust5,ntpp10,ntchmdiag, & - gq0,qgrs,sedimio, dust_opt_in, seas_opt_in, & - errmsg,errflg) + subroutine catchem_settling_wrapper_run(im, kte, kme, ktau, dt, garea, & + pr3d, ph3d, prl3d, tk3d, spechum, & + ntrac,ntso2,ntsulf,ntDMS,ntmsa,ntpp25, & + ntbc1,ntbc2,ntoc1,ntoc2,ntss1,ntss2,ntss3,ntss4,ntss5, & + ntdust1,ntdust2,ntdust3,ntdust4,ntdust5,ntpp10,ntchmdiag, & + gq0,qgrs,sedimio, dust_opt_in, seas_opt_in, & + errmsg,errflg) - implicit none + implicit none - integer, intent(in) :: im,kte,kme,ktau - integer, intent(in) :: ntrac,ntss1,ntss2,ntss3,ntss4,ntss5 - integer, intent(in) :: ntdust1,ntdust2,ntdust3,ntdust4,ntdust5 - integer, intent(in) :: ntso2,ntpp25,ntbc1,ntoc1,ntpp10,ntchmdiag - integer, intent(in) :: ntsulf,ntbc2,ntoc2,ntDMS,ntmsa - real(kind_phys),intent(in) :: dt + integer, intent(in) :: im,kte,kme,ktau + integer, intent(in) :: ntrac,ntss1,ntss2,ntss3,ntss4,ntss5 + integer, intent(in) :: ntdust1,ntdust2,ntdust3,ntdust4,ntdust5 + integer, intent(in) :: ntso2,ntpp25,ntbc1,ntoc1,ntpp10,ntchmdiag + integer, intent(in) :: ntsulf,ntbc2,ntoc2,ntDMS,ntmsa + real(kind_phys),intent(in) :: dt - integer, parameter :: ids=1,jds=1,jde=1, kds=1 - integer, parameter :: ims=1,jms=1,jme=1, kms=1 - integer, parameter :: its=1,jts=1,jte=1, kts=1 + integer, parameter :: ids=1,jds=1,jde=1, kds=1 + integer, parameter :: ims=1,jms=1,jme=1, kms=1 + integer, parameter :: its=1,jts=1,jte=1, kts=1 - real(kind_phys), dimension(im), intent(in) :: garea - real(kind_phys), dimension(im,kme), intent(in) :: ph3d, pr3d - real(kind_phys), dimension(im,kte), intent(in) :: prl3d, tk3d, spechum - real(kind_phys), dimension(im,kte,ntrac), intent(inout) :: gq0, qgrs - real(kind_phys), dimension(im,ntchmdiag), intent(inout) :: sedimio - integer, intent(in) :: dust_opt_in, seas_opt_in - character(len=*), intent(out) :: errmsg - integer, intent(out) :: errflg + real(kind_phys), dimension(im), intent(in) :: garea + real(kind_phys), dimension(im,kme), intent(in) :: ph3d, pr3d + real(kind_phys), dimension(im,kte), intent(in) :: prl3d, tk3d, spechum + real(kind_phys), dimension(im,kte,ntrac), intent(inout) :: gq0, qgrs + real(kind_phys), dimension(im,ntchmdiag), intent(inout) :: sedimio + integer, intent(in) :: dust_opt_in, seas_opt_in + character(len=*), intent(out) :: errmsg + integer, intent(out) :: errflg - real(kind_phys), dimension(1:im, 1:kme,jms:jme) :: t_phy, p_phy, dz8w, p8w, rho_phy + real(kind_phys), dimension(1:im, 1:kme,jms:jme) :: t_phy, p_phy, dz8w, p8w, rho_phy - real(kind_phys), dimension(ims:im, jms:jme) :: dxy + real(kind_phys), dimension(ims:im, jms:jme) :: dxy !>- sea salt & chemistry variables - real(kind_phys), dimension(ims:im, kms:kme, jms:jme, 1:num_moist) :: moist - real(kind_phys), dimension(ims:im, kms:kme, jms:jme, 1:num_chem ) :: chem - real(kind_phys), dimension(ims:im, jms:jme, 1:num_chem ) :: sedim - real(kind_phys), dimension(ims:im, jms:jme) :: seashelp, dusthelp + real(kind_phys), dimension(ims:im, kms:kme, jms:jme, 1:num_moist) :: moist + real(kind_phys), dimension(ims:im, kms:kme, jms:jme, 1:num_chem ) :: chem + real(kind_phys), dimension(ims:im, jms:jme, 1:num_chem ) :: sedim + real(kind_phys), dimension(ims:im, jms:jme) :: seashelp, dusthelp - integer :: ide, ime, ite, kde + integer :: ide, ime, ite, kde - real(kind_phys), dimension(ims:im, jms:jme) :: ash_fall - real(kind_phys), dimension(im, 1, ntchmdiag, 4) :: trdf + real(kind_phys), dimension(ims:im, jms:jme) :: ash_fall + real(kind_phys), dimension(im, 1, ntchmdiag, 4) :: trdf - real(kind_phys), dimension(1:num_chem) :: ppm2ugkg + real(kind_phys), dimension(1:num_chem) :: ppm2ugkg !>-- local variables - integer :: i, j, jp, k, kp, n - + integer :: i, j, jp, k, kp, n - errmsg = '' - errflg = 0 - - dust_opt = dust_opt_in - seas_opt = seas_opt_in - ash_fall = 0. - trdf = 0. + errmsg = '' + errflg = 0 - ! -- set domain - ide=im - ime=im - ite=im - kde=kte + dust_opt = dust_opt_in + seas_opt = seas_opt_in - ! -- volume to mass fraction conversion table (ppm -> ug/kg) - ppm2ugkg = 1._kind_phys - !ppm2ugkg(p_so2 ) = 1.e+03_kind_phys * mw_so2_aer / mwdry - ppm2ugkg(p_sulf) = 1.e+03_kind_phys * mw_so4_aer / mwdry + ash_fall = 0. + trdf = 0. + + ! -- set domain + ide=im + ime=im + ite=im + kde=kte + + ! -- volume to mass fraction conversion table (ppm -> ug/kg) + ppm2ugkg = 1._kind_phys + !ppm2ugkg(p_so2 ) = 1.e+03_kind_phys * mw_so2_aer / mwdry + ppm2ugkg(p_sulf) = 1.e+03_kind_phys * mw_so4_aer / mwdry !>- get ready for chemistry run - call catchem_prep_settling(ktau,garea, & - pr3d,ph3d,tk3d,prl3d,spechum,dxy, & - t_phy,p_phy,rho_phy,dz8w,p8w, & - ntso2,ntsulf,ntDMS,ntmsa,ntpp25, & - ntbc1,ntbc2,ntoc1,ntoc2, & - ntss1,ntss2,ntss3,ntss4,ntss5, & - ntdust1,ntdust2,ntdust3,ntdust4,ntdust5,ntpp10, & - ntrac,gq0,num_chem, num_moist,ppm2ugkg,moist,chem, & - ids,ide, jds,jde, kds,kde, & - ims,ime, jms,jme, kms,kme, & - its,ite, jts,jte, kts,kte) - - if ((dust_opt /= DUST_OPT_NONE) .or. & - (seas_opt /= SEAS_OPT_NONE)) then - - select case (chem_opt) - case (304, 316, 317) - ! - ! GOCART "very" light - ! - do j=jts,jte - do i=its,ite - call settling_simple_driver(dt,t_phy(i,:,j), & - moist(i,:,j,:),chem(i,:,j,:),rho_phy(i,:,j), & - dz8w(i,:,j),p8w(i,:,j),p_phy(i,:,j), & - sedim(i,j,:),dusthelp(i,j),seashelp(i,j), & - dxy(i,j),kms,kme,kts,kte) + call catchem_prep_settling(ktau,garea, & + pr3d,ph3d,tk3d,prl3d,spechum,dxy, & + t_phy,p_phy,rho_phy,dz8w,p8w, & + ntso2,ntsulf,ntDMS,ntmsa,ntpp25, & + ntbc1,ntbc2,ntoc1,ntoc2, & + ntss1,ntss2,ntss3,ntss4,ntss5, & + ntdust1,ntdust2,ntdust3,ntdust4,ntdust5,ntpp10, & + ntrac,gq0,num_chem, num_moist,ppm2ugkg,moist,chem, & + ids,ide, jds,jde, kds,kde, & + ims,ime, jms,jme, kms,kme, & + its,ite, jts,jte, kts,kte) + + if ((dust_opt /= DUST_OPT_NONE) .or. & + (seas_opt /= SEAS_OPT_NONE)) then + + select case (chem_opt) + case (304, 316, 317) + ! + ! GOCART "very" light + ! + do j=jts,jte + do i=its,ite + call settling_simple_driver(dt,t_phy(i,:,j), & + moist(i,:,j,:),chem(i,:,j,:),rho_phy(i,:,j), & + dz8w(i,:,j),p8w(i,:,j),p_phy(i,:,j), & + sedim(i,j,:),dusthelp(i,j),seashelp(i,j), & + dxy(i,j),kms,kme,kts,kte) + enddo enddo - enddo - case default - ! - ! run with all GOCART variables, GOCART sort of HEAVY! - ! - do j=jts,jte - do i=its,ite - call settling_gocart_driver(dt,t_phy(i,:,j), & - moist(i,:,j,:),chem(i,:,j,:),rho_phy(i,:,j), & - dz8w(i,:,j),p8w(i,:,j),p_phy(i,:,j), & - sedim(i,j,:),dxy(i,j),kms,kme,kts,kte) + case default + ! + ! run with all GOCART variables, GOCART sort of HEAVY! + ! + do j=jts,jte + do i=its,ite + call settling_gocart_driver(dt,t_phy(i,:,j), & + moist(i,:,j,:),chem(i,:,j,:),rho_phy(i,:,j), & + dz8w(i,:,j),p8w(i,:,j),p_phy(i,:,j), & + sedim(i,j,:),dxy(i,j),kms,kme,kts,kte) + enddo enddo - enddo - end select - end if + end select + end if + + ! -- 4 volcanic size bins + do j=jts,jte + do i=its,ite + call vashshort_settling_driver(dt,t_phy(i,:,j), & + moist(i,:,j,:),chem(i,:,j,:),rho_phy(i,:,j), & + dz8w(i,:,j),p8w(i,:,j),p_phy(i,:,j), & + dxy(i,j),ash_fall(i,j),kms,kme,kts,kte) + enddo + enddo - ! -- 4 volcanic size bins - do j=jts,jte - do i=its,ite - call vashshort_settling_driver(dt,t_phy(i,:,j), & - moist(i,:,j,:),chem(i,:,j,:),rho_phy(i,:,j), & - dz8w(i,:,j),p8w(i,:,j),p_phy(i,:,j), & - dxy(i,j),ash_fall(i,j),kms,kme,kts,kte) + ! -- put chem stuff back into tracer array + do k=kts,kte + do i=its,ite + gq0(i,k,ntdust1)=ppm2ugkg(p_dust_1) * max(epsilc,chem(i,k,1,p_dust_1)) + gq0(i,k,ntdust2)=ppm2ugkg(p_dust_2) * max(epsilc,chem(i,k,1,p_dust_2)) + gq0(i,k,ntdust3)=ppm2ugkg(p_dust_3) * max(epsilc,chem(i,k,1,p_dust_3)) + gq0(i,k,ntdust4)=ppm2ugkg(p_dust_4) * max(epsilc,chem(i,k,1,p_dust_4)) + gq0(i,k,ntdust5)=ppm2ugkg(p_dust_5) * max(epsilc,chem(i,k,1,p_dust_5)) + gq0(i,k,ntss1 )=ppm2ugkg(p_seas_1) * max(epsilc,chem(i,k,1,p_seas_1)) + gq0(i,k,ntss2 )=ppm2ugkg(p_seas_2) * max(epsilc,chem(i,k,1,p_seas_2)) + gq0(i,k,ntss3 )=ppm2ugkg(p_seas_3) * max(epsilc,chem(i,k,1,p_seas_3)) + gq0(i,k,ntss4 )=ppm2ugkg(p_seas_4) * max(epsilc,chem(i,k,1,p_seas_4)) + gq0(i,k,ntss5 )=ppm2ugkg(p_seas_5) * max(epsilc,chem(i,k,1,p_seas_5)) + enddo enddo - enddo - - ! -- put chem stuff back into tracer array - do k=kts,kte - do i=its,ite - gq0(i,k,ntdust1)=ppm2ugkg(p_dust_1) * max(epsilc,chem(i,k,1,p_dust_1)) - gq0(i,k,ntdust2)=ppm2ugkg(p_dust_2) * max(epsilc,chem(i,k,1,p_dust_2)) - gq0(i,k,ntdust3)=ppm2ugkg(p_dust_3) * max(epsilc,chem(i,k,1,p_dust_3)) - gq0(i,k,ntdust4)=ppm2ugkg(p_dust_4) * max(epsilc,chem(i,k,1,p_dust_4)) - gq0(i,k,ntdust5)=ppm2ugkg(p_dust_5) * max(epsilc,chem(i,k,1,p_dust_5)) - gq0(i,k,ntss1 )=ppm2ugkg(p_seas_1) * max(epsilc,chem(i,k,1,p_seas_1)) - gq0(i,k,ntss2 )=ppm2ugkg(p_seas_2) * max(epsilc,chem(i,k,1,p_seas_2)) - gq0(i,k,ntss3 )=ppm2ugkg(p_seas_3) * max(epsilc,chem(i,k,1,p_seas_3)) - gq0(i,k,ntss4 )=ppm2ugkg(p_seas_4) * max(epsilc,chem(i,k,1,p_seas_4)) - gq0(i,k,ntss5 )=ppm2ugkg(p_seas_5) * max(epsilc,chem(i,k,1,p_seas_5)) - enddo - enddo - - do k=kts,kte - do i=its,ite - qgrs(i,k,ntso2 )=gq0(i,k,ntso2 ) - qgrs(i,k,ntsulf )=gq0(i,k,ntsulf ) - qgrs(i,k,ntdms )=gq0(i,k,ntdms ) - qgrs(i,k,ntmsa )=gq0(i,k,ntmsa ) - qgrs(i,k,ntpp25 )=gq0(i,k,ntpp25 ) - qgrs(i,k,ntbc1 )=gq0(i,k,ntbc1 ) - qgrs(i,k,ntbc2 )=gq0(i,k,ntbc2 ) - qgrs(i,k,ntoc1 )=gq0(i,k,ntoc1 ) - qgrs(i,k,ntoc2 )=gq0(i,k,ntoc2 ) - qgrs(i,k,ntpp10 )=gq0(i,k,ntpp10 ) - enddo - enddo - - ! -- output sedimentation - call gocart_diag_store(1, sedim, trdf) - - sedimio(:,:)=trdf(:,1,:,1) + + do k=kts,kte + do i=its,ite + qgrs(i,k,ntso2 )=gq0(i,k,ntso2 ) + qgrs(i,k,ntsulf )=gq0(i,k,ntsulf ) + qgrs(i,k,ntdms )=gq0(i,k,ntdms ) + qgrs(i,k,ntmsa )=gq0(i,k,ntmsa ) + qgrs(i,k,ntpp25 )=gq0(i,k,ntpp25 ) + qgrs(i,k,ntbc1 )=gq0(i,k,ntbc1 ) + qgrs(i,k,ntbc2 )=gq0(i,k,ntbc2 ) + qgrs(i,k,ntoc1 )=gq0(i,k,ntoc1 ) + qgrs(i,k,ntoc2 )=gq0(i,k,ntoc2 ) + qgrs(i,k,ntpp10 )=gq0(i,k,ntpp10 ) + enddo + enddo + + ! -- output sedimentation + call gocart_diag_store(1, sedim, trdf) + + sedimio(:,:)=trdf(:,1,:,1) ! end subroutine catchem_settling_wrapper_run !> @} subroutine catchem_prep_settling(ktau,garea, & - pr3d,ph3d,tk3d,prl3d,spechum,dxy, & - t_phy,p_phy,rho_phy,dz8w,p8w, & - ntso2,ntsulf,ntDMS,ntmsa,ntpp25, & - ntbc1,ntbc2,ntoc1,ntoc2, & - ntss1,ntss2,ntss3,ntss4,ntss5, & - ntdust1,ntdust2,ntdust3,ntdust4,ntdust5,ntpp10, & - ntrac,gq0,num_chem, num_moist,ppm2ugkg,moist,chem, & - ids,ide, jds,jde, kds,kde, & - ims,ime, jms,jme, kms,kme, & - its,ite, jts,jte, kts,kte) - - !Chem input configuration - integer, intent(in) :: ktau - - !FV3 input variables - integer, intent(in) :: ntrac,ntss1,ntss2,ntss3,ntss4,ntss5 - integer, intent(in) :: ntdust1,ntdust2,ntdust3,ntdust4,ntdust5 - integer, intent(in) :: ntso2,ntpp25,ntbc1,ntoc1,ntpp10 - integer, intent(in) :: ntsulf,ntbc2,ntoc2,ntDMS,ntmsa - real(kind=kind_phys), dimension(ims:ime), intent(in) :: garea - real(kind=kind_phys), dimension(ims:ime, kms:kme), intent(in) :: pr3d,ph3d - real(kind=kind_phys), dimension(ims:ime, kts:kte), intent(in) :: tk3d,prl3d,spechum - real(kind=kind_phys), dimension(ims:ime, kts:kte,ntrac), intent(in) :: gq0 - - - !GSD Chem variables - integer,intent(in) :: num_chem, num_moist - integer,intent(in) :: ids,ide, jds,jde, kds,kde, & - ims,ime, jms,jme, kms,kme, & - its,ite, jts,jte, kts,kte - - real(kind_phys), dimension(num_chem), intent(in) :: ppm2ugkg - - real(kind_phys), dimension(ims:ime, kms:kme, jms:jme), intent(out) :: t_phy, p_phy, rho_phy, dz8w, p8w - real(kind_phys), dimension(ims:ime, jms:jme), intent(out) :: dxy - real(kind_phys), dimension(ims:ime, kms:kme, jms:jme, num_moist), intent(out) :: moist - real(kind_phys), dimension(ims:ime, kms:kme, jms:jme, num_chem), intent(out) :: chem - - ! -- local variables - integer i,ip,j,jp,k,kp,kk,kkp,l,ll,n - real(kind_phys), dimension(ims:ime, kms:kme, jms:jme) :: z_at_w - - ! -- initialize output arrays - t_phy = 0._kind_phys - p_phy = 0._kind_phys - rho_phy = 0._kind_phys - dz8w = 0._kind_phys - p8w = 0._kind_phys - dxy = 0._kind_phys - moist = 0._kind_phys - chem = 0._kind_phys - - do i=its,ite - dxy (i,1)=garea(i) - enddo - - do j=jts,jte - jp = j - jts + 1 + pr3d,ph3d,tk3d,prl3d,spechum,dxy, & + t_phy,p_phy,rho_phy,dz8w,p8w, & + ntso2,ntsulf,ntDMS,ntmsa,ntpp25, & + ntbc1,ntbc2,ntoc1,ntoc2, & + ntss1,ntss2,ntss3,ntss4,ntss5, & + ntdust1,ntdust2,ntdust3,ntdust4,ntdust5,ntpp10, & + ntrac,gq0,num_chem, num_moist,ppm2ugkg,moist,chem, & + ids,ide, jds,jde, kds,kde, & + ims,ime, jms,jme, kms,kme, & + its,ite, jts,jte, kts,kte) + + !Chem input configuration + integer, intent(in) :: ktau + + !FV3 input variables + integer, intent(in) :: ntrac,ntss1,ntss2,ntss3,ntss4,ntss5 + integer, intent(in) :: ntdust1,ntdust2,ntdust3,ntdust4,ntdust5 + integer, intent(in) :: ntso2,ntpp25,ntbc1,ntoc1,ntpp10 + integer, intent(in) :: ntsulf,ntbc2,ntoc2,ntDMS,ntmsa + real(kind=kind_phys), dimension(ims:ime), intent(in) :: garea + real(kind=kind_phys), dimension(ims:ime, kms:kme), intent(in) :: pr3d,ph3d + real(kind=kind_phys), dimension(ims:ime, kts:kte), intent(in) :: tk3d,prl3d,spechum + real(kind=kind_phys), dimension(ims:ime, kts:kte,ntrac), intent(in) :: gq0 + + + !GSD Chem variables + integer,intent(in) :: num_chem, num_moist + integer,intent(in) :: ids,ide, jds,jde, kds,kde, & + ims,ime, jms,jme, kms,kme, & + its,ite, jts,jte, kts,kte + + real(kind_phys), dimension(num_chem), intent(in) :: ppm2ugkg + + real(kind_phys), dimension(ims:ime, kms:kme, jms:jme), intent(out) :: t_phy, p_phy, rho_phy, dz8w, p8w + real(kind_phys), dimension(ims:ime, jms:jme), intent(out) :: dxy + real(kind_phys), dimension(ims:ime, kms:kme, jms:jme, num_moist), intent(out) :: moist + real(kind_phys), dimension(ims:ime, kms:kme, jms:jme, num_chem), intent(out) :: chem + + ! -- local variables + integer i,ip,j,jp,k,kp,kk,kkp,l,ll,n + real(kind_phys), dimension(ims:ime, kms:kme, jms:jme) :: z_at_w + + ! -- initialize output arrays + t_phy = 0._kind_phys + p_phy = 0._kind_phys + rho_phy = 0._kind_phys + dz8w = 0._kind_phys + p8w = 0._kind_phys + dxy = 0._kind_phys + moist = 0._kind_phys + chem = 0._kind_phys + do i=its,ite - ip = i - its + 1 - z_at_w(i,kts,j)=max(0.,ph3d(ip,1)/g) + dxy (i,1)=garea(i) enddo - enddo - do j=jts,jte - jp = j - jts + 1 - do k=kts,kte - kp = k - kts + 1 - do i=its,ite - ip = i - its + 1 - dz8w(i,k,j)=abs(ph3d(ip,kp+1)-ph3d(ip,kp))/g - z_at_w(i,k+1,j)=z_at_w(i,k,j)+dz8w(i,k,j) - enddo + do j=jts,jte + jp = j - jts + 1 + do i=its,ite + ip = i - its + 1 + z_at_w(i,kts,j)=max(0.,ph3d(ip,1)/g) + enddo enddo - enddo - - do j=jts,jte - jp = j - jts + 1 - do k=kts,kte+1 - kp = k - kts + 1 - do i=its,ite - ip = i - its + 1 - p8w(i,k,j)=pr3d(ip,kp) - enddo + + do j=jts,jte + jp = j - jts + 1 + do k=kts,kte + kp = k - kts + 1 + do i=its,ite + ip = i - its + 1 + dz8w(i,k,j)=abs(ph3d(ip,kp+1)-ph3d(ip,kp))/g + z_at_w(i,k+1,j)=z_at_w(i,k,j)+dz8w(i,k,j) + enddo + enddo + enddo + + do j=jts,jte + jp = j - jts + 1 + do k=kts,kte+1 + kp = k - kts + 1 + do i=its,ite + ip = i - its + 1 + p8w(i,k,j)=pr3d(ip,kp) + enddo + enddo + enddo + + do j=jts,jte + jp = j - jts + 1 + do k=kts,kte+1 + kk=min(k,kte) + kkp = kk - kts + 1 + do i=its,ite + ip = i - its + 1 + dz8w(i,k,j)=z_at_w(i,kk+1,j)-z_at_w(i,kk,j) + t_phy(i,k,j)=tk3d(ip,kkp) + p_phy(i,k,j)=prl3d(ip,kkp) + rho_phy(i,k,j)=p_phy(i,k,j)/(287.04*t_phy(i,k,j)*(1.+.608*spechum(ip,kkp))) + moist(i,k,j,:)=0. + moist(i,k,j,1)=gq0(ip,kkp,p_atm_shum) + if (t_phy(i,k,j) > 265.) then + moist(i,k,j,2)=gq0(ip,kkp,p_atm_cldq) + moist(i,k,j,3)=0. + if (moist(i,k,j,2) < 1.e-8) moist(i,k,j,2)=0. + else + moist(i,k,j,2)=0. + moist(i,k,j,3)=gq0(ip,kkp,p_atm_cldq) + if(moist(i,k,j,3) < 1.e-8)moist(i,k,j,3)=0. + endif + !-- + enddo + enddo enddo - enddo - - do j=jts,jte - jp = j - jts + 1 - do k=kts,kte+1 - kk=min(k,kte) - kkp = kk - kts + 1 - do i=its,ite - ip = i - its + 1 - dz8w(i,k,j)=z_at_w(i,kk+1,j)-z_at_w(i,kk,j) - t_phy(i,k,j)=tk3d(ip,kkp) - p_phy(i,k,j)=prl3d(ip,kkp) - rho_phy(i,k,j)=p_phy(i,k,j)/(287.04*t_phy(i,k,j)*(1.+.608*spechum(ip,kkp))) - moist(i,k,j,:)=0. - moist(i,k,j,1)=gq0(ip,kkp,p_atm_shum) - if (t_phy(i,k,j) > 265.) then - moist(i,k,j,2)=gq0(ip,kkp,p_atm_cldq) - moist(i,k,j,3)=0. - if (moist(i,k,j,2) < 1.e-8) moist(i,k,j,2)=0. - else - moist(i,k,j,2)=0. - moist(i,k,j,3)=gq0(ip,kkp,p_atm_cldq) - if(moist(i,k,j,3) < 1.e-8)moist(i,k,j,3)=0. - endif - !-- - enddo + + do k=kms,kte + do i=ims,ime + chem(i,k,jts,p_dust_1)=max(epsilc,gq0(i,k,ntdust1)/ppm2ugkg(p_dust_1)) + chem(i,k,jts,p_dust_2)=max(epsilc,gq0(i,k,ntdust2)/ppm2ugkg(p_dust_2)) + chem(i,k,jts,p_dust_3)=max(epsilc,gq0(i,k,ntdust3)/ppm2ugkg(p_dust_3)) + chem(i,k,jts,p_dust_4)=max(epsilc,gq0(i,k,ntdust4)/ppm2ugkg(p_dust_4)) + chem(i,k,jts,p_dust_5)=max(epsilc,gq0(i,k,ntdust5)/ppm2ugkg(p_dust_5)) + chem(i,k,jts,p_seas_1)=max(epsilc,gq0(i,k,ntss1 )/ppm2ugkg(p_seas_1)) + chem(i,k,jts,p_seas_2)=max(epsilc,gq0(i,k,ntss2 )/ppm2ugkg(p_seas_2)) + chem(i,k,jts,p_seas_3)=max(epsilc,gq0(i,k,ntss3 )/ppm2ugkg(p_seas_3)) + chem(i,k,jts,p_seas_4)=max(epsilc,gq0(i,k,ntss4 )/ppm2ugkg(p_seas_4)) + chem(i,k,jts,p_seas_5)=max(epsilc,gq0(i,k,ntss5 )/ppm2ugkg(p_seas_5)) + enddo enddo - enddo - - do k=kms,kte - do i=ims,ime - chem(i,k,jts,p_dust_1)=max(epsilc,gq0(i,k,ntdust1)/ppm2ugkg(p_dust_1)) - chem(i,k,jts,p_dust_2)=max(epsilc,gq0(i,k,ntdust2)/ppm2ugkg(p_dust_2)) - chem(i,k,jts,p_dust_3)=max(epsilc,gq0(i,k,ntdust3)/ppm2ugkg(p_dust_3)) - chem(i,k,jts,p_dust_4)=max(epsilc,gq0(i,k,ntdust4)/ppm2ugkg(p_dust_4)) - chem(i,k,jts,p_dust_5)=max(epsilc,gq0(i,k,ntdust5)/ppm2ugkg(p_dust_5)) - chem(i,k,jts,p_seas_1)=max(epsilc,gq0(i,k,ntss1 )/ppm2ugkg(p_seas_1)) - chem(i,k,jts,p_seas_2)=max(epsilc,gq0(i,k,ntss2 )/ppm2ugkg(p_seas_2)) - chem(i,k,jts,p_seas_3)=max(epsilc,gq0(i,k,ntss3 )/ppm2ugkg(p_seas_3)) - chem(i,k,jts,p_seas_4)=max(epsilc,gq0(i,k,ntss4 )/ppm2ugkg(p_seas_4)) - chem(i,k,jts,p_seas_5)=max(epsilc,gq0(i,k,ntss5 )/ppm2ugkg(p_seas_5)) - enddo - enddo - - - - end subroutine catchem_prep_settling + + + + end subroutine catchem_prep_settling !> @} - end module catchem_settling_wrapper +end module catchem_settling_wrapper diff --git a/drivers/ccpp/catchem_wetdep_wrapper.F90 b/drivers/ccpp/catchem_wetdep_wrapper.F90 index 2fe5bd76..8ada351c 100644 --- a/drivers/ccpp/catchem_wetdep_wrapper.F90 +++ b/drivers/ccpp/catchem_wetdep_wrapper.F90 @@ -4,7 +4,7 @@ !! Revision History: !! 05/2023, Restructure for CATChem, Jian.He@noaa.gov - module catchem_wetdep_wrapper +module catchem_wetdep_wrapper use physcons, only : g => con_g, pi => con_pi use machine , only : kind_phys @@ -24,19 +24,19 @@ module catchem_wetdep_wrapper !> \brief Brief description of the subroutine !! - subroutine catchem_wetdep_wrapper_init() - end subroutine catchem_wetdep_wrapper_init + subroutine catchem_wetdep_wrapper_init() + end subroutine catchem_wetdep_wrapper_init !> \brief Brief description of the subroutine !! !! \section arg_table_catchem_wetdep_wrapper_finalize Argument Table !! - subroutine catchem_wetdep_wrapper_finalize() - end subroutine catchem_wetdep_wrapper_finalize + subroutine catchem_wetdep_wrapper_finalize() + end subroutine catchem_wetdep_wrapper_finalize !> \defgroup catchem_group CATChem wetdep wrapper Module !! This is the Configurable ATmospheric Chemistry (CATChem) -!>\defgroup catchem_wetdep_wrapper CATChem wetdep wrapper Module +!>\defgroup catchem_wetdep_wrapper CATChem wetdep wrapper Module !> \ingroup catchem_wetdep_group !! This is the CATChem wetdep wrapper Module !! \section arg_table_catchem_wetdep_wrapper_run Argument Table @@ -44,394 +44,394 @@ end subroutine catchem_wetdep_wrapper_finalize !! !>\section catchem_wetdep_wrapper CATChem Scheme General Algorithm !> @{ - subroutine catchem_wetdep_wrapper_run(im, kte, kme, ktau, dt, & - rain_cplchm, rainc_cpl,rlat, & - pr3d, ph3d,phl3d, prl3d, tk3d, us3d, vs3d, spechum, & - w, dqdt, ntrac,ntchmdiag, & - ntso2,ntsulf,ntDMS,ntmsa,ntpp25, & - ntbc1,ntbc2,ntoc1,ntoc2, & - ntss1,ntss2,ntss3,ntss4,ntss5, & - ntdust1,ntdust2,ntdust3,ntdust4,ntdust5,ntpp10, & - gq0,qgrs,wetdpl,wetdep_ls_opt_in, & - errmsg,errflg) - - implicit none - - - integer, intent(in) :: im,kte,kme,ktau,ntchmdiag - integer, intent(in) :: ntrac,ntss1,ntss2,ntss3,ntss4,ntss5 - integer, intent(in) :: ntdust1,ntdust2,ntdust3,ntdust4,ntdust5 - integer, intent(in) :: ntso2,ntpp25,ntbc1,ntoc1,ntpp10 - integer, intent(in) :: ntsulf,ntbc2,ntoc2,ntDMS,ntmsa - real(kind_phys),intent(in) :: dt - - integer, parameter :: ids=1,jds=1,jde=1, kds=1 - integer, parameter :: ims=1,jms=1,jme=1, kms=1 - integer, parameter :: its=1,jts=1,jte=1, kts=1 - - real(kind_phys), dimension(im), intent(in) :: rain_cplchm,rainc_cpl,rlat - real(kind_phys), dimension(im,kme), intent(in) :: ph3d, pr3d - real(kind_phys), dimension(im,kte), intent(in) :: phl3d, prl3d, tk3d, & - us3d, vs3d, spechum, w, dqdt - real(kind_phys), dimension(im,kte,ntrac), intent(inout) :: gq0, qgrs - real(kind_phys), dimension(im,ntchmdiag), intent(inout) :: wetdpl - integer, intent(in) :: wetdep_ls_opt_in - character(len=*), intent(out) :: errmsg - integer, intent(out) :: errflg - - real(kind_phys), dimension(1:im, 1:kme,jms:jme) :: rri, t_phy, u_phy, v_phy, & - p_phy, z_at_w, dz8w, p8w, t8w, rho_phy, vvel, dqdti - - real(kind_phys), dimension(ims:im, jms:jme) :: rcav, rnav,xlat + subroutine catchem_wetdep_wrapper_run(im, kte, kme, ktau, dt, & + rain_cplchm, rainc_cpl,rlat, & + pr3d, ph3d,phl3d, prl3d, tk3d, us3d, vs3d, spechum, & + w, dqdt, ntrac,ntchmdiag, & + ntso2,ntsulf,ntDMS,ntmsa,ntpp25, & + ntbc1,ntbc2,ntoc1,ntoc2, & + ntss1,ntss2,ntss3,ntss4,ntss5, & + ntdust1,ntdust2,ntdust3,ntdust4,ntdust5,ntpp10, & + gq0,qgrs,wetdpl,wetdep_ls_opt_in, & + errmsg,errflg) + + implicit none + + + integer, intent(in) :: im,kte,kme,ktau,ntchmdiag + integer, intent(in) :: ntrac,ntss1,ntss2,ntss3,ntss4,ntss5 + integer, intent(in) :: ntdust1,ntdust2,ntdust3,ntdust4,ntdust5 + integer, intent(in) :: ntso2,ntpp25,ntbc1,ntoc1,ntpp10 + integer, intent(in) :: ntsulf,ntbc2,ntoc2,ntDMS,ntmsa + real(kind_phys),intent(in) :: dt + + integer, parameter :: ids=1,jds=1,jde=1, kds=1 + integer, parameter :: ims=1,jms=1,jme=1, kms=1 + integer, parameter :: its=1,jts=1,jte=1, kts=1 + + real(kind_phys), dimension(im), intent(in) :: rain_cplchm,rainc_cpl,rlat + real(kind_phys), dimension(im,kme), intent(in) :: ph3d, pr3d + real(kind_phys), dimension(im,kte), intent(in) :: phl3d, prl3d, tk3d, & + us3d, vs3d, spechum, w, dqdt + real(kind_phys), dimension(im,kte,ntrac), intent(inout) :: gq0, qgrs + real(kind_phys), dimension(im,ntchmdiag), intent(inout) :: wetdpl + integer, intent(in) :: wetdep_ls_opt_in + character(len=*), intent(out) :: errmsg + integer, intent(out) :: errflg + + real(kind_phys), dimension(1:im, 1:kme,jms:jme) :: rri, t_phy, u_phy, v_phy, & + p_phy, z_at_w, dz8w, p8w, t8w, rho_phy, vvel, dqdti + + real(kind_phys), dimension(ims:im, jms:jme) :: rcav, rnav,xlat !>- vapor & chemistry variables - real(kind_phys), dimension(ims:im, kms:kme, jms:jme, 1:num_moist) :: moist - real(kind_phys), dimension(ims:im, kms:kme, jms:jme, 1:num_chem ) :: chem - real(kind_phys), dimension(ims:im, jms:jme, 1:num_chem ) :: var_rmv + real(kind_phys), dimension(ims:im, kms:kme, jms:jme, 1:num_moist) :: moist + real(kind_phys), dimension(ims:im, kms:kme, jms:jme, 1:num_chem ) :: chem + real(kind_phys), dimension(ims:im, jms:jme, 1:num_chem ) :: var_rmv - integer :: ide, ime, ite, kde + integer :: ide, ime, ite, kde - real(kind_phys) :: dtstep - real(kind_phys), dimension(1:num_chem) :: ppm2ugkg + real(kind_phys) :: dtstep + real(kind_phys), dimension(1:num_chem) :: ppm2ugkg - ! -- output tracers - real(kind_phys), dimension(im, 1, ntchmdiag, 4) :: trdf + ! -- output tracers + real(kind_phys), dimension(im, 1, ntchmdiag, 4) :: trdf !>-- local variables - integer :: i, j, jp, k, kp, n - + integer :: i, j, jp, k, kp, n - errmsg = '' - errflg = 0 - wetdep_ls_opt = wetdep_ls_opt_in + errmsg = '' + errflg = 0 - ! -- set domain - ide=im - ime=im - ite=im - kde=kte + wetdep_ls_opt = wetdep_ls_opt_in - ! -- volume to mass fraction conversion table (ppm -> ug/kg) - ppm2ugkg = 1._kind_phys - !ppm2ugkg(p_so2 ) = 1.e+03_kind_phys * mw_so2_aer / mwdry - ppm2ugkg(p_sulf) = 1.e+03_kind_phys * mw_so4_aer / mwdry + ! -- set domain + ide=im + ime=im + ite=im + kde=kte - ! -- initialize large-sacle wet depostion - if (ktau==1) then - call dep_wet_ls_init() - endif + ! -- volume to mass fraction conversion table (ppm -> ug/kg) + ppm2ugkg = 1._kind_phys + !ppm2ugkg(p_so2 ) = 1.e+03_kind_phys * mw_so2_aer / mwdry + ppm2ugkg(p_sulf) = 1.e+03_kind_phys * mw_so4_aer / mwdry - ! -- set control flags + ! -- initialize large-sacle wet depostion + if (ktau==1) then + call dep_wet_ls_init() + endif - ! -- compute accumulated large-scale and convective rainfall since last call - if (ktau > 1) then - dtstep = call_chemistry * dt - else - dtstep = dt - end if + ! -- set control flags - ! -- compute incremental convective and large-scale rainfall - do i=its,ite - rcav(i,1)=max(rainc_cpl(i)*1000. , 0.) ! meter to mm - rnav(i,1)=max((rain_cplchm(i)-rainc_cpl(i))*1000., 0.) ! meter to mm - enddo + ! -- compute accumulated large-scale and convective rainfall since last call + if (ktau > 1) then + dtstep = call_chemistry * dt + else + dtstep = dt + end if + + ! -- compute incremental convective and large-scale rainfall + do i=its,ite + rcav(i,1)=max(rainc_cpl(i)*1000. , 0.) ! meter to mm + rnav(i,1)=max((rain_cplchm(i)-rainc_cpl(i))*1000., 0.) ! meter to mm + enddo !!! !>- get ready for chemistry run - call catchem_prep_wetdep(ktau,dtstep, & - pr3d,ph3d,phl3d,tk3d,prl3d,us3d,vs3d,spechum,w, dqdt, & - rri,t_phy,u_phy,v_phy,p_phy,rho_phy,dz8w,p8w, & - t8w,dqdti,z_at_w,vvel,rlat,xlat, & - ntso2,ntsulf,ntDMS,ntmsa,ntpp25, & - ntbc1,ntbc2,ntoc1,ntoc2, & - ntss1,ntss2,ntss3,ntss4,ntss5, & - ntdust1,ntdust2,ntdust3,ntdust4,ntdust5,ntpp10, & - ntrac,gq0,num_chem, num_moist, & - ppm2ugkg,moist,chem, & - ids,ide, jds,jde, kds,kde, & - ims,ime, jms,jme, kms,kme, & - its,ite, jts,jte, kts,kte) - - ! -- ls wet deposition - var_rmv(:,:,:)=0. - - select case (wetdep_ls_opt) - case (WDLS_OPT_GSD) - do j=jts,jte - do i=its,ite - call wetdep_ls(dt,chem(i,:,j,:),rnav(i,j),moist(i,:,j,:), & - rho_phy(i,:,j),var_rmv(i,j,:),xlat(i,j), & - p_qc,p_qi,dz8w(i,:,j),vvel(i,:,j), & - kms,kme,kts,kte) - enddo - end do - - case (WDLS_OPT_NGAC) - do j=jts,jte - do i=its,ite - call WetRemovalGOCART(kts,kte, 1,1, dt, & - var_rmv(i,j,:),chem(i,:,j,:), & - p_phy(i,:,j),t_phy(i,:,j), & - rho_phy(i,:,j),dqdti(i,:,j), & - rcav(i,j),rnav(i,j), & - kms,kme) - enddo - enddo + call catchem_prep_wetdep(ktau,dtstep, & + pr3d,ph3d,phl3d,tk3d,prl3d,us3d,vs3d,spechum,w, dqdt, & + rri,t_phy,u_phy,v_phy,p_phy,rho_phy,dz8w,p8w, & + t8w,dqdti,z_at_w,vvel,rlat,xlat, & + ntso2,ntsulf,ntDMS,ntmsa,ntpp25, & + ntbc1,ntbc2,ntoc1,ntoc2, & + ntss1,ntss2,ntss3,ntss4,ntss5, & + ntdust1,ntdust2,ntdust3,ntdust4,ntdust5,ntpp10, & + ntrac,gq0,num_chem, num_moist, & + ppm2ugkg,moist,chem, & + ids,ide, jds,jde, kds,kde, & + ims,ime, jms,jme, kms,kme, & + its,ite, jts,jte, kts,kte) + + ! -- ls wet deposition + var_rmv(:,:,:)=0. + + select case (wetdep_ls_opt) + case (WDLS_OPT_GSD) + do j=jts,jte + do i=its,ite + call wetdep_ls(dt,chem(i,:,j,:),rnav(i,j),moist(i,:,j,:), & + rho_phy(i,:,j),var_rmv(i,j,:),xlat(i,j), & + p_qc,p_qi,dz8w(i,:,j),vvel(i,:,j), & + kms,kme,kts,kte) + enddo + end do + + case (WDLS_OPT_NGAC) + do j=jts,jte + do i=its,ite + call WetRemovalGOCART(kts,kte, 1,1, dt, & + var_rmv(i,j,:),chem(i,:,j,:), & + p_phy(i,:,j),t_phy(i,:,j), & + rho_phy(i,:,j),dqdti(i,:,j), & + rcav(i,j),rnav(i,j), & + kms,kme) + enddo + enddo !if (chem_rc_check(localrc, msg="Failure in NGAC wet removal scheme", & ! file=__FILE__, line=__LINE__, rc=rc)) return - case default - ! -- no further option implemented - errmsg = 'Logic error in catchem_wetdep_wrapper_run: invalid wdls_opt' - errflg = 1 - return - end select - - - ! -- put chem stuff back into tracer array - do k=kts,kte - do i=its,ite - gq0(i,k,ntso2 )=ppm2ugkg(p_so2 ) * max(epsilc,chem(i,k,1,p_so2)) - gq0(i,k,ntsulf )=ppm2ugkg(p_sulf ) * max(epsilc,chem(i,k,1,p_sulf)) - gq0(i,k,ntdms )=ppm2ugkg(p_dms ) * max(epsilc,chem(i,k,1,p_dms)) - gq0(i,k,ntmsa )=ppm2ugkg(p_msa ) * max(epsilc,chem(i,k,1,p_msa)) - gq0(i,k,ntpp25 )=ppm2ugkg(p_p25 ) * max(epsilc,chem(i,k,1,p_p25)) - gq0(i,k,ntbc1 )=ppm2ugkg(p_bc1 ) * max(epsilc,chem(i,k,1,p_bc1)) - gq0(i,k,ntbc2 )=ppm2ugkg(p_bc2 ) * max(epsilc,chem(i,k,1,p_bc2)) - gq0(i,k,ntoc1 )=ppm2ugkg(p_oc1 ) * max(epsilc,chem(i,k,1,p_oc1)) - gq0(i,k,ntoc2 )=ppm2ugkg(p_oc2 ) * max(epsilc,chem(i,k,1,p_oc2)) - gq0(i,k,ntdust1)=ppm2ugkg(p_dust_1) * max(epsilc,chem(i,k,1,p_dust_1)) - gq0(i,k,ntdust2)=ppm2ugkg(p_dust_2) * max(epsilc,chem(i,k,1,p_dust_2)) - gq0(i,k,ntdust3)=ppm2ugkg(p_dust_3) * max(epsilc,chem(i,k,1,p_dust_3)) - gq0(i,k,ntdust4)=ppm2ugkg(p_dust_4) * max(epsilc,chem(i,k,1,p_dust_4)) - gq0(i,k,ntdust5)=ppm2ugkg(p_dust_5) * max(epsilc,chem(i,k,1,p_dust_5)) - gq0(i,k,ntss1 )=ppm2ugkg(p_seas_1) * max(epsilc,chem(i,k,1,p_seas_1)) - gq0(i,k,ntss2 )=ppm2ugkg(p_seas_2) * max(epsilc,chem(i,k,1,p_seas_2)) - gq0(i,k,ntss3 )=ppm2ugkg(p_seas_3) * max(epsilc,chem(i,k,1,p_seas_3)) - gq0(i,k,ntss4 )=ppm2ugkg(p_seas_4) * max(epsilc,chem(i,k,1,p_seas_4)) - gq0(i,k,ntss5 )=ppm2ugkg(p_seas_5) * max(epsilc,chem(i,k,1,p_seas_5)) - gq0(i,k,ntpp10 )=ppm2ugkg(p_p10 ) * max(epsilc,chem(i,k,1,p_p10)) - enddo - enddo - - do k=kts,kte - do i=its,ite - qgrs(i,k,ntso2 )=gq0(i,k,ntso2 ) - qgrs(i,k,ntsulf )=gq0(i,k,ntsulf ) - qgrs(i,k,ntdms )=gq0(i,k,ntdms ) - qgrs(i,k,ntmsa )=gq0(i,k,ntmsa ) - qgrs(i,k,ntpp25 )=gq0(i,k,ntpp25 ) - qgrs(i,k,ntbc1 )=gq0(i,k,ntbc1 ) - qgrs(i,k,ntbc2 )=gq0(i,k,ntbc2 ) - qgrs(i,k,ntoc1 )=gq0(i,k,ntoc1 ) - qgrs(i,k,ntoc2 )=gq0(i,k,ntoc2 ) - qgrs(i,k,ntdust1)=gq0(i,k,ntdust1) - qgrs(i,k,ntdust2)=gq0(i,k,ntdust2) - qgrs(i,k,ntdust3)=gq0(i,k,ntdust3) - qgrs(i,k,ntdust4)=gq0(i,k,ntdust4) - qgrs(i,k,ntdust5)=gq0(i,k,ntdust5) - qgrs(i,k,ntss1 )=gq0(i,k,ntss1 ) - qgrs(i,k,ntss2 )=gq0(i,k,ntss2 ) - qgrs(i,k,ntss3 )=gq0(i,k,ntss3 ) - qgrs(i,k,ntss4 )=gq0(i,k,ntss4 ) - qgrs(i,k,ntss5 )=gq0(i,k,ntss5 ) - qgrs(i,k,ntpp10 )=gq0(i,k,ntpp10 ) - enddo - enddo - - ! -- output large-scale wet deposition - call gocart_diag_store(3, var_rmv, trdf) - - wetdpl (:,:)=trdf(:,1,:,3) + case default + ! -- no further option implemented + errmsg = 'Logic error in catchem_wetdep_wrapper_run: invalid wdls_opt' + errflg = 1 + return + end select + + + ! -- put chem stuff back into tracer array + do k=kts,kte + do i=its,ite + gq0(i,k,ntso2 )=ppm2ugkg(p_so2 ) * max(epsilc,chem(i,k,1,p_so2)) + gq0(i,k,ntsulf )=ppm2ugkg(p_sulf ) * max(epsilc,chem(i,k,1,p_sulf)) + gq0(i,k,ntdms )=ppm2ugkg(p_dms ) * max(epsilc,chem(i,k,1,p_dms)) + gq0(i,k,ntmsa )=ppm2ugkg(p_msa ) * max(epsilc,chem(i,k,1,p_msa)) + gq0(i,k,ntpp25 )=ppm2ugkg(p_p25 ) * max(epsilc,chem(i,k,1,p_p25)) + gq0(i,k,ntbc1 )=ppm2ugkg(p_bc1 ) * max(epsilc,chem(i,k,1,p_bc1)) + gq0(i,k,ntbc2 )=ppm2ugkg(p_bc2 ) * max(epsilc,chem(i,k,1,p_bc2)) + gq0(i,k,ntoc1 )=ppm2ugkg(p_oc1 ) * max(epsilc,chem(i,k,1,p_oc1)) + gq0(i,k,ntoc2 )=ppm2ugkg(p_oc2 ) * max(epsilc,chem(i,k,1,p_oc2)) + gq0(i,k,ntdust1)=ppm2ugkg(p_dust_1) * max(epsilc,chem(i,k,1,p_dust_1)) + gq0(i,k,ntdust2)=ppm2ugkg(p_dust_2) * max(epsilc,chem(i,k,1,p_dust_2)) + gq0(i,k,ntdust3)=ppm2ugkg(p_dust_3) * max(epsilc,chem(i,k,1,p_dust_3)) + gq0(i,k,ntdust4)=ppm2ugkg(p_dust_4) * max(epsilc,chem(i,k,1,p_dust_4)) + gq0(i,k,ntdust5)=ppm2ugkg(p_dust_5) * max(epsilc,chem(i,k,1,p_dust_5)) + gq0(i,k,ntss1 )=ppm2ugkg(p_seas_1) * max(epsilc,chem(i,k,1,p_seas_1)) + gq0(i,k,ntss2 )=ppm2ugkg(p_seas_2) * max(epsilc,chem(i,k,1,p_seas_2)) + gq0(i,k,ntss3 )=ppm2ugkg(p_seas_3) * max(epsilc,chem(i,k,1,p_seas_3)) + gq0(i,k,ntss4 )=ppm2ugkg(p_seas_4) * max(epsilc,chem(i,k,1,p_seas_4)) + gq0(i,k,ntss5 )=ppm2ugkg(p_seas_5) * max(epsilc,chem(i,k,1,p_seas_5)) + gq0(i,k,ntpp10 )=ppm2ugkg(p_p10 ) * max(epsilc,chem(i,k,1,p_p10)) + enddo + enddo + + do k=kts,kte + do i=its,ite + qgrs(i,k,ntso2 )=gq0(i,k,ntso2 ) + qgrs(i,k,ntsulf )=gq0(i,k,ntsulf ) + qgrs(i,k,ntdms )=gq0(i,k,ntdms ) + qgrs(i,k,ntmsa )=gq0(i,k,ntmsa ) + qgrs(i,k,ntpp25 )=gq0(i,k,ntpp25 ) + qgrs(i,k,ntbc1 )=gq0(i,k,ntbc1 ) + qgrs(i,k,ntbc2 )=gq0(i,k,ntbc2 ) + qgrs(i,k,ntoc1 )=gq0(i,k,ntoc1 ) + qgrs(i,k,ntoc2 )=gq0(i,k,ntoc2 ) + qgrs(i,k,ntdust1)=gq0(i,k,ntdust1) + qgrs(i,k,ntdust2)=gq0(i,k,ntdust2) + qgrs(i,k,ntdust3)=gq0(i,k,ntdust3) + qgrs(i,k,ntdust4)=gq0(i,k,ntdust4) + qgrs(i,k,ntdust5)=gq0(i,k,ntdust5) + qgrs(i,k,ntss1 )=gq0(i,k,ntss1 ) + qgrs(i,k,ntss2 )=gq0(i,k,ntss2 ) + qgrs(i,k,ntss3 )=gq0(i,k,ntss3 ) + qgrs(i,k,ntss4 )=gq0(i,k,ntss4 ) + qgrs(i,k,ntss5 )=gq0(i,k,ntss5 ) + qgrs(i,k,ntpp10 )=gq0(i,k,ntpp10 ) + enddo + enddo + + ! -- output large-scale wet deposition + call gocart_diag_store(3, var_rmv, trdf) + + wetdpl (:,:)=trdf(:,1,:,3) ! end subroutine catchem_wetdep_wrapper_run !> @} - subroutine catchem_prep_wetdep(ktau,dtstep, & - pr3d,ph3d,phl3d,tk3d,prl3d,us3d,vs3d,spechum,w,dqdt, & - rri,t_phy,u_phy,v_phy,p_phy,rho_phy,dz8w,p8w, & - t8w,dqdti,z_at_w,vvel,rlat,xlat, & - ntso2,ntsulf,ntDMS,ntmsa,ntpp25, & - ntbc1,ntbc2,ntoc1,ntoc2, & - ntss1,ntss2,ntss3,ntss4,ntss5, & - ntdust1,ntdust2,ntdust3,ntdust4,ntdust5,ntpp10, & - ntrac,gq0,num_chem, num_moist, & - ppm2ugkg,moist,chem, & - ids,ide, jds,jde, kds,kde, & - ims,ime, jms,jme, kms,kme, & - its,ite, jts,jte, kts,kte) - - !Chem input configuration - integer, intent(in) :: ktau - real(kind=kind_phys), intent(in) :: dtstep - - !FV3 input variables - integer, intent(in) :: ntrac,ntss1,ntss2,ntss3,ntss4,ntss5 - integer, intent(in) :: ntdust1,ntdust2,ntdust3,ntdust4,ntdust5 - integer, intent(in) :: ntso2,ntpp25,ntbc1,ntoc1,ntpp10 - integer, intent(in) :: ntsulf,ntbc2,ntoc2,ntDMS,ntmsa - real(kind=kind_phys), dimension(ims:ime), intent(in) ::rlat - real(kind=kind_phys), dimension(ims:ime, kms:kme), intent(in) :: pr3d,ph3d - real(kind=kind_phys), dimension(ims:ime, kts:kte), intent(in) :: & + subroutine catchem_prep_wetdep(ktau,dtstep, & + pr3d,ph3d,phl3d,tk3d,prl3d,us3d,vs3d,spechum,w,dqdt, & + rri,t_phy,u_phy,v_phy,p_phy,rho_phy,dz8w,p8w, & + t8w,dqdti,z_at_w,vvel,rlat,xlat, & + ntso2,ntsulf,ntDMS,ntmsa,ntpp25, & + ntbc1,ntbc2,ntoc1,ntoc2, & + ntss1,ntss2,ntss3,ntss4,ntss5, & + ntdust1,ntdust2,ntdust3,ntdust4,ntdust5,ntpp10, & + ntrac,gq0,num_chem, num_moist, & + ppm2ugkg,moist,chem, & + ids,ide, jds,jde, kds,kde, & + ims,ime, jms,jme, kms,kme, & + its,ite, jts,jte, kts,kte) + + !Chem input configuration + integer, intent(in) :: ktau + real(kind=kind_phys), intent(in) :: dtstep + + !FV3 input variables + integer, intent(in) :: ntrac,ntss1,ntss2,ntss3,ntss4,ntss5 + integer, intent(in) :: ntdust1,ntdust2,ntdust3,ntdust4,ntdust5 + integer, intent(in) :: ntso2,ntpp25,ntbc1,ntoc1,ntpp10 + integer, intent(in) :: ntsulf,ntbc2,ntoc2,ntDMS,ntmsa + real(kind=kind_phys), dimension(ims:ime), intent(in) ::rlat + real(kind=kind_phys), dimension(ims:ime, kms:kme), intent(in) :: pr3d,ph3d + real(kind=kind_phys), dimension(ims:ime, kts:kte), intent(in) :: & phl3d,tk3d,prl3d,us3d,vs3d,spechum,w,dqdt - real(kind=kind_phys), dimension(ims:ime, kts:kte,ntrac), intent(in) :: gq0 + real(kind=kind_phys), dimension(ims:ime, kts:kte,ntrac), intent(in) :: gq0 + + !GSD Chem variables + integer,intent(in) :: num_chem, num_moist + integer,intent(in) :: ids,ide, jds,jde, kds,kde, & + ims,ime, jms,jme, kms,kme, & + its,ite, jts,jte, kts,kte - !GSD Chem variables - integer,intent(in) :: num_chem, num_moist - integer,intent(in) :: ids,ide, jds,jde, kds,kde, & - ims,ime, jms,jme, kms,kme, & - its,ite, jts,jte, kts,kte + real(kind_phys), dimension(num_chem), intent(in) :: ppm2ugkg - real(kind_phys), dimension(num_chem), intent(in) :: ppm2ugkg - - real(kind_phys), dimension(ims:ime, kms:kme, jms:jme), intent(out) :: & + real(kind_phys), dimension(ims:ime, kms:kme, jms:jme), intent(out) :: & rri, t_phy, u_phy, v_phy, p_phy, rho_phy, dz8w, p8w, t8w, vvel, dqdti - real(kind_phys), dimension(ims:ime, kms:kme, jms:jme, num_moist), intent(out) :: moist - real(kind_phys), dimension(ims:ime, kms:kme, jms:jme, num_chem), intent(out) :: chem + real(kind_phys), dimension(ims:ime, kms:kme, jms:jme, num_moist), intent(out) :: moist + real(kind_phys), dimension(ims:ime, kms:kme, jms:jme, num_chem), intent(out) :: chem - real(kind_phys), dimension(ims:ime, kms:kme, jms:jme), intent(out) :: z_at_w - real(kind_phys), dimension(ims:ime, jms:jme), intent(out) :: xlat - ! -- local variables + real(kind_phys), dimension(ims:ime, kms:kme, jms:jme), intent(out) :: z_at_w + real(kind_phys), dimension(ims:ime, jms:jme), intent(out) :: xlat + ! -- local variables ! real(kind=kind_phys), dimension(ims:ime, kms:kme, jms:jme) :: p_phy - real(kind_phys) :: factor,factor2,pu,pl,aln,pwant - real(kind_phys) :: xhour,xmin,xlonn,xtime,real_time - real(kind_phys), DIMENSION (1,1) :: sza,cosszax - integer i,ip,j,jp,k,kp,kk,kkp,nv,jmax,jmaxi,l,ll,n,ndystep,ixhour - - ! -- initialize output arrays - rri = 0._kind_phys - t_phy = 0._kind_phys - u_phy = 0._kind_phys - v_phy = 0._kind_phys - p_phy = 0._kind_phys - rho_phy = 0._kind_phys - dz8w = 0._kind_phys - p8w = 0._kind_phys - t8w = 0._kind_phys - vvel = 0._kind_phys - dqdti = 0._kind_phys - moist = 0._kind_phys - chem = 0._kind_phys - z_at_w = 0._kind_phys - xlat = 0._kind_phys - - - do i=its,ite - xlat (i,1)=rlat(i)*180./pi - enddo - - - do j=jts,jte - jp = j - jts + 1 + real(kind_phys) :: factor,factor2,pu,pl,aln,pwant + real(kind_phys) :: xhour,xmin,xlonn,xtime,real_time + real(kind_phys), DIMENSION (1,1) :: sza,cosszax + integer i,ip,j,jp,k,kp,kk,kkp,nv,jmax,jmaxi,l,ll,n,ndystep,ixhour + + ! -- initialize output arrays + rri = 0._kind_phys + t_phy = 0._kind_phys + u_phy = 0._kind_phys + v_phy = 0._kind_phys + p_phy = 0._kind_phys + rho_phy = 0._kind_phys + dz8w = 0._kind_phys + p8w = 0._kind_phys + t8w = 0._kind_phys + vvel = 0._kind_phys + dqdti = 0._kind_phys + moist = 0._kind_phys + chem = 0._kind_phys + z_at_w = 0._kind_phys + xlat = 0._kind_phys + + do i=its,ite - ip = i - its + 1 - z_at_w(i,kts,j)=max(0.,ph3d(ip,1)/g) + xlat (i,1)=rlat(i)*180./pi enddo - enddo - do j=jts,jte - jp = j - jts + 1 - do k=kts,kte - kp = k - kts + 1 - do i=its,ite - ip = i - its + 1 - dz8w(i,k,j)=abs(ph3d(ip,kp+1)-ph3d(ip,kp))/g - z_at_w(i,k+1,j)=z_at_w(i,k,j)+dz8w(i,k,j) - enddo + + do j=jts,jte + jp = j - jts + 1 + do i=its,ite + ip = i - its + 1 + z_at_w(i,kts,j)=max(0.,ph3d(ip,1)/g) + enddo enddo - enddo - - do j=jts,jte - jp = j - jts + 1 - do k=kts,kte+1 - kp = k - kts + 1 - do i=its,ite - ip = i - its + 1 - p8w(i,k,j)=pr3d(ip,kp) - enddo + + do j=jts,jte + jp = j - jts + 1 + do k=kts,kte + kp = k - kts + 1 + do i=its,ite + ip = i - its + 1 + dz8w(i,k,j)=abs(ph3d(ip,kp+1)-ph3d(ip,kp))/g + z_at_w(i,k+1,j)=z_at_w(i,k,j)+dz8w(i,k,j) + enddo + enddo enddo - enddo - - do j=jts,jte - jp = j - jts + 1 - do k=kts,kte+1 - kk=min(k,kte) - kkp = kk - kts + 1 - do i=its,ite - ip = i - its + 1 - dz8w(i,k,j)=z_at_w(i,kk+1,j)-z_at_w(i,kk,j) - t_phy(i,k,j)=tk3d(ip,kkp) - p_phy(i,k,j)=prl3d(ip,kkp) - u_phy(i,k,j)=us3d(ip,kkp) - dqdti(i,k,j)=dqdt(ip,kkp) - v_phy(i,k,j)=vs3d(ip,kkp) - rho_phy(i,k,j)=p_phy(i,k,j)/(287.04*t_phy(i,k,j)*(1.+.608*spechum(ip,kkp))) - rri(i,k,j)=1./rho_phy(i,k,j) - vvel(i,k,j)=-w(ip,kkp)*rri(i,k,j)/g - moist(i,k,j,:)=0. - moist(i,k,j,1)=gq0(ip,kkp,p_atm_shum) - if (t_phy(i,k,j) > 265.) then - moist(i,k,j,2)=gq0(ip,kkp,p_atm_cldq) - moist(i,k,j,3)=0. - if (moist(i,k,j,2) < 1.e-8) moist(i,k,j,2)=0. - else - moist(i,k,j,2)=0. - moist(i,k,j,3)=gq0(ip,kkp,p_atm_cldq) - if(moist(i,k,j,3) < 1.e-8)moist(i,k,j,3)=0. - endif - !-- - enddo + + do j=jts,jte + jp = j - jts + 1 + do k=kts,kte+1 + kp = k - kts + 1 + do i=its,ite + ip = i - its + 1 + p8w(i,k,j)=pr3d(ip,kp) + enddo + enddo enddo - enddo - do j=jts,jte - do k=2,kte - do i=its,ite - t8w(i,k,j)=.5*(t_phy(i,k,j)+t_phy(i,k-1,j)) - enddo + do j=jts,jte + jp = j - jts + 1 + do k=kts,kte+1 + kk=min(k,kte) + kkp = kk - kts + 1 + do i=its,ite + ip = i - its + 1 + dz8w(i,k,j)=z_at_w(i,kk+1,j)-z_at_w(i,kk,j) + t_phy(i,k,j)=tk3d(ip,kkp) + p_phy(i,k,j)=prl3d(ip,kkp) + u_phy(i,k,j)=us3d(ip,kkp) + dqdti(i,k,j)=dqdt(ip,kkp) + v_phy(i,k,j)=vs3d(ip,kkp) + rho_phy(i,k,j)=p_phy(i,k,j)/(287.04*t_phy(i,k,j)*(1.+.608*spechum(ip,kkp))) + rri(i,k,j)=1./rho_phy(i,k,j) + vvel(i,k,j)=-w(ip,kkp)*rri(i,k,j)/g + moist(i,k,j,:)=0. + moist(i,k,j,1)=gq0(ip,kkp,p_atm_shum) + if (t_phy(i,k,j) > 265.) then + moist(i,k,j,2)=gq0(ip,kkp,p_atm_cldq) + moist(i,k,j,3)=0. + if (moist(i,k,j,2) < 1.e-8) moist(i,k,j,2)=0. + else + moist(i,k,j,2)=0. + moist(i,k,j,3)=gq0(ip,kkp,p_atm_cldq) + if(moist(i,k,j,3) < 1.e-8)moist(i,k,j,3)=0. + endif + !-- + enddo + enddo enddo - enddo - ! -- only used in phtolysis.... - do j=jts,jte - do i=its,ite - t8w(i,1,j)=t_phy(i,1,j) - t8w(i,kte+1,j)=t_phy(i,kte,j) + do j=jts,jte + do k=2,kte + do i=its,ite + t8w(i,k,j)=.5*(t_phy(i,k,j)+t_phy(i,k-1,j)) + enddo + enddo enddo - enddo - - - do k=kms,kte - do i=ims,ime - chem(i,k,jts,p_so2 )=max(epsilc,gq0(i,k,ntso2 )/ppm2ugkg(p_so2)) - chem(i,k,jts,p_sulf )=max(epsilc,gq0(i,k,ntsulf )/ppm2ugkg(p_sulf)) - chem(i,k,jts,p_dms )=max(epsilc,gq0(i,k,ntdms )/ppm2ugkg(p_dms)) - chem(i,k,jts,p_msa )=max(epsilc,gq0(i,k,ntmsa )/ppm2ugkg(p_msa)) - chem(i,k,jts,p_p25 )=max(epsilc,gq0(i,k,ntpp25 )/ppm2ugkg(p_p25)) - chem(i,k,jts,p_bc1 )=max(epsilc,gq0(i,k,ntbc1 )/ppm2ugkg(p_bc1)) - chem(i,k,jts,p_bc2 )=max(epsilc,gq0(i,k,ntbc2 )/ppm2ugkg(p_bc2)) - chem(i,k,jts,p_oc1 )=max(epsilc,gq0(i,k,ntoc1 )/ppm2ugkg(p_oc1)) - chem(i,k,jts,p_oc2 )=max(epsilc,gq0(i,k,ntoc2 )/ppm2ugkg(p_oc2)) - chem(i,k,jts,p_dust_1)=max(epsilc,gq0(i,k,ntdust1)/ppm2ugkg(p_dust_1)) - chem(i,k,jts,p_dust_2)=max(epsilc,gq0(i,k,ntdust2)/ppm2ugkg(p_dust_2)) - chem(i,k,jts,p_dust_3)=max(epsilc,gq0(i,k,ntdust3)/ppm2ugkg(p_dust_3)) - chem(i,k,jts,p_dust_4)=max(epsilc,gq0(i,k,ntdust4)/ppm2ugkg(p_dust_4)) - chem(i,k,jts,p_dust_5)=max(epsilc,gq0(i,k,ntdust5)/ppm2ugkg(p_dust_5)) - chem(i,k,jts,p_seas_1)=max(epsilc,gq0(i,k,ntss1 )/ppm2ugkg(p_seas_1)) - chem(i,k,jts,p_seas_2)=max(epsilc,gq0(i,k,ntss2 )/ppm2ugkg(p_seas_2)) - chem(i,k,jts,p_seas_3)=max(epsilc,gq0(i,k,ntss3 )/ppm2ugkg(p_seas_3)) - chem(i,k,jts,p_seas_4)=max(epsilc,gq0(i,k,ntss4 )/ppm2ugkg(p_seas_4)) - chem(i,k,jts,p_seas_5)=max(epsilc,gq0(i,k,ntss5 )/ppm2ugkg(p_seas_5)) - chem(i,k,jts,p_p10 )=max(epsilc,gq0(i,k,ntpp10 )/ppm2ugkg(p_p10)) - enddo - enddo - - - end subroutine catchem_prep_wetdep + + ! -- only used in phtolysis.... + do j=jts,jte + do i=its,ite + t8w(i,1,j)=t_phy(i,1,j) + t8w(i,kte+1,j)=t_phy(i,kte,j) + enddo + enddo + + + do k=kms,kte + do i=ims,ime + chem(i,k,jts,p_so2 )=max(epsilc,gq0(i,k,ntso2 )/ppm2ugkg(p_so2)) + chem(i,k,jts,p_sulf )=max(epsilc,gq0(i,k,ntsulf )/ppm2ugkg(p_sulf)) + chem(i,k,jts,p_dms )=max(epsilc,gq0(i,k,ntdms )/ppm2ugkg(p_dms)) + chem(i,k,jts,p_msa )=max(epsilc,gq0(i,k,ntmsa )/ppm2ugkg(p_msa)) + chem(i,k,jts,p_p25 )=max(epsilc,gq0(i,k,ntpp25 )/ppm2ugkg(p_p25)) + chem(i,k,jts,p_bc1 )=max(epsilc,gq0(i,k,ntbc1 )/ppm2ugkg(p_bc1)) + chem(i,k,jts,p_bc2 )=max(epsilc,gq0(i,k,ntbc2 )/ppm2ugkg(p_bc2)) + chem(i,k,jts,p_oc1 )=max(epsilc,gq0(i,k,ntoc1 )/ppm2ugkg(p_oc1)) + chem(i,k,jts,p_oc2 )=max(epsilc,gq0(i,k,ntoc2 )/ppm2ugkg(p_oc2)) + chem(i,k,jts,p_dust_1)=max(epsilc,gq0(i,k,ntdust1)/ppm2ugkg(p_dust_1)) + chem(i,k,jts,p_dust_2)=max(epsilc,gq0(i,k,ntdust2)/ppm2ugkg(p_dust_2)) + chem(i,k,jts,p_dust_3)=max(epsilc,gq0(i,k,ntdust3)/ppm2ugkg(p_dust_3)) + chem(i,k,jts,p_dust_4)=max(epsilc,gq0(i,k,ntdust4)/ppm2ugkg(p_dust_4)) + chem(i,k,jts,p_dust_5)=max(epsilc,gq0(i,k,ntdust5)/ppm2ugkg(p_dust_5)) + chem(i,k,jts,p_seas_1)=max(epsilc,gq0(i,k,ntss1 )/ppm2ugkg(p_seas_1)) + chem(i,k,jts,p_seas_2)=max(epsilc,gq0(i,k,ntss2 )/ppm2ugkg(p_seas_2)) + chem(i,k,jts,p_seas_3)=max(epsilc,gq0(i,k,ntss3 )/ppm2ugkg(p_seas_3)) + chem(i,k,jts,p_seas_4)=max(epsilc,gq0(i,k,ntss4 )/ppm2ugkg(p_seas_4)) + chem(i,k,jts,p_seas_5)=max(epsilc,gq0(i,k,ntss5 )/ppm2ugkg(p_seas_5)) + chem(i,k,jts,p_p10 )=max(epsilc,gq0(i,k,ntpp10 )/ppm2ugkg(p_p10)) + enddo + enddo + + + end subroutine catchem_prep_wetdep !> @} - end module catchem_wetdep_wrapper +end module catchem_wetdep_wrapper diff --git a/parameters/catchem_config.F90 b/parameters/catchem_config.F90 index 7ad83ebb..7f2b4def 100644 --- a/parameters/catchem_config.F90 +++ b/parameters/catchem_config.F90 @@ -1,5 +1,5 @@ ! -! Haiqin.Li@noaa.gov +! Haiqin.Li@noaa.gov ! 01/2020 ! constant parameters and chemistry configurations and tracers ! (This will be splited into three subroutine for configuration, constant and tracers later) @@ -9,278 +9,278 @@ module catchem_config - use catchem_constants, only : kind_chem - - implicit none - - !-- constant paramters - real(kind=kind_chem), parameter :: epsilc = 1.e-30 - - !-- chemistyr module configurations - integer :: chem_opt = 300 - integer :: kemit = 1 - integer :: dust_opt = 5 - integer :: dmsemis_opt = 1 - integer :: seas_opt = 2 - integer :: biomass_burn_opt=1 - integer :: plumerise_flag = 2 ! 1=MODIS, 2=GBBEPx - integer :: plumerisefire_frq=60 - integer :: chem_conv_tr = 0 - integer :: aer_ra_feedback=1 !0 - integer :: aer_ra_frq=60 - integer :: wetdep_ls_opt = 1 - - real(kind=kind_chem), parameter :: depo_fact=0. - integer, parameter :: CHEM_OPT_GOCART= 300 - integer, parameter :: CHEM_OPT_GOCART_RACM = 301 - integer, parameter :: CHEM_OPT_RACM_SOA_VBS = 108 - INTEGER, PARAMETER :: gocartracm_kpp = 301 - integer, parameter :: chem_tune_tracers = 20 - integer, parameter :: CHEM_OPT_MAX = 500 - integer, parameter :: DUST_OPT_NONE = 0 - integer, parameter :: SEAS_OPT_NONE = 0 - ! -- DMS emissions - integer, parameter :: DMSE_OPT_NONE = 0 - integer, parameter :: DMSE_OPT_ENABLE = 1 - ! -- subgrid convective transport - integer, parameter :: CTRA_OPT_NONE = 0 - integer, parameter :: CTRA_OPT_GRELL = 2 - ! -- large scale wet deposition - integer, parameter :: WDLS_OPT_NONE = 0 - integer, parameter :: WDLS_OPT_GSD = 1 - integer, parameter :: WDLS_OPT_NGAC = 2 - - ! -- - integer, parameter :: call_chemistry = 1 - integer, parameter :: num_ebu = 7 - integer, parameter :: num_ebu_in = 7 - integer, parameter :: num_moist=3, num_chem=20, num_emis_seas=5, num_emis_dust=5 - integer, parameter :: num_emis_ant = 7, num_emis_vol =4 - - integer, parameter :: SEAS_OPT_DEFAULT = 1 - - integer, parameter :: DUST_OPT_GOCART = 1 - integer, parameter :: DUST_OPT_AFWA = 3 - integer, parameter :: DUST_OPT_FENGSHA = 5 - - ! -- biomass burning emissions - integer, parameter :: BURN_OPT_NONE = 0 - integer, parameter :: BURN_OPT_ENABLE = 1 - integer, parameter :: FIRE_OPT_NONE = 0 - integer, parameter :: FIRE_OPT_MODIS = 1 - integer, parameter :: FIRE_OPT_GBBEPx = 2 - - ! -- hydrometeors - integer, parameter :: p_qv=1 - integer, parameter :: p_qc=2 - integer, parameter :: p_qi=3 - ! -- set pointers to predefined atmospheric tracers - ! -- FV3 GFDL microphysics - integer, parameter :: p_atm_shum = 1 - integer, parameter :: p_atm_cldq = 2 - integer, parameter :: p_atm_o3mr = 7 - - integer :: numgas = 0 - - - !integer :: num_plume_data - - - real(kind=kind_chem) :: wetdep_ls_alpha(chem_tune_tracers)=-999. - - - !-- tracers - integer, parameter :: p_so2=1 - integer, parameter :: p_sulf=2 - integer, parameter :: p_dms=3 - integer, parameter :: p_msa=4 - integer, parameter :: p_p25=5 - integer, parameter :: p_bc1=6 - integer, parameter :: p_bc2=7 - integer, parameter :: p_oc1=8 - integer, parameter :: p_oc2=9 - integer, parameter :: p_dust_1=10 - integer, parameter :: p_dust_2=11 - integer, parameter :: p_dust_3=12 - integer, parameter :: p_dust_4=13 - integer, parameter :: p_dust_5=14 - integer, parameter :: p_seas_1=15 - integer, parameter :: p_seas_2=16 - integer, parameter :: p_seas_3=17 - integer, parameter :: p_seas_4=18 - integer, parameter :: p_seas_5=19 - integer, parameter :: p_p10 =20 - - integer, parameter :: p_edust1=1,p_edust2=2,p_edust3=3,p_edust4=4,p_edust5=5 - integer, parameter :: p_eseas1=1,p_eseas2=2,p_eseas3=3,p_eseas4=4,p_eseas5=5 - - integer :: p_ho=0,p_h2o2=0,p_no3=0 - - ! constants - real(kind=kind_chem), PARAMETER :: airmw = 28.97 - real(kind=kind_chem), PARAMETER :: mw_so2_aer = 64.066 - real(kind=kind_chem), PARAMETER :: mw_so4_aer = 96.066 - real(kind=kind_chem), parameter :: smw = 32.00 - real(kind=kind_chem), parameter :: mwdry = 28. + use catchem_constants, only : kind_chem + + implicit none + + !-- constant paramters + real(kind=kind_chem), parameter :: epsilc = 1.e-30 + + !-- chemistyr module configurations + integer :: chem_opt = 300 + integer :: kemit = 1 + integer :: dust_opt = 5 + integer :: dmsemis_opt = 1 + integer :: seas_opt = 2 + integer :: biomass_burn_opt=1 + integer :: plumerise_flag = 2 ! 1=MODIS, 2=GBBEPx + integer :: plumerisefire_frq=60 + integer :: chem_conv_tr = 0 + integer :: aer_ra_feedback=1 !0 + integer :: aer_ra_frq=60 + integer :: wetdep_ls_opt = 1 + + real(kind=kind_chem), parameter :: depo_fact=0. + integer, parameter :: CHEM_OPT_GOCART= 300 + integer, parameter :: CHEM_OPT_GOCART_RACM = 301 + integer, parameter :: CHEM_OPT_RACM_SOA_VBS = 108 + INTEGER, PARAMETER :: gocartracm_kpp = 301 + integer, parameter :: chem_tune_tracers = 20 + integer, parameter :: CHEM_OPT_MAX = 500 + integer, parameter :: DUST_OPT_NONE = 0 + integer, parameter :: SEAS_OPT_NONE = 0 + ! -- DMS emissions + integer, parameter :: DMSE_OPT_NONE = 0 + integer, parameter :: DMSE_OPT_ENABLE = 1 + ! -- subgrid convective transport + integer, parameter :: CTRA_OPT_NONE = 0 + integer, parameter :: CTRA_OPT_GRELL = 2 + ! -- large scale wet deposition + integer, parameter :: WDLS_OPT_NONE = 0 + integer, parameter :: WDLS_OPT_GSD = 1 + integer, parameter :: WDLS_OPT_NGAC = 2 + + ! -- + integer, parameter :: call_chemistry = 1 + integer, parameter :: num_ebu = 7 + integer, parameter :: num_ebu_in = 7 + integer, parameter :: num_moist=3, num_chem=20, num_emis_seas=5, num_emis_dust=5 + integer, parameter :: num_emis_ant = 7, num_emis_vol =4 + + integer, parameter :: SEAS_OPT_DEFAULT = 1 + + integer, parameter :: DUST_OPT_GOCART = 1 + integer, parameter :: DUST_OPT_AFWA = 3 + integer, parameter :: DUST_OPT_FENGSHA = 5 + + ! -- biomass burning emissions + integer, parameter :: BURN_OPT_NONE = 0 + integer, parameter :: BURN_OPT_ENABLE = 1 + integer, parameter :: FIRE_OPT_NONE = 0 + integer, parameter :: FIRE_OPT_MODIS = 1 + integer, parameter :: FIRE_OPT_GBBEPx = 2 + + ! -- hydrometeors + integer, parameter :: p_qv=1 + integer, parameter :: p_qc=2 + integer, parameter :: p_qi=3 + ! -- set pointers to predefined atmospheric tracers + ! -- FV3 GFDL microphysics + integer, parameter :: p_atm_shum = 1 + integer, parameter :: p_atm_cldq = 2 + integer, parameter :: p_atm_o3mr = 7 + + integer :: numgas = 0 + + + !integer :: num_plume_data + + + real(kind=kind_chem) :: wetdep_ls_alpha(chem_tune_tracers)=-999. + + + !-- tracers + integer, parameter :: p_so2=1 + integer, parameter :: p_sulf=2 + integer, parameter :: p_dms=3 + integer, parameter :: p_msa=4 + integer, parameter :: p_p25=5 + integer, parameter :: p_bc1=6 + integer, parameter :: p_bc2=7 + integer, parameter :: p_oc1=8 + integer, parameter :: p_oc2=9 + integer, parameter :: p_dust_1=10 + integer, parameter :: p_dust_2=11 + integer, parameter :: p_dust_3=12 + integer, parameter :: p_dust_4=13 + integer, parameter :: p_dust_5=14 + integer, parameter :: p_seas_1=15 + integer, parameter :: p_seas_2=16 + integer, parameter :: p_seas_3=17 + integer, parameter :: p_seas_4=18 + integer, parameter :: p_seas_5=19 + integer, parameter :: p_p10 =20 + + integer, parameter :: p_edust1=1,p_edust2=2,p_edust3=3,p_edust4=4,p_edust5=5 + integer, parameter :: p_eseas1=1,p_eseas2=2,p_eseas3=3,p_eseas4=4,p_eseas5=5 + + integer :: p_ho=0,p_h2o2=0,p_no3=0 + + ! constants + real(kind=kind_chem), PARAMETER :: airmw = 28.97 + real(kind=kind_chem), PARAMETER :: mw_so2_aer = 64.066 + real(kind=kind_chem), PARAMETER :: mw_so4_aer = 96.066 + real(kind=kind_chem), parameter :: smw = 32.00 + real(kind=kind_chem), parameter :: mwdry = 28. ! d is the molecular weight of dry air (28.966), w/d = 0.62197, and ! (d - w)/d = 0.37803 ! http://atmos.nmsu.edu/education_and_outreach/encyclopedia/humidity.htm - !----------------------------------------------------------------------- - ! tracer info - !----------------------------------------------------------------------- - ! Tracer index: - ! default initialization for all sulfur and carbon species is 0 (undefined) - ! 1. DMS = Dimethyl sulfide = CH3SCH3 - ! 2. SO2 = Sulfur dioxide = SO2 - ! 3. SO4 = Sulfate = SO4 - ! 4. MSA = Methane sulfonic acid = CH3SO3H - integer :: ndms=1, nso2=2, nso4=3, nmsa=4 - - ! optical - integer :: nbands = 14 - integer :: nbandlw = 16 - REAL, PARAMETER :: oc_mfac = 1.8 - REAL, PARAMETER :: nh4_mfac = 1.375 - - - INTEGER, PARAMETER :: cbmz_mosaic_4bin_aq = 9 - INTEGER, PARAMETER :: cbmz_mosaic_8bin_aq = 10 - INTEGER, PARAMETER :: radm2sorg_aq = 11 - INTEGER, PARAMETER :: racmsorg_aq = 12 - INTEGER, PARAMETER :: mozart_kpp = 111 - INTEGER, PARAMETER :: mozart_mosaic_4bin_kpp = 201 - INTEGER, PARAMETER :: mozart_mosaic_4bin_aq_kpp = 202 - INTEGER, PARAMETER :: radm2 = 1 - INTEGER, PARAMETER :: radm2sorg = 2 - INTEGER, PARAMETER :: radm2sorg_aqchem = 41 - INTEGER, PARAMETER :: cbmz = 5 - INTEGER, PARAMETER :: cbmz_bb = 6 - INTEGER, PARAMETER :: cbmz_bb_kpp = 120 - INTEGER, PARAMETER :: cbmz_mosaic_kpp = 170 - INTEGER, PARAMETER :: cbmz_mosaic_4bin = 7 - INTEGER, PARAMETER :: cbmz_mosaic_8bin = 8 - INTEGER, PARAMETER :: cbmz_mosaic_dms_4bin_aq = 32 - INTEGER, PARAMETER :: cbmz_mosaic_dms_8bin_aq = 34 - INTEGER, PARAMETER :: cbmz_mosaic_dms_4bin = 31 - INTEGER, PARAMETER :: cbmz_mosaic_dms_8bin = 33 - INTEGER, PARAMETER :: cbmz_cam_mam3_noaq = 501 - INTEGER, PARAMETER :: cbmz_cam_mam3_aq = 503 - INTEGER, PARAMETER :: cbmz_cam_mam7_noaq = 502 - INTEGER, PARAMETER :: cbmz_cam_mam7_aq = 504 - INTEGER, PARAMETER :: mozcart_kpp = 112 - INTEGER, PARAMETER :: racmsoavbs_kpp = 108 - INTEGER, PARAMETER :: cbm4_kpp = 110 - INTEGER, PARAMETER :: gocartradm2 = 303 - INTEGER, PARAMETER :: crimech_kpp = 600 - INTEGER, PARAMETER :: cri_mosaic_8bin_aq_kpp = 601 - INTEGER, PARAMETER :: cri_mosaic_4bin_aq_kpp = 611 - INTEGER, PARAMETER :: cb05_sorg_aq_kpp = 131 - INTEGER, PARAMETER :: cb05_sorg_vbs_aq_kpp = 132 - - !-- plumerise - integer, parameter :: p_e_bc =1 - integer, parameter :: p_e_oc =2 - integer, parameter :: p_e_sulf=3 - integer, parameter :: p_e_pm_25=4 - integer, parameter :: p_e_so2=5 - integer, parameter :: p_e_pm_10=6 - integer, parameter :: p_e_dms=7 - integer, parameter :: p_ebu_bc =1 - integer, parameter :: p_ebu_oc =2 - integer, parameter :: p_ebu_sulf=3 - integer, parameter :: p_ebu_pm25=4 - integer, parameter :: p_ebu_so2=5 - integer, parameter :: p_ebu_pm10=6 - integer, parameter :: p_ebu_dms=7 - integer, parameter :: p_ebu_in_bc =1 - integer, parameter :: p_ebu_in_oc =2 - integer, parameter :: p_ebu_in_sulf=3 - integer, parameter :: p_ebu_in_pm25=4 - integer, parameter :: p_ebu_in_so2=5 - integer, parameter :: p_ebu_in_pm10=6 - integer, parameter :: p_ebu_in_dms=7 - - - !-- gocartracm - integer, parameter :: p_ebu_no = 3 - integer, parameter :: p_ebu_no2=4 - integer, parameter :: p_ebu_co =5 - integer, parameter :: p_ebu_eth=6 - integer, parameter :: p_ebu_hc3=7 - integer, parameter :: p_ebu_hc5=8 - integer, parameter :: p_ebu_hc8=9 - integer, parameter :: p_ebu_xyl=10 - integer, parameter :: p_ebu_olt=11 - integer, parameter :: p_ebu_oli=12 - integer, parameter :: p_ebu_tol=13 - integer, parameter :: p_ebu_csl=14 - integer, parameter :: p_ebu_hcho=15 - integer, parameter :: p_ebu_in_no = 3 - integer, parameter :: p_ebu_in_no2=4 - integer, parameter :: p_ebu_in_co =5 - integer, parameter :: p_ebu_in_eth=6 - integer, parameter :: p_ebu_in_hc3=7 - integer, parameter :: p_ebu_in_hc5=8 - integer, parameter :: p_ebu_in_hc8=9 - integer, parameter :: p_ebu_in_xyl=10 - integer, parameter :: p_ebu_in_olt=11 - integer, parameter :: p_ebu_in_oli=12 - integer, parameter :: p_ebu_in_tol=13 - integer, parameter :: p_ebu_in_csl=14 - integer, parameter :: p_ebu_in_hcho=15 - - INTEGER , PARAMETER :: PARAM_FIRST_SCALAR = 2 - - integer :: p_qr = 1 - integer :: p_pan = 1 - integer :: p_o3 = 1 - integer :: p_nh3 = 1 - - integer :: p_tr2 = 0 - - integer :: p_vash_1 = 0 - integer :: p_vash_10 = 0 - integer :: p_vash_2 = 0 - integer :: p_vash_3 = 0 - integer :: p_vash_4 = 0 - integer :: p_vash_5 = 0 - integer :: p_vash_6 = 0 - integer :: p_vash_7 = 0 - integer :: p_vash_8 = 0 - integer :: p_vash_9 = 0 - - integer :: p_e_vash1 = 1 - integer :: p_e_vash2 = 2 - integer :: p_e_vash3 = 3 - integer :: p_e_vash4 = 4 - !--- optical properties - integer :: num_ext_coef = 5 - integer :: num_bscat_coef = 3 - integer :: num_asym_par = 3 - integer :: p_extcof3 = 1 - integer :: p_extcof55 = 2 - integer :: p_extcof106 = 3 - integer :: p_extcof3_5 = 4 - integer :: p_extcof8_12 = 5 - integer :: p_bscof3 = 1 - integer :: p_bscof55 = 2 - integer :: p_bscof106 = 3 - integer :: p_asympar3 = 1 - integer :: p_asympar55 = 2 - integer :: p_asympar106 = 3 - - ! -- fire options - !select case (plumerise_flag) - ! case (FIRE_OPT_NONE) - ! ! -- valid option - ! case (FIRE_OPT_MODIS) + !----------------------------------------------------------------------- + ! tracer info + !----------------------------------------------------------------------- + ! Tracer index: + ! default initialization for all sulfur and carbon species is 0 (undefined) + ! 1. DMS = Dimethyl sulfide = CH3SCH3 + ! 2. SO2 = Sulfur dioxide = SO2 + ! 3. SO4 = Sulfate = SO4 + ! 4. MSA = Methane sulfonic acid = CH3SO3H + integer :: ndms=1, nso2=2, nso4=3, nmsa=4 + + ! optical + integer :: nbands = 14 + integer :: nbandlw = 16 + REAL, PARAMETER :: oc_mfac = 1.8 + REAL, PARAMETER :: nh4_mfac = 1.375 + + + INTEGER, PARAMETER :: cbmz_mosaic_4bin_aq = 9 + INTEGER, PARAMETER :: cbmz_mosaic_8bin_aq = 10 + INTEGER, PARAMETER :: radm2sorg_aq = 11 + INTEGER, PARAMETER :: racmsorg_aq = 12 + INTEGER, PARAMETER :: mozart_kpp = 111 + INTEGER, PARAMETER :: mozart_mosaic_4bin_kpp = 201 + INTEGER, PARAMETER :: mozart_mosaic_4bin_aq_kpp = 202 + INTEGER, PARAMETER :: radm2 = 1 + INTEGER, PARAMETER :: radm2sorg = 2 + INTEGER, PARAMETER :: radm2sorg_aqchem = 41 + INTEGER, PARAMETER :: cbmz = 5 + INTEGER, PARAMETER :: cbmz_bb = 6 + INTEGER, PARAMETER :: cbmz_bb_kpp = 120 + INTEGER, PARAMETER :: cbmz_mosaic_kpp = 170 + INTEGER, PARAMETER :: cbmz_mosaic_4bin = 7 + INTEGER, PARAMETER :: cbmz_mosaic_8bin = 8 + INTEGER, PARAMETER :: cbmz_mosaic_dms_4bin_aq = 32 + INTEGER, PARAMETER :: cbmz_mosaic_dms_8bin_aq = 34 + INTEGER, PARAMETER :: cbmz_mosaic_dms_4bin = 31 + INTEGER, PARAMETER :: cbmz_mosaic_dms_8bin = 33 + INTEGER, PARAMETER :: cbmz_cam_mam3_noaq = 501 + INTEGER, PARAMETER :: cbmz_cam_mam3_aq = 503 + INTEGER, PARAMETER :: cbmz_cam_mam7_noaq = 502 + INTEGER, PARAMETER :: cbmz_cam_mam7_aq = 504 + INTEGER, PARAMETER :: mozcart_kpp = 112 + INTEGER, PARAMETER :: racmsoavbs_kpp = 108 + INTEGER, PARAMETER :: cbm4_kpp = 110 + INTEGER, PARAMETER :: gocartradm2 = 303 + INTEGER, PARAMETER :: crimech_kpp = 600 + INTEGER, PARAMETER :: cri_mosaic_8bin_aq_kpp = 601 + INTEGER, PARAMETER :: cri_mosaic_4bin_aq_kpp = 611 + INTEGER, PARAMETER :: cb05_sorg_aq_kpp = 131 + INTEGER, PARAMETER :: cb05_sorg_vbs_aq_kpp = 132 + + !-- plumerise + integer, parameter :: p_e_bc =1 + integer, parameter :: p_e_oc =2 + integer, parameter :: p_e_sulf=3 + integer, parameter :: p_e_pm_25=4 + integer, parameter :: p_e_so2=5 + integer, parameter :: p_e_pm_10=6 + integer, parameter :: p_e_dms=7 + integer, parameter :: p_ebu_bc =1 + integer, parameter :: p_ebu_oc =2 + integer, parameter :: p_ebu_sulf=3 + integer, parameter :: p_ebu_pm25=4 + integer, parameter :: p_ebu_so2=5 + integer, parameter :: p_ebu_pm10=6 + integer, parameter :: p_ebu_dms=7 + integer, parameter :: p_ebu_in_bc =1 + integer, parameter :: p_ebu_in_oc =2 + integer, parameter :: p_ebu_in_sulf=3 + integer, parameter :: p_ebu_in_pm25=4 + integer, parameter :: p_ebu_in_so2=5 + integer, parameter :: p_ebu_in_pm10=6 + integer, parameter :: p_ebu_in_dms=7 + + + !-- gocartracm + integer, parameter :: p_ebu_no = 3 + integer, parameter :: p_ebu_no2=4 + integer, parameter :: p_ebu_co =5 + integer, parameter :: p_ebu_eth=6 + integer, parameter :: p_ebu_hc3=7 + integer, parameter :: p_ebu_hc5=8 + integer, parameter :: p_ebu_hc8=9 + integer, parameter :: p_ebu_xyl=10 + integer, parameter :: p_ebu_olt=11 + integer, parameter :: p_ebu_oli=12 + integer, parameter :: p_ebu_tol=13 + integer, parameter :: p_ebu_csl=14 + integer, parameter :: p_ebu_hcho=15 + integer, parameter :: p_ebu_in_no = 3 + integer, parameter :: p_ebu_in_no2=4 + integer, parameter :: p_ebu_in_co =5 + integer, parameter :: p_ebu_in_eth=6 + integer, parameter :: p_ebu_in_hc3=7 + integer, parameter :: p_ebu_in_hc5=8 + integer, parameter :: p_ebu_in_hc8=9 + integer, parameter :: p_ebu_in_xyl=10 + integer, parameter :: p_ebu_in_olt=11 + integer, parameter :: p_ebu_in_oli=12 + integer, parameter :: p_ebu_in_tol=13 + integer, parameter :: p_ebu_in_csl=14 + integer, parameter :: p_ebu_in_hcho=15 + + INTEGER , PARAMETER :: PARAM_FIRST_SCALAR = 2 + + integer :: p_qr = 1 + integer :: p_pan = 1 + integer :: p_o3 = 1 + integer :: p_nh3 = 1 + + integer :: p_tr2 = 0 + + integer :: p_vash_1 = 0 + integer :: p_vash_10 = 0 + integer :: p_vash_2 = 0 + integer :: p_vash_3 = 0 + integer :: p_vash_4 = 0 + integer :: p_vash_5 = 0 + integer :: p_vash_6 = 0 + integer :: p_vash_7 = 0 + integer :: p_vash_8 = 0 + integer :: p_vash_9 = 0 + + integer :: p_e_vash1 = 1 + integer :: p_e_vash2 = 2 + integer :: p_e_vash3 = 3 + integer :: p_e_vash4 = 4 + !--- optical properties + integer :: num_ext_coef = 5 + integer :: num_bscat_coef = 3 + integer :: num_asym_par = 3 + integer :: p_extcof3 = 1 + integer :: p_extcof55 = 2 + integer :: p_extcof106 = 3 + integer :: p_extcof3_5 = 4 + integer :: p_extcof8_12 = 5 + integer :: p_bscof3 = 1 + integer :: p_bscof55 = 2 + integer :: p_bscof106 = 3 + integer :: p_asympar3 = 1 + integer :: p_asympar55 = 2 + integer :: p_asympar106 = 3 + + ! -- fire options + !select case (plumerise_flag) + ! case (FIRE_OPT_NONE) + ! ! -- valid option + ! case (FIRE_OPT_MODIS) integer:: num_plume_data = 8 - ! case (FIRE_OPT_GBBEPx) - ! ! -- valid option - ! num_plume_data = 1 - ! case default - ! return - !end select + ! case (FIRE_OPT_GBBEPx) + ! ! -- valid option + ! num_plume_data = 1 + ! case default + ! return + !end select end module catchem_config diff --git a/parameters/catchem_constants.F90 b/parameters/catchem_constants.F90 index 34d0619e..7758188f 100644 --- a/parameters/catchem_constants.F90 +++ b/parameters/catchem_constants.F90 @@ -3,17 +3,17 @@ module catchem_constants - implicit none + implicit none - public + public - integer, parameter :: kind_chem = 8 + integer, parameter :: kind_chem = 8 - real(kind=kind_chem),parameter:: con_g =9.80665e+0_kind_chem !< gravity (\f$m/s^{2}\f$) - real(kind=kind_chem),parameter:: con_rd =2.8705e+2_kind_chem !< gas constant air (\f$J/kg/K\f$) - real(kind=kind_chem),parameter:: con_rv =4.6150e+2_kind_chem !< gas constant H2O (\f$J/kg/K\f$) - real(kind=kind_chem),parameter:: con_cp =1.0046e+3_kind_chem !< spec heat air at p (\f$J/kg/K\f$) - real(kind=kind_chem),parameter:: con_cv =7.1760e+2_kind_chem !< spec heat air at v (\f$J/kg/K\f$) - real(kind=kind_chem),parameter:: con_pi =4.0d0*atan(1.0d0) !< pi + real(kind=kind_chem),parameter:: con_g =9.80665e+0_kind_chem !< gravity (\f$m/s^{2}\f$) + real(kind=kind_chem),parameter:: con_rd =2.8705e+2_kind_chem !< gas constant air (\f$J/kg/K\f$) + real(kind=kind_chem),parameter:: con_rv =4.6150e+2_kind_chem !< gas constant H2O (\f$J/kg/K\f$) + real(kind=kind_chem),parameter:: con_cp =1.0046e+3_kind_chem !< spec heat air at p (\f$J/kg/K\f$) + real(kind=kind_chem),parameter:: con_cv =7.1760e+2_kind_chem !< spec heat air at v (\f$J/kg/K\f$) + real(kind=kind_chem),parameter:: con_pi =4.0d0*atan(1.0d0) !< pi end module catchem_constants diff --git a/parameters/ddep_data_mod.F90 b/parameters/ddep_data_mod.F90 index 2624925e..1a41db6a 100644 --- a/parameters/ddep_data_mod.F90 +++ b/parameters/ddep_data_mod.F90 @@ -1,51 +1,51 @@ module ddep_data_mod - use catchem_constants , only : kind_chem + use catchem_constants , only : kind_chem - implicit none + implicit none !-------------------------------------------------- ! many of these parameters will depend on the RADM mechanism! ! if you change it, lets talk about it and get it done!!! !-------------------------------------------------- - INTEGER, PARAMETER :: dep_seasons = 5 - INTEGER, PARAMETER :: nlu = 25 - REAL, parameter :: small_value = 1.e-36 - REAL, parameter :: large_value = 1.e36 + INTEGER, PARAMETER :: dep_seasons = 5 + INTEGER, PARAMETER :: nlu = 25 + REAL, parameter :: small_value = 1.e-36 + REAL, parameter :: large_value = 1.e36 !-------------------------------------------------- ! following currently hardwired to USGS !-------------------------------------------------- - integer, parameter :: isice_temp = 24 - integer, parameter :: iswater_temp = 16 - integer, parameter :: wrf2mz_lt_map(nlu) = (/ 1, 2, 2, 2, 2, & - 4, 3, 3, 3, 3, & - 4, 5, 4, 5, 6, & - 7, 9, 6, 8, 9, & - 6, 6, 8, 0, 0 /) - real, parameter :: wh2o = 18.0153 - real, parameter :: wpan = 121.04793 - real, PARAMETER :: KARMAN=0.4 - INTEGER, parameter :: luse2usgs(21) = (/14,13,12,11,15,8,9,10,10,7, & - 17,4,1,5,24,19,16,21,22,23,16 /) - character(len=4), parameter :: mminlu = 'USGS' - - INTEGER :: month = 0 - INTEGER :: ixxxlu(nlu) -! include modis landuse + integer, parameter :: isice_temp = 24 + integer, parameter :: iswater_temp = 16 + integer, parameter :: wrf2mz_lt_map(nlu) = (/ 1, 2, 2, 2, 2, & + 4, 3, 3, 3, 3, & + 4, 5, 4, 5, 6, & + 7, 9, 6, 8, 9, & + 6, 6, 8, 0, 0 /) + real, parameter :: wh2o = 18.0153 + real, parameter :: wpan = 121.04793 + real, PARAMETER :: KARMAN=0.4 + INTEGER, parameter :: luse2usgs(21) = (/14,13,12,11,15,8,9,10,10,7, & + 17,4,1,5,24,19,16,21,22,23,16 /) + character(len=4), parameter :: mminlu = 'USGS' + + INTEGER :: month = 0 + INTEGER :: ixxxlu(nlu) +! include modis landuse !-- - REAL :: kpart(nlu) - REAL :: rac(nlu,dep_seasons), rclo(nlu,dep_seasons), rcls(nlu,dep_seasons) - REAL :: rgso(nlu,dep_seasons), rgss(nlu,dep_seasons) - REAL :: ri(nlu,dep_seasons), rlu(nlu,dep_seasons) - REAL :: ri_pan(5,11) - real :: c0_pan(11) = (/ 0.000, 0.006, 0.002, 0.009, 0.015, & - 0.006, 0.000, 0.000, 0.000, 0.002, 0.002 /) - real :: k_pan (11) = (/ 0.000, 0.010, 0.005, 0.004, 0.003, & - 0.005, 0.000, 0.000, 0.000, 0.075, 0.002 /) - - public + REAL :: kpart(nlu) + REAL :: rac(nlu,dep_seasons), rclo(nlu,dep_seasons), rcls(nlu,dep_seasons) + REAL :: rgso(nlu,dep_seasons), rgss(nlu,dep_seasons) + REAL :: ri(nlu,dep_seasons), rlu(nlu,dep_seasons) + REAL :: ri_pan(5,11) + real :: c0_pan(11) = (/ 0.000, 0.006, 0.002, 0.009, 0.015, & + 0.006, 0.000, 0.000, 0.000, 0.002, 0.002 /) + real :: k_pan (11) = (/ 0.000, 0.010, 0.005, 0.004, 0.003, & + 0.005, 0.000, 0.000, 0.000, 0.075, 0.002 /) + + public end module ddep_data_mod diff --git a/parameters/dust_data_mod.F90 b/parameters/dust_data_mod.F90 index 9545626c..70f1a4b4 100644 --- a/parameters/dust_data_mod.F90 +++ b/parameters/dust_data_mod.F90 @@ -1,46 +1,46 @@ module dust_data_mod - use catchem_constants , only : kind_chem - use catchem_config, only : p_dust_1, p_dust_2, p_dust_3, p_dust_4, p_dust_5, & - p_edust1, p_edust2, p_edust3, p_edust4, p_edust5 + use catchem_constants , only : kind_chem + use catchem_config, only : p_dust_1, p_dust_2, p_dust_3, p_dust_4, p_dust_5, & + p_edust1, p_edust2, p_edust3, p_edust4, p_edust5 - implicit none + implicit none - integer, parameter :: ndust = 5 - integer, parameter :: ndcls = 3 - integer, parameter :: ndsrc = 1 - integer, parameter :: maxstypes = 100 - integer, parameter :: nsalt = 9 + integer, parameter :: ndust = 5 + integer, parameter :: ndcls = 3 + integer, parameter :: ndsrc = 1 + integer, parameter :: maxstypes = 100 + integer, parameter :: nsalt = 9 - real(kind_chem), parameter :: dyn_visc = 1.5E-5 + real(kind_chem), parameter :: dyn_visc = 1.5E-5 - ! -- dust parameters - integer, dimension(ndust), parameter :: ipoint = (/ 3, 2, 2, 2, 2 /) - real(kind_chem), dimension(ndust), parameter :: den_dust = (/ 2500., 2650., 2650., 2650., 2650. /) - real(kind_chem), dimension(ndust), parameter :: reff_dust = (/ 0.73D-6, 1.4D-6, 2.4D-6, 4.5D-6, 8.0D-6 /) - real(kind_chem), dimension(ndust), parameter :: frac_s = (/ 0.1, 0.25, 0.25, 0.25, 0.25 /) - real(kind_chem), dimension(ndust), parameter :: lo_dust = (/ 0.1D-6, 1.0D-6, 1.8D-6, 3.0D-6, 6.0D-6 /) - real(kind_chem), dimension(ndust), parameter :: up_dust = (/ 1.0D-6, 1.8D-6, 3.0D-6, 6.0D-6,10.0D-6 /) - real(kind_chem), dimension(ndust, 12) :: ch_dust = 0.8e-09_kind_chem + ! -- dust parameters + integer, dimension(ndust), parameter :: ipoint = (/ 3, 2, 2, 2, 2 /) + real(kind_chem), dimension(ndust), parameter :: den_dust = (/ 2500., 2650., 2650., 2650., 2650. /) + real(kind_chem), dimension(ndust), parameter :: reff_dust = (/ 0.73D-6, 1.4D-6, 2.4D-6, 4.5D-6, 8.0D-6 /) + real(kind_chem), dimension(ndust), parameter :: frac_s = (/ 0.1, 0.25, 0.25, 0.25, 0.25 /) + real(kind_chem), dimension(ndust), parameter :: lo_dust = (/ 0.1D-6, 1.0D-6, 1.8D-6, 3.0D-6, 6.0D-6 /) + real(kind_chem), dimension(ndust), parameter :: up_dust = (/ 1.0D-6, 1.8D-6, 3.0D-6, 6.0D-6,10.0D-6 /) + real(kind_chem), dimension(ndust, 12) :: ch_dust = 0.8e-09_kind_chem - ! -- default dust parameters - ! -- AFWA & GOCART - ! -----------+----------+-----------+ - ! Parameter | FIM-Chem | HRRR-Chem | - ! -----------+----------+-----------+ - ! alpha | 1.0 | 0.5 | - ! gamma | 1.6 | 1.0 | - ! -----------+----------+-----------+ - real(kind_chem), parameter :: afwa_alpha = 0.2 - real(kind_chem), parameter :: afwa_gamma = 1.3 - real(kind_chem), parameter :: gocart_alpha = 0.3 - real(kind_chem), parameter :: gocart_gamma = 1.3 - ! -- FENGSHA - real(kind_chem), parameter :: fengsha_alpha = 0.3 - real(kind_chem), parameter :: fengsha_gamma = 1.3 - ! -- FENGSHA threshold velocities based on Dale A. Gillette's data - integer, parameter :: fengsha_maxstypes = 13 + ! -- default dust parameters + ! -- AFWA & GOCART + ! -----------+----------+-----------+ + ! Parameter | FIM-Chem | HRRR-Chem | + ! -----------+----------+-----------+ + ! alpha | 1.0 | 0.5 | + ! gamma | 1.6 | 1.0 | + ! -----------+----------+-----------+ + real(kind_chem), parameter :: afwa_alpha = 0.2 + real(kind_chem), parameter :: afwa_gamma = 1.3 + real(kind_chem), parameter :: gocart_alpha = 0.3 + real(kind_chem), parameter :: gocart_gamma = 1.3 + ! -- FENGSHA + real(kind_chem), parameter :: fengsha_alpha = 0.3 + real(kind_chem), parameter :: fengsha_gamma = 1.3 + ! -- FENGSHA threshold velocities based on Dale A. Gillette's data + integer, parameter :: fengsha_maxstypes = 13 ! real(kind_chem), dimension(fengsha_maxstypes) :: dust_uthres = & ! (/ 0.065, & ! Sand - 1 ! 0.20, & ! Loamy Sand - 2 @@ -57,50 +57,50 @@ module dust_data_mod ! 9.999 /) ! Other - 13 ! dust_uthres = 0.065, 0.18, 0.27, 0.30, 0.35, 0.38, 0.35, 0.41, 0.41, ! 0.45,0.50,0.45,9999.0 - real(kind_chem), dimension(fengsha_maxstypes) :: dust_uthres = & - (/ 0.065, & ! Sand - 1 - 0.18, & ! Loamy Sand - 2 - 0.27, & ! Sandy Loam - 3 - 0.30, & ! Silt Loam - 4 - 0.35, & ! Silt - 5 - 0.38, & ! Loam - 6 - 0.35, & ! Sandy Clay Loam - 7 - 0.41, & ! Silty Clay Loam - 8 - 0.41, & ! Clay Loam - 9 - 0.45, & ! Sandy Clay - 10 - 0.50, & ! Silty Clay - 11 - 0.45, & ! Clay - 12 - 9999.0 /) ! Other - 13 - ! -- FENGSHA uses precalculated drag partition from ASCAT. See: Prigent et al. (2012,2015) - integer :: dust_calcdrag = 1 + real(kind_chem), dimension(fengsha_maxstypes) :: dust_uthres = & + (/ 0.065, & ! Sand - 1 + 0.18, & ! Loamy Sand - 2 + 0.27, & ! Sandy Loam - 3 + 0.30, & ! Silt Loam - 4 + 0.35, & ! Silt - 5 + 0.38, & ! Loam - 6 + 0.35, & ! Sandy Clay Loam - 7 + 0.41, & ! Silty Clay Loam - 8 + 0.41, & ! Clay Loam - 9 + 0.45, & ! Sandy Clay - 10 + 0.50, & ! Silty Clay - 11 + 0.45, & ! Clay - 12 + 9999.0 /) ! Other - 13 + ! -- FENGSHA uses precalculated drag partition from ASCAT. See: Prigent et al. (2012,2015) + integer :: dust_calcdrag = 1 - ! -- values set at initialization - real(kind_chem) :: dust_alpha = 0. - real(kind_chem) :: dust_gamma = 0. + ! -- values set at initialization + real(kind_chem) :: dust_alpha = 0. + real(kind_chem) :: dust_gamma = 0. - ! -- sea salt parameters - integer, dimension(nsalt), parameter :: spoint = (/ 1, 2, 2, 2, 2, 2, 3, 3, 3 /) ! 1 Clay, 2 Silt, 3 Sand - real(kind_chem), dimension(nsalt), parameter :: reff_salt = & - (/ 0.71D-6, 1.37D-6, 2.63D-6, 5.00D-6, 9.50D-6, 18.1D-6, 34.5D-6, 65.5D-6, 125.D-6 /) - real(kind_chem), dimension(nsalt), parameter :: den_salt = & - (/ 2500., 2650., 2650., 2650., 2650., 2650., 2650., 2650., 2650. /) - real(kind_chem), dimension(nsalt), parameter :: frac_salt = & - (/ 1., 0.2, 0.2, 0.2, 0.2, 0.2, 0.333, 0.333, 0.333 /) + ! -- sea salt parameters + integer, dimension(nsalt), parameter :: spoint = (/ 1, 2, 2, 2, 2, 2, 3, 3, 3 /) ! 1 Clay, 2 Silt, 3 Sand + real(kind_chem), dimension(nsalt), parameter :: reff_salt = & + (/ 0.71D-6, 1.37D-6, 2.63D-6, 5.00D-6, 9.50D-6, 18.1D-6, 34.5D-6, 65.5D-6, 125.D-6 /) + real(kind_chem), dimension(nsalt), parameter :: den_salt = & + (/ 2500., 2650., 2650., 2650., 2650., 2650., 2650., 2650., 2650. /) + real(kind_chem), dimension(nsalt), parameter :: frac_salt = & + (/ 1., 0.2, 0.2, 0.2, 0.2, 0.2, 0.333, 0.333, 0.333 /) - ! -- soil vagatation parameters - integer, parameter :: max_soiltyp = 30 - real(kind_chem), dimension(max_soiltyp) :: & - maxsmc = (/ 0.421, 0.464, 0.468, 0.434, 0.406, 0.465, & - 0.404, 0.439, 0.421, 0.000, 0.000, 0.000, & - 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & - 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & - 0.000, 0.000, 0.000, 0.000, 0.000, 0.000 /) + ! -- soil vagatation parameters + integer, parameter :: max_soiltyp = 30 + real(kind_chem), dimension(max_soiltyp) :: & + maxsmc = (/ 0.421, 0.464, 0.468, 0.434, 0.406, 0.465, & + 0.404, 0.439, 0.421, 0.000, 0.000, 0.000, & + 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & + 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, & + 0.000, 0.000, 0.000, 0.000, 0.000, 0.000 /) - ! -- other soil parameters - real(kind_chem), dimension(maxstypes) :: porosity + ! -- other soil parameters + real(kind_chem), dimension(maxstypes) :: porosity - public + public end module dust_data_mod diff --git a/parameters/opt_data_mod.F90 b/parameters/opt_data_mod.F90 index a1ee15e1..dbb3c95d 100644 --- a/parameters/opt_data_mod.F90 +++ b/parameters/opt_data_mod.F90 @@ -1,12 +1,12 @@ MODULE opt_data_mod - use catchem_constants , only : kind_chem + use catchem_constants , only : kind_chem ! - IMPLICIT NONE - INTEGER nswbands,nlwbands ! wave bands for rrtmg radiation scheme - PARAMETER (nswbands =4,nlwbands=16) - + IMPLICIT NONE + INTEGER nswbands,nlwbands ! wave bands for rrtmg radiation scheme + PARAMETER (nswbands =4,nlwbands=16) + !************************************************************* !czhao hard coding the refractive index of water and aerosols ! @@ -14,127 +14,127 @@ MODULE opt_data_mod ! used in the Community Atmosphere Model (CAM) ! * For now, shortwave refractive index is not wavelength depenedent ! and set to 0.003 as described in Zhao et al. ACP (2010) -! * Wavelength dependant shortwave refractive index used by CAM is +! * Wavelength dependant shortwave refractive index used by CAM is ! commented out for now ! - !water - real(kind_chem),dimension(1:nswbands),save :: refrwsw,refiwsw - real(kind_chem),dimension(1:nlwbands),save :: refrwlw,refiwlw - data refrwsw /1.35,1.34,1.33,1.33/ - data refiwsw /1.524e-8,2.494e-9,1.638e-9,3.128e-6/ - data refrwlw /1.532,1.524,1.420,1.274,1.161,1.142,1.232,1.266,1.296, & - 1.321,1.342,1.315,1.330,1.339,1.350,1.408/ - data refiwlw / 0.336,0.360,0.426,0.403,0.321,0.115,0.0471,0.039,0.034, & + !water + real(kind_chem),dimension(1:nswbands),save :: refrwsw,refiwsw + real(kind_chem),dimension(1:nlwbands),save :: refrwlw,refiwlw + data refrwsw /1.35,1.34,1.33,1.33/ + data refiwsw /1.524e-8,2.494e-9,1.638e-9,3.128e-6/ + data refrwlw /1.532,1.524,1.420,1.274,1.161,1.142,1.232,1.266,1.296, & + 1.321,1.342,1.315,1.330,1.339,1.350,1.408/ + data refiwlw / 0.336,0.360,0.426,0.403,0.321,0.115,0.0471,0.039,0.034, & 0.0344,0.092,0.012,0.013,0.01,0.0049,0.0142/ - !dust - real(kind_chem),dimension(1:nswbands),save :: refrsw_dust,refisw_dust - real(kind_chem),dimension(1:nlwbands),save :: refrlw_dust,refilw_dust - !data refrsw_dust /nswbands*1.530/ - data refrsw_dust /nswbands*1.550/ + !dust + real(kind_chem),dimension(1:nswbands),save :: refrsw_dust,refisw_dust + real(kind_chem),dimension(1:nlwbands),save :: refrlw_dust,refilw_dust + !data refrsw_dust /nswbands*1.530/ + data refrsw_dust /nswbands*1.550/ ! data refisw_dust /0.024,0.0135,0.0063,0.004/ - data refisw_dust /0.015,0.0125,0.006,0.005/ ! SAM 7/24/11 Otto et al, ACP,2007 Sahara imaginary index for dust in visible + data refisw_dust /0.015,0.0125,0.006,0.005/ ! SAM 7/24/11 Otto et al, ACP,2007 Sahara imaginary index for dust in visible ! data refisw_dust /nswbands*0.003/ ! SAM 7/24/11 original imaginary index for dust in visible - data refrlw_dust /2.340,2.904,1.748,1.508,1.911,1.822,2.917,1.557, & + data refrlw_dust /2.340,2.904,1.748,1.508,1.911,1.822,2.917,1.557, & 1.242,1.447,1.432,1.473,1.495,1.5,1.5,1.51/ - data refilw_dust /0.7,0.857,0.462,0.263,0.319,0.26,0.65,0.373,0.093, & - 0.105,0.061,0.0245,0.011,0.008,0.0068,0.018/ + data refilw_dust /0.7,0.857,0.462,0.263,0.319,0.26,0.65,0.373,0.093, & + 0.105,0.061,0.0245,0.011,0.008,0.0068,0.018/ - !BC - real(kind_chem),dimension(1:nswbands),save :: refrsw_bc,refisw_bc - real(kind_chem),dimension(1:nlwbands),save :: refrlw_bc,refilw_bc - data refrsw_bc /nswbands*1.95/ - data refisw_bc /nswbands*0.79/ - data refrlw_bc /nlwbands*1.95/ - data refilw_bc /nlwbands*0.79/ + !BC + real(kind_chem),dimension(1:nswbands),save :: refrsw_bc,refisw_bc + real(kind_chem),dimension(1:nlwbands),save :: refrlw_bc,refilw_bc + data refrsw_bc /nswbands*1.95/ + data refisw_bc /nswbands*0.79/ + data refrlw_bc /nlwbands*1.95/ + data refilw_bc /nlwbands*0.79/ - !OC - real(kind_chem),dimension(1:nswbands),save :: refrsw_oc,refisw_oc - real(kind_chem),dimension(1:nlwbands),save :: refrlw_oc,refilw_oc - !data refrsw_oc /1.53,1.53,1.53,1.52/ - data refrsw_oc /nswbands*1.45/ - !data refisw_oc /0.00776,0.005,0.00567,0.0156/ - data refisw_oc /nswbands*0.0/ - data refrlw_oc /1.86,1.91,1.988,1.439,1.606,1.7,1.888,2.489,1.219, & - 1.419,1.426,1.446,1.457,1.458,1.455,1.443/ - data refilw_oc /0.5,0.268,0.185,0.198,0.059,0.0488,0.11,0.3345,0.065, & + !OC + real(kind_chem),dimension(1:nswbands),save :: refrsw_oc,refisw_oc + real(kind_chem),dimension(1:nlwbands),save :: refrlw_oc,refilw_oc + !data refrsw_oc /1.53,1.53,1.53,1.52/ + data refrsw_oc /nswbands*1.45/ + !data refisw_oc /0.00776,0.005,0.00567,0.0156/ + data refisw_oc /nswbands*0.0/ + data refrlw_oc /1.86,1.91,1.988,1.439,1.606,1.7,1.888,2.489,1.219, & + 1.419,1.426,1.446,1.457,1.458,1.455,1.443/ + data refilw_oc /0.5,0.268,0.185,0.198,0.059,0.0488,0.11,0.3345,0.065, & 0.058,0.0261,0.0142,0.013,0.01,0.005,0.0057/ - - !Sea-salt - real(kind_chem),dimension(1:nswbands),save :: refrsw_seas,refisw_seas - real(kind_chem),dimension(1:nlwbands),save :: refrlw_seas,refilw_seas - data refrsw_seas /1.51,1.5,1.5,1.47/ - data refisw_seas /0.866e-6,7.019e-8,1.184e-8,0.00015/ - data refrlw_seas /1.74,1.76,1.78,1.456,1.41,1.48,1.56,1.63,1.4,1.43, & - 1.56,1.45,1.485,1.486,1.48,1.48 / - data refilw_seas /0.1978,0.1978,0.129,0.038,0.019,0.014,0.016,0.03,0.012, & + + !Sea-salt + real(kind_chem),dimension(1:nswbands),save :: refrsw_seas,refisw_seas + real(kind_chem),dimension(1:nlwbands),save :: refrlw_seas,refilw_seas + data refrsw_seas /1.51,1.5,1.5,1.47/ + data refisw_seas /0.866e-6,7.019e-8,1.184e-8,0.00015/ + data refrlw_seas /1.74,1.76,1.78,1.456,1.41,1.48,1.56,1.63,1.4,1.43, & + 1.56,1.45,1.485,1.486,1.48,1.48 / + data refilw_seas /0.1978,0.1978,0.129,0.038,0.019,0.014,0.016,0.03,0.012, & 0.0064,0.0196,0.0029,0.0017,0.0014,0.0014,0.00176/ - - !Sulfate - real(kind_chem),dimension(1:nswbands),save :: refrsw_sulf,refisw_sulf - real(kind_chem),dimension(1:nlwbands),save :: refrlw_sulf,refilw_sulf - !data refrsw_sulf /1.468,1.442,1.43,1.422/ - data refrsw_sulf /nswbands*1.52/ - data refisw_sulf /3*1.0e-9,1.75e-6/ - data refrlw_sulf /1.89,1.91,1.93,1.586,1.678,1.758,1.855,1.597,1.15, & + + !Sulfate + real(kind_chem),dimension(1:nswbands),save :: refrsw_sulf,refisw_sulf + real(kind_chem),dimension(1:nlwbands),save :: refrlw_sulf,refilw_sulf + !data refrsw_sulf /1.468,1.442,1.43,1.422/ + data refrsw_sulf /nswbands*1.52/ + data refisw_sulf /3*1.0e-9,1.75e-6/ + data refrlw_sulf /1.89,1.91,1.93,1.586,1.678,1.758,1.855,1.597,1.15, & 1.26,1.42,1.35,1.379,1.385,1.385,1.367/ - data refilw_sulf /0.22,0.152,0.0846,0.2225,0.195,0.441,0.696,0.695, & + data refilw_sulf /0.22,0.152,0.0846,0.2225,0.195,0.441,0.696,0.695, & 0.459,0.161,0.172,0.14,0.12,0.122,0.126,0.158/ !************************************************************* - !wavelength - real(kind_chem), save :: wavmin(nswbands) ! Min wavelength (um) of interval - !data wavmin /3.077,2.500,2.150,1.942,1.626,1.299, & - data wavmin /0.25,0.35,0.55,0.998/ - real(kind_chem), save :: wavmax(nswbands) ! Max wavelength (um) of interval - !data wavmax/3.846,3.077,2.500,2.150,1.942,1.626, & - data wavmax/0.35,0.45,0.65,1.000/ - real(kind_chem), save :: wavenumber1_longwave(nlwbands) !Longwave limits (cm-1) - data wavenumber1_longwave /10.,350.,500.,630.,700.,820.,980.,1080.,1180.,1390.,1480.,1800.,2080.,2250.,2390.,2600./ - real(kind_chem), save :: wavenumber2_longwave(nlwbands) !Longwave limits (cm-1) - data wavenumber2_longwave /350.,500.,630.,700.,820.,980.,1080.,1180.,1390.,1480.,1800.,2080., 2250.,2390.,2600.,3250./ + !wavelength + real(kind_chem), save :: wavmin(nswbands) ! Min wavelength (um) of interval + !data wavmin /3.077,2.500,2.150,1.942,1.626,1.299, & + data wavmin /0.25,0.35,0.55,0.998/ + real(kind_chem), save :: wavmax(nswbands) ! Max wavelength (um) of interval + !data wavmax/3.846,3.077,2.500,2.150,1.942,1.626, & + data wavmax/0.35,0.45,0.65,1.000/ + real(kind_chem), save :: wavenumber1_longwave(nlwbands) !Longwave limits (cm-1) + data wavenumber1_longwave /10.,350.,500.,630.,700.,820.,980.,1080.,1180.,1390.,1480.,1800.,2080.,2250.,2390.,2600./ + real(kind_chem), save :: wavenumber2_longwave(nlwbands) !Longwave limits (cm-1) + data wavenumber2_longwave /350.,500.,630.,700.,820.,980.,1080.,1180.,1390.,1480.,1800.,2080., 2250.,2390.,2600.,3250./ - !mode or size bin - integer,parameter :: maxd_amode=3 - integer,parameter :: ntot_amode=3 - integer,parameter :: maxd_bin=8 - integer,parameter :: ntot_bin=8 + !mode or size bin + integer,parameter :: maxd_amode=3 + integer,parameter :: ntot_amode=3 + integer,parameter :: maxd_bin=8 + integer,parameter :: ntot_bin=8 - !Chebychev polynomial - !integer,parameter :: prefr=7,prefi=10 - integer,parameter :: prefr=7,prefi=7 - integer,parameter :: ncoef=50 - real(kind_chem),parameter :: rmmin=0.005e-4,rmmax=50.e-4 ! cm - real(kind_chem),save:: refrtabsw(prefr,nswbands) - real(kind_chem),save:: refitabsw(prefi,nswbands) - real(kind_chem),save:: refrtablw(prefr,nlwbands) - real(kind_chem),save:: refitablw(prefi,nlwbands) - !coefficients for parameterizing aerosol radiative properties - !in terms of refractive index and wet radius - real(kind_chem),save:: extpsw(ncoef,prefr,prefi,nswbands) !specific extinction - real(kind_chem),save:: abspsw(ncoef,prefr,prefi,nswbands) !specific absorption - real(kind_chem),save:: ascatpsw(ncoef,prefr,prefi,nswbands) !specific scattering - real(kind_chem),save:: asmpsw(ncoef,prefr,prefi,nswbands) !asymmetry factor - real(kind_chem),save:: sbackpsw(ncoef,prefr,prefi,nswbands) - real(kind_chem),save:: pmom2psw(ncoef,prefr,prefi,nswbands) - real(kind_chem),save:: pmom3psw(ncoef,prefr,prefi,nswbands) - real(kind_chem),save:: pmom4psw(ncoef,prefr,prefi,nswbands) - real(kind_chem),save:: pmom5psw(ncoef,prefr,prefi,nswbands) - real(kind_chem),save:: pmom6psw(ncoef,prefr,prefi,nswbands) - real(kind_chem),save:: pmom7psw(ncoef,prefr,prefi,nswbands) - real(kind_chem),save:: extplw(ncoef,prefr,prefi,nlwbands) !specific extinction - real(kind_chem),save:: absplw(ncoef,prefr,prefi,nlwbands) !specific absorption - real(kind_chem),save:: ascatplw(ncoef,prefr,prefi,nlwbands) !specific scattering - real(kind_chem),save:: asmplw(ncoef,prefr,prefi,nlwbands) !asymmetry factor + !Chebychev polynomial + !integer,parameter :: prefr=7,prefi=10 + integer,parameter :: prefr=7,prefi=7 + integer,parameter :: ncoef=50 + real(kind_chem),parameter :: rmmin=0.005e-4,rmmax=50.e-4 ! cm + real(kind_chem),save:: refrtabsw(prefr,nswbands) + real(kind_chem),save:: refitabsw(prefi,nswbands) + real(kind_chem),save:: refrtablw(prefr,nlwbands) + real(kind_chem),save:: refitablw(prefi,nlwbands) + !coefficients for parameterizing aerosol radiative properties + !in terms of refractive index and wet radius + real(kind_chem),save:: extpsw(ncoef,prefr,prefi,nswbands) !specific extinction + real(kind_chem),save:: abspsw(ncoef,prefr,prefi,nswbands) !specific absorption + real(kind_chem),save:: ascatpsw(ncoef,prefr,prefi,nswbands) !specific scattering + real(kind_chem),save:: asmpsw(ncoef,prefr,prefi,nswbands) !asymmetry factor + real(kind_chem),save:: sbackpsw(ncoef,prefr,prefi,nswbands) + real(kind_chem),save:: pmom2psw(ncoef,prefr,prefi,nswbands) + real(kind_chem),save:: pmom3psw(ncoef,prefr,prefi,nswbands) + real(kind_chem),save:: pmom4psw(ncoef,prefr,prefi,nswbands) + real(kind_chem),save:: pmom5psw(ncoef,prefr,prefi,nswbands) + real(kind_chem),save:: pmom6psw(ncoef,prefr,prefi,nswbands) + real(kind_chem),save:: pmom7psw(ncoef,prefr,prefi,nswbands) + real(kind_chem),save:: extplw(ncoef,prefr,prefi,nlwbands) !specific extinction + real(kind_chem),save:: absplw(ncoef,prefr,prefi,nlwbands) !specific absorption + real(kind_chem),save:: ascatplw(ncoef,prefr,prefi,nlwbands) !specific scattering + real(kind_chem),save:: asmplw(ncoef,prefr,prefi,nlwbands) !asymmetry factor - real(kind_chem),save :: wavmidsw(nswbands) - data wavmidsw / 0.30e-4, 0.40e-4, 0.60e-4 ,0.999e-04 / - !now czhao use 0.45 instead of 0.40 becaues of incorrect AOD from 0.40 - !data wavmidsw / 0.30e-4, 0.45e-4, 0.60e-4 ,0.999e-04 / - real(kind_chem),save :: wavmidlw(nlwbands) - complex, save :: crefwsw(nswbands) ! complex refractive index fro water - complex, save :: crefwlw(nlwbands) + real(kind_chem),save :: wavmidsw(nswbands) + data wavmidsw / 0.30e-4, 0.40e-4, 0.60e-4 ,0.999e-04 / + !now czhao use 0.45 instead of 0.40 becaues of incorrect AOD from 0.40 + !data wavmidsw / 0.30e-4, 0.45e-4, 0.60e-4 ,0.999e-04 / + real(kind_chem),save :: wavmidlw(nlwbands) + complex, save :: crefwsw(nswbands) ! complex refractive index fro water + complex, save :: crefwlw(nlwbands) - public + public END MODULE opt_data_mod diff --git a/parameters/plume_data_mod.F90 b/parameters/plume_data_mod.F90 index b3236d49..4dadbae3 100644 --- a/parameters/plume_data_mod.F90 +++ b/parameters/plume_data_mod.F90 @@ -1,52 +1,52 @@ module plume_data_mod - use catchem_constants , only : kind_chem + use catchem_constants , only : kind_chem - implicit none + implicit none - ! -- FRP parameters - integer, dimension(0:20), parameter :: & - catb = (/ & + ! -- FRP parameters + integer, dimension(0:20), parameter :: & + catb = (/ & 0, & 2, 1, 2, 1, & !floresta tropical 2 and 4 / extra trop fores 1,3,5 2, 3, 3, 3, 3, & !cerrado/woody savanna :6 a 9 4, 4, 4, 4, 4, 0, 4, 0, 0, 0, 0 & !pastagem/lavouras: 10 ... - /) + /) - real(kind=kind_chem), dimension(0:4), parameter :: & - flaming = (/ & - 0.00, & ! + real(kind=kind_chem), dimension(0:4), parameter :: & + flaming = (/ & + 0.00, & ! 0.45, & ! % biomass burned at flaming phase : tropical forest igbp 2 and 4 0.45, & ! % biomass burned at flaming phase : extratropical forest igbp 1 , 3 and 5 0.75, & ! % biomass burned at flaming phase : cerrado/woody savanna igbp 6 to 9 0.00 & ! % biomass burned at flaming phase : pastagem/lavoura: igbp 10 a 17 - /) + /) - real(kind=kind_chem), dimension(0:20), parameter :: & - msize= (/ & + real(kind=kind_chem), dimension(0:20), parameter :: & + msize= (/ & 0.00021, & !0near water,1Evergreen needleleaf,2EvergreenBroadleaf,!3Deciduous Needleleaf,4Deciduous Broadleaf 0.00021, 0.00021, 0.00021, 0.00021, & !5Mixed forest,6Closed shrublands,7Open shrublands,8Woody savannas,9Savannas, 0.00023, 0.00022, 0.00022, 0.00022, 0.00029, &! 10Grassland,11Permanent wetlands,12cropland,13'Urban and Built-Up' 0.00029, 0.00021, 0.00026, 0.00021, 0.00026, &!14cropland/natural vegetation mosaic,15Snow and ice,16Barren or sparsely vegetated 0.00021, 0.00021, 0.00021, 0.00021, 0.00021, 0.00021 & !17Water,18Wooded Tundra,19Mixed Tundra,20Bare Ground Tundra - /) - - ! -- FRP buffer indices - integer, parameter :: p_frp_flam_frac = 1 - integer, parameter :: p_frp_mean = 2 - integer, parameter :: p_frp_std = 3 - integer, parameter :: p_frp_mean_size = 4 - integer, parameter :: p_frp_std_size = 5 - integer, parameter :: num_frp_plume = 5 - - ! -- plumerise parameters - integer, parameter :: tropical_forest = 1 - integer, parameter :: boreal_forest = 2 - integer, parameter :: savannah = 3 - integer, parameter :: grassland = 4 - integer, parameter :: nveg_agreg = 4 - integer, parameter :: wind_eff = 1 - - public + /) + + ! -- FRP buffer indices + integer, parameter :: p_frp_flam_frac = 1 + integer, parameter :: p_frp_mean = 2 + integer, parameter :: p_frp_std = 3 + integer, parameter :: p_frp_mean_size = 4 + integer, parameter :: p_frp_std_size = 5 + integer, parameter :: num_frp_plume = 5 + + ! -- plumerise parameters + integer, parameter :: tropical_forest = 1 + integer, parameter :: boreal_forest = 2 + integer, parameter :: savannah = 3 + integer, parameter :: grassland = 4 + integer, parameter :: nveg_agreg = 4 + integer, parameter :: wind_eff = 1 + + public end module plume_data_mod diff --git a/parameters/seas_data_mod.F90 b/parameters/seas_data_mod.F90 index 78dd30ae..5c989f52 100644 --- a/parameters/seas_data_mod.F90 +++ b/parameters/seas_data_mod.F90 @@ -3,24 +3,24 @@ module seas_data_mod - use catchem_constants , only : kind_chem + use catchem_constants , only : kind_chem - ! -- parameters from NGAC v2.4.0 (rev. d48932c) - integer, parameter :: number_ss_bins = 5 - ! -- lower/upper particle radii (um) for each bin - real(kind=kind_chem), dimension(number_ss_bins), parameter :: ra = (/ 0.03, 0.1, 0.5, 1.5, 5.0 /) - real(kind=kind_chem), dimension(number_ss_bins), parameter :: rb = (/ 0.1, 0.5, 1.5, 5.0, 10.0 /) - ! -- global scaling factors for sea salt emissions (originally 0.875 in NGAC namelist) - !real(kind=kind_chem), dimension(number_ss_bins), parameter :: emission_scale = (/ 0.100, 0.100, 0.100, 0.100, 0.100 /) - real(kind=kind_chem), dimension(number_ss_bins), parameter :: emission_scale = (/ 1.0, 1.0, 1.0, 1.0, 1.0 /) - ! -- sea salt density - real(kind=kind_chem), dimension(number_ss_bins), parameter :: den_seas = (/ 2200., 2200., 2200., 2200., 2200. /) - ! -- particle effective radius (m) - real(kind=kind_chem), dimension(number_ss_bins), parameter :: reff_seas = (/ 0.079e-6, 0.316e-6, 1.119e-6, 2.818e-6, 7.772e-6 /) + ! -- parameters from NGAC v2.4.0 (rev. d48932c) + integer, parameter :: number_ss_bins = 5 + ! -- lower/upper particle radii (um) for each bin + real(kind=kind_chem), dimension(number_ss_bins), parameter :: ra = (/ 0.03, 0.1, 0.5, 1.5, 5.0 /) + real(kind=kind_chem), dimension(number_ss_bins), parameter :: rb = (/ 0.1, 0.5, 1.5, 5.0, 10.0 /) + ! -- global scaling factors for sea salt emissions (originally 0.875 in NGAC namelist) + !real(kind=kind_chem), dimension(number_ss_bins), parameter :: emission_scale = (/ 0.100, 0.100, 0.100, 0.100, 0.100 /) + real(kind=kind_chem), dimension(number_ss_bins), parameter :: emission_scale = (/ 1.0, 1.0, 1.0, 1.0, 1.0 /) + ! -- sea salt density + real(kind=kind_chem), dimension(number_ss_bins), parameter :: den_seas = (/ 2200., 2200., 2200., 2200., 2200. /) + ! -- particle effective radius (m) + real(kind=kind_chem), dimension(number_ss_bins), parameter :: reff_seas = (/ 0.079e-6, 0.316e-6, 1.119e-6, 2.818e-6, 7.772e-6 /) - ! -- NGAC parameters - integer, parameter :: emission_scheme = 3 ! GEOSS 2012 - real(kind=kind_chem), parameter :: r80fac = 1.65 ! ratio of radius(RH=0.8)/radius(RH=0.) [Gerber] - real(kind=kind_chem), parameter :: rhop = 2200. ! dry seasalt density [kg m-3] + ! -- NGAC parameters + integer, parameter :: emission_scheme = 3 ! GEOSS 2012 + real(kind=kind_chem), parameter :: r80fac = 1.65 ! ratio of radius(RH=0.8)/radius(RH=0.) [Gerber] + real(kind=kind_chem), parameter :: rhop = 2200. ! dry seasalt density [kg m-3] end module seas_data_mod diff --git a/src/aero_soa_vbs_data_mod.F90 b/src/aero_soa_vbs_data_mod.F90 index 65379b56..9ff09598 100644 --- a/src/aero_soa_vbs_data_mod.F90 +++ b/src/aero_soa_vbs_data_mod.F90 @@ -4,44 +4,44 @@ MODULE aero_soa_vbs_data_mod ! USE module_data_radm2 - use catchem_constants , only : kind_chem + use catchem_constants , only : kind_chem ! ! param.inc start - IMPLICIT NONE - INTEGER NP !bs maximum expected value of N - PARAMETER (NP = 8) + IMPLICIT NONE + INTEGER NP !bs maximum expected value of N + PARAMETER (NP = 8) ! integer numaer ! parameter (numaer=50) - INTEGER MAXITS !bs maximum number of iterations - PARAMETER (MAXITS = 100) + INTEGER MAXITS !bs maximum number of iterations + PARAMETER (MAXITS = 100) - REAL(kind_chem) TOLF !bs convergence criterion on function values - PARAMETER (TOLF = 1.E-09) + REAL(kind_chem) TOLF !bs convergence criterion on function values + PARAMETER (TOLF = 1.E-09) - REAL(kind_chem) TOLMIN !bs criterion whether superios convergence to - PARAMETER (TOLMIN = 1.E-12) !bs a minimum of fmin has occurred + REAL(kind_chem) TOLMIN !bs criterion whether superios convergence to + PARAMETER (TOLMIN = 1.E-12) !bs a minimum of fmin has occurred - REAL(kind_chem) TOLX !bs convergence criterion on delta_x - PARAMETER (TOLX = 1.E-10) + REAL(kind_chem) TOLX !bs convergence criterion on delta_x + PARAMETER (TOLX = 1.E-10) - REAL(kind_chem) STPMX !bs scaled maximum step length allowed - PARAMETER (STPMX = 100.) + REAL(kind_chem) STPMX !bs scaled maximum step length allowed + PARAMETER (STPMX = 100.) - REAL(kind_chem) c303, c302 - PARAMETER (c303=19.83, c302=5417.4) + REAL(kind_chem) c303, c302 + PARAMETER (c303=19.83, c302=5417.4) - INTEGER lcva, lcvb, lspcv, ldesn - PARAMETER (lcva=4,lcvb=4, lspcv=lcva+lcvb) - PARAMETER (ldesn=13) + INTEGER lcva, lcvb, lspcv, ldesn + PARAMETER (lcva=4,lcvb=4, lspcv=lcva+lcvb) + PARAMETER (ldesn=13) !mh ldesn is number of deposition species !mh true number of deposited species may be larger since there !mh are species which are deposited with the same rate - INTEGER laerdvc, lnonaerdvc, l1ae, laero, imodes, aspec - PARAMETER (laerdvc=39,lnonaerdvc=8+lspcv) - PARAMETER (l1ae=laerdvc+lnonaerdvc) - PARAMETER (laero=4,imodes=4,aspec=1) + INTEGER laerdvc, lnonaerdvc, l1ae, laero, imodes, aspec + PARAMETER (laerdvc=39,lnonaerdvc=8+lspcv) + PARAMETER (l1ae=laerdvc+lnonaerdvc) + PARAMETER (laero=4,imodes=4,aspec=1) ! LAERDVC number of advected aerosol dynamic parameters for a given ! component species !ia L1AE advected parameters+non-advected parameters @@ -52,16 +52,16 @@ MODULE aero_soa_vbs_data_mod !bs !bs * BS ** BS ** BS ** BS ** BS ** BS ** BS ** BS ** BS ** BS ** BS ** !bs - INTEGER aemiss - PARAMETER (aemiss=4) + INTEGER aemiss + PARAMETER (aemiss=4) !bs * AEMISS # of aerosol species with emissions link to gas phase !bs currently ECI, ECJ, BCI, BCJ - ! updated ldrog numbers for the new SOA mechanism - INTEGER, PARAMETER :: ldroga=6 ! anthropogenic: ALK4,ALK5,OLE1,OLE2,ARO1,ARO2 - INTEGER, PARAMETER :: ldrogb=3 ! biogenic: ISOP,SESQ,TERP - INTEGER, PARAMETER :: ldrogr=1 ! for branching ratio - INTEGER, PARAMETER :: ldrog_vbs=ldroga+ldrogb+ldrogr ! I've renamed this parameter to separate from "ldrog" for MADE/SORGAM - INTEGER, PARAMETER :: ldrog=ldroga+ldrogb ! I've renamed this parameter to separate from "ldrog" for MADE/SORGAM + ! updated ldrog numbers for the new SOA mechanism + INTEGER, PARAMETER :: ldroga=6 ! anthropogenic: ALK4,ALK5,OLE1,OLE2,ARO1,ARO2 + INTEGER, PARAMETER :: ldrogb=3 ! biogenic: ISOP,SESQ,TERP + INTEGER, PARAMETER :: ldrogr=1 ! for branching ratio + INTEGER, PARAMETER :: ldrog_vbs=ldroga+ldrogb+ldrogr ! I've renamed this parameter to separate from "ldrog" for MADE/SORGAM + INTEGER, PARAMETER :: ldrog=ldroga+ldrogb ! I've renamed this parameter to separate from "ldrog" for MADE/SORGAM ! INTEGER ldroga ! PARAMETER (ldroga=11) @@ -90,282 +90,282 @@ MODULE aero_soa_vbs_data_mod ! *** The method of Odum, Hoffmann, Bowman, Collins, Flagen and ! Seinfeld, 1996, Gas/particle partitioning and secondary organic ae ! yields, Environ. Sci, Technol, 30, pp 2580-2585. - ! 1 = Pandis et al. 1992 method is used - INTEGER orgaer - ! 2 = Pankow 1994/Odum et al. 1996 method is + ! 1 = Pandis et al. 1992 method is used + INTEGER orgaer + ! 2 = Pankow 1994/Odum et al. 1996 method is ! *** -! switch for organic aerosol method - PARAMETER (orgaer=2) +! switch for organic aerosol method + PARAMETER (orgaer=2) ! *** information about visibility variables -! number of visibility variables - INTEGER n_ae_vis_spc - PARAMETER (n_ae_vis_spc=2) +! number of visibility variables + INTEGER n_ae_vis_spc + PARAMETER (n_ae_vis_spc=2) -! index for visual range in deciview - INTEGER idcvw - PARAMETER (idcvw=1) -! index for extinction [ 1/km ] - INTEGER ibext - PARAMETER (ibext=2) +! index for visual range in deciview + INTEGER idcvw + PARAMETER (idcvw=1) +! index for extinction [ 1/km ] + INTEGER ibext + PARAMETER (ibext=2) ! *** set up indices for array CBLK ! index for Accumulation mode sulfate aerosol - INTEGER vso4aj - PARAMETER (vso4aj=1) + INTEGER vso4aj + PARAMETER (vso4aj=1) ! index for Aitken mode sulfate concentration - INTEGER vso4ai - PARAMETER (vso4ai=2) + INTEGER vso4ai + PARAMETER (vso4ai=2) ! index for Accumulation mode aerosol ammonium - INTEGER vnh4aj - PARAMETER (vnh4aj=3) + INTEGER vnh4aj + PARAMETER (vnh4aj=3) ! index for Aitken mode ammonium concentration - INTEGER vnh4ai - PARAMETER (vnh4ai=4) + INTEGER vnh4ai + PARAMETER (vnh4ai=4) ! index for Accumulation mode aerosol nitrate - INTEGER vno3aj - PARAMETER (vno3aj=5) + INTEGER vno3aj + PARAMETER (vno3aj=5) ! index for Aitken mode nitrate concentration - INTEGER vno3ai - PARAMETER (vno3ai=6) + INTEGER vno3ai + PARAMETER (vno3ai=6) ! index for Accumulation mode aerosol sodium - INTEGER vnaaj - PARAMETER (vnaaj=7) + INTEGER vnaaj + PARAMETER (vnaaj=7) ! index for Aitken mode sodium concentration - INTEGER vnaai - PARAMETER (vnaai=8) + INTEGER vnaai + PARAMETER (vnaai=8) ! index for Accumulation mode aerosol chloride - INTEGER vclaj - PARAMETER (vclaj=9) + INTEGER vclaj + PARAMETER (vclaj=9) ! index for Aitken mode chloride concentration - INTEGER vclai - PARAMETER (vclai=10) + INTEGER vclai + PARAMETER (vclai=10) ! I've changed the names and simplified ! indices for accumulation and aitken modes of anthropogenic SOA - INTEGER, PARAMETER :: vasoa1j=11 - INTEGER, PARAMETER :: vasoa1i=12 + INTEGER, PARAMETER :: vasoa1j=11 + INTEGER, PARAMETER :: vasoa1i=12 - INTEGER, PARAMETER :: vasoa2j=13 - INTEGER, PARAMETER :: vasoa2i=14 + INTEGER, PARAMETER :: vasoa2j=13 + INTEGER, PARAMETER :: vasoa2i=14 - INTEGER, PARAMETER :: vasoa3j=15 - INTEGER, PARAMETER :: vasoa3i=16 + INTEGER, PARAMETER :: vasoa3j=15 + INTEGER, PARAMETER :: vasoa3i=16 - INTEGER, PARAMETER :: vasoa4j=17 - INTEGER, PARAMETER :: vasoa4i=18 + INTEGER, PARAMETER :: vasoa4j=17 + INTEGER, PARAMETER :: vasoa4i=18 ! indices for accumulation and aitken modes of biogenic SOA - INTEGER, PARAMETER :: vbsoa1j=19 - INTEGER, PARAMETER :: vbsoa1i=20 + INTEGER, PARAMETER :: vbsoa1j=19 + INTEGER, PARAMETER :: vbsoa1i=20 - INTEGER, PARAMETER :: vbsoa2j=21 - INTEGER, PARAMETER :: vbsoa2i=22 + INTEGER, PARAMETER :: vbsoa2j=21 + INTEGER, PARAMETER :: vbsoa2i=22 - INTEGER, PARAMETER :: vbsoa3j=23 - INTEGER, PARAMETER :: vbsoa3i=24 + INTEGER, PARAMETER :: vbsoa3j=23 + INTEGER, PARAMETER :: vbsoa3i=24 - INTEGER, PARAMETER :: vbsoa4j=25 - INTEGER, PARAMETER :: vbsoa4i=26 + INTEGER, PARAMETER :: vbsoa4j=25 + INTEGER, PARAMETER :: vbsoa4i=26 !------------------------------------------------------------------------------ ! index for Accumulation mode primary anthropogenic - INTEGER vorgpaj - PARAMETER (vorgpaj=27) + INTEGER vorgpaj + PARAMETER (vorgpaj=27) ! index for Aitken mode primary anthropogenic - INTEGER vorgpai - PARAMETER (vorgpai=28) + INTEGER vorgpai + PARAMETER (vorgpai=28) ! index for Accumulation mode aerosol elemen - INTEGER vecj - PARAMETER (vecj=29) + INTEGER vecj + PARAMETER (vecj=29) -! index for Aitken mode elemental carbon - INTEGER veci - PARAMETER (veci=30) +! index for Aitken mode elemental carbon + INTEGER veci + PARAMETER (veci=30) -! index for Accumulation mode primary PM2.5 - INTEGER vp25aj - PARAMETER (vp25aj=31) +! index for Accumulation mode primary PM2.5 + INTEGER vp25aj + PARAMETER (vp25aj=31) ! index for Aitken mode primary PM2.5 concentration - INTEGER vp25ai - PARAMETER (vp25ai=32) + INTEGER vp25ai + PARAMETER (vp25ai=32) ! index for coarse mode anthropogenic aerososol - INTEGER vantha - PARAMETER (vantha=33) + INTEGER vantha + PARAMETER (vantha=33) ! index for coarse mode marine aerosol concentration - INTEGER vseas - PARAMETER (vseas=34) + INTEGER vseas + PARAMETER (vseas=34) ! index for coarse mode soil-derived aerosol - INTEGER vsoila - PARAMETER (vsoila=35) + INTEGER vsoila + PARAMETER (vsoila=35) -! index for Aitken mode number - INTEGER vnu0 - PARAMETER (vnu0=36) +! index for Aitken mode number + INTEGER vnu0 + PARAMETER (vnu0=36) -! index for accum mode number - INTEGER vac0 - PARAMETER (vac0=37) +! index for accum mode number + INTEGER vac0 + PARAMETER (vac0=37) -! index for coarse mode number - INTEGER vcorn - PARAMETER (vcorn=38) +! index for coarse mode number + INTEGER vcorn + PARAMETER (vcorn=38) -! index for Accumulation mode aerosol water - INTEGER vh2oaj - PARAMETER (vh2oaj=39) +! index for Accumulation mode aerosol water + INTEGER vh2oaj + PARAMETER (vh2oaj=39) ! index for Aitken mode aerosol water concentration - INTEGER vh2oai - PARAMETER (vh2oai=40) + INTEGER vh2oai + PARAMETER (vh2oai=40) -! index for Aitken mode 3'rd moment - INTEGER vnu3 - PARAMETER (vnu3=41) +! index for Aitken mode 3'rd moment + INTEGER vnu3 + PARAMETER (vnu3=41) -! index for Accumulation mode 3'rd moment - INTEGER vac3 - PARAMETER (vac3=42) +! index for Accumulation mode 3'rd moment + INTEGER vac3 + PARAMETER (vac3=42) -! index for coarse mode 3rd moment - INTEGER vcor3 - PARAMETER (vcor3=43) +! index for coarse mode 3rd moment + INTEGER vcor3 + PARAMETER (vcor3=43) ! index for sulfuric acid vapor concentration - INTEGER vsulf - PARAMETER (vsulf=44) + INTEGER vsulf + PARAMETER (vsulf=44) ! index for nitric acid vapor concentration - INTEGER vhno3 - PARAMETER (vhno3=45) + INTEGER vhno3 + PARAMETER (vhno3=45) ! index for ammonia gas concentration - INTEGER vnh3 - PARAMETER (vnh3=46) + INTEGER vnh3 + PARAMETER (vnh3=46) ! index for HCL gas concentration - INTEGER vhcl - PARAMETER (vhcl=47) - -INTEGER, PARAMETER :: vcvasoa1=48 -INTEGER, PARAMETER :: vcvasoa2=49 -INTEGER, PARAMETER :: vcvasoa3=50 -INTEGER, PARAMETER :: vcvasoa4=51 -INTEGER, PARAMETER :: vcvbsoa1=52 -INTEGER, PARAMETER :: vcvbsoa2=53 -INTEGER, PARAMETER :: vcvbsoa3=54 -INTEGER, PARAMETER :: vcvbsoa4=55 + INTEGER vhcl + PARAMETER (vhcl=47) + + INTEGER, PARAMETER :: vcvasoa1=48 + INTEGER, PARAMETER :: vcvasoa2=49 + INTEGER, PARAMETER :: vcvasoa3=50 + INTEGER, PARAMETER :: vcvasoa4=51 + INTEGER, PARAMETER :: vcvbsoa1=52 + INTEGER, PARAMETER :: vcvbsoa2=53 + INTEGER, PARAMETER :: vcvbsoa3=54 + INTEGER, PARAMETER :: vcvbsoa4=55 !----------------------------------------------------------------------------- ! *** set up species dimension and indices for sedimentation ! velocity array VSED -! number of sedimentation velocities - INTEGER naspcssed - PARAMETER (naspcssed=6) +! number of sedimentation velocities + INTEGER naspcssed + PARAMETER (naspcssed=6) -! index for Aitken mode number - INTEGER vsnnuc - PARAMETER (vsnnuc=1) +! index for Aitken mode number + INTEGER vsnnuc + PARAMETER (vsnnuc=1) -! index for Accumulation mode number - INTEGER vsnacc - PARAMETER (vsnacc=2) +! index for Accumulation mode number + INTEGER vsnacc + PARAMETER (vsnacc=2) -! index for coarse mode number - INTEGER vsncor - PARAMETER (vsncor=3) +! index for coarse mode number + INTEGER vsncor + PARAMETER (vsncor=3) -! index for Aitken mode mass - INTEGER vsmnuc - PARAMETER (vsmnuc=4) +! index for Aitken mode mass + INTEGER vsmnuc + PARAMETER (vsmnuc=4) -! index for accumulation mode mass - INTEGER vsmacc - PARAMETER (vsmacc=5) +! index for accumulation mode mass + INTEGER vsmacc + PARAMETER (vsmacc=5) -! index for coarse mass - INTEGER vsmcor - PARAMETER (vsmcor=6) +! index for coarse mass + INTEGER vsmcor + PARAMETER (vsmcor=6) ! *** set up species dimension and indices for deposition ! velocity array VDEP -! number of deposition velocities - INTEGER naspcsdep - PARAMETER (naspcsdep=7) +! number of deposition velocities + INTEGER naspcsdep + PARAMETER (naspcsdep=7) -! index for Aitken mode number - INTEGER vdnnuc - PARAMETER (vdnnuc=1) +! index for Aitken mode number + INTEGER vdnnuc + PARAMETER (vdnnuc=1) -! index for accumulation mode number - INTEGER vdnacc - PARAMETER (vdnacc=2) +! index for accumulation mode number + INTEGER vdnacc + PARAMETER (vdnacc=2) -! index for coarse mode number - INTEGER vdncor - PARAMETER (vdncor=3) +! index for coarse mode number + INTEGER vdncor + PARAMETER (vdncor=3) -! index for Aitken mode mass - INTEGER vdmnuc - PARAMETER (vdmnuc=4) +! index for Aitken mode mass + INTEGER vdmnuc + PARAMETER (vdmnuc=4) -! index for accumulation mode - INTEGER vdmacc - PARAMETER (vdmacc=5) +! index for accumulation mode + INTEGER vdmacc + PARAMETER (vdmacc=5) ! index for fine mode mass (Aitken + accumulation) - INTEGER vdmfine - PARAMETER (vdmfine=6) + INTEGER vdmfine + PARAMETER (vdmfine=6) -! index for coarse mode mass - INTEGER vdmcor - PARAMETER (vdmcor=7) +! index for coarse mode mass + INTEGER vdmcor + PARAMETER (vdmcor=7) ! SOA precursors + OH, O3, NO3 ! anthropogenic -INTEGER, PARAMETER :: palk4=1 -INTEGER, PARAMETER :: palk5=2 -INTEGER, PARAMETER :: pole1=3 -INTEGER, PARAMETER :: pole2=4 -INTEGER, PARAMETER :: paro1=5 -INTEGER, PARAMETER :: paro2=6 + INTEGER, PARAMETER :: palk4=1 + INTEGER, PARAMETER :: palk5=2 + INTEGER, PARAMETER :: pole1=3 + INTEGER, PARAMETER :: pole2=4 + INTEGER, PARAMETER :: paro1=5 + INTEGER, PARAMETER :: paro2=6 ! biogenic -INTEGER, PARAMETER :: pisop=7 -INTEGER, PARAMETER :: pterp=8 -INTEGER, PARAMETER :: psesq=9 + INTEGER, PARAMETER :: pisop=7 + INTEGER, PARAMETER :: pterp=8 + INTEGER, PARAMETER :: psesq=9 ! for branching -INTEGER, PARAMETER :: pbrch=10 - - ! new indices -INTEGER, PARAMETER :: pasoa1=1 -INTEGER, PARAMETER :: pasoa2=2 -INTEGER, PARAMETER :: pasoa3=3 -INTEGER, PARAMETER :: pasoa4=4 - -INTEGER, PARAMETER :: pbsoa1=5 -INTEGER, PARAMETER :: pbsoa2=6 -INTEGER, PARAMETER :: pbsoa3=7 -INTEGER, PARAMETER :: pbsoa4=8 + INTEGER, PARAMETER :: pbrch=10 + + ! new indices + INTEGER, PARAMETER :: pasoa1=1 + INTEGER, PARAMETER :: pasoa2=2 + INTEGER, PARAMETER :: pasoa3=3 + INTEGER, PARAMETER :: pasoa4=4 + + INTEGER, PARAMETER :: pbsoa1=5 + INTEGER, PARAMETER :: pbsoa2=6 + INTEGER, PARAMETER :: pbsoa3=7 + INTEGER, PARAMETER :: pbsoa4=8 !----------------------------------------------- !bs @@ -419,211 +419,211 @@ MODULE aero_soa_vbs_data_mod ! Geometric Constants: - REAL(kind_chem) & ! PI (single precision 3.141593) - pirs - PARAMETER (pirs=3.14159265358979324) + REAL(kind_chem) & ! PI (single precision 3.141593) + pirs + PARAMETER (pirs=3.14159265358979324) ! REAL(kind_chem) PIRS ! PI (single precision 3.141593) ! PARAMETER ( PIRS = 3.141593 ) ! Fundamental Constants: ( Source: CRC76, pp 1-1 to 1-6) ! Avogadro's Constant [ 1/mol ] - REAL(kind_chem) avo - PARAMETER (avo=6.0221367E23) + REAL(kind_chem) avo + PARAMETER (avo=6.0221367E23) ! universal gas constant [ J/mol-K ] - REAL(kind_chem) rgasuniv - PARAMETER (rgasuniv=8.314510) + REAL(kind_chem) rgasuniv + PARAMETER (rgasuniv=8.314510) ! standard atmosphere [ Pa ] - REAL(kind_chem) stdatmpa - PARAMETER (stdatmpa=101325.0) + REAL(kind_chem) stdatmpa + PARAMETER (stdatmpa=101325.0) ! Standard Temperature [ K ] - REAL(kind_chem) stdtemp - PARAMETER (stdtemp=273.15) + REAL(kind_chem) stdtemp + PARAMETER (stdtemp=273.15) ! Stefan-Boltzmann [ W/(m**2 K**4) ] - REAL(kind_chem) stfblz - PARAMETER (stfblz=5.67051E-8) + REAL(kind_chem) stfblz + PARAMETER (stfblz=5.67051E-8) ! mean gravitational acceleration [ m/sec**2 ] - REAL(kind_chem) grav - PARAMETER (grav=9.80622) + REAL(kind_chem) grav + PARAMETER (grav=9.80622) ! FSB Non MKS qualtities: ! Molar volume at STP [ L/mol ] Non MKS units - REAL(kind_chem) molvol - PARAMETER (molvol=22.41410) + REAL(kind_chem) molvol + PARAMETER (molvol=22.41410) ! Atmospheric Constants: ! FSB 78.06% N2, 21% O2 and 0.943% A on a mole - REAL(kind_chem) mwair - ! fraction basis. ( Source : Hobbs, 1995) pp 69- + REAL(kind_chem) mwair + ! fraction basis. ( Source : Hobbs, 1995) pp 69- ! mean molecular weight for dry air [ g/mol ] - PARAMETER (mwair=28.9628) + PARAMETER (mwair=28.9628) ! dry-air gas constant [ J / kg-K ] - REAL(kind_chem) rdgas - PARAMETER (rdgas=1.0E3*rgasuniv/mwair) + REAL(kind_chem) rdgas + PARAMETER (rdgas=1.0E3*rgasuniv/mwair) ! 3*PI - REAL(kind_chem) threepi - PARAMETER (threepi=3.0*pirs) + REAL(kind_chem) threepi + PARAMETER (threepi=3.0*pirs) ! 6/PI - REAL(kind_chem) f6dpi - PARAMETER (f6dpi=6.0/pirs) + REAL(kind_chem) f6dpi + PARAMETER (f6dpi=6.0/pirs) ! 1.0e9 * 6/PIRS - REAL(kind_chem) f6dpi9 - PARAMETER (f6dpi9=1.0E9*f6dpi) + REAL(kind_chem) f6dpi9 + PARAMETER (f6dpi9=1.0E9*f6dpi) ! 1.0e-9 * 6/PIRS - REAL(kind_chem) f6dpim9 - PARAMETER (f6dpim9=1.0E-9*f6dpi) + REAL(kind_chem) f6dpim9 + PARAMETER (f6dpim9=1.0E-9*f6dpi) ! SQRT( PI ) - REAL(kind_chem) sqrtpi - PARAMETER (sqrtpi=1.7724539) + REAL(kind_chem) sqrtpi + PARAMETER (sqrtpi=1.7724539) ! SQRT( 2 ) - REAL(kind_chem) sqrt2 - PARAMETER (sqrt2=1.4142135623731) + REAL(kind_chem) sqrt2 + PARAMETER (sqrt2=1.4142135623731) ! ln( sqrt( 2 ) ) - REAL(kind_chem) lgsqt2 - PARAMETER (lgsqt2=0.34657359027997) + REAL(kind_chem) lgsqt2 + PARAMETER (lgsqt2=0.34657359027997) ! 1/ln( sqrt( 2 ) ) - REAL(kind_chem) dlgsqt2 - PARAMETER (dlgsqt2=1.0/lgsqt2) + REAL(kind_chem) dlgsqt2 + PARAMETER (dlgsqt2=1.0/lgsqt2) ! 1/3 - REAL(kind_chem) one3 - PARAMETER (one3=1.0/3.0) + REAL(kind_chem) one3 + PARAMETER (one3=1.0/3.0) ! 2/3 - REAL(kind_chem) two3 - PARAMETER (two3=2.0/3.0) + REAL(kind_chem) two3 + PARAMETER (two3=2.0/3.0) ! *** physical constants: ! Boltzmann's Constant [ J / K ] - REAL(kind_chem) boltz - PARAMETER (boltz=rgasuniv/avo) + REAL(kind_chem) boltz + PARAMETER (boltz=rgasuniv/avo) ! *** component densities [ kg/m**3 ] : ! bulk density of aerosol sulfate - REAL(kind_chem) rhoso4 - PARAMETER (rhoso4=1.8E3) + REAL(kind_chem) rhoso4 + PARAMETER (rhoso4=1.8E3) ! bulk density of aerosol ammonium - REAL(kind_chem) rhonh4 - PARAMETER (rhonh4=1.8E3) + REAL(kind_chem) rhonh4 + PARAMETER (rhonh4=1.8E3) ! bulk density of aerosol nitrate - REAL(kind_chem) rhono3 - PARAMETER (rhono3=1.8E3) + REAL(kind_chem) rhono3 + PARAMETER (rhono3=1.8E3) ! bulk density of aerosol water - REAL(kind_chem) rhoh2o - PARAMETER (rhoh2o=1.0E3) + REAL(kind_chem) rhoh2o + PARAMETER (rhoh2o=1.0E3) ! bulk density for aerosol organics - REAL(kind_chem) rhoorg - PARAMETER (rhoorg=1.0E3) + REAL(kind_chem) rhoorg + PARAMETER (rhoorg=1.0E3) ! bulk density for aerosol soil dust - REAL(kind_chem) rhosoil - PARAMETER (rhosoil=2.6E3) + REAL(kind_chem) rhosoil + PARAMETER (rhosoil=2.6E3) ! bulk density for marine aerosol - REAL(kind_chem) rhoseas - PARAMETER (rhoseas=2.2E3) + REAL(kind_chem) rhoseas + PARAMETER (rhoseas=2.2E3) ! bulk density for anthropogenic aerosol - REAL(kind_chem) rhoanth - PARAMETER (rhoanth=2.2E3) + REAL(kind_chem) rhoanth + PARAMETER (rhoanth=2.2E3) ! bulk density of aerosol sodium - REAL(kind_chem) rhona - PARAMETER (rhona=2.2E3) + REAL(kind_chem) rhona + PARAMETER (rhona=2.2E3) ! bulk density of aerosol chloride - REAL(kind_chem) rhocl - PARAMETER (rhocl=2.2E3) + REAL(kind_chem) rhocl + PARAMETER (rhocl=2.2E3) ! *** Factors for converting aerosol mass concentration [ ug m**-3] to ! to 3rd moment concentration [ m**3 m^-3] - REAL(kind_chem) so4fac - PARAMETER (so4fac=f6dpim9/rhoso4) + REAL(kind_chem) so4fac + PARAMETER (so4fac=f6dpim9/rhoso4) - REAL(kind_chem) nh4fac - PARAMETER (nh4fac=f6dpim9/rhonh4) + REAL(kind_chem) nh4fac + PARAMETER (nh4fac=f6dpim9/rhonh4) - REAL(kind_chem) h2ofac - PARAMETER (h2ofac=f6dpim9/rhoh2o) + REAL(kind_chem) h2ofac + PARAMETER (h2ofac=f6dpim9/rhoh2o) - REAL(kind_chem) no3fac - PARAMETER (no3fac=f6dpim9/rhono3) + REAL(kind_chem) no3fac + PARAMETER (no3fac=f6dpim9/rhono3) - REAL(kind_chem) orgfac - PARAMETER (orgfac=f6dpim9/rhoorg) + REAL(kind_chem) orgfac + PARAMETER (orgfac=f6dpim9/rhoorg) - REAL(kind_chem) soilfac - PARAMETER (soilfac=f6dpim9/rhosoil) + REAL(kind_chem) soilfac + PARAMETER (soilfac=f6dpim9/rhosoil) - REAL(kind_chem) seasfac - PARAMETER (seasfac=f6dpim9/rhoseas) + REAL(kind_chem) seasfac + PARAMETER (seasfac=f6dpim9/rhoseas) - REAL(kind_chem) anthfac - PARAMETER (anthfac=f6dpim9/rhoanth) + REAL(kind_chem) anthfac + PARAMETER (anthfac=f6dpim9/rhoanth) - REAL(kind_chem) nafac - PARAMETER (nafac=f6dpim9/rhona) + REAL(kind_chem) nafac + PARAMETER (nafac=f6dpim9/rhona) - REAL(kind_chem) clfac - PARAMETER (clfac=f6dpim9/rhocl) + REAL(kind_chem) clfac + PARAMETER (clfac=f6dpim9/rhocl) -! starting standard surface pressure [ Pa ] - REAL(kind_chem) pss0 - PARAMETER (pss0=101325.0) +! starting standard surface pressure [ Pa ] + REAL(kind_chem) pss0 + PARAMETER (pss0=101325.0) ! starting standard surface temperature [ K ] - REAL(kind_chem) tss0 - PARAMETER (tss0=288.15) + REAL(kind_chem) tss0 + PARAMETER (tss0=288.15) -! initial sigma-G for nucleimode - REAL(kind_chem) sginin - PARAMETER (sginin=1.70) +! initial sigma-G for nucleimode + REAL(kind_chem) sginin + PARAMETER (sginin=1.70) -! initial sigma-G for accumulation mode - REAL(kind_chem) sginia - PARAMETER (sginia=2.00) +! initial sigma-G for accumulation mode + REAL(kind_chem) sginia + PARAMETER (sginia=2.00) -! initial sigma-G for coarse mode - REAL(kind_chem) sginic - PARAMETER (sginic=2.5) +! initial sigma-G for coarse mode + REAL(kind_chem) sginic + PARAMETER (sginic=2.5) -! initial mean diameter for nuclei mode [ m ] - REAL(kind_chem) dginin - PARAMETER (dginin=0.01E-6) +! initial mean diameter for nuclei mode [ m ] + REAL(kind_chem) dginin + PARAMETER (dginin=0.01E-6) ! initial mean diameter for accumulation mode [ m ] - REAL(kind_chem) dginia - PARAMETER (dginia=0.07E-6) + REAL(kind_chem) dginia + PARAMETER (dginia=0.07E-6) -! initial mean diameter for coarse mode [ m ] - REAL(kind_chem) dginic - PARAMETER (dginic=1.0E-6) +! initial mean diameter for coarse mode [ m ] + REAL(kind_chem) dginic + PARAMETER (dginic=1.0E-6) !................ end AERO3box.EXT ............................... !/////////////////////////////////////////////////////////////////////// @@ -631,139 +631,139 @@ MODULE aero_soa_vbs_data_mod ! LOGICAL diagnostics ! *** Scalar variables for fixed standard deviations. -! Flag for writing diagnostics to file -! nuclei mode exp( log^2( sigmag )/8 ) - REAL(kind_chem) en1 +! Flag for writing diagnostics to file +! nuclei mode exp( log^2( sigmag )/8 ) + REAL(kind_chem) en1 ! accumulation mode exp( log^2( sigmag ) - REAL(kind_chem) ea1 - - REAL(kind_chem) ec1 -! coarse mode exp( log^2( sigmag )/8 ) -! nuclei **4 - REAL(kind_chem) esn04 -! accumulation - REAL(kind_chem) esa04 - - REAL(kind_chem) esc04 -! coarse -! nuclei **5 - REAL(kind_chem) esn05 - - REAL(kind_chem) esa05 -! accumulation -! nuclei **8 - REAL(kind_chem) esn08 -! accumulation - REAL(kind_chem) esa08 - - REAL(kind_chem) esc08 -! coarse -! nuclei **9 - REAL(kind_chem) esn09 - - REAL(kind_chem) esa09 -! accumulation -! nuclei **12 - REAL(kind_chem) esn12 -! accumulation - REAL(kind_chem) esa12 - - REAL(kind_chem) esc12 -! coarse mode -! nuclei **16 - REAL(kind_chem) esn16 -! accumulation - REAL(kind_chem) esa16 - - REAL(kind_chem) esc16 -! coarse -! nuclei **20 - REAL(kind_chem) esn20 -! accumulation - REAL(kind_chem) esa20 - - REAL(kind_chem) esc20 -! coarse -! nuclei **25 - REAL(kind_chem) esn25 - - REAL(kind_chem) esa25 -! accumulation -! nuclei **24 - REAL(kind_chem) esn24 -! accumulation - REAL(kind_chem) esa24 - - REAL(kind_chem) esc24 -! coarse -! nuclei **28 - REAL(kind_chem) esn28 -! accumulation - REAL(kind_chem) esa28 - - REAL(kind_chem) esc28 -! coarse -! nuclei **32 - REAL(kind_chem) esn32 -! accumulation - REAL(kind_chem) esa32 - - REAL(kind_chem) esc32 -! coarese -! nuclei **36 - REAL(kind_chem) esn36 -! accumulation - REAL(kind_chem) esa36 - - REAL(kind_chem) esc36 -! coarse -! nuclei **49 - REAL(kind_chem) esn49 - - REAL(kind_chem) esa49 -! accumulation -! nuclei **52 - REAL(kind_chem) esn52 - - REAL(kind_chem) esa52 -! accumulation -! nuclei **64 - REAL(kind_chem) esn64 -! accumulation - REAL(kind_chem) esa64 - - REAL(kind_chem) esc64 -! coarse - - REAL(kind_chem) esn100 -! nuclei **100 -! nuclei **(-20) - REAL(kind_chem) esnm20 -! accumulation - REAL(kind_chem) esam20 - - REAL(kind_chem) escm20 -! coarse -! nuclei **(-32) - REAL(kind_chem) esnm32 -! accumulation - REAL(kind_chem) esam32 - - REAL(kind_chem) escm32 -! coarse -! log(sginin) - REAL(kind_chem) xxlsgn -! log(sginia) - REAL(kind_chem) xxlsga - - REAL(kind_chem) xxlsgc -! log(sginic ) -! log(sginin ) ** 2 - REAL(kind_chem) l2sginin -! log(sginia ) ** 2 - REAL(kind_chem) l2sginia - - REAL(kind_chem) l2sginic + REAL(kind_chem) ea1 + + REAL(kind_chem) ec1 +! coarse mode exp( log^2( sigmag )/8 ) +! nuclei **4 + REAL(kind_chem) esn04 +! accumulation + REAL(kind_chem) esa04 + + REAL(kind_chem) esc04 +! coarse +! nuclei **5 + REAL(kind_chem) esn05 + + REAL(kind_chem) esa05 +! accumulation +! nuclei **8 + REAL(kind_chem) esn08 +! accumulation + REAL(kind_chem) esa08 + + REAL(kind_chem) esc08 +! coarse +! nuclei **9 + REAL(kind_chem) esn09 + + REAL(kind_chem) esa09 +! accumulation +! nuclei **12 + REAL(kind_chem) esn12 +! accumulation + REAL(kind_chem) esa12 + + REAL(kind_chem) esc12 +! coarse mode +! nuclei **16 + REAL(kind_chem) esn16 +! accumulation + REAL(kind_chem) esa16 + + REAL(kind_chem) esc16 +! coarse +! nuclei **20 + REAL(kind_chem) esn20 +! accumulation + REAL(kind_chem) esa20 + + REAL(kind_chem) esc20 +! coarse +! nuclei **25 + REAL(kind_chem) esn25 + + REAL(kind_chem) esa25 +! accumulation +! nuclei **24 + REAL(kind_chem) esn24 +! accumulation + REAL(kind_chem) esa24 + + REAL(kind_chem) esc24 +! coarse +! nuclei **28 + REAL(kind_chem) esn28 +! accumulation + REAL(kind_chem) esa28 + + REAL(kind_chem) esc28 +! coarse +! nuclei **32 + REAL(kind_chem) esn32 +! accumulation + REAL(kind_chem) esa32 + + REAL(kind_chem) esc32 +! coarese +! nuclei **36 + REAL(kind_chem) esn36 +! accumulation + REAL(kind_chem) esa36 + + REAL(kind_chem) esc36 +! coarse +! nuclei **49 + REAL(kind_chem) esn49 + + REAL(kind_chem) esa49 +! accumulation +! nuclei **52 + REAL(kind_chem) esn52 + + REAL(kind_chem) esa52 +! accumulation +! nuclei **64 + REAL(kind_chem) esn64 +! accumulation + REAL(kind_chem) esa64 + + REAL(kind_chem) esc64 +! coarse + + REAL(kind_chem) esn100 +! nuclei **100 +! nuclei **(-20) + REAL(kind_chem) esnm20 +! accumulation + REAL(kind_chem) esam20 + + REAL(kind_chem) escm20 +! coarse +! nuclei **(-32) + REAL(kind_chem) esnm32 +! accumulation + REAL(kind_chem) esam32 + + REAL(kind_chem) escm32 +! coarse +! log(sginin) + REAL(kind_chem) xxlsgn +! log(sginia) + REAL(kind_chem) xxlsga + + REAL(kind_chem) xxlsgc +! log(sginic ) +! log(sginin ) ** 2 + REAL(kind_chem) l2sginin +! log(sginia ) ** 2 + REAL(kind_chem) l2sginia + + REAL(kind_chem) l2sginic ! *** set up COMMON blocks for esg's: @@ -771,60 +771,60 @@ MODULE aero_soa_vbs_data_mod ! *** SET NUCLEATION FLAG: - ! INUCL = 0, Kerminen & Wexler Mechanism - INTEGER inucl - ! INUCL = 1, Youngblood and Kreidenweis mech - ! INUCL = 2, Kulmala et al. mechanism -! Flag for Choice of nucleation Mechanism - PARAMETER (inucl=2) + ! INUCL = 0, Kerminen & Wexler Mechanism + INTEGER inucl + ! INUCL = 1, Youngblood and Kreidenweis mech + ! INUCL = 2, Kulmala et al. mechanism +! Flag for Choice of nucleation Mechanism + PARAMETER (inucl=2) ! *** Set flag for sedimentation velocities: - LOGICAL icoarse - PARAMETER (icoarse=.FALSE.) ! *** END AERO_INTERNAL.EXT + LOGICAL icoarse + PARAMETER (icoarse=.FALSE.) ! *** END AERO_INTERNAL.EXT ! *** Diameters and standard deviations for emissions ! the diameters are the volume (mass) geometric mean diameters ! *** Aitken mode: -! special factor to compute mass transfer - REAL(kind_chem) dgvem_i - PARAMETER (dgvem_i=0.03E-6) ! [ m ] - REAL(kind_chem) sgem_i - PARAMETER (sgem_i=1.7) +! special factor to compute mass transfer + REAL(kind_chem) dgvem_i + PARAMETER (dgvem_i=0.03E-6) ! [ m ] + REAL(kind_chem) sgem_i + PARAMETER (sgem_i=1.7) ! *** Accumulation mode: - REAL(kind_chem) dgvem_j - PARAMETER (dgvem_j=0.3E-6) ! [ m ] - REAL(kind_chem) sgem_j - PARAMETER (sgem_j=2.0) + REAL(kind_chem) dgvem_j + PARAMETER (dgvem_j=0.3E-6) ! [ m ] + REAL(kind_chem) sgem_j + PARAMETER (sgem_j=2.0) ! *** Coarse mode - REAL(kind_chem) dgvem_c - PARAMETER (dgvem_c=6.0E-6) ! [ m ] <<< Corrected 11/19/97 - REAL(kind_chem) sgem_c - PARAMETER (sgem_c=2.2) + REAL(kind_chem) dgvem_c + PARAMETER (dgvem_c=6.0E-6) ! [ m ] <<< Corrected 11/19/97 + REAL(kind_chem) sgem_c + PARAMETER (sgem_c=2.2) ! *** factors for getting number emissions rate from mass emissions rate -! Aitken mode - REAL(kind_chem) factnumn -! accumulation mode - REAL(kind_chem) factnuma - - REAL(kind_chem) factnumc -! coarse mode - REAL(kind_chem) facatkn_min, facacc_min - PARAMETER (facatkn_min=0.04,facacc_min=1.0-facatkn_min) - REAL(kind_chem) xxm3 - REAL(kind_chem), PARAMETER :: conmin = 1.E-16 - REAL(kind_chem), PARAMETER :: epsilc = 1.E-16 -! [ ug/m**3 ] ! changed 1/6/98 - REAL(kind_chem) & ! factor to set minimum for Aitken mode number - nummin_i - REAL(kind_chem) & ! factor to set minimum for accumulation mode nu - nummin_j - REAL(kind_chem) & - nummin_c -! factor to set minimum for coarse mode number +! Aitken mode + REAL(kind_chem) factnumn +! accumulation mode + REAL(kind_chem) factnuma + + REAL(kind_chem) factnumc +! coarse mode + REAL(kind_chem) facatkn_min, facacc_min + PARAMETER (facatkn_min=0.04,facacc_min=1.0-facatkn_min) + REAL(kind_chem) xxm3 + REAL(kind_chem), PARAMETER :: conmin = 1.E-16 + REAL(kind_chem), PARAMETER :: epsilc = 1.E-16 +! [ ug/m**3 ] ! changed 1/6/98 + REAL(kind_chem) & ! factor to set minimum for Aitken mode number + nummin_i + REAL(kind_chem) & ! factor to set minimum for accumulation mode nu + nummin_j + REAL(kind_chem) & + nummin_c +! factor to set minimum for coarse mode number !bs !bs REAL(kind_chem) ALPHSULF ! Accommodation coefficient for sulfuric acid !bs PARAMETER ( ALPHSULF = 0.05 ) ! my be set to one in future @@ -840,53 +840,53 @@ MODULE aero_soa_vbs_data_mod !bs * Temperature dependence is included for DIFFSULF via DIFFCORR (see !bs ! Accommodation coefficient for sulfuric - REAL(kind_chem) alphsulf - PARAMETER (alphsulf=1.0) -!bs updated from code of FSB -! molecular weight for sulfuric acid [ kg/mole ] MKS - REAL(kind_chem) mwh2so4 - PARAMETER (mwh2so4=98.07354E-3) + REAL(kind_chem) alphsulf + PARAMETER (alphsulf=1.0) +!bs updated from code of FSB +! molecular weight for sulfuric acid [ kg/mole ] MKS + REAL(kind_chem) mwh2so4 + PARAMETER (mwh2so4=98.07354E-3) !cia corrected error 24/11/97 ! molecular diffusivity for sulfuric acid [ m**2 /se - REAL(kind_chem) diffsulf - PARAMETER (diffsulf=9.362223E-06) -!bs updated from code of FSB + REAL(kind_chem) diffsulf + PARAMETER (diffsulf=9.362223E-06) +!bs updated from code of FSB !bs Accomodation coefficient for organic - REAL(kind_chem) alphaorg - PARAMETER (alphaorg=1.0) !bs Kleeman et al. '99 propose alpha + REAL(kind_chem) alphaorg + PARAMETER (alphaorg=1.0) !bs Kleeman et al. '99 propose alpha !bs Bowman et al. '97 uses alpha = 1. !bs mean molecular weight of organics [k - REAL(kind_chem) mworg - PARAMETER (mworg=175.0E-03) + REAL(kind_chem) mworg + PARAMETER (mworg=175.0E-03) !bs !bs * DIFFORG is calculated from the same formula as DIFFSULF. !bs * An average elemental composition of C=8, O=3, N=1, H=17 is asuumed !bs * to calculate DIFFORG at T = 273.16K and P = 1.01325E05 Pa. !bs * Temperature dependence is included below. !bs molecular diffusivity for organics [ - REAL(kind_chem) difforg - PARAMETER (difforg=5.151174E-06) + REAL(kind_chem) difforg + PARAMETER (difforg=5.151174E-06) ! *** CCONC is the factor for near-continuum condensation. -! ccofm * sqrt( ta ) - REAL(kind_chem) cconc - PARAMETER (cconc=2.0*pirs*diffsulf) +! ccofm * sqrt( ta ) + REAL(kind_chem) cconc + PARAMETER (cconc=2.0*pirs*diffsulf) !bs * factor for NC condensation for organics -! [ m**2 / sec ] - REAL(kind_chem) cconc_org - PARAMETER (cconc_org=2.0*pirs*difforg) -! [ m**2 / sec ] -!bs analogue to CCOFM but for organics - REAL(kind_chem) ccofm_org +! [ m**2 / sec ] + REAL(kind_chem) cconc_org + PARAMETER (cconc_org=2.0*pirs*difforg) +! [ m**2 / sec ] +!bs analogue to CCOFM but for organics + REAL(kind_chem) ccofm_org ! FSB CCOFM is the accommodation coefficient ! times the mean molecular velocity for h2so4 without the temperatu ! after some algebra -!bs CCOFM_ORG * sqrt(TA) -! set to a value below - REAL(kind_chem) ccofm -! minimum aerosol sulfate concentration - REAL(kind_chem) aeroconcmin - PARAMETER (aeroconcmin=0.0001) +!bs CCOFM_ORG * sqrt(TA) +! set to a value below + REAL(kind_chem) ccofm +! minimum aerosol sulfate concentration + REAL(kind_chem) aeroconcmin + PARAMETER (aeroconcmin=0.0001) !******************************************************************* !* * @@ -954,66 +954,66 @@ MODULE aero_soa_vbs_data_mod !----------------------------------------------------------------------- ! nov-04 sg ! replaced amode with aer and expanded aerosol dimension to include type and phase - integer, parameter :: maxd_atype = 2 - integer, parameter :: maxd_asize = 2 - integer, parameter :: maxd_acomp = 19 - integer, parameter :: maxd_aphase = 2 - integer, save :: ai_phase ! interstitial phase of aerosol - integer, save :: cw_phase ! cloud water phase of aerosol - integer, save :: ci_phase ! cloud ice phase of aerosol - integer, save :: cr_phase ! rain phase of aerosol - integer, save :: cs_phase ! snow phase of aerosol - integer, save :: cg_phase ! graupel phase of aerosol - - integer, save :: ntype_aer = 0 ! number of types - integer, save :: ntot_mastercomp_aer = 0 ! number of master components - integer, save :: nphase_aer = 0 ! number of phases - - integer, save :: & - msectional, maerosolincw, & - nsize_aer( maxd_atype ), & ! number of size bins - ncomp_aer( maxd_atype ), & ! number of chemical components - ncomp_aer_nontracer( maxd_atype ), & - mastercompptr_aer(maxd_acomp, maxd_atype), & ! mastercomp index - massptr_aer( maxd_acomp, maxd_asize, maxd_atype, maxd_aphase ), & ! index for mixing ratio - waterptr_aer( maxd_asize, maxd_atype ), & ! index for aerosol water - hygroptr_aer( maxd_asize, maxd_atype ), & ! index for aerosol hygroscopicity - numptr_aer( maxd_asize, maxd_atype, maxd_aphase ), & ! index for the number mixing ratio - mprognum_aer(maxd_asize,maxd_atype,maxd_aphase) - - REAL(kind_chem), save :: & - dens_aer( maxd_acomp, maxd_atype ), & - dens_mastercomp_aer( maxd_acomp ), & - mw_mastercomp_aer( maxd_acomp ), & - mw_aer( maxd_acomp, maxd_atype ), & - hygro_mastercomp_aer( maxd_acomp ), & - hygro_aer( maxd_acomp, maxd_atype ) - character*10, save :: & - name_mastercomp_aer( maxd_acomp ), & - name_aer( maxd_acomp, maxd_atype ) - - REAL(kind_chem), save :: & - volumcen_sect( maxd_asize, maxd_atype ), & - volumlo_sect( maxd_asize, maxd_atype ), & - volumhi_sect( maxd_asize, maxd_atype ), & - dcen_sect( maxd_asize, maxd_atype ), & - dlo_sect( maxd_asize, maxd_atype ), & - dhi_sect( maxd_asize, maxd_atype ), & - sigmag_aer(maxd_asize, maxd_atype) - - integer, save :: & - lptr_so4_aer(maxd_asize,maxd_atype,maxd_aphase), & - lptr_nh4_aer(maxd_asize,maxd_atype,maxd_aphase), & - lptr_no3_aer(maxd_asize,maxd_atype,maxd_aphase), & - - lptr_asoa1_aer(maxd_asize,maxd_atype,maxd_aphase), & - lptr_asoa2_aer(maxd_asize,maxd_atype,maxd_aphase), & - lptr_asoa3_aer(maxd_asize,maxd_atype,maxd_aphase), & - lptr_asoa4_aer(maxd_asize,maxd_atype,maxd_aphase), & - lptr_bsoa1_aer(maxd_asize,maxd_atype,maxd_aphase), & - lptr_bsoa2_aer(maxd_asize,maxd_atype,maxd_aphase), & - lptr_bsoa3_aer(maxd_asize,maxd_atype,maxd_aphase), & - lptr_bsoa4_aer(maxd_asize,maxd_atype,maxd_aphase), & + integer, parameter :: maxd_atype = 2 + integer, parameter :: maxd_asize = 2 + integer, parameter :: maxd_acomp = 19 + integer, parameter :: maxd_aphase = 2 + integer, save :: ai_phase ! interstitial phase of aerosol + integer, save :: cw_phase ! cloud water phase of aerosol + integer, save :: ci_phase ! cloud ice phase of aerosol + integer, save :: cr_phase ! rain phase of aerosol + integer, save :: cs_phase ! snow phase of aerosol + integer, save :: cg_phase ! graupel phase of aerosol + + integer, save :: ntype_aer = 0 ! number of types + integer, save :: ntot_mastercomp_aer = 0 ! number of master components + integer, save :: nphase_aer = 0 ! number of phases + + integer, save :: & + msectional, maerosolincw, & + nsize_aer( maxd_atype ), & ! number of size bins + ncomp_aer( maxd_atype ), & ! number of chemical components + ncomp_aer_nontracer( maxd_atype ), & + mastercompptr_aer(maxd_acomp, maxd_atype), & ! mastercomp index + massptr_aer( maxd_acomp, maxd_asize, maxd_atype, maxd_aphase ), & ! index for mixing ratio + waterptr_aer( maxd_asize, maxd_atype ), & ! index for aerosol water + hygroptr_aer( maxd_asize, maxd_atype ), & ! index for aerosol hygroscopicity + numptr_aer( maxd_asize, maxd_atype, maxd_aphase ), & ! index for the number mixing ratio + mprognum_aer(maxd_asize,maxd_atype,maxd_aphase) + + REAL(kind_chem), save :: & + dens_aer( maxd_acomp, maxd_atype ), & + dens_mastercomp_aer( maxd_acomp ), & + mw_mastercomp_aer( maxd_acomp ), & + mw_aer( maxd_acomp, maxd_atype ), & + hygro_mastercomp_aer( maxd_acomp ), & + hygro_aer( maxd_acomp, maxd_atype ) + character*10, save :: & + name_mastercomp_aer( maxd_acomp ), & + name_aer( maxd_acomp, maxd_atype ) + + REAL(kind_chem), save :: & + volumcen_sect( maxd_asize, maxd_atype ), & + volumlo_sect( maxd_asize, maxd_atype ), & + volumhi_sect( maxd_asize, maxd_atype ), & + dcen_sect( maxd_asize, maxd_atype ), & + dlo_sect( maxd_asize, maxd_atype ), & + dhi_sect( maxd_asize, maxd_atype ), & + sigmag_aer(maxd_asize, maxd_atype) + + integer, save :: & + lptr_so4_aer(maxd_asize,maxd_atype,maxd_aphase), & + lptr_nh4_aer(maxd_asize,maxd_atype,maxd_aphase), & + lptr_no3_aer(maxd_asize,maxd_atype,maxd_aphase), & + + lptr_asoa1_aer(maxd_asize,maxd_atype,maxd_aphase), & + lptr_asoa2_aer(maxd_asize,maxd_atype,maxd_aphase), & + lptr_asoa3_aer(maxd_asize,maxd_atype,maxd_aphase), & + lptr_asoa4_aer(maxd_asize,maxd_atype,maxd_aphase), & + lptr_bsoa1_aer(maxd_asize,maxd_atype,maxd_aphase), & + lptr_bsoa2_aer(maxd_asize,maxd_atype,maxd_aphase), & + lptr_bsoa3_aer(maxd_asize,maxd_atype,maxd_aphase), & + lptr_bsoa4_aer(maxd_asize,maxd_atype,maxd_aphase), & ! lptr_orgaro1_aer(maxd_asize,maxd_atype,maxd_aphase), & ! lptr_orgaro2_aer(maxd_asize,maxd_atype,maxd_aphase), & @@ -1024,70 +1024,70 @@ MODULE aero_soa_vbs_data_mod ! lptr_orgba3_aer(maxd_asize,maxd_atype,maxd_aphase), & ! lptr_orgba4_aer(maxd_asize,maxd_atype,maxd_aphase), & - lptr_orgpa_aer(maxd_asize,maxd_atype,maxd_aphase), & - lptr_ec_aer(maxd_asize,maxd_atype,maxd_aphase), & - lptr_p25_aer(maxd_asize,maxd_atype,maxd_aphase), & - lptr_anth_aer(maxd_asize,maxd_atype,maxd_aphase), & - lptr_cl_aer(maxd_asize,maxd_atype,maxd_aphase), & - lptr_na_aer(maxd_asize,maxd_atype,maxd_aphase), & - lptr_seas_aer(maxd_asize,maxd_atype,maxd_aphase), & - lptr_soil_aer(maxd_asize,maxd_atype,maxd_aphase) + lptr_orgpa_aer(maxd_asize,maxd_atype,maxd_aphase), & + lptr_ec_aer(maxd_asize,maxd_atype,maxd_aphase), & + lptr_p25_aer(maxd_asize,maxd_atype,maxd_aphase), & + lptr_anth_aer(maxd_asize,maxd_atype,maxd_aphase), & + lptr_cl_aer(maxd_asize,maxd_atype,maxd_aphase), & + lptr_na_aer(maxd_asize,maxd_atype,maxd_aphase), & + lptr_seas_aer(maxd_asize,maxd_atype,maxd_aphase), & + lptr_soil_aer(maxd_asize,maxd_atype,maxd_aphase) - logical, save :: & - do_cloudchem_aer(maxd_asize,maxd_atype) + logical, save :: & + do_cloudchem_aer(maxd_asize,maxd_atype) ! molecular weights (g/mol) - REAL(kind_chem), parameter :: mw_so4_aer = 96.066 - REAL(kind_chem), parameter :: mw_no3_aer = 62.007 - REAL(kind_chem), parameter :: mw_nh4_aer = 18.042 - REAL(kind_chem), parameter :: mw_oc_aer = 250.0 - REAL(kind_chem), parameter :: mw_ec_aer = 1.0 - REAL(kind_chem), parameter :: mw_oin_aer = 1.0 - REAL(kind_chem), parameter :: mw_dust_aer = 100.087 - REAL(kind_chem), parameter :: mw_seas_aer = 58.440 - REAL(kind_chem), parameter :: mw_cl_aer = 35.450 - REAL(kind_chem), parameter :: mw_na_aer = 22.990 - REAL(kind_chem), parameter :: mw_water_aer = 18.016 + REAL(kind_chem), parameter :: mw_so4_aer = 96.066 + REAL(kind_chem), parameter :: mw_no3_aer = 62.007 + REAL(kind_chem), parameter :: mw_nh4_aer = 18.042 + REAL(kind_chem), parameter :: mw_oc_aer = 250.0 + REAL(kind_chem), parameter :: mw_ec_aer = 1.0 + REAL(kind_chem), parameter :: mw_oin_aer = 1.0 + REAL(kind_chem), parameter :: mw_dust_aer = 100.087 + REAL(kind_chem), parameter :: mw_seas_aer = 58.440 + REAL(kind_chem), parameter :: mw_cl_aer = 35.450 + REAL(kind_chem), parameter :: mw_na_aer = 22.990 + REAL(kind_chem), parameter :: mw_water_aer = 18.016 ! dry densities (g/cm3) - REAL(kind_chem), parameter :: dens_so4_aer = 1.80 ! = rhoso4 - REAL(kind_chem), parameter :: dens_no3_aer = 1.80 ! = rhono3 - REAL(kind_chem), parameter :: dens_nh4_aer = 1.80 ! = rhonh4 - REAL(kind_chem), parameter :: dens_oc_aer = 1.5 ! = rhoorg ! changed from 1.0 - REAL(kind_chem), parameter :: dens_ec_aer = 1.70 - REAL(kind_chem), parameter :: dens_dust_aer = 2.60 ! = rhosoil - REAL(kind_chem), parameter :: dens_oin_aer = 2.20 ! = rhoanth - REAL(kind_chem), parameter :: dens_seas_aer = 2.20 ! = rhoseas - REAL(kind_chem), parameter :: dens_cl_aer = 2.20 - REAL(kind_chem), parameter :: dens_na_aer = 2.20 + REAL(kind_chem), parameter :: dens_so4_aer = 1.80 ! = rhoso4 + REAL(kind_chem), parameter :: dens_no3_aer = 1.80 ! = rhono3 + REAL(kind_chem), parameter :: dens_nh4_aer = 1.80 ! = rhonh4 + REAL(kind_chem), parameter :: dens_oc_aer = 1.5 ! = rhoorg ! changed from 1.0 + REAL(kind_chem), parameter :: dens_ec_aer = 1.70 + REAL(kind_chem), parameter :: dens_dust_aer = 2.60 ! = rhosoil + REAL(kind_chem), parameter :: dens_oin_aer = 2.20 ! = rhoanth + REAL(kind_chem), parameter :: dens_seas_aer = 2.20 ! = rhoseas + REAL(kind_chem), parameter :: dens_cl_aer = 2.20 + REAL(kind_chem), parameter :: dens_na_aer = 2.20 ! water density (g/cm3) - REAL(kind_chem), parameter :: dens_water_aer = 1.0 + REAL(kind_chem), parameter :: dens_water_aer = 1.0 ! hygroscopicity (dimensionless) - REAL(kind_chem), parameter :: hygro_so4_aer = 0.5 - REAL(kind_chem), parameter :: hygro_no3_aer = 0.5 - REAL(kind_chem), parameter :: hygro_nh4_aer = 0.5 - REAL(kind_chem), parameter :: hygro_oc_aer = 0.14 - REAL(kind_chem), parameter :: hygro_ec_aer = 1.e-6 - REAL(kind_chem), parameter :: hygro_oin_aer = 0.14 - REAL(kind_chem), parameter :: hygro_dust_aer = 0.1 - REAL(kind_chem), parameter :: hygro_seas_aer = 1.16 - REAL(kind_chem), parameter :: hygro_cl_aer = 1.16 - REAL(kind_chem), parameter :: hygro_na_aer = 1.16 + REAL(kind_chem), parameter :: hygro_so4_aer = 0.5 + REAL(kind_chem), parameter :: hygro_no3_aer = 0.5 + REAL(kind_chem), parameter :: hygro_nh4_aer = 0.5 + REAL(kind_chem), parameter :: hygro_oc_aer = 0.14 + REAL(kind_chem), parameter :: hygro_ec_aer = 1.e-6 + REAL(kind_chem), parameter :: hygro_oin_aer = 0.14 + REAL(kind_chem), parameter :: hygro_dust_aer = 0.1 + REAL(kind_chem), parameter :: hygro_seas_aer = 1.16 + REAL(kind_chem), parameter :: hygro_cl_aer = 1.16 + REAL(kind_chem), parameter :: hygro_na_aer = 1.16 ! table lookup of aerosol impaction/interception scavenging rates - REAL(kind_chem) dlndg_nimptblgrow - integer nimptblgrow_mind, nimptblgrow_maxd - parameter (nimptblgrow_mind=-14, nimptblgrow_maxd=24) - REAL(kind_chem) scavimptblnum(4, nimptblgrow_mind:nimptblgrow_maxd, maxd_asize, maxd_atype), & - scavimptblvol(4, nimptblgrow_mind:nimptblgrow_maxd, maxd_asize, maxd_atype) + REAL(kind_chem) dlndg_nimptblgrow + integer nimptblgrow_mind, nimptblgrow_maxd + parameter (nimptblgrow_mind=-14, nimptblgrow_maxd=24) + REAL(kind_chem) scavimptblnum(4, nimptblgrow_mind:nimptblgrow_maxd, maxd_asize, maxd_atype), & + scavimptblvol(4, nimptblgrow_mind:nimptblgrow_maxd, maxd_asize, maxd_atype) !SAM 10/08 Gaussian quadrature constants for SOA_VBS deposition numerical integration - INTEGER NGAUSdv - PARAMETER( NGAUSdv = 7 ) ! Number of Gaussian Quadrature Points - constants defined in aerosols_sorgam_init - REAL(kind_chem) Y_GQ(NGAUSdv), WGAUS(NGAUSdv) + INTEGER NGAUSdv + PARAMETER( NGAUSdv = 7 ) ! Number of Gaussian Quadrature Points - constants defined in aerosols_sorgam_init + REAL(kind_chem) Y_GQ(NGAUSdv), WGAUS(NGAUSdv) !***************************************************************** !* * @@ -1095,6 +1095,6 @@ MODULE aero_soa_vbs_data_mod !* * !***************************************************************** - PUBLIC + PUBLIC END MODULE aero_soa_vbs_data_mod diff --git a/src/dep_vertmx_mod.F90 b/src/dep_vertmx_mod.F90 index ce2c4c4c..10e36b4d 100644 --- a/src/dep_vertmx_mod.F90 +++ b/src/dep_vertmx_mod.F90 @@ -3,8 +3,8 @@ MODULE dep_vertmx_mod CONTAINS !----------------------------------------------------------------------- - SUBROUTINE vertmx( dt, phi, kt_turb, dryrho, & - zsigma, zsigma_half, vd, kts, ktem1 ) + SUBROUTINE vertmx( dt, phi, kt_turb, dryrho, & + zsigma, zsigma_half, vd, kts, ktem1 ) ! !! purpose - calculate change in time of phi due to vertical mixing ! !! and dry deposition (for 1 species, 1 vertical column, 1 time step) ! !! Mariusz Pagowski, March 2001 @@ -12,7 +12,7 @@ SUBROUTINE vertmx( dt, phi, kt_turb, dryrho, & ! !! input is lower case ! !! output is upper case ! -! !! modifications by R Easter, May 2006 +! !! modifications by R Easter, May 2006 ! !! added dryrho so this routine conserves column mass burde ! !! when dry deposition velocity is zero ! !! changed "kte" to "ktem1" for consistency with the kte in WRF @@ -28,7 +28,7 @@ SUBROUTINE vertmx( dt, phi, kt_turb, dryrho, & ! vd = dry deposition velocity (m/s) ! kts, ktem1 = vertical indices of bottom and top "T" points ! - IMPLICIT NONE + IMPLICIT NONE ! .. Scalar Arguments .. INTEGER, INTENT(IN) :: kts,ktem1 @@ -52,27 +52,27 @@ SUBROUTINE vertmx( dt, phi, kt_turb, dryrho, & CALL coeffs( kts, ktem1, dryrho, zsigma, zsigma_half, a_coeff, b_coeff ) CALL rlhside( kts, ktem1, kt_turb, dryrho, a_coeff, b_coeff, & - phi, dt, vd, rhs, lhs1, lhs2, lhs3 ) + phi, dt, vd, rhs, lhs1, lhs2, lhs3 ) CALL tridiag( kts, ktem1, lhs1, lhs2, lhs3, rhs ) DO k = kts,ktem1 - phi(k) = rhs(k) + phi(k) = rhs(k) END DO - END SUBROUTINE vertmx + END SUBROUTINE vertmx !----------------------------------------------------------------------- - SUBROUTINE rlhside( kts, ktem1, k_turb, dryrho, a_coeff, b_coeff, & + SUBROUTINE rlhside( kts, ktem1, k_turb, dryrho, a_coeff, b_coeff, & phi, dt, vd, rhs, lhs1, lhs2, lhs3 ) - !! to calculate right and left hand sides in diffusion equation - !! for the tridiagonal solver - !! Mariusz Pagowski, March 2001 - !! conventions used: - !! input is lower case - !! output is upper case - IMPLICIT NONE + !! to calculate right and left hand sides in diffusion equation + !! for the tridiagonal solver + !! Mariusz Pagowski, March 2001 + !! conventions used: + !! input is lower case + !! output is upper case + IMPLICIT NONE ! .. Scalar Arguments .. INTEGER, INTENT(IN) :: kts,ktem1 @@ -94,46 +94,46 @@ SUBROUTINE rlhside( kts, ktem1, k_turb, dryrho, a_coeff, b_coeff, & i = kts a2 = a_coeff(i+1)*k_turb(i+1) rhs(i) = (1./(dt*b_coeff(i)) - alfa_explicit*(vd*dryrho(i)+a2))*phi(i) + & - alfa_explicit*(a2*phi(i+1)) + alfa_explicit*(a2*phi(i+1)) lhs1(i) = 0. lhs2(i) = 1./(dt*b_coeff(i)) + beta_implicit*(vd*dryrho(i)+a2) lhs3(i) = -beta_implicit*a2 DO i = kts+1, ktem1-1 - a1 = a_coeff(i)*k_turb(i) - a2 = a_coeff(i+1)*k_turb(i+1) + a1 = a_coeff(i)*k_turb(i) + a2 = a_coeff(i+1)*k_turb(i+1) - rhs(i) = (1./(dt*b_coeff(i)) - alfa_explicit*(a1+a2))*phi(i) + & - alfa_explicit*(a1*phi(i-1) + a2*phi(i+1)) + rhs(i) = (1./(dt*b_coeff(i)) - alfa_explicit*(a1+a2))*phi(i) + & + alfa_explicit*(a1*phi(i-1) + a2*phi(i+1)) - lhs1(i) = -beta_implicit*a1 - lhs2(i) = 1./(dt*b_coeff(i)) + beta_implicit*(a1+a2) - lhs3(i) = -beta_implicit*a2 + lhs1(i) = -beta_implicit*a1 + lhs2(i) = 1./(dt*b_coeff(i)) + beta_implicit*(a1+a2) + lhs3(i) = -beta_implicit*a2 END DO i = ktem1 a1 = a_coeff(i)*k_turb(i) rhs(i) = (1./(dt*b_coeff(i)) - alfa_explicit*(a1 ))*phi(i) + & - alfa_explicit*(a1*phi(i-1)) + alfa_explicit*(a1*phi(i-1)) lhs1(i) = -beta_implicit*a1 lhs2(i) = 1./(dt*b_coeff(i)) + beta_implicit*(a1 ) lhs3(i) = 0. - END SUBROUTINE rlhside + END SUBROUTINE rlhside !----------------------------------------------------------------------- - SUBROUTINE tridiag( kts, ktem1, a, b, c, f ) - !! to solve system of linear eqs on tridiagonal matrix n times n - !! after Peaceman and Rachford, 1955 - !! a,b,c,F - are vectors of order n - !! a,b,c - are coefficients on the LHS - !! F - is initially RHS on the output becomes a solution vector - !! Mariusz Pagowski, March 2001 - !! conventions used: - !! input is lower case - !! output is upper case - IMPLICIT NONE + SUBROUTINE tridiag( kts, ktem1, a, b, c, f ) + !! to solve system of linear eqs on tridiagonal matrix n times n + !! after Peaceman and Rachford, 1955 + !! a,b,c,F - are vectors of order n + !! a,b,c - are coefficients on the LHS + !! F - is initially RHS on the output becomes a solution vector + !! Mariusz Pagowski, March 2001 + !! conventions used: + !! input is lower case + !! output is upper case + IMPLICIT NONE ! .. Scalar Arguments .. INTEGER, INTENT(IN) :: kts,ktem1 @@ -153,20 +153,20 @@ SUBROUTINE tridiag( kts, ktem1, a, b, c, f ) f(kts) = f(kts)/b(kts) DO i = kts+1, ktem1 - p = 1./(b(i)+a(i)*q(i-1)) - q(i) = -c(i)*p - f(i) = (f(i)-a(i)*f(i-1))*p + p = 1./(b(i)+a(i)*q(i-1)) + q(i) = -c(i)*p + f(i) = (f(i)-a(i)*f(i-1))*p END DO DO i = ktem1 - 1, kts, -1 - f(i) = f(i) + q(i)*f(i+1) + f(i) = f(i) + q(i)*f(i+1) END DO - END SUBROUTINE tridiag + END SUBROUTINE tridiag !----------------------------------------------------------------------- - SUBROUTINE coeffs( kts, ktem1, dryrho, & + SUBROUTINE coeffs( kts, ktem1, dryrho, & z_sigma, z_sigma_half, a_coeff, b_coeff ) ! !! to calculate coefficients in diffusion equation ! !! Mariusz Pagowski, March 2001 @@ -174,7 +174,7 @@ SUBROUTINE coeffs( kts, ktem1, dryrho, & ! !! input is lower case ! !! output is upper case ! .. Scalar Arguments .. - IMPLICIT NONE + IMPLICIT NONE INTEGER, INTENT(IN) :: kts,ktem1 ! .. @@ -189,15 +189,15 @@ SUBROUTINE coeffs( kts, ktem1, dryrho, & REAL :: dryrho_at_w ! .. DO i = kts, ktem1 - b_coeff(i) = 1./(dryrho(i)*(z_sigma(i+1)-z_sigma(i))) + b_coeff(i) = 1./(dryrho(i)*(z_sigma(i+1)-z_sigma(i))) END DO DO i = kts+1, ktem1 - dryrho_at_w = 0.5*(dryrho(i)+dryrho(i-1)) - a_coeff(i) = dryrho_at_w/(z_sigma_half(i)-z_sigma_half(i-1)) + dryrho_at_w = 0.5*(dryrho(i)+dryrho(i-1)) + a_coeff(i) = dryrho_at_w/(z_sigma_half(i)-z_sigma_half(i-1)) END DO - END SUBROUTINE coeffs + END SUBROUTINE coeffs !----------------------------------------------------------------------- END MODULE dep_vertmx_mod diff --git a/src/drydep_gocart_mod.F90 b/src/drydep_gocart_mod.F90 index 76fb715e..99fe6b19 100644 --- a/src/drydep_gocart_mod.F90 +++ b/src/drydep_gocart_mod.F90 @@ -3,76 +3,76 @@ module drydep_gocart_mod - use catchem_constants , only : kind_chem, g => con_g - use catchem_config, only : num_chem + use catchem_constants , only : kind_chem, g => con_g + use catchem_config, only : num_chem - implicit none + implicit none - private + private - public :: gocart_drydep_driver + public :: gocart_drydep_driver CONTAINS -subroutine gocart_drydep_driver( & - p8w,rho_phy,dz8w,ddvel,xland,hfx, & - ivgtyp,tsk,pbl,ust,znt) + subroutine gocart_drydep_driver( & + p8w,rho_phy,dz8w,ddvel,xland,hfx, & + ivgtyp,tsk,pbl,ust,znt) - IMPLICIT NONE + IMPLICIT NONE - REAL(kind_chem), INTENT(IN ) :: dz8w, p8w,rho_phy - REAL(kind_chem), DIMENSION( num_chem ), & - INTENT(INOUT) :: ddvel - REAL(kind_chem), INTENT(INOUT) :: tsk, pbl,ust,xland,znt,hfx - INTEGER, INTENT(IN ) :: ivgtyp + REAL(kind_chem), INTENT(IN ) :: dz8w, p8w,rho_phy + REAL(kind_chem), DIMENSION( num_chem ), & + INTENT(INOUT) :: ddvel + REAL(kind_chem), INTENT(INOUT) :: tsk, pbl,ust,xland,znt,hfx + INTEGER, INTENT(IN ) :: ivgtyp !! .. Local Scalars .. - INTEGER :: iland, iprt, iseason, jce, jcs, & - n, nr, ipr, jpr, nvr, & - idrydep_onoff,imx,jmx,lmx - integer :: ii,jj,kk,i,j,k,nv - integer, dimension (1,1) :: ilwi - real(kind_chem), DIMENSION (5) :: tc,bems - real(kind_chem), dimension (1,1) :: z0,w10m,gwet,airden,airmas,& - delz_sfc,hflux,ts,pblz,ustar,& - ps,dvel,drydf - - imx=1 - jmx=1 - lmx=1 - - - dvel(1,1)=0. - ilwi(1,1)=0 - if(xland.gt.1.5)ilwi=1 + INTEGER :: iland, iprt, iseason, jce, jcs, & + n, nr, ipr, jpr, nvr, & + idrydep_onoff,imx,jmx,lmx + integer :: ii,jj,kk,i,j,k,nv + integer, dimension (1,1) :: ilwi + real(kind_chem), DIMENSION (5) :: tc,bems + real(kind_chem), dimension (1,1) :: z0,w10m,gwet,airden,airmas,& + delz_sfc,hflux,ts,pblz,ustar,& + ps,dvel,drydf + + imx=1 + jmx=1 + lmx=1 + + + dvel(1,1)=0. + ilwi(1,1)=0 + if(xland.gt.1.5)ilwi=1 ! for aerosols, ii=1 or ii=2 - ii=1 - if(ivgtyp.eq.19.or.ivgtyp.eq.23)ii=1 - airden(1,1)=rho_phy - delz_sfc(1,1)=dz8w - ustar(1,1)=ust - hflux(1,1)=hfx - pblz(1,1)=pbl - ps(1,1)=p8w*.01 - z0(1,1)=znt - ts(1,1)=tsk + ii=1 + if(ivgtyp.eq.19.or.ivgtyp.eq.23)ii=1 + airden(1,1)=rho_phy + delz_sfc(1,1)=dz8w + ustar(1,1)=ust + hflux(1,1)=hfx + pblz(1,1)=pbl + ps(1,1)=p8w*.01 + z0(1,1)=znt + ts(1,1)=tsk - call depvel_gocart(ii,imx,jmx,lmx,& - airden, delz_sfc, pblz, ts, ustar, hflux, ilwi, & - ps, z0, dvel, drydf,g) - do nv=1,num_chem - ddvel(nv)=dvel(1,1) - enddo + call depvel_gocart(ii,imx,jmx,lmx,& + airden, delz_sfc, pblz, ts, ustar, hflux, ilwi, & + ps, z0, dvel, drydf,g) + do nv=1,num_chem + ddvel(nv)=dvel(1,1) + enddo -end subroutine gocart_drydep_driver + end subroutine gocart_drydep_driver -SUBROUTINE depvel_gocart( & - ii,imx,jmx,lmx,& - airden, delz_sfc, pblz, ts, ustar, hflux, ilwi, & - ps, z0, dvel, drydf,g0) + SUBROUTINE depvel_gocart( & + ii,imx,jmx,lmx,& + airden, delz_sfc, pblz, ts, ustar, hflux, ilwi, & + ps, z0, dvel, drydf,g0) ! **************************************************************************** ! * * @@ -92,7 +92,7 @@ SUBROUTINE depvel_gocart( & ! * Determined in this subroutine (local): * ! * OBK - Monin-Obukhov length (m): set to 1.E5 m under * ! * neutral conditions * -! * Rs(ldt) - Bulk surface resistance(s m-1) for species k to * +! * Rs(ldt) - Bulk surface resistance(s m-1) for species k to * ! * surface ldt * ! * Ra - Aerodynamic resistance. * ! * Rb - Sublayer resistance. * @@ -105,40 +105,40 @@ SUBROUTINE depvel_gocart( & ! * DRYDf(i,j,k) - Deposition frequency (s-1) of species k, * ! * = DVEL / DELZ_SFC * ! * * -! **************************************************************************** - - - IMPLICIT NONE - - INTEGER, INTENT(IN) :: imx,jmx,lmx - REAL(kind_chem), INTENT(IN) :: airden(imx,jmx), delz_sfc(imx,jmx) - REAL(kind_chem), INTENT(IN) :: hflux(imx,jmx), ts(imx,jmx) - REAL(kind_chem), INTENT(IN) :: ustar(imx,jmx), pblz(imx,jmx) - REAL(kind_chem), INTENT(IN) :: ps(imx,jmx) - INTEGER, INTENT(IN) :: ilwi(imx,jmx) - REAL(kind_chem), INTENT(IN) :: z0(imx,jmx) - REAL(kind_chem), INTENT(IN) :: g0 - REAL(kind_chem), INTENT(OUT) :: dvel(imx,jmx), drydf(imx,jmx) - - REAL(kind_chem) :: obk, vds, czh, rttl, frac, logmfrac, psi_h, cz, eps - REAL(kind_chem) :: vd, ra, rb, rs - INTEGER :: i, j, k, ldt, iolson, ii - CHARACTER(LEN=50) :: msg - REAL(kind_chem) :: prss, tempk, tempc, xnu, ckustr, reyno, aird, diam, xm, z - REAL(kind_chem) :: frpath, speed, dg, dw, rt - REAL(kind_chem) :: rad0, rix, gfact, gfaci, rdc, rixx, rluxx, rgsx, rclx - REAL(kind_chem) :: dtmp1, dtmp2, dtmp3, dtmp4 - REAL(kind_chem) :: biofit,vk - - psi_h=0.0 - ! executable statements - j_loop: DO j = 1,jmx - i_loop: DO i = 1,imx - vk=.4 - vd = 0.0 - ra = 0.0 - rb = 0.0 ! only required for gases (SO2) - rs = 0.0 +! **************************************************************************** + + + IMPLICIT NONE + + INTEGER, INTENT(IN) :: imx,jmx,lmx + REAL(kind_chem), INTENT(IN) :: airden(imx,jmx), delz_sfc(imx,jmx) + REAL(kind_chem), INTENT(IN) :: hflux(imx,jmx), ts(imx,jmx) + REAL(kind_chem), INTENT(IN) :: ustar(imx,jmx), pblz(imx,jmx) + REAL(kind_chem), INTENT(IN) :: ps(imx,jmx) + INTEGER, INTENT(IN) :: ilwi(imx,jmx) + REAL(kind_chem), INTENT(IN) :: z0(imx,jmx) + REAL(kind_chem), INTENT(IN) :: g0 + REAL(kind_chem), INTENT(OUT) :: dvel(imx,jmx), drydf(imx,jmx) + + REAL(kind_chem) :: obk, vds, czh, rttl, frac, logmfrac, psi_h, cz, eps + REAL(kind_chem) :: vd, ra, rb, rs + INTEGER :: i, j, k, ldt, iolson, ii + CHARACTER(LEN=50) :: msg + REAL(kind_chem) :: prss, tempk, tempc, xnu, ckustr, reyno, aird, diam, xm, z + REAL(kind_chem) :: frpath, speed, dg, dw, rt + REAL(kind_chem) :: rad0, rix, gfact, gfaci, rdc, rixx, rluxx, rgsx, rclx + REAL(kind_chem) :: dtmp1, dtmp2, dtmp3, dtmp4 + REAL(kind_chem) :: biofit,vk + + psi_h=0.0 + ! executable statements + j_loop: DO j = 1,jmx + i_loop: DO i = 1,imx + vk=.4 + vd = 0.0 + ra = 0.0 + rb = 0.0 ! only required for gases (SO2) + rs = 0.0 ! **************************************************************************** ! * Compute the the Monin-Obhukov length. * @@ -152,19 +152,19 @@ SUBROUTINE depvel_gocart( & ! * vK = 0.4 = von Karman's constant * ! **************************************************************************** - IF (hflux(i,j) == 0.0) THEN - obk = 1.0E5 - ELSE - ! MINVAL(hflux), MINVAL(airden), MINVAL(ustar) =?? - obk = -airden(i,j) * 1000.0 * ts(i,j) * (ustar(i,j))**3 & - / (vk * g0 * hflux(i,j)) + IF (hflux(i,j) == 0.0) THEN + obk = 1.0E5 + ELSE + ! MINVAL(hflux), MINVAL(airden), MINVAL(ustar) =?? + obk = -airden(i,j) * 1000.0 * ts(i,j) * (ustar(i,j))**3 & + / (vk * g0 * hflux(i,j)) ! -- debug: - IF ( obk == 0.0 ) WRITE(*,211) obk, i, j -211 FORMAT(1X,'OBK=', E11.2, 1X,' i,j = ', 2I4) - - END IF + IF ( obk == 0.0 ) WRITE(*,211) obk, i, j +211 FORMAT(1X,'OBK=', E11.2, 1X,' i,j = ', 2I4) + + END IF - cz = delz_sfc(i,j) / 2.0 ! center of the grid box above surface + cz = delz_sfc(i,j) / 2.0 ! center of the grid box above surface ! **************************************************************************** ! * (1) Aerosodynamic resistance Ra and sublayer resistance Rb. * @@ -207,40 +207,40 @@ SUBROUTINE depvel_gocart( & ! * * ! **************************************************************************** - frac = cz / obk - IF (frac > 1.0) frac = 1.0 - IF (frac > 0.0 .AND. frac <= 1.0) THEN - psi_h = -5.0*frac - ELSE IF (frac < 0.0) THEN - eps = MIN(1.0D0, -frac) - logmfrac = LOG(eps) - psi_h = EXP( 0.598 + 0.39 * logmfrac - 0.09 * (logmfrac)**2 ) - END IF - !-------------------------------------------------------------- - ! Aerosol species, Rs here is the combination of Rb and Rs. - - ra = (LOG(cz/z0(i,j)) - psi_h) / (vk*ustar(i,j)) - - vds = 0.002*ustar(i,j) - IF (obk < 0.0) & - vds = vds * (1.0+(-300.0/obk)**0.6667) - - czh = pblz(i,j)/obk - IF (czh < -30.0) vds = 0.0009*ustar(i,j)*(-czh)**0.6667 - - ! --Set Vds to be less than VDSMAX (entry in input file divided -- - ! by 1.E4). VDSMAX is taken from Table 2 of Walcek et al. [1986]. - ! Invert to get corresponding R - if(ii.eq.1)then - rs=1.0/MIN(vds,2.0D-2) - else - rs=1.0/MIN(vds,2.0D-3) - endif - - - ! ------ Set max and min values for bulk surface resistances ------ - - rs= MAX(1.0D0, MIN(rs, 9.9990D+3)) + frac = cz / obk + IF (frac > 1.0) frac = 1.0 + IF (frac > 0.0 .AND. frac <= 1.0) THEN + psi_h = -5.0*frac + ELSE IF (frac < 0.0) THEN + eps = MIN(1.0D0, -frac) + logmfrac = LOG(eps) + psi_h = EXP( 0.598 + 0.39 * logmfrac - 0.09 * (logmfrac)**2 ) + END IF + !-------------------------------------------------------------- + ! Aerosol species, Rs here is the combination of Rb and Rs. + + ra = (LOG(cz/z0(i,j)) - psi_h) / (vk*ustar(i,j)) + + vds = 0.002*ustar(i,j) + IF (obk < 0.0) & + vds = vds * (1.0+(-300.0/obk)**0.6667) + + czh = pblz(i,j)/obk + IF (czh < -30.0) vds = 0.0009*ustar(i,j)*(-czh)**0.6667 + + ! --Set Vds to be less than VDSMAX (entry in input file divided -- + ! by 1.E4). VDSMAX is taken from Table 2 of Walcek et al. [1986]. + ! Invert to get corresponding R + if(ii.eq.1)then + rs=1.0/MIN(vds,2.0D-2) + else + rs=1.0/MIN(vds,2.0D-3) + endif + + + ! ------ Set max and min values for bulk surface resistances ------ + + rs= MAX(1.0D0, MIN(rs, 9.9990D+3)) ! **************************************************************************** ! * * @@ -255,23 +255,23 @@ SUBROUTINE depvel_gocart( & ! * * ! **************************************************************************** - rttl = ra + rb + rs - vd = vd + 1./rttl + rttl = ra + rb + rs + vd = vd + 1./rttl - ! ------ Load array DVEL ------ - dvel(i,j) = vd * 1.2 + ! ------ Load array DVEL ------ + dvel(i,j) = vd * 1.2 - ! -- Set a minimum value for DVEL - ! MIN(VdSO2) = 2.0e-3 m/s over ice - ! = 3.0e-3 m/s over land - ! MIN(vd_aerosol) = 1.0e-4 m/s + ! -- Set a minimum value for DVEL + ! MIN(VdSO2) = 2.0e-3 m/s over ice + ! = 3.0e-3 m/s over land + ! MIN(vd_aerosol) = 1.0e-4 m/s - IF (dvel(i,j) < 1.0E-4) dvel(i,j) = 1.0E-4 - drydf(i,j) = dvel(i,j) / delz_sfc(i,j) + IF (dvel(i,j) < 1.0E-4) dvel(i,j) = 1.0E-4 + drydf(i,j) = dvel(i,j) / delz_sfc(i,j) - END DO i_loop - END DO j_loop + END DO i_loop + END DO j_loop -END SUBROUTINE depvel_gocart + END SUBROUTINE depvel_gocart end module drydep_gocart_mod diff --git a/src/drydep_wesely_mod.F90 b/src/drydep_wesely_mod.F90 index 30f604dd..8bd71e25 100644 --- a/src/drydep_wesely_mod.F90 +++ b/src/drydep_wesely_mod.F90 @@ -3,104 +3,104 @@ module drydep_wesely_mod - use catchem_config, GOCART_SIMPLE => CHEM_OPT_GOCART, chem_opt=>chem_opt + use catchem_config, GOCART_SIMPLE => CHEM_OPT_GOCART, chem_opt=>chem_opt - implicit none + implicit none !-------------------------------------------------- ! many of these parameters will depend on the RADM mechanism! ! if you change it, lets talk about it and get it done!!! !-------------------------------------------------- - INTEGER, PARAMETER :: dep_seasons = 5 - INTEGER, PARAMETER :: nlu = 25 - REAL, parameter :: small_value = 1.e-36 - REAL, parameter :: large_value = 1.e36 + INTEGER, PARAMETER :: dep_seasons = 5 + INTEGER, PARAMETER :: nlu = 25 + REAL, parameter :: small_value = 1.e-36 + REAL, parameter :: large_value = 1.e36 !-------------------------------------------------- ! following currently hardwired to USGS !-------------------------------------------------- - integer, parameter :: isice_temp = 24 - integer, parameter :: iswater_temp = 16 - integer, parameter :: wrf2mz_lt_map(nlu) = (/ 1, 2, 2, 2, 2, & - 4, 3, 3, 3, 3, & - 4, 5, 4, 5, 6, & - 7, 9, 6, 8, 9, & - 6, 6, 8, 0, 0 /) - real, parameter :: wh2o = 18.0153 - real, parameter :: wpan = 121.04793 - real, PARAMETER :: KARMAN=0.4 - INTEGER, parameter :: luse2usgs(21) = (/14,13,12,11,15,8,9,10,10,7, & - 17,4,1,5,24,19,16,21,22,23,16 /) - character(len=4), parameter :: mminlu = 'USGS' - - INTEGER :: month = 0 - INTEGER :: ixxxlu(nlu) -! include modis landuse + integer, parameter :: isice_temp = 24 + integer, parameter :: iswater_temp = 16 + integer, parameter :: wrf2mz_lt_map(nlu) = (/ 1, 2, 2, 2, 2, & + 4, 3, 3, 3, 3, & + 4, 5, 4, 5, 6, & + 7, 9, 6, 8, 9, & + 6, 6, 8, 0, 0 /) + real, parameter :: wh2o = 18.0153 + real, parameter :: wpan = 121.04793 + real, PARAMETER :: KARMAN=0.4 + INTEGER, parameter :: luse2usgs(21) = (/14,13,12,11,15,8,9,10,10,7, & + 17,4,1,5,24,19,16,21,22,23,16 /) + character(len=4), parameter :: mminlu = 'USGS' + + INTEGER :: month = 0 + INTEGER :: ixxxlu(nlu) +! include modis landuse !-- - REAL :: kpart(nlu) - REAL :: rac(nlu,dep_seasons), rclo(nlu,dep_seasons), rcls(nlu,dep_seasons) - REAL :: rgso(nlu,dep_seasons), rgss(nlu,dep_seasons) - REAL :: ri(nlu,dep_seasons), rlu(nlu,dep_seasons) - REAL :: ri_pan(5,11) - real :: c0_pan(11) = (/ 0.000, 0.006, 0.002, 0.009, 0.015, & - 0.006, 0.000, 0.000, 0.000, 0.002, 0.002 /) - real :: k_pan (11) = (/ 0.000, 0.010, 0.005, 0.004, 0.003, & - 0.005, 0.000, 0.000, 0.000, 0.075, 0.002 /) + REAL :: kpart(nlu) + REAL :: rac(nlu,dep_seasons), rclo(nlu,dep_seasons), rcls(nlu,dep_seasons) + REAL :: rgso(nlu,dep_seasons), rgss(nlu,dep_seasons) + REAL :: ri(nlu,dep_seasons), rlu(nlu,dep_seasons) + REAL :: ri_pan(5,11) + real :: c0_pan(11) = (/ 0.000, 0.006, 0.002, 0.009, 0.015, & + 0.006, 0.000, 0.000, 0.000, 0.002, 0.002 /) + real :: k_pan (11) = (/ 0.000, 0.010, 0.005, 0.004, 0.003, & + 0.005, 0.000, 0.000, 0.000, 0.075, 0.002 /) !-------------------------------------------------- ! NO MORE THAN 1000 SPECIES FOR DEPOSITION !-------------------------------------------------- - REAL :: dratio(1000), hstar(1000), hstar4(1000) - REAL :: f0(1000), dhr(1000), scpr23(1000) + REAL :: dratio(1000), hstar(1000), hstar4(1000) + REAL :: f0(1000), dhr(1000), scpr23(1000) - type wesely_pft - integer :: npft - integer :: months - INTEGER, pointer :: seasonal_wes(:,:,:,:) - logical :: is_allocated - end type wesely_pft + type wesely_pft + integer :: npft + integer :: months + INTEGER, pointer :: seasonal_wes(:,:,:,:) + logical :: is_allocated + end type wesely_pft - !type(wesely_pft), allocatable :: seasonal_pft(:) - type(wesely_pft) :: seasonal_pft + !type(wesely_pft), allocatable :: seasonal_pft(:) + type(wesely_pft) :: seasonal_pft !-------------------------------------------------- ! .. Default Accessibility .. !-------------------------------------------------- - PUBLIC + PUBLIC - logical, allocatable :: is_aerosol(:) ! true if field is aerosol (any phase) + logical, allocatable :: is_aerosol(:) ! true if field is aerosol (any phase) - CONTAINS +CONTAINS -SUBROUTINE wesely_driver( current_month, julday, & - t_phy,moist, p8w, raincv, & - p_phy, ddvel, ivgtyp,tsk, gsw, vegfra, & - rmol, ust, znt, delz_at_w, snowh ) + SUBROUTINE wesely_driver( current_month, julday, & + t_phy,moist, p8w, raincv, & + p_phy, ddvel, ivgtyp,tsk, gsw, vegfra, & + rmol, ust, znt, delz_at_w, snowh ) !-------------------------------------------------- ! Wesely dry dposition driver !-------------------------------------------------- - INTEGER, INTENT(IN ) :: julday, current_month - INTEGER, INTENT(IN ) :: ivgtyp + INTEGER, INTENT(IN ) :: julday, current_month + INTEGER, INTENT(IN ) :: ivgtyp !-------------------------------------------------- ! advected moisture variables !-------------------------------------------------- - REAL, DIMENSION( num_moist ), INTENT(IN ) :: & - moist + REAL, DIMENSION( num_moist ), INTENT(IN ) :: & + moist !-------------------------------------------------- ! deposition velocities !-------------------------------------------------- - REAL, DIMENSION( num_chem ), INTENT(INOUT ) :: & - ddvel + REAL, DIMENSION( num_chem ), INTENT(INOUT ) :: & + ddvel !-------------------------------------------------- ! input from met model !-------------------------------------------------- - REAL, INTENT(IN ) :: t_phy,p_phy,p8w,delz_at_w,snowh - REAL, INTENT(INOUT ) :: tsk,gsw,vegfra,rmol,ust, & - raincv,znt + REAL, INTENT(IN ) :: t_phy,p_phy,p8w,delz_at_w,snowh + REAL, INTENT(INOUT ) :: tsk,gsw,vegfra,rmol,ust, & + raincv,znt !-------------------------------------------------- ! .. Local Scalars !-------------------------------------------------- @@ -118,16 +118,16 @@ SUBROUTINE wesely_driver( current_month, julday, & REAL :: aer_res_zcen !----------------------------------------------------------- -! necessary for aerosols (module dependent) +! necessary for aerosols (module dependent) !----------------------------------------------------------- real :: rcx(numgas) !----------------------------------------------------------- ! .. Intrinsic Functions !----------------------------------------------------------- -! integer :: chem_opt - - INTRINSIC max, min +! integer :: chem_opt + + INTRINSIC max, min ! chem_opt = chem_opt @@ -137,9 +137,9 @@ SUBROUTINE wesely_driver( current_month, julday, & ! CALL wrf_debug(15,'in dry_dep_wesely') if( chem_opt /= MOZART_KPP .and. & - chem_opt /= MOZCART_KPP .and. & - chem_opt /= MOZART_MOSAIC_4BIN_KPP .and. & - chem_opt /= MOZART_MOSAIC_4BIN_AQ_KPP) then + chem_opt /= MOZCART_KPP .and. & + chem_opt /= MOZART_MOSAIC_4BIN_KPP .and. & + chem_opt /= MOZART_MOSAIC_4BIN_AQ_KPP) then if( julday < 90 .or. julday > 270 ) then iseason = 2 ! CALL wrf_debug(15,'setting iseason to 2') @@ -155,23 +155,23 @@ SUBROUTINE wesely_driver( current_month, julday, & !-- if( chem_opt == MOZART_KPP .or. & - chem_opt == MOZCART_KPP .or. & - chem_opt == MOZART_MOSAIC_4BIN_KPP .or. & - chem_opt == MOZART_MOSAIC_4BIN_AQ_KPP) then - if( snowh < .01 ) then + chem_opt == MOZCART_KPP .or. & + chem_opt == MOZART_MOSAIC_4BIN_KPP .or. & + chem_opt == MOZART_MOSAIC_4BIN_AQ_KPP) then + if( snowh < .01 ) then !iseason = seasonal_pft%seasonal_wes(i,j,iland,current_month) if (current_month.GE.3 .AND. CURRENT_MONTH .LE.5) then - iseason=1 + iseason=1 else if & (current_month.GE.6 .AND. CURRENT_MONTH .LE.8) then - iseason=2 - else if & + iseason=2 + else if & (current_month.GE.9 .AND. CURRENT_MONTH .LE.11) then iseason=3 else iseason=4 endif - + else iseason = 4 endif @@ -196,7 +196,7 @@ SUBROUTINE wesely_driver( current_month, julday, & endif endif rhchem = MIN( 100.,100. * moist(p_qv) / & - (3.80*exp(17.27*(t_phy-273.)/(t_phy-36.))/pa)) + (3.80*exp(17.27*(t_phy-273.)/(t_phy-36.))/pa)) rhchem = MAX(5.,RHCHEM) if (rhchem >= 95.) wetflag = .true. @@ -211,13 +211,13 @@ SUBROUTINE wesely_driver( current_month, julday, & !----------------------------------------------------------- ! if(snowc(i,j).gt.0.)iseason=4 CALL rc( rcx, ta, rad, rhchem, iland, & - iseason, numgas, wetflag, rainflag, highnh3, & - iprt, moist(p_qv), p8w ) + iseason, numgas, wetflag, rainflag, highnh3, & + iprt, moist(p_qv), p8w ) if( chem_opt /= MOZART_KPP .and. & - chem_opt /= MOZCART_KPP .and. & - chem_opt /= MOZART_MOSAIC_4BIN_KPP .and. & - chem_opt /= MOZART_MOSAIC_4BIN_AQ_KPP) then + chem_opt /= MOZCART_KPP .and. & + chem_opt /= MOZART_MOSAIC_4BIN_KPP .and. & + chem_opt /= MOZART_MOSAIC_4BIN_AQ_KPP) then srfres(1:numgas-2) = rcx(1:numgas-2) srfres(numgas-1:numgas) = 0. else @@ -228,7 +228,7 @@ SUBROUTINE wesely_driver( current_month, julday, & aer_res_def = 0. aer_res_zcen = 0. CALL landusevg( ddvel0d, ustar, rmol, zntt, z1, dvpart, iland, & - numgas, srfres, aer_res_def, aer_res_zcen, p_sulf ) + numgas, srfres, aer_res_def, aer_res_zcen, p_sulf ) !----------------------------------------------------------- !wig: CBMZ does not have HO and HO2 last so need to copy all species @@ -236,33 +236,33 @@ SUBROUTINE wesely_driver( current_month, julday, & !----------------------------------------------------------- ddvel(1:numgas) = ddvel0d(1:numgas) if ( (chem_opt == RADM2 ) .or. & - (chem_opt == RADM2SORG ) .or. & - (chem_opt == RADM2SORG_AQ ) .or. & - (chem_opt == RADM2SORG_AQCHEM) ) then + (chem_opt == RADM2SORG ) .or. & + (chem_opt == RADM2SORG_AQ ) .or. & + (chem_opt == RADM2SORG_AQCHEM) ) then ! ddvel(i,j,p_hcl) = ddvel(i,j,p_hno3) end if - + !----------------------------------------------------------- ! For the additional CBMZ species, assign similar RADM counter parts for ! now. Short lived species get a zero velocity since dry dep should be ! unimportant. **ALSO**, treat p_sulf as h2so4 vapor, not aerosol sulfate !----------------------------------------------------------- if ( (chem_opt == CBMZ ) .or. & - (chem_opt == CBMZ_BB ) .or. & - (chem_opt == CBMZ_BB_KPP ) .or. & - (chem_opt == CBMZ_MOSAIC_KPP ) .or. & - (chem_opt == CBMZ_MOSAIC_4BIN_AQ) .or. & - (chem_opt == CBMZ_MOSAIC_8BIN_AQ) .or. & - (chem_opt == CBMZ_MOSAIC_4BIN) .or. & - (chem_opt == CBMZ_MOSAIC_8BIN) .or. & - (chem_opt == CBMZ_MOSAIC_DMS_4BIN_AQ) .or. & - (chem_opt == CBMZ_MOSAIC_DMS_8BIN_AQ) .or. & - (chem_opt == CBMZ_MOSAIC_DMS_4BIN) .or. & - (chem_opt == CBMZ_MOSAIC_DMS_8BIN) .or. & - (chem_opt == CBMZ_CAM_MAM3_NOAQ ) .or. & - (chem_opt == CBMZ_CAM_MAM3_AQ ) .or. & - (chem_opt == CBMZ_CAM_MAM7_NOAQ ) .or. & - (chem_opt == CBMZ_CAM_MAM7_AQ ) ) then + (chem_opt == CBMZ_BB ) .or. & + (chem_opt == CBMZ_BB_KPP ) .or. & + (chem_opt == CBMZ_MOSAIC_KPP ) .or. & + (chem_opt == CBMZ_MOSAIC_4BIN_AQ) .or. & + (chem_opt == CBMZ_MOSAIC_8BIN_AQ) .or. & + (chem_opt == CBMZ_MOSAIC_4BIN) .or. & + (chem_opt == CBMZ_MOSAIC_8BIN) .or. & + (chem_opt == CBMZ_MOSAIC_DMS_4BIN_AQ) .or. & + (chem_opt == CBMZ_MOSAIC_DMS_8BIN_AQ) .or. & + (chem_opt == CBMZ_MOSAIC_DMS_4BIN) .or. & + (chem_opt == CBMZ_MOSAIC_DMS_8BIN) .or. & + (chem_opt == CBMZ_CAM_MAM3_NOAQ ) .or. & + (chem_opt == CBMZ_CAM_MAM3_AQ ) .or. & + (chem_opt == CBMZ_CAM_MAM7_NOAQ ) .or. & + (chem_opt == CBMZ_CAM_MAM7_AQ ) ) then ! do j=jts,jte ! do i=its,ite ! ddvel(i,j,p_sulf) = ddvel(i,j,p_hno3) @@ -286,11 +286,11 @@ SUBROUTINE wesely_driver( current_month, julday, & ! ddvel(i,j,p_isopp) = 0 ! ddvel(i,j,p_isopn) = 0 ! ddvel(i,j,p_isopo2) = 0 - if((chem_opt == CBMZ ) .or. & - (chem_opt == CBMZ_MOSAIC_DMS_4BIN) .or. & - (chem_opt == CBMZ_MOSAIC_DMS_8BIN) .or. & - (chem_opt == CBMZ_MOSAIC_DMS_4BIN_AQ) .or. & - (chem_opt == CBMZ_MOSAIC_DMS_8BIN_AQ) ) then + if((chem_opt == CBMZ ) .or. & + (chem_opt == CBMZ_MOSAIC_DMS_4BIN) .or. & + (chem_opt == CBMZ_MOSAIC_DMS_8BIN) .or. & + (chem_opt == CBMZ_MOSAIC_DMS_4BIN_AQ) .or. & + (chem_opt == CBMZ_MOSAIC_DMS_8BIN_AQ) ) then ! ddvel(i,j,p_dms) = 0 ! ddvel(i,j,p_msa) = ddvel(i,j,p_hno3) ! ddvel(i,j,p_dmso) = 0 @@ -302,18 +302,18 @@ SUBROUTINE wesely_driver( current_month, julday, & ! ddvel(i,j,p_ch3so2oo) = 0 ! ddvel(i,j,p_ch3so2ch2oo) = 0 ! ddvel(i,j,p_mtf) = 0 - end if - if( ( chem_opt == CBMZ_CAM_MAM3_NOAQ ) .or. & - ( chem_opt == CBMZ_CAM_MAM3_AQ ) .or. & - ( chem_opt == CBMZ_CAM_MAM7_NOAQ ) .or. & - ( chem_opt == CBMZ_CAM_MAM7_AQ ) ) then + end if + if( ( chem_opt == CBMZ_CAM_MAM3_NOAQ ) .or. & + ( chem_opt == CBMZ_CAM_MAM3_AQ ) .or. & + ( chem_opt == CBMZ_CAM_MAM7_NOAQ ) .or. & + ( chem_opt == CBMZ_CAM_MAM7_AQ ) ) then ! ddvel(i,j,p_soag) = 0.0 - end if + end if ! end do ! end do end if ! - if (chem_opt == RACMSOAVBS_KPP) then + if (chem_opt == RACMSOAVBS_KPP) then ! do j=jts,jte ! do i=its,ite ! ddvel(i,j,p_cvasoa1) = dep_vap*ddvel(i,j,p_hno3) @@ -372,15 +372,15 @@ SUBROUTINE wesely_driver( current_month, julday, & ! For gocartracm,radm !----------------------------------------------------------- if ((chem_opt == GOCARTRACM_KPP) .OR. & - (chem_opt == GOCARTRADM2)) then + (chem_opt == GOCARTRADM2)) then ! do j=jts,jte ! do i=its,ite ! ddvel(i,j,p_sulf) = 0. ! ddvel(i,j,p_dms) = 0. ! ddvel(i,j,p_msa) = ddvel(i,j,p_hno3) - if( chem_opt == GOCARTRADM2 ) then + if( chem_opt == GOCARTRADM2 ) then ! ddvel(i,j,p_hcl) = ddvel(i,j,p_hno3) - end if + end if ! end do ! end do end if @@ -396,9 +396,9 @@ SUBROUTINE wesely_driver( current_month, julday, & ! For mozart !----------------------------------------------------------- if( chem_opt == MOZART_KPP .or. & - chem_opt == MOZCART_KPP .or. & - chem_opt == MOZART_MOSAIC_4BIN_KPP .or. & - chem_opt == MOZART_MOSAIC_4BIN_AQ_KPP ) then + chem_opt == MOZCART_KPP .or. & + chem_opt == MOZART_MOSAIC_4BIN_KPP .or. & + chem_opt == MOZART_MOSAIC_4BIN_AQ_KPP ) then ! do j=jts,jte ! do i=its,ite ! ddvel(i,j,p_mpan) = ddvel(i,j,p_mpan)/3. @@ -448,8 +448,8 @@ SUBROUTINE wesely_driver( current_month, julday, & ! ddvel(i,j,p_meko2) = 0. ! ddvel(i,j,p_sulf) = 0. ! ddvel(i,j,p_dms) = 0. - IF ( chem_opt == MOZART_MOSAIC_4BIN_KPP .OR. & - chem_opt == MOZART_MOSAIC_4BIN_AQ_KPP) THEN + IF ( chem_opt == MOZART_MOSAIC_4BIN_KPP .OR. & + chem_opt == MOZART_MOSAIC_4BIN_AQ_KPP) THEN ! ddvel(i,j,p_benzene) = 0. ! ddvel(i,j,p_phen) = 0. ! ddvel(i,j,p_bepomuc) = 0. @@ -480,147 +480,147 @@ SUBROUTINE wesely_driver( current_month, julday, & ! ddvel(i,j,p_xyleno2) = 0. ! ddvel(i,j,p_xylenooh) = ddvel(i,j,p_h2o2) - IF ( chem_opt == MOZART_MOSAIC_4BIN_KPP) THEN + IF ( chem_opt == MOZART_MOSAIC_4BIN_KPP) THEN ! ddvel(i,j,p_voca) = 0. ! ddvel(i,j,p_vocbb) = 0. ! ddvel(i,j,p_smpa) = 0. ! ddvel(i,j,p_smpbb) = 0. - ENDIF + ENDIF - ENDIF + ENDIF ! end do - if ( chem_opt == MOZCART_KPP ) then + if ( chem_opt == MOZCART_KPP ) then ! ddvel(its:ite,j,p_sulf) = 0. - end if + end if ! end do end if - + !----------------------------------------------------------- ! For CRI !----------------------------------------------------------- if( chem_opt == crimech_kpp .or. & - chem_opt == cri_mosaic_8bin_aq_kpp .or. & - chem_opt == cri_mosaic_4bin_aq_kpp ) then + chem_opt == cri_mosaic_8bin_aq_kpp .or. & + chem_opt == cri_mosaic_4bin_aq_kpp ) then ! do j=jts,jte ! do i=its,ite ! need to add deposition rates for crimech species here ! ddvel(i,j,p_ch3co2h) = 0. -! ddvel(i,j,p_clno2) = 0. -! !ddvel(i,j,p_n2o5 ) = 0. -! !ddvel(i,j,p_o1d) = 0. -! !ddvel(i,j,p_o3p) = 0. -! ddvel(i,j,p_c2h6) = 0. -! ddvel(i,j,p_aco3) = 0. -! !ddvel(i,j,p_ch3oo) = 0. -! ddvel(i,j,p_hso3) = 0. -! ddvel(i,j,p_so3) = 0. -! ddvel(i,j,p_c3h8) = 0. -! ddvel(i,j,p_nc4h10) = 0. -! ddvel(i,j,p_c5h8) = 0. -! ddvel(i,j,p_benzene) = 0. -! ddvel(i,j,p_toluene) = 0. -! ddvel(i,j,p_oxyl) = 0. -! ddvel(i,j,p_npropol) = 0. -!! ddvel(i,j,p_c2h2) = 0. -! ddvel(i,j,p_c3h6) = 0. -! ddvel(i,j,p_c2h4) = 0. -! ddvel(i,j,p_tbut2ene) = 0. -! ddvel(i,j,p_mek) = 0. -! ddvel(i,j,p_ipropol) = 0. -! ddvel(i,j,p_apinene) = 0. -! ddvel(i,j,p_bpinene) = 0. -! !ddvel(i,j,p_c2h5co3) = 0. -! !ddvel(i,j,p_hoch2co3) = 0. -! ddvel(i,j,p_ch3cl) = 0. -! ddvel(i,j,p_ch2cl2) = 0. -! ddvel(i,j,p_chcl3) = 0. -! ddvel(i,j,p_ch3ccl3) = 0. -! ddvel(i,j,p_cdicleth) = 0. -! ddvel(i,j,p_tdicleth) = 0. -! ddvel(i,j,p_tricleth ) = 0. -! ddvel(i,j,p_tce) = 0. -! ddvel(i,j,p_noa) = 0. -! ddvel(i,j,p_aroh14) = 0. -! ddvel(i,j,p_raroh14) = 0. -! ddvel(i,j,p_arnoh14) = 0. -! ddvel(i,j,p_aroh17) = 0. -! ddvel(i,j,p_raroh17) = 0. -! ddvel(i,j,p_arnoh17) = 0. -! ddvel(i,j,p_anhy) = 0. -! ddvel(i,j,p_ch4) = 0. -! ddvel(i,j,p_sulf) = ddvel(i,j,p_hno3) -! ddvel(i,j,p_hcl) = ddvel(i,j,p_hno3) -! ddvel(i,j,p_h2) = 0. -! ddvel(i,j,p_tm123b) = 0. -! ddvel(i,j,p_tm124b) = 0. -! ddvel(i,j,p_tm135b) = 0. -! ddvel(i,j,p_oethtol) = 0. -! ddvel(i,j,p_methtol) = 0. -! ddvel(i,j,p_pethtol) = 0. -! ddvel(i,j,p_dime35eb) = 0. -! ddvel(i,j,p_dms) = 0. +! ddvel(i,j,p_clno2) = 0. +! !ddvel(i,j,p_n2o5 ) = 0. +! !ddvel(i,j,p_o1d) = 0. +! !ddvel(i,j,p_o3p) = 0. +! ddvel(i,j,p_c2h6) = 0. +! ddvel(i,j,p_aco3) = 0. +! !ddvel(i,j,p_ch3oo) = 0. +! ddvel(i,j,p_hso3) = 0. +! ddvel(i,j,p_so3) = 0. +! ddvel(i,j,p_c3h8) = 0. +! ddvel(i,j,p_nc4h10) = 0. +! ddvel(i,j,p_c5h8) = 0. +! ddvel(i,j,p_benzene) = 0. +! ddvel(i,j,p_toluene) = 0. +! ddvel(i,j,p_oxyl) = 0. +! ddvel(i,j,p_npropol) = 0. +!! ddvel(i,j,p_c2h2) = 0. +! ddvel(i,j,p_c3h6) = 0. +! ddvel(i,j,p_c2h4) = 0. +! ddvel(i,j,p_tbut2ene) = 0. +! ddvel(i,j,p_mek) = 0. +! ddvel(i,j,p_ipropol) = 0. +! ddvel(i,j,p_apinene) = 0. +! ddvel(i,j,p_bpinene) = 0. +! !ddvel(i,j,p_c2h5co3) = 0. +! !ddvel(i,j,p_hoch2co3) = 0. +! ddvel(i,j,p_ch3cl) = 0. +! ddvel(i,j,p_ch2cl2) = 0. +! ddvel(i,j,p_chcl3) = 0. +! ddvel(i,j,p_ch3ccl3) = 0. +! ddvel(i,j,p_cdicleth) = 0. +! ddvel(i,j,p_tdicleth) = 0. +! ddvel(i,j,p_tricleth ) = 0. +! ddvel(i,j,p_tce) = 0. +! ddvel(i,j,p_noa) = 0. +! ddvel(i,j,p_aroh14) = 0. +! ddvel(i,j,p_raroh14) = 0. +! ddvel(i,j,p_arnoh14) = 0. +! ddvel(i,j,p_aroh17) = 0. +! ddvel(i,j,p_raroh17) = 0. +! ddvel(i,j,p_arnoh17) = 0. +! ddvel(i,j,p_anhy) = 0. +! ddvel(i,j,p_ch4) = 0. +! ddvel(i,j,p_sulf) = ddvel(i,j,p_hno3) +! ddvel(i,j,p_hcl) = ddvel(i,j,p_hno3) +! ddvel(i,j,p_h2) = 0. +! ddvel(i,j,p_tm123b) = 0. +! ddvel(i,j,p_tm124b) = 0. +! ddvel(i,j,p_tm135b) = 0. +! ddvel(i,j,p_oethtol) = 0. +! ddvel(i,j,p_methtol) = 0. +! ddvel(i,j,p_pethtol) = 0. +! ddvel(i,j,p_dime35eb) = 0. +! ddvel(i,j,p_dms) = 0. ! ddvel(i,j,p_ch3sch2oo) = 0. -! ddvel(i,j,p_dmso) = 0. -! ddvel(i,j,p_ch3s) = 0. +! ddvel(i,j,p_dmso) = 0. +! ddvel(i,j,p_ch3s) = 0. ! ddvel(i,j,p_ch3so) = 0. ! ddvel(i,j,p_ch3so3) = 0. -! ddvel(i,j,p_msa) = 0. +! ddvel(i,j,p_msa) = 0. ! ddvel(i,j,p_msia) = 0. -! ddvel(i,j,p_ho) = 0. +! ddvel(i,j,p_ho) = 0. ! ddvel(i,j,p_ho2) = 0. -! ddvel(i,j,p_ch3oo) = 0. -! ddvel(i,j,p_c2h5o2) = 0. +! ddvel(i,j,p_ch3oo) = 0. +! ddvel(i,j,p_c2h5o2) = 0. ! ddvel(i,j,p_hoch2ch2o2) = 0. ! ddvel(i,j,p_ic3h7o2) = 0. -! ddvel(i,j,p_rn10o2) = 0. -! ddvel(i,j,p_rn13o2) = 0. -! ddvel(i,j,p_rn16o2) = 0. -! ddvel(i,j,p_rn19o2) = 0. -! ddvel(i,j,p_rn9o2) = 0. -! ddvel(i,j,p_rn12o2) = 0. -! ddvel(i,j,p_rn15o2) = 0. -! ddvel(i,j,p_rn18o2) = 0. -! ddvel(i,j,p_nrn6o2) = 0. -! ddvel(i,j,p_nrn9o2) = 0. -! ddvel(i,j,p_nrn12o2) = 0. -! ddvel(i,j,p_rn11o2) = 0. -! ddvel(i,j,p_rn14o2) = 0. -! ddvel(i,j,p_rn8o2) = 0. -! ddvel(i,j,p_rn17o2) = 0. -! ddvel(i,j,p_rn13ao2) = 0. -! ddvel(i,j,p_rn16ao2) = 0. -! ddvel(i,j,p_rn15ao2) = 0. -! ddvel(i,j,p_rn18ao2) = 0. -! ddvel(i,j,p_ru14o2) = 0. -! ddvel(i,j,p_ru12o2) = 0. -! ddvel(i,j,p_ru10o2) = 0. -! ddvel(i,j,p_nru14o2) = 0. -! ddvel(i,j,p_nru12o2) = 0. -! ddvel(i,j,p_ra13o2) = 0. -! ddvel(i,j,p_ra16o2) = 0. -! ddvel(i,j,p_ra19ao2) = 0. -! ddvel(i,j,p_ra19co2) = 0. -! ddvel(i,j,p_rtn28o2) = 0. -! ddvel(i,j,p_rtn26o2) = 0. -! ddvel(i,j,p_nrtn28o2) = 0. -! ddvel(i,j,p_rtn25o2) = 0. -! ddvel(i,j,p_rtn24o2) = 0. -! ddvel(i,j,p_rtn23o2) = 0. -! ddvel(i,j,p_rtn14o2) = 0. -! ddvel(i,j,p_rtn10o2) = 0. -! ddvel(i,j,p_rtx28o2) = 0. -! ddvel(i,j,p_rtx24o2) = 0. -! ddvel(i,j,p_rtx22o2) = 0. -! ddvel(i,j,p_nrtx28o2) = 0. -! ddvel(i,j,p_ch3o2no2) = 0. +! ddvel(i,j,p_rn10o2) = 0. +! ddvel(i,j,p_rn13o2) = 0. +! ddvel(i,j,p_rn16o2) = 0. +! ddvel(i,j,p_rn19o2) = 0. +! ddvel(i,j,p_rn9o2) = 0. +! ddvel(i,j,p_rn12o2) = 0. +! ddvel(i,j,p_rn15o2) = 0. +! ddvel(i,j,p_rn18o2) = 0. +! ddvel(i,j,p_nrn6o2) = 0. +! ddvel(i,j,p_nrn9o2) = 0. +! ddvel(i,j,p_nrn12o2) = 0. +! ddvel(i,j,p_rn11o2) = 0. +! ddvel(i,j,p_rn14o2) = 0. +! ddvel(i,j,p_rn8o2) = 0. +! ddvel(i,j,p_rn17o2) = 0. +! ddvel(i,j,p_rn13ao2) = 0. +! ddvel(i,j,p_rn16ao2) = 0. +! ddvel(i,j,p_rn15ao2) = 0. +! ddvel(i,j,p_rn18ao2) = 0. +! ddvel(i,j,p_ru14o2) = 0. +! ddvel(i,j,p_ru12o2) = 0. +! ddvel(i,j,p_ru10o2) = 0. +! ddvel(i,j,p_nru14o2) = 0. +! ddvel(i,j,p_nru12o2) = 0. +! ddvel(i,j,p_ra13o2) = 0. +! ddvel(i,j,p_ra16o2) = 0. +! ddvel(i,j,p_ra19ao2) = 0. +! ddvel(i,j,p_ra19co2) = 0. +! ddvel(i,j,p_rtn28o2) = 0. +! ddvel(i,j,p_rtn26o2) = 0. +! ddvel(i,j,p_nrtn28o2) = 0. +! ddvel(i,j,p_rtn25o2) = 0. +! ddvel(i,j,p_rtn24o2) = 0. +! ddvel(i,j,p_rtn23o2) = 0. +! ddvel(i,j,p_rtn14o2) = 0. +! ddvel(i,j,p_rtn10o2) = 0. +! ddvel(i,j,p_rtx28o2) = 0. +! ddvel(i,j,p_rtx24o2) = 0. +! ddvel(i,j,p_rtx22o2) = 0. +! ddvel(i,j,p_nrtx28o2) = 0. +! ddvel(i,j,p_ch3o2no2) = 0. ! ddvel(i,j,p_ra22ao2) = 0. ! ddvel(i,j,p_ra22bo2) = 0. ! ddvel(i,j,p_ra25o2) = 0. ! ddvel(i,j,p_ch3so2) = 0. -! ddvel(i,j,p_dmso2 ) = 0. -! +! ddvel(i,j,p_dmso2 ) = 0. +! ! end do ! end do @@ -786,11 +786,11 @@ SUBROUTINE wesely_driver( current_month, julday, & ! end if -END SUBROUTINE wesely_driver + END SUBROUTINE wesely_driver - SUBROUTINE rc( rcx, t, rad, rh, iland, & - iseason, numgas, wetflag, rainflag, highnh3, & - iprt, spec_hum, p_srf ) + SUBROUTINE rc( rcx, t, rad, rh, iland, & + iseason, numgas, wetflag, rainflag, highnh3, & + iprt, spec_hum, p_srf ) !---------------------------------------------------------------------- ! THIS SUBROUTINE CALCULATES SURFACE RESISTENCES ACCORDING ! TO THE MODEL OF @@ -804,52 +804,52 @@ SUBROUTINE rc( rcx, t, rad, rh, iland, & ! FOR MM5 VERSION 3 !---------------------------------------------------------------------- -! USE module_state_description +! USE module_state_description ! USE module_initial_chem_namelists !---------------------------------------------------------------------- ! ... dummy arguments !---------------------------------------------------------------------- - INTEGER, intent(in) :: iland, iseason, numgas - INTEGER, intent(in) :: iprt - REAL, intent(in) :: rad, rh - REAL, intent(in) :: t ! surface temp (K) - REAL, intent(in) :: p_srf ! surface pressure (Pa) - REAL, intent(in) :: spec_hum ! surface specific humidity (kg/kg) - real, intent(out) :: rcx(numgas) - LOGICAL, intent(in) :: highnh3, rainflag, wetflag + INTEGER, intent(in) :: iland, iseason, numgas + INTEGER, intent(in) :: iprt + REAL, intent(in) :: rad, rh + REAL, intent(in) :: t ! surface temp (K) + REAL, intent(in) :: p_srf ! surface pressure (Pa) + REAL, intent(in) :: spec_hum ! surface specific humidity (kg/kg) + real, intent(out) :: rcx(numgas) + LOGICAL, intent(in) :: highnh3, rainflag, wetflag !---------------------------------------------------------------------- ! .. Local Scalars .. !---------------------------------------------------------------------- - REAL, parameter :: t0 = 298. - REAL, parameter :: tmelt = 273.16 - INTEGER :: lt, n - INTEGER :: chem_opt - REAL :: rclx, rdc, resice, rgsx, rluo1, rluo2 - REAL :: rlux, rmx, rs, rsmx, rdtheta, z, wrk - REAL :: qs, es, ws, dewm, dv_pan, drat - REAL :: crs, tc - REAL :: rs_pan, tc_pan - LOGICAL :: has_dew + REAL, parameter :: t0 = 298. + REAL, parameter :: tmelt = 273.16 + INTEGER :: lt, n + INTEGER :: chem_opt + REAL :: rclx, rdc, resice, rgsx, rluo1, rluo2 + REAL :: rlux, rmx, rs, rsmx, rdtheta, z, wrk + REAL :: qs, es, ws, dewm, dv_pan, drat + REAL :: crs, tc + REAL :: rs_pan, tc_pan + LOGICAL :: has_dew !---------------------------------------------------------------------- ! .. Local Arrays .. !---------------------------------------------------------------------- - REAL :: hstary(numgas) + REAL :: hstary(numgas) !---------------------------------------------------------------------- ! .. Intrinsic Functions .. !---------------------------------------------------------------------- - INTRINSIC exp + INTRINSIC exp - chem_opt = chem_opt + chem_opt = chem_opt - rcx(1:numgas) = 1. + rcx(1:numgas) = 1. - tc = t - 273.15 - rdtheta = 0. + tc = t - 273.15 + rdtheta = 0. - z = 200./(rad+0.1) + z = 200./(rad+0.1) !!! HARDWIRE VALUES FOR TESTING ! z=0.4727409 @@ -859,28 +859,28 @@ SUBROUTINE rc( rcx, t, rad, rh, iland, & ! rainflag=.false. ! wetflag=.false. - IF ( tc<=0. .OR. tc>=40. ) THEN - rs = 9999. - ELSE - rs = ri(iland,iseason)*(1+z*z)*(400./(tc*(40.-tc))) - END IF - rdc = 100.*(1. + 1000./(rad + 10.))/(1. + 1000.*rdtheta) - rluo1 = 1./(1./3000. + 3./rlu(iland,iseason)) - rluo2 = 1./(1./1000. + 3./rlu(iland,iseason)) - resice = 1000.*exp( -(tc + 4.) ) - wrk = (t0 - t)/(t0*t) - - - DO n = 1, numgas - IF( hstar(n) /= 0. ) then - hstary(n) = hstar(n)*exp( dhr(n)*wrk ) + IF ( tc<=0. .OR. tc>=40. ) THEN + rs = 9999. + ELSE + rs = ri(iland,iseason)*(1+z*z)*(400./(tc*(40.-tc))) + END IF + rdc = 100.*(1. + 1000./(rad + 10.))/(1. + 1000.*rdtheta) + rluo1 = 1./(1./3000. + 3./rlu(iland,iseason)) + rluo2 = 1./(1./1000. + 3./rlu(iland,iseason)) + resice = 1000.*exp( -(tc + 4.) ) + wrk = (t0 - t)/(t0*t) + + + DO n = 1, numgas + IF( hstar(n) /= 0. ) then + hstary(n) = hstar(n)*exp( dhr(n)*wrk ) !---------------------------------------------------------------------- ! SPECIAL TREATMENT FOR HNO3, HNO4, H2O2, PAA !---------------------------------------------------------------------- -is_mozart : if( chem_opt == MOZART_KPP .or. & - chem_opt == MOZCART_KPP .or. & - chem_opt == MOZART_MOSAIC_4BIN_KPP .or. & - chem_opt == MOZART_MOSAIC_4BIN_AQ_KPP ) then + is_mozart : if( chem_opt == MOZART_KPP .or. & + chem_opt == MOZCART_KPP .or. & + chem_opt == MOZART_MOSAIC_4BIN_KPP .or. & + chem_opt == MOZART_MOSAIC_4BIN_AQ_KPP ) then ! if( n == p_hno3 ) then ! hstary(n) = 2.6e6*exp( 8700.*wrk )*1.e5 ! else if( n == p_hno4 ) then @@ -890,82 +890,82 @@ SUBROUTINE rc( rcx, t, rad, rh, iland, & ! else if( n == p_paa ) then ! hstary(n) = hstary(n)*(1. + 1.8e-4*exp( -1510.*wrk )*1.e5) ! end if - endif is_mozart - rmx = 1./(hstary(n)/3000. + 100.*f0(n)) - rsmx = rs*dratio(n) + rmx - if( (chem_opt == MOZART_KPP .or. & - chem_opt == MOZCART_KPP .or. & - chem_opt == MOZART_MOSAIC_4BIN_KPP .or. & - chem_opt == MOZART_MOSAIC_4BIN_AQ_KPP ) .and. & - iseason /= 4 .and. p_pan > 1 ) then - if( iland /= iswater_temp .and. n == p_pan ) then + endif is_mozart + rmx = 1./(hstary(n)/3000. + 100.*f0(n)) + rsmx = rs*dratio(n) + rmx + if( (chem_opt == MOZART_KPP .or. & + chem_opt == MOZCART_KPP .or. & + chem_opt == MOZART_MOSAIC_4BIN_KPP .or. & + chem_opt == MOZART_MOSAIC_4BIN_AQ_KPP ) .and. & + iseason /= 4 .and. p_pan > 1 ) then + if( iland /= iswater_temp .and. n == p_pan ) then !------------------------------------------------------------------------------------- ! saturation vapor pressure (Pascals) ! saturation mixing ratio ! saturation specific humidity !------------------------------------------------------------------------------------- - es = 611.*exp( 5414.77*(t - tmelt)/(tmelt*t) ) - ws = .622*es/(p_srf - es) - qs = ws/(1. + ws) - has_dew = .false. - if( qs <= spec_hum ) then - has_dew = .true. - end if - if( t < tmelt ) then - has_dew = .false. - end if - if( has_dew .or. rainflag ) then - dewm = 3. - else - dewm = 1. - endif - drat = wpan/wh2o - tc_pan = t - tmelt - if( t > tmelt .and. t < 313.15 ) then - crs = (1. + (200./(rad + .1))**2) * (400./(tc_pan*(40. - tc_pan))) - else - crs = large_value - end if - lt = wrf2mz_lt_map(iland) - rs_pan = ri_pan(iseason,lt)*crs - dv_pan = c0_pan(lt) * (1. - exp( -k_pan(lt)*(dewm*rs_pan*drat)*1.e-2 )) - if( dv_pan > 0. ) then - rsmx = 1./dv_pan - end if - endif - endif - rclx = 1./(1.e-5*hstary(n)/rcls(iland,iseason) & - + f0(n)/rclo(iland,iseason)) + resice - rgsx = 1./(1.e-5*hstary(n)/rgss(iland,iseason) & - + f0(n)/rgso(iland,iseason)) + resice - rlux = rlu(iland,iseason)/(1.e-5*hstary(n) + f0(n)) + resice - IF( wetflag ) THEN + es = 611.*exp( 5414.77*(t - tmelt)/(tmelt*t) ) + ws = .622*es/(p_srf - es) + qs = ws/(1. + ws) + has_dew = .false. + if( qs <= spec_hum ) then + has_dew = .true. + end if + if( t < tmelt ) then + has_dew = .false. + end if + if( has_dew .or. rainflag ) then + dewm = 3. + else + dewm = 1. + endif + drat = wpan/wh2o + tc_pan = t - tmelt + if( t > tmelt .and. t < 313.15 ) then + crs = (1. + (200./(rad + .1))**2) * (400./(tc_pan*(40. - tc_pan))) + else + crs = large_value + end if + lt = wrf2mz_lt_map(iland) + rs_pan = ri_pan(iseason,lt)*crs + dv_pan = c0_pan(lt) * (1. - exp( -k_pan(lt)*(dewm*rs_pan*drat)*1.e-2 )) + if( dv_pan > 0. ) then + rsmx = 1./dv_pan + end if + endif + endif + rclx = 1./(1.e-5*hstary(n)/rcls(iland,iseason) & + + f0(n)/rclo(iland,iseason)) + resice + rgsx = 1./(1.e-5*hstary(n)/rgss(iland,iseason) & + + f0(n)/rgso(iland,iseason)) + resice + rlux = rlu(iland,iseason)/(1.e-5*hstary(n) + f0(n)) + resice + IF( wetflag ) THEN rlux = 1./(1./(3.*rlu(iland,iseason)) + 1.e-7*hstary(n) + f0(n)/rluo1) - END IF - IF( rainflag ) THEN + END IF + IF( rainflag ) THEN rlux = 1./(1./(3.*rlu(iland,iseason)) + 1.e-7*hstary(n) + f0(n)/rluo2) - END IF - rcx(n) = 1./(1./rsmx + 1./rlux + 1./(rdc + rclx) + 1./(rac(iland,iseason) + rgsx)) - rcx(n) = max( 1.,rcx(n) ) - end IF - END DO + END IF + rcx(n) = 1./(1./rsmx + 1./rlux + 1./(rdc + rclx) + 1./(rac(iland,iseason) + rgsx)) + rcx(n) = max( 1.,rcx(n) ) + end IF + END DO !-------------------------------------------------- ! SPECIAL TREATMENT FOR OZONE !-------------------------------------------------- - if(p_o3 > 1)then - hstary(p_o3) = hstar(p_o3)*exp( dhr(p_o3)*(298. - t)/(298.*t) ) - rmx = 1./(hstary(p_o3)/3000.+100.*f0(p_o3)) - rsmx = rs*dratio(p_o3) + rmx - rlux = rlu(iland,iseason)/(1.E-5*hstary(p_o3)+f0(p_o3)) + resice - rclx = rclo(iland,iseason) + resice - rgsx = rgso(iland,iseason) + resice - IF (wetflag) rlux = rluo1 - IF (rainflag) rlux = rluo2 - rcx(p_o3) = 1. & - /(1./rsmx+1./rlux+1./(rdc+rclx)+1./(min(100.,rac(iland,iseason))+rgsx)) - rcx(p_o3) = max( 1.,rcx(p_o3) ) - endif + if(p_o3 > 1)then + hstary(p_o3) = hstar(p_o3)*exp( dhr(p_o3)*(298. - t)/(298.*t) ) + rmx = 1./(hstary(p_o3)/3000.+100.*f0(p_o3)) + rsmx = rs*dratio(p_o3) + rmx + rlux = rlu(iland,iseason)/(1.E-5*hstary(p_o3)+f0(p_o3)) + resice + rclx = rclo(iland,iseason) + resice + rgsx = rgso(iland,iseason) + resice + IF (wetflag) rlux = rluo1 + IF (rainflag) rlux = rluo2 + rcx(p_o3) = 1. & + /(1./rsmx+1./rlux+1./(rdc+rclx)+1./(min(100.,rac(iland,iseason))+rgsx)) + rcx(p_o3) = max( 1.,rcx(p_o3) ) + endif ! SPECIAL TREATMENT FOR SO2 (Wesely) ! HSTARY(P_SO2)=HSTAR(P_SO2)*EXP(DHR(P_SO2)*(1./T-1./298.)) @@ -990,217 +990,217 @@ SUBROUTINE rc( rcx, t, rad, rh, iland, & ! SO2 according to Erisman et al. 1994 ! R_STOM !-------------------------------------------------- -is_so2 : & - if( p_so2 > 1 ) then - rsmx = rs*dratio(p_so2) + is_so2 : & + if( p_so2 > 1 ) then + rsmx = rs*dratio(p_so2) !-------------------------------------------------- ! R_EXT !-------------------------------------------------- - IF (tc> -1. ) THEN - IF (rh<81.3) THEN - rlux = 25000.*exp(-0.0693*rh) - ELSE - rlux = 0.58E12*exp(-0.278*rh) - END IF - END IF - IF (((wetflag) .OR. (rainflag)) .AND. (tc> -1. )) THEN - rlux = 1. - END IF - IF ((tc>= -5. ) .AND. (tc<= -1. )) THEN - rlux = 200. - END IF - IF (tc< -5. ) THEN - rlux = 500. - END IF + IF (tc> -1. ) THEN + IF (rh<81.3) THEN + rlux = 25000.*exp(-0.0693*rh) + ELSE + rlux = 0.58E12*exp(-0.278*rh) + END IF + END IF + IF (((wetflag) .OR. (rainflag)) .AND. (tc> -1. )) THEN + rlux = 1. + END IF + IF ((tc>= -5. ) .AND. (tc<= -1. )) THEN + rlux = 200. + END IF + IF (tc< -5. ) THEN + rlux = 500. + END IF !-------------------------------------------------- ! INSTEAD OF R_INC R_CL and R_DC of Wesely are used !-------------------------------------------------- - rclx = rcls(iland,iseason) + rclx = rcls(iland,iseason) !-------------------------------------------------- ! DRY SURFACE !-------------------------------------------------- - rgsx = 1000. + rgsx = 1000. !-------------------------------------------------- ! WET SURFACE !-------------------------------------------------- - IF ((wetflag) .OR. (rainflag)) THEN - IF (highnh3) THEN - rgsx = 0. - ELSE - rgsx = 500. - END IF - END IF + IF ((wetflag) .OR. (rainflag)) THEN + IF (highnh3) THEN + rgsx = 0. + ELSE + rgsx = 500. + END IF + END IF !-------------------------------------------------- ! WATER !-------------------------------------------------- - IF (iland==iswater_temp) THEN - rgsx = 0. - END IF + IF (iland==iswater_temp) THEN + rgsx = 0. + END IF !-------------------------------------------------- ! SNOW !-------------------------------------------------- - IF( iseason==4 .OR. iland==isice_temp ) THEN - IF( tc > 2. ) THEN - rgsx = 0. - else IF ( tc >= -1. .AND. tc <= 2. ) THEN - rgsx = 70.*(2. - tc) - else IF ( tc < -1. ) THEN - rgsx = 500. - END IF - END IF + IF( iseason==4 .OR. iland==isice_temp ) THEN + IF( tc > 2. ) THEN + rgsx = 0. + else IF ( tc >= -1. .AND. tc <= 2. ) THEN + rgsx = 70.*(2. - tc) + else IF ( tc < -1. ) THEN + rgsx = 500. + END IF + END IF !-------------------------------------------------- ! TOTAL SURFACE RESISTENCE !-------------------------------------------------- - IF ((iseason/=4) .AND. (ixxxlu(iland)/=1) .AND. (iland/=iswater_temp) .AND. & + IF ((iseason/=4) .AND. (ixxxlu(iland)/=1) .AND. (iland/=iswater_temp) .AND. & (iland/=isice_temp)) THEN - rcx(p_so2) = 1./(1./rsmx+1./rlux+1./(rclx+rdc+rgsx)) - ELSE - rcx(p_so2) = rgsx - END IF - rcx(p_so2) = max( 1.,rcx(p_so2) ) - end if is_so2 + rcx(p_so2) = 1./(1./rsmx+1./rlux+1./(rclx+rdc+rgsx)) + ELSE + rcx(p_so2) = rgsx + END IF + rcx(p_so2) = max( 1.,rcx(p_so2) ) + end if is_so2 !-------------------------------------------------- ! NH3 according to Erisman et al. 1994 ! R_STOM !-------------------------------------------------- -is_nh3: if( p_nh3 > 1 ) then - rsmx = rs*dratio(p_nh3) + is_nh3: if( p_nh3 > 1 ) then + rsmx = rs*dratio(p_nh3) !-------------------------------------------------- ! GRASSLAND (PASTURE DURING GRAZING) !-------------------------------------------------- - IF (ixxxlu(iland)==3) THEN - IF (iseason==1) THEN + IF (ixxxlu(iland)==3) THEN + IF (iseason==1) THEN !-------------------------------------------------- ! SUMMER !-------------------------------------------------- - rcx(p_nh3) = 1000. - END IF - IF ((iseason==2) .OR. (iseason==3) .OR. (iseason==5)) THEN + rcx(p_nh3) = 1000. + END IF + IF ((iseason==2) .OR. (iseason==3) .OR. (iseason==5)) THEN !-------------------------------------------------- ! WINTER, NO SNOW !-------------------------------------------------- - IF (tc>-1.) THEN - IF (rad/=0.) THEN - rcx(p_nh3) = 50. - ELSE - rcx(p_nh3) = 100. - END IF - IF ((wetflag) .OR. (rainflag)) THEN - rcx(p_nh3) = 20. - END IF + IF (tc>-1.) THEN + IF (rad/=0.) THEN + rcx(p_nh3) = 50. + ELSE + rcx(p_nh3) = 100. + END IF + IF ((wetflag) .OR. (rainflag)) THEN + rcx(p_nh3) = 20. + END IF + END IF + IF ((tc>=(-5.)) .AND. (tc<=-1.)) THEN + rcx(p_nh3) = 200. + END IF + IF (tc<(-5.)) THEN + rcx(p_nh3) = 500. + END IF END IF - IF ((tc>=(-5.)) .AND. (tc<=-1.)) THEN - rcx(p_nh3) = 200. - END IF - IF (tc<(-5.)) THEN - rcx(p_nh3) = 500. - END IF - END IF - END IF + END IF !-------------------------------------------------- ! AGRICULTURAL LAND (CROPS AND UNGRAZED PASTURE) !-------------------------------------------------- - IF (ixxxlu(iland)==2) THEN - IF (iseason==1) THEN + IF (ixxxlu(iland)==2) THEN + IF (iseason==1) THEN !-------------------------------------------------- ! SUMMER !-------------------------------------------------- - IF (rad/=0.) THEN - rcx(p_nh3) = rsmx - ELSE - rcx(p_nh3) = 200. - END IF - IF ((wetflag) .OR. (rainflag)) THEN - rcx(p_nh3) = 50. + IF (rad/=0.) THEN + rcx(p_nh3) = rsmx + ELSE + rcx(p_nh3) = 200. + END IF + IF ((wetflag) .OR. (rainflag)) THEN + rcx(p_nh3) = 50. + END IF END IF - END IF - IF ((iseason==2) .OR. (iseason==3) .OR. (iseason==5)) THEN + IF ((iseason==2) .OR. (iseason==3) .OR. (iseason==5)) THEN !-------------------------------------------------- ! WINTER, NO SNOW !-------------------------------------------------- - IF (tc>-1.) THEN - IF (rad/=0.) THEN - rcx(p_nh3) = rsmx - ELSE - rcx(p_nh3) = 300. - END IF - IF ((wetflag) .OR. (rainflag)) THEN - rcx(p_nh3) = 100. - END IF - END IF - IF ((tc>=(-5.)) .AND. (tc<=-1.)) THEN - rcx(p_nh3) = 200. - END IF - IF (tc<(-5.)) THEN - rcx(p_nh3) = 500. + IF (tc>-1.) THEN + IF (rad/=0.) THEN + rcx(p_nh3) = rsmx + ELSE + rcx(p_nh3) = 300. + END IF + IF ((wetflag) .OR. (rainflag)) THEN + rcx(p_nh3) = 100. + END IF + END IF + IF ((tc>=(-5.)) .AND. (tc<=-1.)) THEN + rcx(p_nh3) = 200. + END IF + IF (tc<(-5.)) THEN + rcx(p_nh3) = 500. + END IF END IF - END IF - END IF + END IF !-------------------------------------------------- ! SEMI-NATURAL ECOSYSTEMS AND FORESTS !-------------------------------------------------- - IF ((ixxxlu(iland)==4) .OR. (ixxxlu(iland)==5) .OR. (ixxxlu( & + IF ((ixxxlu(iland)==4) .OR. (ixxxlu(iland)==5) .OR. (ixxxlu( & iland)==6)) THEN - IF (rad/=0.) THEN - rcx(p_nh3) = 500. - ELSE - rcx(p_nh3) = 1000. - END IF - IF ((wetflag) .OR. (rainflag)) THEN - IF (highnh3) THEN - rcx(p_nh3) = 100. + IF (rad/=0.) THEN + rcx(p_nh3) = 500. ELSE - rcx(p_nh3) = 0. + rcx(p_nh3) = 1000. END IF - END IF - IF ((iseason==2) .OR. (iseason==3) .OR. (iseason==5)) THEN + IF ((wetflag) .OR. (rainflag)) THEN + IF (highnh3) THEN + rcx(p_nh3) = 100. + ELSE + rcx(p_nh3) = 0. + END IF + END IF + IF ((iseason==2) .OR. (iseason==3) .OR. (iseason==5)) THEN !-------------------------------------------------- ! WINTER, NO SNOW !-------------------------------------------------- - IF ((tc>=(-5.)) .AND. (tc<=-1.)) THEN - rcx(p_nh3) = 200. - END IF - IF (tc<(-5.)) THEN - rcx(p_nh3) = 500. + IF ((tc>=(-5.)) .AND. (tc<=-1.)) THEN + rcx(p_nh3) = 200. + END IF + IF (tc<(-5.)) THEN + rcx(p_nh3) = 500. + END IF END IF - END IF - END IF + END IF !-------------------------------------------------- ! WATER !-------------------------------------------------- - IF (iland==iswater_temp) THEN - rcx(p_nh3) = 0. - END IF + IF (iland==iswater_temp) THEN + rcx(p_nh3) = 0. + END IF !-------------------------------------------------- ! URBAN AND DESERT (SOIL SURFACES) !-------------------------------------------------- - IF (ixxxlu(iland)==1) THEN - IF ( .NOT. wetflag) THEN - rcx(p_nh3) = 50. - ELSE - rcx(p_nh3) = 0. - END IF - END IF + IF (ixxxlu(iland)==1) THEN + IF ( .NOT. wetflag) THEN + rcx(p_nh3) = 50. + ELSE + rcx(p_nh3) = 0. + END IF + END IF !-------------------------------------------------- ! SNOW COVERED SURFACES OR PERMANENT ICE !-------------------------------------------------- - IF ((iseason==4) .OR. (iland==isice_temp)) THEN - IF (tc>2.) THEN - rcx(p_nh3) = 0. - END IF - IF ((tc>=(-1.)) .AND. (tc<=2.)) THEN - rcx(p_nh3) = 70.*(2.-tc) - END IF - IF (tc<(-1.)) THEN - rcx(p_nh3) = 500. - END IF - END IF - rcx(p_nh3) = max( 1.,rcx(p_nh3) ) - endif is_nh3 - END SUBROUTINE rc - - SUBROUTINE deppart( rmol, ustar, rh, clw, iland, & - dvpart, dvfog ) + IF ((iseason==4) .OR. (iland==isice_temp)) THEN + IF (tc>2.) THEN + rcx(p_nh3) = 0. + END IF + IF ((tc>=(-1.)) .AND. (tc<=2.)) THEN + rcx(p_nh3) = 70.*(2.-tc) + END IF + IF (tc<(-1.)) THEN + rcx(p_nh3) = 500. + END IF + END IF + rcx(p_nh3) = max( 1.,rcx(p_nh3) ) + endif is_nh3 + END SUBROUTINE rc + + SUBROUTINE deppart( rmol, ustar, rh, clw, iland, & + dvpart, dvfog ) !-------------------------------------------------- ! THIS SUBROUTINE CALCULATES SURFACE DEPOSITION VELOCITIES ! FOR FINE AEROSOL PARTICLES ACCORDING TO THE MODEL OF @@ -1214,51 +1214,51 @@ SUBROUTINE deppart( rmol, ustar, rh, clw, iland, & !-------------------------------------------------- ! .. Scalar Arguments .. !-------------------------------------------------- - INTEGER, intent(in) :: iland - REAL, intent(in) :: clw, rh, rmol, ustar - REAL, intent(out) :: dvfog, dvpart + INTEGER, intent(in) :: iland + REAL, intent(in) :: clw, rh, rmol, ustar + REAL, intent(out) :: dvfog, dvpart !-------------------------------------------------- ! .. Intrinsic Functions .. !-------------------------------------------------- - INTRINSIC exp + INTRINSIC exp - dvpart = ustar/kpart(iland) - IF (rmol<0.) THEN + dvpart = ustar/kpart(iland) + IF (rmol<0.) THEN !-------------------------------------------------- ! UNSTABLE LAYERING CORRECTION !-------------------------------------------------- - dvpart = dvpart*(1.+(-300.*rmol)**0.66667) - END IF - IF (rh>80.) THEN + dvpart = dvpart*(1.+(-300.*rmol)**0.66667) + END IF + IF (rh>80.) THEN !-------------------------------------------------- ! HIGH RELATIVE HUMIDITY CORRECTION ! ACCORDING TO J. W. ERISMAN ET AL. ! ATMOSPHERIC ENVIRONMENT 31 (1997), 321-332 !-------------------------------------------------- - dvpart = dvpart*(1.+0.37*exp((rh-80.)/20.)) - END IF + dvpart = dvpart*(1.+0.37*exp((rh-80.)/20.)) + END IF !-------------------------------------------------- ! SEDIMENTATION VELOCITY OF FOG WATER ACCORDING TO ! R. FORKEL, W. SEIDL, R. DLUGI AND E. DEIGELE ! J. GEOPHYS. RES. 95D (1990), 18501-18515 !-------------------------------------------------- - dvfog = 0.06*clw - IF (ixxxlu(iland)==5) THEN + dvfog = 0.06*clw + IF (ixxxlu(iland)==5) THEN !-------------------------------------------------- ! TURBULENT DEPOSITION OF FOG WATER IN CONIFEROUS FOREST ACCORDI ! A. T. VERMEULEN ET AL. ! ATMOSPHERIC ENVIRONMENT 31 (1997), 375-386 !-------------------------------------------------- - dvfog = dvfog + 0.195*ustar*ustar - END IF + dvfog = dvfog + 0.195*ustar*ustar + END IF - END SUBROUTINE deppart + END SUBROUTINE deppart - SUBROUTINE landusevg( vgs, ustar, rmol, z0, zz, & - dvparx, iland, numgas, srfres, aer_res_def, & - aer_res_zcen, p_sulf ) + SUBROUTINE landusevg( vgs, ustar, rmol, z0, zz, & + dvparx, iland, numgas, srfres, aer_res_def, & + aer_res_zcen, p_sulf ) !-------------------------------------------------- ! This subroutine calculates the species specific deposition velocit ! as a function of the local meteorology and land use. The depositi @@ -1298,71 +1298,71 @@ SUBROUTINE landusevg( vgs, ustar, rmol, z0, zz, & !-------------------------------------------------- ! .. Scalar Arguments .. !-------------------------------------------------- - INTEGER, intent(in) :: iland, numgas, p_sulf - REAL, intent(in) :: dvparx, ustar, z0, zz - REAL, intent(inout) :: rmol - REAL, intent(inout) :: aer_res_def - REAL, intent(inout) :: aer_res_zcen + INTEGER, intent(in) :: iland, numgas, p_sulf + REAL, intent(in) :: dvparx, ustar, z0, zz + REAL, intent(inout) :: rmol + REAL, intent(inout) :: aer_res_def + REAL, intent(inout) :: aer_res_zcen !-------------------------------------------------- ! .. Array Arguments .. !-------------------------------------------------- - REAL, intent(in) :: srfres(numgas) - REAL, intent(out) :: vgs(numgas) + REAL, intent(in) :: srfres(numgas) + REAL, intent(out) :: vgs(numgas) !-------------------------------------------------- ! .. Local Scalars .. !-------------------------------------------------- - INTEGER :: jspec - REAL :: vgp, vgpart, zr - REAL :: rmol_tmp + INTEGER :: jspec + REAL :: vgp, vgpart, zr + REAL :: rmol_tmp !-------------------------------------------------- ! .. Local Arrays .. !-------------------------------------------------- - REAL :: vgspec(numgas) + REAL :: vgspec(numgas) !-------------------------------------------------- ! Calculate aerodynamic resistance for reference ! height = layer center !-------------------------------------------------- - zr = zz*.5 - rmol_tmp = rmol - CALL depvel( numgas, rmol_tmp, zr, z0, ustar, & - vgspec, vgpart, aer_res_zcen ) + zr = zz*.5 + rmol_tmp = rmol + CALL depvel( numgas, rmol_tmp, zr, z0, ustar, & + vgspec, vgpart, aer_res_zcen ) !-------------------------------------------------- ! Set the reference height (2.0 m) !-------------------------------------------------- ! zr = 10.0 - zr = 2.0 + zr = 2.0 !-------------------------------------------------- ! CALCULATE THE DEPOSITION VELOCITY without any surface ! resistance term, i.e. 1 / (ra + rb) !-------------------------------------------------- - CALL depvel( numgas, rmol, zr, z0, ustar, & - vgspec, vgpart, aer_res_def ) + CALL depvel( numgas, rmol, zr, z0, ustar, & + vgspec, vgpart, aer_res_def ) !-------------------------------------------------- ! Calculate the deposition velocity for each species ! and grid cell by looping through all the possibile combinations ! of the two !-------------------------------------------------- - vgp = 1.0/((1.0/vgpart)+(1.0/dvparx)) + vgp = 1.0/((1.0/vgpart)+(1.0/dvparx)) !-------------------------------------------------- ! Loop through the various species !-------------------------------------------------- - DO jspec = 1, numgas + DO jspec = 1, numgas !-------------------------------------------------- ! Add in the surface resistance term, rc (SrfRes) !-------------------------------------------------- - vgs(jspec) = 1.0/(1.0/vgspec(jspec) + srfres(jspec)) - END DO - vgs(p_sulf) = vgp + vgs(jspec) = 1.0/(1.0/vgspec(jspec) + srfres(jspec)) + END DO + vgs(p_sulf) = vgp - CALL cellvg( vgs, ustar, zz, zr, rmol, numgas ) + CALL cellvg( vgs, ustar, zz, zr, rmol, numgas ) - END SUBROUTINE landusevg + END SUBROUTINE landusevg - SUBROUTINE cellvg( vgtemp, ustar, dz, zr, rmol, nspec ) + SUBROUTINE cellvg( vgtemp, ustar, dz, zr, rmol, nspec ) !-------------------------------------------------- ! THIS PROGRAM HAS BEEN DESIGNED TO CALCULATE THE CELL AVERAGE ! DEPOSITION VELOCITY GIVEN THE VALUE OF VG AT SOME REFERENCE @@ -1384,26 +1384,26 @@ SUBROUTINE cellvg( vgtemp, ustar, dz, zr, rmol, nspec ) !-------------------------------------------------- ! .. Scalar Arguments .. !-------------------------------------------------- - INTEGER, intent(in) :: nspec - REAL, intent(in) :: dz, rmol, ustar, zr + INTEGER, intent(in) :: nspec + REAL, intent(in) :: dz, rmol, ustar, zr !-------------------------------------------------- ! .. Array Arguments .. !-------------------------------------------------- - REAL, intent(out) :: vgtemp(nspec) + REAL, intent(out) :: vgtemp(nspec) !-------------------------------------------------- ! .. Local Scalars .. !-------------------------------------------------- - INTEGER :: nss - REAL :: a, fac, pdz, pzr, vk + INTEGER :: nss + REAL :: a, fac, pdz, pzr, vk !-------------------------------------------------- ! .. Intrinsic Functions .. !-------------------------------------------------- - INTRINSIC alog, sqrt + INTRINSIC alog, sqrt !-------------------------------------------------- ! Set the von Karman constant !-------------------------------------------------- - vk = karman + vk = karman !-------------------------------------------------- ! DETERMINE THE STABILITY BASED ON THE CONDITIONS @@ -1411,27 +1411,27 @@ SUBROUTINE cellvg( vgtemp, ustar, dz, zr, rmol, nspec ) ! 1/L = 0 NEUTRAL ! 1/L > 0 STABLE !-------------------------------------------------- - DO nss = 1, nspec - IF (rmol < 0.) THEN + DO nss = 1, nspec + IF (rmol < 0.) THEN pdz = sqrt(1.0 - 9.0*dz*rmol) pzr = sqrt(1.0 - 9.0*zr*rmol) fac = ((pdz - 1.0)/(pzr - 1.0))*((pzr + 1.0)/(pdz + 1.0)) a = 0.74*dz*alog(fac) + (0.164/rmol)*(pdz-pzr) - ELSE IF (rmol == 0.) THEN + ELSE IF (rmol == 0.) THEN a = 0.74*(dz*alog(dz/zr) - dz + zr) - ELSE + ELSE a = 0.74*(dz*alog(dz/zr) - dz + zr) + (2.35*rmol)*(dz - zr)**2 - END IF + END IF !-------------------------------------------------- ! CALCULATE THE DEPOSITION VELOCITIY !-------------------------------------------------- - vgtemp(nss) = vgtemp(nss)/(1.0 + vgtemp(nss)*a/(vk*ustar*(dz - zr))) - END DO + vgtemp(nss) = vgtemp(nss)/(1.0 + vgtemp(nss)*a/(vk*ustar*(dz - zr))) + END DO - END SUBROUTINE cellvg + END SUBROUTINE cellvg - SUBROUTINE depvel( numgas, rmol, zr, z0, ustar, & - depv, vgpart, aer_res ) + SUBROUTINE depvel( numgas, rmol, zr, z0, ustar, & + depv, vgpart, aer_res ) !-------------------------------------------------- ! THIS FUNCTION HAS BEEN DESIGNED TO EVALUATE AN UPPER LIMIT ! FOR THE POLLUTANT DEPOSITION VELOCITY AS A FUNCTION OF THE @@ -1471,27 +1471,27 @@ SUBROUTINE depvel( numgas, rmol, zr, z0, ustar, & !-------------------------------------------------- ! .. Scalar Arguments .. !-------------------------------------------------- - INTEGER, intent(in) :: numgas - REAL, intent(in) :: ustar, z0, zr - REAL, intent(out) :: vgpart, aer_res - REAL, intent(inout) :: rmol + INTEGER, intent(in) :: numgas + REAL, intent(in) :: ustar, z0, zr + REAL, intent(out) :: vgpart, aer_res + REAL, intent(inout) :: rmol !-------------------------------------------------- ! .. Array Arguments .. !-------------------------------------------------- - REAL, intent(out) :: depv(numgas) + REAL, intent(out) :: depv(numgas) !-------------------------------------------------- ! .. Local Scalars .. !-------------------------------------------------- - INTEGER :: l - REAL :: ao, ar, polint, vk + INTEGER :: l + REAL :: ao, ar, polint, vk !-------------------------------------------------- ! .. Intrinsic Functions .. !-------------------------------------------------- - INTRINSIC alog + INTRINSIC alog !-------------------------------------------------- ! Set the von Karman constant !-------------------------------------------------- - vk = karman + vk = karman !-------------------------------------------------- ! Calculate the diffusion correction factor @@ -1504,79 +1504,79 @@ SUBROUTINE depvel( numgas, rmol, zr, z0, ustar, & ! 1/L > 0 STABLE !-------------------------------------------------- - if(abs(rmol) < 1.E-6 ) rmol = 0. + if(abs(rmol) < 1.E-6 ) rmol = 0. - IF (rmol<0) THEN - ar = ((1.0-9.0*zr*rmol)**(0.25)+0.001)**2 - ao = ((1.0-9.0*z0*rmol)**(0.25)+0.001)**2 - polint = 0.74*(alog((ar-1.0)/(ar+1.0))-alog((ao-1.0)/(ao+1.0))) - ELSE IF (rmol==0.) THEN - polint = 0.74*alog(zr/z0) - ELSE - polint = 0.74*alog(zr/z0) + 4.7*rmol*(zr-z0) - END IF + IF (rmol<0) THEN + ar = ((1.0-9.0*zr*rmol)**(0.25)+0.001)**2 + ao = ((1.0-9.0*z0*rmol)**(0.25)+0.001)**2 + polint = 0.74*(alog((ar-1.0)/(ar+1.0))-alog((ao-1.0)/(ao+1.0))) + ELSE IF (rmol==0.) THEN + polint = 0.74*alog(zr/z0) + ELSE + polint = 0.74*alog(zr/z0) + 4.7*rmol*(zr-z0) + END IF !-------------------------------------------------- ! CALCULATE THE Maximum DEPOSITION VELOCITY !-------------------------------------------------- - DO l = 1, numgas - depv(l) = ustar*vk/(2.0*scpr23(l)+polint) - END DO - vgpart = ustar*vk/polint - aer_res = polint/(karman*max(ustar,1.0e-4)) + DO l = 1, numgas + depv(l) = ustar*vk/(2.0*scpr23(l)+polint) + END DO + vgpart = ustar*vk/polint + aer_res = polint/(karman*max(ustar,1.0e-4)) - END SUBROUTINE depvel + END SUBROUTINE depvel ! !JianHe: 06/2023,dep_init needs attention in the future for gasdep -! Maybe we can have a sperate file for these parameters +! Maybe we can have a sperate file for these parameters ! ! SUBROUTINE dep_init( id, numgas, mminlu_loc, & ! ips, ipe, jps, jpe, ide, jde ) - SUBROUTINE dep_init( numgas, & - ips, ipe, jps, jpe, ide, jde ) + SUBROUTINE dep_init( numgas, & + ips, ipe, jps, jpe, ide, jde ) !-- !-------------------------------------------------- ! .. Scalar Arguments .. !-------------------------------------------------- - integer, intent(in) :: numgas - integer, intent(in) :: ips, ipe, jps, jpe - integer, intent(in) :: ide, jde + integer, intent(in) :: numgas + integer, intent(in) :: ips, ipe, jps, jpe + integer, intent(in) :: ide, jde !-------------------------------------------------- ! .. Local Scalars !-------------------------------------------------- - INTEGER :: iland, iseason, l - integer :: iprt - integer :: astat - integer :: ncid - integer :: dimid - integer :: varid - integer :: cpos, slen - integer :: lon_e, lat_e - integer :: iend, jend - integer :: chem_opt - integer, allocatable :: input_wes_seasonal(:,:,:,:) - REAL :: sc - character(len=128) :: err_msg - character(len=128) :: filename - character(len=3) :: id_num + INTEGER :: iland, iseason, l + integer :: iprt + integer :: astat + integer :: ncid + integer :: dimid + integer :: varid + integer :: cpos, slen + integer :: lon_e, lat_e + integer :: iend, jend + integer :: chem_opt + integer, allocatable :: input_wes_seasonal(:,:,:,:) + REAL :: sc + character(len=128) :: err_msg + character(len=128) :: filename + character(len=3) :: id_num !-------------------------------------------------- ! .. Local Arrays !-------------------------------------------------- - REAL :: dat1(nlu,dep_seasons), dat2(nlu,dep_seasons), & - dat3(nlu,dep_seasons), dat4(nlu,dep_seasons), & - dat5(nlu,dep_seasons), dat6(nlu,dep_seasons), & - dat7(nlu,dep_seasons), dvj(numgas) + REAL :: dat1(nlu,dep_seasons), dat2(nlu,dep_seasons), & + dat3(nlu,dep_seasons), dat4(nlu,dep_seasons), & + dat5(nlu,dep_seasons), dat6(nlu,dep_seasons), & + dat7(nlu,dep_seasons), dvj(numgas) chem_opt = chem_opt if( chem_opt == MOZART_KPP .or. & - chem_opt == MOZCART_KPP .or. & - chem_opt == MOZART_MOSAIC_4BIN_KPP .or. & - chem_opt == MOZART_MOSAIC_4BIN_AQ_KPP ) then - print *, 'dep_init: mozart,mozcart chem option requires netcdf' + chem_opt == MOZCART_KPP .or. & + chem_opt == MOZART_MOSAIC_4BIN_KPP .or. & + chem_opt == MOZART_MOSAIC_4BIN_AQ_KPP ) then + print *, 'dep_init: mozart,mozcart chem option requires netcdf' stop end if @@ -1584,37 +1584,37 @@ SUBROUTINE dep_init( numgas, & ! .. Data Statements .. ! RI for stomatal resistance ! data ((ri(ILAND,ISEASON),ILAND=1,nlu),ISEASON=1,dep_seasons)/0.10E+11, & - DATA ((dat1(iland,iseason),iland=1,nlu),iseason=1,dep_seasons)/0.10E+11, & - 0.60E+02, 0.60E+02, 0.60E+02, 0.60E+02, 0.70E+02, 0.12E+03, & - 0.12E+03, 0.12E+03, 0.12E+03, 0.70E+02, 0.13E+03, 0.70E+02, & - 0.13E+03, 0.10E+03, 0.10E+11, 0.80E+02, 0.10E+03, 0.10E+11, & - 0.80E+02, 0.10E+03, 0.10E+03, 0.10E+11, 0.10E+11, 0.10E+11, & - 0.10E+11, 0.10E+11, 0.10E+11, 0.10E+11, 0.10E+11, 0.10E+11, & - 0.10E+11, 0.10E+11, 0.10E+11, 0.12E+03, 0.10E+11, 0.10E+11, & - 0.70E+02, 0.25E+03, 0.50E+03, 0.10E+11, 0.10E+11, 0.50E+03, & - 0.10E+11, 0.10E+11, 0.50E+03, 0.50E+03, 0.10E+11, 0.10E+11, & - 0.10E+11, 0.10E+11, 0.10E+11, 0.10E+11, 0.10E+11, 0.10E+11, & - 0.10E+11, 0.10E+11, 0.10E+11, 0.10E+11, 0.12E+03, 0.10E+11, & - 0.10E+11, 0.70E+02, 0.25E+03, 0.50E+03, 0.10E+11, 0.10E+11, & - 0.50E+03, 0.10E+11, 0.10E+11, 0.50E+03, 0.50E+03, 0.10E+11, & - 0.10E+11, 0.10E+11, 0.10E+11, 0.10E+11, 0.10E+11, 0.10E+11, & - 0.10E+11, 0.10E+11, 0.10E+11, 0.10E+11, 0.10E+11, 0.10E+11, & - 0.10E+11, 0.10E+11, 0.70E+02, 0.40E+03, 0.80E+03, 0.10E+11, & - 0.10E+11, 0.80E+03, 0.10E+11, 0.10E+11, 0.80E+03, 0.80E+03, & - 0.10E+11, 0.10E+11, 0.10E+11, 0.10E+11, 0.12E+03, 0.12E+03, & - 0.12E+03, 0.12E+03, 0.14E+03, 0.24E+03, 0.24E+03, 0.24E+03, & - 0.12E+03, 0.14E+03, 0.25E+03, 0.70E+02, 0.25E+03, 0.19E+03, & - 0.10E+11, 0.16E+03, 0.19E+03, 0.10E+11, 0.16E+03, 0.19E+03, & - 0.19E+03, 0.10E+11, 0.10E+11, 0.10E+11/ + DATA ((dat1(iland,iseason),iland=1,nlu),iseason=1,dep_seasons)/0.10E+11, & + 0.60E+02, 0.60E+02, 0.60E+02, 0.60E+02, 0.70E+02, 0.12E+03, & + 0.12E+03, 0.12E+03, 0.12E+03, 0.70E+02, 0.13E+03, 0.70E+02, & + 0.13E+03, 0.10E+03, 0.10E+11, 0.80E+02, 0.10E+03, 0.10E+11, & + 0.80E+02, 0.10E+03, 0.10E+03, 0.10E+11, 0.10E+11, 0.10E+11, & + 0.10E+11, 0.10E+11, 0.10E+11, 0.10E+11, 0.10E+11, 0.10E+11, & + 0.10E+11, 0.10E+11, 0.10E+11, 0.12E+03, 0.10E+11, 0.10E+11, & + 0.70E+02, 0.25E+03, 0.50E+03, 0.10E+11, 0.10E+11, 0.50E+03, & + 0.10E+11, 0.10E+11, 0.50E+03, 0.50E+03, 0.10E+11, 0.10E+11, & + 0.10E+11, 0.10E+11, 0.10E+11, 0.10E+11, 0.10E+11, 0.10E+11, & + 0.10E+11, 0.10E+11, 0.10E+11, 0.10E+11, 0.12E+03, 0.10E+11, & + 0.10E+11, 0.70E+02, 0.25E+03, 0.50E+03, 0.10E+11, 0.10E+11, & + 0.50E+03, 0.10E+11, 0.10E+11, 0.50E+03, 0.50E+03, 0.10E+11, & + 0.10E+11, 0.10E+11, 0.10E+11, 0.10E+11, 0.10E+11, 0.10E+11, & + 0.10E+11, 0.10E+11, 0.10E+11, 0.10E+11, 0.10E+11, 0.10E+11, & + 0.10E+11, 0.10E+11, 0.70E+02, 0.40E+03, 0.80E+03, 0.10E+11, & + 0.10E+11, 0.80E+03, 0.10E+11, 0.10E+11, 0.80E+03, 0.80E+03, & + 0.10E+11, 0.10E+11, 0.10E+11, 0.10E+11, 0.12E+03, 0.12E+03, & + 0.12E+03, 0.12E+03, 0.14E+03, 0.24E+03, 0.24E+03, 0.24E+03, & + 0.12E+03, 0.14E+03, 0.25E+03, 0.70E+02, 0.25E+03, 0.19E+03, & + 0.10E+11, 0.16E+03, 0.19E+03, 0.10E+11, 0.16E+03, 0.19E+03, & + 0.19E+03, 0.10E+11, 0.10E+11, 0.10E+11/ ! .. - IF (nlu/=25) THEN - write(0,*) 'number of land use classifications not correct ' - stop - END IF - IF (dep_seasons/=5) THEN - write(0,*) 'number of dep_seasons not correct ' - stop - END IF + IF (nlu/=25) THEN + write(0,*) 'number of land use classifications not correct ' + stop + END IF + IF (dep_seasons/=5) THEN + write(0,*) 'number of dep_seasons not correct ' + stop + END IF ! SURFACE RESISTANCE DATA FOR DEPOSITION MODEL OF ! M. L. WESELY, ATMOSPHERIC ENVIRONMENT 23 (1989) 1293-1304 @@ -1662,171 +1662,171 @@ SUBROUTINE dep_init( numgas, & ! ---> landuse type ! 1 2 3 4 5 6 7 8 9 ! RLU for outer surfaces in the upper canopy - DO iseason = 1, dep_seasons - ri(1:nlu,iseason) = dat1(1:nlu,iseason) - END DO + DO iseason = 1, dep_seasons + ri(1:nlu,iseason) = dat1(1:nlu,iseason) + END DO ! data ((rlu(ILAND,ISEASON),ILAND=1,25),ISEASON=1,5)/0.10E+11, & - DATA ((dat2(iland,iseason),iland=1,nlu),iseason=1,dep_seasons)/0.10E+11, & - 0.20E+04, 0.20E+04, 0.20E+04, 0.20E+04, 0.20E+04, 0.20E+04, & - 0.20E+04, 0.20E+04, 0.20E+04, 0.20E+04, 0.20E+04, 0.20E+04, & - 0.20E+04, 0.20E+04, 0.10E+11, 0.25E+04, 0.20E+04, 0.10E+11, & - 0.25E+04, 0.20E+04, 0.20E+04, 0.10E+11, 0.10E+11, 0.10E+11, & - 0.10E+11, 0.90E+04, 0.90E+04, 0.90E+04, 0.90E+04, 0.90E+04, & - 0.90E+04, 0.90E+04, 0.90E+04, 0.20E+04, 0.90E+04, 0.90E+04, & - 0.20E+04, 0.40E+04, 0.80E+04, 0.10E+11, 0.90E+04, 0.80E+04, & - 0.10E+11, 0.90E+04, 0.80E+04, 0.80E+04, 0.10E+11, 0.10E+11, & - 0.10E+11, 0.10E+11, 0.90E+04, 0.90E+04, 0.90E+04, 0.90E+04, & - 0.90E+04, 0.90E+04, 0.90E+04, 0.90E+04, 0.20E+04, 0.90E+04, & - 0.90E+04, 0.20E+04, 0.40E+04, 0.80E+04, 0.10E+11, 0.90E+04, & - 0.80E+04, 0.10E+11, 0.90E+04, 0.80E+04, 0.80E+04, 0.10E+11, & - 0.10E+11, 0.10E+11, 0.10E+11, 0.10E+11, 0.10E+11, 0.10E+11, & - 0.10E+11, 0.10E+11, 0.10E+11, 0.10E+11, 0.10E+11, 0.10E+11, & - 0.10E+11, 0.10E+11, 0.20E+04, 0.60E+04, 0.90E+04, 0.10E+11, & - 0.90E+04, 0.90E+04, 0.10E+11, 0.90E+04, 0.90E+04, 0.90E+04, & - 0.10E+11, 0.10E+11, 0.10E+11, 0.10E+11, 0.40E+04, 0.40E+04, & - 0.40E+04, 0.40E+04, 0.40E+04, 0.40E+04, 0.40E+04, 0.40E+04, & - 0.20E+04, 0.40E+04, 0.20E+04, 0.20E+04, 0.20E+04, 0.30E+04, & - 0.10E+11, 0.40E+04, 0.30E+04, 0.10E+11, 0.40E+04, 0.30E+04, & - 0.30E+04, 0.10E+11, 0.10E+11, 0.10E+11/ - DO iseason = 1, dep_seasons - rlu(1:nlu,iseason) = dat2(1:nlu,iseason) - END DO + DATA ((dat2(iland,iseason),iland=1,nlu),iseason=1,dep_seasons)/0.10E+11, & + 0.20E+04, 0.20E+04, 0.20E+04, 0.20E+04, 0.20E+04, 0.20E+04, & + 0.20E+04, 0.20E+04, 0.20E+04, 0.20E+04, 0.20E+04, 0.20E+04, & + 0.20E+04, 0.20E+04, 0.10E+11, 0.25E+04, 0.20E+04, 0.10E+11, & + 0.25E+04, 0.20E+04, 0.20E+04, 0.10E+11, 0.10E+11, 0.10E+11, & + 0.10E+11, 0.90E+04, 0.90E+04, 0.90E+04, 0.90E+04, 0.90E+04, & + 0.90E+04, 0.90E+04, 0.90E+04, 0.20E+04, 0.90E+04, 0.90E+04, & + 0.20E+04, 0.40E+04, 0.80E+04, 0.10E+11, 0.90E+04, 0.80E+04, & + 0.10E+11, 0.90E+04, 0.80E+04, 0.80E+04, 0.10E+11, 0.10E+11, & + 0.10E+11, 0.10E+11, 0.90E+04, 0.90E+04, 0.90E+04, 0.90E+04, & + 0.90E+04, 0.90E+04, 0.90E+04, 0.90E+04, 0.20E+04, 0.90E+04, & + 0.90E+04, 0.20E+04, 0.40E+04, 0.80E+04, 0.10E+11, 0.90E+04, & + 0.80E+04, 0.10E+11, 0.90E+04, 0.80E+04, 0.80E+04, 0.10E+11, & + 0.10E+11, 0.10E+11, 0.10E+11, 0.10E+11, 0.10E+11, 0.10E+11, & + 0.10E+11, 0.10E+11, 0.10E+11, 0.10E+11, 0.10E+11, 0.10E+11, & + 0.10E+11, 0.10E+11, 0.20E+04, 0.60E+04, 0.90E+04, 0.10E+11, & + 0.90E+04, 0.90E+04, 0.10E+11, 0.90E+04, 0.90E+04, 0.90E+04, & + 0.10E+11, 0.10E+11, 0.10E+11, 0.10E+11, 0.40E+04, 0.40E+04, & + 0.40E+04, 0.40E+04, 0.40E+04, 0.40E+04, 0.40E+04, 0.40E+04, & + 0.20E+04, 0.40E+04, 0.20E+04, 0.20E+04, 0.20E+04, 0.30E+04, & + 0.10E+11, 0.40E+04, 0.30E+04, 0.10E+11, 0.40E+04, 0.30E+04, & + 0.30E+04, 0.10E+11, 0.10E+11, 0.10E+11/ + DO iseason = 1, dep_seasons + rlu(1:nlu,iseason) = dat2(1:nlu,iseason) + END DO ! RAC for transfer that depends on canopy height and density ! data ((rac(ILAND,ISEASON),ILAND=1,25),ISEASON=1,5)/0.10E+03, & - DATA ((dat3(iland,iseason),iland=1,nlu),iseason=1,dep_seasons)/0.10E+03, & - 0.20E+03, 0.20E+03, 0.20E+03, 0.20E+03, 0.20E+04, 0.10E+03, & - 0.10E+03, 0.10E+03, 0.10E+03, 0.20E+04, 0.20E+04, 0.20E+04, & - 0.20E+04, 0.20E+04, 0.00E+00, 0.30E+03, 0.20E+04, 0.00E+00, & - 0.30E+03, 0.20E+04, 0.20E+04, 0.00E+00, 0.00E+00, 0.00E+00, & - 0.10E+03, 0.15E+03, 0.15E+03, 0.15E+03, 0.15E+03, 0.15E+04, & - 0.10E+03, 0.10E+03, 0.10E+03, 0.10E+03, 0.15E+04, 0.20E+04, & - 0.20E+04, 0.20E+04, 0.17E+04, 0.00E+00, 0.20E+03, 0.17E+04, & - 0.00E+00, 0.20E+03, 0.17E+04, 0.17E+04, 0.00E+00, 0.00E+00, & - 0.00E+00, 0.10E+03, 0.10E+02, 0.10E+02, 0.10E+02, 0.10E+02, & - 0.10E+04, 0.10E+03, 0.10E+03, 0.10E+03, 0.10E+03, 0.10E+04, & - 0.20E+04, 0.20E+04, 0.20E+04, 0.15E+04, 0.00E+00, 0.10E+03, & - 0.15E+04, 0.00E+00, 0.10E+03, 0.15E+04, 0.15E+04, 0.00E+00, & - 0.00E+00, 0.00E+00, 0.10E+03, 0.10E+02, 0.10E+02, 0.10E+02, & - 0.10E+02, 0.10E+04, 0.10E+02, 0.10E+02, 0.10E+02, 0.10E+02, & - 0.10E+04, 0.20E+04, 0.20E+04, 0.20E+04, 0.15E+04, 0.00E+00, & - 0.50E+02, 0.15E+04, 0.00E+00, 0.50E+02, 0.15E+04, 0.15E+04, & - 0.00E+00, 0.00E+00, 0.00E+00, 0.10E+03, 0.50E+02, 0.50E+02, & - 0.50E+02, 0.50E+02, 0.12E+04, 0.80E+02, 0.80E+02, 0.80E+02, & - 0.10E+03, 0.12E+04, 0.20E+04, 0.20E+04, 0.20E+04, 0.15E+04, & - 0.00E+00, 0.20E+03, 0.15E+04, 0.00E+00, 0.20E+03, 0.15E+04, & - 0.15E+04, 0.00E+00, 0.00E+00, 0.00E+00/ - DO iseason = 1, dep_seasons - rac(1:nlu,iseason) = dat3(1:nlu,iseason) - END DO + DATA ((dat3(iland,iseason),iland=1,nlu),iseason=1,dep_seasons)/0.10E+03, & + 0.20E+03, 0.20E+03, 0.20E+03, 0.20E+03, 0.20E+04, 0.10E+03, & + 0.10E+03, 0.10E+03, 0.10E+03, 0.20E+04, 0.20E+04, 0.20E+04, & + 0.20E+04, 0.20E+04, 0.00E+00, 0.30E+03, 0.20E+04, 0.00E+00, & + 0.30E+03, 0.20E+04, 0.20E+04, 0.00E+00, 0.00E+00, 0.00E+00, & + 0.10E+03, 0.15E+03, 0.15E+03, 0.15E+03, 0.15E+03, 0.15E+04, & + 0.10E+03, 0.10E+03, 0.10E+03, 0.10E+03, 0.15E+04, 0.20E+04, & + 0.20E+04, 0.20E+04, 0.17E+04, 0.00E+00, 0.20E+03, 0.17E+04, & + 0.00E+00, 0.20E+03, 0.17E+04, 0.17E+04, 0.00E+00, 0.00E+00, & + 0.00E+00, 0.10E+03, 0.10E+02, 0.10E+02, 0.10E+02, 0.10E+02, & + 0.10E+04, 0.10E+03, 0.10E+03, 0.10E+03, 0.10E+03, 0.10E+04, & + 0.20E+04, 0.20E+04, 0.20E+04, 0.15E+04, 0.00E+00, 0.10E+03, & + 0.15E+04, 0.00E+00, 0.10E+03, 0.15E+04, 0.15E+04, 0.00E+00, & + 0.00E+00, 0.00E+00, 0.10E+03, 0.10E+02, 0.10E+02, 0.10E+02, & + 0.10E+02, 0.10E+04, 0.10E+02, 0.10E+02, 0.10E+02, 0.10E+02, & + 0.10E+04, 0.20E+04, 0.20E+04, 0.20E+04, 0.15E+04, 0.00E+00, & + 0.50E+02, 0.15E+04, 0.00E+00, 0.50E+02, 0.15E+04, 0.15E+04, & + 0.00E+00, 0.00E+00, 0.00E+00, 0.10E+03, 0.50E+02, 0.50E+02, & + 0.50E+02, 0.50E+02, 0.12E+04, 0.80E+02, 0.80E+02, 0.80E+02, & + 0.10E+03, 0.12E+04, 0.20E+04, 0.20E+04, 0.20E+04, 0.15E+04, & + 0.00E+00, 0.20E+03, 0.15E+04, 0.00E+00, 0.20E+03, 0.15E+04, & + 0.15E+04, 0.00E+00, 0.00E+00, 0.00E+00/ + DO iseason = 1, dep_seasons + rac(1:nlu,iseason) = dat3(1:nlu,iseason) + END DO ! RGSS for ground surface SO2 ! data ((rgss(ILAND,ISEASON),ILAND=1,25),ISEASON=1,5)/0.40E+03, & - DATA ((dat4(iland,iseason),iland=1,nlu),iseason=1,dep_seasons)/0.40E+03, & - 0.15E+03, 0.15E+03, 0.15E+03, 0.15E+03, 0.50E+03, 0.35E+03, & - 0.35E+03, 0.35E+03, 0.35E+03, 0.50E+03, 0.50E+03, 0.50E+03, & - 0.50E+03, 0.10E+03, 0.10E+01, 0.10E+01, 0.10E+03, 0.10E+04, & - 0.10E+01, 0.10E+03, 0.10E+03, 0.10E+04, 0.10E+03, 0.10E+04, & - 0.40E+03, 0.20E+03, 0.20E+03, 0.20E+03, 0.20E+03, 0.50E+03, & - 0.35E+03, 0.35E+03, 0.35E+03, 0.35E+03, 0.50E+03, 0.50E+03, & - 0.50E+03, 0.50E+03, 0.10E+03, 0.10E+01, 0.10E+01, 0.10E+03, & - 0.10E+04, 0.10E+01, 0.10E+03, 0.10E+03, 0.10E+04, 0.10E+03, & - 0.10E+04, 0.40E+03, 0.15E+03, 0.15E+03, 0.15E+03, 0.15E+03, & - 0.50E+03, 0.35E+03, 0.35E+03, 0.35E+03, 0.35E+03, 0.50E+03, & - 0.50E+03, 0.50E+03, 0.50E+03, 0.20E+03, 0.10E+01, 0.10E+01, & - 0.20E+03, 0.10E+04, 0.10E+01, 0.20E+03, 0.20E+03, 0.10E+04, & - 0.10E+03, 0.10E+04, 0.10E+03, 0.10E+03, 0.10E+03, 0.10E+03, & - 0.10E+03, 0.10E+03, 0.10E+03, 0.10E+03, 0.10E+03, 0.10E+03, & - 0.10E+03, 0.10E+03, 0.50E+03, 0.10E+03, 0.10E+03, 0.10E+01, & - 0.10E+03, 0.10E+03, 0.10E+04, 0.10E+03, 0.10E+03, 0.10E+03, & - 0.10E+04, 0.10E+03, 0.10E+04, 0.50E+03, 0.15E+03, 0.15E+03, & - 0.15E+03, 0.15E+03, 0.50E+03, 0.35E+03, 0.35E+03, 0.35E+03, & - 0.35E+03, 0.50E+03, 0.50E+03, 0.50E+03, 0.50E+03, 0.20E+03, & - 0.10E+01, 0.10E+01, 0.20E+03, 0.10E+04, 0.10E+01, 0.20E+03, & - 0.20E+03, 0.10E+04, 0.10E+03, 0.10E+04/ - DO iseason = 1, dep_seasons - rgss(1:nlu,iseason) = dat4(1:nlu,iseason) - END DO + DATA ((dat4(iland,iseason),iland=1,nlu),iseason=1,dep_seasons)/0.40E+03, & + 0.15E+03, 0.15E+03, 0.15E+03, 0.15E+03, 0.50E+03, 0.35E+03, & + 0.35E+03, 0.35E+03, 0.35E+03, 0.50E+03, 0.50E+03, 0.50E+03, & + 0.50E+03, 0.10E+03, 0.10E+01, 0.10E+01, 0.10E+03, 0.10E+04, & + 0.10E+01, 0.10E+03, 0.10E+03, 0.10E+04, 0.10E+03, 0.10E+04, & + 0.40E+03, 0.20E+03, 0.20E+03, 0.20E+03, 0.20E+03, 0.50E+03, & + 0.35E+03, 0.35E+03, 0.35E+03, 0.35E+03, 0.50E+03, 0.50E+03, & + 0.50E+03, 0.50E+03, 0.10E+03, 0.10E+01, 0.10E+01, 0.10E+03, & + 0.10E+04, 0.10E+01, 0.10E+03, 0.10E+03, 0.10E+04, 0.10E+03, & + 0.10E+04, 0.40E+03, 0.15E+03, 0.15E+03, 0.15E+03, 0.15E+03, & + 0.50E+03, 0.35E+03, 0.35E+03, 0.35E+03, 0.35E+03, 0.50E+03, & + 0.50E+03, 0.50E+03, 0.50E+03, 0.20E+03, 0.10E+01, 0.10E+01, & + 0.20E+03, 0.10E+04, 0.10E+01, 0.20E+03, 0.20E+03, 0.10E+04, & + 0.10E+03, 0.10E+04, 0.10E+03, 0.10E+03, 0.10E+03, 0.10E+03, & + 0.10E+03, 0.10E+03, 0.10E+03, 0.10E+03, 0.10E+03, 0.10E+03, & + 0.10E+03, 0.10E+03, 0.50E+03, 0.10E+03, 0.10E+03, 0.10E+01, & + 0.10E+03, 0.10E+03, 0.10E+04, 0.10E+03, 0.10E+03, 0.10E+03, & + 0.10E+04, 0.10E+03, 0.10E+04, 0.50E+03, 0.15E+03, 0.15E+03, & + 0.15E+03, 0.15E+03, 0.50E+03, 0.35E+03, 0.35E+03, 0.35E+03, & + 0.35E+03, 0.50E+03, 0.50E+03, 0.50E+03, 0.50E+03, 0.20E+03, & + 0.10E+01, 0.10E+01, 0.20E+03, 0.10E+04, 0.10E+01, 0.20E+03, & + 0.20E+03, 0.10E+04, 0.10E+03, 0.10E+04/ + DO iseason = 1, dep_seasons + rgss(1:nlu,iseason) = dat4(1:nlu,iseason) + END DO ! RGSO for ground surface O3 ! data ((rgso(ILAND,ISEASON),ILAND=1,25),ISEASON=1,5)/0.30E+03, & - DATA ((dat5(iland,iseason),iland=1,nlu),iseason=1,dep_seasons)/0.30E+03, & - 0.15E+03, 0.15E+03, 0.15E+03, 0.15E+03, 0.20E+03, 0.20E+03, & - 0.20E+03, 0.20E+03, 0.20E+03, 0.20E+03, 0.20E+03, 0.20E+03, & - 0.20E+03, 0.30E+03, 0.20E+04, 0.10E+04, 0.30E+03, 0.40E+03, & - 0.10E+04, 0.30E+03, 0.30E+03, 0.40E+03, 0.35E+04, 0.40E+03, & - 0.30E+03, 0.15E+03, 0.15E+03, 0.15E+03, 0.15E+03, 0.20E+03, & - 0.20E+03, 0.20E+03, 0.20E+03, 0.20E+03, 0.20E+03, 0.20E+03, & - 0.20E+03, 0.20E+03, 0.30E+03, 0.20E+04, 0.80E+03, 0.30E+03, & - 0.40E+03, 0.80E+03, 0.30E+03, 0.30E+03, 0.40E+03, 0.35E+04, & - 0.40E+03, 0.30E+03, 0.15E+03, 0.15E+03, 0.15E+03, 0.15E+03, & - 0.20E+03, 0.20E+03, 0.20E+03, 0.20E+03, 0.20E+03, 0.20E+03, & - 0.20E+03, 0.20E+03, 0.20E+03, 0.30E+03, 0.20E+04, 0.10E+04, & - 0.30E+03, 0.40E+03, 0.10E+04, 0.30E+03, 0.30E+03, 0.40E+03, & - 0.35E+04, 0.40E+03, 0.60E+03, 0.35E+04, 0.35E+04, 0.35E+04, & - 0.35E+04, 0.35E+04, 0.35E+04, 0.35E+04, 0.35E+04, 0.35E+04, & - 0.35E+04, 0.35E+04, 0.20E+03, 0.35E+04, 0.35E+04, 0.20E+04, & - 0.35E+04, 0.35E+04, 0.40E+03, 0.35E+04, 0.35E+04, 0.35E+04, & - 0.40E+03, 0.35E+04, 0.40E+03, 0.30E+03, 0.15E+03, 0.15E+03, & - 0.15E+03, 0.15E+03, 0.20E+03, 0.20E+03, 0.20E+03, 0.20E+03, & - 0.20E+03, 0.20E+03, 0.20E+03, 0.20E+03, 0.20E+03, 0.30E+03, & - 0.20E+04, 0.10E+04, 0.30E+03, 0.40E+03, 0.10E+04, 0.30E+03, & - 0.30E+03, 0.40E+03, 0.35E+04, 0.40E+03/ - DO iseason = 1, dep_seasons - rgso(1:nlu,iseason) = dat5(1:nlu,iseason) - END DO + DATA ((dat5(iland,iseason),iland=1,nlu),iseason=1,dep_seasons)/0.30E+03, & + 0.15E+03, 0.15E+03, 0.15E+03, 0.15E+03, 0.20E+03, 0.20E+03, & + 0.20E+03, 0.20E+03, 0.20E+03, 0.20E+03, 0.20E+03, 0.20E+03, & + 0.20E+03, 0.30E+03, 0.20E+04, 0.10E+04, 0.30E+03, 0.40E+03, & + 0.10E+04, 0.30E+03, 0.30E+03, 0.40E+03, 0.35E+04, 0.40E+03, & + 0.30E+03, 0.15E+03, 0.15E+03, 0.15E+03, 0.15E+03, 0.20E+03, & + 0.20E+03, 0.20E+03, 0.20E+03, 0.20E+03, 0.20E+03, 0.20E+03, & + 0.20E+03, 0.20E+03, 0.30E+03, 0.20E+04, 0.80E+03, 0.30E+03, & + 0.40E+03, 0.80E+03, 0.30E+03, 0.30E+03, 0.40E+03, 0.35E+04, & + 0.40E+03, 0.30E+03, 0.15E+03, 0.15E+03, 0.15E+03, 0.15E+03, & + 0.20E+03, 0.20E+03, 0.20E+03, 0.20E+03, 0.20E+03, 0.20E+03, & + 0.20E+03, 0.20E+03, 0.20E+03, 0.30E+03, 0.20E+04, 0.10E+04, & + 0.30E+03, 0.40E+03, 0.10E+04, 0.30E+03, 0.30E+03, 0.40E+03, & + 0.35E+04, 0.40E+03, 0.60E+03, 0.35E+04, 0.35E+04, 0.35E+04, & + 0.35E+04, 0.35E+04, 0.35E+04, 0.35E+04, 0.35E+04, 0.35E+04, & + 0.35E+04, 0.35E+04, 0.20E+03, 0.35E+04, 0.35E+04, 0.20E+04, & + 0.35E+04, 0.35E+04, 0.40E+03, 0.35E+04, 0.35E+04, 0.35E+04, & + 0.40E+03, 0.35E+04, 0.40E+03, 0.30E+03, 0.15E+03, 0.15E+03, & + 0.15E+03, 0.15E+03, 0.20E+03, 0.20E+03, 0.20E+03, 0.20E+03, & + 0.20E+03, 0.20E+03, 0.20E+03, 0.20E+03, 0.20E+03, 0.30E+03, & + 0.20E+04, 0.10E+04, 0.30E+03, 0.40E+03, 0.10E+04, 0.30E+03, & + 0.30E+03, 0.40E+03, 0.35E+04, 0.40E+03/ + DO iseason = 1, dep_seasons + rgso(1:nlu,iseason) = dat5(1:nlu,iseason) + END DO ! RCLS for exposed surfaces in the lower canopy SO2 ! data ((rcls(ILAND,ISEASON),ILAND=1,25),ISEASON=1,5)/0.10E+11, & - DATA ((dat6(iland,iseason),iland=1,nlu),iseason=1,dep_seasons)/0.10E+11, & - 0.20E+04, 0.20E+04, 0.20E+04, 0.20E+04, 0.20E+04, 0.20E+04, & - 0.20E+04, 0.20E+04, 0.20E+04, 0.20E+04, 0.20E+04, 0.20E+04, & - 0.20E+04, 0.20E+04, 0.10E+11, 0.25E+04, 0.20E+04, 0.10E+11, & - 0.25E+04, 0.20E+04, 0.20E+04, 0.10E+11, 0.10E+11, 0.10E+11, & - 0.10E+11, 0.90E+04, 0.90E+04, 0.90E+04, 0.90E+04, 0.90E+04, & - 0.90E+04, 0.90E+04, 0.90E+04, 0.20E+04, 0.90E+04, 0.90E+04, & - 0.20E+04, 0.20E+04, 0.40E+04, 0.10E+11, 0.90E+04, 0.40E+04, & - 0.10E+11, 0.90E+04, 0.40E+04, 0.40E+04, 0.10E+11, 0.10E+11, & - 0.10E+11, 0.10E+11, 0.10E+11, 0.10E+11, 0.10E+11, 0.10E+11, & - 0.90E+04, 0.90E+04, 0.90E+04, 0.90E+04, 0.20E+04, 0.90E+04, & - 0.90E+04, 0.20E+04, 0.30E+04, 0.60E+04, 0.10E+11, 0.90E+04, & - 0.60E+04, 0.10E+11, 0.90E+04, 0.60E+04, 0.60E+04, 0.10E+11, & - 0.10E+11, 0.10E+11, 0.10E+11, 0.10E+11, 0.10E+11, 0.10E+11, & - 0.10E+11, 0.90E+04, 0.10E+11, 0.10E+11, 0.10E+11, 0.10E+11, & - 0.90E+04, 0.90E+04, 0.20E+04, 0.20E+03, 0.40E+03, 0.10E+11, & - 0.90E+04, 0.40E+03, 0.10E+11, 0.90E+04, 0.40E+03, 0.40E+03, & - 0.10E+11, 0.10E+11, 0.10E+11, 0.10E+11, 0.40E+04, 0.40E+04, & - 0.40E+04, 0.40E+04, 0.40E+04, 0.40E+04, 0.40E+04, 0.40E+04, & - 0.20E+04, 0.40E+04, 0.20E+04, 0.20E+04, 0.20E+04, 0.30E+04, & - 0.10E+11, 0.40E+04, 0.30E+04, 0.10E+11, 0.40E+04, 0.30E+04, & - 0.30E+04, 0.10E+11, 0.10E+11, 0.10E+11/ - DO iseason = 1, dep_seasons - rcls(1:nlu,iseason) = dat6(1:nlu,iseason) - END DO + DATA ((dat6(iland,iseason),iland=1,nlu),iseason=1,dep_seasons)/0.10E+11, & + 0.20E+04, 0.20E+04, 0.20E+04, 0.20E+04, 0.20E+04, 0.20E+04, & + 0.20E+04, 0.20E+04, 0.20E+04, 0.20E+04, 0.20E+04, 0.20E+04, & + 0.20E+04, 0.20E+04, 0.10E+11, 0.25E+04, 0.20E+04, 0.10E+11, & + 0.25E+04, 0.20E+04, 0.20E+04, 0.10E+11, 0.10E+11, 0.10E+11, & + 0.10E+11, 0.90E+04, 0.90E+04, 0.90E+04, 0.90E+04, 0.90E+04, & + 0.90E+04, 0.90E+04, 0.90E+04, 0.20E+04, 0.90E+04, 0.90E+04, & + 0.20E+04, 0.20E+04, 0.40E+04, 0.10E+11, 0.90E+04, 0.40E+04, & + 0.10E+11, 0.90E+04, 0.40E+04, 0.40E+04, 0.10E+11, 0.10E+11, & + 0.10E+11, 0.10E+11, 0.10E+11, 0.10E+11, 0.10E+11, 0.10E+11, & + 0.90E+04, 0.90E+04, 0.90E+04, 0.90E+04, 0.20E+04, 0.90E+04, & + 0.90E+04, 0.20E+04, 0.30E+04, 0.60E+04, 0.10E+11, 0.90E+04, & + 0.60E+04, 0.10E+11, 0.90E+04, 0.60E+04, 0.60E+04, 0.10E+11, & + 0.10E+11, 0.10E+11, 0.10E+11, 0.10E+11, 0.10E+11, 0.10E+11, & + 0.10E+11, 0.90E+04, 0.10E+11, 0.10E+11, 0.10E+11, 0.10E+11, & + 0.90E+04, 0.90E+04, 0.20E+04, 0.20E+03, 0.40E+03, 0.10E+11, & + 0.90E+04, 0.40E+03, 0.10E+11, 0.90E+04, 0.40E+03, 0.40E+03, & + 0.10E+11, 0.10E+11, 0.10E+11, 0.10E+11, 0.40E+04, 0.40E+04, & + 0.40E+04, 0.40E+04, 0.40E+04, 0.40E+04, 0.40E+04, 0.40E+04, & + 0.20E+04, 0.40E+04, 0.20E+04, 0.20E+04, 0.20E+04, 0.30E+04, & + 0.10E+11, 0.40E+04, 0.30E+04, 0.10E+11, 0.40E+04, 0.30E+04, & + 0.30E+04, 0.10E+11, 0.10E+11, 0.10E+11/ + DO iseason = 1, dep_seasons + rcls(1:nlu,iseason) = dat6(1:nlu,iseason) + END DO ! RCLO for exposed surfaces in the lower canopy O3 ! data ((rclo(ILAND,ISEASON),ILAND=1,25),ISEASON=1,5)/0.10E+11, & - DATA ((dat7(iland,iseason),iland=1,nlu),iseason=1,dep_seasons)/0.10E+11, & - 0.10E+04, 0.10E+04, 0.10E+04, 0.10E+04, 0.10E+04, 0.10E+04, & - 0.10E+04, 0.10E+04, 0.10E+04, 0.10E+04, 0.10E+04, 0.10E+04, & - 0.10E+04, 0.10E+04, 0.10E+11, 0.10E+04, 0.10E+04, 0.10E+11, & - 0.10E+04, 0.10E+04, 0.10E+04, 0.10E+11, 0.10E+11, 0.10E+11, & - 0.10E+11, 0.40E+03, 0.40E+03, 0.40E+03, 0.40E+03, 0.40E+03, & - 0.40E+03, 0.40E+03, 0.40E+03, 0.10E+04, 0.40E+03, 0.40E+03, & - 0.10E+04, 0.10E+04, 0.60E+03, 0.10E+11, 0.40E+03, 0.60E+03, & - 0.10E+11, 0.40E+03, 0.60E+03, 0.60E+03, 0.10E+11, 0.10E+11, & - 0.10E+11, 0.10E+11, 0.10E+04, 0.10E+04, 0.10E+04, 0.10E+04, & - 0.40E+03, 0.40E+03, 0.40E+03, 0.40E+03, 0.10E+04, 0.40E+03, & - 0.40E+03, 0.10E+04, 0.10E+04, 0.60E+03, 0.10E+11, 0.80E+03, & - 0.60E+03, 0.10E+11, 0.80E+03, 0.60E+03, 0.60E+03, 0.10E+11, & - 0.10E+11, 0.10E+11, 0.10E+11, 0.10E+04, 0.10E+04, 0.10E+04, & - 0.10E+04, 0.40E+03, 0.10E+04, 0.10E+04, 0.10E+04, 0.10E+04, & - 0.40E+03, 0.40E+03, 0.10E+04, 0.15E+04, 0.60E+03, 0.10E+11, & - 0.80E+03, 0.60E+03, 0.10E+11, 0.80E+03, 0.60E+03, 0.60E+03, & - 0.10E+11, 0.10E+11, 0.10E+11, 0.10E+11, 0.10E+04, 0.10E+04, & - 0.10E+04, 0.10E+04, 0.50E+03, 0.50E+03, 0.50E+03, 0.50E+03, & - 0.10E+04, 0.50E+03, 0.15E+04, 0.10E+04, 0.15E+04, 0.70E+03, & - 0.10E+11, 0.60E+03, 0.70E+03, 0.10E+11, 0.60E+03, 0.70E+03, & - 0.70E+03, 0.10E+11, 0.10E+11, 0.10E+11/ - - DO iseason = 1, dep_seasons - rclo(1:nlu,iseason) = dat7(1:nlu,iseason) - END DO + DATA ((dat7(iland,iseason),iland=1,nlu),iseason=1,dep_seasons)/0.10E+11, & + 0.10E+04, 0.10E+04, 0.10E+04, 0.10E+04, 0.10E+04, 0.10E+04, & + 0.10E+04, 0.10E+04, 0.10E+04, 0.10E+04, 0.10E+04, 0.10E+04, & + 0.10E+04, 0.10E+04, 0.10E+11, 0.10E+04, 0.10E+04, 0.10E+11, & + 0.10E+04, 0.10E+04, 0.10E+04, 0.10E+11, 0.10E+11, 0.10E+11, & + 0.10E+11, 0.40E+03, 0.40E+03, 0.40E+03, 0.40E+03, 0.40E+03, & + 0.40E+03, 0.40E+03, 0.40E+03, 0.10E+04, 0.40E+03, 0.40E+03, & + 0.10E+04, 0.10E+04, 0.60E+03, 0.10E+11, 0.40E+03, 0.60E+03, & + 0.10E+11, 0.40E+03, 0.60E+03, 0.60E+03, 0.10E+11, 0.10E+11, & + 0.10E+11, 0.10E+11, 0.10E+04, 0.10E+04, 0.10E+04, 0.10E+04, & + 0.40E+03, 0.40E+03, 0.40E+03, 0.40E+03, 0.10E+04, 0.40E+03, & + 0.40E+03, 0.10E+04, 0.10E+04, 0.60E+03, 0.10E+11, 0.80E+03, & + 0.60E+03, 0.10E+11, 0.80E+03, 0.60E+03, 0.60E+03, 0.10E+11, & + 0.10E+11, 0.10E+11, 0.10E+11, 0.10E+04, 0.10E+04, 0.10E+04, & + 0.10E+04, 0.40E+03, 0.10E+04, 0.10E+04, 0.10E+04, 0.10E+04, & + 0.40E+03, 0.40E+03, 0.10E+04, 0.15E+04, 0.60E+03, 0.10E+11, & + 0.80E+03, 0.60E+03, 0.10E+11, 0.80E+03, 0.60E+03, 0.60E+03, & + 0.10E+11, 0.10E+11, 0.10E+11, 0.10E+11, 0.10E+04, 0.10E+04, & + 0.10E+04, 0.10E+04, 0.50E+03, 0.50E+03, 0.50E+03, 0.50E+03, & + 0.10E+04, 0.50E+03, 0.15E+04, 0.10E+04, 0.15E+04, 0.70E+03, & + 0.10E+11, 0.60E+03, 0.70E+03, 0.10E+11, 0.60E+03, 0.70E+03, & + 0.70E+03, 0.10E+11, 0.10E+11, 0.10E+11/ + + DO iseason = 1, dep_seasons + rclo(1:nlu,iseason) = dat7(1:nlu,iseason) + END DO ! data ((dat8(iseason,iland),iseason=1,5),iland=1,11) / & ! 1.e36, 60., 120., 70., 130., 100.,1.e36,1.e36, 80., 100., 150., & @@ -1839,27 +1839,27 @@ SUBROUTINE dep_init( numgas, & !-------------------------------------------------- ! Initialize parameters !-------------------------------------------------- - hstar(1:numgas) = 0. - hstar4(1:numgas) = 0. - dhr(1:numgas) = 0. - f0(1:numgas) = 0. - dvj(1:numgas) = 99. + hstar(1:numgas) = 0. + hstar4(1:numgas) = 0. + dhr(1:numgas) = 0. + f0(1:numgas) = 0. + dvj(1:numgas) = 99. !-------------------------------------------------- ! HENRY''S LAW COEFFICIENTS ! Effective Henry''s law coefficient at pH 7 ! [KH298]=mole/(l atm) !-------------------------------------------------- -is_cbm4_kpp : & + is_cbm4_kpp : & - if (chem_opt /= CBM4_KPP .or. & - chem_opt /= CB05_SORG_AQ_KPP .or. & - chem_opt /= CB05_SORG_VBS_AQ_KPP) then - if( chem_opt == MOZART_KPP .or. & - chem_opt == MOZCART_KPP .or. & - chem_opt == MOZART_MOSAIC_4BIN_KPP .or. & - chem_opt == MOZART_MOSAIC_4BIN_AQ_KPP ) then - hstar(p_o3) = 1.15E-2 + if (chem_opt /= CBM4_KPP .or. & + chem_opt /= CB05_SORG_AQ_KPP .or. & + chem_opt /= CB05_SORG_VBS_AQ_KPP) then + if( chem_opt == MOZART_KPP .or. & + chem_opt == MOZCART_KPP .or. & + chem_opt == MOZART_MOSAIC_4BIN_KPP .or. & + chem_opt == MOZART_MOSAIC_4BIN_AQ_KPP ) then + hstar(p_o3) = 1.15E-2 ! hstar(p_co) = 1.e-3 ! hstar(p_h2o2) = 8.33E+4 ! hstar(p_hcho) = 6.3e3 @@ -1885,27 +1885,27 @@ SUBROUTINE dep_init( numgas, & ! hstar(p_tolooh) = 311. ! hstar(p_terpooh) = 311. - if( chem_opt == MOZART_MOSAIC_4BIN_KPP .or. & + if( chem_opt == MOZART_MOSAIC_4BIN_KPP .or. & chem_opt == MOZART_MOSAIC_4BIN_AQ_KPP ) then - hstar(p_sulf) = 2.600E+06 - end if - if ( chem_opt == MOZART_MOSAIC_4BIN_AQ_KPP ) then + hstar(p_sulf) = 2.600E+06 + end if + if ( chem_opt == MOZART_MOSAIC_4BIN_AQ_KPP ) then ! hstar(p_cvasoaX) = 0.0 ! hstar(p_cvasoa1) = 1.06E+08 ! hstar(p_cvasoa2) = 1.84E+07 ! hstar(p_cvasoa3) = 3.18E+06 ! hstar(p_cvasoa4) = 5.50E+05 !! hstar(p_cvbsoaX) = 0.0 - ! hstar(p_cvbsoa1) = 5.25E+09 - ! hstar(p_cvbsoa2) = 7.00E+08 - ! hstar(p_cvbsoa3) = 9.33E+07 - ! hstar(p_cvbsoa4) = 1.24E+07 - endif - - else if( chem_opt == crimech_kpp .or. & - chem_opt == cri_mosaic_8bin_aq_kpp .or. & - chem_opt == cri_mosaic_4bin_aq_kpp ) then - hstar(p_o3) = 1.15E-2 + ! hstar(p_cvbsoa1) = 5.25E+09 + ! hstar(p_cvbsoa2) = 7.00E+08 + ! hstar(p_cvbsoa3) = 9.33E+07 + ! hstar(p_cvbsoa4) = 1.24E+07 + endif + + else if( chem_opt == crimech_kpp .or. & + chem_opt == cri_mosaic_8bin_aq_kpp .or. & + chem_opt == cri_mosaic_4bin_aq_kpp ) then + hstar(p_o3) = 1.15E-2 ! hstar(p_co) = 1.e-3 ! hstar(p_h2o2) = 8.33E+4 ! hstar(p_hcho) = 6.3e3 @@ -1915,14 +1915,14 @@ SUBROUTINE dep_init( numgas, & ! hstar(p_ket) = 27. ! hstar(p_paa) = 837. ! hstar(p_c2h5co3h) = 837. -! hstar(p_hoch2co3h) = 837. +! hstar(p_hoch2co3h) = 837. ! hstar(p_c3h6ooh) = 220. ! hstar(p_pan) = 5. ! hstar(p_mpan) = 1.15e-2 ! hstar(p_ru12pan) = 1.15e-2 ! hstar(p_rtn26pan) = 1.15e-2 -! hstar(p_phan) = 1.15e-2 -! hstar(p_ppn) = 1.15e-2 +! hstar(p_phan) = 1.15e-2 +! hstar(p_ppn) = 1.15e-2 ! hstar(p_c2h5oh) = 200. ! hstar(p_c2h5ooh) = 336. ! hstar(p_ic3h7ooh) = 336. @@ -1932,103 +1932,103 @@ SUBROUTINE dep_init( numgas, & ! hstar(p_acetol) = 6.3e3 ! hstar(p_glyald) = 4.14e4 ! hstar(p_hydrald) = 70. -! hstar(p_hcooh) = 311. -! hstar(p_prooh) = 311. -! hstar(p_hoc2h4ooh) = 311. -! hstar(p_rn10ooh) = 311. -! hstar(p_rn13ooh) = 311. -! hstar(p_rn16ooh) = 311. -! hstar(p_rn19ooh) = 311. -! hstar(p_rn8ooh) = 311. -! hstar(p_rn11ooh) = 311. -! hstar(p_rn14ooh) = 311. -! hstar(p_rn17ooh) = 311. -! hstar(p_rn9ooh) = 311. -! hstar(p_rn12ooh) = 311. -! hstar(p_rn15ooh) = 311. -! hstar(p_rn18ooh) = 311. -! hstar(p_nrn6ooh) = 311. -! hstar(p_nrn9ooh) = 311. -! hstar(p_nrn12ooh) = 311. -! hstar(p_ru14ooh) = 311. -! hstar(p_ru12ooh) = 311. -! hstar(p_ru10ooh) = 311. -! hstar(p_nru14ooh) = 311. -! hstar(p_nru12ooh) = 311. -! hstar(p_ra13ooh) = 311. -! hstar(p_ra16ooh) = 311. -! hstar(p_ra19ooh) = 311. -! hstar(p_rtn28ooh) = 311. -! hstar(p_rtn26ooh) = 311. -! hstar(p_nrtn28ooh) = 311. -! hstar(p_rtn25ooh) = 311. -! hstar(p_rtn24ooh) = 311. -! hstar(p_rtn23ooh) = 311. -! hstar(p_rtn14ooh) = 311. -! hstar(p_rtn10ooh) = 311. -! hstar(p_rcooh25) = 311. -! hstar(p_rtx28ooh) = 311. -! hstar(p_rtx24ooh) = 311. -! hstar(p_rtx22ooh) = 311. -! hstar(p_nrtx28ooh) = 311. -! hstar(p_ra22ooh) = 311. -! hstar(p_ra25ooh) = 311. -! hstar(p_ch3no3) = 1.e3 -! hstar(p_c2h5no3) = 1.e3 -! hstar(p_hoc2h4no3) = 1.e3 -! hstar(p_rn10no3) = 1.e3 -! hstar(p_rn13no3) = 1.e3 -! hstar(p_rn19no3) = 1.e3 -! hstar(p_rn9no3) = 1.e3 -! hstar(p_rn12no3) = 1.e3 -! hstar(p_rn15no3) = 1.e3 -! hstar(p_rn18no3) = 1.e3 -! hstar(p_rn16no3) = 1.e3 -! hstar(p_ru14no3) = 1.e3 -! hstar(p_ra13no3) = 1.e3 -! hstar(p_ra16no3) = 1.e3 -! hstar(p_ra19no3) = 1.e3 -! hstar(p_rtn28no3) = 1.e3 -! hstar(p_rtn25no3) = 1.e3 -! hstar(p_rtx28no3) = 1.e3 -! hstar(p_rtx24no3) = 1.e3 -! hstar(p_rtx22no3) = 1.e3 -! hstar(p_rtn23no3) = 1.e3 -! hstar(p_ra22no3) = 1.e3 -! hstar(p_ra25no3) = 1.e3 +! hstar(p_hcooh) = 311. +! hstar(p_prooh) = 311. +! hstar(p_hoc2h4ooh) = 311. +! hstar(p_rn10ooh) = 311. +! hstar(p_rn13ooh) = 311. +! hstar(p_rn16ooh) = 311. +! hstar(p_rn19ooh) = 311. +! hstar(p_rn8ooh) = 311. +! hstar(p_rn11ooh) = 311. +! hstar(p_rn14ooh) = 311. +! hstar(p_rn17ooh) = 311. +! hstar(p_rn9ooh) = 311. +! hstar(p_rn12ooh) = 311. +! hstar(p_rn15ooh) = 311. +! hstar(p_rn18ooh) = 311. +! hstar(p_nrn6ooh) = 311. +! hstar(p_nrn9ooh) = 311. +! hstar(p_nrn12ooh) = 311. +! hstar(p_ru14ooh) = 311. +! hstar(p_ru12ooh) = 311. +! hstar(p_ru10ooh) = 311. +! hstar(p_nru14ooh) = 311. +! hstar(p_nru12ooh) = 311. +! hstar(p_ra13ooh) = 311. +! hstar(p_ra16ooh) = 311. +! hstar(p_ra19ooh) = 311. +! hstar(p_rtn28ooh) = 311. +! hstar(p_rtn26ooh) = 311. +! hstar(p_nrtn28ooh) = 311. +! hstar(p_rtn25ooh) = 311. +! hstar(p_rtn24ooh) = 311. +! hstar(p_rtn23ooh) = 311. +! hstar(p_rtn14ooh) = 311. +! hstar(p_rtn10ooh) = 311. +! hstar(p_rcooh25) = 311. +! hstar(p_rtx28ooh) = 311. +! hstar(p_rtx24ooh) = 311. +! hstar(p_rtx22ooh) = 311. +! hstar(p_nrtx28ooh) = 311. +! hstar(p_ra22ooh) = 311. +! hstar(p_ra25ooh) = 311. +! hstar(p_ch3no3) = 1.e3 +! hstar(p_c2h5no3) = 1.e3 +! hstar(p_hoc2h4no3) = 1.e3 +! hstar(p_rn10no3) = 1.e3 +! hstar(p_rn13no3) = 1.e3 +! hstar(p_rn19no3) = 1.e3 +! hstar(p_rn9no3) = 1.e3 +! hstar(p_rn12no3) = 1.e3 +! hstar(p_rn15no3) = 1.e3 +! hstar(p_rn18no3) = 1.e3 +! hstar(p_rn16no3) = 1.e3 +! hstar(p_ru14no3) = 1.e3 +! hstar(p_ra13no3) = 1.e3 +! hstar(p_ra16no3) = 1.e3 +! hstar(p_ra19no3) = 1.e3 +! hstar(p_rtn28no3) = 1.e3 +! hstar(p_rtn25no3) = 1.e3 +! hstar(p_rtx28no3) = 1.e3 +! hstar(p_rtx24no3) = 1.e3 +! hstar(p_rtx22no3) = 1.e3 +! hstar(p_rtn23no3) = 1.e3 +! hstar(p_ra22no3) = 1.e3 +! hstar(p_ra25no3) = 1.e3 ! hstar(p_ic3h7no3) = 1.e3 ! hstar(p_ch3cho) = 1.14E+1 ! hstar(p_c2h5cho) = 1.14E+1 ! hstar(p_hoch2cho) = 1.14E+1 -! hstar(p_carb14) = 1.14E+1 -! hstar(p_carb17) = 1.14E+1 -! hstar(p_carb7) = 1.14E+1 -! hstar(p_carb10) = 1.14E+1 -! hstar(p_carb13) = 1.14E+1 -! hstar(p_carb16) = 1.14E+1 -! hstar(p_carb3) = 1.14E+1 -! hstar(p_carb6) = 1.14E+1 -! hstar(p_carb9) = 1.14E+1 -! hstar(p_carb12) = 1.14E+1 -! hstar(p_carb15) = 1.14E+1 -! hstar(p_ccarb12) = 1.14E+1 -! hstar(p_ucarb12) = 1.14E+1 -! hstar(p_ucarb10) = 1.14E+1 -! hstar(p_nucarb12) = 1.14E+1 -! hstar(p_udcarb8) = 1.14E+1 -! hstar(p_udcarb11) = 1.14E+1 -! hstar(p_udcarb14) = 1.14E+1 -! hstar(p_tncarb26) = 1.14E+1 -! hstar(p_tncarb10) = 1.14E+1 -! hstar(p_tncarb15) = 1.14E+1 -! hstar(p_txcarb24) = 1.14E+1 -! hstar(p_txcarb22) = 1.14E+1 -! hstar(p_carb11a) = 1.14E+1 -! hstar(p_tncarb12) = 1.14E+1 -! hstar(p_tncarb11) = 1.14E+1 -! hstar(p_udcarb17) = 1.14E+1 -! - else +! hstar(p_carb14) = 1.14E+1 +! hstar(p_carb17) = 1.14E+1 +! hstar(p_carb7) = 1.14E+1 +! hstar(p_carb10) = 1.14E+1 +! hstar(p_carb13) = 1.14E+1 +! hstar(p_carb16) = 1.14E+1 +! hstar(p_carb3) = 1.14E+1 +! hstar(p_carb6) = 1.14E+1 +! hstar(p_carb9) = 1.14E+1 +! hstar(p_carb12) = 1.14E+1 +! hstar(p_carb15) = 1.14E+1 +! hstar(p_ccarb12) = 1.14E+1 +! hstar(p_ucarb12) = 1.14E+1 +! hstar(p_ucarb10) = 1.14E+1 +! hstar(p_nucarb12) = 1.14E+1 +! hstar(p_udcarb8) = 1.14E+1 +! hstar(p_udcarb11) = 1.14E+1 +! hstar(p_udcarb14) = 1.14E+1 +! hstar(p_tncarb26) = 1.14E+1 +! hstar(p_tncarb10) = 1.14E+1 +! hstar(p_tncarb15) = 1.14E+1 +! hstar(p_txcarb24) = 1.14E+1 +! hstar(p_txcarb22) = 1.14E+1 +! hstar(p_carb11a) = 1.14E+1 +! hstar(p_tncarb12) = 1.14E+1 +! hstar(p_tncarb11) = 1.14E+1 +! hstar(p_udcarb17) = 1.14E+1 +! + else ! hstar(p_o3) = 1.13E-2 ! hstar(p_co) = 8.20E-3 ! hstar(p_h2o2) = 7.45E+4 @@ -2036,7 +2036,7 @@ SUBROUTINE dep_init( numgas, & ! hstar(p_pan) = 2.97 ! hstar(p_paa) = 473. ! hstar(p_onit) = 1.13 - end if + end if ! hstar(p_no2) = 6.40E-3 ! hstar(p_no) = 1.90E-3 ! hstar(p_aco3) = 1.14E+1 @@ -2069,13 +2069,13 @@ SUBROUTINE dep_init( numgas, & ! hstar(p_n2o5) = 1.00E+10 ! if(p_ol2 > 1) hstar(p_ol2) = 4.67E-3 ! if(p_par > 1) hstar(p_par) = 1.13E-3 !wig, 1-May-2007: for CBMZ -! if(p_ch4 > 1) then +! if(p_ch4 > 1) then ! hstar(p_ch4) = 1.50E-3 ! dhr(p_ch4) = 0. ! f0(p_ch4) = 0. ! dvj(p_ch4) = 0.250 ! end if -! if(p_co2 > 1) then +! if(p_co2 > 1) then ! hstar(p_co2) = 1.86E-1 ! dhr(p_co2) = 1636. ! f0(p_co2) = 0. @@ -2118,7 +2118,7 @@ SUBROUTINE dep_init( numgas, & ! -DH/R (for temperature correction) ! [-DH/R]=K !-------------------------------------------------- - if( chem_opt == MOZART_KPP .or. & + if( chem_opt == MOZART_KPP .or. & chem_opt == MOZCART_KPP .or. & chem_opt == MOZART_MOSAIC_4BIN_KPP .or. & chem_opt == MOZART_MOSAIC_4BIN_AQ_KPP ) then @@ -2147,12 +2147,12 @@ SUBROUTINE dep_init( numgas, & ! dhr(p_tolooh) = 5241. ! dhr(p_terpooh) = 5241. ! - if( chem_opt == MOZART_MOSAIC_4BIN_KPP .or. & - chem_opt == MOZART_MOSAIC_4BIN_AQ_KPP ) then - dhr(p_sulf) = 0.000E+00 - end if + if( chem_opt == MOZART_MOSAIC_4BIN_KPP .or. & + chem_opt == MOZART_MOSAIC_4BIN_AQ_KPP ) then + dhr(p_sulf) = 0.000E+00 + end if - if (chem_opt == MOZART_MOSAIC_4BIN_AQ_KPP ) then + if (chem_opt == MOZART_MOSAIC_4BIN_AQ_KPP ) then ! dhr(p_cvasoaX) = 0. ! dhr(p_cvasoa1) = 6014. ! dhr(p_cvasoa2) = 6014. @@ -2163,11 +2163,11 @@ SUBROUTINE dep_init( numgas, & ! dhr(p_cvbsoa2) = 6014. ! dhr(p_cvbsoa3) = 6014. ! dhr(p_cvbsoa4) = 6014. - endif + endif - else if( chem_opt == crimech_kpp .or. & - chem_opt == cri_mosaic_8bin_aq_kpp .or. & - chem_opt == cri_mosaic_4bin_aq_kpp ) then + else if( chem_opt == crimech_kpp .or. & + chem_opt == cri_mosaic_8bin_aq_kpp .or. & + chem_opt == cri_mosaic_4bin_aq_kpp ) then ! dhr(p_o3) = 2560. ! dhr(p_h2o2) = 7379. ! dhr(p_hcho) = 6425. @@ -2177,14 +2177,14 @@ SUBROUTINE dep_init( numgas, & ! dhr(p_ket) = 5300. ! dhr(p_paa) = 5308. ! dhr(p_c2h5co3h) = 5308. -! dhr(p_hoch2co3h) = 5308. +! dhr(p_hoch2co3h) = 5308. ! dhr(p_c3h6ooh) = 5653. ! dhr(p_pan) = 0. ! dhr(p_mpan) = 2560. ! dhr(p_ru12pan) = 2560. ! dhr(p_rtn26pan) = 2560. -! dhr(p_phan) = 2560. -! dhr(p_ppn) = 2560. +! dhr(p_phan) = 2560. +! dhr(p_ppn) = 2560. ! dhr(p_c2h5oh) = 6500. !! dhr(p_c3h6ooh) = 220. ! dhr(p_c2h5ooh) = 5995. @@ -2237,68 +2237,68 @@ SUBROUTINE dep_init( numgas, & ! dhr(p_nrtx28ooh) = 5241. ! dhr(p_ra22ooh) = 5241. ! dhr(p_ra25ooh) = 5241. -! dhr(p_ch3no3) = 6000. -! dhr(p_c2h5no3) = 6000. -! dhr(p_hoc2h4no3) = 6000. -! dhr(p_rn10no3) = 6000. -! dhr(p_rn13no3) = 6000. -! dhr(p_rn19no3) = 6000. -! dhr(p_rn9no3) = 6000. -! dhr(p_rn12no3) = 6000. -! dhr(p_rn15no3) = 6000. -! dhr(p_rn18no3) = 6000. -! dhr(p_rn16no3) = 6000. -! dhr(p_ru14no3) = 6000. -! dhr(p_ra13no3) = 6000. -! dhr(p_ra16no3) = 6000. -! dhr(p_ra19no3) = 6000. -! dhr(p_rtn28no3) = 6000. -! dhr(p_rtn25no3) = 6000. -! dhr(p_rtx28no3) = 6000. -! dhr(p_rtx24no3) = 6000. -! dhr(p_rtx22no3) = 6000. -! dhr(p_rtn23no3) = 6000. -! dhr(p_ra22no3) = 6000. -! dhr(p_ra25no3) = 6000. +! dhr(p_ch3no3) = 6000. +! dhr(p_c2h5no3) = 6000. +! dhr(p_hoc2h4no3) = 6000. +! dhr(p_rn10no3) = 6000. +! dhr(p_rn13no3) = 6000. +! dhr(p_rn19no3) = 6000. +! dhr(p_rn9no3) = 6000. +! dhr(p_rn12no3) = 6000. +! dhr(p_rn15no3) = 6000. +! dhr(p_rn18no3) = 6000. +! dhr(p_rn16no3) = 6000. +! dhr(p_ru14no3) = 6000. +! dhr(p_ra13no3) = 6000. +! dhr(p_ra16no3) = 6000. +! dhr(p_ra19no3) = 6000. +! dhr(p_rtn28no3) = 6000. +! dhr(p_rtn25no3) = 6000. +! dhr(p_rtx28no3) = 6000. +! dhr(p_rtx24no3) = 6000. +! dhr(p_rtx22no3) = 6000. +! dhr(p_rtn23no3) = 6000. +! dhr(p_ra22no3) = 6000. +! dhr(p_ra25no3) = 6000. ! dhr(p_ic3h7no3) = 6000. ! dhr(p_ch3cho) = 6266. ! dhr(p_c2h5cho) = 6266. -! dhr(p_hoch2cho) = 6266. -! dhr(p_carb14) = 6266. -! dhr(p_carb17) = 6266. -! dhr(p_carb7) = 6266. -! dhr(p_carb10) = 6266. -! dhr(p_carb13) = 6266. -! dhr(p_carb16) = 6266. -! dhr(p_carb3) = 6266. -! dhr(p_carb6) = 6266. -! dhr(p_carb9) = 6266. -! dhr(p_carb12) = 6266. -! dhr(p_carb15) = 6266. -! dhr(p_ccarb12) = 6266. -! dhr(p_ucarb12) = 6266. -! dhr(p_ucarb10) = 6266. -! dhr(p_nucarb12) = 6266. -! dhr(p_udcarb8) = 6266. -! dhr(p_udcarb11) = 6266. -! dhr(p_udcarb14) = 6266. -! dhr(p_tncarb26) = 6266. -! dhr(p_tncarb10) = 6266. -! dhr(p_tncarb15) = 6266. -! dhr(p_txcarb24) = 6266. -! dhr(p_txcarb22) = 6266. +! dhr(p_hoch2cho) = 6266. +! dhr(p_carb14) = 6266. +! dhr(p_carb17) = 6266. +! dhr(p_carb7) = 6266. +! dhr(p_carb10) = 6266. +! dhr(p_carb13) = 6266. +! dhr(p_carb16) = 6266. +! dhr(p_carb3) = 6266. +! dhr(p_carb6) = 6266. +! dhr(p_carb9) = 6266. +! dhr(p_carb12) = 6266. +! dhr(p_carb15) = 6266. +! dhr(p_ccarb12) = 6266. +! dhr(p_ucarb12) = 6266. +! dhr(p_ucarb10) = 6266. +! dhr(p_nucarb12) = 6266. +! dhr(p_udcarb8) = 6266. +! dhr(p_udcarb11) = 6266. +! dhr(p_udcarb14) = 6266. +! dhr(p_tncarb26) = 6266. +! dhr(p_tncarb10) = 6266. +! dhr(p_tncarb15) = 6266. +! dhr(p_txcarb24) = 6266. +! dhr(p_txcarb22) = 6266. ! dhr(p_carb11a) = 6266. ! dhr(p_tncarb12) = 6266. ! dhr(p_tncarb11) = 6266. ! dhr(p_udcarb17) = 6266. - else + else ! dhr(p_o3) = 2300. ! dhr(p_h2o2) = 6615. ! dhr(p_hcho) = 7190. ! dhr(p_pan) = 5760. ! dhr(p_onit) = 5487. ! dhr(p_paa) = 6170. - end if + end if ! dhr(p_no2) = 2500. ! dhr(p_no) = 1480. ! dhr(p_aco3) = 6266. @@ -2336,7 +2336,7 @@ SUBROUTINE dep_init( numgas, & ! REACTIVITY FACTORS ! [f0]=1 !-------------------------------------------------- - if( chem_opt == MOZART_KPP .or. & + if( chem_opt == MOZART_KPP .or. & chem_opt == MOZCART_KPP .or. & chem_opt == MOZART_MOSAIC_4BIN_KPP .or. & chem_opt == MOZART_MOSAIC_4BIN_AQ_KPP ) then @@ -2362,11 +2362,11 @@ SUBROUTINE dep_init( numgas, & ! f0(p_terpooh) = .1 if( chem_opt == MOZART_MOSAIC_4BIN_KPP .or. & - chem_opt == MOZART_MOSAIC_4BIN_AQ_KPP ) then - f0(p_sulf) = 0. + chem_opt == MOZART_MOSAIC_4BIN_AQ_KPP ) then + f0(p_sulf) = 0. end if - - if (chem_opt == MOZART_MOSAIC_4BIN_AQ_KPP ) then + + if (chem_opt == MOZART_MOSAIC_4BIN_AQ_KPP ) then ! f0(p_cvasoaX) = 0. ! f0(p_cvasoa1) = 0. ! f0(p_cvasoa2) = 0. @@ -2377,11 +2377,11 @@ SUBROUTINE dep_init( numgas, & ! f0(p_cvbsoa2) = 0. ! f0(p_cvbsoa3) = 0. ! f0(p_cvbsoa4) = 0. - endif + endif - else if( chem_opt == crimech_kpp .or. & - chem_opt == cri_mosaic_8bin_aq_kpp .or. & - chem_opt == cri_mosaic_4bin_aq_kpp ) then + else if( chem_opt == crimech_kpp .or. & + chem_opt == cri_mosaic_8bin_aq_kpp .or. & + chem_opt == cri_mosaic_4bin_aq_kpp ) then ! f0(p_hcho) = small_value @@ -2396,7 +2396,7 @@ SUBROUTINE dep_init( numgas, & ! f0(p_ru12pan) = .1 ! f0(p_rtn26pan) = .1 ! f0(p_phan) = .1 -! f0(p_ppn) = .1 +! f0(p_ppn) = .1 ! f0(p_c2h5oh) = small_value !! f0(p_c3h6ooh) = .1 ! f0(p_c2h5ooh) = .1 @@ -2477,37 +2477,37 @@ SUBROUTINE dep_init( numgas, & ! f0(p_c2h5cho) = 0. ! f0(p_hoch2cho) = 0. ! f0(p_carb14) = 0. -! f0(p_carb17) = 0. -! f0(p_carb7) = 0. -! f0(p_carb10) = 0. -! f0(p_carb13) = 0. -! f0(p_carb16) = 0. -! f0(p_carb3) = 0. -! f0(p_carb6) = 0. +! f0(p_carb17) = 0. +! f0(p_carb7) = 0. +! f0(p_carb10) = 0. +! f0(p_carb13) = 0. +! f0(p_carb16) = 0. +! f0(p_carb3) = 0. +! f0(p_carb6) = 0. ! f0(p_carb9) = 0. -! f0(p_carb12) = 0. -! f0(p_carb15) = 0. -! f0(p_ccarb12) = 0. +! f0(p_carb12) = 0. +! f0(p_carb15) = 0. +! f0(p_ccarb12) = 0. ! f0(p_ucarb12) = 0. ! f0(p_ucarb10) = 0. ! f0(p_nucarb12) = 0. -! f0(p_udcarb8) = 0. -! f0(p_udcarb11) = 0. -! f0(p_udcarb14) = 0. +! f0(p_udcarb8) = 0. +! f0(p_udcarb11) = 0. +! f0(p_udcarb14) = 0. ! f0(p_tncarb26) = 0. -! f0(p_tncarb10) = 0. +! f0(p_tncarb10) = 0. ! f0(p_tncarb15) = 0. -! f0(p_txcarb24) = 0. +! f0(p_txcarb24) = 0. ! f0(p_txcarb22) = 0. ! f0(p_carb11a) = 0. ! f0(p_tncarb12) = 0. ! f0(p_tncarb11) = 0. ! f0(p_udcarb17) = 0. -! - else +! + else ! f0(p_hcho) = 0. ! f0(p_onit) = 0. - end if + end if ! f0(p_no2) = 0.1 ! f0(p_no) = 0. ! f0(p_pan) = 0.1 @@ -2549,7 +2549,7 @@ SUBROUTINE dep_init( numgas, & ! DIFFUSION COEFFICIENTS ! [DV]=cm2/s (assumed: 1/SQRT(molar mass) when not known) !-------------------------------------------------- - if( chem_opt == MOZART_KPP .or. & + if( chem_opt == MOZART_KPP .or. & chem_opt == MOZCART_KPP .or. & chem_opt == MOZART_MOSAIC_4BIN_KPP .or. & chem_opt == MOZART_MOSAIC_4BIN_AQ_KPP ) then @@ -2577,12 +2577,12 @@ SUBROUTINE dep_init( numgas, & ! dvj(p_tolooh) = 0.084 ! dvj(p_terpooh) = 0.073 ! - if( chem_opt == MOZART_MOSAIC_4BIN_KPP .or. & + if( chem_opt == MOZART_MOSAIC_4BIN_KPP .or. & chem_opt == MOZART_MOSAIC_4BIN_AQ_KPP ) then - dvj(p_sulf) = 1.200E-01 - end if + dvj(p_sulf) = 1.200E-01 + end if - if (chem_opt == MOZART_MOSAIC_4BIN_AQ_KPP ) then + if (chem_opt == MOZART_MOSAIC_4BIN_AQ_KPP ) then ! dvj(p_cvasoaX) = 0.120 ! ?? ! dvj(p_cvasoa1) = 0.120 ! ?? ! dvj(p_cvasoa2) = 0.120 ! ?? @@ -2593,11 +2593,11 @@ SUBROUTINE dep_init( numgas, & ! dvj(p_cvbsoa2) = 0.120 ! ?? ! dvj(p_cvbsoa3) = 0.120 ! ?? ! dvj(p_cvbsoa4) = 0.120 ! ?? - endif + endif - else if( chem_opt == crimech_kpp .or. & - chem_opt == cri_mosaic_8bin_aq_kpp .or. & - chem_opt == cri_mosaic_4bin_aq_kpp ) then + else if( chem_opt == crimech_kpp .or. & + chem_opt == cri_mosaic_8bin_aq_kpp .or. & + chem_opt == cri_mosaic_4bin_aq_kpp ) then ! dvj(p_o3) = 0.144 ! dvj(p_h2o2) = 0.1715 ! dvj(p_hcho) = 0.1825 @@ -2607,13 +2607,13 @@ SUBROUTINE dep_init( numgas, & ! dvj(p_ket) = 0.1312 ! dvj(p_paa) = 0.1147 ! dvj(p_c2h5co3h) = 0.1147 -! dvj(p_hoch2co3h) = 0.1147 +! dvj(p_hoch2co3h) = 0.1147 !! dvj(p_c3h6ooh) = 0.1042 ! dvj(p_mpan) = 0.0825 ! dvj(p_ru12pan) = 0.0825 ! dvj(p_rtn26pan) = 0.0825 ! dvj(p_phan) = 0.0825 -! dvj(p_ppn) = 0.0825 +! dvj(p_ppn) = 0.0825 ! dvj(p_c2h5oh) = 0.1473 ! ! dvj(p_c3h6ooh) = 0.0916 @@ -2693,42 +2693,42 @@ SUBROUTINE dep_init( numgas, & ! dvj(p_ic3h7no3) = 0.0916 ! dvj(p_ch3cho) = 0.151 ! dvj(p_c2h5cho) = 0.151 -! dvj(p_hoch2cho) = 0.151 +! dvj(p_hoch2cho) = 0.151 ! dvj(p_carb14) = 0.151 -! dvj(p_carb17) = 0.151 -! dvj(p_carb7) = 0.151 -! dvj(p_carb10) = 0.151 -! dvj(p_carb13) = 0.151 -! dvj(p_carb16) = 0.151 -! dvj(p_carb3) = 0.151 -! dvj(p_carb6) = 0.151 +! dvj(p_carb17) = 0.151 +! dvj(p_carb7) = 0.151 +! dvj(p_carb10) = 0.151 +! dvj(p_carb13) = 0.151 +! dvj(p_carb16) = 0.151 +! dvj(p_carb3) = 0.151 +! dvj(p_carb6) = 0.151 ! dvj(p_carb9) = 0.151 -! dvj(p_carb12) = 0.151 -! dvj(p_carb15) = 0.151 -! dvj(p_ccarb12) = 0.151 +! dvj(p_carb12) = 0.151 +! dvj(p_carb15) = 0.151 +! dvj(p_ccarb12) = 0.151 ! dvj(p_ucarb12) = 0.151 ! dvj(p_ucarb10) = 0.151 ! dvj(p_nucarb12) = 0.151 -! dvj(p_udcarb8) = 0.151 -! dvj(p_udcarb11) = 0.151 -! dvj(p_udcarb14) = 0.151 +! dvj(p_udcarb8) = 0.151 +! dvj(p_udcarb11) = 0.151 +! dvj(p_udcarb14) = 0.151 ! dvj(p_tncarb26) = 0.151 -! dvj(p_tncarb10) = 0.151 +! dvj(p_tncarb10) = 0.151 ! dvj(p_tncarb15) = 0.151 -! dvj(p_txcarb24) = 0.151 +! dvj(p_txcarb24) = 0.151 ! dvj(p_txcarb22) = 0.151 ! dvj(p_carb11a) = 0.151 ! dvj(p_tncarb12) = 0.151 ! dvj(p_tncarb11) = 0.151 ! dvj(p_udcarb17) = 0.151 -! - else +! + else ! dvj(p_o3) = 0.175 ! dvj(p_h2o2) = 0.171 ! dvj(p_hcho) = 0.183 ! dvj(p_paa) = 0.115 ! dvj(p_onit) = 0.092 - end if + end if ! dvj(p_no2) = 0.147 ! dvj(p_no) = 0.183 ! dvj(p_pan) = 0.091 @@ -3304,22 +3304,22 @@ SUBROUTINE dep_init( numgas, & ! - DO l = 1, numgas - hstar4(l) = hstar(l) ! preliminary + DO l = 1, numgas + hstar4(l) = hstar(l) ! preliminary !-------------------------------------------------- ! Correction of diff. coefficient !-------------------------------------------------- - dvj(l) = dvj(l)*(293.15/298.15)**1.75 - sc = 0.15/dvj(l) ! Schmidt Number at 20C - dratio(l) = 0.242/dvj(l) ! of water vapor and gas at + dvj(l) = dvj(l)*(293.15/298.15)**1.75 + sc = 0.15/dvj(l) ! Schmidt Number at 20C + dratio(l) = 0.242/dvj(l) ! of water vapor and gas at !-------------------------------------------------- ! Ratio of diffusion coefficient !-------------------------------------------------- - scpr23(l) = (sc/0.72)**(2./3.) ! (Schmidt # / Prandtl #)** - END DO + scpr23(l) = (sc/0.72)**(2./3.) ! (Schmidt # / Prandtl #)** + END DO ! start of addition - else if ( (chem_opt == CB05_SORG_AQ_KPP) ) then + else if ( (chem_opt == CB05_SORG_AQ_KPP) ) then ! hstar(p_no2) = 6.40E-3 ! hstar(p_no) = 1.90E-3 @@ -3458,17 +3458,17 @@ SUBROUTINE dep_init( numgas, & ! dvj(p_eth) = 0.189 ! dvj(p_par) = 0.118 !wig, 1-May-2007: for CB05 ! - DO l = 1, numgas - hstar4(l) = hstar(l) ! preliminary + DO l = 1, numgas + hstar4(l) = hstar(l) ! preliminary ! Correction of diff. coeff - dvj(l) = dvj(l)*(293.15/298.15)**1.75 - sc = 0.15/dvj(l) ! Schmidt Number at 20degC - dratio(l) = 0.242/dvj(l) ! ! of water vapor and gas at + dvj(l) = dvj(l)*(293.15/298.15)**1.75 + sc = 0.15/dvj(l) ! Schmidt Number at 20degC + dratio(l) = 0.242/dvj(l) ! ! of water vapor and gas at ! Ratio of diffusion coeffi - scpr23(l) = (sc/0.72)**(2./3.) ! (Schmidt # / Prandtl #)** - END DO + scpr23(l) = (sc/0.72)**(2./3.) ! (Schmidt # / Prandtl #)** + END DO - else if ( (chem_opt == CB05_SORG_VBS_AQ_KPP) ) then + else if ( (chem_opt == CB05_SORG_VBS_AQ_KPP) ) then ! hstar(p_no2) = 6.40E-3 ! hstar(p_no) = 1.90E-3 @@ -3607,19 +3607,19 @@ SUBROUTINE dep_init( numgas, & ! dvj(p_eth) = 0.189 ! dvj(p_par) = 0.118 !wig, 1-May-2007: for CB05 ! - DO l = 1, numgas - hstar4(l) = hstar(l) ! preliminary + DO l = 1, numgas + hstar4(l) = hstar(l) ! preliminary ! Correction of diff. coeff - dvj(l) = dvj(l)*(293.15/298.15)**1.75 - sc = 0.15/dvj(l) ! Schmidt Number at 20degC - dratio(l) = 0.242/dvj(l) ! ! of water vapor and gas at + dvj(l) = dvj(l)*(293.15/298.15)**1.75 + sc = 0.15/dvj(l) ! Schmidt Number at 20degC + dratio(l) = 0.242/dvj(l) ! ! of water vapor and gas at ! Ratio of diffusion coeffi - scpr23(l) = (sc/0.72)**(2./3.) ! (Schmidt # / Prandtl #)** - END DO + scpr23(l) = (sc/0.72)**(2./3.) ! (Schmidt # / Prandtl #)** + END DO ! end of addition - else is_cbm4_kpp + else is_cbm4_kpp ! hstar(p_no2) = 6.40E-3 ! hstar(p_no) = 1.90E-3 @@ -3642,7 +3642,7 @@ SUBROUTINE dep_init( numgas, & ! hstar(p_hno3) = 2.69E+13 ! hstar(p_nh3) = 1.04E+4 ! hstar(p_n2o5) = 1.00E+10 -! hstar(p_par) = 1.13E-3 +! hstar(p_par) = 1.13E-3 ! -DH/R (for temperature correction) ! [-DH/R]=K @@ -3668,7 +3668,7 @@ SUBROUTINE dep_init( numgas, & ! dhr(p_hno3) = 8684. ! dhr(p_nh3) = 3660. ! dhr(p_n2o5) = 0. -! dhr(p_par) = 0. +! dhr(p_par) = 0. ! REACTIVITY FACTORS !! [f0]=1 @@ -3693,7 +3693,7 @@ SUBROUTINE dep_init( numgas, & ! f0(p_hno3) = 0. ! f0(p_nh3) = 0. ! f0(p_n2o5) = 1. -! f0(p_par) = 0. +! f0(p_par) = 0. !! DIFFUSION COEFFICIENTS ! [DV]=cm2/s (assumed: 1/SQRT(molar mass) when not known) @@ -3718,18 +3718,18 @@ SUBROUTINE dep_init( numgas, & ! dvj(p_hno3) = 0.126 ! dvj(p_nh3) = 0.227 ! dvj(p_n2o5) = 0.110 -! dvj(p_par) = 0.118 - DO l = 1, numgas - hstar4(l) = hstar(l) ! preliminary +! dvj(p_par) = 0.118 + DO l = 1, numgas + hstar4(l) = hstar(l) ! preliminary ! Correction of diff. coeff - dvj(l) = dvj(l)*(293.15/298.15)**1.75 - sc = 0.15/dvj(l) ! Schmidt Number at 20C - dratio(l) = 0.242/dvj(l) ! ! of water vapor and gas at + dvj(l) = dvj(l)*(293.15/298.15)**1.75 + sc = 0.15/dvj(l) ! Schmidt Number at 20C + dratio(l) = 0.242/dvj(l) ! ! of water vapor and gas at ! Ratio of diffusion coeffi - scpr23(l) = (sc/0.72)**(2./3.) ! (Schmidt # / Prandtl #)** + scpr23(l) = (sc/0.72)**(2./3.) ! (Schmidt # / Prandtl #)** - end DO - end if is_cbm4_kpp + end DO + end if is_cbm4_kpp @@ -3740,56 +3740,56 @@ SUBROUTINE dep_init( numgas, & ! vd = (u* / k) * CORRECTION FACTORS ! CONSTANT K FOR LANDUSE TYPES: -! urban and built-up land - kpart(1) = 500. -! dryland cropland and pasture - kpart(2) = 500. -! irrigated cropland and pasture - kpart(3) = 500. +! urban and built-up land + kpart(1) = 500. +! dryland cropland and pasture + kpart(2) = 500. +! irrigated cropland and pasture + kpart(3) = 500. ! mixed dryland/irrigated cropland and past - kpart(4) = 500. -! cropland/grassland mosaic - kpart(5) = 500. -! cropland/woodland mosaic - kpart(6) = 100. -! grassland - kpart(7) = 500. -! shrubland - kpart(8) = 500. -! mixed shrubland/grassland - kpart(9) = 500. -! savanna - kpart(10) = 500. -! deciduous broadleaf forest - kpart(11) = 100. -! deciduous needleleaf forest - kpart(12) = 100. -! evergreen broadleaf forest - kpart(13) = 100. -! evergreen needleleaf forest - kpart(14) = 100. -! mixed forest - kpart(15) = 100. -! water bodies - kpart(16) = 500. -! herbaceous wetland - kpart(17) = 500. -! wooded wetland - kpart(18) = 500. -! barren or sparsely vegetated - kpart(19) = 500. -! herbaceous tundra - kpart(20) = 500. -! wooded tundra - kpart(21) = 100. -! mixed tundra - kpart(22) = 500. -! bare ground tundra - kpart(23) = 500. -! snow or ice - kpart(24) = 500. + kpart(4) = 500. +! cropland/grassland mosaic + kpart(5) = 500. +! cropland/woodland mosaic + kpart(6) = 100. +! grassland + kpart(7) = 500. +! shrubland + kpart(8) = 500. +! mixed shrubland/grassland + kpart(9) = 500. +! savanna + kpart(10) = 500. +! deciduous broadleaf forest + kpart(11) = 100. +! deciduous needleleaf forest + kpart(12) = 100. +! evergreen broadleaf forest + kpart(13) = 100. +! evergreen needleleaf forest + kpart(14) = 100. +! mixed forest + kpart(15) = 100. +! water bodies + kpart(16) = 500. +! herbaceous wetland + kpart(17) = 500. +! wooded wetland + kpart(18) = 500. +! barren or sparsely vegetated + kpart(19) = 500. +! herbaceous tundra + kpart(20) = 500. +! wooded tundra + kpart(21) = 100. +! mixed tundra + kpart(22) = 500. +! bare ground tundra + kpart(23) = 500. +! snow or ice + kpart(24) = 500. ! Comments: - kpart(25) = 500. + kpart(25) = 500. ! Erisman et al. (1994) give ! k = 500 for low vegetation and k = 100 for forests. @@ -3833,7 +3833,7 @@ SUBROUTINE dep_init( numgas, & ! The Sizes of Particulate Sulfate and Nitrate in the Atmosphere ! - A Review ! JAPCA 37 (1987), 125-134 -! no data +! no data ! WRITE (0,*) ' return from rcread ' ! ********************************************************* @@ -3850,68 +3850,68 @@ SUBROUTINE dep_init( numgas, & ! 6 other natural landuse categories - IF (mminlu=='OLD ') THEN - ixxxlu(1) = 1 - ixxxlu(2) = 2 - ixxxlu(3) = 3 - ixxxlu(4) = 4 - ixxxlu(5) = 5 - ixxxlu(6) = 5 - ixxxlu(7) = 0 - ixxxlu(8) = 6 - ixxxlu(9) = 1 - ixxxlu(10) = 6 - ixxxlu(11) = 0 - ixxxlu(12) = 4 - ixxxlu(13) = 6 - END IF - IF (mminlu=='USGS') THEN - ixxxlu(1) = 1 - ixxxlu(2) = 2 - ixxxlu(3) = 2 - ixxxlu(4) = 2 - ixxxlu(5) = 2 - ixxxlu(6) = 4 - ixxxlu(7) = 3 - ixxxlu(8) = 6 - ixxxlu(9) = 3 - ixxxlu(10) = 6 - ixxxlu(11) = 4 - ixxxlu(12) = 5 - ixxxlu(13) = 4 - ixxxlu(14) = 5 - ixxxlu(15) = 5 - ixxxlu(16) = 0 - ixxxlu(17) = 6 - ixxxlu(18) = 4 - ixxxlu(19) = 1 - ixxxlu(20) = 6 - ixxxlu(21) = 4 - ixxxlu(22) = 6 - ixxxlu(23) = 1 - ixxxlu(24) = 0 - ixxxlu(25) = 1 - END IF - IF (mminlu=='SiB ') THEN - ixxxlu(1) = 4 - ixxxlu(2) = 4 - ixxxlu(3) = 4 - ixxxlu(4) = 5 - ixxxlu(5) = 5 - ixxxlu(6) = 6 - ixxxlu(7) = 3 - ixxxlu(8) = 6 - ixxxlu(9) = 6 - ixxxlu(10) = 6 - ixxxlu(11) = 1 - ixxxlu(12) = 2 - ixxxlu(13) = 6 - ixxxlu(14) = 1 - ixxxlu(15) = 0 - ixxxlu(16) = 0 - ixxxlu(17) = 1 - END IF - - END SUBROUTINE dep_init + IF (mminlu=='OLD ') THEN + ixxxlu(1) = 1 + ixxxlu(2) = 2 + ixxxlu(3) = 3 + ixxxlu(4) = 4 + ixxxlu(5) = 5 + ixxxlu(6) = 5 + ixxxlu(7) = 0 + ixxxlu(8) = 6 + ixxxlu(9) = 1 + ixxxlu(10) = 6 + ixxxlu(11) = 0 + ixxxlu(12) = 4 + ixxxlu(13) = 6 + END IF + IF (mminlu=='USGS') THEN + ixxxlu(1) = 1 + ixxxlu(2) = 2 + ixxxlu(3) = 2 + ixxxlu(4) = 2 + ixxxlu(5) = 2 + ixxxlu(6) = 4 + ixxxlu(7) = 3 + ixxxlu(8) = 6 + ixxxlu(9) = 3 + ixxxlu(10) = 6 + ixxxlu(11) = 4 + ixxxlu(12) = 5 + ixxxlu(13) = 4 + ixxxlu(14) = 5 + ixxxlu(15) = 5 + ixxxlu(16) = 0 + ixxxlu(17) = 6 + ixxxlu(18) = 4 + ixxxlu(19) = 1 + ixxxlu(20) = 6 + ixxxlu(21) = 4 + ixxxlu(22) = 6 + ixxxlu(23) = 1 + ixxxlu(24) = 0 + ixxxlu(25) = 1 + END IF + IF (mminlu=='SiB ') THEN + ixxxlu(1) = 4 + ixxxlu(2) = 4 + ixxxlu(3) = 4 + ixxxlu(4) = 5 + ixxxlu(5) = 5 + ixxxlu(6) = 6 + ixxxlu(7) = 3 + ixxxlu(8) = 6 + ixxxlu(9) = 6 + ixxxlu(10) = 6 + ixxxlu(11) = 1 + ixxxlu(12) = 2 + ixxxlu(13) = 6 + ixxxlu(14) = 1 + ixxxlu(15) = 0 + ixxxlu(16) = 0 + ixxxlu(17) = 1 + END IF + + END SUBROUTINE dep_init end module drydep_wesely_mod diff --git a/src/dust_afwa_mod.F90 b/src/dust_afwa_mod.F90 index 3903daa8..fff245b8 100644 --- a/src/dust_afwa_mod.F90 +++ b/src/dust_afwa_mod.F90 @@ -1,95 +1,95 @@ module dust_afwa_mod ! -! this module developed by Sandra Jones (AFWA and AER) +! this module developed by Sandra Jones (AFWA and AER) ! and Glenn Creighton (AFWA). For serious questions contact ! ! 08/31/2017 - Adapted for NUOPC/GOCART, R. Montuoro ! 06/2023, Restructure for CATChem, Jian.He@noaa.gov - use catchem_constants, only : kind_chem, g=>con_g, pi=>con_pi - use catchem_config, only: num_chem,num_emis_dust,& - p_dust_1,p_dust_2,p_dust_3,p_dust_4,p_dust_5, & - p_edust1,p_edust2,p_edust3,p_edust4,p_edust5 - use dust_data_mod + use catchem_constants, only : kind_chem, g=>con_g, pi=>con_pi + use catchem_config, only: num_chem,num_emis_dust,& + p_dust_1,p_dust_2,p_dust_3,p_dust_4,p_dust_5, & + p_edust1,p_edust2,p_edust3,p_edust4,p_edust5 + use dust_data_mod - implicit none + implicit none - private + private - public :: gocart_dust_afwa_driver + public :: gocart_dust_afwa_driver contains - subroutine gocart_dust_afwa_driver(ktau,dt,u_phy, & - v_phy,chem_arr,rho_phy,dz8w,smois,u10, & - v10,delp,erod,isltyp,area, & - emis_dust,ust,znt,clay,sand, & - num_soil_layers) - - IMPLICIT NONE - - INTEGER, INTENT(IN ) :: ktau, isltyp, & - num_soil_layers - REAL(kind=kind_chem), INTENT(IN ) :: dt,u_phy,v_phy, & - rho_phy, & - dz8w,u10,v10, & - delp,area, & - ust,znt, & - clay,sand - - REAL(kind=kind_chem), DIMENSION( num_chem ), & - INTENT(INOUT ) :: chem_arr - REAL(kind=kind_chem), DIMENSION(num_emis_dust),& - INTENT(INOUT ) :: emis_dust - REAL(kind=kind_chem), DIMENSION( num_soil_layers ) , & - INTENT(INOUT) :: smois - REAL(kind=kind_chem), DIMENSION( 3 ) , & - INTENT(IN ) :: erod + subroutine gocart_dust_afwa_driver(ktau,dt,u_phy, & + v_phy,chem_arr,rho_phy,dz8w,smois,u10, & + v10,delp,erod,isltyp,area, & + emis_dust,ust,znt,clay,sand, & + num_soil_layers) + + IMPLICIT NONE + + INTEGER, INTENT(IN ) :: ktau, isltyp, & + num_soil_layers + REAL(kind=kind_chem), INTENT(IN ) :: dt,u_phy,v_phy, & + rho_phy, & + dz8w,u10,v10, & + delp,area, & + ust,znt, & + clay,sand + + REAL(kind=kind_chem), DIMENSION( num_chem ), & + INTENT(INOUT ) :: chem_arr + REAL(kind=kind_chem), DIMENSION(num_emis_dust),& + INTENT(INOUT ) :: emis_dust + REAL(kind=kind_chem), DIMENSION( num_soil_layers ) , & + INTENT(INOUT) :: smois + REAL(kind=kind_chem), DIMENSION( 3 ) , & + INTENT(IN ) :: erod ! Local variables - integer :: nmx,smx,ilwi - real(kind_chem) :: erodtot, gravsm, drylimit - real(kind_chem), DIMENSION (5) :: tc,bems - real(kind_chem) :: airden,airmas,ustar,dxy - real(kind_chem), dimension (3) :: massfrac - real(kind_chem) :: conver,converi + integer :: nmx,smx,ilwi + real(kind_chem) :: erodtot, gravsm, drylimit + real(kind_chem), DIMENSION (5) :: tc,bems + real(kind_chem) :: airden,airmas,ustar,dxy + real(kind_chem), dimension (3) :: massfrac + real(kind_chem) :: conver,converi - conver=1.e-9 - converi=1.e9 + conver=1.e-9 + converi=1.e9 ! Number of dust bins - nmx=ndust - smx=nsalt + nmx=ndust + smx=nsalt ! Don't do dust over water!!! - ilwi=1 + ilwi=1 ! Total concentration at lowest model level. This is still hardcoded for 5 bins. - tc(1)=chem_arr(p_dust_1)*conver - tc(2)=chem_arr(p_dust_2)*conver - tc(3)=chem_arr(p_dust_3)*conver - tc(4)=chem_arr(p_dust_4)*conver - tc(5)=chem_arr(p_dust_5)*conver + tc(1)=chem_arr(p_dust_1)*conver + tc(2)=chem_arr(p_dust_2)*conver + tc(3)=chem_arr(p_dust_3)*conver + tc(4)=chem_arr(p_dust_4)*conver + tc(5)=chem_arr(p_dust_5)*conver ! Air mass and density at lowest model level. - airmas=area * delp / g - airden=rho_phy - ustar=ust - dxy=area - + airmas=area * delp / g + airden=rho_phy + ustar=ust + dxy=area + ! Total erodibility. - erodtot=SUM(erod(:)) + erodtot=SUM(erod(:)) ! Mass fractions of clay, silt, and sand. - massfrac(1)=clay - massfrac(2)=1-(clay+sand) - massfrac(3)=sand + massfrac(1)=clay + massfrac(2)=1-(clay+sand) + massfrac(3)=sand ! Don't allow roughness lengths greater than 20 cm to be lofted. ! This kludge accounts for land use types like urban areas and @@ -98,56 +98,56 @@ subroutine gocart_dust_afwa_driver(ktau,dt,u_phy, & ! factor in the literature, which reduces lofting for rough areas. ! Forthcoming... - IF (znt .gt. 0.2) then - ilwi=0 - ENDIF + IF (znt .gt. 0.2) then + ilwi=0 + ENDIF ! Do not allow areas with bedrock, lava, or land-ice to loft - IF (isltyp.eq. 15 .or. isltyp .eq. 16. .or. & - isltyp .eq. 18) then - ilwi=0 - ENDIF - IF (isltyp .eq. 0)then - ilwi=0 - endif - - if(ilwi == 0 ) return - - ! Calculate gravimetric soil moisture and drylimit. - - gravsm=100.*smois(1)/((1.-maxsmc(isltyp))*(2.65*(1.-clay)+2.50*clay)) - drylimit=14.0*clay*clay+17.0*clay - - ! Call dust emission routine. - call source_dust(nmx, smx, dt, tc, ustar, massfrac, & - erodtot, ilwi, dxy, gravsm, airden, airmas, & - bems, g, drylimit, dust_alpha, dust_gamma) - - chem_arr(p_dust_1)=tc(1)*converi - chem_arr(p_dust_2)=tc(2)*converi - chem_arr(p_dust_3)=tc(3)*converi - chem_arr(p_dust_4)=tc(4)*converi - chem_arr(p_dust_5)=tc(5)*converi - - ! -- for output diagnostics - emis_dust(p_edust1)=bems(1) - emis_dust(p_edust2)=bems(2) - emis_dust(p_edust3)=bems(3) - emis_dust(p_edust4)=bems(4) - emis_dust(p_edust5)=bems(5) + IF (isltyp.eq. 15 .or. isltyp .eq. 16. .or. & + isltyp .eq. 18) then + ilwi=0 + ENDIF + IF (isltyp .eq. 0)then + ilwi=0 + endif + + if(ilwi == 0 ) return + + ! Calculate gravimetric soil moisture and drylimit. + + gravsm=100.*smois(1)/((1.-maxsmc(isltyp))*(2.65*(1.-clay)+2.50*clay)) + drylimit=14.0*clay*clay+17.0*clay + + ! Call dust emission routine. + call source_dust(nmx, smx, dt, tc, ustar, massfrac, & + erodtot, ilwi, dxy, gravsm, airden, airmas, & + bems, g, drylimit, dust_alpha, dust_gamma) + + chem_arr(p_dust_1)=tc(1)*converi + chem_arr(p_dust_2)=tc(2)*converi + chem_arr(p_dust_3)=tc(3)*converi + chem_arr(p_dust_4)=tc(4)*converi + chem_arr(p_dust_5)=tc(5)*converi + + ! -- for output diagnostics + emis_dust(p_edust1)=bems(1) + emis_dust(p_edust2)=bems(2) + emis_dust(p_edust3)=bems(3) + emis_dust(p_edust4)=bems(4) + emis_dust(p_edust5)=bems(5) ! -end subroutine gocart_dust_afwa_driver + end subroutine gocart_dust_afwa_driver + - - SUBROUTINE source_dust(nmx, smx, dt1, tc, ustar, massfrac,& - erod, ilwi, dxy, gravsm, airden, airmas, & - bems, g0, drylimit, alpha, gamma) + SUBROUTINE source_dust(nmx, smx, dt1, tc, ustar, massfrac,& + erod, ilwi, dxy, gravsm, airden, airmas, & + bems, g0, drylimit, alpha, gamma) ! **************************************************************************** -! * Evaluate the source of each dust particles size bin by soil emission +! * Evaluate the source of each dust particles size bin by soil emission ! * ! * Input: ! * EROD Fraction of erodible grid cell (-) @@ -185,7 +185,7 @@ SUBROUTINE source_dust(nmx, smx, dt1, tc, ustar, massfrac,& ! * CV Normalization constant (-) ! * G0 Gravitational acceleration (m/s2) ! * G Gravitational acceleration in cgs (cm/s2) -! * +! * ! * Working: ! * U_TS0 "Dry" threshold friction velocity (m/s) ! * U_TS Moisture-adjusted threshold friction velocity (m/s) @@ -203,32 +203,32 @@ SUBROUTINE source_dust(nmx, smx, dt1, tc, ustar, massfrac,& ! * ! * Output: ! * TC Total concentration of dust (kg/kg/timestep/cell) -! * BEMS Source of each dust type (kg/timestep/cell) +! * BEMS Source of each dust type (kg/timestep/cell) ! * ! **************************************************************************** - INTEGER, INTENT(IN) :: nmx,smx - INTEGER, INTENT(IN) :: ilwi - REAL(kind_chem), INTENT(IN) :: erod - REAL(kind_chem), INTENT(IN) :: ustar - REAL(kind_chem), INTENT(IN) :: gravsm - REAL(kind_chem), INTENT(IN) :: drylimit - REAL(kind_chem), INTENT(IN) :: dxy - REAL(kind_chem), INTENT(IN) :: airden, airmas - REAL(kind_chem), INTENT(INOUT) :: tc(nmx) - REAL(kind_chem), INTENT(OUT) :: bems(nmx) - REAL(kind_chem), INTENT(IN) :: g0,dt1 - - REAL(kind_chem) :: den(smx), diam(smx) - REAL(kind_chem) :: dvol(nmx), distr_dust(nmx), dlndp(nmx) - REAL(kind_chem) :: dsurface(smx), ds_rel(smx) - REAL(kind_chem) :: massfrac(3) - REAL(kind_chem) :: u_ts0, u_ts, dsrc, srce, dmass, dvol_tot - REAL(kind_chem) :: salt,emit, emit_vol, stotal - REAL(kind_chem) :: rhoa, g - INTEGER :: i, j, m, s, n - -!! Sandblasting mass efficiency, aka "fudge factor" (based on Tegen et al, + INTEGER, INTENT(IN) :: nmx,smx + INTEGER, INTENT(IN) :: ilwi + REAL(kind_chem), INTENT(IN) :: erod + REAL(kind_chem), INTENT(IN) :: ustar + REAL(kind_chem), INTENT(IN) :: gravsm + REAL(kind_chem), INTENT(IN) :: drylimit + REAL(kind_chem), INTENT(IN) :: dxy + REAL(kind_chem), INTENT(IN) :: airden, airmas + REAL(kind_chem), INTENT(INOUT) :: tc(nmx) + REAL(kind_chem), INTENT(OUT) :: bems(nmx) + REAL(kind_chem), INTENT(IN) :: g0,dt1 + + REAL(kind_chem) :: den(smx), diam(smx) + REAL(kind_chem) :: dvol(nmx), distr_dust(nmx), dlndp(nmx) + REAL(kind_chem) :: dsurface(smx), ds_rel(smx) + REAL(kind_chem) :: massfrac(3) + REAL(kind_chem) :: u_ts0, u_ts, dsrc, srce, dmass, dvol_tot + REAL(kind_chem) :: salt,emit, emit_vol, stotal + REAL(kind_chem) :: rhoa, g + INTEGER :: i, j, m, s, n + +!! Sandblasting mass efficiency, aka "fudge factor" (based on Tegen et al, !! 2006 and Hemold et al, 2007) ! ! REAL(kind_chem), PARAMETER :: alpha=1.8E-8 ! (m^-1) @@ -236,42 +236,42 @@ SUBROUTINE source_dust(nmx, smx, dt1, tc, ustar, massfrac,& ! Global tuning constant, alpha. Sandblasting mass efficiency, beta. ! Beta maxes out for clay fractions above 0.2 = betamax. - REAL(kind_chem), INTENT(IN) :: alpha - REAL(kind_chem), PARAMETER :: betamax=5.25E-4 - REAL(kind_chem) :: beta + REAL(kind_chem), INTENT(IN) :: alpha + REAL(kind_chem), PARAMETER :: betamax=5.25E-4 + REAL(kind_chem) :: beta ! Experimental optional exponential tuning constant for erodibility. ! 0 < gamma < 1 -> more relative impact by low erodibility regions. - - REAL(kind_chem), INTENT(IN) :: gamma + + REAL(kind_chem), INTENT(IN) :: gamma ! Constant of proportionality from Marticorena et al, 1997 (unitless) ! Arguably more ~consistent~ fudge than alpha, which has many walnuts ! sprinkled throughout the literature. - GC - REAL(kind_chem), PARAMETER :: cmb=1.0 + REAL(kind_chem), PARAMETER :: cmb=1.0 ! REAL, PARAMETER :: cmb=2.61 ! from White,1979 -! Parameters used in Kok distribution function. Advise not to play with +! Parameters used in Kok distribution function. Advise not to play with ! these without the expressed written consent of someone who knows what ! they're doing. - GC - REAL(kind_chem), PARAMETER :: mmd_dust=3.4D-6 ! median mass diameter (m) - REAL(kind_chem), PARAMETER :: gsd_dust=3.0 ! geom. std deviation - REAL(kind_chem), PARAMETER :: lambda=12.0D-6 ! crack propogation length (m) - REAL(kind_chem), PARAMETER :: cv=12.62D-6 ! normalization constant + REAL(kind_chem), PARAMETER :: mmd_dust=3.4D-6 ! median mass diameter (m) + REAL(kind_chem), PARAMETER :: gsd_dust=3.0 ! geom. std deviation + REAL(kind_chem), PARAMETER :: lambda=12.0D-6 ! crack propogation length (m) + REAL(kind_chem), PARAMETER :: cv=12.62D-6 ! normalization constant ! Calculate saltation surface area distribution from sand, silt, and clay -! mass fractions and saltation bin fraction. This will later become a -! modifier to the total saltation flux. The reasoning here is that the +! mass fractions and saltation bin fraction. This will later become a +! modifier to the total saltation flux. The reasoning here is that the ! size and availability of saltators affects saltation efficiency. Based ! on Eqn. (32) in Marticorena & Bergametti, 1995 (hereon, MB95). - DO n=1,smx - dmass=massfrac(spoint(n))*frac_salt(n) - dsurface(n)=0.75*dmass/(den_salt(n)*reff_salt(n)) - ENDDO - + DO n=1,smx + dmass=massfrac(spoint(n))*frac_salt(n) + dsurface(n)=0.75*dmass/(den_salt(n)*reff_salt(n)) + ENDDO + ! The following equation yields relative surface area fraction. It will only ! work if you are representing the "full range" of all three soil classes. ! For this reason alone, we have incorporated particle sizes that encompass @@ -279,71 +279,71 @@ SUBROUTINE source_dust(nmx, smx, dt1, tc, ustar, massfrac,& ! surface, even though these smaller bins would be unlikely to play any large ! role in the actual saltation process. - GC - stotal=SUM(dsurface(:)) - DO n=1,smx - ds_rel(n)=dsurface(n)/stotal - ENDDO + stotal=SUM(dsurface(:)) + DO n=1,smx + ds_rel(n)=dsurface(n)/stotal + ENDDO ! Calculate total dust emission due to saltation of sand sized particles. ! Begin by calculating DRY threshold friction velocity (u_ts0). Next adjust ! u_ts0 for moisture to get threshold friction velocity (u_ts). Then -! calculate saltation flux (salt) where ustar has exceeded u_ts. Finally, -! calculate total dust emission (tot_emit), taking into account erodibility. - - g = g0*1.0E2 - emit=0.0 - - DO n = 1, smx - den(n) = den_salt(n)*1.0D-3 ! (g cm^-3) - diam(n) = 2.0*reff_salt(n)*1.0D2 ! (cm) - rhoa = airden*1.0D-3 ! (g cm^-3) - - ! Threshold friction velocity as a function of the dust density and - ! diameter from Bagnold (1941) (m s^-1). - - u_ts0 = 0.13*1.0D-2*SQRT(den(n)*g*diam(n)/rhoa)* & - SQRT(1.0+0.006/den(n)/g/(diam(n))**2.5)/ & - SQRT(1.928*(1331.0*(diam(n))**1.56+0.38)**0.092-1.0) - - ! Friction velocity threshold correction function based on physical - ! properties related to moisture tension. Soil moisture greater than - ! dry limit serves to increase threshold friction velocity (making - ! it more difficult to loft dust). When soil moisture has not reached - ! dry limit, treat as dry (no correction to threshold friction - ! velocity). GC - - IF (gravsm > drylimit) THEN - u_ts = MAX(0.0D+0,u_ts0*(sqrt(1.0+1.21*(gravsm-drylimit)**0.68))) - ELSE - u_ts = u_ts0 - END IF - - ! Saltation flux from Marticorena & Bergametti 1995 (MB95). ds_rel is - ! the relative surface area distribution - - IF (ustar .gt. u_ts .and. erod .gt. 0.0 .and. ilwi == 1) THEN - salt = cmb*ds_rel(n)*(airden/g0)*(ustar**3)* & - (1. + u_ts/ustar)*(1. - (u_ts**2)/(ustar**2)) ! (kg m^-1 s^-1) - ELSE - salt = 0.0 - ENDIF - - ! Calculate total vertical mass flux (note beta has units of m^-1) - ! Beta acts to tone down dust in areas with so few dust-sized particles that the - ! lofting efficiency decreases. Otherwise, super sandy zones would be huge dust - ! producers, which is generally not the case. Equation derived from wind-tunnel - ! experiments (see MB95). - - beta=10**(13.6*massfrac(1)-6.0) ! (unitless) - if (beta .gt. betamax) then - beta=betamax - endif - emit=emit+salt*(erod**gamma)*alpha*beta ! (kg m^-2 s^-1) - END DO - -! Now that we have the total dust emission, distribute into dust bins using +! calculate saltation flux (salt) where ustar has exceeded u_ts. Finally, +! calculate total dust emission (tot_emit), taking into account erodibility. + + g = g0*1.0E2 + emit=0.0 + + DO n = 1, smx + den(n) = den_salt(n)*1.0D-3 ! (g cm^-3) + diam(n) = 2.0*reff_salt(n)*1.0D2 ! (cm) + rhoa = airden*1.0D-3 ! (g cm^-3) + + ! Threshold friction velocity as a function of the dust density and + ! diameter from Bagnold (1941) (m s^-1). + + u_ts0 = 0.13*1.0D-2*SQRT(den(n)*g*diam(n)/rhoa)* & + SQRT(1.0+0.006/den(n)/g/(diam(n))**2.5)/ & + SQRT(1.928*(1331.0*(diam(n))**1.56+0.38)**0.092-1.0) + + ! Friction velocity threshold correction function based on physical + ! properties related to moisture tension. Soil moisture greater than + ! dry limit serves to increase threshold friction velocity (making + ! it more difficult to loft dust). When soil moisture has not reached + ! dry limit, treat as dry (no correction to threshold friction + ! velocity). GC + + IF (gravsm > drylimit) THEN + u_ts = MAX(0.0D+0,u_ts0*(sqrt(1.0+1.21*(gravsm-drylimit)**0.68))) + ELSE + u_ts = u_ts0 + END IF + + ! Saltation flux from Marticorena & Bergametti 1995 (MB95). ds_rel is + ! the relative surface area distribution + + IF (ustar .gt. u_ts .and. erod .gt. 0.0 .and. ilwi == 1) THEN + salt = cmb*ds_rel(n)*(airden/g0)*(ustar**3)* & + (1. + u_ts/ustar)*(1. - (u_ts**2)/(ustar**2)) ! (kg m^-1 s^-1) + ELSE + salt = 0.0 + ENDIF + + ! Calculate total vertical mass flux (note beta has units of m^-1) + ! Beta acts to tone down dust in areas with so few dust-sized particles that the + ! lofting efficiency decreases. Otherwise, super sandy zones would be huge dust + ! producers, which is generally not the case. Equation derived from wind-tunnel + ! experiments (see MB95). + + beta=10**(13.6*massfrac(1)-6.0) ! (unitless) + if (beta .gt. betamax) then + beta=betamax + endif + emit=emit+salt*(erod**gamma)*alpha*beta ! (kg m^-2 s^-1) + END DO + +! Now that we have the total dust emission, distribute into dust bins using ! lognormal distribution (Dr. Jasper Kok, in press), and -! calculate total mass emitted over the grid box over the timestep. +! calculate total mass emitted over the grid box over the timestep. ! ! In calculating the Kok distribution, we assume upper and lower limits to each bin. ! For reff_dust=(/0.73D-6,1.4D-6,2.4D-6,4.5D-6,8.0D-6/) (default), @@ -354,32 +354,32 @@ SUBROUTINE source_dust(nmx, smx, dt1, tc, ustar, massfrac,& ! GOCART bin configuration. We use them here to calculate dust bin width, dlndp. ! dVol is the volume distribution. You know...if you were wondering. GC - dvol_tot=0. - DO n=1,nmx - dlndp(n)=LOG(up_dust(n)/lo_dust(n)) - dvol(n)=(2.0*reff_dust(n)/cv)*(1.+ERF(LOG(2.0*reff_dust(n)/mmd_dust)/(SQRT(2.)*LOG(gsd_dust))))*& - EXP(-(2.0*reff_dust(n)/lambda)**3.0)*dlndp(n) - dvol_tot=dvol_tot+dvol(n) - ! Convert mass flux to volume flux - ! emit_vol=emit/den_dust(n) ! (m s^-1) - END DO - DO n=1,nmx - distr_dust(n)=dvol(n)/dvol_tot - END DO + dvol_tot=0. + DO n=1,nmx + dlndp(n)=LOG(up_dust(n)/lo_dust(n)) + dvol(n)=(2.0*reff_dust(n)/cv)*(1.+ERF(LOG(2.0*reff_dust(n)/mmd_dust)/(SQRT(2.)*LOG(gsd_dust))))*& + EXP(-(2.0*reff_dust(n)/lambda)**3.0)*dlndp(n) + dvol_tot=dvol_tot+dvol(n) + ! Convert mass flux to volume flux + ! emit_vol=emit/den_dust(n) ! (m s^-1) + END DO + DO n=1,nmx + distr_dust(n)=dvol(n)/dvol_tot + END DO ! Now distribute total vertical emission into dust bins and update concentration. - DO n=1,nmx - ! Calculate total mass emitted - dsrc = emit*distr_dust(n)*dxy*dt1 ! (kg) - IF (dsrc < 0.0) dsrc = 0.0 + DO n=1,nmx + ! Calculate total mass emitted + dsrc = emit*distr_dust(n)*dxy*dt1 ! (kg) + IF (dsrc < 0.0) dsrc = 0.0 - ! Update dust mixing ratio at first model level. - tc(n) = tc(n) + dsrc / airmas ! (kg/kg) - !bems(i,j,n) = dsrc/(dxy(j)*dt1) ! diagnostic (kg/m2/s) - bems(n) = 1.e+9*dsrc/(dxy*dt1) ! diagnostic (ug/m2/s) - END DO + ! Update dust mixing ratio at first model level. + tc(n) = tc(n) + dsrc / airmas ! (kg/kg) + !bems(i,j,n) = dsrc/(dxy(j)*dt1) ! diagnostic (kg/m2/s) + bems(n) = 1.e+9*dsrc/(dxy*dt1) ! diagnostic (ug/m2/s) + END DO -END SUBROUTINE source_dust + END SUBROUTINE source_dust end module dust_afwa_mod diff --git a/src/dust_fengsha_mod.F90 b/src/dust_fengsha_mod.F90 index 42fd7bd4..1280af4e 100644 --- a/src/dust_fengsha_mod.F90 +++ b/src/dust_fengsha_mod.F90 @@ -7,435 +7,435 @@ module dust_fengsha_mod ! 02/01/2020 - Adapted for FV3/CCPP, Haiqin Li ! 06/2023, Restructure for CATChem, Jian.He@noaa.gov - use catchem_constants, only : kind_chem, g=>con_g, pi=>con_pi - use catchem_config, only: num_chem,num_emis_dust,& - p_dust_1,p_dust_2,p_dust_3,p_dust_4,p_dust_5, & - p_edust1,p_edust2,p_edust3,p_edust4,p_edust5 - use dust_data_mod + use catchem_constants, only : kind_chem, g=>con_g, pi=>con_pi + use catchem_config, only: num_chem,num_emis_dust,& + p_dust_1,p_dust_2,p_dust_3,p_dust_4,p_dust_5, & + p_edust1,p_edust2,p_edust3,p_edust4,p_edust5 + use dust_data_mod - implicit none + implicit none - private + private - public :: gocart_dust_fengsha_driver + public :: gocart_dust_fengsha_driver contains - subroutine gocart_dust_fengsha_driver(dt, & - chem_arr,rho_phy,dz8w,smois, & - delp,ssm,isltyp,vegfra,snowh,area, & - emis_dust,ust,znt,clay,sand, & - rdrag,uthr,num_soil_layers,random_factor) - - IMPLICIT NONE - - INTEGER, INTENT(IN ) :: isltyp, & - num_soil_layers - REAL(kind=kind_chem), INTENT(IN ) :: dt,& - rho_phy, & - dz8w, & - delp,& - ssm,vegfra,snowh,& - area, & - ust,znt, & - clay,sand, & - rdrag,uthr,& - random_factor - - REAL(kind=kind_chem), DIMENSION( num_chem ), & - INTENT(INOUT ) :: chem_arr - REAL(kind=kind_chem), DIMENSION(num_emis_dust),& - OPTIONAL, INTENT(INOUT ) :: emis_dust - REAL(kind=kind_chem), DIMENSION( num_soil_layers ) , & - INTENT(INOUT) :: smois - - ! Local variables - - integer :: nmx,smx - integer :: ilwi - real(kind_chem) :: erodtot, gravsm, drylimit - real(kind_chem), DIMENSION (5) :: tc,bems - real(kind_chem) :: airden,airmas,ustar,dxy - real(kind_chem), dimension (3) :: massfrac - real(kind_chem) :: conver,converi - real(kind_chem) :: R - - ! threshold values - conver=1.e-9 - converi=1.e9 - - ! Number of dust bins - - nmx=ndust - smx=nsalt - - - ! Don't do dust over water!!! - - ilwi=1 - - ! Total concentration at lowest model level. This is still hardcoded for 5 bins. - tc(1)=chem_arr(p_dust_1)*conver - tc(2)=chem_arr(p_dust_2)*conver - tc(3)=chem_arr(p_dust_3)*conver - tc(4)=chem_arr(p_dust_4)*conver - tc(5)=chem_arr(p_dust_5)*conver - - ! Air mass and density at lowest model level. - airmas=area * delp / g - airden=rho_phy - ustar=ust - dxy=area - - ! Mass fractions of clay, silt, and sand. - massfrac(1)=clay - massfrac(2)=1-(clay+sand) - massfrac(3)=sand - - - ! Total erodibility. - erodtot = ssm ! SUM(erod(i,j,:)) - - ! Don't allow roughness lengths greater than 20 cm to be lofted. - ! This kludge accounts for land use types like urban areas and - ! forests which would otherwise show up as high dust emitters. - ! This is a placeholder for a more widely accepted kludge - ! factor in the literature, which reduces lofting for rough areas. - ! Forthcoming... - - IF (znt .gt. 0.2) then - ilwi=0 - ENDIF - - ! limit where there is lots of vegetation - if (vegfra .gt. .17) then - ilwi = 0 - endif - - ! limit where there is snow on the ground - if (snowh .gt. 0) then - ilwi = 0 - endif - - ! Do not allow areas with bedrock, lava, or land-ice to loft - - IF (isltyp.eq. 15 .or. isltyp .eq. 16. .or. & - isltyp .eq. 18) then - ilwi=0 - ENDIF - IF (isltyp .eq. 0)then - ilwi=0 - endif - - if(ilwi == 1 ) return - - ! Calculate gravimetric soil moisture and drylimit. - gravsm=100.*smois(1)/((1.-maxsmc(isltyp))*(2.65*(1.-clay)+2.50*clay)) - drylimit=14.0*clay*clay+17.0*clay - - ! get drag partition - ! FENGSHA uses the drag partition correction of MacKinnon et al 2004 - ! doi:10.1016/j.geomorph.2004.03.009 - if (dust_calcdrag .ne. 1) then - call fengsha_drag(znt,R) - else - ! use the precalculated version derived from ASCAT; Prigent et al. (2012,2015) - ! doi:10.1109/TGRS.2014.2338913 & doi:10.5194/amt-5-2703-2012 - ! pick only valid values - if (rdrag > 0.) then - R = real(rdrag, kind=kind_chem) + subroutine gocart_dust_fengsha_driver(dt, & + chem_arr,rho_phy,dz8w,smois, & + delp,ssm,isltyp,vegfra,snowh,area, & + emis_dust,ust,znt,clay,sand, & + rdrag,uthr,num_soil_layers,random_factor) + + IMPLICIT NONE + + INTEGER, INTENT(IN ) :: isltyp, & + num_soil_layers + REAL(kind=kind_chem), INTENT(IN ) :: dt,& + rho_phy, & + dz8w, & + delp,& + ssm,vegfra,snowh,& + area, & + ust,znt, & + clay,sand, & + rdrag,uthr,& + random_factor + + REAL(kind=kind_chem), DIMENSION( num_chem ), & + INTENT(INOUT ) :: chem_arr + REAL(kind=kind_chem), DIMENSION(num_emis_dust),& + OPTIONAL, INTENT(INOUT ) :: emis_dust + REAL(kind=kind_chem), DIMENSION( num_soil_layers ) , & + INTENT(INOUT) :: smois + + ! Local variables + + integer :: nmx,smx + integer :: ilwi + real(kind_chem) :: erodtot, gravsm, drylimit + real(kind_chem), DIMENSION (5) :: tc,bems + real(kind_chem) :: airden,airmas,ustar,dxy + real(kind_chem), dimension (3) :: massfrac + real(kind_chem) :: conver,converi + real(kind_chem) :: R + + ! threshold values + conver=1.e-9 + converi=1.e9 + + ! Number of dust bins + + nmx=ndust + smx=nsalt + + + ! Don't do dust over water!!! + + ilwi=1 + + ! Total concentration at lowest model level. This is still hardcoded for 5 bins. + tc(1)=chem_arr(p_dust_1)*conver + tc(2)=chem_arr(p_dust_2)*conver + tc(3)=chem_arr(p_dust_3)*conver + tc(4)=chem_arr(p_dust_4)*conver + tc(5)=chem_arr(p_dust_5)*conver + + ! Air mass and density at lowest model level. + airmas=area * delp / g + airden=rho_phy + ustar=ust + dxy=area + + ! Mass fractions of clay, silt, and sand. + massfrac(1)=clay + massfrac(2)=1-(clay+sand) + massfrac(3)=sand + + + ! Total erodibility. + erodtot = ssm ! SUM(erod(i,j,:)) + + ! Don't allow roughness lengths greater than 20 cm to be lofted. + ! This kludge accounts for land use types like urban areas and + ! forests which would otherwise show up as high dust emitters. + ! This is a placeholder for a more widely accepted kludge + ! factor in the literature, which reduces lofting for rough areas. + ! Forthcoming... + + IF (znt .gt. 0.2) then + ilwi=0 + ENDIF + + ! limit where there is lots of vegetation + if (vegfra .gt. .17) then + ilwi = 0 + endif + + ! limit where there is snow on the ground + if (snowh .gt. 0) then + ilwi = 0 + endif + + ! Do not allow areas with bedrock, lava, or land-ice to loft + + IF (isltyp.eq. 15 .or. isltyp .eq. 16. .or. & + isltyp .eq. 18) then + ilwi=0 + ENDIF + IF (isltyp .eq. 0)then + ilwi=0 + endif + + if(ilwi == 1 ) return + + ! Calculate gravimetric soil moisture and drylimit. + gravsm=100.*smois(1)/((1.-maxsmc(isltyp))*(2.65*(1.-clay)+2.50*clay)) + drylimit=14.0*clay*clay+17.0*clay + + ! get drag partition + ! FENGSHA uses the drag partition correction of MacKinnon et al 2004 + ! doi:10.1016/j.geomorph.2004.03.009 + if (dust_calcdrag .ne. 1) then + call fengsha_drag(znt,R) else - return + ! use the precalculated version derived from ASCAT; Prigent et al. (2012,2015) + ! doi:10.1109/TGRS.2014.2338913 & doi:10.5194/amt-5-2703-2012 + ! pick only valid values + if (rdrag > 0.) then + R = real(rdrag, kind=kind_chem) + else + return + endif endif - endif - - ! Call dust emission routine. - call source_dust(nmx, smx, dt, tc, ustar, massfrac, & - erodtot, dxy, gravsm, airden, airmas, & - bems, g, drylimit, dust_alpha, dust_gamma, R, uthr, random_factor) - - chem_arr(p_dust_1)=tc(1)*converi - chem_arr(p_dust_2)=tc(2)*converi - chem_arr(p_dust_3)=tc(3)*converi - chem_arr(p_dust_4)=tc(4)*converi - chem_arr(p_dust_5)=tc(5)*converi - - ! -- for output diagnostics - emis_dust(p_edust1)=bems(1) - emis_dust(p_edust2)=bems(2) - emis_dust(p_edust3)=bems(3) - emis_dust(p_edust4)=bems(4) - emis_dust(p_edust5)=bems(5) - - ! - - end subroutine gocart_dust_fengsha_driver - - - SUBROUTINE source_dust(nmx, smx, dt1, tc, ustar, massfrac, & - erod, dxy, gravsm, airden, airmas, bems, g0, drylimit, alpha, & - gamma, R, uthres, random_factor) - - ! **************************************************************************** - ! * Evaluate the source of each dust particles size bin by soil emission - ! * - ! * Input: - ! * EROD Fraction of erodible grid cell (-) - ! * GRAVSM Gravimetric soil moisture (g/g) - ! * DRYLIMIT Upper GRAVSM limit for air-dry soil (g/g) - ! * ALPHA Constant to fudge the total emission of dust (1/m) - ! * GAMMA Tuning constant for erodibility (-) - ! * DXY Surface of each grid cell (m2) - ! * AIRMAS Mass of air for each grid box (kg) - ! * AIRDEN Density of air for each grid box (kg/m3) - ! * USTAR Friction velocity (m/s) - ! * DT1 Time step (s) - ! * NMX Number of dust bins (-) - ! * SMX Number of saltation bins (-) - ! * IMX Number of I points (-) - ! * JMX Number of J points (-) - ! * LMX Number of L points (-) - ! * R Drag Partition (-) - ! * UTHRES FENGSHA Dry Threshold Velocities (m/s) - ! * - ! * Data: - ! * MASSFRAC Fraction of mass in each of 3 soil classes (-) - ! * SPOINT Pointer to 3 soil classes (-) - ! * DEN_DUST Dust density (kg/m3) - ! * DEN_SALT Saltation particle density (kg/m3) - ! * REFF_SALT Reference saltation particle diameter (m) - ! * REFF_DUST Reference dust particle diameter (m) - ! * LO_DUST Lower diameter limits for dust bins (m) - ! * UP_DUST Upper diameter limits for dust bins (m) - ! * FRAC_SALT Soil class mass fraction for saltation bins (-) - ! * - ! * Parameters: - ! * CMB Constant of proportionality (-) - ! * MMD_DUST Mass median diameter of dust (m) - ! * GSD_DUST Geometric standard deviation of dust (-) - ! * LAMBDA Side crack propagation length (m) - ! * CV Normalization constant (-) - ! * G0 Gravitational acceleration (m/s2) - ! * G Gravitational acceleration in cgs (cm/s2) - ! * - ! * Working: - ! * U_TS0 "Dry" threshold friction velocity (m/s) - ! * U_TS Moisture-adjusted threshold friction velocity (m/s) - ! * RHOA Density of air in cgs (g/cm3) - ! * DEN Dust density in cgs (g/cm3) - ! * DIAM Dust diameter in cgs (cm) - ! * DMASS Saltation mass distribution (-) - ! * DSURFACE Saltation surface area per unit mass (m2/kg) - ! * DS_REL Saltation surface area distribution (-) - ! * SALT Saltation flux (kg/m/s) - ! * DLNDP Dust bin width (-) - ! * EMIT Total vertical mass flux (kg/m2/s) - ! * EMIT_VOL Total vertical volume flux (m/s) - ! * DSRC Mass of emitted dust (kg/timestep/cell) - ! * - ! * Output: - ! * TC Total concentration of dust (kg/kg/timestep/cell) - ! * BEMS Source of each dust type (kg/timestep/cell) - ! * - ! **************************************************************************** - - INTEGER, INTENT(IN) :: nmx,smx - REAL(kind_chem), INTENT(IN) :: dt1 - REAL(kind_chem), INTENT(INOUT) :: tc(nmx) - REAL(kind_chem), INTENT(IN) :: ustar - REAL(kind_chem), INTENT(IN) :: massfrac(3) - REAL(kind_chem), INTENT(IN) :: erod - REAL(kind_chem), INTENT(IN) :: dxy - REAL(kind_chem), INTENT(IN) :: gravsm - REAL(kind_chem), INTENT(IN) :: random_factor - REAL(kind_chem), INTENT(IN) :: airden - REAL(kind_chem), INTENT(IN) :: airmas - REAL(kind_chem), INTENT(OUT) :: bems(nmx) - REAL(kind_chem), INTENT(IN) :: g0 - REAL(kind_chem), INTENT(IN) :: drylimit - !! Sandblasting mass efficiency, aka "fudge factor" (based on Tegen et al, - !! 2006 and Hemold et al, 2007) - ! - ! REAL, PARAMETER :: alpha=1.8E-8 ! (m^-1) - REAL(kind_chem), INTENT(IN) :: alpha - ! Experimental optional exponential tuning constant for erodibility. - ! 0 < gamma < 1 -> more relative impact by low erodibility regions. - REAL(kind_chem), INTENT(IN) :: gamma - REAL(kind_chem), INTENT(IN) :: R - REAL(kind_chem), INTENT(IN) :: uthres - - REAL(kind_chem) :: den(smx), diam(smx) - REAL(kind_chem) :: dvol(nmx), distr_dust(nmx), dlndp(nmx) - REAL(kind_chem) :: dsurface(smx), ds_rel(smx) - REAL(kind_chem) :: u_ts0, u_ts, dsrc, dmass, dvol_tot - REAL(kind_chem) :: salt,emit, emit_vol, stotal - REAL(kind_chem) :: rhoa, g - INTEGER :: i, j, n - - ! Sandblasting mass efficiency, beta. - ! Beta maxes out for clay fractions above 0.2 = betamax. - - REAL(kind_chem), PARAMETER :: betamax=5.25E-4 - REAL(kind_chem) :: beta - integer :: styp - - ! Constant of proportionality from Marticorena et al, 1997 (unitless) - ! Arguably more ~consistent~ fudge than alpha, which has many walnuts - ! sprinkled throughout the literature. - GC - - REAL(kind_chem), PARAMETER :: cmb=1.0 - ! REAL, PARAMETER :: cmb=2.61 ! from White,1979 - - ! Parameters used in Kok distribution function. Advise not to play with - ! these without the expressed written consent of someone who knows what - ! they're doing. - GC - - REAL(kind_chem), PARAMETER :: mmd_dust=3.4D-6 ! median mass diameter (m) - REAL(kind_chem), PARAMETER :: gsd_dust=3.0 ! geom. std deviation - REAL(kind_chem), PARAMETER :: lambda=12.0D-6 ! crack propagation length (m) - REAL(kind_chem), PARAMETER :: cv=12.62D-6 ! normalization constant - - ! Calculate saltation surface area distribution from sand, silt, and clay - ! mass fractions and saltation bin fraction. This will later become a - ! modifier to the total saltation flux. The reasoning here is that the - ! size and availability of saltators affects saltation efficiency. Based - ! on Eqn. (32) in Marticorena & Bergametti, 1995 (hereon, MB95). - - DO n=1,smx - dmass=massfrac(spoint(n))*frac_salt(n) - dsurface(n)=0.75*dmass/(den_salt(n)*reff_salt(n)) - ENDDO - - ! The following equation yields relative surface area fraction. It will only - ! work if you are representing the "full range" of all three soil classes. - ! For this reason alone, we have incorporated particle sizes that encompass - ! the clay class, to account for the its relative area over the basal - ! surface, even though these smaller bins would be unlikely to play any large - ! role in the actual saltation process. - GC - - stotal=SUM(dsurface(:)) - DO n=1,smx - ds_rel(n)=dsurface(n)/stotal - ENDDO - - ! Calculate total dust emission due to saltation of sand sized particles. - ! Begin by calculating DRY threshold friction velocity (u_ts0). Next adjust - ! u_ts0 for moisture to get threshold friction velocity (u_ts). Then - ! calculate saltation flux (salt) where ustar has exceeded u_ts. Finally, - ! calculate total dust emission (tot_emit), taking into account erodibility. - - ! Set DRY threshold friction velocity to input value - u_ts0 = uthres - - g = g0*1.0E2 - emit=0.0 - - DO n = 1, smx - den(n) = den_salt(n)*1.0D-3 ! (g cm^-3) - diam(n) = 2.0*reff_salt(n)*1.0D2 ! (cm) - rhoa = airden*1.0D-3 ! (g cm^-3) - - ! FENGSHA uses the 13 category soil type from the USDA - ! call calc_fengsha_styp(massfrac(1),massfrac(3),massfrac(2),styp) - ! Fengsha uses threshold velocities based on dale gilletes data - ! call fengsha_utst(styp,uthres,u_ts0) - - ! Friction velocity threshold correction function based on physical - ! properties related to moisture tension. Soil moisture greater than - ! dry limit serves to increase threshold friction velocity (making - ! it more difficult to loft dust). When soil moisture has not reached - ! dry limit, treat as dry - - IF (gravsm > drylimit) THEN - u_ts = MAX(0.0D+0,u_ts0*(sqrt(1.0+1.21*(gravsm-drylimit)**0.68)) / R) - ELSE - u_ts = u_ts0 / R - END IF - - ! Calculate total vertical mass flux (note beta has units of m^-1) - ! Beta acts to tone down dust in areas with so few dust-sized particles that the - ! lofting efficiency decreases. Otherwise, super sandy zones would be huge dust - ! producers, which is generally not the case. Equation derived from wind-tunnel - ! experiments (see MB95). - - beta=10**(13.6*massfrac(1)-6.0) ! (unitless) - if (massfrac(1) <= 0.2) then - beta=10**(13.4*massfrac(1)-6.0) - else - beta = 2.E-4 - endif - - !--------------------------------------------------------------------- - ! formula of Draxler & Gillette (2001) Atmos. Environ. - ! F = K A (r/g) U* ( U*^2 - Ut*^2 ) - ! - ! where: - ! F = vertical emission flux [g/m**2-s] - ! K = constant 2.0E-04 [1/m] - ! A = 0~3.5 mean = 2.8 (fudge factor) - ! U* = friction velocity [m/s] - ! Ut* = threshold friction velocity [m/s] - ! - !-------------------------------------------------------------------- - - IF (ustar .gt. u_ts) then - call fengsha_hflux(ustar,u_ts,beta, salt) - salt = alpha * cmb * ds_rel(n) * airden / g0 * salt * (erod**gamma) * beta - else - salt = 0. - endif - ! EROD is taken into account above - emit = emit + salt - END DO - - ! Now that we have the total dust emission, distribute into dust bins using - ! lognormal distribution (Dr. Jasper Kok, in press), and - ! calculate total mass emitted over the grid box over the timestep. - ! - ! In calculating the Kok distribution, we assume upper and lower limits to each bin. - ! For reff_dust=(/0.73D-6,1.4D-6,2.4D-6,4.5D-6,8.0D-6/) (default), - ! lower limits were ASSUMED at lo_dust=(/0.1D-6,1.0D-6,1.8D-6,3.0D-6,6.0D-6/) - ! upper limits were ASSUMED at up_dust=(/1.0D-6,1.8D-6,3.0D-6,6.0D-6,10.0D-6/) - ! These may be changed within module_data_gocart_dust.F, but make sure it is - ! consistent with reff_dust values. These values were taken from the original - ! GOCART bin configuration. We use them here to calculate dust bin width, dlndp. - ! dVol is the volume distribution. You know...if you were wondering. GC - - dvol_tot=0. - DO n=1,nmx - dlndp(n)=LOG(up_dust(n)/lo_dust(n)) - dvol(n)=(2.0*reff_dust(n)/cv)*(1.+ERF(LOG(2.0*reff_dust(n)/mmd_dust)/(SQRT(2.)*LOG(gsd_dust))))*& + + ! Call dust emission routine. + call source_dust(nmx, smx, dt, tc, ustar, massfrac, & + erodtot, dxy, gravsm, airden, airmas, & + bems, g, drylimit, dust_alpha, dust_gamma, R, uthr, random_factor) + + chem_arr(p_dust_1)=tc(1)*converi + chem_arr(p_dust_2)=tc(2)*converi + chem_arr(p_dust_3)=tc(3)*converi + chem_arr(p_dust_4)=tc(4)*converi + chem_arr(p_dust_5)=tc(5)*converi + + ! -- for output diagnostics + emis_dust(p_edust1)=bems(1) + emis_dust(p_edust2)=bems(2) + emis_dust(p_edust3)=bems(3) + emis_dust(p_edust4)=bems(4) + emis_dust(p_edust5)=bems(5) + + ! + + end subroutine gocart_dust_fengsha_driver + + + SUBROUTINE source_dust(nmx, smx, dt1, tc, ustar, massfrac, & + erod, dxy, gravsm, airden, airmas, bems, g0, drylimit, alpha, & + gamma, R, uthres, random_factor) + + ! **************************************************************************** + ! * Evaluate the source of each dust particles size bin by soil emission + ! * + ! * Input: + ! * EROD Fraction of erodible grid cell (-) + ! * GRAVSM Gravimetric soil moisture (g/g) + ! * DRYLIMIT Upper GRAVSM limit for air-dry soil (g/g) + ! * ALPHA Constant to fudge the total emission of dust (1/m) + ! * GAMMA Tuning constant for erodibility (-) + ! * DXY Surface of each grid cell (m2) + ! * AIRMAS Mass of air for each grid box (kg) + ! * AIRDEN Density of air for each grid box (kg/m3) + ! * USTAR Friction velocity (m/s) + ! * DT1 Time step (s) + ! * NMX Number of dust bins (-) + ! * SMX Number of saltation bins (-) + ! * IMX Number of I points (-) + ! * JMX Number of J points (-) + ! * LMX Number of L points (-) + ! * R Drag Partition (-) + ! * UTHRES FENGSHA Dry Threshold Velocities (m/s) + ! * + ! * Data: + ! * MASSFRAC Fraction of mass in each of 3 soil classes (-) + ! * SPOINT Pointer to 3 soil classes (-) + ! * DEN_DUST Dust density (kg/m3) + ! * DEN_SALT Saltation particle density (kg/m3) + ! * REFF_SALT Reference saltation particle diameter (m) + ! * REFF_DUST Reference dust particle diameter (m) + ! * LO_DUST Lower diameter limits for dust bins (m) + ! * UP_DUST Upper diameter limits for dust bins (m) + ! * FRAC_SALT Soil class mass fraction for saltation bins (-) + ! * + ! * Parameters: + ! * CMB Constant of proportionality (-) + ! * MMD_DUST Mass median diameter of dust (m) + ! * GSD_DUST Geometric standard deviation of dust (-) + ! * LAMBDA Side crack propagation length (m) + ! * CV Normalization constant (-) + ! * G0 Gravitational acceleration (m/s2) + ! * G Gravitational acceleration in cgs (cm/s2) + ! * + ! * Working: + ! * U_TS0 "Dry" threshold friction velocity (m/s) + ! * U_TS Moisture-adjusted threshold friction velocity (m/s) + ! * RHOA Density of air in cgs (g/cm3) + ! * DEN Dust density in cgs (g/cm3) + ! * DIAM Dust diameter in cgs (cm) + ! * DMASS Saltation mass distribution (-) + ! * DSURFACE Saltation surface area per unit mass (m2/kg) + ! * DS_REL Saltation surface area distribution (-) + ! * SALT Saltation flux (kg/m/s) + ! * DLNDP Dust bin width (-) + ! * EMIT Total vertical mass flux (kg/m2/s) + ! * EMIT_VOL Total vertical volume flux (m/s) + ! * DSRC Mass of emitted dust (kg/timestep/cell) + ! * + ! * Output: + ! * TC Total concentration of dust (kg/kg/timestep/cell) + ! * BEMS Source of each dust type (kg/timestep/cell) + ! * + ! **************************************************************************** + + INTEGER, INTENT(IN) :: nmx,smx + REAL(kind_chem), INTENT(IN) :: dt1 + REAL(kind_chem), INTENT(INOUT) :: tc(nmx) + REAL(kind_chem), INTENT(IN) :: ustar + REAL(kind_chem), INTENT(IN) :: massfrac(3) + REAL(kind_chem), INTENT(IN) :: erod + REAL(kind_chem), INTENT(IN) :: dxy + REAL(kind_chem), INTENT(IN) :: gravsm + REAL(kind_chem), INTENT(IN) :: random_factor + REAL(kind_chem), INTENT(IN) :: airden + REAL(kind_chem), INTENT(IN) :: airmas + REAL(kind_chem), INTENT(OUT) :: bems(nmx) + REAL(kind_chem), INTENT(IN) :: g0 + REAL(kind_chem), INTENT(IN) :: drylimit + !! Sandblasting mass efficiency, aka "fudge factor" (based on Tegen et al, + !! 2006 and Hemold et al, 2007) + ! + ! REAL, PARAMETER :: alpha=1.8E-8 ! (m^-1) + REAL(kind_chem), INTENT(IN) :: alpha + ! Experimental optional exponential tuning constant for erodibility. + ! 0 < gamma < 1 -> more relative impact by low erodibility regions. + REAL(kind_chem), INTENT(IN) :: gamma + REAL(kind_chem), INTENT(IN) :: R + REAL(kind_chem), INTENT(IN) :: uthres + + REAL(kind_chem) :: den(smx), diam(smx) + REAL(kind_chem) :: dvol(nmx), distr_dust(nmx), dlndp(nmx) + REAL(kind_chem) :: dsurface(smx), ds_rel(smx) + REAL(kind_chem) :: u_ts0, u_ts, dsrc, dmass, dvol_tot + REAL(kind_chem) :: salt,emit, emit_vol, stotal + REAL(kind_chem) :: rhoa, g + INTEGER :: i, j, n + + ! Sandblasting mass efficiency, beta. + ! Beta maxes out for clay fractions above 0.2 = betamax. + + REAL(kind_chem), PARAMETER :: betamax=5.25E-4 + REAL(kind_chem) :: beta + integer :: styp + + ! Constant of proportionality from Marticorena et al, 1997 (unitless) + ! Arguably more ~consistent~ fudge than alpha, which has many walnuts + ! sprinkled throughout the literature. - GC + + REAL(kind_chem), PARAMETER :: cmb=1.0 + ! REAL, PARAMETER :: cmb=2.61 ! from White,1979 + + ! Parameters used in Kok distribution function. Advise not to play with + ! these without the expressed written consent of someone who knows what + ! they're doing. - GC + + REAL(kind_chem), PARAMETER :: mmd_dust=3.4D-6 ! median mass diameter (m) + REAL(kind_chem), PARAMETER :: gsd_dust=3.0 ! geom. std deviation + REAL(kind_chem), PARAMETER :: lambda=12.0D-6 ! crack propagation length (m) + REAL(kind_chem), PARAMETER :: cv=12.62D-6 ! normalization constant + + ! Calculate saltation surface area distribution from sand, silt, and clay + ! mass fractions and saltation bin fraction. This will later become a + ! modifier to the total saltation flux. The reasoning here is that the + ! size and availability of saltators affects saltation efficiency. Based + ! on Eqn. (32) in Marticorena & Bergametti, 1995 (hereon, MB95). + + DO n=1,smx + dmass=massfrac(spoint(n))*frac_salt(n) + dsurface(n)=0.75*dmass/(den_salt(n)*reff_salt(n)) + ENDDO + + ! The following equation yields relative surface area fraction. It will only + ! work if you are representing the "full range" of all three soil classes. + ! For this reason alone, we have incorporated particle sizes that encompass + ! the clay class, to account for the its relative area over the basal + ! surface, even though these smaller bins would be unlikely to play any large + ! role in the actual saltation process. - GC + + stotal=SUM(dsurface(:)) + DO n=1,smx + ds_rel(n)=dsurface(n)/stotal + ENDDO + + ! Calculate total dust emission due to saltation of sand sized particles. + ! Begin by calculating DRY threshold friction velocity (u_ts0). Next adjust + ! u_ts0 for moisture to get threshold friction velocity (u_ts). Then + ! calculate saltation flux (salt) where ustar has exceeded u_ts. Finally, + ! calculate total dust emission (tot_emit), taking into account erodibility. + + ! Set DRY threshold friction velocity to input value + u_ts0 = uthres + + g = g0*1.0E2 + emit=0.0 + + DO n = 1, smx + den(n) = den_salt(n)*1.0D-3 ! (g cm^-3) + diam(n) = 2.0*reff_salt(n)*1.0D2 ! (cm) + rhoa = airden*1.0D-3 ! (g cm^-3) + + ! FENGSHA uses the 13 category soil type from the USDA + ! call calc_fengsha_styp(massfrac(1),massfrac(3),massfrac(2),styp) + ! Fengsha uses threshold velocities based on dale gilletes data + ! call fengsha_utst(styp,uthres,u_ts0) + + ! Friction velocity threshold correction function based on physical + ! properties related to moisture tension. Soil moisture greater than + ! dry limit serves to increase threshold friction velocity (making + ! it more difficult to loft dust). When soil moisture has not reached + ! dry limit, treat as dry + + IF (gravsm > drylimit) THEN + u_ts = MAX(0.0D+0,u_ts0*(sqrt(1.0+1.21*(gravsm-drylimit)**0.68)) / R) + ELSE + u_ts = u_ts0 / R + END IF + + ! Calculate total vertical mass flux (note beta has units of m^-1) + ! Beta acts to tone down dust in areas with so few dust-sized particles that the + ! lofting efficiency decreases. Otherwise, super sandy zones would be huge dust + ! producers, which is generally not the case. Equation derived from wind-tunnel + ! experiments (see MB95). + + beta=10**(13.6*massfrac(1)-6.0) ! (unitless) + if (massfrac(1) <= 0.2) then + beta=10**(13.4*massfrac(1)-6.0) + else + beta = 2.E-4 + endif + + !--------------------------------------------------------------------- + ! formula of Draxler & Gillette (2001) Atmos. Environ. + ! F = K A (r/g) U* ( U*^2 - Ut*^2 ) + ! + ! where: + ! F = vertical emission flux [g/m**2-s] + ! K = constant 2.0E-04 [1/m] + ! A = 0~3.5 mean = 2.8 (fudge factor) + ! U* = friction velocity [m/s] + ! Ut* = threshold friction velocity [m/s] + ! + !-------------------------------------------------------------------- + + IF (ustar .gt. u_ts) then + call fengsha_hflux(ustar,u_ts,beta, salt) + salt = alpha * cmb * ds_rel(n) * airden / g0 * salt * (erod**gamma) * beta + else + salt = 0. + endif + ! EROD is taken into account above + emit = emit + salt + END DO + + ! Now that we have the total dust emission, distribute into dust bins using + ! lognormal distribution (Dr. Jasper Kok, in press), and + ! calculate total mass emitted over the grid box over the timestep. + ! + ! In calculating the Kok distribution, we assume upper and lower limits to each bin. + ! For reff_dust=(/0.73D-6,1.4D-6,2.4D-6,4.5D-6,8.0D-6/) (default), + ! lower limits were ASSUMED at lo_dust=(/0.1D-6,1.0D-6,1.8D-6,3.0D-6,6.0D-6/) + ! upper limits were ASSUMED at up_dust=(/1.0D-6,1.8D-6,3.0D-6,6.0D-6,10.0D-6/) + ! These may be changed within module_data_gocart_dust.F, but make sure it is + ! consistent with reff_dust values. These values were taken from the original + ! GOCART bin configuration. We use them here to calculate dust bin width, dlndp. + ! dVol is the volume distribution. You know...if you were wondering. GC + + dvol_tot=0. + DO n=1,nmx + dlndp(n)=LOG(up_dust(n)/lo_dust(n)) + dvol(n)=(2.0*reff_dust(n)/cv)*(1.+ERF(LOG(2.0*reff_dust(n)/mmd_dust)/(SQRT(2.)*LOG(gsd_dust))))*& EXP(-(2.0*reff_dust(n)/lambda)**3.0)*dlndp(n) - dvol_tot=dvol_tot+dvol(n) - ! Convert mass flux to volume flux - !emit_vol=emit/den_dust(n) ! (m s^-1) - END DO - DO n=1,nmx - distr_dust(n)=dvol(n)/dvol_tot - !print *,"distr_dust(",n,")=",distr_dust(n) - END DO - - ! Now distribute total vertical emission into dust bins and update concentration. - - DO n=1,nmx - ! Calculate total mass emitted - dsrc = emit*distr_dust(n)*dxy*dt1 *random_factor ! (kg) - IF (dsrc < 0.0) dsrc = 0.0 - - ! Update dust mixing ratio at first model level. - tc(n) = tc(n) + dsrc / airmas ! (kg/kg) - ! bems(i,j,n) = dsrc ! diagnostic - !bems(i,j,n) = 1000.*dsrc/(dxy(j)*dt1) ! diagnostic (g/m2/s) - bems(n) = 1.e+9*dsrc/(dxy*dt1) ! diagnostic (ug/m2/s) !lzhang - END DO - - END SUBROUTINE source_dust - - subroutine fengsha_utst(styp,uth, ut) - integer, intent(in) :: styp - real(kind_chem), dimension(fengsha_maxstypes), intent(in) :: uth - real(kind_chem), intent(out) :: ut - ut = uth(styp) + dvol_tot=dvol_tot+dvol(n) + ! Convert mass flux to volume flux + !emit_vol=emit/den_dust(n) ! (m s^-1) + END DO + DO n=1,nmx + distr_dust(n)=dvol(n)/dvol_tot + !print *,"distr_dust(",n,")=",distr_dust(n) + END DO + + ! Now distribute total vertical emission into dust bins and update concentration. + + DO n=1,nmx + ! Calculate total mass emitted + dsrc = emit*distr_dust(n)*dxy*dt1 *random_factor ! (kg) + IF (dsrc < 0.0) dsrc = 0.0 + + ! Update dust mixing ratio at first model level. + tc(n) = tc(n) + dsrc / airmas ! (kg/kg) + ! bems(i,j,n) = dsrc ! diagnostic + !bems(i,j,n) = 1000.*dsrc/(dxy(j)*dt1) ! diagnostic (g/m2/s) + bems(n) = 1.e+9*dsrc/(dxy*dt1) ! diagnostic (ug/m2/s) !lzhang + END DO + + END SUBROUTINE source_dust + + subroutine fengsha_utst(styp,uth, ut) + integer, intent(in) :: styp + real(kind_chem), dimension(fengsha_maxstypes), intent(in) :: uth + real(kind_chem), intent(out) :: ut + ut = uth(styp) ! real (kind_chem) :: uth(13) = & ! (/ 0.08, & ! Sand - 1 ! 0.20, & ! Loamy Sand - 2 @@ -450,96 +450,96 @@ subroutine fengsha_utst(styp,uth, ut) ! 0.45, & ! Silty Clay - 11 ! 0.60, & ! Clay - 12 ! 9.999 /) ! Other - 13 - return - end subroutine fengsha_utst - - subroutine calc_fengsha_styp(clay, sand, silt, type) - - !--------------------------------------------------------------- - ! Function: calculate soil type based on USDA definition. - ! Source: USDA soil texture calculator - ! - ! Defintion of soil types: - ! - ! - ! NOAH 1 2 3 4 5 6 7 8 9 10 11 12 - ! PX 1 2 3 4 - 5 6 7 8 9 10 11 - ! Soil "Sand" "Loamy Sand" "Sandy Loam" "Silt Loam" "Silt" "Loam" "Sandy Clay Loam" "Silt Clay Loam" "Clay Loam" "Sandy Clay" "Silty Clay" "Clay" - !--------------------------------------------------------------- - REAL(kind_chem), intent(in) :: clay, sand, silt - integer, intent(out) :: type - real(kind_chem) :: cly, snd, slt - - type = 0 - - snd = sand * 100. - cly = clay * 100. - slt = silt * 100. - if (slt+1.5*cly .lt. 15) type = 1 ! snd - if (slt+1.5*cly .ge. 15 .and.slt+1.5*cly .lt. 30) type = 2 ! loamy snd - if (cly .ge. 7 .and. cly .lt. 20 .and. snd .gt. 52 .and. slt+2*cly .ge. 30) type = 3 ! sndy loam (cond 1) - if (cly .lt. 7 .and. slt .lt. 50 .and. slt+2*cly .ge. 30) type = 3 ! sndy loam (cond 2) - if (slt .ge. 50 .and. cly .ge. 12 .and.cly .lt. 27 ) type = 4 ! slt loam (cond 1) - if (slt .ge. 50 .and. slt .lt. 80 .and.cly .lt. 12) type = 4 ! slt loam (cond 2) - if (slt .ge. 80 .and. cly .lt. 12) type = 5 ! slt - if (cly .ge. 7 .and. cly .lt. 27 .and.slt .ge. 28 .and. slt .lt. 50 .and.snd .le. 52) type = 6 ! loam - if (cly .ge. 20 .and. cly .lt. 35 .and.slt .lt. 28 .and. snd .gt. 45) type = 7 ! sndy cly loam - if (cly .ge. 27 .and. cly .lt. 40 .and.snd .lt. 20) type = 8 ! slt cly loam - if (cly .ge. 27 .and. cly .lt. 40 .and.snd .ge. 20 .and. snd .le. 45) type = 9 ! cly loam - if (cly .ge. 35 .and. snd .gt. 45) type = 10 ! sndy cly - if (cly .ge. 40 .and. slt .ge. 40) type = 11 ! slty cly - if (cly .ge. 40 .and. snd .le. 45 .and.slt .lt. 40) type = 12 ! clay - return - end subroutine calc_fengsha_styp - - subroutine fengsha_drag(z0,R) - real(kind_chem), intent(in) :: z0 - real(kind_chem), intent(out) :: R - real(kind_chem), parameter :: z0s = 1.0e-04 !Surface roughness for ideal bare surface [m] - ! ------------------------------------------------------------------------ - ! Function: Calculates the MacKinnon et al. 2004 Drag Partition Correction - ! - ! R = 1.0 - log(z0 / z0s) / log( 0.7 * (12255./z0s) ** 0.8) - ! - !-------------------------------------------------------------------------- - ! Drag partition correction. See MacKinnon et al. (2004), - ! doi:10.1016/j.geomorph.2004.03.009 - R = 1.0 - log(z0 / z0s) / log( 0.7 * (12255./z0s) ** 0.8) - - ! Drag partition correction. See Marticorena et al. (1997), - ! doi:10.1029/96JD02964 - !R = 1.0 - log(z0 / z0s) / log( 0.7 * (10./z0s) ** 0.8) - - return - end subroutine fengsha_drag - - subroutine fengsha_hflux(ust,utst, kvh, salt) - !--------------------------------------------------------------------- - ! Function: Calculates the Horizontal Saltation Flux, Q, and then - ! calculates the vertical flux. - ! - ! formula of Draxler & Gillette (2001) Atmos. Environ. - ! F = K A (r/g) U* ( U*^2 - Ut*^2 ) - ! - ! where: - ! F = vertical emission flux [g/m**2-s] - ! K = constant 2.0E-04 [1/m] - ! A = 0~3.5 mean = 2.8 (fudge factor) - ! U* = friction velocity [m/s] - ! Ut* = threshold friction velocity [m/s] - ! - !-------------------------------------------------------------------- - real(kind_chem), intent(in) :: ust, & ! friction velocity - utst, & ! threshold friction velocity - kvh ! vertical to horizontal mass flux ratio - - real(kind_chem), intent(out) :: salt - real(kind_chem) :: Q - Q = ust * (ust * ust - utst * utst) - salt = Q ! sdep * kvh * Q - - return - end subroutine fengsha_hflux + return + end subroutine fengsha_utst + + subroutine calc_fengsha_styp(clay, sand, silt, type) + + !--------------------------------------------------------------- + ! Function: calculate soil type based on USDA definition. + ! Source: USDA soil texture calculator + ! + ! Defintion of soil types: + ! + ! + ! NOAH 1 2 3 4 5 6 7 8 9 10 11 12 + ! PX 1 2 3 4 - 5 6 7 8 9 10 11 + ! Soil "Sand" "Loamy Sand" "Sandy Loam" "Silt Loam" "Silt" "Loam" "Sandy Clay Loam" "Silt Clay Loam" "Clay Loam" "Sandy Clay" "Silty Clay" "Clay" + !--------------------------------------------------------------- + REAL(kind_chem), intent(in) :: clay, sand, silt + integer, intent(out) :: type + real(kind_chem) :: cly, snd, slt + + type = 0 + + snd = sand * 100. + cly = clay * 100. + slt = silt * 100. + if (slt+1.5*cly .lt. 15) type = 1 ! snd + if (slt+1.5*cly .ge. 15 .and.slt+1.5*cly .lt. 30) type = 2 ! loamy snd + if (cly .ge. 7 .and. cly .lt. 20 .and. snd .gt. 52 .and. slt+2*cly .ge. 30) type = 3 ! sndy loam (cond 1) + if (cly .lt. 7 .and. slt .lt. 50 .and. slt+2*cly .ge. 30) type = 3 ! sndy loam (cond 2) + if (slt .ge. 50 .and. cly .ge. 12 .and.cly .lt. 27 ) type = 4 ! slt loam (cond 1) + if (slt .ge. 50 .and. slt .lt. 80 .and.cly .lt. 12) type = 4 ! slt loam (cond 2) + if (slt .ge. 80 .and. cly .lt. 12) type = 5 ! slt + if (cly .ge. 7 .and. cly .lt. 27 .and.slt .ge. 28 .and. slt .lt. 50 .and.snd .le. 52) type = 6 ! loam + if (cly .ge. 20 .and. cly .lt. 35 .and.slt .lt. 28 .and. snd .gt. 45) type = 7 ! sndy cly loam + if (cly .ge. 27 .and. cly .lt. 40 .and.snd .lt. 20) type = 8 ! slt cly loam + if (cly .ge. 27 .and. cly .lt. 40 .and.snd .ge. 20 .and. snd .le. 45) type = 9 ! cly loam + if (cly .ge. 35 .and. snd .gt. 45) type = 10 ! sndy cly + if (cly .ge. 40 .and. slt .ge. 40) type = 11 ! slty cly + if (cly .ge. 40 .and. snd .le. 45 .and.slt .lt. 40) type = 12 ! clay + return + end subroutine calc_fengsha_styp + + subroutine fengsha_drag(z0,R) + real(kind_chem), intent(in) :: z0 + real(kind_chem), intent(out) :: R + real(kind_chem), parameter :: z0s = 1.0e-04 !Surface roughness for ideal bare surface [m] + ! ------------------------------------------------------------------------ + ! Function: Calculates the MacKinnon et al. 2004 Drag Partition Correction + ! + ! R = 1.0 - log(z0 / z0s) / log( 0.7 * (12255./z0s) ** 0.8) + ! + !-------------------------------------------------------------------------- + ! Drag partition correction. See MacKinnon et al. (2004), + ! doi:10.1016/j.geomorph.2004.03.009 + R = 1.0 - log(z0 / z0s) / log( 0.7 * (12255./z0s) ** 0.8) + + ! Drag partition correction. See Marticorena et al. (1997), + ! doi:10.1029/96JD02964 + !R = 1.0 - log(z0 / z0s) / log( 0.7 * (10./z0s) ** 0.8) + + return + end subroutine fengsha_drag + + subroutine fengsha_hflux(ust,utst, kvh, salt) + !--------------------------------------------------------------------- + ! Function: Calculates the Horizontal Saltation Flux, Q, and then + ! calculates the vertical flux. + ! + ! formula of Draxler & Gillette (2001) Atmos. Environ. + ! F = K A (r/g) U* ( U*^2 - Ut*^2 ) + ! + ! where: + ! F = vertical emission flux [g/m**2-s] + ! K = constant 2.0E-04 [1/m] + ! A = 0~3.5 mean = 2.8 (fudge factor) + ! U* = friction velocity [m/s] + ! Ut* = threshold friction velocity [m/s] + ! + !-------------------------------------------------------------------- + real(kind_chem), intent(in) :: ust, & ! friction velocity + utst, & ! threshold friction velocity + kvh ! vertical to horizontal mass flux ratio + + real(kind_chem), intent(out) :: salt + real(kind_chem) :: Q + Q = ust * (ust * ust - utst * utst) + salt = Q ! sdep * kvh * Q + + return + end subroutine fengsha_hflux end module dust_fengsha_mod diff --git a/src/gocart_aerosols_mod.F90 b/src/gocart_aerosols_mod.F90 index c4cb8128..44037c03 100644 --- a/src/gocart_aerosols_mod.F90 +++ b/src/gocart_aerosols_mod.F90 @@ -1,116 +1,116 @@ module gocart_aerosols_mod - use catchem_constants , only : kind_chem - use catchem_config, only : p_bc1,p_bc2,p_oc1,p_oc2, & - p_dust_1,p_dust_2,p_dust_3,p_dust_4,p_dust_5,& - p_seas_1,p_seas_2,p_seas_3,p_seas_4,p_seas_5,& - p_sulf,p_p25,p_so2,airmw!,p_vash_1 + use catchem_constants , only : kind_chem + use catchem_config, only : p_bc1,p_bc2,p_oc1,p_oc2, & + p_dust_1,p_dust_2,p_dust_3,p_dust_4,p_dust_5,& + p_seas_1,p_seas_2,p_seas_3,p_seas_4,p_seas_5,& + p_sulf,p_p25,p_so2,airmw!,p_vash_1 - !use chem_const_mod, only : airmw + !use chem_const_mod, only : airmw - implicit none + implicit none - INTEGER, PARAMETER :: NBC1=1, NOC1=2, NBC2=3, NOC2=4 + INTEGER, PARAMETER :: NBC1=1, NOC1=2, NBC2=3, NOC2=4 - INTEGER :: NDMS=1, NSO2=2, NSO4=3, NMSA=4 + INTEGER :: NDMS=1, NSO2=2, NSO4=3, NMSA=4 - private + private - public :: gocart_aerosols_driver, & - sum_pm_gocart + public :: gocart_aerosols_driver, & + sum_pm_gocart CONTAINS - subroutine gocart_aerosols_driver(ktau,dt,t_phy,moist, & - chem,rho_phy,dz8w,p8w,area,g, & - chem_opt,num_chem,num_moist, & - ids,ide, jds,jde, kds,kde, & - ims,ime, jms,jme, kms,kme, & - its,ite, jts,jte, kts,kte ) - IMPLICIT NONE - - INTEGER, INTENT(IN ) :: ktau, & - chem_opt,num_chem,num_moist, & - ids,ide, jds,jde, kds,kde, & - ims,ime, jms,jme, kms,kme, & - its,ite, jts,jte, kts,kte - REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme, num_moist ), & + subroutine gocart_aerosols_driver(ktau,dt,t_phy,moist, & + chem,rho_phy,dz8w,p8w,area,g, & + chem_opt,num_chem,num_moist, & + ids,ide, jds,jde, kds,kde, & + ims,ime, jms,jme, kms,kme, & + its,ite, jts,jte, kts,kte ) + IMPLICIT NONE + + INTEGER, INTENT(IN ) :: ktau, & + chem_opt,num_chem,num_moist, & + ids,ide, jds,jde, kds,kde, & + ims,ime, jms,jme, kms,kme, & + its,ite, jts,jte, kts,kte + REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme, num_moist ), & INTENT(IN ) :: moist - REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme, num_chem ), & + REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme, num_chem ), & INTENT(INOUT ) :: chem - REAL(kind_chem), DIMENSION( ims:ime , kms:kme , jms:jme ), & - INTENT(IN ) :: t_phy, & - dz8w,p8w, & - rho_phy - REAL(kind_chem), DIMENSION( ims:ime , jms:jme ), & - INTENT(IN ) :: area - - REAL(kind_chem), INTENT(IN ) :: dt,g - integer :: ndt1,nmx,i,j,k,imx,jmx,lmx - real(kind_chem), DIMENSION (1,1,1) :: tmp,airden,airmas - REAL(kind_chem) :: chmlos(1,1,1,4) - REAL(kind_chem) :: bchmlos(1,1,4) - REAL(kind_chem) :: pc2(1,1,1,2) - REAL(kind_chem) :: tc(4) - real(kind_chem), parameter :: mw_c = 12. - real(kind_chem) mwdry,tt1,tt2 - mwdry=airmw - imx=1 - jmx=1 - lmx=1 - nmx=4 - ndt1=int(dt) + REAL(kind_chem), DIMENSION( ims:ime , kms:kme , jms:jme ), & + INTENT(IN ) :: t_phy, & + dz8w,p8w, & + rho_phy + REAL(kind_chem), DIMENSION( ims:ime , jms:jme ), & + INTENT(IN ) :: area + + REAL(kind_chem), INTENT(IN ) :: dt,g + integer :: ndt1,nmx,i,j,k,imx,jmx,lmx + real(kind_chem), DIMENSION (1,1,1) :: tmp,airden,airmas + REAL(kind_chem) :: chmlos(1,1,1,4) + REAL(kind_chem) :: bchmlos(1,1,4) + REAL(kind_chem) :: pc2(1,1,1,2) + REAL(kind_chem) :: tc(4) + real(kind_chem), parameter :: mw_c = 12. + real(kind_chem) mwdry,tt1,tt2 + mwdry=airmw + imx=1 + jmx=1 + lmx=1 + nmx=4 + ndt1=int(dt) ! ! - chmlos = 0. - bchmlos = 0. - do j=jts,jte - do k=kts,kte - do i=its,ite - airmas(1,1,1)=-(p8w(i,k+1,j)-p8w(i,k,j))*area(i,j)/g - pc2(1,1,1,1)=0. - pc2(1,1,1,2)=0. - tc(1)=chem(i,k,j,p_bc1)/mw_c*mwdry*1.d-9 - tc(2)=chem(i,k,j,p_oc1)/mw_c*mwdry*1.d-9 - tc(3)=chem(i,k,j,p_bc2)/mw_c*mwdry*1.d-9 - tc(4)=chem(i,k,j,p_oc2)/mw_c*mwdry*1.d-9 - tt1=tc(3) - - CALL chem_1(imx,jmx,lmx, nmx, ndt1, airmas, tc, & - chmlos, bchmlos, pc2) - CALL chem_2(imx,jmx,lmx, nmx, ndt1, airmas, tc, pc2) - tt2 = tc(3) -tt1 - chem(i,k,j,p_bc1)=tc(1)/mwdry*mw_c*1.e9 - chem(i,k,j,p_oc1)=tc(2)/mwdry*mw_c*1.e9 - chem(i,k,j,p_bc2)=tc(3)/mwdry*mw_c*1.e9 - chem(i,k,j,p_oc2)=tc(4)/mwdry*mw_c*1.e9 - - enddo - enddo - enddo -end subroutine gocart_aerosols_driver - subroutine sum_pm_gocart ( & - alt, chem,pm2_5_dry, pm2_5_dry_ec, pm10, & - num_chem,chem_opt, & - ids,ide, jds,jde, kds,kde, & - ims,ime, jms,jme, kms,kme, & - its,ite, jts,jte, kts,kte ) - IMPLICIT NONE - REAL(kind_chem), PARAMETER :: mwso4 = 96.066 - INTEGER, INTENT(IN ) :: chem_opt,ids,ide, jds,jde, kds,kde, & - ims,ime, jms,jme, kms,kme, & - its,ite, jts,jte, kts,kte,num_chem - REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme ), & - INTENT(INOUT ) :: pm2_5_dry, pm2_5_dry_ec, pm10 - REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme ), & + chmlos = 0. + bchmlos = 0. + do j=jts,jte + do k=kts,kte + do i=its,ite + airmas(1,1,1)=-(p8w(i,k+1,j)-p8w(i,k,j))*area(i,j)/g + pc2(1,1,1,1)=0. + pc2(1,1,1,2)=0. + tc(1)=chem(i,k,j,p_bc1)/mw_c*mwdry*1.d-9 + tc(2)=chem(i,k,j,p_oc1)/mw_c*mwdry*1.d-9 + tc(3)=chem(i,k,j,p_bc2)/mw_c*mwdry*1.d-9 + tc(4)=chem(i,k,j,p_oc2)/mw_c*mwdry*1.d-9 + tt1=tc(3) + + CALL chem_1(imx,jmx,lmx, nmx, ndt1, airmas, tc, & + chmlos, bchmlos, pc2) + CALL chem_2(imx,jmx,lmx, nmx, ndt1, airmas, tc, pc2) + tt2 = tc(3) -tt1 + chem(i,k,j,p_bc1)=tc(1)/mwdry*mw_c*1.e9 + chem(i,k,j,p_oc1)=tc(2)/mwdry*mw_c*1.e9 + chem(i,k,j,p_bc2)=tc(3)/mwdry*mw_c*1.e9 + chem(i,k,j,p_oc2)=tc(4)/mwdry*mw_c*1.e9 + + enddo + enddo + enddo + end subroutine gocart_aerosols_driver + subroutine sum_pm_gocart ( & + alt, chem,pm2_5_dry, pm2_5_dry_ec, pm10, & + num_chem,chem_opt, & + ids,ide, jds,jde, kds,kde, & + ims,ime, jms,jme, kms,kme, & + its,ite, jts,jte, kts,kte ) + IMPLICIT NONE + REAL(kind_chem), PARAMETER :: mwso4 = 96.066 + INTEGER, INTENT(IN ) :: chem_opt,ids,ide, jds,jde, kds,kde, & + ims,ime, jms,jme, kms,kme, & + its,ite, jts,jte, kts,kte,num_chem + REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme ), & + INTENT(INOUT ) :: pm2_5_dry, pm2_5_dry_ec, pm10 + REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme ), & INTENT(IN ) :: alt - REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme, num_chem ), & + REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme, num_chem ), & INTENT(IN ) :: chem - real(kind_chem) minv,maxv,d_2_5,s_2_5,d_10,sulfate,mwdry - integer i,j,k,ii,jj,n,maxp,maxs,maxd - mwdry=airmw - d_2_5=0.38 - s_2_5=0.83 - d_10=0.74 + real(kind_chem) minv,maxv,d_2_5,s_2_5,d_10,sulfate,mwdry + integer i,j,k,ii,jj,n,maxp,maxs,maxd + mwdry=airmw + d_2_5=0.38 + s_2_5=0.83 + d_10=0.74 ! ! sum up pm2_5 and pm10 output @@ -119,35 +119,35 @@ subroutine sum_pm_gocart ( & pm10(its:ite, kts:kte, jts:jte) = 0. pm2_5_dry_ec(its:ite, kts:kte, jts:jte) = 0. - do j=jts,jte + do j=jts,jte do k=kts,kte - do i=its,ite - sulfate=chem(i,k,j,p_sulf)*mwso4/mwdry*1.e3 - do n=p_p25,p_dust_1 - pm2_5_dry(i,k,j) = pm2_5_dry(i,k,j)+chem(i,k,j,n) - enddo - if(chem_opt.eq.300.or.chem_opt.eq.301)then - pm2_5_dry(i,k,j) = pm2_5_dry(i,k,j)+chem(i,k,j,p_dust_2)*d_2_5 & - +chem(i,k,j,p_seas_1) & - +chem(i,k,j,p_seas_2) & - +chem(i,k,j,p_seas_3)*s_2_5 & - +sulfate - else if(chem_opt .eq. 317) then - pm2_5_dry(i,k,j) = pm2_5_dry(i,k,j)+chem(i,k,j,p_dust_2)*d_2_5 & - +chem(i,k,j,p_seas_1) & - +chem(i,k,j,p_seas_2) & - +chem(i,k,j,p_seas_3)*s_2_5 & + do i=its,ite + sulfate=chem(i,k,j,p_sulf)*mwso4/mwdry*1.e3 + do n=p_p25,p_dust_1 + pm2_5_dry(i,k,j) = pm2_5_dry(i,k,j)+chem(i,k,j,n) + enddo + if(chem_opt.eq.300.or.chem_opt.eq.301)then + pm2_5_dry(i,k,j) = pm2_5_dry(i,k,j)+chem(i,k,j,p_dust_2)*d_2_5 & + +chem(i,k,j,p_seas_1) & + +chem(i,k,j,p_seas_2) & + +chem(i,k,j,p_seas_3)*s_2_5 & + +sulfate + else if(chem_opt .eq. 317) then + pm2_5_dry(i,k,j) = pm2_5_dry(i,k,j)+chem(i,k,j,p_dust_2)*d_2_5 & + +chem(i,k,j,p_seas_1) & + +chem(i,k,j,p_seas_2) & + +chem(i,k,j,p_seas_3)*s_2_5 & ! +chem(i,k,j,p_vash_1) & - +sulfate - else - pm2_5_dry(i,k,j) = pm2_5_dry(i,k,j)+chem(i,k,j,p_seas_1) & - +sulfate - endif - - !Convert the units from mixing ratio to concentration (ug m^-3) - pm2_5_dry(i,k,j) = pm2_5_dry(i,k,j) / alt(i,k,j) - enddo - enddo + +sulfate + else + pm2_5_dry(i,k,j) = pm2_5_dry(i,k,j)+chem(i,k,j,p_seas_1) & + +sulfate + endif + + !Convert the units from mixing ratio to concentration (ug m^-3) + pm2_5_dry(i,k,j) = pm2_5_dry(i,k,j) / alt(i,k,j) + enddo + enddo enddo maxd=max(p_dust_2,p_dust_3) maxp=max(p_dust_2,p_dust_4) @@ -157,22 +157,22 @@ subroutine sum_pm_gocart ( & do i=its,ite sulfate=chem(i,k,j,p_sulf)*mwso4/mwdry*1.e3 do n=p_p25,maxd - pm10(i,k,j) = pm10(i,k,j)+chem(i,k,j,n) + pm10(i,k,j) = pm10(i,k,j)+chem(i,k,j,n) enddo do n=p_seas_1,maxs - pm10(i,k,j) = pm10(i,k,j)+chem(i,k,j,n) + pm10(i,k,j) = pm10(i,k,j)+chem(i,k,j,n) enddo pm10(i,k,j) = pm10(i,k,j) + sulfate & - +chem(i,k,j,maxp)*d_10 + +chem(i,k,j,maxp)*d_10 pm10(i,k,j) = pm10(i,k,j)/ alt(i,k,j) enddo enddo enddo -end subroutine sum_pm_gocart + end subroutine sum_pm_gocart -SUBROUTINE chem_1(imx,jmx,lmx, nmx, & - ndt1, airm, tc, chmlos, bchmlos, pc2) + SUBROUTINE chem_1(imx,jmx,lmx, nmx, & + ndt1, airm, tc, chmlos, bchmlos, pc2) ! **************************************************************************** ! ** ** ! ** For tracers with dry deposition, the loss rate of dry dep is combined ** @@ -186,60 +186,60 @@ SUBROUTINE chem_1(imx,jmx,lmx, nmx, & ! **************************************************************************** - IMPLICIT NONE - - INTEGER, INTENT(IN) :: lmx, nmx,imx,jmx, ndt1 - REAL(kind_chem), INTENT(IN) :: airm(imx,jmx,lmx) - REAL(kind_chem), INTENT(INOUT) :: tc(imx,jmx,lmx,nmx) - REAL(kind_chem), INTENT(INOUT) :: chmlos(imx,jmx,lmx,nmx) - REAL(kind_chem), INTENT(INOUT) :: bchmlos(imx,jmx,nmx) - REAL(kind_chem), INTENT(OUT) :: pc2(imx,jmx,lmx,2) - - REAL(kind_chem) :: r1, c0, r2, rkt, c1 - INTEGER :: np, n, i, j, l - - ! executable statements - - r1 = 4.63E-6 - - DO n = 1,nmx - IF (n == NBC1 .OR. n == NOC1) THEN - IF (n == NBC1) np = 1 - IF (n == NOC1) np = 2 - DO l = 1,lmx - DO j = 1,jmx - DO i = 1,imx - - c0 = tc(i,j,l,n) - r2 = 0.0 ! used to be loss due to dry dep - rkt = (r1 + r2) * REAL(ndt1) - - c1 = c0 * EXP(-rkt) - c1 = MAX(c1, 1.0D-32) - tc(i,j,l,n) = c1 - - pc2(i,j,l,np) = (c0 - c1) * r1/(r1 + r2) - - ! Diagnostics: - chmlos(i,j,l,n) = chmlos(i,j,l,n) + pc2(i,j,l,np)*airm(i,j,l) - - END DO - END DO - END DO - - DO j = 1,jmx - DO i = 1,imx - bchmlos(i,j,n) = bchmlos(i,j,n) + SUM(chmlos(i,j,:,n)) - END DO - END DO - - END IF - END DO - -END SUBROUTINE chem_1 - -SUBROUTINE chem_2(imx,jmx,lmx, nmx, & - ndt1, airm, tc, pc2) + IMPLICIT NONE + + INTEGER, INTENT(IN) :: lmx, nmx,imx,jmx, ndt1 + REAL(kind_chem), INTENT(IN) :: airm(imx,jmx,lmx) + REAL(kind_chem), INTENT(INOUT) :: tc(imx,jmx,lmx,nmx) + REAL(kind_chem), INTENT(INOUT) :: chmlos(imx,jmx,lmx,nmx) + REAL(kind_chem), INTENT(INOUT) :: bchmlos(imx,jmx,nmx) + REAL(kind_chem), INTENT(OUT) :: pc2(imx,jmx,lmx,2) + + REAL(kind_chem) :: r1, c0, r2, rkt, c1 + INTEGER :: np, n, i, j, l + + ! executable statements + + r1 = 4.63E-6 + + DO n = 1,nmx + IF (n == NBC1 .OR. n == NOC1) THEN + IF (n == NBC1) np = 1 + IF (n == NOC1) np = 2 + DO l = 1,lmx + DO j = 1,jmx + DO i = 1,imx + + c0 = tc(i,j,l,n) + r2 = 0.0 ! used to be loss due to dry dep + rkt = (r1 + r2) * REAL(ndt1) + + c1 = c0 * EXP(-rkt) + c1 = MAX(c1, 1.0D-32) + tc(i,j,l,n) = c1 + + pc2(i,j,l,np) = (c0 - c1) * r1/(r1 + r2) + + ! Diagnostics: + chmlos(i,j,l,n) = chmlos(i,j,l,n) + pc2(i,j,l,np)*airm(i,j,l) + + END DO + END DO + END DO + + DO j = 1,jmx + DO i = 1,imx + bchmlos(i,j,n) = bchmlos(i,j,n) + SUM(chmlos(i,j,:,n)) + END DO + END DO + + END IF + END DO + + END SUBROUTINE chem_1 + + SUBROUTINE chem_2(imx,jmx,lmx, nmx, & + ndt1, airm, tc, pc2) ! **************************************************************************** ! * * ! * C2 = C2_0 * exp(-kt) + PC2/kt * (1.-exp(-kt)) * @@ -248,41 +248,41 @@ SUBROUTINE chem_2(imx,jmx,lmx, nmx, & ! **************************************************************************** - IMPLICIT NONE + IMPLICIT NONE + + INTEGER, INTENT(IN) :: lmx,imx,jmx, nmx, ndt1 + REAL(kind_chem), INTENT(IN) :: airm(imx,jmx,lmx) + REAL(kind_chem), INTENT(INOUT) :: tc(imx,jmx,lmx,nmx) + REAL(kind_chem), INTENT(IN) :: pc2(imx,jmx,lmx,2) - INTEGER, INTENT(IN) :: lmx,imx,jmx, nmx, ndt1 - REAL(kind_chem), INTENT(IN) :: airm(imx,jmx,lmx) - REAL(kind_chem), INTENT(INOUT) :: tc(imx,jmx,lmx,nmx) - REAL(kind_chem), INTENT(IN) :: pc2(imx,jmx,lmx,2) + INTEGER :: np, n, i, j, l + REAL(kind_chem) :: c0, pp, rkt, c1 - INTEGER :: np, n, i, j, l - REAL(kind_chem) :: c0, pp, rkt, c1 + ! executable statements - ! executable statements - - DO n = 1,nmx - IF (n == NBC2 .OR. n == NOC2) THEN - IF (n == NBC2) np = 1 - IF (n == NOC2) np = 2 + DO n = 1,nmx + IF (n == NBC2 .OR. n == NOC2) THEN + IF (n == NBC2) np = 1 + IF (n == NOC2) np = 2 !CMIC$ doall autoscope - DO l = 1,lmx - DO j = 1,jmx - DO i = 1,imx - - c0 = tc(i,j,l,n) - pp = pc2(i,j,l,np) - c1 = c0 + pp - - c1 = MAX(c1, 1.0D-32) - tc(i,j,l,n) = c1 - - - END DO - END DO - END DO - END IF - END DO - -END SUBROUTINE chem_2 + DO l = 1,lmx + DO j = 1,jmx + DO i = 1,imx + + c0 = tc(i,j,l,n) + pp = pc2(i,j,l,np) + c1 = c0 + pp + + c1 = MAX(c1, 1.0D-32) + tc(i,j,l,n) = c1 + + + END DO + END DO + END DO + END IF + END DO + + END SUBROUTINE chem_2 end module gocart_aerosols_mod diff --git a/src/gocart_chem_mod.F90 b/src/gocart_chem_mod.F90 index a9bcfb96..65b5cca3 100644 --- a/src/gocart_chem_mod.F90 +++ b/src/gocart_chem_mod.F90 @@ -1,74 +1,74 @@ module gocart_chem_mod - use catchem_constants , only : kind_chem + use catchem_constants , only : kind_chem - use catchem_config, only : airmw, smw, & - p_o3,p_qi,p_qc,p_qv,p_dms,p_so2, & - p_sulf,p_msa,p_ho,p_h2o2,p_no3, & - ndms, nso2, nso4, nmsa + use catchem_config, only : airmw, smw, & + p_o3,p_qi,p_qc,p_qv,p_dms,p_so2, & + p_sulf,p_msa,p_ho,p_h2o2,p_no3, & + ndms, nso2, nso4, nmsa - implicit none + implicit none - public + public contains - subroutine gocart_chem_driver(ktau,dtlt,dt,gmt,julday,xcosz,t_phy,moist, & - chem,rho_phy,dz8w,p8w,backg_oh,oh_t,backg_h2o2,h2o2_t,backg_no3,no3_t, & - area,g,xlat,xlong,ttday,tcosz, & - chem_opt,num_chem,num_moist, & - ids,ide, jds,jde, kds,kde, & - ims,ime, jms,jme, kms,kme, & - its,ite, jts,jte, kts,kte ) - IMPLICIT NONE - - INTEGER, INTENT(IN ) :: julday, ktau, & - chem_opt,num_chem,num_moist, & - ids,ide, jds,jde, kds,kde, & - ims,ime, jms,jme, kms,kme, & - its,ite, jts,jte, kts,kte - REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme, num_moist ), & + subroutine gocart_chem_driver(ktau,dtlt,dt,gmt,julday,xcosz,t_phy,moist, & + chem,rho_phy,dz8w,p8w,backg_oh,oh_t,backg_h2o2,h2o2_t,backg_no3,no3_t, & + area,g,xlat,xlong,ttday,tcosz, & + chem_opt,num_chem,num_moist, & + ids,ide, jds,jde, kds,kde, & + ims,ime, jms,jme, kms,kme, & + its,ite, jts,jte, kts,kte ) + IMPLICIT NONE + + INTEGER, INTENT(IN ) :: julday, ktau, & + chem_opt,num_chem,num_moist, & + ids,ide, jds,jde, kds,kde, & + ims,ime, jms,jme, kms,kme, & + its,ite, jts,jte, kts,kte + REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme, num_moist ), & INTENT(IN ) :: moist - REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme, num_chem ), & + REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme, num_chem ), & INTENT(INOUT ) :: chem - REAL(kind_chem), DIMENSION( ims:ime , jms:jme ), & - INTENT(IN ) :: & - area,xlat,xlong,ttday,tcosz,xcosz - REAL(kind_chem), DIMENSION( ims:ime , kms:kme , jms:jme ), & - INTENT(IN ) :: t_phy, & - backg_oh,backg_h2o2,backg_no3,dz8w,p8w, & - rho_phy - REAL(kind_chem), DIMENSION( ims:ime , kms:kme , jms:jme ), & - INTENT(OUT ) :: oh_t,h2o2_t,no3_t - - REAL(kind_chem), INTENT(IN ) :: dt,g,gmt,dtlt - integer :: nmx,i,j,k,imx,jmx,lmx - real(kind_chem), DIMENSION (1,1,1) :: tmp,airden,airmas,oh,xno3,h2o2,chldms_oh, & - chldms_no3,chldms_x,chpso2,chpmsa,chpso4, & - chlso2_oh,chlso2_aq,cldf - real(kind_chem), DIMENSION (1,1,4) :: tdry - real(kind_chem), DIMENSION (1,1) :: cossza - real(kind_chem), DIMENSION (1,1) :: sza,cosszax - real(kind_chem), DIMENSION (1,1,1,4) :: tc,bems - real(kind_chem), dimension (1) :: dxy - real(kind_chem):: rlat,xlonn - real(kind_chem):: xtime,zenith,zenita,azimuth,xhour,xmin,xtimin,gmtp + REAL(kind_chem), DIMENSION( ims:ime , jms:jme ), & + INTENT(IN ) :: & + area,xlat,xlong,ttday,tcosz,xcosz + REAL(kind_chem), DIMENSION( ims:ime , kms:kme , jms:jme ), & + INTENT(IN ) :: t_phy, & + backg_oh,backg_h2o2,backg_no3,dz8w,p8w, & + rho_phy + REAL(kind_chem), DIMENSION( ims:ime , kms:kme , jms:jme ), & + INTENT(OUT ) :: oh_t,h2o2_t,no3_t + + REAL(kind_chem), INTENT(IN ) :: dt,g,gmt,dtlt + integer :: nmx,i,j,k,imx,jmx,lmx + real(kind_chem), DIMENSION (1,1,1) :: tmp,airden,airmas,oh,xno3,h2o2,chldms_oh, & + chldms_no3,chldms_x,chpso2,chpmsa,chpso4, & + chlso2_oh,chlso2_aq,cldf + real(kind_chem), DIMENSION (1,1,4) :: tdry + real(kind_chem), DIMENSION (1,1) :: cossza + real(kind_chem), DIMENSION (1,1) :: sza,cosszax + real(kind_chem), DIMENSION (1,1,1,4) :: tc,bems + real(kind_chem), dimension (1) :: dxy + real(kind_chem):: rlat,xlonn + real(kind_chem):: xtime,zenith,zenita,azimuth,xhour,xmin,xtimin,gmtp INTEGER :: ixhour - imx=1 - jmx=1 - lmx=1 - nmx=4 - tdry=0.d0 + imx=1 + jmx=1 + lmx=1 + nmx=4 + tdry=0.d0 xtime=ktau*dtlt/60. ixhour=int(gmt+.01)+int(xtime/60.) xhour=float(ixhour) xmin=60.*gmt+(xtime-xhour*60.) gmtp=mod(xhour,24.) gmtp=gmtp+xmin/60. - - oh_t(:,:,:)=0.0 - h2o2_t(:,:,:)=0.0 - no3_t(:,:,:)=0.0 + + oh_t(:,:,:)=0.0 + h2o2_t(:,:,:)=0.0 + no3_t(:,:,:)=0.0 ! ! following arrays for busget stuff only ! @@ -77,137 +77,137 @@ subroutine gocart_chem_driver(ktau,dtlt,dt,gmt,julday,xcosz,t_phy,moist, & ! chem_select: SELECT CASE(config_flags%chem_opt) ! CASE (GOCART_SIMPLE) ! CALL wrf_debug(15,'calling gocart chemistry ') - if(chem_opt == 300 .or. chem_opt==316 .or. chem_opt==317)then + if(chem_opt == 300 .or. chem_opt==316 .or. chem_opt==317)then !TBH write(6,*)'in gocart_chem, julday = ',julday - do j=jts,jte - do i=its,ite - dxy(1)=area(i,j) - zenith=0. - zenita=0. - azimuth=0. - rlat=xlat(i,j)*3.1415926535590/180. - xlonn=xlong(i,j) - CALL szangle(1, 1, julday, gmtp, sza, cosszax,xlonn,rlat) - cossza(1,1)=cosszax(1,1) - !--use physics inst cosine zenith --hli 03/06/2020 + do j=jts,jte + do i=its,ite + dxy(1)=area(i,j) + zenith=0. + zenita=0. + azimuth=0. + rlat=xlat(i,j)*3.1415926535590/180. + xlonn=xlong(i,j) + CALL szangle(1, 1, julday, gmtp, sza, cosszax,xlonn,rlat) + cossza(1,1)=cosszax(1,1) + !--use physics inst cosine zenith --hli 03/06/2020 ! cossza(1,1)=xcosz(i,j) ! - do k=kts,kte - chldms_oh=0. - chldms_no3=0. - chldms_x=0. - chpso2=0. - chpmsa=0. - chpso4=0. - chlso2_oh=0. - chlso2_aq=0. - cldf(1,1,1)=0. - if(p_qc.gt.1)then - if(moist(i,k,j,p_qc).gt.0.)cldf(1,1,1)=1. - endif - if(p_qi.gt.1)then - if(moist(i,k,j,p_qi).gt.0.)cldf(1,1,1)=1. - endif - tc(1,1,1,1)=chem(i,k,j,p_dms)*1.d-6 - tc(1,1,1,2)=chem(i,k,j,p_so2)*1.d-6 - tc(1,1,1,3)=chem(i,k,j,p_sulf)*1.d-6 - tc(1,1,1,4)=chem(i,k,j,p_msa)*1.d-6 - airmas(1,1,1)=-(p8w(i,k+1,j)-p8w(i,k,j))*area(i,j)/g - airden(1,1,1)=rho_phy(i,k,j) - tmp(1,1,1)=t_phy(i,k,j) -if (tcosz(i,j)/=0.0) then - oh(1,1,1)=86400./dtlt*cossza(1,1)*backg_oh(i,k,j)/tcosz(i,j) -else - oh(1,1,1)=1.0E-20 -endif - - oh_t(i,k,j)=oh(1,1,1)*1.e6 + do k=kts,kte + chldms_oh=0. + chldms_no3=0. + chldms_x=0. + chpso2=0. + chpmsa=0. + chpso4=0. + chlso2_oh=0. + chlso2_aq=0. + cldf(1,1,1)=0. + if(p_qc.gt.1)then + if(moist(i,k,j,p_qc).gt.0.)cldf(1,1,1)=1. + endif + if(p_qi.gt.1)then + if(moist(i,k,j,p_qi).gt.0.)cldf(1,1,1)=1. + endif + tc(1,1,1,1)=chem(i,k,j,p_dms)*1.d-6 + tc(1,1,1,2)=chem(i,k,j,p_so2)*1.d-6 + tc(1,1,1,3)=chem(i,k,j,p_sulf)*1.d-6 + tc(1,1,1,4)=chem(i,k,j,p_msa)*1.d-6 + airmas(1,1,1)=-(p8w(i,k+1,j)-p8w(i,k,j))*area(i,j)/g + airden(1,1,1)=rho_phy(i,k,j) + tmp(1,1,1)=t_phy(i,k,j) + if (tcosz(i,j)/=0.0) then + oh(1,1,1)=86400./dtlt*cossza(1,1)*backg_oh(i,k,j)/tcosz(i,j) + else + oh(1,1,1)=1.0E-20 + endif + + oh_t(i,k,j)=oh(1,1,1)*1.e6 ! TBH: END HACK - h2o2(1,1,1)=backg_h2o2(i,k,j) - IF (COSSZA(1,1) > 0.0) THEN - XNO3(1,1,1) = 0.0 - ELSE - ! -- Fraction of night - ! fnight = 1.0 - TTDAY(i,j)/86400.0 - ! The original xno3 values have been averaged over daytime - ! as well => divide by fnight to get the appropriate night-time - ! fraction from the monthly average - ! fnight/=0.0 (for fnight=0: all cosszax (including current - ! cossza) > 0.0) - xno3(1,1,1) = backg_no3(i,k,j) / (1.0 - TTDAY(i,j)/86400.) - END IF - - call chmdrv_su( imx,jmx,lmx,& - nmx, dt, tmp, airden, airmas, & - oh, xno3, h2o2, cldf, tc, tdry,cossza, & - chldms_oh, chldms_no3, chldms_x, chpso2, chpmsa, chpso4, & - chlso2_oh, chlso2_aq) - chem(i,k,j,p_dms)=tc(1,1,1,1)*1.e6 - chem(i,k,j,p_so2)=tc(1,1,1,2)*1.e6 - chem(i,k,j,p_sulf)=tc(1,1,1,3)*1.e6 - chem(i,k,j,p_msa)=tc(1,1,1,4)*1.e6 - h2o2_t(i,k,j)=h2o2(1,1,1)*1.e6 - no3_t(i,k,j)=xno3(1,1,1)*1.e6 - enddo - enddo - enddo - else if(chem_opt.eq.301)then + h2o2(1,1,1)=backg_h2o2(i,k,j) + IF (COSSZA(1,1) > 0.0) THEN + XNO3(1,1,1) = 0.0 + ELSE + ! -- Fraction of night + ! fnight = 1.0 - TTDAY(i,j)/86400.0 + ! The original xno3 values have been averaged over daytime + ! as well => divide by fnight to get the appropriate night-time + ! fraction from the monthly average + ! fnight/=0.0 (for fnight=0: all cosszax (including current + ! cossza) > 0.0) + xno3(1,1,1) = backg_no3(i,k,j) / (1.0 - TTDAY(i,j)/86400.) + END IF + + call chmdrv_su( imx,jmx,lmx,& + nmx, dt, tmp, airden, airmas, & + oh, xno3, h2o2, cldf, tc, tdry,cossza, & + chldms_oh, chldms_no3, chldms_x, chpso2, chpmsa, chpso4, & + chlso2_oh, chlso2_aq) + chem(i,k,j,p_dms)=tc(1,1,1,1)*1.e6 + chem(i,k,j,p_so2)=tc(1,1,1,2)*1.e6 + chem(i,k,j,p_sulf)=tc(1,1,1,3)*1.e6 + chem(i,k,j,p_msa)=tc(1,1,1,4)*1.e6 + h2o2_t(i,k,j)=h2o2(1,1,1)*1.e6 + no3_t(i,k,j)=xno3(1,1,1)*1.e6 + enddo + enddo + enddo + else if(chem_opt.eq.301)then !TBH write(0,*)'calling gocart chemistry in addition to racm_kpp' - do j=jts,jte - do i=its,ite - zenith=0. - zenita=0. - azimuth=0. - rlat=xlat(i,j)*3.1415926535590/180. - xlonn=xlong(i,j) - CALL szangle(1, 1, julday, gmtp, sza, cosszax,xlonn,rlat) - cossza(1,1)=cosszax(1,1) - do k=kts,kte - chldms_oh=0. - chldms_no3=0. - chldms_x=0. - chpso2=0. - chpmsa=0. - chpso4=0. - chlso2_oh=0. - chlso2_aq=0. - cldf(1,1,1)=0. - if(p_qc.gt.1)then - if(moist(i,k,j,p_qc).gt.0.)cldf(1,1,1)=1. - endif - if(p_qi.gt.1)then - if(moist(i,k,j,p_qi).gt.0.)cldf(1,1,1)=1. - endif - tc(1,1,1,1)=chem(i,k,j,p_dms)*1.d-6 - tc(1,1,1,2)=chem(i,k,j,p_so2)*1.d-6 - tc(1,1,1,3)=chem(i,k,j,p_sulf)*1.d-6 - tc(1,1,1,4)=chem(i,k,j,p_msa)*1.d-6 - airmas(1,1,1)=-(p8w(i,k+1,j)-p8w(i,k,j))*area(i,j)/g - airden(1,1,1)=rho_phy(i,k,j) - tmp(1,1,1)=t_phy(i,k,j) - oh(1,1,1)=chem(i,k,j,p_ho)*1.d-6 - h2o2(1,1,1)=chem(i,k,j,p_h2o2)*1.d-6 - xno3(1,1,1) = chem(i,k,j,p_no3)*1.d-6 - IF (COSSZA(1,1) > 0.0)xno3(1,1,1) = 0. + do j=jts,jte + do i=its,ite + zenith=0. + zenita=0. + azimuth=0. + rlat=xlat(i,j)*3.1415926535590/180. + xlonn=xlong(i,j) + CALL szangle(1, 1, julday, gmtp, sza, cosszax,xlonn,rlat) + cossza(1,1)=cosszax(1,1) + do k=kts,kte + chldms_oh=0. + chldms_no3=0. + chldms_x=0. + chpso2=0. + chpmsa=0. + chpso4=0. + chlso2_oh=0. + chlso2_aq=0. + cldf(1,1,1)=0. + if(p_qc.gt.1)then + if(moist(i,k,j,p_qc).gt.0.)cldf(1,1,1)=1. + endif + if(p_qi.gt.1)then + if(moist(i,k,j,p_qi).gt.0.)cldf(1,1,1)=1. + endif + tc(1,1,1,1)=chem(i,k,j,p_dms)*1.d-6 + tc(1,1,1,2)=chem(i,k,j,p_so2)*1.d-6 + tc(1,1,1,3)=chem(i,k,j,p_sulf)*1.d-6 + tc(1,1,1,4)=chem(i,k,j,p_msa)*1.d-6 + airmas(1,1,1)=-(p8w(i,k+1,j)-p8w(i,k,j))*area(i,j)/g + airden(1,1,1)=rho_phy(i,k,j) + tmp(1,1,1)=t_phy(i,k,j) + oh(1,1,1)=chem(i,k,j,p_ho)*1.d-6 + h2o2(1,1,1)=chem(i,k,j,p_h2o2)*1.d-6 + xno3(1,1,1) = chem(i,k,j,p_no3)*1.d-6 + IF (COSSZA(1,1) > 0.0)xno3(1,1,1) = 0. ! if(i.eq.19.and.j.eq.19.and.k.eq.kts)then ! write(0,*)backg_oh(i,k,j),backg_no3(i,k,j),ttday(i,j),tcosz(i,j) ! endif - call chmdrv_su( imx,jmx,lmx,& - nmx, dt, tmp, airden, airmas, & - oh, xno3, h2o2, cldf, tc, tdry,cossza, & - chldms_oh, chldms_no3, chldms_x, chpso2, chpmsa, chpso4, & - chlso2_oh, chlso2_aq) - chem(i,k,j,p_dms)=tc(1,1,1,1)*1.e6 - chem(i,k,j,p_so2)=tc(1,1,1,2)*1.e6 - chem(i,k,j,p_sulf)=tc(1,1,1,3)*1.e6 - chem(i,k,j,p_msa)=tc(1,1,1,4)*1.e6 - enddo - enddo - enddo - endif + call chmdrv_su( imx,jmx,lmx,& + nmx, dt, tmp, airden, airmas, & + oh, xno3, h2o2, cldf, tc, tdry,cossza, & + chldms_oh, chldms_no3, chldms_x, chpso2, chpmsa, chpso4, & + chlso2_oh, chlso2_aq) + chem(i,k,j,p_dms)=tc(1,1,1,1)*1.e6 + chem(i,k,j,p_so2)=tc(1,1,1,2)*1.e6 + chem(i,k,j,p_sulf)=tc(1,1,1,3)*1.e6 + chem(i,k,j,p_msa)=tc(1,1,1,4)*1.e6 + enddo + enddo + enddo + endif ! END SELECT chem_select -end subroutine gocart_chem_driver + end subroutine gocart_chem_driver !SUBROUTINE chmdrv_su( & ! imx, jmx, lmx, nmx, ndt1, tmp, drydf, airden, airmas, & @@ -216,11 +216,11 @@ end subroutine gocart_chem_driver ! chlso2_oh, chlso2_aq) !We don't apply losses due to dry deposition here, this is done in vertical mixing -SUBROUTINE chmdrv_su( imx,jmx,lmx,& - nmx, dt1, tmp, airden, airmas, & - oh, xno3, h2o2, cldf, tc, tdry,cossza, & - chldms_oh, chldms_no3, chldms_x, chpso2, chpmsa, chpso4, & - chlso2_oh, chlso2_aq) + SUBROUTINE chmdrv_su( imx,jmx,lmx,& + nmx, dt1, tmp, airden, airmas, & + oh, xno3, h2o2, cldf, tc, tdry,cossza, & + chldms_oh, chldms_no3, chldms_x, chpso2, chpmsa, chpso4, & + chlso2_oh, chlso2_aq) ! **************************************************************************** ! ** ** @@ -230,51 +230,51 @@ SUBROUTINE chmdrv_su( imx,jmx,lmx,& ! **************************************************************************** ! USE module_data_gocart - - IMPLICIT NONE - - INTEGER, INTENT(IN) :: nmx,imx,jmx,lmx - integer :: ndt1 - real(kind_chem), intent(in) :: dt1 - REAL(kind_chem), DIMENSION(imx,jmx,lmx), INTENT(IN) :: tmp, airden, airmas - REAL(kind_chem), DIMENSION(imx,jmx,lmx), INTENT(IN) :: oh, xno3, cldf - REAL(kind_chem), DIMENSION(imx,jmx,lmx), INTENT(INOUT) :: h2o2 + + IMPLICIT NONE + + INTEGER, INTENT(IN) :: nmx,imx,jmx,lmx + integer :: ndt1 + real(kind_chem), intent(in) :: dt1 + REAL(kind_chem), DIMENSION(imx,jmx,lmx), INTENT(IN) :: tmp, airden, airmas + REAL(kind_chem), DIMENSION(imx,jmx,lmx), INTENT(IN) :: oh, xno3, cldf + REAL(kind_chem), DIMENSION(imx,jmx,lmx), INTENT(INOUT) :: h2o2 ! REAL(kind_chem), INTENT(IN) :: drydf(imx,jmx,nmx) - REAL(kind_chem), INTENT(INOUT) :: tc(imx,jmx,lmx,nmx) - REAL(kind_chem), INTENT(INOUT) :: tdry(imx,jmx,nmx) - real(kind_chem), DIMENSION (imx,jmx),INTENT(IN) :: cossza + REAL(kind_chem), INTENT(INOUT) :: tc(imx,jmx,lmx,nmx) + REAL(kind_chem), INTENT(INOUT) :: tdry(imx,jmx,nmx) + real(kind_chem), DIMENSION (imx,jmx),INTENT(IN) :: cossza ! REAL(kind_chem), DIMENSION(imx,jmx), INTENT(INOUT) :: depso2, depso4, depmsa - REAL(kind_chem), DIMENSION(imx,jmx,lmx), INTENT(INOUT) :: chldms_oh, chldms_no3 - REAL(kind_chem), DIMENSION(imx,jmx,lmx), INTENT(INOUT) :: chldms_x, chpso2, chpmsa - REAL(kind_chem), DIMENSION(imx,jmx,lmx), INTENT(INOUT) :: chpso4, chlso2_oh, chlso2_aq - - REAL(kind_chem), DIMENSION(imx,jmx,lmx) :: pso2_dms, pmsa_dms, pso4_so2 - - ! executable statements - ndt1=int(dt1) - if(ndt1.le.0)stop - - CALL chem_dms(imx,jmx,lmx,nmx, ndt1, tmp, airden, airmas, oh, xno3, & - tc, chldms_oh, chldms_no3, chldms_x, chpso2, chpmsa,cossza, & - pso2_dms, pmsa_dms) - CALL chem_so2(imx,jmx,lmx,nmx, ndt1, tmp, airden, airmas, & - cldf, oh, h2o2, tc, tdry, cossza,& - chpso4, chlso2_oh, chlso2_aq, pso2_dms, pso4_so2) + REAL(kind_chem), DIMENSION(imx,jmx,lmx), INTENT(INOUT) :: chldms_oh, chldms_no3 + REAL(kind_chem), DIMENSION(imx,jmx,lmx), INTENT(INOUT) :: chldms_x, chpso2, chpmsa + REAL(kind_chem), DIMENSION(imx,jmx,lmx), INTENT(INOUT) :: chpso4, chlso2_oh, chlso2_aq + + REAL(kind_chem), DIMENSION(imx,jmx,lmx) :: pso2_dms, pmsa_dms, pso4_so2 + + ! executable statements + ndt1=int(dt1) + if(ndt1.le.0)stop + + CALL chem_dms(imx,jmx,lmx,nmx, ndt1, tmp, airden, airmas, oh, xno3, & + tc, chldms_oh, chldms_no3, chldms_x, chpso2, chpmsa,cossza, & + pso2_dms, pmsa_dms) + CALL chem_so2(imx,jmx,lmx,nmx, ndt1, tmp, airden, airmas, & + cldf, oh, h2o2, tc, tdry, cossza,& + chpso4, chlso2_oh, chlso2_aq, pso2_dms, pso4_so2) ! depso2, chpso4, chlso2_oh, chlso2_aq, pso2_dms, pso4_so2) - CALL chem_so4(imx,jmx,lmx,nmx, ndt1, airmas, tc, tdry,cossza, & - pso4_so2) + CALL chem_so4(imx,jmx,lmx,nmx, ndt1, airmas, tc, tdry,cossza, & + pso4_so2) ! depso4, pso4_so2) - CALL chem_msa(imx,jmx,lmx,nmx, ndt1, airmas, tc, tdry, cossza,& - pmsa_dms) + CALL chem_msa(imx,jmx,lmx,nmx, ndt1, airmas, tc, tdry, cossza,& + pmsa_dms) ! depmsa, pmsa_dms) - -END SUBROUTINE chmdrv_su + + END SUBROUTINE chmdrv_su !============================================================================= -SUBROUTINE chem_dms( imx,jmx,lmx,& - nmx, ndt1, tmp, airden, airmas, oh, xno3, & - tc, chldms_oh, chldms_no3, chldms_x, chpso2, chpmsa,cossza, & - pso2_dms, pmsa_dms) + SUBROUTINE chem_dms( imx,jmx,lmx,& + nmx, ndt1, tmp, airden, airmas, oh, xno3, & + tc, chldms_oh, chldms_no3, chldms_x, chpso2, chpmsa,cossza, & + pso2_dms, pmsa_dms) ! **************************************************************************** ! * * @@ -304,87 +304,87 @@ SUBROUTINE chem_dms( imx,jmx,lmx,& ! * for use in CHEM_SO2 and CHEM_MSA subroutines as a source term. They * ! * are in unit of MixingRatio/timestep. * ! * * -! **************************************************************************** +! **************************************************************************** ! USE module_data_gocart_chem - IMPLICIT NONE - - INTEGER, INTENT(IN) :: nmx, ndt1,imx,jmx,lmx - REAL(kind_chem), DIMENSION(imx,jmx,lmx), INTENT(IN) :: tmp, airden, airmas - REAL(kind_chem), DIMENSION(imx,jmx,lmx), INTENT(IN) :: oh, xno3 - REAL(kind_chem), INTENT(INOUT) :: tc(imx,jmx,lmx,nmx) - REAL(kind_chem), DIMENSION(imx,jmx,lmx), INTENT(INOUT) :: chldms_oh, chldms_no3 - REAL(kind_chem), DIMENSION(imx,jmx,lmx), INTENT(INOUT) :: chldms_x, chpso2, chpmsa - REAL(kind_chem), DIMENSION(imx,jmx,lmx), INTENT(OUT) :: pso2_dms, pmsa_dms - real(kind_chem), DIMENSION (imx,jmx),INTENT(IN) :: cossza - - REAL(kind_chem), PARAMETER :: fx = 1.0 - REAL(kind_chem), PARAMETER :: a = 0.75 - REAL(kind_chem), PARAMETER :: b = 0.25 - - ! From D4: only 0.8 efficiency, also some goes to DMSO and lost. - ! So we assume 0.75 efficiency for DMS addtion channel to form - ! products. - - REAL(kind_chem), PARAMETER :: eff = 1.0 - ! -- Factor to convert AIRDEN from kgair/m3 to molecules/cm3: - REAL(kind_chem), PARAMETER :: f = 1000.0 / airmw * 6.022D23 * 1.0D-6 - INTEGER :: i, j, l - REAL(kind_chem) :: tk, o2, dms0, rk1, rk2, rk3, dms_oh, dms, xoh, xn3, xx - - ! executable statements - - DO l = 1,lmx + IMPLICIT NONE + + INTEGER, INTENT(IN) :: nmx, ndt1,imx,jmx,lmx + REAL(kind_chem), DIMENSION(imx,jmx,lmx), INTENT(IN) :: tmp, airden, airmas + REAL(kind_chem), DIMENSION(imx,jmx,lmx), INTENT(IN) :: oh, xno3 + REAL(kind_chem), INTENT(INOUT) :: tc(imx,jmx,lmx,nmx) + REAL(kind_chem), DIMENSION(imx,jmx,lmx), INTENT(INOUT) :: chldms_oh, chldms_no3 + REAL(kind_chem), DIMENSION(imx,jmx,lmx), INTENT(INOUT) :: chldms_x, chpso2, chpmsa + REAL(kind_chem), DIMENSION(imx,jmx,lmx), INTENT(OUT) :: pso2_dms, pmsa_dms + real(kind_chem), DIMENSION (imx,jmx),INTENT(IN) :: cossza + + REAL(kind_chem), PARAMETER :: fx = 1.0 + REAL(kind_chem), PARAMETER :: a = 0.75 + REAL(kind_chem), PARAMETER :: b = 0.25 + + ! From D4: only 0.8 efficiency, also some goes to DMSO and lost. + ! So we assume 0.75 efficiency for DMS addtion channel to form + ! products. + + REAL(kind_chem), PARAMETER :: eff = 1.0 + ! -- Factor to convert AIRDEN from kgair/m3 to molecules/cm3: + REAL(kind_chem), PARAMETER :: f = 1000.0 / airmw * 6.022D23 * 1.0D-6 + INTEGER :: i, j, l + REAL(kind_chem) :: tk, o2, dms0, rk1, rk2, rk3, dms_oh, dms, xoh, xn3, xx + + ! executable statements + + DO l = 1,lmx !CMIC$ doall autoscope - DO j = 1,jmx - DO i = 1,imx - - tk = tmp(i,j,l) - o2 = airden(i,j,l) * f * 0.21 - dms0 = tc(i,j,l,NDMS) - + DO j = 1,jmx + DO i = 1,imx + + tk = tmp(i,j,l) + o2 = airden(i,j,l) * f * 0.21 + dms0 = tc(i,j,l,NDMS) + ! **************************************************************************** ! * (1) DMS + OH: RK1 - addition channel; RK2 - abstraction channel. * ! **************************************************************************** - rk1 = 0.0d0 - rk2 = 0.0d0 - rk3 = 0.0d0 - - IF (oh(i,j,l) > 0.0) THEN + rk1 = 0.0d0 + rk2 = 0.0d0 + rk3 = 0.0d0 + + IF (oh(i,j,l) > 0.0) THEN ! IF (TRIM(oh_units) == 'mol/mol') THEN - ! mozech: oh is in mol/mol - ! convert to molecules/cm3 - rk1 = (1.7D-42 * EXP(7810.0/tk) * o2) / & - (1.0 + 5.5D-31 * EXP(7460.0/tk) * o2 ) * oh(i,j,l) * & - airden(i,j,l)*f - rk2 = 1.2D-11*EXP(-260.0/tk) * oh(i,j,l)*airden(i,j,l)*f + ! mozech: oh is in mol/mol + ! convert to molecules/cm3 + rk1 = (1.7D-42 * EXP(7810.0/tk) * o2) / & + (1.0 + 5.5D-31 * EXP(7460.0/tk) * o2 ) * oh(i,j,l) * & + airden(i,j,l)*f + rk2 = 1.2D-11*EXP(-260.0/tk) * oh(i,j,l)*airden(i,j,l)*f ! ELSE ! rk1 = (1.7D-42 * EXP(7810.0/tk) * o2) / & ! (1.0 + 5.5D-31 * EXP(7460.0/tk) * o2 ) * oh(i,j,l) -! rk2 = 1.2D-11*EXP(-260.0/tk) * oh(i,j,l) +! rk2 = 1.2D-11*EXP(-260.0/tk) * oh(i,j,l) ! END IF - END IF - + END IF + ! **************************************************************************** ! * (2) DMS + NO3 (only happens at night): * ! **************************************************************************** - IF (cossza(i,j) <= 0.0) THEN + IF (cossza(i,j) <= 0.0) THEN ! IF (TRIM(no3_units) == 'cm-3') THEN -! ! IMAGES: XNO3 is in molecules/cm3. +! ! IMAGES: XNO3 is in molecules/cm3. ! rk3 = 1.9D-13 * EXP(500.0/tk) * xno3(i,j,l) ! ELSE - ! GEOSCHEM (mergechem) and mozech: XNO3 is in mol/mol (v/v) - ! convert xno3 from volume mixing ratio to molecules/cm3 - rk3 = 1.9D-13 * EXP(500.0/tk) * xno3(i,j,l) * & - airden(i,j,l) * f + ! GEOSCHEM (mergechem) and mozech: XNO3 is in mol/mol (v/v) + ! convert xno3 from volume mixing ratio to molecules/cm3 + rk3 = 1.9D-13 * EXP(500.0/tk) * xno3(i,j,l) * & + airden(i,j,l) * f ! END IF - - END IF + + END IF ! **************************************************************************** ! * Update DMS concentrations after reaction with OH and NO3, and also * @@ -395,14 +395,14 @@ SUBROUTINE chem_dms( imx,jmx,lmx,& ! * (min(DMS) = 1.0E-32) * ! **************************************************************************** - dms_oh = dms0 * EXP( -(rk1 + rk2) * fx * REAL(ndt1) ) - dms = dms_oh * EXP( -(rk3) * fx * REAL(ndt1) ) - dms = MAX(dms, 1.0D-16) - - tc(i,j,l,NDMS) = dms - + dms_oh = dms0 * EXP( -(rk1 + rk2) * fx * REAL(ndt1) ) + dms = dms_oh * EXP( -(rk3) * fx * REAL(ndt1) ) + dms = MAX(dms, 1.0D-16) + + tc(i,j,l,NDMS) = dms + ! **************************************************************************** -! * Save SO2 and MSA production from DMS oxidation * +! * Save SO2 and MSA production from DMS oxidation * ! * (in MixingRatio/timestep): * ! * * ! * SO2 is formed in DMS + OH addition (0.85) and abstraction (1.0) * @@ -410,46 +410,46 @@ SUBROUTINE chem_dms( imx,jmx,lmx,& ! * SO2 yield from DMS + X is 1.0. * ! * MSA is formed in DMS + OH addition (0.15) channel. * ! **************************************************************************** - - IF ((rk1 + rk2) == 0.0) THEN - pmsa_dms(i,j,l) = 0.0 - ELSE + + IF ((rk1 + rk2) == 0.0) THEN + pmsa_dms(i,j,l) = 0.0 + ELSE ! pmsa_dms(i,j,l) = (dms0 - dms_oh) * b*rk1/((rk1+rk2)*fx) - pmsa_dms(i,j,l) = (dms0 - dms_oh) * b*rk1/((rk1+rk2) * fx) * eff - END IF - pso2_dms(i,j,l) = dms0 - dms - pmsa_dms(i,j,l) + pmsa_dms(i,j,l) = (dms0 - dms_oh) * b*rk1/((rk1+rk2) * fx) * eff + END IF + pso2_dms(i,j,l) = dms0 - dms - pmsa_dms(i,j,l) ! pso2_dms(i,j,l) = (dms0 - dms - pmsa_dms(i,j,l)/eff) * eff - ! ------------------------------------------------------------ - ! DIAGNOSTICS: DMS loss (kgS/timstep) - ! SO2 production (kgS/timestep) - ! MSA production (kgS/timestep) - ! ------------------------------------------------------------ - xoh = (dms0 - dms_oh) / fx * airmas(i,j,l)/airmw*smw - xn3 = (dms_oh - dms) / fx * airmas(i,j,l)/airmw*smw - xx = (dms0 - dms) * airmas(i,j,l)/airmw*smw - xoh - xn3 - - chldms_oh (i,j,l) = chldms_oh (i,j,l) + xoh - chldms_no3(i,j,l) = chldms_no3(i,j,l) + xn3 - chldms_x (i,j,l) = chldms_x (i,j,l) + xx - - chpso2(i,j,l) = chpso2(i,j,l) + pso2_dms(i,j,l) & - * airmas(i,j,l) / airmw * smw - chpmsa(i,j,l) = chpmsa(i,j,l) + pmsa_dms(i,j,l) & - * airmas(i,j,l) / airmw * smw - - END DO - END DO - END DO - -END SUBROUTINE chem_dms - + ! ------------------------------------------------------------ + ! DIAGNOSTICS: DMS loss (kgS/timstep) + ! SO2 production (kgS/timestep) + ! MSA production (kgS/timestep) + ! ------------------------------------------------------------ + xoh = (dms0 - dms_oh) / fx * airmas(i,j,l)/airmw*smw + xn3 = (dms_oh - dms) / fx * airmas(i,j,l)/airmw*smw + xx = (dms0 - dms) * airmas(i,j,l)/airmw*smw - xoh - xn3 + + chldms_oh (i,j,l) = chldms_oh (i,j,l) + xoh + chldms_no3(i,j,l) = chldms_no3(i,j,l) + xn3 + chldms_x (i,j,l) = chldms_x (i,j,l) + xx + + chpso2(i,j,l) = chpso2(i,j,l) + pso2_dms(i,j,l) & + * airmas(i,j,l) / airmw * smw + chpmsa(i,j,l) = chpmsa(i,j,l) + pmsa_dms(i,j,l) & + * airmas(i,j,l) / airmw * smw + + END DO + END DO + END DO + + END SUBROUTINE chem_dms + !============================================================================= -SUBROUTINE chem_so2( imx,jmx,lmx,& - nmx, ndt1, tmp, airden, airmas, & - cldf, oh, h2o2, tc, tdry, cossza,& - chpso4, chlso2_oh, chlso2_aq, pso2_dms, pso4_so2) + SUBROUTINE chem_so2( imx,jmx,lmx,& + nmx, ndt1, tmp, airden, airmas, & + cldf, oh, h2o2, tc, tdry, cossza,& + chpso4, chlso2_oh, chlso2_aq, pso2_dms, pso4_so2) ! depso2, chpso4, chlso2_oh, chlso2_aq, pso2_dms, pso4_so2) ! **************************************************************************** @@ -457,9 +457,9 @@ SUBROUTINE chem_so2( imx,jmx,lmx,& ! * This is SO2 chemistry subroutine. * ! * * ! * SO2 production: * -! * DMS + OH, DMS + NO3 (saved in CHEM_DMS) * +! * DMS + OH, DMS + NO3 (saved in CHEM_DMS) * ! * * -! * SO2 loss: * +! * SO2 loss: * ! * SO2 + OH -> SO4 * ! * SO2 -> drydep (NOT USED IN WRF/CHEM * ! * SO2 + H2O2 or O3 (aq) -> SO4 * @@ -479,142 +479,142 @@ SUBROUTINE chem_so2( imx,jmx,lmx,& ! **************************************************************************** ! USE module_data_gocart_chem - IMPLICIT NONE + IMPLICIT NONE - INTEGER, INTENT(IN) :: nmx, ndt1,imx,jmx,lmx - REAL(kind_chem), DIMENSION(imx,jmx,lmx), INTENT(IN) :: tmp, airden, airmas - REAL(kind_chem), DIMENSION(imx,jmx,lmx), INTENT(IN) :: cldf, oh - REAL(kind_chem), DIMENSION(imx,jmx,lmx), INTENT(INOUT) :: h2o2 - real(kind_chem), DIMENSION (imx,jmx),INTENT(IN) :: cossza + INTEGER, INTENT(IN) :: nmx, ndt1,imx,jmx,lmx + REAL(kind_chem), DIMENSION(imx,jmx,lmx), INTENT(IN) :: tmp, airden, airmas + REAL(kind_chem), DIMENSION(imx,jmx,lmx), INTENT(IN) :: cldf, oh + REAL(kind_chem), DIMENSION(imx,jmx,lmx), INTENT(INOUT) :: h2o2 + real(kind_chem), DIMENSION (imx,jmx),INTENT(IN) :: cossza ! REAL(kind_chem), INTENT(IN) :: drydf(imx,jmx,nmx) - REAL(kind_chem), INTENT(INOUT) :: tc(imx,jmx,lmx,nmx) - REAL(kind_chem), INTENT(INOUT) :: tdry(imx,jmx,nmx) + REAL(kind_chem), INTENT(INOUT) :: tc(imx,jmx,lmx,nmx) + REAL(kind_chem), INTENT(INOUT) :: tdry(imx,jmx,nmx) ! REAL(kind_chem), DIMENSION(imx,jmx), INTENT(INOUT) :: depso2 - REAL(kind_chem), DIMENSION(imx,jmx,lmx), INTENT(INOUT) :: chpso4, chlso2_oh, chlso2_aq - REAL(kind_chem), INTENT(IN) :: pso2_dms(imx,jmx,lmx) - REAL(kind_chem), INTENT(OUT) :: pso4_so2(imx,jmx,lmx) - - REAL(kind_chem) :: k0, kk, m, l1, l2, ld - ! Factor to convert AIRDEN from kgair/m3 to molecules/cm3: - REAL(kind_chem), PARAMETER :: f = 1000. / airmw * 6.022D23 * 1.0D-6 - REAL(kind_chem), PARAMETER :: ki = 1.5D-12 - INTEGER :: i, j, l - REAL(kind_chem) :: so20, tk, f1, rk1, rk2, rk, rkt, so2_cd, fc, so2 - - ! executable statements - - DO l = 1,lmx - DO j = 1,jmx - DO i = 1,imx - - so20 = tc(i,j,l,NSO2) - - ! RK1: SO2 + OH(g), in s-1 - tk = tmp(i,j,l) - k0 = 3.0D-31 * (300.0/tk)**3.3 - m = airden(i,j,l) * f - kk = k0 * m / ki - f1 = ( 1.0+ ( LOG10(kk) )**2 )**(-1) -! IF (TRIM(oh_units) == 'mol/mol') THEN - ! mozech: oh is in mol/mol - ! convert to molecules/cm3 - rk1 = ( k0 * m / (1.0 + kk) ) * 0.6**f1 * & - oh(i,j,l)*airden(i,j,l)*f + REAL(kind_chem), DIMENSION(imx,jmx,lmx), INTENT(INOUT) :: chpso4, chlso2_oh, chlso2_aq + REAL(kind_chem), INTENT(IN) :: pso2_dms(imx,jmx,lmx) + REAL(kind_chem), INTENT(OUT) :: pso4_so2(imx,jmx,lmx) + + REAL(kind_chem) :: k0, kk, m, l1, l2, ld + ! Factor to convert AIRDEN from kgair/m3 to molecules/cm3: + REAL(kind_chem), PARAMETER :: f = 1000. / airmw * 6.022D23 * 1.0D-6 + REAL(kind_chem), PARAMETER :: ki = 1.5D-12 + INTEGER :: i, j, l + REAL(kind_chem) :: so20, tk, f1, rk1, rk2, rk, rkt, so2_cd, fc, so2 + + ! executable statements + + DO l = 1,lmx + DO j = 1,jmx + DO i = 1,imx + + so20 = tc(i,j,l,NSO2) + + ! RK1: SO2 + OH(g), in s-1 + tk = tmp(i,j,l) + k0 = 3.0D-31 * (300.0/tk)**3.3 + m = airden(i,j,l) * f + kk = k0 * m / ki + f1 = ( 1.0+ ( LOG10(kk) )**2 )**(-1) +! IF (TRIM(oh_units) == 'mol/mol') THEN + ! mozech: oh is in mol/mol + ! convert to molecules/cm3 + rk1 = ( k0 * m / (1.0 + kk) ) * 0.6**f1 * & + oh(i,j,l)*airden(i,j,l)*f ! ELSE ! rk1 = ( k0 * m / (1.0 + kk) ) * 0.6**f1 * oh(i,j,l) ! END IF - - ! RK2: SO2 drydep frequency, s-1 + + ! RK2: SO2 drydep frequency, s-1 ! IF (l == 1) THEN ! at the surface ! rk2 = drydf(i,j,NSO2) ! ELSE - rk2 = 0.0 + rk2 = 0.0 ! END IF - - rk = (rk1 + rk2) - rkt = rk * REAL(ndt1) + + rk = (rk1 + rk2) + rkt = rk * REAL(ndt1) ! **************************************************************************** ! * Update SO2 concentration after gas phase chemistry and deposition. * ! **************************************************************************** - IF (rk > 0.0) THEN - so2_cd = so20 * EXP(-rkt) & - + pso2_dms(i,j,l) * (1.0 - EXP(-rkt)) / rkt - l1 = (so20 - so2_cd + pso2_dms(i,j,l)) * rk1/rk - IF (l == 1) THEN - ld = (so20 - so2_cd + pso2_dms(i,j,l)) * rk2/rk - ELSE - ld = 0.0 - END IF - ELSE - so2_cd = so20 - l1 = 0.0 - END IF + IF (rk > 0.0) THEN + so2_cd = so20 * EXP(-rkt) & + + pso2_dms(i,j,l) * (1.0 - EXP(-rkt)) / rkt + l1 = (so20 - so2_cd + pso2_dms(i,j,l)) * rk1/rk + IF (l == 1) THEN + ld = (so20 - so2_cd + pso2_dms(i,j,l)) * rk2/rk + ELSE + ld = 0.0 + END IF + ELSE + so2_cd = so20 + l1 = 0.0 + END IF ! **************************************************************************** ! * Update SO2 concentration after cloud chemistry. * ! * SO2 chemical loss rate = SO4 production rate (MixingRatio/timestep). * ! **************************************************************************** - ! Cloud chemistry (above 258K): - fc = cldf(i,j,l) - IF (fc > 0.0 .AND. so2_cd > 0.0 .AND. tk > 258.0) THEN - - IF (so2_cd > h2o2(i,j,l)) THEN - fc = fc * (h2o2(i,j,l)/so2_cd) - h2o2(i,j,l) = h2o2(i,j,l) * (1.0 - cldf(i,j,l)) - ELSE - h2o2(i,j,l) = h2o2(i,j,l) * & - (1.0 - cldf(i,j,l)*so2_cd/h2o2(i,j,l)) - END IF - so2 = so2_cd * (1.0 - fc) - ! Aqueous phase SO2 loss rate (MixingRatio/timestep): - l2 = so2_cd * fc - ELSE - so2 = so2_cd - l2 = 0.0 - END IF - - so2 = MAX(so2, 1.0D-16) - tc(i,j,l,NSO2) = so2 + ! Cloud chemistry (above 258K): + fc = cldf(i,j,l) + IF (fc > 0.0 .AND. so2_cd > 0.0 .AND. tk > 258.0) THEN + + IF (so2_cd > h2o2(i,j,l)) THEN + fc = fc * (h2o2(i,j,l)/so2_cd) + h2o2(i,j,l) = h2o2(i,j,l) * (1.0 - cldf(i,j,l)) + ELSE + h2o2(i,j,l) = h2o2(i,j,l) * & + (1.0 - cldf(i,j,l)*so2_cd/h2o2(i,j,l)) + END IF + so2 = so2_cd * (1.0 - fc) + ! Aqueous phase SO2 loss rate (MixingRatio/timestep): + l2 = so2_cd * fc + ELSE + so2 = so2_cd + l2 = 0.0 + END IF + + so2 = MAX(so2, 1.0D-16) + tc(i,j,l,NSO2) = so2 ! **************************************************************************** ! * SO2 chemical loss rate = SO4 production rate (MixingRatio/timestep). * ! **************************************************************************** - pso4_so2(i,j,l) = l1 + l2 - - ! --------------------------------------------------------------- - ! DIAGNOSTICS: SO2 gas-phase loss (kgS/timestep) - ! SO2 aqueous-phase loss (kgS/timestep) - ! SO2 dry deposition loss (kgS/timestep) - ! SO4 production (kgS/timestep) - ! --------------------------------------------------------------- - chlso2_oh(i,j,l) = chlso2_oh(i,j,l) & - + l1 * airmas(i,j,l) / airmw * smw - chlso2_aq(i,j,l) = chlso2_aq(i,j,l) & - + l2 * airmas(i,j,l) / airmw * smw - IF (l == 1) & + pso4_so2(i,j,l) = l1 + l2 + + ! --------------------------------------------------------------- + ! DIAGNOSTICS: SO2 gas-phase loss (kgS/timestep) + ! SO2 aqueous-phase loss (kgS/timestep) + ! SO2 dry deposition loss (kgS/timestep) + ! SO4 production (kgS/timestep) + ! --------------------------------------------------------------- + chlso2_oh(i,j,l) = chlso2_oh(i,j,l) & + + l1 * airmas(i,j,l) / airmw * smw + chlso2_aq(i,j,l) = chlso2_aq(i,j,l) & + + l2 * airmas(i,j,l) / airmw * smw + IF (l == 1) & ! depso2(i,j) = depso2(i,j) + ld * airmas(i,j,l) / airmw * smw - chpso4(i,j,l) = chpso4(i,j,l) + pso4_so2(i,j,l) & - * airmas(i,j,l) / airmw * smw - - END DO - END DO - END DO + chpso4(i,j,l) = chpso4(i,j,l) + pso4_so2(i,j,l) & + * airmas(i,j,l) / airmw * smw + + END DO + END DO + END DO ! tdry(:,:,NSO2) = depso2(:,:)*tcmw(NSO2)/smw ! kg of SO2 -END SUBROUTINE chem_so2 + END SUBROUTINE chem_so2 !============================================================================= -SUBROUTINE chem_so4( imx,jmx,lmx,& - nmx, ndt1, airmas, tc, tdry, cossza,& - pso4_so2) + SUBROUTINE chem_so4( imx,jmx,lmx,& + nmx, ndt1, airmas, tc, tdry, cossza,& + pso4_so2) ! depso4, pso4_so2) ! **************************************************************************** @@ -631,62 +631,62 @@ SUBROUTINE chem_so4( imx,jmx,lmx,& ! **************************************************************************** ! USE module_data_gocart_chem - IMPLICIT NONE + IMPLICIT NONE - INTEGER, INTENT(IN) :: nmx, ndt1,imx,jmx,lmx - REAL(kind_chem), DIMENSION(imx,jmx,lmx), INTENT(IN) :: airmas + INTEGER, INTENT(IN) :: nmx, ndt1,imx,jmx,lmx + REAL(kind_chem), DIMENSION(imx,jmx,lmx), INTENT(IN) :: airmas ! REAL(kind_chem), INTENT(IN) :: drydf(imx,jmx,nmx) - REAL(kind_chem), INTENT(INOUT) :: tc(imx,jmx,lmx,nmx) - REAL(kind_chem), INTENT(INOUT) :: tdry(imx,jmx,nmx) + REAL(kind_chem), INTENT(INOUT) :: tc(imx,jmx,lmx,nmx) + REAL(kind_chem), INTENT(INOUT) :: tdry(imx,jmx,nmx) ! REAL(kind_chem), DIMENSION(imx,jmx), INTENT(INOUT) :: depso4 - REAL(kind_chem), INTENT(IN) :: pso4_so2(imx,jmx,lmx) - real(kind_chem), DIMENSION (imx,jmx),INTENT(IN) :: cossza + REAL(kind_chem), INTENT(IN) :: pso4_so2(imx,jmx,lmx) + real(kind_chem), DIMENSION (imx,jmx),INTENT(IN) :: cossza - INTEGER :: i, j, l - REAL(kind_chem) :: so40, rk, rkt, so4 + INTEGER :: i, j, l + REAL(kind_chem) :: so40, rk, rkt, so4 - ! executable statements + ! executable statements - DO l = 1,lmx - DO j = 1,jmx - DO i = 1,imx + DO l = 1,lmx + DO j = 1,jmx + DO i = 1,imx - so40 = tc(i,j,l,NSO4) + so40 = tc(i,j,l,NSO4) - ! RK: SO4 drydep frequency, s-1 + ! RK: SO4 drydep frequency, s-1 ! IF (l == 1) THEN ! rk = drydf(i,j,NSO4) ! rkt = rk * REAL(ndt1) ! ! so4 = so40 * EXP(-rkt) + pso4_so2(i,j,l)/rkt * (1.0 - EXP(-rkt)) ! ELSE - so4 = so40 + pso4_so2(i,j,l) + so4 = so40 + pso4_so2(i,j,l) ! END IF - so4 = MAX(so4, 1.0D-16) - tc(i,j,l,NSO4) = so4 + so4 = MAX(so4, 1.0D-16) + tc(i,j,l,NSO4) = so4 - ! -------------------------------------------------------------- - ! DIAGNOSTICS: SO4 dry deposition (kgS/timestep) - ! -------------------------------------------------------------- + ! -------------------------------------------------------------- + ! DIAGNOSTICS: SO4 dry deposition (kgS/timestep) + ! -------------------------------------------------------------- ! IF (l == 1) & ! depso4(i,j) = depso4(i,j) + (so40 - so4 + pso4_so2(i,j,l)) & ! * airmas(i,j,l) / airmw * smw - - END DO - END DO - END DO - ! tdry(:,:,NSO4) = depso4(:,:)*tcmw(NSO4)/smw ! kg of SO4 + END DO + END DO + END DO + + ! tdry(:,:,NSO4) = depso4(:,:)*tcmw(NSO4)/smw ! kg of SO4 -END SUBROUTINE chem_so4 + END SUBROUTINE chem_so4 !============================================================================= -SUBROUTINE chem_msa( imx,jmx,lmx,& - nmx, ndt1, airmas, tc, tdry, cossza,& - pmsa_dms) + SUBROUTINE chem_msa( imx,jmx,lmx,& + nmx, ndt1, airmas, tc, tdry, cossza,& + pmsa_dms) ! depmsa, pmsa_dms) ! **************************************************************************** @@ -703,29 +703,29 @@ SUBROUTINE chem_msa( imx,jmx,lmx,& ! **************************************************************************** ! USE module_data_gocart_chem - IMPLICIT NONE + IMPLICIT NONE - INTEGER, INTENT(IN) :: nmx, ndt1,imx,jmx,lmx - REAL(kind_chem), DIMENSION(imx,jmx,lmx), INTENT(IN) :: airmas - REAL(kind_chem), DIMENSION(imx,jmx), INTENT(IN) :: cossza + INTEGER, INTENT(IN) :: nmx, ndt1,imx,jmx,lmx + REAL(kind_chem), DIMENSION(imx,jmx,lmx), INTENT(IN) :: airmas + REAL(kind_chem), DIMENSION(imx,jmx), INTENT(IN) :: cossza ! REAL, INTENT(IN) :: drydf(imx,jmx,nmx) - REAL(kind_chem), INTENT(INOUT) :: tc(imx,jmx,lmx,nmx) - REAL(kind_chem), INTENT(INOUT) :: tdry(imx,jmx,nmx) + REAL(kind_chem), INTENT(INOUT) :: tc(imx,jmx,lmx,nmx) + REAL(kind_chem), INTENT(INOUT) :: tdry(imx,jmx,nmx) ! REAL, DIMENSION(imx,jmx), INTENT(INOUT) :: depmsa - REAL(kind_chem), INTENT(IN) :: pmsa_dms(imx,jmx,lmx) + REAL(kind_chem), INTENT(IN) :: pmsa_dms(imx,jmx,lmx) - REAL(kind_chem) :: msa0, msa, rk, rkt - INTEGER :: i, j, l - - ! executable statements - - DO l = 1,lmx - DO j = 1,jmx - DO i = 1,imx + REAL(kind_chem) :: msa0, msa, rk, rkt + INTEGER :: i, j, l - msa0 = tc(i,j,l,NMSA) + ! executable statements - ! RK: MSA drydep frequency, s-1 + DO l = 1,lmx + DO j = 1,jmx + DO i = 1,imx + + msa0 = tc(i,j,l,NMSA) + + ! RK: MSA drydep frequency, s-1 ! IF (l == 1) THEN ! rk = drydf(i,j,NMSA) ! rkt = rk * REAL(ndt1) @@ -734,27 +734,27 @@ SUBROUTINE chem_msa( imx,jmx,lmx,& ! + pmsa_dms(i,j,l)/rkt * (1.0 - EXP(-rkt)) ! ! ELSE - msa = msa0 + pmsa_dms(i,j,l) + msa = msa0 + pmsa_dms(i,j,l) ! END IF - msa = MAX(msa, 1.0D-16) - tc(i,j,l,NMSA) = msa - - ! -------------------------------------------------------------- - ! DIAGNOSTICS: MSA dry deposition (kgS/timestep) - ! -------------------------------------------------------------- + msa = MAX(msa, 1.0D-16) + tc(i,j,l,NMSA) = msa + + ! -------------------------------------------------------------- + ! DIAGNOSTICS: MSA dry deposition (kgS/timestep) + ! -------------------------------------------------------------- ! IF (l == 1) & ! depmsa(i,j) = depmsa(i,j) + (msa0 - msa + pmsa_dms(i,j,l)) & ! * airmas(i,j,l) / airmw * smw - END DO - END DO - END DO + END DO + END DO + END DO ! tdry(:,:,NMSA) = depmsa(:,:)*tcmw(NMSA)/smw ! kg of MSA -END SUBROUTINE chem_msa -SUBROUTINE szangle(imx, jmx, doy, xhour, sza, cossza,xlon,rlat) + END SUBROUTINE chem_msa + SUBROUTINE szangle(imx, jmx, doy, xhour, sza, cossza,xlon,rlat) ! ! **************************************************************************** @@ -771,61 +771,61 @@ SUBROUTINE szangle(imx, jmx, doy, xhour, sza, cossza,xlon,rlat) ! **************************************************************************** ! - IMPLICIT NONE - - INTEGER, INTENT(IN) :: imx, jmx - INTEGER, INTENT(IN) :: doy - REAL(kind_chem), INTENT(IN) :: xhour - REAL(kind_chem), INTENT(OUT) :: sza(imx,jmx), cossza(imx,jmx) - - REAL(kind_chem) :: a0, a1, a2, a3, b1, b2, b3, r, dec, timloc, ahr,xlon,rlat - real(kind_chem), parameter :: pi=3.14 - INTEGER :: i, j - - ! executable statements - sza = 0. - cossza = 0. - - ! *************************************************************************** - ! * Solar declination angle: * - ! *************************************************************************** - a0 = 0.006918 - a1 = 0.399912 - a2 = 0.006758 - a3 = 0.002697 - b1 = 0.070257 - b2 = 0.000907 - b3 = 0.000148 - r = 2.0* pi * REAL(doy-1)/365.0 - ! - dec = a0 - a1*COS( r) + b1*SIN( r) & - - a2*COS(2.0*r) + b2*SIN(2.0*r) & - - a3*COS(3.0*r) + b3*SIN(3.0*r) - ! - DO i = 1,imx - ! ************************************************************************ - ! * Hour angle (AHR) is a function of longitude. AHR is zero at * - ! * solar noon, and increases by 15 deg for every hour before or * - ! * after solar noon. * - ! ************************************************************************ - ! -- Local time in hours - timloc = xhour + xlon/15.0 - ! IF (timloc < 0.0) timloc = 24.0 + timloc - IF (timloc > 24.0) timloc = timloc - 24.0 - ! - ! -- Hour angle - ahr = ABS(timloc - 12.0) * 15.0 * pi/180.0 - ! - DO j = 1,jmx - ! -- Solar zenith angle - cossza(i,j) = SIN(rlat) * SIN(dec) + & - COS(rlat) * COS(dec) * COS(ahr) - sza(i,j) = ACOS(cossza(i,j)) * 180.0/pi - IF (cossza(i,j) < 0.0) cossza(i,j) = 0.0 - ! - END do - END DO - -END subroutine szangle + IMPLICIT NONE + + INTEGER, INTENT(IN) :: imx, jmx + INTEGER, INTENT(IN) :: doy + REAL(kind_chem), INTENT(IN) :: xhour + REAL(kind_chem), INTENT(OUT) :: sza(imx,jmx), cossza(imx,jmx) + + REAL(kind_chem) :: a0, a1, a2, a3, b1, b2, b3, r, dec, timloc, ahr,xlon,rlat + real(kind_chem), parameter :: pi=3.14 + INTEGER :: i, j + + ! executable statements + sza = 0. + cossza = 0. + + ! *************************************************************************** + ! * Solar declination angle: * + ! *************************************************************************** + a0 = 0.006918 + a1 = 0.399912 + a2 = 0.006758 + a3 = 0.002697 + b1 = 0.070257 + b2 = 0.000907 + b3 = 0.000148 + r = 2.0* pi * REAL(doy-1)/365.0 + ! + dec = a0 - a1*COS( r) + b1*SIN( r) & + - a2*COS(2.0*r) + b2*SIN(2.0*r) & + - a3*COS(3.0*r) + b3*SIN(3.0*r) + ! + DO i = 1,imx + ! ************************************************************************ + ! * Hour angle (AHR) is a function of longitude. AHR is zero at * + ! * solar noon, and increases by 15 deg for every hour before or * + ! * after solar noon. * + ! ************************************************************************ + ! -- Local time in hours + timloc = xhour + xlon/15.0 + ! IF (timloc < 0.0) timloc = 24.0 + timloc + IF (timloc > 24.0) timloc = timloc - 24.0 + ! + ! -- Hour angle + ahr = ABS(timloc - 12.0) * 15.0 * pi/180.0 + ! + DO j = 1,jmx + ! -- Solar zenith angle + cossza(i,j) = SIN(rlat) * SIN(dec) + & + COS(rlat) * COS(dec) * COS(ahr) + sza(i,j) = ACOS(cossza(i,j)) * 180.0/pi + IF (cossza(i,j) < 0.0) cossza(i,j) = 0.0 + ! + END do + END DO + + END subroutine szangle end module gocart_chem_mod diff --git a/src/gocart_diag_mod.F90 b/src/gocart_diag_mod.F90 index a876433b..c8e5aaac 100644 --- a/src/gocart_diag_mod.F90 +++ b/src/gocart_diag_mod.F90 @@ -1,72 +1,72 @@ module gocart_diag_mod - use catchem_constants , only : kind_chem - use catchem_config + use catchem_constants , only : kind_chem + use catchem_config - implicit none + implicit none - private + private - public :: gocart_diag_cmass - public :: gocart_diag_store + public :: gocart_diag_cmass + public :: gocart_diag_store contains - subroutine gocart_diag_cmass(chem_opt, nbegin, g, pr, tr, trcm) - - integer, intent(in) :: chem_opt - integer, intent(in) :: nbegin - real, intent(in) :: g - real(kind_chem), dimension(:,:,:), intent(in) :: pr - real(kind_chem), dimension(:,:,:,:), intent(in) :: tr - real(kind_chem), dimension(:,:,:), intent(out) :: trcm - - ! -- local variables - integer :: i, j, k, ni, nj, nk - real(kind_chem) :: coef - - real(kind_chem), parameter :: fdust2 = 0.38_kind_chem - real(kind_chem), parameter :: fseas2 = 0.83_kind_chem - - ! -- begin - - ni = size(pr,1) - nj = size(pr,2) - nk = size(pr,3) - 1 - - trcm = 0._kind_chem - - select case (chem_opt) - case (CHEM_OPT_GOCART, CHEM_OPT_GOCART_RACM) - - do k = 1, nk - do j = 1, nj - do i = 1, ni - coef = 1.e-9_kind_chem * (pr(i,j,k)-pr(i,j,k+1)) / g !kg/m2 - ! -- black carbon - trcm(i,j,2) = trcm(i,j,2) + coef * (tr(i,j,k,nbegin + p_bc1) + tr(i,j,k,nbegin + p_bc2)) - ! -- organic carbon - trcm(i,j,3) = trcm(i,j,3) + coef * (tr(i,j,k,nbegin + p_oc1) + tr(i,j,k,nbegin + p_oc2)) - ! -- sulfate - trcm(i,j,4) = trcm(i,j,4) + coef * tr(i,j,k,nbegin + p_sulf) - ! -- dust - trcm(i,j,5) = trcm(i,j,5) + coef * (tr(i,j,k,nbegin + p_dust_1) + fdust2 * tr(i,j,k,nbegin + p_dust_2)) - ! -- seas - trcm(i,j,6) = trcm(i,j,6) + coef * (tr(i,j,k,nbegin + p_seas_1) + tr(i,j,k,nbegin + p_seas_2 ) & - + fseas2* tr(i,j,k,nbegin + p_seas_3)) + subroutine gocart_diag_cmass(chem_opt, nbegin, g, pr, tr, trcm) + + integer, intent(in) :: chem_opt + integer, intent(in) :: nbegin + real, intent(in) :: g + real(kind_chem), dimension(:,:,:), intent(in) :: pr + real(kind_chem), dimension(:,:,:,:), intent(in) :: tr + real(kind_chem), dimension(:,:,:), intent(out) :: trcm + + ! -- local variables + integer :: i, j, k, ni, nj, nk + real(kind_chem) :: coef + + real(kind_chem), parameter :: fdust2 = 0.38_kind_chem + real(kind_chem), parameter :: fseas2 = 0.83_kind_chem + + ! -- begin + + ni = size(pr,1) + nj = size(pr,2) + nk = size(pr,3) - 1 + + trcm = 0._kind_chem + + select case (chem_opt) + case (CHEM_OPT_GOCART, CHEM_OPT_GOCART_RACM) + + do k = 1, nk + do j = 1, nj + do i = 1, ni + coef = 1.e-9_kind_chem * (pr(i,j,k)-pr(i,j,k+1)) / g !kg/m2 + ! -- black carbon + trcm(i,j,2) = trcm(i,j,2) + coef * (tr(i,j,k,nbegin + p_bc1) + tr(i,j,k,nbegin + p_bc2)) + ! -- organic carbon + trcm(i,j,3) = trcm(i,j,3) + coef * (tr(i,j,k,nbegin + p_oc1) + tr(i,j,k,nbegin + p_oc2)) + ! -- sulfate + trcm(i,j,4) = trcm(i,j,4) + coef * tr(i,j,k,nbegin + p_sulf) + ! -- dust + trcm(i,j,5) = trcm(i,j,5) + coef * (tr(i,j,k,nbegin + p_dust_1) + fdust2 * tr(i,j,k,nbegin + p_dust_2)) + ! -- seas + trcm(i,j,6) = trcm(i,j,6) + coef * (tr(i,j,k,nbegin + p_seas_1) + tr(i,j,k,nbegin + p_seas_2 ) & + + fseas2* tr(i,j,k,nbegin + p_seas_3)) + end do end do - end do - end do - ! -- pm2.5 aerosol includes all tracers above (note: p25 emissions are added to oc1) - do k = 2, 6 - do j = 1, nj - do i = 1, ni - trcm(i,j,1) = trcm(i,j,1) + trcm(i,j,k) + end do + ! -- pm2.5 aerosol includes all tracers above (note: p25 emissions are added to oc1) + do k = 2, 6 + do j = 1, nj + do i = 1, ni + trcm(i,j,1) = trcm(i,j,1) + trcm(i,j,k) + end do end do - end do - end do + end do - case (CHEM_OPT_RACM_SOA_VBS) + case (CHEM_OPT_RACM_SOA_VBS) ! do k = 1, nk ! do j = 1, nj @@ -94,37 +94,37 @@ subroutine gocart_diag_cmass(chem_opt, nbegin, g, pr, tr, trcm) ! end do ! end do - case default - ! -- not yet implemented - end select - - end subroutine gocart_diag_cmass + case default + ! -- not yet implemented + end select + end subroutine gocart_diag_cmass - subroutine gocart_diag_store(ipos, v, w) - integer, intent(in) :: ipos - real(kind_chem), dimension(:,:,:), intent(in) :: v - real(kind_chem), dimension(:,:,:,:), intent(inout) :: w - real(kind_chem), parameter :: ugkg = 1.e-09_kind_chem !lzhang + subroutine gocart_diag_store(ipos, v, w) - ! -- local variables - integer :: m, n, nd, nt + integer, intent(in) :: ipos + real(kind_chem), dimension(:,:,:), intent(in) :: v + real(kind_chem), dimension(:,:,:,:), intent(inout) :: w + real(kind_chem), parameter :: ugkg = 1.e-09_kind_chem !lzhang - nd = size(w, dim=4) - if (ipos > nd) return + ! -- local variables + integer :: m, n, nd, nt - nt = size(v, dim=3) - if (nt > size(w, dim=3) + 2) return + nd = size(w, dim=4) + if (ipos > nd) return - m = 0 - do n = 1, nt - if (n == p_so2) cycle - if (n == p_msa) cycle - m = m + 1 - w(:,:,m,ipos) = ugkg*v(:,:,n) !kg/m2/s - end do - - end subroutine gocart_diag_store + nt = size(v, dim=3) + if (nt > size(w, dim=3) + 2) return + + m = 0 + do n = 1, nt + if (n == p_so2) cycle + if (n == p_msa) cycle + m = m + 1 + w(:,:,m,ipos) = ugkg*v(:,:,n) !kg/m2/s + end do + + end subroutine gocart_diag_store end module gocart_diag_mod diff --git a/src/gocart_dmsemis_mod.F90 b/src/gocart_dmsemis_mod.F90 index fefdb3f4..9dd3420b 100644 --- a/src/gocart_dmsemis_mod.F90 +++ b/src/gocart_dmsemis_mod.F90 @@ -3,111 +3,111 @@ module gocart_dmsemis_mod - use catchem_constants , only : kind_chem, g=>con_g, pi=>con_pi - use catchem_config, only : smw, NDMS, mwdry, num_chem, p_dms + use catchem_constants , only : kind_chem, g=>con_g, pi=>con_pi + use catchem_config, only : smw, NDMS, mwdry, num_chem, p_dms - implicit none + implicit none - public :: gocart_dmsemis + public :: gocart_dmsemis contains - subroutine gocart_dmsemis(dt,u_phy,v_phy, & - chem_arr,dz8w,u10,v10, & - delp,dms_0,tsk,area) + subroutine gocart_dmsemis(dt,u_phy,v_phy, & + chem_arr,dz8w,u10,v10, & + delp,dms_0,tsk,area) - IMPLICIT NONE + IMPLICIT NONE - REAL(kind=kind_chem), DIMENSION( num_chem ), & + REAL(kind=kind_chem), DIMENSION( num_chem ), & INTENT(INOUT ) :: chem_arr - REAL(kind_chem), INTENT(IN ) :: dt, u_phy,v_phy, & - dz8w,u10,v10, & - delp,dms_0,tsk, area - + REAL(kind_chem), INTENT(IN ) :: dt, u_phy,v_phy, & + dz8w,u10,v10, & + delp,dms_0,tsk, area + ! ! local variables ! - integer :: i,j,k,ndt,imx,jmx,lmx,nmx - integer,dimension (1,1) :: ilwi - real(kind_chem), DIMENSION (1,1,1,1) :: tc - real(kind_chem), DIMENSION (1,1,1) :: bems,airmas - real(kind_chem), DIMENSION (1,1) :: emsdms - real(kind_chem), dimension (1,1) :: w10m,gwet,airden,tskin,dmso - real(kind_chem), dimension (1) :: dxy - real(kind_chem),parameter::max_default=1.e-30 + integer :: i,j,k,ndt,imx,jmx,lmx,nmx + integer,dimension (1,1) :: ilwi + real(kind_chem), DIMENSION (1,1,1,1) :: tc + real(kind_chem), DIMENSION (1,1,1) :: bems,airmas + real(kind_chem), DIMENSION (1,1) :: emsdms + real(kind_chem), dimension (1,1) :: w10m,gwet,airden,tskin,dmso + real(kind_chem), dimension (1) :: dxy + real(kind_chem),parameter::max_default=1.e-30 ! ! number of dust bins ! - imx=1 - jmx=1 - lmx=1 - nmx=1 - ndt=int(dt) + imx=1 + jmx=1 + lmx=1 + nmx=1 + ndt=int(dt) - ilwi(1,1)=0 + ilwi(1,1)=0 - tc(1,1,1,1)=chem_arr(p_dms)*1.d-6 - dmso(1,1)=dms_0 + tc(1,1,1,1)=chem_arr(p_dms)*1.d-6 + dmso(1,1)=dms_0 ! w10m(1,1)=sqrt(u10*u10+v10*v10) - airmas(1,1,1)=delp*area/g - dxy(1)=area - tskin(1,1)=tsk - emsdms(1,1)=0. + airmas(1,1,1)=delp*area/g + dxy(1)=area + tskin(1,1)=tsk + emsdms(1,1)=0. ! ! we don't trust the u10,v10 values, is model layers are very thin near surface ! ! if(dz8w(i,kts,j).lt.12.)w10m=sqrt(u_phy(i,kts,j)*u_phy(i,kts,j)+v_phy(i,kts,j)*v_phy(i,kts,j)) - w10m=sqrt(u_phy*u_phy+v_phy*v_phy) + w10m=sqrt(u_phy*u_phy+v_phy*v_phy) - call srcdms(imx, jmx, lmx, nmx, ndt, tc, mwdry,& - tskin, ilwi, dmso, w10m, airmas, dxy, emsdms, bems) + call srcdms(imx, jmx, lmx, nmx, ndt, tc, mwdry,& + tskin, ilwi, dmso, w10m, airmas, dxy, emsdms, bems) ! chem(i,kts,j,p_dms)=max(1.e-30,tc(1,1,1,1)*1.e6) - chem_arr(p_dms)=max(max_default,tc(1,1,1,1)*1.e6) + chem_arr(p_dms)=max(max_default,tc(1,1,1,1)*1.e6) ! -end subroutine gocart_dmsemis - -SUBROUTINE srcdms(imx, jmx, lmx, nmx, ndt1, tc,airmw, & - tskin, ilwi, dmso, w10m, airmas, dxy, emsdms, bems) - - ! ************************************************************************** - ! ** ** - ! ** This subroutine calculates DMS emissions from the ocean. ** - ! ** ** - ! ************************************************************************** - - - IMPLICIT NONE - REAL(kind_chem), PARAMETER :: dms_mw = 62.00 - REAL(kind_chem), PARAMETER :: tcmw(1)=dms_mw - INTEGER, INTENT(IN) :: imx, jmx, lmx, nmx, ndt1 - REAL(kind_chem), INTENT(IN) :: tskin(imx,jmx), dmso(imx,jmx) - INTEGER, INTENT(IN) :: ilwi(imx,jmx) - REAL(kind_chem), INTENT(IN) :: dxy(jmx), w10m(imx,jmx) - REAL(kind_chem), INTENT(IN) :: airmw - REAL(kind_chem), INTENT(IN) :: airmas(imx,jmx,lmx) - REAL(kind_chem), INTENT(INOUT) :: tc(imx,jmx,lmx,nmx) - REAL(kind_chem), INTENT(INOUT) :: emsdms(imx,jmx) - REAL(kind_chem), INTENT(OUT) :: bems(imx,jmx,nmx) - - INTEGER :: i,j - REAL(kind_chem) :: sst, sc, conc, w10, scco2, akw, erate, dmssrc, c - - ! ************************************************************************** - ! * ilwi = 0: water ** - ! * If ilwi = 0: DMSEMS = seawaterDMS * transfer velocity. ** - ! * Otherwise, DMSEMS = 0.0 ** - ! ************************************************************************** - - ! executable statements + end subroutine gocart_dmsemis + + SUBROUTINE srcdms(imx, jmx, lmx, nmx, ndt1, tc,airmw, & + tskin, ilwi, dmso, w10m, airmas, dxy, emsdms, bems) + + ! ************************************************************************** + ! ** ** + ! ** This subroutine calculates DMS emissions from the ocean. ** + ! ** ** + ! ************************************************************************** + + + IMPLICIT NONE + REAL(kind_chem), PARAMETER :: dms_mw = 62.00 + REAL(kind_chem), PARAMETER :: tcmw(1)=dms_mw + INTEGER, INTENT(IN) :: imx, jmx, lmx, nmx, ndt1 + REAL(kind_chem), INTENT(IN) :: tskin(imx,jmx), dmso(imx,jmx) + INTEGER, INTENT(IN) :: ilwi(imx,jmx) + REAL(kind_chem), INTENT(IN) :: dxy(jmx), w10m(imx,jmx) + REAL(kind_chem), INTENT(IN) :: airmw + REAL(kind_chem), INTENT(IN) :: airmas(imx,jmx,lmx) + REAL(kind_chem), INTENT(INOUT) :: tc(imx,jmx,lmx,nmx) + REAL(kind_chem), INTENT(INOUT) :: emsdms(imx,jmx) + REAL(kind_chem), INTENT(OUT) :: bems(imx,jmx,nmx) + + INTEGER :: i,j + REAL(kind_chem) :: sst, sc, conc, w10, scco2, akw, erate, dmssrc, c + + ! ************************************************************************** + ! * ilwi = 0: water ** + ! * If ilwi = 0: DMSEMS = seawaterDMS * transfer velocity. ** + ! * Otherwise, DMSEMS = 0.0 ** + ! ************************************************************************** + + ! executable statements ! tcmw(NDMS) = dms_mw - lat_loop: DO j = 1,jmx - lon_loop: DO i = 1,imx - ! convert tskin (=sst over water) from K to degC - sst = tskin(i,j) - 273.15 + lat_loop: DO j = 1,jmx + lon_loop: DO i = 1,imx + ! convert tskin (=sst over water) from K to degC + sst = tskin(i,j) - 273.15 ! if_water: IF (ilwi(i,j) == 0) THEN - - ! -- Schmidt number for DMS (Saltzman et al., 1993) - sc = 2674.0 - 147.12*sst + 3.726*(sst**2) - 0.038*(sst**3) + + ! -- Schmidt number for DMS (Saltzman et al., 1993) + sc = 2674.0 - 147.12*sst + 3.726*(sst**2) - 0.038*(sst**3) ! **************************************************************************** ! * Calculate transfer velocity in cm/hr (AKw) * @@ -122,9 +122,9 @@ SUBROUTINE srcdms(imx, jmx, lmx, nmx, ndt1, tc,airmw, & ! * Sc = 428 (25oC, Erickson 93) * ! **************************************************************************** - conc = dmso(i,j) + conc = dmso(i,j) - w10 = w10m(i,j) + w10 = w10m(i,j) ! ! --- GEOS-1 or GEOS-STRAT: using SSMI winds ! IF (lmx <= 26) w10 = wssmi(i,j) @@ -140,29 +140,29 @@ SUBROUTINE srcdms(imx, jmx, lmx, nmx, ndt1, tc,airmw, & ! ScCO2 = 660. ! AKw = 0.31 * W10**2 - ! --- Liss and Merlivat (1986) ----------- - scco2 = 600.0 - IF (w10 <= 3.6) THEN - akw = 0.17 * w10 - ELSE IF (w10 <= 13.0) THEN - akw = 2.85 * w10 - 9.65 - ELSE - akw = 5.90 * w10 - 49.3 - END IF - ! ------------------------------------------ - IF (w10 <= 3.6) THEN - if (sc .le. 0.) then - akw=1.0E-8 - else - akw = akw * ((scco2/sc) ** 0.667) - endif - ELSE - if (sc .le. 0.) then - akw=1.0E-8 - else - akw = akw * SQRT(scco2/sc) - endif - END IF + ! --- Liss and Merlivat (1986) ----------- + scco2 = 600.0 + IF (w10 <= 3.6) THEN + akw = 0.17 * w10 + ELSE IF (w10 <= 13.0) THEN + akw = 2.85 * w10 - 9.65 + ELSE + akw = 5.90 * w10 - 49.3 + END IF + ! ------------------------------------------ + IF (w10 <= 3.6) THEN + if (sc .le. 0.) then + akw=1.0E-8 + else + akw = akw * ((scco2/sc) ** 0.667) + endif + ELSE + if (sc .le. 0.) then + akw=1.0E-8 + else + akw = akw * SQRT(scco2/sc) + endif + END IF ! **************************************************************************** ! * Calculate emission flux in kg/box/timestep * @@ -174,33 +174,33 @@ SUBROUTINE srcdms(imx, jmx, lmx, nmx, ndt1, tc,airmw, & ! * DMSSRC : kgDMS/box/timestep * ! **************************************************************************** - erate = akw/100.0/3600.0*conc*1.0E-12*1000.0*REAL(ndt1)*tcmw(NDMS) - dmssrc = erate * dxy(j) + erate = akw/100.0/3600.0*conc*1.0E-12*1000.0*REAL(ndt1)*tcmw(NDMS) + dmssrc = erate * dxy(j) ! ELSE ! ilwi /= 0 (water) ! dmssrc = 0.0 - -! END IF if_water + +! END IF if_water ! **************************************************************************** ! * Update DMS concentration in level 1 (where emission occurs) * ! **************************************************************************** - ! -- Convert emission from kg/box/timestep to mixing ratio/timestep: - c = dmssrc / airmas(i,j,1) * airmw / tcmw(NDMS) - tc(i,j,1,NDMS) = tc(i,j,1,NDMS) + c + ! -- Convert emission from kg/box/timestep to mixing ratio/timestep: + c = dmssrc / airmas(i,j,1) * airmw / tcmw(NDMS) + tc(i,j,1,NDMS) = tc(i,j,1,NDMS) + c - ! --------------------------------------------------------------- - ! Diagnostics: DMS surface emission in kgS/timestep - ! --------------------------------------------------------------- - emsdms(i,j) = emsdms(i,j) + dmssrc * smw / tcmw(NDMS) ! kgS + ! --------------------------------------------------------------- + ! Diagnostics: DMS surface emission in kgS/timestep + ! --------------------------------------------------------------- + emsdms(i,j) = emsdms(i,j) + dmssrc * smw / tcmw(NDMS) ! kgS ! bems(i,j,NDMS) = c * airmas(i,j,1) / airmw * smw ! kgS - bems(i,j,NDMS) = dmssrc ! kgDMS + bems(i,j,NDMS) = dmssrc ! kgDMS - END DO lon_loop - END DO lat_loop + END DO lon_loop + END DO lat_loop -END SUBROUTINE srcdms + END SUBROUTINE srcdms end module gocart_dmsemis_mod diff --git a/src/gocart_dust_default_mod.F90 b/src/gocart_dust_default_mod.F90 index 88c1c1ad..ddeaf028 100644 --- a/src/gocart_dust_default_mod.F90 +++ b/src/gocart_dust_default_mod.F90 @@ -3,119 +3,119 @@ module gocart_dust_default_mod - use catchem_constants, only : kind_chem, g=>con_g, pi=>con_pi - use catchem_config, only: num_chem,num_emis_dust,& - p_dust_1,p_dust_2,p_dust_3,p_dust_4,p_dust_5, & - p_edust1,p_edust2,p_edust3,p_edust4,p_edust5 - use dust_data_mod + use catchem_constants, only : kind_chem, g=>con_g, pi=>con_pi + use catchem_config, only: num_chem,num_emis_dust,& + p_dust_1,p_dust_2,p_dust_3,p_dust_4,p_dust_5, & + p_edust1,p_edust2,p_edust3,p_edust4,p_edust5 + use dust_data_mod - implicit none + implicit none - private + private - public :: gocart_dust_default + public :: gocart_dust_default CONTAINS - subroutine gocart_dust_default(ktau,dt,u_phy, & - v_phy,chem_arr,rho_phy,dz8w,smois,u10, & - v10,delp,erod,isltyp,area, & - emis_dust,srce_dust,num_soil_layers,start_month) - - INTEGER, INTENT(IN ) :: ktau, isltyp, start_month, & - num_soil_layers - REAL(kind=kind_chem), INTENT(IN ) :: dt,u_phy,v_phy, & - rho_phy, & - dz8w,u10,v10, & - delp, & - area - - REAL(kind=kind_chem), DIMENSION( num_chem ), & - INTENT(INOUT ) :: chem_arr - REAL(kind=kind_chem), DIMENSION(num_emis_dust),& - INTENT(INOUT ) :: emis_dust, srce_dust - REAL(kind=kind_chem), DIMENSION( num_soil_layers ) , & - INTENT(INOUT) :: smois - REAL(kind=kind_chem), DIMENSION( 3 ) , & - INTENT(IN ) :: erod + subroutine gocart_dust_default(ktau,dt,u_phy, & + v_phy,chem_arr,rho_phy,dz8w,smois,u10, & + v10,delp,erod,isltyp,area, & + emis_dust,srce_dust,num_soil_layers,start_month) + + INTEGER, INTENT(IN ) :: ktau, isltyp, start_month, & + num_soil_layers + REAL(kind=kind_chem), INTENT(IN ) :: dt,u_phy,v_phy, & + rho_phy, & + dz8w,u10,v10, & + delp, & + area + + REAL(kind=kind_chem), DIMENSION( num_chem ), & + INTENT(INOUT ) :: chem_arr + REAL(kind=kind_chem), DIMENSION(num_emis_dust),& + INTENT(INOUT ) :: emis_dust, srce_dust + REAL(kind=kind_chem), DIMENSION( num_soil_layers ) , & + INTENT(INOUT) :: smois + REAL(kind=kind_chem), DIMENSION( 3 ) , & + INTENT(IN ) :: erod ! ! ! local variables ! - integer :: ipr,ilwi - real(kind=kind_chem), DIMENSION (3,1) :: erodin ! (ndcls,ndsrc) - real(kind=kind_chem), DIMENSION (ndust) :: tc,bems,srce_out - real(kind=kind_chem) :: w10m,gwet,airden,airmas - real(kind=kind_chem) :: dxy - real(kind=kind_chem) tcs - real(kind=kind_chem) dttt - real(kind=kind_chem), parameter::max_default=0. - real(kind=kind_chem), parameter :: conver = 1.e-9 - real(kind=kind_chem), parameter :: converi = 1.e+9 - - ilwi=1 - tc(1)=chem_arr(p_dust_1)*conver - tc(2)=chem_arr(p_dust_2)*conver - tc(3)=chem_arr(p_dust_3)*conver - tc(4)=chem_arr(p_dust_4)*conver - tc(5)=chem_arr(p_dust_5)*conver - w10m=sqrt(u10*u10+v10*v10) - airmas=area * delp / g + integer :: ipr,ilwi + real(kind=kind_chem), DIMENSION (3,1) :: erodin ! (ndcls,ndsrc) + real(kind=kind_chem), DIMENSION (ndust) :: tc,bems,srce_out + real(kind=kind_chem) :: w10m,gwet,airden,airmas + real(kind=kind_chem) :: dxy + real(kind=kind_chem) tcs + real(kind=kind_chem) dttt + real(kind=kind_chem), parameter::max_default=0. + real(kind=kind_chem), parameter :: conver = 1.e-9 + real(kind=kind_chem), parameter :: converi = 1.e+9 + + ilwi=1 + tc(1)=chem_arr(p_dust_1)*conver + tc(2)=chem_arr(p_dust_2)*conver + tc(3)=chem_arr(p_dust_3)*conver + tc(4)=chem_arr(p_dust_4)*conver + tc(5)=chem_arr(p_dust_5)*conver + w10m=sqrt(u10*u10+v10*v10) + airmas=area * delp / g ! ! we don't trust the u10,v10 values, is model layers are very thin near surface ! - if(dz8w.lt.12.)w10m=sqrt(u_phy*u_phy+v_phy*v_phy) + if(dz8w.lt.12.)w10m=sqrt(u_phy*u_phy+v_phy*v_phy) ! - erodin(1,1)=erod(1)!/area(i,j) - erodin(2,1)=erod(2)!/area(i,j) - erodin(3,1)=erod(3)!/area(i,j) + erodin(1,1)=erod(1)!/area(i,j) + erodin(2,1)=erod(2)!/area(i,j) + erodin(3,1)=erod(3)!/area(i,j) ! -- volumetric soil moisture over porosity - if(isltyp.eq.0)then - ilwi=0 - gwet=1. - else - gwet=smois(1)/maxsmc(isltyp) - endif - - airden=rho_phy - dxy=area - ipr=0 - - call source_du( ndust, dt, tc, & - erodin, ilwi, dxy, w10m, gwet, airden, airmas, & - bems,srce_out, start_month,g,ipr) - - chem_arr(p_dust_1)=max(max_default,tc(1)*converi) - chem_arr(p_dust_2)=max(max_default,tc(2)*converi) - chem_arr(p_dust_3)=max(max_default,tc(3)*converi) - chem_arr(p_dust_4)=max(max_default,tc(4)*converi) - chem_arr(p_dust_5)=max(max_default,tc(5)*converi) - - ! -- for output diagnostics - emis_dust(p_edust1)=bems(1) - emis_dust(p_edust2)=bems(2) - emis_dust(p_edust3)=bems(3) - emis_dust(p_edust4)=bems(4) - emis_dust(p_edust5)=bems(5) - - ! -- for output diagnostics of dust source - srce_dust(p_edust1)=srce_out(1) - srce_dust(p_edust2)=srce_out(2) - srce_dust(p_edust3)=srce_out(3) - srce_dust(p_edust4)=srce_out(4) - srce_dust(p_edust5)=srce_out(5) - - end subroutine gocart_dust_default - - - SUBROUTINE source_du( nmx, dt1, tc, & - erod, ilwi, dxy, w10m, gwet, airden, airmas, & - bems,srce_out,month,g0,ipr) + if(isltyp.eq.0)then + ilwi=0 + gwet=1. + else + gwet=smois(1)/maxsmc(isltyp) + endif + + airden=rho_phy + dxy=area + ipr=0 + + call source_du( ndust, dt, tc, & + erodin, ilwi, dxy, w10m, gwet, airden, airmas, & + bems,srce_out, start_month,g,ipr) + + chem_arr(p_dust_1)=max(max_default,tc(1)*converi) + chem_arr(p_dust_2)=max(max_default,tc(2)*converi) + chem_arr(p_dust_3)=max(max_default,tc(3)*converi) + chem_arr(p_dust_4)=max(max_default,tc(4)*converi) + chem_arr(p_dust_5)=max(max_default,tc(5)*converi) + + ! -- for output diagnostics + emis_dust(p_edust1)=bems(1) + emis_dust(p_edust2)=bems(2) + emis_dust(p_edust3)=bems(3) + emis_dust(p_edust4)=bems(4) + emis_dust(p_edust5)=bems(5) + + ! -- for output diagnostics of dust source + srce_dust(p_edust1)=srce_out(1) + srce_dust(p_edust2)=srce_out(2) + srce_dust(p_edust3)=srce_out(3) + srce_dust(p_edust4)=srce_out(4) + srce_dust(p_edust5)=srce_out(5) + + end subroutine gocart_dust_default + + + SUBROUTINE source_du( nmx, dt1, tc, & + erod, ilwi, dxy, w10m, gwet, airden, airmas, & + bems,srce_out,month,g0,ipr) ! **************************************************************************** -! * Evaluate the source of each dust particles size classes (kg/m3) +! * Evaluate the source of each dust particles size classes (kg/m3) ! * by soil emission. ! * Input: ! * EROD Fraction of erodible grid cell (-) @@ -127,84 +127,84 @@ SUBROUTINE source_du( nmx, dt1, tc, & ! * W10m Velocity at the anemometer level (10meters) (m/s) ! * u_tresh Threshold velocity for particule uplifting (m/s) ! * CH_dust Constant to fudge the total emission of dust (s2/m2) -! * +! * ! * Output: -! * DSRC Source of each dust type (kg/timestep/cell) +! * DSRC Source of each dust type (kg/timestep/cell) ! * ! * Working: ! * SRC Potential source (kg/m/timestep/cell) ! * ! **************************************************************************** - INTEGER, INTENT(IN) :: nmx,ilwi,month - - REAL(kind=kind_chem), INTENT(IN) :: dt1, g0 - REAL(kind=kind_chem), INTENT(IN) :: erod(ndcls,ndsrc) - REAL(kind=kind_chem), INTENT(IN) :: w10m, gwet - REAL(kind=kind_chem), INTENT(IN) :: dxy - REAL(kind=kind_chem), INTENT(IN) :: airden, airmas - REAL(kind=kind_chem), INTENT(INOUT) :: tc(nmx) - REAL(kind=kind_chem), INTENT(OUT) :: bems(nmx) - REAL(kind=kind_chem), INTENT(OUT) :: srce_out(nmx) !dust source - INTEGER, INTENT(OUT) :: ipr - - !----------------------------------------------------------------------- - ! local variables - !----------------------------------------------------------------------- - INTEGER :: i, j, n, m, k - REAL(kind=kind_chem) :: g - REAL(kind=kind_chem) :: den(nmx), diam(nmx) - REAL(kind=kind_chem) :: rhoa, tsrc, u_ts0, u_ts, dsrc, srce - REAL(kind=kind_chem) :: tcmw(nmx), ar(nmx), tcvv(nmx) - REAL(kind=kind_chem) :: ar_wetdep(nmx), kc(nmx) - CHARACTER(LEN=20) :: tcname(nmx), tcunits(nmx) - LOGICAL :: aerosol(nmx) - - REAL(kind=kind_chem), PARAMETER :: gthresh = 0.5_kind_chem - - ! executable statemenst - ipr = 0 - - DO n = 1, nmx - ! Threshold velocity as a function of the dust density and the diameter - ! from Bagnold (1941) - den(n) = den_dust(n)*1.0D-3 - diam(n) = 2.0*reff_dust(n)*1.0D2 - g = g0*1.0E2 - ! Pointer to the 3 classes considered in the source data files - m = ipoint(n) - tsrc = 0.0_kind_chem - DO k = 1, ndsrc - ! No flux if wet soil - rhoa = airden*1.0D-3 - u_ts0 = 0.13*1.0D-2*SQRT(den(n)*g*diam(n)/rhoa)* & - SQRT(1.0+0.006/den(n)/g/(diam(n))**2.5)/ & - SQRT(1.928*(1331.0*(diam(n))**1.56+0.38)**0.092-1.0) - - ! Case of surface dry enough to erode - IF (gwet < gthresh) THEN - u_ts = MAX(0.0D+0,u_ts0*(1.2D+0+2.0D-1*LOG10(MAX(1.0D-3, gwet)))) - ELSE - ! Case of wet surface, no erosion - u_ts = 100.0_kind_chem - END IF - srce = frac_s(n)*erod(m,k)*dxy ! (m2) - srce_out (k)=srce ! output dust source - IF (ilwi == 1 ) THEN - dsrc = ch_dust(n,month)*srce*w10m**2 & - * (w10m - u_ts)*dt1 ! (kg) - ELSE - dsrc = 0.0_kind_chem - END IF - IF (dsrc < 0.0_kind_chem) dsrc = 0.0_kind_chem - - ! Update dust mixing ratio at first model level. - ! scale down dust by .7 - tc(n) = tc(n) + .7*dsrc / airmas - bems(n) = .7*dsrc/(dxy*dt1) ! diagnostic (kg/m2/s) - END DO - END DO - -END SUBROUTINE source_du + INTEGER, INTENT(IN) :: nmx,ilwi,month + + REAL(kind=kind_chem), INTENT(IN) :: dt1, g0 + REAL(kind=kind_chem), INTENT(IN) :: erod(ndcls,ndsrc) + REAL(kind=kind_chem), INTENT(IN) :: w10m, gwet + REAL(kind=kind_chem), INTENT(IN) :: dxy + REAL(kind=kind_chem), INTENT(IN) :: airden, airmas + REAL(kind=kind_chem), INTENT(INOUT) :: tc(nmx) + REAL(kind=kind_chem), INTENT(OUT) :: bems(nmx) + REAL(kind=kind_chem), INTENT(OUT) :: srce_out(nmx) !dust source + INTEGER, INTENT(OUT) :: ipr + + !----------------------------------------------------------------------- + ! local variables + !----------------------------------------------------------------------- + INTEGER :: i, j, n, m, k + REAL(kind=kind_chem) :: g + REAL(kind=kind_chem) :: den(nmx), diam(nmx) + REAL(kind=kind_chem) :: rhoa, tsrc, u_ts0, u_ts, dsrc, srce + REAL(kind=kind_chem) :: tcmw(nmx), ar(nmx), tcvv(nmx) + REAL(kind=kind_chem) :: ar_wetdep(nmx), kc(nmx) + CHARACTER(LEN=20) :: tcname(nmx), tcunits(nmx) + LOGICAL :: aerosol(nmx) + + REAL(kind=kind_chem), PARAMETER :: gthresh = 0.5_kind_chem + + ! executable statemenst + ipr = 0 + + DO n = 1, nmx + ! Threshold velocity as a function of the dust density and the diameter + ! from Bagnold (1941) + den(n) = den_dust(n)*1.0D-3 + diam(n) = 2.0*reff_dust(n)*1.0D2 + g = g0*1.0E2 + ! Pointer to the 3 classes considered in the source data files + m = ipoint(n) + tsrc = 0.0_kind_chem + DO k = 1, ndsrc + ! No flux if wet soil + rhoa = airden*1.0D-3 + u_ts0 = 0.13*1.0D-2*SQRT(den(n)*g*diam(n)/rhoa)* & + SQRT(1.0+0.006/den(n)/g/(diam(n))**2.5)/ & + SQRT(1.928*(1331.0*(diam(n))**1.56+0.38)**0.092-1.0) + + ! Case of surface dry enough to erode + IF (gwet < gthresh) THEN + u_ts = MAX(0.0D+0,u_ts0*(1.2D+0+2.0D-1*LOG10(MAX(1.0D-3, gwet)))) + ELSE + ! Case of wet surface, no erosion + u_ts = 100.0_kind_chem + END IF + srce = frac_s(n)*erod(m,k)*dxy ! (m2) + srce_out (k)=srce ! output dust source + IF (ilwi == 1 ) THEN + dsrc = ch_dust(n,month)*srce*w10m**2 & + * (w10m - u_ts)*dt1 ! (kg) + ELSE + dsrc = 0.0_kind_chem + END IF + IF (dsrc < 0.0_kind_chem) dsrc = 0.0_kind_chem + + ! Update dust mixing ratio at first model level. + ! scale down dust by .7 + tc(n) = tc(n) + .7*dsrc / airmas + bems(n) = .7*dsrc/(dxy*dt1) ! diagnostic (kg/m2/s) + END DO + END DO + + END SUBROUTINE source_du end module gocart_dust_default_mod diff --git a/src/gocart_dust_simple_mod.F90 b/src/gocart_dust_simple_mod.F90 index 7d7abf58..b5dec1f2 100644 --- a/src/gocart_dust_simple_mod.F90 +++ b/src/gocart_dust_simple_mod.F90 @@ -3,107 +3,107 @@ module gocart_dust_simple_mod - use catchem_constants, only : kind_chem, g=>con_g, pi=>con_pi - use catchem_config, only: num_chem, p_dust_1, p_dust_2, num_emis_dust - use dust_data_mod + use catchem_constants, only : kind_chem, g=>con_g, pi=>con_pi + use catchem_config, only: num_chem, p_dust_1, p_dust_2, num_emis_dust + use dust_data_mod - implicit none + implicit none - private + private - public :: gocart_dust_simple + public :: gocart_dust_simple CONTAINS - subroutine gocart_dust_simple(ktau,dt,u_phy, & - v_phy,chem_arr,rho_phy,dz8w,smois,u10, & - v10,delp,erod,isltyp,area, & - emis_dust,dusthelp,num_soil_layers,start_month) - - INTEGER, INTENT(IN ) :: ktau, isltyp, start_month, & - num_soil_layers - REAL(kind=kind_chem), INTENT(IN ) :: dt,u_phy,v_phy, & - rho_phy, & - dz8w,u10,v10, & - delp, & - area - - REAL(kind=kind_chem), DIMENSION( num_chem ), & - INTENT(INOUT ) :: chem_arr - REAL(kind=kind_chem), INTENT(INOUT ) :: dusthelp - REAL(kind=kind_chem), DIMENSION(num_emis_dust),& - INTENT(INOUT ) :: emis_dust - REAL(kind=kind_chem), DIMENSION( num_soil_layers ) , & - INTENT(INOUT) :: smois - REAL(kind=kind_chem), DIMENSION( 3 ) , & - INTENT(IN ) :: erod + subroutine gocart_dust_simple(ktau,dt,u_phy, & + v_phy,chem_arr,rho_phy,dz8w,smois,u10, & + v10,delp,erod,isltyp,area, & + emis_dust,dusthelp,num_soil_layers,start_month) + + INTEGER, INTENT(IN ) :: ktau, isltyp, start_month, & + num_soil_layers + REAL(kind=kind_chem), INTENT(IN ) :: dt,u_phy,v_phy, & + rho_phy, & + dz8w,u10,v10, & + delp, & + area + + REAL(kind=kind_chem), DIMENSION( num_chem ), & + INTENT(INOUT ) :: chem_arr + REAL(kind=kind_chem), INTENT(INOUT ) :: dusthelp + REAL(kind=kind_chem), DIMENSION(num_emis_dust),& + INTENT(INOUT ) :: emis_dust + REAL(kind=kind_chem), DIMENSION( num_soil_layers ) , & + INTENT(INOUT) :: smois + REAL(kind=kind_chem), DIMENSION( 3 ) , & + INTENT(IN ) :: erod ! ! ! local variables ! - integer :: ipr,ilwi - real(kind=kind_chem), DIMENSION (3,1) :: erodin ! (ndcls,ndsrc) - real(kind=kind_chem), DIMENSION (ndust) :: tc,bems,srce_out - real(kind=kind_chem) :: w10m,gwet,airden,airmas - real(kind=kind_chem) :: dxy - real(kind=kind_chem) tcs - real(kind=kind_chem) dttt - real(kind=kind_chem), parameter::max_default=0. - real(kind=kind_chem), parameter :: conver = 1.e-9 - real(kind=kind_chem), parameter :: converi = 1.e+9 - - ilwi=1 - tc(1)=chem_arr(p_dust_1)*conver - tcs=tc(1) - tc(2)=1.e-30 - tc(3)=chem_arr(p_dust_2)*conver - tc(4)=1.e-30 - tc(5)=1.d-30 - w10m=sqrt(u10*u10+v10*v10) - airmas=area * delp / g + integer :: ipr,ilwi + real(kind=kind_chem), DIMENSION (3,1) :: erodin ! (ndcls,ndsrc) + real(kind=kind_chem), DIMENSION (ndust) :: tc,bems,srce_out + real(kind=kind_chem) :: w10m,gwet,airden,airmas + real(kind=kind_chem) :: dxy + real(kind=kind_chem) tcs + real(kind=kind_chem) dttt + real(kind=kind_chem), parameter::max_default=0. + real(kind=kind_chem), parameter :: conver = 1.e-9 + real(kind=kind_chem), parameter :: converi = 1.e+9 + + ilwi=1 + tc(1)=chem_arr(p_dust_1)*conver + tcs=tc(1) + tc(2)=1.e-30 + tc(3)=chem_arr(p_dust_2)*conver + tc(4)=1.e-30 + tc(5)=1.d-30 + w10m=sqrt(u10*u10+v10*v10) + airmas=area * delp / g ! ! we don't trust the u10,v10 values, is model layers are very thin near surface ! - if(dz8w.lt.12.)w10m=sqrt(u_phy*u_phy+v_phy*v_phy) + if(dz8w.lt.12.)w10m=sqrt(u_phy*u_phy+v_phy*v_phy) ! - erodin(1,1)=erod(1)!/area(i,j) - erodin(2,1)=erod(2)!/area(i,j) - erodin(3,1)=erod(3)!/area(i,j) + erodin(1,1)=erod(1)!/area(i,j) + erodin(2,1)=erod(2)!/area(i,j) + erodin(3,1)=erod(3)!/area(i,j) ! -- volumetric soil moisture over porosity - if(isltyp.eq.0)then - ilwi=0 - gwet=1. - else - gwet=smois(1)/maxsmc(isltyp) - endif - - airden=rho_phy - dxy=area - ipr=0 - - call source_du( ndust, dt, tc, & - erodin, ilwi, dxy, w10m, gwet, airden, airmas, & - bems,srce_out, start_month,g,ipr) - chem_arr(p_dust_1)=max(max_default,(tc(1)+.3125*tc(2))*converi) - chem_arr(p_dust_2)=max(max_default,(.67*tc(2)+tc(3))*converi) - dusthelp=max(max_default,tc(2)*converi) - - ! -- for output diagnostics - emis_dust(p_edust1)=bems(1) - emis_dust(p_edust2)=bems(2) - emis_dust(p_edust3)=bems(3) - - end subroutine gocart_dust_simple - - - SUBROUTINE source_du( nmx, dt1, tc, & - erod, ilwi, dxy, w10m, gwet, airden, airmas, & - bems,srce_out,month,g0,ipr) + if(isltyp.eq.0)then + ilwi=0 + gwet=1. + else + gwet=smois(1)/maxsmc(isltyp) + endif + + airden=rho_phy + dxy=area + ipr=0 + + call source_du( ndust, dt, tc, & + erodin, ilwi, dxy, w10m, gwet, airden, airmas, & + bems,srce_out, start_month,g,ipr) + chem_arr(p_dust_1)=max(max_default,(tc(1)+.3125*tc(2))*converi) + chem_arr(p_dust_2)=max(max_default,(.67*tc(2)+tc(3))*converi) + dusthelp=max(max_default,tc(2)*converi) + + ! -- for output diagnostics + emis_dust(p_edust1)=bems(1) + emis_dust(p_edust2)=bems(2) + emis_dust(p_edust3)=bems(3) + + end subroutine gocart_dust_simple + + + SUBROUTINE source_du( nmx, dt1, tc, & + erod, ilwi, dxy, w10m, gwet, airden, airmas, & + bems,srce_out,month,g0,ipr) ! **************************************************************************** -! * Evaluate the source of each dust particles size classes (kg/m3) +! * Evaluate the source of each dust particles size classes (kg/m3) ! * by soil emission. ! * Input: ! * EROD Fraction of erodible grid cell (-) @@ -115,84 +115,84 @@ SUBROUTINE source_du( nmx, dt1, tc, & ! * W10m Velocity at the anemometer level (10meters) (m/s) ! * u_tresh Threshold velocity for particule uplifting (m/s) ! * CH_dust Constant to fudge the total emission of dust (s2/m2) -! * +! * ! * Output: -! * DSRC Source of each dust type (kg/timestep/cell) +! * DSRC Source of each dust type (kg/timestep/cell) ! * ! * Working: ! * SRC Potential source (kg/m/timestep/cell) ! * ! **************************************************************************** - INTEGER, INTENT(IN) :: nmx,ilwi,month - - REAL(kind=kind_chem), INTENT(IN) :: dt1, g0 - REAL(kind=kind_chem), INTENT(IN) :: erod(ndcls,ndsrc) - REAL(kind=kind_chem), INTENT(IN) :: w10m, gwet - REAL(kind=kind_chem), INTENT(IN) :: dxy - REAL(kind=kind_chem), INTENT(IN) :: airden, airmas - REAL(kind=kind_chem), INTENT(INOUT) :: tc(nmx) - REAL(kind=kind_chem), INTENT(OUT) :: bems(nmx) - REAL(kind=kind_chem), INTENT(OUT) :: srce_out(nmx) !dust source - INTEGER, INTENT(OUT) :: ipr - - !----------------------------------------------------------------------- - ! local variables - !----------------------------------------------------------------------- - INTEGER :: i, j, n, m, k - REAL(kind=kind_chem) :: g - REAL(kind=kind_chem) :: den(nmx), diam(nmx) - REAL(kind=kind_chem) :: rhoa, tsrc, u_ts0, u_ts, dsrc, srce - REAL(kind=kind_chem) :: tcmw(nmx), ar(nmx), tcvv(nmx) - REAL(kind=kind_chem) :: ar_wetdep(nmx), kc(nmx) - CHARACTER(LEN=20) :: tcname(nmx), tcunits(nmx) - LOGICAL :: aerosol(nmx) - - REAL(kind=kind_chem), PARAMETER :: gthresh = 0.5_kind_chem - - ! executable statemenst - ipr = 0 - - DO n = 1, nmx - ! Threshold velocity as a function of the dust density and the diameter - ! from Bagnold (1941) - den(n) = den_dust(n)*1.0D-3 - diam(n) = 2.0*reff_dust(n)*1.0D2 - g = g0*1.0E2 - ! Pointer to the 3 classes considered in the source data files - m = ipoint(n) - tsrc = 0.0_kind_chem - DO k = 1, ndsrc - ! No flux if wet soil - rhoa = airden*1.0D-3 - u_ts0 = 0.13*1.0D-2*SQRT(den(n)*g*diam(n)/rhoa)* & - SQRT(1.0+0.006/den(n)/g/(diam(n))**2.5)/ & - SQRT(1.928*(1331.0*(diam(n))**1.56+0.38)**0.092-1.0) - - ! Case of surface dry enough to erode - IF (gwet < gthresh) THEN - u_ts = MAX(0.0D+0,u_ts0*(1.2D+0+2.0D-1*LOG10(MAX(1.0D-3, gwet)))) - ELSE - ! Case of wet surface, no erosion - u_ts = 100.0_kind_chem - END IF - srce = frac_s(n)*erod(m,k)*dxy ! (m2) - srce_out (k)=srce ! output dust source - IF (ilwi == 1 ) THEN - dsrc = ch_dust(n,month)*srce*w10m**2 & - * (w10m - u_ts)*dt1 ! (kg) - ELSE - dsrc = 0.0_kind_chem - END IF - IF (dsrc < 0.0_kind_chem) dsrc = 0.0_kind_chem - - ! Update dust mixing ratio at first model level. - ! scale down dust by .7 - tc(n) = tc(n) + .7*dsrc / airmas - bems(n) = .7*dsrc/(dxy*dt1) ! diagnostic (kg/m2/s) - END DO - END DO - -END SUBROUTINE source_du + INTEGER, INTENT(IN) :: nmx,ilwi,month + + REAL(kind=kind_chem), INTENT(IN) :: dt1, g0 + REAL(kind=kind_chem), INTENT(IN) :: erod(ndcls,ndsrc) + REAL(kind=kind_chem), INTENT(IN) :: w10m, gwet + REAL(kind=kind_chem), INTENT(IN) :: dxy + REAL(kind=kind_chem), INTENT(IN) :: airden, airmas + REAL(kind=kind_chem), INTENT(INOUT) :: tc(nmx) + REAL(kind=kind_chem), INTENT(OUT) :: bems(nmx) + REAL(kind=kind_chem), INTENT(OUT) :: srce_out(nmx) !dust source + INTEGER, INTENT(OUT) :: ipr + + !----------------------------------------------------------------------- + ! local variables + !----------------------------------------------------------------------- + INTEGER :: i, j, n, m, k + REAL(kind=kind_chem) :: g + REAL(kind=kind_chem) :: den(nmx), diam(nmx) + REAL(kind=kind_chem) :: rhoa, tsrc, u_ts0, u_ts, dsrc, srce + REAL(kind=kind_chem) :: tcmw(nmx), ar(nmx), tcvv(nmx) + REAL(kind=kind_chem) :: ar_wetdep(nmx), kc(nmx) + CHARACTER(LEN=20) :: tcname(nmx), tcunits(nmx) + LOGICAL :: aerosol(nmx) + + REAL(kind=kind_chem), PARAMETER :: gthresh = 0.5_kind_chem + + ! executable statemenst + ipr = 0 + + DO n = 1, nmx + ! Threshold velocity as a function of the dust density and the diameter + ! from Bagnold (1941) + den(n) = den_dust(n)*1.0D-3 + diam(n) = 2.0*reff_dust(n)*1.0D2 + g = g0*1.0E2 + ! Pointer to the 3 classes considered in the source data files + m = ipoint(n) + tsrc = 0.0_kind_chem + DO k = 1, ndsrc + ! No flux if wet soil + rhoa = airden*1.0D-3 + u_ts0 = 0.13*1.0D-2*SQRT(den(n)*g*diam(n)/rhoa)* & + SQRT(1.0+0.006/den(n)/g/(diam(n))**2.5)/ & + SQRT(1.928*(1331.0*(diam(n))**1.56+0.38)**0.092-1.0) + + ! Case of surface dry enough to erode + IF (gwet < gthresh) THEN + u_ts = MAX(0.0D+0,u_ts0*(1.2D+0+2.0D-1*LOG10(MAX(1.0D-3, gwet)))) + ELSE + ! Case of wet surface, no erosion + u_ts = 100.0_kind_chem + END IF + srce = frac_s(n)*erod(m,k)*dxy ! (m2) + srce_out (k)=srce ! output dust source + IF (ilwi == 1 ) THEN + dsrc = ch_dust(n,month)*srce*w10m**2 & + * (w10m - u_ts)*dt1 ! (kg) + ELSE + dsrc = 0.0_kind_chem + END IF + IF (dsrc < 0.0_kind_chem) dsrc = 0.0_kind_chem + + ! Update dust mixing ratio at first model level. + ! scale down dust by .7 + tc(n) = tc(n) + .7*dsrc / airmas + bems(n) = .7*dsrc/(dxy*dt1) ! diagnostic (kg/m2/s) + END DO + END DO + + END SUBROUTINE source_du end module gocart_dust_simple_mod diff --git a/src/gocart_seas_default_mod.F90 b/src/gocart_seas_default_mod.F90 index 17a43060..9b3e811d 100644 --- a/src/gocart_seas_default_mod.F90 +++ b/src/gocart_seas_default_mod.F90 @@ -3,113 +3,113 @@ module gocart_seas_default_mod - use catchem_constants, only : kind_chem, g=>con_g, pi=>con_pi - use catchem_config, only : num_emis_seas,num_chem, & - p_seas_1,p_seas_2,p_seas_3,p_seas_4,p_seas_5, & - p_eseas1,p_eseas2,p_eseas3,p_eseas4,p_eseas5 - use seas_data_mod + use catchem_constants, only : kind_chem, g=>con_g, pi=>con_pi + use catchem_config, only : num_emis_seas,num_chem, & + p_seas_1,p_seas_2,p_seas_3,p_seas_4,p_seas_5, & + p_eseas1,p_eseas2,p_eseas3,p_eseas4,p_eseas5 + use seas_data_mod - implicit none + implicit none - private + private - public :: gocart_seas_default + public :: gocart_seas_default CONTAINS - subroutine gocart_seas_default(ktau,dt,u_phy, & - v_phy,chem_arr,dz8w,u10, & - v10,delp,tsk,area, & - emis_seas) + subroutine gocart_seas_default(ktau,dt,u_phy, & + v_phy,chem_arr,dz8w,u10, & + v10,delp,tsk,area, & + emis_seas) - INTEGER, INTENT(IN ) :: ktau - REAL(kind=kind_chem), INTENT(IN ) :: dt,u_phy,v_phy, & - dz8w,u10,v10, & - delp, & - tsk, & - area + INTEGER, INTENT(IN ) :: ktau + REAL(kind=kind_chem), INTENT(IN ) :: dt,u_phy,v_phy, & + dz8w,u10,v10, & + delp, & + tsk, & + area - REAL(kind=kind_chem), DIMENSION( num_chem ), & - INTENT(INOUT ) :: chem_arr - REAL(kind=kind_chem), DIMENSION( num_emis_seas), & - INTENT(OUT ) :: emis_seas + REAL(kind=kind_chem), DIMENSION( num_chem ), & + INTENT(INOUT ) :: chem_arr + REAL(kind=kind_chem), DIMENSION( num_emis_seas), & + INTENT(OUT ) :: emis_seas ! ! ! local variables ! - integer :: ipr,n,rc,ilwi - real(kind=kind_chem) :: fsstemis, memissions, nemissions, tskin_c, ws10m - real(kind=kind_chem) :: dummylon, fgridefficiency,deep_lakes_mask - real(kind=kind_chem), DIMENSION (number_ss_bins) :: tc,bems - real(kind=kind_chem) :: w10m,airmas,tskin - real(kind=kind_chem) :: dxy - - real(kind=kind_chem) :: airmas1 - real(kind=kind_chem), dimension(number_ss_bins) :: tc1 - real(kind=kind_chem), dimension(number_ss_bins) :: bems1 - real(kind=kind_chem) :: one + integer :: ipr,n,rc,ilwi + real(kind=kind_chem) :: fsstemis, memissions, nemissions, tskin_c, ws10m + real(kind=kind_chem) :: dummylon, fgridefficiency,deep_lakes_mask + real(kind=kind_chem), DIMENSION (number_ss_bins) :: tc,bems + real(kind=kind_chem) :: w10m,airmas,tskin + real(kind=kind_chem) :: dxy + + real(kind=kind_chem) :: airmas1 + real(kind=kind_chem), dimension(number_ss_bins) :: tc1 + real(kind=kind_chem), dimension(number_ss_bins) :: bems1 + real(kind=kind_chem) :: one ! local parameters ! - real(kind=kind_chem), parameter :: conver = 1.e-9_kind_chem - real(kind=kind_chem), parameter :: converi = 1.e+9_kind_chem + real(kind=kind_chem), parameter :: conver = 1.e-9_kind_chem + real(kind=kind_chem), parameter :: converi = 1.e+9_kind_chem ! - one = 1.0 + one = 1.0 ! -- original GOCART sea salt scheme - ! -- compute auxiliary variables - if (dz8w < 12.) then - ws10m = sqrt(u_phy*u_phy+v_phy*v_phy) - else - ws10m = sqrt(u10*u10+v10*v10) - end if - - ilwi=0 - tc = 0. - tskin=tsk - airmas=area * delp / g - dxy=area - ipr=0 - - airmas1 = airmas - tc1(:) = tc - bems1(:) = bems - call source_ss( number_ss_bins, dt, tc1,ilwi, dxy, w10m, airmas1, bems1,ipr) - tc = tc1(:) - bems = bems1(:) - - ! -- add sea salt emission increments to existing airborne concentrations - chem_arr(p_seas_1)=chem_arr(p_seas_1)+tc(1)*converi - chem_arr(p_seas_2)=chem_arr(p_seas_2)+tc(2)*converi - chem_arr(p_seas_3)=chem_arr(p_seas_3)+tc(3)*converi - chem_arr(p_seas_4)=chem_arr(p_seas_4)+tc(4)*converi - chem_arr(p_seas_5)=chem_arr(p_seas_5)+tc(5)*converi - - ! for output diagnostics - emis_seas(p_eseas1) = bems(1) - emis_seas(p_eseas2) = bems(2) - emis_seas(p_eseas3) = bems(3) - emis_seas(p_eseas4) = bems(4) - emis_seas(p_eseas5) = bems(5) - - end subroutine gocart_seas_default - - SUBROUTINE source_ss(nmx, dt1, tc, & - ilwi, dxy, w10m, airmas, & - bems,ipr) + ! -- compute auxiliary variables + if (dz8w < 12.) then + ws10m = sqrt(u_phy*u_phy+v_phy*v_phy) + else + ws10m = sqrt(u10*u10+v10*v10) + end if + + ilwi=0 + tc = 0. + tskin=tsk + airmas=area * delp / g + dxy=area + ipr=0 + + airmas1 = airmas + tc1(:) = tc + bems1(:) = bems + call source_ss( number_ss_bins, dt, tc1,ilwi, dxy, w10m, airmas1, bems1,ipr) + tc = tc1(:) + bems = bems1(:) + + ! -- add sea salt emission increments to existing airborne concentrations + chem_arr(p_seas_1)=chem_arr(p_seas_1)+tc(1)*converi + chem_arr(p_seas_2)=chem_arr(p_seas_2)+tc(2)*converi + chem_arr(p_seas_3)=chem_arr(p_seas_3)+tc(3)*converi + chem_arr(p_seas_4)=chem_arr(p_seas_4)+tc(4)*converi + chem_arr(p_seas_5)=chem_arr(p_seas_5)+tc(5)*converi + + ! for output diagnostics + emis_seas(p_eseas1) = bems(1) + emis_seas(p_eseas2) = bems(2) + emis_seas(p_eseas3) = bems(3) + emis_seas(p_eseas4) = bems(4) + emis_seas(p_eseas5) = bems(5) + + end subroutine gocart_seas_default + + SUBROUTINE source_ss(nmx, dt1, tc, & + ilwi, dxy, w10m, airmas, & + bems,ipr) ! **************************************************************************** -! * Evaluate the source of each seasalt particles size classes (kg/m3) +! * Evaluate the source of each seasalt particles size classes (kg/m3) ! * by soil emission. ! * Input: ! * SSALTDEN Sea salt density (kg/m3) ! * DXY Surface of each grid cell (m2) ! * NDT1 Time step (s) ! * W10m Velocity at the anemometer level (10meters) (m/s) -! * +! * ! * Output: -! * DSRC Source of each sea salt bins (kg/timestep/cell) +! * DSRC Source of each sea salt bins (kg/timestep/cell) ! * ! * ! * Number flux density: Original formula by Monahan et al. (1986) adapted @@ -130,61 +130,61 @@ SUBROUTINE source_ss(nmx, dt1, tc, & ! * where rho_p is particle density [kg/m3] ! * The factor 1.e-18 is to convert in micro-meter r_d^3 ! **************************************************************************** - - IMPLICIT NONE - INTEGER, INTENT(IN) :: nmx,ipr - INTEGER, INTENT(IN) :: ilwi - REAL(kind=kind_chem), INTENT(IN) :: dxy, w10m - REAL(kind=kind_chem), INTENT(IN) :: airmas - REAL(kind=kind_chem), INTENT(INOUT) :: tc(nmx) - REAL(kind=kind_chem), INTENT(OUT) :: bems(nmx) + IMPLICIT NONE + + INTEGER, INTENT(IN) :: nmx,ipr + INTEGER, INTENT(IN) :: ilwi + REAL(kind=kind_chem), INTENT(IN) :: dxy, w10m + REAL(kind=kind_chem), INTENT(IN) :: airmas + REAL(kind=kind_chem), INTENT(INOUT) :: tc(nmx) + REAL(kind=kind_chem), INTENT(OUT) :: bems(nmx) - REAL(kind=kind_chem) :: c0(5), b0(2) -! REAL(kind=kind_chem), PARAMETER :: c_old(5)=(/1.373, 3.41, 0.057, 1.05, 1.190/) + REAL(kind=kind_chem) :: c0(5), b0(2) +! REAL(kind=kind_chem), PARAMETER :: c_old(5)=(/1.373, 3.41, 0.057, 1.05, 1.190/) ! REAL(kind=kind_chem), PARAMETER :: c_new(5)=(/1.373, 3.41, 0.057, 3.45, 1.607/) - ! Change suggested by MC - REAL(kind=kind_chem), PARAMETER :: c_old(5)=(/1.373, 3.2, 0.057, 1.05, 1.190/) - REAL(kind=kind_chem), PARAMETER :: c_new(5)=(/1.373, 3.2, 0.057, 3.45, 1.607/) - REAL(kind=kind_chem), PARAMETER :: b_old(2)=(/0.380, 0.650/) - REAL(kind=kind_chem), PARAMETER :: b_new(2)=(/0.433, 0.433/) - REAL(kind=kind_chem), PARAMETER :: dr=5.0D-2 ! um - REAL(kind=kind_chem), PARAMETER :: theta=30.0 - ! Swelling coefficient frh (d rwet / d rd) + ! Change suggested by MC + REAL(kind=kind_chem), PARAMETER :: c_old(5)=(/1.373, 3.2, 0.057, 1.05, 1.190/) + REAL(kind=kind_chem), PARAMETER :: c_new(5)=(/1.373, 3.2, 0.057, 3.45, 1.607/) + REAL(kind=kind_chem), PARAMETER :: b_old(2)=(/0.380, 0.650/) + REAL(kind=kind_chem), PARAMETER :: b_new(2)=(/0.433, 0.433/) + REAL(kind=kind_chem), PARAMETER :: dr=5.0D-2 ! um + REAL(kind=kind_chem), PARAMETER :: theta=30.0 + ! Swelling coefficient frh (d rwet / d rd) !!! REAL(kind=kind_chem), PARAMETER :: frh = 1.65 - REAL(kind=kind_chem), PARAMETER :: frh = 2.d0 - LOGICAL, PARAMETER :: old=.TRUE., new=.FALSE. - REAL(kind=kind_chem) :: rho_d, r0, r1, r, r_w, a, b, dfn, r_d, dfm, src - INTEGER :: i, j, n, nr, ir - REAL(kind=kind_chem) :: dt1,fudge_fac + REAL(kind=kind_chem), PARAMETER :: frh = 2.d0 + LOGICAL, PARAMETER :: old=.TRUE., new=.FALSE. + REAL(kind=kind_chem) :: rho_d, r0, r1, r, r_w, a, b, dfn, r_d, dfm, src + INTEGER :: i, j, n, nr, ir + REAL(kind=kind_chem) :: dt1,fudge_fac - REAL(kind=kind_chem) :: tcmw(nmx), ar(nmx), tcvv(nmx) - REAL(kind=kind_chem) :: ar_wetdep(nmx), kc(nmx) - CHARACTER(LEN=20) :: tcname(nmx), tcunits(nmx) - LOGICAL :: aerosol(nmx) + REAL(kind=kind_chem) :: tcmw(nmx), ar(nmx), tcvv(nmx) + REAL(kind=kind_chem) :: ar_wetdep(nmx), kc(nmx) + CHARACTER(LEN=20) :: tcname(nmx), tcunits(nmx) + LOGICAL :: aerosol(nmx) - REAL(kind=kind_chem) :: tc1(nmx) - REAL(kind=kind_chem), TARGET :: tcms(nmx) ! tracer mass (kg; kgS for sulfur case) - REAL(kind=kind_chem), TARGET :: tcgm(nmx) ! g/m3 + REAL(kind=kind_chem) :: tc1(nmx) + REAL(kind=kind_chem), TARGET :: tcms(nmx) ! tracer mass (kg; kgS for sulfur case) + REAL(kind=kind_chem), TARGET :: tcgm(nmx) ! g/m3 - !----------------------------------------------------------------------- - ! sea salt specific - !----------------------------------------------------------------------- + !----------------------------------------------------------------------- + ! sea salt specific + !----------------------------------------------------------------------- ! REAL(kind=kind_chem), DIMENSION(nmx) :: ra, rb ! REAL(kind=kind_chem) :: ch_ss(nmx,12) - !----------------------------------------------------------------------- - ! emissions (input) - !----------------------------------------------------------------------- - REAL(kind=kind_chem) :: e_an(2,nmx), e_bb(nmx), & - e_ac(nmx) + !----------------------------------------------------------------------- + ! emissions (input) + !----------------------------------------------------------------------- + REAL(kind=kind_chem) :: e_an(2,nmx), e_bb(nmx), & + e_ac(nmx) - !----------------------------------------------------------------------- - ! diagnostics (budget) - !----------------------------------------------------------------------- + !----------------------------------------------------------------------- + ! diagnostics (budget) + !----------------------------------------------------------------------- ! ! tendencies per time step and process ! REAL(kind=kind_chem), TARGET :: bems(nmx), bdry(nmx), bstl(nmx) ! REAL(kind=kind_chem), TARGET :: bwet(nmx), bcnv(nmx)! @@ -193,65 +193,65 @@ SUBROUTINE source_ss(nmx, dt1, tc, & ! REAL(kind=kind_chem), TARGET :: tems(nmx), tstl(nmx) ! REAL(kind=kind_chem), TARGET :: tdry(nmx), twet(nmx), tcnv(nmx) - ! global mass balance per time step - REAL(kind=kind_chem) :: tmas0(nmx), tmas1(nmx) - REAL(kind=kind_chem) :: dtems(nmx), dttrp(nmx), dtdif(nmx), dtcnv(nmx) - REAL(kind=kind_chem) :: dtwet(nmx), dtdry(nmx), dtstl(nmx) - REAL(kind=kind_chem) :: dtems2(nmx), dttrp2(nmx), dtdif2(nmx), dtcnv2(nmx) - REAL(kind=kind_chem) :: dtwet2(nmx), dtdry2(nmx), dtstl2(nmx) + ! global mass balance per time step + REAL(kind=kind_chem) :: tmas0(nmx), tmas1(nmx) + REAL(kind=kind_chem) :: dtems(nmx), dttrp(nmx), dtdif(nmx), dtcnv(nmx) + REAL(kind=kind_chem) :: dtwet(nmx), dtdry(nmx), dtstl(nmx) + REAL(kind=kind_chem) :: dtems2(nmx), dttrp2(nmx), dtdif2(nmx), dtcnv2(nmx) + REAL(kind=kind_chem) :: dtwet2(nmx), dtdry2(nmx), dtstl2(nmx) - ! detailed integrated budgets for individual emissions - REAL(kind=kind_chem), TARGET :: ems_an(nmx), ems_bb(nmx), ems_tp - REAL(kind=kind_chem), TARGET :: ems_ac(nmx) - REAL(kind=kind_chem), TARGET :: ems_co(nmx) + ! detailed integrated budgets for individual emissions + REAL(kind=kind_chem), TARGET :: ems_an(nmx), ems_bb(nmx), ems_tp + REAL(kind=kind_chem), TARGET :: ems_ac(nmx) + REAL(kind=kind_chem), TARGET :: ems_co(nmx) - ! executable statements + ! executable statements ! decrease seasalt emissions (Colarco et al. 2010) ! - !fudge_fac= 1. !.5 - !fudge_fac= .5 !lzhang - fudge_fac= .25 !lzhang + !fudge_fac= 1. !.5 + !fudge_fac= .5 !lzhang + fudge_fac= .25 !lzhang ! - DO n = 1,nmx - bems(n) = 0.0 - rho_d = den_seas(n) - r0 = ra(n)*frh - r1 = rb(n)*frh - r = r0 - nr = INT((r1-r0)/dr+.001) - DO ir = 1,nr - r_w = r + dr*0.5 - r = r + dr - IF (new) THEN - a = 4.7*(1.0 + theta*r_w)**(-0.017*r_w**(-1.44)) - c0 = c_new - b0 = b_new - ELSE - a = 3.0 - c0 = c_old - b0 = b_old - END IF - ! - b = (b0(1) - LOG10(r_w))/b0(2) - dfn = (c0(1)/r_w**a)*(1.0 + c0(3)*r_w**c0(4))* & + DO n = 1,nmx + bems(n) = 0.0 + rho_d = den_seas(n) + r0 = ra(n)*frh + r1 = rb(n)*frh + r = r0 + nr = INT((r1-r0)/dr+.001) + DO ir = 1,nr + r_w = r + dr*0.5 + r = r + dr + IF (new) THEN + a = 4.7*(1.0 + theta*r_w)**(-0.017*r_w**(-1.44)) + c0 = c_new + b0 = b_new + ELSE + a = 3.0 + c0 = c_old + b0 = b_old + END IF + ! + b = (b0(1) - LOG10(r_w))/b0(2) + dfn = (c0(1)/r_w**a)*(1.0 + c0(3)*r_w**c0(4))* & 10**(c0(5)*EXP(-(b**2))) - - r_d = r_w/frh*1.0D-6 ! um -> m - dfm = 4.0/3.0*pi*r_d**3*rho_d*frh*dfn*dr*dt1 ! 3600 !dt1 - IF (ilwi == 0) THEN - src = dfm*dxy*w10m**c0(2) + r_d = r_w/frh*1.0D-6 ! um -> m + dfm = 4.0/3.0*pi*r_d**3*rho_d*frh*dfn*dr*dt1 ! 3600 !dt1 + + IF (ilwi == 0) THEN + src = dfm*dxy*w10m**c0(2) ! src = ch_ss(n,dt(1)%mn)*dfm*dxy(j)*w10m(i,j)**c0(2) - tc(n) = tc(n) + fudge_fac*src/airmas - ELSE - src = 0.0 - END IF - - bems(n) = bems(n) + src*fudge_fac/(dxy*dt1) !kg/m2/s + tc(n) = tc(n) + fudge_fac*src/airmas + ELSE + src = 0.0 + END IF + + bems(n) = bems(n) + src*fudge_fac/(dxy*dt1) !kg/m2/s - END DO ! ir - END DO ! n + END DO ! ir + END DO ! n - END SUBROUTINE source_ss + END SUBROUTINE source_ss end module gocart_seas_default_mod diff --git a/src/gocart_seas_ngac_mod.F90 b/src/gocart_seas_ngac_mod.F90 index 126913d5..eddc7126 100644 --- a/src/gocart_seas_ngac_mod.F90 +++ b/src/gocart_seas_ngac_mod.F90 @@ -3,121 +3,121 @@ module gocart_seas_ngac_mod - use catchem_constants, only : kind_chem, g=>con_g, pi=>con_pi - use catchem_config, only : num_emis_seas,num_chem, & - p_seas_1,p_seas_2,p_seas_3,p_seas_4,p_seas_5, & - p_eseas1,p_eseas2,p_eseas3,p_eseas4,p_eseas5 - use seas_data_mod + use catchem_constants, only : kind_chem, g=>con_g, pi=>con_pi + use catchem_config, only : num_emis_seas,num_chem, & + p_seas_1,p_seas_2,p_seas_3,p_seas_4,p_seas_5, & + p_eseas1,p_eseas2,p_eseas3,p_eseas4,p_eseas5 + use seas_data_mod - implicit none + implicit none - ! -- NGAC parameters - integer, parameter :: emission_scheme = 3 ! GEOSS 2012 + ! -- NGAC parameters + integer, parameter :: emission_scheme = 3 ! GEOSS 2012 - private + private - public :: gocart_seas_ngac + public :: gocart_seas_ngac CONTAINS - subroutine gocart_seas_ngac(ktau,dt,u_phy, & - v_phy,chem_arr,dz8w,u10, & - v10,ustar,delp,tsk, & - frocean,fraci, & - xlat,xlong,area,emis_seas, & - sstemisFlag,emission_scale,& - random_factor) - - INTEGER, INTENT(IN ) :: ktau,sstemisFlag - REAL(kind=kind_chem), INTENT(IN ) :: dt,u_phy,v_phy, & - dz8w,u10,v10, & - ustar,delp, & - tsk, & - frocean,fraci, & - xlat,xlong, & - area,random_factor - - REAL(kind=kind_chem), DIMENSION( num_chem ), & - INTENT(INOUT ) :: chem_arr - REAL(kind=kind_chem), DIMENSION( num_emis_seas), & - INTENT(OUT ) :: emis_seas - REAL(kind=kind_chem), DIMENSION( 5 ), & - INTENT(IN ) :: emission_scale + subroutine gocart_seas_ngac(ktau,dt,u_phy, & + v_phy,chem_arr,dz8w,u10, & + v10,ustar,delp,tsk, & + frocean,fraci, & + xlat,xlong,area,emis_seas, & + sstemisFlag,emission_scale,& + random_factor) + + INTEGER, INTENT(IN ) :: ktau,sstemisFlag + REAL(kind=kind_chem), INTENT(IN ) :: dt,u_phy,v_phy, & + dz8w,u10,v10, & + ustar,delp, & + tsk, & + frocean,fraci, & + xlat,xlong, & + area,random_factor + + REAL(kind=kind_chem), DIMENSION( num_chem ), & + INTENT(INOUT ) :: chem_arr + REAL(kind=kind_chem), DIMENSION( num_emis_seas), & + INTENT(OUT ) :: emis_seas + REAL(kind=kind_chem), DIMENSION( 5 ), & + INTENT(IN ) :: emission_scale ! ! ! local variables ! - integer :: ipr,i,j,n,rc,ilwi - real(kind=kind_chem) :: fsstemis, memissions, nemissions, tskin_c, ws10m - real(kind=kind_chem) :: dummylon, fgridefficiency,deep_lakes_mask - real(kind=kind_chem), DIMENSION (number_ss_bins) :: tc,bems - real(kind=kind_chem) :: w10m,airmas,tskin - real(kind=kind_chem) :: dxy - - real(kind=kind_chem) :: airmas1 - real(kind=kind_chem), dimension(number_ss_bins) :: tc1 - real(kind=kind_chem), dimension(number_ss_bins) :: bems1 - real(kind=kind_chem) :: one + integer :: ipr,i,j,n,rc,ilwi + real(kind=kind_chem) :: fsstemis, memissions, nemissions, tskin_c, ws10m + real(kind=kind_chem) :: dummylon, fgridefficiency,deep_lakes_mask + real(kind=kind_chem), DIMENSION (number_ss_bins) :: tc,bems + real(kind=kind_chem) :: w10m,airmas,tskin + real(kind=kind_chem) :: dxy + + real(kind=kind_chem) :: airmas1 + real(kind=kind_chem), dimension(number_ss_bins) :: tc1 + real(kind=kind_chem), dimension(number_ss_bins) :: bems1 + real(kind=kind_chem) :: one ! ! local parameters ! - real(kind=kind_chem), parameter :: conver = 1.e-9_kind_chem - real(kind=kind_chem), parameter :: converi = 1.e+9_kind_chem + real(kind=kind_chem), parameter :: conver = 1.e-9_kind_chem + real(kind=kind_chem), parameter :: converi = 1.e+9_kind_chem ! - one = 1.0 - emis_seas = 0. + one = 1.0 + emis_seas = 0. ! -- NGAC sea salt scheme !Grid box efficiency to emission (fraction of sea water) - - deep_lakes_mask=1.0 - dummylon = xlong - if( dummylon < 0.0 ) dummylon = dummylon + 360.0 - ! The Great Lakes: lon = [91W,75W], lat = [40.5N, 50N] + deep_lakes_mask=1.0 + dummylon = xlong + + if( dummylon < 0.0 ) dummylon = dummylon + 360.0 + ! The Great Lakes: lon = [91W,75W], lat = [40.5N, 50N] if ((dummylon > 267.0) .and. & - (dummylon < 285.0) .and. & - (xlat > 40.5) .and. & - (xlat < 50.0)) deep_lakes_mask = 0.0 + (dummylon < 285.0) .and. & + (xlat > 40.5) .and. & + (xlat < 50.0)) deep_lakes_mask = 0.0 - ! The Caspian Sea: lon = [45.0, 56], lat = 35, 48] + ! The Caspian Sea: lon = [45.0, 56], lat = 35, 48] if ((dummylon > 45.0) .and. & - (dummylon < 56.0) .and. & - (xlat > 35.0) .and. & - (xlat < 48.0)) deep_lakes_mask = 0.0 + (dummylon < 56.0) .and. & + (xlat > 35.0) .and. & + (xlat < 48.0)) deep_lakes_mask = 0.0 fgridefficiency = min(max(0.,(frocean-fraci)*deep_lakes_mask),1.) ! -- compute auxiliary variables if (dz8w < 12.) then - ws10m = sqrt(u_phy*u_phy+v_phy*v_phy) + ws10m = sqrt(u_phy*u_phy+v_phy*v_phy) else - ws10m = sqrt(u10*u10+v10*v10) + ws10m = sqrt(u10*u10+v10*v10) end if ! -- compute NGAC SST correction if (sstemisFlag == 1) then ! SST correction folowing Jaegle et al. 2011 - fsstemis = 0.0 - tskin_c = tsk - 273.15 - fsstemis = (0.3 + 0.1*tskin_c - 0.0076*tskin_c**2 + 0.00021*tskin_c**3) - fsstemis = max(fsstemis, 0.0) + fsstemis = 0.0 + tskin_c = tsk - 273.15 + fsstemis = (0.3 + 0.1*tskin_c - 0.0076*tskin_c**2 + 0.00021*tskin_c**3) + fsstemis = max(fsstemis, 0.0) else if (sstemisFlag == 2) then - fsstemis = 0.0 - tskin_c = tsk - 273.15 - tskin_c = min(max(tskin_c, -0.1), 36.0) ! temperature range (0, 36) C + fsstemis = 0.0 + tskin_c = tsk - 273.15 + tskin_c = min(max(tskin_c, -0.1), 36.0) ! temperature range (0, 36) C - fsstemis = (-1.107211 -0.010681*tskin_c -0.002276*tskin_c**2 & - + 60.288927*1.0/(40.0 - tskin_c)) - fsstemis = min(max(fsstemis, 0.0), 7.0) + fsstemis = (-1.107211 -0.010681*tskin_c -0.002276*tskin_c**2 & + + 60.288927*1.0/(40.0 - tskin_c)) + fsstemis = min(max(fsstemis, 0.0), 7.0) endif do n = 1, number_ss_bins - memissions = 0. - nemissions = 0. - call SeasaltEmission( ra(n), rb(n), emission_scheme, & - ws10m, ustar, memissions, nemissions, rc ) + memissions = 0. + nemissions = 0. + call SeasaltEmission( ra(n), rb(n), emission_scheme, & + ws10m, ustar, memissions, nemissions, rc ) - bems(n) = emission_scale(n)*fgridefficiency * fsstemis * memissions * random_factor - tc(n) = bems(n) * dt * g / delp + bems(n) = emission_scale(n)*fgridefficiency * fsstemis * memissions * random_factor + tc(n) = bems(n) * dt * g / delp end do ! -- add sea salt emission increments to existing airborne concentrations @@ -134,11 +134,11 @@ subroutine gocart_seas_ngac(ktau,dt,u_phy, & emis_seas(p_eseas4) = bems(4) emis_seas(p_eseas5) = bems(5) - end subroutine gocart_seas_ngac + end subroutine gocart_seas_ngac - subroutine SeasaltEmission ( rLow, rUp, method, w10m, ustar, & - memissions, nemissions, rc ) + subroutine SeasaltEmission ( rLow, rUp, method, w10m, ustar, & + memissions, nemissions, rc ) ! !DESCRIPTION: Calculates the seasalt mass emission flux every timestep. ! The particular method (algorithm) used for the calculation is based @@ -151,97 +151,97 @@ subroutine SeasaltEmission ( rLow, rUp, method, w10m, ustar, & ! ! !USES: - implicit NONE + implicit NONE ! !INPUT PARAMETERS: - real(kind=kind_chem), intent(in) :: rLow, rUp ! Dry particle bin edge radii [um] - real(kind=kind_chem), intent(in) :: w10m ! 10-m wind speed [m s-1] - real(kind=kind_chem), intent(in) :: ustar ! friction velocity [m s-1] - integer, intent(in) :: method ! Algorithm to use + real(kind=kind_chem), intent(in) :: rLow, rUp ! Dry particle bin edge radii [um] + real(kind=kind_chem), intent(in) :: w10m ! 10-m wind speed [m s-1] + real(kind=kind_chem), intent(in) :: ustar ! friction velocity [m s-1] + integer, intent(in) :: method ! Algorithm to use ! !OUTPUT PARAMETERS: - real(kind=kind_chem), intent(inout) :: memissions ! Mass Emissions Flux [kg m-2 s-1] - real(kind=kind_chem), intent(inout) :: nemissions ! Number Emissions Flux [# m-2 s-1] - integer, intent(out) :: rc ! Error return code: - ! 0 - all is well - ! 1 - + real(kind=kind_chem), intent(inout) :: memissions ! Mass Emissions Flux [kg m-2 s-1] + real(kind=kind_chem), intent(inout) :: nemissions ! Number Emissions Flux [# m-2 s-1] + integer, intent(out) :: rc ! Error return code: + ! 0 - all is well + ! 1 - ! !Local Variables - integer :: ir - real(kind=kind_chem) :: w ! Intermediary wind speed [m s-1] - real(kind=kind_chem) :: r, dr ! sub-bin radius spacing (dry, um) - real(kind=kind_chem) :: rwet, drwet ! sub-bin radius spacing (rh=80%, um) - real(kind=kind_chem) :: aFac, bFac, scalefac, rpow, exppow, wpow + integer :: ir + real(kind=kind_chem) :: w ! Intermediary wind speed [m s-1] + real(kind=kind_chem) :: r, dr ! sub-bin radius spacing (dry, um) + real(kind=kind_chem) :: rwet, drwet ! sub-bin radius spacing (rh=80%, um) + real(kind=kind_chem) :: aFac, bFac, scalefac, rpow, exppow, wpow - integer, parameter :: nr = 10 ! Number of (linear) sub-size bins + integer, parameter :: nr = 10 ! Number of (linear) sub-size bins - character(len=*), parameter :: myname = 'SeasaltEmission' - real(kind=kind_chem), parameter :: r80fac = 1.65 ! ratio of radius(RH=0.8)/radius(RH=0.) [Gerber] - real(kind=kind_chem), parameter :: rhop = 2200. ! dry seasalt density [kg m-3] + character(len=*), parameter :: myname = 'SeasaltEmission' + real(kind=kind_chem), parameter :: r80fac = 1.65 ! ratio of radius(RH=0.8)/radius(RH=0.) [Gerber] + real(kind=kind_chem), parameter :: rhop = 2200. ! dry seasalt density [kg m-3] ! Define the sub-bins (still in dry radius) - dr = (rUp - rLow)/nr - r = rLow + 0.5*dr + dr = (rUp - rLow)/nr + r = rLow + 0.5*dr ! Loop over size bins - nemissions = 0. - memissions = 0. - - do ir = 1, nr - - rwet = r80fac * r - drwet = r80fac * dr - - select case(method) - - case(1) ! Gong 2003 - aFac = 4.7*(1.+30.*rwet)**(-0.017*rwet**(-1.44)) - bFac = (0.433-log10(rwet))/0.433 - scalefac = 1. - rpow = 3.45 - exppow = 1.607 - wpow = 3.41 - w = w10m - - case(2) ! Gong 1997 - aFac = 3. - bFac = (0.380-log10(rwet))/0.650 - scalefac = 1. - rpow = 1.05 - exppow = 1.19 - wpow = 3.41 - w = w10m - - case(3) ! GEOS5 2012 - aFac = 4.7*(1.+30.*rwet)**(-0.017*rwet**(-1.44)) - bFac = (0.433-log10(rwet))/0.433 - scalefac = 33.0e3 - rpow = 3.45 - exppow = 1.607 - wpow = 3.41 - 1. - w = ustar - - case default + nemissions = 0. + memissions = 0. + + do ir = 1, nr + + rwet = r80fac * r + drwet = r80fac * dr + + select case(method) + + case(1) ! Gong 2003 + aFac = 4.7*(1.+30.*rwet)**(-0.017*rwet**(-1.44)) + bFac = (0.433-log10(rwet))/0.433 + scalefac = 1. + rpow = 3.45 + exppow = 1.607 + wpow = 3.41 + w = w10m + + case(2) ! Gong 1997 + aFac = 3. + bFac = (0.380-log10(rwet))/0.650 + scalefac = 1. + rpow = 1.05 + exppow = 1.19 + wpow = 3.41 + w = w10m + + case(3) ! GEOS5 2012 + aFac = 4.7*(1.+30.*rwet)**(-0.017*rwet**(-1.44)) + bFac = (0.433-log10(rwet))/0.433 + scalefac = 33.0e3 + rpow = 3.45 + exppow = 1.607 + wpow = 3.41 - 1. + w = ustar + + case default ! if(chem_comm_isroot()) print *, 'SeasaltEmission missing algorithm method' - rc = 1 - return + rc = 1 + return - end select + end select ! Number emissions flux (# m-2 s-1) - nemissions = nemissions + SeasaltEmissionGong( rwet, drwet, w, scalefac, aFac, bFac, rpow, exppow, wpow ) + nemissions = nemissions + SeasaltEmissionGong( rwet, drwet, w, scalefac, aFac, bFac, rpow, exppow, wpow ) ! Mass emissions flux (kg m-2 s-1) - scalefac = scalefac * 4./3.*pi*rhop*r**3.*1.e-18 - memissions = memissions + SeasaltEmissionGong( rwet, drwet, w, scalefac, aFac, bFac, rpow, exppow, wpow ) + scalefac = scalefac * 4./3.*pi*rhop*r**3.*1.e-18 + memissions = memissions + SeasaltEmissionGong( rwet, drwet, w, scalefac, aFac, bFac, rpow, exppow, wpow ) - r = r + dr + r = r + dr - end do + end do - rc = 0 + rc = 0 - end subroutine SeasaltEmission + end subroutine SeasaltEmission ! Function to compute sea salt emissions following the Gong style ! parameterization. Functional form is from Gong 2003: @@ -250,23 +250,23 @@ end subroutine SeasaltEmission ! where r is the particle radius at 80% RH, dr is the size bin width at 80% RH, ! and w is the wind speed - function SeasaltEmissionGong ( r, dr, w, scalefac, aFac, bFac, rpow, exppow, wpow ) + function SeasaltEmissionGong ( r, dr, w, scalefac, aFac, bFac, rpow, exppow, wpow ) - real(kind=kind_chem), intent(in) :: r, dr ! Wet particle radius, bin width [um] - real(kind=kind_chem), intent(in) :: w ! Grid box mean wind speed [m s-1] (10-m or ustar wind) - real(kind=kind_chem), intent(in) :: scalefac, aFac, bFac, rpow, exppow, wpow - real(kind=kind_chem) :: SeasaltEmissionGong + real(kind=kind_chem), intent(in) :: r, dr ! Wet particle radius, bin width [um] + real(kind=kind_chem), intent(in) :: w ! Grid box mean wind speed [m s-1] (10-m or ustar wind) + real(kind=kind_chem), intent(in) :: scalefac, aFac, bFac, rpow, exppow, wpow + real(kind=kind_chem) :: SeasaltEmissionGong ! Initialize - SeasaltEmissionGong = 0. + SeasaltEmissionGong = 0. ! Particle size distribution function - SeasaltEmissionGong = scalefac * 1.373*r**(-aFac)*(1.+0.057*r**rpow) & - *10**(exppow*exp(-bFac**2.))*dr + SeasaltEmissionGong = scalefac * 1.373*r**(-aFac)*(1.+0.057*r**rpow) & + *10**(exppow*exp(-bFac**2.))*dr ! Apply wind speed function - SeasaltEmissionGong = w**wpow * SeasaltEmissionGong + SeasaltEmissionGong = w**wpow * SeasaltEmissionGong - end function SeasaltEmissionGong + end function SeasaltEmissionGong end module gocart_seas_ngac_mod diff --git a/src/gocart_seas_simple_mod.F90 b/src/gocart_seas_simple_mod.F90 index 9d1d660e..19255cd1 100644 --- a/src/gocart_seas_simple_mod.F90 +++ b/src/gocart_seas_simple_mod.F90 @@ -3,100 +3,100 @@ module gocart_seas_simple_mod - use catchem_constants, only : kind_chem, g=>con_g, pi=>con_pi - use catchem_config, only: num_chem, p_seas_1, p_seas_2 - use seas_data_mod + use catchem_constants, only : kind_chem, g=>con_g, pi=>con_pi + use catchem_config, only: num_chem, p_seas_1, p_seas_2 + use seas_data_mod - implicit none + implicit none - private + private - public :: gocart_seas_simple + public :: gocart_seas_simple CONTAINS - subroutine gocart_seas_simple(ktau,dt,u_phy, & - v_phy,chem_arr,dz8w,u10, & - v10,delp,tsk,area, & - seashelp) + subroutine gocart_seas_simple(ktau,dt,u_phy, & + v_phy,chem_arr,dz8w,u10, & + v10,delp,tsk,area, & + seashelp) - INTEGER, INTENT(IN ) :: ktau - REAL(kind=kind_chem), INTENT(IN ) :: dt,u_phy,v_phy, & - dz8w,u10,v10, & - delp, & - tsk, & - area + INTEGER, INTENT(IN ) :: ktau + REAL(kind=kind_chem), INTENT(IN ) :: dt,u_phy,v_phy, & + dz8w,u10,v10, & + delp, & + tsk, & + area - REAL(kind=kind_chem), DIMENSION( num_chem ), & - INTENT(INOUT ) :: chem_arr - REAL(kind=kind_chem), INTENT(INOUT ) :: seashelp + REAL(kind=kind_chem), DIMENSION( num_chem ), & + INTENT(INOUT ) :: chem_arr + REAL(kind=kind_chem), INTENT(INOUT ) :: seashelp ! ! ! local variables ! - integer :: ipr,n,rc,ilwi - real(kind=kind_chem) :: fsstemis, memissions, nemissions, tskin_c, ws10m - real(kind=kind_chem) :: dummylon, fgridefficiency,deep_lakes_mask - real(kind=kind_chem), DIMENSION (number_ss_bins) :: tc,bems - real(kind=kind_chem) :: w10m,airmas,tskin - real(kind=kind_chem) :: dxy - - real(kind=kind_chem) :: airmas1 - real(kind=kind_chem), dimension(number_ss_bins) :: tc1 - real(kind=kind_chem), dimension(number_ss_bins) :: bems1 - real(kind=kind_chem) :: one + integer :: ipr,n,rc,ilwi + real(kind=kind_chem) :: fsstemis, memissions, nemissions, tskin_c, ws10m + real(kind=kind_chem) :: dummylon, fgridefficiency,deep_lakes_mask + real(kind=kind_chem), DIMENSION (number_ss_bins) :: tc,bems + real(kind=kind_chem) :: w10m,airmas,tskin + real(kind=kind_chem) :: dxy + + real(kind=kind_chem) :: airmas1 + real(kind=kind_chem), dimension(number_ss_bins) :: tc1 + real(kind=kind_chem), dimension(number_ss_bins) :: bems1 + real(kind=kind_chem) :: one ! local parameters ! - real(kind=kind_chem), parameter :: conver = 1.e-9_kind_chem - real(kind=kind_chem), parameter :: converi = 1.e+9_kind_chem + real(kind=kind_chem), parameter :: conver = 1.e-9_kind_chem + real(kind=kind_chem), parameter :: converi = 1.e+9_kind_chem ! - one = 1.0 - - ilwi=0 - tc(1)=chem_arr(p_seas_1)*conver - tc(2)=1.e-30_kind_chem - tc(3)=chem_arr(p_seas_2)*conver - tc(4)=1.e-30_kind_chem - w10m=sqrt(u10*u10+v10*v10) - tskin=tsk - airmas=area * delp / g + one = 1.0 + + ilwi=0 + tc(1)=chem_arr(p_seas_1)*conver + tc(2)=1.e-30_kind_chem + tc(3)=chem_arr(p_seas_2)*conver + tc(4)=1.e-30_kind_chem + w10m=sqrt(u10*u10+v10*v10) + tskin=tsk + airmas=area * delp / g ! ! we don't trust the u10,v10 values, is model layers are very thin near surface ! - if(dz8w.lt.12.)w10m=sqrt(u_phy*u_phy+v_phy*v_phy) + if(dz8w.lt.12.)w10m=sqrt(u_phy*u_phy+v_phy*v_phy) ! - dxy=area - ipr=0 + dxy=area + ipr=0 - airmas1 = airmas - tc1(:) = tc - bems1(:) = bems - call source_ss( number_ss_bins, dt, tc1,ilwi, dxy, w10m, airmas1, bems1,ipr) - tc = tc1(:) - chem_arr(p_seas_1)=(tc(1)+.75*tc(2))*converi - chem_arr(p_seas_2)=(tc(3)+.25*tc(2))*converi - seashelp=tc(2)*converi - + airmas1 = airmas + tc1(:) = tc + bems1(:) = bems + call source_ss( number_ss_bins, dt, tc1,ilwi, dxy, w10m, airmas1, bems1,ipr) + tc = tc1(:) + chem_arr(p_seas_1)=(tc(1)+.75*tc(2))*converi + chem_arr(p_seas_2)=(tc(3)+.25*tc(2))*converi + seashelp=tc(2)*converi - end subroutine gocart_seas_simple - SUBROUTINE source_ss(nmx, dt1, tc, & - ilwi, dxy, w10m, airmas, & - bems,ipr) + end subroutine gocart_seas_simple + + SUBROUTINE source_ss(nmx, dt1, tc, & + ilwi, dxy, w10m, airmas, & + bems,ipr) ! **************************************************************************** -! * Evaluate the source of each seasalt particles size classes (kg/m3) +! * Evaluate the source of each seasalt particles size classes (kg/m3) ! * by soil emission. ! * Input: ! * SSALTDEN Sea salt density (kg/m3) ! * DXY Surface of each grid cell (m2) ! * NDT1 Time step (s) ! * W10m Velocity at the anemometer level (10meters) (m/s) -! * +! * ! * Output: -! * DSRC Source of each sea salt bins (kg/timestep/cell) +! * DSRC Source of each sea salt bins (kg/timestep/cell) ! * ! * ! * Number flux density: Original formula by Monahan et al. (1986) adapted @@ -117,61 +117,61 @@ SUBROUTINE source_ss(nmx, dt1, tc, & ! * where rho_p is particle density [kg/m3] ! * The factor 1.e-18 is to convert in micro-meter r_d^3 ! **************************************************************************** - - IMPLICIT NONE - INTEGER, INTENT(IN) :: nmx,ipr - INTEGER, INTENT(IN) :: ilwi - REAL(kind=kind_chem), INTENT(IN) :: dxy, w10m - REAL(kind=kind_chem), INTENT(IN) :: airmas - REAL(kind=kind_chem), INTENT(INOUT) :: tc(nmx) - REAL(kind=kind_chem), INTENT(OUT) :: bems(nmx) + IMPLICIT NONE + + INTEGER, INTENT(IN) :: nmx,ipr + INTEGER, INTENT(IN) :: ilwi + REAL(kind=kind_chem), INTENT(IN) :: dxy, w10m + REAL(kind=kind_chem), INTENT(IN) :: airmas + REAL(kind=kind_chem), INTENT(INOUT) :: tc(nmx) + REAL(kind=kind_chem), INTENT(OUT) :: bems(nmx) - REAL(kind=kind_chem) :: c0(5), b0(2) -! REAL(kind=kind_chem), PARAMETER :: c_old(5)=(/1.373, 3.41, 0.057, 1.05, 1.190/) + REAL(kind=kind_chem) :: c0(5), b0(2) +! REAL(kind=kind_chem), PARAMETER :: c_old(5)=(/1.373, 3.41, 0.057, 1.05, 1.190/) ! REAL(kind=kind_chem), PARAMETER :: c_new(5)=(/1.373, 3.41, 0.057, 3.45, 1.607/) - ! Change suggested by MC - REAL(kind=kind_chem), PARAMETER :: c_old(5)=(/1.373, 3.2, 0.057, 1.05, 1.190/) - REAL(kind=kind_chem), PARAMETER :: c_new(5)=(/1.373, 3.2, 0.057, 3.45, 1.607/) - REAL(kind=kind_chem), PARAMETER :: b_old(2)=(/0.380, 0.650/) - REAL(kind=kind_chem), PARAMETER :: b_new(2)=(/0.433, 0.433/) - REAL(kind=kind_chem), PARAMETER :: dr=5.0D-2 ! um - REAL(kind=kind_chem), PARAMETER :: theta=30.0 - ! Swelling coefficient frh (d rwet / d rd) + ! Change suggested by MC + REAL(kind=kind_chem), PARAMETER :: c_old(5)=(/1.373, 3.2, 0.057, 1.05, 1.190/) + REAL(kind=kind_chem), PARAMETER :: c_new(5)=(/1.373, 3.2, 0.057, 3.45, 1.607/) + REAL(kind=kind_chem), PARAMETER :: b_old(2)=(/0.380, 0.650/) + REAL(kind=kind_chem), PARAMETER :: b_new(2)=(/0.433, 0.433/) + REAL(kind=kind_chem), PARAMETER :: dr=5.0D-2 ! um + REAL(kind=kind_chem), PARAMETER :: theta=30.0 + ! Swelling coefficient frh (d rwet / d rd) !!! REAL(kind=kind_chem), PARAMETER :: frh = 1.65 - REAL(kind=kind_chem), PARAMETER :: frh = 2.d0 - LOGICAL, PARAMETER :: old=.TRUE., new=.FALSE. - REAL(kind=kind_chem) :: rho_d, r0, r1, r, r_w, a, b, dfn, r_d, dfm, src - INTEGER :: i, j, n, nr, ir - REAL(kind=kind_chem) :: dt1,fudge_fac + REAL(kind=kind_chem), PARAMETER :: frh = 2.d0 + LOGICAL, PARAMETER :: old=.TRUE., new=.FALSE. + REAL(kind=kind_chem) :: rho_d, r0, r1, r, r_w, a, b, dfn, r_d, dfm, src + INTEGER :: i, j, n, nr, ir + REAL(kind=kind_chem) :: dt1,fudge_fac - REAL(kind=kind_chem) :: tcmw(nmx), ar(nmx), tcvv(nmx) - REAL(kind=kind_chem) :: ar_wetdep(nmx), kc(nmx) - CHARACTER(LEN=20) :: tcname(nmx), tcunits(nmx) - LOGICAL :: aerosol(nmx) + REAL(kind=kind_chem) :: tcmw(nmx), ar(nmx), tcvv(nmx) + REAL(kind=kind_chem) :: ar_wetdep(nmx), kc(nmx) + CHARACTER(LEN=20) :: tcname(nmx), tcunits(nmx) + LOGICAL :: aerosol(nmx) - REAL(kind=kind_chem) :: tc1(nmx) - REAL(kind=kind_chem), TARGET :: tcms(nmx) ! tracer mass (kg; kgS for sulfur case) - REAL(kind=kind_chem), TARGET :: tcgm(nmx) ! g/m3 + REAL(kind=kind_chem) :: tc1(nmx) + REAL(kind=kind_chem), TARGET :: tcms(nmx) ! tracer mass (kg; kgS for sulfur case) + REAL(kind=kind_chem), TARGET :: tcgm(nmx) ! g/m3 - !----------------------------------------------------------------------- - ! sea salt specific - !----------------------------------------------------------------------- + !----------------------------------------------------------------------- + ! sea salt specific + !----------------------------------------------------------------------- ! REAL(kind=kind_chem), DIMENSION(nmx) :: ra, rb ! REAL(kind=kind_chem) :: ch_ss(nmx,12) - !----------------------------------------------------------------------- - ! emissions (input) - !----------------------------------------------------------------------- - REAL(kind=kind_chem) :: e_an(2,nmx), e_bb(nmx), & - e_ac(nmx) + !----------------------------------------------------------------------- + ! emissions (input) + !----------------------------------------------------------------------- + REAL(kind=kind_chem) :: e_an(2,nmx), e_bb(nmx), & + e_ac(nmx) - !----------------------------------------------------------------------- - ! diagnostics (budget) - !----------------------------------------------------------------------- + !----------------------------------------------------------------------- + ! diagnostics (budget) + !----------------------------------------------------------------------- ! ! tendencies per time step and process ! REAL(kind=kind_chem), TARGET :: bems(nmx), bdry(nmx), bstl(nmx) ! REAL(kind=kind_chem), TARGET :: bwet(nmx), bcnv(nmx)! @@ -180,65 +180,65 @@ SUBROUTINE source_ss(nmx, dt1, tc, & ! REAL(kind=kind_chem), TARGET :: tems(nmx), tstl(nmx) ! REAL(kind=kind_chem), TARGET :: tdry(nmx), twet(nmx), tcnv(nmx) - ! global mass balance per time step - REAL(kind=kind_chem) :: tmas0(nmx), tmas1(nmx) - REAL(kind=kind_chem) :: dtems(nmx), dttrp(nmx), dtdif(nmx), dtcnv(nmx) - REAL(kind=kind_chem) :: dtwet(nmx), dtdry(nmx), dtstl(nmx) - REAL(kind=kind_chem) :: dtems2(nmx), dttrp2(nmx), dtdif2(nmx), dtcnv2(nmx) - REAL(kind=kind_chem) :: dtwet2(nmx), dtdry2(nmx), dtstl2(nmx) + ! global mass balance per time step + REAL(kind=kind_chem) :: tmas0(nmx), tmas1(nmx) + REAL(kind=kind_chem) :: dtems(nmx), dttrp(nmx), dtdif(nmx), dtcnv(nmx) + REAL(kind=kind_chem) :: dtwet(nmx), dtdry(nmx), dtstl(nmx) + REAL(kind=kind_chem) :: dtems2(nmx), dttrp2(nmx), dtdif2(nmx), dtcnv2(nmx) + REAL(kind=kind_chem) :: dtwet2(nmx), dtdry2(nmx), dtstl2(nmx) - ! detailed integrated budgets for individual emissions - REAL(kind=kind_chem), TARGET :: ems_an(nmx), ems_bb(nmx), ems_tp - REAL(kind=kind_chem), TARGET :: ems_ac(nmx) - REAL(kind=kind_chem), TARGET :: ems_co(nmx) + ! detailed integrated budgets for individual emissions + REAL(kind=kind_chem), TARGET :: ems_an(nmx), ems_bb(nmx), ems_tp + REAL(kind=kind_chem), TARGET :: ems_ac(nmx) + REAL(kind=kind_chem), TARGET :: ems_co(nmx) - ! executable statements + ! executable statements ! decrease seasalt emissions (Colarco et al. 2010) ! - !fudge_fac= 1. !.5 - !fudge_fac= .5 !lzhang - fudge_fac= .25 !lzhang + !fudge_fac= 1. !.5 + !fudge_fac= .5 !lzhang + fudge_fac= .25 !lzhang ! - DO n = 1,nmx - bems(n) = 0.0 - rho_d = den_seas(n) - r0 = ra(n)*frh - r1 = rb(n)*frh - r = r0 - nr = INT((r1-r0)/dr+.001) - DO ir = 1,nr - r_w = r + dr*0.5 - r = r + dr - IF (new) THEN - a = 4.7*(1.0 + theta*r_w)**(-0.017*r_w**(-1.44)) - c0 = c_new - b0 = b_new - ELSE - a = 3.0 - c0 = c_old - b0 = b_old - END IF - ! - b = (b0(1) - LOG10(r_w))/b0(2) - dfn = (c0(1)/r_w**a)*(1.0 + c0(3)*r_w**c0(4))* & + DO n = 1,nmx + bems(n) = 0.0 + rho_d = den_seas(n) + r0 = ra(n)*frh + r1 = rb(n)*frh + r = r0 + nr = INT((r1-r0)/dr+.001) + DO ir = 1,nr + r_w = r + dr*0.5 + r = r + dr + IF (new) THEN + a = 4.7*(1.0 + theta*r_w)**(-0.017*r_w**(-1.44)) + c0 = c_new + b0 = b_new + ELSE + a = 3.0 + c0 = c_old + b0 = b_old + END IF + ! + b = (b0(1) - LOG10(r_w))/b0(2) + dfn = (c0(1)/r_w**a)*(1.0 + c0(3)*r_w**c0(4))* & 10**(c0(5)*EXP(-(b**2))) - - r_d = r_w/frh*1.0D-6 ! um -> m - dfm = 4.0/3.0*pi*r_d**3*rho_d*frh*dfn*dr*dt1 ! 3600 !dt1 - IF (ilwi == 0) THEN - src = dfm*dxy*w10m**c0(2) + r_d = r_w/frh*1.0D-6 ! um -> m + dfm = 4.0/3.0*pi*r_d**3*rho_d*frh*dfn*dr*dt1 ! 3600 !dt1 + + IF (ilwi == 0) THEN + src = dfm*dxy*w10m**c0(2) ! src = ch_ss(n,dt(1)%mn)*dfm*dxy(j)*w10m(i,j)**c0(2) - tc(n) = tc(n) + fudge_fac*src/airmas - ELSE - src = 0.0 - END IF - - bems(n) = bems(n) + src*fudge_fac/(dxy*dt1) !kg/m2/s + tc(n) = tc(n) + fudge_fac*src/airmas + ELSE + src = 0.0 + END IF + + bems(n) = bems(n) + src*fudge_fac/(dxy*dt1) !kg/m2/s - END DO ! ir - END DO ! n + END DO ! ir + END DO ! n - END SUBROUTINE source_ss + END SUBROUTINE source_ss end module gocart_seas_simple_mod diff --git a/src/gocart_settling_mod.F90 b/src/gocart_settling_mod.F90 index 8552c937..1bb4800f 100644 --- a/src/gocart_settling_mod.F90 +++ b/src/gocart_settling_mod.F90 @@ -1,47 +1,47 @@ module gocart_settling_mod - use catchem_constants , only : kind_chem, grav => con_g - use catchem_config, only : p_seas_1, p_seas_2, p_seas_3, p_seas_4, p_seas_5, & - p_dust_1, p_dust_2, p_dust_3, p_dust_4, p_dust_5, & - p_qv, seas_opt, dust_opt, chem_opt, & - DUST_OPT_AFWA, DUST_OPT_FENGSHA, DUST_OPT_GOCART, SEAS_OPT_NONE, & - num_chem, num_moist + use catchem_constants , only : kind_chem, grav => con_g + use catchem_config, only : p_seas_1, p_seas_2, p_seas_3, p_seas_4, p_seas_5, & + p_dust_1, p_dust_2, p_dust_3, p_dust_4, p_dust_5, & + p_qv, seas_opt, dust_opt, chem_opt, & + DUST_OPT_AFWA, DUST_OPT_FENGSHA, DUST_OPT_GOCART, SEAS_OPT_NONE, & + num_chem, num_moist - use dust_data_mod, only : den_dust, reff_dust, dyn_visc - use seas_data_mod, only : den_seas, reff_seas + use dust_data_mod, only : den_dust, reff_dust, dyn_visc + use seas_data_mod, only : den_seas, reff_seas - implicit none + implicit none CONTAINS -SUBROUTINE settling_simple_driver(dt,t_phy,moist, & - chem_arr,rho_phy,dz8w, & - p8w,p_phy,sedim, & - dusthelp,seashelp,area, & - kms,kme,kts,kte) + SUBROUTINE settling_simple_driver(dt,t_phy,moist, & + chem_arr,rho_phy,dz8w, & + p8w,p_phy,sedim, & + dusthelp,seashelp,area, & + kms,kme,kts,kte) - IMPLICIT NONE + IMPLICIT NONE - INTEGER, INTENT(IN ) :: kms,kme,kts,kte - - REAL(kind_chem), DIMENSION( kms:kme,num_moist ), & + INTEGER, INTENT(IN ) :: kms,kme,kts,kte + + REAL(kind_chem), DIMENSION( kms:kme,num_moist ), & INTENT(IN ) :: moist - REAL(kind_chem), DIMENSION( kms:kme, num_chem ), & + REAL(kind_chem), DIMENSION( kms:kme, num_chem ), & INTENT(INOUT ) :: chem_arr - REAL(kind_chem), INTENT(IN ) :: dusthelp,seashelp,area - REAL(kind_chem), DIMENSION( kms:kme ), & - INTENT(IN ) :: t_phy,p_phy,dz8w,p8w,rho_phy - REAL(kind_chem), INTENT(IN ) :: dt - - REAL(kind_chem), DIMENSION( num_chem ), INTENT(OUT ) :: sedim - - integer :: nv,i,j,k,kk,lmx,iseas,idust - real(kind_chem), DIMENSION (1,1,kte-kts+1) :: tmp,airden,airmas,p_mid,delz,rh - real(kind_chem), DIMENSION (1,1,kte-kts+1,5) :: dust - real(kind_chem), DIMENSION (1,1,kte-kts+1,5) :: sea_salt - real(kind_chem), DIMENSION (kme,num_chem) :: chem_before - real(kind_chem), dimension (1:5) :: maxdust,maxseas + REAL(kind_chem), INTENT(IN ) :: dusthelp,seashelp,area + REAL(kind_chem), DIMENSION( kms:kme ), & + INTENT(IN ) :: t_phy,p_phy,dz8w,p8w,rho_phy + REAL(kind_chem), INTENT(IN ) :: dt + + REAL(kind_chem), DIMENSION( num_chem ), INTENT(OUT ) :: sedim + + integer :: nv,i,j,k,kk,lmx,iseas,idust + real(kind_chem), DIMENSION (1,1,kte-kts+1) :: tmp,airden,airmas,p_mid,delz,rh + real(kind_chem), DIMENSION (1,1,kte-kts+1,5) :: dust + real(kind_chem), DIMENSION (1,1,kte-kts+1,5) :: sea_salt + real(kind_chem), DIMENSION (kme,num_chem) :: chem_before + real(kind_chem), dimension (1:5) :: maxdust,maxseas ! ! bstl is for budgets ! @@ -49,124 +49,124 @@ SUBROUTINE settling_simple_driver(dt,t_phy,moist, & ! real(kind_chem), DIMENSION (5), PARAMETER :: reff_dust(5)=(/0.73D-6,1.4D-6,2.4D-6,4.5D-6,8.0D-6/) ! real(kind_chem), DIMENSION (4), PARAMETER :: den_seas(4)=(/2200.,2200.,2200.,2290./) ! real(kind_chem), DIMENSION (4), PARAMETER :: reff_seas(4)=(/0.30D-6,1.00D-6,3.25D-6,7.50D-6/) - real(kind_chem), DIMENSION (5) :: bstl_dust - real(kind_chem), DIMENSION (5) :: bstl_seas - real(kind_chem) conver,converi - real(kind_chem),parameter::max_default=0. + real(kind_chem), DIMENSION (5) :: bstl_dust + real(kind_chem), DIMENSION (5) :: bstl_seas + real(kind_chem) conver,converi + real(kind_chem),parameter::max_default=0. - sedim = 0. + sedim = 0. ! conver=1.e-9*mwdry ! converi=1.e9/mwdry - conver=1.e-9 - converi=1.e9 - lmx=kte-kts+1 + conver=1.e-9 + converi=1.e9 + lmx=kte-kts+1 ! ! GOCART "very" light ! - bstl_dust(:)=0. - bstl_seas(:)=0. + bstl_dust(:)=0. + bstl_seas(:)=0. ! ! initialize met stuff ! - kk=0 - do k=kts,kte - kk=kk+1 - p_mid(1,1,kk)=.01*p_phy(kte-k+kts) - delz(1,1,kk)=dz8w(kte-k+kts) - airmas(1,1,kk)=-(p8w(k+1)-p8w(k))*area/grav - airden(1,1,kk)=rho_phy(k) - tmp(1,1,kk)=t_phy(k) - rh(1,1,kk) = .95 - rh(1,1,kk) = MIN( .95, moist(k,p_qv) / & - (3.80*exp(17.27*(t_phy(k)-273.)/ & - (t_phy(k)-36.))/(.01*p_phy(k)))) - rh(1,1,kk)=max(1.0D-1,rh(1,1,kk)) - enddo + kk=0 + do k=kts,kte + kk=kk+1 + p_mid(1,1,kk)=.01*p_phy(kte-k+kts) + delz(1,1,kk)=dz8w(kte-k+kts) + airmas(1,1,kk)=-(p8w(k+1)-p8w(k))*area/grav + airden(1,1,kk)=rho_phy(k) + tmp(1,1,kk)=t_phy(k) + rh(1,1,kk) = .95 + rh(1,1,kk) = MIN( .95, moist(k,p_qv) / & + (3.80*exp(17.27*(t_phy(k)-273.)/ & + (t_phy(k)-36.))/(.01*p_phy(k)))) + rh(1,1,kk)=max(1.0D-1,rh(1,1,kk)) + enddo ! ! dust first ! - if((dust_opt == DUST_OPT_GOCART) .or. & - (dust_opt == DUST_OPT_AFWA) .or. & - (dust_opt == DUST_OPT_FENGSHA)) then - iseas=0 - idust=1 - maxdust(:)=0. - kk=0 - do nv = p_dust_1,p_dust_2 + if((dust_opt == DUST_OPT_GOCART) .or. & + (dust_opt == DUST_OPT_AFWA) .or. & + (dust_opt == DUST_OPT_FENGSHA)) then + iseas=0 + idust=1 + maxdust(:)=0. + kk=0 + do nv = p_dust_1,p_dust_2 kk=kk+1 do k=kts,kte - if(chem_arr(k,nv).gt.maxdust(kk)) maxdust(kk)=chem_arr(k,nv) + if(chem_arr(k,nv).gt.maxdust(kk)) maxdust(kk)=chem_arr(k,nv) enddo - enddo - kk=0 - do k=kts,kte - kk=kk+1 - if(k.eq.kts)then - dust(1,1,kk,1)=(chem_arr(k,p_dust_1)-.31*dusthelp)*conver - dust(1,1,kk,2)=dusthelp*conver - dust(1,1,kk,3)=(-.67*dusthelp+chem_arr(k,p_dust_2))*conver - else - dust(1,1,kk,1)=chem_arr(k,p_dust_1)*conver - dust(1,1,kk,2)=1.d-30 - dust(1,1,kk,3)=chem_arr(k,p_dust_2)*conver - endif - dust(1,1,kk,4)=1.d-30 - dust(1,1,kk,5)=1.d-30 - enddo - call settling(1, 1, lmx, 5,grav,dyn_visc, & - dust, tmp, p_mid, delz, airmas, & - den_dust, reff_dust, dt, bstl_dust, rh, idust, iseas,airden) - kk=0 - do k=kts,kte-5 - kk=kk+1 - if(k.eq.kts)then - chem_arr(k,p_dust_1)=max(max_default,(dust(1,1,kk,1)+.31*dust(1,1,kk,2))*converi) - chem_arr(k,p_dust_2)=max(max_default,(.67*dust(1,1,kk,2)+dust(1,1,kk,3))*converi) - else - chem_arr(k,p_dust_1)=max(max_default,dust(1,1,kk,1)*converi) - chem_arr(k,p_dust_2)=max(max_default,dust(1,1,kk,3)*converi) - endif - chem_arr(k,p_dust_1)=min(maxdust(1),chem_arr(k,p_dust_1)) - chem_arr(k,p_dust_2)=min(maxdust(2),chem_arr(k,p_dust_2)) - enddo - do k=kte-4,kte + enddo + kk=0 + do k=kts,kte + kk=kk+1 + if(k.eq.kts)then + dust(1,1,kk,1)=(chem_arr(k,p_dust_1)-.31*dusthelp)*conver + dust(1,1,kk,2)=dusthelp*conver + dust(1,1,kk,3)=(-.67*dusthelp+chem_arr(k,p_dust_2))*conver + else + dust(1,1,kk,1)=chem_arr(k,p_dust_1)*conver + dust(1,1,kk,2)=1.d-30 + dust(1,1,kk,3)=chem_arr(k,p_dust_2)*conver + endif + dust(1,1,kk,4)=1.d-30 + dust(1,1,kk,5)=1.d-30 + enddo + call settling(1, 1, lmx, 5,grav,dyn_visc, & + dust, tmp, p_mid, delz, airmas, & + den_dust, reff_dust, dt, bstl_dust, rh, idust, iseas,airden) + kk=0 + do k=kts,kte-5 + kk=kk+1 + if(k.eq.kts)then + chem_arr(k,p_dust_1)=max(max_default,(dust(1,1,kk,1)+.31*dust(1,1,kk,2))*converi) + chem_arr(k,p_dust_2)=max(max_default,(.67*dust(1,1,kk,2)+dust(1,1,kk,3))*converi) + else + chem_arr(k,p_dust_1)=max(max_default,dust(1,1,kk,1)*converi) + chem_arr(k,p_dust_2)=max(max_default,dust(1,1,kk,3)*converi) + endif + chem_arr(k,p_dust_1)=min(maxdust(1),chem_arr(k,p_dust_1)) + chem_arr(k,p_dust_2)=min(maxdust(2),chem_arr(k,p_dust_2)) + enddo + do k=kte-4,kte chem_arr(k,p_dust_1)=0. chem_arr(k,p_dust_2)=0. - enddo - endif ! dust_opt -! -! -! - if(seas_opt /= SEAS_OPT_NONE) then - iseas=1 - idust=0 - maxseas(:)=0. - kk=0 - do nv = p_seas_1,p_seas_2 - kk=kk+1 - do k=kts,kte - if(chem_arr(k,nv).gt.maxseas(kk)) maxseas(kk)=chem_arr(k,nv) - enddo - enddo - kk=0 - do k=kts,kte - kk=kk+1 - if(k.eq.kts)then - sea_salt(1,1,kk,1)=(chem_arr(k,p_seas_1)-.75*seashelp)*conver - sea_salt(1,1,kk,2)=seashelp*conver - sea_salt(1,1,kk,3)=(chem_arr(k,p_seas_2)-.25*seashelp)*conver - else - sea_salt(1,1,kk,1)=chem_arr(k,p_seas_1)*conver - sea_salt(1,1,kk,2)=1.d-30 - sea_salt(1,1,kk,3)=chem_arr(k,p_seas_2)*conver - endif - sea_salt(1,1,kk,4)=1.d-30 - enddo - call settling(1, 1, lmx, 4, grav,dyn_visc,& - sea_salt, tmp, p_mid, delz, airmas, & - den_seas, reff_seas, dt, bstl_seas, rh, idust, iseas,airden) - kk=0 - do k=kts,kte-5 + enddo + endif ! dust_opt +! +! +! + if(seas_opt /= SEAS_OPT_NONE) then + iseas=1 + idust=0 + maxseas(:)=0. + kk=0 + do nv = p_seas_1,p_seas_2 + kk=kk+1 + do k=kts,kte + if(chem_arr(k,nv).gt.maxseas(kk)) maxseas(kk)=chem_arr(k,nv) + enddo + enddo + kk=0 + do k=kts,kte + kk=kk+1 + if(k.eq.kts)then + sea_salt(1,1,kk,1)=(chem_arr(k,p_seas_1)-.75*seashelp)*conver + sea_salt(1,1,kk,2)=seashelp*conver + sea_salt(1,1,kk,3)=(chem_arr(k,p_seas_2)-.25*seashelp)*conver + else + sea_salt(1,1,kk,1)=chem_arr(k,p_seas_1)*conver + sea_salt(1,1,kk,2)=1.d-30 + sea_salt(1,1,kk,3)=chem_arr(k,p_seas_2)*conver + endif + sea_salt(1,1,kk,4)=1.d-30 + enddo + call settling(1, 1, lmx, 4, grav,dyn_visc,& + sea_salt, tmp, p_mid, delz, airmas, & + den_seas, reff_seas, dt, bstl_seas, rh, idust, iseas,airden) + kk=0 + do k=kts,kte-5 kk=kk+1 if(k.eq.kts)then chem_arr(k,p_seas_1)=(sea_salt(1,1,kk,1)+.75*sea_salt(1,1,kk,2))*converi @@ -177,45 +177,45 @@ SUBROUTINE settling_simple_driver(dt,t_phy,moist, & endif chem_arr(k,p_seas_1)=min(maxseas(1),chem_arr(k,p_seas_1)) chem_arr(k,p_seas_2)=min(maxseas(2),chem_arr(k,p_seas_2)) - enddo - do k=kte-4,kte + enddo + do k=kte-4,kte chem_arr(k,p_seas_1)=0. chem_arr(k,p_seas_2)=0. - enddo - endif ! seas_opt >= 1 + enddo + endif ! seas_opt >= 1 ! ! ! ! -END SUBROUTINE settling_simple_driver + END SUBROUTINE settling_simple_driver -SUBROUTINE settling_gocart_driver(dt,t_phy,moist, & - chem_arr,rho_phy,dz8w, & - p8w,p_phy,sedim, & - area, & - kms,kme,kts,kte) + SUBROUTINE settling_gocart_driver(dt,t_phy,moist, & + chem_arr,rho_phy,dz8w, & + p8w,p_phy,sedim, & + area, & + kms,kme,kts,kte) - IMPLICIT NONE + IMPLICIT NONE - INTEGER, INTENT(IN ) :: kms,kme,kts,kte + INTEGER, INTENT(IN ) :: kms,kme,kts,kte - REAL(kind_chem), DIMENSION( kms:kme,num_moist ), & + REAL(kind_chem), DIMENSION( kms:kme,num_moist ), & INTENT(IN ) :: moist - REAL(kind_chem), DIMENSION( kms:kme, num_chem ), & + REAL(kind_chem), DIMENSION( kms:kme, num_chem ), & INTENT(INOUT ) :: chem_arr - REAL(kind_chem), INTENT(IN ) :: area - REAL(kind_chem), DIMENSION( kms:kme ), & - INTENT(IN ) :: t_phy,p_phy,dz8w,p8w,rho_phy - REAL(kind_chem), INTENT(IN ) :: dt - - REAL(kind_chem), DIMENSION( num_chem ), INTENT(OUT ) :: sedim - - integer :: nv,i,j,k,kk,lmx,iseas,idust - real(kind_chem), DIMENSION (1,1,kte-kts+1) :: tmp,airden,airmas,p_mid,delz,rh - real(kind_chem), DIMENSION (1,1,kte-kts+1,5) :: dust - real(kind_chem), DIMENSION (1,1,kte-kts+1,5) :: sea_salt - real(kind_chem), DIMENSION (kme,num_chem) :: chem_before - real(kind_chem), dimension (1:5) :: maxdust,maxseas + REAL(kind_chem), INTENT(IN ) :: area + REAL(kind_chem), DIMENSION( kms:kme ), & + INTENT(IN ) :: t_phy,p_phy,dz8w,p8w,rho_phy + REAL(kind_chem), INTENT(IN ) :: dt + + REAL(kind_chem), DIMENSION( num_chem ), INTENT(OUT ) :: sedim + + integer :: nv,i,j,k,kk,lmx,iseas,idust + real(kind_chem), DIMENSION (1,1,kte-kts+1) :: tmp,airden,airmas,p_mid,delz,rh + real(kind_chem), DIMENSION (1,1,kte-kts+1,5) :: dust + real(kind_chem), DIMENSION (1,1,kte-kts+1,5) :: sea_salt + real(kind_chem), DIMENSION (kme,num_chem) :: chem_before + real(kind_chem), dimension (1:5) :: maxdust,maxseas ! ! bstl is for budgets ! @@ -227,179 +227,179 @@ SUBROUTINE settling_gocart_driver(dt,t_phy,moist, & ! den_seas(4)=(/2200.,2200.,2200.,2290./) ! real(kind_chem), DIMENSION (4), PARAMETER :: ! reff_seas(4)=(/0.30D-6,1.00D-6,3.25D-6,7.50D-6/) - real(kind_chem), DIMENSION (5) :: bstl_dust - real(kind_chem), DIMENSION (5) :: bstl_seas - real(kind_chem) conver,converi - real(kind_chem),parameter::max_default=0. + real(kind_chem), DIMENSION (5) :: bstl_dust + real(kind_chem), DIMENSION (5) :: bstl_seas + real(kind_chem) conver,converi + real(kind_chem),parameter::max_default=0. - sedim = 0. + sedim = 0. ! conver=1.e-9*mwdry ! converi=1.e9/mwdry - conver=1.e-9 - converi=1.e9 - lmx=kte-kts+1 + conver=1.e-9 + converi=1.e9 + lmx=kte-kts+1 ! ! run with all GOCART variables, GOCART sort of HEAVY! ! -! +! ! initialize some met stuff ! - kk=0 - bstl_dust(:)=0. - bstl_seas(:)=0. - do k=kts,kte - kk=kk+1 - p_mid(1,1,kk)=.01*p_phy(kte-k+kts) - delz(1,1,kk)=dz8w(kte-k+kts) - airmas(1,1,kk)=-(p8w(k+1)-p8w(k))*area/grav - airden(1,1,kk)=rho_phy(k) - tmp(1,1,kk)=t_phy(k) - rh(1,1,kk) = .95 - rh(1,1,kk) = MIN( .95, moist(k,p_qv) / & - (3.80*exp(17.27*(t_phy(k)-273.)/ & - (t_phy(k)-36.))/(.01*p_phy(k)))) - rh(1,1,kk)=max(1.0D-1,rh(1,1,kk)) - do nv = 1, num_chem + kk=0 + bstl_dust(:)=0. + bstl_seas(:)=0. + do k=kts,kte + kk=kk+1 + p_mid(1,1,kk)=.01*p_phy(kte-k+kts) + delz(1,1,kk)=dz8w(kte-k+kts) + airmas(1,1,kk)=-(p8w(k+1)-p8w(k))*area/grav + airden(1,1,kk)=rho_phy(k) + tmp(1,1,kk)=t_phy(k) + rh(1,1,kk) = .95 + rh(1,1,kk) = MIN( .95, moist(k,p_qv) / & + (3.80*exp(17.27*(t_phy(k)-273.)/ & + (t_phy(k)-36.))/(.01*p_phy(k)))) + rh(1,1,kk)=max(1.0D-1,rh(1,1,kk)) + do nv = 1, num_chem chem_before(k,nv) = chem_arr(k,nv) - enddo - enddo + enddo + enddo ! ! max dust in column ! - if((dust_opt == DUST_OPT_GOCART) .or. & - (dust_opt == DUST_OPT_AFWA) .or. & - (dust_opt == DUST_OPT_FENGSHA)) then - iseas=0 - idust=1 - maxdust(:)=0. - kk=0 - do nv = p_dust_1,p_dust_5 + if((dust_opt == DUST_OPT_GOCART) .or. & + (dust_opt == DUST_OPT_AFWA) .or. & + (dust_opt == DUST_OPT_FENGSHA)) then + iseas=0 + idust=1 + maxdust(:)=0. + kk=0 + do nv = p_dust_1,p_dust_5 kk=kk+1 do k=kts,kte - if(chem_arr(k,nv).gt.maxdust(kk)) maxdust(kk)=chem_arr(k,nv) + if(chem_arr(k,nv).gt.maxdust(kk)) maxdust(kk)=chem_arr(k,nv) enddo - enddo - kk=0 - do k=kts,kte + enddo + kk=0 + do k=kts,kte kk=kk+1 dust(1,1,kk,1)=chem_arr(k,p_dust_1)*conver dust(1,1,kk,2)=chem_arr(k,p_dust_2)*conver dust(1,1,kk,3)=chem_arr(k,p_dust_3)*conver dust(1,1,kk,4)=chem_arr(k,p_dust_4)*conver dust(1,1,kk,5)=chem_arr(k,p_dust_5)*conver - enddo - - - call settling(1, 1, lmx, 5,grav,dyn_visc, & - dust, tmp, p_mid, delz, airmas, & - den_dust, reff_dust, dt, bstl_dust, rh, idust, iseas,airden) - - kk = 0 - do k = kts,kte - kk = kk+1 - chem_arr(k,p_dust_1)=dust(1,1,kk,1)*converi ! dust for size bin 1 [ug/kg] - chem_arr(k,p_dust_2)=dust(1,1,kk,2)*converi ! ... - chem_arr(k,p_dust_3)=dust(1,1,kk,3)*converi ! ... - chem_arr(k,p_dust_4)=dust(1,1,kk,4)*converi ! ... - chem_arr(k,p_dust_5)=dust(1,1,kk,5)*converi ! dust for size bin 5 (dust_opt 3: for all size bins) [ug/kg] - enddo + enddo + + + call settling(1, 1, lmx, 5,grav,dyn_visc, & + dust, tmp, p_mid, delz, airmas, & + den_dust, reff_dust, dt, bstl_dust, rh, idust, iseas,airden) + + kk = 0 + do k = kts,kte + kk = kk+1 + chem_arr(k,p_dust_1)=dust(1,1,kk,1)*converi ! dust for size bin 1 [ug/kg] + chem_arr(k,p_dust_2)=dust(1,1,kk,2)*converi ! ... + chem_arr(k,p_dust_3)=dust(1,1,kk,3)*converi ! ... + chem_arr(k,p_dust_4)=dust(1,1,kk,4)*converi ! ... + chem_arr(k,p_dust_5)=dust(1,1,kk,5)*converi ! dust for size bin 5 (dust_opt 3: for all size bins) [ug/kg] + enddo #if 0 - kk=0 - do k=kts,kte-4 - kk=kk+1 - chem_arr(k,p_dust_1)=min(maxdust(1),dust(1,1,kk,1)*converi) - chem_arr(k,p_dust_2)=min(maxdust(2),dust(1,1,kk,2)*converi) - chem_arr(k,p_dust_3)=min(maxdust(3),dust(1,1,kk,3)*converi) - chem_arr(k,p_dust_4)=min(maxdust(4),dust(1,1,kk,4)*converi) - chem_arr(k,p_dust_5)=min(maxdust(5),dust(1,1,kk,5)*converi) - enddo - do k=kte-3,kte + kk=0 + do k=kts,kte-4 + kk=kk+1 + chem_arr(k,p_dust_1)=min(maxdust(1),dust(1,1,kk,1)*converi) + chem_arr(k,p_dust_2)=min(maxdust(2),dust(1,1,kk,2)*converi) + chem_arr(k,p_dust_3)=min(maxdust(3),dust(1,1,kk,3)*converi) + chem_arr(k,p_dust_4)=min(maxdust(4),dust(1,1,kk,4)*converi) + chem_arr(k,p_dust_5)=min(maxdust(5),dust(1,1,kk,5)*converi) + enddo + do k=kte-3,kte chem_arr(k,p_dust_1)=1.e-16 chem_arr(k,p_dust_2)=1.e-16 chem_arr(k,p_dust_3)=1.e-16 chem_arr(k,p_dust_4)=1.e-16 chem_arr(k,p_dust_5)=1.e-16 - enddo + enddo #endif - endif ! dust_opt + endif ! dust_opt ! ! ! - if(seas_opt /= SEAS_OPT_NONE) then - iseas=1 - idust=0 - kk=0 - do k=kts,kte - kk=kk+1 - sea_salt(1,1,kk,1)=chem_arr(k,p_seas_1)*conver - sea_salt(1,1,kk,2)=chem_arr(k,p_seas_2)*conver - sea_salt(1,1,kk,3)=chem_arr(k,p_seas_3)*conver - sea_salt(1,1,kk,4)=chem_arr(k,p_seas_4)*conver - sea_salt(1,1,kk,5)=chem_arr(k,p_seas_5)*conver - enddo + if(seas_opt /= SEAS_OPT_NONE) then + iseas=1 + idust=0 + kk=0 + do k=kts,kte + kk=kk+1 + sea_salt(1,1,kk,1)=chem_arr(k,p_seas_1)*conver + sea_salt(1,1,kk,2)=chem_arr(k,p_seas_2)*conver + sea_salt(1,1,kk,3)=chem_arr(k,p_seas_3)*conver + sea_salt(1,1,kk,4)=chem_arr(k,p_seas_4)*conver + sea_salt(1,1,kk,5)=chem_arr(k,p_seas_5)*conver + enddo ! ! max seasalt in column ! - maxseas(:)=0. - kk=0 - do nv = p_seas_1,p_seas_5 - kk=kk+1 - do k=kts,kte - if(chem_arr(k,nv).gt.maxseas(kk)) maxseas(kk)=chem_arr(k,nv) - enddo - enddo - call settling(1, 1, lmx, 5, grav,dyn_visc,& - sea_salt, tmp, p_mid, delz, airmas, & - den_seas, reff_seas, dt, bstl_seas, rh, idust, iseas,airden) - kk=0 - do k=kts,kte - kk=kk+1 - chem_arr(k,p_seas_1)=sea_salt(1,1,kk,1)*converi - chem_arr(k,p_seas_2)=sea_salt(1,1,kk,2)*converi - chem_arr(k,p_seas_3)=sea_salt(1,1,kk,3)*converi - chem_arr(k,p_seas_4)=sea_salt(1,1,kk,4)*converi - chem_arr(k,p_seas_5)=sea_salt(1,1,kk,5)*converi - enddo - -#if 0 - kk=0 - do k=kts,kte-4 - kk=kk+1 + maxseas(:)=0. + kk=0 + do nv = p_seas_1,p_seas_5 + kk=kk+1 + do k=kts,kte + if(chem_arr(k,nv).gt.maxseas(kk)) maxseas(kk)=chem_arr(k,nv) + enddo + enddo + call settling(1, 1, lmx, 5, grav,dyn_visc,& + sea_salt, tmp, p_mid, delz, airmas, & + den_seas, reff_seas, dt, bstl_seas, rh, idust, iseas,airden) + kk=0 + do k=kts,kte + kk=kk+1 + chem_arr(k,p_seas_1)=sea_salt(1,1,kk,1)*converi + chem_arr(k,p_seas_2)=sea_salt(1,1,kk,2)*converi + chem_arr(k,p_seas_3)=sea_salt(1,1,kk,3)*converi + chem_arr(k,p_seas_4)=sea_salt(1,1,kk,4)*converi + chem_arr(k,p_seas_5)=sea_salt(1,1,kk,5)*converi + enddo + +#if 0 + kk=0 + do k=kts,kte-4 + kk=kk+1 chem_arr(k,p_seas_1)=min(maxseas(1),sea_salt(1,1,kk,1)*converi) chem_arr(k,p_seas_2)=min(maxseas(2),sea_salt(1,1,kk,2)*converi) chem_arr(k,p_seas_3)=min(maxseas(3),sea_salt(1,1,kk,3)*converi) chem_arr(k,p_seas_4)=min(maxseas(4),sea_salt(1,1,kk,4)*converi) chem_arr(k,p_seas_5)=min(maxseas(5),sea_salt(1,1,kk,5)*converi) - enddo - do k=kte-3,kte + enddo + do k=kte-3,kte chem_arr(k,p_seas_1)=0. chem_arr(k,p_seas_2)=0. chem_arr(k,p_seas_3)=0. chem_arr(k,p_seas_4)=0. chem_arr(k,p_seas_5)=0. - enddo + enddo #endif - endif ! end seasopt==1 + endif ! end seasopt==1 - do nv = 1, num_chem - do k = kts,kte - sedim(nv) = sedim(nv)+(chem_before(k,nv) - chem_arr(k,nv))*p8w(k)/grav - enddo - sedim(nv) = sedim(nv) / dt !ug/m2/s - enddo + do nv = 1, num_chem + do k = kts,kte + sedim(nv) = sedim(nv)+(chem_before(k,nv) - chem_arr(k,nv))*p8w(k)/grav + enddo + sedim(nv) = sedim(nv) / dt !ug/m2/s + enddo ! ! ! ! -END SUBROUTINE settling_gocart_driver + END SUBROUTINE settling_gocart_driver - subroutine settling(imx,jmx, lmx, nmx,g0,dyn_visc, & - tc, tmp, p_mid, delz, airmas, & - den, reff, dt, bstl, rh, idust, iseas,airden) + subroutine settling(imx,jmx, lmx, nmx,g0,dyn_visc, & + tc, tmp, p_mid, delz, airmas, & + den, reff, dt, bstl, rh, idust, iseas,airden) ! **************************************************************************** ! * * ! * Calculate the loss by settling, using an implicit method * @@ -410,171 +410,171 @@ subroutine settling(imx,jmx, lmx, nmx,g0,dyn_visc, & ! * TMP(i,j,k) - Air temperature (K) * ! * CT(i,j) - Surface exchange coeff for moisture ! * * -! **************************************************************************** +! **************************************************************************** - IMPLICIT NONE + IMPLICIT NONE - INTEGER, INTENT(IN) :: imx, jmx, lmx, nmx,iseas,idust - INTEGER :: ntdt - REAL(kind_chem), INTENT(IN) :: dt,g0,dyn_visc - REAL(kind_chem), INTENT(IN) :: tmp(imx,jmx,lmx), delz(imx,jmx,lmx), & - airmas(imx,jmx,lmx), rh(imx,jmx,lmx), & - den(nmx), reff(nmx),p_mid(imx,jmx,lmx),& - airden(imx,jmx,lmx) - REAL(kind_chem), INTENT(INOUT) :: tc(imx,jmx,lmx,nmx) - REAL(kind_chem), INTENT(OUT) :: bstl(imx,jmx,nmx) + INTEGER, INTENT(IN) :: imx, jmx, lmx, nmx,iseas,idust + INTEGER :: ntdt + REAL(kind_chem), INTENT(IN) :: dt,g0,dyn_visc + REAL(kind_chem), INTENT(IN) :: tmp(imx,jmx,lmx), delz(imx,jmx,lmx), & + airmas(imx,jmx,lmx), rh(imx,jmx,lmx), & + den(nmx), reff(nmx),p_mid(imx,jmx,lmx),& + airden(imx,jmx,lmx) + REAL(kind_chem), INTENT(INOUT) :: tc(imx,jmx,lmx,nmx) + REAL(kind_chem), INTENT(OUT) :: bstl(imx,jmx,nmx) - REAL(kind_chem) :: tc1(imx,jmx,lmx,nmx), dt_settl(nmx), rcm(nmx), rho(nmx) - INTEGER :: ndt_settl(nmx) - REAL(kind_chem) :: dzmin, vsettl, dtmax, rhb, rwet(nmx), ratio_r(nmx) - REAL(kind_chem) :: c_stokes, free_path, c_cun, viscosity, growth_fac - REAL(kind_chem) :: vd_cor(lmx),vd_wk1 - INTEGER :: k, n, i, j, l, l2 - REAL(kind_chem) :: transfer_to_below_level,temp_tc - ! for sea-salt: - REAL(kind_chem), PARAMETER :: c1=0.7674, c2=3.079, c3=2.573E-11, c4=-1.424 + REAL(kind_chem) :: tc1(imx,jmx,lmx,nmx), dt_settl(nmx), rcm(nmx), rho(nmx) + INTEGER :: ndt_settl(nmx) + REAL(kind_chem) :: dzmin, vsettl, dtmax, rhb, rwet(nmx), ratio_r(nmx) + REAL(kind_chem) :: c_stokes, free_path, c_cun, viscosity, growth_fac + REAL(kind_chem) :: vd_cor(lmx),vd_wk1 + INTEGER :: k, n, i, j, l, l2 + REAL(kind_chem) :: transfer_to_below_level,temp_tc + ! for sea-salt: + REAL(kind_chem), PARAMETER :: c1=0.7674, c2=3.079, c3=2.573E-11, c4=-1.424 - ! for OMP: - REAL(kind_chem) :: rwet_priv(nmx), rho_priv(nmx) + ! for OMP: + REAL(kind_chem) :: rwet_priv(nmx), rho_priv(nmx) - ! executable statements + ! executable statements - bstl = 0._kind_chem + bstl = 0._kind_chem ! IF (type) /= 'dust' .AND. TRIM(aero_type) /= 'sea_salt') RETURN - if(idust.ne.1.and.iseas.ne.1)return + if(idust.ne.1.and.iseas.ne.1)return !!! WHERE (tc(:,:,:,:) < 0.0) tc(:,:,:,:) = 1.0E-32 - dzmin = MINVAL(delz(:,:,:)) - IF (idust == 1) growth_fac = 1.0 - IF (iseas == 1) growth_fac = 3.0 - - DO k = 1,nmx - - ! Settling velocity (m/s) for each tracer (Stokes Law) - ! DEN density (kg/m3) - ! REFF effective radius (m) - ! dyn_visc dynamic viscosity (kg/m/s) - ! g0 gravity (m/s2) - ! 3.0 corresponds to a growth of a factor 3 of radius with 100% RH - ! 0.5 upper limit with temp correction - - tc1(:,:,:,k) = tc(:,:,:,k) - vsettl = 2.0/9.0 * g0 * den(k) * (growth_fac*reff(k))**2 / & - (0.5*dyn_visc) - - ! Determine the maximum time-step satisying the CFL condition: - ! dt <= (dz)_min / v_settl - ntdt=INT(dt) - dtmax = dzmin / vsettl - ndt_settl(k) = MAX( 1, INT( ntdt /dtmax) ) - ! limit maximum number of iterations - IF (ndt_settl(k) > 12) ndt_settl(k) = 12 - dt_settl(k) = REAL(ntdt) / REAL(ndt_settl(k)) - - ! Particles radius in centimeters - IF (iseas.eq.1)rcm(k) = reff(k)*100.0 - IF (idust.eq.1)then - rwet(k) = reff(k) - ratio_r(k) = 1.0 - rho(k) = den(k) - endif - END DO - - ! Solve the bidiagonal matrix (l,l) + dzmin = MINVAL(delz(:,:,:)) + IF (idust == 1) growth_fac = 1.0 + IF (iseas == 1) growth_fac = 3.0 + + DO k = 1,nmx + + ! Settling velocity (m/s) for each tracer (Stokes Law) + ! DEN density (kg/m3) + ! REFF effective radius (m) + ! dyn_visc dynamic viscosity (kg/m/s) + ! g0 gravity (m/s2) + ! 3.0 corresponds to a growth of a factor 3 of radius with 100% RH + ! 0.5 upper limit with temp correction + + tc1(:,:,:,k) = tc(:,:,:,k) + vsettl = 2.0/9.0 * g0 * den(k) * (growth_fac*reff(k))**2 / & + (0.5*dyn_visc) + + ! Determine the maximum time-step satisying the CFL condition: + ! dt <= (dz)_min / v_settl + ntdt=INT(dt) + dtmax = dzmin / vsettl + ndt_settl(k) = MAX( 1, INT( ntdt /dtmax) ) + ! limit maximum number of iterations + IF (ndt_settl(k) > 12) ndt_settl(k) = 12 + dt_settl(k) = REAL(ntdt) / REAL(ndt_settl(k)) + + ! Particles radius in centimeters + IF (iseas.eq.1)rcm(k) = reff(k)*100.0 + IF (idust.eq.1)then + rwet(k) = reff(k) + ratio_r(k) = 1.0 + rho(k) = den(k) + endif + END DO + + ! Solve the bidiagonal matrix (l,l) !$OMP PARALLEL DO & !$OMP DEFAULT( SHARED ) & !$OMP PRIVATE( i, j, l, l2, n, k, rhb, rwet_priv, ratio_r, c_stokes)& !$OMP PRIVATE( free_path, c_cun, viscosity, rho_priv, vd_cor ) - ! Loop over latitudes - DO j = 1,jmx - - DO k = 1,nmx - IF (idust.eq.1) THEN - rwet_priv(k) = rwet(k) - rho_priv(k) = rho(k) - END IF + ! Loop over latitudes + DO j = 1,jmx + + DO k = 1,nmx + IF (idust.eq.1) THEN + rwet_priv(k) = rwet(k) + rho_priv(k) = rho(k) + END IF - DO n = 1,ndt_settl(k) + DO n = 1,ndt_settl(k) - ! Solve each vertical layer successively (layer l) - transfer_to_below_level=0 - - DO l = lmx,1,-1 - l2 = lmx - l + 1 + ! Solve each vertical layer successively (layer l) + transfer_to_below_level=0 + + DO l = lmx,1,-1 + l2 = lmx - l + 1 ! DO j = 1,jmx - DO i = 1,imx + DO i = 1,imx - IF (iseas.eq.1) THEN - rhb = MIN(9.9D-1, rh(i,j,l)) - ! Aerosol growth with relative humidity (Gerber, 1985) -! td + IF (iseas.eq.1) THEN + rhb = MIN(9.9D-1, rh(i,j,l)) + ! Aerosol growth with relative humidity (Gerber, 1985) +! td ! changed to LOG10 - rwet_priv(k) = 0.01*(c1*rcm(k)**c2/(c3*rcm(k)**c4 - & - LOG10(rhb)) + rcm(k)**3)**0.33 - ratio_r(k) = (reff(k)/rwet_priv(k))**3.0 - END IF - - ! Dynamic viscosity - c_stokes = 1.458E-6 * tmp(i,j,l)**1.5/(tmp(i,j,l) + 110.4) - - ! Mean free path as a function of pressure (mb) and - ! temperature (K) - ! order of p_mid is top->sfc - free_path = 1.1E-3/p_mid(i,j,l2)/SQRT(tmp(i,j,l)) + rwet_priv(k) = 0.01*(c1*rcm(k)**c2/(c3*rcm(k)**c4 - & + LOG10(rhb)) + rcm(k)**3)**0.33 + ratio_r(k) = (reff(k)/rwet_priv(k))**3.0 + END IF + + ! Dynamic viscosity + c_stokes = 1.458E-6 * tmp(i,j,l)**1.5/(tmp(i,j,l) + 110.4) + + ! Mean free path as a function of pressure (mb) and + ! temperature (K) + ! order of p_mid is top->sfc + free_path = 1.1E-3/p_mid(i,j,l2)/SQRT(tmp(i,j,l)) !!! free_path = 1.1E-3/p_edge(i,j,l2)/SQRT(tmp(i,j,l)) - ! Slip Correction Factor - c_cun = 1.0+ free_path/rwet_priv(k)* & - (1.257 + 0.4*EXP(-1.1*rwet_priv(k)/free_path)) + ! Slip Correction Factor + c_cun = 1.0+ free_path/rwet_priv(k)* & + (1.257 + 0.4*EXP(-1.1*rwet_priv(k)/free_path)) + + ! Corrected dynamic viscosity (kg/m/s) + viscosity = c_stokes / c_cun - ! Corrected dynamic viscosity (kg/m/s) - viscosity = c_stokes / c_cun + ! Settling velocity + IF (iseas.eq.1) THEN + rho_priv(k) = ratio_r(k)*den(k) + (1.0 - ratio_r(k))*1000.0 + END IF - ! Settling velocity - IF (iseas.eq.1) THEN - rho_priv(k) = ratio_r(k)*den(k) + (1.0 - ratio_r(k))*1000.0 - END IF + vd_cor(l) = 2.0/9.0*g0*rho_priv(k)*rwet_priv(k)**2/viscosity - vd_cor(l) = 2.0/9.0*g0*rho_priv(k)*rwet_priv(k)**2/viscosity + ! Update mixing ratio; order of delz: top->sfc + temp_tc=tc(i,j,l,k) !temp_tc - for temporal storage [ug/kg] + vd_wk1 = dt_settl(k)*vd_cor(l)/delz(i,j,l2) !fraction to leave level - ! Update mixing ratio; order of delz: top->sfc - temp_tc=tc(i,j,l,k) !temp_tc - for temporal storage [ug/kg] - vd_wk1 = dt_settl(k)*vd_cor(l)/delz(i,j,l2) !fraction to leave level + tc(i,j,l,k) = tc(i,j,l,k)*(1.- vd_wk1)+transfer_to_below_level ! [ug/kg] - tc(i,j,l,k) = tc(i,j,l,k)*(1.- vd_wk1)+transfer_to_below_level ! [ug/kg] - - if (l.gt.1) transfer_to_below_level =(temp_tc*vd_wk1)*((delz(i,j,l2) & - *airden(i,j,l))/(delz(i,j,l2+1)*airden(i,j,l-1))) ! [ug/kg] + if (l.gt.1) transfer_to_below_level =(temp_tc*vd_wk1)*((delz(i,j,l2) & + *airden(i,j,l))/(delz(i,j,l2+1)*airden(i,j,l-1))) ! [ug/kg] - END DO !i + END DO !i ! END DO !j - END DO !l + END DO !l - END DO !n - END DO !k + END DO !n + END DO !k - END DO !j + END DO !j !$OMP END PARALLEL DO - DO n = 1,nmx - DO i = 1,imx - DO j = 1,jmx - bstl(i,j,n) = 0._kind_chem - DO l = 1,lmx - IF (tc(i,j,l,n) < 0.0) tc(i,j,l,n) = 1.0D-32 - bstl(i,j,n) = bstl(i,j,n) + & - (tc(i,j,l,n) - tc1(i,j,l,n)) * airmas(i,j,l) - END DO - END DO - END DO - END DO - -END SUBROUTINE settling + DO n = 1,nmx + DO i = 1,imx + DO j = 1,jmx + bstl(i,j,n) = 0._kind_chem + DO l = 1,lmx + IF (tc(i,j,l,n) < 0.0) tc(i,j,l,n) = 1.0D-32 + bstl(i,j,n) = bstl(i,j,n) + & + (tc(i,j,l,n) - tc1(i,j,l,n)) * airmas(i,j,l) + END DO + END DO + END DO + END DO + + END SUBROUTINE settling end module gocart_settling_mod diff --git a/src/opt_aer_mod.F90 b/src/opt_aer_mod.F90 index 341b7fec..824a5180 100644 --- a/src/opt_aer_mod.F90 +++ b/src/opt_aer_mod.F90 @@ -1,10 +1,10 @@ module opt_aer_mod - use opt_aer_out_mod - use opt_aer_ra_mod + use opt_aer_out_mod + use opt_aer_ra_mod - implicit none + implicit none - public + public end module opt_aer_mod diff --git a/src/opt_aer_out_mod.F90 b/src/opt_aer_out_mod.F90 index 33602386..c71c4e94 100644 --- a/src/opt_aer_out_mod.F90 +++ b/src/opt_aer_out_mod.F90 @@ -1,10 +1,10 @@ MODULE opt_aer_out_mod - use catchem_constants , only : kind_chem - use catchem_config, only : p_extcof3,p_extcof55,p_extcof106, & - p_extcof3_5,p_extcof8_12, & - p_bscof3,p_bscof55,p_bscof106, & - p_asympar3,p_asympar55,p_asympar106 + use catchem_constants , only : kind_chem + use catchem_config, only : p_extcof3,p_extcof55,p_extcof106, & + p_extcof3_5,p_extcof8_12, & + p_bscof3,p_bscof55,p_bscof106, & + p_asympar3,p_asympar55,p_asympar106 ! SAM lower and upper wavelength limits (microns) for AFWA band averaging - 2 averaging bins considered here REAL(kind_chem), PARAMETER, PRIVATE :: afwalowv1 = 3. ! lower wavelength for first AFWA band average extinction coefficent REAL(kind_chem), PARAMETER, PRIVATE :: afwahiwv1 = 5. ! upper wavelength for first AFWA band average extinction coefficent @@ -15,31 +15,31 @@ MODULE opt_aer_out_mod PUBLIC :: aer_opt_out CONTAINS SUBROUTINE aer_opt_out(aodi,dz8w & - ,ext_coeff,bscat_coeff,asym_par & - ,tauaersw,gaersw,waersw,tauaerlw & - ,num_ext_coef,num_bscat_coef,num_asym_par & - ,ids,ide, jds,jde, kds,kde & - ,ims,ime, jms,jme, kms,kme & - ,its,ite, jts,jte, kts,kte ) - IMPLICIT NONE + ,ext_coeff,bscat_coeff,asym_par & + ,tauaersw,gaersw,waersw,tauaerlw & + ,num_ext_coef,num_bscat_coef,num_asym_par & + ,ids,ide, jds,jde, kds,kde & + ,ims,ime, jms,jme, kms,kme & + ,its,ite, jts,jte, kts,kte ) + IMPLICIT NONE - INTEGER, INTENT(IN ) :: ids,ide, jds,jde, kds,kde, & - ims,ime, jms,jme, kms,kme, & - its,ite, jts,jte, kts,kte, & - num_ext_coef,num_bscat_coef,num_asym_par - REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme, 1:num_ext_coef ), INTENT (OUT) :: ext_coeff - REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme, 1:num_bscat_coef ), INTENT (OUT) :: bscat_coeff - REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme, 1:num_asym_par ), INTENT (OUT) :: asym_par - REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme, 4 ), & + INTEGER, INTENT(IN ) :: ids,ide, jds,jde, kds,kde, & + ims,ime, jms,jme, kms,kme, & + its,ite, jts,jte, kts,kte, & + num_ext_coef,num_bscat_coef,num_asym_par + REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme, 1:num_ext_coef ), INTENT (OUT) :: ext_coeff + REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme, 1:num_bscat_coef ), INTENT (OUT) :: bscat_coeff + REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme, 1:num_asym_par ), INTENT (OUT) :: asym_par + REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme, 4 ), & INTENT(IN ) :: tauaersw,gaersw,waersw - REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme, 16 ), & + REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme, 16 ), & INTENT(IN ) :: tauaerlw - REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme ), & + REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme ), & INTENT(IN ) :: dz8w - real(kind_chem) :: ang,slope,slopeg,slopessa,onemang - integer :: i,j,k - real(kind_chem), dimension (ims:ime,jms:jme), intent(INOUT) :: aodi - real(kind_chem), dimension (ims:ime,jms:jme) :: aod + real(kind_chem) :: ang,slope,slopeg,slopessa,onemang + integer :: i,j,k + real(kind_chem), dimension (ims:ime,jms:jme), intent(INOUT) :: aodi + real(kind_chem), dimension (ims:ime,jms:jme) :: aod !SAM 10/22/09 AFWA ouput. Fill following arrays: @@ -51,59 +51,59 @@ SUBROUTINE aer_opt_out(aodi,dz8w & ! As in PNNL MOSAIC, extrapolate or interpolate based on 300-999 nm Angstrom coefficient, ! or linear interpolation/extrapolation between 300 and 999 nm for assymetry coefficient do j = jts,jte - do k = kts,kte - do i = its,ite + do k = kts,kte + do i = its,ite ! convert optical properties at 300,400,600, and 999 to conform to the band wavelengths ! these are: 300, 550 and 1060 ! 300 nm already calculated in aerosol_optical_averaging and miecalc - ext_coeff(i,k,j,p_extcof3)=tauaersw(i,k,j,1)*1.E3/dz8w(i,k,j) ! 300nm ext. coeff. (1/km) - bscat_coeff(i,k,j,p_bscof3)=tauaersw(i,k,j,1)*waersw(i,k,j,1)*1.E3/dz8w(i,k,j) ! 300nm scat. coeff. (1/km) - asym_par(i,k,j,p_asympar3)=gaersw(i,k,j,1) ! 300nm assym. parameter (no units) + ext_coeff(i,k,j,p_extcof3)=tauaersw(i,k,j,1)*1.E3/dz8w(i,k,j) ! 300nm ext. coeff. (1/km) + bscat_coeff(i,k,j,p_bscof3)=tauaersw(i,k,j,1)*waersw(i,k,j,1)*1.E3/dz8w(i,k,j) ! 300nm scat. coeff. (1/km) + asym_par(i,k,j,p_asympar3)=gaersw(i,k,j,1) ! 300nm assym. parameter (no units) ! 550 nm done like PNNL - ang=log(tauaersw(i,k,j,1)/tauaersw(i,k,j,4))/log(999./300.) - slopessa=(waersw(i,k,j,3)-waersw(i,k,j,2))/.2 - slopeg=(gaersw(i,k,j,3)-gaersw(i,k,j,2))/.2 - ext_coeff(i,k,j,p_extcof55)=tauaersw(i,k,j,2)*1.E3*((0.4/0.55)**ang)/dz8w(i,k,j) ! 550nm ext. coeff. (1/km) - slope= slopessa*(0.55-.6)+waersw(i,k,j,3) ! slope is scratch variable, = single scat albedo at .55 micron - slope=AMIN1(1.0,AMAX1(0.4,slope)) ! SSA has same limits as in PNNL - bscat_coeff(i,k,j,p_bscof55)=ext_coeff(i,k,j,p_extcof55)*slope ! 550nm scat. coeff. (1/km) - asym_par(i,k,j,p_asympar55)=AMIN1(1.,AMAX1(0.5,slopeg*(.55-.6)+gaersw(i,k,j,3))) ! 550nm assym. parameter (no units) + ang=log(tauaersw(i,k,j,1)/tauaersw(i,k,j,4))/log(999./300.) + slopessa=(waersw(i,k,j,3)-waersw(i,k,j,2))/.2 + slopeg=(gaersw(i,k,j,3)-gaersw(i,k,j,2))/.2 + ext_coeff(i,k,j,p_extcof55)=tauaersw(i,k,j,2)*1.E3*((0.4/0.55)**ang)/dz8w(i,k,j) ! 550nm ext. coeff. (1/km) + slope= slopessa*(0.55-.6)+waersw(i,k,j,3) ! slope is scratch variable, = single scat albedo at .55 micron + slope=AMIN1(1.0,AMAX1(0.4,slope)) ! SSA has same limits as in PNNL + bscat_coeff(i,k,j,p_bscof55)=ext_coeff(i,k,j,p_extcof55)*slope ! 550nm scat. coeff. (1/km) + asym_par(i,k,j,p_asympar55)=AMIN1(1.,AMAX1(0.5,slopeg*(.55-.6)+gaersw(i,k,j,3))) ! 550nm assym. parameter (no units) ! 1060 nm done like PNNL - slopessa=(waersw(i,k,j,4)-waersw(i,k,j,3))/.399 - slopeg=(gaersw(i,k,j,4)-gaersw(i,k,j,3))/.399 - ext_coeff(i,k,j,p_extcof106)=tauaersw(i,k,j,2)*1.E3*((0.4/1.06)**ang)/dz8w(i,k,j) ! 1060nm ext. coeff. (1/km) - slope= slopessa*(1.06-.999)+waersw(i,k,j,4) ! slope is scratch variable, = single scat albedo at 1.06 micron - slope=AMIN1(1.0,AMAX1(0.4,slope)) ! SSA has same limits as in PNNL - bscat_coeff(i,k,j,p_bscof106)=ext_coeff(i,k,j,p_extcof106)*slope ! 1060nm scat. coeff. (1/km) - asym_par(i,k,j,p_asympar106)=AMIN1(1.,AMAX1(0.5,slopeg*(1.06-.999)+gaersw(i,k,j,3))) ! 1060nm assym. parameter (no units) + slopessa=(waersw(i,k,j,4)-waersw(i,k,j,3))/.399 + slopeg=(gaersw(i,k,j,4)-gaersw(i,k,j,3))/.399 + ext_coeff(i,k,j,p_extcof106)=tauaersw(i,k,j,2)*1.E3*((0.4/1.06)**ang)/dz8w(i,k,j) ! 1060nm ext. coeff. (1/km) + slope= slopessa*(1.06-.999)+waersw(i,k,j,4) ! slope is scratch variable, = single scat albedo at 1.06 micron + slope=AMIN1(1.0,AMAX1(0.4,slope)) ! SSA has same limits as in PNNL + bscat_coeff(i,k,j,p_bscof106)=ext_coeff(i,k,j,p_extcof106)*slope ! 1060nm scat. coeff. (1/km) + asym_par(i,k,j,p_asympar106)=AMIN1(1.,AMAX1(0.5,slopeg*(1.06-.999)+gaersw(i,k,j,3))) ! 1060nm assym. parameter (no units) ! 3.-5. and 8. - 12. micron band averages done by extrapolating .3-.999 calculations, like PNNL - onemang=1.-ang - if(abs(onemang).gt.1.E-3)then ! if ang sufficiently different than one, no need to worry about singularity - slope = tauaersw(i,k,j,2)*(0.4/afwalowv1)**ang ! Dummy incrumental tau at afwa lower wavelength for band average - slopeg = tauaersw(i,k,j,2)*(0.4/afwahiwv1)**ang ! Dummy incrumental tau at afwa high wavelength for band average - ext_coeff(i,k,j,p_extcof3_5) = (slopeg*afwahiwv1-slope*afwalowv1)/(afwahiwv1-afwalowv1)/onemang - slope = tauaersw(i,k,j,2)*(0.4/afwalowv2)**ang ! Dummy incrumental tau at afwa lower wavelength for band average - slopeg = tauaersw(i,k,j,2)*(0.4/afwahiwv2)**ang ! Dummy incrumental tau at afwa high wavelength for band average - ext_coeff(i,k,j,p_extcof8_12) = (slopeg*afwahiwv2-slope*afwalowv2)/(afwahiwv2-afwalowv2)/onemang - else ! ang is close to 1., avoid singularity - ext_coeff(i,k,j,p_extcof3_5) = tauaersw(i,k,j,2)*0.4*log(afwahiwv1/afwalowv1)/(afwahiwv1-afwalowv1) - ext_coeff(i,k,j,p_extcof8_12) = tauaersw(i,k,j,2)*0.4*log(afwahiwv2/afwalowv2)/(afwahiwv2-afwalowv2) - endif + onemang=1.-ang + if(abs(onemang).gt.1.E-3)then ! if ang sufficiently different than one, no need to worry about singularity + slope = tauaersw(i,k,j,2)*(0.4/afwalowv1)**ang ! Dummy incrumental tau at afwa lower wavelength for band average + slopeg = tauaersw(i,k,j,2)*(0.4/afwahiwv1)**ang ! Dummy incrumental tau at afwa high wavelength for band average + ext_coeff(i,k,j,p_extcof3_5) = (slopeg*afwahiwv1-slope*afwalowv1)/(afwahiwv1-afwalowv1)/onemang + slope = tauaersw(i,k,j,2)*(0.4/afwalowv2)**ang ! Dummy incrumental tau at afwa lower wavelength for band average + slopeg = tauaersw(i,k,j,2)*(0.4/afwahiwv2)**ang ! Dummy incrumental tau at afwa high wavelength for band average + ext_coeff(i,k,j,p_extcof8_12) = (slopeg*afwahiwv2-slope*afwalowv2)/(afwahiwv2-afwalowv2)/onemang + else ! ang is close to 1., avoid singularity + ext_coeff(i,k,j,p_extcof3_5) = tauaersw(i,k,j,2)*0.4*log(afwahiwv1/afwalowv1)/(afwahiwv1-afwalowv1) + ext_coeff(i,k,j,p_extcof8_12) = tauaersw(i,k,j,2)*0.4*log(afwahiwv2/afwalowv2)/(afwahiwv2-afwalowv2) + endif ! Convert band average incrumental taus to extinction coefficients (1/km) - ext_coeff(i,k,j,p_extcof3_5) = ext_coeff(i,k,j,p_extcof3_5)*1.E3/dz8w(i,k,j) - ext_coeff(i,k,j,p_extcof8_12) = ext_coeff(i,k,j,p_extcof8_12)*1.E3/dz8w(i,k,j) - end do - end do + ext_coeff(i,k,j,p_extcof3_5) = ext_coeff(i,k,j,p_extcof3_5)*1.E3/dz8w(i,k,j) + ext_coeff(i,k,j,p_extcof8_12) = ext_coeff(i,k,j,p_extcof8_12)*1.E3/dz8w(i,k,j) + end do + end do end do do j = jts,jte - do i = its,ite - aod(i,j)=0. - aodi(i,j)=0. - do k = kts,kte - aodi(i,j)=aodi(i,j)+ext_coeff(i,k,j,p_extcof55)*dz8w(i,k,j)*1.e-3 - aod(i,j)=aod(i,j)+ext_coeff(i,k,j,p_extcof55)*dz8w(i,k,j)*1.e-3 - end do - end do + do i = its,ite + aod(i,j)=0. + aodi(i,j)=0. + do k = kts,kte + aodi(i,j)=aodi(i,j)+ext_coeff(i,k,j,p_extcof55)*dz8w(i,k,j)*1.e-3 + aod(i,j)=aod(i,j)+ext_coeff(i,k,j,p_extcof55)*dz8w(i,k,j)*1.e-3 + end do + end do end do - END SUBROUTINE AER_OPT_OUT + END SUBROUTINE AER_OPT_OUT END MODULE opt_aer_out_mod diff --git a/src/opt_aer_ra_mod.F90 b/src/opt_aer_ra_mod.F90 index 29c98d26..c658deb5 100644 --- a/src/opt_aer_ra_mod.F90 +++ b/src/opt_aer_ra_mod.F90 @@ -5,37 +5,37 @@ MODULE opt_aer_ra_mod PUBLIC :: aer_ra CONTAINS SUBROUTINE aer_ra(dz8w & - ,extt,ssca,asympar,nbands & - ,tauaersw,gaersw,waersw,tauaerlw & - ,ids,ide, jds,jde, kds,kde & - ,ims,ime, jms,jme, kms,kme & - ,its,ite, jts,jte, kts,kte ) - IMPLICIT NONE + ,extt,ssca,asympar,nbands & + ,tauaersw,gaersw,waersw,tauaerlw & + ,ids,ide, jds,jde, kds,kde & + ,ims,ime, jms,jme, kms,kme & + ,its,ite, jts,jte, kts,kte ) + IMPLICIT NONE - INTEGER, INTENT(IN ) :: ids,ide, jds,jde, kds,kde, & - ims,ime, jms,jme, kms,kme, & - its,ite, jts,jte, kts,kte,nbands - REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme,nbands ), INTENT (OUT) :: extt - REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme,nbands ), INTENT (OUT) :: ssca - REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme, nbands), INTENT (OUT) :: asympar - REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme, 4 ), & + INTEGER, INTENT(IN ) :: ids,ide, jds,jde, kds,kde, & + ims,ime, jms,jme, kms,kme, & + its,ite, jts,jte, kts,kte,nbands + REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme,nbands ), INTENT (OUT) :: extt + REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme,nbands ), INTENT (OUT) :: ssca + REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme, nbands), INTENT (OUT) :: asympar + REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme, 4 ), & INTENT(IN ) :: tauaersw,gaersw,waersw - REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme ), & + REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme ), & INTENT(IN ) :: dz8w - REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme, 16 ), & + REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme, 16 ), & INTENT(IN ) :: tauaerlw - real(kind_chem) :: ang,slope,slopeg,slopessa,onemang - integer :: i,j,k,ib - real(kind_chem), dimension(NBANDS) :: midbands ! jcb - REAL(kind_chem), PARAMETER :: thresh=1.e-9 + real(kind_chem) :: ang,slope,slopeg,slopessa,onemang + integer :: i,j,k,ib + real(kind_chem), dimension(NBANDS) :: midbands ! jcb + REAL(kind_chem), PARAMETER :: thresh=1.e-9 ! --- band wavenumber intervals - real(kind_chem), dimension(14):: wvnum1, wvnum2 + real(kind_chem), dimension(14):: wvnum1, wvnum2 data wvnum1/ & - & 2600.0, 3251.0, 4001.0, 4651.0, 5151.0, 6151.0, 7701.0, & - & 8051.0,12851.0,16001.0,22651.0,29001.0,38001.0, 820.0 / + & 2600.0, 3251.0, 4001.0, 4651.0, 5151.0, 6151.0, 7701.0, & + & 8051.0,12851.0,16001.0,22651.0,29001.0,38001.0, 820.0 / data wvnum2/ & - & 3250.0, 4000.0, 4650.0, 5150.0, 6150.0, 7700.0, 8050.0, & - & 12850.0,16000.0,22650.0,29000.0,38000.0,50000.0, 2600.0 / + & 3250.0, 4000.0, 4650.0, 5150.0, 6150.0, 7700.0, 8050.0, & + & 12850.0,16000.0,22650.0,29000.0,38000.0,50000.0, 2600.0 / ! data midbands/.2,.235,.27,.2875,.3025,.305,.3625,.55,1.92,1.745,6.135/ @@ -43,55 +43,54 @@ SUBROUTINE aer_ra(dz8w & ! As in PNNL MOSAIC, extrapolate or interpolate based on 300-999 nm Angstrom coefficient, ! or linear interpolation/extrapolation between 300 and 999 nm for assymetry coefficient do ib=1,nbands - midbands(ib)=(1./wvnum1(ib)+1./wvnum2(ib))*.5e4 - do j = jts,jte - do k = kts,kte - do i = its,ite - if(tauaersw(i,k,j,1).gt.thresh .and. tauaersw(i,k,j,4).gt.thresh) then - ang=log(tauaersw(i,k,j,1)/tauaersw(i,k,j,4))/log(999./300.) - extt(i,k,j,ib)=tauaersw(i,k,j,2)*(0.4/midbands(ib))**ang + midbands(ib)=(1./wvnum1(ib)+1./wvnum2(ib))*.5e4 + do j = jts,jte + do k = kts,kte + do i = its,ite + if(tauaersw(i,k,j,1).gt.thresh .and. tauaersw(i,k,j,4).gt.thresh) then + ang=log(tauaersw(i,k,j,1)/tauaersw(i,k,j,4))/log(999./300.) + extt(i,k,j,ib)=tauaersw(i,k,j,2)*(0.4/midbands(ib))**ang ! ssa - linear interpolation; extrapolation - slope=(waersw(i,k,j,3)-waersw(i,k,j,2))/.2 - ssca(i,k,j,ib) = slope*(midbands(ib)-.6)+waersw(i,k,j,3) - if(ssca(i,k,j,ib).lt.0.4) ssca(i,k,j,ib)=0.4 - if(ssca(i,k,j,ib).ge.1.0) ssca(i,k,j,ib)=1.0 + slope=(waersw(i,k,j,3)-waersw(i,k,j,2))/.2 + ssca(i,k,j,ib) = slope*(midbands(ib)-.6)+waersw(i,k,j,3) + if(ssca(i,k,j,ib).lt.0.4) ssca(i,k,j,ib)=0.4 + if(ssca(i,k,j,ib).ge.1.0) ssca(i,k,j,ib)=1.0 ! g - linear interpolation;extrapolation - slope=(gaersw(i,k,j,3)-gaersw(i,k,j,2))/.2 - asympar(i,k,j,ib) = slope*(midbands(ib)-.6)+gaersw(i,k,j,3) - if(asympar(i,k,j,ib).lt.0.5) asympar(i,k,j,ib)=0.5 - if(asympar(i,k,j,ib).ge.1.0) asympar(i,k,j,ib)=1.0 - else - extt(i,k,j,ib)=0. - ssca(i,k,j,ib)=1. - asympar(i,k,j,ib)=0. - endif + slope=(gaersw(i,k,j,3)-gaersw(i,k,j,2))/.2 + asympar(i,k,j,ib) = slope*(midbands(ib)-.6)+gaersw(i,k,j,3) + if(asympar(i,k,j,ib).lt.0.5) asympar(i,k,j,ib)=0.5 + if(asympar(i,k,j,ib).ge.1.0) asympar(i,k,j,ib)=1.0 + else + extt(i,k,j,ib)=0. + ssca(i,k,j,ib)=1. + asympar(i,k,j,ib)=0. + endif - end do - end do - end do + end do + end do + end do end do ! do ib=1,nbands - do j = jts,jte - do i = its,ite - slope = 0. !use slope as a sum holder - do k = kts,kte - slope = slope + extt(i,k,j,ib) + do j = jts,jte + do i = its,ite + slope = 0. !use slope as a sum holder + do k = kts,kte + slope = slope + extt(i,k,j,ib) + end do + if( slope < 0. ) then + write(0,*)'ERROR: Negative total optical depth',j,slope + else if( slope > 6. ) then + write(0,*)'adjusting extt ',ib,j,slope + do k = kts,kte + extt(i,k,j,ib)=extt(i,k,j,ib)*6./slope + enddo + endif + end do end do - if( slope < 0. ) then - write(0,*)'ERROR: Negative total optical depth',j,slope - else if( slope > 6. ) then - write(0,*)'adjusting extt ',ib,j,slope - do k = kts,kte - extt(i,k,j,ib)=extt(i,k,j,ib)*6./slope - enddo - endif - end do - end do end do - END SUBROUTINE aer_ra + END SUBROUTINE aer_ra END MODULE opt_aer_ra_mod - diff --git a/src/opt_averaging_mod.F90 b/src/opt_averaging_mod.F90 index fcb73a1f..c046c50c 100644 --- a/src/opt_averaging_mod.F90 +++ b/src/opt_averaging_mod.F90 @@ -28,7 +28,7 @@ ! are requested to cite one or more of the references below ! (depending on the application) for proper acknowledgement. ! -! References: +! References: ! * Fast, J.D., W.I. Gustafson Jr., R.C. Easter, R.A. Zaveri, J.C. ! Barnard, E.G. Chapman, G.A. Grell, and S.E. Peckham (2005), Evolution ! of ozone, particulates, and aerosol direct radiative forcing in the @@ -49,31 +49,31 @@ ! Office of Biological and Environmental Research the PNNL Laboratory ! Research and Directed Research and Development program. !************************************************************************ - module opt_averaging_mod +module opt_averaging_mod - use catchem_constants , only : kind_chem + use catchem_constants , only : kind_chem - USE catchem_config, only : p_bc1,p_bc2,p_oc1,p_oc2, & - p_msa,p_dust_1,p_dust_2,p_seas_1,p_seas_4,p_sulf,p_p25,p_so2, & - p_vash_1,p_vash_4,p_p10,p_dust_5,p_seas_5 + USE catchem_config, only : p_bc1,p_bc2,p_oc1,p_oc2, & + p_msa,p_dust_1,p_dust_2,p_seas_1,p_seas_4,p_sulf,p_p25,p_so2, & + p_vash_1,p_vash_4,p_p10,p_dust_5,p_seas_5 - USE opt_data_mod + USE opt_data_mod - implicit none - integer, parameter, private :: lunerr = -1 - real(kind_chem), parameter :: hygro_msa_aer = 0.58 - integer nspint - parameter ( nspint = 4 ) ! number of spectral interval bands - integer, parameter :: kmaxd = 100 + implicit none + integer, parameter, private :: lunerr = -1 + real(kind_chem), parameter :: hygro_msa_aer = 0.58 + integer nspint + parameter ( nspint = 4 ) ! number of spectral interval bands + integer, parameter :: kmaxd = 100 ! nbin_a_maxd = maximum num of aerosol bins and is used to dimension arrays - integer, parameter :: nbin_a_maxd = 8 + integer, parameter :: nbin_a_maxd = 8 - private + private - public :: optical_averaging + public :: optical_averaging - contains +contains !---------------------------------------------------------------------------------- ! Aerosol optical properties computed using three methods (option_method): @@ -81,7 +81,7 @@ module opt_averaging_mod ! composition that averages the refractive indices for each size bin ! 2) Maxwell-Garnett mixing rule: method that randomly distributes black carbon ! within a particle -! 3) shell-core: method that assumes a "core" composed of black carbon surrounded +! 3) shell-core: method that assumes a "core" composed of black carbon surrounded ! by a "shell" composed of all other compositions ! ! There are two Mie routines included (option_mie): @@ -89,10 +89,10 @@ module opt_averaging_mod ! et al. (2001) so that full Mie computations are called only once and then ! expansion coeffiecients are used for subsequent times to save CPU. This ! method is somewhat less accurate than full Mie calculation. -! 2) subroutine mieaer_sc: Full Mie calculation at each time step that also +! 2) subroutine mieaer_sc: Full Mie calculation at each time step that also ! permits computation of shell-core method. -! -! Sectional and modal size distributions are treated similary, but there is +! +! Sectional and modal size distributions are treated similary, but there is ! separate code currrently to handle differences between MOSAIC and MADE/SORGAM. ! ! Methodology for sectional: @@ -105,81 +105,81 @@ module opt_averaging_mod ! Methodology for modal: ! * similar to sectional, except divide modal mass into discrete size bins first ! * currently assume same 8 size bins as MOSAIC, but other bins are possible -! +! ! THIS CODE IS STILL BEING TESTED. USERS ARE ENCOURAGED TO USE ONLY ! AER_OP_OPT=1 ! - subroutine optical_averaging(curr_secs,dtstep, & - nbin_o,option_method,option_mie,chem,dz8w,alt, & - relhum,h2oai,h2oaj, & - tauaersw,gaersw,waersw,bscoefsw,tauaerlw, & - l2aer,l3aer,l4aer,l5aer,l6aer,l7aer, & - num_chem,chem_opt,ids,ide,jds,jde, kds,kde, & - ims,ime, jms,jme, kms,kme, & - its,ite, jts,jte, kts,kte ) + subroutine optical_averaging(curr_secs,dtstep, & + nbin_o,option_method,option_mie,chem,dz8w,alt, & + relhum,h2oai,h2oaj, & + tauaersw,gaersw,waersw,bscoefsw,tauaerlw, & + l2aer,l3aer,l4aer,l5aer,l6aer,l7aer, & + num_chem,chem_opt,ids,ide,jds,jde, kds,kde, & + ims,ime, jms,jme, kms,kme, & + its,ite, jts,jte, kts,kte ) !---------------------------------------------------------------------------------- ! - INTEGER, INTENT(IN ) :: chem_opt,ids,ide, jds,jde, kds,kde, & - ims,ime, jms,jme, kms,kme, & - its,ite, jts,jte, kts,kte - INTEGER, INTENT(IN ) :: nbin_o,num_chem - REAL(kind_chem), INTENT(IN ) :: curr_secs - REAL(kind_chem), INTENT(IN ) :: dtstep + INTEGER, INTENT(IN ) :: chem_opt,ids,ide, jds,jde, kds,kde, & + ims,ime, jms,jme, kms,kme, & + its,ite, jts,jte, kts,kte + INTEGER, INTENT(IN ) :: nbin_o,num_chem + REAL(kind_chem), INTENT(IN ) :: curr_secs + REAL(kind_chem), INTENT(IN ) :: dtstep ! ! array that holds all advected chemical species ! - REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme, num_chem ), & + REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme, num_chem ), & INTENT(INOUT ) :: chem ! - REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme ), & + REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme ), & INTENT(IN ) :: relhum,dz8w, alt, h2oai, h2oaj ! ! arrays that hold the aerosol optical properties ! - REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme, 4 ), & + REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme, 4 ), & INTENT(INOUT ) :: & - tauaersw,gaersw,waersw,bscoefsw - REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme, 16 ), & + tauaersw,gaersw,waersw,bscoefsw + REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme, 16 ), & INTENT(INOUT ) :: & - tauaerlw - REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme, 1:4 ), & + tauaerlw + REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme, 1:4 ), & INTENT(INOUT ) :: & - l2aer, l3aer, l4aer, l5aer, l6aer, l7aer + l2aer, l3aer, l4aer, l5aer, l6aer, l7aer ! ! local variables ! - real(kind_chem), dimension( its:ite, kts:kte, jts:jte, 1:nbin_o ) :: & - radius_wet, number_bin, radius_core - real(kind_chem), dimension( 1:nbin_o, kts:kte) :: & - radius_wet_col, number_bin_col, radius_core_col - complex, dimension( its:ite, kts:kte, jts:jte, 1:nbin_o ) :: & !for gocart - refindx0, refindx_core0, refindx_shell0 - - complex, dimension( its:ite, kts:kte, jts:jte, 1:nbin_o,1:nspint) :: & - swrefindx, swrefindx_core, swrefindx_shell - complex, dimension( 1:nbin_o, kts:kte,1:nspint) :: & - swrefindx_col, swrefindx_core_col, swrefindx_shell_col - complex, dimension( 1:nbin_o, kts:kte) :: & - swrefindx_col1, swrefindx_core_col1, swrefindx_shell_col1 - complex, dimension( its:ite, kts:kte, jts:jte, 1:nbin_o,1:nlwbands) :: & - lwrefindx, lwrefindx_core, lwrefindx_shell - complex, dimension( 1:nbin_o, kts:kte,1:nlwbands) :: & - lwrefindx_col, lwrefindx_core_col, lwrefindx_shell_col - - real(kind_chem), dimension( kts:kte ) :: dz -! - integer ns,i,j,iclm, jclm, k, isize - integer option_method, option_mie - real(kind_chem), dimension( nspint, kts:kte ) :: & - swsizeaer,swextaer,swwaer,swgaer,swtauaer,swbscoef - real(kind_chem), dimension( 16 , kts:kte ) :: & - lwtauaer,lwextaer - real(kind_chem), dimension( nspint, kts:kte ) :: & - l2, l3, l4, l5, l6, l7 - real(kind_chem) refr - real(kind_chem) fv,vsum - integer, dimension( its:ite, jts:jte ) :: iprt - complex aa, bb + real(kind_chem), dimension( its:ite, kts:kte, jts:jte, 1:nbin_o ) :: & + radius_wet, number_bin, radius_core + real(kind_chem), dimension( 1:nbin_o, kts:kte) :: & + radius_wet_col, number_bin_col, radius_core_col + complex, dimension( its:ite, kts:kte, jts:jte, 1:nbin_o ) :: & !for gocart + refindx0, refindx_core0, refindx_shell0 + + complex, dimension( its:ite, kts:kte, jts:jte, 1:nbin_o,1:nspint) :: & + swrefindx, swrefindx_core, swrefindx_shell + complex, dimension( 1:nbin_o, kts:kte,1:nspint) :: & + swrefindx_col, swrefindx_core_col, swrefindx_shell_col + complex, dimension( 1:nbin_o, kts:kte) :: & + swrefindx_col1, swrefindx_core_col1, swrefindx_shell_col1 + complex, dimension( its:ite, kts:kte, jts:jte, 1:nbin_o,1:nlwbands) :: & + lwrefindx, lwrefindx_core, lwrefindx_shell + complex, dimension( 1:nbin_o, kts:kte,1:nlwbands) :: & + lwrefindx_col, lwrefindx_core_col, lwrefindx_shell_col + + real(kind_chem), dimension( kts:kte ) :: dz +! + integer ns,i,j,iclm, jclm, k, isize + integer option_method, option_mie + real(kind_chem), dimension( nspint, kts:kte ) :: & + swsizeaer,swextaer,swwaer,swgaer,swtauaer,swbscoef + real(kind_chem), dimension( 16 , kts:kte ) :: & + lwtauaer,lwextaer + real(kind_chem), dimension( nspint, kts:kte ) :: & + l2, l3, l4, l5, l6, l7 + real(kind_chem) refr + real(kind_chem) fv,vsum + integer, dimension( its:ite, jts:jte ) :: iprt + complex aa, bb !---------------------------------------------------------------------------------- ! ! chem_select: SELECT CASE(config_flags%chem_opt) @@ -201,11 +201,11 @@ subroutine optical_averaging(curr_secs,dtstep, & ! ims,ime, jms,jme, kms,kme, & ! its,ite, jts,jte, kts,kte ) ! CASE (GOCART_SIMPLE) - iprt=0 + iprt=0 ! iprt(1,8487)=1 ! print *,'in optical',p_vash_4 - do j = jts, jte - do i = its, ite + do j = jts, jte + do i = its, ite ! vsum = 0. ! do k = kts, kte ! vsum=vsum+chem(i,k,j,p_vash_4) @@ -236,8 +236,8 @@ subroutine optical_averaging(curr_secs,dtstep, & ! iprt(i,j)=2 ! print *,'2',i,j,vsum ! endif - enddo - enddo + enddo + enddo ! call optical_prep_gocart(iprt,nbin_o, chem, alt,relhum, & ! refindx, radius_wet, number_bin, & ! radius_core, refindx_core, refindx_shell, & @@ -245,150 +245,150 @@ subroutine optical_averaging(curr_secs,dtstep, & ! ims,ime, jms,jme, kms,kme, & ! its,ite, jts,jte, kts,kte ) do j= jts, jte - do i= its, ite - do k = kts, kte - chem(i,k,j,:)=max(chem(i,k,j,:),1.e-16) - enddo - enddo - enddo - if (chem_opt>=300 .and. chem_opt<=500) then - call optical_prep_gocart(iprt,nbin_o, chem, alt,relhum, & - radius_core,radius_wet, number_bin, & - swrefindx,swrefindx_core, swrefindx_shell, & - lwrefindx,lwrefindx_core, lwrefindx_shell, & - chem_opt,num_chem,ids,ide, jds,jde, kds,kde, & - ims,ime, jms,jme, kms,kme, & - its,ite, jts,jte, kts,kte ) - endif - if (chem_opt == 108) then - call optical_prep_modal_soa_vbs(iprt,nbin_o, chem, alt, & - h2oai, h2oaj, radius_core,radius_wet, number_bin, & - swrefindx,swrefindx_core, swrefindx_shell, & - lwrefindx,lwrefindx_core, lwrefindx_shell, & - num_chem, ids,ide, jds,jde, kds,kde, & - ims,ime, jms,jme, kms,kme, & - its,ite, jts,jte, kts,kte ) + do i= its, ite + do k = kts, kte + chem(i,k,j,:)=max(chem(i,k,j,:),1.e-16) + enddo + enddo + enddo + if (chem_opt>=300 .and. chem_opt<=500) then + call optical_prep_gocart(iprt,nbin_o, chem, alt,relhum, & + radius_core,radius_wet, number_bin, & + swrefindx,swrefindx_core, swrefindx_shell, & + lwrefindx,lwrefindx_core, lwrefindx_shell, & + chem_opt,num_chem,ids,ide, jds,jde, kds,kde, & + ims,ime, jms,jme, kms,kme, & + its,ite, jts,jte, kts,kte ) + endif + if (chem_opt == 108) then + call optical_prep_modal_soa_vbs(iprt,nbin_o, chem, alt, & + h2oai, h2oaj, radius_core,radius_wet, number_bin, & + swrefindx,swrefindx_core, swrefindx_shell, & + lwrefindx,lwrefindx_core, lwrefindx_shell, & + num_chem, ids,ide, jds,jde, kds,kde, & + ims,ime, jms,jme, kms,kme, & + its,ite, jts,jte, kts,kte ) endif ! END SELECT chem_select - do jclm = jts, jte - do iclm = its, ite - do k = kts, kte - dz(k) = dz8w(iclm, k, jclm) ! cell depth (m) - if(jclm.eq.10)write(0,*)k,dz(k),dz8w(iclm, k, jclm) - end do - do k = kts, kte - do isize = 1, nbin_o - number_bin_col(isize,k) = number_bin(iclm,k,jclm,isize) - radius_wet_col(isize,k) = radius_wet(iclm,k,jclm,isize) + do jclm = jts, jte + do iclm = its, ite + do k = kts, kte + dz(k) = dz8w(iclm, k, jclm) ! cell depth (m) + if(jclm.eq.10)write(0,*)k,dz(k),dz8w(iclm, k, jclm) + end do + do k = kts, kte + do isize = 1, nbin_o + number_bin_col(isize,k) = number_bin(iclm,k,jclm,isize) + radius_wet_col(isize,k) = radius_wet(iclm,k,jclm,isize) ! refindx_col(isize,k) = refindx(iclm,k,jclm,isize) ! refr=real(refindx_col(isize,k)) - swrefindx_col(isize,k,:) = swrefindx(iclm,k,jclm,isize,:) - swrefindx_col1(isize,k) = swrefindx(iclm,k,jclm,isize,3) ! at 600 nm - lwrefindx_col(isize,k,:) = lwrefindx(iclm,k,jclm,isize,:) - radius_core_col(isize,k) = radius_core(iclm,k,jclm,isize) + swrefindx_col(isize,k,:) = swrefindx(iclm,k,jclm,isize,:) + swrefindx_col1(isize,k) = swrefindx(iclm,k,jclm,isize,3) ! at 600 nm + lwrefindx_col(isize,k,:) = lwrefindx(iclm,k,jclm,isize,:) + radius_core_col(isize,k) = radius_core(iclm,k,jclm,isize) ! refindx_core_col(isize,k) = refindx_core(iclm,k,jclm,isize) ! refindx_shell_col(isize,k) = refindx_shell(iclm,k,jclm,isize) - swrefindx_core_col(isize,k,:) = swrefindx_core(iclm,k,jclm,isize,:) - swrefindx_shell_col(isize,k,:) = swrefindx_shell(iclm,k,jclm,isize,:) - swrefindx_core_col1(isize,k) = swrefindx_core(iclm,k,jclm,isize,3) - swrefindx_shell_col1(isize,k) = swrefindx_shell(iclm,k,jclm,isize,3) - lwrefindx_core_col(isize,k,:) = lwrefindx_core(iclm,k,jclm,isize,:) - lwrefindx_shell_col(isize,k,:) = lwrefindx_shell(iclm,k,jclm,isize,:) + swrefindx_core_col(isize,k,:) = swrefindx_core(iclm,k,jclm,isize,:) + swrefindx_shell_col(isize,k,:) = swrefindx_shell(iclm,k,jclm,isize,:) + swrefindx_core_col1(isize,k) = swrefindx_core(iclm,k,jclm,isize,3) + swrefindx_shell_col1(isize,k) = swrefindx_shell(iclm,k,jclm,isize,3) + lwrefindx_core_col(isize,k,:) = lwrefindx_core(iclm,k,jclm,isize,:) + lwrefindx_shell_col(isize,k,:) = lwrefindx_shell(iclm,k,jclm,isize,:) -! JCB, Feb. 20, 2008: in the case of shell/core and the use of the Mie +! JCB, Feb. 20, 2008: in the case of shell/core and the use of the Mie ! routine, set the refractive index of the shell used in the printout ! equal to the actual refractive index of the shell - if(option_method.eq.3.and.option_mie.eq.2) & + if(option_method.eq.3.and.option_mie.eq.2) & ! refindx_col(isize,k) = refindx_shell(iclm,k,jclm,isize) ! JCB - swrefindx_col(isize,k,:) = swrefindx_shell(iclm,k,jclm,isize,:) ! JCB - swrefindx_col1(isize,k) = swrefindx_shell(iclm,k,jclm,isize,3) + swrefindx_col(isize,k,:) = swrefindx_shell(iclm,k,jclm,isize,:) ! JCB + swrefindx_col1(isize,k) = swrefindx_shell(iclm,k,jclm,isize,3) ! JCB, Feb. 20, 2008: set core radius = 0 for very small cores; this ! prevents problems with full-blown Mie calculations that do not deal ! well with very small cores. For very small cores, the amount of ! absorption is negligible, and therefore setting the core radius to zero ! has virtually no effect on calculated optical properties - if(radius_wet_col(isize,k) < 1e-20) then - radius_core_col(isize,k)=0.0 - else if(radius_core_col(isize,k)/radius_wet_col(isize,k)**3.le.0.0001) then - radius_core_col(isize,k)=0.0 ! JCB - end if - enddo - enddo - - if (option_method .eq. 2) then - do k = kts, kte - do isize = 1, nbin_o - do ns=1,nspint - fv = (radius_core_col(isize,k)/radius_wet_col(isize,k))**3 ! volume fraction - aa=(swrefindx_core_col(isize,k,ns)**2+2.0*swrefindx_shell(iclm,k,jclm,isize,ns)**2) - bb=fv*(swrefindx_core_col(isize,k,ns)**2-swrefindx_shell(iclm,k,jclm,isize,ns)**2) - swrefindx_col(isize,k,ns)= swrefindx_shell(iclm,k,jclm,isize,ns)*sqrt((aa+2.0*bb)/(aa-bb)) - if (ns==3) then - swrefindx_col1(isize,k)= swrefindx_shell(iclm,k,jclm,isize,ns)*sqrt((aa+2.0*bb)/(aa-bb)) - endif - enddo - enddo - enddo - endif - - if (option_method .le. 2) then - do k = kts, kte - do isize = 1, nbin_o - radius_core_col(isize,k) = 0.0 - swrefindx_core_col(isize,k,:) = cmplx(0.0,0.0) - swrefindx_core_col1(isize,k) = cmplx(0.0,0.0) - enddo - enddo - endif + if(radius_wet_col(isize,k) < 1e-20) then + radius_core_col(isize,k)=0.0 + else if(radius_core_col(isize,k)/radius_wet_col(isize,k)**3.le.0.0001) then + radius_core_col(isize,k)=0.0 ! JCB + end if + enddo + enddo + + if (option_method .eq. 2) then + do k = kts, kte + do isize = 1, nbin_o + do ns=1,nspint + fv = (radius_core_col(isize,k)/radius_wet_col(isize,k))**3 ! volume fraction + aa=(swrefindx_core_col(isize,k,ns)**2+2.0*swrefindx_shell(iclm,k,jclm,isize,ns)**2) + bb=fv*(swrefindx_core_col(isize,k,ns)**2-swrefindx_shell(iclm,k,jclm,isize,ns)**2) + swrefindx_col(isize,k,ns)= swrefindx_shell(iclm,k,jclm,isize,ns)*sqrt((aa+2.0*bb)/(aa-bb)) + if (ns==3) then + swrefindx_col1(isize,k)= swrefindx_shell(iclm,k,jclm,isize,ns)*sqrt((aa+2.0*bb)/(aa-bb)) + endif + enddo + enddo + enddo + endif + + if (option_method .le. 2) then + do k = kts, kte + do isize = 1, nbin_o + radius_core_col(isize,k) = 0.0 + swrefindx_core_col(isize,k,:) = cmplx(0.0,0.0) + swrefindx_core_col1(isize,k) = cmplx(0.0,0.0) + enddo + enddo + endif +! + if (option_mie .eq. 1) then + call mieaer(1, iclm, jclm, nbin_o, & + number_bin_col, radius_wet_col,swrefindx_col, & + lwrefindx_col, & + dz, curr_secs, kts, kte, & + swsizeaer,swextaer,swwaer,swgaer,swtauaer, & + lwextaer,lwtauaer, & + l2, l3, l4, l5, l6, l7,swbscoef ) + endif + if (option_mie .ge. 2 .and. option_method .le. 2) then + call mieaer_sc(1, iclm, jclm, nbin_o, & + number_bin_col, radius_wet_col, swrefindx_col1, & + radius_core_col, swrefindx_core_col1, & + dz, curr_secs, kte, & + swsizeaer, swextaer, swwaer, swgaer, swtauaer, & + l2, l3, l4, l5, l6, l7, swbscoef ) + endif + if (option_mie .ge. 2 .and. option_method .eq. 3) then + call mieaer_sc(1, iclm, jclm, nbin_o, & + number_bin_col, radius_wet_col, swrefindx_shell_col1, & + radius_core_col, swrefindx_core_col1, & + dz, curr_secs, kte, & + swsizeaer, swextaer, swwaer, swgaer, swtauaer, & + l2, l3, l4, l5, l6, l7, swbscoef ) + endif ! - if (option_mie .eq. 1) then - call mieaer(1, iclm, jclm, nbin_o, & - number_bin_col, radius_wet_col,swrefindx_col, & - lwrefindx_col, & - dz, curr_secs, kts, kte, & - swsizeaer,swextaer,swwaer,swgaer,swtauaer, & - lwextaer,lwtauaer, & - l2, l3, l4, l5, l6, l7,swbscoef ) - endif - if (option_mie .ge. 2 .and. option_method .le. 2) then - call mieaer_sc(1, iclm, jclm, nbin_o, & - number_bin_col, radius_wet_col, swrefindx_col1, & - radius_core_col, swrefindx_core_col1, & - dz, curr_secs, kte, & - swsizeaer, swextaer, swwaer, swgaer, swtauaer, & - l2, l3, l4, l5, l6, l7, swbscoef ) - endif - if (option_mie .ge. 2 .and. option_method .eq. 3) then - call mieaer_sc(1, iclm, jclm, nbin_o, & - number_bin_col, radius_wet_col, swrefindx_shell_col1, & - radius_core_col, swrefindx_core_col1, & - dz, curr_secs, kte, & - swsizeaer, swextaer, swwaer, swgaer, swtauaer, & - l2, l3, l4, l5, l6, l7, swbscoef ) - endif -! - do k=kts,kte - tauaersw(iclm,k,jclm,:) = swtauaer(:,k) - gaersw(iclm,k,jclm,:) = swgaer(:,k) - waersw(iclm,k,jclm,:) = swwaer(:,k) - bscoefsw(iclm,k,jclm,:) = swbscoef(:,k) - l2aer(iclm,k,jclm,:) = l2(:,k) - l3aer(iclm,k,jclm,:) = l3(:,k) - l4aer(iclm,k,jclm,:) = l4(:,k) - l5aer(iclm,k,jclm,:) = l5(:,k) - l6aer(iclm,k,jclm,:) = l6(:,k) - l7aer(iclm,k,jclm,:) = l7(:,k) - tauaerlw(iclm,k,jclm,1:nlwbands) = lwtauaer(1:nlwbands,k) - enddo - enddo - enddo + do k=kts,kte + tauaersw(iclm,k,jclm,:) = swtauaer(:,k) + gaersw(iclm,k,jclm,:) = swgaer(:,k) + waersw(iclm,k,jclm,:) = swwaer(:,k) + bscoefsw(iclm,k,jclm,:) = swbscoef(:,k) + l2aer(iclm,k,jclm,:) = l2(:,k) + l3aer(iclm,k,jclm,:) = l3(:,k) + l4aer(iclm,k,jclm,:) = l4(:,k) + l5aer(iclm,k,jclm,:) = l5(:,k) + l6aer(iclm,k,jclm,:) = l6(:,k) + l7aer(iclm,k,jclm,:) = l7(:,k) + tauaerlw(iclm,k,jclm,1:nlwbands) = lwtauaer(1:nlwbands,k) + enddo + enddo + enddo ! return ! - end subroutine optical_averaging + end subroutine optical_averaging ! !---------------------------------------------------------------------------------- ! 9/21/09, SAM a modification of optical_prep_modal subroutine for GOCART aerosol model - @@ -396,120 +396,120 @@ end subroutine optical_averaging ! and sulfate - just use dginia (meters) and sginia from module_data_sorgam. ! Not using accumulation mode from d'Almedia 1991 Table 7.1 and 7.2 global model ! -! This subroutine computes volume-averaged refractive index and wet radius needed +! This subroutine computes volume-averaged refractive index and wet radius needed ! by the mie calculations. Aerosol number is also passed into the mie calculations ! in terms of other units. ! ! - subroutine optical_prep_gocart(iprt,nbin_o, chem, alt,relhum, & - radius_core,radius_wet, number_bin, & - swrefindx,swrefindx_core, swrefindx_shell, & - lwrefindx,lwrefindx_core, lwrefindx_shell, & - chem_opt,num_chem,ids,ide, jds,jde, kds,kde, & - ims,ime, jms,jme, kms,kme, & - its,ite, jts,jte, kts,kte ) + subroutine optical_prep_gocart(iprt,nbin_o, chem, alt,relhum, & + radius_core,radius_wet, number_bin, & + swrefindx,swrefindx_core, swrefindx_shell, & + lwrefindx,lwrefindx_core, lwrefindx_shell, & + chem_opt,num_chem,ids,ide, jds,jde, kds,kde, & + ims,ime, jms,jme, kms,kme, & + its,ite, jts,jte, kts,kte ) - use aero_soa_vbs_data_mod - use dust_data_mod, only: ndust, lo_dust, up_dust, reff_dust, den_dust + use aero_soa_vbs_data_mod + use dust_data_mod, only: ndust, lo_dust, up_dust, reff_dust, den_dust - USE seas_data_mod, only: number_ss_bins, ra, rb - USE catchem_config, only: oc_mfac,nh4_mfac,mwdry - !USE chem_const_mod, only: oc_mfac,nh4_mfac + USE seas_data_mod, only: number_ss_bins, ra, rb + USE catchem_config, only: oc_mfac,nh4_mfac,mwdry + !USE chem_const_mod, only: oc_mfac,nh4_mfac ! - INTEGER, INTENT(IN ) :: its,ite, jts,jte, kts,kte, nbin_o - INTEGER, INTENT(IN ) :: ims,ime, jms,jme, kms,kme,num_chem - INTEGER, INTENT(IN ) :: ids,ide, jds,jde, kds,kde,chem_opt - integer, dimension( its:ite, jts:jte ) :: iprt + INTEGER, INTENT(IN ) :: its,ite, jts,jte, kts,kte, nbin_o + INTEGER, INTENT(IN ) :: ims,ime, jms,jme, kms,kme,num_chem + INTEGER, INTENT(IN ) :: ids,ide, jds,jde, kds,kde,chem_opt + integer, dimension( its:ite, jts:jte ) :: iprt - REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme, num_chem ), & + REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme, num_chem ), & INTENT(IN ) :: chem - REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme ), & + REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme ), & INTENT(IN ) :: alt,relhum - REAL(kind_chem), DIMENSION( its:ite, kts:kte, jts:jte, 1:nbin_o), & + REAL(kind_chem), DIMENSION( its:ite, kts:kte, jts:jte, 1:nbin_o), & INTENT(OUT ) :: & - radius_wet, number_bin, radius_core - COMPLEX, DIMENSION( its:ite, kts:kte, jts:jte,1:nbin_o,nswbands), & + radius_wet, number_bin, radius_core + COMPLEX, DIMENSION( its:ite, kts:kte, jts:jte,1:nbin_o,nswbands), & INTENT(OUT ) :: swrefindx, swrefindx_core, swrefindx_shell - COMPLEX, DIMENSION( its:ite, kts:kte, jts:jte,1:nbin_o,nlwbands), & + COMPLEX, DIMENSION( its:ite, kts:kte, jts:jte,1:nbin_o,nlwbands), & INTENT(OUT ) :: lwrefindx, lwrefindx_core, lwrefindx_shell ! ! local variables ! - integer i, j, k, l, m, n, isize, itype, iphase - complex ref_index_lvcite , ref_index_nh4hso4, & - ref_index_nh4msa , ref_index_nh4no3 , ref_index_nh4cl , & - ref_index_nano3 , ref_index_na2so4, & - ref_index_na3hso4, ref_index_nahso4 , ref_index_namsa, & - ref_index_caso4 , ref_index_camsa2 , ref_index_cano3, & - ref_index_cacl2 , ref_index_caco3 , ref_index_h2so4, & - ref_index_hhso4 , ref_index_hno3 , ref_index_hcl, & - ref_index_msa , ref_index_bc, & - ref_index_oin , ref_index_aro1 , ref_index_aro2, & - ref_index_alk1 , ref_index_ole1 , ref_index_api1, & - ref_index_api2 , ref_index_lim1 , ref_index_lim2, & - ri_dum , ri_ave_a - COMPLEX, DIMENSION(nswbands) :: & ! now only 5 aerosols have wave-dependent refr - swref_index_oc , swref_index_dust , swref_index_nh4so4, swref_index_nacl,swref_index_h2o - COMPLEX, DIMENSION(nlwbands) :: & ! now only 5 aerosols have wave-dependent refr - lwref_index_oc , lwref_index_dust , lwref_index_nh4so4, lwref_index_nacl,lwref_index_h2o - real(kind_chem) dens_so4 , dens_no3 , dens_cl , dens_msa , dens_co3 , & + integer i, j, k, l, m, n, isize, itype, iphase + complex ref_index_lvcite , ref_index_nh4hso4, & + ref_index_nh4msa , ref_index_nh4no3 , ref_index_nh4cl , & + ref_index_nano3 , ref_index_na2so4, & + ref_index_na3hso4, ref_index_nahso4 , ref_index_namsa, & + ref_index_caso4 , ref_index_camsa2 , ref_index_cano3, & + ref_index_cacl2 , ref_index_caco3 , ref_index_h2so4, & + ref_index_hhso4 , ref_index_hno3 , ref_index_hcl, & + ref_index_msa , ref_index_bc, & + ref_index_oin , ref_index_aro1 , ref_index_aro2, & + ref_index_alk1 , ref_index_ole1 , ref_index_api1, & + ref_index_api2 , ref_index_lim1 , ref_index_lim2, & + ri_dum , ri_ave_a + COMPLEX, DIMENSION(nswbands) :: & ! now only 5 aerosols have wave-dependent refr + swref_index_oc , swref_index_dust , swref_index_nh4so4, swref_index_nacl,swref_index_h2o + COMPLEX, DIMENSION(nlwbands) :: & ! now only 5 aerosols have wave-dependent refr + lwref_index_oc , lwref_index_dust , lwref_index_nh4so4, lwref_index_nacl,lwref_index_h2o + real(kind_chem) dens_so4 , dens_no3 , dens_cl , dens_msa , dens_co3 , & dens_nh4 , dens_na , dens_ca , dens_oin , dens_oc , & dens_bc , dens_aro1 , dens_aro2 , dens_alk1 , dens_ole1, & dens_api1 , dens_api2 , dens_lim1 , dens_lim2 , dens_h2o , & dens_dust - real(kind_chem) mass_so4 , mass_no3 , mass_cl , mass_msa , mass_co3 , & + real(kind_chem) mass_so4 , mass_no3 , mass_cl , mass_msa , mass_co3 , & mass_nh4 , mass_na , mass_ca , mass_oin , mass_oc , & mass_bc , mass_aro1 , mass_aro2 , mass_alk1 , mass_ole1, & mass_api1 , mass_api2 , mass_lim1 , mass_lim2 , mass_h2o, & mass_dust - real(kind_chem) mass_so4i , mass_no3i , mass_cli , mass_msai , mass_co3i, & + real(kind_chem) mass_so4i , mass_no3i , mass_cli , mass_msai , mass_co3i, & mass_nh4i , mass_nai , mass_cai , mass_oini , mass_oci , & mass_bci , mass_aro1i, mass_aro2i, mass_alk1i, mass_ole1i, & mass_ba1i , mass_ba2i, mass_ba3i , mass_ba4i , mass_pai, & mass_h2oi , mass_dusti - real(kind_chem) mass_so4j , mass_no3j , mass_clj , mass_msaj , mass_co3j, & + real(kind_chem) mass_so4j , mass_no3j , mass_clj , mass_msaj , mass_co3j, & mass_nh4j , mass_naj , mass_caj , mass_oinj , mass_ocj , & mass_bcj , mass_aro1j, mass_aro2j, mass_alk1j, mass_ole1j, & mass_ba1j , mass_ba2j, mass_ba3j , mass_ba4j , mass_paj, & mass_h2oj , mass_dustj - real(kind_chem) mass_antha, mass_seas, mass_soil - real(kind_chem) vol_so4 , vol_no3 , vol_cl , vol_msa , vol_co3 , & + real(kind_chem) mass_antha, mass_seas, mass_soil + real(kind_chem) vol_so4 , vol_no3 , vol_cl , vol_msa , vol_co3 , & vol_nh4 , vol_na , vol_ca , vol_oin , vol_oc , & vol_bc , vol_aro1 , vol_aro2 , vol_alk1 , vol_ole1 , & - vol_api1 , vol_api2 , vol_lim1 , vol_lim2 , vol_h2o , & + vol_api1 , vol_api2 , vol_lim1 , vol_lim2 , vol_h2o , & vol_dust - real(kind_chem) conv1a, conv1b, conv1sulf - real(kind_chem) mass_dry_a, mass_wet_a, vol_dry_a , vol_wet_a , vol_shell, & + real(kind_chem) conv1a, conv1b, conv1sulf + real(kind_chem) mass_dry_a, mass_wet_a, vol_dry_a , vol_wet_a , vol_shell, & dp_dry_a , dp_wet_a , num_a , dp_bc_a - real(kind_chem) ifac, jfac, cfac - integer ns - real(kind_chem) dgnum_um,drydens,duma,dlo_um,dhi_um,dgmin,sixpi,ss1,ss2,ss3,dtemp - integer iflag - real(kind_chem), dimension(1:nbin_o) :: xnum_secti,xnum_sectj,xnum_sectc - real(kind_chem), dimension(1:nbin_o) :: xmas_secti,xmas_sectj,xmas_sectc - real(kind_chem), dimension(1:nbin_o) :: xdia_um, xdia_cm - !REAL(kind_chem), PARAMETER :: FRAC2Aitken=0.25 ! Fraction of modal mass in Aitken mode - applied globally to each species - REAL(kind_chem), PARAMETER :: FRAC2Aitken=0.1 ! Fraction of modal mass in Aitken mode - applied globally to each species - real(kind_chem), DIMENSION (ndust), PARAMETER ::distr_dust=(/1.074D-1,1.012D-1,2.078D-1,4.817D-1,1.019D-1/) !lzhang + real(kind_chem) ifac, jfac, cfac + integer ns + real(kind_chem) dgnum_um,drydens,duma,dlo_um,dhi_um,dgmin,sixpi,ss1,ss2,ss3,dtemp + integer iflag + real(kind_chem), dimension(1:nbin_o) :: xnum_secti,xnum_sectj,xnum_sectc + real(kind_chem), dimension(1:nbin_o) :: xmas_secti,xmas_sectj,xmas_sectc + real(kind_chem), dimension(1:nbin_o) :: xdia_um, xdia_cm + !REAL(kind_chem), PARAMETER :: FRAC2Aitken=0.25 ! Fraction of modal mass in Aitken mode - applied globally to each species + REAL(kind_chem), PARAMETER :: FRAC2Aitken=0.1 ! Fraction of modal mass in Aitken mode - applied globally to each species + real(kind_chem), DIMENSION (ndust), PARAMETER ::distr_dust=(/1.074D-1,1.012D-1,2.078D-1,4.817D-1,1.019D-1/) !lzhang ! 7/21/09 SAM variables needed to convert GOCART sectional dust and seasalt to MOZAIC sections - real(kind_chem) dgnum, dhi, dlo, xlo, xhi, dxbin, relh_frc - real(kind_chem) dlo_sectm(nbin_o), dhi_sectm(nbin_o) - integer, parameter :: nbin_omoz=8 - real(kind_chem), save :: seasfrc_goc8bin(number_ss_bins,nbin_omoz) ! GOCART seasalt size distirbution - mass fracs in MOSAIC 8-bins - real(kind_chem), save :: dustfrc_goc8bin(ndust,nbin_omoz) ! GOCART dust size distribution - mass fracs in MOSAIC 8-bins - real(kind_chem), save :: ashfrc_goc8bin(4,nbin_omoz) ! ash size distibution - real(kind_chem) mass_bc1 , mass_bc2 , vol_bc2 , mass_bc1j , mass_bc2j, & + real(kind_chem) dgnum, dhi, dlo, xlo, xhi, dxbin, relh_frc + real(kind_chem) dlo_sectm(nbin_o), dhi_sectm(nbin_o) + integer, parameter :: nbin_omoz=8 + real(kind_chem), save :: seasfrc_goc8bin(number_ss_bins,nbin_omoz) ! GOCART seasalt size distirbution - mass fracs in MOSAIC 8-bins + real(kind_chem), save :: dustfrc_goc8bin(ndust,nbin_omoz) ! GOCART dust size distribution - mass fracs in MOSAIC 8-bins + real(kind_chem), save :: ashfrc_goc8bin(4,nbin_omoz) ! ash size distibution + real(kind_chem) mass_bc1 , mass_bc2 , vol_bc2 , mass_bc1j , mass_bc2j, & mass_bc1i , mass_bc2i , vol_soil - real(kind_chem) :: dlogoc, dhigoc - integer istop,pdust - integer, save :: kcall - data kcall / 0 / + real(kind_chem) :: dlogoc, dhigoc + integer istop,pdust + integer, save :: kcall + data kcall / 0 / ! ! real(kind_chem) sginin,sginia,sginic from module_data_sorgam.F -! +! ! Mass from modal distribution is divided into individual sections before ! being passed back into the Mie routine. ! * currently use the same size bins as 8 default MOSAIC size bins @@ -529,64 +529,64 @@ subroutine optical_prep_gocart(iprt,nbin_o, chem, alt,relhum, & dgmin=1.0e-07 ! in (cm) dtemp=dlo_um do isize=1,nbin_o - xdia_um(isize)=(dtemp+dtemp*2.0)/2.0 - dtemp=dtemp*2.0 + xdia_um(isize)=(dtemp+dtemp*2.0)/2.0 + dtemp=dtemp*2.0 enddo - if (kcall .eq. 0) then + if (kcall .eq. 0) then ! 7/21/09 SAM calculate sectional contributions from GOCART seasalt and dust - dlo = dlo_um*1.0e-6 - dhi = dhi_um*1.0e-6 - xlo = log( dlo ) - xhi = log( dhi ) - dxbin = (xhi - xlo)/nbin_o - do n = 1, nbin_o + dlo = dlo_um*1.0e-6 + dhi = dhi_um*1.0e-6 + xlo = log( dlo ) + xhi = log( dhi ) + dxbin = (xhi - xlo)/nbin_o + do n = 1, nbin_o dlo_sectm(n) = exp( xlo + dxbin*(n-1) ) dhi_sectm(n) = exp( xlo + dxbin*n ) - end do + end do ! Seasalt bin mass fractions - seasfrc_goc8bin=0. - do m =1, number_ss_bins ! loop over seasalt size bins - dlogoc = ra(m)*2.E-6 ! low diameter limit (m) - dhigoc = rb(m)*2.E-6 ! hi diameter limit (m) - do n = 1, nbin_o - seasfrc_goc8bin(m,n)=max(DBLE(0.),min(DBLE(dhi_sectm(n)),dhigoc)- & - max(dlogoc,DBLE(dlo_sectm(n))) )/(dhigoc-dlogoc) - end do - end do + seasfrc_goc8bin=0. + do m =1, number_ss_bins ! loop over seasalt size bins + dlogoc = ra(m)*2.E-6 ! low diameter limit (m) + dhigoc = rb(m)*2.E-6 ! hi diameter limit (m) + do n = 1, nbin_o + seasfrc_goc8bin(m,n)=max(DBLE(0.),min(DBLE(dhi_sectm(n)),dhigoc)- & + max(dlogoc,DBLE(dlo_sectm(n))) )/(dhigoc-dlogoc) + end do + end do ! Dust bin mass fractions - dustfrc_goc8bin=0. - !dlogoc=0.46*2.E-6 ! Begin lower dust bin, makes upper limit diam 20 micron diameter - do m =1, ndust ! loop over dust size bins - !dhigoc = 4.*reff_dust(m)-dlogoc ! hi diameter limit (m) - dlogoc = 2 * lo_dust(m) ! low diameter limit (m) - dhigoc = 2 * up_dust(m) ! hi diameter limit (m) - do n = 1, nbin_o - dustfrc_goc8bin(m,n)=max(DBLE(0.),min(DBLE(dhi_sectm(n)),dhigoc)- & - max(dlogoc,DBLE(dlo_sectm(n))) )/(dhigoc-dlogoc) + dustfrc_goc8bin=0. + !dlogoc=0.46*2.E-6 ! Begin lower dust bin, makes upper limit diam 20 micron diameter + do m =1, ndust ! loop over dust size bins + !dhigoc = 4.*reff_dust(m)-dlogoc ! hi diameter limit (m) + dlogoc = 2 * lo_dust(m) ! low diameter limit (m) + dhigoc = 2 * up_dust(m) ! hi diameter limit (m) + do n = 1, nbin_o + dustfrc_goc8bin(m,n)=max(DBLE(0.),min(DBLE(dhi_sectm(n)),dhigoc)- & + max(dlogoc,DBLE(dlo_sectm(n))) )/(dhigoc-dlogoc) ! 7/25/11 Add in missing GOCART mass according to SAMUM 2006 Saharan experiment, Wienzierl et al., Tellus, 2008 ! Mass fraction for mass below 0.92 um diam (.135)is average of high and low envelope of size distributions ! relative to 0.92 - 3.6 micron GOCART mass bins (bin_1 + bin_2). Binning fractions for MOZAIC bins are ! average of high and low envelope size distribution data fractions. !lzhang - !if(m.le.2.and.n.eq.2)dustfrc_goc8bin(m,n)=dustfrc_goc8bin(m,n)+.135*.059 - !if(m.le.2.and.n.eq.3)dustfrc_goc8bin(m,n)=dustfrc_goc8bin(m,n)+.135*.167 - !if(m.le.2.and.n.eq.4)dustfrc_goc8bin(m,n)=dustfrc_goc8bin(m,n)+.135*.315 - !if(m.le.2.and.n.eq.5)dustfrc_goc8bin(m,n)=dustfrc_goc8bin(m,n)+.135*.458 - - if(m.le.2.and.n.eq.2)dustfrc_goc8bin(m,n)=dustfrc_goc8bin(m,n)+(distr_dust(1)+distr_dust(2))*.059 - if(m.le.2.and.n.eq.3)dustfrc_goc8bin(m,n)=dustfrc_goc8bin(m,n)+(distr_dust(1)+distr_dust(2))*.167 - if(m.le.2.and.n.eq.4)dustfrc_goc8bin(m,n)=dustfrc_goc8bin(m,n)+(distr_dust(1)+distr_dust(2))*.315 - if(m.le.2.and.n.eq.5)dustfrc_goc8bin(m,n)=dustfrc_goc8bin(m,n)+(distr_dust(1)+distr_dust(2))*.458 - end do - dlogoc=dhigoc - end do - kcall=kcall+1 + !if(m.le.2.and.n.eq.2)dustfrc_goc8bin(m,n)=dustfrc_goc8bin(m,n)+.135*.059 + !if(m.le.2.and.n.eq.3)dustfrc_goc8bin(m,n)=dustfrc_goc8bin(m,n)+.135*.167 + !if(m.le.2.and.n.eq.4)dustfrc_goc8bin(m,n)=dustfrc_goc8bin(m,n)+.135*.315 + !if(m.le.2.and.n.eq.5)dustfrc_goc8bin(m,n)=dustfrc_goc8bin(m,n)+.135*.458 + + if(m.le.2.and.n.eq.2)dustfrc_goc8bin(m,n)=dustfrc_goc8bin(m,n)+(distr_dust(1)+distr_dust(2))*.059 + if(m.le.2.and.n.eq.3)dustfrc_goc8bin(m,n)=dustfrc_goc8bin(m,n)+(distr_dust(1)+distr_dust(2))*.167 + if(m.le.2.and.n.eq.4)dustfrc_goc8bin(m,n)=dustfrc_goc8bin(m,n)+(distr_dust(1)+distr_dust(2))*.315 + if(m.le.2.and.n.eq.5)dustfrc_goc8bin(m,n)=dustfrc_goc8bin(m,n)+(distr_dust(1)+distr_dust(2))*.458 + end do + dlogoc=dhigoc + end do + kcall=kcall+1 ! ISTOP=1 ! IF(ISTOP.EQ.1)THEN ! STOP ! ENDIF - endif + endif ! ! Define refractive indicies ! * assume na and cl are the same as nacl @@ -599,18 +599,18 @@ subroutine optical_prep_gocart(iprt,nbin_o, chem, alt,relhum, & ! as was done previously in module_mosaic_therm.F ! do ns = 1, nswbands - swref_index_nh4so4(ns) = cmplx(refrsw_sulf(ns),refisw_sulf(ns)) - swref_index_oc(ns) = cmplx(refrsw_oc(ns),refisw_oc(ns)) - swref_index_dust(ns) = cmplx(refrsw_dust(ns),refisw_dust(ns)) - swref_index_nacl(ns) = cmplx(refrsw_seas(ns),refisw_seas(ns)) - swref_index_h2o(ns) = cmplx(refrwsw(ns),refiwsw(ns)) + swref_index_nh4so4(ns) = cmplx(refrsw_sulf(ns),refisw_sulf(ns)) + swref_index_oc(ns) = cmplx(refrsw_oc(ns),refisw_oc(ns)) + swref_index_dust(ns) = cmplx(refrsw_dust(ns),refisw_dust(ns)) + swref_index_nacl(ns) = cmplx(refrsw_seas(ns),refisw_seas(ns)) + swref_index_h2o(ns) = cmplx(refrwsw(ns),refiwsw(ns)) enddo do ns = 1, nlwbands - lwref_index_nh4so4(ns) = cmplx(refrlw_sulf(ns),refilw_sulf(ns)) - lwref_index_oc(ns) = cmplx(refrlw_oc(ns),refilw_oc(ns)) - lwref_index_dust(ns) = cmplx(refrlw_dust(ns),refilw_dust(ns)) - lwref_index_nacl(ns) = cmplx(refrlw_seas(ns),refilw_seas(ns)) - lwref_index_h2o(ns) = cmplx(refrwlw(ns),refiwlw(ns)) + lwref_index_nh4so4(ns) = cmplx(refrlw_sulf(ns),refilw_sulf(ns)) + lwref_index_oc(ns) = cmplx(refrlw_oc(ns),refilw_oc(ns)) + lwref_index_dust(ns) = cmplx(refrlw_dust(ns),refilw_dust(ns)) + lwref_index_nacl(ns) = cmplx(refrlw_seas(ns),refilw_seas(ns)) + lwref_index_h2o(ns) = cmplx(refrwlw(ns),refiwlw(ns)) enddo ! ref_index_nh4so4 = cmplx(1.52,0.) ref_index_lvcite = cmplx(1.50,0.) @@ -697,103 +697,103 @@ subroutine optical_prep_gocart(iprt,nbin_o, chem, alt,relhum, & ! * diameter - cm ! do j = jts, jte - do k = kts, kte - do i = its, ite - mass_so4i = 0.0 - mass_so4j = 0.0 - mass_no3i = 0.0 - mass_no3j = 0.0 - mass_nh4i = 0.0 - mass_nh4j = 0.0 - mass_oini = 0.0 - mass_oinj = 0.0 - mass_dusti = 0.0 - mass_dustj = 0.0 - mass_aro1i = 0.0 - mass_aro1j = 0.0 - mass_aro2i = 0.0 - mass_aro2j = 0.0 - mass_alk1i = 0.0 - mass_alk1j = 0.0 - mass_ole1i = 0.0 - mass_ole1j = 0.0 - mass_ba1i = 0.0 - mass_ba1j = 0.0 - mass_ba2i = 0.0 - mass_ba2j = 0.0 - mass_ba3i = 0.0 - mass_ba3j = 0.0 - mass_ba4i = 0.0 - mass_ba4j = 0.0 - mass_pai = 0.0 - mass_paj = 0.0 - mass_oci = 0.0 - mass_ocj = 0.0 - mass_bci = 0.0 - mass_bcj = 0.0 - mass_bc1i = 0.0 - mass_bc1j = 0.0 - mass_bc2i = 0.0 - mass_bc2j = 0.0 - mass_cai = 0.0 - mass_caj = 0.0 - mass_co3i = 0.0 - mass_co3j = 0.0 - mass_nai = 0.0 - mass_naj = 0.0 - mass_cli = 0.0 - mass_clj = 0.0 - mass_msai = 0.0 - mass_msaj = 0.0 - mass_nai = 0.0 - mass_naj = 0.0 - mass_cli = 0.0 - mass_clj = 0.0 - mass_h2oi = 0.0 - mass_h2oj = 0.0 - mass_antha = 0.0 - mass_seas = 0.0 - mass_soil = 0.0 - mass_cl = 0.0 - mass_na = 0.0 - mass_msa = 0.0 + do k = kts, kte + do i = its, ite + mass_so4i = 0.0 + mass_so4j = 0.0 + mass_no3i = 0.0 + mass_no3j = 0.0 + mass_nh4i = 0.0 + mass_nh4j = 0.0 + mass_oini = 0.0 + mass_oinj = 0.0 + mass_dusti = 0.0 + mass_dustj = 0.0 + mass_aro1i = 0.0 + mass_aro1j = 0.0 + mass_aro2i = 0.0 + mass_aro2j = 0.0 + mass_alk1i = 0.0 + mass_alk1j = 0.0 + mass_ole1i = 0.0 + mass_ole1j = 0.0 + mass_ba1i = 0.0 + mass_ba1j = 0.0 + mass_ba2i = 0.0 + mass_ba2j = 0.0 + mass_ba3i = 0.0 + mass_ba3j = 0.0 + mass_ba4i = 0.0 + mass_ba4j = 0.0 + mass_pai = 0.0 + mass_paj = 0.0 + mass_oci = 0.0 + mass_ocj = 0.0 + mass_bci = 0.0 + mass_bcj = 0.0 + mass_bc1i = 0.0 + mass_bc1j = 0.0 + mass_bc2i = 0.0 + mass_bc2j = 0.0 + mass_cai = 0.0 + mass_caj = 0.0 + mass_co3i = 0.0 + mass_co3j = 0.0 + mass_nai = 0.0 + mass_naj = 0.0 + mass_cli = 0.0 + mass_clj = 0.0 + mass_msai = 0.0 + mass_msaj = 0.0 + mass_nai = 0.0 + mass_naj = 0.0 + mass_cli = 0.0 + mass_clj = 0.0 + mass_h2oi = 0.0 + mass_h2oj = 0.0 + mass_antha = 0.0 + mass_seas = 0.0 + mass_soil = 0.0 + mass_cl = 0.0 + mass_na = 0.0 + mass_msa = 0.0 ! convert ug / kg dry air to g / cc air - conv1a = (1.0/alt(i,k,j)) * 1.0e-12 + conv1a = (1.0/alt(i,k,j)) * 1.0e-12 ! convert # / kg dry air to # / cc air - conv1b = (1.0/alt(i,k,j)) * 1.0e-6 + conv1b = (1.0/alt(i,k,j)) * 1.0e-6 ! convert ppmv sulfate (and coincidentally MSA) to g / cc air - !lzhang conv1sulf = (1.0/alt(i,k,j)) * 1.0e-9 * 96./28.97 - conv1sulf = (1.0/alt(i,k,j)) * 1.0e-9 * mw_so4_aer / mwdry * 2.5 + !lzhang conv1sulf = (1.0/alt(i,k,j)) * 1.0e-9 * 96./28.97 + conv1sulf = (1.0/alt(i,k,j)) * 1.0e-9 * mw_so4_aer / mwdry * 2.5 ! Accumulation mode... ! SAM 7/18/09 - Put fraction of GOCART sulfate, organic, black carbon masses into modal accumulation mode - mass_oinj = (1.-FRAC2Aitken)*(chem(i,k,j,p_p25)+chem(i,k,j,p_p10))*conv1a - mass_so4j= (1.-FRAC2Aitken)*chem(i,k,j,p_sulf)*conv1sulf - !mass_nh4j= (1.-FRAC2Aitken)*chem(i,k,j,p_sulf)*conv1sulf*(nh4_mfac-1.) - mass_nh4j= (1.-FRAC2Aitken)*chem(i,k,j,p_sulf)*conv1sulf*0.6 !lzhang - mass_no3j= (1.-FRAC2Aitken)*chem(i,k,j,p_sulf)*conv1sulf*0.76 !lzhang - mass_aro1j= (1.-FRAC2Aitken)*chem(i,k,j,p_oc1)*conv1a*oc_mfac - mass_aro2j= (1.-FRAC2Aitken)*chem(i,k,j,p_oc2)*conv1a*oc_mfac - mass_bc1j= (1.-FRAC2Aitken)*chem(i,k,j,p_bc1)*conv1a - mass_bc2j= (1.-FRAC2Aitken)*chem(i,k,j,p_bc2)*conv1a - mass_bcj= mass_bc1j + mass_bc2j - mass_msaj= (1.-FRAC2Aitken)*chem(i,k,j,p_msa)*conv1sulf - mass_antha= chem(i,k,j,p_p10)*conv1a + mass_oinj = (1.-FRAC2Aitken)*(chem(i,k,j,p_p25)+chem(i,k,j,p_p10))*conv1a + mass_so4j= (1.-FRAC2Aitken)*chem(i,k,j,p_sulf)*conv1sulf + !mass_nh4j= (1.-FRAC2Aitken)*chem(i,k,j,p_sulf)*conv1sulf*(nh4_mfac-1.) + mass_nh4j= (1.-FRAC2Aitken)*chem(i,k,j,p_sulf)*conv1sulf*0.6 !lzhang + mass_no3j= (1.-FRAC2Aitken)*chem(i,k,j,p_sulf)*conv1sulf*0.76 !lzhang + mass_aro1j= (1.-FRAC2Aitken)*chem(i,k,j,p_oc1)*conv1a*oc_mfac + mass_aro2j= (1.-FRAC2Aitken)*chem(i,k,j,p_oc2)*conv1a*oc_mfac + mass_bc1j= (1.-FRAC2Aitken)*chem(i,k,j,p_bc1)*conv1a + mass_bc2j= (1.-FRAC2Aitken)*chem(i,k,j,p_bc2)*conv1a + mass_bcj= mass_bc1j + mass_bc2j + mass_msaj= (1.-FRAC2Aitken)*chem(i,k,j,p_msa)*conv1sulf + mass_antha= chem(i,k,j,p_p10)*conv1a ! Aitken mode... ! SAM 7/18/09 - Put fraction of GOCART sulfate, organic, black carbon masses into modal Aitken mode - mass_oini = FRAC2Aitken*(chem(i,k,j,p_p25)+chem(i,k,j,p_p10))*conv1a - mass_so4i= FRAC2Aitken*chem(i,k,j,p_sulf)*conv1sulf - !lzhang mass_nh4i= FRAC2Aitken*chem(i,k,j,p_sulf)*conv1sulf*(nh4_mfac-1.) - mass_nh4i= FRAC2Aitken*chem(i,k,j,p_sulf)*conv1sulf*0.6 !lzhang - mass_no3i= FRAC2Aitken*chem(i,k,j,p_sulf)*conv1sulf*0.76 !lzhang - mass_aro1i= FRAC2Aitken*chem(i,k,j,p_oc1)*conv1a*oc_mfac - mass_aro2i= FRAC2Aitken*chem(i,k,j,p_oc2)*conv1a*oc_mfac - mass_bc1i= FRAC2Aitken*chem(i,k,j,p_bc1)*conv1a - mass_bc2i= FRAC2Aitken*chem(i,k,j,p_bc2)*conv1a - mass_bci= mass_bc1i + mass_bc2i - mass_msai= FRAC2Aitken*chem(i,k,j,p_msa)*conv1sulf + mass_oini = FRAC2Aitken*(chem(i,k,j,p_p25)+chem(i,k,j,p_p10))*conv1a + mass_so4i= FRAC2Aitken*chem(i,k,j,p_sulf)*conv1sulf + !lzhang mass_nh4i= FRAC2Aitken*chem(i,k,j,p_sulf)*conv1sulf*(nh4_mfac-1.) + mass_nh4i= FRAC2Aitken*chem(i,k,j,p_sulf)*conv1sulf*0.6 !lzhang + mass_no3i= FRAC2Aitken*chem(i,k,j,p_sulf)*conv1sulf*0.76 !lzhang + mass_aro1i= FRAC2Aitken*chem(i,k,j,p_oc1)*conv1a*oc_mfac + mass_aro2i= FRAC2Aitken*chem(i,k,j,p_oc2)*conv1a*oc_mfac + mass_bc1i= FRAC2Aitken*chem(i,k,j,p_bc1)*conv1a + mass_bc2i= FRAC2Aitken*chem(i,k,j,p_bc2)*conv1a + mass_bci= mass_bc1i + mass_bc2i + mass_msai= FRAC2Aitken*chem(i,k,j,p_msa)*conv1sulf ! ! Now divide mass into sections which is done by sect02: @@ -804,363 +804,363 @@ subroutine optical_prep_gocart(iprt,nbin_o, chem, alt,relhum, & ! * pass in generic mass of 1.0 just to get a percentage distribution of mass among bins ! !! ss1=alog(sginin) -!! ss2=exp(ss1*ss1*36.0/8.0) +!! ss2=exp(ss1*ss1*36.0/8.0) !! ss3=(sixpi*vol_ai/(num_ai*ss2))**0.3333333 !! dgnum_um=amax1(dgmin,ss3)*1.0e+04 - dgnum_um=dginin*1.E6 - call sect02(dgnum_um,sginin,drydens,iflag,duma,nbin_o,dlo_um,dhi_um, & - xnum_secti,xmas_secti) + dgnum_um=dginin*1.E6 + call sect02(dgnum_um,sginin,drydens,iflag,duma,nbin_o,dlo_um,dhi_um, & + xnum_secti,xmas_secti) !! ss1=alog(sginia) -!! ss2=exp(ss1*ss1*36.0/8.0) +!! ss2=exp(ss1*ss1*36.0/8.0) !! ss3=(sixpi*vol_aj/(num_aj*ss2))**0.3333333 !! dgnum_um=amax1(dgmin,ss3)*1.0e+04 - dgnum_um=dginia*1.E6 - call sect02(dgnum_um,sginia,drydens,iflag,duma,nbin_o,dlo_um,dhi_um, & - xnum_sectj,xmas_sectj) + dgnum_um=dginia*1.E6 + call sect02(dgnum_um,sginia,drydens,iflag,duma,nbin_o,dlo_um,dhi_um, & + xnum_sectj,xmas_sectj) !! ss1=alog(sginic) -!! ss2=exp(ss1*ss1*36.0/8.0) +!! ss2=exp(ss1*ss1*36.0/8.0) !! ss3=(sixpi*vol_ac/(num_ac*ss2))**0.3333333 - dgnum_um=dginic*1.E6 - call sect02(dgnum_um,sginic,drydens,iflag,duma,nbin_o,dlo_um,dhi_um, & - xnum_sectc,xmas_sectc) - - do isize = 1, nbin_o - xdia_cm(isize)=xdia_um(isize)*1.0e-04 - mass_so4 = mass_so4i*xmas_secti(isize) + mass_so4j*xmas_sectj(isize) - mass_no3 = mass_no3i*xmas_secti(isize) + mass_no3j*xmas_sectj(isize) - mass_nh4 = mass_nh4i*xmas_secti(isize) + mass_nh4j*xmas_sectj(isize) - mass_oin = mass_oini*xmas_secti(isize) + mass_oinj*xmas_sectj(isize) + & + dgnum_um=dginic*1.E6 + call sect02(dgnum_um,sginic,drydens,iflag,duma,nbin_o,dlo_um,dhi_um, & + xnum_sectc,xmas_sectc) + + do isize = 1, nbin_o + xdia_cm(isize)=xdia_um(isize)*1.0e-04 + mass_so4 = mass_so4i*xmas_secti(isize) + mass_so4j*xmas_sectj(isize) + mass_no3 = mass_no3i*xmas_secti(isize) + mass_no3j*xmas_sectj(isize) + mass_nh4 = mass_nh4i*xmas_secti(isize) + mass_nh4j*xmas_sectj(isize) + mass_oin = mass_oini*xmas_secti(isize) + mass_oinj*xmas_sectj(isize) + & mass_antha*xmas_sectc(isize) - if( p_msa .gt. 1) then - mass_msa = mass_msai*xmas_secti(isize) + mass_msaj*xmas_sectj(isize) - endif + if( p_msa .gt. 1) then + mass_msa = mass_msai*xmas_secti(isize) + mass_msaj*xmas_sectj(isize) + endif ! mass_soil*xmas_sectc(isize) + mass_antha*xmas_sectc(isize) ! GOCART OC mass_aero1 is hydrophobic, mass_aero2 is hydrophylic - mass_aro1 = mass_aro1j*xmas_sectj(isize) + mass_aro1i*xmas_secti(isize) - mass_aro2 = mass_aro2j*xmas_sectj(isize) + mass_aro2i*xmas_secti(isize) - mass_oc = mass_aro1 + mass_aro2 + mass_aro1 = mass_aro1j*xmas_sectj(isize) + mass_aro1i*xmas_secti(isize) + mass_aro2 = mass_aro2j*xmas_sectj(isize) + mass_aro2i*xmas_secti(isize) + mass_oc = mass_aro1 + mass_aro2 ! GOCART BC mass_bc1 is hydrophobic, mass_bc2 is hydrophylic - mass_bc1 = mass_bc1i*xmas_secti(isize) + mass_bc1j*xmas_sectj(isize) - mass_bc2 = mass_bc2i*xmas_secti(isize) + mass_bc2j*xmas_sectj(isize) - mass_bc = mass_bc1 + mass_bc2 + mass_bc1 = mass_bc1i*xmas_secti(isize) + mass_bc1j*xmas_sectj(isize) + mass_bc2 = mass_bc2i*xmas_secti(isize) + mass_bc2j*xmas_sectj(isize) + mass_bc = mass_bc1 + mass_bc2 ! Add in seasalt and dust from GOCART sectional distributions - n = 0 - mass_seas = 0.0 - !lzhang do m =p_seas_1, p_seas_4 ! loop over sea salt size bins less than 10 um diam - do m =p_seas_1, p_seas_5 ! loop over sea salt size bins less than 10 um diam - n = n+1 - mass_seas=mass_seas+seasfrc_goc8bin(n,isize)*chem(i,k,j,m) - end do - n = 0 - mass_soil = 0.0 - pdust=p_dust_1+ndust-2 -! -! for gocart very light, the dust bins have beenn changed. dust1 is old dust1 + + n = 0 + mass_seas = 0.0 + !lzhang do m =p_seas_1, p_seas_4 ! loop over sea salt size bins less than 10 um diam + do m =p_seas_1, p_seas_5 ! loop over sea salt size bins less than 10 um diam + n = n+1 + mass_seas=mass_seas+seasfrc_goc8bin(n,isize)*chem(i,k,j,m) + end do + n = 0 + mass_soil = 0.0 + pdust=p_dust_1+ndust-2 +! +! for gocart very light, the dust bins have beenn changed. dust1 is old dust1 + ! some of old dust2, while new dust2 is old dust3.....change this later ! - if(chem_opt == 304 .or. chem_opt == 316 .or. chem_opt == 317) pdust=p_dust_2 - !lzhang do m =p_dust_1, pdust ! loop over dust size bins less than 10 um diam - do m =p_dust_1, p_dust_5 ! loop over dust size bins less than 20 um diam - n = n+1 - mass_soil=mass_soil+dustfrc_goc8bin(n,isize)*chem(i,k,j,m)*1.5 - end do + if(chem_opt == 304 .or. chem_opt == 316 .or. chem_opt == 317) pdust=p_dust_2 + !lzhang do m =p_dust_1, pdust ! loop over dust size bins less than 10 um diam + do m =p_dust_1, p_dust_5 ! loop over dust size bins less than 20 um diam + n = n+1 + mass_soil=mass_soil+dustfrc_goc8bin(n,isize)*chem(i,k,j,m)*1.5 + end do ! volcanic ash - if(chem_opt == 317) then - n = 0 - do m =p_vash_4, p_vash_1,-1 - n = n+1 - mass_soil=mass_soil+ashfrc_goc8bin(n,isize)*chem(i,k,j,m) - end do - endif - - !mass_cl=mass_seas*conv1a*22.9897/58.4428 - !mass_na=mass_seas*conv1a*35.4270/58.4428 - mass_cl=mass_seas*conv1a*35.4270/58.4167 - mass_na=mass_seas*conv1a*22.9897/58.4167 - mass_soil=mass_soil*conv1a - vol_so4 = mass_so4 / dens_so4 - vol_no3 = mass_no3 / dens_no3 - vol_nh4 = mass_nh4 / dens_nh4 - vol_oin = mass_oin / dens_oin - vol_oc = mass_oc / dens_oc - vol_aro2 = mass_aro2 / dens_oc - vol_bc = mass_bc / dens_bc - vol_bc2 = mass_bc2 / dens_bc - vol_na = mass_na / dens_na - vol_cl = mass_cl / dens_cl - vol_soil = mass_soil / dens_dust - vol_msa = mass_msa / dens_msa + if(chem_opt == 317) then + n = 0 + do m =p_vash_4, p_vash_1,-1 + n = n+1 + mass_soil=mass_soil+ashfrc_goc8bin(n,isize)*chem(i,k,j,m) + end do + endif + + !mass_cl=mass_seas*conv1a*22.9897/58.4428 + !mass_na=mass_seas*conv1a*35.4270/58.4428 + mass_cl=mass_seas*conv1a*35.4270/58.4167 + mass_na=mass_seas*conv1a*22.9897/58.4167 + mass_soil=mass_soil*conv1a + vol_so4 = mass_so4 / dens_so4 + vol_no3 = mass_no3 / dens_no3 + vol_nh4 = mass_nh4 / dens_nh4 + vol_oin = mass_oin / dens_oin + vol_oc = mass_oc / dens_oc + vol_aro2 = mass_aro2 / dens_oc + vol_bc = mass_bc / dens_bc + vol_bc2 = mass_bc2 / dens_bc + vol_na = mass_na / dens_na + vol_cl = mass_cl / dens_cl + vol_soil = mass_soil / dens_dust + vol_msa = mass_msa / dens_msa ! vol_h2o = mass_h2o / dens_h2o ! 7/23/09 SAM calculate vol_h2o from kappas in Petters and Kreidenweis ACP, 2007, vol. 7, 1961-1971. -! Their kappas are the hygroscopicities used in Abdul-Razzak and Ghan, 2004, JGR, V105, p. 6837-6844. +! Their kappas are the hygroscopicities used in Abdul-Razzak and Ghan, 2004, JGR, V105, p. 6837-6844. ! These kappas are defined in module_data_sorgam and module_data_mosaic_asect. ! Note that hygroscopicities are at 298K and specific surface tension - further refinement could ! include temperature dependence in Petters and Kreidenweis ! Also, for hygroscopic BC part, assume kappa of OC (how can BC be hydrophylic?) - relh_frc=amin1(.9,relhum(i,k,j)) !0.8 ! Put in fractional relative humidity, max of .9, here + relh_frc=amin1(.9,relhum(i,k,j)) !0.8 ! Put in fractional relative humidity, max of .9, here vol_h2o = vol_so4*hygro_so4_aer + vol_aro2*hygro_oc_aer + & - vol_nh4*hygro_nh4_aer + & - vol_cl*hygro_cl_aer + vol_na*hygro_na_aer + vol_msa*hygro_msa_aer + & - vol_oin*hygro_oin_aer + vol_bc2*hygro_oc_aer + vol_soil*hygro_dust_aer + vol_nh4*hygro_nh4_aer + & + vol_cl*hygro_cl_aer + vol_na*hygro_na_aer + vol_msa*hygro_msa_aer + & + vol_oin*hygro_oin_aer + vol_bc2*hygro_oc_aer + vol_soil*hygro_dust_aer vol_h2o = relh_frc*vol_h2o/(1.-relh_frc) mass_h2o = vol_h2o*dens_h2o - mass_dry_a = mass_so4 + mass_no3 + mass_nh4 + mass_oin + & - mass_oc + mass_bc + mass_na + mass_cl + & - mass_soil - mass_wet_a = mass_dry_a + mass_h2o - vol_dry_a = vol_so4 + vol_no3 + vol_nh4 + vol_oin + & - vol_oc + vol_bc + vol_na + vol_cl + & - vol_soil - vol_wet_a = vol_dry_a + vol_h2o - vol_shell = vol_wet_a - vol_bc - num_a = vol_wet_a / (0.52359877*xdia_cm(isize)*xdia_cm(isize)*xdia_cm(isize)) - - !shortwave - do ns=1,nswbands - ri_dum = (0.0,0.0) - ri_dum = (swref_index_nh4so4(ns) * mass_so4 / dens_so4) + & - (ref_index_nh4no3 * mass_no3 / dens_no3) + & - (ref_index_nh4no3 * mass_nh4 / dens_nh4) + & - (ref_index_oin * mass_oin / dens_oin) + & - (swref_index_dust(ns) * mass_soil / dens_dust) + & - (swref_index_oc(ns) * mass_oc / dens_oc) + & - (ref_index_bc * mass_bc / dens_bc) + & - (swref_index_nacl(ns) * mass_na / dens_na) + & - (swref_index_nacl(ns) * mass_cl / dens_cl) + & - (ref_index_msa * mass_msa / dens_msa) + & - (swref_index_h2o(ns) * mass_h2o / dens_h2o) + mass_dry_a = mass_so4 + mass_no3 + mass_nh4 + mass_oin + & + mass_oc + mass_bc + mass_na + mass_cl + & + mass_soil + mass_wet_a = mass_dry_a + mass_h2o + vol_dry_a = vol_so4 + vol_no3 + vol_nh4 + vol_oin + & + vol_oc + vol_bc + vol_na + vol_cl + & + vol_soil + vol_wet_a = vol_dry_a + vol_h2o + vol_shell = vol_wet_a - vol_bc + num_a = vol_wet_a / (0.52359877*xdia_cm(isize)*xdia_cm(isize)*xdia_cm(isize)) + + !shortwave + do ns=1,nswbands + ri_dum = (0.0,0.0) + ri_dum = (swref_index_nh4so4(ns) * mass_so4 / dens_so4) + & + (ref_index_nh4no3 * mass_no3 / dens_no3) + & + (ref_index_nh4no3 * mass_nh4 / dens_nh4) + & + (ref_index_oin * mass_oin / dens_oin) + & + (swref_index_dust(ns) * mass_soil / dens_dust) + & + (swref_index_oc(ns) * mass_oc / dens_oc) + & + (ref_index_bc * mass_bc / dens_bc) + & + (swref_index_nacl(ns) * mass_na / dens_na) + & + (swref_index_nacl(ns) * mass_cl / dens_cl) + & + (ref_index_msa * mass_msa / dens_msa) + & + (swref_index_h2o(ns) * mass_h2o / dens_h2o) ! ! for some reason MADE/SORGAM occasionally produces zero aerosols so ! need to add a check here to avoid divide by zero ! - IF(num_a .lt. 1.0e-20 .or. vol_wet_a .lt. 1.0e-20) then - dp_dry_a = xdia_cm(isize) - dp_wet_a = xdia_cm(isize) - dp_bc_a = xdia_cm(isize) - ri_ave_a = 0.0 - ri_dum = 0.0 - else - dp_dry_a = (1.90985*vol_dry_a/num_a)**0.3333333 - dp_wet_a = (1.90985*vol_wet_a/num_a)**0.3333333 - dp_bc_a = (1.90985*vol_bc/num_a)**0.3333333 - ri_ave_a = ri_dum/vol_wet_a - ri_dum = (swref_index_nh4so4(ns) * mass_so4 / dens_so4) + & - (ref_index_nh4no3 * mass_no3 / dens_no3) + & - (ref_index_nh4no3 * mass_nh4 / dens_nh4) + & - (ref_index_msa * mass_msa / dens_msa) + & - (ref_index_oin * mass_oin / dens_oin) + & - (swref_index_dust(ns) * mass_soil / dens_dust) + & - (swref_index_oc(ns) * mass_oc / dens_oc) + & - (swref_index_nacl(ns) * mass_na / dens_na) + & - (swref_index_nacl(ns) * mass_cl / dens_cl) + & - (swref_index_h2o(ns) * mass_h2o / dens_h2o) - endif - if(dp_wet_a/2.0 .lt. dlo_um*1.0e-4/2.0) then - swrefindx(i,k,j,isize,ns) = (1.5,0.0) - radius_wet(i,k,j,isize) =dlo_um*1.0e-4/2.0 - number_bin(i,k,j,isize) =num_a - radius_core(i,k,j,isize) =0.0 - swrefindx_core(i,k,j,isize,ns) = ref_index_bc - swrefindx_shell(i,k,j,isize,ns) = ref_index_oin - elseif(vol_shell .lt. 1.0e-20) then - swrefindx(i,k,j,isize,ns) = (1.5,0.0) - radius_wet(i,k,j,isize) =dlo_um*1.0e-4/2.0 - number_bin(i,k,j,isize) =num_a - radius_core(i,k,j,isize) =0.0 - swrefindx_core(i,k,j,isize,ns) = ref_index_bc - swrefindx_shell(i,k,j,isize,ns) = ref_index_oin - else - swrefindx(i,k,j,isize,ns) =ri_ave_a - radius_wet(i,k,j,isize) =dp_wet_a/2.0 - number_bin(i,k,j,isize) =num_a - radius_core(i,k,j,isize) =dp_bc_a/2.0 - swrefindx_core(i,k,j,isize,ns) =ref_index_bc - swrefindx_shell(i,k,j,isize,ns) =ri_dum/vol_shell - endif - enddo ! ns shortwave - - !longwave - do ns=1,nlwbands - ri_dum = (0.0,0.0) - ri_dum = (lwref_index_nh4so4(ns) * mass_so4 / dens_so4) + & - (ref_index_nh4no3 * mass_no3 / dens_no3) + & - (ref_index_nh4no3 * mass_nh4 / dens_nh4) + & - (ref_index_oin * mass_oin / dens_oin) + & - (lwref_index_dust(ns) * mass_soil / dens_dust) + & - (lwref_index_oc(ns) * mass_oc / dens_oc) + & - (ref_index_bc * mass_bc / dens_bc) + & - (lwref_index_nacl(ns) * mass_na / dens_na) + & - (lwref_index_nacl(ns) * mass_cl / dens_cl) + & - (ref_index_msa * mass_msa / dens_msa) + & - (lwref_index_h2o(ns) * mass_h2o / dens_h2o) + IF(num_a .lt. 1.0e-20 .or. vol_wet_a .lt. 1.0e-20) then + dp_dry_a = xdia_cm(isize) + dp_wet_a = xdia_cm(isize) + dp_bc_a = xdia_cm(isize) + ri_ave_a = 0.0 + ri_dum = 0.0 + else + dp_dry_a = (1.90985*vol_dry_a/num_a)**0.3333333 + dp_wet_a = (1.90985*vol_wet_a/num_a)**0.3333333 + dp_bc_a = (1.90985*vol_bc/num_a)**0.3333333 + ri_ave_a = ri_dum/vol_wet_a + ri_dum = (swref_index_nh4so4(ns) * mass_so4 / dens_so4) + & + (ref_index_nh4no3 * mass_no3 / dens_no3) + & + (ref_index_nh4no3 * mass_nh4 / dens_nh4) + & + (ref_index_msa * mass_msa / dens_msa) + & + (ref_index_oin * mass_oin / dens_oin) + & + (swref_index_dust(ns) * mass_soil / dens_dust) + & + (swref_index_oc(ns) * mass_oc / dens_oc) + & + (swref_index_nacl(ns) * mass_na / dens_na) + & + (swref_index_nacl(ns) * mass_cl / dens_cl) + & + (swref_index_h2o(ns) * mass_h2o / dens_h2o) + endif + if(dp_wet_a/2.0 .lt. dlo_um*1.0e-4/2.0) then + swrefindx(i,k,j,isize,ns) = (1.5,0.0) + radius_wet(i,k,j,isize) =dlo_um*1.0e-4/2.0 + number_bin(i,k,j,isize) =num_a + radius_core(i,k,j,isize) =0.0 + swrefindx_core(i,k,j,isize,ns) = ref_index_bc + swrefindx_shell(i,k,j,isize,ns) = ref_index_oin + elseif(vol_shell .lt. 1.0e-20) then + swrefindx(i,k,j,isize,ns) = (1.5,0.0) + radius_wet(i,k,j,isize) =dlo_um*1.0e-4/2.0 + number_bin(i,k,j,isize) =num_a + radius_core(i,k,j,isize) =0.0 + swrefindx_core(i,k,j,isize,ns) = ref_index_bc + swrefindx_shell(i,k,j,isize,ns) = ref_index_oin + else + swrefindx(i,k,j,isize,ns) =ri_ave_a + radius_wet(i,k,j,isize) =dp_wet_a/2.0 + number_bin(i,k,j,isize) =num_a + radius_core(i,k,j,isize) =dp_bc_a/2.0 + swrefindx_core(i,k,j,isize,ns) =ref_index_bc + swrefindx_shell(i,k,j,isize,ns) =ri_dum/vol_shell + endif + enddo ! ns shortwave + + !longwave + do ns=1,nlwbands + ri_dum = (0.0,0.0) + ri_dum = (lwref_index_nh4so4(ns) * mass_so4 / dens_so4) + & + (ref_index_nh4no3 * mass_no3 / dens_no3) + & + (ref_index_nh4no3 * mass_nh4 / dens_nh4) + & + (ref_index_oin * mass_oin / dens_oin) + & + (lwref_index_dust(ns) * mass_soil / dens_dust) + & + (lwref_index_oc(ns) * mass_oc / dens_oc) + & + (ref_index_bc * mass_bc / dens_bc) + & + (lwref_index_nacl(ns) * mass_na / dens_na) + & + (lwref_index_nacl(ns) * mass_cl / dens_cl) + & + (ref_index_msa * mass_msa / dens_msa) + & + (lwref_index_h2o(ns) * mass_h2o / dens_h2o) ! ! for some reason MADE/SORGAM occasionally produces zero aerosols so ! need to add a check here to avoid divide by zero ! - IF(num_a .lt. 1.0e-20 .or. vol_wet_a .lt. 1.0e-20) then - dp_dry_a = xdia_cm(isize) - dp_wet_a = xdia_cm(isize) - dp_bc_a = xdia_cm(isize) - ri_ave_a = 0.0 - ri_dum = 0.0 - else - dp_dry_a = (1.90985*vol_dry_a/num_a)**0.3333333 - dp_wet_a = (1.90985*vol_wet_a/num_a)**0.3333333 - dp_bc_a = (1.90985*vol_bc/num_a)**0.3333333 - ri_ave_a = ri_dum/vol_wet_a - ri_dum = (lwref_index_nh4so4(ns) * mass_so4 / dens_so4) + & - (ref_index_nh4no3 * mass_no3 / dens_no3) + & - (ref_index_nh4no3 * mass_nh4 / dens_nh4) + & - (ref_index_oin * mass_oin / dens_oin) + & - (lwref_index_dust(ns) * mass_soil / dens_dust) + & - (lwref_index_oc(ns) * mass_oc / dens_oc) + & - (lwref_index_nacl(ns) * mass_na / dens_na) + & - (lwref_index_nacl(ns) * mass_cl / dens_cl) + & - (lwref_index_h2o(ns) * mass_h2o / dens_h2o) - endif - if(dp_wet_a/2.0 .lt. dlo_um*1.0e-4/2.0) then - lwrefindx(i,k,j,isize,ns) = (1.5,0.0) - radius_wet(i,k,j,isize) =dlo_um*1.0e-4/2.0 - number_bin(i,k,j,isize) =num_a - radius_core(i,k,j,isize) =0.0 - lwrefindx_core(i,k,j,isize,ns) = ref_index_bc - lwrefindx_shell(i,k,j,isize,ns) = ref_index_oin - elseif(vol_shell .lt. 1.0e-20) then - lwrefindx(i,k,j,isize,ns) = (1.5,0.0) - radius_wet(i,k,j,isize) =dlo_um*1.0e-4/2.0 - number_bin(i,k,j,isize) =num_a - radius_core(i,k,j,isize) =0.0 - lwrefindx_core(i,k,j,isize,ns) = ref_index_bc - lwrefindx_shell(i,k,j,isize,ns) = ref_index_oin - else - lwrefindx(i,k,j,isize,ns) =ri_ave_a - radius_wet(i,k,j,isize) =dp_wet_a/2.0 - number_bin(i,k,j,isize) =num_a - radius_core(i,k,j,isize) =dp_bc_a/2.0 - lwrefindx_core(i,k,j,isize,ns) =ref_index_bc - lwrefindx_shell(i,k,j,isize,ns) =ri_dum/vol_shell - endif - enddo ! ns longwave + IF(num_a .lt. 1.0e-20 .or. vol_wet_a .lt. 1.0e-20) then + dp_dry_a = xdia_cm(isize) + dp_wet_a = xdia_cm(isize) + dp_bc_a = xdia_cm(isize) + ri_ave_a = 0.0 + ri_dum = 0.0 + else + dp_dry_a = (1.90985*vol_dry_a/num_a)**0.3333333 + dp_wet_a = (1.90985*vol_wet_a/num_a)**0.3333333 + dp_bc_a = (1.90985*vol_bc/num_a)**0.3333333 + ri_ave_a = ri_dum/vol_wet_a + ri_dum = (lwref_index_nh4so4(ns) * mass_so4 / dens_so4) + & + (ref_index_nh4no3 * mass_no3 / dens_no3) + & + (ref_index_nh4no3 * mass_nh4 / dens_nh4) + & + (ref_index_oin * mass_oin / dens_oin) + & + (lwref_index_dust(ns) * mass_soil / dens_dust) + & + (lwref_index_oc(ns) * mass_oc / dens_oc) + & + (lwref_index_nacl(ns) * mass_na / dens_na) + & + (lwref_index_nacl(ns) * mass_cl / dens_cl) + & + (lwref_index_h2o(ns) * mass_h2o / dens_h2o) + endif + if(dp_wet_a/2.0 .lt. dlo_um*1.0e-4/2.0) then + lwrefindx(i,k,j,isize,ns) = (1.5,0.0) + radius_wet(i,k,j,isize) =dlo_um*1.0e-4/2.0 + number_bin(i,k,j,isize) =num_a + radius_core(i,k,j,isize) =0.0 + lwrefindx_core(i,k,j,isize,ns) = ref_index_bc + lwrefindx_shell(i,k,j,isize,ns) = ref_index_oin + elseif(vol_shell .lt. 1.0e-20) then + lwrefindx(i,k,j,isize,ns) = (1.5,0.0) + radius_wet(i,k,j,isize) =dlo_um*1.0e-4/2.0 + number_bin(i,k,j,isize) =num_a + radius_core(i,k,j,isize) =0.0 + lwrefindx_core(i,k,j,isize,ns) = ref_index_bc + lwrefindx_shell(i,k,j,isize,ns) = ref_index_oin + else + lwrefindx(i,k,j,isize,ns) =ri_ave_a + radius_wet(i,k,j,isize) =dp_wet_a/2.0 + number_bin(i,k,j,isize) =num_a + radius_core(i,k,j,isize) =dp_bc_a/2.0 + lwrefindx_core(i,k,j,isize,ns) =ref_index_bc + lwrefindx_shell(i,k,j,isize,ns) =ri_dum/vol_shell + endif + enddo ! ns longwave ! refr=real(refindx(i,k,j,isize)) - enddo !isize - enddo !i - enddo !j + enddo !isize + enddo !i + enddo !j enddo !k return - end subroutine optical_prep_gocart + end subroutine optical_prep_gocart ! 03/07/2014 added by Paolo Tuccella -! It is a modification of optical_prep_modal subroutine for -! RACM_SOA_VBS_KPP aerosol model +! It is a modification of optical_prep_modal subroutine for +! RACM_SOA_VBS_KPP aerosol model ! This subroutine computes volume-averaged refractive index and wet radius -! needed +! needed ! by the mie calculations. Aerosol number is also passed into the mie ! calculations ! in terms of other units. ! - subroutine optical_prep_modal_soa_vbs(iprt,nbin_o, chem, alt, & - h2oai, h2oaj, radius_core,radius_wet, number_bin, & - swrefindx, swrefindx_core, swrefindx_shell, & - lwrefindx, lwrefindx_core, lwrefindx_shell, & - num_chem, ids,ide, jds,jde, kds,kde, & - ims,ime, jms,jme, kms,kme, & - its,ite, jts,jte, kts,kte ) + subroutine optical_prep_modal_soa_vbs(iprt,nbin_o, chem, alt, & + h2oai, h2oaj, radius_core,radius_wet, number_bin, & + swrefindx, swrefindx_core, swrefindx_shell, & + lwrefindx, lwrefindx_core, lwrefindx_shell, & + num_chem, ids,ide, jds,jde, kds,kde, & + ims,ime, jms,jme, kms,kme, & + its,ite, jts,jte, kts,kte ) ! ! USE chem_tracers_mod, only: param_first_scalar - USE catchem_config, only: param_first_scalar - USE aero_soa_vbs_data_mod -! - INTEGER, INTENT(IN ) :: its,ite, jts,jte, kts,kte, nbin_o - INTEGER, INTENT(IN ) :: ims,ime, jms,jme, kms,kme,num_chem - INTEGER, INTENT(IN ) :: ids,ide, jds,jde, kds,kde - integer, dimension( its:ite, jts:jte ) :: iprt - REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme, num_chem ), & + USE catchem_config, only: param_first_scalar + USE aero_soa_vbs_data_mod +! + INTEGER, INTENT(IN ) :: its,ite, jts,jte, kts,kte, nbin_o + INTEGER, INTENT(IN ) :: ims,ime, jms,jme, kms,kme,num_chem + INTEGER, INTENT(IN ) :: ids,ide, jds,jde, kds,kde + integer, dimension( its:ite, jts:jte ) :: iprt + REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme, num_chem ), & INTENT(IN ) :: chem - REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme ), & + REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme ), & INTENT(IN ) :: alt, h2oai, h2oaj - REAL(kind_chem), DIMENSION( its:ite, kts:kte, jts:jte, 1:nbin_o), & - INTENT(OUT ) :: & - radius_wet, number_bin, radius_core -COMPLEX, DIMENSION( its:ite, kts:kte, jts:jte,1:nbin_o,nswbands), & + REAL(kind_chem), DIMENSION( its:ite, kts:kte, jts:jte, 1:nbin_o), & + INTENT(OUT ) :: & + radius_wet, number_bin, radius_core + COMPLEX, DIMENSION( its:ite, kts:kte, jts:jte,1:nbin_o,nswbands), & INTENT(OUT ) :: swrefindx, swrefindx_core, swrefindx_shell - COMPLEX, DIMENSION( its:ite, kts:kte, jts:jte,1:nbin_o,nlwbands), & + COMPLEX, DIMENSION( its:ite, kts:kte, jts:jte,1:nbin_o,nlwbands), & INTENT(OUT ) :: lwrefindx, lwrefindx_core, lwrefindx_shell ! ! local variables ! - integer i, j, k, l, isize, itype, iphase - integer p1st - complex ref_index_lvcite , ref_index_nh4hso4 , & - ref_index_nh4msa , ref_index_nh4no3 , ref_index_nh4cl , & - ref_index_nano3 , ref_index_na2so4 , & - ref_index_na3hso4 , ref_index_nahso4 , ref_index_namsa , & - ref_index_caso4 , ref_index_camsa2 , ref_index_cano3 , & - ref_index_cacl2 , ref_index_caco3 , ref_index_h2so4 , & - ref_index_hhso4 , ref_index_hno3 , ref_index_hcl , & - ref_index_msa , ref_index_bc , & + integer i, j, k, l, isize, itype, iphase + integer p1st + complex ref_index_lvcite , ref_index_nh4hso4 , & + ref_index_nh4msa , ref_index_nh4no3 , ref_index_nh4cl , & + ref_index_nano3 , ref_index_na2so4 , & + ref_index_na3hso4 , ref_index_nahso4 , ref_index_namsa , & + ref_index_caso4 , ref_index_camsa2 , ref_index_cano3 , & + ref_index_cacl2 , ref_index_caco3 , ref_index_h2so4 , & + ref_index_hhso4 , ref_index_hno3 , ref_index_hcl , & + ref_index_msa , ref_index_bc , & ! ref_index_oin , ref_index_aro1 , ref_index_aro2 , & ! ref_index_alk1 , ref_index_ole1 , ref_index_api1 , & - ref_index_oin , ref_index_soa1 , ref_index_soa2 , & - ref_index_soa3 , ref_index_soa4 , & + ref_index_oin , ref_index_soa1 , ref_index_soa2 , & + ref_index_soa3 , ref_index_soa4 , & ! ref_index_api1 , & ! ref_index_api2 , ref_index_lim1 , ref_index_lim2 , & - ri_dum , ri_ave_a - COMPLEX, DIMENSION(nswbands) :: & ! now only 5 aerosols have wave-dependent refr - swref_index_oc , swref_index_dust , swref_index_nh4so4, swref_index_nacl,swref_index_h2o - COMPLEX, DIMENSION(nlwbands) :: & ! now only 5 aerosols have wave-dependent refr - lwref_index_oc , lwref_index_dust , lwref_index_nh4so4, lwref_index_nacl,lwref_index_h2o + ri_dum , ri_ave_a + COMPLEX, DIMENSION(nswbands) :: & ! now only 5 aerosols have wave-dependent refr + swref_index_oc , swref_index_dust , swref_index_nh4so4, swref_index_nacl,swref_index_h2o + COMPLEX, DIMENSION(nlwbands) :: & ! now only 5 aerosols have wave-dependent refr + lwref_index_oc , lwref_index_dust , lwref_index_nh4so4, lwref_index_nacl,lwref_index_h2o - real(kind_chem) dens_so4 , dens_no3 , dens_cl , dens_msa , dens_co3 , & + real(kind_chem) dens_so4 , dens_no3 , dens_cl , dens_msa , dens_co3 , & dens_nh4 , dens_na , dens_ca , dens_oin , dens_oc , & ! dens_bc , dens_aro1 , dens_aro2 , dens_alk1 , dens_ole1, & ! dens_bc , dens_soa1 , dens_soa2 , dens_soa3 , dens_soa4, & ! dens_api1 , dens_api2 , dens_lim1 , dens_lim2 , dens_h2o , & dens_bc , dens_h2o , dens_dust - real(kind_chem) mass_so4 , mass_no3 , mass_cl , mass_msa , mass_co3 , & + real(kind_chem) mass_so4 , mass_no3 , mass_cl , mass_msa , mass_co3 , & mass_nh4 , mass_na , mass_ca , mass_oin , mass_oc , & mass_bc , & ! mass_aro1 , mass_aro2 , mass_alk1 , mass_ole1, & ! mass_api1 , mass_api2 , mass_lim1 , mass_lim2 , mass_h2o , & mass_h2o , mass_dust - real(kind_chem) mass_so4i , mass_no3i , mass_cli , mass_msai , mass_co3i , & + real(kind_chem) mass_so4i , mass_no3i , mass_cli , mass_msai , mass_co3i , & mass_nh4i , mass_nai , mass_cai , mass_oini , mass_oci , & ! mass_bci , mass_aro1i, mass_aro2i, mass_alk1i, mass_ole1i , & ! mass_ba1i , mass_ba2i, mass_ba3i , mass_ba4i , mass_pai , & mass_bci , mass_asoa1i, mass_asoa2i, mass_asoa3i, mass_asoa4i , & mass_bsoa1i , mass_bsoa2i, mass_bsoa3i , mass_bsoa4i , mass_pai, & mass_h2oi , mass_dusti - real(kind_chem) mass_so4j , mass_no3j , mass_clj , mass_msaj , mass_co3j, & + real(kind_chem) mass_so4j , mass_no3j , mass_clj , mass_msaj , mass_co3j, & mass_nh4j , mass_naj , mass_caj , mass_oinj , mass_ocj , & ! mass_bcj , mass_aro1j, mass_aro2j, mass_alk1j, mass_ole1j, & ! mass_ba1j , mass_ba2j, mass_ba3j , mass_ba4j , mass_paj, & mass_bcj , mass_asoa1j, mass_asoa2j, mass_asoa3j, mass_asoa4j , & mass_bsoa1j , mass_bsoa2j, mass_bsoa3j , mass_bsoa4j , mass_paj, & mass_h2oj , mass_dustj - real(kind_chem) mass_antha, mass_seas, mass_soil - real(kind_chem) num_ai, num_aj, num_ac, vol_ai, vol_aj, vol_ac - real(kind_chem) vol_so4 , vol_no3 , vol_cl , vol_msa , vol_co3 , & + real(kind_chem) mass_antha, mass_seas, mass_soil + real(kind_chem) num_ai, num_aj, num_ac, vol_ai, vol_aj, vol_ac + real(kind_chem) vol_so4 , vol_no3 , vol_cl , vol_msa , vol_co3 , & vol_nh4 , vol_na , vol_ca , vol_oin , vol_oc , & ! vol_bc , vol_aro1 , vol_aro2 , vol_alk1 , vol_ole1 , & ! vol_api1 , vol_api2 , vol_lim1 , vol_lim2 , vol_h2o , & vol_bc , vol_h2o , vol_dust - real(kind_chem) conv1a, conv1b - real(kind_chem) mass_dry_a, mass_wet_a, vol_dry_a , vol_wet_a , vol_shell, & + real(kind_chem) conv1a, conv1b + real(kind_chem) mass_dry_a, mass_wet_a, vol_dry_a , vol_wet_a , vol_shell, & dp_dry_a , dp_wet_a , num_a , dp_bc_a - real(kind_chem) ifac, jfac, cfac - real(kind_chem) refr - integer ns - real(kind_chem) dgnum_um,drydens,duma,dlo_um,dhi_um,dgmin,sixpi,ss1,ss2,ss3,dtemp - integer iflag - real(kind_chem), dimension(1:nbin_o) :: xnum_secti,xnum_sectj,xnum_sectc - real(kind_chem), dimension(1:nbin_o) :: xmas_secti,xmas_sectj,xmas_sectc - real(kind_chem), dimension(1:nbin_o) :: xdia_um, xdia_cm + real(kind_chem) ifac, jfac, cfac + real(kind_chem) refr + integer ns + real(kind_chem) dgnum_um,drydens,duma,dlo_um,dhi_um,dgmin,sixpi,ss1,ss2,ss3,dtemp + integer iflag + real(kind_chem), dimension(1:nbin_o) :: xnum_secti,xnum_sectj,xnum_sectc + real(kind_chem), dimension(1:nbin_o) :: xmas_secti,xmas_sectj,xmas_sectc + real(kind_chem), dimension(1:nbin_o) :: xdia_um, xdia_cm ! ! real(kind_chem) sginin,sginia,sginic from module_data_sorgam.F -! +! ! Mass from modal distribution is divided into individual sections before ! being passed back into the Mie routine. ! * currently use the same size bins as 8 default MOSAIC size bins @@ -1179,8 +1179,8 @@ subroutine optical_prep_modal_soa_vbs(iprt,nbin_o, chem, alt, & dgmin=1.0e-07 ! in (cm) dtemp=dlo_um do isize=1,nbin_o - xdia_um(isize)=(dtemp+dtemp*2.0)/2.0 - dtemp=dtemp*2.0 + xdia_um(isize)=(dtemp+dtemp*2.0)/2.0 + dtemp=dtemp*2.0 enddo ! ! Define refractive indicies @@ -1194,18 +1194,18 @@ subroutine optical_prep_modal_soa_vbs(iprt,nbin_o, chem, alt, & ! as was done previously in module_mosaic_therm.F ! do ns = 1, nswbands - swref_index_nh4so4(ns) = cmplx(refrsw_sulf(ns),refisw_sulf(ns)) - swref_index_oc(ns) = cmplx(refrsw_oc(ns),refisw_oc(ns)) - swref_index_dust(ns) = cmplx(refrsw_dust(ns),refisw_dust(ns)) - swref_index_nacl(ns) = cmplx(refrsw_seas(ns),refisw_seas(ns)) - swref_index_h2o(ns) = cmplx(refrwsw(ns),refiwsw(ns)) + swref_index_nh4so4(ns) = cmplx(refrsw_sulf(ns),refisw_sulf(ns)) + swref_index_oc(ns) = cmplx(refrsw_oc(ns),refisw_oc(ns)) + swref_index_dust(ns) = cmplx(refrsw_dust(ns),refisw_dust(ns)) + swref_index_nacl(ns) = cmplx(refrsw_seas(ns),refisw_seas(ns)) + swref_index_h2o(ns) = cmplx(refrwsw(ns),refiwsw(ns)) enddo do ns = 1, nlwbands - lwref_index_nh4so4(ns) = cmplx(refrlw_sulf(ns),refilw_sulf(ns)) - lwref_index_oc(ns) = cmplx(refrlw_oc(ns),refilw_oc(ns)) - lwref_index_dust(ns) = cmplx(refrlw_dust(ns),refilw_dust(ns)) - lwref_index_nacl(ns) = cmplx(refrlw_seas(ns),refilw_seas(ns)) - lwref_index_h2o(ns) = cmplx(refrwlw(ns),refiwlw(ns)) + lwref_index_nh4so4(ns) = cmplx(refrlw_sulf(ns),refilw_sulf(ns)) + lwref_index_oc(ns) = cmplx(refrlw_oc(ns),refilw_oc(ns)) + lwref_index_dust(ns) = cmplx(refrlw_dust(ns),refilw_dust(ns)) + lwref_index_nacl(ns) = cmplx(refrlw_seas(ns),refilw_seas(ns)) + lwref_index_h2o(ns) = cmplx(refrwlw(ns),refiwlw(ns)) enddo ! ref_index_nh4so4 = cmplx(1.52,0.) @@ -1237,7 +1237,7 @@ subroutine optical_prep_modal_soa_vbs(iprt,nbin_o, chem, alt, & ! and Tech., 40:27-67. ! ref_index_bc = cmplx(1.82,0.74) old value ref_index_bc = cmplx(1.85,0.71) - ref_index_oin = cmplx(1.55,0.006) ! JCB, Feb. 20, 2008: "other inorganics" + ref_index_oin = cmplx(1.55,0.006) ! JCB, Feb. 20, 2008: "other inorganics" ! ref_index_dust = cmplx(1.55,0.003) ! czhao, this refractive index ! should be wavelength depedent ! ref_index_aro1 = cmplx(1.45,0.) @@ -1265,7 +1265,7 @@ subroutine optical_prep_modal_soa_vbs(iprt,nbin_o, chem, alt, & dens_nh4 = 1.8 ! used dens_co3 = 2.6 ! used dens_nh4 = 1.8 ! used - dens_na = 2.2 ! used + dens_na = 2.2 ! used dens_ca = 2.6 ! used dens_oin = 2.6 ! used dens_dust = 2.6 ! used @@ -1308,18 +1308,18 @@ subroutine optical_prep_modal_soa_vbs(iprt,nbin_o, chem, alt, & iphase=1 do j = jts, jte - do k = kts, kte - do i = its, ite - mass_so4i = 0.0 - mass_so4j = 0.0 - mass_no3i = 0.0 - mass_no3j = 0.0 - mass_nh4i = 0.0 - mass_nh4j = 0.0 - mass_oini = 0.0 - mass_oinj = 0.0 - mass_dusti = 0.0 - mass_dustj = 0.0 + do k = kts, kte + do i = its, ite + mass_so4i = 0.0 + mass_so4j = 0.0 + mass_no3i = 0.0 + mass_no3j = 0.0 + mass_nh4i = 0.0 + mass_nh4j = 0.0 + mass_oini = 0.0 + mass_oinj = 0.0 + mass_dusti = 0.0 + mass_dustj = 0.0 ! mass_aro1i = 0.0 ! mass_aro1j = 0.0 ! mass_aro2i = 0.0 @@ -1328,69 +1328,69 @@ subroutine optical_prep_modal_soa_vbs(iprt,nbin_o, chem, alt, & ! mass_alk1j = 0.0 ! mass_ole1i = 0.0 ! mass_ole1j = 0.0 - mass_asoa1i= 0.0 - mass_asoa1j= 0.0 - mass_asoa2i= 0.0 - mass_asoa2j= 0.0 - mass_asoa3i= 0.0 - mass_asoa3j= 0.0 - mass_asoa4i= 0.0 - mass_asoa4j= 0.0 - mass_bsoa1i = 0.0 - mass_bsoa1j = 0.0 - mass_bsoa2i = 0.0 - mass_bsoa2j = 0.0 - mass_bsoa3i = 0.0 - mass_bsoa3j = 0.0 - mass_bsoa4i = 0.0 - mass_bsoa4j = 0.0 - mass_pai = 0.0 - mass_paj = 0.0 - mass_oci = 0.0 - mass_ocj = 0.0 - mass_bci = 0.0 - mass_bcj = 0.0 - mass_cai = 0.0 - mass_caj = 0.0 - mass_co3i = 0.0 - mass_co3j = 0.0 - mass_nai = 0.0 - mass_naj = 0.0 - mass_cli = 0.0 - mass_clj = 0.0 - mass_msai = 0.0 - mass_msaj = 0.0 - mass_nai = 0.0 - mass_naj = 0.0 - mass_cli = 0.0 - mass_clj = 0.0 - mass_h2oi = 0.0 - mass_h2oj = 0.0 - mass_antha = 0.0 - mass_seas = 0.0 - mass_soil = 0.0 - vol_aj = 0.0 - vol_ai = 0.0 - vol_ac = 0.0 - num_aj = 0.0 - num_ai = 0.0 - num_ac = 0.0 + mass_asoa1i= 0.0 + mass_asoa1j= 0.0 + mass_asoa2i= 0.0 + mass_asoa2j= 0.0 + mass_asoa3i= 0.0 + mass_asoa3j= 0.0 + mass_asoa4i= 0.0 + mass_asoa4j= 0.0 + mass_bsoa1i = 0.0 + mass_bsoa1j = 0.0 + mass_bsoa2i = 0.0 + mass_bsoa2j = 0.0 + mass_bsoa3i = 0.0 + mass_bsoa3j = 0.0 + mass_bsoa4i = 0.0 + mass_bsoa4j = 0.0 + mass_pai = 0.0 + mass_paj = 0.0 + mass_oci = 0.0 + mass_ocj = 0.0 + mass_bci = 0.0 + mass_bcj = 0.0 + mass_cai = 0.0 + mass_caj = 0.0 + mass_co3i = 0.0 + mass_co3j = 0.0 + mass_nai = 0.0 + mass_naj = 0.0 + mass_cli = 0.0 + mass_clj = 0.0 + mass_msai = 0.0 + mass_msaj = 0.0 + mass_nai = 0.0 + mass_naj = 0.0 + mass_cli = 0.0 + mass_clj = 0.0 + mass_h2oi = 0.0 + mass_h2oj = 0.0 + mass_antha = 0.0 + mass_seas = 0.0 + mass_soil = 0.0 + vol_aj = 0.0 + vol_ai = 0.0 + vol_ac = 0.0 + num_aj = 0.0 + num_ai = 0.0 + num_ac = 0.0 ! convert ug / kg dry air to g / cc air - conv1a = (1.0/alt(i,k,j)) * 1.0e-12 + conv1a = (1.0/alt(i,k,j)) * 1.0e-12 ! convert # / kg dry air to # / cc air - conv1b = (1.0/alt(i,k,j)) * 1.0e-6 + conv1b = (1.0/alt(i,k,j)) * 1.0e-6 ! Accumulation mode... ! isize = 1 ; itype = 1 ! before march-2008 ordering - isize = 2 ; itype = 1 ! after march-2008 ordering - l=lptr_so4_aer(isize,itype,iphase) - if (l .ge. p1st) mass_so4j= chem(i,k,j,l)*conv1a - l=lptr_no3_aer(isize,itype,iphase) - if (l .ge. p1st) mass_no3j= chem(i,k,j,l)*conv1a - l=lptr_nh4_aer(isize,itype,iphase) - if (l .ge. p1st) mass_nh4j= chem(i,k,j,l)*conv1a - l=lptr_p25_aer(isize,itype,iphase) - if (l .ge. p1st) mass_oinj= chem(i,k,j,l)*conv1a + isize = 2 ; itype = 1 ! after march-2008 ordering + l=lptr_so4_aer(isize,itype,iphase) + if (l .ge. p1st) mass_so4j= chem(i,k,j,l)*conv1a + l=lptr_no3_aer(isize,itype,iphase) + if (l .ge. p1st) mass_no3j= chem(i,k,j,l)*conv1a + l=lptr_nh4_aer(isize,itype,iphase) + if (l .ge. p1st) mass_nh4j= chem(i,k,j,l)*conv1a + l=lptr_p25_aer(isize,itype,iphase) + if (l .ge. p1st) mass_oinj= chem(i,k,j,l)*conv1a !jdfcz l=lptr_dust_aer(isize,itype,iphase) !jdfcz if (l .ge. p1st) mass_dustj= chem(i,k,j,l)*conv1a ! l=lptr_orgaro1_aer(isize,itype,iphase) @@ -1409,47 +1409,47 @@ subroutine optical_prep_modal_soa_vbs(iprt,nbin_o, chem, alt, & ! if (l .ge. p1st) mass_ba3j= chem(i,k,j,l)*conv1a ! l=lptr_orgba4_aer(isize,itype,iphase) ! if (l .ge. p1st) mass_ba4j= chem(i,k,j,l)*conv1a - l=lptr_asoa1_aer(isize,itype,iphase) - if (l .ge. p1st) mass_asoa1j= chem(i,k,j,l)*conv1a - l=lptr_asoa2_aer(isize,itype,iphase) - if (l .ge. p1st) mass_asoa2j= chem(i,k,j,l)*conv1a - l=lptr_asoa3_aer(isize,itype,iphase) - if (l .ge. p1st) mass_asoa3j= chem(i,k,j,l)*conv1a - l=lptr_asoa4_aer(isize,itype,iphase) - if (l .ge. p1st) mass_asoa4j= chem(i,k,j,l)*conv1a - l=lptr_bsoa1_aer(isize,itype,iphase) - if (l .ge. p1st) mass_bsoa1j= chem(i,k,j,l)*conv1a - l=lptr_bsoa2_aer(isize,itype,iphase) - if (l .ge. p1st) mass_bsoa2j= chem(i,k,j,l)*conv1a - l=lptr_bsoa3_aer(isize,itype,iphase) - if (l .ge. p1st) mass_bsoa3j= chem(i,k,j,l)*conv1a - l=lptr_bsoa4_aer(isize,itype,iphase) - if (l .ge. p1st) mass_bsoa4j= chem(i,k,j,l)*conv1a - l=lptr_orgpa_aer(isize,itype,iphase) - if (l .ge. p1st) mass_paj= chem(i,k,j,l)*conv1a - l=lptr_ec_aer(isize,itype,iphase) - if (l .ge. p1st) mass_bcj= chem(i,k,j,l)*conv1a - l=lptr_na_aer(isize,itype,iphase) - if (l .ge. p1st) mass_naj= chem(i,k,j,l)*conv1a - l=lptr_cl_aer(isize,itype,iphase) - if (l .ge. p1st) mass_clj= chem(i,k,j,l)*conv1a - l=numptr_aer(isize,itype,iphase) - if (l .ge. p1st) num_aj= chem(i,k,j,l)*conv1b - mass_h2oj= h2oaj(i,k,j) * 1.0e-12 - mass_ocj=mass_asoa1j+mass_asoa2j+mass_asoa3j+mass_asoa4j+ & - mass_bsoa1j+mass_bsoa2j+mass_bsoa3j+mass_bsoa4j+mass_paj + l=lptr_asoa1_aer(isize,itype,iphase) + if (l .ge. p1st) mass_asoa1j= chem(i,k,j,l)*conv1a + l=lptr_asoa2_aer(isize,itype,iphase) + if (l .ge. p1st) mass_asoa2j= chem(i,k,j,l)*conv1a + l=lptr_asoa3_aer(isize,itype,iphase) + if (l .ge. p1st) mass_asoa3j= chem(i,k,j,l)*conv1a + l=lptr_asoa4_aer(isize,itype,iphase) + if (l .ge. p1st) mass_asoa4j= chem(i,k,j,l)*conv1a + l=lptr_bsoa1_aer(isize,itype,iphase) + if (l .ge. p1st) mass_bsoa1j= chem(i,k,j,l)*conv1a + l=lptr_bsoa2_aer(isize,itype,iphase) + if (l .ge. p1st) mass_bsoa2j= chem(i,k,j,l)*conv1a + l=lptr_bsoa3_aer(isize,itype,iphase) + if (l .ge. p1st) mass_bsoa3j= chem(i,k,j,l)*conv1a + l=lptr_bsoa4_aer(isize,itype,iphase) + if (l .ge. p1st) mass_bsoa4j= chem(i,k,j,l)*conv1a + l=lptr_orgpa_aer(isize,itype,iphase) + if (l .ge. p1st) mass_paj= chem(i,k,j,l)*conv1a + l=lptr_ec_aer(isize,itype,iphase) + if (l .ge. p1st) mass_bcj= chem(i,k,j,l)*conv1a + l=lptr_na_aer(isize,itype,iphase) + if (l .ge. p1st) mass_naj= chem(i,k,j,l)*conv1a + l=lptr_cl_aer(isize,itype,iphase) + if (l .ge. p1st) mass_clj= chem(i,k,j,l)*conv1a + l=numptr_aer(isize,itype,iphase) + if (l .ge. p1st) num_aj= chem(i,k,j,l)*conv1b + mass_h2oj= h2oaj(i,k,j) * 1.0e-12 + mass_ocj=mass_asoa1j+mass_asoa2j+mass_asoa3j+mass_asoa4j+ & + mass_bsoa1j+mass_bsoa2j+mass_bsoa3j+mass_bsoa4j+mass_paj ! Aitken mode... ! isize = 1 ; itype = 1 ! before march-2008 ordering - isize = 1 ; itype = 1 ! after march-2008 ordering - l=lptr_so4_aer(isize,itype,iphase) - if (l .ge. p1st) mass_so4i= chem(i,k,j,l)*conv1a - l=lptr_no3_aer(isize,itype,iphase) - if (l .ge. p1st) mass_no3i= chem(i,k,j,l)*conv1a - l=lptr_nh4_aer(isize,itype,iphase) - if (l .ge. p1st) mass_nh4i= chem(i,k,j,l)*conv1a - l=lptr_p25_aer(isize,itype,iphase) - if (l .ge. p1st) mass_oini= chem(i,k,j,l)*conv1a + isize = 1 ; itype = 1 ! after march-2008 ordering + l=lptr_so4_aer(isize,itype,iphase) + if (l .ge. p1st) mass_so4i= chem(i,k,j,l)*conv1a + l=lptr_no3_aer(isize,itype,iphase) + if (l .ge. p1st) mass_no3i= chem(i,k,j,l)*conv1a + l=lptr_nh4_aer(isize,itype,iphase) + if (l .ge. p1st) mass_nh4i= chem(i,k,j,l)*conv1a + l=lptr_p25_aer(isize,itype,iphase) + if (l .ge. p1st) mass_oini= chem(i,k,j,l)*conv1a !jdfcz l=lptr_dust_aer(isize,itype,iphase) !jdfcz if (l .ge. p1st) mass_dusti= chem(i,k,j,l)*conv1a ! l=lptr_orgaro1_aer(isize,itype,iphase) @@ -1468,74 +1468,74 @@ subroutine optical_prep_modal_soa_vbs(iprt,nbin_o, chem, alt, & ! if (l .ge. p1st) mass_ba3i= chem(i,k,j,l)*conv1a ! l=lptr_orgba4_aer(isize,itype,iphase) ! if (l .ge. p1st) mass_ba4i= chem(i,k,j,l)*conv1a - l=lptr_asoa1_aer(isize,itype,iphase) - if (l .ge. p1st) mass_asoa1i= chem(i,k,j,l)*conv1a - l=lptr_asoa2_aer(isize,itype,iphase) - if (l .ge. p1st) mass_asoa2i= chem(i,k,j,l)*conv1a - l=lptr_asoa3_aer(isize,itype,iphase) - if (l .ge. p1st) mass_asoa3i= chem(i,k,j,l)*conv1a - l=lptr_asoa4_aer(isize,itype,iphase) - if (l .ge. p1st) mass_asoa4i= chem(i,k,j,l)*conv1a - l=lptr_bsoa1_aer(isize,itype,iphase) - if (l .ge. p1st) mass_bsoa1i= chem(i,k,j,l)*conv1a - l=lptr_bsoa2_aer(isize,itype,iphase) - if (l .ge. p1st) mass_bsoa2i= chem(i,k,j,l)*conv1a - l=lptr_bsoa3_aer(isize,itype,iphase) - if (l .ge. p1st) mass_bsoa3i= chem(i,k,j,l)*conv1a - l=lptr_bsoa4_aer(isize,itype,iphase) - if (l .ge. p1st) mass_bsoa4i= chem(i,k,j,l)*conv1a - l=lptr_orgpa_aer(isize,itype,iphase) - if (l .ge. p1st) mass_pai= chem(i,k,j,l)*conv1a - l=lptr_ec_aer(isize,itype,iphase) - if (l .ge. p1st) mass_bci= chem(i,k,j,l)*conv1a - l=lptr_na_aer(isize,itype,iphase) - if (l .ge. p1st) mass_nai= chem(i,k,j,l)*conv1a - l=lptr_cl_aer(isize,itype,iphase) - if (l .ge. p1st) mass_cli= chem(i,k,j,l)*conv1a - l=numptr_aer(isize,itype,iphase) - if (l .ge. p1st) num_ai= chem(i,k,j,l)*conv1b - mass_h2oi= h2oai(i,k,j) * 1.0e-12 - mass_oci=mass_asoa1i+mass_asoa2i+mass_asoa3i+mass_asoa4i+ & - mass_bsoa1i+mass_bsoa2i+mass_bsoa3i+mass_bsoa4i+mass_pai + l=lptr_asoa1_aer(isize,itype,iphase) + if (l .ge. p1st) mass_asoa1i= chem(i,k,j,l)*conv1a + l=lptr_asoa2_aer(isize,itype,iphase) + if (l .ge. p1st) mass_asoa2i= chem(i,k,j,l)*conv1a + l=lptr_asoa3_aer(isize,itype,iphase) + if (l .ge. p1st) mass_asoa3i= chem(i,k,j,l)*conv1a + l=lptr_asoa4_aer(isize,itype,iphase) + if (l .ge. p1st) mass_asoa4i= chem(i,k,j,l)*conv1a + l=lptr_bsoa1_aer(isize,itype,iphase) + if (l .ge. p1st) mass_bsoa1i= chem(i,k,j,l)*conv1a + l=lptr_bsoa2_aer(isize,itype,iphase) + if (l .ge. p1st) mass_bsoa2i= chem(i,k,j,l)*conv1a + l=lptr_bsoa3_aer(isize,itype,iphase) + if (l .ge. p1st) mass_bsoa3i= chem(i,k,j,l)*conv1a + l=lptr_bsoa4_aer(isize,itype,iphase) + if (l .ge. p1st) mass_bsoa4i= chem(i,k,j,l)*conv1a + l=lptr_orgpa_aer(isize,itype,iphase) + if (l .ge. p1st) mass_pai= chem(i,k,j,l)*conv1a + l=lptr_ec_aer(isize,itype,iphase) + if (l .ge. p1st) mass_bci= chem(i,k,j,l)*conv1a + l=lptr_na_aer(isize,itype,iphase) + if (l .ge. p1st) mass_nai= chem(i,k,j,l)*conv1a + l=lptr_cl_aer(isize,itype,iphase) + if (l .ge. p1st) mass_cli= chem(i,k,j,l)*conv1a + l=numptr_aer(isize,itype,iphase) + if (l .ge. p1st) num_ai= chem(i,k,j,l)*conv1b + mass_h2oi= h2oai(i,k,j) * 1.0e-12 + mass_oci=mass_asoa1i+mass_asoa2i+mass_asoa3i+mass_asoa4i+ & + mass_bsoa1i+mass_bsoa2i+mass_bsoa3i+mass_bsoa4i+mass_pai ! Coarse mode... ! isize = 1 ; itype = 3 ! before march-2008 ordering - isize = 1 ; itype = 2 ! after march-2008 ordering - l=lptr_anth_aer(isize,itype,iphase) - if (l .ge. p1st) mass_antha= chem(i,k,j,l)*conv1a - l=lptr_seas_aer(isize,itype,iphase) - if (l .ge. p1st) mass_seas= chem(i,k,j,l)*conv1a - l=lptr_soil_aer(isize,itype,iphase) - if (l .ge. p1st) mass_soil= chem(i,k,j,l)*conv1a - l=numptr_aer(isize,itype,iphase) - if (l .ge. p1st) num_ac= chem(i,k,j,l)*conv1b - - - vol_ai = (mass_so4i/dens_so4) + (mass_no3i/dens_no3) + & - (mass_nh4i/dens_nh4) + (mass_oini/dens_oin) + & - (mass_asoa1i + mass_asoa2i + & + isize = 1 ; itype = 2 ! after march-2008 ordering + l=lptr_anth_aer(isize,itype,iphase) + if (l .ge. p1st) mass_antha= chem(i,k,j,l)*conv1a + l=lptr_seas_aer(isize,itype,iphase) + if (l .ge. p1st) mass_seas= chem(i,k,j,l)*conv1a + l=lptr_soil_aer(isize,itype,iphase) + if (l .ge. p1st) mass_soil= chem(i,k,j,l)*conv1a + l=numptr_aer(isize,itype,iphase) + if (l .ge. p1st) num_ac= chem(i,k,j,l)*conv1b + + + vol_ai = (mass_so4i/dens_so4) + (mass_no3i/dens_no3) + & + (mass_nh4i/dens_nh4) + (mass_oini/dens_oin) + & + (mass_asoa1i + mass_asoa2i + & mass_asoa3i + mass_asoa4i + & mass_bsoa1i + mass_bsoa2i + & mass_bsoa3i + mass_bsoa4i + & mass_pai)/dens_oc + (mass_bci/dens_bc) + & - (mass_nai/dens_na) + (mass_cli/dens_cl) + (mass_nai/dens_na) + (mass_cli/dens_cl) !jdfcz (mass_nai/dens_na)+(mass_cli/dens_cl) + & !jdfcz (mass_dusti/dens_dust) - vol_aj = (mass_so4j/dens_so4) + (mass_no3j/dens_no3) + & - (mass_nh4j/dens_nh4) + (mass_oinj/dens_oin) + & - (mass_asoa1j + mass_asoa2j + & + vol_aj = (mass_so4j/dens_so4) + (mass_no3j/dens_no3) + & + (mass_nh4j/dens_nh4) + (mass_oinj/dens_oin) + & + (mass_asoa1j + mass_asoa2j + & mass_asoa3j + mass_asoa4j + & mass_bsoa1j + mass_bsoa2j + & mass_bsoa3j + mass_bsoa4j + & mass_paj)/dens_oc + (mass_bcj/dens_bc) + & - (mass_naj/dens_na) + (mass_clj/dens_cl) -!jdfcz (mass_naj/dens_na)+(mass_clj/dens_cl) + & + (mass_naj/dens_na) + (mass_clj/dens_cl) +!jdfcz (mass_naj/dens_na)+(mass_clj/dens_cl) + & !jdfcz (mass_dustj/dens_dust) - vol_ac = (mass_antha/dens_oin)+ & - (mass_seas*(22.9897/58.4428)/dens_na)+ & - (mass_seas*(35.4270/58.4428)/dens_cl)+ & - (mass_soil/dens_dust) + vol_ac = (mass_antha/dens_oin)+ & + (mass_seas*(22.9897/58.4428)/dens_na)+ & + (mass_seas*(35.4270/58.4428)/dens_cl)+ & + (mass_soil/dens_dust) ! ! Now divide mass into sections which is done by sect02: ! * xmas_secti is for aiken mode @@ -1545,217 +1545,217 @@ subroutine optical_prep_modal_soa_vbs(iprt,nbin_o, chem, alt, & ! * pass in generic mass of 1.0 just to get a percentage distribution of mass ! among bins ! - ss1=alog(sginin) - ss2=exp(ss1*ss1*36.0/8.0) - ss3=(sixpi*vol_ai/(num_ai*ss2))**0.3333333 - dgnum_um=amax1(dgmin,ss3)*1.0e+04 - call sect02(dgnum_um,sginin,drydens,iflag,duma,nbin_o,dlo_um,dhi_um, & - xnum_secti,xmas_secti) - ss1=alog(sginia) - ss2=exp(ss1*ss1*36.0/8.0) - ss3=(sixpi*vol_aj/(num_aj*ss2))**0.3333333 - dgnum_um=amax1(dgmin,ss3)*1.0e+04 - call sect02(dgnum_um,sginia,drydens,iflag,duma,nbin_o,dlo_um,dhi_um, & - xnum_sectj,xmas_sectj) - ss1=alog(sginic) - ss2=exp(ss1*ss1*36.0/8.0) - ss3=(sixpi*vol_ac/(num_ac*ss2))**0.3333333 - dgnum_um=amax1(dgmin,ss3)*1.0e+04 - call sect02(dgnum_um,sginic,drydens,iflag,duma,nbin_o,dlo_um,dhi_um, & - xnum_sectc,xmas_sectc) - - do isize = 1, nbin_o - xdia_cm(isize)=xdia_um(isize)*1.0e-04 - mass_so4 = mass_so4i*xmas_secti(isize) + mass_so4j*xmas_sectj(isize) - mass_no3 = mass_no3i*xmas_secti(isize) + mass_no3j*xmas_sectj(isize) - mass_nh4 = mass_nh4i*xmas_secti(isize) + mass_nh4j*xmas_sectj(isize) - mass_oin = mass_oini*xmas_secti(isize) + mass_oinj*xmas_sectj(isize) + & + ss1=alog(sginin) + ss2=exp(ss1*ss1*36.0/8.0) + ss3=(sixpi*vol_ai/(num_ai*ss2))**0.3333333 + dgnum_um=amax1(dgmin,ss3)*1.0e+04 + call sect02(dgnum_um,sginin,drydens,iflag,duma,nbin_o,dlo_um,dhi_um, & + xnum_secti,xmas_secti) + ss1=alog(sginia) + ss2=exp(ss1*ss1*36.0/8.0) + ss3=(sixpi*vol_aj/(num_aj*ss2))**0.3333333 + dgnum_um=amax1(dgmin,ss3)*1.0e+04 + call sect02(dgnum_um,sginia,drydens,iflag,duma,nbin_o,dlo_um,dhi_um, & + xnum_sectj,xmas_sectj) + ss1=alog(sginic) + ss2=exp(ss1*ss1*36.0/8.0) + ss3=(sixpi*vol_ac/(num_ac*ss2))**0.3333333 + dgnum_um=amax1(dgmin,ss3)*1.0e+04 + call sect02(dgnum_um,sginic,drydens,iflag,duma,nbin_o,dlo_um,dhi_um, & + xnum_sectc,xmas_sectc) + + do isize = 1, nbin_o + xdia_cm(isize)=xdia_um(isize)*1.0e-04 + mass_so4 = mass_so4i*xmas_secti(isize) + mass_so4j*xmas_sectj(isize) + mass_no3 = mass_no3i*xmas_secti(isize) + mass_no3j*xmas_sectj(isize) + mass_nh4 = mass_nh4i*xmas_secti(isize) + mass_nh4j*xmas_sectj(isize) + mass_oin = mass_oini*xmas_secti(isize) + mass_oinj*xmas_sectj(isize) + & mass_antha*xmas_sectc(isize) !jdfcz mass_dust= mass_dusti*xmas_secti(isize) + mass_dustj*xmas_sectj(isize) !+ & !jdfcz mass_soil*xmas_sectc(isize) - !mass_oc = (mass_pai+mass_aro1i+mass_aro2i+mass_alk1i+mass_ole1i+ & - ! mass_ba1i+mass_ba2i+mass_ba3i+mass_ba4i)*xmas_secti(isize) - ! + & - ! (mass_paj+mass_aro1j+mass_aro2j+mass_alk1j+mass_ole1j+ & - ! mass_ba1j+mass_ba2j+mass_ba3j+mass_ba4j)*xmas_sectj(isize) - mass_oc = mass_oci*xmas_secti(isize) + mass_ocj*xmas_sectj(isize) - mass_bc = mass_bci*xmas_secti(isize) + mass_bcj*xmas_sectj(isize) - mass_na = mass_nai*xmas_secti(isize) + mass_naj*xmas_sectj(isize)+ & + !mass_oc = (mass_pai+mass_aro1i+mass_aro2i+mass_alk1i+mass_ole1i+ & + ! mass_ba1i+mass_ba2i+mass_ba3i+mass_ba4i)*xmas_secti(isize) + ! + & + ! (mass_paj+mass_aro1j+mass_aro2j+mass_alk1j+mass_ole1j+ & + ! mass_ba1j+mass_ba2j+mass_ba3j+mass_ba4j)*xmas_sectj(isize) + mass_oc = mass_oci*xmas_secti(isize) + mass_ocj*xmas_sectj(isize) + mass_bc = mass_bci*xmas_secti(isize) + mass_bcj*xmas_sectj(isize) + mass_na = mass_nai*xmas_secti(isize) + mass_naj*xmas_sectj(isize)+ & mass_seas*xmas_sectc(isize)*(22.9897/58.4428) - mass_cl = mass_cli*xmas_secti(isize) + mass_clj*xmas_sectj(isize)+ & + mass_cl = mass_cli*xmas_secti(isize) + mass_clj*xmas_sectj(isize)+ & mass_seas*xmas_sectc(isize)*(35.4270/58.4428) - mass_h2o = mass_h2oi*xmas_secti(isize) + mass_h2oj*xmas_sectj(isize) + mass_h2o = mass_h2oi*xmas_secti(isize) + mass_h2oj*xmas_sectj(isize) ! mass_h2o = 0.0 ! testing purposes only - vol_so4 = mass_so4 / dens_so4 - vol_no3 = mass_no3 / dens_no3 - vol_nh4 = mass_nh4 / dens_nh4 - vol_oin = mass_oin / dens_oin + vol_so4 = mass_so4 / dens_so4 + vol_no3 = mass_no3 / dens_no3 + vol_nh4 = mass_nh4 / dens_nh4 + vol_oin = mass_oin / dens_oin !jdfcz vol_dust = mass_dust / dens_dust - vol_oc = mass_oc / dens_oc - vol_bc = mass_bc / dens_bc - vol_na = mass_na / dens_na - vol_cl = mass_cl / dens_cl - vol_h2o = mass_h2o / dens_h2o + vol_oc = mass_oc / dens_oc + vol_bc = mass_bc / dens_bc + vol_na = mass_na / dens_na + vol_cl = mass_cl / dens_cl + vol_h2o = mass_h2o / dens_h2o - mass_dry_a = mass_so4 + mass_no3 + mass_nh4 + mass_oin + & + mass_dry_a = mass_so4 + mass_no3 + mass_nh4 + mass_oin + & !jdfcz mass_oc + mass_bc + mass_na + mass_cl + mass_dust - mass_oc + mass_bc + mass_na + mass_cl - mass_wet_a = mass_dry_a + mass_h2o - vol_dry_a = vol_so4 + vol_no3 + vol_nh4 + vol_oin + & + mass_oc + mass_bc + mass_na + mass_cl + mass_wet_a = mass_dry_a + mass_h2o + vol_dry_a = vol_so4 + vol_no3 + vol_nh4 + vol_oin + & !jdfcz vol_oc + vol_bc + vol_na + vol_cl + vol_dust - vol_oc + vol_bc + vol_na + vol_cl - vol_wet_a = vol_dry_a + vol_h2o - vol_shell = vol_wet_a - vol_bc - !num_a = vol_wet_a / - !(0.52359877*xdia_cm(isize)*xdia_cm(isize)*xdia_cm(isize)) - !czhao - num_a = num_ai*xnum_secti(isize)+num_aj*xnum_sectj(isize)+num_ac*xnum_sectc(isize) - - - !shortwave - do ns=1,nswbands - ri_dum = (0.0,0.0) - ri_dum = (swref_index_nh4so4(ns) * mass_so4 / dens_so4) + & - (ref_index_nh4no3 * mass_no3 / dens_no3) + & - (ref_index_nh4no3 * mass_nh4 / dens_nh4) + & + vol_oc + vol_bc + vol_na + vol_cl + vol_wet_a = vol_dry_a + vol_h2o + vol_shell = vol_wet_a - vol_bc + !num_a = vol_wet_a / + !(0.52359877*xdia_cm(isize)*xdia_cm(isize)*xdia_cm(isize)) + !czhao + num_a = num_ai*xnum_secti(isize)+num_aj*xnum_sectj(isize)+num_ac*xnum_sectc(isize) + + + !shortwave + do ns=1,nswbands + ri_dum = (0.0,0.0) + ri_dum = (swref_index_nh4so4(ns) * mass_so4 / dens_so4) + & + (ref_index_nh4no3 * mass_no3 / dens_no3) + & + (ref_index_nh4no3 * mass_nh4 / dens_nh4) + & !jdf (ref_index_oin * mass_oin / dens_oin) + & !jdfcz (swref_index_dust(ns) * mass_dust / dens_dust) + & - (swref_index_dust(ns) * mass_oin / dens_dust) + & - (swref_index_oc(ns) * mass_oc / dens_oc) + & - (ref_index_bc * mass_bc / dens_bc) + & + (swref_index_dust(ns) * mass_oin / dens_dust) + & + (swref_index_oc(ns) * mass_oc / dens_oc) + & + (ref_index_bc * mass_bc / dens_bc) + & -(swref_index_nacl(ns) * mass_na / dens_na) + & - (swref_index_nacl(ns) * mass_cl / dens_cl) + & - (swref_index_h2o(ns) * mass_h2o / dens_h2o) + (swref_index_nacl(ns) * mass_na / dens_na) + & + (swref_index_nacl(ns) * mass_cl / dens_cl) + & + (swref_index_h2o(ns) * mass_h2o / dens_h2o) ! ! for some reason MADE/SORGAM occasionally produces zero aerosols so ! need to add a check here to avoid divide by zero ! - IF(num_a .lt. 1.0e-20 .or. vol_wet_a .lt. 1.0e-20) then - dp_dry_a = xdia_cm(isize) - dp_wet_a = xdia_cm(isize) - dp_bc_a = xdia_cm(isize) - ri_ave_a = 0.0 - ri_dum = 0.0 - else - dp_dry_a = (1.90985*vol_dry_a/num_a)**0.3333333 - dp_wet_a = (1.90985*vol_wet_a/num_a)**0.3333333 - dp_bc_a = (1.90985*vol_bc/num_a)**0.3333333 - ri_ave_a = ri_dum/vol_wet_a - ri_dum = (swref_index_nh4so4(ns) * mass_so4 / dens_so4) + & - (ref_index_nh4no3 * mass_no3 / dens_no3) + & - (ref_index_nh4no3 * mass_nh4 / dens_nh4) + & + IF(num_a .lt. 1.0e-20 .or. vol_wet_a .lt. 1.0e-20) then + dp_dry_a = xdia_cm(isize) + dp_wet_a = xdia_cm(isize) + dp_bc_a = xdia_cm(isize) + ri_ave_a = 0.0 + ri_dum = 0.0 + else + dp_dry_a = (1.90985*vol_dry_a/num_a)**0.3333333 + dp_wet_a = (1.90985*vol_wet_a/num_a)**0.3333333 + dp_bc_a = (1.90985*vol_bc/num_a)**0.3333333 + ri_ave_a = ri_dum/vol_wet_a + ri_dum = (swref_index_nh4so4(ns) * mass_so4 / dens_so4) + & + (ref_index_nh4no3 * mass_no3 / dens_no3) + & + (ref_index_nh4no3 * mass_nh4 / dens_nh4) + & !jdf (ref_index_oin * mass_oin / dens_oin) + & !jdfcz (swref_index_dust(ns) * mass_dust / dens_dust) + & - (swref_index_dust(ns) * mass_oin / dens_dust) + & - (swref_index_oc(ns) * mass_oc / dens_oc) + & - (swref_index_nacl(ns) * mass_na / dens_na) + & - (swref_index_nacl(ns) * mass_cl / dens_cl) + & - (swref_index_h2o(ns) * mass_h2o / dens_h2o) - endif - if(dp_wet_a/2.0 .lt. dlo_um*1.0e-4/2.0) then - swrefindx(i,k,j,isize,ns) = (1.5,0.0) - radius_wet(i,k,j,isize) =dlo_um*1.0e-4/2.0 - number_bin(i,k,j,isize) =num_a - radius_core(i,k,j,isize) =0.0 - swrefindx_core(i,k,j,isize,ns) = ref_index_bc - swrefindx_shell(i,k,j,isize,ns) = ref_index_oin - elseif(num_a .lt. 1.e-20 .or. vol_shell .lt. 1.0e-20) then - swrefindx(i,k,j,isize,ns) = (1.5,0.0) - radius_wet(i,k,j,isize) =dlo_um*1.0e-4/2.0 - number_bin(i,k,j,isize) =num_a - radius_core(i,k,j,isize) =0.0 - swrefindx_core(i,k,j,isize,ns) = ref_index_bc - swrefindx_shell(i,k,j,isize,ns) = ref_index_oin - else - swrefindx(i,k,j,isize,ns) =ri_ave_a - radius_wet(i,k,j,isize) =dp_wet_a/2.0 - number_bin(i,k,j,isize) =num_a - radius_core(i,k,j,isize) =dp_bc_a/2.0 - swrefindx_core(i,k,j,isize,ns) =ref_index_bc - swrefindx_shell(i,k,j,isize,ns) =ri_dum/vol_shell - endif - enddo ! ns shortwave - - - !longwave - do ns=1,nlwbands - ri_dum = (0.0,0.0) - ri_dum = (lwref_index_nh4so4(ns) * mass_so4 / dens_so4) + & - (ref_index_nh4no3 * mass_no3 / dens_no3) + & - (ref_index_nh4no3 * mass_nh4 / dens_nh4) + & + (swref_index_dust(ns) * mass_oin / dens_dust) + & + (swref_index_oc(ns) * mass_oc / dens_oc) + & + (swref_index_nacl(ns) * mass_na / dens_na) + & + (swref_index_nacl(ns) * mass_cl / dens_cl) + & + (swref_index_h2o(ns) * mass_h2o / dens_h2o) + endif + if(dp_wet_a/2.0 .lt. dlo_um*1.0e-4/2.0) then + swrefindx(i,k,j,isize,ns) = (1.5,0.0) + radius_wet(i,k,j,isize) =dlo_um*1.0e-4/2.0 + number_bin(i,k,j,isize) =num_a + radius_core(i,k,j,isize) =0.0 + swrefindx_core(i,k,j,isize,ns) = ref_index_bc + swrefindx_shell(i,k,j,isize,ns) = ref_index_oin + elseif(num_a .lt. 1.e-20 .or. vol_shell .lt. 1.0e-20) then + swrefindx(i,k,j,isize,ns) = (1.5,0.0) + radius_wet(i,k,j,isize) =dlo_um*1.0e-4/2.0 + number_bin(i,k,j,isize) =num_a + radius_core(i,k,j,isize) =0.0 + swrefindx_core(i,k,j,isize,ns) = ref_index_bc + swrefindx_shell(i,k,j,isize,ns) = ref_index_oin + else + swrefindx(i,k,j,isize,ns) =ri_ave_a + radius_wet(i,k,j,isize) =dp_wet_a/2.0 + number_bin(i,k,j,isize) =num_a + radius_core(i,k,j,isize) =dp_bc_a/2.0 + swrefindx_core(i,k,j,isize,ns) =ref_index_bc + swrefindx_shell(i,k,j,isize,ns) =ri_dum/vol_shell + endif + enddo ! ns shortwave + + + !longwave + do ns=1,nlwbands + ri_dum = (0.0,0.0) + ri_dum = (lwref_index_nh4so4(ns) * mass_so4 / dens_so4) + & + (ref_index_nh4no3 * mass_no3 / dens_no3) + & + (ref_index_nh4no3 * mass_nh4 / dens_nh4) + & !jdf (ref_index_oin * mass_oin / dens_oin) + & !jdfcz (lwref_index_dust(ns) * mass_dust / dens_dust) + & - (lwref_index_dust(ns) * mass_oin / dens_dust) + & - (lwref_index_oc(ns) * mass_oc / dens_oc) + & - (ref_index_bc * mass_bc / dens_bc) + & - (lwref_index_nacl(ns) * mass_na / dens_na) + & - (lwref_index_nacl(ns) * mass_cl / dens_cl) + & - (lwref_index_h2o(ns) * mass_h2o / dens_h2o) + (lwref_index_dust(ns) * mass_oin / dens_dust) + & + (lwref_index_oc(ns) * mass_oc / dens_oc) + & + (ref_index_bc * mass_bc / dens_bc) + & + (lwref_index_nacl(ns) * mass_na / dens_na) + & + (lwref_index_nacl(ns) * mass_cl / dens_cl) + & + (lwref_index_h2o(ns) * mass_h2o / dens_h2o) ! ! for some reason MADE/SORGAM occasionally produces zero aerosols so ! need to add a check here to avoid divide by zero ! - IF(num_a .lt. 1.0e-20 .or. vol_wet_a .lt. 1.0e-20) then - dp_dry_a = xdia_cm(isize) -dp_wet_a = xdia_cm(isize) - dp_bc_a = xdia_cm(isize) - ri_ave_a = 0.0 - ri_dum = 0.0 - else - dp_dry_a = (1.90985*vol_dry_a/num_a)**0.3333333 - dp_wet_a = (1.90985*vol_wet_a/num_a)**0.3333333 - dp_bc_a = (1.90985*vol_bc/num_a)**0.3333333 - ri_ave_a = ri_dum/vol_wet_a - ri_dum = (lwref_index_nh4so4(ns) * mass_so4 / dens_so4) + & - (ref_index_nh4no3 * mass_no3 / dens_no3) + & - (ref_index_nh4no3 * mass_nh4 / dens_nh4) + & + IF(num_a .lt. 1.0e-20 .or. vol_wet_a .lt. 1.0e-20) then + dp_dry_a = xdia_cm(isize) + dp_wet_a = xdia_cm(isize) + dp_bc_a = xdia_cm(isize) + ri_ave_a = 0.0 + ri_dum = 0.0 + else + dp_dry_a = (1.90985*vol_dry_a/num_a)**0.3333333 + dp_wet_a = (1.90985*vol_wet_a/num_a)**0.3333333 + dp_bc_a = (1.90985*vol_bc/num_a)**0.3333333 + ri_ave_a = ri_dum/vol_wet_a + ri_dum = (lwref_index_nh4so4(ns) * mass_so4 / dens_so4) + & + (ref_index_nh4no3 * mass_no3 / dens_no3) + & + (ref_index_nh4no3 * mass_nh4 / dens_nh4) + & !jdf (ref_index_oin * mass_oin / dens_oin) + & !jdfcz (lwref_index_dust(ns) * mass_dust / dens_dust) + & - (lwref_index_dust(ns) * mass_oin / dens_dust) + & - (lwref_index_oc(ns) * mass_oc / dens_oc) + & - (lwref_index_nacl(ns) * mass_na / dens_na) + & - (lwref_index_nacl(ns) * mass_cl / dens_cl) + & - (lwref_index_h2o(ns) * mass_h2o / dens_h2o) - endif - if(dp_wet_a/2.0 .lt. dlo_um*1.0e-4/2.0) then - lwrefindx(i,k,j,isize,ns) = (1.5,0.0) - radius_wet(i,k,j,isize) =dlo_um*1.0e-4/2.0 - number_bin(i,k,j,isize) =num_a - radius_core(i,k,j,isize) =0.0 - lwrefindx_core(i,k,j,isize,ns) = ref_index_bc - lwrefindx_shell(i,k,j,isize,ns) = ref_index_oin - elseif(num_a .lt. 1.e-20 .or. vol_shell .lt. 1.0e-20) then - lwrefindx(i,k,j,isize,ns) = (1.5,0.0) - radius_wet(i,k,j,isize) =dlo_um*1.0e-4/2.0 - number_bin(i,k,j,isize) =num_a - radius_core(i,k,j,isize) =0.0 - lwrefindx_core(i,k,j,isize,ns) = ref_index_bc - lwrefindx_shell(i,k,j,isize,ns) = ref_index_oin - else - lwrefindx(i,k,j,isize,ns) =ri_ave_a - radius_wet(i,k,j,isize) =dp_wet_a/2.0 - number_bin(i,k,j,isize) =num_a - radius_core(i,k,j,isize) =dp_bc_a/2.0 - lwrefindx_core(i,k,j,isize,ns) =ref_index_bc - lwrefindx_shell(i,k,j,isize,ns) =ri_dum/vol_shell - endif - enddo ! ns longwave + (lwref_index_dust(ns) * mass_oin / dens_dust) + & + (lwref_index_oc(ns) * mass_oc / dens_oc) + & + (lwref_index_nacl(ns) * mass_na / dens_na) + & + (lwref_index_nacl(ns) * mass_cl / dens_cl) + & + (lwref_index_h2o(ns) * mass_h2o / dens_h2o) + endif + if(dp_wet_a/2.0 .lt. dlo_um*1.0e-4/2.0) then + lwrefindx(i,k,j,isize,ns) = (1.5,0.0) + radius_wet(i,k,j,isize) =dlo_um*1.0e-4/2.0 + number_bin(i,k,j,isize) =num_a + radius_core(i,k,j,isize) =0.0 + lwrefindx_core(i,k,j,isize,ns) = ref_index_bc + lwrefindx_shell(i,k,j,isize,ns) = ref_index_oin + elseif(num_a .lt. 1.e-20 .or. vol_shell .lt. 1.0e-20) then + lwrefindx(i,k,j,isize,ns) = (1.5,0.0) + radius_wet(i,k,j,isize) =dlo_um*1.0e-4/2.0 + number_bin(i,k,j,isize) =num_a + radius_core(i,k,j,isize) =0.0 + lwrefindx_core(i,k,j,isize,ns) = ref_index_bc + lwrefindx_shell(i,k,j,isize,ns) = ref_index_oin + else + lwrefindx(i,k,j,isize,ns) =ri_ave_a + radius_wet(i,k,j,isize) =dp_wet_a/2.0 + number_bin(i,k,j,isize) =num_a + radius_core(i,k,j,isize) =dp_bc_a/2.0 + lwrefindx_core(i,k,j,isize,ns) =ref_index_bc + lwrefindx_shell(i,k,j,isize,ns) =ri_dum/vol_shell + endif + enddo ! ns longwave ! refr=real(refindx(i,k,j,isize)) - enddo !isize - enddo !i - enddo !j + enddo !isize + enddo !i + enddo !j enddo !k return -END subroutine optical_prep_modal_soa_vbs + END subroutine optical_prep_modal_soa_vbs !below is the detail calculation for MIE code -!czhao +!czhao ! !*********************************************************************** @@ -1787,118 +1787,118 @@ END subroutine optical_prep_modal_soa_vbs ! sizeaer ! average wet radius ! bscoef ! aerosol backscatter coefficient with units km-1 * steradian -1 JCB 2007/02/01 !*********************************************************************** - subroutine mieaer( & - id, iclm, jclm, nbin_a, & - number_bin_col, radius_wet_col, swrefindx_col, & - lwrefindx_col, & - dz, curr_secs, kts,kte, & + subroutine mieaer( & + id, iclm, jclm, nbin_a, & + number_bin_col, radius_wet_col, swrefindx_col, & + lwrefindx_col, & + dz, curr_secs, kts,kte, & ! sizeaer,extaer,waer,gaer,tauaer,l2,l3,l4,l5,l6,l7,bscoef) ! added bscoef JCB 2007/02/01 - swsizeaer,swextaer,swwaer,swgaer,swtauaer,lwextaer,lwtauaer, & - l2,l3,l4,l5,l6,l7,swbscoef) ! added bscoef JCB 2007/02/01 + swsizeaer,swextaer,swwaer,swgaer,swtauaer,lwextaer,lwtauaer, & + l2,l3,l4,l5,l6,l7,swbscoef) ! added bscoef JCB 2007/02/01 ! USE opt_peg_util_mod, only: peg_error_fatal, peg_message - - IMPLICIT NONE + + IMPLICIT NONE ! integer,parameter :: nspint = 4 ! Num of spectral for FAST-J - integer, intent(in) :: kts,kte - integer, intent(in) :: id, iclm, jclm, nbin_a - real(kind_chem), intent(in) :: curr_secs - - real(kind_chem), dimension (1:nspint,kts:kte),intent(out) :: swsizeaer,swextaer,swwaer,swgaer,swtauaer - real(kind_chem), dimension (1:nlwbands,kts:kte),intent(out) :: lwextaer,lwtauaer - real(kind_chem), dimension (1:nspint,kts:kte),intent(out) :: l2,l3,l4,l5,l6,l7 - real(kind_chem), dimension (1:nspint,kts:kte),intent(out) :: swbscoef !JCB 2007/02/01 - real(kind_chem), intent(in), dimension(1:nbin_a, kts:kte) :: number_bin_col - real(kind_chem), intent(inout), dimension(1:nbin_a,kts:kte) :: radius_wet_col - complex, intent(in),dimension(1:nbin_a,kts:kte,nspint) :: swrefindx_col - complex, intent(in),dimension(1:nbin_a,kts:kte,nlwbands) :: lwrefindx_col - real(kind_chem), intent(in),dimension(kts:kte) :: dz - - !fitting variables - integer ltype ! total number of indicies of refraction - parameter (ltype = 1) ! bracket refractive indices based on information from Rahul, 2002/11/07 - integer nrefr,nrefi,nr,ni - save nrefr,nrefi - complex sforw,sback,tforw(2),tback(2) - real(kind_chem) pmom(0:7,1) - logical, save :: ini_fit ! initial mie fit only for the first time step - data ini_fit/.true./ - ! nsiz = number of wet particle sizes - integer, parameter :: nsiz=200,nlog=30 !,ncoef=5 - real(kind_chem) p2(nsiz),p3(nsiz),p4(nsiz),p5(nsiz) - real(kind_chem) p6(nsiz),p7(nsiz) - logical perfct,anyang,prnt(2) - real(kind_chem) xmu(1) - data xmu/1./,anyang/.false./ - data prnt/.false.,.false./ - integer numang,nmom,ipolzn,momdim - data numang/0/ - complex s1(1),s2(1) - real(kind_chem) mimcut - data perfct/.false./,mimcut/0.0/ - data nmom/7/,ipolzn/0/,momdim/7/ - integer n - real(kind_chem) thesize ! 2 pi radpart / waveleng = size parameter - real(kind_chem) qext(nsiz) ! array of extinction efficiencies - real(kind_chem) qsca(nsiz) ! array of scattering efficiencies - real(kind_chem) gqsc(nsiz) ! array of asymmetry factor * scattering efficiency - real(kind_chem) qext4(nsiz) ! extinction, real*4 - real(kind_chem) qsca4(nsiz) ! extinction, real*4 - real(kind_chem) qabs4(nsiz) ! extinction, real*4 - real(kind_chem) asymm(nsiz) ! array of asymmetry factor - real(kind_chem) sb2(nsiz) ! JCB 2007/02/01 - 4*abs(sback)^2/(size parameter)^2 backscattering efficiency - complex crefin,crefd,crefw - save crefw - real(kind_chem), save :: rmin,rmax ! min, max aerosol size bin - real(kind_chem) bma,bpa - real(kind_chem) refr ! real part of refractive index - real(kind_chem) refi ! imaginary part of refractive index - real(kind_chem) refrmin ! minimum of real part of refractive index - real(kind_chem) refrmax ! maximum of real part of refractive index - real(kind_chem) refimin ! minimum of imag part of refractive index - real(kind_chem) refimax ! maximum of imag part of refractive index - real(kind_chem) drefr ! increment in real part of refractive index - real(kind_chem) drefi ! increment in imag part of refractive index - complex specrefndx(ltype) ! refractivr indices - integer, parameter :: naerosols=5 - - !parameterization variables - real(kind_chem) weighte, weights,weighta - real(kind_chem) x - real(kind_chem) thesum ! for normalizing things - real(kind_chem) sizem ! size in microns - integer m, j, nc, klevel - real(kind_chem) pext ! parameterized specific extinction (cm2/g) - real(kind_chem) pscat !scattering cross section - real(kind_chem) pabs ! parameterized specific extinction (cm2/g) - real(kind_chem) pasm ! parameterized asymmetry factor - real(kind_chem) ppmom2 ! 2 Lengendre expansion coefficient (numbered 0,1,2,...) - real(kind_chem) ppmom3 ! 3 ... - real(kind_chem) ppmom4 ! 4 ... - real(kind_chem) ppmom5 ! 5 ... - real(kind_chem) ppmom6 ! 6 ... - real(kind_chem) ppmom7 ! 7 ... - real(kind_chem) sback2 ! JCB 2007/02/01 sback*conjg(sback) - real(kind_chem) cext(ncoef),casm(ncoef),cpmom2(ncoef),cabs(ncoef) - real(kind_chem) cscat(ncoef) ! JCB 2004/02/09 - real(kind_chem) cpmom3(ncoef),cpmom4(ncoef),cpmom5(ncoef) - real(kind_chem) cpmom6(ncoef),cpmom7(ncoef) - real(kind_chem) cpsback2p(ncoef) ! JCB 2007/02/09 - backscatter - integer itab,jtab - real(kind_chem) ttab,utab - real(kind_chem), save :: xrmin,xrmax,xr - real(kind_chem) rs(nsiz) ! surface mode radius (cm) - real(kind_chem) xrad ! normalized aerosol radius - real(kind_chem) ch(ncoef) ! chebychev polynomial - - - !others - integer i,k,l,ns - real(kind_chem) pie,third - integer ibin - character*150 msg - integer kcallmieaer,kcallmieaer2 + integer, intent(in) :: kts,kte + integer, intent(in) :: id, iclm, jclm, nbin_a + real(kind_chem), intent(in) :: curr_secs + + real(kind_chem), dimension (1:nspint,kts:kte),intent(out) :: swsizeaer,swextaer,swwaer,swgaer,swtauaer + real(kind_chem), dimension (1:nlwbands,kts:kte),intent(out) :: lwextaer,lwtauaer + real(kind_chem), dimension (1:nspint,kts:kte),intent(out) :: l2,l3,l4,l5,l6,l7 + real(kind_chem), dimension (1:nspint,kts:kte),intent(out) :: swbscoef !JCB 2007/02/01 + real(kind_chem), intent(in), dimension(1:nbin_a, kts:kte) :: number_bin_col + real(kind_chem), intent(inout), dimension(1:nbin_a,kts:kte) :: radius_wet_col + complex, intent(in),dimension(1:nbin_a,kts:kte,nspint) :: swrefindx_col + complex, intent(in),dimension(1:nbin_a,kts:kte,nlwbands) :: lwrefindx_col + real(kind_chem), intent(in),dimension(kts:kte) :: dz + + !fitting variables + integer ltype ! total number of indicies of refraction + parameter (ltype = 1) ! bracket refractive indices based on information from Rahul, 2002/11/07 + integer nrefr,nrefi,nr,ni + save nrefr,nrefi + complex sforw,sback,tforw(2),tback(2) + real(kind_chem) pmom(0:7,1) + logical, save :: ini_fit ! initial mie fit only for the first time step + data ini_fit/.true./ + ! nsiz = number of wet particle sizes + integer, parameter :: nsiz=200,nlog=30 !,ncoef=5 + real(kind_chem) p2(nsiz),p3(nsiz),p4(nsiz),p5(nsiz) + real(kind_chem) p6(nsiz),p7(nsiz) + logical perfct,anyang,prnt(2) + real(kind_chem) xmu(1) + data xmu/1./,anyang/.false./ + data prnt/.false.,.false./ + integer numang,nmom,ipolzn,momdim + data numang/0/ + complex s1(1),s2(1) + real(kind_chem) mimcut + data perfct/.false./,mimcut/0.0/ + data nmom/7/,ipolzn/0/,momdim/7/ + integer n + real(kind_chem) thesize ! 2 pi radpart / waveleng = size parameter + real(kind_chem) qext(nsiz) ! array of extinction efficiencies + real(kind_chem) qsca(nsiz) ! array of scattering efficiencies + real(kind_chem) gqsc(nsiz) ! array of asymmetry factor * scattering efficiency + real(kind_chem) qext4(nsiz) ! extinction, real*4 + real(kind_chem) qsca4(nsiz) ! extinction, real*4 + real(kind_chem) qabs4(nsiz) ! extinction, real*4 + real(kind_chem) asymm(nsiz) ! array of asymmetry factor + real(kind_chem) sb2(nsiz) ! JCB 2007/02/01 - 4*abs(sback)^2/(size parameter)^2 backscattering efficiency + complex crefin,crefd,crefw + save crefw + real(kind_chem), save :: rmin,rmax ! min, max aerosol size bin + real(kind_chem) bma,bpa + real(kind_chem) refr ! real part of refractive index + real(kind_chem) refi ! imaginary part of refractive index + real(kind_chem) refrmin ! minimum of real part of refractive index + real(kind_chem) refrmax ! maximum of real part of refractive index + real(kind_chem) refimin ! minimum of imag part of refractive index + real(kind_chem) refimax ! maximum of imag part of refractive index + real(kind_chem) drefr ! increment in real part of refractive index + real(kind_chem) drefi ! increment in imag part of refractive index + complex specrefndx(ltype) ! refractivr indices + integer, parameter :: naerosols=5 + + !parameterization variables + real(kind_chem) weighte, weights,weighta + real(kind_chem) x + real(kind_chem) thesum ! for normalizing things + real(kind_chem) sizem ! size in microns + integer m, j, nc, klevel + real(kind_chem) pext ! parameterized specific extinction (cm2/g) + real(kind_chem) pscat !scattering cross section + real(kind_chem) pabs ! parameterized specific extinction (cm2/g) + real(kind_chem) pasm ! parameterized asymmetry factor + real(kind_chem) ppmom2 ! 2 Lengendre expansion coefficient (numbered 0,1,2,...) + real(kind_chem) ppmom3 ! 3 ... + real(kind_chem) ppmom4 ! 4 ... + real(kind_chem) ppmom5 ! 5 ... + real(kind_chem) ppmom6 ! 6 ... + real(kind_chem) ppmom7 ! 7 ... + real(kind_chem) sback2 ! JCB 2007/02/01 sback*conjg(sback) + real(kind_chem) cext(ncoef),casm(ncoef),cpmom2(ncoef),cabs(ncoef) + real(kind_chem) cscat(ncoef) ! JCB 2004/02/09 + real(kind_chem) cpmom3(ncoef),cpmom4(ncoef),cpmom5(ncoef) + real(kind_chem) cpmom6(ncoef),cpmom7(ncoef) + real(kind_chem) cpsback2p(ncoef) ! JCB 2007/02/09 - backscatter + integer itab,jtab + real(kind_chem) ttab,utab + real(kind_chem), save :: xrmin,xrmax,xr + real(kind_chem) rs(nsiz) ! surface mode radius (cm) + real(kind_chem) xrad ! normalized aerosol radius + real(kind_chem) ch(ncoef) ! chebychev polynomial + + + !others + integer i,k,l,ns + real(kind_chem) pie,third + integer ibin + character*150 msg + integer kcallmieaer,kcallmieaer2 #if (defined(CHEM_DBG_I) && defined(CHEM_DBG_J) && defined(CHEM_DBG_K)) @@ -1907,35 +1907,35 @@ subroutine mieaer( & !ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc !ec run_out.25 has aerosol physical parameter info for bins 1-8 !ec and vertical cells 1 to kmaxd. - if (iclm .eq. CHEM_DBG_I) then - if (jclm .eq. CHEM_DBG_J) then + if (iclm .eq. CHEM_DBG_I) then + if (jclm .eq. CHEM_DBG_J) then ! initial entry - if (kcallmieaer2 .eq. 0) then - write(*,9099)iclm, jclm - 9099 format('for cell i = ', i3, 2x, 'j = ', i3) - write(*,9100) - 9100 format(& - 'curr_secs', 3x, 'i', 3x, 'j', 3x,'k', 3x, & - 'ibin', 3x, & - 'refindx_col(ibin,k)', 3x, & - 'radius_wet_col(ibin,k)', 3x, & - 'number_bin_col(ibin,k)' & - ) - end if + if (kcallmieaer2 .eq. 0) then + write(*,9099)iclm, jclm +9099 format('for cell i = ', i3, 2x, 'j = ', i3) + write(*,9100) +9100 format(& + 'curr_secs', 3x, 'i', 3x, 'j', 3x,'k', 3x, & + 'ibin', 3x, & + 'refindx_col(ibin,k)', 3x, & + 'radius_wet_col(ibin,k)', 3x, & + 'number_bin_col(ibin,k)' & + ) + end if !ec output for run_out.25 - do k = 1,kte - do ibin = 1, nbin_a - write(*, 9120) & - curr_secs,iclm, jclm, k, ibin, & - swrefindx_col(ibin,k), & - radius_wet_col(ibin,k), & - number_bin_col(ibin,k) -9120 format( i7,3(2x,i4),2x,i4, 4x, 4(e14.6,2x)) - end do + do k = 1,kte + do ibin = 1, nbin_a + write(*, 9120) & + curr_secs,iclm, jclm, k, ibin, & + swrefindx_col(ibin,k), & + radius_wet_col(ibin,k), & + number_bin_col(ibin,k) +9120 format( i7,3(2x,i4),2x,i4, 4x, 4(e14.6,2x)) + end do end do - kcallmieaer2 = kcallmieaer2 + 1 - end if - end if + kcallmieaer2 = kcallmieaer2 + 1 + end if + end if !ec end print of aerosol physical parameter diagnostics !ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc #endif @@ -1955,27 +1955,27 @@ subroutine mieaer( & !initial fitting to mie calculation based on Ghan et al. 2002 and 2007 !##################################################################### if(ini_fit)then - ini_fit=.false. - - !---------------------------------------------------------------------- - !shortwave - !--------------------------------------------------------------------- - ! wavelength loop - do 200 ns=1,nspint - ! parameterize aerosol radiative properties in terms of - ! relative humidity, surface mode wet radius, aerosol species, - ! and wavelength - ! first find min,max of real and imaginary parts of refractive index - ! real and imaginary parts of water refractive index - - !crefw=cmplx(1.33,0.0) - crefwsw(ns)=cmplx(refrwsw(ns),refiwsw(ns)) - refrmin=real(crefwsw(ns)) - refrmax=real(crefwsw(ns)) - !change imaginary part of the refractive index from positive to negative - refimin=-Aimag(crefwsw(ns)) - refimax=-Aimag(crefwsw(ns)) - !specrefndx(1)=cmplx(1.85,-0.71) ! max values from Bond and Bergstrom + ini_fit=.false. + + !---------------------------------------------------------------------- + !shortwave + !--------------------------------------------------------------------- + ! wavelength loop + do 200 ns=1,nspint + ! parameterize aerosol radiative properties in terms of + ! relative humidity, surface mode wet radius, aerosol species, + ! and wavelength + ! first find min,max of real and imaginary parts of refractive index + ! real and imaginary parts of water refractive index + + !crefw=cmplx(1.33,0.0) + crefwsw(ns)=cmplx(refrwsw(ns),refiwsw(ns)) + refrmin=real(crefwsw(ns)) + refrmax=real(crefwsw(ns)) + !change imaginary part of the refractive index from positive to negative + refimin=-Aimag(crefwsw(ns)) + refimax=-Aimag(crefwsw(ns)) + !specrefndx(1)=cmplx(1.85,-0.71) ! max values from Bond and Bergstrom ! do i=1,ltype ! loop over all possible refractive indices ! refrmin=amin1(refrmin,real(specrefndx(ltype))) ! refrmax=amax1(refrmax,real(specrefndx(ltype))) @@ -1984,614 +1984,614 @@ subroutine mieaer( & ! enddo ! aerosol species loop (dust, BC, OC, Sea Salt, and Sulfate) - do l=1,naerosols - if (l==1) refr=refrsw_dust(ns) - if (l==1) refi=-refisw_dust(ns) - if (l==2) refr=refrsw_bc(ns) - if (l==2) refi=-refisw_bc(ns) - if (l==3) refr=refrsw_oc(ns) - if (l==3) refi=-refisw_oc(ns) - if (l==4) refr=refrsw_seas(ns) - if (l==4) refi=-refisw_seas(ns) - if (l==5) refr=refrsw_sulf(ns) - if (l==5) refi=-refisw_sulf(ns) - refrmin=min(refrmin,refr) - refrmax=max(refrmax,refr) - refimin=min(refimin,refi) - refimax=max(refimax,refi) - enddo - - drefr=(refrmax-refrmin) - if(drefr.gt.1.e-4)then - nrefr=prefr - drefr=drefr/(nrefr-1) - else - nrefr=1 - endif + do l=1,naerosols + if (l==1) refr=refrsw_dust(ns) + if (l==1) refi=-refisw_dust(ns) + if (l==2) refr=refrsw_bc(ns) + if (l==2) refi=-refisw_bc(ns) + if (l==3) refr=refrsw_oc(ns) + if (l==3) refi=-refisw_oc(ns) + if (l==4) refr=refrsw_seas(ns) + if (l==4) refi=-refisw_seas(ns) + if (l==5) refr=refrsw_sulf(ns) + if (l==5) refi=-refisw_sulf(ns) + refrmin=min(refrmin,refr) + refrmax=max(refrmax,refr) + refimin=min(refimin,refi) + refimax=max(refimax,refi) + enddo + + drefr=(refrmax-refrmin) + if(drefr.gt.1.e-4)then + nrefr=prefr + drefr=drefr/(nrefr-1) + else + nrefr=1 + endif - drefi=(refimax-refimin) - if(drefi.gt.1.e-4)then - nrefi=prefi - drefi=drefi/(nrefi-1) - else - nrefi=1 - endif + drefi=(refimax-refimin) + if(drefi.gt.1.e-4)then + nrefi=prefi + drefi=drefi/(nrefi-1) + else + nrefi=1 + endif - bma=0.5*alog(rmax/rmin) ! JCB - bpa=0.5*alog(rmax*rmin) ! JCB + bma=0.5*alog(rmax/rmin) ! JCB + bpa=0.5*alog(rmax*rmin) ! JCB - do 120 nr=1,nrefr - do 120 ni=1,nrefi + do 120 nr=1,nrefr + do 120 ni=1,nrefi - refrtabsw(nr,ns)=refrmin+(nr-1)*drefr - refitabsw(ni,ns)=refimin/0.2*(0.2**real(ni)) !slightly different from Ghan and Zaveri - if(ni.eq.nrefi) refitabsw(ni,ns)=-1.0e-20 ! JCB change - crefd=cmplx(refrtabsw(nr,ns),refitabsw(ni,ns)) + refrtabsw(nr,ns)=refrmin+(nr-1)*drefr + refitabsw(ni,ns)=refimin/0.2*(0.2**real(ni)) !slightly different from Ghan and Zaveri + if(ni.eq.nrefi) refitabsw(ni,ns)=-1.0e-20 ! JCB change + crefd=cmplx(refrtabsw(nr,ns),refitabsw(ni,ns)) ! mie calculations of optical efficiencies - do n=1,nsiz - xr=cos(pie*(float(n)-0.5)/float(nsiz)) - rs(n)=exp(xr*bma+bpa) + do n=1,nsiz + xr=cos(pie*(float(n)-0.5)/float(nsiz)) + rs(n)=exp(xr*bma+bpa) ! size parameter and weighted refractive index - thesize=2.*pie*rs(n)/wavmidsw(ns) - thesize=min(thesize,10000.d0) - - call miev0(thesize,crefd,perfct,mimcut,anyang, & - numang,xmu,nmom,ipolzn,momdim,prnt, & - qext(n),qsca(n),gqsc(n),pmom,sforw,sback,s1, & - s2,tforw,tback ) - qext4(n)=qext(n) - qsca4(n)=min(qsca(n),qext(n)) - qabs4(n)=qext4(n)-qsca4(n) - qabs4(n)=max(qabs4(n),1.e-20) ! avoid 0 - asymm(n)=gqsc(n)/qsca4(n) ! assume always greater than zero + thesize=2.*pie*rs(n)/wavmidsw(ns) + thesize=min(thesize,10000.d0) + + call miev0(thesize,crefd,perfct,mimcut,anyang, & + numang,xmu,nmom,ipolzn,momdim,prnt, & + qext(n),qsca(n),gqsc(n),pmom,sforw,sback,s1, & + s2,tforw,tback ) + qext4(n)=qext(n) + qsca4(n)=min(qsca(n),qext(n)) + qabs4(n)=qext4(n)-qsca4(n) + qabs4(n)=max(qabs4(n),1.e-20) ! avoid 0 + asymm(n)=gqsc(n)/qsca4(n) ! assume always greater than zero ! coefficients of phase function expansion; note modification by JCB of miev0 coefficients - p2(n)=pmom(2,1)/pmom(0,1)*5.0 - p3(n)=pmom(3,1)/pmom(0,1)*7.0 - p4(n)=pmom(4,1)/pmom(0,1)*9.0 - p5(n)=pmom(5,1)/pmom(0,1)*11.0 - p6(n)=pmom(6,1)/pmom(0,1)*13.0 - p7(n)=pmom(7,1)/pmom(0,1)*15.0 + p2(n)=pmom(2,1)/pmom(0,1)*5.0 + p3(n)=pmom(3,1)/pmom(0,1)*7.0 + p4(n)=pmom(4,1)/pmom(0,1)*9.0 + p5(n)=pmom(5,1)/pmom(0,1)*11.0 + p6(n)=pmom(6,1)/pmom(0,1)*13.0 + p7(n)=pmom(7,1)/pmom(0,1)*15.0 ! backscattering efficiency, Bohren and Huffman, page 122 ! as stated by Bohren and Huffman, this is 4*pie times what is should be ! may need to be smoothed - a very rough function - for the time being we won't apply smoothing ! and let the integration over the size distribution be the smoothing - sb2(n)=4.0*sback*conjg(sback)/(thesize*thesize) ! JCB 2007/02/01 - enddo -! - call fitcurv(rs,qext4,extpsw(1,nr,ni,ns),ncoef,nsiz) - call fitcurv(rs,qabs4,abspsw(1,nr,ni,ns),ncoef,nsiz) - call fitcurv(rs,qsca4,ascatpsw(1,nr,ni,ns),ncoef,nsiz) ! scattering efficiency - call fitcurv(rs,asymm,asmpsw(1,nr,ni,ns),ncoef,nsiz) - call fitcurv(rs,sb2,sbackpsw(1,nr,ni,ns),ncoef,nsiz) ! backscattering efficiency - call fitcurv_nolog(rs,p2,pmom2psw(1,nr,ni,ns),ncoef,nsiz) - call fitcurv_nolog(rs,p3,pmom3psw(1,nr,ni,ns),ncoef,nsiz) - call fitcurv_nolog(rs,p4,pmom4psw(1,nr,ni,ns),ncoef,nsiz) - call fitcurv_nolog(rs,p5,pmom5psw(1,nr,ni,ns),ncoef,nsiz) - call fitcurv_nolog(rs,p6,pmom6psw(1,nr,ni,ns),ncoef,nsiz) - call fitcurv_nolog(rs,p7,pmom7psw(1,nr,ni,ns),ncoef,nsiz) - - 120 continue - 200 continue ! ns for shortwave - - - !---------------------------------------------------------------------- - !longwave - !--------------------------------------------------------------------- - ! wavelength loop - do 201 ns=1,nlwbands - !wavelength for longwave 1/cm --> cm - wavmidlw(ns) = 0.5*(1./wavenumber1_longwave(ns) + 1./wavenumber2_longwave(ns)) - - crefwlw(ns)=cmplx(refrwlw(ns),refiwlw(ns)) - refrmin=real(crefwlw(ns)) - refrmax=real(crefwlw(ns)) - refimin=-Aimag(crefwlw(ns)) - refimax=-Aimag(crefwlw(ns)) - - !aerosol species loop (dust, BC, OC, Sea Salt, and Sulfate) - do l=1,naerosols - if (l==1) refr=refrlw_dust(ns) - if (l==1) refi=-refilw_dust(ns) - if (l==2) refr=refrlw_bc(ns) - if (l==2) refi=-refilw_bc(ns) - if (l==3) refr=refrlw_oc(ns) - if (l==3) refi=-refilw_oc(ns) - if (l==4) refr=refrlw_seas(ns) - if (l==4) refi=-refilw_seas(ns) - if (l==5) refr=refrlw_sulf(ns) - if (l==5) refi=-refilw_sulf(ns) - refrmin=min(refrmin,refr) - refrmax=max(refrmax,refr) - refimin=min(refimin,refi) - refimax=max(refimax,refi) - enddo - - drefr=(refrmax-refrmin) - if(drefr.gt.1.e-4)then - nrefr=prefr - drefr=drefr/(nrefr-1) - else - nrefr=1 - endif + sb2(n)=4.0*sback*conjg(sback)/(thesize*thesize) ! JCB 2007/02/01 + enddo +! + call fitcurv(rs,qext4,extpsw(1,nr,ni,ns),ncoef,nsiz) + call fitcurv(rs,qabs4,abspsw(1,nr,ni,ns),ncoef,nsiz) + call fitcurv(rs,qsca4,ascatpsw(1,nr,ni,ns),ncoef,nsiz) ! scattering efficiency + call fitcurv(rs,asymm,asmpsw(1,nr,ni,ns),ncoef,nsiz) + call fitcurv(rs,sb2,sbackpsw(1,nr,ni,ns),ncoef,nsiz) ! backscattering efficiency + call fitcurv_nolog(rs,p2,pmom2psw(1,nr,ni,ns),ncoef,nsiz) + call fitcurv_nolog(rs,p3,pmom3psw(1,nr,ni,ns),ncoef,nsiz) + call fitcurv_nolog(rs,p4,pmom4psw(1,nr,ni,ns),ncoef,nsiz) + call fitcurv_nolog(rs,p5,pmom5psw(1,nr,ni,ns),ncoef,nsiz) + call fitcurv_nolog(rs,p6,pmom6psw(1,nr,ni,ns),ncoef,nsiz) + call fitcurv_nolog(rs,p7,pmom7psw(1,nr,ni,ns),ncoef,nsiz) + +120 continue +200 continue ! ns for shortwave + + + !---------------------------------------------------------------------- + !longwave + !--------------------------------------------------------------------- + ! wavelength loop + do 201 ns=1,nlwbands + !wavelength for longwave 1/cm --> cm + wavmidlw(ns) = 0.5*(1./wavenumber1_longwave(ns) + 1./wavenumber2_longwave(ns)) + + crefwlw(ns)=cmplx(refrwlw(ns),refiwlw(ns)) + refrmin=real(crefwlw(ns)) + refrmax=real(crefwlw(ns)) + refimin=-Aimag(crefwlw(ns)) + refimax=-Aimag(crefwlw(ns)) + + !aerosol species loop (dust, BC, OC, Sea Salt, and Sulfate) + do l=1,naerosols + if (l==1) refr=refrlw_dust(ns) + if (l==1) refi=-refilw_dust(ns) + if (l==2) refr=refrlw_bc(ns) + if (l==2) refi=-refilw_bc(ns) + if (l==3) refr=refrlw_oc(ns) + if (l==3) refi=-refilw_oc(ns) + if (l==4) refr=refrlw_seas(ns) + if (l==4) refi=-refilw_seas(ns) + if (l==5) refr=refrlw_sulf(ns) + if (l==5) refi=-refilw_sulf(ns) + refrmin=min(refrmin,refr) + refrmax=max(refrmax,refr) + refimin=min(refimin,refi) + refimax=max(refimax,refi) + enddo + + drefr=(refrmax-refrmin) + if(drefr.gt.1.e-4)then + nrefr=prefr + drefr=drefr/(nrefr-1) + else + nrefr=1 + endif - drefi=(refimax-refimin) - if(drefi.gt.1.e-4)then - nrefi=prefi - drefi=drefi/(nrefi-1) - else - nrefi=1 - endif + drefi=(refimax-refimin) + if(drefi.gt.1.e-4)then + nrefi=prefi + drefi=drefi/(nrefi-1) + else + nrefi=1 + endif - bma=0.5*alog(rmax/rmin) ! JCB - bpa=0.5*alog(rmax*rmin) ! JCB + bma=0.5*alog(rmax/rmin) ! JCB + bpa=0.5*alog(rmax*rmin) ! JCB - do 121 nr=1,nrefr - do 121 ni=1,nrefi + do 121 nr=1,nrefr + do 121 ni=1,nrefi - refrtablw(nr,ns)=refrmin+(nr-1)*drefr - refitablw(ni,ns)=refimin/0.2*(0.2**real(ni)) !slightly different from Ghan and Zaveri - if(ni.eq.nrefi) refitablw(nrefi,ns)=-1.0e-21 ! JCB change - crefd=cmplx(refrtablw(nr,ns),refitablw(ni,ns)) + refrtablw(nr,ns)=refrmin+(nr-1)*drefr + refitablw(ni,ns)=refimin/0.2*(0.2**real(ni)) !slightly different from Ghan and Zaveri + if(ni.eq.nrefi) refitablw(nrefi,ns)=-1.0e-21 ! JCB change + crefd=cmplx(refrtablw(nr,ns),refitablw(ni,ns)) ! mie calculations of optical efficiencies - do n=1,nsiz - xr=cos(pie*(float(n)-0.5)/float(nsiz)) - rs(n)=exp(xr*bma+bpa) + do n=1,nsiz + xr=cos(pie*(float(n)-0.5)/float(nsiz)) + rs(n)=exp(xr*bma+bpa) ! size parameter and weighted refractive index - thesize=2.*pie*rs(n)/wavmidlw(ns) - thesize=min(thesize,10000.d0) - - call miev0(thesize,crefd,perfct,mimcut,anyang, & - numang,xmu,nmom,ipolzn,momdim,prnt, & - qext(n),qsca(n),gqsc(n),pmom,sforw,sback,s1, & - s2,tforw,tback ) - qext4(n)=qext(n) - qext4(n)=max(qext4(n),1.e-20) ! avoid 0 - qsca4(n)=min(qsca(n),qext(n)) - qsca4(n)=max(qsca4(n),1.e-20) ! avoid 0 - qabs4(n)=qext4(n)-qsca4(n) - qabs4(n)=max(qabs4(n),1.e-20) ! avoid 0 - asymm(n)=gqsc(n)/qsca4(n) ! assume always greater than zero - enddo -! - !if (nr==1.and.ni==1) then - !endif - call fitcurv(rs,qext4,extplw(1,nr,ni,ns),ncoef,nsiz) - call fitcurv(rs,qabs4,absplw(1,nr,ni,ns),ncoef,nsiz) - call fitcurv(rs,qsca4,ascatplw(1,nr,ni,ns),ncoef,nsiz) ! scattering efficiency - call fitcurv(rs,asymm,asmplw(1,nr,ni,ns),ncoef,nsiz) - 121 continue - 201 continue ! ns for longwave - - - endif !ini_fit - - - xrmin=alog(rmin) - xrmax=alog(rmax) + thesize=2.*pie*rs(n)/wavmidlw(ns) + thesize=min(thesize,10000.d0) + + call miev0(thesize,crefd,perfct,mimcut,anyang, & + numang,xmu,nmom,ipolzn,momdim,prnt, & + qext(n),qsca(n),gqsc(n),pmom,sforw,sback,s1, & + s2,tforw,tback ) + qext4(n)=qext(n) + qext4(n)=max(qext4(n),1.e-20) ! avoid 0 + qsca4(n)=min(qsca(n),qext(n)) + qsca4(n)=max(qsca4(n),1.e-20) ! avoid 0 + qabs4(n)=qext4(n)-qsca4(n) + qabs4(n)=max(qabs4(n),1.e-20) ! avoid 0 + asymm(n)=gqsc(n)/qsca4(n) ! assume always greater than zero + enddo +! + !if (nr==1.and.ni==1) then + !endif + call fitcurv(rs,qext4,extplw(1,nr,ni,ns),ncoef,nsiz) + call fitcurv(rs,qabs4,absplw(1,nr,ni,ns),ncoef,nsiz) + call fitcurv(rs,qsca4,ascatplw(1,nr,ni,ns),ncoef,nsiz) ! scattering efficiency + call fitcurv(rs,asymm,asmplw(1,nr,ni,ns),ncoef,nsiz) +121 continue +201 continue ! ns for longwave + + + endif !ini_fit + + + xrmin=alog(rmin) + xrmax=alog(rmax) !###################################################################### -!parameterization of mie calculation for shortwave +!parameterization of mie calculation for shortwave !##################################################################### ! begin level loop - do 2000 klevel=1,kte + do 2000 klevel=1,kte ! sum densities for normalization - thesum=0.0 - do m=1,nbin_a - thesum=thesum+number_bin_col(m,klevel) - enddo + thesum=0.0 + do m=1,nbin_a + thesum=thesum+number_bin_col(m,klevel) + enddo ! Begin shortwave spectral loop - do 1000 ns=1,nswbands + do 1000 ns=1,nswbands ! aerosol optical properties - swtauaer(ns,klevel)=0. - swwaer(ns,klevel)=0. - swgaer(ns,klevel)=0. - swsizeaer(ns,klevel)=0.0 - swextaer(ns,klevel)=0.0 - l2(ns,klevel)=0.0 - l3(ns,klevel)=0.0 - l4(ns,klevel)=0.0 - l5(ns,klevel)=0.0 - l6(ns,klevel)=0.0 - l7(ns,klevel)=0.0 - swbscoef(ns,klevel)=0.0 ! JCB 2007/02/01 - backscattering coefficient - if(thesum.le.1e-21)goto 1000 ! set everything = 0 if no aerosol !wig changed 0.0 to 1e-21, 31-Oct-2005 + swtauaer(ns,klevel)=0. + swwaer(ns,klevel)=0. + swgaer(ns,klevel)=0. + swsizeaer(ns,klevel)=0.0 + swextaer(ns,klevel)=0.0 + l2(ns,klevel)=0.0 + l3(ns,klevel)=0.0 + l4(ns,klevel)=0.0 + l5(ns,klevel)=0.0 + l6(ns,klevel)=0.0 + l7(ns,klevel)=0.0 + swbscoef(ns,klevel)=0.0 ! JCB 2007/02/01 - backscattering coefficient + if(thesum.le.1e-21)goto 1000 ! set everything = 0 if no aerosol !wig changed 0.0 to 1e-21, 31-Oct-2005 ! loop over the bins - do m=1,nbin_a ! nbin_a is number of bins + do m=1,nbin_a ! nbin_a is number of bins ! here's the size - sizem=radius_wet_col(m,klevel) ! radius in cm - - !cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc - !ec diagnostics - !ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc - ! check limits of particle size - ! rce 2004-dec-07 - use klevel in write statements - if(radius_wet_col(m,klevel).le.rmin)then + sizem=radius_wet_col(m,klevel) ! radius in cm + + !cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc + !ec diagnostics + !ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc + ! check limits of particle size + ! rce 2004-dec-07 - use klevel in write statements + if(radius_wet_col(m,klevel).le.rmin)then radius_wet_col(m,klevel)=rmin write( msg, '(a, 5i4,1x, e11.4)' ) & - 'mieaer: radius_wet set to rmin,' // & - 'id,i,j,k,m,rm(m,k)', id, iclm, jclm, klevel, m, radius_wet_col(m,klevel) + 'mieaer: radius_wet set to rmin,' // & + 'id,i,j,k,m,rm(m,k)', id, iclm, jclm, klevel, m, radius_wet_col(m,klevel) ! call peg_message( lunerr, msg ) - endif - if(radius_wet_col(m,klevel).gt.rmax)then - radius_wet_col(m,klevel)=rmax - !only print when the number is significant - if (number_bin_col(m,klevel).ge.1.e-10) then - write( msg, '(a, 5i4,1x, 2e11.4)' ) & - 'mieaer: radius_wet set to rmax,' // & - 'id,i,j,k,m,rm(m,k),number', & - id, iclm, jclm, klevel, m, radius_wet_col(m,klevel),number_bin_col(m,klevel) + endif + if(radius_wet_col(m,klevel).gt.rmax)then + radius_wet_col(m,klevel)=rmax + !only print when the number is significant + if (number_bin_col(m,klevel).ge.1.e-10) then + write( msg, '(a, 5i4,1x, 2e11.4)' ) & + 'mieaer: radius_wet set to rmax,' // & + 'id,i,j,k,m,rm(m,k),number', & + id, iclm, jclm, klevel, m, radius_wet_col(m,klevel),number_bin_col(m,klevel) ! call peg_message( lunerr, msg ) - endif - endif - !ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc - - x=alog(radius_wet_col(m,klevel)) ! radius in cm - crefin=swrefindx_col(m,klevel,ns) - refr=real(crefin) - refi=-Aimag(crefin) - xrad=x - thesize=2.0*pie*exp(x)/wavmidsw(ns) - ! normalize size parameter - xrad=(2*xrad-xrmax-xrmin)/(xrmax-xrmin) - - !cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc - !ec diagnostics - !ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc - ! retain this diagnostic code + endif + endif + !ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc + + x=alog(radius_wet_col(m,klevel)) ! radius in cm + crefin=swrefindx_col(m,klevel,ns) + refr=real(crefin) + refi=-Aimag(crefin) + xrad=x + thesize=2.0*pie*exp(x)/wavmidsw(ns) + ! normalize size parameter + xrad=(2*xrad-xrmax-xrmin)/(xrmax-xrmin) + + !cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc + !ec diagnostics + !ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc + ! retain this diagnostic code !lzhang - if(abs(refr).gt.10.0) then - print *,'revised, refr=', refr - refr=sign(1.0,refr)*10. - endif - if (abs(refr).le.0.001)then - refr=sign(1.0,refr)*0.0011 - print *, 'revised, refr=', refr - endif - if (abs(refi).gt.10)then - refi=sign(1.0,refi)*10. - print *, 'revised, refi=', refi - endif + if(abs(refr).gt.10.0) then + print *,'revised, refr=', refr + refr=sign(1.0,refr)*10. + endif + if (abs(refr).le.0.001)then + refr=sign(1.0,refr)*0.0011 + print *, 'revised, refr=', refr + endif + if (abs(refi).gt.10)then + refi=sign(1.0,refi)*10. + print *, 'revised, refi=', refi + endif !lzhang - if(abs(refr).gt.10.0.or.abs(refr).le.0.001)then - !write ( msg, '(a,1x, e14.5)' ) & !lzhang - print *, 'mieaer /refr/ outside range 1e-3 - 10 ' // & - 'refr= ', refr + if(abs(refr).gt.10.0.or.abs(refr).le.0.001)then + !write ( msg, '(a,1x, e14.5)' ) & !lzhang + print *, 'mieaer /refr/ outside range 1e-3 - 10 ' // & + 'refr= ', refr ! call peg_error_fatal( lunerr, msg ) - endif - if(abs(refi).gt.10.)then - ! write ( msg, '(a,1x, e14.5)' ) & !lzhang - print *, 'mieaer /refi/ >10 ' // & - 'refi', refi -! call peg_error_fatal( lunerr, msg ) - endif - !ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc + endif + if(abs(refi).gt.10.)then + ! write ( msg, '(a,1x, e14.5)' ) & !lzhang + print *, 'mieaer /refi/ >10 ' // & + 'refi', refi +! call peg_error_fatal( lunerr, msg ) + endif + !ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ! interpolate coefficients linear in refractive index ! first call calcs itab,jtab,ttab,utab - itab=0 - call binterp(extpsw(1,1,1,ns),ncoef,nrefr,nrefi, & - refr,refi,refrtabsw(1,ns),refitabsw(1,ns),itab,jtab, & - ttab,utab,cext) + itab=0 + call binterp(extpsw(1,1,1,ns),ncoef,nrefr,nrefi, & + refr,refi,refrtabsw(1,ns),refitabsw(1,ns),itab,jtab, & + ttab,utab,cext) ! JCB 2004/02/09 -- new code for scattering cross section - call binterp(ascatpsw(1,1,1,ns),ncoef,nrefr,nrefi, & - refr,refi,refrtabsw(1,ns),refitabsw(1,ns),itab,jtab, & - ttab,utab,cscat) - call binterp(asmpsw(1,1,1,ns),ncoef,nrefr,nrefi, & - refr,refi,refrtabsw(1,ns),refitabsw(1,ns),itab,jtab, & - ttab,utab,casm) - call binterp(pmom2psw(1,1,1,ns),ncoef,nrefr,nrefi, & - refr,refi,refrtabsw(1,ns),refitabsw(1,ns),itab,jtab, & - ttab,utab,cpmom2) - call binterp(pmom3psw(1,1,1,ns),ncoef,nrefr,nrefi, & - refr,refi,refrtabsw(1,ns),refitabsw(1,ns),itab,jtab, & - ttab,utab,cpmom3) - call binterp(pmom4psw(1,1,1,ns),ncoef,nrefr,nrefi, & - refr,refi,refrtabsw(1,ns),refitabsw(1,ns),itab,jtab, & - ttab,utab,cpmom4) - call binterp(pmom5psw(1,1,1,ns),ncoef,nrefr,nrefi, & - refr,refi,refrtabsw(1,ns),refitabsw(1,ns),itab,jtab, & - ttab,utab,cpmom5) - call binterp(pmom6psw(1,1,1,ns),ncoef,nrefr,nrefi, & - refr,refi,refrtabsw(1,ns),refitabsw(1,ns),itab,jtab, & - ttab,utab,cpmom6) - call binterp(pmom7psw(1,1,1,ns),ncoef,nrefr,nrefi, & - refr,refi,refrtabsw(1,ns),refitabsw(1,ns),itab,jtab, & - ttab,utab,cpmom7) - call binterp(sbackpsw(1,1,1,ns),ncoef,nrefr,nrefi, & - refr,refi,refrtabsw(1,ns),refitabsw(1,ns),itab,jtab, & - ttab,utab,cpsback2p) + call binterp(ascatpsw(1,1,1,ns),ncoef,nrefr,nrefi, & + refr,refi,refrtabsw(1,ns),refitabsw(1,ns),itab,jtab, & + ttab,utab,cscat) + call binterp(asmpsw(1,1,1,ns),ncoef,nrefr,nrefi, & + refr,refi,refrtabsw(1,ns),refitabsw(1,ns),itab,jtab, & + ttab,utab,casm) + call binterp(pmom2psw(1,1,1,ns),ncoef,nrefr,nrefi, & + refr,refi,refrtabsw(1,ns),refitabsw(1,ns),itab,jtab, & + ttab,utab,cpmom2) + call binterp(pmom3psw(1,1,1,ns),ncoef,nrefr,nrefi, & + refr,refi,refrtabsw(1,ns),refitabsw(1,ns),itab,jtab, & + ttab,utab,cpmom3) + call binterp(pmom4psw(1,1,1,ns),ncoef,nrefr,nrefi, & + refr,refi,refrtabsw(1,ns),refitabsw(1,ns),itab,jtab, & + ttab,utab,cpmom4) + call binterp(pmom5psw(1,1,1,ns),ncoef,nrefr,nrefi, & + refr,refi,refrtabsw(1,ns),refitabsw(1,ns),itab,jtab, & + ttab,utab,cpmom5) + call binterp(pmom6psw(1,1,1,ns),ncoef,nrefr,nrefi, & + refr,refi,refrtabsw(1,ns),refitabsw(1,ns),itab,jtab, & + ttab,utab,cpmom6) + call binterp(pmom7psw(1,1,1,ns),ncoef,nrefr,nrefi, & + refr,refi,refrtabsw(1,ns),refitabsw(1,ns),itab,jtab, & + ttab,utab,cpmom7) + call binterp(sbackpsw(1,1,1,ns),ncoef,nrefr,nrefi, & + refr,refi,refrtabsw(1,ns),refitabsw(1,ns),itab,jtab, & + ttab,utab,cpsback2p) ! chebyshev polynomials - ch(1)=1. - ch(2)=xrad - do nc=3,ncoef - ch(nc)=2.*xrad*ch(nc-1)-ch(nc-2) - enddo + ch(1)=1. + ch(2)=xrad + do nc=3,ncoef + ch(nc)=2.*xrad*ch(nc-1)-ch(nc-2) + enddo ! parameterized optical properties - pext=0.5*cext(1) - do nc=2,ncoef - pext=pext+ch(nc)*cext(nc) - enddo - pext=exp(pext) - + pext=0.5*cext(1) + do nc=2,ncoef + pext=pext+ch(nc)*cext(nc) + enddo + pext=exp(pext) + ! JCB 2004/02/09 -- for scattering efficiency - pscat=0.5*cscat(1) - do nc=2,ncoef - pscat=pscat+ch(nc)*cscat(nc) - enddo - pscat=exp(pscat) -! - pasm=0.5*casm(1) - do nc=2,ncoef - pasm=pasm+ch(nc)*casm(nc) - enddo - pasm=exp(pasm) -! - ppmom2=0.5*cpmom2(1) - do nc=2,ncoef - ppmom2=ppmom2+ch(nc)*cpmom2(nc) - enddo - if(ppmom2.le.0.0)ppmom2=0.0 -! - ppmom3=0.5*cpmom3(1) - do nc=2,ncoef - ppmom3=ppmom3+ch(nc)*cpmom3(nc) - enddo - if(ppmom3.le.0.0)ppmom3=0.0 -! - ppmom4=0.5*cpmom4(1) - do nc=2,ncoef - ppmom4=ppmom4+ch(nc)*cpmom4(nc) - enddo - if(ppmom4.le.0.0.or.sizem.le.0.03e-04)ppmom4=0.0 -! - ppmom5=0.5*cpmom5(1) - do nc=2,ncoef - ppmom5=ppmom5+ch(nc)*cpmom5(nc) - enddo - if(ppmom5.le.0.0.or.sizem.le.0.03e-04)ppmom5=0.0 -! - ppmom6=0.5*cpmom6(1) - do nc=2,ncoef - ppmom6=ppmom6+ch(nc)*cpmom6(nc) - enddo - if(ppmom6.le.0.0.or.sizem.le.0.03e-04)ppmom6=0.0 -! - ppmom7=0.5*cpmom7(1) - do nc=2,ncoef - ppmom7=ppmom7+ch(nc)*cpmom7(nc) - enddo - if(ppmom7.le.0.0.or.sizem.le.0.03e-04)ppmom7=0.0 -! - sback2=0.5*cpsback2p(1) ! JCB 2007/02/01 - backscattering efficiency - do nc=2,ncoef - sback2=sback2+ch(nc)*cpsback2p(nc) - enddo - sback2=exp(sback2) - if(sback2.le.0.0)sback2=0.0 + pscat=0.5*cscat(1) + do nc=2,ncoef + pscat=pscat+ch(nc)*cscat(nc) + enddo + pscat=exp(pscat) +! + pasm=0.5*casm(1) + do nc=2,ncoef + pasm=pasm+ch(nc)*casm(nc) + enddo + pasm=exp(pasm) +! + ppmom2=0.5*cpmom2(1) + do nc=2,ncoef + ppmom2=ppmom2+ch(nc)*cpmom2(nc) + enddo + if(ppmom2.le.0.0)ppmom2=0.0 +! + ppmom3=0.5*cpmom3(1) + do nc=2,ncoef + ppmom3=ppmom3+ch(nc)*cpmom3(nc) + enddo + if(ppmom3.le.0.0)ppmom3=0.0 +! + ppmom4=0.5*cpmom4(1) + do nc=2,ncoef + ppmom4=ppmom4+ch(nc)*cpmom4(nc) + enddo + if(ppmom4.le.0.0.or.sizem.le.0.03e-04)ppmom4=0.0 +! + ppmom5=0.5*cpmom5(1) + do nc=2,ncoef + ppmom5=ppmom5+ch(nc)*cpmom5(nc) + enddo + if(ppmom5.le.0.0.or.sizem.le.0.03e-04)ppmom5=0.0 +! + ppmom6=0.5*cpmom6(1) + do nc=2,ncoef + ppmom6=ppmom6+ch(nc)*cpmom6(nc) + enddo + if(ppmom6.le.0.0.or.sizem.le.0.03e-04)ppmom6=0.0 +! + ppmom7=0.5*cpmom7(1) + do nc=2,ncoef + ppmom7=ppmom7+ch(nc)*cpmom7(nc) + enddo + if(ppmom7.le.0.0.or.sizem.le.0.03e-04)ppmom7=0.0 +! + sback2=0.5*cpsback2p(1) ! JCB 2007/02/01 - backscattering efficiency + do nc=2,ncoef + sback2=sback2+ch(nc)*cpsback2p(nc) + enddo + sback2=exp(sback2) + if(sback2.le.0.0)sback2=0.0 ! ! ! weights: - pscat=min(pscat,pext) !czhao - weighte=pext*pie*exp(x)**2 ! JCB, extinction cross section - weights=pscat*pie*exp(x)**2 ! JCB, scattering cross section - swtauaer(ns,klevel)=swtauaer(ns,klevel)+weighte*number_bin_col(m,klevel) ! must be multiplied by deltaZ - swsizeaer(ns,klevel)=swsizeaer(ns,klevel)+exp(x)*10000.0* & - number_bin_col(m,klevel) - swwaer(ns,klevel)=swwaer(ns,klevel)+weights*number_bin_col(m,klevel) !JCB - swgaer(ns,klevel)=swgaer(ns,klevel)+pasm*weights*number_bin_col(m,klevel) !JCB + pscat=min(pscat,pext) !czhao + weighte=pext*pie*exp(x)**2 ! JCB, extinction cross section + weights=pscat*pie*exp(x)**2 ! JCB, scattering cross section + swtauaer(ns,klevel)=swtauaer(ns,klevel)+weighte*number_bin_col(m,klevel) ! must be multiplied by deltaZ + swsizeaer(ns,klevel)=swsizeaer(ns,klevel)+exp(x)*10000.0* & + number_bin_col(m,klevel) + swwaer(ns,klevel)=swwaer(ns,klevel)+weights*number_bin_col(m,klevel) !JCB + swgaer(ns,klevel)=swgaer(ns,klevel)+pasm*weights*number_bin_col(m,klevel) !JCB ! need weighting by scattering cross section ? JCB 2004/02/09 - l2(ns,klevel)=l2(ns,klevel)+weights*ppmom2*number_bin_col(m,klevel) - l3(ns,klevel)=l3(ns,klevel)+weights*ppmom3*number_bin_col(m,klevel) - l4(ns,klevel)=l4(ns,klevel)+weights*ppmom4*number_bin_col(m,klevel) - l5(ns,klevel)=l5(ns,klevel)+weights*ppmom5*number_bin_col(m,klevel) - l6(ns,klevel)=l6(ns,klevel)+weights*ppmom6*number_bin_col(m,klevel) - l7(ns,klevel)=l7(ns,klevel)+weights*ppmom7*number_bin_col(m,klevel) + l2(ns,klevel)=l2(ns,klevel)+weights*ppmom2*number_bin_col(m,klevel) + l3(ns,klevel)=l3(ns,klevel)+weights*ppmom3*number_bin_col(m,klevel) + l4(ns,klevel)=l4(ns,klevel)+weights*ppmom4*number_bin_col(m,klevel) + l5(ns,klevel)=l5(ns,klevel)+weights*ppmom5*number_bin_col(m,klevel) + l6(ns,klevel)=l6(ns,klevel)+weights*ppmom6*number_bin_col(m,klevel) + l7(ns,klevel)=l7(ns,klevel)+weights*ppmom7*number_bin_col(m,klevel) ! convert backscattering efficiency to backscattering coefficient, units (cm)^-1 - swbscoef(ns,klevel)=swbscoef(ns,klevel)+pie*exp(x)**2*sback2*number_bin_col(m,klevel)! backscatter + swbscoef(ns,klevel)=swbscoef(ns,klevel)+pie*exp(x)**2*sback2*number_bin_col(m,klevel)! backscatter - end do ! end of nbin_a loop + end do ! end of nbin_a loop ! take averages - weighted by cross section - new code JCB 2004/02/09 - swsizeaer(ns,klevel)=swsizeaer(ns,klevel)/thesum - swgaer(ns,klevel)=swgaer(ns,klevel)/swwaer(ns,klevel) ! JCB removed *3 factor 2/9/2004 + swsizeaer(ns,klevel)=swsizeaer(ns,klevel)/thesum + swgaer(ns,klevel)=swgaer(ns,klevel)/swwaer(ns,klevel) ! JCB removed *3 factor 2/9/2004 ! because factor is applied in subroutine opmie, file zz01fastj_mod.f - l2(ns,klevel)=l2(ns,klevel)/swwaer(ns,klevel) - l3(ns,klevel)=l3(ns,klevel)/swwaer(ns,klevel) - l4(ns,klevel)=l4(ns,klevel)/swwaer(ns,klevel) - l5(ns,klevel)=l5(ns,klevel)/swwaer(ns,klevel) - l6(ns,klevel)=l6(ns,klevel)/swwaer(ns,klevel) - l7(ns,klevel)=l7(ns,klevel)/swwaer(ns,klevel) + l2(ns,klevel)=l2(ns,klevel)/swwaer(ns,klevel) + l3(ns,klevel)=l3(ns,klevel)/swwaer(ns,klevel) + l4(ns,klevel)=l4(ns,klevel)/swwaer(ns,klevel) + l5(ns,klevel)=l5(ns,klevel)/swwaer(ns,klevel) + l6(ns,klevel)=l6(ns,klevel)/swwaer(ns,klevel) + l7(ns,klevel)=l7(ns,klevel)/swwaer(ns,klevel) ! backscatter coef, divide by 4*Pie to get units of (km*ster)^-1 JCB 2007/02/01 - swbscoef(ns,klevel)=swbscoef(ns,klevel)*1.0e5 ! units are now (km)^-1 - swextaer(ns,klevel)=swtauaer(ns,klevel)*1.0e5 ! now true extincion, units (km)^-1 -! this must be last!! - swwaer(ns,klevel)=swwaer(ns,klevel)/swtauaer(ns,klevel) ! JCB + swbscoef(ns,klevel)=swbscoef(ns,klevel)*1.0e5 ! units are now (km)^-1 + swextaer(ns,klevel)=swtauaer(ns,klevel)*1.0e5 ! now true extincion, units (km)^-1 +! this must be last!! + swwaer(ns,klevel)=swwaer(ns,klevel)/swtauaer(ns,klevel) ! JCB !70 continue ! bail out if no aerosol;go on to next wavelength bin -1000 continue ! end of wavelength loop +1000 continue ! end of wavelength loop -2000 continue ! end of klevel loop +2000 continue ! end of klevel loop ! ! before returning, multiply tauaer by depth of individual cells. ! tauaer is in cm-1, dz in m; multiply dz by 100 to convert from m to cm. - do ns = 1, nswbands - do klevel = 1, kte - swtauaer(ns,klevel) = swtauaer(ns,klevel) * dz(klevel)* 100. - end do - end do + do ns = 1, nswbands + do klevel = 1, kte + swtauaer(ns,klevel) = swtauaer(ns,klevel) * dz(klevel)* 100. + end do + end do #if (defined(CHEM_DBG_I) && defined(CHEM_DBG_J) && defined(CHEM_DBG_K)) !ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc !ec fastj diagnostics !ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc - if (iclm .eq. CHEM_DBG_I) then - if (jclm .eq. CHEM_DBG_J) then + if (iclm .eq. CHEM_DBG_I) then + if (jclm .eq. CHEM_DBG_J) then ! initial entry - if (kcallmieaer .eq. 0) then + if (kcallmieaer .eq. 0) then write(*,909) CHEM_DBG_I, CHEM_DBG_J - 909 format(' for cell i = ', i3, ' j = ', i3) +909 format(' for cell i = ', i3, ' j = ', i3) write(*,910) - 910 format(& - 'curr_secs', 3x, 'i', 3x, 'j', 3x,'k', 3x, & - 'dzmfastj', 8x, & - 'tauaer(1,k)',1x, 'tauaer(2,k)',1x,'tauaer(3,k)',3x, & - 'tauaer(4,k)',5x, & - 'waer(1,k)', 7x, 'waer(2,k)', 7x,'waer(3,k)', 7x, & - 'waer(4,k)', 7x, & - 'gaer(1,k)', 7x, 'gaer(2,k)', 7x,'gaer(3,k)', 7x, & - 'gaer(4,k)', 7x, & - 'extaer(1,k)',5x, 'extaer(2,k)',5x,'extaer(3,k)',5x, & - 'extaer(4,k)',5x, & - 'sizeaer(1,k)',4x, 'sizeaer(2,k)',4x,'sizeaer(3,k)',4x,& - 'sizeaer(4,k)' ) - end if +910 format(& + 'curr_secs', 3x, 'i', 3x, 'j', 3x,'k', 3x, & + 'dzmfastj', 8x, & + 'tauaer(1,k)',1x, 'tauaer(2,k)',1x,'tauaer(3,k)',3x, & + 'tauaer(4,k)',5x, & + 'waer(1,k)', 7x, 'waer(2,k)', 7x,'waer(3,k)', 7x, & + 'waer(4,k)', 7x, & + 'gaer(1,k)', 7x, 'gaer(2,k)', 7x,'gaer(3,k)', 7x, & + 'gaer(4,k)', 7x, & + 'extaer(1,k)',5x, 'extaer(2,k)',5x,'extaer(3,k)',5x, & + 'extaer(4,k)',5x, & + 'sizeaer(1,k)',4x, 'sizeaer(2,k)',4x,'sizeaer(3,k)',4x,& + 'sizeaer(4,k)' ) + end if !ec output for run_out.30 - do k = 1,kte - write(*, 912) & - curr_secs,iclm, jclm, k, & - dz(k) , & - (swtauaer(n,k), n=1,4), & - (swwaer(n,k), n=1,4), & - (swgaer(n,k), n=1,4), & - (swextaer(n,k), n=1,4), & - (swsizeaer(n,k), n=1,4) - 912 format( i7,3(2x,i4),2x,21(e14.6,2x)) - end do - kcallmieaer = kcallmieaer + 1 - end if + do k = 1,kte + write(*, 912) & + curr_secs,iclm, jclm, k, & + dz(k) , & + (swtauaer(n,k), n=1,4), & + (swwaer(n,k), n=1,4), & + (swgaer(n,k), n=1,4), & + (swextaer(n,k), n=1,4), & + (swsizeaer(n,k), n=1,4) +912 format( i7,3(2x,i4),2x,21(e14.6,2x)) + end do + kcallmieaer = kcallmieaer + 1 end if + end if !ec end print of fastj diagnostics !ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc #endif !###################################################################### -!parameterization of mie calculation for longwave +!parameterization of mie calculation for longwave !##################################################################### ! begin level loop - do 2001 klevel=1,kte + do 2001 klevel=1,kte ! sum densities for normalization - thesum=0.0 - do m=1,nbin_a - thesum=thesum+number_bin_col(m,klevel) - enddo + thesum=0.0 + do m=1,nbin_a + thesum=thesum+number_bin_col(m,klevel) + enddo ! Begin longwave spectral loop - do 1001 ns=1,nlwbands + do 1001 ns=1,nlwbands ! aerosol optical properties - lwtauaer(ns,klevel)=0. - lwextaer(ns,klevel)=0.0 - if(thesum.le.1e-21)goto 1001 ! set everything = 0 if no aerosol !wig changed 0.0 to 1e-21, 31-Oct-2005 + lwtauaer(ns,klevel)=0. + lwextaer(ns,klevel)=0.0 + if(thesum.le.1e-21)goto 1001 ! set everything = 0 if no aerosol !wig changed 0.0 to 1e-21, 31-Oct-2005 ! loop over the bins - do m=1,nbin_a ! nbin_a is number of bins + do m=1,nbin_a ! nbin_a is number of bins ! here's the size - sizem=radius_wet_col(m,klevel) ! radius in cm - x=alog(radius_wet_col(m,klevel)) ! radius in cm - crefin=lwrefindx_col(m,klevel,ns) - refr=real(crefin) - refi=-Aimag(crefin) - xrad=x - thesize=2.0*pie*exp(x)/wavmidlw(ns) - ! normalize size parameter - xrad=(2*xrad-xrmax-xrmin)/(xrmax-xrmin) - - !cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc - !ec diagnostics - !ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc - ! retain this diagnostic code + sizem=radius_wet_col(m,klevel) ! radius in cm + x=alog(radius_wet_col(m,klevel)) ! radius in cm + crefin=lwrefindx_col(m,klevel,ns) + refr=real(crefin) + refi=-Aimag(crefin) + xrad=x + thesize=2.0*pie*exp(x)/wavmidlw(ns) + ! normalize size parameter + xrad=(2*xrad-xrmax-xrmin)/(xrmax-xrmin) + + !cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc + !ec diagnostics + !ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc + ! retain this diagnostic code !lzhang - if(abs(refr).gt.10.0) then - print *,'revised, refr=', refr - refr=sign(1.0,refr)*10. - endif - if (abs(refr).le.0.001)then - refr=sign(1.0,refr)*0.0011 - print *, 'revised, refr=', refr - endif - if (abs(refi).gt.10)then - refi=sign(1.0,refi)*10. - print *, 'revised, refi=', refi - endif + if(abs(refr).gt.10.0) then + print *,'revised, refr=', refr + refr=sign(1.0,refr)*10. + endif + if (abs(refr).le.0.001)then + refr=sign(1.0,refr)*0.0011 + print *, 'revised, refr=', refr + endif + if (abs(refi).gt.10)then + refi=sign(1.0,refi)*10. + print *, 'revised, refi=', refi + endif !lzhang - if(abs(refr).gt.10.0.or.abs(refr).le.0.001)then - ! write ( msg, '(a,1x, e14.5)' ) & - print *, 'mieaer /refr/ outside range 1e-3 - 10 ' // & - 'refr= ', refr -! call peg_error_fatal( lunerr, msg ) - endif - if(abs(refi).gt.10.)then + if(abs(refr).gt.10.0.or.abs(refr).le.0.001)then + ! write ( msg, '(a,1x, e14.5)' ) & + print *, 'mieaer /refr/ outside range 1e-3 - 10 ' // & + 'refr= ', refr +! call peg_error_fatal( lunerr, msg ) + endif + if(abs(refi).gt.10.)then ! write ( msg, '(a,1x, e14.5)' ) & - print *, 'mieaer /refi/ >10 ' // & - 'refi', refi -! call peg_error_fatal( lunerr, msg ) - endif - !ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc + print *, 'mieaer /refi/ >10 ' // & + 'refi', refi +! call peg_error_fatal( lunerr, msg ) + endif + !ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc ! interpolate coefficients linear in refractive index ! first call calcs itab,jtab,ttab,utab - itab=0 - call binterp(absplw(1,1,1,ns),ncoef,nrefr,nrefi, & - refr,refi,refrtablw(1,ns),refitablw(1,ns),itab,jtab, & - ttab,utab,cabs) + itab=0 + call binterp(absplw(1,1,1,ns),ncoef,nrefr,nrefi, & + refr,refi,refrtablw(1,ns),refitablw(1,ns),itab,jtab, & + ttab,utab,cabs) ! chebyshev polynomials - ch(1)=1. - ch(2)=xrad - do nc=3,ncoef - ch(nc)=2.*xrad*ch(nc-1)-ch(nc-2) - enddo + ch(1)=1. + ch(2)=xrad + do nc=3,ncoef + ch(nc)=2.*xrad*ch(nc-1)-ch(nc-2) + enddo ! parameterized optical properties - pabs=0.5*cabs(1) - do nc=2,ncoef - pabs=pabs+ch(nc)*cabs(nc) - enddo - pabs=exp(pabs) + pabs=0.5*cabs(1) + do nc=2,ncoef + pabs=pabs+ch(nc)*cabs(nc) + enddo + pabs=exp(pabs) ! ! weights: - weighta=pabs*pie*exp(x)**2 ! JCB, extinction cross section - !weighta: cm2 and number_bin_col #/cm3 -> /cm - lwtauaer(ns,klevel)=lwtauaer(ns,klevel)+weighta*number_bin_col(m,klevel) ! must be multiplied by deltaZ + weighta=pabs*pie*exp(x)**2 ! JCB, extinction cross section + !weighta: cm2 and number_bin_col #/cm3 -> /cm + lwtauaer(ns,klevel)=lwtauaer(ns,klevel)+weighta*number_bin_col(m,klevel) ! must be multiplied by deltaZ - end do ! end of nbin_a loop + end do ! end of nbin_a loop ! take averages - weighted by cross section - new code JCB 2004/02/09 - lwextaer(ns,klevel)=lwtauaer(ns,klevel)*1.0e5 ! now true extincion, units (km)^-1 + lwextaer(ns,klevel)=lwtauaer(ns,klevel)*1.0e5 ! now true extincion, units (km)^-1 -1001 continue ! end of wavelength loop +1001 continue ! end of wavelength loop -2001 continue ! end of klevel loop +2001 continue ! end of klevel loop ! ! before returning, multiply tauaer by depth of individual cells. ! tauaer is in cm-1, dz in m; multiply dz by 100 to convert from m to cm. - do ns = 1, nlwbands - do klevel = 1, kte - lwtauaer(ns,klevel) = lwtauaer(ns,klevel) * dz(klevel)* 100. - end do - end do + do ns = 1, nlwbands + do klevel = 1, kte + lwtauaer(ns,klevel) = lwtauaer(ns,klevel) * dz(klevel)* 100. + end do + end do return - end subroutine mieaer + end subroutine mieaer !**************************************************************** !**************************************************************** - subroutine fitcurv(rs,yin,coef,ncoef,maxm) + subroutine fitcurv(rs,yin,coef,ncoef,maxm) ! fit y(x) using Chebychev polynomials ! wig 7-Sep-2004: Removed dependency on pre-determined maximum @@ -2612,30 +2612,30 @@ subroutine fitcurv(rs,yin,coef,ncoef,maxm) character*80 msg do 100 m=1,maxm - if (rs(m).ge.0.)then - x(m)=alog(rs(m)) - else - x (m)=1.2-10 - endif - if (yin(m).ge.0.)then - y(m)=alog(yin(m)) - else - y(m)=1.e-10 - endif - 100 continue + if (rs(m).ge.0.)then + x(m)=alog(rs(m)) + else + x (m)=1.2-10 + endif + if (yin(m).ge.0.)then + y(m)=alog(yin(m)) + else + y(m)=1.e-10 + endif +100 continue xmin=x(1) xmax=x(maxm) do 110 m=1,maxm - x(m)=(2*x(m)-xmax-xmin)/(xmax-xmin) - 110 continue + x(m)=(2*x(m)-xmax-xmin)/(xmax-xmin) +110 continue call chebft(coef,ncoef,maxm,y) return - end subroutine fitcurv + end subroutine fitcurv !************************************************************** - subroutine fitcurv_nolog(rs,yin,coef,ncoef,maxm) + subroutine fitcurv_nolog(rs,yin,coef,ncoef,maxm) ! fit y(x) using Chebychev polynomials ! wig 7-Sep-2004: Removed dependency on pre-determined maximum @@ -2653,24 +2653,24 @@ subroutine fitcurv_nolog(rs,yin,coef,ncoef,maxm) integer m real(kind_chem) xmin, xmax character*80 msg - + do 100 m=1,maxm - x(m)=alog(rs(m)) - y(m)=yin(m) ! note, no "alog" here - 100 continue + x(m)=alog(rs(m)) + y(m)=yin(m) ! note, no "alog" here +100 continue xmin=x(1) xmax=x(maxm) do 110 m=1,maxm - x(m)=(2*x(m)-xmax-xmin)/(xmax-xmin) - 110 continue + x(m)=(2*x(m)-xmax-xmin)/(xmax-xmin) +110 continue call chebft(coef,ncoef,maxm,y) return - end subroutine fitcurv_nolog + end subroutine fitcurv_nolog !************************************************************************ - subroutine chebft(c,ncoef,n,f) + subroutine chebft(c,ncoef,n,f) ! given a function f with values at zeroes x_k of Chebychef polynomial ! T_n(x), calculate coefficients c_j such that ! f(x)=sum(k=1,n) c_k t_(k-1)(y) - 0.5*c_1 @@ -2683,10 +2683,10 @@ subroutine chebft(c,ncoef,n,f) parameter (pi=3.14159265) real(kind_chem) c(ncoef),f(n) -! local variables +! local variables real(kind_chem) fac, thesum integer j, k - + fac=2./n do j=1,ncoef thesum=0 @@ -2696,9 +2696,9 @@ subroutine chebft(c,ncoef,n,f) c(j)=fac*thesum enddo return - end subroutine chebft + end subroutine chebft !************************************************************************* - subroutine binterp(table,km,im,jm,x,y,xtab,ytab,ix,jy,t,u,out) + subroutine binterp(table,km,im,jm,x,y,xtab,ytab,ix,jy,t,u,out) ! bilinear interpolation of table ! @@ -2710,40 +2710,40 @@ subroutine binterp(table,km,im,jm,x,y,xtab,ytab,ix,jy,t,u,out) if(ix.gt.0)go to 30 if(im.gt.1)then - do i=1,im - if(x.lt.xtab(i))go to 10 - enddo - 10 ix=max0(i-1,1) - ip1=min0(ix+1,im) - dx=(xtab(ip1)-xtab(ix)) - if(abs(dx).gt.1.e-20)then - t=(x-xtab(ix))/(xtab(ix+1)-xtab(ix)) - else - t=0 - endif + do i=1,im + if(x.lt.xtab(i))go to 10 + enddo +10 ix=max0(i-1,1) + ip1=min0(ix+1,im) + dx=(xtab(ip1)-xtab(ix)) + if(abs(dx).gt.1.e-20)then + t=(x-xtab(ix))/(xtab(ix+1)-xtab(ix)) + else + t=0 + endif else - ix=1 - ip1=1 - t=0 + ix=1 + ip1=1 + t=0 endif if(jm.gt.1)then - do j=1,jm - if(y.lt.ytab(j))go to 20 - enddo - 20 jy=max0(j-1,1) - jp1=min0(jy+1,jm) - dy=(ytab(jp1)-ytab(jy)) - if(abs(dy).gt.1.e-20)then - u=(y-ytab(jy))/dy - else - u=0 - endif + do j=1,jm + if(y.lt.ytab(j))go to 20 + enddo +20 jy=max0(j-1,1) + jp1=min0(jy+1,jm) + dy=(ytab(jp1)-ytab(jy)) + if(abs(dy).gt.1.e-20)then + u=(y-ytab(jy))/dy + else + u=0 + endif else - jy=1 - jp1=1 - u=0 + jy=1 + jp1=1 + u=0 endif - 30 continue +30 continue jp1=min(jy+1,jm) ip1=min(ix+1,im) tu=t*u @@ -2752,15 +2752,15 @@ subroutine binterp(table,km,im,jm,x,y,xtab,ytab,ix,jy,t,u,out) tcu=u-tu do k=1,km out(k)=tcuc*table(k,ix,jy)+tuc*table(k,ip1,jy) & - +tu*table(k,ip1,jp1)+tcu*table(k,ix,jp1) + +tu*table(k,ip1,jp1)+tcu*table(k,ix,jp1) enddo return - end subroutine binterp + end subroutine binterp !*************************************************************** - subroutine miev0 ( xx, crefin, perfct, mimcut, anyang, & - numang, xmu, nmom, ipolzn, momdim, prnt, & - qext, qsca, gqsc, pmom, sforw, sback, s1, & - s2, tforw, tback ) + subroutine miev0 ( xx, crefin, perfct, mimcut, anyang, & + numang, xmu, nmom, ipolzn, momdim, prnt, & + qext, qsca, gqsc, pmom, sforw, sback, s1, & + s2, tforw, tback ) ! ! computes mie scattering and extinction efficiencies; asymmetry ! factor; forward- and backscatter amplitude; scattering @@ -2842,9 +2842,9 @@ subroutine miev0 ( xx, crefin, perfct, mimcut, anyang, & logical anyang, perfct, prnt(*) integer ipolzn, momdim, numang, nmom real(kind_chem) gqsc, mimcut, pmom( 0:momdim, * ), qext, qsca, & - xmu(*), xx + xmu(*), xx complex crefin, sforw, sback, s1(*), s2(*), tforw(*), & - tback(*) + tback(*) integer maxang,mxang2,maxtrm real(kind_chem) onethr ! ---------------------------------------------------------------------- @@ -2866,9 +2866,9 @@ subroutine miev0 ( xx, crefin, perfct, mimcut, anyang, & real(kind_chem) xinv,psinm1,chinm1,psin,chin,rtmp,taun real(kind_chem) rbiga( maxtrm ), pin( maxang ), pinm1( maxang ) complex an, bn, anm1, bnm1, anp, bnp, anpm, bnpm, cresav, & - cior, cioriv, ctmp, zet, zetnm1, zetn + cior, cioriv, ctmp, zet, zetnm1, zetn complex cbiga( maxtrm ), lita( maxtrm ), litb( maxtrm ), & - sp( maxang ), sm( maxang ), sps( mxang2 ), sms( mxang2 ) + sp( maxang ), sm( maxang ), sps( mxang2 ), sms( mxang2 ) equivalence ( cbiga, rbiga ) logical, save :: pass1 data pass1 / .true. / @@ -2901,15 +2901,15 @@ subroutine miev0 ( xx, crefin, perfct, mimcut, anyang, & ! ** check input and calculate ! ** certain variables from input ! - 10 call ckinmi( numang, maxang, xx, perfct, crefin, momdim, & - nmom, ipolzn, anyang, xmu, calcmo, npquan ) +10 call ckinmi( numang, maxang, xx, perfct, crefin, momdim, & + nmom, ipolzn, anyang, xmu, calcmo, npquan ) ! if ( perfct .and. xx .le. 0.1 ) then ! ** use totally-reflecting ! ** small-particle limit ! call small1 ( xx, numang, xmu, qext, qsca, gqsc, sforw, & - sback, s1, s2, tforw, tback, lita, litb ) + sback, s1, s2, tforw, tback, lita, litb ) ntrm = 2 go to 200 end if @@ -2931,8 +2931,8 @@ subroutine miev0 ( xx, crefin, perfct, mimcut, anyang, & ! ** ( ref. 2, p. 1508 ) ! call small2 ( xx, cior, .not.noabs, numang, xmu, qext, & - qsca, gqsc, sforw, sback, s1, s2, tforw, & - tback, lita, litb ) + qsca, gqsc, sforw, sback, s1, s2, tforw, & + tback, lita, litb ) ntrm = 2 go to 200 end if @@ -2951,12 +2951,12 @@ subroutine miev0 ( xx, crefin, perfct, mimcut, anyang, & ntrm = xx + 4. * xx**onethr + 2. end if if ( ntrm+1 .gt. maxtrm ) & - call errmsg( 'miev0--parameter maxtrm too small', .true. ) + call errmsg( 'miev0--parameter maxtrm too small', .true. ) ! ! ** calculate logarithmic derivatives of ! ** j-bessel-fcn., big-a-sub-(1 to ntrm) if ( .not.perfct ) & - call biga( cior, xx, ntrm, noabs, yesang, rbiga, cbiga ) + call biga( cior, xx, ntrm, noabs, yesang, rbiga, cbiga ) ! ! ** initialize ricatti-bessel functions ! ** (psi,chi,zeta)-sub-(0,1) for upward @@ -2980,7 +2980,7 @@ subroutine miev0 ( xx, crefin, perfct, mimcut, anyang, & pin( j ) = 1.0 sp ( j ) = ( 0.0, 0.0 ) sm ( j ) = ( 0.0, 0.0 ) - 60 continue +60 continue else do 70 j = 1, nangd2 pinm1( j ) = 0.0 @@ -2989,7 +2989,7 @@ subroutine miev0 ( xx, crefin, perfct, mimcut, anyang, & sm ( j ) = ( 0.0, 0.0 ) sps( j ) = ( 0.0, 0.0 ) sms( j ) = ( 0.0, 0.0 ) - 70 continue +70 continue end if ! ** initialize mie sums for efficiencies, etc. qsca = 0.0 @@ -3017,23 +3017,23 @@ subroutine miev0 ( xx, crefin, perfct, mimcut, anyang, & ! ** totally-reflecting case ! an = ( ( fn*xinv ) * psin - psinm1 ) / & - ( ( fn*xinv ) * zetn - zetnm1 ) + ( ( fn*xinv ) * zetn - zetnm1 ) bn = psin / zetn ! else if ( noabs ) then ! ** no-absorption case ! an = ( ( rioriv*rbiga(n) + ( fn*xinv ) ) * psin - psinm1 ) & - / ( ( rioriv*rbiga(n) + ( fn*xinv ) ) * zetn - zetnm1 ) + / ( ( rioriv*rbiga(n) + ( fn*xinv ) ) * zetn - zetnm1 ) bn = ( ( mre * rbiga(n) + ( fn*xinv ) ) * psin - psinm1 ) & - / ( ( mre * rbiga(n) + ( fn*xinv ) ) * zetn - zetnm1 ) + / ( ( mre * rbiga(n) + ( fn*xinv ) ) * zetn - zetnm1 ) else ! ** absorptive case ! an = ( ( cioriv * cbiga(n) + ( fn*xinv ) ) * psin - psinm1 ) & - /( ( cioriv * cbiga(n) + ( fn*xinv ) ) * zetn - zetnm1 ) + /( ( cioriv * cbiga(n) + ( fn*xinv ) ) * zetn - zetnm1 ) bn = ( ( cior * cbiga(n) + ( fn*xinv ) ) * psin - psinm1 ) & - /( ( cior * cbiga(n) + ( fn*xinv ) ) * zetn - zetnm1 ) + /( ( cior * cbiga(n) + ( fn*xinv ) ) * zetn - zetnm1 ) qsca = qsca + twonp1 * ( sq( an ) + sq( bn ) ) ! end if @@ -3048,8 +3048,8 @@ subroutine miev0 ( xx, crefin, perfct, mimcut, anyang, & sback = sback + ( mm * twonp1 ) * ( an - bn ) tback( 1 ) = tback( 1 ) + ( mm * tcoef ) * ( an + bn ) gqsc = gqsc + ( fn - rn ) * dble( anm1 * conjg( an ) & - + bnm1 * conjg( bn ) ) & - + coeff * dble( an * conjg( bn ) ) + + bnm1 * conjg( bn ) ) & + + coeff * dble( an * conjg( bn ) ) ! if ( yesang ) then ! ** put mie coefficients in form @@ -3072,7 +3072,7 @@ subroutine miev0 ( xx, crefin, perfct, mimcut, anyang, & sm( j ) = sm( j ) + bnp * ( pin( j ) - taun ) pinm1( j ) = pin( j ) pin( j ) = ( xmu( j ) * pin( j ) ) + np1dn * rtmp - 80 continue +80 continue ! else ! ** angles symmetric about 90 degrees @@ -3088,7 +3088,7 @@ subroutine miev0 ( xx, crefin, perfct, mimcut, anyang, & sps( j ) = sps( j ) + anpm * ( pin( j ) - taun ) pinm1( j ) = pin( j ) pin( j ) = ( xmu( j ) * pin( j ) ) + np1dn * rtmp - 90 continue +90 continue ! end if end if @@ -3105,7 +3105,7 @@ subroutine miev0 ( xx, crefin, perfct, mimcut, anyang, & zetn = zet psinm1 = psin psin = dble( zetn ) - 100 continue +100 continue ! ! ---------- end loop to sum mie series -------------------------------- ! @@ -3133,26 +3133,26 @@ subroutine miev0 ( xx, crefin, perfct, mimcut, anyang, & do 110 j = 1, numang s1( j ) = 0.5 * ( sp( j ) + sm( j ) ) s2( j ) = 0.5 * ( sp( j ) - sm( j ) ) - 110 continue +110 continue ! else ! ** vectorizable loop do 120 j = 1, nangd2 s1( j ) = 0.5 * ( sp( j ) + sm( j ) ) s2( j ) = 0.5 * ( sp( j ) - sm( j ) ) - 120 continue +120 continue ! ** vectorizable loop do 130 j = 1, nangd2 s1( numang+1 - j ) = 0.5 * ( sps( j ) + sms( j ) ) s2( numang+1 - j ) = 0.5 * ( sps( j ) - sms( j ) ) - 130 continue +130 continue end if ! end if ! ** calculate legendre moments - 200 if ( nmom.gt.0 ) & - call lpcoef ( ntrm, nmom, ipolzn, momdim, calcmo, npquan, & - lita, litb, pmom ) +200 if ( nmom.gt.0 ) & + call lpcoef ( ntrm, nmom, ipolzn, momdim, calcmo, npquan, & + lita, litb, pmom ) ! if ( aimag(crefin) .gt. 0.0 ) then ! ** take complex conjugates @@ -3162,12 +3162,12 @@ subroutine miev0 ( xx, crefin, perfct, mimcut, anyang, & do 210 i = 1, 2 tforw( i ) = conjg( tforw(i) ) tback( i ) = conjg( tback(i) ) - 210 continue +210 continue ! do 220 j = 1, numang s1( j ) = conjg( s1(j) ) s2( j ) = conjg( s2(j) ) - 220 continue +220 continue ! end if ! @@ -3176,13 +3176,13 @@ subroutine miev0 ( xx, crefin, perfct, mimcut, anyang, & ! ** correct answers and abort if bad ! call testmi ( qext, qsca, gqsc, sforw, sback, s1, s2, & - tforw, tback, pmom, momdim, ok ) + tforw, tback, pmom, momdim, ok ) if ( .not. ok ) then prnt(1) = .false. prnt(2) = .false. call miprnt( prnt, xx, perfct, crefin, numang, xmu, qext, & - qsca, gqsc, nmom, ipolzn, momdim, calcmo, & - pmom, sforw, sback, tforw, tback, s1, s2 ) + qsca, gqsc, nmom, ipolzn, momdim, calcmo, & + pmom, sforw, sback, tforw, tback, s1, s2 ) call errmsg( 'miev0 -- self-test failed', .true. ) end if ! ** restore user input values @@ -3202,15 +3202,15 @@ subroutine miev0 ( xx, crefin, perfct, mimcut, anyang, & ! if ( prnt(1) .or. prnt(2) ) & call miprnt( prnt, xx, perfct, crefin, numang, xmu, qext, & - qsca, gqsc, nmom, ipolzn, momdim, calcmo, & - pmom, sforw, sback, tforw, tback, s1, s2 ) + qsca, gqsc, nmom, ipolzn, momdim, calcmo, & + pmom, sforw, sback, tforw, tback, s1, s2 ) ! return ! - end subroutine miev0 -!**************************************************************************** - subroutine ckinmi( numang, maxang, xx, perfct, crefin, momdim, & - nmom, ipolzn, anyang, xmu, calcmo, npquan ) + end subroutine miev0 +!**************************************************************************** + subroutine ckinmi( numang, maxang, xx, perfct, crefin, momdim, & + nmom, ipolzn, anyang, xmu, calcmo, npquan ) ! ! check for bad input to 'miev0' and calculate -calcmo,npquan- ! @@ -3233,7 +3233,7 @@ subroutine ckinmi( numang, maxang, xx, perfct, crefin, momdim, & if ( numang.lt.0 ) call wrtbad( 'numang', inperr ) if ( xx.lt.0. ) call wrtbad( 'xx', inperr ) if ( .not.perfct .and. dble(crefin).le.0. ) & - call wrtbad( 'crefin', inperr ) + call wrtbad( 'crefin', inperr ) if ( momdim.lt.1 ) call wrtbad( 'momdim', inperr ) ! if ( nmom.ne.0 ) then @@ -3242,7 +3242,7 @@ subroutine ckinmi( numang, maxang, xx, perfct, crefin, momdim, & npquan = 0 do 5 l = 1, 4 calcmo( l ) = .false. - 5 continue +5 continue if ( ipolzn.ne.0 ) then ! ** parse out -ipolzn- into its digits ! ** to find which phase quantities are @@ -3253,38 +3253,38 @@ subroutine ckinmi( numang, maxang, xx, perfct, crefin, momdim, & ip = ichar( string(j:j) ) - ichar( '0' ) if ( ip.ge.1 .and. ip.le.4 ) calcmo( ip ) = .true. if ( ip.eq.0 .or. (ip.ge.5 .and. ip.le.9) ) & - call wrtbad( 'ipolzn', inperr ) + call wrtbad( 'ipolzn', inperr ) npquan = max0( npquan, ip ) - 10 continue +10 continue end if end if ! if ( anyang ) then ! ** allow for slight imperfections in ! ** computation of cosine - do 20 i = 1, numang - if ( xmu(i).lt.-1.00001 .or. xmu(i).gt.1.00001 ) & - call wrtbad( 'xmu', inperr ) - 20 continue + do 20 i = 1, numang + if ( xmu(i).lt.-1.00001 .or. xmu(i).gt.1.00001 ) & + call wrtbad( 'xmu', inperr ) +20 continue else - do 22 i = 1, ( numang + 1 ) / 2 - if ( xmu(i).lt.-0.00001 .or. xmu(i).gt.1.00001 ) & - call wrtbad( 'xmu', inperr ) - 22 continue + do 22 i = 1, ( numang + 1 ) / 2 + if ( xmu(i).lt.-0.00001 .or. xmu(i).gt.1.00001 ) & + call wrtbad( 'xmu', inperr ) +22 continue end if ! if ( inperr ) & - call errmsg( 'miev0--input error(s). aborting...', .true. ) + call errmsg( 'miev0--input error(s). aborting...', .true. ) ! if ( xx.gt.20000.0 .or. dble(crefin).gt.10.0 .or. & - abs( aimag(crefin) ).gt.10.0 ) call errmsg( & - 'miev0--xx or crefin outside tested range', .false. ) + abs( aimag(crefin) ).gt.10.0 ) call errmsg( & + 'miev0--xx or crefin outside tested range', .false. ) ! return - end subroutine ckinmi -!*********************************************************************** - subroutine lpcoef ( ntrm, nmom, ipolzn, momdim, calcmo, npquan, & - a, b, pmom ) + end subroutine ckinmi +!*********************************************************************** + subroutine lpcoef ( ntrm, nmom, ipolzn, momdim, calcmo, npquan, & + a, b, pmom ) ! ! calculate legendre polynomial expansion coefficients (also ! called moments) for phase quantities ( ref. 5 formulation ) @@ -3359,11 +3359,11 @@ subroutine lpcoef ( ntrm, nmom, ipolzn, momdim, calcmo, npquan, & ! integer maxtrm,maxmom,mxmom2,maxrcp parameter ( maxtrm = 1102, maxmom = 2*maxtrm, mxmom2 = maxmom/2, & - maxrcp = 4*maxtrm + 2 ) + maxrcp = 4*maxtrm + 2 ) real(kind_chem) am( 0:maxtrm ), bi( 0:mxmom2 ), bidel( 0:mxmom2 ) real(kind_chem), save :: recip( maxrcp ) complex cm( maxtrm ), dm( maxtrm ), cs( maxtrm ), ds( maxtrm ), & - c( maxtrm ), d( maxtrm ) + c( maxtrm ), d( maxtrm ) integer k,j,l,nummom,ld2,idel,m,i,mmax,imax real(kind_chem) thesum equivalence ( c, cm ), ( d, dm ) @@ -3376,7 +3376,7 @@ subroutine lpcoef ( ntrm, nmom, ipolzn, momdim, calcmo, npquan, & ! do 1 k = 1, maxrcp recip( k ) = 1.0 / k - 1 continue +1 continue pass1 = .false. ! end if @@ -3384,7 +3384,7 @@ subroutine lpcoef ( ntrm, nmom, ipolzn, momdim, calcmo, npquan, & do 5 j = 1, max0( 1, npquan ) do 5 l = 0, nmom pmom( l, j ) = 0.0 - 5 continue +5 continue ! if ( ntrm.eq.1 ) then call lpco1t ( nmom, ipolzn, momdim, calcmo, a, b, pmom ) @@ -3395,7 +3395,7 @@ subroutine lpcoef ( ntrm, nmom, ipolzn, momdim, calcmo, npquan, & end if ! if ( ntrm+2 .gt. maxtrm ) & - call errmsg( 'lpcoef--parameter maxtrm too small', .true. ) + call errmsg( 'lpcoef--parameter maxtrm too small', .true. ) ! ! ** calculate mueller c, d arrays cm( ntrm+2 ) = ( 0., 0. ) @@ -3403,18 +3403,18 @@ subroutine lpcoef ( ntrm, nmom, ipolzn, momdim, calcmo, npquan, & cm( ntrm+1 ) = ( 1. - recip( ntrm+1 ) ) * b( ntrm ) dm( ntrm+1 ) = ( 1. - recip( ntrm+1 ) ) * a( ntrm ) cm( ntrm ) = ( recip(ntrm) + recip(ntrm+1) ) * a( ntrm ) & - + ( 1. - recip(ntrm) ) * b( ntrm-1 ) + + ( 1. - recip(ntrm) ) * b( ntrm-1 ) dm( ntrm ) = ( recip(ntrm) + recip(ntrm+1) ) * b( ntrm ) & - + ( 1. - recip(ntrm) ) * a( ntrm-1 ) + + ( 1. - recip(ntrm) ) * a( ntrm-1 ) ! do 10 k = ntrm-1, 2, -1 cm( k ) = cm( k+2 ) - ( 1. + recip(k+1) ) * b( k+1 ) & - + ( recip(k) + recip(k+1) ) * a( k ) & - + ( 1. - recip(k) ) * b( k-1 ) + + ( recip(k) + recip(k+1) ) * a( k ) & + + ( 1. - recip(k) ) * b( k-1 ) dm( k ) = dm( k+2 ) - ( 1. + recip(k+1) ) * a( k+1 ) & - + ( recip(k) + recip(k+1) ) * b( k ) & - + ( 1. - recip(k) ) * a( k-1 ) - 10 continue + + ( recip(k) + recip(k+1) ) * b( k ) & + + ( 1. - recip(k) ) * a( k-1 ) +10 continue cm( 1 ) = cm( 3 ) + 1.5 * ( a( 1 ) - b( 2 ) ) dm( 1 ) = dm( 3 ) + 1.5 * ( b( 1 ) - a( 2 ) ) ! @@ -3423,7 +3423,7 @@ subroutine lpcoef ( ntrm, nmom, ipolzn, momdim, calcmo, npquan, & do 20 k = 1, ntrm + 2 c( k ) = ( 2*k - 1 ) * cm( k ) d( k ) = ( 2*k - 1 ) * dm( k ) - 20 continue +20 continue ! else ! ** compute sekera c and d arrays @@ -3435,12 +3435,12 @@ subroutine lpcoef ( ntrm, nmom, ipolzn, momdim, calcmo, npquan, & do 30 k = ntrm, 1, -1 cs( k ) = cs( k+2 ) + ( 2*k + 1 ) * ( cm( k+1 ) - b( k ) ) ds( k ) = ds( k+2 ) + ( 2*k + 1 ) * ( dm( k+1 ) - a( k ) ) - 30 continue +30 continue ! do 40 k = 1, ntrm + 2 c( k ) = ( 2*k - 1 ) * cs( k ) d( k ) = ( 2*k - 1 ) * ds( k ) - 40 continue +40 continue ! end if ! @@ -3448,7 +3448,7 @@ subroutine lpcoef ( ntrm, nmom, ipolzn, momdim, calcmo, npquan, & if( ipolzn.lt.0 ) nummom = min0( nmom, 2*ntrm - 2 ) if( ipolzn.ge.0 ) nummom = min0( nmom, 2*ntrm ) if ( nummom .gt. maxmom ) & - call errmsg( 'lpcoef--parameter maxtrm too small', .true. ) + call errmsg( 'lpcoef--parameter maxtrm too small', .true. ) ! ! ** loop over moments do 500 l = 0, nummom @@ -3462,7 +3462,7 @@ subroutine lpcoef ( ntrm, nmom, ipolzn, momdim, calcmo, npquan, & idel = 1 do 60 m = 0, ntrm am( m ) = 2.0 * recip( 2*m + 1 ) - 60 continue +60 continue bi( 0 ) = 1.0 ! else if( evenl ) then @@ -3470,10 +3470,10 @@ subroutine lpcoef ( ntrm, nmom, ipolzn, momdim, calcmo, npquan, & idel = 1 do 70 m = ld2, ntrm am( m ) = ( 1. + recip( 2*m-l+1 ) ) * am( m ) - 70 continue +70 continue do 75 i = 0, ld2-1 bi( i ) = ( 1. - recip( l-2*i ) ) * bi( i ) - 75 continue +75 continue bi( ld2 ) = ( 2. - recip( l ) ) * bi( ld2-1 ) ! else @@ -3481,10 +3481,10 @@ subroutine lpcoef ( ntrm, nmom, ipolzn, momdim, calcmo, npquan, & idel = 2 do 80 m = ld2, ntrm am( m ) = ( 1. - recip( 2*m+l+2 ) ) * am( m ) - 80 continue +80 continue do 85 i = 0, ld2 bi( i ) = ( 1. - recip( l+2*i+1 ) ) * bi( i ) - 85 continue +85 continue ! end if ! ** establish upper limits for sums @@ -3496,7 +3496,7 @@ subroutine lpcoef ( ntrm, nmom, ipolzn, momdim, calcmo, npquan, & if( imax.lt.0 ) go to 600 do 90 i = 0, imax bidel( i ) = bi( i ) - 90 continue +90 continue if( evenl ) bidel( 0 ) = 0.5 * bidel( 0 ) ! ! ** perform double sums just for @@ -3508,11 +3508,11 @@ subroutine lpcoef ( ntrm, nmom, ipolzn, momdim, calcmo, npquan, & thesum = 0.0 do 100 m = ld2, mmax - i thesum = thesum + am( m ) * & - ( dble( c(m-i+1) * conjg( c(m+i+idel) ) ) & - + dble( d(m-i+1) * conjg( d(m+i+idel) ) ) ) - 100 continue + ( dble( c(m-i+1) * conjg( c(m+i+idel) ) ) & + + dble( d(m-i+1) * conjg( d(m+i+idel) ) ) ) +100 continue pmom( l,1 ) = pmom( l,1 ) + bidel( i ) * thesum - 110 continue +110 continue pmom( l,1 ) = 0.5 * pmom( l,1 ) go to 500 ! @@ -3524,10 +3524,10 @@ subroutine lpcoef ( ntrm, nmom, ipolzn, momdim, calcmo, npquan, & thesum = 0.0 do 150 m = ld2, mmax - i thesum = thesum + am( m ) * & - dble( c(m-i+1) * conjg( c(m+i+idel) ) ) - 150 continue + dble( c(m-i+1) * conjg( c(m+i+idel) ) ) +150 continue pmom( l,1 ) = pmom( l,1 ) + bidel( i ) * thesum - 160 continue +160 continue end if ! ! @@ -3537,10 +3537,10 @@ subroutine lpcoef ( ntrm, nmom, ipolzn, momdim, calcmo, npquan, & thesum = 0.0 do 200 m = ld2, mmax - i thesum = thesum + am( m ) * & - dble( d(m-i+1) * conjg( d(m+i+idel) ) ) - 200 continue + dble( d(m-i+1) * conjg( d(m+i+idel) ) ) +200 continue pmom( l,2 ) = pmom( l,2 ) + bidel( i ) * thesum - 210 continue +210 continue end if ! ! @@ -3550,11 +3550,11 @@ subroutine lpcoef ( ntrm, nmom, ipolzn, momdim, calcmo, npquan, & thesum = 0.0 do 300 m = ld2, mmax - i thesum = thesum + am( m ) * & - ( dble( c(m-i+1) * conjg( d(m+i+idel) ) ) & - + dble( c(m+i+idel) * conjg( d(m-i+1) ) ) ) - 300 continue + ( dble( c(m-i+1) * conjg( d(m+i+idel) ) ) & + + dble( c(m+i+idel) * conjg( d(m-i+1) ) ) ) +300 continue pmom( l,3 ) = pmom( l,3 ) + bidel( i ) * thesum - 310 continue +310 continue pmom( l,3 ) = 0.5 * pmom( l,3 ) end if ! @@ -3565,21 +3565,21 @@ subroutine lpcoef ( ntrm, nmom, ipolzn, momdim, calcmo, npquan, & thesum = 0.0 do 400 m = ld2, mmax - i thesum = thesum + am( m ) * & - ( aimag( c(m-i+1) * conjg( d(m+i+idel) ) ) & - + aimag( c(m+i+idel) * conjg( d(m-i+1) ) )) - 400 continue + ( aimag( c(m-i+1) * conjg( d(m+i+idel) ) ) & + + aimag( c(m+i+idel) * conjg( d(m-i+1) ) )) +400 continue pmom( l,4 ) = pmom( l,4 ) + bidel( i ) * thesum - 410 continue +410 continue pmom( l,4 ) = - 0.5 * pmom( l,4 ) end if ! - 500 continue +500 continue ! ! - 600 return - end subroutine lpcoef -!********************************************************************* - subroutine lpco1t ( nmom, ipolzn, momdim, calcmo, a, b, pmom ) +600 return + end subroutine lpcoef +!********************************************************************* + subroutine lpco1t ( nmom, ipolzn, momdim, calcmo, a, b, pmom ) ! ! calculate legendre polynomial expansion coefficients (also ! called moments) for phase quantities in special case where @@ -3647,14 +3647,14 @@ subroutine lpco1t ( nmom, ipolzn, momdim, calcmo, a, b, pmom ) if( l.eq.2 ) pmom( l,4 ) = 0.3 * aimag( a1b1c ) end if ! - 100 continue +100 continue ! end if ! return - end subroutine lpco1t -!******************************************************************** - subroutine lpco2t ( nmom, ipolzn, momdim, calcmo, a, b, pmom ) + end subroutine lpco1t +!******************************************************************** + subroutine lpco2t ( nmom, ipolzn, momdim, calcmo, a, b, pmom ) ! ! calculate legendre polynomial expansion coefficients (also ! called moments) for phase quantities in special case where @@ -3690,35 +3690,35 @@ subroutine lpco2t ( nmom, ipolzn, momdim, calcmo, a, b, pmom ) ! if( calcmo(1) ) then if( l.eq.0 ) pmom( l,1 ) = 0.25 * ( sq(cat) + & - (100./3.) * b2sq ) + (100./3.) * b2sq ) if( l.eq.1 ) pmom( l,1 ) = (5./3.) * dble( cat * b2c ) if( l.eq.2 ) pmom( l,1 ) = (10./3.) * b2sq end if ! if( calcmo(2) ) then if( l.eq.0 ) pmom( l,2 ) = 0.25 * ( sq(ca) + & - (100./3.) * a2sq ) + (100./3.) * a2sq ) if( l.eq.1 ) pmom( l,2 ) = (5./3.) * dble( ca * a2c ) if( l.eq.2 ) pmom( l,2 ) = (10./3.) * a2sq end if ! if( calcmo(3) ) then if( l.eq.0 ) pmom( l,3 ) = 0.25 * dble( cat*cac + & - (100./3.)*b(2)*a2c ) + (100./3.)*b(2)*a2c ) if( l.eq.1 ) pmom( l,3 ) = 5./6. * dble( b(2)*cac + & - cat*a2c ) + cat*a2c ) if( l.eq.2 ) pmom( l,3 ) = 10./3. * dble( b(2) * a2c ) end if ! if( calcmo(4) ) then if( l.eq.0 ) pmom( l,4 ) = -0.25 * aimag( cat*cac + & - (100./3.)*b(2)*a2c ) + (100./3.)*b(2)*a2c ) if( l.eq.1 ) pmom( l,4 ) = -5./6. * aimag( b(2)*cac + & - cat*a2c ) + cat*a2c ) if( l.eq.2 ) pmom( l,4 ) = -10./3. * aimag( b(2) * a2c ) end if ! - 50 continue +50 continue ! else ! @@ -3734,10 +3734,10 @@ subroutine lpco2t ( nmom, ipolzn, momdim, calcmo, a, b, pmom ) ! if( ipolzn.eq.0 .or. calcmo(1) ) then if( l.eq.0 ) pm1 = 0.25 * sq(ca) + sq(cb) / 12. & - + (5./3.) * dble(ca*b2c) + 5.*b2sq + + (5./3.) * dble(ca*b2c) + 5.*b2sq if( l.eq.1 ) pm1 = dble( cb * ( cac/6. + b2c ) ) if( l.eq.2 ) pm1 = sq(cb)/30. + (20./7.) * b2sq & - + (2./3.) * dble( ca * b2c ) + + (2./3.) * dble( ca * b2c ) if( l.eq.3 ) pm1 = (2./7.) * dble( cb * b2c ) if( l.eq.4 ) pm1 = (40./63.) * b2sq if ( calcmo(1) ) pmom( l,1 ) = pm1 @@ -3745,10 +3745,10 @@ subroutine lpco2t ( nmom, ipolzn, momdim, calcmo, a, b, pmom ) ! if( ipolzn.eq.0 .or. calcmo(2) ) then if( l.eq.0 ) pm2 = 0.25*sq(cat) + sq(cbt) / 12. & - + (5./3.) * dble(cat*a2c) + 5.*a2sq + + (5./3.) * dble(cat*a2c) + 5.*a2sq if( l.eq.1 ) pm2 = dble( cbt * ( conjg(cat)/6. + a2c) ) if( l.eq.2 ) pm2 = sq(cbt)/30. + (20./7.) * a2sq & - + (2./3.) * dble( cat * a2c ) + + (2./3.) * dble( cat * a2c ) if( l.eq.3 ) pm2 = (2./7.) * dble( cbt * a2c ) if( l.eq.4 ) pm2 = (40./63.) * a2sq if ( calcmo(2) ) pmom( l,2 ) = pm2 @@ -3761,34 +3761,34 @@ subroutine lpco2t ( nmom, ipolzn, momdim, calcmo, a, b, pmom ) ! if( calcmo(3) ) then if( l.eq.0 ) pmom( l,3 ) = 0.25 * dble( cac*cat + cg + & - 20.*b2c*a(2) ) + 20.*b2c*a(2) ) if( l.eq.1 ) pmom( l,3 ) = dble( cac*cbt + cbc*cat + & - 3.*ch ) / 12. + 3.*ch ) / 12. if( l.eq.2 ) pmom( l,3 ) = 0.1 * dble( cg + (200./7.) * & - b2c * a(2) ) + b2c * a(2) ) if( l.eq.3 ) pmom( l,3 ) = dble( ch ) / 14. if( l.eq.4 ) pmom( l,3 ) = 40./63. * dble( b2c * a(2) ) end if ! if( calcmo(4) ) then if( l.eq.0 ) pmom( l,4 ) = 0.25 * aimag( cac*cat + cg + & - 20.*b2c*a(2) ) + 20.*b2c*a(2) ) if( l.eq.1 ) pmom( l,4 ) = aimag( cac*cbt + cbc*cat + & - 3.*ch ) / 12. + 3.*ch ) / 12. if( l.eq.2 ) pmom( l,4 ) = 0.1 * aimag( cg + (200./7.) * & - b2c * a(2) ) + b2c * a(2) ) if( l.eq.3 ) pmom( l,4 ) = aimag( ch ) / 14. if( l.eq.4 ) pmom( l,4 ) = 40./63. * aimag( b2c * a(2) ) end if ! - 100 continue +100 continue ! end if ! return - end subroutine lpco2t -!********************************************************************* - subroutine biga( cior, xx, ntrm, noabs, yesang, rbiga, cbiga ) + end subroutine lpco2t +!********************************************************************* + subroutine biga( cior, xx, ntrm, noabs, yesang, rbiga, cbiga ) ! ! calculate logarithmic derivatives of j-bessel-function ! @@ -3816,7 +3816,7 @@ subroutine biga( cior, xx, ntrm, noabs, yesang, rbiga, cbiga ) ! complex cior, ctmp, confra, cbiga(*), zinv complex cior, ctmp, cbiga(*), zinv f1( mre ) = - 8.0 + mre**2 * ( 26.22 + mre * ( - 0.4474 & - + mre**3 * ( 0.00204 - 0.000175 * mre ) ) ) + + mre**3 * ( 0.00204 - 0.000175 * mre ) ) ) f2( mre ) = 3.9 + mre * ( - 10.8 + 13.78 * mre ) ! f3( mre ) = - 15.04 + mre * ( 8.42 + 16.35 * mre ) ! uncomment if/when actually used ! @@ -3850,15 +3850,15 @@ subroutine biga( cior, xx, ntrm, noabs, yesang, rbiga, cbiga ) rbiga( ntrm ) = dble( ctmp ) do 25 n = ntrm, 2, - 1 rbiga( n-1 ) = (n*rezinv) & - - 1.0 / ( (n*rezinv) + rbiga( n ) ) - 25 continue + - 1.0 / ( (n*rezinv) + rbiga( n ) ) +25 continue ! else ! ** absorptive case cbiga( ntrm ) = ctmp do 30 n = ntrm, 2, - 1 cbiga( n-1 ) = (n*zinv) - 1.0 / ( (n*zinv) + cbiga( n ) ) - 30 continue +30 continue ! end if ! @@ -3869,28 +3869,28 @@ subroutine biga( cior, xx, ntrm, noabs, yesang, rbiga, cbiga ) ! ** no-absorption case rtmp = SIN( mre*xx ) rbiga( 1 ) = - rezinv & - + rtmp / ( rtmp*rezinv - COS( mre*xx ) ) + + rtmp / ( rtmp*rezinv - COS( mre*xx ) ) do 40 n = 2, ntrm rbiga( n ) = - ( n*rezinv ) & - + 1.0 / ( ( n*rezinv ) - rbiga( n-1 ) ) - 40 continue + + 1.0 / ( ( n*rezinv ) - rbiga( n-1 ) ) +40 continue ! else ! ** absorptive case ctmp = exp( - dcmplx(0.d0,2.d0) * cior * xx ) cbiga( 1 ) = - zinv + (1.-ctmp) / ( zinv * (1.-ctmp) - & - dcmplx(0.d0,1.d0)*(1.+ctmp) ) + dcmplx(0.d0,1.d0)*(1.+ctmp) ) do 50 n = 2, ntrm cbiga( n ) = - (n*zinv) + 1.0 / ((n*zinv) - cbiga( n-1 )) - 50 continue +50 continue end if ! end if ! return - end subroutine biga -!********************************************************************** - complex function confra( n, zinv, xx ) + end subroutine biga +!********************************************************************** + complex function confra( n, zinv, xx ) ! ! compute bessel function ratio capital-a-sub-n from its ! continued fraction using lentz method ( ref. 1, pp. 17-20 ) @@ -3936,9 +3936,9 @@ complex function confra( n, zinv, xx ) cnumer = cdenom + 1.0 / confra kount = 1 ! - 20 kount = kount + 1 +20 kount = kount + 1 if ( kount.gt.maxit ) & - call errmsg( 'confra--iteration failed to converge$', .true.) + call errmsg( 'confra--iteration failed to converge$', .true.) ! ! *** ref. 2, eq. 25b mm = - mm @@ -3946,7 +3946,7 @@ complex function confra( n, zinv, xx ) cak = ( mm * kk ) * zinv ! *** ref. 2, eq. 32 if ( abs( cnumer/cak ).le.eps1 & - .or. abs( cdenom/cak ).le.eps1 ) then + .or. abs( cdenom/cak ).le.eps1 ) then ! ! ** ill-conditioned case -- stride ! ** two terms instead of one @@ -3975,7 +3975,7 @@ complex function confra( n, zinv, xx ) ! ** ( ref. 2, eq. 31 ) ! if ( abs( dble(capt) - 1.0 ).ge.eps2 & - .or. abs( aimag(capt) ) .ge.eps2 ) then + .or. abs( aimag(capt) ) .ge.eps2 ) then ! ! *** ref. 2, eqs. 30a-b cnumer = cak + 1.0 / cnumer @@ -3986,12 +3986,12 @@ complex function confra( n, zinv, xx ) ! return ! - end function confra -!******************************************************************** - subroutine miprnt( prnt, xx, perfct, crefin, numang, xmu, & - qext, qsca, gqsc, nmom, ipolzn, momdim, & - calcmo, pmom, sforw, sback, tforw, tback, & - s1, s2 ) + end function confra +!******************************************************************** + subroutine miprnt( prnt, xx, perfct, crefin, numang, xmu, & + qext, qsca, gqsc, nmom, ipolzn, momdim, & + calcmo, pmom, sforw, sback, tforw, tback, & + s1, s2 ) ! ! print scattering quantities of a single particle ! @@ -4005,24 +4005,24 @@ subroutine miprnt( prnt, xx, perfct, crefin, numang, xmu, & ! ! if ( perfct ) write ( *, '(''1'',10x,a,1p,e11.4)' ) & - 'perfectly conducting case, size parameter =', xx + 'perfectly conducting case, size parameter =', xx if ( .not.perfct ) write ( *, '(''1'',10x,3(a,1p,e11.4))' ) & - 'refractive index: real ', dble(crefin), & - ' imag ', aimag(crefin), ', size parameter =', xx + 'refractive index: real ', dble(crefin), & + ' imag ', aimag(crefin), ', size parameter =', xx ! if ( prnt(1) .and. numang.gt.0 ) then ! write ( *, '(/,a)' ) & - ' cos(angle) ------- s1 --------- ------- s2 ---------'// & - ' --- s1*conjg(s2) --- i1=s1**2 i2=s2**2 (i1+i2)/2'// & - ' deg polzn' + ' cos(angle) ------- s1 --------- ------- s2 ---------'// & + ' --- s1*conjg(s2) --- i1=s1**2 i2=s2**2 (i1+i2)/2'// & + ' deg polzn' do 10 i = 1, numang fi1 = dble( s1(i) ) **2 + aimag( s1(i) )**2 fi2 = dble( s2(i) ) **2 + aimag( s2(i) )**2 write( *, '( i4, f10.6, 1p,10e11.3 )' ) & - i, xmu(i), s1(i), s2(i), s1(i)*conjg(s2(i)), & - fi1, fi2, 0.5*(fi1+fi2), (fi2-fi1)/(fi2+fi1) - 10 continue + i, xmu(i), s1(i), s2(i), s1(i)*conjg(s2(i)), & + fi1, fi2, 0.5*(fi1+fi2), (fi2-fi1)/(fi2+fi1) +10 continue ! end if ! @@ -4030,14 +4030,14 @@ subroutine miprnt( prnt, xx, perfct, crefin, numang, xmu, & if ( prnt(2) ) then ! write ( *, '(/,a,9x,a,17x,a,17x,a,/,(0p,f7.2, 1p,6e12.3) )' ) & - ' angle', 's-sub-1', 't-sub-1', 't-sub-2', & - 0.0, sforw, tforw(1), tforw(2), & - 180., sback, tback(1), tback(2) + ' angle', 's-sub-1', 't-sub-1', 't-sub-2', & + 0.0, sforw, tforw(1), tforw(2), & + 180., sback, tback(1), tback(2) write ( *, '(/,4(a,1p,e11.4))' ) & - ' efficiency factors, extinction:', qext, & - ' scattering:', qsca, & - ' absorption:', qext-qsca, & - ' rad. pressure:', qext-gqsc + ' efficiency factors, extinction:', qext, & + ' scattering:', qsca, & + ' absorption:', qext-qsca, & + ' rad. pressure:', qext-gqsc ! if ( nmom.gt.0 ) then ! @@ -4056,18 +4056,18 @@ subroutine miprnt( prnt, xx, perfct, crefin, numang, xmu, & write( fmt, 98 ) 24 + (j-1)*13 write ( *,fmt ) fnorm * pmom(m,j) end if - 20 continue +20 continue end if ! end if ! return ! - 98 format( '( ''+'', t', i2, ', 1p,e13.4 )' ) - end subroutine miprnt -!************************************************************************** - subroutine small1 ( xx, numang, xmu, qext, qsca, gqsc, sforw, & - sback, s1, s2, tforw, tback, a, b ) +98 format( '( ''+'', t', i2, ', 1p,e13.4 )' ) + end subroutine miprnt +!************************************************************************** + subroutine small1 ( xx, numang, xmu, qext, qsca, gqsc, sforw, & + sback, s1, s2, tforw, tback, a, b ) ! ! small-particle limit of mie quantities in totally reflecting ! limit ( mie series truncated after 2 terms ) @@ -4082,7 +4082,7 @@ subroutine small1 ( xx, numang, xmu, qext, qsca, gqsc, sforw, & real(kind_chem) gqsc, qext, qsca, xx, xmu(*) real(kind_chem) twothr,fivthr,fivnin,sq,rtmp complex a( 2 ), b( 2 ), sforw, sback, s1(*), s2(*), & - tforw(*), tback(*) + tforw(*), tback(*) ! parameter ( twothr = 2./3., fivthr = 5./3., fivnin = 5./9. ) complex ctmp @@ -4090,19 +4090,19 @@ subroutine small1 ( xx, numang, xmu, qext, qsca, gqsc, sforw, & ! ! a( 1 ) = dcmplx ( 0.d0, twothr * ( 1. - 0.2 * xx**2 ) ) & - / dcmplx ( 1.d0 - 0.5 * xx**2, twothr * xx**3 ) + / dcmplx ( 1.d0 - 0.5 * xx**2, twothr * xx**3 ) ! b( 1 ) = dcmplx ( 0.d0, - ( 1. - 0.1 * xx**2 ) / 3. ) & - / dcmplx ( 1.d0 + 0.5 * xx**2, - xx**3 / 3. ) + / dcmplx ( 1.d0 + 0.5 * xx**2, - xx**3 / 3. ) ! a( 2 ) = dcmplx ( 0.d0, xx**2 / 30. ) b( 2 ) = dcmplx ( 0.d0, - xx**2 / 45. ) ! qsca = 6. * xx**4 * ( sq( a(1) ) + sq( b(1) ) & - + fivthr * ( sq( a(2) ) + sq( b(2) ) ) ) + + fivthr * ( sq( a(2) ) + sq( b(2) ) ) ) qext = qsca gqsc = 6. * xx**4 * dble( a(1) * conjg( a(2) + b(1) ) & - + ( b(1) + fivnin * a(2) ) * conjg( b(2) ) ) + + ( b(1) + fivnin * a(2) ) * conjg( b(2) ) ) ! rtmp = 1.5 * xx**3 sforw = rtmp * ( a(1) + b(1) + fivthr * ( a(2) + b(2) ) ) @@ -4114,10 +4114,10 @@ subroutine small1 ( xx, numang, xmu, qext, qsca, gqsc, sforw, & ! do 10 j = 1, numang s1( j ) = rtmp * ( a(1) + b(1) * xmu(j) + fivthr * & - ( a(2) * xmu(j) + b(2) * ( 2.*xmu(j)**2 - 1. )) ) + ( a(2) * xmu(j) + b(2) * ( 2.*xmu(j)**2 - 1. )) ) s2( j ) = rtmp * ( b(1) + a(1) * xmu(j) + fivthr * & - ( b(2) * xmu(j) + a(2) * ( 2.*xmu(j)**2 - 1. )) ) - 10 continue + ( b(2) * xmu(j) + a(2) * ( 2.*xmu(j)**2 - 1. )) ) +10 continue ! ** recover actual mie coefficients a( 1 ) = xx**3 * a( 1 ) a( 2 ) = xx**3 * a( 2 ) @@ -4125,11 +4125,11 @@ subroutine small1 ( xx, numang, xmu, qext, qsca, gqsc, sforw, & b( 2 ) = xx**3 * b( 2 ) ! return - end subroutine small1 -!************************************************************************* - subroutine small2 ( xx, cior, calcqe, numang, xmu, qext, qsca, & - gqsc, sforw, sback, s1, s2, tforw, tback, & - a, b ) + end subroutine small1 +!************************************************************************* + subroutine small2 ( xx, cior, calcqe, numang, xmu, qext, qsca, & + gqsc, sforw, sback, s1, s2, tforw, tback, & + a, b ) ! ! small-particle limit of mie quantities for general refractive ! index ( mie series truncated after 2 terms ) @@ -4147,7 +4147,7 @@ subroutine small2 ( xx, cior, calcqe, numang, xmu, qext, qsca, & real(kind_chem) gqsc, qext, qsca, xx, xmu(*) real(kind_chem) twothr,fivthr,sq,rtmp complex a( 2 ), b( 2 ), cior, sforw, sback, s1(*), s2(*), & - tforw(*), tback(*) + tforw(*), tback(*) ! parameter ( twothr = 2./3., fivthr = 5./3. ) complex ctmp, ciorsq @@ -4157,15 +4157,15 @@ subroutine small2 ( xx, cior, calcqe, numang, xmu, qext, qsca, & ciorsq = cior**2 ctmp = dcmplx( 0.d0, twothr ) * ( ciorsq - 1.0 ) a(1) = ctmp * ( 1.0 - 0.1 * xx**2 + (ciorsq/350. + 1./280.)*xx**4) & - / ( ciorsq + 2.0 + ( 1.0 - 0.7 * ciorsq ) * xx**2 & - - ( ciorsq**2/175. - 0.275 * ciorsq + 0.25 ) * xx**4 & - + xx**3 * ctmp * ( 1.0 - 0.1 * xx**2 ) ) + / ( ciorsq + 2.0 + ( 1.0 - 0.7 * ciorsq ) * xx**2 & + - ( ciorsq**2/175. - 0.275 * ciorsq + 0.25 ) * xx**4 & + + xx**3 * ctmp * ( 1.0 - 0.1 * xx**2 ) ) ! b(1) = (xx**2/30.) * ctmp * ( 1.0 + (ciorsq/35. - 1./14.) *xx**2 ) & - / ( 1.0 - ( ciorsq/15. - 1./6. ) * xx**2 ) + / ( 1.0 - ( ciorsq/15. - 1./6. ) * xx**2 ) ! a(2) = ( 0.1 * xx**2 ) * ctmp * ( 1.0 - xx**2 / 14. ) & - / ( 2. * ciorsq + 3. - ( ciorsq/7. - 0.5 ) * xx**2 ) + / ( 2. * ciorsq + 3. - ( ciorsq/7. - 0.5 ) * xx**2 ) ! qsca = 6. * xx**4 * ( sq(a(1)) + sq(b(1)) + fivthr * sq(a(2)) ) gqsc = 6. * xx**4 * dble( a(1) * conjg( a(2) + b(1) ) ) @@ -4183,8 +4183,8 @@ subroutine small2 ( xx, cior, calcqe, numang, xmu, qext, qsca, & do 10 j = 1, numang s1( j ) = rtmp * ( a(1) + ( b(1) + fivthr * a(2) ) * xmu(j) ) s2( j ) = rtmp * ( b(1) + a(1) * xmu(j) + fivthr * a(2) & - * ( 2. * xmu(j)**2 - 1. ) ) - 10 continue + * ( 2. * xmu(j)**2 - 1. ) ) +10 continue ! ** recover actual mie coefficients a( 1 ) = xx**3 * a( 1 ) a( 2 ) = xx**3 * a( 2 ) @@ -4192,10 +4192,10 @@ subroutine small2 ( xx, cior, calcqe, numang, xmu, qext, qsca, & b( 2 ) = ( 0., 0. ) ! return - end subroutine small2 -!*********************************************************************** - subroutine testmi ( qext, qsca, gqsc, sforw, sback, s1, s2, & - tforw, tback, pmom, momdim, ok ) + end subroutine small2 +!*********************************************************************** + subroutine testmi ( qext, qsca, gqsc, sforw, sback, s1, s2, & + tforw, tback, pmom, momdim, ok ) ! ! compare mie code test case results with correct answers ! and return ok=false if even one result is inaccurate. @@ -4223,13 +4223,13 @@ subroutine testmi ( qext, qsca, gqsc, sforw, sback, s1, s2, & real(kind_chem) accur, testqe, testqs, testgq, testpm( 0:1 ) complex testsf, testsb,tests1,tests2,testtf(2), testtb(2) data testqe / 2.459791 /, testqs / 1.235144 /, & - testgq / 1.139235 /, testsf / ( 61.49476, -3.177994 ) /, & - testsb / ( 1.493434, 0.2963657 ) /, & - tests1 / ( -0.1548380, -1.128972) /, & - tests2 / ( 0.05669755, 0.5425681) /, & - testtf / ( 12.95238, -136.6436 ), ( 48.54238, 133.4656 ) /, & - testtb / ( 41.88414, -15.57833 ), ( 43.37758, -15.28196 )/, & - testpm / 227.1975, 183.6898 / + testgq / 1.139235 /, testsf / ( 61.49476, -3.177994 ) /, & + testsb / ( 1.493434, 0.2963657 ) /, & + tests1 / ( -0.1548380, -1.128972) /, & + tests2 / ( 0.05669755, 0.5425681) /, & + testtf / ( 12.95238, -136.6436 ), ( 48.54238, 133.4656 ) /, & + testtb / ( 41.88414, -15.57833 ), ( 43.37758, -15.28196 )/, & + testpm / 227.1975, 183.6898 / real(kind_chem) calc,exact ! data accur / 1.e-5 / data accur / 1.e-4 / @@ -4238,50 +4238,50 @@ subroutine testmi ( qext, qsca, gqsc, sforw, sback, s1, s2, & ! ok = .true. if ( wrong( qext,testqe ) ) & - call tstbad( 'qext', abs((qext - testqe) / testqe), ok ) + call tstbad( 'qext', abs((qext - testqe) / testqe), ok ) if ( wrong( qsca,testqs ) ) & - call tstbad( 'qsca', abs((qsca - testqs) / testqs), ok ) + call tstbad( 'qsca', abs((qsca - testqs) / testqs), ok ) if ( wrong( gqsc,testgq ) ) & - call tstbad( 'gqsc', abs((gqsc - testgq) / testgq), ok ) + call tstbad( 'gqsc', abs((gqsc - testgq) / testgq), ok ) ! if ( wrong( real(sforw), real(testsf) ) .or. & - wrong( aimag(sforw), aimag(testsf) ) ) & - call tstbad( 'sforw', abs((sforw - testsf) / testsf), ok ) + wrong( aimag(sforw), aimag(testsf) ) ) & + call tstbad( 'sforw', abs((sforw - testsf) / testsf), ok ) ! if ( wrong( real(sback), real(testsb) ) .or. & - wrong( aimag(sback), aimag(testsb) ) ) & - call tstbad( 'sback', abs((sback - testsb) / testsb), ok ) + wrong( aimag(sback), aimag(testsb) ) ) & + call tstbad( 'sback', abs((sback - testsb) / testsb), ok ) ! if ( wrong( real(s1(1)), real(tests1) ) .or. & - wrong( aimag(s1(1)), aimag(tests1) ) ) & - call tstbad( 's1', abs((s1(1) - tests1) / tests1), ok ) + wrong( aimag(s1(1)), aimag(tests1) ) ) & + call tstbad( 's1', abs((s1(1) - tests1) / tests1), ok ) ! if ( wrong( real(s2(1)), real(tests2) ) .or. & - wrong( aimag(s2(1)), aimag(tests2) ) ) & - call tstbad( 's2', abs((s2(1) - tests2) / tests2), ok ) + wrong( aimag(s2(1)), aimag(tests2) ) ) & + call tstbad( 's2', abs((s2(1) - tests2) / tests2), ok ) ! do 20 n = 1, 2 if ( wrong( real(tforw(n)), real(testtf(n)) ) .or. & - wrong( aimag(tforw(n)), aimag(testtf(n)) ) ) & - call tstbad( 'tforw', abs( (tforw(n) - testtf(n)) / & - testtf(n) ), ok ) + wrong( aimag(tforw(n)), aimag(testtf(n)) ) ) & + call tstbad( 'tforw', abs( (tforw(n) - testtf(n)) / & + testtf(n) ), ok ) if ( wrong( real(tback(n)), real(testtb(n)) ) .or. & - wrong( aimag(tback(n)), aimag(testtb(n)) ) ) & - call tstbad( 'tback', abs( (tback(n) - testtb(n)) / & - testtb(n) ), ok ) - 20 continue + wrong( aimag(tback(n)), aimag(testtb(n)) ) ) & + call tstbad( 'tback', abs( (tback(n) - testtb(n)) / & + testtb(n) ), ok ) +20 continue ! do 30 m = 0, 1 if ( wrong( pmom(m,1), testpm(m) ) ) & - call tstbad( 'pmom', abs( (pmom(m,1)-testpm(m)) / & - testpm(m) ), ok ) - 30 continue + call tstbad( 'pmom', abs( (pmom(m,1)-testpm(m)) / & + testpm(m) ), ok ) +30 continue ! return ! - end subroutine testmi -!************************************************************************** - subroutine errmsg( messag, fatal ) + end subroutine testmi +!************************************************************************** + subroutine errmsg( messag, fatal ) ! ! print out a warning or error message; abort if error ! @@ -4298,10 +4298,10 @@ subroutine errmsg( messag, fatal ) ! ! if ( fatal ) then - write( msg, '(a)' ) & - 'optical averaging mie fatal error ' // & - messag -! call peg_message( lunerr, msg ) + write( msg, '(a)' ) & + 'optical averaging mie fatal error ' // & + messag +! call peg_message( lunerr, msg ) ! call peg_error_fatal( lunerr, msg ) end if ! @@ -4310,13 +4310,13 @@ subroutine errmsg( messag, fatal ) ! if ( .not.once ) write ( *,99 ) if ( .not.once )then write( msg, '(a)' ) & - 'optical averaging mie: too many warning messages -- no longer printing ' + 'optical averaging mie: too many warning messages -- no longer printing ' ! call peg_message( lunerr, msg ) - end if + end if once = .true. else msg = 'optical averaging mie warning ' // messag -! call peg_message( lunerr, msg ) +! call peg_message( lunerr, msg ) ! write ( *, '(2a)' ) ' ******* warning >>>>>> ', messag endif ! @@ -4324,9 +4324,9 @@ subroutine errmsg( messag, fatal ) ! ! 99 format( ///,' >>>>>> too many warning messages -- ', & ! 'they will no longer be printed <<<<<<<', /// ) - end subroutine errmsg -!******************************************************************** - subroutine wrtbad ( varnam, erflag ) + end subroutine errmsg +!******************************************************************** + subroutine wrtbad ( varnam, erflag ) ! ! write names of erroneous variables ! @@ -4336,28 +4336,28 @@ subroutine wrtbad ( varnam, erflag ) ! output : erflag = logical flag, set true by this routine ! ---------------------------------------------------------------------- ! USE opt_peg_util_mod, only: peg_message - + implicit none character*(*) varnam logical erflag character*80 msg integer, save :: maxmsg, nummsg - data nummsg / 0 /, maxmsg / 50 / + data nummsg / 0 /, maxmsg / 50 / ! ! nummsg = nummsg + 1 ! write ( *, '(3a)' ) ' **** input variable ', varnam, & ! ' in error ****' - msg = 'optical averaging mie input variable in error ' // varnam + msg = 'optical averaging mie input variable in error ' // varnam ! call peg_message( lunerr, msg ) erflag = .true. - if ( nummsg.eq.maxmsg ) & + if ( nummsg.eq.maxmsg ) & call errmsg ( 'too many input variable errors. aborting...$', .true. ) return ! - end subroutine wrtbad -!****************************************************************** - subroutine tstbad( varnam, relerr, ok ) + end subroutine wrtbad +!****************************************************************** + subroutine tstbad( varnam, relerr, ok ) ! ! write name (-varnam-) of variable failing self-test and its ! percent error from the correct value. return ok = false. @@ -4370,39 +4370,39 @@ subroutine tstbad( varnam, relerr, ok ) ! ok = .false. write( *, '(/,3a,1p,e11.2,a)' ) & - ' output variable ', varnam,' differed by', 100.*relerr, & - ' per cent from correct value. self-test failed.' + ' output variable ', varnam,' differed by', 100.*relerr, & + ' per cent from correct value. self-test failed.' return ! - end subroutine tstbad + end subroutine tstbad !****************************************************************** ! - subroutine sect02(dgnum_um,sigmag,drydens,iflag,duma,nbin,dlo_um,dhi_um, & - xnum_sect,xmas_sect) + subroutine sect02(dgnum_um,sigmag,drydens,iflag,duma,nbin,dlo_um,dhi_um, & + xnum_sect,xmas_sect) ! ! user specifies a single log-normal mode and a set of section boundaries ! prog calculates mass and number for each section ! - implicit none - integer iflag, n, nbin - REAL(kind_chem), DIMENSION(nbin), INTENT(OUT) :: xnum_sect, xmas_sect - real(kind_chem)& - dgnum, dgnum_um, dhi, dhi_um, dlo, dlo_um, & - drydens, dstar, duma, dumfrac, dx, & - sigmag, sumnum, summas, & - sx, sxroot2, thi, tlo, vtot, & - x0, x3, xhi, xlo, xmtot, xntot, xvtot - real(kind_chem) dlo_sect(nbin), dhi_sect(nbin) + implicit none + integer iflag, n, nbin + REAL(kind_chem), DIMENSION(nbin), INTENT(OUT) :: xnum_sect, xmas_sect + real(kind_chem)& + dgnum, dgnum_um, dhi, dhi_um, dlo, dlo_um, & + drydens, dstar, duma, dumfrac, dx, & + sigmag, sumnum, summas, & + sx, sxroot2, thi, tlo, vtot, & + x0, x3, xhi, xlo, xmtot, xntot, xvtot + real(kind_chem) dlo_sect(nbin), dhi_sect(nbin) ! real(kind_chem) erfc_num_recipes - real(kind_chem) pi - parameter (pi = 3.1415926536) -! - if (iflag .le. 1) then - xntot = duma - else - xmtot = duma - xntot = duma !czhao - end if + real(kind_chem) pi + parameter (pi = 3.1415926536) +! + if (iflag .le. 1) then + xntot = duma + else + xmtot = duma + xntot = duma !czhao + end if ! compute total volume and number for mode ! dgnum = dgnum_um*1.0e-4 ! sx = alog( sigmag ) @@ -4417,81 +4417,81 @@ subroutine sect02(dgnum_um,sigmag,drydens,iflag,duma,nbin,dlo_um,dhi_um, & ! xntot = xvtot/((pi/6.0)*dstar*dstar*dstar) ! end if ! compute section boundaries - dlo = dlo_um*1.0e-4 - dhi = dhi_um*1.0e-4 - xlo = log( dlo ) - xhi = log( dhi ) - dx = (xhi - xlo)/nbin - do n = 1, nbin - dlo_sect(n) = exp( xlo + dx*(n-1) ) - dhi_sect(n) = exp( xlo + dx*n ) - end do + dlo = dlo_um*1.0e-4 + dhi = dhi_um*1.0e-4 + xlo = log( dlo ) + xhi = log( dhi ) + dx = (xhi - xlo)/nbin + do n = 1, nbin + dlo_sect(n) = exp( xlo + dx*(n-1) ) + dhi_sect(n) = exp( xlo + dx*n ) + end do ! compute modal "working" parameters including total num/vol/mass - dgnum = dgnum_um*1.0e-4 - sx = alog( sigmag ) - x0 = alog( dgnum ) - x3 = x0 + 3.*sx*sx - dstar = dgnum * exp(1.5*sx*sx) - if (iflag .le. 1) then - xvtot = xntot*(pi/6.0)*dstar*dstar*dstar - xmtot = xvtot*drydens*1.0e12 - else + dgnum = dgnum_um*1.0e-4 + sx = alog( sigmag ) + x0 = alog( dgnum ) + x3 = x0 + 3.*sx*sx + dstar = dgnum * exp(1.5*sx*sx) + if (iflag .le. 1) then + xvtot = xntot*(pi/6.0)*dstar*dstar*dstar + xmtot = xvtot*drydens*1.0e12 + else !czhao xvtot = xmtot/(drydens*1.0e12) !czhao xntot = xvtot/((pi/6.0)*dstar*dstar*dstar) - end if + end if ! compute number and mass for each section - sxroot2 = sx * sqrt( 2.0 ) - sumnum = 0. - summas = 0. - do n = 1, nbin - xlo = alog( dlo_sect(n) ) - xhi = alog( dhi_sect(n) ) - tlo = (xlo - x0)/sxroot2 - thi = (xhi - x0)/sxroot2 - if (tlo .le. 0.) then - dumfrac = 0.5*( erfc_num_recipes(-thi) - erfc_num_recipes(-tlo) ) - else - dumfrac = 0.5*( erfc_num_recipes(tlo) - erfc_num_recipes(thi) ) - end if - xnum_sect(n) = xntot*dumfrac - tlo = (xlo - x3)/sxroot2 - thi = (xhi - x3)/sxroot2 - if (tlo .le. 0.) then - dumfrac = 0.5*( erfc_num_recipes(-thi) - erfc_num_recipes(-tlo) ) - else - dumfrac = 0.5*( erfc_num_recipes(tlo) - erfc_num_recipes(thi) ) - end if - xmas_sect(n) = xmtot*dumfrac - sumnum = sumnum + xnum_sect(n) - summas = summas + xmas_sect(n) - end do + sxroot2 = sx * sqrt( 2.0 ) + sumnum = 0. + summas = 0. + do n = 1, nbin + xlo = alog( dlo_sect(n) ) + xhi = alog( dhi_sect(n) ) + tlo = (xlo - x0)/sxroot2 + thi = (xhi - x0)/sxroot2 + if (tlo .le. 0.) then + dumfrac = 0.5*( erfc_num_recipes(-thi) - erfc_num_recipes(-tlo) ) + else + dumfrac = 0.5*( erfc_num_recipes(tlo) - erfc_num_recipes(thi) ) + end if + xnum_sect(n) = xntot*dumfrac + tlo = (xlo - x3)/sxroot2 + thi = (xhi - x3)/sxroot2 + if (tlo .le. 0.) then + dumfrac = 0.5*( erfc_num_recipes(-thi) - erfc_num_recipes(-tlo) ) + else + dumfrac = 0.5*( erfc_num_recipes(tlo) - erfc_num_recipes(thi) ) + end if + xmas_sect(n) = xmtot*dumfrac + sumnum = sumnum + xnum_sect(n) + summas = summas + xmas_sect(n) + end do - end subroutine sect02 + end subroutine sect02 !----------------------------------------------------------------------- - real function erfc_num_recipes( x ) + real function erfc_num_recipes( x ) ! ! from press et al, numerical recipes, 1990, page 164 ! - implicit none - real(kind_chem) x - double precision erfc_dbl, dum, t, z - z = abs(x) - t = 1.0/(1.0 + 0.5*z) + implicit none + real(kind_chem) x + double precision erfc_dbl, dum, t, z + z = abs(x) + t = 1.0/(1.0 + 0.5*z) ! erfc_num_recipes = ! & t*exp( -z*z - 1.26551223 + t*(1.00002368 + t*(0.37409196 + ! & t*(0.09678418 + t*(-0.18628806 + t*(0.27886807 + ! & t*(-1.13520398 + ! & t*(1.48851587 + t*(-0.82215223 + t*0.17087277 ))))))))) - dum = ( -z*z - 1.26551223 + t*(1.00002368 + t*(0.37409196 + & - t*(0.09678418 + t*(-0.18628806 + t*(0.27886807 + & - t*(-1.13520398 + & - t*(1.48851587 + t*(-0.82215223 + t*0.17087277 ))))))))) - erfc_dbl = t * exp(dum) - if (x .lt. 0.0) erfc_dbl = 2.0d0 - erfc_dbl - erfc_num_recipes = erfc_dbl - return - - end function erfc_num_recipes + dum = ( -z*z - 1.26551223 + t*(1.00002368 + t*(0.37409196 + & + t*(0.09678418 + t*(-0.18628806 + t*(0.27886807 + & + t*(-1.13520398 + & + t*(1.48851587 + t*(-0.82215223 + t*0.17087277 ))))))))) + erfc_dbl = t * exp(dum) + if (x .lt. 0.0) erfc_dbl = 2.0d0 - erfc_dbl + erfc_num_recipes = erfc_dbl + return + + end function erfc_num_recipes !----------------------------------------------------------------------- !**************************************************************************** @@ -4503,7 +4503,7 @@ end function erfc_num_recipes ! shell/core configuration or (2) internally mixed aerosol represented by ! volume averaging of refractive indices ! Uses the ACKMIE code developed eons ago by Tom Ackerman (Ackerman and Toon, 1981: -! absorption of visible radiation in the atmosphere containing mixtures of absorbing and +! absorption of visible radiation in the atmosphere containing mixtures of absorbing and ! non-absorbing particles, Appl. Opt., 20, 3661-3668. ! ! INPUT @@ -4535,46 +4535,46 @@ end function erfc_num_recipes !*********************************************************************** - subroutine mieaer_sc( & - id, iclm, jclm, nbin_a, & - number_bin_col, radius_wet_col, refindx_col, & - radius_core_col, refindx_core_col, & ! jcb, 2007/07/25; for shell/core implementation, set radius_cor_col=0 for volume-average configuration - dz, curr_secs, lpar, & - sizeaer,extaer,waer,gaer,tauaer,l2,l3,l4,l5,l6,l7,bscoef) ! added bscoef JCB 2007/02/01 + subroutine mieaer_sc( & + id, iclm, jclm, nbin_a, & + number_bin_col, radius_wet_col, refindx_col, & + radius_core_col, refindx_core_col, & ! jcb, 2007/07/25; for shell/core implementation, set radius_cor_col=0 for volume-average configuration + dz, curr_secs, lpar, & + sizeaer,extaer,waer,gaer,tauaer,l2,l3,l4,l5,l6,l7,bscoef) ! added bscoef JCB 2007/02/01 ! ! USE opt_peg_util_mod, only : peg_message - IMPLICIT NONE + IMPLICIT NONE ! subr arguments - integer, intent(in) :: lpar - real(kind_chem), dimension (nspint, lpar+1),intent(out) :: sizeaer,extaer,waer,gaer,tauaer - real(kind_chem), dimension (nspint, lpar+1),intent(out) :: l2,l3,l4,l5,l6,l7 - real(kind_chem), dimension (nspint, lpar+1),intent(out) :: bscoef !JCB 2007/02/01 - real(kind_chem), dimension (nspint),save :: wavmid !cm - data wavmid & - / 0.30e-4, 0.40e-4, 0.60e-4 ,0.999e-04 / - - integer, intent(in) :: id, iclm, jclm, nbin_a - real(kind_chem), intent(in) :: curr_secs - real(kind_chem), intent(in), dimension(nbin_a, lpar+1) :: number_bin_col - real(kind_chem), intent(inout), dimension(nbin_a, lpar+1) :: radius_wet_col, radius_core_col ! jcb 2007/07/25 - complex, intent(in) :: refindx_col(nbin_a, lpar+1), refindx_core_col(nbin_a,lpar+1) ! jcb 2007/07/25, - real(kind_chem), intent(in) :: dz(lpar) - real(kind_chem) thesum, sum ! for normalizing things and testing + integer, intent(in) :: lpar + real(kind_chem), dimension (nspint, lpar+1),intent(out) :: sizeaer,extaer,waer,gaer,tauaer + real(kind_chem), dimension (nspint, lpar+1),intent(out) :: l2,l3,l4,l5,l6,l7 + real(kind_chem), dimension (nspint, lpar+1),intent(out) :: bscoef !JCB 2007/02/01 + real(kind_chem), dimension (nspint),save :: wavmid !cm + data wavmid & + / 0.30e-4, 0.40e-4, 0.60e-4 ,0.999e-04 / + + integer, intent(in) :: id, iclm, jclm, nbin_a + real(kind_chem), intent(in) :: curr_secs + real(kind_chem), intent(in), dimension(nbin_a, lpar+1) :: number_bin_col + real(kind_chem), intent(inout), dimension(nbin_a, lpar+1) :: radius_wet_col, radius_core_col ! jcb 2007/07/25 + complex, intent(in) :: refindx_col(nbin_a, lpar+1), refindx_core_col(nbin_a,lpar+1) ! jcb 2007/07/25, + real(kind_chem), intent(in) :: dz(lpar) + real(kind_chem) thesum, sum ! for normalizing things and testing ! integer m,l,j,nl,ll,nc,klevel integer ns, & ! Spectral loop index - i, & ! Longitude loop index - k ! Level loop index + i, & ! Longitude loop index + k ! Level loop index real(kind_chem) dp_wet_a,dp_core_a complex ri_shell_a,ri_core_a real(kind_chem) qextc,qscatc,qbackc,extc,scatc,backc,gscac real(kind_chem) vlambc integer n,kkk,jjj - integer, save :: kcallmieaer - data kcallmieaer / 0 / + integer, save :: kcallmieaer + data kcallmieaer / 0 / real(kind_chem) pmom(0:7,1) real(kind_chem)weighte, weights, pscat real(kind_chem) pie,sizem @@ -4583,11 +4583,11 @@ subroutine mieaer_sc( & real(kind_chem),save ::rmin,rmax ! min, max aerosol size bin ! data rmin /0.005e-04/ ! rmin in cm, 5e-3 microns min allowable size ! data rmax /50.0e-04/ ! rmax in cm. 50 microns, big particle, max allowable size - data rmin /0.010e-04/ ! rmin in cm, 5e-3 microns min allowable size - data rmax /7.0e-04/ ! rmax in cm. 50 microns, big particle, max allowable size + data rmin /0.010e-04/ ! rmin in cm, 5e-3 microns min allowable size + data rmax /7.0e-04/ ! rmax in cm. 50 microns, big particle, max allowable size ! diagnostic declarations - integer, save :: kcallmieaer2 - data kcallmieaer2 / 0 / + integer, save :: kcallmieaer2 + data kcallmieaer2 / 0 / integer ibin character*150 msg @@ -4599,149 +4599,149 @@ subroutine mieaer_sc( & !ec and vertical cells 1 to kmaxd. ! ilaporte = 33 ! jlaporte = 34 - kcallmieaer2=0 - if (iclm .eq. CHEM_DBG_I) then - if (jclm .eq. CHEM_DBG_J) then + kcallmieaer2=0 + if (iclm .eq. CHEM_DBG_I) then + if (jclm .eq. CHEM_DBG_J) then ! initial entry - if (kcallmieaer2 .eq. 0) then - write(*,9099)iclm, jclm - 9099 format('for cell i = ', i3, 2x, 'j = ', i3) - write(*,9100) - 9100 format(& - 'curr_secs', 3x, 'i', 3x, 'j', 3x,'k', 3x, & - 'ibin', 3x, & - 'refindx_col(ibin,k)', 3x, & - 'radius_wet_col(ibin,k)', 3x, & - 'number_bin_col(ibin,k)' & - ) - end if + if (kcallmieaer2 .eq. 0) then + write(*,9099)iclm, jclm +9099 format('for cell i = ', i3, 2x, 'j = ', i3) + write(*,9100) +9100 format(& + 'curr_secs', 3x, 'i', 3x, 'j', 3x,'k', 3x, & + 'ibin', 3x, & + 'refindx_col(ibin,k)', 3x, & + 'radius_wet_col(ibin,k)', 3x, & + 'number_bin_col(ibin,k)' & + ) + end if !ec output for run_out.25 do k = 1, lpar - do ibin = 1, nbin_a - write(*, 9120) & - curr_secs,iclm, jclm, k, ibin, & - refindx_col(ibin,k), & - radius_wet_col(ibin,k), & - number_bin_col(ibin,k) -9120 format( i7,3(2x,i4),2x,i4, 4x, 4(e14.6,2x)) + do ibin = 1, nbin_a + write(*, 9120) & + curr_secs,iclm, jclm, k, ibin, & + refindx_col(ibin,k), & + radius_wet_col(ibin,k), & + number_bin_col(ibin,k) +9120 format( i7,3(2x,i4),2x,i4, 4x, 4(e14.6,2x)) + end do end do - end do - kcallmieaer2 = kcallmieaer2 + 1 - end if - end if + kcallmieaer2 = kcallmieaer2 + 1 + end if + end if !ec end print of aerosol physical parameter diagnostics !ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc #endif ! ! loop over levels - do 2000 klevel=1,lpar - thesum=0.0 - do m=1,nbin_a - thesum=thesum+number_bin_col(m,klevel) - enddo - pie=4.*atan(1.) + do 2000 klevel=1,lpar + thesum=0.0 + do m=1,nbin_a + thesum=thesum+number_bin_col(m,klevel) + enddo + pie=4.*atan(1.) ! Begin spectral loop - do 1000 ns=1,nspint + do 1000 ns=1,nspint ! aerosol optical properties - tauaer(ns,klevel)=0. - waer(ns,klevel)=0. - gaer(ns,klevel)=0. - sizeaer(ns,klevel)=0.0 - extaer(ns,klevel)=0.0 - l2(ns,klevel)=0.0 - l3(ns,klevel)=0.0 - l4(ns,klevel)=0.0 - l5(ns,klevel)=0.0 - l6(ns,klevel)=0.0 - l7(ns,klevel)=0.0 - bscoef(ns,klevel)=0.0 - if(thesum.le.1.e-21)goto 1000 ! set everything = 0 if no aerosol ! wig changed 0.0 to 1e-21 + tauaer(ns,klevel)=0. + waer(ns,klevel)=0. + gaer(ns,klevel)=0. + sizeaer(ns,klevel)=0.0 + extaer(ns,klevel)=0.0 + l2(ns,klevel)=0.0 + l3(ns,klevel)=0.0 + l4(ns,klevel)=0.0 + l5(ns,klevel)=0.0 + l6(ns,klevel)=0.0 + l7(ns,klevel)=0.0 + bscoef(ns,klevel)=0.0 + if(thesum.le.1.e-21)goto 1000 ! set everything = 0 if no aerosol ! wig changed 0.0 to 1e-21 ! loop over the bins, nbin_a is the number of bins - do m=1,nbin_a + do m=1,nbin_a ! check to see if there's any aerosol !jdf if(number_bin_col(m,klevel).le.1e-21)goto 70 ! no aerosol wig changed 0.0 to 1e-21, 31-Oct-2005 ! here's the size - sizem=radius_wet_col(m,klevel) ! radius in cm - ratio=radius_core_col(m,klevel)/radius_wet_col(m,klevel) + sizem=radius_wet_col(m,klevel) ! radius in cm + ratio=radius_core_col(m,klevel)/radius_wet_col(m,klevel) ! check limits of particle size ! rce 2004-dec-07 - use klevel in write statements - if(radius_wet_col(m,klevel).le.rmin)then + if(radius_wet_col(m,klevel).le.rmin)then radius_wet_col(m,klevel)=rmin radius_core_col(m,klevel)=rmin*ratio write( msg, '(a, 5i4,1x, e11.4)' ) & - 'mieaer_sc: radius_wet set to rmin,' // & - 'id,i,j,k,m,rm(m,k)', id, iclm, jclm, klevel, m, radius_wet_col(m,klevel) + 'mieaer_sc: radius_wet set to rmin,' // & + 'id,i,j,k,m,rm(m,k)', id, iclm, jclm, klevel, m, radius_wet_col(m,klevel) ! call peg_message( lunerr, msg ) ! write(6,'('' particle size too small '')') - endif + endif ! - if(radius_wet_col(m,klevel).gt.rmax)then - write( msg, '(a, 5i4,1x, e11.4)' ) & - 'mieaer_sc: radius_wet set to rmax,' // & - 'id,i,j,k,m,rm(m,k)', & - id, iclm, jclm, klevel, m, radius_wet_col(m,klevel) + if(radius_wet_col(m,klevel).gt.rmax)then + write( msg, '(a, 5i4,1x, e11.4)' ) & + 'mieaer_sc: radius_wet set to rmax,' // & + 'id,i,j,k,m,rm(m,k)', & + id, iclm, jclm, klevel, m, radius_wet_col(m,klevel) ! call peg_message( lunerr, msg ) - radius_wet_col(m,klevel)=rmax - radius_core_col(m,klevel)=rmax*ratio + radius_wet_col(m,klevel)=rmax + radius_core_col(m,klevel)=rmax*ratio ! write(6,'('' particle size too large '')') - endif + endif ! - ri_shell_a=dcmplx(real(refindx_col(m,klevel)),abs(aimag(refindx_col(m,klevel)))) ! need positive complex part of refractive index here - ri_core_a=dcmplx(real(refindx_core_col(m,klevel)),abs(aimag(refindx_core_col(m,klevel)))) ! need positive complex part of refractive index here + ri_shell_a=dcmplx(real(refindx_col(m,klevel)),abs(aimag(refindx_col(m,klevel)))) ! need positive complex part of refractive index here + ri_core_a=dcmplx(real(refindx_core_col(m,klevel)),abs(aimag(refindx_core_col(m,klevel)))) ! need positive complex part of refractive index here ! - dp_wet_a= 2.0*radius_wet_col(m,klevel)*1.0e04 ! radius_wet is in cm,dp_wet_a should be in microns - dp_core_a=2.0*radius_core_col(m,klevel)*1.0e04 - vlambc=wavmid(ns)*1.0e04 + dp_wet_a= 2.0*radius_wet_col(m,klevel)*1.0e04 ! radius_wet is in cm,dp_wet_a should be in microns + dp_core_a=2.0*radius_core_col(m,klevel)*1.0e04 + vlambc=wavmid(ns)*1.0e04 ! - call miedriver(dp_wet_a,dp_core_a,ri_shell_a,ri_core_a, vlambc, & - qextc,qscatc,gscac,extc,scatc,qbackc,backc,pmom) + call miedriver(dp_wet_a,dp_core_a,ri_shell_a,ri_core_a, vlambc, & + qextc,qscatc,gscac,extc,scatc,qbackc,backc,pmom) ! check, note that pmom(1,1)/pmom(0,1) is indeed the asymmetry parameter as calculated by Tom's code, jcb, July 7, 2007 ! correct in the Rayleigh limit, July 3, 2007: jcb ! - weighte=extc*1.0e-08 ! extinction cross section, converted to cm^2 - weights=scatc*1.0e-08 ! scattering cross section, converted to cm^2 + weighte=extc*1.0e-08 ! extinction cross section, converted to cm^2 + weights=scatc*1.0e-08 ! scattering cross section, converted to cm^2 tauaer(ns,klevel)=tauaer(ns,klevel)+weighte* & - number_bin_col(m,klevel) ! must be multiplied by deltaZ - sizeaer(ns,klevel)=sizeaer(ns,klevel)+radius_wet_col(m,klevel)*10000.0* & - number_bin_col(m,klevel) - waer(ns,klevel)=waer(ns,klevel)+weights*number_bin_col(m,klevel) - gaer(ns,klevel)=gaer(ns,klevel)+gscac*weights* & - number_bin_col(m,klevel) - l2(ns,klevel)=l2(ns,klevel)+weights*pmom(2,1)/pmom(0,1)*5.0*number_bin_col(m,klevel) - l3(ns,klevel)=l3(ns,klevel)+weights*pmom(3,1)/pmom(0,1)*7.0*number_bin_col(m,klevel) - l4(ns,klevel)=l4(ns,klevel)+weights*pmom(4,1)/pmom(0,1)*9.0*number_bin_col(m,klevel) - l5(ns,klevel)=l5(ns,klevel)+weights*pmom(5,1)/pmom(0,1)*11.0*number_bin_col(m,klevel) - l6(ns,klevel)=l6(ns,klevel)+weights*pmom(6,1)/pmom(0,1)*13.0*number_bin_col(m,klevel) - l7(ns,klevel)=l7(ns,klevel)+weights*pmom(7,1)/pmom(0,1)*15.0*number_bin_col(m,klevel) + number_bin_col(m,klevel) ! must be multiplied by deltaZ + sizeaer(ns,klevel)=sizeaer(ns,klevel)+radius_wet_col(m,klevel)*10000.0* & + number_bin_col(m,klevel) + waer(ns,klevel)=waer(ns,klevel)+weights*number_bin_col(m,klevel) + gaer(ns,klevel)=gaer(ns,klevel)+gscac*weights* & + number_bin_col(m,klevel) + l2(ns,klevel)=l2(ns,klevel)+weights*pmom(2,1)/pmom(0,1)*5.0*number_bin_col(m,klevel) + l3(ns,klevel)=l3(ns,klevel)+weights*pmom(3,1)/pmom(0,1)*7.0*number_bin_col(m,klevel) + l4(ns,klevel)=l4(ns,klevel)+weights*pmom(4,1)/pmom(0,1)*9.0*number_bin_col(m,klevel) + l5(ns,klevel)=l5(ns,klevel)+weights*pmom(5,1)/pmom(0,1)*11.0*number_bin_col(m,klevel) + l6(ns,klevel)=l6(ns,klevel)+weights*pmom(6,1)/pmom(0,1)*13.0*number_bin_col(m,klevel) + l7(ns,klevel)=l7(ns,klevel)+weights*pmom(7,1)/pmom(0,1)*15.0*number_bin_col(m,klevel) ! the 4*pi gives the correct value in the Rayleigh limit compared with the old core, which we assume is correct - bscoef(ns,klevel)=bscoef(ns,klevel)+backc*1.0e-08*number_bin_col(m,klevel)*4.0*pie ! converting cross-section from microns ^2 to cm^2, 4*pie needed -2001 continue - end do ! end of nbin loop + bscoef(ns,klevel)=bscoef(ns,klevel)+backc*1.0e-08*number_bin_col(m,klevel)*4.0*pie ! converting cross-section from microns ^2 to cm^2, 4*pie needed +2001 continue + end do ! end of nbin loop ! take averages - sizeaer(ns,klevel)=sizeaer(ns,klevel)/thesum - gaer(ns,klevel)=gaer(ns,klevel)/waer(ns,klevel) - l2(ns,klevel)=l2(ns,klevel)/waer(ns,klevel) - l3(ns,klevel)=l3(ns,klevel)/waer(ns,klevel) - l4(ns,klevel)=l4(ns,klevel)/waer(ns,klevel) - l5(ns,klevel)=l5(ns,klevel)/waer(ns,klevel) - l6(ns,klevel)=l6(ns,klevel)/waer(ns,klevel) - l7(ns,klevel)=l7(ns,klevel)/waer(ns,klevel) + sizeaer(ns,klevel)=sizeaer(ns,klevel)/thesum + gaer(ns,klevel)=gaer(ns,klevel)/waer(ns,klevel) + l2(ns,klevel)=l2(ns,klevel)/waer(ns,klevel) + l3(ns,klevel)=l3(ns,klevel)/waer(ns,klevel) + l4(ns,klevel)=l4(ns,klevel)/waer(ns,klevel) + l5(ns,klevel)=l5(ns,klevel)/waer(ns,klevel) + l6(ns,klevel)=l6(ns,klevel)/waer(ns,klevel) + l7(ns,klevel)=l7(ns,klevel)/waer(ns,klevel) ! this is beta, not beta/(4*pie) - bscoef(ns,klevel)=bscoef(ns,klevel)*1.0e5 ! unit (km)^-1 + bscoef(ns,klevel)=bscoef(ns,klevel)*1.0e5 ! unit (km)^-1 ! SSA checked by comparson with Travis and Hansen, get exact result - waer(ns,klevel)=waer(ns,klevel)/tauaer(ns,klevel) ! must be last - extaer(ns,klevel)=tauaer(ns,klevel)*1.0e5 ! unit (km)^-1 - 70 continue ! end of nbin_a loop - 1000 continue ! end of wavelength loop -2000 continue ! end of klevel loop + waer(ns,klevel)=waer(ns,klevel)/tauaer(ns,klevel) ! must be last + extaer(ns,klevel)=tauaer(ns,klevel)*1.0e5 ! unit (km)^-1 +70 continue ! end of nbin_a loop +1000 continue ! end of wavelength loop +2000 continue ! end of klevel loop ! before returning, multiply tauaer by depth of individual cells. ! tauaer is in cm-1, dz in m; multiply dz by 100 to convert from m to cm. - do ns = 1, nspint - do klevel = 1, lpar - tauaer(ns,klevel) = tauaer(ns,klevel) * dz(klevel)* 100. - end do - end do + do ns = 1, nspint + do klevel = 1, lpar + tauaer(ns,klevel) = tauaer(ns,klevel) * dz(klevel)* 100. + end do + end do ! #if (defined(CHEM_DBG_I) && defined(CHEM_DBG_J) && defined(CHEM_DBG_K)) !ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc @@ -4750,51 +4750,51 @@ subroutine mieaer_sc( & !ec run_out.30 has aerosol optical info for cells 1 to kmaxd. ! ilaporte = 33 ! jlaporte = 34 - if (iclm .eq. CHEM_DBG_I) then - if (jclm .eq. CHEM_DBG_J) then + if (iclm .eq. CHEM_DBG_I) then + if (jclm .eq. CHEM_DBG_J) then ! initial entry if (kcallmieaer .eq. 0) then - write(*,909) CHEM_DBG_I, CHEM_DBG_J - 909 format(' for cell i = ', i3, ' j = ', i3) + write(*,909) CHEM_DBG_I, CHEM_DBG_J +909 format(' for cell i = ', i3, ' j = ', i3) write(*,910) - 910 format(& - 'curr_secs', 3x, 'i', 3x, 'j', 3x,'k', 3x, & - 'dzmfastj', 8x, & - 'tauaer(1,k)',1x, 'tauaer(2,k)',1x,'tauaer(3,k)',3x, & - 'tauaer(4,k)',5x, & - 'waer(1,k)', 7x, 'waer(2,k)', 7x,'waer(3,k)', 7x, & - 'waer(4,k)', 7x, & - 'gaer(1,k)', 7x, 'gaer(2,k)', 7x,'gaer(3,k)', 7x, & - 'gaer(4,k)', 7x, & - 'extaer(1,k)',5x, 'extaer(2,k)',5x,'extaer(3,k)',5x, & - 'extaer(4,k)',5x, & - 'sizeaer(1,k)',4x, 'sizeaer(2,k)',4x,'sizeaer(3,k)',4x, & - 'sizeaer(4,k)' ) +910 format(& + 'curr_secs', 3x, 'i', 3x, 'j', 3x,'k', 3x, & + 'dzmfastj', 8x, & + 'tauaer(1,k)',1x, 'tauaer(2,k)',1x,'tauaer(3,k)',3x, & + 'tauaer(4,k)',5x, & + 'waer(1,k)', 7x, 'waer(2,k)', 7x,'waer(3,k)', 7x, & + 'waer(4,k)', 7x, & + 'gaer(1,k)', 7x, 'gaer(2,k)', 7x,'gaer(3,k)', 7x, & + 'gaer(4,k)', 7x, & + 'extaer(1,k)',5x, 'extaer(2,k)',5x,'extaer(3,k)',5x, & + 'extaer(4,k)',5x, & + 'sizeaer(1,k)',4x, 'sizeaer(2,k)',4x,'sizeaer(3,k)',4x, & + 'sizeaer(4,k)' ) end if !ec output for run_out.30 - do k = 1, lpar - write(*, 912) & - curr_secs,iclm, jclm, k, & - dz(k) , & - (tauaer(n,k), n=1,4), & - (waer(n,k), n=1,4), & - (gaer(n,k), n=1,4), & - (extaer(n,k), n=1,4), & - (sizeaer(n,k), n=1,4) - 912 format( i7,3(2x,i4),2x,21(e14.6,2x)) - end do - kcallmieaer = kcallmieaer + 1 - end if + do k = 1, lpar + write(*, 912) & + curr_secs,iclm, jclm, k, & + dz(k) , & + (tauaer(n,k), n=1,4), & + (waer(n,k), n=1,4), & + (gaer(n,k), n=1,4), & + (extaer(n,k), n=1,4), & + (sizeaer(n,k), n=1,4) +912 format( i7,3(2x,i4),2x,21(e14.6,2x)) + end do + kcallmieaer = kcallmieaer + 1 end if + end if !ec end print of fastj diagnostics !ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc #endif ! return - end subroutine mieaer_sc + end subroutine mieaer_sc ! - subroutine miedriver(dp_wet_a,dp_core_a,ri_shell_a,ri_core_a, vlambc, & - qextc,qscatc,gscac,extc,scatc,qbackc,backc,pmom) + subroutine miedriver(dp_wet_a,dp_core_a,ri_shell_a,ri_core_a, vlambc, & + qextc,qscatc,gscac,extc,scatc,qbackc,backc,pmom) ! MOSAIC INPUTS ! dp_wet_a = diameter (cm) of aerosol ! dp_core_a = diameter (cm) of the aerosol's core @@ -4862,27 +4862,27 @@ subroutine miedriver(dp_wet_a,dp_core_a,ri_shell_a,ri_core_a, vlambc, & real(kind_chem) dp_wet_a,dp_core_a complex ri_shell_a,ri_core_a ! - nang=2 ! only one angle - nrgflagc=0 ! size distribution -! - rgc=dp_wet_a/2.0 ! radius of particle - rinc=dp_core_a/dp_wet_a ! fraction of radius that is the core - rgcmin=0.001 - rgcmax=5.0 - sigmagc=1.0 ! no particle size dispersion - shelrc=real(ri_shell_a) - shelic=aimag(ri_shell_a) - corerc=real(ri_core_a) - coreic=aimag(ri_core_a) - CALL ACKMIEPARTICLE( VLAMBc,NRGFLAGc,RGcmin,RGcmax, & - RGc,SIGMAGc,SHELRc, & - SHELIc, RINc,CORERc,COREIc,NANG,QEXTc,QSCATc, & - QBACKc, EXTc,SCATc,BACKc, GSCAc, & - ANGLESc,S1R,S1C,S2R,S2C,S11N,S11,S12,S33,S34,SPOL,SP,pmom) ! jcb + nang=2 ! only one angle + nrgflagc=0 ! size distribution +! + rgc=dp_wet_a/2.0 ! radius of particle + rinc=dp_core_a/dp_wet_a ! fraction of radius that is the core + rgcmin=0.001 + rgcmax=5.0 + sigmagc=1.0 ! no particle size dispersion + shelrc=real(ri_shell_a) + shelic=aimag(ri_shell_a) + corerc=real(ri_core_a) + coreic=aimag(ri_core_a) + CALL ACKMIEPARTICLE( VLAMBc,NRGFLAGc,RGcmin,RGcmax, & + RGc,SIGMAGc,SHELRc, & + SHELIc, RINc,CORERc,COREIc,NANG,QEXTc,QSCATc, & + QBACKc, EXTc,SCATc,BACKc, GSCAc, & + ANGLESc,S1R,S1C,S2R,S2C,S11N,S11,S12,S33,S34,SPOL,SP,pmom) ! jcb ! write(6,1010)rgc,qextc,qscatc,qscatc/qextc,gscac -1010 format(5f20.12) -1020 format(2f12.6) - end subroutine miedriver +1010 format(5f20.12) +1020 format(2f12.6) + end subroutine miedriver ! ! /*--------------------------------------------------------*/ ! /* The Toon-Ackerman SUBROUTINE DMIESS for calculating the*/ @@ -4892,10 +4892,10 @@ end subroutine miedriver !********************************************** - SUBROUTINE DMIESS( RO, RFR, RFI, THETD, JX, & - QEXT, QSCAT, CTBRQS, ELTRMX, PIE, & - TAU, CSTHT, SI2THT, ACAP, QBS, IT, & - LL, R, RE2, TMAG2, WVNO, an,bn, ntrm ) + SUBROUTINE DMIESS( RO, RFR, RFI, THETD, JX, & + QEXT, QSCAT, CTBRQS, ELTRMX, PIE, & + TAU, CSTHT, SI2THT, ACAP, QBS, IT, & + LL, R, RE2, TMAG2, WVNO, an,bn, ntrm ) ! ! ********************************************************************** ! THIS SUBROUTINE COMPUTES MIE SCATTERING BY A STRATIFIED SPHERE, @@ -4971,8 +4971,8 @@ SUBROUTINE DMIESS( RO, RFR, RFI, THETD, JX, & INTEGER*4 JX, IT, LL REAL(kind_chem) RO, RFR, RFI, THETD(IT), QEXT, QSCAT, CTBRQS, & - ELTRMX(4,IT,2), PIE(3,IT), TAU(3,IT), CSTHT(IT), & - SI2THT(IT), QBS, R, RE2, TMAG2, WVNO + ELTRMX(4,IT,2), PIE(3,IT), TAU(3,IT), CSTHT(IT), & + SI2THT(IT), QBS, R, RE2, TMAG2, WVNO COMPLEX ACAP(LL) @@ -4983,19 +4983,19 @@ SUBROUTINE DMIESS( RO, RFR, RFI, THETD, JX, & INTEGER*4 IFLAG, J, K, M, N, NN, NMX1, NMX2 REAL(kind_chem) T(5), TA(4), TB(2), TC(2), TD(2), TE(2), X, & - RX, X1, Y1, X4, Y4, SINX1, SINX4, COSX1, COSX4, & - EY1, E2Y1, EY4, EY1MY4, EY1PY4, AA, BB, & - CC, DD, DENOM, REALP, AMAGP, QBSR, QBSI, RMM, & - PIG, RXP4 + RX, X1, Y1, X4, Y4, SINX1, SINX4, COSX1, COSX4, & + EY1, E2Y1, EY4, EY1MY4, EY1PY4, AA, BB, & + CC, DD, DENOM, REALP, AMAGP, QBSR, QBSI, RMM, & + PIG, RXP4 ! COMPLEX FNAP, FNBP, W, & - FNA, FNB, RF, RRF, & - RRFX, WM1, FN1, FN2, & - TC1, TC2, WFN(2), Z(4), & - K1, K2, K3, & - RC, U(8), DH1, & - DH2, DH4, P24H24, P24H21, & - PSTORE, HSTORE, DUMMY, DUMSQ + FNA, FNB, RF, RRF, & + RRFX, WM1, FN1, FN2, & + TC1, TC2, WFN(2), Z(4), & + K1, K2, K3, & + RC, U(8), DH1, & + DH2, DH4, P24H24, P24H21, & + PSTORE, HSTORE, DUMMY, DUMSQ ! jcb complex an(500),bn(500) ! a,b Mie coefficients, jcb Hansen and Travis, eqn 2.44 integer*4 ntrm @@ -5019,36 +5019,36 @@ SUBROUTINE DMIESS( RO, RFR, RFI, THETD, JX, & ! /*--------------------------------------------------------*/ IFLAG = 1 ntrm=0 ! jcb - IF ( R/RO .LT. 1.0D-06 ) IFLAG = 2 + IF ( R/RO .LT. 1.0D-06 ) IFLAG = 2 IF ( JX .LE. IT ) GO TO 20 - WRITE( 6,7 ) - WRITE( 6,6 ) - call errmsg( 'DMIESS: 30', .true.) - 20 RF = CMPLX( RFR, -RFI ) + WRITE( 6,7 ) + WRITE( 6,6 ) + call errmsg( 'DMIESS: 30', .true.) +20 RF = CMPLX( RFR, -RFI ) RC = CMPLX( RE2,-TMAG2 ) X = RO * WVNO K1 = RC * WVNO K2 = RF * WVNO - K3 = CMPLX( WVNO, 0.0D0 ) + K3 = CMPLX( WVNO, 0.0D0 ) Z(1) = K2 * RO - Z(2) = K3 * RO + Z(2) = K3 * RO Z(3) = K1 * R - Z(4) = K2 * R + Z(4) = K2 * R X1 = REAL( Z(1) ) - Y1 = AIMAG( Z(1) ) + Y1 = AIMAG( Z(1) ) X4 = REAL( Z(4) ) - Y4 = AIMAG( Z(4) ) + Y4 = AIMAG( Z(4) ) RRF = 1.0D0 / RF - RX = 1.0D0 / X + RX = 1.0D0 / X RRFX = RRF * RX - T(1) = ( X**2 ) * ( RFR**2 + RFI**2 ) + T(1) = ( X**2 ) * ( RFR**2 + RFI**2 ) T(1) = sqrt( T(1) ) NMX1 = 1.30D0* T(1) ! IF ( NMX1 .LE. LL-1 ) GO TO 21 WRITE(6,8) call errmsg( 'DMIESS: 32', .true.) - 21 NMX2 = T(1) * 1.2 +21 NMX2 = T(1) * 1.2 nmx1=min(nmx1+5,150) ! jcb nmx2=min(nmx2+5,135) ! jcb ! write(6,*)x,nmx1,nmx2,ll ! jcb @@ -5057,102 +5057,102 @@ SUBROUTINE DMIESS( RO, RFR, RFI, THETD, JX, & ! NMX1 = 150 ! NMX2 = 135 ! - 22 ACAP( NMX1+1 ) = ( 0.0D0,0.0D0 ) +22 ACAP( NMX1+1 ) = ( 0.0D0,0.0D0 ) IF ( IFLAG .EQ. 2 ) GO TO 26 - DO 29 N = 1,3 - 29 W( N,NMX1+1 ) = ( 0.0D0,0.0D0 ) - 26 CONTINUE + DO 29 N = 1,3 +29 W( N,NMX1+1 ) = ( 0.0D0,0.0D0 ) +26 CONTINUE DO 23 N = 1,NMX1 NN = NMX1 - N + 1 ACAP(NN) = (NN+1)*RRFX - 1.0D0 / ((NN+1)*RRFX + ACAP(NN+1)) - IF ( IFLAG .EQ. 2 ) GO TO 23 - DO 31 M = 1,3 - 31 W( M,NN ) = (NN+1) / Z(M+1) - & - 1.0D0 / ((NN+1) / Z(M+1) + W( M,NN+1 )) - 23 CONTINUE -! - DO 30 J = 1,JX - IF ( THETD(J) .LT. 0.0D0 ) THETD(J) = abs( THETD(J) ) - IF ( THETD(J) .GT. 0.0D0 ) GO TO 24 - CSTHT(J) = 1.0D0 - SI2THT(J) = 0.0D0 - GO TO 30 - 24 IF ( THETD(J) .GE. 90.0D0 ) GO TO 25 - T(1) = ( 3.14159265359 * THETD(J) ) / 180.0D0 - CSTHT(J) = COS( T(1) ) - SI2THT(J) = 1.0D0 - CSTHT(J)**2 - GO TO 30 - 25 IF ( THETD(J) .GT. 90.0 ) GO TO 28 - CSTHT(J) = 0.0D0 - SI2THT(J) = 1.0D0 - GO TO 30 - 28 WRITE( 6,5 ) THETD(J) - WRITE( 6,6 ) - call errmsg( 'DMIESS: 34', .true.) - 30 CONTINUE -! - DO 35 J = 1,JX - PIE(1,J) = 0.0D0 - PIE(2,J) = 1.0D0 - TAU(1,J) = 0.0D0 - TAU(2,J) = CSTHT(J) - 35 CONTINUE + IF ( IFLAG .EQ. 2 ) GO TO 23 + DO 31 M = 1,3 +31 W( M,NN ) = (NN+1) / Z(M+1) - & + 1.0D0 / ((NN+1) / Z(M+1) + W( M,NN+1 )) +23 CONTINUE +! + DO 30 J = 1,JX + IF ( THETD(J) .LT. 0.0D0 ) THETD(J) = abs( THETD(J) ) + IF ( THETD(J) .GT. 0.0D0 ) GO TO 24 + CSTHT(J) = 1.0D0 + SI2THT(J) = 0.0D0 + GO TO 30 +24 IF ( THETD(J) .GE. 90.0D0 ) GO TO 25 + T(1) = ( 3.14159265359 * THETD(J) ) / 180.0D0 + CSTHT(J) = COS( T(1) ) + SI2THT(J) = 1.0D0 - CSTHT(J)**2 + GO TO 30 +25 IF ( THETD(J) .GT. 90.0 ) GO TO 28 + CSTHT(J) = 0.0D0 + SI2THT(J) = 1.0D0 + GO TO 30 +28 WRITE( 6,5 ) THETD(J) + WRITE( 6,6 ) + call errmsg( 'DMIESS: 34', .true.) +30 CONTINUE +! + DO 35 J = 1,JX + PIE(1,J) = 0.0D0 + PIE(2,J) = 1.0D0 + TAU(1,J) = 0.0D0 + TAU(2,J) = CSTHT(J) +35 CONTINUE ! ! INITIALIZATION OF HOMOGENEOUS SPHERE ! T(1) = COS(X) - T(2) = SIN(X) + T(2) = SIN(X) WM1 = CMPLX( T(1),-T(2) ) - WFN(1) = CMPLX( T(2), T(1) ) + WFN(1) = CMPLX( T(2), T(1) ) TA(1) = T(2) - TA(2) = T(1) + TA(2) = T(1) WFN(2) = RX * WFN(1) - WM1 - TA(3) = REAL(WFN(2)) + TA(3) = REAL(WFN(2)) TA(4) = AIMAG(WFN(2)) ! n=1 ! jcb, bug??? IF ( IFLAG .EQ. 2 ) GO TO 560 - N = 1 + N = 1 ! ! INITIALIZATION PROCEDURE FOR STRATIFIED SPHERE BEGINS HERE ! - SINX1 = SIN( X1 ) + SINX1 = SIN( X1 ) SINX4 = SIN( X4 ) - COSX1 = COS( X1 ) + COSX1 = COS( X1 ) COSX4 = COS( X4 ) - EY1 = EXP( Y1 ) + EY1 = EXP( Y1 ) E2Y1 = EY1 * EY1 - EY4 = EXP( Y4 ) + EY4 = EXP( Y4 ) EY1MY4 = EXP( Y1 - Y4 ) - EY1PY4 = EY1 * EY4 + EY1PY4 = EY1 * EY4 EY1MY4 = EXP( Y1 - Y4 ) - AA = SINX4 * ( EY1PY4 + EY1MY4 ) + AA = SINX4 * ( EY1PY4 + EY1MY4 ) BB = COSX4 * ( EY1PY4 - EY1MY4 ) CC = SINX1 * ( E2Y1 + 1.0D0 ) DD = COSX1 * ( E2Y1 - 1.0D0 ) - DENOM = 1.0D0 + E2Y1 * (4.0D0*SINX1*SINX1 - 2.0D0 + E2Y1) + DENOM = 1.0D0 + E2Y1 * (4.0D0*SINX1*SINX1 - 2.0D0 + E2Y1) REALP = ( AA * CC + BB * DD ) / DENOM AMAGP = ( BB * CC - AA * DD ) / DENOM DUMMY = CMPLX( REALP, AMAGP ) - AA = SINX4 * SINX4 - 0.5D0 + AA = SINX4 * SINX4 - 0.5D0 BB = COSX4 * SINX4 - P24H24 = 0.5D0 + CMPLX( AA,BB ) * EY4 * EY4 + P24H24 = 0.5D0 + CMPLX( AA,BB ) * EY4 * EY4 AA = SINX1 * SINX4 - COSX1 * COSX4 - BB = SINX1 * COSX4 + COSX1 * SINX4 + BB = SINX1 * COSX4 + COSX1 * SINX4 CC = SINX1 * SINX4 + COSX1 * COSX4 - DD = -SINX1 * COSX4 + COSX1 * SINX4 + DD = -SINX1 * COSX4 + COSX1 * SINX4 P24H21 = 0.5D0 * CMPLX( AA,BB ) * EY1 * EY4 + & - 0.5D0 * CMPLX( CC,DD ) * EY1MY4 + 0.5D0 * CMPLX( CC,DD ) * EY1MY4 DH4 = Z(4) / (1.0D0 + (0.0D0,1.0D0) * Z(4)) - 1.0D0 / Z(4) - DH1 = Z(1) / (1.0D0 + (0.0D0,1.0D0) * Z(1)) - 1.0D0 / Z(1) + DH1 = Z(1) / (1.0D0 + (0.0D0,1.0D0) * Z(1)) - 1.0D0 / Z(1) DH2 = Z(2) / (1.0D0 + (0.0D0,1.0D0) * Z(2)) - 1.0D0 / Z(2) - PSTORE = ( DH4 + N / Z(4) ) * ( W(3,N) + N / Z(4) ) + PSTORE = ( DH4 + N / Z(4) ) * ( W(3,N) + N / Z(4) ) P24H24 = P24H24 / PSTORE - HSTORE = ( DH1 + N / Z(1) ) * ( W(3,N) + N / Z(4) ) + HSTORE = ( DH1 + N / Z(1) ) * ( W(3,N) + N / Z(4) ) P24H21 = P24H21 / HSTORE - PSTORE = ( ACAP(N) + N / Z(1) ) / ( W(3,N) + N / Z(4) ) + PSTORE = ( ACAP(N) + N / Z(1) ) / ( W(3,N) + N / Z(4) ) DUMMY = DUMMY * PSTORE - DUMSQ = DUMMY * DUMMY + DUMSQ = DUMMY * DUMMY ! ! NOTE: THE DEFINITIONS OF U(I) IN THIS PROGRAM ARE NOT THE SAME AS ! THE USUBI DEFINED IN THE ARTICLE BY TOON AND ACKERMAN. THE @@ -5164,18 +5164,18 @@ SUBROUTINE DMIESS( RO, RFR, RFI, THETD, JX, & ! RATIO OF SPHERICAL BESSEL FTN TO SPHERICAL HENKAL FTN = U(8) ! U(1) = K3 * ACAP(N) - K2 * W(1,N) - U(2) = K3 * ACAP(N) - K2 * DH2 + U(2) = K3 * ACAP(N) - K2 * DH2 U(3) = K2 * ACAP(N) - K3 * W(1,N) - U(4) = K2 * ACAP(N) - K3 * DH2 + U(4) = K2 * ACAP(N) - K3 * DH2 U(5) = K1 * W(3,N) - K2 * W(2,N) - U(6) = K2 * W(3,N) - K1 * W(2,N) + U(6) = K2 * W(3,N) - K1 * W(2,N) U(7) = ( 0.0D0,-1.0D0 ) * ( DUMMY * P24H21 - P24H24 ) - U(8) = TA(3) / WFN(2) + U(8) = TA(3) / WFN(2) ! FNA = U(8) * ( U(1)*U(5)*U(7) + K1*U(1) - DUMSQ*K3*U(5) ) / & - ( U(2)*U(5)*U(7) + K1*U(2) - DUMSQ*K3*U(5) ) + ( U(2)*U(5)*U(7) + K1*U(2) - DUMSQ*K3*U(5) ) FNB = U(8) * ( U(3)*U(6)*U(7) + K2*U(3) - DUMSQ*K2*U(6) ) / & - ( U(4)*U(6)*U(7) + K2*U(4) - DUMSQ*K2*U(6) ) + ( U(4)*U(6)*U(7) + K2*U(4) - DUMSQ*K2*U(6) ) ! ! Explicit equivalences added by J. Francis @@ -5183,26 +5183,26 @@ SUBROUTINE DMIESS( RO, RFR, RFI, THETD, JX, & TB(2) = AIMAG(FNA) TC(1) = REAL(FNB) TC(2) = AIMAG(FNB) - GO TO 561 - 560 TC1 = ACAP(1) * RRF + RX - TC2 = ACAP(1) * RF + RX + GO TO 561 +560 TC1 = ACAP(1) * RRF + RX + TC2 = ACAP(1) * RF + RX FNA = ( TC1 * TA(3) - TA(1) ) / ( TC1 * WFN(2) - WFN(1) ) - FNB = ( TC2 * TA(3) - TA(1) ) / ( TC2 * WFN(2) - WFN(1) ) + FNB = ( TC2 * TA(3) - TA(1) ) / ( TC2 * WFN(2) - WFN(1) ) TB(1) = REAL(FNA) TB(2) = AIMAG(FNA) TC(1) = REAL(FNB) TC(2) = AIMAG(FNB) ! - 561 CONTINUE +561 CONTINUE ! jcb - ntrm=ntrm+1 - an(n)=fna - bn(n)=fnb + ntrm=ntrm+1 + an(n)=fna + bn(n)=fnb ! write(6,1010)ntrm,n,an(n),bn(n) -1010 format(2i5,4e15.6) +1010 format(2i5,4e15.6) ! jcb FNAP = FNA - FNBP = FNB + FNBP = FNB TD(1) = REAL(FNAP) TD(2) = AIMAG(FNAP) TE(1) = REAL(FNBP) @@ -5218,9 +5218,9 @@ SUBROUTINE DMIESS( RO, RFR, RFI, THETD, JX, & ! K = 1 : FOR THETD(J) AND K = 2 : FOR 180.0 - THETD(J) ! DEFINITION OF THE COMPLEX AMPLITUDE: VAN DE HULST,P.125. ! - TB(1) = T(1) * TB(1) + TB(1) = T(1) * TB(1) TB(2) = T(1) * TB(2) - TC(1) = T(1) * TC(1) + TC(1) = T(1) * TC(1) TC(2) = T(1) * TC(2) ! DO 60 J = 1,JX ! ELTRMX(1,J,1) = TB(1) * PIE(2,J) + TC(1) * TAU(2,J) @@ -5231,32 +5231,32 @@ SUBROUTINE DMIESS( RO, RFR, RFI, THETD, JX, & ! ELTRMX(2,J,2) = TB(2) * PIE(2,J) - TC(2) * TAU(2,J) ! ELTRMX(3,J,2) = TC(1) * PIE(2,J) - TB(1) * TAU(2,J) ! ELTRMX(4,J,2) = TC(2) * PIE(2,J) - TB(2) * TAU(2,J) - 60 CONTINUE +60 CONTINUE ! QEXT = 2.0D0 * ( TB(1) + TC(1)) - QSCAT = ( TB(1)**2 + TB(2)**2 + TC(1)**2 + TC(2)**2 ) / 0.75D0 + QSCAT = ( TB(1)**2 + TB(2)**2 + TC(1)**2 + TC(2)**2 ) / 0.75D0 CTBRQS = 0.0D0 - QBSR = -2.0D0*(TC(1) - TB(1)) + QBSR = -2.0D0*(TC(1) - TB(1)) QBSI = -2.0D0*(TC(2) - TB(2)) - RMM = -1.0D0 + RMM = -1.0D0 N = 2 - 65 T(1) = 2*N - 1 ! start of loop, JCB +65 T(1) = 2*N - 1 ! start of loop, JCB T(2) = N - 1 T(3) = 2*N + 1 DO 70 J = 1,JX - PIE(3,J) = ( T(1)*PIE(2,J)*CSTHT(J) - N*PIE(1,J) ) / T(2) - TAU(3,J) = CSTHT(J) * ( PIE(3,J) - PIE(1,J) ) - & - T(1)*SI2THT(J)*PIE(2,J) + TAU(1,J) - 70 CONTINUE + PIE(3,J) = ( T(1)*PIE(2,J)*CSTHT(J) - N*PIE(1,J) ) / T(2) + TAU(3,J) = CSTHT(J) * ( PIE(3,J) - PIE(1,J) ) - & + T(1)*SI2THT(J)*PIE(2,J) + TAU(1,J) +70 CONTINUE ! ! HERE SET UP HOMOGENEOUS SPHERE ! WM1 = WFN(1) - WFN(1) = WFN(2) + WFN(1) = WFN(2) TA(1) = REAL(WFN(1)) - TA(2) = AIMAG(WFN(1)) + TA(2) = AIMAG(WFN(1)) WFN(2) = T(1) * RX * WFN(1) - WM1 - TA(3) = REAL(WFN(2)) + TA(3) = REAL(WFN(2)) TA(4) = AIMAG(WFN(2)) ! IF ( IFLAG .EQ. 2 ) GO TO 1000 @@ -5264,53 +5264,53 @@ SUBROUTINE DMIESS( RO, RFR, RFI, THETD, JX, & ! HERE SET UP STRATIFIED SPHERE ! DH2 = - N / Z(2) + 1.0D0 / ( N / Z(2) - DH2 ) - DH4 = - N / Z(4) + 1.0D0 / ( N / Z(4) - DH4 ) + DH4 = - N / Z(4) + 1.0D0 / ( N / Z(4) - DH4 ) DH1 = - N / Z(1) + 1.0D0 / ( N / Z(1) - DH1 ) - PSTORE = ( DH4 + N / Z(4) ) * ( W(3,N) + N / Z(4) ) + PSTORE = ( DH4 + N / Z(4) ) * ( W(3,N) + N / Z(4) ) P24H24 = P24H24 / PSTORE - HSTORE = ( DH1 + N / Z(1) ) * ( W(3,N) + N / Z(4) ) + HSTORE = ( DH1 + N / Z(1) ) * ( W(3,N) + N / Z(4) ) P24H21 = P24H21 / HSTORE - PSTORE = ( ACAP(N) + N / Z(1) ) / ( W(3,N) + N / Z(4) ) + PSTORE = ( ACAP(N) + N / Z(1) ) / ( W(3,N) + N / Z(4) ) DUMMY = DUMMY * PSTORE - DUMSQ = DUMMY * DUMMY + DUMSQ = DUMMY * DUMMY ! - U(1) = K3 * ACAP(N) - K2 * W(1,N) + U(1) = K3 * ACAP(N) - K2 * W(1,N) U(2) = K3 * ACAP(N) - K2 * DH2 U(3) = K2 * ACAP(N) - K3 * W(1,N) U(4) = K2 * ACAP(N) - K3 * DH2 - U(5) = K1 * W(3,N) - K2 * W(2,N) + U(5) = K1 * W(3,N) - K2 * W(2,N) U(6) = K2 * W(3,N) - K1 * W(2,N) - U(7) = ( 0.0D0,-1.0D0 ) * ( DUMMY * P24H21 - P24H24 ) + U(7) = ( 0.0D0,-1.0D0 ) * ( DUMMY * P24H21 - P24H24 ) U(8) = TA(3) / WFN(2) ! FNA = U(8) * ( U(1)*U(5)*U(7) + K1*U(1) - DUMSQ*K3*U(5) ) / & - ( U(2)*U(5)*U(7) + K1*U(2) - DUMSQ*K3*U(5) ) + ( U(2)*U(5)*U(7) + K1*U(2) - DUMSQ*K3*U(5) ) FNB = U(8) * ( U(3)*U(6)*U(7) + K2*U(3) - DUMSQ*K2*U(6) ) / & - ( U(4)*U(6)*U(7) + K2*U(4) - DUMSQ*K2*U(6) ) + ( U(4)*U(6)*U(7) + K2*U(4) - DUMSQ*K2*U(6) ) TB(1) = REAL(FNA) TB(2) = AIMAG(FNA) TC(1) = REAL(FNB) TC(2) = AIMAG(FNB) ! - 1000 CONTINUE +1000 CONTINUE TC1 = ACAP(N) * RRF + N * RX - TC2 = ACAP(N) * RF + N * RX + TC2 = ACAP(N) * RF + N * RX FN1 = ( TC1 * TA(3) - TA(1) ) / ( TC1 * WFN(2) - WFN(1) ) - FN2 = ( TC2 * TA(3) - TA(1) ) / ( TC2 * WFN(2) - WFN(1) ) + FN2 = ( TC2 * TA(3) - TA(1) ) / ( TC2 * WFN(2) - WFN(1) ) M = WVNO * R - IF ( N .LT. M ) GO TO 1002 + IF ( N .LT. M ) GO TO 1002 IF ( IFLAG .EQ. 2 ) GO TO 1001 IF ( ABS( ( FN1-FNA ) / FN1 ) .LT. 1.0D-09 .AND. & - ABS( ( FN2-FNB ) / FN2 ) .LT. 1.0D-09 ) IFLAG = 2 - IF ( IFLAG .EQ. 1 ) GO TO 1002 - 1001 FNA = FN1 - FNB = FN2 + ABS( ( FN2-FNB ) / FN2 ) .LT. 1.0D-09 ) IFLAG = 2 + IF ( IFLAG .EQ. 1 ) GO TO 1002 +1001 FNA = FN1 + FNB = FN2 TB(1) = REAL(FNA) TB(2) = AIMAG(FNA) TC(1) = REAL(FNB) TC(2) = AIMAG(FNB) ! - 1002 CONTINUE +1002 CONTINUE ! jcb ntrm=ntrm+1 an(n)=fna @@ -5318,21 +5318,21 @@ SUBROUTINE DMIESS( RO, RFR, RFI, THETD, JX, & ! write(6,1010)ntrm,n,an(n),bn(n) ! jcb T(5) = N - T(4) = T(1) / ( T(5) * T(2) ) + T(4) = T(1) / ( T(5) * T(2) ) T(2) = ( T(2) * ( T(5) + 1.0D0 ) ) / T(5) ! CTBRQS = CTBRQS + T(2) * ( TD(1) * TB(1) + TD(2) * TB(2) & - + TE(1) * TC(1) + TE(2) * TC(2) ) & - + T(4) * ( TD(1) * TE(1) + TD(2) * TE(2) ) - QEXT = QEXT + T(3) * ( TB(1) + TC(1) ) + + TE(1) * TC(1) + TE(2) * TC(2) ) & + + T(4) * ( TD(1) * TE(1) + TD(2) * TE(2) ) + QEXT = QEXT + T(3) * ( TB(1) + TC(1) ) T(4) = TB(1)**2 + TB(2)**2 + TC(1)**2 + TC(2)**2 - QSCAT = QSCAT + T(3) * T(4) + QSCAT = QSCAT + T(3) * T(4) RMM = -RMM - QBSR = QBSR + T(3)*RMM*(TC(1) - TB(1)) + QBSR = QBSR + T(3)*RMM*(TC(1) - TB(1)) QBSI = QBSI + T(3)*RMM*(TC(2) - TB(2)) ! T(2) = N * (N+1) - T(1) = T(3) / T(2) + T(1) = T(3) / T(2) K = (N/2)*2 ! DO 80 J = 1,JX ! ELTRMX(1,J,1)=ELTRMX(1,J,1)+T(1)*(TB(1)*PIE(3,J)+TC(1)*TAU(3,J)) @@ -5360,17 +5360,17 @@ SUBROUTINE DMIESS( RO, RFR, RFI, THETD, JX, & ! PIE(2,J) = PIE(3,J) ! TAU(1,J) = TAU(2,J) ! TAU(2,J) = TAU(3,J) - 90 CONTINUE +90 CONTINUE FNAP = FNA - FNBP = FNB + FNBP = FNB TD(1) = REAL(FNAP) TD(2) = AIMAG(FNAP) TE(1) = REAL(FNBP) TE(2) = AIMAG(FNBP) IF ( N .LE. NMX2 ) GO TO 65 - WRITE( 6,8 ) - call errmsg( 'DMIESS: 36', .true.) - 100 CONTINUE + WRITE( 6,8 ) + call errmsg( 'DMIESS: 36', .true.) +100 CONTINUE ! DO 120 J = 1,JX ! DO 120 K = 1,2 ! DO 115 I= 1,4 @@ -5382,23 +5382,23 @@ SUBROUTINE DMIESS( RO, RFR, RFI, THETD, JX, & ! ELTRMX(4,J,K) = T(2) * T(3) - T(4) * T(1) ! 120 CONTINUE T(1) = 2.0D0 * RX**2 - QEXT = QEXT * T(1) + QEXT = QEXT * T(1) QSCAT = QSCAT * T(1) - CTBRQS = 2.0D0 * CTBRQS * T(1) + CTBRQS = 2.0D0 * CTBRQS * T(1) ! ! QBS IS THE BACK SCATTER CROSS SECTION ! - PIG = DACOS(-1.0D0) + PIG = DACOS(-1.0D0) RXP4 = RX*RX/(4.0D0*PIG) - QBS = RXP4*(QBSR**2 + QBSI**2) + QBS = RXP4*(QBSR**2 + QBSI**2) ! - 5 FORMAT( 10X,' THE VALUE OF THE SCATTERING ANGLE IS GREATER THAN 90.0 DEGREES. IT IS ', E15.4 ) - 6 FORMAT( // 10X, 'PLEASE READ COMMENTS.' // ) - 7 FORMAT( // 10X, 'THE VALUE OF THE ARGUMENT JX IS GREATER THAN IT') - 8 FORMAT( // 10X, 'THE UPPER LIMIT FOR ACAP IS NOT ENOUGH. SUGGEST GET DETAILED OUTPUT AND MODIFY SUBROUTINE' // ) +5 FORMAT( 10X,' THE VALUE OF THE SCATTERING ANGLE IS GREATER THAN 90.0 DEGREES. IT IS ', E15.4 ) +6 FORMAT( // 10X, 'PLEASE READ COMMENTS.' // ) +7 FORMAT( // 10X, 'THE VALUE OF THE ARGUMENT JX IS GREATER THAN IT') +8 FORMAT( // 10X, 'THE UPPER LIMIT FOR ACAP IS NOT ENOUGH. SUGGEST GET DETAILED OUTPUT AND MODIFY SUBROUTINE' // ) ! RETURN - END SUBROUTINE DMIESS + END SUBROUTINE DMIESS ! ! /*****************************************************************/ ! /* SUBROUTINE ACKMIEPARICLE */ @@ -5451,11 +5451,11 @@ END SUBROUTINE DMIESS ! 0 and 180 degrees, inclusive. ! /*---------------------------------------------------------------*/ - SUBROUTINE ACKMIEPARTICLE( VLAMBc,NRGFLAGc,RGcmin,RGcmax, & - RGc,SIGMAGc,SHELRc, & - SHELIc, RINc,CORERc,COREIc,NANG,QEXTc,QSCATc, & - QBACKc, EXTc,SCATc,BACKc, GSCAc, & - ANGLESc,S1R,S1C,S2R,S2C,S11N,S11,S12,S33,S34,SPOL,SP,pmom) ! jcb + SUBROUTINE ACKMIEPARTICLE( VLAMBc,NRGFLAGc,RGcmin,RGcmax, & + RGc,SIGMAGc,SHELRc, & + SHELIc, RINc,CORERc,COREIc,NANG,QEXTc,QSCATc, & + QBACKc, EXTc,SCATc,BACKc, GSCAc, & + ANGLESc,S1R,S1C,S2R,S2C,S11N,S11,S12,S33,S34,SPOL,SP,pmom) ! jcb ! /*--------------------------------------------------------*/ ! /* Set reals to 8 bytes, i.e., double precision. */ @@ -5491,9 +5491,9 @@ SUBROUTINE ACKMIEPARTICLE( VLAMBc,NRGFLAGc,RGcmin,RGcmax, & REAL(kind_chem) ALAMB, RGmin, RGmax, RGV, SIGMAG, RGCFRAC, RFRS,RFIS, RFRC, RFIC ! for calculating the Legendre coefficient, jcb - complex an(500),bn(500) ! a,b Mie coefficients, jcb Hansen and Travis, eqn 2.44 - integer*4 ntrmj,ntrm,nmom,ipolzn,momdim - real(kind_chem) pmom(0:7,1) + complex an(500),bn(500) ! a,b Mie coefficients, jcb Hansen and Travis, eqn 2.44 + integer*4 ntrmj,ntrm,nmom,ipolzn,momdim + real(kind_chem) pmom(0:7,1) ! /*--------------------------------------------------------*/ ! /* Set reals to 8 bytes, i.e., double precision. */ @@ -5528,31 +5528,31 @@ SUBROUTINE ACKMIEPARTICLE( VLAMBc,NRGFLAGc,RGcmin,RGcmax, & ! /* Copy the input parameters into the common block INPUTS */ ! /*--------------------------------------------------------*/ - NSCATH = NANG - - IPHASEmie = 0 - ALAMB = VLAMBc - RGmin = RGcmin - RGmax = RGcmax - RGV = RGc - SIGMAG = SIGMAGc - RGCFRAC = RINc - RFRS = SHELRc - RFIS = SHELIc - RFRC = CORERc - RFIC = COREIc - + NSCATH = NANG + + IPHASEmie = 0 + ALAMB = VLAMBc + RGmin = RGcmin + RGmax = RGcmax + RGV = RGc + SIGMAG = SIGMAGc + RGCFRAC = RINc + RFRS = SHELRc + RFIS = SHELIc + RFRC = CORERc + RFIC = COREIc + ! /*--------------------------------------------------------*/ ! /* Calculate the particle scattering properties for the */ ! /* given wavelength, particle distribution and indices of */ ! /* refraction of inner and outer material. */ ! /*--------------------------------------------------------*/ - CALL PFCNPARTICLE(NSCATH, COSPHI, SCTPHS, & - ANGLESc,S1R,S1C,S2R,S2C,S11N,S11,S12,S33,S34,SPOL,SP, an, bn, ntrm, & ! jcb - ALAMB,RGmin,RGmax,RGV,SIGMAG,RGCFRAC,RFRS,RFIS,RFRC,RFIC, & ! jdf - QEXT,QSCAT,QBS,EXT,SCAT,BSCAT,ASY, & ! jdf - IPHASEmie) ! jdf + CALL PFCNPARTICLE(NSCATH, COSPHI, SCTPHS, & + ANGLESc,S1R,S1C,S2R,S2C,S11N,S11,S12,S33,S34,SPOL,SP, an, bn, ntrm, & ! jcb + ALAMB,RGmin,RGmax,RGV,SIGMAG,RGCFRAC,RFRS,RFIS,RFRC,RFIC, & ! jdf + QEXT,QSCAT,QBS,EXT,SCAT,BSCAT,ASY, & ! jdf + IPHASEmie) ! jdf ! /*--------------------------------------------------------*/ ! /* If IPHASE = 1, then the full phase function was */ @@ -5566,36 +5566,36 @@ SUBROUTINE ACKMIEPARTICLE( VLAMBc,NRGFLAGc,RGcmin,RGcmax, & ! /* variable addresses passed into this routine. */ ! /*--------------------------------------------------------*/ - QEXTc = QEXT - QSCATc = QSCAT - QBACKc = QBS + QEXTc = QEXT + QSCATc = QSCAT + QBACKc = QBS - EXTc = EXT - SCATc = SCAT - BACKc = BSCAT + EXTc = EXT + SCATc = SCAT + BACKc = BSCAT - GSCAc = ASY + GSCAc = ASY ! jcb ! ntrmj = number of terms in Mie series, jcb - nmom= 7 ! largest Legendre coefficient to calculate 0:7 (8 total), jcb - ipolzn=0 ! unpolarized light, jcb - momdim=7 ! dimension of pmom, pmom(0:7), jcb + nmom= 7 ! largest Legendre coefficient to calculate 0:7 (8 total), jcb + ipolzn=0 ! unpolarized light, jcb + momdim=7 ! dimension of pmom, pmom(0:7), jcb ! a, b = Mie coefficients ! pmom = output of Legendre coefficients, pmom(0:7) - call lpcoefjcb(ntrm,nmom,ipolzn,momdim,an,bn,pmom) + call lpcoefjcb(ntrm,nmom,ipolzn,momdim,an,bn,pmom) ! /*--------------------------------------------------------*/ ! /* FORMAT statements. */ ! /*--------------------------------------------------------*/ - 107 FORMAT ( ///, 1X, I6, ' IS AN INVALID MEAN RADIUS FLAG') +107 FORMAT ( ///, 1X, I6, ' IS AN INVALID MEAN RADIUS FLAG') ! /*--------------------------------------------------------*/ ! /* DONE with this subroutine so exit. */ ! /*--------------------------------------------------------*/ - END SUBROUTINE ACKMIEPARTICLE + END SUBROUTINE ACKMIEPARTICLE ! /*****************************************************************/ ! /* SUBROUTINE PFCNPARTICLE */ @@ -5617,11 +5617,11 @@ END SUBROUTINE ACKMIEPARTICLE ! ! /*---------------------------------------------------------------*/ - SUBROUTINE PFCNPARTICLE( NSCATH, COSPHI, SCTPHS, & - ANGLESc,S1R,S1C,S2R,S2C,S11N,S11,S12,S33,S34,SPOL,SP,an,bn,ntrm, & ! jcb - ALAMB,RGmin,RGmax,RGV,SIGMAG,RGCFRAC,RFRS,RFIS,RFRC,RFIC, & ! jdf - QEXT,QSCAT,QBS,EXT,SCAT,BSCAT,ASY, & ! jdf - IPHASEmie) ! jdf + SUBROUTINE PFCNPARTICLE( NSCATH, COSPHI, SCTPHS, & + ANGLESc,S1R,S1C,S2R,S2C,S11N,S11,S12,S33,S34,SPOL,SP,an,bn,ntrm, & ! jcb + ALAMB,RGmin,RGmax,RGV,SIGMAG,RGCFRAC,RFRS,RFIS,RFRC,RFIC, & ! jdf + QEXT,QSCAT,QBS,EXT,SCAT,BSCAT,ASY, & ! jdf + IPHASEmie) ! jdf ! /*--------------------------------------------------------*/ ! /* Set reals to 8 bytes, i.e., double precision. */ @@ -5633,7 +5633,7 @@ SUBROUTINE PFCNPARTICLE( NSCATH, COSPHI, SCTPHS, & ! /* Parameter statements. */ ! /*--------------------------------------------------------*/ - integer*4 MXNANG, MXNWORK, JX,LL,IT,IT2 + integer*4 MXNANG, MXNWORK, JX,LL,IT,IT2 PARAMETER(MXNANG=501, MXNWORK=500000) @@ -5651,7 +5651,7 @@ SUBROUTINE PFCNPARTICLE( NSCATH, COSPHI, SCTPHS, & INTEGER*4 IPHASEmie,NSCATH REAL(kind_chem) ALAMB, RGmin, RGmax, RGV, SIGMAG, RGCFRAC, RFRS, & - RFIS, RFRC, RFIC + RFIS, RFRC, RFIC complex an(500),bn(500) integer*4 ntrm @@ -5683,13 +5683,13 @@ SUBROUTINE PFCNPARTICLE( NSCATH, COSPHI, SCTPHS, & ! /*--------------------------------------------------------*/ REAL(kind_chem) THETA(MXNANG), ELTRMX(4,MXNANG,2), PII(3,MXNANG), & - TAU(3,MXNANG), CSTHT(MXNANG), SI2THT(MXNANG) + TAU(3,MXNANG), CSTHT(MXNANG), SI2THT(MXNANG) REAL(kind_chem) ROUT, RFRO, RFIO, DQEXT, DQSCAT, CTBRQS, DQBS, & - RIN, RFRI, RFII, WNUM - + RIN, RFRI, RFII, WNUM + COMPLEX ACAP(MXNWORK) - + REAL(kind_chem) COSPHI(2*MXNANG-1), SCTPHS(2*MXNANG-1) INTEGER J, JJ, NINDEX, NSCATA @@ -5698,44 +5698,44 @@ SUBROUTINE PFCNPARTICLE( NSCATH, COSPHI, SCTPHS, & ! /* Obvious variable initializations. */ ! /*--------------------------------------------------------*/ - PIE = DACOS( -1.0D0 ) + PIE = DACOS( -1.0D0 ) ! /*--------------------------------------------------------*/ ! /* Maximum number of scattering angles between 0 and 90 */ ! /* degrees, inclusive. */ ! /*--------------------------------------------------------*/ - IT = MXNANG + IT = MXNANG ! /*--------------------------------------------------------*/ ! /* Maximum number of scattering angles between 0 and 180 */ ! /* degrees, inclusive. */ ! /*--------------------------------------------------------*/ - IT2 = 2 * IT - 1 + IT2 = 2 * IT - 1 ! /*--------------------------------------------------------*/ ! /* Dimension of the work array ACAP. */ ! /*--------------------------------------------------------*/ - LL = MXNWORK - + LL = MXNWORK + ! /*--------------------------------------------------------*/ ! /* NSCATA is the actual user-requested number of */ ! /* scattering angles between 0 and 90 degrees, inclusive. */ ! /*--------------------------------------------------------*/ - NSCATA = 2 * NSCATH - 1 + NSCATA = 2 * NSCATH - 1 ! /*--------------------------------------------------------*/ ! /* If the user did not request a phase function, then we */ ! /* can set NSCATA and NSCATH to 0. */ ! /*--------------------------------------------------------*/ - IF ( IPHASEmie .le. 0 ) then - NSCATH = 0 - NSCATA = 0 - ENDIF + IF ( IPHASEmie .le. 0 ) then + NSCATH = 0 + NSCATA = 0 + ENDIF ! /*--------------------------------------------------------*/ ! /* Check to make sure that the user-requested number of */ @@ -5743,10 +5743,10 @@ SUBROUTINE PFCNPARTICLE( NSCATH, COSPHI, SCTPHS, & ! /* limit. */ ! /*--------------------------------------------------------*/ - IF ( NSCATA .gt. IT2 .OR. NSCATH .gt. IT) then - WRITE( 6,105 ) NSCATA, NSCATH, IT2, IT - call errmsg( 'PFCNPARTICLE: 11', .true.) - ENDIF + IF ( NSCATA .gt. IT2 .OR. NSCATH .gt. IT) then + WRITE( 6,105 ) NSCATA, NSCATH, IT2, IT + call errmsg( 'PFCNPARTICLE: 11', .true.) + ENDIF ! /*--------------------------------------------------------*/ ! /* Subroutine SCATANGLES was added by EEC[0495] in order */ @@ -5780,17 +5780,17 @@ SUBROUTINE PFCNPARTICLE( NSCATH, COSPHI, SCTPHS, & ! /* DMIESS core and shell radii. */ ! /*--------------------------------------------------------*/ - ROUT = RGV - RIN = RGCFRAC * ROUT + ROUT = RGV + RIN = RGCFRAC * ROUT ! /*--------------------------------------------------------*/ ! /* Scattering angles are symmetric about 90 degrees. */ ! /*--------------------------------------------------------*/ IF ( NSCATH .eq. 0.0 ) THEN - JX = 1 + JX = 1 ELSE - JX = NSCATH + JX = NSCATH ENDIF ! /*--------------------------------------------------------*/ @@ -5798,10 +5798,10 @@ SUBROUTINE PFCNPARTICLE( NSCATH, COSPHI, SCTPHS, & ! /*--------------------------------------------------------*/ CALL DMIESS( ROUT, RFRO, RFIO, THETA, JX, & - DQEXT, DQSCAT, CTBRQS, ELTRMX, PII, & - TAU, CSTHT, SI2THT, ACAP, DQBS, IT, & - LL, RIN, RFRI, RFII, WNUM, an, bn, ntrm ) ! jcb - + DQEXT, DQSCAT, CTBRQS, ELTRMX, PII, & + TAU, CSTHT, SI2THT, ACAP, DQBS, IT, & + LL, RIN, RFRI, RFII, WNUM, an, bn, ntrm ) ! jcb + ! /*--------------------------------------------------------*/ ! /* Compute total cross-sectional area of the particle. */ ! /*--------------------------------------------------------*/ @@ -5860,33 +5860,33 @@ SUBROUTINE PFCNPARTICLE( NSCATH, COSPHI, SCTPHS, & IF ( IPHASEmie .gt. 0 ) THEN - DO 355 J=1,NSCATA + DO 355 J=1,NSCATA - IF (J .LE. JX) THEN - JJ = J - NINDEX = 1 - ELSE - JJ = NSCATA - J + 1 - NINDEX = 2 - ENDIF + IF (J .LE. JX) THEN + JJ = J + NINDEX = 1 + ELSE + JJ = NSCATA - J + 1 + NINDEX = 2 + ENDIF - ANGLESc(J) = COSPHI(J) + ANGLESc(J) = COSPHI(J) - S1R(J) = ELTRMX(1,JJ,NINDEX) - S1C(J) = ELTRMX(2,JJ,NINDEX) - S2R(J) = ELTRMX(3,JJ,NINDEX) - S2C(J) = ELTRMX(4,JJ,NINDEX) + S1R(J) = ELTRMX(1,JJ,NINDEX) + S1C(J) = ELTRMX(2,JJ,NINDEX) + S2R(J) = ELTRMX(3,JJ,NINDEX) + S2C(J) = ELTRMX(4,JJ,NINDEX) - S11(J) = 0.5D0*(S1R(J)**2+S1C(J)**2+S2R(J)**2+S2C(J)**2) - S12(J) = 0.5D0*(S2R(J)**2+S2C(J)**2-S1R(J)**2-S1C(J)**2) - S33(J) = S2R(J)*S1R(J) + S2C(J)*S1C(J) - S34(J) = S2R(J)*S1C(J) - S1R(J)*S2C(J) + S11(J) = 0.5D0*(S1R(J)**2+S1C(J)**2+S2R(J)**2+S2C(J)**2) + S12(J) = 0.5D0*(S2R(J)**2+S2C(J)**2-S1R(J)**2-S1C(J)**2) + S33(J) = S2R(J)*S1R(J) + S2C(J)*S1C(J) + S34(J) = S2R(J)*S1C(J) - S1R(J)*S2C(J) - SPOL(J) = -S12(J) / S11(J) + SPOL(J) = -S12(J) / S11(J) - SP(J) = (4.D0*PIE)*(S11(J) / (SCAT*WNUM**2)) + SP(J) = (4.D0*PIE)*(S11(J) / (SCAT*WNUM**2)) - 355 CONTINUE +355 CONTINUE ! /*-----------------------------------------------------*/ ! /* DONE with the phase function so exit the IF. */ @@ -5905,31 +5905,31 @@ SUBROUTINE PFCNPARTICLE( NSCATH, COSPHI, SCTPHS, & ! /* FORMAT statements. */ ! /*--------------------------------------------------------*/ - 100 FORMAT ( 7X, I3 ) - 105 FORMAT ( ///, 1X,'NUMBER OF ANGLES SPECIFIED =',2I6, / & - 10X,'EXCEEDS ARRAY DIMENSIONS =',2I6 ) - - 120 FORMAT (/10X,'INTEGRATED VOLUME', T40,'=',1PE14.5,/ & - 15X,'PERCENT VOLUME IN CORE', T40,'=',0PF10.5,/ & - 15X,'PERCENT VOLUME IN SHELL', T40,'=',0PF10.5,/ & - 10X,'INTEGRATED SURFACE AREA', T40,'=',1PE14.5,/ & - 10X,'INTEGRATED NUMBER DENSITY', T40,'=',1PE14.5 ) - 125 FORMAT ( 10X,'CORE RADIUS COMPUTED FROM :', /, 20X, 9A8, / ) - - 150 FORMAT ( ///,1X,'* * * WARNING * * *', / & - 10X,'PHASE FUNCTION CALCULATION MAY NOT HAVE CONVERGED'/ & - 10X,'VALUES OF S1 AT NSDI-1 AND NSDI ARE :', 2E14.6, / & - 10X,'VALUE OF X AT NSDI =', E14.6 ) - +100 FORMAT ( 7X, I3 ) +105 FORMAT ( ///, 1X,'NUMBER OF ANGLES SPECIFIED =',2I6, / & + 10X,'EXCEEDS ARRAY DIMENSIONS =',2I6 ) + +120 FORMAT (/10X,'INTEGRATED VOLUME', T40,'=',1PE14.5,/ & + 15X,'PERCENT VOLUME IN CORE', T40,'=',0PF10.5,/ & + 15X,'PERCENT VOLUME IN SHELL', T40,'=',0PF10.5,/ & + 10X,'INTEGRATED SURFACE AREA', T40,'=',1PE14.5,/ & + 10X,'INTEGRATED NUMBER DENSITY', T40,'=',1PE14.5 ) +125 FORMAT ( 10X,'CORE RADIUS COMPUTED FROM :', /, 20X, 9A8, / ) + +150 FORMAT ( ///,1X,'* * * WARNING * * *', / & + 10X,'PHASE FUNCTION CALCULATION MAY NOT HAVE CONVERGED'/ & + 10X,'VALUES OF S1 AT NSDI-1 AND NSDI ARE :', 2E14.6, / & + 10X,'VALUE OF X AT NSDI =', E14.6 ) + ! /*--------------------------------------------------------*/ ! /* DONE with this subroutine so exit. */ ! /*--------------------------------------------------------*/ - END SUBROUTINE PFCNPARTICLE + END SUBROUTINE PFCNPARTICLE ! /*****************************************************************/ ! /*****************************************************************/ - subroutine lpcoefjcb ( ntrm, nmom, ipolzn, momdim,a, b, pmom ) + subroutine lpcoefjcb ( ntrm, nmom, ipolzn, momdim,a, b, pmom ) ! ! calculate legendre polynomial expansion coefficients (also ! called moments) for phase quantities ( ref. 5 formulation ) @@ -6014,7 +6014,7 @@ subroutine lpcoefjcb ( ntrm, nmom, ipolzn, momdim,a, b, pmom ) ! do 1 k = 1, maxrcp recip( k ) = 1.0 / k - 1 continue +1 continue pass1 = .false. ! end if @@ -6032,7 +6032,7 @@ subroutine lpcoefjcb ( ntrm, nmom, ipolzn, momdim,a, b, pmom ) ! end if ! if ( ntrm+2 .gt. maxtrm ) & - write(6,1010) + write(6,1010) 1010 format( ' lpcoef--parameter maxtrm too small' ) ! ! ** calculate mueller c, d arrays @@ -6041,18 +6041,18 @@ subroutine lpcoefjcb ( ntrm, nmom, ipolzn, momdim,a, b, pmom ) cm( ntrm+1 ) = ( 1. - recip( ntrm+1 ) ) * b( ntrm ) dm( ntrm+1 ) = ( 1. - recip( ntrm+1 ) ) * a( ntrm ) cm( ntrm ) = ( recip(ntrm) + recip(ntrm+1) ) * a( ntrm ) & - + ( 1. - recip(ntrm) ) * b( ntrm-1 ) + + ( 1. - recip(ntrm) ) * b( ntrm-1 ) dm( ntrm ) = ( recip(ntrm) + recip(ntrm+1) ) * b( ntrm ) & - + ( 1. - recip(ntrm) ) * a( ntrm-1 ) + + ( 1. - recip(ntrm) ) * a( ntrm-1 ) ! do 10 k = ntrm-1, 2, -1 cm( k ) = cm( k+2 ) - ( 1. + recip(k+1) ) * b( k+1 ) & - + ( recip(k) + recip(k+1) ) * a( k ) & - + ( 1. - recip(k) ) * b( k-1 ) + + ( recip(k) + recip(k+1) ) * a( k ) & + + ( 1. - recip(k) ) * b( k-1 ) dm( k ) = dm( k+2 ) - ( 1. + recip(k+1) ) * a( k+1 ) & - + ( recip(k) + recip(k+1) ) * b( k ) & - + ( 1. - recip(k) ) * a( k-1 ) - 10 continue + + ( recip(k) + recip(k+1) ) * b( k ) & + + ( 1. - recip(k) ) * a( k-1 ) +10 continue cm( 1 ) = cm( 3 ) + 1.5 * ( a( 1 ) - b( 2 ) ) dm( 1 ) = dm( 3 ) + 1.5 * ( b( 1 ) - a( 2 ) ) ! @@ -6061,7 +6061,7 @@ subroutine lpcoefjcb ( ntrm, nmom, ipolzn, momdim,a, b, pmom ) do 20 k = 1, ntrm + 2 cm( k ) = ( 2*k - 1 ) * cm( k ) dm( k ) = ( 2*k - 1 ) * dm( k ) - 20 continue +20 continue ! else ! ** compute sekera c and d arrays @@ -6073,12 +6073,12 @@ subroutine lpcoefjcb ( ntrm, nmom, ipolzn, momdim,a, b, pmom ) do 30 k = ntrm, 1, -1 cs( k ) = cs( k+2 ) + ( 2*k + 1 ) * ( cm( k+1 ) - b( k ) ) ds( k ) = ds( k+2 ) + ( 2*k + 1 ) * ( dm( k+1 ) - a( k ) ) - 30 continue +30 continue ! do 40 k = 1, ntrm + 2 cm( k ) = ( 2*k - 1 ) * cs( k ) dm( k ) = ( 2*k - 1 ) * ds( k ) - 40 continue +40 continue ! end if ! @@ -6086,7 +6086,7 @@ subroutine lpcoefjcb ( ntrm, nmom, ipolzn, momdim,a, b, pmom ) if( ipolzn.lt.0 ) nummom = min0( nmom, 2*ntrm - 2 ) if( ipolzn.ge.0 ) nummom = min0( nmom, 2*ntrm ) if ( nummom .gt. maxmom ) & - write(6,1020) + write(6,1020) 1020 format( ' lpcoef--parameter maxtrm too small') ! ! ** loop over moments @@ -6101,7 +6101,7 @@ subroutine lpcoefjcb ( ntrm, nmom, ipolzn, momdim,a, b, pmom ) idel = 1 do 60 m = 0, ntrm am( m ) = 2.0 * recip( 2*m + 1 ) - 60 continue +60 continue bi( 0 ) = 1.0 ! else if( evenl ) then @@ -6109,10 +6109,10 @@ subroutine lpcoefjcb ( ntrm, nmom, ipolzn, momdim,a, b, pmom ) idel = 1 do 70 m = ld2, ntrm am( m ) = ( 1. + recip( 2*m-l+1 ) ) * am( m ) - 70 continue +70 continue do 75 i = 0, ld2-1 bi( i ) = ( 1. - recip( l-2*i ) ) * bi( i ) - 75 continue +75 continue bi( ld2 ) = ( 2. - recip( l ) ) * bi( ld2-1 ) ! else @@ -6120,10 +6120,10 @@ subroutine lpcoefjcb ( ntrm, nmom, ipolzn, momdim,a, b, pmom ) idel = 2 do 80 m = ld2, ntrm am( m ) = ( 1. - recip( 2*m+l+2 ) ) * am( m ) - 80 continue +80 continue do 85 i = 0, ld2 bi( i ) = ( 1. - recip( l+2*i+1 ) ) * bi( i ) - 85 continue +85 continue ! end if ! ** establish upper limits for sums @@ -6135,7 +6135,7 @@ subroutine lpcoefjcb ( ntrm, nmom, ipolzn, momdim,a, b, pmom ) if( imax.lt.0 ) go to 600 do 90 i = 0, imax bidel( i ) = bi( i ) - 90 continue +90 continue if( evenl ) bidel( 0 ) = 0.5 * bidel( 0 ) ! ! ** perform double sums just for @@ -6147,20 +6147,20 @@ subroutine lpcoefjcb ( ntrm, nmom, ipolzn, momdim,a, b, pmom ) sum = 0.0 do 100 m = ld2, mmax - i sum = sum + am( m ) * & - ( dble( cm(m-i+1) * conjg( cm(m+i+idel) ) ) & - + dble( dm(m-i+1) * conjg( dm(m+i+idel) ) ) ) - 100 continue + ( dble( cm(m-i+1) * conjg( cm(m+i+idel) ) ) & + + dble( dm(m-i+1) * conjg( dm(m+i+idel) ) ) ) +100 continue pmom( l,1 ) = pmom( l,1 ) + bidel( i ) * sum - 110 continue +110 continue pmom( l,1 ) = 0.5 * pmom( l,1 ) go to 500 ! end if ! - 500 continue +500 continue ! ! - 600 return - end subroutine lpcoefjcb +600 return + end subroutine lpcoefjcb ! - end module opt_averaging_mod +end module opt_averaging_mod diff --git a/src/opt_driver_mod.F90 b/src/opt_driver_mod.F90 index 57ccd4e7..170a3584 100644 --- a/src/opt_driver_mod.F90 +++ b/src/opt_driver_mod.F90 @@ -1,67 +1,67 @@ MODULE opt_driver_mod -!********************************************************************************** +!********************************************************************************** ! This computer software was prepared by Battelle Memorial Institute, hereinafter -! the Contractor, under Contract No. DE-AC05-76RL0 1830 with the Department of +! the Contractor, under Contract No. DE-AC05-76RL0 1830 with the Department of ! Energy (DOE). NEITHER THE GOVERNMENT NOR THE CONTRACTOR MAKES ANY WARRANTY, ! EXPRESS OR IMPLIED, OR ASSUMES ANY LIABILITY FOR THE USE OF THIS SOFTWARE. ! -!********************************************************************************** +!********************************************************************************** ! ! WRF-chem V3.0 : Original version of optical_driver written by Jerome Fast (PNNL) ! and James Barnard (PNNL) ! !WRF:MODEL_LAYER:CHEMISTRY ! - use catchem_constants , only : kind_chem + use catchem_constants , only : kind_chem - IMPLICIT NONE + IMPLICIT NONE - PRIVATE - PUBLIC :: optical_driver + PRIVATE + PUBLIC :: optical_driver CONTAINS - SUBROUTINE optical_driver(curr_secs,dtstep,& - chem,dz8w,alt,relhum, & - h2oai,h2oaj, & - tauaersw,gaersw,waersw,bscoefsw,tauaerlw, & - l2aer,l3aer,l4aer,l5aer,l6aer,l7aer, & - num_chem,chem_opt,ids,ide, jds,jde, kds,kde, & - ims,ime, jms,jme, kms,kme, & - its,ite, jts,jte, kts,kte ) + SUBROUTINE optical_driver(curr_secs,dtstep,& + chem,dz8w,alt,relhum, & + h2oai,h2oaj, & + tauaersw,gaersw,waersw,bscoefsw,tauaerlw, & + l2aer,l3aer,l4aer,l5aer,l6aer,l7aer, & + num_chem,chem_opt,ids,ide, jds,jde, kds,kde, & + ims,ime, jms,jme, kms,kme, & + its,ite, jts,jte, kts,kte ) !------------------------------------------------------------------------ - USE opt_averaging_mod + USE opt_averaging_mod - INTEGER, INTENT(IN ) :: chem_opt,num_chem,ids,ide, & - jds,jde, kds,kde, & - ims,ime, jms,jme, kms,kme, & - its,ite, jts,jte, kts,kte - REAL(KIND=kind_chem), INTENT(IN ) :: curr_secs - REAL(kind_chem), INTENT(IN ) :: dtstep + INTEGER, INTENT(IN ) :: chem_opt,num_chem,ids,ide, & + jds,jde, kds,kde, & + ims,ime, jms,jme, kms,kme, & + its,ite, jts,jte, kts,kte + REAL(KIND=kind_chem), INTENT(IN ) :: curr_secs + REAL(kind_chem), INTENT(IN ) :: dtstep ! ! array that holds all advected chemical species ! - REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme, num_chem ), & + REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme, num_chem ), & INTENT(INOUT ) :: chem ! - REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme ), & + REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme ), & INTENT(IN ) :: relhum, dz8w, alt, h2oai, h2oaj ! ! arrays that hold the aerosol optical properties ! - REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme, 1:4 ), & + REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme, 1:4 ), & INTENT(INOUT ) :: & - tauaersw,gaersw,waersw,bscoefsw - REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme, 1:16), & + tauaersw,gaersw,waersw,bscoefsw + REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme, 1:16), & INTENT(INOUT ) :: & - tauaerlw - REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme, 1:4 ), & + tauaerlw + REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme, 1:4 ), & INTENT(INOUT ) :: & - l2aer, l3aer, l4aer, l5aer, l6aer, l7aer + l2aer, l3aer, l4aer, l5aer, l6aer, l7aer ! -! +! ! local variables ! logical processingAerosols @@ -87,7 +87,7 @@ SUBROUTINE optical_driver(curr_secs,dtstep,& ! call wrf_debug(15,'optical driver: process aerosols false') ! end select - if( processingAerosols ) then + if( processingAerosols ) then ! ! select aerosol optical property option ! VOLUME: volume averaging of refractive indicies @@ -97,7 +97,7 @@ SUBROUTINE optical_driver(curr_secs,dtstep,& ! select case (config_flags%chem_opt) ! case ( RADM2SORG, RADM2SORG_KPP, RADM2SORG_AQ, & ! GOCART_SIMPLE, RACMSORG_KPP, RACMSORG_AQ ) - nbin_o = 8 + nbin_o = 8 ! case (CBMZ_MOSAIC_4BIN, CBMZ_MOSAIC_8BIN, & ! CBMZ_MOSAIC_4BIN_AQ, CBMZ_MOSAIC_8BIN_AQ ) ! nbin_o = nbin_a @@ -106,8 +106,8 @@ SUBROUTINE optical_driver(curr_secs,dtstep,& ! call wrf_debug(15,'optical averaging') ! aer_op_opt_select: SELECT CASE(config_flags%aer_op_opt) ! CASE (VOLUME_APPROX) - option_method=1 - option_mie=1 + option_method=1 + option_mie=1 ! CASE (MAXWELL_APPROX) ! option_method=2 ! option_mie=1 @@ -130,22 +130,22 @@ SUBROUTINE optical_driver(curr_secs,dtstep,& ! if( config_flags%aer_op_opt > 0 ) then ! call wrf_debug(15,'optical driver: call optical averaging') - call optical_averaging(curr_secs,dtstep, & - nbin_o,option_method,option_mie,chem,dz8w,alt, & - relhum,h2oai,h2oaj, & - tauaersw,gaersw,waersw,bscoefsw,tauaerlw, & - l2aer,l3aer,l4aer,l5aer,l6aer,l7aer, & - num_chem,chem_opt,ids,ide, jds,jde, kds,kde, & - ims,ime, jms,jme, kms,kme, & - its,ite, jts,jte, kts,kte ) + call optical_averaging(curr_secs,dtstep, & + nbin_o,option_method,option_mie,chem,dz8w,alt, & + relhum,h2oai,h2oaj, & + tauaersw,gaersw,waersw,bscoefsw,tauaerlw, & + l2aer,l3aer,l4aer,l5aer,l6aer,l7aer, & + num_chem,chem_opt,ids,ide, jds,jde, kds,kde, & + ims,ime, jms,jme, kms,kme, & + its,ite, jts,jte, kts,kte ) ! else - !If aer_op_opt==0 then the optical arrays are already set to - !zero in chemics_init so there will not be a problem if the - !user has selected aer_ra_feedback=1. + !If aer_op_opt==0 then the optical arrays are already set to + !zero in chemics_init so there will not be a problem if the + !user has selected aer_ra_feedback=1. ! end if ! - endif - return + endif + return -END SUBROUTINE optical_driver + END SUBROUTINE optical_driver END MODULE opt_driver_mod diff --git a/src/opt_gocart_mod.F90 b/src/opt_gocart_mod.F90 index cb6aeeff..6aa7cd04 100644 --- a/src/opt_gocart_mod.F90 +++ b/src/opt_gocart_mod.F90 @@ -1,46 +1,46 @@ - module opt_gocart_mod +module opt_gocart_mod - use catchem_constants , only : kind_chem - implicit none + use catchem_constants , only : kind_chem + implicit none !--------------------------------------------------------------------- ! Module; module_gocart_opt ! use; This module compute optical properties of GOCART aerosols for -! radiation. +! radiation. !---------------------------------------------------------------------- - integer :: i,j,k,n,t,h !local looping variables + integer :: i,j,k,n,t,h !local looping variables ! ! Mie table parameters ! - integer :: nh !RH loop index - integer :: ai !aerosol index - integer,parameter :: nwl = 11 !# of band in SW radiative transfer - integer,parameter :: nwl_lw = 10 !# of band in LW radiative transfer - integer,parameter,public :: tgmx = 14 !maximum # for aerosol type - integer,parameter :: nrmx = 99 !maximu RH + integer :: nh !RH loop index + integer :: ai !aerosol index + integer,parameter :: nwl = 11 !# of band in SW radiative transfer + integer,parameter :: nwl_lw = 10 !# of band in LW radiative transfer + integer,parameter,public :: tgmx = 14 !maximum # for aerosol type + integer,parameter :: nrmx = 99 !maximu RH ! integer,parameter :: waven(nwl_lw) = (/250, 340, 540, 800, 980, 1100, & ! 1215, 1380, 1900, 3000/) ! Wavenumber intervals for goddard LW scheme - ! It actually starts from 0 but adjusted for smallest value - ! in mie table (wn=250). + ! It actually starts from 0 but adjusted for smallest value + ! in mie table (wn=250). - real(kind_chem), dimension(11) :: midbands - data midbands/.2,.235,.27,.2875,.3025,.305,.3625,.55,1.92,1.745,6.135/ - !real,parameter :: frac(4)=(/ 0.01053,0.08421,0.25263,0.65263 /) !fraction for fine dust - !real,parameter :: frac(4)=(/0.0054,0.0257,0.1923,0.7766/) !fraction for fine dust !lzhang Kok - real(kind_chem),parameter :: frac(4)=(/0.06,0.12,0.24,0.58/) !fraction for fine dust !lzhang GEOS-Chem - !real,parameter :: frac(4)=(/0.0070,0.0332,0.2487,0.7111/) !fraction for fine dust !lzhang IMP - real(kind_chem),save :: Bex(tgmx,nwl,0:nrmx) ! SW Mass extinction coefficient [m2/g] - real(kind_chem),save :: w0(tgmx,nwl,0:nrmx) ! SW single scattering albedo [-] - real(kind_chem),save :: g(tgmx,nwl,0:nrmx) ! SW asymetry factor [-] + real(kind_chem), dimension(11) :: midbands + data midbands/.2,.235,.27,.2875,.3025,.305,.3625,.55,1.92,1.745,6.135/ + !real,parameter :: frac(4)=(/ 0.01053,0.08421,0.25263,0.65263 /) !fraction for fine dust + !real,parameter :: frac(4)=(/0.0054,0.0257,0.1923,0.7766/) !fraction for fine dust !lzhang Kok + real(kind_chem),parameter :: frac(4)=(/0.06,0.12,0.24,0.58/) !fraction for fine dust !lzhang GEOS-Chem + !real,parameter :: frac(4)=(/0.0070,0.0332,0.2487,0.7111/) !fraction for fine dust !lzhang IMP + real(kind_chem),save :: Bex(tgmx,nwl,0:nrmx) ! SW Mass extinction coefficient [m2/g] + real(kind_chem),save :: w0(tgmx,nwl,0:nrmx) ! SW single scattering albedo [-] + real(kind_chem),save :: g(tgmx,nwl,0:nrmx) ! SW asymetry factor [-] - real(kind_chem),save :: Bex_lw(tgmx,nwl_lw,0:nrmx) ! LW Mass extinction coefficient [m2/g] - real(kind_chem),save :: w0_lw(tgmx,nwl_lw,0:nrmx) ! LW single scattering albedo [-] - real(kind_chem),save :: g_lw(tgmx,nwl_lw,0:nrmx) ! LW asymetry factor [-] + real(kind_chem),save :: Bex_lw(tgmx,nwl_lw,0:nrmx) ! LW Mass extinction coefficient [m2/g] + real(kind_chem),save :: w0_lw(tgmx,nwl_lw,0:nrmx) ! LW single scattering albedo [-] + real(kind_chem),save :: g_lw(tgmx,nwl_lw,0:nrmx) ! LW asymetry factor [-] ! @@ -61,8524 +61,8524 @@ module opt_gocart_mod ! 13 = DU4 ! dust mode 7 ! 14 = DU5 ! dust mode 8 ! - data (((Bex(ai,k,nh),ai= 1, 1),k=1,11),nh=0,99)/ & - .5144E+01,.5144E+01,.5144E+01,.5081E+01,.4901E+01,.4655E+01,.4549E+01,.3187E+01,.1517E+01,.4026E+00,.2845E+00,& - .5227E+01,.5227E+01,.5227E+01,.5165E+01,.4988E+01,.4739E+01,.4632E+01,.3251E+01,.1552E+01,.4136E+00,.2877E+00,& - .5310E+01,.5310E+01,.5310E+01,.5249E+01,.5074E+01,.4823E+01,.4715E+01,.3315E+01,.1587E+01,.4246E+00,.2909E+00,& - .5393E+01,.5393E+01,.5393E+01,.5332E+01,.5161E+01,.4906E+01,.4797E+01,.3379E+01,.1622E+01,.4357E+00,.2940E+00,& - .5476E+01,.5476E+01,.5476E+01,.5416E+01,.5247E+01,.4990E+01,.4880E+01,.3443E+01,.1657E+01,.4467E+00,.2972E+00,& - .5559E+01,.5559E+01,.5559E+01,.5500E+01,.5334E+01,.5074E+01,.4963E+01,.3507E+01,.1692E+01,.4577E+00,.3004E+00,& - .5657E+01,.5657E+01,.5657E+01,.5595E+01,.5418E+01,.5157E+01,.5045E+01,.3577E+01,.1730E+01,.4700E+00,.3038E+00,& - .5755E+01,.5755E+01,.5755E+01,.5689E+01,.5502E+01,.5239E+01,.5127E+01,.3647E+01,.1769E+01,.4824E+00,.3072E+00,& - .5854E+01,.5854E+01,.5854E+01,.5784E+01,.5587E+01,.5322E+01,.5208E+01,.3716E+01,.1807E+01,.4947E+00,.3106E+00,& - .5952E+01,.5952E+01,.5952E+01,.5878E+01,.5671E+01,.5404E+01,.5290E+01,.3786E+01,.1846E+01,.5071E+00,.3140E+00,& - .6050E+01,.6050E+01,.6050E+01,.5973E+01,.5755E+01,.5487E+01,.5372E+01,.3856E+01,.1884E+01,.5194E+00,.3174E+00,& - .6137E+01,.6137E+01,.6137E+01,.6063E+01,.5855E+01,.5584E+01,.5468E+01,.3926E+01,.1924E+01,.5326E+00,.3209E+00,& - .6224E+01,.6224E+01,.6224E+01,.6154E+01,.5955E+01,.5681E+01,.5564E+01,.3996E+01,.1964E+01,.5458E+00,.3244E+00,& - .6311E+01,.6311E+01,.6311E+01,.6244E+01,.6056E+01,.5778E+01,.5659E+01,.4067E+01,.2005E+01,.5590E+00,.3278E+00,& - .6398E+01,.6398E+01,.6398E+01,.6335E+01,.6156E+01,.5875E+01,.5755E+01,.4137E+01,.2045E+01,.5722E+00,.3313E+00,& - .6485E+01,.6485E+01,.6485E+01,.6425E+01,.6256E+01,.5972E+01,.5851E+01,.4207E+01,.2085E+01,.5854E+00,.3348E+00,& - .6572E+01,.6572E+01,.6572E+01,.6512E+01,.6345E+01,.6060E+01,.5939E+01,.4286E+01,.2130E+01,.6005E+00,.3387E+00,& - .6659E+01,.6659E+01,.6659E+01,.6600E+01,.6433E+01,.6148E+01,.6027E+01,.4366E+01,.2176E+01,.6156E+00,.3426E+00,& - .6745E+01,.6745E+01,.6745E+01,.6687E+01,.6522E+01,.6237E+01,.6114E+01,.4445E+01,.2221E+01,.6307E+00,.3464E+00,& - .6832E+01,.6832E+01,.6832E+01,.6775E+01,.6610E+01,.6325E+01,.6202E+01,.4525E+01,.2267E+01,.6458E+00,.3503E+00,& - .6919E+01,.6919E+01,.6919E+01,.6862E+01,.6699E+01,.6413E+01,.6290E+01,.4604E+01,.2312E+01,.6609E+00,.3542E+00,& - .7036E+01,.7036E+01,.7036E+01,.6974E+01,.6796E+01,.6512E+01,.6391E+01,.4687E+01,.2361E+01,.6776E+00,.3584E+00,& - .7153E+01,.7153E+01,.7153E+01,.7085E+01,.6893E+01,.6612E+01,.6491E+01,.4771E+01,.2410E+01,.6943E+00,.3625E+00,& - .7269E+01,.7269E+01,.7269E+01,.7197E+01,.6989E+01,.6711E+01,.6592E+01,.4854E+01,.2459E+01,.7110E+00,.3667E+00,& - .7386E+01,.7386E+01,.7386E+01,.7308E+01,.7086E+01,.6811E+01,.6692E+01,.4938E+01,.2508E+01,.7277E+00,.3708E+00,& - .7503E+01,.7503E+01,.7503E+01,.7420E+01,.7183E+01,.6910E+01,.6793E+01,.5021E+01,.2557E+01,.7444E+00,.3750E+00,& - .7593E+01,.7593E+01,.7593E+01,.7518E+01,.7301E+01,.7023E+01,.6904E+01,.5109E+01,.2610E+01,.7627E+00,.3795E+00,& - .7684E+01,.7684E+01,.7684E+01,.7615E+01,.7419E+01,.7136E+01,.7015E+01,.5196E+01,.2663E+01,.7810E+00,.3840E+00,& - .7774E+01,.7774E+01,.7774E+01,.7713E+01,.7537E+01,.7250E+01,.7126E+01,.5284E+01,.2715E+01,.7994E+00,.3885E+00,& - .7865E+01,.7865E+01,.7865E+01,.7810E+01,.7655E+01,.7363E+01,.7237E+01,.5371E+01,.2768E+01,.8177E+00,.3930E+00,& - .7955E+01,.7955E+01,.7955E+01,.7908E+01,.7773E+01,.7476E+01,.7348E+01,.5459E+01,.2821E+01,.8360E+00,.3975E+00,& - .8057E+01,.8057E+01,.8057E+01,.8008E+01,.7868E+01,.7573E+01,.7447E+01,.5555E+01,.2878E+01,.8560E+00,.4023E+00,& - .8159E+01,.8159E+01,.8159E+01,.8108E+01,.7963E+01,.7671E+01,.7545E+01,.5650E+01,.2935E+01,.8761E+00,.4072E+00,& - .8260E+01,.8260E+01,.8260E+01,.8208E+01,.8058E+01,.7768E+01,.7644E+01,.5746E+01,.2992E+01,.8961E+00,.4120E+00,& - .8362E+01,.8362E+01,.8362E+01,.8308E+01,.8153E+01,.7866E+01,.7742E+01,.5841E+01,.3049E+01,.9162E+00,.4169E+00,& - .8464E+01,.8464E+01,.8464E+01,.8408E+01,.8248E+01,.7963E+01,.7841E+01,.5937E+01,.3106E+01,.9362E+00,.4217E+00,& - .8591E+01,.8591E+01,.8591E+01,.8531E+01,.8360E+01,.8079E+01,.7958E+01,.6030E+01,.3165E+01,.9574E+00,.4267E+00,& - .8718E+01,.8718E+01,.8718E+01,.8654E+01,.8473E+01,.8195E+01,.8076E+01,.6123E+01,.3224E+01,.9785E+00,.4318E+00,& - .8845E+01,.8845E+01,.8845E+01,.8778E+01,.8585E+01,.8311E+01,.8193E+01,.6217E+01,.3282E+01,.9997E+00,.4368E+00,& - .8972E+01,.8972E+01,.8972E+01,.8901E+01,.8698E+01,.8427E+01,.8311E+01,.6310E+01,.3341E+01,.1021E+01,.4419E+00,& - .9099E+01,.9099E+01,.9099E+01,.9024E+01,.8810E+01,.8543E+01,.8428E+01,.6403E+01,.3400E+01,.1042E+01,.4469E+00,& - .9194E+01,.9194E+01,.9194E+01,.9128E+01,.8939E+01,.8665E+01,.8547E+01,.6506E+01,.3465E+01,.1066E+01,.4525E+00,& - .9289E+01,.9289E+01,.9289E+01,.9232E+01,.9068E+01,.8787E+01,.8667E+01,.6609E+01,.3530E+01,.1089E+01,.4581E+00,& - .9385E+01,.9385E+01,.9385E+01,.9336E+01,.9196E+01,.8910E+01,.8786E+01,.6712E+01,.3595E+01,.1113E+01,.4637E+00,& - .9480E+01,.9480E+01,.9480E+01,.9440E+01,.9325E+01,.9032E+01,.8906E+01,.6815E+01,.3660E+01,.1136E+01,.4693E+00,& - .9575E+01,.9575E+01,.9575E+01,.9544E+01,.9454E+01,.9154E+01,.9025E+01,.6918E+01,.3725E+01,.1160E+01,.4749E+00,& - .9688E+01,.9688E+01,.9688E+01,.9655E+01,.9557E+01,.9261E+01,.9134E+01,.7029E+01,.3795E+01,.1186E+01,.4809E+00,& - .9801E+01,.9801E+01,.9801E+01,.9766E+01,.9659E+01,.9368E+01,.9242E+01,.7140E+01,.3864E+01,.1212E+01,.4870E+00,& - .9914E+01,.9914E+01,.9914E+01,.9878E+01,.9762E+01,.9474E+01,.9351E+01,.7251E+01,.3934E+01,.1237E+01,.4930E+00,& - .1003E+02,.1003E+02,.1003E+02,.9989E+01,.9864E+01,.9581E+01,.9459E+01,.7362E+01,.4003E+01,.1263E+01,.4991E+00,& - .1014E+02,.1014E+02,.1014E+02,.1010E+02,.9967E+01,.9688E+01,.9568E+01,.7473E+01,.4073E+01,.1289E+01,.5051E+00,& - .1028E+02,.1028E+02,.1028E+02,.1023E+02,.1008E+02,.9812E+01,.9694E+01,.7576E+01,.4141E+01,.1315E+01,.5111E+00,& - .1042E+02,.1042E+02,.1042E+02,.1036E+02,.1020E+02,.9937E+01,.9821E+01,.7679E+01,.4209E+01,.1341E+01,.5172E+00,& - .1056E+02,.1056E+02,.1056E+02,.1050E+02,.1032E+02,.1006E+02,.9947E+01,.7781E+01,.4278E+01,.1366E+01,.5232E+00,& - .1070E+02,.1070E+02,.1070E+02,.1063E+02,.1043E+02,.1019E+02,.1007E+02,.7884E+01,.4346E+01,.1392E+01,.5293E+00,& - .1084E+02,.1084E+02,.1084E+02,.1076E+02,.1055E+02,.1031E+02,.1020E+02,.7987E+01,.4414E+01,.1418E+01,.5353E+00,& - .1093E+02,.1093E+02,.1093E+02,.1086E+02,.1069E+02,.1044E+02,.1032E+02,.8091E+01,.4484E+01,.1445E+01,.5415E+00,& - .1102E+02,.1102E+02,.1102E+02,.1097E+02,.1083E+02,.1057E+02,.1045E+02,.8196E+01,.4553E+01,.1472E+01,.5477E+00,& - .1111E+02,.1111E+02,.1111E+02,.1107E+02,.1096E+02,.1069E+02,.1057E+02,.8300E+01,.4623E+01,.1498E+01,.5539E+00,& - .1120E+02,.1120E+02,.1120E+02,.1118E+02,.1110E+02,.1082E+02,.1070E+02,.8405E+01,.4692E+01,.1525E+01,.5601E+00,& - .1129E+02,.1129E+02,.1129E+02,.1128E+02,.1124E+02,.1095E+02,.1082E+02,.8509E+01,.4762E+01,.1552E+01,.5663E+00,& - .1140E+02,.1140E+02,.1140E+02,.1139E+02,.1134E+02,.1105E+02,.1093E+02,.8625E+01,.4838E+01,.1582E+01,.5732E+00,& - .1151E+02,.1151E+02,.1151E+02,.1149E+02,.1144E+02,.1116E+02,.1103E+02,.8741E+01,.4915E+01,.1612E+01,.5801E+00,& - .1161E+02,.1161E+02,.1161E+02,.1160E+02,.1154E+02,.1126E+02,.1114E+02,.8858E+01,.4991E+01,.1641E+01,.5869E+00,& - .1172E+02,.1172E+02,.1172E+02,.1170E+02,.1164E+02,.1137E+02,.1124E+02,.8974E+01,.5068E+01,.1671E+01,.5938E+00,& - .1183E+02,.1183E+02,.1183E+02,.1181E+02,.1174E+02,.1147E+02,.1135E+02,.9090E+01,.5144E+01,.1701E+01,.6007E+00,& - .1198E+02,.1198E+02,.1198E+02,.1195E+02,.1186E+02,.1159E+02,.1147E+02,.9208E+01,.5224E+01,.1733E+01,.6080E+00,& - .1213E+02,.1213E+02,.1213E+02,.1209E+02,.1198E+02,.1171E+02,.1160E+02,.9327E+01,.5304E+01,.1764E+01,.6153E+00,& - .1229E+02,.1229E+02,.1229E+02,.1224E+02,.1209E+02,.1184E+02,.1172E+02,.9445E+01,.5384E+01,.1796E+01,.6227E+00,& - .1244E+02,.1244E+02,.1244E+02,.1238E+02,.1221E+02,.1196E+02,.1185E+02,.9564E+01,.5464E+01,.1827E+01,.6300E+00,& - .1259E+02,.1259E+02,.1259E+02,.1252E+02,.1233E+02,.1208E+02,.1197E+02,.9682E+01,.5544E+01,.1859E+01,.6373E+00,& - .1277E+02,.1277E+02,.1277E+02,.1271E+02,.1257E+02,.1232E+02,.1221E+02,.9884E+01,.5686E+01,.1916E+01,.6506E+00,& - .1294E+02,.1294E+02,.1294E+02,.1291E+02,.1281E+02,.1256E+02,.1245E+02,.1009E+02,.5829E+01,.1974E+01,.6639E+00,& - .1312E+02,.1312E+02,.1312E+02,.1310E+02,.1306E+02,.1279E+02,.1268E+02,.1029E+02,.5971E+01,.2031E+01,.6772E+00,& - .1329E+02,.1329E+02,.1329E+02,.1330E+02,.1330E+02,.1303E+02,.1292E+02,.1049E+02,.6114E+01,.2089E+01,.6905E+00,& - .1347E+02,.1347E+02,.1347E+02,.1349E+02,.1354E+02,.1327E+02,.1316E+02,.1069E+02,.6256E+01,.2146E+01,.7038E+00,& - .1369E+02,.1369E+02,.1369E+02,.1370E+02,.1372E+02,.1347E+02,.1336E+02,.1091E+02,.6410E+01,.2210E+01,.7185E+00,& - .1390E+02,.1390E+02,.1390E+02,.1391E+02,.1391E+02,.1367E+02,.1357E+02,.1114E+02,.6564E+01,.2274E+01,.7333E+00,& - .1412E+02,.1412E+02,.1412E+02,.1411E+02,.1409E+02,.1386E+02,.1377E+02,.1136E+02,.6719E+01,.2337E+01,.7480E+00,& - .1433E+02,.1433E+02,.1433E+02,.1432E+02,.1428E+02,.1406E+02,.1398E+02,.1159E+02,.6873E+01,.2401E+01,.7628E+00,& - .1455E+02,.1455E+02,.1455E+02,.1453E+02,.1446E+02,.1426E+02,.1418E+02,.1181E+02,.7027E+01,.2465E+01,.7775E+00,& - .1493E+02,.1493E+02,.1493E+02,.1488E+02,.1473E+02,.1452E+02,.1443E+02,.1205E+02,.7206E+01,.2540E+01,.7949E+00,& - .1516E+02,.1516E+02,.1516E+02,.1511E+02,.1496E+02,.1480E+02,.1473E+02,.1228E+02,.7386E+01,.2617E+01,.8126E+00,& - .1537E+02,.1537E+02,.1537E+02,.1535E+02,.1530E+02,.1515E+02,.1508E+02,.1253E+02,.7570E+01,.2695E+01,.8308E+00,& - .1568E+02,.1568E+02,.1568E+02,.1571E+02,.1580E+02,.1560E+02,.1552E+02,.1291E+02,.7852E+01,.2815E+01,.8588E+00,& - .1597E+02,.1597E+02,.1597E+02,.1602E+02,.1618E+02,.1596E+02,.1587E+02,.1331E+02,.8141E+01,.2939E+01,.8876E+00,& - .1626E+02,.1626E+02,.1626E+02,.1632E+02,.1650E+02,.1628E+02,.1619E+02,.1372E+02,.8437E+01,.3068E+01,.9174E+00,& - .1675E+02,.1675E+02,.1675E+02,.1680E+02,.1693E+02,.1675E+02,.1667E+02,.1428E+02,.8843E+01,.3245E+01,.9586E+00,& - .1751E+02,.1751E+02,.1751E+02,.1749E+02,.1744E+02,.1730E+02,.1724E+02,.1483E+02,.9259E+01,.3430E+01,.1002E+01,& - .1815E+02,.1815E+02,.1815E+02,.1817E+02,.1821E+02,.1814E+02,.1811E+02,.1550E+02,.9791E+01,.3668E+01,.1058E+01,& - .1877E+02,.1877E+02,.1877E+02,.1888E+02,.1918E+02,.1902E+02,.1895E+02,.1636E+02,.1046E+02,.3971E+01,.1129E+01,& - .1953E+02,.1953E+02,.1953E+02,.1960E+02,.1980E+02,.1972E+02,.1968E+02,.1729E+02,.1116E+02,.4291E+01,.1204E+01,& - .2088E+02,.2088E+02,.2088E+02,.2089E+02,.2090E+02,.2086E+02,.2085E+02,.1850E+02,.1212E+02,.4746E+01,.1311E+01,& - .2176E+02,.2176E+02,.2176E+02,.2191E+02,.2235E+02,.2232E+02,.2231E+02,.1972E+02,.1314E+02,.5228E+01,.1427E+01,& - .2305E+02,.2305E+02,.2305E+02,.2320E+02,.2361E+02,.2360E+02,.2360E+02,.2143E+02,.1448E+02,.5881E+01,.1583E+01,& - .2530E+02,.2530E+02,.2530E+02,.2549E+02,.2604E+02,.2612E+02,.2616E+02,.2372E+02,.1646E+02,.6878E+01,.1825E+01,& - .2764E+02,.2764E+02,.2764E+02,.2777E+02,.2815E+02,.2840E+02,.2851E+02,.2667E+02,.1893E+02,.8158E+01,.2138E+01,& - .3096E+02,.3096E+02,.3096E+02,.3124E+02,.3203E+02,.3225E+02,.3235E+02,.3079E+02,.2262E+02,.1014E+02,.2637E+01,& - .3690E+02,.3690E+02,.3690E+02,.3726E+02,.3828E+02,.3867E+02,.3883E+02,.3821E+02,.2943E+02,.1403E+02,.3640E+01,& - .5038E+02,.5038E+02,.5038E+02,.5089E+02,.5234E+02,.5310E+02,.5343E+02,.5475E+02,.4573E+02,.2429E+02,.6466E+01/ - data (((Bex(ai,k,nh),ai= 2, 2),k=1,11),nh=0,99)/ & - .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& - .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& - .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& - .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& - .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& - .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& - .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& - .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& - .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& - .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& - .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& - .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& - .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& - .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& - .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& - .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& - .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& - .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& - .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& - .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& - .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& - .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& - .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& - .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& - .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& - .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& - .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& - .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& - .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& - .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& - .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& - .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& - .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& - .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& - .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& - .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& - .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& - .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& - .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& - .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& - .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& - .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& - .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& - .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& - .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& - .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& - .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& - .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& - .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& - .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& - .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& - .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& - .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& - .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& - .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& - .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& - .2273E+02,.2273E+02,.2273E+02,.2210E+02,.2031E+02,.1804E+02,.1706E+02,.9732E+01,.4485E+01,.2148E+01,.6964E+00,& - .2278E+02,.2278E+02,.2278E+02,.2215E+02,.2036E+02,.1808E+02,.1709E+02,.9752E+01,.4494E+01,.2153E+01,.6989E+00,& - .2282E+02,.2282E+02,.2282E+02,.2219E+02,.2040E+02,.1811E+02,.1713E+02,.9772E+01,.4504E+01,.2158E+01,.7015E+00,& - .2287E+02,.2287E+02,.2287E+02,.2224E+02,.2045E+02,.1815E+02,.1716E+02,.9792E+01,.4513E+01,.2163E+01,.7040E+00,& - .2292E+02,.2292E+02,.2292E+02,.2229E+02,.2049E+02,.1819E+02,.1720E+02,.9812E+01,.4522E+01,.2168E+01,.7066E+00,& - .2292E+02,.2292E+02,.2292E+02,.2229E+02,.2049E+02,.1819E+02,.1720E+02,.9812E+01,.4522E+01,.2168E+01,.7066E+00,& - .2292E+02,.2292E+02,.2292E+02,.2229E+02,.2049E+02,.1819E+02,.1720E+02,.9812E+01,.4522E+01,.2168E+01,.7066E+00,& - .2292E+02,.2292E+02,.2292E+02,.2229E+02,.2049E+02,.1819E+02,.1720E+02,.9812E+01,.4522E+01,.2168E+01,.7066E+00,& - .2292E+02,.2292E+02,.2292E+02,.2229E+02,.2049E+02,.1819E+02,.1720E+02,.9812E+01,.4522E+01,.2168E+01,.7066E+00,& - .2292E+02,.2292E+02,.2292E+02,.2229E+02,.2049E+02,.1819E+02,.1720E+02,.9812E+01,.4522E+01,.2168E+01,.7066E+00,& - .2307E+02,.2307E+02,.2307E+02,.2243E+02,.2062E+02,.1831E+02,.1731E+02,.9870E+01,.4548E+01,.2182E+01,.7140E+00,& - .2321E+02,.2321E+02,.2321E+02,.2257E+02,.2076E+02,.1842E+02,.1742E+02,.9927E+01,.4574E+01,.2196E+01,.7215E+00,& - .2336E+02,.2336E+02,.2336E+02,.2272E+02,.2089E+02,.1854E+02,.1752E+02,.9985E+01,.4601E+01,.2209E+01,.7289E+00,& - .2350E+02,.2350E+02,.2350E+02,.2286E+02,.2103E+02,.1865E+02,.1763E+02,.1004E+02,.4627E+01,.2223E+01,.7364E+00,& - .2365E+02,.2365E+02,.2365E+02,.2300E+02,.2116E+02,.1877E+02,.1774E+02,.1010E+02,.4653E+01,.2237E+01,.7438E+00,& - .2406E+02,.2406E+02,.2406E+02,.2340E+02,.2152E+02,.1908E+02,.1803E+02,.1025E+02,.4717E+01,.2270E+01,.7623E+00,& - .2447E+02,.2447E+02,.2447E+02,.2379E+02,.2188E+02,.1939E+02,.1832E+02,.1040E+02,.4782E+01,.2302E+01,.7808E+00,& - .2487E+02,.2487E+02,.2487E+02,.2419E+02,.2224E+02,.1970E+02,.1861E+02,.1056E+02,.4846E+01,.2335E+01,.7993E+00,& - .2528E+02,.2528E+02,.2528E+02,.2458E+02,.2260E+02,.2001E+02,.1890E+02,.1071E+02,.4911E+01,.2367E+01,.8178E+00,& - .2569E+02,.2569E+02,.2569E+02,.2498E+02,.2296E+02,.2032E+02,.1919E+02,.1086E+02,.4975E+01,.2400E+01,.8363E+00,& - .2626E+02,.2626E+02,.2626E+02,.2552E+02,.2343E+02,.2073E+02,.1957E+02,.1105E+02,.5047E+01,.2433E+01,.8570E+00,& - .2683E+02,.2683E+02,.2683E+02,.2607E+02,.2391E+02,.2113E+02,.1994E+02,.1124E+02,.5119E+01,.2466E+01,.8778E+00,& - .2739E+02,.2739E+02,.2739E+02,.2661E+02,.2438E+02,.2154E+02,.2032E+02,.1142E+02,.5192E+01,.2499E+01,.8985E+00,& - .2796E+02,.2796E+02,.2796E+02,.2716E+02,.2486E+02,.2194E+02,.2069E+02,.1161E+02,.5264E+01,.2532E+01,.9193E+00,& - .2853E+02,.2853E+02,.2853E+02,.2770E+02,.2533E+02,.2235E+02,.2107E+02,.1180E+02,.5336E+01,.2565E+01,.9400E+00,& - .2946E+02,.2946E+02,.2946E+02,.2858E+02,.2609E+02,.2299E+02,.2166E+02,.1208E+02,.5439E+01,.2608E+01,.9691E+00,& - .3009E+02,.3009E+02,.3009E+02,.2918E+02,.2660E+02,.2342E+02,.2206E+02,.1227E+02,.5507E+01,.2636E+01,.9881E+00,& - .3109E+02,.3109E+02,.3109E+02,.3013E+02,.2740E+02,.2410E+02,.2268E+02,.1257E+02,.5609E+01,.2676E+01,.1016E+01,& - .3177E+02,.3177E+02,.3177E+02,.3077E+02,.2794E+02,.2455E+02,.2310E+02,.1276E+02,.5676E+01,.2702E+01,.1034E+01,& - .3283E+02,.3283E+02,.3283E+02,.3178E+02,.2879E+02,.2526E+02,.2375E+02,.1307E+02,.5778E+01,.2739E+01,.1061E+01,& - .3394E+02,.3394E+02,.3394E+02,.3283E+02,.2966E+02,.2600E+02,.2443E+02,.1338E+02,.5880E+01,.2774E+01,.1088E+01,& - .3471E+02,.3471E+02,.3471E+02,.3355E+02,.3026E+02,.2650E+02,.2489E+02,.1359E+02,.5948E+01,.2797E+01,.1105E+01,& - .3590E+02,.3590E+02,.3590E+02,.3467E+02,.3118E+02,.2727E+02,.2560E+02,.1392E+02,.6051E+01,.2831E+01,.1131E+01,& - .3672E+02,.3672E+02,.3672E+02,.3545E+02,.3182E+02,.2781E+02,.2609E+02,.1415E+02,.6121E+01,.2853E+01,.1148E+01,& - .3799E+02,.3799E+02,.3799E+02,.3664E+02,.3280E+02,.2863E+02,.2685E+02,.1449E+02,.6228E+01,.2885E+01,.1174E+01,& - .3932E+02,.3932E+02,.3932E+02,.3789E+02,.3383E+02,.2950E+02,.2764E+02,.1485E+02,.6337E+01,.2918E+01,.1199E+01,& - .4071E+02,.4071E+02,.4071E+02,.3920E+02,.3489E+02,.3038E+02,.2845E+02,.1522E+02,.6448E+01,.2949E+01,.1225E+01,& - .4215E+02,.4215E+02,.4215E+02,.4055E+02,.3600E+02,.3131E+02,.2930E+02,.1561E+02,.6562E+01,.2980E+01,.1250E+01,& - .4417E+02,.4417E+02,.4417E+02,.4245E+02,.3754E+02,.3260E+02,.3049E+02,.1615E+02,.6720E+01,.3021E+01,.1285E+01,& - .4629E+02,.4629E+02,.4629E+02,.4444E+02,.3916E+02,.3396E+02,.3173E+02,.1671E+02,.6884E+01,.3062E+01,.1319E+01,& - .4911E+02,.4911E+02,.4911E+02,.4708E+02,.4131E+02,.3576E+02,.3338E+02,.1745E+02,.7099E+01,.3114E+01,.1363E+01,& - .5337E+02,.5337E+02,.5337E+02,.5107E+02,.4454E+02,.3847E+02,.3587E+02,.1858E+02,.7422E+01,.3188E+01,.1426E+01,& - .5871E+02,.5871E+02,.5871E+02,.5608E+02,.4860E+02,.4188E+02,.3900E+02,.2001E+02,.7827E+01,.3276E+01,.1500E+01,& - .7441E+02,.7441E+02,.7441E+02,.7081E+02,.6056E+02,.5196E+02,.4827E+02,.2427E+02,.9036E+01,.3523E+01,.1703E+01/ - data (((Bex(ai,k,nh),ai= 3, 3),k=1,11),nh=0,99)/ & - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01/ - data (((Bex(ai,k,nh),ai= 4, 4),k=1,11),nh=0,99)/ & - .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& - .7397E+01,.7397E+01,.7397E+01,.7102E+01,.6263E+01,.5582E+01,.5291E+01,.2952E+01,.1069E+01,.2376E+00,.5267E-01,& - .7469E+01,.7469E+01,.7469E+01,.7172E+01,.6325E+01,.5636E+01,.5342E+01,.2982E+01,.1080E+01,.2402E+00,.5378E-01,& - .7542E+01,.7542E+01,.7542E+01,.7241E+01,.6386E+01,.5691E+01,.5392E+01,.3011E+01,.1092E+01,.2427E+00,.5489E-01,& - .7614E+01,.7614E+01,.7614E+01,.7311E+01,.6448E+01,.5745E+01,.5443E+01,.3041E+01,.1103E+01,.2453E+00,.5600E-01,& - .7686E+01,.7686E+01,.7686E+01,.7380E+01,.6510E+01,.5799E+01,.5494E+01,.3071E+01,.1114E+01,.2479E+00,.5711E-01,& - .7763E+01,.7763E+01,.7763E+01,.7453E+01,.6573E+01,.5856E+01,.5548E+01,.3102E+01,.1126E+01,.2507E+00,.5827E-01,& - .7840E+01,.7840E+01,.7840E+01,.7526E+01,.6635E+01,.5913E+01,.5603E+01,.3133E+01,.1138E+01,.2534E+00,.5943E-01,& - .7916E+01,.7916E+01,.7916E+01,.7600E+01,.6698E+01,.5969E+01,.5657E+01,.3165E+01,.1150E+01,.2562E+00,.6058E-01,& - .7993E+01,.7993E+01,.7993E+01,.7673E+01,.6760E+01,.6026E+01,.5712E+01,.3196E+01,.1162E+01,.2589E+00,.6174E-01,& - .8070E+01,.8070E+01,.8070E+01,.7746E+01,.6823E+01,.6083E+01,.5766E+01,.3227E+01,.1174E+01,.2617E+00,.6290E-01,& - .8150E+01,.8150E+01,.8150E+01,.7823E+01,.6891E+01,.6145E+01,.5825E+01,.3260E+01,.1186E+01,.2646E+00,.6411E-01,& - .8230E+01,.8230E+01,.8230E+01,.7900E+01,.6959E+01,.6206E+01,.5884E+01,.3293E+01,.1199E+01,.2675E+00,.6532E-01,& - .8311E+01,.8311E+01,.8311E+01,.7977E+01,.7027E+01,.6268E+01,.5942E+01,.3325E+01,.1211E+01,.2705E+00,.6654E-01,& - .8391E+01,.8391E+01,.8391E+01,.8054E+01,.7095E+01,.6329E+01,.6001E+01,.3358E+01,.1224E+01,.2734E+00,.6775E-01,& - .8471E+01,.8471E+01,.8471E+01,.8131E+01,.7163E+01,.6391E+01,.6060E+01,.3391E+01,.1236E+01,.2763E+00,.6896E-01,& - .8553E+01,.8553E+01,.8553E+01,.8210E+01,.7235E+01,.6454E+01,.6119E+01,.3425E+01,.1249E+01,.2794E+00,.7023E-01,& - .8635E+01,.8635E+01,.8635E+01,.8290E+01,.7307E+01,.6517E+01,.6178E+01,.3460E+01,.1263E+01,.2825E+00,.7149E-01,& - .8718E+01,.8718E+01,.8718E+01,.8369E+01,.7378E+01,.6579E+01,.6237E+01,.3494E+01,.1276E+01,.2857E+00,.7276E-01,& - .8800E+01,.8800E+01,.8800E+01,.8449E+01,.7450E+01,.6642E+01,.6296E+01,.3529E+01,.1290E+01,.2888E+00,.7402E-01,& - .8882E+01,.8882E+01,.8882E+01,.8528E+01,.7522E+01,.6705E+01,.6355E+01,.3563E+01,.1303E+01,.2919E+00,.7529E-01,& - .8966E+01,.8966E+01,.8966E+01,.8609E+01,.7594E+01,.6770E+01,.6417E+01,.3599E+01,.1317E+01,.2952E+00,.7661E-01,& - .9050E+01,.9050E+01,.9050E+01,.8690E+01,.7666E+01,.6835E+01,.6479E+01,.3636E+01,.1331E+01,.2985E+00,.7793E-01,& - .9134E+01,.9134E+01,.9134E+01,.8771E+01,.7738E+01,.6899E+01,.6540E+01,.3672E+01,.1345E+01,.3018E+00,.7926E-01,& - .9218E+01,.9218E+01,.9218E+01,.8852E+01,.7810E+01,.6964E+01,.6602E+01,.3709E+01,.1359E+01,.3051E+00,.8058E-01,& - .9302E+01,.9302E+01,.9302E+01,.8933E+01,.7882E+01,.7029E+01,.6664E+01,.3745E+01,.1373E+01,.3084E+00,.8190E-01,& - .9389E+01,.9389E+01,.9389E+01,.9017E+01,.7957E+01,.7096E+01,.6728E+01,.3783E+01,.1388E+01,.3119E+00,.8328E-01,& - .9477E+01,.9477E+01,.9477E+01,.9101E+01,.8031E+01,.7163E+01,.6791E+01,.3821E+01,.1403E+01,.3154E+00,.8466E-01,& - .9564E+01,.9564E+01,.9564E+01,.9185E+01,.8106E+01,.7230E+01,.6855E+01,.3859E+01,.1417E+01,.3189E+00,.8603E-01,& - .9652E+01,.9652E+01,.9652E+01,.9269E+01,.8180E+01,.7297E+01,.6918E+01,.3897E+01,.1432E+01,.3224E+00,.8741E-01,& - .9739E+01,.9739E+01,.9739E+01,.9353E+01,.8255E+01,.7364E+01,.6982E+01,.3935E+01,.1447E+01,.3259E+00,.8879E-01,& - .9833E+01,.9833E+01,.9833E+01,.9443E+01,.8332E+01,.7434E+01,.7049E+01,.3975E+01,.1463E+01,.3296E+00,.9023E-01,& - .9927E+01,.9927E+01,.9927E+01,.9533E+01,.8409E+01,.7504E+01,.7116E+01,.4014E+01,.1478E+01,.3333E+00,.9166E-01,& - .1002E+02,.1002E+02,.1002E+02,.9622E+01,.8487E+01,.7575E+01,.7184E+01,.4054E+01,.1494E+01,.3371E+00,.9310E-01,& - .1012E+02,.1012E+02,.1012E+02,.9712E+01,.8564E+01,.7645E+01,.7251E+01,.4093E+01,.1509E+01,.3408E+00,.9453E-01,& - .1021E+02,.1021E+02,.1021E+02,.9802E+01,.8641E+01,.7715E+01,.7318E+01,.4133E+01,.1525E+01,.3445E+00,.9597E-01,& - .1031E+02,.1031E+02,.1031E+02,.9896E+01,.8724E+01,.7791E+01,.7391E+01,.4175E+01,.1541E+01,.3484E+00,.9748E-01,& - .1040E+02,.1040E+02,.1040E+02,.9989E+01,.8807E+01,.7867E+01,.7464E+01,.4216E+01,.1558E+01,.3524E+00,.9898E-01,& - .1050E+02,.1050E+02,.1050E+02,.1008E+02,.8891E+01,.7943E+01,.7537E+01,.4258E+01,.1574E+01,.3563E+00,.1005E+00,& - .1059E+02,.1059E+02,.1059E+02,.1018E+02,.8974E+01,.8019E+01,.7610E+01,.4299E+01,.1591E+01,.3603E+00,.1020E+00,& - .1069E+02,.1069E+02,.1069E+02,.1027E+02,.9057E+01,.8095E+01,.7683E+01,.4341E+01,.1607E+01,.3642E+00,.1035E+00,& - .1079E+02,.1079E+02,.1079E+02,.1036E+02,.9145E+01,.8172E+01,.7755E+01,.4384E+01,.1624E+01,.3684E+00,.1051E+00,& - .1088E+02,.1088E+02,.1088E+02,.1045E+02,.9232E+01,.8249E+01,.7827E+01,.4428E+01,.1642E+01,.3725E+00,.1066E+00,& - .1098E+02,.1098E+02,.1098E+02,.1055E+02,.9320E+01,.8325E+01,.7900E+01,.4471E+01,.1659E+01,.3767E+00,.1082E+00,& - .1107E+02,.1107E+02,.1107E+02,.1064E+02,.9407E+01,.8402E+01,.7972E+01,.4515E+01,.1677E+01,.3808E+00,.1097E+00,& - .1117E+02,.1117E+02,.1117E+02,.1073E+02,.9495E+01,.8479E+01,.8044E+01,.4558E+01,.1694E+01,.3850E+00,.1113E+00,& - .1127E+02,.1127E+02,.1127E+02,.1083E+02,.9581E+01,.8557E+01,.8119E+01,.4604E+01,.1712E+01,.3894E+00,.1129E+00,& - .1137E+02,.1137E+02,.1137E+02,.1093E+02,.9667E+01,.8636E+01,.8194E+01,.4650E+01,.1730E+01,.3939E+00,.1145E+00,& - .1147E+02,.1147E+02,.1147E+02,.1102E+02,.9754E+01,.8714E+01,.8269E+01,.4695E+01,.1749E+01,.3983E+00,.1162E+00,& - .1157E+02,.1157E+02,.1157E+02,.1112E+02,.9840E+01,.8793E+01,.8344E+01,.4741E+01,.1767E+01,.4028E+00,.1178E+00,& - .1167E+02,.1167E+02,.1167E+02,.1122E+02,.9926E+01,.8871E+01,.8419E+01,.4787E+01,.1785E+01,.4072E+00,.1194E+00,& - .1179E+02,.1179E+02,.1179E+02,.1134E+02,.1003E+02,.8966E+01,.8510E+01,.4843E+01,.1808E+01,.4128E+00,.1214E+00,& - .1191E+02,.1191E+02,.1191E+02,.1145E+02,.1014E+02,.9062E+01,.8602E+01,.4900E+01,.1831E+01,.4183E+00,.1234E+00,& - .1204E+02,.1204E+02,.1204E+02,.1157E+02,.1024E+02,.9157E+01,.8693E+01,.4956E+01,.1853E+01,.4239E+00,.1255E+00,& - .1216E+02,.1216E+02,.1216E+02,.1168E+02,.1035E+02,.9253E+01,.8785E+01,.5013E+01,.1876E+01,.4294E+00,.1275E+00,& - .1228E+02,.1228E+02,.1228E+02,.1180E+02,.1045E+02,.9348E+01,.8876E+01,.5069E+01,.1899E+01,.4350E+00,.1295E+00,& - .1241E+02,.1241E+02,.1241E+02,.1193E+02,.1056E+02,.9450E+01,.8974E+01,.5128E+01,.1923E+01,.4410E+00,.1316E+00,& - .1255E+02,.1255E+02,.1255E+02,.1206E+02,.1067E+02,.9552E+01,.9072E+01,.5187E+01,.1947E+01,.4470E+00,.1337E+00,& - .1268E+02,.1268E+02,.1268E+02,.1218E+02,.1078E+02,.9653E+01,.9171E+01,.5246E+01,.1971E+01,.4529E+00,.1359E+00,& - .1282E+02,.1282E+02,.1282E+02,.1231E+02,.1089E+02,.9755E+01,.9269E+01,.5305E+01,.1995E+01,.4589E+00,.1380E+00,& - .1295E+02,.1295E+02,.1295E+02,.1244E+02,.1100E+02,.9857E+01,.9367E+01,.5364E+01,.2019E+01,.4649E+00,.1401E+00,& - .1307E+02,.1307E+02,.1307E+02,.1256E+02,.1111E+02,.9956E+01,.9461E+01,.5419E+01,.2041E+01,.4704E+00,.1420E+00,& - .1319E+02,.1319E+02,.1319E+02,.1268E+02,.1122E+02,.1005E+02,.9555E+01,.5473E+01,.2064E+01,.4759E+00,.1439E+00,& - .1331E+02,.1331E+02,.1331E+02,.1279E+02,.1132E+02,.1015E+02,.9648E+01,.5528E+01,.2086E+01,.4815E+00,.1459E+00,& - .1343E+02,.1343E+02,.1343E+02,.1291E+02,.1143E+02,.1025E+02,.9742E+01,.5582E+01,.2109E+01,.4870E+00,.1478E+00,& - .1355E+02,.1355E+02,.1355E+02,.1303E+02,.1154E+02,.1035E+02,.9836E+01,.5637E+01,.2131E+01,.4925E+00,.1497E+00,& - .1368E+02,.1368E+02,.1368E+02,.1316E+02,.1166E+02,.1046E+02,.9939E+01,.5702E+01,.2158E+01,.4992E+00,.1520E+00,& - .1382E+02,.1382E+02,.1382E+02,.1329E+02,.1179E+02,.1057E+02,.1004E+02,.5767E+01,.2185E+01,.5059E+00,.1543E+00,& - .1395E+02,.1395E+02,.1395E+02,.1342E+02,.1191E+02,.1067E+02,.1014E+02,.5831E+01,.2211E+01,.5126E+00,.1567E+00,& - .1409E+02,.1409E+02,.1409E+02,.1355E+02,.1204E+02,.1078E+02,.1025E+02,.5896E+01,.2238E+01,.5193E+00,.1590E+00,& - .1422E+02,.1422E+02,.1422E+02,.1368E+02,.1216E+02,.1089E+02,.1035E+02,.5961E+01,.2265E+01,.5260E+00,.1613E+00,& - .1443E+02,.1443E+02,.1443E+02,.1389E+02,.1235E+02,.1106E+02,.1052E+02,.6066E+01,.2308E+01,.5370E+00,.1650E+00,& - .1465E+02,.1465E+02,.1465E+02,.1410E+02,.1253E+02,.1123E+02,.1068E+02,.6171E+01,.2352E+01,.5480E+00,.1687E+00,& - .1486E+02,.1486E+02,.1486E+02,.1430E+02,.1272E+02,.1141E+02,.1085E+02,.6276E+01,.2395E+01,.5590E+00,.1724E+00,& - .1508E+02,.1508E+02,.1508E+02,.1451E+02,.1290E+02,.1158E+02,.1101E+02,.6381E+01,.2439E+01,.5700E+00,.1761E+00,& - .1529E+02,.1529E+02,.1529E+02,.1472E+02,.1309E+02,.1175E+02,.1118E+02,.6486E+01,.2482E+01,.5810E+00,.1798E+00,& - .1561E+02,.1561E+02,.1561E+02,.1503E+02,.1337E+02,.1201E+02,.1143E+02,.6636E+01,.2546E+01,.5973E+00,.1852E+00,& - .1593E+02,.1593E+02,.1593E+02,.1533E+02,.1364E+02,.1226E+02,.1167E+02,.6786E+01,.2609E+01,.6137E+00,.1906E+00,& - .1624E+02,.1624E+02,.1624E+02,.1564E+02,.1392E+02,.1252E+02,.1192E+02,.6935E+01,.2673E+01,.6300E+00,.1959E+00,& - .1656E+02,.1656E+02,.1656E+02,.1594E+02,.1419E+02,.1277E+02,.1216E+02,.7085E+01,.2736E+01,.6464E+00,.2013E+00,& - .1688E+02,.1688E+02,.1688E+02,.1625E+02,.1447E+02,.1303E+02,.1241E+02,.7235E+01,.2800E+01,.6627E+00,.2067E+00,& - .1727E+02,.1727E+02,.1727E+02,.1664E+02,.1485E+02,.1336E+02,.1272E+02,.7433E+01,.2885E+01,.6846E+00,.2138E+00,& - .1766E+02,.1766E+02,.1766E+02,.1702E+02,.1521E+02,.1369E+02,.1304E+02,.7636E+01,.2972E+01,.7072E+00,.2210E+00,& - .1805E+02,.1805E+02,.1805E+02,.1741E+02,.1557E+02,.1402E+02,.1336E+02,.7844E+01,.3061E+01,.7305E+00,.2284E+00,& - .1845E+02,.1845E+02,.1845E+02,.1779E+02,.1593E+02,.1435E+02,.1367E+02,.8057E+01,.3153E+01,.7545E+00,.2361E+00,& - .1902E+02,.1902E+02,.1902E+02,.1834E+02,.1641E+02,.1480E+02,.1411E+02,.8348E+01,.3278E+01,.7874E+00,.2464E+00,& - .1962E+02,.1962E+02,.1962E+02,.1892E+02,.1692E+02,.1527E+02,.1457E+02,.8644E+01,.3407E+01,.8218E+00,.2571E+00,& - .2041E+02,.2041E+02,.2041E+02,.1967E+02,.1758E+02,.1589E+02,.1517E+02,.9022E+01,.3574E+01,.8664E+00,.2709E+00,& - .2116E+02,.2116E+02,.2116E+02,.2042E+02,.1830E+02,.1656E+02,.1582E+02,.9415E+01,.3749E+01,.9129E+00,.2852E+00,& - .2204E+02,.2204E+02,.2204E+02,.2129E+02,.1917E+02,.1734E+02,.1656E+02,.9903E+01,.3966E+01,.9718E+00,.3031E+00,& - .2295E+02,.2295E+02,.2295E+02,.2218E+02,.2000E+02,.1811E+02,.1730E+02,.1042E+02,.4194E+01,.1034E+01,.3217E+00,& - .2409E+02,.2409E+02,.2409E+02,.2328E+02,.2098E+02,.1904E+02,.1821E+02,.1104E+02,.4473E+01,.1110E+01,.3444E+00,& - .2554E+02,.2554E+02,.2554E+02,.2467E+02,.2220E+02,.2020E+02,.1934E+02,.1177E+02,.4809E+01,.1204E+01,.3718E+00,& - .2721E+02,.2721E+02,.2721E+02,.2635E+02,.2390E+02,.2174E+02,.2082E+02,.1273E+02,.5257E+01,.1329E+01,.4081E+00,& - .2912E+02,.2912E+02,.2912E+02,.2821E+02,.2563E+02,.2338E+02,.2241E+02,.1387E+02,.5786E+01,.1480E+01,.4510E+00,& - .3212E+02,.3212E+02,.3212E+02,.3112E+02,.2826E+02,.2589E+02,.2487E+02,.1551E+02,.6569E+01,.1706E+01,.5144E+00,& - .3570E+02,.3570E+02,.3570E+02,.3468E+02,.3179E+02,.2917E+02,.2804E+02,.1780E+02,.7673E+01,.2031E+01,.6039E+00,& - .4053E+02,.4053E+02,.4053E+02,.3943E+02,.3630E+02,.3346E+02,.3224E+02,.2068E+02,.9112E+01,.2467E+01,.7211E+00,& - .4887E+02,.4887E+02,.4887E+02,.4762E+02,.4407E+02,.4094E+02,.3960E+02,.2605E+02,.1187E+02,.3330E+01,.9477E+00,& - .6332E+02,.6332E+02,.6332E+02,.6207E+02,.5852E+02,.5476E+02,.5315E+02,.3643E+02,.1748E+02,.5174E+01,.1417E+01/ - data (((Bex(ai,k,nh),ai= 5, 5),k=1,11),nh=0,99)/ & - .1033E+01,.1033E+01,.1033E+01,.1038E+01,.1054E+01,.1075E+01,.1084E+01,.1151E+01,.1115E+01,.7503E+00,.1815E+00,& - .1056E+01,.1056E+01,.1056E+01,.1061E+01,.1078E+01,.1099E+01,.1108E+01,.1179E+01,.1142E+01,.7701E+00,.1880E+00,& - .1079E+01,.1079E+01,.1079E+01,.1084E+01,.1101E+01,.1123E+01,.1132E+01,.1207E+01,.1170E+01,.7899E+00,.1945E+00,& - .1101E+01,.1101E+01,.1101E+01,.1108E+01,.1125E+01,.1146E+01,.1156E+01,.1234E+01,.1197E+01,.8097E+00,.2010E+00,& - .1124E+01,.1124E+01,.1124E+01,.1131E+01,.1148E+01,.1170E+01,.1180E+01,.1262E+01,.1225E+01,.8295E+00,.2075E+00,& - .1147E+01,.1147E+01,.1147E+01,.1154E+01,.1172E+01,.1194E+01,.1204E+01,.1290E+01,.1252E+01,.8493E+00,.2140E+00,& - .1172E+01,.1172E+01,.1172E+01,.1179E+01,.1198E+01,.1223E+01,.1234E+01,.1318E+01,.1281E+01,.8707E+00,.2214E+00,& - .1197E+01,.1197E+01,.1197E+01,.1204E+01,.1225E+01,.1252E+01,.1264E+01,.1346E+01,.1310E+01,.8921E+00,.2288E+00,& - .1221E+01,.1221E+01,.1221E+01,.1230E+01,.1251E+01,.1281E+01,.1294E+01,.1375E+01,.1339E+01,.9136E+00,.2362E+00,& - .1246E+01,.1246E+01,.1246E+01,.1255E+01,.1278E+01,.1310E+01,.1324E+01,.1403E+01,.1368E+01,.9350E+00,.2436E+00,& - .1271E+01,.1271E+01,.1271E+01,.1280E+01,.1304E+01,.1339E+01,.1354E+01,.1431E+01,.1397E+01,.9564E+00,.2510E+00,& - .1301E+01,.1301E+01,.1301E+01,.1308E+01,.1329E+01,.1364E+01,.1380E+01,.1461E+01,.1429E+01,.9805E+00,.2594E+00,& - .1331E+01,.1331E+01,.1331E+01,.1337E+01,.1354E+01,.1390E+01,.1405E+01,.1492E+01,.1461E+01,.1005E+01,.2677E+00,& - .1360E+01,.1360E+01,.1360E+01,.1365E+01,.1379E+01,.1415E+01,.1431E+01,.1522E+01,.1493E+01,.1029E+01,.2761E+00,& - .1390E+01,.1390E+01,.1390E+01,.1394E+01,.1404E+01,.1441E+01,.1456E+01,.1553E+01,.1525E+01,.1053E+01,.2844E+00,& - .1420E+01,.1420E+01,.1420E+01,.1422E+01,.1429E+01,.1466E+01,.1482E+01,.1583E+01,.1557E+01,.1077E+01,.2928E+00,& - .1443E+01,.1443E+01,.1443E+01,.1447E+01,.1459E+01,.1497E+01,.1513E+01,.1614E+01,.1589E+01,.1103E+01,.3022E+00,& - .1467E+01,.1467E+01,.1467E+01,.1472E+01,.1490E+01,.1528E+01,.1544E+01,.1646E+01,.1621E+01,.1128E+01,.3115E+00,& - .1490E+01,.1490E+01,.1490E+01,.1498E+01,.1520E+01,.1559E+01,.1576E+01,.1677E+01,.1654E+01,.1154E+01,.3209E+00,& - .1514E+01,.1514E+01,.1514E+01,.1523E+01,.1551E+01,.1590E+01,.1607E+01,.1709E+01,.1686E+01,.1179E+01,.3302E+00,& - .1537E+01,.1537E+01,.1537E+01,.1548E+01,.1581E+01,.1621E+01,.1638E+01,.1740E+01,.1718E+01,.1205E+01,.3396E+00,& - .1571E+01,.1571E+01,.1571E+01,.1581E+01,.1609E+01,.1649E+01,.1666E+01,.1773E+01,.1754E+01,.1234E+01,.3500E+00,& - .1605E+01,.1605E+01,.1605E+01,.1613E+01,.1637E+01,.1677E+01,.1694E+01,.1806E+01,.1790E+01,.1263E+01,.3604E+00,& - .1639E+01,.1639E+01,.1639E+01,.1646E+01,.1665E+01,.1704E+01,.1721E+01,.1838E+01,.1826E+01,.1292E+01,.3709E+00,& - .1673E+01,.1673E+01,.1673E+01,.1678E+01,.1693E+01,.1732E+01,.1749E+01,.1871E+01,.1862E+01,.1321E+01,.3813E+00,& - .1707E+01,.1707E+01,.1707E+01,.1711E+01,.1721E+01,.1760E+01,.1777E+01,.1904E+01,.1898E+01,.1350E+01,.3917E+00,& - .1734E+01,.1734E+01,.1734E+01,.1740E+01,.1756E+01,.1793E+01,.1810E+01,.1938E+01,.1934E+01,.1380E+01,.4032E+00,& - .1761E+01,.1761E+01,.1761E+01,.1769E+01,.1790E+01,.1826E+01,.1842E+01,.1972E+01,.1970E+01,.1410E+01,.4147E+00,& - .1787E+01,.1787E+01,.1787E+01,.1797E+01,.1825E+01,.1860E+01,.1875E+01,.2007E+01,.2006E+01,.1439E+01,.4262E+00,& - .1814E+01,.1814E+01,.1814E+01,.1826E+01,.1859E+01,.1893E+01,.1907E+01,.2041E+01,.2042E+01,.1469E+01,.4377E+00,& - .1841E+01,.1841E+01,.1841E+01,.1855E+01,.1894E+01,.1926E+01,.1940E+01,.2075E+01,.2078E+01,.1499E+01,.4492E+00,& - .1878E+01,.1878E+01,.1878E+01,.1891E+01,.1926E+01,.1956E+01,.1969E+01,.2112E+01,.2118E+01,.1533E+01,.4619E+00,& - .1915E+01,.1915E+01,.1915E+01,.1926E+01,.1957E+01,.1985E+01,.1998E+01,.2149E+01,.2158E+01,.1566E+01,.4746E+00,& - .1953E+01,.1953E+01,.1953E+01,.1962E+01,.1989E+01,.2015E+01,.2026E+01,.2186E+01,.2198E+01,.1600E+01,.4872E+00,& - .1990E+01,.1990E+01,.1990E+01,.1997E+01,.2020E+01,.2044E+01,.2055E+01,.2223E+01,.2238E+01,.1633E+01,.4999E+00,& - .2027E+01,.2027E+01,.2027E+01,.2033E+01,.2052E+01,.2074E+01,.2084E+01,.2260E+01,.2278E+01,.1667E+01,.5126E+00,& - .2058E+01,.2058E+01,.2058E+01,.2065E+01,.2088E+01,.2111E+01,.2121E+01,.2295E+01,.2317E+01,.1701E+01,.5264E+00,& - .2089E+01,.2089E+01,.2089E+01,.2097E+01,.2123E+01,.2147E+01,.2158E+01,.2330E+01,.2356E+01,.1735E+01,.5403E+00,& - .2119E+01,.2119E+01,.2119E+01,.2130E+01,.2159E+01,.2184E+01,.2195E+01,.2365E+01,.2395E+01,.1770E+01,.5541E+00,& - .2150E+01,.2150E+01,.2150E+01,.2162E+01,.2194E+01,.2220E+01,.2232E+01,.2400E+01,.2434E+01,.1804E+01,.5680E+00,& - .2181E+01,.2181E+01,.2181E+01,.2194E+01,.2230E+01,.2257E+01,.2269E+01,.2435E+01,.2473E+01,.1838E+01,.5818E+00,& - .2212E+01,.2212E+01,.2212E+01,.2225E+01,.2259E+01,.2291E+01,.2305E+01,.2476E+01,.2516E+01,.1876E+01,.5970E+00,& - .2243E+01,.2243E+01,.2243E+01,.2255E+01,.2288E+01,.2325E+01,.2341E+01,.2517E+01,.2560E+01,.1915E+01,.6121E+00,& - .2275E+01,.2275E+01,.2275E+01,.2286E+01,.2317E+01,.2360E+01,.2378E+01,.2559E+01,.2603E+01,.1953E+01,.6273E+00,& - .2306E+01,.2306E+01,.2306E+01,.2316E+01,.2346E+01,.2394E+01,.2414E+01,.2600E+01,.2647E+01,.1992E+01,.6424E+00,& - .2337E+01,.2337E+01,.2337E+01,.2347E+01,.2375E+01,.2428E+01,.2450E+01,.2641E+01,.2690E+01,.2030E+01,.6576E+00,& - .2372E+01,.2372E+01,.2372E+01,.2384E+01,.2418E+01,.2470E+01,.2492E+01,.2676E+01,.2732E+01,.2068E+01,.6740E+00,& - .2407E+01,.2407E+01,.2407E+01,.2421E+01,.2461E+01,.2512E+01,.2534E+01,.2710E+01,.2775E+01,.2107E+01,.6903E+00,& - .2441E+01,.2441E+01,.2441E+01,.2458E+01,.2505E+01,.2555E+01,.2575E+01,.2745E+01,.2817E+01,.2145E+01,.7067E+00,& - .2476E+01,.2476E+01,.2476E+01,.2495E+01,.2548E+01,.2597E+01,.2617E+01,.2779E+01,.2860E+01,.2184E+01,.7230E+00,& - .2511E+01,.2511E+01,.2511E+01,.2532E+01,.2591E+01,.2639E+01,.2659E+01,.2814E+01,.2902E+01,.2222E+01,.7394E+00,& - .2543E+01,.2543E+01,.2543E+01,.2562E+01,.2616E+01,.2665E+01,.2686E+01,.2852E+01,.2941E+01,.2257E+01,.7540E+00,& - .2575E+01,.2575E+01,.2575E+01,.2592E+01,.2641E+01,.2692E+01,.2713E+01,.2890E+01,.2980E+01,.2292E+01,.7687E+00,& - .2606E+01,.2606E+01,.2606E+01,.2622E+01,.2667E+01,.2718E+01,.2740E+01,.2927E+01,.3018E+01,.2328E+01,.7833E+00,& - .2638E+01,.2638E+01,.2638E+01,.2652E+01,.2692E+01,.2745E+01,.2767E+01,.2965E+01,.3057E+01,.2363E+01,.7980E+00,& - .2670E+01,.2670E+01,.2670E+01,.2682E+01,.2717E+01,.2771E+01,.2794E+01,.3003E+01,.3096E+01,.2398E+01,.8126E+00,& - .2706E+01,.2706E+01,.2706E+01,.2718E+01,.2753E+01,.2800E+01,.2821E+01,.3037E+01,.3135E+01,.2435E+01,.8281E+00,& - .2743E+01,.2743E+01,.2743E+01,.2754E+01,.2788E+01,.2829E+01,.2847E+01,.3070E+01,.3174E+01,.2471E+01,.8436E+00,& - .2779E+01,.2779E+01,.2779E+01,.2791E+01,.2824E+01,.2859E+01,.2874E+01,.3104E+01,.3214E+01,.2508E+01,.8592E+00,& - .2816E+01,.2816E+01,.2816E+01,.2827E+01,.2859E+01,.2888E+01,.2900E+01,.3137E+01,.3253E+01,.2544E+01,.8747E+00,& - .2852E+01,.2852E+01,.2852E+01,.2863E+01,.2895E+01,.2917E+01,.2927E+01,.3171E+01,.3292E+01,.2581E+01,.8902E+00,& - .2877E+01,.2877E+01,.2877E+01,.2890E+01,.2929E+01,.2960E+01,.2973E+01,.3202E+01,.3329E+01,.2617E+01,.9066E+00,& - .2901E+01,.2901E+01,.2901E+01,.2917E+01,.2963E+01,.3002E+01,.3019E+01,.3233E+01,.3367E+01,.2653E+01,.9230E+00,& - .2926E+01,.2926E+01,.2926E+01,.2945E+01,.2998E+01,.3045E+01,.3066E+01,.3264E+01,.3404E+01,.2688E+01,.9394E+00,& - .2950E+01,.2950E+01,.2950E+01,.2972E+01,.3032E+01,.3087E+01,.3112E+01,.3295E+01,.3442E+01,.2724E+01,.9558E+00,& - .2975E+01,.2975E+01,.2975E+01,.2999E+01,.3066E+01,.3130E+01,.3158E+01,.3326E+01,.3479E+01,.2760E+01,.9722E+00,& - .3010E+01,.3010E+01,.3010E+01,.3031E+01,.3092E+01,.3157E+01,.3186E+01,.3367E+01,.3521E+01,.2800E+01,.9898E+00,& - .3044E+01,.3044E+01,.3044E+01,.3063E+01,.3118E+01,.3185E+01,.3214E+01,.3408E+01,.3563E+01,.2840E+01,.1007E+01,& - .3079E+01,.3079E+01,.3079E+01,.3096E+01,.3144E+01,.3212E+01,.3241E+01,.3448E+01,.3606E+01,.2881E+01,.1025E+01,& - .3113E+01,.3113E+01,.3113E+01,.3128E+01,.3170E+01,.3240E+01,.3269E+01,.3489E+01,.3648E+01,.2921E+01,.1042E+01,& - .3148E+01,.3148E+01,.3148E+01,.3160E+01,.3196E+01,.3267E+01,.3297E+01,.3530E+01,.3690E+01,.2961E+01,.1060E+01,& - .3209E+01,.3209E+01,.3209E+01,.3221E+01,.3255E+01,.3327E+01,.3358E+01,.3585E+01,.3758E+01,.3027E+01,.1090E+01,& - .3270E+01,.3270E+01,.3270E+01,.3281E+01,.3315E+01,.3388E+01,.3419E+01,.3641E+01,.3825E+01,.3093E+01,.1120E+01,& - .3331E+01,.3331E+01,.3331E+01,.3342E+01,.3374E+01,.3448E+01,.3480E+01,.3696E+01,.3893E+01,.3158E+01,.1151E+01,& - .3392E+01,.3392E+01,.3392E+01,.3402E+01,.3434E+01,.3509E+01,.3541E+01,.3752E+01,.3960E+01,.3224E+01,.1181E+01,& - .3453E+01,.3453E+01,.3453E+01,.3463E+01,.3493E+01,.3569E+01,.3602E+01,.3807E+01,.4028E+01,.3290E+01,.1211E+01,& - .3519E+01,.3519E+01,.3519E+01,.3532E+01,.3572E+01,.3635E+01,.3662E+01,.3892E+01,.4116E+01,.3378E+01,.1252E+01,& - .3585E+01,.3585E+01,.3585E+01,.3601E+01,.3650E+01,.3701E+01,.3723E+01,.3978E+01,.4203E+01,.3466E+01,.1294E+01,& - .3650E+01,.3650E+01,.3650E+01,.3671E+01,.3729E+01,.3767E+01,.3783E+01,.4063E+01,.4291E+01,.3554E+01,.1335E+01,& - .3716E+01,.3716E+01,.3716E+01,.3740E+01,.3807E+01,.3833E+01,.3844E+01,.4149E+01,.4378E+01,.3642E+01,.1377E+01,& - .3782E+01,.3782E+01,.3782E+01,.3809E+01,.3886E+01,.3899E+01,.3904E+01,.4234E+01,.4466E+01,.3730E+01,.1418E+01,& - .3887E+01,.3887E+01,.3887E+01,.3893E+01,.3911E+01,.3989E+01,.4022E+01,.4318E+01,.4576E+01,.3843E+01,.1470E+01,& - .4014E+01,.4014E+01,.4014E+01,.4022E+01,.4044E+01,.4121E+01,.4154E+01,.4424E+01,.4717E+01,.3990E+01,.1545E+01,& - .4110E+01,.4110E+01,.4110E+01,.4135E+01,.4208E+01,.4251E+01,.4270E+01,.4550E+01,.4846E+01,.4118E+01,.1612E+01,& - .4230E+01,.4230E+01,.4230E+01,.4253E+01,.4317E+01,.4367E+01,.4389E+01,.4657E+01,.4974E+01,.4254E+01,.1680E+01,& - .4365E+01,.4365E+01,.4365E+01,.4381E+01,.4428E+01,.4529E+01,.4572E+01,.4851E+01,.5188E+01,.4470E+01,.1786E+01,& - .4504E+01,.4504E+01,.4504E+01,.4530E+01,.4604E+01,.4649E+01,.4669E+01,.5015E+01,.5349E+01,.4645E+01,.1871E+01,& - .4700E+01,.4700E+01,.4700E+01,.4709E+01,.4733E+01,.4806E+01,.4838E+01,.5165E+01,.5549E+01,.4857E+01,.1983E+01,& - .4850E+01,.4850E+01,.4850E+01,.4881E+01,.4971E+01,.5034E+01,.5061E+01,.5355E+01,.5749E+01,.5067E+01,.2101E+01,& - .5072E+01,.5072E+01,.5072E+01,.5094E+01,.5156E+01,.5204E+01,.5224E+01,.5561E+01,.5983E+01,.5325E+01,.2237E+01,& - .5331E+01,.5331E+01,.5331E+01,.5348E+01,.5398E+01,.5469E+01,.5500E+01,.5874E+01,.6317E+01,.5681E+01,.2420E+01,& - .5667E+01,.5667E+01,.5667E+01,.5669E+01,.5674E+01,.5758E+01,.5794E+01,.6108E+01,.6640E+01,.6015E+01,.2612E+01,& - .5964E+01,.5964E+01,.5964E+01,.5991E+01,.6068E+01,.6104E+01,.6120E+01,.6533E+01,.7073E+01,.6511E+01,.2896E+01,& - .6438E+01,.6438E+01,.6438E+01,.6458E+01,.6515E+01,.6548E+01,.6562E+01,.7003E+01,.7599E+01,.7071E+01,.3211E+01,& - .7017E+01,.7017E+01,.7017E+01,.7041E+01,.7109E+01,.7145E+01,.7161E+01,.7586E+01,.8233E+01,.7799E+01,.3661E+01,& - .7828E+01,.7828E+01,.7828E+01,.7845E+01,.7895E+01,.8007E+01,.8055E+01,.8414E+01,.9188E+01,.8838E+01,.4305E+01,& - .8792E+01,.8792E+01,.8792E+01,.8832E+01,.8944E+01,.9022E+01,.9056E+01,.9506E+01,.1034E+02,.1016E+02,.5150E+01,& - .1065E+02,.1065E+02,.1065E+02,.1067E+02,.1073E+02,.1086E+02,.1091E+02,.1136E+02,.1235E+02,.1250E+02,.6784E+01,& - .1355E+02,.1355E+02,.1355E+02,.1357E+02,.1361E+02,.1368E+02,.1371E+02,.1427E+02,.1541E+02,.1607E+02,.9475E+01,& - .2060E+02,.2060E+02,.2060E+02,.2068E+02,.2089E+02,.2093E+02,.2095E+02,.2152E+02,.2316E+02,.2485E+02,.1687E+02/ - data (((Bex(ai,k,nh),ai= 6, 6),k=1,11),nh=0,99)/ & - .1250E+00,.1250E+00,.1250E+00,.1254E+00,.1264E+00,.1254E+00,.1250E+00,.1282E+00,.1335E+00,.1444E+00,.1543E+00,& - .1282E+00,.1282E+00,.1282E+00,.1286E+00,.1296E+00,.1285E+00,.1281E+00,.1313E+00,.1368E+00,.1478E+00,.1578E+00,& - .1313E+00,.1313E+00,.1313E+00,.1317E+00,.1328E+00,.1317E+00,.1312E+00,.1344E+00,.1400E+00,.1512E+00,.1612E+00,& - .1345E+00,.1345E+00,.1345E+00,.1349E+00,.1359E+00,.1348E+00,.1344E+00,.1375E+00,.1433E+00,.1547E+00,.1647E+00,& - .1376E+00,.1376E+00,.1376E+00,.1380E+00,.1391E+00,.1380E+00,.1375E+00,.1406E+00,.1465E+00,.1581E+00,.1681E+00,& - .1408E+00,.1408E+00,.1408E+00,.1412E+00,.1423E+00,.1411E+00,.1406E+00,.1437E+00,.1498E+00,.1615E+00,.1716E+00,& - .1440E+00,.1440E+00,.1440E+00,.1444E+00,.1454E+00,.1443E+00,.1438E+00,.1471E+00,.1533E+00,.1653E+00,.1754E+00,& - .1472E+00,.1472E+00,.1472E+00,.1476E+00,.1485E+00,.1474E+00,.1470E+00,.1505E+00,.1568E+00,.1690E+00,.1792E+00,& - .1505E+00,.1505E+00,.1505E+00,.1507E+00,.1516E+00,.1506E+00,.1501E+00,.1540E+00,.1603E+00,.1728E+00,.1831E+00,& - .1537E+00,.1537E+00,.1537E+00,.1539E+00,.1547E+00,.1537E+00,.1533E+00,.1574E+00,.1638E+00,.1765E+00,.1869E+00,& - .1569E+00,.1569E+00,.1569E+00,.1571E+00,.1578E+00,.1569E+00,.1565E+00,.1608E+00,.1673E+00,.1803E+00,.1907E+00,& - .1600E+00,.1600E+00,.1600E+00,.1602E+00,.1608E+00,.1604E+00,.1601E+00,.1643E+00,.1707E+00,.1839E+00,.1946E+00,& - .1631E+00,.1631E+00,.1631E+00,.1633E+00,.1638E+00,.1638E+00,.1638E+00,.1678E+00,.1741E+00,.1875E+00,.1986E+00,& - .1661E+00,.1661E+00,.1661E+00,.1663E+00,.1669E+00,.1673E+00,.1674E+00,.1712E+00,.1776E+00,.1912E+00,.2025E+00,& - .1692E+00,.1692E+00,.1692E+00,.1694E+00,.1699E+00,.1707E+00,.1711E+00,.1747E+00,.1810E+00,.1948E+00,.2065E+00,& - .1723E+00,.1723E+00,.1723E+00,.1725E+00,.1729E+00,.1742E+00,.1747E+00,.1782E+00,.1844E+00,.1984E+00,.2104E+00,& - .1761E+00,.1761E+00,.1761E+00,.1764E+00,.1769E+00,.1779E+00,.1782E+00,.1820E+00,.1883E+00,.2024E+00,.2147E+00,& - .1800E+00,.1800E+00,.1800E+00,.1802E+00,.1809E+00,.1815E+00,.1817E+00,.1857E+00,.1922E+00,.2065E+00,.2190E+00,& - .1838E+00,.1838E+00,.1838E+00,.1841E+00,.1848E+00,.1852E+00,.1853E+00,.1895E+00,.1961E+00,.2105E+00,.2233E+00,& - .1877E+00,.1877E+00,.1877E+00,.1879E+00,.1888E+00,.1888E+00,.1888E+00,.1932E+00,.2000E+00,.2146E+00,.2276E+00,& - .1915E+00,.1915E+00,.1915E+00,.1918E+00,.1928E+00,.1925E+00,.1923E+00,.1970E+00,.2039E+00,.2186E+00,.2319E+00,& - .1953E+00,.1953E+00,.1953E+00,.1956E+00,.1964E+00,.1966E+00,.1966E+00,.2012E+00,.2079E+00,.2228E+00,.2363E+00,& - .1991E+00,.1991E+00,.1991E+00,.1993E+00,.2001E+00,.2007E+00,.2010E+00,.2054E+00,.2119E+00,.2270E+00,.2407E+00,& - .2028E+00,.2028E+00,.2028E+00,.2031E+00,.2037E+00,.2049E+00,.2053E+00,.2095E+00,.2159E+00,.2313E+00,.2450E+00,& - .2066E+00,.2066E+00,.2066E+00,.2068E+00,.2074E+00,.2090E+00,.2097E+00,.2137E+00,.2199E+00,.2355E+00,.2494E+00,& - .2104E+00,.2104E+00,.2104E+00,.2106E+00,.2110E+00,.2131E+00,.2140E+00,.2179E+00,.2239E+00,.2397E+00,.2538E+00,& - .2146E+00,.2146E+00,.2146E+00,.2149E+00,.2154E+00,.2170E+00,.2176E+00,.2216E+00,.2280E+00,.2441E+00,.2586E+00,& - .2188E+00,.2188E+00,.2188E+00,.2191E+00,.2199E+00,.2209E+00,.2213E+00,.2252E+00,.2321E+00,.2485E+00,.2634E+00,& - .2230E+00,.2230E+00,.2230E+00,.2234E+00,.2243E+00,.2247E+00,.2249E+00,.2289E+00,.2362E+00,.2530E+00,.2681E+00,& - .2272E+00,.2272E+00,.2272E+00,.2276E+00,.2288E+00,.2286E+00,.2286E+00,.2325E+00,.2403E+00,.2574E+00,.2729E+00,& - .2314E+00,.2314E+00,.2314E+00,.2319E+00,.2332E+00,.2325E+00,.2322E+00,.2362E+00,.2444E+00,.2618E+00,.2777E+00,& - .2351E+00,.2351E+00,.2351E+00,.2356E+00,.2370E+00,.2364E+00,.2362E+00,.2405E+00,.2487E+00,.2662E+00,.2825E+00,& - .2389E+00,.2389E+00,.2389E+00,.2394E+00,.2408E+00,.2403E+00,.2401E+00,.2448E+00,.2530E+00,.2706E+00,.2873E+00,& - .2426E+00,.2426E+00,.2426E+00,.2431E+00,.2445E+00,.2442E+00,.2441E+00,.2491E+00,.2573E+00,.2750E+00,.2922E+00,& - .2464E+00,.2464E+00,.2464E+00,.2469E+00,.2483E+00,.2481E+00,.2480E+00,.2534E+00,.2616E+00,.2794E+00,.2970E+00,& - .2501E+00,.2501E+00,.2501E+00,.2506E+00,.2521E+00,.2520E+00,.2520E+00,.2577E+00,.2659E+00,.2838E+00,.3018E+00,& - .2545E+00,.2545E+00,.2545E+00,.2550E+00,.2564E+00,.2564E+00,.2565E+00,.2623E+00,.2705E+00,.2882E+00,.3070E+00,& - .2589E+00,.2589E+00,.2589E+00,.2594E+00,.2607E+00,.2608E+00,.2610E+00,.2669E+00,.2750E+00,.2926E+00,.3122E+00,& - .2634E+00,.2634E+00,.2634E+00,.2637E+00,.2649E+00,.2653E+00,.2654E+00,.2715E+00,.2796E+00,.2971E+00,.3175E+00,& - .2678E+00,.2678E+00,.2678E+00,.2681E+00,.2692E+00,.2697E+00,.2699E+00,.2761E+00,.2841E+00,.3015E+00,.3227E+00,& - .2722E+00,.2722E+00,.2722E+00,.2725E+00,.2735E+00,.2741E+00,.2744E+00,.2807E+00,.2887E+00,.3059E+00,.3279E+00,& - .2774E+00,.2774E+00,.2774E+00,.2776E+00,.2785E+00,.2792E+00,.2796E+00,.2854E+00,.2932E+00,.3110E+00,.3333E+00,& - .2826E+00,.2826E+00,.2826E+00,.2828E+00,.2834E+00,.2843E+00,.2848E+00,.2901E+00,.2977E+00,.3162E+00,.3386E+00,& - .2877E+00,.2877E+00,.2877E+00,.2879E+00,.2884E+00,.2895E+00,.2899E+00,.2948E+00,.3023E+00,.3213E+00,.3440E+00,& - .2929E+00,.2929E+00,.2929E+00,.2931E+00,.2933E+00,.2946E+00,.2951E+00,.2995E+00,.3068E+00,.3265E+00,.3493E+00,& - .2981E+00,.2981E+00,.2981E+00,.2982E+00,.2983E+00,.2997E+00,.3003E+00,.3042E+00,.3113E+00,.3316E+00,.3547E+00,& - .3021E+00,.3021E+00,.3021E+00,.3024E+00,.3029E+00,.3039E+00,.3043E+00,.3086E+00,.3164E+00,.3368E+00,.3602E+00,& - .3061E+00,.3061E+00,.3061E+00,.3065E+00,.3075E+00,.3081E+00,.3083E+00,.3130E+00,.3215E+00,.3419E+00,.3658E+00,& - .3102E+00,.3102E+00,.3102E+00,.3107E+00,.3121E+00,.3122E+00,.3123E+00,.3175E+00,.3265E+00,.3471E+00,.3713E+00,& - .3142E+00,.3142E+00,.3142E+00,.3148E+00,.3167E+00,.3164E+00,.3163E+00,.3219E+00,.3316E+00,.3522E+00,.3769E+00,& - .3182E+00,.3182E+00,.3182E+00,.3190E+00,.3213E+00,.3206E+00,.3203E+00,.3263E+00,.3367E+00,.3574E+00,.3824E+00,& - .3225E+00,.3225E+00,.3225E+00,.3232E+00,.3250E+00,.3248E+00,.3247E+00,.3302E+00,.3409E+00,.3614E+00,.3872E+00,& - .3268E+00,.3268E+00,.3268E+00,.3273E+00,.3287E+00,.3289E+00,.3290E+00,.3340E+00,.3452E+00,.3654E+00,.3920E+00,& - .3312E+00,.3312E+00,.3312E+00,.3315E+00,.3324E+00,.3331E+00,.3334E+00,.3379E+00,.3494E+00,.3695E+00,.3968E+00,& - .3355E+00,.3355E+00,.3355E+00,.3356E+00,.3361E+00,.3372E+00,.3377E+00,.3417E+00,.3537E+00,.3735E+00,.4016E+00,& - .3398E+00,.3398E+00,.3398E+00,.3398E+00,.3398E+00,.3414E+00,.3421E+00,.3456E+00,.3579E+00,.3775E+00,.4064E+00,& - .3438E+00,.3438E+00,.3438E+00,.3438E+00,.3440E+00,.3454E+00,.3460E+00,.3501E+00,.3619E+00,.3819E+00,.4113E+00,& - .3477E+00,.3477E+00,.3477E+00,.3478E+00,.3482E+00,.3494E+00,.3499E+00,.3546E+00,.3659E+00,.3863E+00,.4162E+00,& - .3517E+00,.3517E+00,.3517E+00,.3519E+00,.3524E+00,.3533E+00,.3537E+00,.3591E+00,.3700E+00,.3907E+00,.4210E+00,& - .3556E+00,.3556E+00,.3556E+00,.3559E+00,.3566E+00,.3573E+00,.3576E+00,.3636E+00,.3740E+00,.3951E+00,.4259E+00,& - .3596E+00,.3596E+00,.3596E+00,.3599E+00,.3608E+00,.3613E+00,.3615E+00,.3681E+00,.3780E+00,.3995E+00,.4308E+00,& - .3642E+00,.3642E+00,.3642E+00,.3645E+00,.3652E+00,.3663E+00,.3668E+00,.3727E+00,.3823E+00,.4042E+00,.4357E+00,& - .3689E+00,.3689E+00,.3689E+00,.3691E+00,.3697E+00,.3713E+00,.3720E+00,.3774E+00,.3866E+00,.4090E+00,.4407E+00,& - .3735E+00,.3735E+00,.3735E+00,.3737E+00,.3741E+00,.3764E+00,.3773E+00,.3820E+00,.3910E+00,.4137E+00,.4456E+00,& - .3782E+00,.3782E+00,.3782E+00,.3783E+00,.3786E+00,.3814E+00,.3825E+00,.3867E+00,.3953E+00,.4185E+00,.4506E+00,& - .3828E+00,.3828E+00,.3828E+00,.3829E+00,.3830E+00,.3864E+00,.3878E+00,.3913E+00,.3996E+00,.4232E+00,.4555E+00,& - .3867E+00,.3867E+00,.3867E+00,.3870E+00,.3877E+00,.3903E+00,.3914E+00,.3952E+00,.4041E+00,.4276E+00,.4607E+00,& - .3906E+00,.3906E+00,.3906E+00,.3911E+00,.3924E+00,.3942E+00,.3950E+00,.3991E+00,.4087E+00,.4319E+00,.4660E+00,& - .3944E+00,.3944E+00,.3944E+00,.3951E+00,.3972E+00,.3982E+00,.3986E+00,.4031E+00,.4132E+00,.4363E+00,.4712E+00,& - .3983E+00,.3983E+00,.3983E+00,.3992E+00,.4019E+00,.4021E+00,.4022E+00,.4070E+00,.4178E+00,.4406E+00,.4765E+00,& - .4022E+00,.4022E+00,.4022E+00,.4033E+00,.4066E+00,.4060E+00,.4058E+00,.4109E+00,.4223E+00,.4450E+00,.4817E+00,& - .4090E+00,.4090E+00,.4090E+00,.4098E+00,.4123E+00,.4125E+00,.4126E+00,.4174E+00,.4292E+00,.4520E+00,.4896E+00,& - .4158E+00,.4158E+00,.4158E+00,.4164E+00,.4181E+00,.4189E+00,.4193E+00,.4239E+00,.4361E+00,.4591E+00,.4976E+00,& - .4227E+00,.4227E+00,.4227E+00,.4229E+00,.4238E+00,.4254E+00,.4261E+00,.4305E+00,.4430E+00,.4661E+00,.5055E+00,& - .4295E+00,.4295E+00,.4295E+00,.4295E+00,.4296E+00,.4318E+00,.4328E+00,.4370E+00,.4499E+00,.4732E+00,.5135E+00,& - .4363E+00,.4363E+00,.4363E+00,.4360E+00,.4353E+00,.4383E+00,.4396E+00,.4435E+00,.4568E+00,.4802E+00,.5214E+00,& - .4464E+00,.4464E+00,.4464E+00,.4463E+00,.4462E+00,.4493E+00,.4506E+00,.4546E+00,.4671E+00,.4911E+00,.5335E+00,& - .4564E+00,.4564E+00,.4564E+00,.4566E+00,.4571E+00,.4603E+00,.4617E+00,.4658E+00,.4774E+00,.5020E+00,.5457E+00,& - .4665E+00,.4665E+00,.4665E+00,.4668E+00,.4679E+00,.4713E+00,.4727E+00,.4769E+00,.4878E+00,.5129E+00,.5578E+00,& - .4765E+00,.4765E+00,.4765E+00,.4771E+00,.4788E+00,.4823E+00,.4838E+00,.4881E+00,.4981E+00,.5238E+00,.5700E+00,& - .4866E+00,.4866E+00,.4866E+00,.4874E+00,.4897E+00,.4933E+00,.4948E+00,.4992E+00,.5084E+00,.5347E+00,.5821E+00,& - .5001E+00,.5001E+00,.5001E+00,.5006E+00,.5020E+00,.5028E+00,.5032E+00,.5097E+00,.5201E+00,.5463E+00,.5952E+00,& - .5118E+00,.5118E+00,.5118E+00,.5134E+00,.5179E+00,.5172E+00,.5169E+00,.5240E+00,.5383E+00,.5651E+00,.6156E+00,& - .5327E+00,.5327E+00,.5327E+00,.5327E+00,.5328E+00,.5327E+00,.5327E+00,.5405E+00,.5558E+00,.5826E+00,.6358E+00,& - .5484E+00,.5484E+00,.5484E+00,.5485E+00,.5489E+00,.5523E+00,.5537E+00,.5590E+00,.5738E+00,.6008E+00,.6560E+00,& - .5711E+00,.5711E+00,.5711E+00,.5717E+00,.5734E+00,.5745E+00,.5749E+00,.5823E+00,.5960E+00,.6240E+00,.6806E+00,& - .5949E+00,.5949E+00,.5949E+00,.5941E+00,.5920E+00,.5977E+00,.6002E+00,.6055E+00,.6164E+00,.6447E+00,.7059E+00,& - .6140E+00,.6140E+00,.6140E+00,.6149E+00,.6176E+00,.6184E+00,.6188E+00,.6275E+00,.6377E+00,.6695E+00,.7314E+00,& - .6340E+00,.6340E+00,.6340E+00,.6354E+00,.6393E+00,.6387E+00,.6385E+00,.6474E+00,.6617E+00,.6926E+00,.7589E+00,& - .6647E+00,.6647E+00,.6647E+00,.6646E+00,.6642E+00,.6646E+00,.6648E+00,.6732E+00,.6910E+00,.7195E+00,.7902E+00,& - .6957E+00,.6957E+00,.6957E+00,.6965E+00,.6986E+00,.6992E+00,.6995E+00,.7092E+00,.7245E+00,.7540E+00,.8286E+00,& - .7368E+00,.7368E+00,.7368E+00,.7375E+00,.7396E+00,.7441E+00,.7460E+00,.7526E+00,.7662E+00,.7986E+00,.8761E+00,& - .7789E+00,.7789E+00,.7789E+00,.7803E+00,.7844E+00,.7839E+00,.7837E+00,.7936E+00,.8110E+00,.8456E+00,.9284E+00,& - .8471E+00,.8471E+00,.8471E+00,.8487E+00,.8533E+00,.8532E+00,.8532E+00,.8632E+00,.8805E+00,.9144E+00,.1007E+01,& - .9305E+00,.9305E+00,.9305E+00,.9328E+00,.9393E+00,.9387E+00,.9384E+00,.9495E+00,.9626E+00,.1002E+01,.1103E+01,& - .1036E+01,.1036E+01,.1036E+01,.1038E+01,.1043E+01,.1042E+01,.1041E+01,.1053E+01,.1076E+01,.1110E+01,.1225E+01,& - .1203E+01,.1203E+01,.1203E+01,.1203E+01,.1203E+01,.1203E+01,.1203E+01,.1214E+01,.1241E+01,.1280E+01,.1410E+01,& - .1427E+01,.1427E+01,.1427E+01,.1428E+01,.1432E+01,.1431E+01,.1431E+01,.1444E+01,.1470E+01,.1518E+01,.1667E+01,& - .1851E+01,.1851E+01,.1851E+01,.1853E+01,.1858E+01,.1857E+01,.1857E+01,.1874E+01,.1906E+01,.1951E+01,.2142E+01,& - .2917E+01,.2917E+01,.2917E+01,.2918E+01,.2919E+01,.2926E+01,.2929E+01,.2953E+01,.2977E+01,.3058E+01,.3309E+01/ - data (((Bex(ai,k,nh),ai= 7, 7),k=1,11),nh=0,99)/ & - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& - .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01/ - data (((Bex(ai,k,nh),ai= 8, 8),k=1,11),nh=0,99)/ & - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& - .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01/ - data (((Bex(ai,k,nh),ai= 9, 9),k=1,11),nh=0,99)/ & - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& - .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00/ - data (((Bex(ai,k,nh),ai=10,10),k=1,11),nh=0,99)/ & - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& - .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00/ - data (((Bex(ai,k,nh),ai=11,11),k=1,11),nh=0,99)/ & - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& - .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00/ - data (((Bex(ai,k,nh),ai=12,12),k=1,11),nh=0,99)/ & - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& - .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00/ - data (((Bex(ai,k,nh),ai=13,13),k=1,11),nh=0,99)/ & - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& - .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00/ - data (((Bex(ai,k,nh),ai=14,14),k=1,11),nh=0,99)/ & - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& - .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01/ - data (((w0(ai,k,nh),ai= 1, 1),k=1,11),nh=0,99)/ & - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9766E+00,.1023E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9768E+00,.1038E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9771E+00,.1053E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9773E+00,.1069E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9776E+00,.1084E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9778E+00,.1099E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9780E+00,.1116E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9782E+00,.1133E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9785E+00,.1151E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9787E+00,.1168E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9789E+00,.1185E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9791E+00,.1203E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9793E+00,.1221E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9794E+00,.1239E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9796E+00,.1257E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9798E+00,.1275E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9800E+00,.1295E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9802E+00,.1315E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9804E+00,.1334E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9806E+00,.1354E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9808E+00,.1374E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9810E+00,.1395E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9811E+00,.1416E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9813E+00,.1437E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9814E+00,.1458E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9816E+00,.1479E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9818E+00,.1501E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9819E+00,.1523E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9821E+00,.1544E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9822E+00,.1566E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9824E+00,.1588E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9825E+00,.1611E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9827E+00,.1633E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9828E+00,.1656E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9830E+00,.1678E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9831E+00,.1701E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9832E+00,.1723E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9833E+00,.1745E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9835E+00,.1768E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9836E+00,.1790E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9837E+00,.1812E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9838E+00,.1835E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9839E+00,.1859E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9841E+00,.1882E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9842E+00,.1906E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9843E+00,.1929E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9844E+00,.1953E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9845E+00,.1976E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9846E+00,.2000E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9847E+00,.2023E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9848E+00,.2047E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9849E+00,.2069E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9850E+00,.2091E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9851E+00,.2113E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9852E+00,.2135E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9853E+00,.2157E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9854E+00,.2178E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9855E+00,.2199E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9855E+00,.2220E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9856E+00,.2241E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9857E+00,.2262E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9858E+00,.2284E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9859E+00,.2306E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9859E+00,.2327E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9860E+00,.2349E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9861E+00,.2371E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9862E+00,.2393E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9863E+00,.2414E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9863E+00,.2436E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9864E+00,.2457E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9865E+00,.2479E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9866E+00,.2514E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9867E+00,.2550E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9869E+00,.2585E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9870E+00,.2621E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9871E+00,.2656E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9872E+00,.2691E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9873E+00,.2725E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9874E+00,.2760E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9875E+00,.2794E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9876E+00,.2829E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9877E+00,.2866E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9878E+00,.2903E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9879E+00,.2940E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9881E+00,.2995E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9882E+00,.3050E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9883E+00,.3103E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9886E+00,.3174E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9887E+00,.3243E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9889E+00,.3328E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9891E+00,.3427E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9893E+00,.3524E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9896E+00,.3648E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9898E+00,.3768E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9901E+00,.3911E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9904E+00,.4101E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9908E+00,.4302E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9912E+00,.4555E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9917E+00,.4916E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9923E+00,.5487E+00/ - data (((w0(ai,k,nh),ai= 2, 2),k=1,11),nh=0,99)/ & - .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& - .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& - .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& - .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& - .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& - .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& - .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& - .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& - .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& - .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& - .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& - .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& - .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& - .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& - .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& - .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& - .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& - .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& - .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& - .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& - .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& - .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& - .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& - .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& - .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& - .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& - .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& - .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& - .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& - .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& - .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& - .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& - .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& - .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& - .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& - .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& - .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& - .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& - .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& - .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& - .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& - .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& - .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& - .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& - .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& - .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& - .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& - .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& - .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& - .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& - .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& - .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& - .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& - .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& - .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& - .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& - .3085E+00,.3085E+00,.3085E+00,.3097E+00,.3131E+00,.2976E+00,.2909E+00,.2106E+00,.1051E+00,.3133E-01,.2660E-02,& - .3089E+00,.3089E+00,.3089E+00,.3100E+00,.3134E+00,.2979E+00,.2912E+00,.2108E+00,.1052E+00,.3138E-01,.2663E-02,& - .3092E+00,.3092E+00,.3092E+00,.3104E+00,.3137E+00,.2981E+00,.2914E+00,.2111E+00,.1054E+00,.3142E-01,.2667E-02,& - .3096E+00,.3096E+00,.3096E+00,.3107E+00,.3140E+00,.2984E+00,.2917E+00,.2113E+00,.1055E+00,.3147E-01,.2670E-02,& - .3100E+00,.3100E+00,.3100E+00,.3111E+00,.3143E+00,.2987E+00,.2920E+00,.2116E+00,.1057E+00,.3151E-01,.2674E-02,& - .3100E+00,.3100E+00,.3100E+00,.3111E+00,.3143E+00,.2987E+00,.2920E+00,.2116E+00,.1057E+00,.3151E-01,.2674E-02,& - .3100E+00,.3100E+00,.3100E+00,.3111E+00,.3143E+00,.2987E+00,.2920E+00,.2116E+00,.1057E+00,.3151E-01,.2674E-02,& - .3100E+00,.3100E+00,.3100E+00,.3111E+00,.3143E+00,.2987E+00,.2920E+00,.2116E+00,.1057E+00,.3151E-01,.2674E-02,& - .3100E+00,.3100E+00,.3100E+00,.3111E+00,.3143E+00,.2987E+00,.2920E+00,.2116E+00,.1057E+00,.3151E-01,.2674E-02,& - .3100E+00,.3100E+00,.3100E+00,.3111E+00,.3143E+00,.2987E+00,.2920E+00,.2116E+00,.1057E+00,.3151E-01,.2674E-02,& - .3112E+00,.3112E+00,.3112E+00,.3123E+00,.3153E+00,.2996E+00,.2929E+00,.2124E+00,.1062E+00,.3166E-01,.2686E-02,& - .3124E+00,.3124E+00,.3124E+00,.3134E+00,.3163E+00,.3006E+00,.2939E+00,.2132E+00,.1067E+00,.3181E-01,.2698E-02,& - .3137E+00,.3137E+00,.3137E+00,.3146E+00,.3172E+00,.3015E+00,.2948E+00,.2139E+00,.1071E+00,.3196E-01,.2711E-02,& - .3149E+00,.3149E+00,.3149E+00,.3157E+00,.3182E+00,.3025E+00,.2958E+00,.2147E+00,.1076E+00,.3211E-01,.2723E-02,& - .3161E+00,.3161E+00,.3161E+00,.3169E+00,.3192E+00,.3034E+00,.2967E+00,.2155E+00,.1081E+00,.3226E-01,.2735E-02,& - .3200E+00,.3200E+00,.3200E+00,.3206E+00,.3224E+00,.3065E+00,.2998E+00,.2181E+00,.1097E+00,.3276E-01,.2775E-02,& - .3238E+00,.3238E+00,.3238E+00,.3243E+00,.3256E+00,.3096E+00,.3028E+00,.2207E+00,.1113E+00,.3326E-01,.2815E-02,& - .3277E+00,.3277E+00,.3277E+00,.3279E+00,.3288E+00,.3128E+00,.3059E+00,.2234E+00,.1129E+00,.3376E-01,.2856E-02,& - .3315E+00,.3315E+00,.3315E+00,.3316E+00,.3320E+00,.3159E+00,.3089E+00,.2260E+00,.1145E+00,.3426E-01,.2896E-02,& - .3354E+00,.3354E+00,.3354E+00,.3353E+00,.3352E+00,.3190E+00,.3120E+00,.2286E+00,.1161E+00,.3476E-01,.2936E-02,& - .3413E+00,.3413E+00,.3413E+00,.3410E+00,.3402E+00,.3238E+00,.3168E+00,.2328E+00,.1187E+00,.3561E-01,.3003E-02,& - .3472E+00,.3472E+00,.3472E+00,.3466E+00,.3452E+00,.3287E+00,.3216E+00,.2370E+00,.1214E+00,.3646E-01,.3070E-02,& - .3530E+00,.3530E+00,.3530E+00,.3523E+00,.3501E+00,.3335E+00,.3264E+00,.2411E+00,.1240E+00,.3731E-01,.3138E-02,& - .3589E+00,.3589E+00,.3589E+00,.3579E+00,.3551E+00,.3384E+00,.3312E+00,.2453E+00,.1267E+00,.3816E-01,.3205E-02,& - .3648E+00,.3648E+00,.3648E+00,.3636E+00,.3601E+00,.3432E+00,.3360E+00,.2495E+00,.1293E+00,.3901E-01,.3272E-02,& - .3746E+00,.3746E+00,.3746E+00,.3730E+00,.3685E+00,.3514E+00,.3441E+00,.2567E+00,.1339E+00,.4053E-01,.3392E-02,& - .3813E+00,.3813E+00,.3813E+00,.3795E+00,.3743E+00,.3571E+00,.3497E+00,.2617E+00,.1372E+00,.4161E-01,.3477E-02,& - .3916E+00,.3916E+00,.3916E+00,.3894E+00,.3833E+00,.3659E+00,.3585E+00,.2695E+00,.1423E+00,.4333E-01,.3612E-02,& - .3987E+00,.3987E+00,.3987E+00,.3963E+00,.3895E+00,.3720E+00,.3645E+00,.2750E+00,.1459E+00,.4455E-01,.3708E-02,& - .4095E+00,.4095E+00,.4095E+00,.4068E+00,.3990E+00,.3814E+00,.3738E+00,.2834E+00,.1516E+00,.4649E-01,.3860E-02,& - .4205E+00,.4205E+00,.4205E+00,.4175E+00,.4088E+00,.3910E+00,.3834E+00,.2922E+00,.1575E+00,.4856E-01,.4023E-02,& - .4280E+00,.4280E+00,.4280E+00,.4247E+00,.4154E+00,.3975E+00,.3899E+00,.2982E+00,.1617E+00,.5001E-01,.4137E-02,& - .4393E+00,.4393E+00,.4393E+00,.4357E+00,.4256E+00,.4077E+00,.4000E+00,.3075E+00,.1681E+00,.5231E-01,.4318E-02,& - .4470E+00,.4470E+00,.4470E+00,.4432E+00,.4325E+00,.4145E+00,.4068E+00,.3139E+00,.1726E+00,.5392E-01,.4444E-02,& - .4585E+00,.4585E+00,.4585E+00,.4544E+00,.4429E+00,.4248E+00,.4171E+00,.3237E+00,.1796E+00,.5646E-01,.4644E-02,& - .4701E+00,.4701E+00,.4701E+00,.4658E+00,.4535E+00,.4354E+00,.4277E+00,.3338E+00,.1869E+00,.5915E-01,.4856E-02,& - .4818E+00,.4818E+00,.4818E+00,.4772E+00,.4642E+00,.4461E+00,.4383E+00,.3440E+00,.1944E+00,.6198E-01,.5080E-02,& - .4935E+00,.4935E+00,.4935E+00,.4887E+00,.4750E+00,.4569E+00,.4491E+00,.3545E+00,.2023E+00,.6498E-01,.5317E-02,& - .5091E+00,.5091E+00,.5091E+00,.5040E+00,.4894E+00,.4714E+00,.4637E+00,.3689E+00,.2133E+00,.6923E-01,.5655E-02,& - .5245E+00,.5245E+00,.5245E+00,.5192E+00,.5040E+00,.4861E+00,.4784E+00,.3835E+00,.2247E+00,.7377E-01,.6017E-02,& - .5437E+00,.5437E+00,.5437E+00,.5381E+00,.5221E+00,.5044E+00,.4968E+00,.4021E+00,.2396E+00,.7989E-01,.6507E-02,& - .5699E+00,.5699E+00,.5699E+00,.5640E+00,.5472E+00,.5298E+00,.5224E+00,.4287E+00,.2616E+00,.8925E-01,.7266E-02,& - .5987E+00,.5987E+00,.5987E+00,.5926E+00,.5754E+00,.5586E+00,.5514E+00,.4595E+00,.2883E+00,.1012E+00,.8247E-02,& - .6646E+00,.6646E+00,.6646E+00,.6585E+00,.6413E+00,.6265E+00,.6202E+00,.5355E+00,.3600E+00,.1368E+00,.1128E-01/ - data (((w0(ai,k,nh),ai= 3, 3),k=1,11),nh=0,99)/ & - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00/ - data (((w0(ai,k,nh),ai= 4, 4),k=1,11),nh=0,99)/ & - .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& - .8409E+00,.8409E+00,.8409E+00,.8696E+00,.9510E+00,.9638E+00,.9692E+00,.9620E+00,.8787E+00,.7359E+00,.2176E+00,& - .8423E+00,.8423E+00,.8423E+00,.8707E+00,.9516E+00,.9642E+00,.9695E+00,.9624E+00,.8798E+00,.7381E+00,.2158E+00,& - .8436E+00,.8436E+00,.8436E+00,.8719E+00,.9521E+00,.9645E+00,.9699E+00,.9627E+00,.8810E+00,.7402E+00,.2141E+00,& - .8450E+00,.8450E+00,.8450E+00,.8730E+00,.9527E+00,.9649E+00,.9702E+00,.9631E+00,.8821E+00,.7424E+00,.2123E+00,& - .8464E+00,.8464E+00,.8464E+00,.8742E+00,.9532E+00,.9653E+00,.9705E+00,.9635E+00,.8832E+00,.7445E+00,.2106E+00,& - .8476E+00,.8476E+00,.8476E+00,.8752E+00,.9537E+00,.9656E+00,.9708E+00,.9639E+00,.8843E+00,.7466E+00,.2098E+00,& - .8489E+00,.8489E+00,.8489E+00,.8763E+00,.9541E+00,.9660E+00,.9711E+00,.9642E+00,.8853E+00,.7487E+00,.2091E+00,& - .8501E+00,.8501E+00,.8501E+00,.8773E+00,.9546E+00,.9663E+00,.9713E+00,.9646E+00,.8864E+00,.7508E+00,.2083E+00,& - .8514E+00,.8514E+00,.8514E+00,.8784E+00,.9550E+00,.9667E+00,.9716E+00,.9649E+00,.8874E+00,.7529E+00,.2076E+00,& - .8526E+00,.8526E+00,.8526E+00,.8794E+00,.9555E+00,.9670E+00,.9719E+00,.9653E+00,.8885E+00,.7550E+00,.2068E+00,& - .8538E+00,.8538E+00,.8538E+00,.8804E+00,.9559E+00,.9673E+00,.9721E+00,.9656E+00,.8895E+00,.7570E+00,.2065E+00,& - .8550E+00,.8550E+00,.8550E+00,.8814E+00,.9563E+00,.9676E+00,.9724E+00,.9660E+00,.8905E+00,.7591E+00,.2062E+00,& - .8563E+00,.8563E+00,.8563E+00,.8824E+00,.9566E+00,.9678E+00,.9726E+00,.9663E+00,.8916E+00,.7611E+00,.2059E+00,& - .8575E+00,.8575E+00,.8575E+00,.8834E+00,.9570E+00,.9681E+00,.9729E+00,.9667E+00,.8926E+00,.7632E+00,.2056E+00,& - .8587E+00,.8587E+00,.8587E+00,.8844E+00,.9574E+00,.9684E+00,.9731E+00,.9670E+00,.8936E+00,.7652E+00,.2053E+00,& - .8599E+00,.8599E+00,.8599E+00,.8854E+00,.9578E+00,.9687E+00,.9734E+00,.9673E+00,.8946E+00,.7672E+00,.2052E+00,& - .8612E+00,.8612E+00,.8612E+00,.8864E+00,.9582E+00,.9690E+00,.9737E+00,.9676E+00,.8956E+00,.7691E+00,.2052E+00,& - .8624E+00,.8624E+00,.8624E+00,.8875E+00,.9586E+00,.9694E+00,.9740E+00,.9680E+00,.8965E+00,.7711E+00,.2051E+00,& - .8637E+00,.8637E+00,.8637E+00,.8885E+00,.9590E+00,.9697E+00,.9743E+00,.9683E+00,.8975E+00,.7730E+00,.2051E+00,& - .8649E+00,.8649E+00,.8649E+00,.8895E+00,.9594E+00,.9700E+00,.9746E+00,.9686E+00,.8985E+00,.7750E+00,.2050E+00,& - .8661E+00,.8661E+00,.8661E+00,.8905E+00,.9598E+00,.9703E+00,.9749E+00,.9689E+00,.8995E+00,.7769E+00,.2051E+00,& - .8673E+00,.8673E+00,.8673E+00,.8915E+00,.9602E+00,.9706E+00,.9751E+00,.9692E+00,.9004E+00,.7788E+00,.2052E+00,& - .8684E+00,.8684E+00,.8684E+00,.8924E+00,.9607E+00,.9710E+00,.9754E+00,.9695E+00,.9014E+00,.7807E+00,.2052E+00,& - .8696E+00,.8696E+00,.8696E+00,.8934E+00,.9611E+00,.9713E+00,.9756E+00,.9698E+00,.9023E+00,.7826E+00,.2053E+00,& - .8708E+00,.8708E+00,.8708E+00,.8944E+00,.9615E+00,.9716E+00,.9759E+00,.9701E+00,.9033E+00,.7845E+00,.2054E+00,& - .8719E+00,.8719E+00,.8719E+00,.8953E+00,.9619E+00,.9719E+00,.9761E+00,.9704E+00,.9042E+00,.7864E+00,.2056E+00,& - .8729E+00,.8729E+00,.8729E+00,.8962E+00,.9623E+00,.9722E+00,.9764E+00,.9707E+00,.9051E+00,.7882E+00,.2058E+00,& - .8740E+00,.8740E+00,.8740E+00,.8970E+00,.9627E+00,.9724E+00,.9766E+00,.9710E+00,.9060E+00,.7901E+00,.2060E+00,& - .8750E+00,.8750E+00,.8750E+00,.8979E+00,.9631E+00,.9727E+00,.9769E+00,.9713E+00,.9069E+00,.7919E+00,.2062E+00,& - .8761E+00,.8761E+00,.8761E+00,.8988E+00,.9635E+00,.9730E+00,.9771E+00,.9716E+00,.9078E+00,.7938E+00,.2064E+00,& - .8770E+00,.8770E+00,.8770E+00,.8996E+00,.9638E+00,.9732E+00,.9773E+00,.9719E+00,.9087E+00,.7956E+00,.2067E+00,& - .8780E+00,.8780E+00,.8780E+00,.9004E+00,.9641E+00,.9735E+00,.9775E+00,.9722E+00,.9096E+00,.7973E+00,.2069E+00,& - .8789E+00,.8789E+00,.8789E+00,.9011E+00,.9645E+00,.9737E+00,.9777E+00,.9724E+00,.9104E+00,.7991E+00,.2072E+00,& - .8799E+00,.8799E+00,.8799E+00,.9019E+00,.9648E+00,.9740E+00,.9779E+00,.9727E+00,.9113E+00,.8008E+00,.2074E+00,& - .8808E+00,.8808E+00,.8808E+00,.9027E+00,.9651E+00,.9742E+00,.9781E+00,.9730E+00,.9122E+00,.8026E+00,.2077E+00,& - .8818E+00,.8818E+00,.8818E+00,.9035E+00,.9654E+00,.9744E+00,.9783E+00,.9733E+00,.9130E+00,.8043E+00,.2080E+00,& - .8827E+00,.8827E+00,.8827E+00,.9043E+00,.9657E+00,.9746E+00,.9785E+00,.9735E+00,.9138E+00,.8060E+00,.2083E+00,& - .8837E+00,.8837E+00,.8837E+00,.9051E+00,.9660E+00,.9749E+00,.9786E+00,.9738E+00,.9147E+00,.8077E+00,.2087E+00,& - .8846E+00,.8846E+00,.8846E+00,.9059E+00,.9663E+00,.9751E+00,.9788E+00,.9740E+00,.9155E+00,.8094E+00,.2090E+00,& - .8856E+00,.8856E+00,.8856E+00,.9067E+00,.9666E+00,.9753E+00,.9790E+00,.9743E+00,.9163E+00,.8111E+00,.2093E+00,& - .8866E+00,.8866E+00,.8866E+00,.9075E+00,.9669E+00,.9755E+00,.9792E+00,.9745E+00,.9171E+00,.8127E+00,.2097E+00,& - .8875E+00,.8875E+00,.8875E+00,.9083E+00,.9672E+00,.9758E+00,.9794E+00,.9747E+00,.9179E+00,.8144E+00,.2101E+00,& - .8885E+00,.8885E+00,.8885E+00,.9090E+00,.9674E+00,.9760E+00,.9797E+00,.9750E+00,.9187E+00,.8160E+00,.2104E+00,& - .8894E+00,.8894E+00,.8894E+00,.9098E+00,.9677E+00,.9763E+00,.9799E+00,.9752E+00,.9195E+00,.8177E+00,.2108E+00,& - .8904E+00,.8904E+00,.8904E+00,.9106E+00,.9680E+00,.9765E+00,.9801E+00,.9754E+00,.9203E+00,.8193E+00,.2112E+00,& - .8913E+00,.8913E+00,.8913E+00,.9114E+00,.9683E+00,.9767E+00,.9803E+00,.9756E+00,.9210E+00,.8209E+00,.2116E+00,& - .8923E+00,.8923E+00,.8923E+00,.9122E+00,.9686E+00,.9770E+00,.9805E+00,.9759E+00,.9218E+00,.8224E+00,.2120E+00,& - .8932E+00,.8932E+00,.8932E+00,.9129E+00,.9690E+00,.9772E+00,.9807E+00,.9761E+00,.9225E+00,.8240E+00,.2124E+00,& - .8942E+00,.8942E+00,.8942E+00,.9137E+00,.9693E+00,.9775E+00,.9809E+00,.9764E+00,.9233E+00,.8255E+00,.2128E+00,& - .8951E+00,.8951E+00,.8951E+00,.9145E+00,.9696E+00,.9777E+00,.9811E+00,.9766E+00,.9240E+00,.8271E+00,.2132E+00,& - .8961E+00,.8961E+00,.8961E+00,.9153E+00,.9700E+00,.9779E+00,.9813E+00,.9769E+00,.9249E+00,.8289E+00,.2137E+00,& - .8970E+00,.8970E+00,.8970E+00,.9161E+00,.9703E+00,.9782E+00,.9815E+00,.9771E+00,.9258E+00,.8307E+00,.2142E+00,& - .8980E+00,.8980E+00,.8980E+00,.9169E+00,.9707E+00,.9784E+00,.9817E+00,.9774E+00,.9266E+00,.8325E+00,.2147E+00,& - .8989E+00,.8989E+00,.8989E+00,.9177E+00,.9710E+00,.9787E+00,.9819E+00,.9776E+00,.9275E+00,.8343E+00,.2152E+00,& - .8999E+00,.8999E+00,.8999E+00,.9185E+00,.9714E+00,.9789E+00,.9821E+00,.9779E+00,.9284E+00,.8361E+00,.2157E+00,& - .9007E+00,.9007E+00,.9007E+00,.9192E+00,.9717E+00,.9791E+00,.9823E+00,.9782E+00,.9292E+00,.8378E+00,.2162E+00,& - .9015E+00,.9015E+00,.9015E+00,.9199E+00,.9719E+00,.9793E+00,.9825E+00,.9784E+00,.9300E+00,.8395E+00,.2168E+00,& - .9024E+00,.9024E+00,.9024E+00,.9205E+00,.9722E+00,.9795E+00,.9826E+00,.9787E+00,.9308E+00,.8411E+00,.2173E+00,& - .9032E+00,.9032E+00,.9032E+00,.9212E+00,.9724E+00,.9797E+00,.9828E+00,.9789E+00,.9316E+00,.8428E+00,.2179E+00,& - .9040E+00,.9040E+00,.9040E+00,.9219E+00,.9727E+00,.9799E+00,.9830E+00,.9792E+00,.9324E+00,.8445E+00,.2184E+00,& - .9048E+00,.9048E+00,.9048E+00,.9225E+00,.9729E+00,.9801E+00,.9831E+00,.9794E+00,.9331E+00,.8458E+00,.2189E+00,& - .9056E+00,.9056E+00,.9056E+00,.9231E+00,.9731E+00,.9802E+00,.9833E+00,.9796E+00,.9337E+00,.8472E+00,.2194E+00,& - .9063E+00,.9063E+00,.9063E+00,.9238E+00,.9733E+00,.9804E+00,.9834E+00,.9797E+00,.9344E+00,.8485E+00,.2198E+00,& - .9071E+00,.9071E+00,.9071E+00,.9244E+00,.9735E+00,.9805E+00,.9836E+00,.9799E+00,.9350E+00,.8499E+00,.2203E+00,& - .9079E+00,.9079E+00,.9079E+00,.9250E+00,.9737E+00,.9807E+00,.9837E+00,.9801E+00,.9357E+00,.8512E+00,.2208E+00,& - .9088E+00,.9088E+00,.9088E+00,.9257E+00,.9740E+00,.9809E+00,.9839E+00,.9803E+00,.9364E+00,.8527E+00,.2214E+00,& - .9097E+00,.9097E+00,.9097E+00,.9265E+00,.9743E+00,.9811E+00,.9841E+00,.9805E+00,.9371E+00,.8542E+00,.2220E+00,& - .9106E+00,.9106E+00,.9106E+00,.9272E+00,.9745E+00,.9814E+00,.9842E+00,.9808E+00,.9379E+00,.8558E+00,.2225E+00,& - .9115E+00,.9115E+00,.9115E+00,.9280E+00,.9748E+00,.9816E+00,.9844E+00,.9810E+00,.9386E+00,.8573E+00,.2231E+00,& - .9124E+00,.9124E+00,.9124E+00,.9287E+00,.9751E+00,.9818E+00,.9846E+00,.9812E+00,.9393E+00,.8588E+00,.2237E+00,& - .9136E+00,.9136E+00,.9136E+00,.9297E+00,.9755E+00,.9821E+00,.9848E+00,.9815E+00,.9403E+00,.8609E+00,.2246E+00,& - .9147E+00,.9147E+00,.9147E+00,.9306E+00,.9759E+00,.9824E+00,.9851E+00,.9818E+00,.9413E+00,.8630E+00,.2255E+00,& - .9159E+00,.9159E+00,.9159E+00,.9316E+00,.9763E+00,.9826E+00,.9853E+00,.9821E+00,.9423E+00,.8652E+00,.2264E+00,& - .9170E+00,.9170E+00,.9170E+00,.9325E+00,.9767E+00,.9829E+00,.9856E+00,.9824E+00,.9433E+00,.8673E+00,.2273E+00,& - .9182E+00,.9182E+00,.9182E+00,.9335E+00,.9771E+00,.9832E+00,.9858E+00,.9827E+00,.9443E+00,.8694E+00,.2282E+00,& - .9195E+00,.9195E+00,.9195E+00,.9346E+00,.9775E+00,.9835E+00,.9861E+00,.9831E+00,.9455E+00,.8719E+00,.2294E+00,& - .9208E+00,.9208E+00,.9208E+00,.9357E+00,.9779E+00,.9838E+00,.9863E+00,.9834E+00,.9467E+00,.8745E+00,.2307E+00,& - .9222E+00,.9222E+00,.9222E+00,.9367E+00,.9783E+00,.9841E+00,.9866E+00,.9838E+00,.9479E+00,.8770E+00,.2319E+00,& - .9235E+00,.9235E+00,.9235E+00,.9378E+00,.9787E+00,.9844E+00,.9868E+00,.9841E+00,.9491E+00,.8796E+00,.2332E+00,& - .9248E+00,.9248E+00,.9248E+00,.9389E+00,.9791E+00,.9847E+00,.9871E+00,.9845E+00,.9503E+00,.8821E+00,.2344E+00,& - .9266E+00,.9266E+00,.9266E+00,.9404E+00,.9795E+00,.9850E+00,.9874E+00,.9849E+00,.9517E+00,.8851E+00,.2360E+00,& - .9283E+00,.9283E+00,.9283E+00,.9418E+00,.9801E+00,.9855E+00,.9878E+00,.9852E+00,.9530E+00,.8879E+00,.2376E+00,& - .9300E+00,.9300E+00,.9300E+00,.9432E+00,.9806E+00,.9858E+00,.9881E+00,.9856E+00,.9543E+00,.8907E+00,.2391E+00,& - .9315E+00,.9315E+00,.9315E+00,.9444E+00,.9811E+00,.9862E+00,.9884E+00,.9860E+00,.9556E+00,.8934E+00,.2408E+00,& - .9332E+00,.9332E+00,.9332E+00,.9458E+00,.9817E+00,.9867E+00,.9888E+00,.9864E+00,.9572E+00,.8969E+00,.2429E+00,& - .9348E+00,.9348E+00,.9348E+00,.9471E+00,.9823E+00,.9871E+00,.9891E+00,.9869E+00,.9588E+00,.9001E+00,.2450E+00,& - .9367E+00,.9367E+00,.9367E+00,.9487E+00,.9829E+00,.9875E+00,.9895E+00,.9875E+00,.9606E+00,.9041E+00,.2477E+00,& - .9391E+00,.9391E+00,.9391E+00,.9506E+00,.9834E+00,.9879E+00,.9898E+00,.9880E+00,.9623E+00,.9078E+00,.2504E+00,& - .9417E+00,.9417E+00,.9417E+00,.9527E+00,.9841E+00,.9885E+00,.9904E+00,.9886E+00,.9643E+00,.9121E+00,.2536E+00,& - .9441E+00,.9441E+00,.9441E+00,.9547E+00,.9849E+00,.9890E+00,.9908E+00,.9891E+00,.9662E+00,.9160E+00,.2568E+00,& - .9464E+00,.9464E+00,.9464E+00,.9566E+00,.9857E+00,.9896E+00,.9913E+00,.9897E+00,.9682E+00,.9204E+00,.2606E+00,& - .9487E+00,.9487E+00,.9487E+00,.9585E+00,.9864E+00,.9901E+00,.9917E+00,.9903E+00,.9703E+00,.9250E+00,.2648E+00,& - .9521E+00,.9521E+00,.9521E+00,.9612E+00,.9872E+00,.9908E+00,.9923E+00,.9911E+00,.9728E+00,.9302E+00,.2701E+00,& - .9551E+00,.9551E+00,.9551E+00,.9637E+00,.9882E+00,.9915E+00,.9929E+00,.9918E+00,.9751E+00,.9354E+00,.2760E+00,& - .9587E+00,.9587E+00,.9587E+00,.9667E+00,.9893E+00,.9922E+00,.9935E+00,.9926E+00,.9780E+00,.9416E+00,.2838E+00,& - .9630E+00,.9630E+00,.9630E+00,.9701E+00,.9905E+00,.9932E+00,.9943E+00,.9935E+00,.9811E+00,.9482E+00,.2936E+00,& - .9670E+00,.9670E+00,.9670E+00,.9733E+00,.9914E+00,.9939E+00,.9950E+00,.9944E+00,.9840E+00,.9546E+00,.3047E+00,& - .9723E+00,.9723E+00,.9723E+00,.9777E+00,.9930E+00,.9950E+00,.9958E+00,.9956E+00,.9876E+00,.9625E+00,.3222E+00,& - .9786E+00,.9786E+00,.9786E+00,.9828E+00,.9947E+00,.9962E+00,.9969E+00,.9968E+00,.9914E+00,.9712E+00,.3489E+00/ - data (((w0(ai,k,nh),ai= 5, 5),k=1,11),nh=0,99)/ & - .9998E+00,.9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9988E+00,.9902E+00,.9046E+00,& - .9998E+00,.9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9988E+00,.9903E+00,.8962E+00,& - .9998E+00,.9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9989E+00,.9903E+00,.8877E+00,& - .9998E+00,.9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9989E+00,.9904E+00,.8793E+00,& - .9998E+00,.9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9990E+00,.9904E+00,.8708E+00,& - .9998E+00,.9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9990E+00,.9905E+00,.8624E+00,& - .9998E+00,.9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9990E+00,.9906E+00,.8564E+00,& - .9998E+00,.9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9990E+00,.9906E+00,.8504E+00,& - .9998E+00,.9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9991E+00,.9907E+00,.8444E+00,& - .9998E+00,.9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9991E+00,.9907E+00,.8384E+00,& - .9998E+00,.9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9991E+00,.9908E+00,.8324E+00,& - .9998E+00,.9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9991E+00,.9909E+00,.8279E+00,& - .9998E+00,.9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9991E+00,.9909E+00,.8234E+00,& - .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9992E+00,.9910E+00,.8190E+00,& - .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9992E+00,.9910E+00,.8145E+00,& - .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9992E+00,.9911E+00,.8100E+00,& - .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9992E+00,.9911E+00,.8066E+00,& - .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9992E+00,.9912E+00,.8033E+00,& - .9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9993E+00,.9912E+00,.7999E+00,& - .9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9993E+00,.9913E+00,.7966E+00,& - .9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9993E+00,.9913E+00,.7932E+00,& - .9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9993E+00,.9913E+00,.7906E+00,& - .9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9993E+00,.9914E+00,.7881E+00,& - .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9993E+00,.9914E+00,.7855E+00,& - .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9993E+00,.9915E+00,.7830E+00,& - .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9993E+00,.9915E+00,.7804E+00,& - .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9993E+00,.9915E+00,.7784E+00,& - .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9993E+00,.9915E+00,.7765E+00,& - .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9994E+00,.9916E+00,.7745E+00,& - .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9994E+00,.9916E+00,.7726E+00,& - .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9994E+00,.9916E+00,.7706E+00,& - .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9994E+00,.9916E+00,.7691E+00,& - .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9994E+00,.9916E+00,.7676E+00,& - .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9994E+00,.9917E+00,.7661E+00,& - .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9994E+00,.9917E+00,.7646E+00,& - .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9994E+00,.9917E+00,.7631E+00,& - .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9994E+00,.9917E+00,.7620E+00,& - .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9994E+00,.9917E+00,.7608E+00,& - .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9995E+00,.9918E+00,.7597E+00,& - .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9995E+00,.9918E+00,.7585E+00,& - .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9995E+00,.9918E+00,.7574E+00,& - .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9995E+00,.9918E+00,.7565E+00,& - .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9995E+00,.9918E+00,.7557E+00,& - .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9995E+00,.9919E+00,.7548E+00,& - .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9995E+00,.9919E+00,.7540E+00,& - .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9995E+00,.9919E+00,.7531E+00,& - .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9995E+00,.9919E+00,.7525E+00,& - .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9995E+00,.9919E+00,.7518E+00,& - .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7512E+00,& - .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7505E+00,& - .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7499E+00,& - .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7495E+00,& - .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7491E+00,& - .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7487E+00,& - .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7483E+00,& - .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7479E+00,& - .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7476E+00,& - .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7473E+00,& - .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7471E+00,& - .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7468E+00,& - .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7465E+00,& - .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7463E+00,& - .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7461E+00,& - .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7458E+00,& - .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7456E+00,& - .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7454E+00,& - .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7452E+00,& - .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7451E+00,& - .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7449E+00,& - .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7448E+00,& - .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7446E+00,& - .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7445E+00,& - .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7444E+00,& - .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9997E+00,.9920E+00,.7442E+00,& - .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9997E+00,.9920E+00,.7441E+00,& - .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9997E+00,.9920E+00,.7440E+00,& - .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9997E+00,.9920E+00,.7440E+00,& - .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9997E+00,.9920E+00,.7440E+00,& - .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9997E+00,.9920E+00,.7440E+00,& - .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9997E+00,.9920E+00,.7440E+00,& - .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9997E+00,.9920E+00,.7440E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9997E+00,.9920E+00,.7440E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9997E+00,.9919E+00,.7442E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9997E+00,.9919E+00,.7444E+00,& - .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9997E+00,.9919E+00,.7446E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9997E+00,.9918E+00,.7449E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9997E+00,.9918E+00,.7452E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9997E+00,.9918E+00,.7457E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9997E+00,.9918E+00,.7462E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9997E+00,.9917E+00,.7468E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9997E+00,.9916E+00,.7476E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9998E+00,.9916E+00,.7484E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9998E+00,.9915E+00,.7496E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9998E+00,.9913E+00,.7508E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9998E+00,.9911E+00,.7524E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9998E+00,.9909E+00,.7545E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9998E+00,.9906E+00,.7569E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9998E+00,.9901E+00,.7602E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9998E+00,.9891E+00,.7637E+00,& - .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9998E+00,.9871E+00,.7676E+00/ - data (((w0(ai,k,nh),ai= 6, 6),k=1,11),nh=0,99)/ & - .9986E+00,.9986E+00,.9986E+00,.9988E+00,.9995E+00,.9998E+00,.9999E+00,.1000E+01,.9918E+00,.9603E+00,.9159E+00,& - .9986E+00,.9986E+00,.9986E+00,.9988E+00,.9995E+00,.9998E+00,.9999E+00,.1000E+01,.9919E+00,.9604E+00,.9077E+00,& - .9987E+00,.9987E+00,.9987E+00,.9989E+00,.9995E+00,.9998E+00,.9999E+00,.1000E+01,.9921E+00,.9606E+00,.8995E+00,& - .9987E+00,.9987E+00,.9987E+00,.9989E+00,.9996E+00,.9998E+00,.9999E+00,.1000E+01,.9922E+00,.9607E+00,.8913E+00,& - .9988E+00,.9988E+00,.9988E+00,.9990E+00,.9996E+00,.9998E+00,.9999E+00,.1000E+01,.9924E+00,.9609E+00,.8831E+00,& - .9988E+00,.9988E+00,.9988E+00,.9990E+00,.9996E+00,.9998E+00,.9999E+00,.1000E+01,.9925E+00,.9610E+00,.8749E+00,& - .9988E+00,.9988E+00,.9988E+00,.9990E+00,.9996E+00,.9998E+00,.9999E+00,.1000E+01,.9927E+00,.9613E+00,.8701E+00,& - .9988E+00,.9988E+00,.9988E+00,.9990E+00,.9996E+00,.9998E+00,.9999E+00,.1000E+01,.9928E+00,.9615E+00,.8652E+00,& - .9989E+00,.9989E+00,.9989E+00,.9991E+00,.9996E+00,.9999E+00,.1000E+01,.1000E+01,.9930E+00,.9618E+00,.8604E+00,& - .9989E+00,.9989E+00,.9989E+00,.9991E+00,.9996E+00,.9999E+00,.1000E+01,.1000E+01,.9931E+00,.9620E+00,.8555E+00,& - .9989E+00,.9989E+00,.9989E+00,.9991E+00,.9996E+00,.9999E+00,.1000E+01,.1000E+01,.9933E+00,.9623E+00,.8507E+00,& - .9989E+00,.9989E+00,.9989E+00,.9991E+00,.9996E+00,.9999E+00,.1000E+01,.1000E+01,.9935E+00,.9625E+00,.8471E+00,& - .9989E+00,.9989E+00,.9989E+00,.9991E+00,.9996E+00,.9999E+00,.1000E+01,.1000E+01,.9937E+00,.9627E+00,.8434E+00,& - .9990E+00,.9990E+00,.9990E+00,.9992E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.9939E+00,.9628E+00,.8398E+00,& - .9990E+00,.9990E+00,.9990E+00,.9992E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.9941E+00,.9630E+00,.8361E+00,& - .9990E+00,.9990E+00,.9990E+00,.9992E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.9943E+00,.9632E+00,.8325E+00,& - .9990E+00,.9990E+00,.9990E+00,.9992E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.9944E+00,.9632E+00,.8296E+00,& - .9990E+00,.9990E+00,.9990E+00,.9992E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.9945E+00,.9631E+00,.8268E+00,& - .9991E+00,.9991E+00,.9991E+00,.9993E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.9946E+00,.9631E+00,.8239E+00,& - .9991E+00,.9991E+00,.9991E+00,.9993E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.9947E+00,.9630E+00,.8211E+00,& - .9991E+00,.9991E+00,.9991E+00,.9993E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.9948E+00,.9630E+00,.8182E+00,& - .9991E+00,.9991E+00,.9991E+00,.9993E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.9949E+00,.9631E+00,.8158E+00,& - .9991E+00,.9991E+00,.9991E+00,.9993E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.9949E+00,.9631E+00,.8134E+00,& - .9992E+00,.9992E+00,.9992E+00,.9993E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.9950E+00,.9632E+00,.8111E+00,& - .9992E+00,.9992E+00,.9992E+00,.9993E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.9950E+00,.9632E+00,.8087E+00,& - .9992E+00,.9992E+00,.9992E+00,.9993E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.9951E+00,.9633E+00,.8063E+00,& - .9992E+00,.9992E+00,.9992E+00,.9993E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.9952E+00,.9633E+00,.8042E+00,& - .9992E+00,.9992E+00,.9992E+00,.9993E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.9953E+00,.9633E+00,.8022E+00,& - .9993E+00,.9993E+00,.9993E+00,.9994E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9954E+00,.9632E+00,.8001E+00,& - .9993E+00,.9993E+00,.9993E+00,.9994E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9955E+00,.9632E+00,.7981E+00,& - .9993E+00,.9993E+00,.9993E+00,.9994E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9956E+00,.9632E+00,.7960E+00,& - .9993E+00,.9993E+00,.9993E+00,.9994E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9956E+00,.9631E+00,.7943E+00,& - .9993E+00,.9993E+00,.9993E+00,.9994E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9957E+00,.9630E+00,.7926E+00,& - .9993E+00,.9993E+00,.9993E+00,.9994E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9957E+00,.9629E+00,.7908E+00,& - .9993E+00,.9993E+00,.9993E+00,.9994E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9958E+00,.9628E+00,.7891E+00,& - .9993E+00,.9993E+00,.9993E+00,.9994E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9958E+00,.9627E+00,.7874E+00,& - .9993E+00,.9993E+00,.9993E+00,.9994E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9959E+00,.9628E+00,.7858E+00,& - .9993E+00,.9993E+00,.9993E+00,.9994E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9960E+00,.9629E+00,.7842E+00,& - .9994E+00,.9994E+00,.9994E+00,.9995E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9960E+00,.9629E+00,.7825E+00,& - .9994E+00,.9994E+00,.9994E+00,.9995E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9961E+00,.9630E+00,.7809E+00,& - .9994E+00,.9994E+00,.9994E+00,.9995E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9962E+00,.9631E+00,.7793E+00,& - .9994E+00,.9994E+00,.9994E+00,.9995E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9963E+00,.9629E+00,.7779E+00,& - .9994E+00,.9994E+00,.9994E+00,.9995E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9963E+00,.9628E+00,.7765E+00,& - .9995E+00,.9995E+00,.9995E+00,.9996E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9964E+00,.9626E+00,.7751E+00,& - .9995E+00,.9995E+00,.9995E+00,.9996E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9964E+00,.9625E+00,.7737E+00,& - .9995E+00,.9995E+00,.9995E+00,.9996E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9965E+00,.9623E+00,.7723E+00,& - .9995E+00,.9995E+00,.9995E+00,.9996E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9965E+00,.9622E+00,.7710E+00,& - .9995E+00,.9995E+00,.9995E+00,.9996E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9966E+00,.9621E+00,.7697E+00,& - .9995E+00,.9995E+00,.9995E+00,.9996E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9966E+00,.9619E+00,.7684E+00,& - .9995E+00,.9995E+00,.9995E+00,.9996E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9967E+00,.9618E+00,.7671E+00,& - .9995E+00,.9995E+00,.9995E+00,.9996E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9967E+00,.9617E+00,.7658E+00,& - .9995E+00,.9995E+00,.9995E+00,.9996E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9967E+00,.9616E+00,.7648E+00,& - .9995E+00,.9995E+00,.9995E+00,.9996E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9968E+00,.9615E+00,.7639E+00,& - .9995E+00,.9995E+00,.9995E+00,.9996E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9968E+00,.9613E+00,.7629E+00,& - .9995E+00,.9995E+00,.9995E+00,.9996E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9969E+00,.9612E+00,.7620E+00,& - .9995E+00,.9995E+00,.9995E+00,.9996E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9969E+00,.9611E+00,.7610E+00,& - .9995E+00,.9995E+00,.9995E+00,.9996E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9969E+00,.9611E+00,.7601E+00,& - .9995E+00,.9995E+00,.9995E+00,.9996E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9969E+00,.9611E+00,.7592E+00,& - .9995E+00,.9995E+00,.9995E+00,.9996E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9970E+00,.9611E+00,.7584E+00,& - .9995E+00,.9995E+00,.9995E+00,.9996E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9970E+00,.9611E+00,.7575E+00,& - .9995E+00,.9995E+00,.9995E+00,.9996E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9970E+00,.9611E+00,.7566E+00,& - .9995E+00,.9995E+00,.9995E+00,.9996E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9971E+00,.9610E+00,.7557E+00,& - .9995E+00,.9995E+00,.9995E+00,.9996E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9971E+00,.9610E+00,.7549E+00,& - .9996E+00,.9996E+00,.9996E+00,.9997E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9972E+00,.9609E+00,.7540E+00,& - .9996E+00,.9996E+00,.9996E+00,.9997E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9972E+00,.9609E+00,.7532E+00,& - .9996E+00,.9996E+00,.9996E+00,.9997E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9973E+00,.9608E+00,.7523E+00,& - .9996E+00,.9996E+00,.9996E+00,.9997E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9973E+00,.9606E+00,.7515E+00,& - .9996E+00,.9996E+00,.9996E+00,.9997E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9973E+00,.9605E+00,.7507E+00,& - .9996E+00,.9996E+00,.9996E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9973E+00,.9603E+00,.7498E+00,& - .9996E+00,.9996E+00,.9996E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9973E+00,.9602E+00,.7490E+00,& - .9996E+00,.9996E+00,.9996E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9973E+00,.9600E+00,.7482E+00,& - .9996E+00,.9996E+00,.9996E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9974E+00,.9599E+00,.7471E+00,& - .9996E+00,.9996E+00,.9996E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9974E+00,.9598E+00,.7460E+00,& - .9996E+00,.9996E+00,.9996E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9975E+00,.9597E+00,.7449E+00,& - .9996E+00,.9996E+00,.9996E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9975E+00,.9596E+00,.7438E+00,& - .9996E+00,.9996E+00,.9996E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9976E+00,.9595E+00,.7427E+00,& - .9996E+00,.9996E+00,.9996E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9976E+00,.9591E+00,.7412E+00,& - .9996E+00,.9996E+00,.9996E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9976E+00,.9588E+00,.7396E+00,& - .9997E+00,.9997E+00,.9997E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9976E+00,.9584E+00,.7381E+00,& - .9997E+00,.9997E+00,.9997E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9976E+00,.9581E+00,.7365E+00,& - .9997E+00,.9997E+00,.9997E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9976E+00,.9577E+00,.7350E+00,& - .9997E+00,.9997E+00,.9997E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9976E+00,.9574E+00,.7336E+00,& - .9997E+00,.9997E+00,.9997E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9979E+00,.9570E+00,.7313E+00,& - .9997E+00,.9997E+00,.9997E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9979E+00,.9564E+00,.7292E+00,& - .9997E+00,.9997E+00,.9997E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9979E+00,.9557E+00,.7272E+00,& - .9997E+00,.9997E+00,.9997E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9979E+00,.9554E+00,.7246E+00,& - .9997E+00,.9997E+00,.9997E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9980E+00,.9551E+00,.7223E+00,& - .9997E+00,.9997E+00,.9997E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9980E+00,.9544E+00,.7200E+00,& - .9997E+00,.9997E+00,.9997E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9981E+00,.9541E+00,.7178E+00,& - .9997E+00,.9997E+00,.9997E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9983E+00,.9531E+00,.7152E+00,& - .9998E+00,.9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9983E+00,.9530E+00,.7121E+00,& - .9998E+00,.9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9982E+00,.9514E+00,.7086E+00,& - .9998E+00,.9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9984E+00,.9505E+00,.7050E+00,& - .9998E+00,.9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9985E+00,.9493E+00,.6998E+00,& - .9998E+00,.9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9985E+00,.9475E+00,.6943E+00,& - .9998E+00,.9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9986E+00,.9454E+00,.6877E+00,& - .9998E+00,.9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9987E+00,.9425E+00,.6790E+00,& - .9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9988E+00,.9382E+00,.6688E+00,& - .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9988E+00,.9321E+00,.6536E+00,& - .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9988E+00,.9191E+00,.6286E+00/ - data (((w0(ai,k,nh),ai= 7, 7),k=1,11),nh=0,99)/ & - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& - .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00/ - data (((w0(ai,k,nh),ai= 8, 8),k=1,11),nh=0,99)/ & - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& - .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00/ - data (((w0(ai,k,nh),ai= 9, 9),k=1,11),nh=0,99)/ & - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& - .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00/ - data (((w0(ai,k,nh),ai=10,10),k=1,11),nh=0,99)/ & - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& - .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00/ - data (((w0(ai,k,nh),ai=11,11),k=1,11),nh=0,99)/ & - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& - .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00/ - data (((w0(ai,k,nh),ai=12,12),k=1,11),nh=0,99)/ & - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& - .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00/ - data (((w0(ai,k,nh),ai=13,13),k=1,11),nh=0,99)/ & - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& - .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00/ - data (((w0(ai,k,nh),ai=14,14),k=1,11),nh=0,99)/ & - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& - .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00/ - data (((g(ai,k,nh),ai= 1, 1),k=1,11),nh=0,99)/ & - .7011E+00,.7011E+00,.7011E+00,.7029E+00,.7082E+00,.7144E+00,.7171E+00,.7149E+00,.6665E+00,.5632E+00,.2436E+00,& - .7031E+00,.7031E+00,.7031E+00,.7049E+00,.7103E+00,.7165E+00,.7192E+00,.7165E+00,.6684E+00,.5654E+00,.2458E+00,& - .7051E+00,.7051E+00,.7051E+00,.7069E+00,.7124E+00,.7186E+00,.7213E+00,.7182E+00,.6704E+00,.5675E+00,.2479E+00,& - .7070E+00,.7070E+00,.7070E+00,.7090E+00,.7144E+00,.7206E+00,.7233E+00,.7198E+00,.6723E+00,.5697E+00,.2501E+00,& - .7090E+00,.7090E+00,.7090E+00,.7110E+00,.7165E+00,.7227E+00,.7254E+00,.7215E+00,.6743E+00,.5718E+00,.2522E+00,& - .7110E+00,.7110E+00,.7110E+00,.7130E+00,.7186E+00,.7248E+00,.7275E+00,.7231E+00,.6762E+00,.5740E+00,.2544E+00,& - .7112E+00,.7112E+00,.7112E+00,.7136E+00,.7202E+00,.7263E+00,.7290E+00,.7246E+00,.6780E+00,.5760E+00,.2565E+00,& - .7114E+00,.7114E+00,.7114E+00,.7142E+00,.7219E+00,.7279E+00,.7305E+00,.7261E+00,.6798E+00,.5780E+00,.2586E+00,& - .7117E+00,.7117E+00,.7117E+00,.7147E+00,.7235E+00,.7294E+00,.7319E+00,.7277E+00,.6815E+00,.5801E+00,.2607E+00,& - .7119E+00,.7119E+00,.7119E+00,.7153E+00,.7252E+00,.7310E+00,.7334E+00,.7292E+00,.6833E+00,.5821E+00,.2628E+00,& - .7121E+00,.7121E+00,.7121E+00,.7159E+00,.7268E+00,.7325E+00,.7349E+00,.7307E+00,.6851E+00,.5841E+00,.2649E+00,& - .7143E+00,.7143E+00,.7143E+00,.7177E+00,.7274E+00,.7333E+00,.7358E+00,.7321E+00,.6867E+00,.5860E+00,.2669E+00,& - .7166E+00,.7166E+00,.7166E+00,.7195E+00,.7280E+00,.7342E+00,.7368E+00,.7335E+00,.6883E+00,.5879E+00,.2688E+00,& - .7188E+00,.7188E+00,.7188E+00,.7214E+00,.7286E+00,.7350E+00,.7377E+00,.7348E+00,.6898E+00,.5897E+00,.2708E+00,& - .7211E+00,.7211E+00,.7211E+00,.7232E+00,.7292E+00,.7359E+00,.7387E+00,.7362E+00,.6914E+00,.5916E+00,.2727E+00,& - .7233E+00,.7233E+00,.7233E+00,.7250E+00,.7298E+00,.7367E+00,.7396E+00,.7376E+00,.6930E+00,.5935E+00,.2747E+00,& - .7245E+00,.7245E+00,.7245E+00,.7265E+00,.7320E+00,.7386E+00,.7414E+00,.7387E+00,.6945E+00,.5953E+00,.2767E+00,& - .7258E+00,.7258E+00,.7258E+00,.7280E+00,.7342E+00,.7405E+00,.7432E+00,.7397E+00,.6959E+00,.5971E+00,.2786E+00,& - .7270E+00,.7270E+00,.7270E+00,.7294E+00,.7363E+00,.7424E+00,.7450E+00,.7408E+00,.6974E+00,.5990E+00,.2806E+00,& - .7283E+00,.7283E+00,.7283E+00,.7309E+00,.7385E+00,.7443E+00,.7468E+00,.7418E+00,.6988E+00,.6008E+00,.2825E+00,& - .7295E+00,.7295E+00,.7295E+00,.7324E+00,.7407E+00,.7462E+00,.7486E+00,.7429E+00,.7003E+00,.6026E+00,.2845E+00,& - .7300E+00,.7300E+00,.7300E+00,.7329E+00,.7412E+00,.7465E+00,.7489E+00,.7441E+00,.7017E+00,.6043E+00,.2864E+00,& - .7305E+00,.7305E+00,.7305E+00,.7334E+00,.7416E+00,.7469E+00,.7492E+00,.7454E+00,.7031E+00,.6061E+00,.2883E+00,& - .7310E+00,.7310E+00,.7310E+00,.7339E+00,.7421E+00,.7472E+00,.7494E+00,.7466E+00,.7045E+00,.6078E+00,.2903E+00,& - .7315E+00,.7315E+00,.7315E+00,.7344E+00,.7425E+00,.7476E+00,.7497E+00,.7479E+00,.7059E+00,.6096E+00,.2922E+00,& - .7320E+00,.7320E+00,.7320E+00,.7349E+00,.7430E+00,.7479E+00,.7500E+00,.7491E+00,.7073E+00,.6113E+00,.2941E+00,& - .7340E+00,.7340E+00,.7340E+00,.7366E+00,.7439E+00,.7490E+00,.7512E+00,.7500E+00,.7085E+00,.6129E+00,.2960E+00,& - .7359E+00,.7359E+00,.7359E+00,.7383E+00,.7449E+00,.7501E+00,.7524E+00,.7509E+00,.7098E+00,.6146E+00,.2978E+00,& - .7379E+00,.7379E+00,.7379E+00,.7399E+00,.7458E+00,.7513E+00,.7536E+00,.7517E+00,.7110E+00,.6162E+00,.2997E+00,& - .7398E+00,.7398E+00,.7398E+00,.7416E+00,.7468E+00,.7524E+00,.7548E+00,.7526E+00,.7123E+00,.6179E+00,.3015E+00,& - .7418E+00,.7418E+00,.7418E+00,.7433E+00,.7477E+00,.7535E+00,.7560E+00,.7535E+00,.7135E+00,.6195E+00,.3034E+00,& - .7417E+00,.7417E+00,.7417E+00,.7436E+00,.7491E+00,.7546E+00,.7569E+00,.7543E+00,.7147E+00,.6210E+00,.3052E+00,& - .7416E+00,.7416E+00,.7416E+00,.7439E+00,.7505E+00,.7557E+00,.7579E+00,.7550E+00,.7158E+00,.6226E+00,.3070E+00,& - .7416E+00,.7416E+00,.7416E+00,.7442E+00,.7518E+00,.7567E+00,.7588E+00,.7558E+00,.7170E+00,.6241E+00,.3088E+00,& - .7415E+00,.7415E+00,.7415E+00,.7445E+00,.7532E+00,.7578E+00,.7598E+00,.7565E+00,.7181E+00,.6257E+00,.3106E+00,& - .7414E+00,.7414E+00,.7414E+00,.7448E+00,.7546E+00,.7589E+00,.7607E+00,.7573E+00,.7193E+00,.6272E+00,.3124E+00,& - .7420E+00,.7420E+00,.7420E+00,.7452E+00,.7543E+00,.7587E+00,.7605E+00,.7582E+00,.7204E+00,.6286E+00,.3141E+00,& - .7427E+00,.7427E+00,.7427E+00,.7456E+00,.7540E+00,.7584E+00,.7603E+00,.7592E+00,.7214E+00,.6301E+00,.3158E+00,& - .7433E+00,.7433E+00,.7433E+00,.7460E+00,.7536E+00,.7582E+00,.7601E+00,.7601E+00,.7225E+00,.6315E+00,.3175E+00,& - .7440E+00,.7440E+00,.7440E+00,.7464E+00,.7533E+00,.7579E+00,.7599E+00,.7611E+00,.7235E+00,.6330E+00,.3192E+00,& - .7446E+00,.7446E+00,.7446E+00,.7468E+00,.7530E+00,.7577E+00,.7597E+00,.7620E+00,.7246E+00,.6344E+00,.3209E+00,& - .7460E+00,.7460E+00,.7460E+00,.7481E+00,.7541E+00,.7590E+00,.7610E+00,.7626E+00,.7256E+00,.6358E+00,.3226E+00,& - .7474E+00,.7474E+00,.7474E+00,.7494E+00,.7551E+00,.7602E+00,.7624E+00,.7631E+00,.7266E+00,.6372E+00,.3243E+00,& - .7489E+00,.7489E+00,.7489E+00,.7508E+00,.7562E+00,.7615E+00,.7637E+00,.7637E+00,.7275E+00,.6386E+00,.3261E+00,& - .7503E+00,.7503E+00,.7503E+00,.7521E+00,.7572E+00,.7627E+00,.7651E+00,.7642E+00,.7285E+00,.6400E+00,.3278E+00,& - .7517E+00,.7517E+00,.7517E+00,.7534E+00,.7583E+00,.7640E+00,.7664E+00,.7648E+00,.7295E+00,.6414E+00,.3295E+00,& - .7513E+00,.7513E+00,.7513E+00,.7533E+00,.7593E+00,.7647E+00,.7670E+00,.7654E+00,.7304E+00,.6427E+00,.3312E+00,& - .7509E+00,.7509E+00,.7509E+00,.7533E+00,.7603E+00,.7654E+00,.7675E+00,.7660E+00,.7313E+00,.6440E+00,.3328E+00,& - .7504E+00,.7504E+00,.7504E+00,.7532E+00,.7612E+00,.7660E+00,.7681E+00,.7665E+00,.7323E+00,.6454E+00,.3345E+00,& - .7500E+00,.7500E+00,.7500E+00,.7532E+00,.7622E+00,.7667E+00,.7686E+00,.7671E+00,.7332E+00,.6467E+00,.3361E+00,& - .7496E+00,.7496E+00,.7496E+00,.7531E+00,.7632E+00,.7674E+00,.7692E+00,.7677E+00,.7341E+00,.6480E+00,.3378E+00,& - .7499E+00,.7499E+00,.7499E+00,.7532E+00,.7628E+00,.7670E+00,.7688E+00,.7684E+00,.7349E+00,.6492E+00,.3393E+00,& - .7502E+00,.7502E+00,.7502E+00,.7533E+00,.7624E+00,.7666E+00,.7684E+00,.7691E+00,.7357E+00,.6504E+00,.3408E+00,& - .7504E+00,.7504E+00,.7504E+00,.7535E+00,.7621E+00,.7663E+00,.7681E+00,.7699E+00,.7366E+00,.6516E+00,.3423E+00,& - .7507E+00,.7507E+00,.7507E+00,.7536E+00,.7617E+00,.7659E+00,.7677E+00,.7706E+00,.7374E+00,.6528E+00,.3438E+00,& - .7510E+00,.7510E+00,.7510E+00,.7537E+00,.7613E+00,.7655E+00,.7673E+00,.7713E+00,.7382E+00,.6540E+00,.3453E+00,& - .7524E+00,.7524E+00,.7524E+00,.7548E+00,.7616E+00,.7663E+00,.7683E+00,.7717E+00,.7389E+00,.6551E+00,.3467E+00,& - .7538E+00,.7538E+00,.7538E+00,.7560E+00,.7620E+00,.7671E+00,.7693E+00,.7720E+00,.7396E+00,.6562E+00,.3481E+00,& - .7553E+00,.7553E+00,.7553E+00,.7571E+00,.7623E+00,.7679E+00,.7703E+00,.7724E+00,.7403E+00,.6572E+00,.3496E+00,& - .7567E+00,.7567E+00,.7567E+00,.7583E+00,.7627E+00,.7687E+00,.7713E+00,.7727E+00,.7410E+00,.6583E+00,.3510E+00,& - .7581E+00,.7581E+00,.7581E+00,.7594E+00,.7630E+00,.7695E+00,.7723E+00,.7731E+00,.7417E+00,.6594E+00,.3524E+00,& - .7575E+00,.7575E+00,.7575E+00,.7592E+00,.7642E+00,.7703E+00,.7729E+00,.7734E+00,.7424E+00,.6605E+00,.3538E+00,& - .7568E+00,.7568E+00,.7568E+00,.7591E+00,.7655E+00,.7711E+00,.7736E+00,.7738E+00,.7431E+00,.6616E+00,.3553E+00,& - .7562E+00,.7562E+00,.7562E+00,.7589E+00,.7667E+00,.7720E+00,.7742E+00,.7741E+00,.7437E+00,.6626E+00,.3567E+00,& - .7555E+00,.7555E+00,.7555E+00,.7588E+00,.7680E+00,.7728E+00,.7749E+00,.7745E+00,.7444E+00,.6637E+00,.3582E+00,& - .7549E+00,.7549E+00,.7549E+00,.7586E+00,.7692E+00,.7736E+00,.7755E+00,.7748E+00,.7451E+00,.6648E+00,.3596E+00,& - .7541E+00,.7541E+00,.7541E+00,.7579E+00,.7687E+00,.7733E+00,.7752E+00,.7754E+00,.7458E+00,.6658E+00,.3610E+00,& - .7533E+00,.7533E+00,.7533E+00,.7572E+00,.7682E+00,.7730E+00,.7750E+00,.7760E+00,.7465E+00,.6669E+00,.3624E+00,& - .7526E+00,.7526E+00,.7526E+00,.7565E+00,.7677E+00,.7726E+00,.7747E+00,.7765E+00,.7471E+00,.6679E+00,.3638E+00,& - .7518E+00,.7518E+00,.7518E+00,.7558E+00,.7672E+00,.7723E+00,.7745E+00,.7771E+00,.7478E+00,.6690E+00,.3652E+00,& - .7510E+00,.7510E+00,.7510E+00,.7551E+00,.7667E+00,.7720E+00,.7742E+00,.7777E+00,.7485E+00,.6700E+00,.3666E+00,& - .7534E+00,.7534E+00,.7534E+00,.7570E+00,.7672E+00,.7727E+00,.7750E+00,.7782E+00,.7495E+00,.6716E+00,.3688E+00,& - .7559E+00,.7559E+00,.7559E+00,.7590E+00,.7678E+00,.7734E+00,.7757E+00,.7787E+00,.7505E+00,.6732E+00,.3711E+00,& - .7583E+00,.7583E+00,.7583E+00,.7609E+00,.7683E+00,.7740E+00,.7765E+00,.7792E+00,.7515E+00,.6749E+00,.3733E+00,& - .7608E+00,.7608E+00,.7608E+00,.7629E+00,.7689E+00,.7747E+00,.7772E+00,.7797E+00,.7525E+00,.6765E+00,.3756E+00,& - .7632E+00,.7632E+00,.7632E+00,.7648E+00,.7694E+00,.7754E+00,.7780E+00,.7802E+00,.7535E+00,.6781E+00,.3778E+00,& - .7620E+00,.7620E+00,.7620E+00,.7641E+00,.7702E+00,.7757E+00,.7781E+00,.7807E+00,.7544E+00,.6796E+00,.3800E+00,& - .7608E+00,.7608E+00,.7608E+00,.7634E+00,.7710E+00,.7760E+00,.7781E+00,.7813E+00,.7553E+00,.6811E+00,.3822E+00,& - .7596E+00,.7596E+00,.7596E+00,.7628E+00,.7717E+00,.7762E+00,.7782E+00,.7818E+00,.7563E+00,.6827E+00,.3843E+00,& - .7584E+00,.7584E+00,.7584E+00,.7621E+00,.7725E+00,.7765E+00,.7782E+00,.7824E+00,.7572E+00,.6842E+00,.3865E+00,& - .7572E+00,.7572E+00,.7572E+00,.7614E+00,.7733E+00,.7768E+00,.7783E+00,.7829E+00,.7581E+00,.6857E+00,.3887E+00,& - .7552E+00,.7552E+00,.7552E+00,.7592E+00,.7706E+00,.7761E+00,.7784E+00,.7838E+00,.7591E+00,.6874E+00,.3911E+00,& - .7606E+00,.7606E+00,.7606E+00,.7634E+00,.7715E+00,.7757E+00,.7775E+00,.7845E+00,.7601E+00,.6890E+00,.3934E+00,& - .7636E+00,.7636E+00,.7636E+00,.7650E+00,.7691E+00,.7743E+00,.7765E+00,.7851E+00,.7610E+00,.6906E+00,.3957E+00,& - .7645E+00,.7645E+00,.7645E+00,.7659E+00,.7699E+00,.7765E+00,.7793E+00,.7852E+00,.7622E+00,.6928E+00,.3992E+00,& - .7663E+00,.7663E+00,.7663E+00,.7683E+00,.7739E+00,.7798E+00,.7823E+00,.7855E+00,.7635E+00,.6951E+00,.4025E+00,& - .7665E+00,.7665E+00,.7665E+00,.7688E+00,.7755E+00,.7815E+00,.7841E+00,.7858E+00,.7647E+00,.6972E+00,.4059E+00,& - .7644E+00,.7644E+00,.7644E+00,.7676E+00,.7768E+00,.7815E+00,.7835E+00,.7867E+00,.7663E+00,.7001E+00,.4103E+00,& - .7592E+00,.7592E+00,.7592E+00,.7629E+00,.7736E+00,.7788E+00,.7810E+00,.7884E+00,.7680E+00,.7029E+00,.4146E+00,& - .7668E+00,.7668E+00,.7668E+00,.7680E+00,.7713E+00,.7766E+00,.7789E+00,.7895E+00,.7698E+00,.7063E+00,.4199E+00,& - .7693E+00,.7693E+00,.7693E+00,.7709E+00,.7755E+00,.7820E+00,.7848E+00,.7896E+00,.7718E+00,.7102E+00,.4262E+00,& - .7647E+00,.7647E+00,.7647E+00,.7687E+00,.7799E+00,.7838E+00,.7855E+00,.7901E+00,.7736E+00,.7138E+00,.4323E+00,& - .7652E+00,.7652E+00,.7652E+00,.7679E+00,.7755E+00,.7807E+00,.7829E+00,.7924E+00,.7763E+00,.7186E+00,.4401E+00,& - .7724E+00,.7724E+00,.7724E+00,.7734E+00,.7764E+00,.7821E+00,.7846E+00,.7927E+00,.7784E+00,.7231E+00,.4478E+00,& - .7688E+00,.7688E+00,.7688E+00,.7717E+00,.7798E+00,.7846E+00,.7867E+00,.7929E+00,.7808E+00,.7283E+00,.4570E+00,& - .7733E+00,.7733E+00,.7733E+00,.7736E+00,.7745E+00,.7816E+00,.7847E+00,.7948E+00,.7842E+00,.7352E+00,.4693E+00,& - .7681E+00,.7681E+00,.7681E+00,.7717E+00,.7821E+00,.7839E+00,.7846E+00,.7960E+00,.7873E+00,.7421E+00,.4827E+00,& - .7732E+00,.7732E+00,.7732E+00,.7757E+00,.7829E+00,.7870E+00,.7888E+00,.7958E+00,.7906E+00,.7507E+00,.4999E+00,& - .7765E+00,.7765E+00,.7765E+00,.7782E+00,.7832E+00,.7873E+00,.7890E+00,.7969E+00,.7954E+00,.7626E+00,.5253E+00,& - .7815E+00,.7815E+00,.7815E+00,.7826E+00,.7857E+00,.7877E+00,.7886E+00,.7974E+00,.8010E+00,.7804E+00,.5681E+00/ - data (((g(ai,k,nh),ai= 2, 2),k=1,11),nh=0,99)/ & - .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& - .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& - .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& - .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& - .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& - .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& - .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& - .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& - .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& - .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& - .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& - .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& - .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& - .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& - .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& - .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& - .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& - .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& - .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& - .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& - .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& - .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& - .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& - .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& - .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& - .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& - .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& - .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& - .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& - .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& - .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& - .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& - .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& - .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& - .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& - .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& - .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& - .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& - .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& - .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& - .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& - .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& - .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& - .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& - .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& - .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& - .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& - .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& - .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& - .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& - .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& - .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& - .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& - .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& - .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& - .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& - .5035E+00,.5035E+00,.5035E+00,.4908E+00,.4546E+00,.4329E+00,.4235E+00,.3396E+00,.2338E+00,.1310E+00,.3332E-01,& - .5044E+00,.5044E+00,.5044E+00,.4917E+00,.4555E+00,.4337E+00,.4244E+00,.3403E+00,.2343E+00,.1312E+00,.3338E-01,& - .5053E+00,.5053E+00,.5053E+00,.4926E+00,.4563E+00,.4346E+00,.4252E+00,.3410E+00,.2347E+00,.1315E+00,.3343E-01,& - .5062E+00,.5062E+00,.5062E+00,.4935E+00,.4572E+00,.4354E+00,.4261E+00,.3417E+00,.2352E+00,.1317E+00,.3349E-01,& - .5071E+00,.5071E+00,.5071E+00,.4944E+00,.4581E+00,.4363E+00,.4269E+00,.3424E+00,.2357E+00,.1320E+00,.3355E-01,& - .5071E+00,.5071E+00,.5071E+00,.4944E+00,.4581E+00,.4363E+00,.4269E+00,.3424E+00,.2357E+00,.1320E+00,.3355E-01,& - .5071E+00,.5071E+00,.5071E+00,.4944E+00,.4581E+00,.4363E+00,.4269E+00,.3424E+00,.2357E+00,.1320E+00,.3355E-01,& - .5071E+00,.5071E+00,.5071E+00,.4944E+00,.4581E+00,.4363E+00,.4269E+00,.3424E+00,.2357E+00,.1320E+00,.3355E-01,& - .5071E+00,.5071E+00,.5071E+00,.4944E+00,.4581E+00,.4363E+00,.4269E+00,.3424E+00,.2357E+00,.1320E+00,.3355E-01,& - .5071E+00,.5071E+00,.5071E+00,.4944E+00,.4581E+00,.4363E+00,.4269E+00,.3424E+00,.2357E+00,.1320E+00,.3355E-01,& - .5097E+00,.5097E+00,.5097E+00,.4970E+00,.4607E+00,.4388E+00,.4294E+00,.3445E+00,.2371E+00,.1328E+00,.3373E-01,& - .5123E+00,.5123E+00,.5123E+00,.4996E+00,.4633E+00,.4413E+00,.4319E+00,.3465E+00,.2385E+00,.1336E+00,.3390E-01,& - .5149E+00,.5149E+00,.5149E+00,.5021E+00,.4658E+00,.4438E+00,.4343E+00,.3486E+00,.2400E+00,.1343E+00,.3408E-01,& - .5175E+00,.5175E+00,.5175E+00,.5047E+00,.4684E+00,.4463E+00,.4368E+00,.3506E+00,.2414E+00,.1351E+00,.3425E-01,& - .5201E+00,.5201E+00,.5201E+00,.5073E+00,.4710E+00,.4488E+00,.4393E+00,.3527E+00,.2428E+00,.1359E+00,.3443E-01,& - .5263E+00,.5263E+00,.5263E+00,.5136E+00,.4773E+00,.4550E+00,.4454E+00,.3579E+00,.2465E+00,.1379E+00,.3492E-01,& - .5326E+00,.5326E+00,.5326E+00,.5198E+00,.4836E+00,.4611E+00,.4515E+00,.3631E+00,.2502E+00,.1400E+00,.3540E-01,& - .5388E+00,.5388E+00,.5388E+00,.5261E+00,.4898E+00,.4673E+00,.4576E+00,.3682E+00,.2538E+00,.1420E+00,.3589E-01,& - .5451E+00,.5451E+00,.5451E+00,.5323E+00,.4961E+00,.4734E+00,.4637E+00,.3734E+00,.2575E+00,.1441E+00,.3637E-01,& - .5513E+00,.5513E+00,.5513E+00,.5386E+00,.5024E+00,.4796E+00,.4698E+00,.3786E+00,.2612E+00,.1461E+00,.3686E-01,& - .5579E+00,.5579E+00,.5579E+00,.5453E+00,.5092E+00,.4863E+00,.4765E+00,.3845E+00,.2656E+00,.1487E+00,.3751E-01,& - .5645E+00,.5645E+00,.5645E+00,.5519E+00,.5160E+00,.4930E+00,.4832E+00,.3904E+00,.2699E+00,.1513E+00,.3815E-01,& - .5712E+00,.5712E+00,.5712E+00,.5586E+00,.5227E+00,.4998E+00,.4899E+00,.3962E+00,.2743E+00,.1538E+00,.3880E-01,& - .5778E+00,.5778E+00,.5778E+00,.5652E+00,.5295E+00,.5065E+00,.4966E+00,.4021E+00,.2786E+00,.1564E+00,.3944E-01,& - .5844E+00,.5844E+00,.5844E+00,.5719E+00,.5363E+00,.5132E+00,.5033E+00,.4080E+00,.2830E+00,.1590E+00,.4009E-01,& - .5932E+00,.5932E+00,.5932E+00,.5808E+00,.5455E+00,.5224E+00,.5125E+00,.4162E+00,.2893E+00,.1628E+00,.4109E-01,& - .5988E+00,.5988E+00,.5988E+00,.5865E+00,.5514E+00,.5282E+00,.5183E+00,.4216E+00,.2935E+00,.1653E+00,.4178E-01,& - .6069E+00,.6069E+00,.6069E+00,.5947E+00,.5599E+00,.5368E+00,.5269E+00,.4294E+00,.2997E+00,.1691E+00,.4281E-01,& - .6120E+00,.6120E+00,.6120E+00,.5999E+00,.5653E+00,.5423E+00,.5324E+00,.4346E+00,.3037E+00,.1717E+00,.4352E-01,& - .6193E+00,.6193E+00,.6193E+00,.6073E+00,.5732E+00,.5502E+00,.5403E+00,.4421E+00,.3097E+00,.1755E+00,.4458E-01,& - .6262E+00,.6262E+00,.6262E+00,.6144E+00,.5807E+00,.5577E+00,.5479E+00,.4493E+00,.3156E+00,.1793E+00,.4565E-01,& - .6307E+00,.6307E+00,.6307E+00,.6189E+00,.5855E+00,.5627E+00,.5529E+00,.4540E+00,.3195E+00,.1818E+00,.4638E-01,& - .6370E+00,.6370E+00,.6370E+00,.6254E+00,.5924E+00,.5697E+00,.5600E+00,.4610E+00,.3253E+00,.1856E+00,.4749E-01,& - .6411E+00,.6411E+00,.6411E+00,.6296E+00,.5969E+00,.5743E+00,.5646E+00,.4655E+00,.3290E+00,.1881E+00,.4823E-01,& - .6469E+00,.6469E+00,.6469E+00,.6356E+00,.6034E+00,.5809E+00,.5713E+00,.4720E+00,.3347E+00,.1919E+00,.4935E-01,& - .6524E+00,.6524E+00,.6524E+00,.6412E+00,.6095E+00,.5872E+00,.5777E+00,.4785E+00,.3402E+00,.1956E+00,.5049E-01,& - .6577E+00,.6577E+00,.6577E+00,.6467E+00,.6154E+00,.5933E+00,.5838E+00,.4847E+00,.3456E+00,.1994E+00,.5163E-01,& - .6627E+00,.6627E+00,.6627E+00,.6519E+00,.6211E+00,.5991E+00,.5897E+00,.4907E+00,.3510E+00,.2031E+00,.5279E-01,& - .6689E+00,.6689E+00,.6689E+00,.6583E+00,.6282E+00,.6066E+00,.5973E+00,.4986E+00,.3580E+00,.2080E+00,.5434E-01,& - .6748E+00,.6748E+00,.6748E+00,.6645E+00,.6350E+00,.6136E+00,.6045E+00,.5061E+00,.3648E+00,.2129E+00,.5592E-01,& - .6816E+00,.6816E+00,.6816E+00,.6716E+00,.6430E+00,.6219E+00,.6129E+00,.5151E+00,.3732E+00,.2190E+00,.5791E-01,& - .6903E+00,.6903E+00,.6903E+00,.6807E+00,.6532E+00,.6327E+00,.6239E+00,.5271E+00,.3845E+00,.2273E+00,.6073E-01,& - .6991E+00,.6991E+00,.6991E+00,.6899E+00,.6638E+00,.6439E+00,.6354E+00,.5399E+00,.3969E+00,.2368E+00,.6400E-01,& - .7171E+00,.7171E+00,.7171E+00,.7090E+00,.6860E+00,.6677E+00,.6599E+00,.5683E+00,.4258E+00,.2598E+00,.7234E-01/ - data (((g(ai,k,nh),ai= 3, 3),k=1,11),nh=0,99)/ & - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00/ - data (((g(ai,k,nh),ai= 4, 4),k=1,11),nh=0,99)/ & - .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& - .6873E+00,.6873E+00,.6873E+00,.6795E+00,.6572E+00,.6484E+00,.6446E+00,.6066E+00,.5377E+00,.4255E+00,.1943E+00,& - .6884E+00,.6884E+00,.6884E+00,.6806E+00,.6586E+00,.6498E+00,.6461E+00,.6081E+00,.5390E+00,.4266E+00,.1949E+00,& - .6894E+00,.6894E+00,.6894E+00,.6818E+00,.6599E+00,.6513E+00,.6475E+00,.6095E+00,.5404E+00,.4278E+00,.1955E+00,& - .6905E+00,.6905E+00,.6905E+00,.6829E+00,.6613E+00,.6527E+00,.6490E+00,.6110E+00,.5417E+00,.4289E+00,.1961E+00,& - .6915E+00,.6915E+00,.6915E+00,.6840E+00,.6627E+00,.6542E+00,.6505E+00,.6125E+00,.5430E+00,.4300E+00,.1967E+00,& - .6925E+00,.6925E+00,.6925E+00,.6850E+00,.6640E+00,.6555E+00,.6518E+00,.6139E+00,.5443E+00,.4311E+00,.1973E+00,& - .6934E+00,.6934E+00,.6934E+00,.6861E+00,.6652E+00,.6567E+00,.6530E+00,.6153E+00,.5456E+00,.4322E+00,.1979E+00,& - .6944E+00,.6944E+00,.6944E+00,.6871E+00,.6665E+00,.6580E+00,.6543E+00,.6166E+00,.5468E+00,.4334E+00,.1986E+00,& - .6953E+00,.6953E+00,.6953E+00,.6882E+00,.6677E+00,.6592E+00,.6555E+00,.6180E+00,.5481E+00,.4345E+00,.1992E+00,& - .6963E+00,.6963E+00,.6963E+00,.6892E+00,.6690E+00,.6605E+00,.6568E+00,.6194E+00,.5494E+00,.4356E+00,.1998E+00,& - .6973E+00,.6973E+00,.6973E+00,.6902E+00,.6701E+00,.6617E+00,.6580E+00,.6207E+00,.5506E+00,.4367E+00,.2004E+00,& - .6982E+00,.6982E+00,.6982E+00,.6912E+00,.6712E+00,.6628E+00,.6592E+00,.6220E+00,.5518E+00,.4378E+00,.2010E+00,& - .6992E+00,.6992E+00,.6992E+00,.6922E+00,.6722E+00,.6640E+00,.6605E+00,.6233E+00,.5531E+00,.4388E+00,.2016E+00,& - .7001E+00,.7001E+00,.7001E+00,.6932E+00,.6733E+00,.6651E+00,.6617E+00,.6246E+00,.5543E+00,.4399E+00,.2022E+00,& - .7011E+00,.7011E+00,.7011E+00,.6942E+00,.6744E+00,.6663E+00,.6629E+00,.6259E+00,.5555E+00,.4410E+00,.2028E+00,& - .7020E+00,.7020E+00,.7020E+00,.6952E+00,.6756E+00,.6676E+00,.6642E+00,.6271E+00,.5567E+00,.4421E+00,.2034E+00,& - .7029E+00,.7029E+00,.7029E+00,.6961E+00,.6767E+00,.6689E+00,.6655E+00,.6283E+00,.5578E+00,.4431E+00,.2040E+00,& - .7038E+00,.7038E+00,.7038E+00,.6971E+00,.6779E+00,.6701E+00,.6669E+00,.6296E+00,.5590E+00,.4442E+00,.2047E+00,& - .7047E+00,.7047E+00,.7047E+00,.6980E+00,.6790E+00,.6714E+00,.6682E+00,.6308E+00,.5601E+00,.4452E+00,.2053E+00,& - .7056E+00,.7056E+00,.7056E+00,.6990E+00,.6802E+00,.6727E+00,.6695E+00,.6320E+00,.5613E+00,.4463E+00,.2059E+00,& - .7064E+00,.7064E+00,.7064E+00,.6999E+00,.6813E+00,.6739E+00,.6707E+00,.6332E+00,.5624E+00,.4473E+00,.2065E+00,& - .7072E+00,.7072E+00,.7072E+00,.7008E+00,.6825E+00,.6750E+00,.6718E+00,.6343E+00,.5636E+00,.4484E+00,.2071E+00,& - .7081E+00,.7081E+00,.7081E+00,.7017E+00,.6836E+00,.6762E+00,.6730E+00,.6355E+00,.5647E+00,.4494E+00,.2077E+00,& - .7089E+00,.7089E+00,.7089E+00,.7026E+00,.6848E+00,.6773E+00,.6741E+00,.6366E+00,.5659E+00,.4505E+00,.2083E+00,& - .7097E+00,.7097E+00,.7097E+00,.7035E+00,.6859E+00,.6785E+00,.6753E+00,.6378E+00,.5670E+00,.4515E+00,.2089E+00,& - .7104E+00,.7104E+00,.7104E+00,.7043E+00,.6869E+00,.6795E+00,.6764E+00,.6389E+00,.5681E+00,.4525E+00,.2095E+00,& - .7111E+00,.7111E+00,.7111E+00,.7051E+00,.6880E+00,.6806E+00,.6774E+00,.6401E+00,.5692E+00,.4535E+00,.2101E+00,& - .7119E+00,.7119E+00,.7119E+00,.7059E+00,.6890E+00,.6816E+00,.6785E+00,.6412E+00,.5703E+00,.4546E+00,.2108E+00,& - .7126E+00,.7126E+00,.7126E+00,.7067E+00,.6901E+00,.6827E+00,.6795E+00,.6424E+00,.5714E+00,.4556E+00,.2114E+00,& - .7133E+00,.7133E+00,.7133E+00,.7075E+00,.6911E+00,.6837E+00,.6806E+00,.6435E+00,.5725E+00,.4566E+00,.2120E+00,& - .7140E+00,.7140E+00,.7140E+00,.7082E+00,.6920E+00,.6846E+00,.6815E+00,.6446E+00,.5736E+00,.4576E+00,.2126E+00,& - .7147E+00,.7147E+00,.7147E+00,.7090E+00,.6929E+00,.6855E+00,.6824E+00,.6457E+00,.5746E+00,.4586E+00,.2132E+00,& - .7153E+00,.7153E+00,.7153E+00,.7097E+00,.6937E+00,.6864E+00,.6833E+00,.6468E+00,.5757E+00,.4597E+00,.2139E+00,& - .7160E+00,.7160E+00,.7160E+00,.7105E+00,.6946E+00,.6873E+00,.6842E+00,.6479E+00,.5767E+00,.4607E+00,.2145E+00,& - .7167E+00,.7167E+00,.7167E+00,.7112E+00,.6955E+00,.6882E+00,.6851E+00,.6490E+00,.5778E+00,.4617E+00,.2151E+00,& - .7174E+00,.7174E+00,.7174E+00,.7119E+00,.6962E+00,.6890E+00,.6860E+00,.6500E+00,.5788E+00,.4627E+00,.2157E+00,& - .7181E+00,.7181E+00,.7181E+00,.7126E+00,.6970E+00,.6898E+00,.6868E+00,.6510E+00,.5798E+00,.4637E+00,.2163E+00,& - .7189E+00,.7189E+00,.7189E+00,.7134E+00,.6977E+00,.6907E+00,.6877E+00,.6520E+00,.5809E+00,.4646E+00,.2170E+00,& - .7196E+00,.7196E+00,.7196E+00,.7141E+00,.6985E+00,.6915E+00,.6885E+00,.6530E+00,.5819E+00,.4656E+00,.2176E+00,& - .7203E+00,.7203E+00,.7203E+00,.7148E+00,.6992E+00,.6923E+00,.6894E+00,.6540E+00,.5829E+00,.4666E+00,.2182E+00,& - .7210E+00,.7210E+00,.7210E+00,.7155E+00,.7000E+00,.6933E+00,.6904E+00,.6549E+00,.5839E+00,.4676E+00,.2188E+00,& - .7217E+00,.7217E+00,.7217E+00,.7162E+00,.7009E+00,.6943E+00,.6915E+00,.6559E+00,.5849E+00,.4685E+00,.2194E+00,& - .7223E+00,.7223E+00,.7223E+00,.7170E+00,.7017E+00,.6952E+00,.6925E+00,.6568E+00,.5858E+00,.4695E+00,.2200E+00,& - .7230E+00,.7230E+00,.7230E+00,.7177E+00,.7026E+00,.6962E+00,.6936E+00,.6578E+00,.5868E+00,.4704E+00,.2206E+00,& - .7237E+00,.7237E+00,.7237E+00,.7184E+00,.7034E+00,.6972E+00,.6946E+00,.6587E+00,.5878E+00,.4714E+00,.2212E+00,& - .7243E+00,.7243E+00,.7243E+00,.7191E+00,.7043E+00,.6981E+00,.6955E+00,.6596E+00,.5888E+00,.4723E+00,.2218E+00,& - .7249E+00,.7249E+00,.7249E+00,.7198E+00,.7052E+00,.6990E+00,.6964E+00,.6605E+00,.5897E+00,.4733E+00,.2224E+00,& - .7255E+00,.7255E+00,.7255E+00,.7204E+00,.7062E+00,.7000E+00,.6973E+00,.6614E+00,.5907E+00,.4742E+00,.2231E+00,& - .7261E+00,.7261E+00,.7261E+00,.7211E+00,.7071E+00,.7009E+00,.6982E+00,.6623E+00,.5916E+00,.4752E+00,.2237E+00,& - .7267E+00,.7267E+00,.7267E+00,.7218E+00,.7080E+00,.7018E+00,.6991E+00,.6632E+00,.5926E+00,.4761E+00,.2243E+00,& - .7273E+00,.7273E+00,.7273E+00,.7225E+00,.7089E+00,.7027E+00,.7000E+00,.6643E+00,.5937E+00,.4772E+00,.2250E+00,& - .7279E+00,.7279E+00,.7279E+00,.7232E+00,.7099E+00,.7036E+00,.7009E+00,.6654E+00,.5948E+00,.4783E+00,.2258E+00,& - .7284E+00,.7284E+00,.7284E+00,.7238E+00,.7108E+00,.7046E+00,.7019E+00,.6664E+00,.5960E+00,.4795E+00,.2265E+00,& - .7290E+00,.7290E+00,.7290E+00,.7245E+00,.7118E+00,.7055E+00,.7028E+00,.6675E+00,.5971E+00,.4806E+00,.2273E+00,& - .7296E+00,.7296E+00,.7296E+00,.7252E+00,.7127E+00,.7064E+00,.7037E+00,.6686E+00,.5982E+00,.4817E+00,.2280E+00,& - .7302E+00,.7302E+00,.7302E+00,.7258E+00,.7134E+00,.7071E+00,.7045E+00,.6696E+00,.5993E+00,.4828E+00,.2287E+00,& - .7307E+00,.7307E+00,.7307E+00,.7264E+00,.7141E+00,.7079E+00,.7052E+00,.6706E+00,.6003E+00,.4839E+00,.2295E+00,& - .7313E+00,.7313E+00,.7313E+00,.7270E+00,.7148E+00,.7086E+00,.7060E+00,.6717E+00,.6014E+00,.4849E+00,.2302E+00,& - .7318E+00,.7318E+00,.7318E+00,.7276E+00,.7155E+00,.7094E+00,.7067E+00,.6727E+00,.6024E+00,.4860E+00,.2310E+00,& - .7324E+00,.7324E+00,.7324E+00,.7282E+00,.7162E+00,.7101E+00,.7075E+00,.6737E+00,.6035E+00,.4871E+00,.2317E+00,& - .7330E+00,.7330E+00,.7330E+00,.7287E+00,.7167E+00,.7107E+00,.7081E+00,.6745E+00,.6043E+00,.4880E+00,.2323E+00,& - .7336E+00,.7336E+00,.7336E+00,.7293E+00,.7171E+00,.7113E+00,.7088E+00,.6753E+00,.6052E+00,.4889E+00,.2329E+00,& - .7341E+00,.7341E+00,.7341E+00,.7298E+00,.7176E+00,.7118E+00,.7094E+00,.6760E+00,.6060E+00,.4897E+00,.2335E+00,& - .7347E+00,.7347E+00,.7347E+00,.7304E+00,.7180E+00,.7124E+00,.7101E+00,.6768E+00,.6069E+00,.4906E+00,.2341E+00,& - .7353E+00,.7353E+00,.7353E+00,.7309E+00,.7185E+00,.7130E+00,.7107E+00,.6776E+00,.6077E+00,.4915E+00,.2347E+00,& - .7359E+00,.7359E+00,.7359E+00,.7316E+00,.7194E+00,.7140E+00,.7117E+00,.6785E+00,.6087E+00,.4925E+00,.2354E+00,& - .7366E+00,.7366E+00,.7366E+00,.7323E+00,.7202E+00,.7149E+00,.7127E+00,.6793E+00,.6097E+00,.4936E+00,.2362E+00,& - .7372E+00,.7372E+00,.7372E+00,.7330E+00,.7211E+00,.7159E+00,.7136E+00,.6802E+00,.6106E+00,.4946E+00,.2369E+00,& - .7379E+00,.7379E+00,.7379E+00,.7337E+00,.7219E+00,.7168E+00,.7146E+00,.6810E+00,.6116E+00,.4957E+00,.2377E+00,& - .7385E+00,.7385E+00,.7385E+00,.7344E+00,.7228E+00,.7178E+00,.7156E+00,.6819E+00,.6126E+00,.4967E+00,.2384E+00,& - .7391E+00,.7391E+00,.7391E+00,.7352E+00,.7240E+00,.7189E+00,.7167E+00,.6832E+00,.6140E+00,.4982E+00,.2395E+00,& - .7397E+00,.7397E+00,.7397E+00,.7360E+00,.7252E+00,.7201E+00,.7178E+00,.6845E+00,.6154E+00,.4997E+00,.2406E+00,& - .7404E+00,.7404E+00,.7404E+00,.7367E+00,.7264E+00,.7212E+00,.7190E+00,.6857E+00,.6169E+00,.5012E+00,.2416E+00,& - .7410E+00,.7410E+00,.7410E+00,.7375E+00,.7276E+00,.7224E+00,.7201E+00,.6870E+00,.6183E+00,.5027E+00,.2427E+00,& - .7416E+00,.7416E+00,.7416E+00,.7383E+00,.7288E+00,.7235E+00,.7212E+00,.6883E+00,.6197E+00,.5042E+00,.2438E+00,& - .7425E+00,.7425E+00,.7425E+00,.7392E+00,.7296E+00,.7245E+00,.7223E+00,.6899E+00,.6215E+00,.5061E+00,.2452E+00,& - .7434E+00,.7434E+00,.7434E+00,.7401E+00,.7305E+00,.7255E+00,.7234E+00,.6915E+00,.6232E+00,.5080E+00,.2467E+00,& - .7443E+00,.7443E+00,.7443E+00,.7409E+00,.7313E+00,.7265E+00,.7244E+00,.6930E+00,.6250E+00,.5100E+00,.2481E+00,& - .7452E+00,.7452E+00,.7452E+00,.7418E+00,.7322E+00,.7275E+00,.7255E+00,.6946E+00,.6267E+00,.5119E+00,.2496E+00,& - .7461E+00,.7461E+00,.7461E+00,.7427E+00,.7330E+00,.7285E+00,.7266E+00,.6962E+00,.6285E+00,.5138E+00,.2510E+00,& - .7475E+00,.7475E+00,.7475E+00,.7440E+00,.7342E+00,.7304E+00,.7287E+00,.6979E+00,.6306E+00,.5161E+00,.2528E+00,& - .7487E+00,.7487E+00,.7487E+00,.7455E+00,.7362E+00,.7323E+00,.7307E+00,.6996E+00,.6327E+00,.5185E+00,.2546E+00,& - .7498E+00,.7498E+00,.7498E+00,.7468E+00,.7381E+00,.7340E+00,.7323E+00,.7013E+00,.6347E+00,.5208E+00,.2563E+00,& - .7504E+00,.7504E+00,.7504E+00,.7476E+00,.7396E+00,.7358E+00,.7341E+00,.7029E+00,.6367E+00,.5230E+00,.2581E+00,& - .7511E+00,.7511E+00,.7511E+00,.7487E+00,.7417E+00,.7374E+00,.7356E+00,.7052E+00,.6393E+00,.5260E+00,.2604E+00,& - .7516E+00,.7516E+00,.7516E+00,.7493E+00,.7428E+00,.7386E+00,.7368E+00,.7074E+00,.6419E+00,.5289E+00,.2627E+00,& - .7528E+00,.7528E+00,.7528E+00,.7505E+00,.7439E+00,.7399E+00,.7382E+00,.7101E+00,.6450E+00,.5325E+00,.2656E+00,& - .7550E+00,.7550E+00,.7550E+00,.7523E+00,.7447E+00,.7414E+00,.7400E+00,.7125E+00,.6480E+00,.5360E+00,.2685E+00,& - .7572E+00,.7572E+00,.7572E+00,.7547E+00,.7476E+00,.7447E+00,.7434E+00,.7152E+00,.6515E+00,.5401E+00,.2719E+00,& - .7582E+00,.7582E+00,.7582E+00,.7562E+00,.7504E+00,.7475E+00,.7462E+00,.7178E+00,.6548E+00,.5442E+00,.2753E+00,& - .7585E+00,.7585E+00,.7585E+00,.7570E+00,.7528E+00,.7494E+00,.7479E+00,.7210E+00,.6587E+00,.5488E+00,.2792E+00,& - .7599E+00,.7599E+00,.7599E+00,.7583E+00,.7537E+00,.7505E+00,.7492E+00,.7245E+00,.6629E+00,.5540E+00,.2837E+00,& - .7634E+00,.7634E+00,.7634E+00,.7615E+00,.7561E+00,.7542E+00,.7534E+00,.7280E+00,.6678E+00,.5601E+00,.2891E+00,& - .7641E+00,.7641E+00,.7641E+00,.7632E+00,.7605E+00,.7580E+00,.7569E+00,.7319E+00,.6731E+00,.5667E+00,.2950E+00,& - .7661E+00,.7661E+00,.7661E+00,.7648E+00,.7612E+00,.7593E+00,.7585E+00,.7372E+00,.6797E+00,.5753E+00,.3029E+00,& - .7685E+00,.7685E+00,.7685E+00,.7681E+00,.7671E+00,.7653E+00,.7646E+00,.7424E+00,.6874E+00,.5854E+00,.3127E+00,& - .7715E+00,.7715E+00,.7715E+00,.7704E+00,.7673E+00,.7672E+00,.7672E+00,.7483E+00,.6956E+00,.5964E+00,.3236E+00,& - .7737E+00,.7737E+00,.7737E+00,.7731E+00,.7715E+00,.7715E+00,.7715E+00,.7564E+00,.7073E+00,.6128E+00,.3406E+00,& - .7776E+00,.7776E+00,.7776E+00,.7780E+00,.7792E+00,.7799E+00,.7802E+00,.7657E+00,.7227E+00,.6356E+00,.3661E+00/ - data (((g(ai,k,nh),ai= 5, 5),k=1,11),nh=0,99)/ & - .7187E+00,.7187E+00,.7187E+00,.7166E+00,.7105E+00,.7031E+00,.6999E+00,.6976E+00,.7051E+00,.7042E+00,.5544E+00,& - .7215E+00,.7215E+00,.7215E+00,.7195E+00,.7137E+00,.7062E+00,.7030E+00,.7007E+00,.7082E+00,.7074E+00,.5579E+00,& - .7243E+00,.7243E+00,.7243E+00,.7224E+00,.7169E+00,.7094E+00,.7062E+00,.7038E+00,.7112E+00,.7106E+00,.5615E+00,& - .7270E+00,.7270E+00,.7270E+00,.7252E+00,.7200E+00,.7125E+00,.7093E+00,.7070E+00,.7143E+00,.7137E+00,.5650E+00,& - .7298E+00,.7298E+00,.7298E+00,.7281E+00,.7232E+00,.7157E+00,.7125E+00,.7101E+00,.7173E+00,.7169E+00,.5686E+00,& - .7326E+00,.7326E+00,.7326E+00,.7310E+00,.7264E+00,.7188E+00,.7156E+00,.7132E+00,.7204E+00,.7201E+00,.5721E+00,& - .7360E+00,.7360E+00,.7360E+00,.7340E+00,.7283E+00,.7209E+00,.7177E+00,.7153E+00,.7230E+00,.7229E+00,.5752E+00,& - .7393E+00,.7393E+00,.7393E+00,.7370E+00,.7302E+00,.7229E+00,.7198E+00,.7174E+00,.7256E+00,.7257E+00,.5782E+00,& - .7427E+00,.7427E+00,.7427E+00,.7399E+00,.7322E+00,.7250E+00,.7219E+00,.7194E+00,.7283E+00,.7284E+00,.5813E+00,& - .7460E+00,.7460E+00,.7460E+00,.7429E+00,.7341E+00,.7270E+00,.7240E+00,.7215E+00,.7309E+00,.7312E+00,.5843E+00,& - .7494E+00,.7494E+00,.7494E+00,.7459E+00,.7360E+00,.7291E+00,.7261E+00,.7236E+00,.7335E+00,.7340E+00,.5874E+00,& - .7493E+00,.7493E+00,.7493E+00,.7465E+00,.7385E+00,.7310E+00,.7277E+00,.7262E+00,.7354E+00,.7363E+00,.5902E+00,& - .7492E+00,.7492E+00,.7492E+00,.7470E+00,.7410E+00,.7328E+00,.7293E+00,.7289E+00,.7372E+00,.7386E+00,.5929E+00,& - .7490E+00,.7490E+00,.7490E+00,.7476E+00,.7436E+00,.7347E+00,.7308E+00,.7315E+00,.7391E+00,.7408E+00,.5957E+00,& - .7489E+00,.7489E+00,.7489E+00,.7481E+00,.7461E+00,.7365E+00,.7324E+00,.7342E+00,.7409E+00,.7431E+00,.5984E+00,& - .7488E+00,.7488E+00,.7488E+00,.7487E+00,.7486E+00,.7384E+00,.7340E+00,.7368E+00,.7428E+00,.7454E+00,.6012E+00,& - .7525E+00,.7525E+00,.7525E+00,.7518E+00,.7497E+00,.7405E+00,.7366E+00,.7377E+00,.7446E+00,.7473E+00,.6037E+00,& - .7563E+00,.7563E+00,.7563E+00,.7548E+00,.7507E+00,.7427E+00,.7392E+00,.7387E+00,.7464E+00,.7492E+00,.6062E+00,& - .7600E+00,.7600E+00,.7600E+00,.7579E+00,.7518E+00,.7448E+00,.7419E+00,.7396E+00,.7483E+00,.7511E+00,.6087E+00,& - .7638E+00,.7638E+00,.7638E+00,.7609E+00,.7528E+00,.7470E+00,.7445E+00,.7406E+00,.7501E+00,.7530E+00,.6112E+00,& - .7675E+00,.7675E+00,.7675E+00,.7640E+00,.7539E+00,.7491E+00,.7471E+00,.7415E+00,.7519E+00,.7549E+00,.6137E+00,& - .7670E+00,.7670E+00,.7670E+00,.7640E+00,.7554E+00,.7500E+00,.7477E+00,.7437E+00,.7532E+00,.7566E+00,.6160E+00,& - .7664E+00,.7664E+00,.7664E+00,.7640E+00,.7569E+00,.7508E+00,.7483E+00,.7459E+00,.7545E+00,.7583E+00,.6183E+00,& - .7659E+00,.7659E+00,.7659E+00,.7639E+00,.7583E+00,.7517E+00,.7488E+00,.7481E+00,.7559E+00,.7601E+00,.6207E+00,& - .7653E+00,.7653E+00,.7653E+00,.7639E+00,.7598E+00,.7525E+00,.7494E+00,.7503E+00,.7572E+00,.7618E+00,.6230E+00,& - .7648E+00,.7648E+00,.7648E+00,.7639E+00,.7613E+00,.7534E+00,.7500E+00,.7525E+00,.7585E+00,.7635E+00,.6253E+00,& - .7672E+00,.7672E+00,.7672E+00,.7659E+00,.7623E+00,.7552E+00,.7521E+00,.7528E+00,.7597E+00,.7649E+00,.6274E+00,& - .7696E+00,.7696E+00,.7696E+00,.7679E+00,.7633E+00,.7570E+00,.7543E+00,.7531E+00,.7609E+00,.7662E+00,.6295E+00,& - .7719E+00,.7719E+00,.7719E+00,.7700E+00,.7642E+00,.7588E+00,.7564E+00,.7535E+00,.7621E+00,.7676E+00,.6316E+00,& - .7743E+00,.7743E+00,.7743E+00,.7720E+00,.7652E+00,.7606E+00,.7586E+00,.7538E+00,.7633E+00,.7689E+00,.6337E+00,& - .7767E+00,.7767E+00,.7767E+00,.7740E+00,.7662E+00,.7624E+00,.7607E+00,.7541E+00,.7645E+00,.7703E+00,.6358E+00,& - .7752E+00,.7752E+00,.7752E+00,.7730E+00,.7665E+00,.7633E+00,.7618E+00,.7557E+00,.7654E+00,.7716E+00,.6378E+00,& - .7738E+00,.7738E+00,.7738E+00,.7720E+00,.7669E+00,.7642E+00,.7630E+00,.7573E+00,.7662E+00,.7728E+00,.6398E+00,& - .7723E+00,.7723E+00,.7723E+00,.7710E+00,.7672E+00,.7650E+00,.7641E+00,.7590E+00,.7671E+00,.7741E+00,.6418E+00,& - .7709E+00,.7709E+00,.7709E+00,.7700E+00,.7676E+00,.7659E+00,.7653E+00,.7606E+00,.7679E+00,.7753E+00,.6438E+00,& - .7694E+00,.7694E+00,.7694E+00,.7690E+00,.7679E+00,.7668E+00,.7664E+00,.7622E+00,.7688E+00,.7766E+00,.6458E+00,& - .7724E+00,.7724E+00,.7724E+00,.7717E+00,.7699E+00,.7683E+00,.7677E+00,.7625E+00,.7697E+00,.7776E+00,.6476E+00,& - .7754E+00,.7754E+00,.7754E+00,.7745E+00,.7718E+00,.7698E+00,.7690E+00,.7629E+00,.7706E+00,.7787E+00,.6494E+00,& - .7785E+00,.7785E+00,.7785E+00,.7772E+00,.7738E+00,.7713E+00,.7703E+00,.7632E+00,.7714E+00,.7797E+00,.6513E+00,& - .7815E+00,.7815E+00,.7815E+00,.7800E+00,.7757E+00,.7728E+00,.7716E+00,.7636E+00,.7723E+00,.7808E+00,.6531E+00,& - .7845E+00,.7845E+00,.7845E+00,.7827E+00,.7777E+00,.7743E+00,.7729E+00,.7639E+00,.7732E+00,.7818E+00,.6549E+00,& - .7844E+00,.7844E+00,.7844E+00,.7829E+00,.7788E+00,.7744E+00,.7725E+00,.7651E+00,.7739E+00,.7827E+00,.6566E+00,& - .7843E+00,.7843E+00,.7843E+00,.7831E+00,.7799E+00,.7745E+00,.7721E+00,.7663E+00,.7746E+00,.7836E+00,.6584E+00,& - .7842E+00,.7842E+00,.7842E+00,.7834E+00,.7811E+00,.7745E+00,.7718E+00,.7675E+00,.7752E+00,.7844E+00,.6601E+00,& - .7841E+00,.7841E+00,.7841E+00,.7836E+00,.7822E+00,.7746E+00,.7714E+00,.7687E+00,.7759E+00,.7853E+00,.6619E+00,& - .7840E+00,.7840E+00,.7840E+00,.7838E+00,.7833E+00,.7747E+00,.7710E+00,.7699E+00,.7766E+00,.7862E+00,.6636E+00,& - .7850E+00,.7850E+00,.7850E+00,.7845E+00,.7832E+00,.7755E+00,.7722E+00,.7707E+00,.7773E+00,.7871E+00,.6652E+00,& - .7859E+00,.7859E+00,.7859E+00,.7852E+00,.7831E+00,.7763E+00,.7734E+00,.7715E+00,.7780E+00,.7880E+00,.6668E+00,& - .7869E+00,.7869E+00,.7869E+00,.7859E+00,.7831E+00,.7772E+00,.7747E+00,.7723E+00,.7786E+00,.7890E+00,.6683E+00,& - .7878E+00,.7878E+00,.7878E+00,.7866E+00,.7830E+00,.7780E+00,.7759E+00,.7731E+00,.7793E+00,.7899E+00,.6699E+00,& - .7888E+00,.7888E+00,.7888E+00,.7873E+00,.7829E+00,.7788E+00,.7771E+00,.7739E+00,.7800E+00,.7908E+00,.6715E+00,& - .7892E+00,.7892E+00,.7892E+00,.7878E+00,.7838E+00,.7799E+00,.7783E+00,.7736E+00,.7801E+00,.7912E+00,.6728E+00,& - .7895E+00,.7895E+00,.7895E+00,.7883E+00,.7847E+00,.7810E+00,.7795E+00,.7733E+00,.7801E+00,.7916E+00,.6740E+00,& - .7899E+00,.7899E+00,.7899E+00,.7888E+00,.7856E+00,.7822E+00,.7807E+00,.7731E+00,.7802E+00,.7921E+00,.6753E+00,& - .7902E+00,.7902E+00,.7902E+00,.7893E+00,.7865E+00,.7833E+00,.7819E+00,.7728E+00,.7802E+00,.7925E+00,.6765E+00,& - .7906E+00,.7906E+00,.7906E+00,.7898E+00,.7874E+00,.7844E+00,.7831E+00,.7725E+00,.7803E+00,.7929E+00,.6778E+00,& - .7902E+00,.7902E+00,.7902E+00,.7894E+00,.7868E+00,.7844E+00,.7834E+00,.7737E+00,.7809E+00,.7936E+00,.6790E+00,& - .7898E+00,.7898E+00,.7898E+00,.7889E+00,.7862E+00,.7845E+00,.7837E+00,.7749E+00,.7815E+00,.7943E+00,.6802E+00,& - .7895E+00,.7895E+00,.7895E+00,.7885E+00,.7856E+00,.7845E+00,.7841E+00,.7761E+00,.7820E+00,.7949E+00,.6814E+00,& - .7891E+00,.7891E+00,.7891E+00,.7880E+00,.7850E+00,.7846E+00,.7844E+00,.7773E+00,.7826E+00,.7956E+00,.6826E+00,& - .7887E+00,.7887E+00,.7887E+00,.7876E+00,.7844E+00,.7846E+00,.7847E+00,.7785E+00,.7832E+00,.7963E+00,.6838E+00,& - .7903E+00,.7903E+00,.7903E+00,.7891E+00,.7858E+00,.7846E+00,.7841E+00,.7789E+00,.7836E+00,.7968E+00,.6849E+00,& - .7918E+00,.7918E+00,.7918E+00,.7906E+00,.7873E+00,.7847E+00,.7836E+00,.7793E+00,.7840E+00,.7973E+00,.6860E+00,& - .7934E+00,.7934E+00,.7934E+00,.7922E+00,.7887E+00,.7847E+00,.7830E+00,.7798E+00,.7844E+00,.7977E+00,.6872E+00,& - .7949E+00,.7949E+00,.7949E+00,.7937E+00,.7902E+00,.7848E+00,.7825E+00,.7802E+00,.7848E+00,.7982E+00,.6883E+00,& - .7965E+00,.7965E+00,.7965E+00,.7952E+00,.7916E+00,.7848E+00,.7819E+00,.7806E+00,.7852E+00,.7987E+00,.6894E+00,& - .7966E+00,.7966E+00,.7966E+00,.7955E+00,.7924E+00,.7860E+00,.7832E+00,.7802E+00,.7852E+00,.7990E+00,.6905E+00,& - .7968E+00,.7968E+00,.7968E+00,.7958E+00,.7933E+00,.7871E+00,.7845E+00,.7798E+00,.7851E+00,.7993E+00,.6916E+00,& - .7969E+00,.7969E+00,.7969E+00,.7962E+00,.7941E+00,.7883E+00,.7858E+00,.7793E+00,.7851E+00,.7995E+00,.6926E+00,& - .7971E+00,.7971E+00,.7971E+00,.7965E+00,.7950E+00,.7894E+00,.7871E+00,.7789E+00,.7850E+00,.7998E+00,.6937E+00,& - .7972E+00,.7972E+00,.7972E+00,.7968E+00,.7958E+00,.7906E+00,.7884E+00,.7785E+00,.7850E+00,.8001E+00,.6948E+00,& - .7978E+00,.7978E+00,.7978E+00,.7973E+00,.7958E+00,.7899E+00,.7874E+00,.7798E+00,.7856E+00,.8009E+00,.6964E+00,& - .7984E+00,.7984E+00,.7984E+00,.7977E+00,.7958E+00,.7892E+00,.7864E+00,.7811E+00,.7862E+00,.8017E+00,.6981E+00,& - .7991E+00,.7991E+00,.7991E+00,.7982E+00,.7957E+00,.7884E+00,.7853E+00,.7825E+00,.7869E+00,.8025E+00,.6997E+00,& - .7997E+00,.7997E+00,.7997E+00,.7986E+00,.7957E+00,.7877E+00,.7843E+00,.7838E+00,.7875E+00,.8033E+00,.7014E+00,& - .8003E+00,.8003E+00,.8003E+00,.7991E+00,.7957E+00,.7870E+00,.7833E+00,.7851E+00,.7881E+00,.8041E+00,.7030E+00,& - .8014E+00,.8014E+00,.8014E+00,.8000E+00,.7963E+00,.7896E+00,.7868E+00,.7850E+00,.7884E+00,.8046E+00,.7049E+00,& - .8024E+00,.8024E+00,.8024E+00,.8010E+00,.7969E+00,.7923E+00,.7903E+00,.7848E+00,.7887E+00,.8050E+00,.7067E+00,& - .8035E+00,.8035E+00,.8035E+00,.8019E+00,.7974E+00,.7949E+00,.7939E+00,.7847E+00,.7889E+00,.8055E+00,.7086E+00,& - .8045E+00,.8045E+00,.8045E+00,.8029E+00,.7980E+00,.7976E+00,.7974E+00,.7845E+00,.7892E+00,.8059E+00,.7104E+00,& - .8056E+00,.8056E+00,.8056E+00,.8038E+00,.7986E+00,.8002E+00,.8009E+00,.7844E+00,.7895E+00,.8064E+00,.7123E+00,& - .8054E+00,.8054E+00,.8054E+00,.8052E+00,.8047E+00,.7964E+00,.7928E+00,.7879E+00,.7901E+00,.8073E+00,.7144E+00,& - .8082E+00,.8082E+00,.8082E+00,.8068E+00,.8028E+00,.7968E+00,.7943E+00,.7902E+00,.7920E+00,.8089E+00,.7172E+00,& - .8115E+00,.8115E+00,.8115E+00,.8077E+00,.7968E+00,.7989E+00,.7998E+00,.7874E+00,.7920E+00,.8095E+00,.7196E+00,& - .8037E+00,.8037E+00,.8037E+00,.8036E+00,.8035E+00,.8021E+00,.8015E+00,.7885E+00,.7914E+00,.8094E+00,.7219E+00,& - .8088E+00,.8088E+00,.8088E+00,.8089E+00,.8091E+00,.8006E+00,.7970E+00,.7886E+00,.7905E+00,.8100E+00,.7253E+00,& - .8108E+00,.8108E+00,.8108E+00,.8100E+00,.8079E+00,.8016E+00,.7989E+00,.7911E+00,.7927E+00,.8108E+00,.7279E+00,& - .8149E+00,.8149E+00,.8149E+00,.8139E+00,.8109E+00,.8047E+00,.8021E+00,.7944E+00,.7943E+00,.8127E+00,.7310E+00,& - .8175E+00,.8175E+00,.8175E+00,.8140E+00,.8042E+00,.8027E+00,.8021E+00,.7922E+00,.7944E+00,.8133E+00,.7340E+00,& - .8158E+00,.8158E+00,.8158E+00,.8153E+00,.8140E+00,.8079E+00,.8053E+00,.7930E+00,.7942E+00,.8131E+00,.7373E+00,& - .8139E+00,.8139E+00,.8139E+00,.8147E+00,.8171E+00,.8079E+00,.8040E+00,.7960E+00,.7948E+00,.8140E+00,.7414E+00,& - .8127E+00,.8127E+00,.8127E+00,.8128E+00,.8132E+00,.8073E+00,.8048E+00,.7986E+00,.7946E+00,.8159E+00,.7453E+00,& - .8233E+00,.8233E+00,.8233E+00,.8223E+00,.8196E+00,.8158E+00,.8142E+00,.7974E+00,.7954E+00,.8155E+00,.7503E+00,& - .8162E+00,.8162E+00,.8162E+00,.8158E+00,.8148E+00,.8160E+00,.8165E+00,.8004E+00,.7956E+00,.8173E+00,.7554E+00,& - .8250E+00,.8250E+00,.8250E+00,.8239E+00,.8209E+00,.8182E+00,.8170E+00,.8006E+00,.7969E+00,.8173E+00,.7614E+00,& - .8261E+00,.8261E+00,.8261E+00,.8251E+00,.8222E+00,.8148E+00,.8117E+00,.8035E+00,.7967E+00,.8193E+00,.7688E+00,& - .8290E+00,.8290E+00,.8290E+00,.8269E+00,.8208E+00,.8184E+00,.8173E+00,.8068E+00,.7975E+00,.8194E+00,.7766E+00,& - .8321E+00,.8321E+00,.8321E+00,.8319E+00,.8315E+00,.8273E+00,.8255E+00,.8128E+00,.8012E+00,.8211E+00,.7877E+00,& - .8365E+00,.8365E+00,.8365E+00,.8361E+00,.8350E+00,.8308E+00,.8290E+00,.8160E+00,.8033E+00,.8199E+00,.7998E+00,& - .8394E+00,.8394E+00,.8394E+00,.8392E+00,.8388E+00,.8404E+00,.8411E+00,.8269E+00,.8056E+00,.8214E+00,.8187E+00/ - data (((g(ai,k,nh),ai= 6, 6),k=1,11),nh=0,99)/ & - .8058E+00,.8058E+00,.8058E+00,.8052E+00,.8034E+00,.8012E+00,.8003E+00,.7904E+00,.7734E+00,.7542E+00,.7236E+00,& - .8078E+00,.8078E+00,.8078E+00,.8072E+00,.8055E+00,.8030E+00,.8019E+00,.7924E+00,.7752E+00,.7568E+00,.7293E+00,& - .8098E+00,.8098E+00,.8098E+00,.8093E+00,.8077E+00,.8047E+00,.8035E+00,.7944E+00,.7770E+00,.7594E+00,.7349E+00,& - .8119E+00,.8119E+00,.8119E+00,.8113E+00,.8098E+00,.8065E+00,.8050E+00,.7964E+00,.7787E+00,.7621E+00,.7406E+00,& - .8139E+00,.8139E+00,.8139E+00,.8134E+00,.8120E+00,.8082E+00,.8066E+00,.7984E+00,.7805E+00,.7647E+00,.7462E+00,& - .8159E+00,.8159E+00,.8159E+00,.8154E+00,.8141E+00,.8100E+00,.8082E+00,.8004E+00,.7823E+00,.7673E+00,.7519E+00,& - .8170E+00,.8170E+00,.8170E+00,.8164E+00,.8149E+00,.8114E+00,.8099E+00,.8015E+00,.7840E+00,.7688E+00,.7560E+00,& - .8180E+00,.8180E+00,.8180E+00,.8174E+00,.8157E+00,.8128E+00,.8115E+00,.8026E+00,.7858E+00,.7704E+00,.7601E+00,& - .8191E+00,.8191E+00,.8191E+00,.8184E+00,.8164E+00,.8141E+00,.8132E+00,.8036E+00,.7875E+00,.7719E+00,.7643E+00,& - .8201E+00,.8201E+00,.8201E+00,.8194E+00,.8172E+00,.8155E+00,.8148E+00,.8047E+00,.7893E+00,.7735E+00,.7684E+00,& - .8212E+00,.8212E+00,.8212E+00,.8204E+00,.8180E+00,.8169E+00,.8165E+00,.8058E+00,.7910E+00,.7750E+00,.7725E+00,& - .8222E+00,.8222E+00,.8222E+00,.8215E+00,.8192E+00,.8182E+00,.8179E+00,.8076E+00,.7928E+00,.7774E+00,.7754E+00,& - .8233E+00,.8233E+00,.8233E+00,.8226E+00,.8205E+00,.8196E+00,.8192E+00,.8093E+00,.7946E+00,.7798E+00,.7784E+00,& - .8243E+00,.8243E+00,.8243E+00,.8236E+00,.8217E+00,.8209E+00,.8206E+00,.8111E+00,.7963E+00,.7822E+00,.7813E+00,& - .8254E+00,.8254E+00,.8254E+00,.8247E+00,.8230E+00,.8223E+00,.8219E+00,.8128E+00,.7981E+00,.7846E+00,.7843E+00,& - .8264E+00,.8264E+00,.8264E+00,.8258E+00,.8242E+00,.8236E+00,.8233E+00,.8146E+00,.7999E+00,.7870E+00,.7872E+00,& - .8272E+00,.8272E+00,.8272E+00,.8267E+00,.8254E+00,.8248E+00,.8245E+00,.8158E+00,.8010E+00,.7881E+00,.7898E+00,& - .8280E+00,.8280E+00,.8280E+00,.8276E+00,.8265E+00,.8260E+00,.8257E+00,.8171E+00,.8020E+00,.7892E+00,.7924E+00,& - .8288E+00,.8288E+00,.8288E+00,.8285E+00,.8277E+00,.8271E+00,.8269E+00,.8183E+00,.8031E+00,.7902E+00,.7949E+00,& - .8296E+00,.8296E+00,.8296E+00,.8294E+00,.8288E+00,.8283E+00,.8281E+00,.8196E+00,.8041E+00,.7913E+00,.7975E+00,& - .8304E+00,.8304E+00,.8304E+00,.8303E+00,.8300E+00,.8295E+00,.8293E+00,.8208E+00,.8052E+00,.7924E+00,.8001E+00,& - .8316E+00,.8316E+00,.8316E+00,.8314E+00,.8307E+00,.8306E+00,.8305E+00,.8219E+00,.8062E+00,.7939E+00,.8020E+00,& - .8328E+00,.8328E+00,.8328E+00,.8325E+00,.8315E+00,.8316E+00,.8317E+00,.8230E+00,.8071E+00,.7955E+00,.8039E+00,& - .8340E+00,.8340E+00,.8340E+00,.8335E+00,.8322E+00,.8327E+00,.8329E+00,.8242E+00,.8081E+00,.7970E+00,.8058E+00,& - .8352E+00,.8352E+00,.8352E+00,.8346E+00,.8330E+00,.8337E+00,.8341E+00,.8253E+00,.8090E+00,.7986E+00,.8077E+00,& - .8364E+00,.8364E+00,.8364E+00,.8357E+00,.8337E+00,.8348E+00,.8353E+00,.8264E+00,.8100E+00,.8001E+00,.8096E+00,& - .8369E+00,.8369E+00,.8369E+00,.8365E+00,.8352E+00,.8357E+00,.8359E+00,.8273E+00,.8108E+00,.8008E+00,.8113E+00,& - .8374E+00,.8374E+00,.8374E+00,.8372E+00,.8367E+00,.8365E+00,.8365E+00,.8282E+00,.8116E+00,.8016E+00,.8130E+00,& - .8379E+00,.8379E+00,.8379E+00,.8380E+00,.8381E+00,.8374E+00,.8370E+00,.8291E+00,.8124E+00,.8023E+00,.8147E+00,& - .8384E+00,.8384E+00,.8384E+00,.8387E+00,.8396E+00,.8382E+00,.8376E+00,.8300E+00,.8132E+00,.8031E+00,.8164E+00,& - .8389E+00,.8389E+00,.8389E+00,.8395E+00,.8411E+00,.8391E+00,.8382E+00,.8309E+00,.8140E+00,.8038E+00,.8181E+00,& - .8393E+00,.8393E+00,.8393E+00,.8397E+00,.8410E+00,.8390E+00,.8381E+00,.8313E+00,.8149E+00,.8047E+00,.8196E+00,& - .8396E+00,.8396E+00,.8396E+00,.8399E+00,.8408E+00,.8388E+00,.8380E+00,.8318E+00,.8159E+00,.8056E+00,.8212E+00,& - .8400E+00,.8400E+00,.8400E+00,.8402E+00,.8407E+00,.8387E+00,.8378E+00,.8322E+00,.8168E+00,.8064E+00,.8227E+00,& - .8403E+00,.8403E+00,.8403E+00,.8404E+00,.8405E+00,.8385E+00,.8377E+00,.8327E+00,.8178E+00,.8073E+00,.8243E+00,& - .8407E+00,.8407E+00,.8407E+00,.8406E+00,.8404E+00,.8384E+00,.8376E+00,.8331E+00,.8187E+00,.8082E+00,.8258E+00,& - .8411E+00,.8411E+00,.8411E+00,.8411E+00,.8410E+00,.8396E+00,.8390E+00,.8337E+00,.8196E+00,.8094E+00,.8269E+00,& - .8415E+00,.8415E+00,.8415E+00,.8416E+00,.8416E+00,.8407E+00,.8404E+00,.8343E+00,.8204E+00,.8106E+00,.8280E+00,& - .8420E+00,.8420E+00,.8420E+00,.8420E+00,.8423E+00,.8419E+00,.8417E+00,.8348E+00,.8213E+00,.8119E+00,.8290E+00,& - .8424E+00,.8424E+00,.8424E+00,.8425E+00,.8429E+00,.8430E+00,.8431E+00,.8354E+00,.8221E+00,.8131E+00,.8301E+00,& - .8428E+00,.8428E+00,.8428E+00,.8430E+00,.8435E+00,.8442E+00,.8445E+00,.8360E+00,.8230E+00,.8143E+00,.8312E+00,& - .8437E+00,.8437E+00,.8437E+00,.8438E+00,.8440E+00,.8446E+00,.8448E+00,.8368E+00,.8237E+00,.8149E+00,.8324E+00,& - .8446E+00,.8446E+00,.8446E+00,.8446E+00,.8446E+00,.8449E+00,.8451E+00,.8377E+00,.8244E+00,.8155E+00,.8335E+00,& - .8455E+00,.8455E+00,.8455E+00,.8454E+00,.8451E+00,.8453E+00,.8453E+00,.8385E+00,.8252E+00,.8160E+00,.8347E+00,& - .8464E+00,.8464E+00,.8464E+00,.8462E+00,.8457E+00,.8456E+00,.8456E+00,.8394E+00,.8259E+00,.8166E+00,.8358E+00,& - .8473E+00,.8473E+00,.8473E+00,.8470E+00,.8462E+00,.8460E+00,.8459E+00,.8402E+00,.8266E+00,.8172E+00,.8370E+00,& - .8475E+00,.8475E+00,.8475E+00,.8473E+00,.8470E+00,.8468E+00,.8468E+00,.8404E+00,.8271E+00,.8178E+00,.8378E+00,& - .8477E+00,.8477E+00,.8477E+00,.8477E+00,.8477E+00,.8477E+00,.8477E+00,.8407E+00,.8276E+00,.8185E+00,.8386E+00,& - .8479E+00,.8479E+00,.8479E+00,.8480E+00,.8485E+00,.8485E+00,.8485E+00,.8409E+00,.8282E+00,.8191E+00,.8395E+00,& - .8481E+00,.8481E+00,.8481E+00,.8484E+00,.8492E+00,.8494E+00,.8494E+00,.8412E+00,.8287E+00,.8198E+00,.8403E+00,& - .8483E+00,.8483E+00,.8483E+00,.8487E+00,.8500E+00,.8502E+00,.8503E+00,.8414E+00,.8292E+00,.8204E+00,.8411E+00,& - .8488E+00,.8488E+00,.8488E+00,.8491E+00,.8500E+00,.8498E+00,.8497E+00,.8420E+00,.8294E+00,.8207E+00,.8418E+00,& - .8493E+00,.8493E+00,.8493E+00,.8494E+00,.8499E+00,.8493E+00,.8491E+00,.8426E+00,.8297E+00,.8211E+00,.8426E+00,& - .8497E+00,.8497E+00,.8497E+00,.8498E+00,.8499E+00,.8489E+00,.8484E+00,.8433E+00,.8299E+00,.8214E+00,.8433E+00,& - .8502E+00,.8502E+00,.8502E+00,.8501E+00,.8498E+00,.8484E+00,.8478E+00,.8439E+00,.8302E+00,.8218E+00,.8441E+00,& - .8507E+00,.8507E+00,.8507E+00,.8505E+00,.8498E+00,.8480E+00,.8472E+00,.8445E+00,.8304E+00,.8221E+00,.8448E+00,& - .8503E+00,.8503E+00,.8503E+00,.8504E+00,.8504E+00,.8489E+00,.8482E+00,.8445E+00,.8310E+00,.8228E+00,.8455E+00,& - .8499E+00,.8499E+00,.8499E+00,.8502E+00,.8510E+00,.8498E+00,.8492E+00,.8446E+00,.8316E+00,.8235E+00,.8461E+00,& - .8495E+00,.8495E+00,.8495E+00,.8501E+00,.8517E+00,.8506E+00,.8502E+00,.8446E+00,.8323E+00,.8242E+00,.8468E+00,& - .8491E+00,.8491E+00,.8491E+00,.8499E+00,.8523E+00,.8515E+00,.8512E+00,.8447E+00,.8329E+00,.8249E+00,.8474E+00,& - .8487E+00,.8487E+00,.8487E+00,.8498E+00,.8529E+00,.8524E+00,.8522E+00,.8447E+00,.8335E+00,.8256E+00,.8481E+00,& - .8498E+00,.8498E+00,.8498E+00,.8506E+00,.8530E+00,.8525E+00,.8524E+00,.8455E+00,.8338E+00,.8257E+00,.8486E+00,& - .8508E+00,.8508E+00,.8508E+00,.8514E+00,.8530E+00,.8527E+00,.8525E+00,.8463E+00,.8340E+00,.8258E+00,.8491E+00,& - .8519E+00,.8519E+00,.8519E+00,.8522E+00,.8531E+00,.8528E+00,.8527E+00,.8470E+00,.8343E+00,.8260E+00,.8496E+00,& - .8529E+00,.8529E+00,.8529E+00,.8530E+00,.8531E+00,.8530E+00,.8528E+00,.8478E+00,.8345E+00,.8261E+00,.8501E+00,& - .8540E+00,.8540E+00,.8540E+00,.8538E+00,.8532E+00,.8531E+00,.8530E+00,.8486E+00,.8348E+00,.8262E+00,.8506E+00,& - .8532E+00,.8532E+00,.8532E+00,.8532E+00,.8533E+00,.8535E+00,.8535E+00,.8487E+00,.8350E+00,.8269E+00,.8511E+00,& - .8523E+00,.8523E+00,.8523E+00,.8526E+00,.8534E+00,.8538E+00,.8540E+00,.8488E+00,.8352E+00,.8275E+00,.8516E+00,& - .8515E+00,.8515E+00,.8515E+00,.8520E+00,.8534E+00,.8542E+00,.8544E+00,.8488E+00,.8355E+00,.8282E+00,.8522E+00,& - .8506E+00,.8506E+00,.8506E+00,.8514E+00,.8535E+00,.8545E+00,.8549E+00,.8489E+00,.8357E+00,.8288E+00,.8527E+00,& - .8498E+00,.8498E+00,.8498E+00,.8508E+00,.8536E+00,.8549E+00,.8554E+00,.8490E+00,.8359E+00,.8295E+00,.8532E+00,& - .8510E+00,.8510E+00,.8510E+00,.8515E+00,.8531E+00,.8547E+00,.8554E+00,.8494E+00,.8366E+00,.8301E+00,.8540E+00,& - .8521E+00,.8521E+00,.8521E+00,.8522E+00,.8526E+00,.8546E+00,.8554E+00,.8498E+00,.8372E+00,.8307E+00,.8548E+00,& - .8533E+00,.8533E+00,.8533E+00,.8530E+00,.8520E+00,.8544E+00,.8554E+00,.8501E+00,.8379E+00,.8313E+00,.8555E+00,& - .8544E+00,.8544E+00,.8544E+00,.8537E+00,.8515E+00,.8543E+00,.8554E+00,.8505E+00,.8385E+00,.8319E+00,.8563E+00,& - .8556E+00,.8556E+00,.8556E+00,.8544E+00,.8510E+00,.8541E+00,.8554E+00,.8509E+00,.8392E+00,.8325E+00,.8571E+00,& - .8560E+00,.8560E+00,.8560E+00,.8551E+00,.8524E+00,.8543E+00,.8551E+00,.8515E+00,.8395E+00,.8331E+00,.8579E+00,& - .8565E+00,.8565E+00,.8565E+00,.8558E+00,.8538E+00,.8546E+00,.8549E+00,.8521E+00,.8398E+00,.8337E+00,.8588E+00,& - .8569E+00,.8569E+00,.8569E+00,.8565E+00,.8552E+00,.8548E+00,.8546E+00,.8527E+00,.8401E+00,.8344E+00,.8596E+00,& - .8574E+00,.8574E+00,.8574E+00,.8572E+00,.8566E+00,.8551E+00,.8544E+00,.8533E+00,.8404E+00,.8350E+00,.8605E+00,& - .8578E+00,.8578E+00,.8578E+00,.8579E+00,.8580E+00,.8553E+00,.8541E+00,.8539E+00,.8407E+00,.8356E+00,.8613E+00,& - .8505E+00,.8505E+00,.8505E+00,.8530E+00,.8600E+00,.8570E+00,.8557E+00,.8537E+00,.8415E+00,.8363E+00,.8624E+00,& - .8563E+00,.8563E+00,.8563E+00,.8571E+00,.8592E+00,.8577E+00,.8571E+00,.8538E+00,.8423E+00,.8370E+00,.8636E+00,& - .8561E+00,.8561E+00,.8561E+00,.8570E+00,.8597E+00,.8600E+00,.8601E+00,.8532E+00,.8447E+00,.8380E+00,.8650E+00,& - .8571E+00,.8571E+00,.8571E+00,.8579E+00,.8602E+00,.8576E+00,.8565E+00,.8549E+00,.8457E+00,.8377E+00,.8662E+00,& - .8596E+00,.8596E+00,.8596E+00,.8590E+00,.8574E+00,.8552E+00,.8542E+00,.8548E+00,.8448E+00,.8393E+00,.8670E+00,& - .8578E+00,.8578E+00,.8578E+00,.8587E+00,.8612E+00,.8587E+00,.8577E+00,.8569E+00,.8449E+00,.8413E+00,.8684E+00,& - .8598E+00,.8598E+00,.8598E+00,.8601E+00,.8608E+00,.8619E+00,.8623E+00,.8568E+00,.8478E+00,.8405E+00,.8698E+00,& - .8596E+00,.8596E+00,.8596E+00,.8598E+00,.8603E+00,.8618E+00,.8625E+00,.8574E+00,.8495E+00,.8444E+00,.8712E+00,& - .8590E+00,.8590E+00,.8590E+00,.8593E+00,.8601E+00,.8627E+00,.8638E+00,.8579E+00,.8501E+00,.8445E+00,.8726E+00,& - .8596E+00,.8596E+00,.8596E+00,.8606E+00,.8634E+00,.8633E+00,.8633E+00,.8585E+00,.8510E+00,.8465E+00,.8737E+00,& - .8616E+00,.8616E+00,.8616E+00,.8621E+00,.8637E+00,.8642E+00,.8644E+00,.8607E+00,.8489E+00,.8452E+00,.8757E+00,& - .8604E+00,.8604E+00,.8604E+00,.8613E+00,.8640E+00,.8646E+00,.8649E+00,.8598E+00,.8523E+00,.8481E+00,.8776E+00,& - .8635E+00,.8635E+00,.8635E+00,.8635E+00,.8634E+00,.8635E+00,.8635E+00,.8614E+00,.8541E+00,.8509E+00,.8798E+00,& - .8641E+00,.8641E+00,.8641E+00,.8642E+00,.8644E+00,.8657E+00,.8662E+00,.8633E+00,.8555E+00,.8543E+00,.8828E+00,& - .8640E+00,.8640E+00,.8640E+00,.8641E+00,.8644E+00,.8655E+00,.8659E+00,.8638E+00,.8554E+00,.8557E+00,.8856E+00,& - .8650E+00,.8650E+00,.8650E+00,.8653E+00,.8663E+00,.8658E+00,.8656E+00,.8655E+00,.8586E+00,.8593E+00,.8897E+00,& - .8634E+00,.8634E+00,.8634E+00,.8644E+00,.8674E+00,.8673E+00,.8672E+00,.8665E+00,.8606E+00,.8616E+00,.8945E+00,& - .8667E+00,.8667E+00,.8667E+00,.8672E+00,.8688E+00,.8705E+00,.8712E+00,.8693E+00,.8631E+00,.8689E+00,.9015E+00,& - .8681E+00,.8681E+00,.8681E+00,.8689E+00,.8712E+00,.8727E+00,.8733E+00,.8724E+00,.8678E+00,.8764E+00,.9133E+00/ - data (((g(ai,k,nh),ai= 7, 7),k=1,11),nh=0,99)/ & - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& - .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00/ - data (((g(ai,k,nh),ai= 8, 8),k=1,11),nh=0,99)/ & - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& - .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00/ - data (((g(ai,k,nh),ai= 9, 9),k=1,11),nh=0,99)/ & - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& - .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00/ - data (((g(ai,k,nh),ai=10,10),k=1,11),nh=0,99)/ & - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& - .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00/ - data (((g(ai,k,nh),ai=11,11),k=1,11),nh=0,99)/ & - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& - .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00/ - data (((g(ai,k,nh),ai=12,12),k=1,11),nh=0,99)/ & - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& - .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00/ - data (((g(ai,k,nh),ai=13,13),k=1,11),nh=0,99)/ & - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& - .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00/ - data (((g(ai,k,nh),ai=14,14),k=1,11),nh=0,99)/ & - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& - .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00/ + data (((Bex(ai,k,nh),ai= 1, 1),k=1,11),nh=0,99)/ & + .5144E+01,.5144E+01,.5144E+01,.5081E+01,.4901E+01,.4655E+01,.4549E+01,.3187E+01,.1517E+01,.4026E+00,.2845E+00,& + .5227E+01,.5227E+01,.5227E+01,.5165E+01,.4988E+01,.4739E+01,.4632E+01,.3251E+01,.1552E+01,.4136E+00,.2877E+00,& + .5310E+01,.5310E+01,.5310E+01,.5249E+01,.5074E+01,.4823E+01,.4715E+01,.3315E+01,.1587E+01,.4246E+00,.2909E+00,& + .5393E+01,.5393E+01,.5393E+01,.5332E+01,.5161E+01,.4906E+01,.4797E+01,.3379E+01,.1622E+01,.4357E+00,.2940E+00,& + .5476E+01,.5476E+01,.5476E+01,.5416E+01,.5247E+01,.4990E+01,.4880E+01,.3443E+01,.1657E+01,.4467E+00,.2972E+00,& + .5559E+01,.5559E+01,.5559E+01,.5500E+01,.5334E+01,.5074E+01,.4963E+01,.3507E+01,.1692E+01,.4577E+00,.3004E+00,& + .5657E+01,.5657E+01,.5657E+01,.5595E+01,.5418E+01,.5157E+01,.5045E+01,.3577E+01,.1730E+01,.4700E+00,.3038E+00,& + .5755E+01,.5755E+01,.5755E+01,.5689E+01,.5502E+01,.5239E+01,.5127E+01,.3647E+01,.1769E+01,.4824E+00,.3072E+00,& + .5854E+01,.5854E+01,.5854E+01,.5784E+01,.5587E+01,.5322E+01,.5208E+01,.3716E+01,.1807E+01,.4947E+00,.3106E+00,& + .5952E+01,.5952E+01,.5952E+01,.5878E+01,.5671E+01,.5404E+01,.5290E+01,.3786E+01,.1846E+01,.5071E+00,.3140E+00,& + .6050E+01,.6050E+01,.6050E+01,.5973E+01,.5755E+01,.5487E+01,.5372E+01,.3856E+01,.1884E+01,.5194E+00,.3174E+00,& + .6137E+01,.6137E+01,.6137E+01,.6063E+01,.5855E+01,.5584E+01,.5468E+01,.3926E+01,.1924E+01,.5326E+00,.3209E+00,& + .6224E+01,.6224E+01,.6224E+01,.6154E+01,.5955E+01,.5681E+01,.5564E+01,.3996E+01,.1964E+01,.5458E+00,.3244E+00,& + .6311E+01,.6311E+01,.6311E+01,.6244E+01,.6056E+01,.5778E+01,.5659E+01,.4067E+01,.2005E+01,.5590E+00,.3278E+00,& + .6398E+01,.6398E+01,.6398E+01,.6335E+01,.6156E+01,.5875E+01,.5755E+01,.4137E+01,.2045E+01,.5722E+00,.3313E+00,& + .6485E+01,.6485E+01,.6485E+01,.6425E+01,.6256E+01,.5972E+01,.5851E+01,.4207E+01,.2085E+01,.5854E+00,.3348E+00,& + .6572E+01,.6572E+01,.6572E+01,.6512E+01,.6345E+01,.6060E+01,.5939E+01,.4286E+01,.2130E+01,.6005E+00,.3387E+00,& + .6659E+01,.6659E+01,.6659E+01,.6600E+01,.6433E+01,.6148E+01,.6027E+01,.4366E+01,.2176E+01,.6156E+00,.3426E+00,& + .6745E+01,.6745E+01,.6745E+01,.6687E+01,.6522E+01,.6237E+01,.6114E+01,.4445E+01,.2221E+01,.6307E+00,.3464E+00,& + .6832E+01,.6832E+01,.6832E+01,.6775E+01,.6610E+01,.6325E+01,.6202E+01,.4525E+01,.2267E+01,.6458E+00,.3503E+00,& + .6919E+01,.6919E+01,.6919E+01,.6862E+01,.6699E+01,.6413E+01,.6290E+01,.4604E+01,.2312E+01,.6609E+00,.3542E+00,& + .7036E+01,.7036E+01,.7036E+01,.6974E+01,.6796E+01,.6512E+01,.6391E+01,.4687E+01,.2361E+01,.6776E+00,.3584E+00,& + .7153E+01,.7153E+01,.7153E+01,.7085E+01,.6893E+01,.6612E+01,.6491E+01,.4771E+01,.2410E+01,.6943E+00,.3625E+00,& + .7269E+01,.7269E+01,.7269E+01,.7197E+01,.6989E+01,.6711E+01,.6592E+01,.4854E+01,.2459E+01,.7110E+00,.3667E+00,& + .7386E+01,.7386E+01,.7386E+01,.7308E+01,.7086E+01,.6811E+01,.6692E+01,.4938E+01,.2508E+01,.7277E+00,.3708E+00,& + .7503E+01,.7503E+01,.7503E+01,.7420E+01,.7183E+01,.6910E+01,.6793E+01,.5021E+01,.2557E+01,.7444E+00,.3750E+00,& + .7593E+01,.7593E+01,.7593E+01,.7518E+01,.7301E+01,.7023E+01,.6904E+01,.5109E+01,.2610E+01,.7627E+00,.3795E+00,& + .7684E+01,.7684E+01,.7684E+01,.7615E+01,.7419E+01,.7136E+01,.7015E+01,.5196E+01,.2663E+01,.7810E+00,.3840E+00,& + .7774E+01,.7774E+01,.7774E+01,.7713E+01,.7537E+01,.7250E+01,.7126E+01,.5284E+01,.2715E+01,.7994E+00,.3885E+00,& + .7865E+01,.7865E+01,.7865E+01,.7810E+01,.7655E+01,.7363E+01,.7237E+01,.5371E+01,.2768E+01,.8177E+00,.3930E+00,& + .7955E+01,.7955E+01,.7955E+01,.7908E+01,.7773E+01,.7476E+01,.7348E+01,.5459E+01,.2821E+01,.8360E+00,.3975E+00,& + .8057E+01,.8057E+01,.8057E+01,.8008E+01,.7868E+01,.7573E+01,.7447E+01,.5555E+01,.2878E+01,.8560E+00,.4023E+00,& + .8159E+01,.8159E+01,.8159E+01,.8108E+01,.7963E+01,.7671E+01,.7545E+01,.5650E+01,.2935E+01,.8761E+00,.4072E+00,& + .8260E+01,.8260E+01,.8260E+01,.8208E+01,.8058E+01,.7768E+01,.7644E+01,.5746E+01,.2992E+01,.8961E+00,.4120E+00,& + .8362E+01,.8362E+01,.8362E+01,.8308E+01,.8153E+01,.7866E+01,.7742E+01,.5841E+01,.3049E+01,.9162E+00,.4169E+00,& + .8464E+01,.8464E+01,.8464E+01,.8408E+01,.8248E+01,.7963E+01,.7841E+01,.5937E+01,.3106E+01,.9362E+00,.4217E+00,& + .8591E+01,.8591E+01,.8591E+01,.8531E+01,.8360E+01,.8079E+01,.7958E+01,.6030E+01,.3165E+01,.9574E+00,.4267E+00,& + .8718E+01,.8718E+01,.8718E+01,.8654E+01,.8473E+01,.8195E+01,.8076E+01,.6123E+01,.3224E+01,.9785E+00,.4318E+00,& + .8845E+01,.8845E+01,.8845E+01,.8778E+01,.8585E+01,.8311E+01,.8193E+01,.6217E+01,.3282E+01,.9997E+00,.4368E+00,& + .8972E+01,.8972E+01,.8972E+01,.8901E+01,.8698E+01,.8427E+01,.8311E+01,.6310E+01,.3341E+01,.1021E+01,.4419E+00,& + .9099E+01,.9099E+01,.9099E+01,.9024E+01,.8810E+01,.8543E+01,.8428E+01,.6403E+01,.3400E+01,.1042E+01,.4469E+00,& + .9194E+01,.9194E+01,.9194E+01,.9128E+01,.8939E+01,.8665E+01,.8547E+01,.6506E+01,.3465E+01,.1066E+01,.4525E+00,& + .9289E+01,.9289E+01,.9289E+01,.9232E+01,.9068E+01,.8787E+01,.8667E+01,.6609E+01,.3530E+01,.1089E+01,.4581E+00,& + .9385E+01,.9385E+01,.9385E+01,.9336E+01,.9196E+01,.8910E+01,.8786E+01,.6712E+01,.3595E+01,.1113E+01,.4637E+00,& + .9480E+01,.9480E+01,.9480E+01,.9440E+01,.9325E+01,.9032E+01,.8906E+01,.6815E+01,.3660E+01,.1136E+01,.4693E+00,& + .9575E+01,.9575E+01,.9575E+01,.9544E+01,.9454E+01,.9154E+01,.9025E+01,.6918E+01,.3725E+01,.1160E+01,.4749E+00,& + .9688E+01,.9688E+01,.9688E+01,.9655E+01,.9557E+01,.9261E+01,.9134E+01,.7029E+01,.3795E+01,.1186E+01,.4809E+00,& + .9801E+01,.9801E+01,.9801E+01,.9766E+01,.9659E+01,.9368E+01,.9242E+01,.7140E+01,.3864E+01,.1212E+01,.4870E+00,& + .9914E+01,.9914E+01,.9914E+01,.9878E+01,.9762E+01,.9474E+01,.9351E+01,.7251E+01,.3934E+01,.1237E+01,.4930E+00,& + .1003E+02,.1003E+02,.1003E+02,.9989E+01,.9864E+01,.9581E+01,.9459E+01,.7362E+01,.4003E+01,.1263E+01,.4991E+00,& + .1014E+02,.1014E+02,.1014E+02,.1010E+02,.9967E+01,.9688E+01,.9568E+01,.7473E+01,.4073E+01,.1289E+01,.5051E+00,& + .1028E+02,.1028E+02,.1028E+02,.1023E+02,.1008E+02,.9812E+01,.9694E+01,.7576E+01,.4141E+01,.1315E+01,.5111E+00,& + .1042E+02,.1042E+02,.1042E+02,.1036E+02,.1020E+02,.9937E+01,.9821E+01,.7679E+01,.4209E+01,.1341E+01,.5172E+00,& + .1056E+02,.1056E+02,.1056E+02,.1050E+02,.1032E+02,.1006E+02,.9947E+01,.7781E+01,.4278E+01,.1366E+01,.5232E+00,& + .1070E+02,.1070E+02,.1070E+02,.1063E+02,.1043E+02,.1019E+02,.1007E+02,.7884E+01,.4346E+01,.1392E+01,.5293E+00,& + .1084E+02,.1084E+02,.1084E+02,.1076E+02,.1055E+02,.1031E+02,.1020E+02,.7987E+01,.4414E+01,.1418E+01,.5353E+00,& + .1093E+02,.1093E+02,.1093E+02,.1086E+02,.1069E+02,.1044E+02,.1032E+02,.8091E+01,.4484E+01,.1445E+01,.5415E+00,& + .1102E+02,.1102E+02,.1102E+02,.1097E+02,.1083E+02,.1057E+02,.1045E+02,.8196E+01,.4553E+01,.1472E+01,.5477E+00,& + .1111E+02,.1111E+02,.1111E+02,.1107E+02,.1096E+02,.1069E+02,.1057E+02,.8300E+01,.4623E+01,.1498E+01,.5539E+00,& + .1120E+02,.1120E+02,.1120E+02,.1118E+02,.1110E+02,.1082E+02,.1070E+02,.8405E+01,.4692E+01,.1525E+01,.5601E+00,& + .1129E+02,.1129E+02,.1129E+02,.1128E+02,.1124E+02,.1095E+02,.1082E+02,.8509E+01,.4762E+01,.1552E+01,.5663E+00,& + .1140E+02,.1140E+02,.1140E+02,.1139E+02,.1134E+02,.1105E+02,.1093E+02,.8625E+01,.4838E+01,.1582E+01,.5732E+00,& + .1151E+02,.1151E+02,.1151E+02,.1149E+02,.1144E+02,.1116E+02,.1103E+02,.8741E+01,.4915E+01,.1612E+01,.5801E+00,& + .1161E+02,.1161E+02,.1161E+02,.1160E+02,.1154E+02,.1126E+02,.1114E+02,.8858E+01,.4991E+01,.1641E+01,.5869E+00,& + .1172E+02,.1172E+02,.1172E+02,.1170E+02,.1164E+02,.1137E+02,.1124E+02,.8974E+01,.5068E+01,.1671E+01,.5938E+00,& + .1183E+02,.1183E+02,.1183E+02,.1181E+02,.1174E+02,.1147E+02,.1135E+02,.9090E+01,.5144E+01,.1701E+01,.6007E+00,& + .1198E+02,.1198E+02,.1198E+02,.1195E+02,.1186E+02,.1159E+02,.1147E+02,.9208E+01,.5224E+01,.1733E+01,.6080E+00,& + .1213E+02,.1213E+02,.1213E+02,.1209E+02,.1198E+02,.1171E+02,.1160E+02,.9327E+01,.5304E+01,.1764E+01,.6153E+00,& + .1229E+02,.1229E+02,.1229E+02,.1224E+02,.1209E+02,.1184E+02,.1172E+02,.9445E+01,.5384E+01,.1796E+01,.6227E+00,& + .1244E+02,.1244E+02,.1244E+02,.1238E+02,.1221E+02,.1196E+02,.1185E+02,.9564E+01,.5464E+01,.1827E+01,.6300E+00,& + .1259E+02,.1259E+02,.1259E+02,.1252E+02,.1233E+02,.1208E+02,.1197E+02,.9682E+01,.5544E+01,.1859E+01,.6373E+00,& + .1277E+02,.1277E+02,.1277E+02,.1271E+02,.1257E+02,.1232E+02,.1221E+02,.9884E+01,.5686E+01,.1916E+01,.6506E+00,& + .1294E+02,.1294E+02,.1294E+02,.1291E+02,.1281E+02,.1256E+02,.1245E+02,.1009E+02,.5829E+01,.1974E+01,.6639E+00,& + .1312E+02,.1312E+02,.1312E+02,.1310E+02,.1306E+02,.1279E+02,.1268E+02,.1029E+02,.5971E+01,.2031E+01,.6772E+00,& + .1329E+02,.1329E+02,.1329E+02,.1330E+02,.1330E+02,.1303E+02,.1292E+02,.1049E+02,.6114E+01,.2089E+01,.6905E+00,& + .1347E+02,.1347E+02,.1347E+02,.1349E+02,.1354E+02,.1327E+02,.1316E+02,.1069E+02,.6256E+01,.2146E+01,.7038E+00,& + .1369E+02,.1369E+02,.1369E+02,.1370E+02,.1372E+02,.1347E+02,.1336E+02,.1091E+02,.6410E+01,.2210E+01,.7185E+00,& + .1390E+02,.1390E+02,.1390E+02,.1391E+02,.1391E+02,.1367E+02,.1357E+02,.1114E+02,.6564E+01,.2274E+01,.7333E+00,& + .1412E+02,.1412E+02,.1412E+02,.1411E+02,.1409E+02,.1386E+02,.1377E+02,.1136E+02,.6719E+01,.2337E+01,.7480E+00,& + .1433E+02,.1433E+02,.1433E+02,.1432E+02,.1428E+02,.1406E+02,.1398E+02,.1159E+02,.6873E+01,.2401E+01,.7628E+00,& + .1455E+02,.1455E+02,.1455E+02,.1453E+02,.1446E+02,.1426E+02,.1418E+02,.1181E+02,.7027E+01,.2465E+01,.7775E+00,& + .1493E+02,.1493E+02,.1493E+02,.1488E+02,.1473E+02,.1452E+02,.1443E+02,.1205E+02,.7206E+01,.2540E+01,.7949E+00,& + .1516E+02,.1516E+02,.1516E+02,.1511E+02,.1496E+02,.1480E+02,.1473E+02,.1228E+02,.7386E+01,.2617E+01,.8126E+00,& + .1537E+02,.1537E+02,.1537E+02,.1535E+02,.1530E+02,.1515E+02,.1508E+02,.1253E+02,.7570E+01,.2695E+01,.8308E+00,& + .1568E+02,.1568E+02,.1568E+02,.1571E+02,.1580E+02,.1560E+02,.1552E+02,.1291E+02,.7852E+01,.2815E+01,.8588E+00,& + .1597E+02,.1597E+02,.1597E+02,.1602E+02,.1618E+02,.1596E+02,.1587E+02,.1331E+02,.8141E+01,.2939E+01,.8876E+00,& + .1626E+02,.1626E+02,.1626E+02,.1632E+02,.1650E+02,.1628E+02,.1619E+02,.1372E+02,.8437E+01,.3068E+01,.9174E+00,& + .1675E+02,.1675E+02,.1675E+02,.1680E+02,.1693E+02,.1675E+02,.1667E+02,.1428E+02,.8843E+01,.3245E+01,.9586E+00,& + .1751E+02,.1751E+02,.1751E+02,.1749E+02,.1744E+02,.1730E+02,.1724E+02,.1483E+02,.9259E+01,.3430E+01,.1002E+01,& + .1815E+02,.1815E+02,.1815E+02,.1817E+02,.1821E+02,.1814E+02,.1811E+02,.1550E+02,.9791E+01,.3668E+01,.1058E+01,& + .1877E+02,.1877E+02,.1877E+02,.1888E+02,.1918E+02,.1902E+02,.1895E+02,.1636E+02,.1046E+02,.3971E+01,.1129E+01,& + .1953E+02,.1953E+02,.1953E+02,.1960E+02,.1980E+02,.1972E+02,.1968E+02,.1729E+02,.1116E+02,.4291E+01,.1204E+01,& + .2088E+02,.2088E+02,.2088E+02,.2089E+02,.2090E+02,.2086E+02,.2085E+02,.1850E+02,.1212E+02,.4746E+01,.1311E+01,& + .2176E+02,.2176E+02,.2176E+02,.2191E+02,.2235E+02,.2232E+02,.2231E+02,.1972E+02,.1314E+02,.5228E+01,.1427E+01,& + .2305E+02,.2305E+02,.2305E+02,.2320E+02,.2361E+02,.2360E+02,.2360E+02,.2143E+02,.1448E+02,.5881E+01,.1583E+01,& + .2530E+02,.2530E+02,.2530E+02,.2549E+02,.2604E+02,.2612E+02,.2616E+02,.2372E+02,.1646E+02,.6878E+01,.1825E+01,& + .2764E+02,.2764E+02,.2764E+02,.2777E+02,.2815E+02,.2840E+02,.2851E+02,.2667E+02,.1893E+02,.8158E+01,.2138E+01,& + .3096E+02,.3096E+02,.3096E+02,.3124E+02,.3203E+02,.3225E+02,.3235E+02,.3079E+02,.2262E+02,.1014E+02,.2637E+01,& + .3690E+02,.3690E+02,.3690E+02,.3726E+02,.3828E+02,.3867E+02,.3883E+02,.3821E+02,.2943E+02,.1403E+02,.3640E+01,& + .5038E+02,.5038E+02,.5038E+02,.5089E+02,.5234E+02,.5310E+02,.5343E+02,.5475E+02,.4573E+02,.2429E+02,.6466E+01/ + data (((Bex(ai,k,nh),ai= 2, 2),k=1,11),nh=0,99)/ & + .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& + .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& + .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& + .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& + .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& + .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& + .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& + .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& + .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& + .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& + .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& + .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& + .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& + .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& + .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& + .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& + .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& + .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& + .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& + .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& + .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& + .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& + .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& + .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& + .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& + .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& + .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& + .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& + .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& + .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& + .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& + .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& + .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& + .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& + .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& + .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& + .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& + .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& + .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& + .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& + .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& + .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& + .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& + .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& + .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& + .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& + .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& + .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& + .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& + .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& + .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& + .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& + .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& + .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& + .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& + .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,& + .2273E+02,.2273E+02,.2273E+02,.2210E+02,.2031E+02,.1804E+02,.1706E+02,.9732E+01,.4485E+01,.2148E+01,.6964E+00,& + .2278E+02,.2278E+02,.2278E+02,.2215E+02,.2036E+02,.1808E+02,.1709E+02,.9752E+01,.4494E+01,.2153E+01,.6989E+00,& + .2282E+02,.2282E+02,.2282E+02,.2219E+02,.2040E+02,.1811E+02,.1713E+02,.9772E+01,.4504E+01,.2158E+01,.7015E+00,& + .2287E+02,.2287E+02,.2287E+02,.2224E+02,.2045E+02,.1815E+02,.1716E+02,.9792E+01,.4513E+01,.2163E+01,.7040E+00,& + .2292E+02,.2292E+02,.2292E+02,.2229E+02,.2049E+02,.1819E+02,.1720E+02,.9812E+01,.4522E+01,.2168E+01,.7066E+00,& + .2292E+02,.2292E+02,.2292E+02,.2229E+02,.2049E+02,.1819E+02,.1720E+02,.9812E+01,.4522E+01,.2168E+01,.7066E+00,& + .2292E+02,.2292E+02,.2292E+02,.2229E+02,.2049E+02,.1819E+02,.1720E+02,.9812E+01,.4522E+01,.2168E+01,.7066E+00,& + .2292E+02,.2292E+02,.2292E+02,.2229E+02,.2049E+02,.1819E+02,.1720E+02,.9812E+01,.4522E+01,.2168E+01,.7066E+00,& + .2292E+02,.2292E+02,.2292E+02,.2229E+02,.2049E+02,.1819E+02,.1720E+02,.9812E+01,.4522E+01,.2168E+01,.7066E+00,& + .2292E+02,.2292E+02,.2292E+02,.2229E+02,.2049E+02,.1819E+02,.1720E+02,.9812E+01,.4522E+01,.2168E+01,.7066E+00,& + .2307E+02,.2307E+02,.2307E+02,.2243E+02,.2062E+02,.1831E+02,.1731E+02,.9870E+01,.4548E+01,.2182E+01,.7140E+00,& + .2321E+02,.2321E+02,.2321E+02,.2257E+02,.2076E+02,.1842E+02,.1742E+02,.9927E+01,.4574E+01,.2196E+01,.7215E+00,& + .2336E+02,.2336E+02,.2336E+02,.2272E+02,.2089E+02,.1854E+02,.1752E+02,.9985E+01,.4601E+01,.2209E+01,.7289E+00,& + .2350E+02,.2350E+02,.2350E+02,.2286E+02,.2103E+02,.1865E+02,.1763E+02,.1004E+02,.4627E+01,.2223E+01,.7364E+00,& + .2365E+02,.2365E+02,.2365E+02,.2300E+02,.2116E+02,.1877E+02,.1774E+02,.1010E+02,.4653E+01,.2237E+01,.7438E+00,& + .2406E+02,.2406E+02,.2406E+02,.2340E+02,.2152E+02,.1908E+02,.1803E+02,.1025E+02,.4717E+01,.2270E+01,.7623E+00,& + .2447E+02,.2447E+02,.2447E+02,.2379E+02,.2188E+02,.1939E+02,.1832E+02,.1040E+02,.4782E+01,.2302E+01,.7808E+00,& + .2487E+02,.2487E+02,.2487E+02,.2419E+02,.2224E+02,.1970E+02,.1861E+02,.1056E+02,.4846E+01,.2335E+01,.7993E+00,& + .2528E+02,.2528E+02,.2528E+02,.2458E+02,.2260E+02,.2001E+02,.1890E+02,.1071E+02,.4911E+01,.2367E+01,.8178E+00,& + .2569E+02,.2569E+02,.2569E+02,.2498E+02,.2296E+02,.2032E+02,.1919E+02,.1086E+02,.4975E+01,.2400E+01,.8363E+00,& + .2626E+02,.2626E+02,.2626E+02,.2552E+02,.2343E+02,.2073E+02,.1957E+02,.1105E+02,.5047E+01,.2433E+01,.8570E+00,& + .2683E+02,.2683E+02,.2683E+02,.2607E+02,.2391E+02,.2113E+02,.1994E+02,.1124E+02,.5119E+01,.2466E+01,.8778E+00,& + .2739E+02,.2739E+02,.2739E+02,.2661E+02,.2438E+02,.2154E+02,.2032E+02,.1142E+02,.5192E+01,.2499E+01,.8985E+00,& + .2796E+02,.2796E+02,.2796E+02,.2716E+02,.2486E+02,.2194E+02,.2069E+02,.1161E+02,.5264E+01,.2532E+01,.9193E+00,& + .2853E+02,.2853E+02,.2853E+02,.2770E+02,.2533E+02,.2235E+02,.2107E+02,.1180E+02,.5336E+01,.2565E+01,.9400E+00,& + .2946E+02,.2946E+02,.2946E+02,.2858E+02,.2609E+02,.2299E+02,.2166E+02,.1208E+02,.5439E+01,.2608E+01,.9691E+00,& + .3009E+02,.3009E+02,.3009E+02,.2918E+02,.2660E+02,.2342E+02,.2206E+02,.1227E+02,.5507E+01,.2636E+01,.9881E+00,& + .3109E+02,.3109E+02,.3109E+02,.3013E+02,.2740E+02,.2410E+02,.2268E+02,.1257E+02,.5609E+01,.2676E+01,.1016E+01,& + .3177E+02,.3177E+02,.3177E+02,.3077E+02,.2794E+02,.2455E+02,.2310E+02,.1276E+02,.5676E+01,.2702E+01,.1034E+01,& + .3283E+02,.3283E+02,.3283E+02,.3178E+02,.2879E+02,.2526E+02,.2375E+02,.1307E+02,.5778E+01,.2739E+01,.1061E+01,& + .3394E+02,.3394E+02,.3394E+02,.3283E+02,.2966E+02,.2600E+02,.2443E+02,.1338E+02,.5880E+01,.2774E+01,.1088E+01,& + .3471E+02,.3471E+02,.3471E+02,.3355E+02,.3026E+02,.2650E+02,.2489E+02,.1359E+02,.5948E+01,.2797E+01,.1105E+01,& + .3590E+02,.3590E+02,.3590E+02,.3467E+02,.3118E+02,.2727E+02,.2560E+02,.1392E+02,.6051E+01,.2831E+01,.1131E+01,& + .3672E+02,.3672E+02,.3672E+02,.3545E+02,.3182E+02,.2781E+02,.2609E+02,.1415E+02,.6121E+01,.2853E+01,.1148E+01,& + .3799E+02,.3799E+02,.3799E+02,.3664E+02,.3280E+02,.2863E+02,.2685E+02,.1449E+02,.6228E+01,.2885E+01,.1174E+01,& + .3932E+02,.3932E+02,.3932E+02,.3789E+02,.3383E+02,.2950E+02,.2764E+02,.1485E+02,.6337E+01,.2918E+01,.1199E+01,& + .4071E+02,.4071E+02,.4071E+02,.3920E+02,.3489E+02,.3038E+02,.2845E+02,.1522E+02,.6448E+01,.2949E+01,.1225E+01,& + .4215E+02,.4215E+02,.4215E+02,.4055E+02,.3600E+02,.3131E+02,.2930E+02,.1561E+02,.6562E+01,.2980E+01,.1250E+01,& + .4417E+02,.4417E+02,.4417E+02,.4245E+02,.3754E+02,.3260E+02,.3049E+02,.1615E+02,.6720E+01,.3021E+01,.1285E+01,& + .4629E+02,.4629E+02,.4629E+02,.4444E+02,.3916E+02,.3396E+02,.3173E+02,.1671E+02,.6884E+01,.3062E+01,.1319E+01,& + .4911E+02,.4911E+02,.4911E+02,.4708E+02,.4131E+02,.3576E+02,.3338E+02,.1745E+02,.7099E+01,.3114E+01,.1363E+01,& + .5337E+02,.5337E+02,.5337E+02,.5107E+02,.4454E+02,.3847E+02,.3587E+02,.1858E+02,.7422E+01,.3188E+01,.1426E+01,& + .5871E+02,.5871E+02,.5871E+02,.5608E+02,.4860E+02,.4188E+02,.3900E+02,.2001E+02,.7827E+01,.3276E+01,.1500E+01,& + .7441E+02,.7441E+02,.7441E+02,.7081E+02,.6056E+02,.5196E+02,.4827E+02,.2427E+02,.9036E+01,.3523E+01,.1703E+01/ + data (((Bex(ai,k,nh),ai= 3, 3),k=1,11),nh=0,99)/ & + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01/ + data (((Bex(ai,k,nh),ai= 4, 4),k=1,11),nh=0,99)/ & + .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,& + .7397E+01,.7397E+01,.7397E+01,.7102E+01,.6263E+01,.5582E+01,.5291E+01,.2952E+01,.1069E+01,.2376E+00,.5267E-01,& + .7469E+01,.7469E+01,.7469E+01,.7172E+01,.6325E+01,.5636E+01,.5342E+01,.2982E+01,.1080E+01,.2402E+00,.5378E-01,& + .7542E+01,.7542E+01,.7542E+01,.7241E+01,.6386E+01,.5691E+01,.5392E+01,.3011E+01,.1092E+01,.2427E+00,.5489E-01,& + .7614E+01,.7614E+01,.7614E+01,.7311E+01,.6448E+01,.5745E+01,.5443E+01,.3041E+01,.1103E+01,.2453E+00,.5600E-01,& + .7686E+01,.7686E+01,.7686E+01,.7380E+01,.6510E+01,.5799E+01,.5494E+01,.3071E+01,.1114E+01,.2479E+00,.5711E-01,& + .7763E+01,.7763E+01,.7763E+01,.7453E+01,.6573E+01,.5856E+01,.5548E+01,.3102E+01,.1126E+01,.2507E+00,.5827E-01,& + .7840E+01,.7840E+01,.7840E+01,.7526E+01,.6635E+01,.5913E+01,.5603E+01,.3133E+01,.1138E+01,.2534E+00,.5943E-01,& + .7916E+01,.7916E+01,.7916E+01,.7600E+01,.6698E+01,.5969E+01,.5657E+01,.3165E+01,.1150E+01,.2562E+00,.6058E-01,& + .7993E+01,.7993E+01,.7993E+01,.7673E+01,.6760E+01,.6026E+01,.5712E+01,.3196E+01,.1162E+01,.2589E+00,.6174E-01,& + .8070E+01,.8070E+01,.8070E+01,.7746E+01,.6823E+01,.6083E+01,.5766E+01,.3227E+01,.1174E+01,.2617E+00,.6290E-01,& + .8150E+01,.8150E+01,.8150E+01,.7823E+01,.6891E+01,.6145E+01,.5825E+01,.3260E+01,.1186E+01,.2646E+00,.6411E-01,& + .8230E+01,.8230E+01,.8230E+01,.7900E+01,.6959E+01,.6206E+01,.5884E+01,.3293E+01,.1199E+01,.2675E+00,.6532E-01,& + .8311E+01,.8311E+01,.8311E+01,.7977E+01,.7027E+01,.6268E+01,.5942E+01,.3325E+01,.1211E+01,.2705E+00,.6654E-01,& + .8391E+01,.8391E+01,.8391E+01,.8054E+01,.7095E+01,.6329E+01,.6001E+01,.3358E+01,.1224E+01,.2734E+00,.6775E-01,& + .8471E+01,.8471E+01,.8471E+01,.8131E+01,.7163E+01,.6391E+01,.6060E+01,.3391E+01,.1236E+01,.2763E+00,.6896E-01,& + .8553E+01,.8553E+01,.8553E+01,.8210E+01,.7235E+01,.6454E+01,.6119E+01,.3425E+01,.1249E+01,.2794E+00,.7023E-01,& + .8635E+01,.8635E+01,.8635E+01,.8290E+01,.7307E+01,.6517E+01,.6178E+01,.3460E+01,.1263E+01,.2825E+00,.7149E-01,& + .8718E+01,.8718E+01,.8718E+01,.8369E+01,.7378E+01,.6579E+01,.6237E+01,.3494E+01,.1276E+01,.2857E+00,.7276E-01,& + .8800E+01,.8800E+01,.8800E+01,.8449E+01,.7450E+01,.6642E+01,.6296E+01,.3529E+01,.1290E+01,.2888E+00,.7402E-01,& + .8882E+01,.8882E+01,.8882E+01,.8528E+01,.7522E+01,.6705E+01,.6355E+01,.3563E+01,.1303E+01,.2919E+00,.7529E-01,& + .8966E+01,.8966E+01,.8966E+01,.8609E+01,.7594E+01,.6770E+01,.6417E+01,.3599E+01,.1317E+01,.2952E+00,.7661E-01,& + .9050E+01,.9050E+01,.9050E+01,.8690E+01,.7666E+01,.6835E+01,.6479E+01,.3636E+01,.1331E+01,.2985E+00,.7793E-01,& + .9134E+01,.9134E+01,.9134E+01,.8771E+01,.7738E+01,.6899E+01,.6540E+01,.3672E+01,.1345E+01,.3018E+00,.7926E-01,& + .9218E+01,.9218E+01,.9218E+01,.8852E+01,.7810E+01,.6964E+01,.6602E+01,.3709E+01,.1359E+01,.3051E+00,.8058E-01,& + .9302E+01,.9302E+01,.9302E+01,.8933E+01,.7882E+01,.7029E+01,.6664E+01,.3745E+01,.1373E+01,.3084E+00,.8190E-01,& + .9389E+01,.9389E+01,.9389E+01,.9017E+01,.7957E+01,.7096E+01,.6728E+01,.3783E+01,.1388E+01,.3119E+00,.8328E-01,& + .9477E+01,.9477E+01,.9477E+01,.9101E+01,.8031E+01,.7163E+01,.6791E+01,.3821E+01,.1403E+01,.3154E+00,.8466E-01,& + .9564E+01,.9564E+01,.9564E+01,.9185E+01,.8106E+01,.7230E+01,.6855E+01,.3859E+01,.1417E+01,.3189E+00,.8603E-01,& + .9652E+01,.9652E+01,.9652E+01,.9269E+01,.8180E+01,.7297E+01,.6918E+01,.3897E+01,.1432E+01,.3224E+00,.8741E-01,& + .9739E+01,.9739E+01,.9739E+01,.9353E+01,.8255E+01,.7364E+01,.6982E+01,.3935E+01,.1447E+01,.3259E+00,.8879E-01,& + .9833E+01,.9833E+01,.9833E+01,.9443E+01,.8332E+01,.7434E+01,.7049E+01,.3975E+01,.1463E+01,.3296E+00,.9023E-01,& + .9927E+01,.9927E+01,.9927E+01,.9533E+01,.8409E+01,.7504E+01,.7116E+01,.4014E+01,.1478E+01,.3333E+00,.9166E-01,& + .1002E+02,.1002E+02,.1002E+02,.9622E+01,.8487E+01,.7575E+01,.7184E+01,.4054E+01,.1494E+01,.3371E+00,.9310E-01,& + .1012E+02,.1012E+02,.1012E+02,.9712E+01,.8564E+01,.7645E+01,.7251E+01,.4093E+01,.1509E+01,.3408E+00,.9453E-01,& + .1021E+02,.1021E+02,.1021E+02,.9802E+01,.8641E+01,.7715E+01,.7318E+01,.4133E+01,.1525E+01,.3445E+00,.9597E-01,& + .1031E+02,.1031E+02,.1031E+02,.9896E+01,.8724E+01,.7791E+01,.7391E+01,.4175E+01,.1541E+01,.3484E+00,.9748E-01,& + .1040E+02,.1040E+02,.1040E+02,.9989E+01,.8807E+01,.7867E+01,.7464E+01,.4216E+01,.1558E+01,.3524E+00,.9898E-01,& + .1050E+02,.1050E+02,.1050E+02,.1008E+02,.8891E+01,.7943E+01,.7537E+01,.4258E+01,.1574E+01,.3563E+00,.1005E+00,& + .1059E+02,.1059E+02,.1059E+02,.1018E+02,.8974E+01,.8019E+01,.7610E+01,.4299E+01,.1591E+01,.3603E+00,.1020E+00,& + .1069E+02,.1069E+02,.1069E+02,.1027E+02,.9057E+01,.8095E+01,.7683E+01,.4341E+01,.1607E+01,.3642E+00,.1035E+00,& + .1079E+02,.1079E+02,.1079E+02,.1036E+02,.9145E+01,.8172E+01,.7755E+01,.4384E+01,.1624E+01,.3684E+00,.1051E+00,& + .1088E+02,.1088E+02,.1088E+02,.1045E+02,.9232E+01,.8249E+01,.7827E+01,.4428E+01,.1642E+01,.3725E+00,.1066E+00,& + .1098E+02,.1098E+02,.1098E+02,.1055E+02,.9320E+01,.8325E+01,.7900E+01,.4471E+01,.1659E+01,.3767E+00,.1082E+00,& + .1107E+02,.1107E+02,.1107E+02,.1064E+02,.9407E+01,.8402E+01,.7972E+01,.4515E+01,.1677E+01,.3808E+00,.1097E+00,& + .1117E+02,.1117E+02,.1117E+02,.1073E+02,.9495E+01,.8479E+01,.8044E+01,.4558E+01,.1694E+01,.3850E+00,.1113E+00,& + .1127E+02,.1127E+02,.1127E+02,.1083E+02,.9581E+01,.8557E+01,.8119E+01,.4604E+01,.1712E+01,.3894E+00,.1129E+00,& + .1137E+02,.1137E+02,.1137E+02,.1093E+02,.9667E+01,.8636E+01,.8194E+01,.4650E+01,.1730E+01,.3939E+00,.1145E+00,& + .1147E+02,.1147E+02,.1147E+02,.1102E+02,.9754E+01,.8714E+01,.8269E+01,.4695E+01,.1749E+01,.3983E+00,.1162E+00,& + .1157E+02,.1157E+02,.1157E+02,.1112E+02,.9840E+01,.8793E+01,.8344E+01,.4741E+01,.1767E+01,.4028E+00,.1178E+00,& + .1167E+02,.1167E+02,.1167E+02,.1122E+02,.9926E+01,.8871E+01,.8419E+01,.4787E+01,.1785E+01,.4072E+00,.1194E+00,& + .1179E+02,.1179E+02,.1179E+02,.1134E+02,.1003E+02,.8966E+01,.8510E+01,.4843E+01,.1808E+01,.4128E+00,.1214E+00,& + .1191E+02,.1191E+02,.1191E+02,.1145E+02,.1014E+02,.9062E+01,.8602E+01,.4900E+01,.1831E+01,.4183E+00,.1234E+00,& + .1204E+02,.1204E+02,.1204E+02,.1157E+02,.1024E+02,.9157E+01,.8693E+01,.4956E+01,.1853E+01,.4239E+00,.1255E+00,& + .1216E+02,.1216E+02,.1216E+02,.1168E+02,.1035E+02,.9253E+01,.8785E+01,.5013E+01,.1876E+01,.4294E+00,.1275E+00,& + .1228E+02,.1228E+02,.1228E+02,.1180E+02,.1045E+02,.9348E+01,.8876E+01,.5069E+01,.1899E+01,.4350E+00,.1295E+00,& + .1241E+02,.1241E+02,.1241E+02,.1193E+02,.1056E+02,.9450E+01,.8974E+01,.5128E+01,.1923E+01,.4410E+00,.1316E+00,& + .1255E+02,.1255E+02,.1255E+02,.1206E+02,.1067E+02,.9552E+01,.9072E+01,.5187E+01,.1947E+01,.4470E+00,.1337E+00,& + .1268E+02,.1268E+02,.1268E+02,.1218E+02,.1078E+02,.9653E+01,.9171E+01,.5246E+01,.1971E+01,.4529E+00,.1359E+00,& + .1282E+02,.1282E+02,.1282E+02,.1231E+02,.1089E+02,.9755E+01,.9269E+01,.5305E+01,.1995E+01,.4589E+00,.1380E+00,& + .1295E+02,.1295E+02,.1295E+02,.1244E+02,.1100E+02,.9857E+01,.9367E+01,.5364E+01,.2019E+01,.4649E+00,.1401E+00,& + .1307E+02,.1307E+02,.1307E+02,.1256E+02,.1111E+02,.9956E+01,.9461E+01,.5419E+01,.2041E+01,.4704E+00,.1420E+00,& + .1319E+02,.1319E+02,.1319E+02,.1268E+02,.1122E+02,.1005E+02,.9555E+01,.5473E+01,.2064E+01,.4759E+00,.1439E+00,& + .1331E+02,.1331E+02,.1331E+02,.1279E+02,.1132E+02,.1015E+02,.9648E+01,.5528E+01,.2086E+01,.4815E+00,.1459E+00,& + .1343E+02,.1343E+02,.1343E+02,.1291E+02,.1143E+02,.1025E+02,.9742E+01,.5582E+01,.2109E+01,.4870E+00,.1478E+00,& + .1355E+02,.1355E+02,.1355E+02,.1303E+02,.1154E+02,.1035E+02,.9836E+01,.5637E+01,.2131E+01,.4925E+00,.1497E+00,& + .1368E+02,.1368E+02,.1368E+02,.1316E+02,.1166E+02,.1046E+02,.9939E+01,.5702E+01,.2158E+01,.4992E+00,.1520E+00,& + .1382E+02,.1382E+02,.1382E+02,.1329E+02,.1179E+02,.1057E+02,.1004E+02,.5767E+01,.2185E+01,.5059E+00,.1543E+00,& + .1395E+02,.1395E+02,.1395E+02,.1342E+02,.1191E+02,.1067E+02,.1014E+02,.5831E+01,.2211E+01,.5126E+00,.1567E+00,& + .1409E+02,.1409E+02,.1409E+02,.1355E+02,.1204E+02,.1078E+02,.1025E+02,.5896E+01,.2238E+01,.5193E+00,.1590E+00,& + .1422E+02,.1422E+02,.1422E+02,.1368E+02,.1216E+02,.1089E+02,.1035E+02,.5961E+01,.2265E+01,.5260E+00,.1613E+00,& + .1443E+02,.1443E+02,.1443E+02,.1389E+02,.1235E+02,.1106E+02,.1052E+02,.6066E+01,.2308E+01,.5370E+00,.1650E+00,& + .1465E+02,.1465E+02,.1465E+02,.1410E+02,.1253E+02,.1123E+02,.1068E+02,.6171E+01,.2352E+01,.5480E+00,.1687E+00,& + .1486E+02,.1486E+02,.1486E+02,.1430E+02,.1272E+02,.1141E+02,.1085E+02,.6276E+01,.2395E+01,.5590E+00,.1724E+00,& + .1508E+02,.1508E+02,.1508E+02,.1451E+02,.1290E+02,.1158E+02,.1101E+02,.6381E+01,.2439E+01,.5700E+00,.1761E+00,& + .1529E+02,.1529E+02,.1529E+02,.1472E+02,.1309E+02,.1175E+02,.1118E+02,.6486E+01,.2482E+01,.5810E+00,.1798E+00,& + .1561E+02,.1561E+02,.1561E+02,.1503E+02,.1337E+02,.1201E+02,.1143E+02,.6636E+01,.2546E+01,.5973E+00,.1852E+00,& + .1593E+02,.1593E+02,.1593E+02,.1533E+02,.1364E+02,.1226E+02,.1167E+02,.6786E+01,.2609E+01,.6137E+00,.1906E+00,& + .1624E+02,.1624E+02,.1624E+02,.1564E+02,.1392E+02,.1252E+02,.1192E+02,.6935E+01,.2673E+01,.6300E+00,.1959E+00,& + .1656E+02,.1656E+02,.1656E+02,.1594E+02,.1419E+02,.1277E+02,.1216E+02,.7085E+01,.2736E+01,.6464E+00,.2013E+00,& + .1688E+02,.1688E+02,.1688E+02,.1625E+02,.1447E+02,.1303E+02,.1241E+02,.7235E+01,.2800E+01,.6627E+00,.2067E+00,& + .1727E+02,.1727E+02,.1727E+02,.1664E+02,.1485E+02,.1336E+02,.1272E+02,.7433E+01,.2885E+01,.6846E+00,.2138E+00,& + .1766E+02,.1766E+02,.1766E+02,.1702E+02,.1521E+02,.1369E+02,.1304E+02,.7636E+01,.2972E+01,.7072E+00,.2210E+00,& + .1805E+02,.1805E+02,.1805E+02,.1741E+02,.1557E+02,.1402E+02,.1336E+02,.7844E+01,.3061E+01,.7305E+00,.2284E+00,& + .1845E+02,.1845E+02,.1845E+02,.1779E+02,.1593E+02,.1435E+02,.1367E+02,.8057E+01,.3153E+01,.7545E+00,.2361E+00,& + .1902E+02,.1902E+02,.1902E+02,.1834E+02,.1641E+02,.1480E+02,.1411E+02,.8348E+01,.3278E+01,.7874E+00,.2464E+00,& + .1962E+02,.1962E+02,.1962E+02,.1892E+02,.1692E+02,.1527E+02,.1457E+02,.8644E+01,.3407E+01,.8218E+00,.2571E+00,& + .2041E+02,.2041E+02,.2041E+02,.1967E+02,.1758E+02,.1589E+02,.1517E+02,.9022E+01,.3574E+01,.8664E+00,.2709E+00,& + .2116E+02,.2116E+02,.2116E+02,.2042E+02,.1830E+02,.1656E+02,.1582E+02,.9415E+01,.3749E+01,.9129E+00,.2852E+00,& + .2204E+02,.2204E+02,.2204E+02,.2129E+02,.1917E+02,.1734E+02,.1656E+02,.9903E+01,.3966E+01,.9718E+00,.3031E+00,& + .2295E+02,.2295E+02,.2295E+02,.2218E+02,.2000E+02,.1811E+02,.1730E+02,.1042E+02,.4194E+01,.1034E+01,.3217E+00,& + .2409E+02,.2409E+02,.2409E+02,.2328E+02,.2098E+02,.1904E+02,.1821E+02,.1104E+02,.4473E+01,.1110E+01,.3444E+00,& + .2554E+02,.2554E+02,.2554E+02,.2467E+02,.2220E+02,.2020E+02,.1934E+02,.1177E+02,.4809E+01,.1204E+01,.3718E+00,& + .2721E+02,.2721E+02,.2721E+02,.2635E+02,.2390E+02,.2174E+02,.2082E+02,.1273E+02,.5257E+01,.1329E+01,.4081E+00,& + .2912E+02,.2912E+02,.2912E+02,.2821E+02,.2563E+02,.2338E+02,.2241E+02,.1387E+02,.5786E+01,.1480E+01,.4510E+00,& + .3212E+02,.3212E+02,.3212E+02,.3112E+02,.2826E+02,.2589E+02,.2487E+02,.1551E+02,.6569E+01,.1706E+01,.5144E+00,& + .3570E+02,.3570E+02,.3570E+02,.3468E+02,.3179E+02,.2917E+02,.2804E+02,.1780E+02,.7673E+01,.2031E+01,.6039E+00,& + .4053E+02,.4053E+02,.4053E+02,.3943E+02,.3630E+02,.3346E+02,.3224E+02,.2068E+02,.9112E+01,.2467E+01,.7211E+00,& + .4887E+02,.4887E+02,.4887E+02,.4762E+02,.4407E+02,.4094E+02,.3960E+02,.2605E+02,.1187E+02,.3330E+01,.9477E+00,& + .6332E+02,.6332E+02,.6332E+02,.6207E+02,.5852E+02,.5476E+02,.5315E+02,.3643E+02,.1748E+02,.5174E+01,.1417E+01/ + data (((Bex(ai,k,nh),ai= 5, 5),k=1,11),nh=0,99)/ & + .1033E+01,.1033E+01,.1033E+01,.1038E+01,.1054E+01,.1075E+01,.1084E+01,.1151E+01,.1115E+01,.7503E+00,.1815E+00,& + .1056E+01,.1056E+01,.1056E+01,.1061E+01,.1078E+01,.1099E+01,.1108E+01,.1179E+01,.1142E+01,.7701E+00,.1880E+00,& + .1079E+01,.1079E+01,.1079E+01,.1084E+01,.1101E+01,.1123E+01,.1132E+01,.1207E+01,.1170E+01,.7899E+00,.1945E+00,& + .1101E+01,.1101E+01,.1101E+01,.1108E+01,.1125E+01,.1146E+01,.1156E+01,.1234E+01,.1197E+01,.8097E+00,.2010E+00,& + .1124E+01,.1124E+01,.1124E+01,.1131E+01,.1148E+01,.1170E+01,.1180E+01,.1262E+01,.1225E+01,.8295E+00,.2075E+00,& + .1147E+01,.1147E+01,.1147E+01,.1154E+01,.1172E+01,.1194E+01,.1204E+01,.1290E+01,.1252E+01,.8493E+00,.2140E+00,& + .1172E+01,.1172E+01,.1172E+01,.1179E+01,.1198E+01,.1223E+01,.1234E+01,.1318E+01,.1281E+01,.8707E+00,.2214E+00,& + .1197E+01,.1197E+01,.1197E+01,.1204E+01,.1225E+01,.1252E+01,.1264E+01,.1346E+01,.1310E+01,.8921E+00,.2288E+00,& + .1221E+01,.1221E+01,.1221E+01,.1230E+01,.1251E+01,.1281E+01,.1294E+01,.1375E+01,.1339E+01,.9136E+00,.2362E+00,& + .1246E+01,.1246E+01,.1246E+01,.1255E+01,.1278E+01,.1310E+01,.1324E+01,.1403E+01,.1368E+01,.9350E+00,.2436E+00,& + .1271E+01,.1271E+01,.1271E+01,.1280E+01,.1304E+01,.1339E+01,.1354E+01,.1431E+01,.1397E+01,.9564E+00,.2510E+00,& + .1301E+01,.1301E+01,.1301E+01,.1308E+01,.1329E+01,.1364E+01,.1380E+01,.1461E+01,.1429E+01,.9805E+00,.2594E+00,& + .1331E+01,.1331E+01,.1331E+01,.1337E+01,.1354E+01,.1390E+01,.1405E+01,.1492E+01,.1461E+01,.1005E+01,.2677E+00,& + .1360E+01,.1360E+01,.1360E+01,.1365E+01,.1379E+01,.1415E+01,.1431E+01,.1522E+01,.1493E+01,.1029E+01,.2761E+00,& + .1390E+01,.1390E+01,.1390E+01,.1394E+01,.1404E+01,.1441E+01,.1456E+01,.1553E+01,.1525E+01,.1053E+01,.2844E+00,& + .1420E+01,.1420E+01,.1420E+01,.1422E+01,.1429E+01,.1466E+01,.1482E+01,.1583E+01,.1557E+01,.1077E+01,.2928E+00,& + .1443E+01,.1443E+01,.1443E+01,.1447E+01,.1459E+01,.1497E+01,.1513E+01,.1614E+01,.1589E+01,.1103E+01,.3022E+00,& + .1467E+01,.1467E+01,.1467E+01,.1472E+01,.1490E+01,.1528E+01,.1544E+01,.1646E+01,.1621E+01,.1128E+01,.3115E+00,& + .1490E+01,.1490E+01,.1490E+01,.1498E+01,.1520E+01,.1559E+01,.1576E+01,.1677E+01,.1654E+01,.1154E+01,.3209E+00,& + .1514E+01,.1514E+01,.1514E+01,.1523E+01,.1551E+01,.1590E+01,.1607E+01,.1709E+01,.1686E+01,.1179E+01,.3302E+00,& + .1537E+01,.1537E+01,.1537E+01,.1548E+01,.1581E+01,.1621E+01,.1638E+01,.1740E+01,.1718E+01,.1205E+01,.3396E+00,& + .1571E+01,.1571E+01,.1571E+01,.1581E+01,.1609E+01,.1649E+01,.1666E+01,.1773E+01,.1754E+01,.1234E+01,.3500E+00,& + .1605E+01,.1605E+01,.1605E+01,.1613E+01,.1637E+01,.1677E+01,.1694E+01,.1806E+01,.1790E+01,.1263E+01,.3604E+00,& + .1639E+01,.1639E+01,.1639E+01,.1646E+01,.1665E+01,.1704E+01,.1721E+01,.1838E+01,.1826E+01,.1292E+01,.3709E+00,& + .1673E+01,.1673E+01,.1673E+01,.1678E+01,.1693E+01,.1732E+01,.1749E+01,.1871E+01,.1862E+01,.1321E+01,.3813E+00,& + .1707E+01,.1707E+01,.1707E+01,.1711E+01,.1721E+01,.1760E+01,.1777E+01,.1904E+01,.1898E+01,.1350E+01,.3917E+00,& + .1734E+01,.1734E+01,.1734E+01,.1740E+01,.1756E+01,.1793E+01,.1810E+01,.1938E+01,.1934E+01,.1380E+01,.4032E+00,& + .1761E+01,.1761E+01,.1761E+01,.1769E+01,.1790E+01,.1826E+01,.1842E+01,.1972E+01,.1970E+01,.1410E+01,.4147E+00,& + .1787E+01,.1787E+01,.1787E+01,.1797E+01,.1825E+01,.1860E+01,.1875E+01,.2007E+01,.2006E+01,.1439E+01,.4262E+00,& + .1814E+01,.1814E+01,.1814E+01,.1826E+01,.1859E+01,.1893E+01,.1907E+01,.2041E+01,.2042E+01,.1469E+01,.4377E+00,& + .1841E+01,.1841E+01,.1841E+01,.1855E+01,.1894E+01,.1926E+01,.1940E+01,.2075E+01,.2078E+01,.1499E+01,.4492E+00,& + .1878E+01,.1878E+01,.1878E+01,.1891E+01,.1926E+01,.1956E+01,.1969E+01,.2112E+01,.2118E+01,.1533E+01,.4619E+00,& + .1915E+01,.1915E+01,.1915E+01,.1926E+01,.1957E+01,.1985E+01,.1998E+01,.2149E+01,.2158E+01,.1566E+01,.4746E+00,& + .1953E+01,.1953E+01,.1953E+01,.1962E+01,.1989E+01,.2015E+01,.2026E+01,.2186E+01,.2198E+01,.1600E+01,.4872E+00,& + .1990E+01,.1990E+01,.1990E+01,.1997E+01,.2020E+01,.2044E+01,.2055E+01,.2223E+01,.2238E+01,.1633E+01,.4999E+00,& + .2027E+01,.2027E+01,.2027E+01,.2033E+01,.2052E+01,.2074E+01,.2084E+01,.2260E+01,.2278E+01,.1667E+01,.5126E+00,& + .2058E+01,.2058E+01,.2058E+01,.2065E+01,.2088E+01,.2111E+01,.2121E+01,.2295E+01,.2317E+01,.1701E+01,.5264E+00,& + .2089E+01,.2089E+01,.2089E+01,.2097E+01,.2123E+01,.2147E+01,.2158E+01,.2330E+01,.2356E+01,.1735E+01,.5403E+00,& + .2119E+01,.2119E+01,.2119E+01,.2130E+01,.2159E+01,.2184E+01,.2195E+01,.2365E+01,.2395E+01,.1770E+01,.5541E+00,& + .2150E+01,.2150E+01,.2150E+01,.2162E+01,.2194E+01,.2220E+01,.2232E+01,.2400E+01,.2434E+01,.1804E+01,.5680E+00,& + .2181E+01,.2181E+01,.2181E+01,.2194E+01,.2230E+01,.2257E+01,.2269E+01,.2435E+01,.2473E+01,.1838E+01,.5818E+00,& + .2212E+01,.2212E+01,.2212E+01,.2225E+01,.2259E+01,.2291E+01,.2305E+01,.2476E+01,.2516E+01,.1876E+01,.5970E+00,& + .2243E+01,.2243E+01,.2243E+01,.2255E+01,.2288E+01,.2325E+01,.2341E+01,.2517E+01,.2560E+01,.1915E+01,.6121E+00,& + .2275E+01,.2275E+01,.2275E+01,.2286E+01,.2317E+01,.2360E+01,.2378E+01,.2559E+01,.2603E+01,.1953E+01,.6273E+00,& + .2306E+01,.2306E+01,.2306E+01,.2316E+01,.2346E+01,.2394E+01,.2414E+01,.2600E+01,.2647E+01,.1992E+01,.6424E+00,& + .2337E+01,.2337E+01,.2337E+01,.2347E+01,.2375E+01,.2428E+01,.2450E+01,.2641E+01,.2690E+01,.2030E+01,.6576E+00,& + .2372E+01,.2372E+01,.2372E+01,.2384E+01,.2418E+01,.2470E+01,.2492E+01,.2676E+01,.2732E+01,.2068E+01,.6740E+00,& + .2407E+01,.2407E+01,.2407E+01,.2421E+01,.2461E+01,.2512E+01,.2534E+01,.2710E+01,.2775E+01,.2107E+01,.6903E+00,& + .2441E+01,.2441E+01,.2441E+01,.2458E+01,.2505E+01,.2555E+01,.2575E+01,.2745E+01,.2817E+01,.2145E+01,.7067E+00,& + .2476E+01,.2476E+01,.2476E+01,.2495E+01,.2548E+01,.2597E+01,.2617E+01,.2779E+01,.2860E+01,.2184E+01,.7230E+00,& + .2511E+01,.2511E+01,.2511E+01,.2532E+01,.2591E+01,.2639E+01,.2659E+01,.2814E+01,.2902E+01,.2222E+01,.7394E+00,& + .2543E+01,.2543E+01,.2543E+01,.2562E+01,.2616E+01,.2665E+01,.2686E+01,.2852E+01,.2941E+01,.2257E+01,.7540E+00,& + .2575E+01,.2575E+01,.2575E+01,.2592E+01,.2641E+01,.2692E+01,.2713E+01,.2890E+01,.2980E+01,.2292E+01,.7687E+00,& + .2606E+01,.2606E+01,.2606E+01,.2622E+01,.2667E+01,.2718E+01,.2740E+01,.2927E+01,.3018E+01,.2328E+01,.7833E+00,& + .2638E+01,.2638E+01,.2638E+01,.2652E+01,.2692E+01,.2745E+01,.2767E+01,.2965E+01,.3057E+01,.2363E+01,.7980E+00,& + .2670E+01,.2670E+01,.2670E+01,.2682E+01,.2717E+01,.2771E+01,.2794E+01,.3003E+01,.3096E+01,.2398E+01,.8126E+00,& + .2706E+01,.2706E+01,.2706E+01,.2718E+01,.2753E+01,.2800E+01,.2821E+01,.3037E+01,.3135E+01,.2435E+01,.8281E+00,& + .2743E+01,.2743E+01,.2743E+01,.2754E+01,.2788E+01,.2829E+01,.2847E+01,.3070E+01,.3174E+01,.2471E+01,.8436E+00,& + .2779E+01,.2779E+01,.2779E+01,.2791E+01,.2824E+01,.2859E+01,.2874E+01,.3104E+01,.3214E+01,.2508E+01,.8592E+00,& + .2816E+01,.2816E+01,.2816E+01,.2827E+01,.2859E+01,.2888E+01,.2900E+01,.3137E+01,.3253E+01,.2544E+01,.8747E+00,& + .2852E+01,.2852E+01,.2852E+01,.2863E+01,.2895E+01,.2917E+01,.2927E+01,.3171E+01,.3292E+01,.2581E+01,.8902E+00,& + .2877E+01,.2877E+01,.2877E+01,.2890E+01,.2929E+01,.2960E+01,.2973E+01,.3202E+01,.3329E+01,.2617E+01,.9066E+00,& + .2901E+01,.2901E+01,.2901E+01,.2917E+01,.2963E+01,.3002E+01,.3019E+01,.3233E+01,.3367E+01,.2653E+01,.9230E+00,& + .2926E+01,.2926E+01,.2926E+01,.2945E+01,.2998E+01,.3045E+01,.3066E+01,.3264E+01,.3404E+01,.2688E+01,.9394E+00,& + .2950E+01,.2950E+01,.2950E+01,.2972E+01,.3032E+01,.3087E+01,.3112E+01,.3295E+01,.3442E+01,.2724E+01,.9558E+00,& + .2975E+01,.2975E+01,.2975E+01,.2999E+01,.3066E+01,.3130E+01,.3158E+01,.3326E+01,.3479E+01,.2760E+01,.9722E+00,& + .3010E+01,.3010E+01,.3010E+01,.3031E+01,.3092E+01,.3157E+01,.3186E+01,.3367E+01,.3521E+01,.2800E+01,.9898E+00,& + .3044E+01,.3044E+01,.3044E+01,.3063E+01,.3118E+01,.3185E+01,.3214E+01,.3408E+01,.3563E+01,.2840E+01,.1007E+01,& + .3079E+01,.3079E+01,.3079E+01,.3096E+01,.3144E+01,.3212E+01,.3241E+01,.3448E+01,.3606E+01,.2881E+01,.1025E+01,& + .3113E+01,.3113E+01,.3113E+01,.3128E+01,.3170E+01,.3240E+01,.3269E+01,.3489E+01,.3648E+01,.2921E+01,.1042E+01,& + .3148E+01,.3148E+01,.3148E+01,.3160E+01,.3196E+01,.3267E+01,.3297E+01,.3530E+01,.3690E+01,.2961E+01,.1060E+01,& + .3209E+01,.3209E+01,.3209E+01,.3221E+01,.3255E+01,.3327E+01,.3358E+01,.3585E+01,.3758E+01,.3027E+01,.1090E+01,& + .3270E+01,.3270E+01,.3270E+01,.3281E+01,.3315E+01,.3388E+01,.3419E+01,.3641E+01,.3825E+01,.3093E+01,.1120E+01,& + .3331E+01,.3331E+01,.3331E+01,.3342E+01,.3374E+01,.3448E+01,.3480E+01,.3696E+01,.3893E+01,.3158E+01,.1151E+01,& + .3392E+01,.3392E+01,.3392E+01,.3402E+01,.3434E+01,.3509E+01,.3541E+01,.3752E+01,.3960E+01,.3224E+01,.1181E+01,& + .3453E+01,.3453E+01,.3453E+01,.3463E+01,.3493E+01,.3569E+01,.3602E+01,.3807E+01,.4028E+01,.3290E+01,.1211E+01,& + .3519E+01,.3519E+01,.3519E+01,.3532E+01,.3572E+01,.3635E+01,.3662E+01,.3892E+01,.4116E+01,.3378E+01,.1252E+01,& + .3585E+01,.3585E+01,.3585E+01,.3601E+01,.3650E+01,.3701E+01,.3723E+01,.3978E+01,.4203E+01,.3466E+01,.1294E+01,& + .3650E+01,.3650E+01,.3650E+01,.3671E+01,.3729E+01,.3767E+01,.3783E+01,.4063E+01,.4291E+01,.3554E+01,.1335E+01,& + .3716E+01,.3716E+01,.3716E+01,.3740E+01,.3807E+01,.3833E+01,.3844E+01,.4149E+01,.4378E+01,.3642E+01,.1377E+01,& + .3782E+01,.3782E+01,.3782E+01,.3809E+01,.3886E+01,.3899E+01,.3904E+01,.4234E+01,.4466E+01,.3730E+01,.1418E+01,& + .3887E+01,.3887E+01,.3887E+01,.3893E+01,.3911E+01,.3989E+01,.4022E+01,.4318E+01,.4576E+01,.3843E+01,.1470E+01,& + .4014E+01,.4014E+01,.4014E+01,.4022E+01,.4044E+01,.4121E+01,.4154E+01,.4424E+01,.4717E+01,.3990E+01,.1545E+01,& + .4110E+01,.4110E+01,.4110E+01,.4135E+01,.4208E+01,.4251E+01,.4270E+01,.4550E+01,.4846E+01,.4118E+01,.1612E+01,& + .4230E+01,.4230E+01,.4230E+01,.4253E+01,.4317E+01,.4367E+01,.4389E+01,.4657E+01,.4974E+01,.4254E+01,.1680E+01,& + .4365E+01,.4365E+01,.4365E+01,.4381E+01,.4428E+01,.4529E+01,.4572E+01,.4851E+01,.5188E+01,.4470E+01,.1786E+01,& + .4504E+01,.4504E+01,.4504E+01,.4530E+01,.4604E+01,.4649E+01,.4669E+01,.5015E+01,.5349E+01,.4645E+01,.1871E+01,& + .4700E+01,.4700E+01,.4700E+01,.4709E+01,.4733E+01,.4806E+01,.4838E+01,.5165E+01,.5549E+01,.4857E+01,.1983E+01,& + .4850E+01,.4850E+01,.4850E+01,.4881E+01,.4971E+01,.5034E+01,.5061E+01,.5355E+01,.5749E+01,.5067E+01,.2101E+01,& + .5072E+01,.5072E+01,.5072E+01,.5094E+01,.5156E+01,.5204E+01,.5224E+01,.5561E+01,.5983E+01,.5325E+01,.2237E+01,& + .5331E+01,.5331E+01,.5331E+01,.5348E+01,.5398E+01,.5469E+01,.5500E+01,.5874E+01,.6317E+01,.5681E+01,.2420E+01,& + .5667E+01,.5667E+01,.5667E+01,.5669E+01,.5674E+01,.5758E+01,.5794E+01,.6108E+01,.6640E+01,.6015E+01,.2612E+01,& + .5964E+01,.5964E+01,.5964E+01,.5991E+01,.6068E+01,.6104E+01,.6120E+01,.6533E+01,.7073E+01,.6511E+01,.2896E+01,& + .6438E+01,.6438E+01,.6438E+01,.6458E+01,.6515E+01,.6548E+01,.6562E+01,.7003E+01,.7599E+01,.7071E+01,.3211E+01,& + .7017E+01,.7017E+01,.7017E+01,.7041E+01,.7109E+01,.7145E+01,.7161E+01,.7586E+01,.8233E+01,.7799E+01,.3661E+01,& + .7828E+01,.7828E+01,.7828E+01,.7845E+01,.7895E+01,.8007E+01,.8055E+01,.8414E+01,.9188E+01,.8838E+01,.4305E+01,& + .8792E+01,.8792E+01,.8792E+01,.8832E+01,.8944E+01,.9022E+01,.9056E+01,.9506E+01,.1034E+02,.1016E+02,.5150E+01,& + .1065E+02,.1065E+02,.1065E+02,.1067E+02,.1073E+02,.1086E+02,.1091E+02,.1136E+02,.1235E+02,.1250E+02,.6784E+01,& + .1355E+02,.1355E+02,.1355E+02,.1357E+02,.1361E+02,.1368E+02,.1371E+02,.1427E+02,.1541E+02,.1607E+02,.9475E+01,& + .2060E+02,.2060E+02,.2060E+02,.2068E+02,.2089E+02,.2093E+02,.2095E+02,.2152E+02,.2316E+02,.2485E+02,.1687E+02/ + data (((Bex(ai,k,nh),ai= 6, 6),k=1,11),nh=0,99)/ & + .1250E+00,.1250E+00,.1250E+00,.1254E+00,.1264E+00,.1254E+00,.1250E+00,.1282E+00,.1335E+00,.1444E+00,.1543E+00,& + .1282E+00,.1282E+00,.1282E+00,.1286E+00,.1296E+00,.1285E+00,.1281E+00,.1313E+00,.1368E+00,.1478E+00,.1578E+00,& + .1313E+00,.1313E+00,.1313E+00,.1317E+00,.1328E+00,.1317E+00,.1312E+00,.1344E+00,.1400E+00,.1512E+00,.1612E+00,& + .1345E+00,.1345E+00,.1345E+00,.1349E+00,.1359E+00,.1348E+00,.1344E+00,.1375E+00,.1433E+00,.1547E+00,.1647E+00,& + .1376E+00,.1376E+00,.1376E+00,.1380E+00,.1391E+00,.1380E+00,.1375E+00,.1406E+00,.1465E+00,.1581E+00,.1681E+00,& + .1408E+00,.1408E+00,.1408E+00,.1412E+00,.1423E+00,.1411E+00,.1406E+00,.1437E+00,.1498E+00,.1615E+00,.1716E+00,& + .1440E+00,.1440E+00,.1440E+00,.1444E+00,.1454E+00,.1443E+00,.1438E+00,.1471E+00,.1533E+00,.1653E+00,.1754E+00,& + .1472E+00,.1472E+00,.1472E+00,.1476E+00,.1485E+00,.1474E+00,.1470E+00,.1505E+00,.1568E+00,.1690E+00,.1792E+00,& + .1505E+00,.1505E+00,.1505E+00,.1507E+00,.1516E+00,.1506E+00,.1501E+00,.1540E+00,.1603E+00,.1728E+00,.1831E+00,& + .1537E+00,.1537E+00,.1537E+00,.1539E+00,.1547E+00,.1537E+00,.1533E+00,.1574E+00,.1638E+00,.1765E+00,.1869E+00,& + .1569E+00,.1569E+00,.1569E+00,.1571E+00,.1578E+00,.1569E+00,.1565E+00,.1608E+00,.1673E+00,.1803E+00,.1907E+00,& + .1600E+00,.1600E+00,.1600E+00,.1602E+00,.1608E+00,.1604E+00,.1601E+00,.1643E+00,.1707E+00,.1839E+00,.1946E+00,& + .1631E+00,.1631E+00,.1631E+00,.1633E+00,.1638E+00,.1638E+00,.1638E+00,.1678E+00,.1741E+00,.1875E+00,.1986E+00,& + .1661E+00,.1661E+00,.1661E+00,.1663E+00,.1669E+00,.1673E+00,.1674E+00,.1712E+00,.1776E+00,.1912E+00,.2025E+00,& + .1692E+00,.1692E+00,.1692E+00,.1694E+00,.1699E+00,.1707E+00,.1711E+00,.1747E+00,.1810E+00,.1948E+00,.2065E+00,& + .1723E+00,.1723E+00,.1723E+00,.1725E+00,.1729E+00,.1742E+00,.1747E+00,.1782E+00,.1844E+00,.1984E+00,.2104E+00,& + .1761E+00,.1761E+00,.1761E+00,.1764E+00,.1769E+00,.1779E+00,.1782E+00,.1820E+00,.1883E+00,.2024E+00,.2147E+00,& + .1800E+00,.1800E+00,.1800E+00,.1802E+00,.1809E+00,.1815E+00,.1817E+00,.1857E+00,.1922E+00,.2065E+00,.2190E+00,& + .1838E+00,.1838E+00,.1838E+00,.1841E+00,.1848E+00,.1852E+00,.1853E+00,.1895E+00,.1961E+00,.2105E+00,.2233E+00,& + .1877E+00,.1877E+00,.1877E+00,.1879E+00,.1888E+00,.1888E+00,.1888E+00,.1932E+00,.2000E+00,.2146E+00,.2276E+00,& + .1915E+00,.1915E+00,.1915E+00,.1918E+00,.1928E+00,.1925E+00,.1923E+00,.1970E+00,.2039E+00,.2186E+00,.2319E+00,& + .1953E+00,.1953E+00,.1953E+00,.1956E+00,.1964E+00,.1966E+00,.1966E+00,.2012E+00,.2079E+00,.2228E+00,.2363E+00,& + .1991E+00,.1991E+00,.1991E+00,.1993E+00,.2001E+00,.2007E+00,.2010E+00,.2054E+00,.2119E+00,.2270E+00,.2407E+00,& + .2028E+00,.2028E+00,.2028E+00,.2031E+00,.2037E+00,.2049E+00,.2053E+00,.2095E+00,.2159E+00,.2313E+00,.2450E+00,& + .2066E+00,.2066E+00,.2066E+00,.2068E+00,.2074E+00,.2090E+00,.2097E+00,.2137E+00,.2199E+00,.2355E+00,.2494E+00,& + .2104E+00,.2104E+00,.2104E+00,.2106E+00,.2110E+00,.2131E+00,.2140E+00,.2179E+00,.2239E+00,.2397E+00,.2538E+00,& + .2146E+00,.2146E+00,.2146E+00,.2149E+00,.2154E+00,.2170E+00,.2176E+00,.2216E+00,.2280E+00,.2441E+00,.2586E+00,& + .2188E+00,.2188E+00,.2188E+00,.2191E+00,.2199E+00,.2209E+00,.2213E+00,.2252E+00,.2321E+00,.2485E+00,.2634E+00,& + .2230E+00,.2230E+00,.2230E+00,.2234E+00,.2243E+00,.2247E+00,.2249E+00,.2289E+00,.2362E+00,.2530E+00,.2681E+00,& + .2272E+00,.2272E+00,.2272E+00,.2276E+00,.2288E+00,.2286E+00,.2286E+00,.2325E+00,.2403E+00,.2574E+00,.2729E+00,& + .2314E+00,.2314E+00,.2314E+00,.2319E+00,.2332E+00,.2325E+00,.2322E+00,.2362E+00,.2444E+00,.2618E+00,.2777E+00,& + .2351E+00,.2351E+00,.2351E+00,.2356E+00,.2370E+00,.2364E+00,.2362E+00,.2405E+00,.2487E+00,.2662E+00,.2825E+00,& + .2389E+00,.2389E+00,.2389E+00,.2394E+00,.2408E+00,.2403E+00,.2401E+00,.2448E+00,.2530E+00,.2706E+00,.2873E+00,& + .2426E+00,.2426E+00,.2426E+00,.2431E+00,.2445E+00,.2442E+00,.2441E+00,.2491E+00,.2573E+00,.2750E+00,.2922E+00,& + .2464E+00,.2464E+00,.2464E+00,.2469E+00,.2483E+00,.2481E+00,.2480E+00,.2534E+00,.2616E+00,.2794E+00,.2970E+00,& + .2501E+00,.2501E+00,.2501E+00,.2506E+00,.2521E+00,.2520E+00,.2520E+00,.2577E+00,.2659E+00,.2838E+00,.3018E+00,& + .2545E+00,.2545E+00,.2545E+00,.2550E+00,.2564E+00,.2564E+00,.2565E+00,.2623E+00,.2705E+00,.2882E+00,.3070E+00,& + .2589E+00,.2589E+00,.2589E+00,.2594E+00,.2607E+00,.2608E+00,.2610E+00,.2669E+00,.2750E+00,.2926E+00,.3122E+00,& + .2634E+00,.2634E+00,.2634E+00,.2637E+00,.2649E+00,.2653E+00,.2654E+00,.2715E+00,.2796E+00,.2971E+00,.3175E+00,& + .2678E+00,.2678E+00,.2678E+00,.2681E+00,.2692E+00,.2697E+00,.2699E+00,.2761E+00,.2841E+00,.3015E+00,.3227E+00,& + .2722E+00,.2722E+00,.2722E+00,.2725E+00,.2735E+00,.2741E+00,.2744E+00,.2807E+00,.2887E+00,.3059E+00,.3279E+00,& + .2774E+00,.2774E+00,.2774E+00,.2776E+00,.2785E+00,.2792E+00,.2796E+00,.2854E+00,.2932E+00,.3110E+00,.3333E+00,& + .2826E+00,.2826E+00,.2826E+00,.2828E+00,.2834E+00,.2843E+00,.2848E+00,.2901E+00,.2977E+00,.3162E+00,.3386E+00,& + .2877E+00,.2877E+00,.2877E+00,.2879E+00,.2884E+00,.2895E+00,.2899E+00,.2948E+00,.3023E+00,.3213E+00,.3440E+00,& + .2929E+00,.2929E+00,.2929E+00,.2931E+00,.2933E+00,.2946E+00,.2951E+00,.2995E+00,.3068E+00,.3265E+00,.3493E+00,& + .2981E+00,.2981E+00,.2981E+00,.2982E+00,.2983E+00,.2997E+00,.3003E+00,.3042E+00,.3113E+00,.3316E+00,.3547E+00,& + .3021E+00,.3021E+00,.3021E+00,.3024E+00,.3029E+00,.3039E+00,.3043E+00,.3086E+00,.3164E+00,.3368E+00,.3602E+00,& + .3061E+00,.3061E+00,.3061E+00,.3065E+00,.3075E+00,.3081E+00,.3083E+00,.3130E+00,.3215E+00,.3419E+00,.3658E+00,& + .3102E+00,.3102E+00,.3102E+00,.3107E+00,.3121E+00,.3122E+00,.3123E+00,.3175E+00,.3265E+00,.3471E+00,.3713E+00,& + .3142E+00,.3142E+00,.3142E+00,.3148E+00,.3167E+00,.3164E+00,.3163E+00,.3219E+00,.3316E+00,.3522E+00,.3769E+00,& + .3182E+00,.3182E+00,.3182E+00,.3190E+00,.3213E+00,.3206E+00,.3203E+00,.3263E+00,.3367E+00,.3574E+00,.3824E+00,& + .3225E+00,.3225E+00,.3225E+00,.3232E+00,.3250E+00,.3248E+00,.3247E+00,.3302E+00,.3409E+00,.3614E+00,.3872E+00,& + .3268E+00,.3268E+00,.3268E+00,.3273E+00,.3287E+00,.3289E+00,.3290E+00,.3340E+00,.3452E+00,.3654E+00,.3920E+00,& + .3312E+00,.3312E+00,.3312E+00,.3315E+00,.3324E+00,.3331E+00,.3334E+00,.3379E+00,.3494E+00,.3695E+00,.3968E+00,& + .3355E+00,.3355E+00,.3355E+00,.3356E+00,.3361E+00,.3372E+00,.3377E+00,.3417E+00,.3537E+00,.3735E+00,.4016E+00,& + .3398E+00,.3398E+00,.3398E+00,.3398E+00,.3398E+00,.3414E+00,.3421E+00,.3456E+00,.3579E+00,.3775E+00,.4064E+00,& + .3438E+00,.3438E+00,.3438E+00,.3438E+00,.3440E+00,.3454E+00,.3460E+00,.3501E+00,.3619E+00,.3819E+00,.4113E+00,& + .3477E+00,.3477E+00,.3477E+00,.3478E+00,.3482E+00,.3494E+00,.3499E+00,.3546E+00,.3659E+00,.3863E+00,.4162E+00,& + .3517E+00,.3517E+00,.3517E+00,.3519E+00,.3524E+00,.3533E+00,.3537E+00,.3591E+00,.3700E+00,.3907E+00,.4210E+00,& + .3556E+00,.3556E+00,.3556E+00,.3559E+00,.3566E+00,.3573E+00,.3576E+00,.3636E+00,.3740E+00,.3951E+00,.4259E+00,& + .3596E+00,.3596E+00,.3596E+00,.3599E+00,.3608E+00,.3613E+00,.3615E+00,.3681E+00,.3780E+00,.3995E+00,.4308E+00,& + .3642E+00,.3642E+00,.3642E+00,.3645E+00,.3652E+00,.3663E+00,.3668E+00,.3727E+00,.3823E+00,.4042E+00,.4357E+00,& + .3689E+00,.3689E+00,.3689E+00,.3691E+00,.3697E+00,.3713E+00,.3720E+00,.3774E+00,.3866E+00,.4090E+00,.4407E+00,& + .3735E+00,.3735E+00,.3735E+00,.3737E+00,.3741E+00,.3764E+00,.3773E+00,.3820E+00,.3910E+00,.4137E+00,.4456E+00,& + .3782E+00,.3782E+00,.3782E+00,.3783E+00,.3786E+00,.3814E+00,.3825E+00,.3867E+00,.3953E+00,.4185E+00,.4506E+00,& + .3828E+00,.3828E+00,.3828E+00,.3829E+00,.3830E+00,.3864E+00,.3878E+00,.3913E+00,.3996E+00,.4232E+00,.4555E+00,& + .3867E+00,.3867E+00,.3867E+00,.3870E+00,.3877E+00,.3903E+00,.3914E+00,.3952E+00,.4041E+00,.4276E+00,.4607E+00,& + .3906E+00,.3906E+00,.3906E+00,.3911E+00,.3924E+00,.3942E+00,.3950E+00,.3991E+00,.4087E+00,.4319E+00,.4660E+00,& + .3944E+00,.3944E+00,.3944E+00,.3951E+00,.3972E+00,.3982E+00,.3986E+00,.4031E+00,.4132E+00,.4363E+00,.4712E+00,& + .3983E+00,.3983E+00,.3983E+00,.3992E+00,.4019E+00,.4021E+00,.4022E+00,.4070E+00,.4178E+00,.4406E+00,.4765E+00,& + .4022E+00,.4022E+00,.4022E+00,.4033E+00,.4066E+00,.4060E+00,.4058E+00,.4109E+00,.4223E+00,.4450E+00,.4817E+00,& + .4090E+00,.4090E+00,.4090E+00,.4098E+00,.4123E+00,.4125E+00,.4126E+00,.4174E+00,.4292E+00,.4520E+00,.4896E+00,& + .4158E+00,.4158E+00,.4158E+00,.4164E+00,.4181E+00,.4189E+00,.4193E+00,.4239E+00,.4361E+00,.4591E+00,.4976E+00,& + .4227E+00,.4227E+00,.4227E+00,.4229E+00,.4238E+00,.4254E+00,.4261E+00,.4305E+00,.4430E+00,.4661E+00,.5055E+00,& + .4295E+00,.4295E+00,.4295E+00,.4295E+00,.4296E+00,.4318E+00,.4328E+00,.4370E+00,.4499E+00,.4732E+00,.5135E+00,& + .4363E+00,.4363E+00,.4363E+00,.4360E+00,.4353E+00,.4383E+00,.4396E+00,.4435E+00,.4568E+00,.4802E+00,.5214E+00,& + .4464E+00,.4464E+00,.4464E+00,.4463E+00,.4462E+00,.4493E+00,.4506E+00,.4546E+00,.4671E+00,.4911E+00,.5335E+00,& + .4564E+00,.4564E+00,.4564E+00,.4566E+00,.4571E+00,.4603E+00,.4617E+00,.4658E+00,.4774E+00,.5020E+00,.5457E+00,& + .4665E+00,.4665E+00,.4665E+00,.4668E+00,.4679E+00,.4713E+00,.4727E+00,.4769E+00,.4878E+00,.5129E+00,.5578E+00,& + .4765E+00,.4765E+00,.4765E+00,.4771E+00,.4788E+00,.4823E+00,.4838E+00,.4881E+00,.4981E+00,.5238E+00,.5700E+00,& + .4866E+00,.4866E+00,.4866E+00,.4874E+00,.4897E+00,.4933E+00,.4948E+00,.4992E+00,.5084E+00,.5347E+00,.5821E+00,& + .5001E+00,.5001E+00,.5001E+00,.5006E+00,.5020E+00,.5028E+00,.5032E+00,.5097E+00,.5201E+00,.5463E+00,.5952E+00,& + .5118E+00,.5118E+00,.5118E+00,.5134E+00,.5179E+00,.5172E+00,.5169E+00,.5240E+00,.5383E+00,.5651E+00,.6156E+00,& + .5327E+00,.5327E+00,.5327E+00,.5327E+00,.5328E+00,.5327E+00,.5327E+00,.5405E+00,.5558E+00,.5826E+00,.6358E+00,& + .5484E+00,.5484E+00,.5484E+00,.5485E+00,.5489E+00,.5523E+00,.5537E+00,.5590E+00,.5738E+00,.6008E+00,.6560E+00,& + .5711E+00,.5711E+00,.5711E+00,.5717E+00,.5734E+00,.5745E+00,.5749E+00,.5823E+00,.5960E+00,.6240E+00,.6806E+00,& + .5949E+00,.5949E+00,.5949E+00,.5941E+00,.5920E+00,.5977E+00,.6002E+00,.6055E+00,.6164E+00,.6447E+00,.7059E+00,& + .6140E+00,.6140E+00,.6140E+00,.6149E+00,.6176E+00,.6184E+00,.6188E+00,.6275E+00,.6377E+00,.6695E+00,.7314E+00,& + .6340E+00,.6340E+00,.6340E+00,.6354E+00,.6393E+00,.6387E+00,.6385E+00,.6474E+00,.6617E+00,.6926E+00,.7589E+00,& + .6647E+00,.6647E+00,.6647E+00,.6646E+00,.6642E+00,.6646E+00,.6648E+00,.6732E+00,.6910E+00,.7195E+00,.7902E+00,& + .6957E+00,.6957E+00,.6957E+00,.6965E+00,.6986E+00,.6992E+00,.6995E+00,.7092E+00,.7245E+00,.7540E+00,.8286E+00,& + .7368E+00,.7368E+00,.7368E+00,.7375E+00,.7396E+00,.7441E+00,.7460E+00,.7526E+00,.7662E+00,.7986E+00,.8761E+00,& + .7789E+00,.7789E+00,.7789E+00,.7803E+00,.7844E+00,.7839E+00,.7837E+00,.7936E+00,.8110E+00,.8456E+00,.9284E+00,& + .8471E+00,.8471E+00,.8471E+00,.8487E+00,.8533E+00,.8532E+00,.8532E+00,.8632E+00,.8805E+00,.9144E+00,.1007E+01,& + .9305E+00,.9305E+00,.9305E+00,.9328E+00,.9393E+00,.9387E+00,.9384E+00,.9495E+00,.9626E+00,.1002E+01,.1103E+01,& + .1036E+01,.1036E+01,.1036E+01,.1038E+01,.1043E+01,.1042E+01,.1041E+01,.1053E+01,.1076E+01,.1110E+01,.1225E+01,& + .1203E+01,.1203E+01,.1203E+01,.1203E+01,.1203E+01,.1203E+01,.1203E+01,.1214E+01,.1241E+01,.1280E+01,.1410E+01,& + .1427E+01,.1427E+01,.1427E+01,.1428E+01,.1432E+01,.1431E+01,.1431E+01,.1444E+01,.1470E+01,.1518E+01,.1667E+01,& + .1851E+01,.1851E+01,.1851E+01,.1853E+01,.1858E+01,.1857E+01,.1857E+01,.1874E+01,.1906E+01,.1951E+01,.2142E+01,& + .2917E+01,.2917E+01,.2917E+01,.2918E+01,.2919E+01,.2926E+01,.2929E+01,.2953E+01,.2977E+01,.3058E+01,.3309E+01/ + data (((Bex(ai,k,nh),ai= 7, 7),k=1,11),nh=0,99)/ & + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,& + .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01/ + data (((Bex(ai,k,nh),ai= 8, 8),k=1,11),nh=0,99)/ & + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,& + .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01/ + data (((Bex(ai,k,nh),ai= 9, 9),k=1,11),nh=0,99)/ & + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,& + .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00/ + data (((Bex(ai,k,nh),ai=10,10),k=1,11),nh=0,99)/ & + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,& + .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00/ + data (((Bex(ai,k,nh),ai=11,11),k=1,11),nh=0,99)/ & + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,& + .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00/ + data (((Bex(ai,k,nh),ai=12,12),k=1,11),nh=0,99)/ & + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,& + .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00/ + data (((Bex(ai,k,nh),ai=13,13),k=1,11),nh=0,99)/ & + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,& + .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00/ + data (((Bex(ai,k,nh),ai=14,14),k=1,11),nh=0,99)/ & + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,& + .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01/ + data (((w0(ai,k,nh),ai= 1, 1),k=1,11),nh=0,99)/ & + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9766E+00,.1023E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9768E+00,.1038E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9771E+00,.1053E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9773E+00,.1069E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9776E+00,.1084E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9778E+00,.1099E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9780E+00,.1116E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9782E+00,.1133E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9785E+00,.1151E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9787E+00,.1168E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9789E+00,.1185E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9791E+00,.1203E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9793E+00,.1221E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9794E+00,.1239E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9796E+00,.1257E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9798E+00,.1275E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9800E+00,.1295E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9802E+00,.1315E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9804E+00,.1334E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9806E+00,.1354E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9808E+00,.1374E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9810E+00,.1395E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9811E+00,.1416E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9813E+00,.1437E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9814E+00,.1458E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9816E+00,.1479E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9818E+00,.1501E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9819E+00,.1523E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9821E+00,.1544E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9822E+00,.1566E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9824E+00,.1588E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9825E+00,.1611E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9827E+00,.1633E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9828E+00,.1656E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9830E+00,.1678E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9831E+00,.1701E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9832E+00,.1723E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9833E+00,.1745E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9835E+00,.1768E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9836E+00,.1790E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9837E+00,.1812E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9838E+00,.1835E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9839E+00,.1859E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9841E+00,.1882E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9842E+00,.1906E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9843E+00,.1929E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9844E+00,.1953E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9845E+00,.1976E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9846E+00,.2000E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9847E+00,.2023E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9848E+00,.2047E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9849E+00,.2069E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9850E+00,.2091E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9851E+00,.2113E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9852E+00,.2135E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9853E+00,.2157E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9854E+00,.2178E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9855E+00,.2199E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9855E+00,.2220E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9856E+00,.2241E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9857E+00,.2262E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9858E+00,.2284E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9859E+00,.2306E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9859E+00,.2327E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9860E+00,.2349E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9861E+00,.2371E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9862E+00,.2393E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9863E+00,.2414E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9863E+00,.2436E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9864E+00,.2457E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9865E+00,.2479E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9866E+00,.2514E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9867E+00,.2550E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9869E+00,.2585E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9870E+00,.2621E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9871E+00,.2656E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9872E+00,.2691E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9873E+00,.2725E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9874E+00,.2760E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9875E+00,.2794E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9876E+00,.2829E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9877E+00,.2866E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9878E+00,.2903E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9879E+00,.2940E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9881E+00,.2995E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9882E+00,.3050E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9883E+00,.3103E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9886E+00,.3174E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9887E+00,.3243E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9889E+00,.3328E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9891E+00,.3427E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9893E+00,.3524E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9896E+00,.3648E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9898E+00,.3768E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9901E+00,.3911E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9904E+00,.4101E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9908E+00,.4302E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9912E+00,.4555E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9917E+00,.4916E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9923E+00,.5487E+00/ + data (((w0(ai,k,nh),ai= 2, 2),k=1,11),nh=0,99)/ & + .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& + .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& + .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& + .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& + .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& + .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& + .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& + .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& + .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& + .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& + .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& + .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& + .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& + .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& + .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& + .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& + .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& + .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& + .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& + .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& + .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& + .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& + .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& + .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& + .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& + .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& + .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& + .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& + .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& + .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& + .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& + .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& + .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& + .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& + .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& + .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& + .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& + .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& + .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& + .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& + .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& + .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& + .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& + .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& + .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& + .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& + .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& + .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& + .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& + .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& + .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& + .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& + .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& + .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& + .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& + .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,& + .3085E+00,.3085E+00,.3085E+00,.3097E+00,.3131E+00,.2976E+00,.2909E+00,.2106E+00,.1051E+00,.3133E-01,.2660E-02,& + .3089E+00,.3089E+00,.3089E+00,.3100E+00,.3134E+00,.2979E+00,.2912E+00,.2108E+00,.1052E+00,.3138E-01,.2663E-02,& + .3092E+00,.3092E+00,.3092E+00,.3104E+00,.3137E+00,.2981E+00,.2914E+00,.2111E+00,.1054E+00,.3142E-01,.2667E-02,& + .3096E+00,.3096E+00,.3096E+00,.3107E+00,.3140E+00,.2984E+00,.2917E+00,.2113E+00,.1055E+00,.3147E-01,.2670E-02,& + .3100E+00,.3100E+00,.3100E+00,.3111E+00,.3143E+00,.2987E+00,.2920E+00,.2116E+00,.1057E+00,.3151E-01,.2674E-02,& + .3100E+00,.3100E+00,.3100E+00,.3111E+00,.3143E+00,.2987E+00,.2920E+00,.2116E+00,.1057E+00,.3151E-01,.2674E-02,& + .3100E+00,.3100E+00,.3100E+00,.3111E+00,.3143E+00,.2987E+00,.2920E+00,.2116E+00,.1057E+00,.3151E-01,.2674E-02,& + .3100E+00,.3100E+00,.3100E+00,.3111E+00,.3143E+00,.2987E+00,.2920E+00,.2116E+00,.1057E+00,.3151E-01,.2674E-02,& + .3100E+00,.3100E+00,.3100E+00,.3111E+00,.3143E+00,.2987E+00,.2920E+00,.2116E+00,.1057E+00,.3151E-01,.2674E-02,& + .3100E+00,.3100E+00,.3100E+00,.3111E+00,.3143E+00,.2987E+00,.2920E+00,.2116E+00,.1057E+00,.3151E-01,.2674E-02,& + .3112E+00,.3112E+00,.3112E+00,.3123E+00,.3153E+00,.2996E+00,.2929E+00,.2124E+00,.1062E+00,.3166E-01,.2686E-02,& + .3124E+00,.3124E+00,.3124E+00,.3134E+00,.3163E+00,.3006E+00,.2939E+00,.2132E+00,.1067E+00,.3181E-01,.2698E-02,& + .3137E+00,.3137E+00,.3137E+00,.3146E+00,.3172E+00,.3015E+00,.2948E+00,.2139E+00,.1071E+00,.3196E-01,.2711E-02,& + .3149E+00,.3149E+00,.3149E+00,.3157E+00,.3182E+00,.3025E+00,.2958E+00,.2147E+00,.1076E+00,.3211E-01,.2723E-02,& + .3161E+00,.3161E+00,.3161E+00,.3169E+00,.3192E+00,.3034E+00,.2967E+00,.2155E+00,.1081E+00,.3226E-01,.2735E-02,& + .3200E+00,.3200E+00,.3200E+00,.3206E+00,.3224E+00,.3065E+00,.2998E+00,.2181E+00,.1097E+00,.3276E-01,.2775E-02,& + .3238E+00,.3238E+00,.3238E+00,.3243E+00,.3256E+00,.3096E+00,.3028E+00,.2207E+00,.1113E+00,.3326E-01,.2815E-02,& + .3277E+00,.3277E+00,.3277E+00,.3279E+00,.3288E+00,.3128E+00,.3059E+00,.2234E+00,.1129E+00,.3376E-01,.2856E-02,& + .3315E+00,.3315E+00,.3315E+00,.3316E+00,.3320E+00,.3159E+00,.3089E+00,.2260E+00,.1145E+00,.3426E-01,.2896E-02,& + .3354E+00,.3354E+00,.3354E+00,.3353E+00,.3352E+00,.3190E+00,.3120E+00,.2286E+00,.1161E+00,.3476E-01,.2936E-02,& + .3413E+00,.3413E+00,.3413E+00,.3410E+00,.3402E+00,.3238E+00,.3168E+00,.2328E+00,.1187E+00,.3561E-01,.3003E-02,& + .3472E+00,.3472E+00,.3472E+00,.3466E+00,.3452E+00,.3287E+00,.3216E+00,.2370E+00,.1214E+00,.3646E-01,.3070E-02,& + .3530E+00,.3530E+00,.3530E+00,.3523E+00,.3501E+00,.3335E+00,.3264E+00,.2411E+00,.1240E+00,.3731E-01,.3138E-02,& + .3589E+00,.3589E+00,.3589E+00,.3579E+00,.3551E+00,.3384E+00,.3312E+00,.2453E+00,.1267E+00,.3816E-01,.3205E-02,& + .3648E+00,.3648E+00,.3648E+00,.3636E+00,.3601E+00,.3432E+00,.3360E+00,.2495E+00,.1293E+00,.3901E-01,.3272E-02,& + .3746E+00,.3746E+00,.3746E+00,.3730E+00,.3685E+00,.3514E+00,.3441E+00,.2567E+00,.1339E+00,.4053E-01,.3392E-02,& + .3813E+00,.3813E+00,.3813E+00,.3795E+00,.3743E+00,.3571E+00,.3497E+00,.2617E+00,.1372E+00,.4161E-01,.3477E-02,& + .3916E+00,.3916E+00,.3916E+00,.3894E+00,.3833E+00,.3659E+00,.3585E+00,.2695E+00,.1423E+00,.4333E-01,.3612E-02,& + .3987E+00,.3987E+00,.3987E+00,.3963E+00,.3895E+00,.3720E+00,.3645E+00,.2750E+00,.1459E+00,.4455E-01,.3708E-02,& + .4095E+00,.4095E+00,.4095E+00,.4068E+00,.3990E+00,.3814E+00,.3738E+00,.2834E+00,.1516E+00,.4649E-01,.3860E-02,& + .4205E+00,.4205E+00,.4205E+00,.4175E+00,.4088E+00,.3910E+00,.3834E+00,.2922E+00,.1575E+00,.4856E-01,.4023E-02,& + .4280E+00,.4280E+00,.4280E+00,.4247E+00,.4154E+00,.3975E+00,.3899E+00,.2982E+00,.1617E+00,.5001E-01,.4137E-02,& + .4393E+00,.4393E+00,.4393E+00,.4357E+00,.4256E+00,.4077E+00,.4000E+00,.3075E+00,.1681E+00,.5231E-01,.4318E-02,& + .4470E+00,.4470E+00,.4470E+00,.4432E+00,.4325E+00,.4145E+00,.4068E+00,.3139E+00,.1726E+00,.5392E-01,.4444E-02,& + .4585E+00,.4585E+00,.4585E+00,.4544E+00,.4429E+00,.4248E+00,.4171E+00,.3237E+00,.1796E+00,.5646E-01,.4644E-02,& + .4701E+00,.4701E+00,.4701E+00,.4658E+00,.4535E+00,.4354E+00,.4277E+00,.3338E+00,.1869E+00,.5915E-01,.4856E-02,& + .4818E+00,.4818E+00,.4818E+00,.4772E+00,.4642E+00,.4461E+00,.4383E+00,.3440E+00,.1944E+00,.6198E-01,.5080E-02,& + .4935E+00,.4935E+00,.4935E+00,.4887E+00,.4750E+00,.4569E+00,.4491E+00,.3545E+00,.2023E+00,.6498E-01,.5317E-02,& + .5091E+00,.5091E+00,.5091E+00,.5040E+00,.4894E+00,.4714E+00,.4637E+00,.3689E+00,.2133E+00,.6923E-01,.5655E-02,& + .5245E+00,.5245E+00,.5245E+00,.5192E+00,.5040E+00,.4861E+00,.4784E+00,.3835E+00,.2247E+00,.7377E-01,.6017E-02,& + .5437E+00,.5437E+00,.5437E+00,.5381E+00,.5221E+00,.5044E+00,.4968E+00,.4021E+00,.2396E+00,.7989E-01,.6507E-02,& + .5699E+00,.5699E+00,.5699E+00,.5640E+00,.5472E+00,.5298E+00,.5224E+00,.4287E+00,.2616E+00,.8925E-01,.7266E-02,& + .5987E+00,.5987E+00,.5987E+00,.5926E+00,.5754E+00,.5586E+00,.5514E+00,.4595E+00,.2883E+00,.1012E+00,.8247E-02,& + .6646E+00,.6646E+00,.6646E+00,.6585E+00,.6413E+00,.6265E+00,.6202E+00,.5355E+00,.3600E+00,.1368E+00,.1128E-01/ + data (((w0(ai,k,nh),ai= 3, 3),k=1,11),nh=0,99)/ & + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00/ + data (((w0(ai,k,nh),ai= 4, 4),k=1,11),nh=0,99)/ & + .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,& + .8409E+00,.8409E+00,.8409E+00,.8696E+00,.9510E+00,.9638E+00,.9692E+00,.9620E+00,.8787E+00,.7359E+00,.2176E+00,& + .8423E+00,.8423E+00,.8423E+00,.8707E+00,.9516E+00,.9642E+00,.9695E+00,.9624E+00,.8798E+00,.7381E+00,.2158E+00,& + .8436E+00,.8436E+00,.8436E+00,.8719E+00,.9521E+00,.9645E+00,.9699E+00,.9627E+00,.8810E+00,.7402E+00,.2141E+00,& + .8450E+00,.8450E+00,.8450E+00,.8730E+00,.9527E+00,.9649E+00,.9702E+00,.9631E+00,.8821E+00,.7424E+00,.2123E+00,& + .8464E+00,.8464E+00,.8464E+00,.8742E+00,.9532E+00,.9653E+00,.9705E+00,.9635E+00,.8832E+00,.7445E+00,.2106E+00,& + .8476E+00,.8476E+00,.8476E+00,.8752E+00,.9537E+00,.9656E+00,.9708E+00,.9639E+00,.8843E+00,.7466E+00,.2098E+00,& + .8489E+00,.8489E+00,.8489E+00,.8763E+00,.9541E+00,.9660E+00,.9711E+00,.9642E+00,.8853E+00,.7487E+00,.2091E+00,& + .8501E+00,.8501E+00,.8501E+00,.8773E+00,.9546E+00,.9663E+00,.9713E+00,.9646E+00,.8864E+00,.7508E+00,.2083E+00,& + .8514E+00,.8514E+00,.8514E+00,.8784E+00,.9550E+00,.9667E+00,.9716E+00,.9649E+00,.8874E+00,.7529E+00,.2076E+00,& + .8526E+00,.8526E+00,.8526E+00,.8794E+00,.9555E+00,.9670E+00,.9719E+00,.9653E+00,.8885E+00,.7550E+00,.2068E+00,& + .8538E+00,.8538E+00,.8538E+00,.8804E+00,.9559E+00,.9673E+00,.9721E+00,.9656E+00,.8895E+00,.7570E+00,.2065E+00,& + .8550E+00,.8550E+00,.8550E+00,.8814E+00,.9563E+00,.9676E+00,.9724E+00,.9660E+00,.8905E+00,.7591E+00,.2062E+00,& + .8563E+00,.8563E+00,.8563E+00,.8824E+00,.9566E+00,.9678E+00,.9726E+00,.9663E+00,.8916E+00,.7611E+00,.2059E+00,& + .8575E+00,.8575E+00,.8575E+00,.8834E+00,.9570E+00,.9681E+00,.9729E+00,.9667E+00,.8926E+00,.7632E+00,.2056E+00,& + .8587E+00,.8587E+00,.8587E+00,.8844E+00,.9574E+00,.9684E+00,.9731E+00,.9670E+00,.8936E+00,.7652E+00,.2053E+00,& + .8599E+00,.8599E+00,.8599E+00,.8854E+00,.9578E+00,.9687E+00,.9734E+00,.9673E+00,.8946E+00,.7672E+00,.2052E+00,& + .8612E+00,.8612E+00,.8612E+00,.8864E+00,.9582E+00,.9690E+00,.9737E+00,.9676E+00,.8956E+00,.7691E+00,.2052E+00,& + .8624E+00,.8624E+00,.8624E+00,.8875E+00,.9586E+00,.9694E+00,.9740E+00,.9680E+00,.8965E+00,.7711E+00,.2051E+00,& + .8637E+00,.8637E+00,.8637E+00,.8885E+00,.9590E+00,.9697E+00,.9743E+00,.9683E+00,.8975E+00,.7730E+00,.2051E+00,& + .8649E+00,.8649E+00,.8649E+00,.8895E+00,.9594E+00,.9700E+00,.9746E+00,.9686E+00,.8985E+00,.7750E+00,.2050E+00,& + .8661E+00,.8661E+00,.8661E+00,.8905E+00,.9598E+00,.9703E+00,.9749E+00,.9689E+00,.8995E+00,.7769E+00,.2051E+00,& + .8673E+00,.8673E+00,.8673E+00,.8915E+00,.9602E+00,.9706E+00,.9751E+00,.9692E+00,.9004E+00,.7788E+00,.2052E+00,& + .8684E+00,.8684E+00,.8684E+00,.8924E+00,.9607E+00,.9710E+00,.9754E+00,.9695E+00,.9014E+00,.7807E+00,.2052E+00,& + .8696E+00,.8696E+00,.8696E+00,.8934E+00,.9611E+00,.9713E+00,.9756E+00,.9698E+00,.9023E+00,.7826E+00,.2053E+00,& + .8708E+00,.8708E+00,.8708E+00,.8944E+00,.9615E+00,.9716E+00,.9759E+00,.9701E+00,.9033E+00,.7845E+00,.2054E+00,& + .8719E+00,.8719E+00,.8719E+00,.8953E+00,.9619E+00,.9719E+00,.9761E+00,.9704E+00,.9042E+00,.7864E+00,.2056E+00,& + .8729E+00,.8729E+00,.8729E+00,.8962E+00,.9623E+00,.9722E+00,.9764E+00,.9707E+00,.9051E+00,.7882E+00,.2058E+00,& + .8740E+00,.8740E+00,.8740E+00,.8970E+00,.9627E+00,.9724E+00,.9766E+00,.9710E+00,.9060E+00,.7901E+00,.2060E+00,& + .8750E+00,.8750E+00,.8750E+00,.8979E+00,.9631E+00,.9727E+00,.9769E+00,.9713E+00,.9069E+00,.7919E+00,.2062E+00,& + .8761E+00,.8761E+00,.8761E+00,.8988E+00,.9635E+00,.9730E+00,.9771E+00,.9716E+00,.9078E+00,.7938E+00,.2064E+00,& + .8770E+00,.8770E+00,.8770E+00,.8996E+00,.9638E+00,.9732E+00,.9773E+00,.9719E+00,.9087E+00,.7956E+00,.2067E+00,& + .8780E+00,.8780E+00,.8780E+00,.9004E+00,.9641E+00,.9735E+00,.9775E+00,.9722E+00,.9096E+00,.7973E+00,.2069E+00,& + .8789E+00,.8789E+00,.8789E+00,.9011E+00,.9645E+00,.9737E+00,.9777E+00,.9724E+00,.9104E+00,.7991E+00,.2072E+00,& + .8799E+00,.8799E+00,.8799E+00,.9019E+00,.9648E+00,.9740E+00,.9779E+00,.9727E+00,.9113E+00,.8008E+00,.2074E+00,& + .8808E+00,.8808E+00,.8808E+00,.9027E+00,.9651E+00,.9742E+00,.9781E+00,.9730E+00,.9122E+00,.8026E+00,.2077E+00,& + .8818E+00,.8818E+00,.8818E+00,.9035E+00,.9654E+00,.9744E+00,.9783E+00,.9733E+00,.9130E+00,.8043E+00,.2080E+00,& + .8827E+00,.8827E+00,.8827E+00,.9043E+00,.9657E+00,.9746E+00,.9785E+00,.9735E+00,.9138E+00,.8060E+00,.2083E+00,& + .8837E+00,.8837E+00,.8837E+00,.9051E+00,.9660E+00,.9749E+00,.9786E+00,.9738E+00,.9147E+00,.8077E+00,.2087E+00,& + .8846E+00,.8846E+00,.8846E+00,.9059E+00,.9663E+00,.9751E+00,.9788E+00,.9740E+00,.9155E+00,.8094E+00,.2090E+00,& + .8856E+00,.8856E+00,.8856E+00,.9067E+00,.9666E+00,.9753E+00,.9790E+00,.9743E+00,.9163E+00,.8111E+00,.2093E+00,& + .8866E+00,.8866E+00,.8866E+00,.9075E+00,.9669E+00,.9755E+00,.9792E+00,.9745E+00,.9171E+00,.8127E+00,.2097E+00,& + .8875E+00,.8875E+00,.8875E+00,.9083E+00,.9672E+00,.9758E+00,.9794E+00,.9747E+00,.9179E+00,.8144E+00,.2101E+00,& + .8885E+00,.8885E+00,.8885E+00,.9090E+00,.9674E+00,.9760E+00,.9797E+00,.9750E+00,.9187E+00,.8160E+00,.2104E+00,& + .8894E+00,.8894E+00,.8894E+00,.9098E+00,.9677E+00,.9763E+00,.9799E+00,.9752E+00,.9195E+00,.8177E+00,.2108E+00,& + .8904E+00,.8904E+00,.8904E+00,.9106E+00,.9680E+00,.9765E+00,.9801E+00,.9754E+00,.9203E+00,.8193E+00,.2112E+00,& + .8913E+00,.8913E+00,.8913E+00,.9114E+00,.9683E+00,.9767E+00,.9803E+00,.9756E+00,.9210E+00,.8209E+00,.2116E+00,& + .8923E+00,.8923E+00,.8923E+00,.9122E+00,.9686E+00,.9770E+00,.9805E+00,.9759E+00,.9218E+00,.8224E+00,.2120E+00,& + .8932E+00,.8932E+00,.8932E+00,.9129E+00,.9690E+00,.9772E+00,.9807E+00,.9761E+00,.9225E+00,.8240E+00,.2124E+00,& + .8942E+00,.8942E+00,.8942E+00,.9137E+00,.9693E+00,.9775E+00,.9809E+00,.9764E+00,.9233E+00,.8255E+00,.2128E+00,& + .8951E+00,.8951E+00,.8951E+00,.9145E+00,.9696E+00,.9777E+00,.9811E+00,.9766E+00,.9240E+00,.8271E+00,.2132E+00,& + .8961E+00,.8961E+00,.8961E+00,.9153E+00,.9700E+00,.9779E+00,.9813E+00,.9769E+00,.9249E+00,.8289E+00,.2137E+00,& + .8970E+00,.8970E+00,.8970E+00,.9161E+00,.9703E+00,.9782E+00,.9815E+00,.9771E+00,.9258E+00,.8307E+00,.2142E+00,& + .8980E+00,.8980E+00,.8980E+00,.9169E+00,.9707E+00,.9784E+00,.9817E+00,.9774E+00,.9266E+00,.8325E+00,.2147E+00,& + .8989E+00,.8989E+00,.8989E+00,.9177E+00,.9710E+00,.9787E+00,.9819E+00,.9776E+00,.9275E+00,.8343E+00,.2152E+00,& + .8999E+00,.8999E+00,.8999E+00,.9185E+00,.9714E+00,.9789E+00,.9821E+00,.9779E+00,.9284E+00,.8361E+00,.2157E+00,& + .9007E+00,.9007E+00,.9007E+00,.9192E+00,.9717E+00,.9791E+00,.9823E+00,.9782E+00,.9292E+00,.8378E+00,.2162E+00,& + .9015E+00,.9015E+00,.9015E+00,.9199E+00,.9719E+00,.9793E+00,.9825E+00,.9784E+00,.9300E+00,.8395E+00,.2168E+00,& + .9024E+00,.9024E+00,.9024E+00,.9205E+00,.9722E+00,.9795E+00,.9826E+00,.9787E+00,.9308E+00,.8411E+00,.2173E+00,& + .9032E+00,.9032E+00,.9032E+00,.9212E+00,.9724E+00,.9797E+00,.9828E+00,.9789E+00,.9316E+00,.8428E+00,.2179E+00,& + .9040E+00,.9040E+00,.9040E+00,.9219E+00,.9727E+00,.9799E+00,.9830E+00,.9792E+00,.9324E+00,.8445E+00,.2184E+00,& + .9048E+00,.9048E+00,.9048E+00,.9225E+00,.9729E+00,.9801E+00,.9831E+00,.9794E+00,.9331E+00,.8458E+00,.2189E+00,& + .9056E+00,.9056E+00,.9056E+00,.9231E+00,.9731E+00,.9802E+00,.9833E+00,.9796E+00,.9337E+00,.8472E+00,.2194E+00,& + .9063E+00,.9063E+00,.9063E+00,.9238E+00,.9733E+00,.9804E+00,.9834E+00,.9797E+00,.9344E+00,.8485E+00,.2198E+00,& + .9071E+00,.9071E+00,.9071E+00,.9244E+00,.9735E+00,.9805E+00,.9836E+00,.9799E+00,.9350E+00,.8499E+00,.2203E+00,& + .9079E+00,.9079E+00,.9079E+00,.9250E+00,.9737E+00,.9807E+00,.9837E+00,.9801E+00,.9357E+00,.8512E+00,.2208E+00,& + .9088E+00,.9088E+00,.9088E+00,.9257E+00,.9740E+00,.9809E+00,.9839E+00,.9803E+00,.9364E+00,.8527E+00,.2214E+00,& + .9097E+00,.9097E+00,.9097E+00,.9265E+00,.9743E+00,.9811E+00,.9841E+00,.9805E+00,.9371E+00,.8542E+00,.2220E+00,& + .9106E+00,.9106E+00,.9106E+00,.9272E+00,.9745E+00,.9814E+00,.9842E+00,.9808E+00,.9379E+00,.8558E+00,.2225E+00,& + .9115E+00,.9115E+00,.9115E+00,.9280E+00,.9748E+00,.9816E+00,.9844E+00,.9810E+00,.9386E+00,.8573E+00,.2231E+00,& + .9124E+00,.9124E+00,.9124E+00,.9287E+00,.9751E+00,.9818E+00,.9846E+00,.9812E+00,.9393E+00,.8588E+00,.2237E+00,& + .9136E+00,.9136E+00,.9136E+00,.9297E+00,.9755E+00,.9821E+00,.9848E+00,.9815E+00,.9403E+00,.8609E+00,.2246E+00,& + .9147E+00,.9147E+00,.9147E+00,.9306E+00,.9759E+00,.9824E+00,.9851E+00,.9818E+00,.9413E+00,.8630E+00,.2255E+00,& + .9159E+00,.9159E+00,.9159E+00,.9316E+00,.9763E+00,.9826E+00,.9853E+00,.9821E+00,.9423E+00,.8652E+00,.2264E+00,& + .9170E+00,.9170E+00,.9170E+00,.9325E+00,.9767E+00,.9829E+00,.9856E+00,.9824E+00,.9433E+00,.8673E+00,.2273E+00,& + .9182E+00,.9182E+00,.9182E+00,.9335E+00,.9771E+00,.9832E+00,.9858E+00,.9827E+00,.9443E+00,.8694E+00,.2282E+00,& + .9195E+00,.9195E+00,.9195E+00,.9346E+00,.9775E+00,.9835E+00,.9861E+00,.9831E+00,.9455E+00,.8719E+00,.2294E+00,& + .9208E+00,.9208E+00,.9208E+00,.9357E+00,.9779E+00,.9838E+00,.9863E+00,.9834E+00,.9467E+00,.8745E+00,.2307E+00,& + .9222E+00,.9222E+00,.9222E+00,.9367E+00,.9783E+00,.9841E+00,.9866E+00,.9838E+00,.9479E+00,.8770E+00,.2319E+00,& + .9235E+00,.9235E+00,.9235E+00,.9378E+00,.9787E+00,.9844E+00,.9868E+00,.9841E+00,.9491E+00,.8796E+00,.2332E+00,& + .9248E+00,.9248E+00,.9248E+00,.9389E+00,.9791E+00,.9847E+00,.9871E+00,.9845E+00,.9503E+00,.8821E+00,.2344E+00,& + .9266E+00,.9266E+00,.9266E+00,.9404E+00,.9795E+00,.9850E+00,.9874E+00,.9849E+00,.9517E+00,.8851E+00,.2360E+00,& + .9283E+00,.9283E+00,.9283E+00,.9418E+00,.9801E+00,.9855E+00,.9878E+00,.9852E+00,.9530E+00,.8879E+00,.2376E+00,& + .9300E+00,.9300E+00,.9300E+00,.9432E+00,.9806E+00,.9858E+00,.9881E+00,.9856E+00,.9543E+00,.8907E+00,.2391E+00,& + .9315E+00,.9315E+00,.9315E+00,.9444E+00,.9811E+00,.9862E+00,.9884E+00,.9860E+00,.9556E+00,.8934E+00,.2408E+00,& + .9332E+00,.9332E+00,.9332E+00,.9458E+00,.9817E+00,.9867E+00,.9888E+00,.9864E+00,.9572E+00,.8969E+00,.2429E+00,& + .9348E+00,.9348E+00,.9348E+00,.9471E+00,.9823E+00,.9871E+00,.9891E+00,.9869E+00,.9588E+00,.9001E+00,.2450E+00,& + .9367E+00,.9367E+00,.9367E+00,.9487E+00,.9829E+00,.9875E+00,.9895E+00,.9875E+00,.9606E+00,.9041E+00,.2477E+00,& + .9391E+00,.9391E+00,.9391E+00,.9506E+00,.9834E+00,.9879E+00,.9898E+00,.9880E+00,.9623E+00,.9078E+00,.2504E+00,& + .9417E+00,.9417E+00,.9417E+00,.9527E+00,.9841E+00,.9885E+00,.9904E+00,.9886E+00,.9643E+00,.9121E+00,.2536E+00,& + .9441E+00,.9441E+00,.9441E+00,.9547E+00,.9849E+00,.9890E+00,.9908E+00,.9891E+00,.9662E+00,.9160E+00,.2568E+00,& + .9464E+00,.9464E+00,.9464E+00,.9566E+00,.9857E+00,.9896E+00,.9913E+00,.9897E+00,.9682E+00,.9204E+00,.2606E+00,& + .9487E+00,.9487E+00,.9487E+00,.9585E+00,.9864E+00,.9901E+00,.9917E+00,.9903E+00,.9703E+00,.9250E+00,.2648E+00,& + .9521E+00,.9521E+00,.9521E+00,.9612E+00,.9872E+00,.9908E+00,.9923E+00,.9911E+00,.9728E+00,.9302E+00,.2701E+00,& + .9551E+00,.9551E+00,.9551E+00,.9637E+00,.9882E+00,.9915E+00,.9929E+00,.9918E+00,.9751E+00,.9354E+00,.2760E+00,& + .9587E+00,.9587E+00,.9587E+00,.9667E+00,.9893E+00,.9922E+00,.9935E+00,.9926E+00,.9780E+00,.9416E+00,.2838E+00,& + .9630E+00,.9630E+00,.9630E+00,.9701E+00,.9905E+00,.9932E+00,.9943E+00,.9935E+00,.9811E+00,.9482E+00,.2936E+00,& + .9670E+00,.9670E+00,.9670E+00,.9733E+00,.9914E+00,.9939E+00,.9950E+00,.9944E+00,.9840E+00,.9546E+00,.3047E+00,& + .9723E+00,.9723E+00,.9723E+00,.9777E+00,.9930E+00,.9950E+00,.9958E+00,.9956E+00,.9876E+00,.9625E+00,.3222E+00,& + .9786E+00,.9786E+00,.9786E+00,.9828E+00,.9947E+00,.9962E+00,.9969E+00,.9968E+00,.9914E+00,.9712E+00,.3489E+00/ + data (((w0(ai,k,nh),ai= 5, 5),k=1,11),nh=0,99)/ & + .9998E+00,.9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9988E+00,.9902E+00,.9046E+00,& + .9998E+00,.9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9988E+00,.9903E+00,.8962E+00,& + .9998E+00,.9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9989E+00,.9903E+00,.8877E+00,& + .9998E+00,.9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9989E+00,.9904E+00,.8793E+00,& + .9998E+00,.9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9990E+00,.9904E+00,.8708E+00,& + .9998E+00,.9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9990E+00,.9905E+00,.8624E+00,& + .9998E+00,.9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9990E+00,.9906E+00,.8564E+00,& + .9998E+00,.9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9990E+00,.9906E+00,.8504E+00,& + .9998E+00,.9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9991E+00,.9907E+00,.8444E+00,& + .9998E+00,.9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9991E+00,.9907E+00,.8384E+00,& + .9998E+00,.9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9991E+00,.9908E+00,.8324E+00,& + .9998E+00,.9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9991E+00,.9909E+00,.8279E+00,& + .9998E+00,.9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9991E+00,.9909E+00,.8234E+00,& + .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9992E+00,.9910E+00,.8190E+00,& + .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9992E+00,.9910E+00,.8145E+00,& + .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9992E+00,.9911E+00,.8100E+00,& + .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9992E+00,.9911E+00,.8066E+00,& + .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9992E+00,.9912E+00,.8033E+00,& + .9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9993E+00,.9912E+00,.7999E+00,& + .9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9993E+00,.9913E+00,.7966E+00,& + .9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9993E+00,.9913E+00,.7932E+00,& + .9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9993E+00,.9913E+00,.7906E+00,& + .9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9993E+00,.9914E+00,.7881E+00,& + .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9993E+00,.9914E+00,.7855E+00,& + .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9993E+00,.9915E+00,.7830E+00,& + .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9993E+00,.9915E+00,.7804E+00,& + .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9993E+00,.9915E+00,.7784E+00,& + .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9993E+00,.9915E+00,.7765E+00,& + .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9994E+00,.9916E+00,.7745E+00,& + .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9994E+00,.9916E+00,.7726E+00,& + .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9994E+00,.9916E+00,.7706E+00,& + .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9994E+00,.9916E+00,.7691E+00,& + .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9994E+00,.9916E+00,.7676E+00,& + .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9994E+00,.9917E+00,.7661E+00,& + .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9994E+00,.9917E+00,.7646E+00,& + .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9994E+00,.9917E+00,.7631E+00,& + .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9994E+00,.9917E+00,.7620E+00,& + .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9994E+00,.9917E+00,.7608E+00,& + .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9995E+00,.9918E+00,.7597E+00,& + .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9995E+00,.9918E+00,.7585E+00,& + .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9995E+00,.9918E+00,.7574E+00,& + .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9995E+00,.9918E+00,.7565E+00,& + .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9995E+00,.9918E+00,.7557E+00,& + .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9995E+00,.9919E+00,.7548E+00,& + .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9995E+00,.9919E+00,.7540E+00,& + .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9995E+00,.9919E+00,.7531E+00,& + .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9995E+00,.9919E+00,.7525E+00,& + .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9995E+00,.9919E+00,.7518E+00,& + .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7512E+00,& + .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7505E+00,& + .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7499E+00,& + .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7495E+00,& + .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7491E+00,& + .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7487E+00,& + .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7483E+00,& + .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7479E+00,& + .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7476E+00,& + .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7473E+00,& + .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7471E+00,& + .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7468E+00,& + .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7465E+00,& + .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7463E+00,& + .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7461E+00,& + .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7458E+00,& + .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7456E+00,& + .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7454E+00,& + .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7452E+00,& + .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7451E+00,& + .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7449E+00,& + .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7448E+00,& + .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7446E+00,& + .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7445E+00,& + .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7444E+00,& + .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9997E+00,.9920E+00,.7442E+00,& + .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9997E+00,.9920E+00,.7441E+00,& + .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9997E+00,.9920E+00,.7440E+00,& + .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9997E+00,.9920E+00,.7440E+00,& + .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9997E+00,.9920E+00,.7440E+00,& + .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9997E+00,.9920E+00,.7440E+00,& + .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9997E+00,.9920E+00,.7440E+00,& + .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9997E+00,.9920E+00,.7440E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9997E+00,.9920E+00,.7440E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9997E+00,.9919E+00,.7442E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9997E+00,.9919E+00,.7444E+00,& + .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9997E+00,.9919E+00,.7446E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9997E+00,.9918E+00,.7449E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9997E+00,.9918E+00,.7452E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9997E+00,.9918E+00,.7457E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9997E+00,.9918E+00,.7462E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9997E+00,.9917E+00,.7468E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9997E+00,.9916E+00,.7476E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9998E+00,.9916E+00,.7484E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9998E+00,.9915E+00,.7496E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9998E+00,.9913E+00,.7508E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9998E+00,.9911E+00,.7524E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9998E+00,.9909E+00,.7545E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9998E+00,.9906E+00,.7569E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9998E+00,.9901E+00,.7602E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9998E+00,.9891E+00,.7637E+00,& + .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9998E+00,.9871E+00,.7676E+00/ + data (((w0(ai,k,nh),ai= 6, 6),k=1,11),nh=0,99)/ & + .9986E+00,.9986E+00,.9986E+00,.9988E+00,.9995E+00,.9998E+00,.9999E+00,.1000E+01,.9918E+00,.9603E+00,.9159E+00,& + .9986E+00,.9986E+00,.9986E+00,.9988E+00,.9995E+00,.9998E+00,.9999E+00,.1000E+01,.9919E+00,.9604E+00,.9077E+00,& + .9987E+00,.9987E+00,.9987E+00,.9989E+00,.9995E+00,.9998E+00,.9999E+00,.1000E+01,.9921E+00,.9606E+00,.8995E+00,& + .9987E+00,.9987E+00,.9987E+00,.9989E+00,.9996E+00,.9998E+00,.9999E+00,.1000E+01,.9922E+00,.9607E+00,.8913E+00,& + .9988E+00,.9988E+00,.9988E+00,.9990E+00,.9996E+00,.9998E+00,.9999E+00,.1000E+01,.9924E+00,.9609E+00,.8831E+00,& + .9988E+00,.9988E+00,.9988E+00,.9990E+00,.9996E+00,.9998E+00,.9999E+00,.1000E+01,.9925E+00,.9610E+00,.8749E+00,& + .9988E+00,.9988E+00,.9988E+00,.9990E+00,.9996E+00,.9998E+00,.9999E+00,.1000E+01,.9927E+00,.9613E+00,.8701E+00,& + .9988E+00,.9988E+00,.9988E+00,.9990E+00,.9996E+00,.9998E+00,.9999E+00,.1000E+01,.9928E+00,.9615E+00,.8652E+00,& + .9989E+00,.9989E+00,.9989E+00,.9991E+00,.9996E+00,.9999E+00,.1000E+01,.1000E+01,.9930E+00,.9618E+00,.8604E+00,& + .9989E+00,.9989E+00,.9989E+00,.9991E+00,.9996E+00,.9999E+00,.1000E+01,.1000E+01,.9931E+00,.9620E+00,.8555E+00,& + .9989E+00,.9989E+00,.9989E+00,.9991E+00,.9996E+00,.9999E+00,.1000E+01,.1000E+01,.9933E+00,.9623E+00,.8507E+00,& + .9989E+00,.9989E+00,.9989E+00,.9991E+00,.9996E+00,.9999E+00,.1000E+01,.1000E+01,.9935E+00,.9625E+00,.8471E+00,& + .9989E+00,.9989E+00,.9989E+00,.9991E+00,.9996E+00,.9999E+00,.1000E+01,.1000E+01,.9937E+00,.9627E+00,.8434E+00,& + .9990E+00,.9990E+00,.9990E+00,.9992E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.9939E+00,.9628E+00,.8398E+00,& + .9990E+00,.9990E+00,.9990E+00,.9992E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.9941E+00,.9630E+00,.8361E+00,& + .9990E+00,.9990E+00,.9990E+00,.9992E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.9943E+00,.9632E+00,.8325E+00,& + .9990E+00,.9990E+00,.9990E+00,.9992E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.9944E+00,.9632E+00,.8296E+00,& + .9990E+00,.9990E+00,.9990E+00,.9992E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.9945E+00,.9631E+00,.8268E+00,& + .9991E+00,.9991E+00,.9991E+00,.9993E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.9946E+00,.9631E+00,.8239E+00,& + .9991E+00,.9991E+00,.9991E+00,.9993E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.9947E+00,.9630E+00,.8211E+00,& + .9991E+00,.9991E+00,.9991E+00,.9993E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.9948E+00,.9630E+00,.8182E+00,& + .9991E+00,.9991E+00,.9991E+00,.9993E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.9949E+00,.9631E+00,.8158E+00,& + .9991E+00,.9991E+00,.9991E+00,.9993E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.9949E+00,.9631E+00,.8134E+00,& + .9992E+00,.9992E+00,.9992E+00,.9993E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.9950E+00,.9632E+00,.8111E+00,& + .9992E+00,.9992E+00,.9992E+00,.9993E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.9950E+00,.9632E+00,.8087E+00,& + .9992E+00,.9992E+00,.9992E+00,.9993E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.9951E+00,.9633E+00,.8063E+00,& + .9992E+00,.9992E+00,.9992E+00,.9993E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.9952E+00,.9633E+00,.8042E+00,& + .9992E+00,.9992E+00,.9992E+00,.9993E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.9953E+00,.9633E+00,.8022E+00,& + .9993E+00,.9993E+00,.9993E+00,.9994E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9954E+00,.9632E+00,.8001E+00,& + .9993E+00,.9993E+00,.9993E+00,.9994E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9955E+00,.9632E+00,.7981E+00,& + .9993E+00,.9993E+00,.9993E+00,.9994E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9956E+00,.9632E+00,.7960E+00,& + .9993E+00,.9993E+00,.9993E+00,.9994E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9956E+00,.9631E+00,.7943E+00,& + .9993E+00,.9993E+00,.9993E+00,.9994E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9957E+00,.9630E+00,.7926E+00,& + .9993E+00,.9993E+00,.9993E+00,.9994E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9957E+00,.9629E+00,.7908E+00,& + .9993E+00,.9993E+00,.9993E+00,.9994E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9958E+00,.9628E+00,.7891E+00,& + .9993E+00,.9993E+00,.9993E+00,.9994E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9958E+00,.9627E+00,.7874E+00,& + .9993E+00,.9993E+00,.9993E+00,.9994E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9959E+00,.9628E+00,.7858E+00,& + .9993E+00,.9993E+00,.9993E+00,.9994E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9960E+00,.9629E+00,.7842E+00,& + .9994E+00,.9994E+00,.9994E+00,.9995E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9960E+00,.9629E+00,.7825E+00,& + .9994E+00,.9994E+00,.9994E+00,.9995E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9961E+00,.9630E+00,.7809E+00,& + .9994E+00,.9994E+00,.9994E+00,.9995E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9962E+00,.9631E+00,.7793E+00,& + .9994E+00,.9994E+00,.9994E+00,.9995E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9963E+00,.9629E+00,.7779E+00,& + .9994E+00,.9994E+00,.9994E+00,.9995E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9963E+00,.9628E+00,.7765E+00,& + .9995E+00,.9995E+00,.9995E+00,.9996E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9964E+00,.9626E+00,.7751E+00,& + .9995E+00,.9995E+00,.9995E+00,.9996E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9964E+00,.9625E+00,.7737E+00,& + .9995E+00,.9995E+00,.9995E+00,.9996E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9965E+00,.9623E+00,.7723E+00,& + .9995E+00,.9995E+00,.9995E+00,.9996E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9965E+00,.9622E+00,.7710E+00,& + .9995E+00,.9995E+00,.9995E+00,.9996E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9966E+00,.9621E+00,.7697E+00,& + .9995E+00,.9995E+00,.9995E+00,.9996E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9966E+00,.9619E+00,.7684E+00,& + .9995E+00,.9995E+00,.9995E+00,.9996E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9967E+00,.9618E+00,.7671E+00,& + .9995E+00,.9995E+00,.9995E+00,.9996E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9967E+00,.9617E+00,.7658E+00,& + .9995E+00,.9995E+00,.9995E+00,.9996E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9967E+00,.9616E+00,.7648E+00,& + .9995E+00,.9995E+00,.9995E+00,.9996E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9968E+00,.9615E+00,.7639E+00,& + .9995E+00,.9995E+00,.9995E+00,.9996E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9968E+00,.9613E+00,.7629E+00,& + .9995E+00,.9995E+00,.9995E+00,.9996E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9969E+00,.9612E+00,.7620E+00,& + .9995E+00,.9995E+00,.9995E+00,.9996E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9969E+00,.9611E+00,.7610E+00,& + .9995E+00,.9995E+00,.9995E+00,.9996E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9969E+00,.9611E+00,.7601E+00,& + .9995E+00,.9995E+00,.9995E+00,.9996E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9969E+00,.9611E+00,.7592E+00,& + .9995E+00,.9995E+00,.9995E+00,.9996E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9970E+00,.9611E+00,.7584E+00,& + .9995E+00,.9995E+00,.9995E+00,.9996E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9970E+00,.9611E+00,.7575E+00,& + .9995E+00,.9995E+00,.9995E+00,.9996E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9970E+00,.9611E+00,.7566E+00,& + .9995E+00,.9995E+00,.9995E+00,.9996E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9971E+00,.9610E+00,.7557E+00,& + .9995E+00,.9995E+00,.9995E+00,.9996E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9971E+00,.9610E+00,.7549E+00,& + .9996E+00,.9996E+00,.9996E+00,.9997E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9972E+00,.9609E+00,.7540E+00,& + .9996E+00,.9996E+00,.9996E+00,.9997E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9972E+00,.9609E+00,.7532E+00,& + .9996E+00,.9996E+00,.9996E+00,.9997E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9973E+00,.9608E+00,.7523E+00,& + .9996E+00,.9996E+00,.9996E+00,.9997E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9973E+00,.9606E+00,.7515E+00,& + .9996E+00,.9996E+00,.9996E+00,.9997E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9973E+00,.9605E+00,.7507E+00,& + .9996E+00,.9996E+00,.9996E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9973E+00,.9603E+00,.7498E+00,& + .9996E+00,.9996E+00,.9996E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9973E+00,.9602E+00,.7490E+00,& + .9996E+00,.9996E+00,.9996E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9973E+00,.9600E+00,.7482E+00,& + .9996E+00,.9996E+00,.9996E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9974E+00,.9599E+00,.7471E+00,& + .9996E+00,.9996E+00,.9996E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9974E+00,.9598E+00,.7460E+00,& + .9996E+00,.9996E+00,.9996E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9975E+00,.9597E+00,.7449E+00,& + .9996E+00,.9996E+00,.9996E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9975E+00,.9596E+00,.7438E+00,& + .9996E+00,.9996E+00,.9996E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9976E+00,.9595E+00,.7427E+00,& + .9996E+00,.9996E+00,.9996E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9976E+00,.9591E+00,.7412E+00,& + .9996E+00,.9996E+00,.9996E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9976E+00,.9588E+00,.7396E+00,& + .9997E+00,.9997E+00,.9997E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9976E+00,.9584E+00,.7381E+00,& + .9997E+00,.9997E+00,.9997E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9976E+00,.9581E+00,.7365E+00,& + .9997E+00,.9997E+00,.9997E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9976E+00,.9577E+00,.7350E+00,& + .9997E+00,.9997E+00,.9997E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9976E+00,.9574E+00,.7336E+00,& + .9997E+00,.9997E+00,.9997E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9979E+00,.9570E+00,.7313E+00,& + .9997E+00,.9997E+00,.9997E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9979E+00,.9564E+00,.7292E+00,& + .9997E+00,.9997E+00,.9997E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9979E+00,.9557E+00,.7272E+00,& + .9997E+00,.9997E+00,.9997E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9979E+00,.9554E+00,.7246E+00,& + .9997E+00,.9997E+00,.9997E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9980E+00,.9551E+00,.7223E+00,& + .9997E+00,.9997E+00,.9997E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9980E+00,.9544E+00,.7200E+00,& + .9997E+00,.9997E+00,.9997E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9981E+00,.9541E+00,.7178E+00,& + .9997E+00,.9997E+00,.9997E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9983E+00,.9531E+00,.7152E+00,& + .9998E+00,.9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9983E+00,.9530E+00,.7121E+00,& + .9998E+00,.9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9982E+00,.9514E+00,.7086E+00,& + .9998E+00,.9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9984E+00,.9505E+00,.7050E+00,& + .9998E+00,.9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9985E+00,.9493E+00,.6998E+00,& + .9998E+00,.9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9985E+00,.9475E+00,.6943E+00,& + .9998E+00,.9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9986E+00,.9454E+00,.6877E+00,& + .9998E+00,.9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9987E+00,.9425E+00,.6790E+00,& + .9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9988E+00,.9382E+00,.6688E+00,& + .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9988E+00,.9321E+00,.6536E+00,& + .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9988E+00,.9191E+00,.6286E+00/ + data (((w0(ai,k,nh),ai= 7, 7),k=1,11),nh=0,99)/ & + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,& + .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00/ + data (((w0(ai,k,nh),ai= 8, 8),k=1,11),nh=0,99)/ & + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,& + .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00/ + data (((w0(ai,k,nh),ai= 9, 9),k=1,11),nh=0,99)/ & + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,& + .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00/ + data (((w0(ai,k,nh),ai=10,10),k=1,11),nh=0,99)/ & + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,& + .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00/ + data (((w0(ai,k,nh),ai=11,11),k=1,11),nh=0,99)/ & + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,& + .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00/ + data (((w0(ai,k,nh),ai=12,12),k=1,11),nh=0,99)/ & + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,& + .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00/ + data (((w0(ai,k,nh),ai=13,13),k=1,11),nh=0,99)/ & + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,& + .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00/ + data (((w0(ai,k,nh),ai=14,14),k=1,11),nh=0,99)/ & + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,& + .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00/ + data (((g(ai,k,nh),ai= 1, 1),k=1,11),nh=0,99)/ & + .7011E+00,.7011E+00,.7011E+00,.7029E+00,.7082E+00,.7144E+00,.7171E+00,.7149E+00,.6665E+00,.5632E+00,.2436E+00,& + .7031E+00,.7031E+00,.7031E+00,.7049E+00,.7103E+00,.7165E+00,.7192E+00,.7165E+00,.6684E+00,.5654E+00,.2458E+00,& + .7051E+00,.7051E+00,.7051E+00,.7069E+00,.7124E+00,.7186E+00,.7213E+00,.7182E+00,.6704E+00,.5675E+00,.2479E+00,& + .7070E+00,.7070E+00,.7070E+00,.7090E+00,.7144E+00,.7206E+00,.7233E+00,.7198E+00,.6723E+00,.5697E+00,.2501E+00,& + .7090E+00,.7090E+00,.7090E+00,.7110E+00,.7165E+00,.7227E+00,.7254E+00,.7215E+00,.6743E+00,.5718E+00,.2522E+00,& + .7110E+00,.7110E+00,.7110E+00,.7130E+00,.7186E+00,.7248E+00,.7275E+00,.7231E+00,.6762E+00,.5740E+00,.2544E+00,& + .7112E+00,.7112E+00,.7112E+00,.7136E+00,.7202E+00,.7263E+00,.7290E+00,.7246E+00,.6780E+00,.5760E+00,.2565E+00,& + .7114E+00,.7114E+00,.7114E+00,.7142E+00,.7219E+00,.7279E+00,.7305E+00,.7261E+00,.6798E+00,.5780E+00,.2586E+00,& + .7117E+00,.7117E+00,.7117E+00,.7147E+00,.7235E+00,.7294E+00,.7319E+00,.7277E+00,.6815E+00,.5801E+00,.2607E+00,& + .7119E+00,.7119E+00,.7119E+00,.7153E+00,.7252E+00,.7310E+00,.7334E+00,.7292E+00,.6833E+00,.5821E+00,.2628E+00,& + .7121E+00,.7121E+00,.7121E+00,.7159E+00,.7268E+00,.7325E+00,.7349E+00,.7307E+00,.6851E+00,.5841E+00,.2649E+00,& + .7143E+00,.7143E+00,.7143E+00,.7177E+00,.7274E+00,.7333E+00,.7358E+00,.7321E+00,.6867E+00,.5860E+00,.2669E+00,& + .7166E+00,.7166E+00,.7166E+00,.7195E+00,.7280E+00,.7342E+00,.7368E+00,.7335E+00,.6883E+00,.5879E+00,.2688E+00,& + .7188E+00,.7188E+00,.7188E+00,.7214E+00,.7286E+00,.7350E+00,.7377E+00,.7348E+00,.6898E+00,.5897E+00,.2708E+00,& + .7211E+00,.7211E+00,.7211E+00,.7232E+00,.7292E+00,.7359E+00,.7387E+00,.7362E+00,.6914E+00,.5916E+00,.2727E+00,& + .7233E+00,.7233E+00,.7233E+00,.7250E+00,.7298E+00,.7367E+00,.7396E+00,.7376E+00,.6930E+00,.5935E+00,.2747E+00,& + .7245E+00,.7245E+00,.7245E+00,.7265E+00,.7320E+00,.7386E+00,.7414E+00,.7387E+00,.6945E+00,.5953E+00,.2767E+00,& + .7258E+00,.7258E+00,.7258E+00,.7280E+00,.7342E+00,.7405E+00,.7432E+00,.7397E+00,.6959E+00,.5971E+00,.2786E+00,& + .7270E+00,.7270E+00,.7270E+00,.7294E+00,.7363E+00,.7424E+00,.7450E+00,.7408E+00,.6974E+00,.5990E+00,.2806E+00,& + .7283E+00,.7283E+00,.7283E+00,.7309E+00,.7385E+00,.7443E+00,.7468E+00,.7418E+00,.6988E+00,.6008E+00,.2825E+00,& + .7295E+00,.7295E+00,.7295E+00,.7324E+00,.7407E+00,.7462E+00,.7486E+00,.7429E+00,.7003E+00,.6026E+00,.2845E+00,& + .7300E+00,.7300E+00,.7300E+00,.7329E+00,.7412E+00,.7465E+00,.7489E+00,.7441E+00,.7017E+00,.6043E+00,.2864E+00,& + .7305E+00,.7305E+00,.7305E+00,.7334E+00,.7416E+00,.7469E+00,.7492E+00,.7454E+00,.7031E+00,.6061E+00,.2883E+00,& + .7310E+00,.7310E+00,.7310E+00,.7339E+00,.7421E+00,.7472E+00,.7494E+00,.7466E+00,.7045E+00,.6078E+00,.2903E+00,& + .7315E+00,.7315E+00,.7315E+00,.7344E+00,.7425E+00,.7476E+00,.7497E+00,.7479E+00,.7059E+00,.6096E+00,.2922E+00,& + .7320E+00,.7320E+00,.7320E+00,.7349E+00,.7430E+00,.7479E+00,.7500E+00,.7491E+00,.7073E+00,.6113E+00,.2941E+00,& + .7340E+00,.7340E+00,.7340E+00,.7366E+00,.7439E+00,.7490E+00,.7512E+00,.7500E+00,.7085E+00,.6129E+00,.2960E+00,& + .7359E+00,.7359E+00,.7359E+00,.7383E+00,.7449E+00,.7501E+00,.7524E+00,.7509E+00,.7098E+00,.6146E+00,.2978E+00,& + .7379E+00,.7379E+00,.7379E+00,.7399E+00,.7458E+00,.7513E+00,.7536E+00,.7517E+00,.7110E+00,.6162E+00,.2997E+00,& + .7398E+00,.7398E+00,.7398E+00,.7416E+00,.7468E+00,.7524E+00,.7548E+00,.7526E+00,.7123E+00,.6179E+00,.3015E+00,& + .7418E+00,.7418E+00,.7418E+00,.7433E+00,.7477E+00,.7535E+00,.7560E+00,.7535E+00,.7135E+00,.6195E+00,.3034E+00,& + .7417E+00,.7417E+00,.7417E+00,.7436E+00,.7491E+00,.7546E+00,.7569E+00,.7543E+00,.7147E+00,.6210E+00,.3052E+00,& + .7416E+00,.7416E+00,.7416E+00,.7439E+00,.7505E+00,.7557E+00,.7579E+00,.7550E+00,.7158E+00,.6226E+00,.3070E+00,& + .7416E+00,.7416E+00,.7416E+00,.7442E+00,.7518E+00,.7567E+00,.7588E+00,.7558E+00,.7170E+00,.6241E+00,.3088E+00,& + .7415E+00,.7415E+00,.7415E+00,.7445E+00,.7532E+00,.7578E+00,.7598E+00,.7565E+00,.7181E+00,.6257E+00,.3106E+00,& + .7414E+00,.7414E+00,.7414E+00,.7448E+00,.7546E+00,.7589E+00,.7607E+00,.7573E+00,.7193E+00,.6272E+00,.3124E+00,& + .7420E+00,.7420E+00,.7420E+00,.7452E+00,.7543E+00,.7587E+00,.7605E+00,.7582E+00,.7204E+00,.6286E+00,.3141E+00,& + .7427E+00,.7427E+00,.7427E+00,.7456E+00,.7540E+00,.7584E+00,.7603E+00,.7592E+00,.7214E+00,.6301E+00,.3158E+00,& + .7433E+00,.7433E+00,.7433E+00,.7460E+00,.7536E+00,.7582E+00,.7601E+00,.7601E+00,.7225E+00,.6315E+00,.3175E+00,& + .7440E+00,.7440E+00,.7440E+00,.7464E+00,.7533E+00,.7579E+00,.7599E+00,.7611E+00,.7235E+00,.6330E+00,.3192E+00,& + .7446E+00,.7446E+00,.7446E+00,.7468E+00,.7530E+00,.7577E+00,.7597E+00,.7620E+00,.7246E+00,.6344E+00,.3209E+00,& + .7460E+00,.7460E+00,.7460E+00,.7481E+00,.7541E+00,.7590E+00,.7610E+00,.7626E+00,.7256E+00,.6358E+00,.3226E+00,& + .7474E+00,.7474E+00,.7474E+00,.7494E+00,.7551E+00,.7602E+00,.7624E+00,.7631E+00,.7266E+00,.6372E+00,.3243E+00,& + .7489E+00,.7489E+00,.7489E+00,.7508E+00,.7562E+00,.7615E+00,.7637E+00,.7637E+00,.7275E+00,.6386E+00,.3261E+00,& + .7503E+00,.7503E+00,.7503E+00,.7521E+00,.7572E+00,.7627E+00,.7651E+00,.7642E+00,.7285E+00,.6400E+00,.3278E+00,& + .7517E+00,.7517E+00,.7517E+00,.7534E+00,.7583E+00,.7640E+00,.7664E+00,.7648E+00,.7295E+00,.6414E+00,.3295E+00,& + .7513E+00,.7513E+00,.7513E+00,.7533E+00,.7593E+00,.7647E+00,.7670E+00,.7654E+00,.7304E+00,.6427E+00,.3312E+00,& + .7509E+00,.7509E+00,.7509E+00,.7533E+00,.7603E+00,.7654E+00,.7675E+00,.7660E+00,.7313E+00,.6440E+00,.3328E+00,& + .7504E+00,.7504E+00,.7504E+00,.7532E+00,.7612E+00,.7660E+00,.7681E+00,.7665E+00,.7323E+00,.6454E+00,.3345E+00,& + .7500E+00,.7500E+00,.7500E+00,.7532E+00,.7622E+00,.7667E+00,.7686E+00,.7671E+00,.7332E+00,.6467E+00,.3361E+00,& + .7496E+00,.7496E+00,.7496E+00,.7531E+00,.7632E+00,.7674E+00,.7692E+00,.7677E+00,.7341E+00,.6480E+00,.3378E+00,& + .7499E+00,.7499E+00,.7499E+00,.7532E+00,.7628E+00,.7670E+00,.7688E+00,.7684E+00,.7349E+00,.6492E+00,.3393E+00,& + .7502E+00,.7502E+00,.7502E+00,.7533E+00,.7624E+00,.7666E+00,.7684E+00,.7691E+00,.7357E+00,.6504E+00,.3408E+00,& + .7504E+00,.7504E+00,.7504E+00,.7535E+00,.7621E+00,.7663E+00,.7681E+00,.7699E+00,.7366E+00,.6516E+00,.3423E+00,& + .7507E+00,.7507E+00,.7507E+00,.7536E+00,.7617E+00,.7659E+00,.7677E+00,.7706E+00,.7374E+00,.6528E+00,.3438E+00,& + .7510E+00,.7510E+00,.7510E+00,.7537E+00,.7613E+00,.7655E+00,.7673E+00,.7713E+00,.7382E+00,.6540E+00,.3453E+00,& + .7524E+00,.7524E+00,.7524E+00,.7548E+00,.7616E+00,.7663E+00,.7683E+00,.7717E+00,.7389E+00,.6551E+00,.3467E+00,& + .7538E+00,.7538E+00,.7538E+00,.7560E+00,.7620E+00,.7671E+00,.7693E+00,.7720E+00,.7396E+00,.6562E+00,.3481E+00,& + .7553E+00,.7553E+00,.7553E+00,.7571E+00,.7623E+00,.7679E+00,.7703E+00,.7724E+00,.7403E+00,.6572E+00,.3496E+00,& + .7567E+00,.7567E+00,.7567E+00,.7583E+00,.7627E+00,.7687E+00,.7713E+00,.7727E+00,.7410E+00,.6583E+00,.3510E+00,& + .7581E+00,.7581E+00,.7581E+00,.7594E+00,.7630E+00,.7695E+00,.7723E+00,.7731E+00,.7417E+00,.6594E+00,.3524E+00,& + .7575E+00,.7575E+00,.7575E+00,.7592E+00,.7642E+00,.7703E+00,.7729E+00,.7734E+00,.7424E+00,.6605E+00,.3538E+00,& + .7568E+00,.7568E+00,.7568E+00,.7591E+00,.7655E+00,.7711E+00,.7736E+00,.7738E+00,.7431E+00,.6616E+00,.3553E+00,& + .7562E+00,.7562E+00,.7562E+00,.7589E+00,.7667E+00,.7720E+00,.7742E+00,.7741E+00,.7437E+00,.6626E+00,.3567E+00,& + .7555E+00,.7555E+00,.7555E+00,.7588E+00,.7680E+00,.7728E+00,.7749E+00,.7745E+00,.7444E+00,.6637E+00,.3582E+00,& + .7549E+00,.7549E+00,.7549E+00,.7586E+00,.7692E+00,.7736E+00,.7755E+00,.7748E+00,.7451E+00,.6648E+00,.3596E+00,& + .7541E+00,.7541E+00,.7541E+00,.7579E+00,.7687E+00,.7733E+00,.7752E+00,.7754E+00,.7458E+00,.6658E+00,.3610E+00,& + .7533E+00,.7533E+00,.7533E+00,.7572E+00,.7682E+00,.7730E+00,.7750E+00,.7760E+00,.7465E+00,.6669E+00,.3624E+00,& + .7526E+00,.7526E+00,.7526E+00,.7565E+00,.7677E+00,.7726E+00,.7747E+00,.7765E+00,.7471E+00,.6679E+00,.3638E+00,& + .7518E+00,.7518E+00,.7518E+00,.7558E+00,.7672E+00,.7723E+00,.7745E+00,.7771E+00,.7478E+00,.6690E+00,.3652E+00,& + .7510E+00,.7510E+00,.7510E+00,.7551E+00,.7667E+00,.7720E+00,.7742E+00,.7777E+00,.7485E+00,.6700E+00,.3666E+00,& + .7534E+00,.7534E+00,.7534E+00,.7570E+00,.7672E+00,.7727E+00,.7750E+00,.7782E+00,.7495E+00,.6716E+00,.3688E+00,& + .7559E+00,.7559E+00,.7559E+00,.7590E+00,.7678E+00,.7734E+00,.7757E+00,.7787E+00,.7505E+00,.6732E+00,.3711E+00,& + .7583E+00,.7583E+00,.7583E+00,.7609E+00,.7683E+00,.7740E+00,.7765E+00,.7792E+00,.7515E+00,.6749E+00,.3733E+00,& + .7608E+00,.7608E+00,.7608E+00,.7629E+00,.7689E+00,.7747E+00,.7772E+00,.7797E+00,.7525E+00,.6765E+00,.3756E+00,& + .7632E+00,.7632E+00,.7632E+00,.7648E+00,.7694E+00,.7754E+00,.7780E+00,.7802E+00,.7535E+00,.6781E+00,.3778E+00,& + .7620E+00,.7620E+00,.7620E+00,.7641E+00,.7702E+00,.7757E+00,.7781E+00,.7807E+00,.7544E+00,.6796E+00,.3800E+00,& + .7608E+00,.7608E+00,.7608E+00,.7634E+00,.7710E+00,.7760E+00,.7781E+00,.7813E+00,.7553E+00,.6811E+00,.3822E+00,& + .7596E+00,.7596E+00,.7596E+00,.7628E+00,.7717E+00,.7762E+00,.7782E+00,.7818E+00,.7563E+00,.6827E+00,.3843E+00,& + .7584E+00,.7584E+00,.7584E+00,.7621E+00,.7725E+00,.7765E+00,.7782E+00,.7824E+00,.7572E+00,.6842E+00,.3865E+00,& + .7572E+00,.7572E+00,.7572E+00,.7614E+00,.7733E+00,.7768E+00,.7783E+00,.7829E+00,.7581E+00,.6857E+00,.3887E+00,& + .7552E+00,.7552E+00,.7552E+00,.7592E+00,.7706E+00,.7761E+00,.7784E+00,.7838E+00,.7591E+00,.6874E+00,.3911E+00,& + .7606E+00,.7606E+00,.7606E+00,.7634E+00,.7715E+00,.7757E+00,.7775E+00,.7845E+00,.7601E+00,.6890E+00,.3934E+00,& + .7636E+00,.7636E+00,.7636E+00,.7650E+00,.7691E+00,.7743E+00,.7765E+00,.7851E+00,.7610E+00,.6906E+00,.3957E+00,& + .7645E+00,.7645E+00,.7645E+00,.7659E+00,.7699E+00,.7765E+00,.7793E+00,.7852E+00,.7622E+00,.6928E+00,.3992E+00,& + .7663E+00,.7663E+00,.7663E+00,.7683E+00,.7739E+00,.7798E+00,.7823E+00,.7855E+00,.7635E+00,.6951E+00,.4025E+00,& + .7665E+00,.7665E+00,.7665E+00,.7688E+00,.7755E+00,.7815E+00,.7841E+00,.7858E+00,.7647E+00,.6972E+00,.4059E+00,& + .7644E+00,.7644E+00,.7644E+00,.7676E+00,.7768E+00,.7815E+00,.7835E+00,.7867E+00,.7663E+00,.7001E+00,.4103E+00,& + .7592E+00,.7592E+00,.7592E+00,.7629E+00,.7736E+00,.7788E+00,.7810E+00,.7884E+00,.7680E+00,.7029E+00,.4146E+00,& + .7668E+00,.7668E+00,.7668E+00,.7680E+00,.7713E+00,.7766E+00,.7789E+00,.7895E+00,.7698E+00,.7063E+00,.4199E+00,& + .7693E+00,.7693E+00,.7693E+00,.7709E+00,.7755E+00,.7820E+00,.7848E+00,.7896E+00,.7718E+00,.7102E+00,.4262E+00,& + .7647E+00,.7647E+00,.7647E+00,.7687E+00,.7799E+00,.7838E+00,.7855E+00,.7901E+00,.7736E+00,.7138E+00,.4323E+00,& + .7652E+00,.7652E+00,.7652E+00,.7679E+00,.7755E+00,.7807E+00,.7829E+00,.7924E+00,.7763E+00,.7186E+00,.4401E+00,& + .7724E+00,.7724E+00,.7724E+00,.7734E+00,.7764E+00,.7821E+00,.7846E+00,.7927E+00,.7784E+00,.7231E+00,.4478E+00,& + .7688E+00,.7688E+00,.7688E+00,.7717E+00,.7798E+00,.7846E+00,.7867E+00,.7929E+00,.7808E+00,.7283E+00,.4570E+00,& + .7733E+00,.7733E+00,.7733E+00,.7736E+00,.7745E+00,.7816E+00,.7847E+00,.7948E+00,.7842E+00,.7352E+00,.4693E+00,& + .7681E+00,.7681E+00,.7681E+00,.7717E+00,.7821E+00,.7839E+00,.7846E+00,.7960E+00,.7873E+00,.7421E+00,.4827E+00,& + .7732E+00,.7732E+00,.7732E+00,.7757E+00,.7829E+00,.7870E+00,.7888E+00,.7958E+00,.7906E+00,.7507E+00,.4999E+00,& + .7765E+00,.7765E+00,.7765E+00,.7782E+00,.7832E+00,.7873E+00,.7890E+00,.7969E+00,.7954E+00,.7626E+00,.5253E+00,& + .7815E+00,.7815E+00,.7815E+00,.7826E+00,.7857E+00,.7877E+00,.7886E+00,.7974E+00,.8010E+00,.7804E+00,.5681E+00/ + data (((g(ai,k,nh),ai= 2, 2),k=1,11),nh=0,99)/ & + .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& + .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& + .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& + .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& + .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& + .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& + .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& + .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& + .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& + .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& + .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& + .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& + .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& + .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& + .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& + .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& + .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& + .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& + .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& + .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& + .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& + .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& + .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& + .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& + .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& + .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& + .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& + .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& + .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& + .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& + .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& + .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& + .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& + .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& + .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& + .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& + .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& + .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& + .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& + .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& + .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& + .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& + .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& + .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& + .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& + .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& + .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& + .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& + .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& + .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& + .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& + .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& + .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& + .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& + .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& + .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,& + .5035E+00,.5035E+00,.5035E+00,.4908E+00,.4546E+00,.4329E+00,.4235E+00,.3396E+00,.2338E+00,.1310E+00,.3332E-01,& + .5044E+00,.5044E+00,.5044E+00,.4917E+00,.4555E+00,.4337E+00,.4244E+00,.3403E+00,.2343E+00,.1312E+00,.3338E-01,& + .5053E+00,.5053E+00,.5053E+00,.4926E+00,.4563E+00,.4346E+00,.4252E+00,.3410E+00,.2347E+00,.1315E+00,.3343E-01,& + .5062E+00,.5062E+00,.5062E+00,.4935E+00,.4572E+00,.4354E+00,.4261E+00,.3417E+00,.2352E+00,.1317E+00,.3349E-01,& + .5071E+00,.5071E+00,.5071E+00,.4944E+00,.4581E+00,.4363E+00,.4269E+00,.3424E+00,.2357E+00,.1320E+00,.3355E-01,& + .5071E+00,.5071E+00,.5071E+00,.4944E+00,.4581E+00,.4363E+00,.4269E+00,.3424E+00,.2357E+00,.1320E+00,.3355E-01,& + .5071E+00,.5071E+00,.5071E+00,.4944E+00,.4581E+00,.4363E+00,.4269E+00,.3424E+00,.2357E+00,.1320E+00,.3355E-01,& + .5071E+00,.5071E+00,.5071E+00,.4944E+00,.4581E+00,.4363E+00,.4269E+00,.3424E+00,.2357E+00,.1320E+00,.3355E-01,& + .5071E+00,.5071E+00,.5071E+00,.4944E+00,.4581E+00,.4363E+00,.4269E+00,.3424E+00,.2357E+00,.1320E+00,.3355E-01,& + .5071E+00,.5071E+00,.5071E+00,.4944E+00,.4581E+00,.4363E+00,.4269E+00,.3424E+00,.2357E+00,.1320E+00,.3355E-01,& + .5097E+00,.5097E+00,.5097E+00,.4970E+00,.4607E+00,.4388E+00,.4294E+00,.3445E+00,.2371E+00,.1328E+00,.3373E-01,& + .5123E+00,.5123E+00,.5123E+00,.4996E+00,.4633E+00,.4413E+00,.4319E+00,.3465E+00,.2385E+00,.1336E+00,.3390E-01,& + .5149E+00,.5149E+00,.5149E+00,.5021E+00,.4658E+00,.4438E+00,.4343E+00,.3486E+00,.2400E+00,.1343E+00,.3408E-01,& + .5175E+00,.5175E+00,.5175E+00,.5047E+00,.4684E+00,.4463E+00,.4368E+00,.3506E+00,.2414E+00,.1351E+00,.3425E-01,& + .5201E+00,.5201E+00,.5201E+00,.5073E+00,.4710E+00,.4488E+00,.4393E+00,.3527E+00,.2428E+00,.1359E+00,.3443E-01,& + .5263E+00,.5263E+00,.5263E+00,.5136E+00,.4773E+00,.4550E+00,.4454E+00,.3579E+00,.2465E+00,.1379E+00,.3492E-01,& + .5326E+00,.5326E+00,.5326E+00,.5198E+00,.4836E+00,.4611E+00,.4515E+00,.3631E+00,.2502E+00,.1400E+00,.3540E-01,& + .5388E+00,.5388E+00,.5388E+00,.5261E+00,.4898E+00,.4673E+00,.4576E+00,.3682E+00,.2538E+00,.1420E+00,.3589E-01,& + .5451E+00,.5451E+00,.5451E+00,.5323E+00,.4961E+00,.4734E+00,.4637E+00,.3734E+00,.2575E+00,.1441E+00,.3637E-01,& + .5513E+00,.5513E+00,.5513E+00,.5386E+00,.5024E+00,.4796E+00,.4698E+00,.3786E+00,.2612E+00,.1461E+00,.3686E-01,& + .5579E+00,.5579E+00,.5579E+00,.5453E+00,.5092E+00,.4863E+00,.4765E+00,.3845E+00,.2656E+00,.1487E+00,.3751E-01,& + .5645E+00,.5645E+00,.5645E+00,.5519E+00,.5160E+00,.4930E+00,.4832E+00,.3904E+00,.2699E+00,.1513E+00,.3815E-01,& + .5712E+00,.5712E+00,.5712E+00,.5586E+00,.5227E+00,.4998E+00,.4899E+00,.3962E+00,.2743E+00,.1538E+00,.3880E-01,& + .5778E+00,.5778E+00,.5778E+00,.5652E+00,.5295E+00,.5065E+00,.4966E+00,.4021E+00,.2786E+00,.1564E+00,.3944E-01,& + .5844E+00,.5844E+00,.5844E+00,.5719E+00,.5363E+00,.5132E+00,.5033E+00,.4080E+00,.2830E+00,.1590E+00,.4009E-01,& + .5932E+00,.5932E+00,.5932E+00,.5808E+00,.5455E+00,.5224E+00,.5125E+00,.4162E+00,.2893E+00,.1628E+00,.4109E-01,& + .5988E+00,.5988E+00,.5988E+00,.5865E+00,.5514E+00,.5282E+00,.5183E+00,.4216E+00,.2935E+00,.1653E+00,.4178E-01,& + .6069E+00,.6069E+00,.6069E+00,.5947E+00,.5599E+00,.5368E+00,.5269E+00,.4294E+00,.2997E+00,.1691E+00,.4281E-01,& + .6120E+00,.6120E+00,.6120E+00,.5999E+00,.5653E+00,.5423E+00,.5324E+00,.4346E+00,.3037E+00,.1717E+00,.4352E-01,& + .6193E+00,.6193E+00,.6193E+00,.6073E+00,.5732E+00,.5502E+00,.5403E+00,.4421E+00,.3097E+00,.1755E+00,.4458E-01,& + .6262E+00,.6262E+00,.6262E+00,.6144E+00,.5807E+00,.5577E+00,.5479E+00,.4493E+00,.3156E+00,.1793E+00,.4565E-01,& + .6307E+00,.6307E+00,.6307E+00,.6189E+00,.5855E+00,.5627E+00,.5529E+00,.4540E+00,.3195E+00,.1818E+00,.4638E-01,& + .6370E+00,.6370E+00,.6370E+00,.6254E+00,.5924E+00,.5697E+00,.5600E+00,.4610E+00,.3253E+00,.1856E+00,.4749E-01,& + .6411E+00,.6411E+00,.6411E+00,.6296E+00,.5969E+00,.5743E+00,.5646E+00,.4655E+00,.3290E+00,.1881E+00,.4823E-01,& + .6469E+00,.6469E+00,.6469E+00,.6356E+00,.6034E+00,.5809E+00,.5713E+00,.4720E+00,.3347E+00,.1919E+00,.4935E-01,& + .6524E+00,.6524E+00,.6524E+00,.6412E+00,.6095E+00,.5872E+00,.5777E+00,.4785E+00,.3402E+00,.1956E+00,.5049E-01,& + .6577E+00,.6577E+00,.6577E+00,.6467E+00,.6154E+00,.5933E+00,.5838E+00,.4847E+00,.3456E+00,.1994E+00,.5163E-01,& + .6627E+00,.6627E+00,.6627E+00,.6519E+00,.6211E+00,.5991E+00,.5897E+00,.4907E+00,.3510E+00,.2031E+00,.5279E-01,& + .6689E+00,.6689E+00,.6689E+00,.6583E+00,.6282E+00,.6066E+00,.5973E+00,.4986E+00,.3580E+00,.2080E+00,.5434E-01,& + .6748E+00,.6748E+00,.6748E+00,.6645E+00,.6350E+00,.6136E+00,.6045E+00,.5061E+00,.3648E+00,.2129E+00,.5592E-01,& + .6816E+00,.6816E+00,.6816E+00,.6716E+00,.6430E+00,.6219E+00,.6129E+00,.5151E+00,.3732E+00,.2190E+00,.5791E-01,& + .6903E+00,.6903E+00,.6903E+00,.6807E+00,.6532E+00,.6327E+00,.6239E+00,.5271E+00,.3845E+00,.2273E+00,.6073E-01,& + .6991E+00,.6991E+00,.6991E+00,.6899E+00,.6638E+00,.6439E+00,.6354E+00,.5399E+00,.3969E+00,.2368E+00,.6400E-01,& + .7171E+00,.7171E+00,.7171E+00,.7090E+00,.6860E+00,.6677E+00,.6599E+00,.5683E+00,.4258E+00,.2598E+00,.7234E-01/ + data (((g(ai,k,nh),ai= 3, 3),k=1,11),nh=0,99)/ & + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00/ + data (((g(ai,k,nh),ai= 4, 4),k=1,11),nh=0,99)/ & + .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,& + .6873E+00,.6873E+00,.6873E+00,.6795E+00,.6572E+00,.6484E+00,.6446E+00,.6066E+00,.5377E+00,.4255E+00,.1943E+00,& + .6884E+00,.6884E+00,.6884E+00,.6806E+00,.6586E+00,.6498E+00,.6461E+00,.6081E+00,.5390E+00,.4266E+00,.1949E+00,& + .6894E+00,.6894E+00,.6894E+00,.6818E+00,.6599E+00,.6513E+00,.6475E+00,.6095E+00,.5404E+00,.4278E+00,.1955E+00,& + .6905E+00,.6905E+00,.6905E+00,.6829E+00,.6613E+00,.6527E+00,.6490E+00,.6110E+00,.5417E+00,.4289E+00,.1961E+00,& + .6915E+00,.6915E+00,.6915E+00,.6840E+00,.6627E+00,.6542E+00,.6505E+00,.6125E+00,.5430E+00,.4300E+00,.1967E+00,& + .6925E+00,.6925E+00,.6925E+00,.6850E+00,.6640E+00,.6555E+00,.6518E+00,.6139E+00,.5443E+00,.4311E+00,.1973E+00,& + .6934E+00,.6934E+00,.6934E+00,.6861E+00,.6652E+00,.6567E+00,.6530E+00,.6153E+00,.5456E+00,.4322E+00,.1979E+00,& + .6944E+00,.6944E+00,.6944E+00,.6871E+00,.6665E+00,.6580E+00,.6543E+00,.6166E+00,.5468E+00,.4334E+00,.1986E+00,& + .6953E+00,.6953E+00,.6953E+00,.6882E+00,.6677E+00,.6592E+00,.6555E+00,.6180E+00,.5481E+00,.4345E+00,.1992E+00,& + .6963E+00,.6963E+00,.6963E+00,.6892E+00,.6690E+00,.6605E+00,.6568E+00,.6194E+00,.5494E+00,.4356E+00,.1998E+00,& + .6973E+00,.6973E+00,.6973E+00,.6902E+00,.6701E+00,.6617E+00,.6580E+00,.6207E+00,.5506E+00,.4367E+00,.2004E+00,& + .6982E+00,.6982E+00,.6982E+00,.6912E+00,.6712E+00,.6628E+00,.6592E+00,.6220E+00,.5518E+00,.4378E+00,.2010E+00,& + .6992E+00,.6992E+00,.6992E+00,.6922E+00,.6722E+00,.6640E+00,.6605E+00,.6233E+00,.5531E+00,.4388E+00,.2016E+00,& + .7001E+00,.7001E+00,.7001E+00,.6932E+00,.6733E+00,.6651E+00,.6617E+00,.6246E+00,.5543E+00,.4399E+00,.2022E+00,& + .7011E+00,.7011E+00,.7011E+00,.6942E+00,.6744E+00,.6663E+00,.6629E+00,.6259E+00,.5555E+00,.4410E+00,.2028E+00,& + .7020E+00,.7020E+00,.7020E+00,.6952E+00,.6756E+00,.6676E+00,.6642E+00,.6271E+00,.5567E+00,.4421E+00,.2034E+00,& + .7029E+00,.7029E+00,.7029E+00,.6961E+00,.6767E+00,.6689E+00,.6655E+00,.6283E+00,.5578E+00,.4431E+00,.2040E+00,& + .7038E+00,.7038E+00,.7038E+00,.6971E+00,.6779E+00,.6701E+00,.6669E+00,.6296E+00,.5590E+00,.4442E+00,.2047E+00,& + .7047E+00,.7047E+00,.7047E+00,.6980E+00,.6790E+00,.6714E+00,.6682E+00,.6308E+00,.5601E+00,.4452E+00,.2053E+00,& + .7056E+00,.7056E+00,.7056E+00,.6990E+00,.6802E+00,.6727E+00,.6695E+00,.6320E+00,.5613E+00,.4463E+00,.2059E+00,& + .7064E+00,.7064E+00,.7064E+00,.6999E+00,.6813E+00,.6739E+00,.6707E+00,.6332E+00,.5624E+00,.4473E+00,.2065E+00,& + .7072E+00,.7072E+00,.7072E+00,.7008E+00,.6825E+00,.6750E+00,.6718E+00,.6343E+00,.5636E+00,.4484E+00,.2071E+00,& + .7081E+00,.7081E+00,.7081E+00,.7017E+00,.6836E+00,.6762E+00,.6730E+00,.6355E+00,.5647E+00,.4494E+00,.2077E+00,& + .7089E+00,.7089E+00,.7089E+00,.7026E+00,.6848E+00,.6773E+00,.6741E+00,.6366E+00,.5659E+00,.4505E+00,.2083E+00,& + .7097E+00,.7097E+00,.7097E+00,.7035E+00,.6859E+00,.6785E+00,.6753E+00,.6378E+00,.5670E+00,.4515E+00,.2089E+00,& + .7104E+00,.7104E+00,.7104E+00,.7043E+00,.6869E+00,.6795E+00,.6764E+00,.6389E+00,.5681E+00,.4525E+00,.2095E+00,& + .7111E+00,.7111E+00,.7111E+00,.7051E+00,.6880E+00,.6806E+00,.6774E+00,.6401E+00,.5692E+00,.4535E+00,.2101E+00,& + .7119E+00,.7119E+00,.7119E+00,.7059E+00,.6890E+00,.6816E+00,.6785E+00,.6412E+00,.5703E+00,.4546E+00,.2108E+00,& + .7126E+00,.7126E+00,.7126E+00,.7067E+00,.6901E+00,.6827E+00,.6795E+00,.6424E+00,.5714E+00,.4556E+00,.2114E+00,& + .7133E+00,.7133E+00,.7133E+00,.7075E+00,.6911E+00,.6837E+00,.6806E+00,.6435E+00,.5725E+00,.4566E+00,.2120E+00,& + .7140E+00,.7140E+00,.7140E+00,.7082E+00,.6920E+00,.6846E+00,.6815E+00,.6446E+00,.5736E+00,.4576E+00,.2126E+00,& + .7147E+00,.7147E+00,.7147E+00,.7090E+00,.6929E+00,.6855E+00,.6824E+00,.6457E+00,.5746E+00,.4586E+00,.2132E+00,& + .7153E+00,.7153E+00,.7153E+00,.7097E+00,.6937E+00,.6864E+00,.6833E+00,.6468E+00,.5757E+00,.4597E+00,.2139E+00,& + .7160E+00,.7160E+00,.7160E+00,.7105E+00,.6946E+00,.6873E+00,.6842E+00,.6479E+00,.5767E+00,.4607E+00,.2145E+00,& + .7167E+00,.7167E+00,.7167E+00,.7112E+00,.6955E+00,.6882E+00,.6851E+00,.6490E+00,.5778E+00,.4617E+00,.2151E+00,& + .7174E+00,.7174E+00,.7174E+00,.7119E+00,.6962E+00,.6890E+00,.6860E+00,.6500E+00,.5788E+00,.4627E+00,.2157E+00,& + .7181E+00,.7181E+00,.7181E+00,.7126E+00,.6970E+00,.6898E+00,.6868E+00,.6510E+00,.5798E+00,.4637E+00,.2163E+00,& + .7189E+00,.7189E+00,.7189E+00,.7134E+00,.6977E+00,.6907E+00,.6877E+00,.6520E+00,.5809E+00,.4646E+00,.2170E+00,& + .7196E+00,.7196E+00,.7196E+00,.7141E+00,.6985E+00,.6915E+00,.6885E+00,.6530E+00,.5819E+00,.4656E+00,.2176E+00,& + .7203E+00,.7203E+00,.7203E+00,.7148E+00,.6992E+00,.6923E+00,.6894E+00,.6540E+00,.5829E+00,.4666E+00,.2182E+00,& + .7210E+00,.7210E+00,.7210E+00,.7155E+00,.7000E+00,.6933E+00,.6904E+00,.6549E+00,.5839E+00,.4676E+00,.2188E+00,& + .7217E+00,.7217E+00,.7217E+00,.7162E+00,.7009E+00,.6943E+00,.6915E+00,.6559E+00,.5849E+00,.4685E+00,.2194E+00,& + .7223E+00,.7223E+00,.7223E+00,.7170E+00,.7017E+00,.6952E+00,.6925E+00,.6568E+00,.5858E+00,.4695E+00,.2200E+00,& + .7230E+00,.7230E+00,.7230E+00,.7177E+00,.7026E+00,.6962E+00,.6936E+00,.6578E+00,.5868E+00,.4704E+00,.2206E+00,& + .7237E+00,.7237E+00,.7237E+00,.7184E+00,.7034E+00,.6972E+00,.6946E+00,.6587E+00,.5878E+00,.4714E+00,.2212E+00,& + .7243E+00,.7243E+00,.7243E+00,.7191E+00,.7043E+00,.6981E+00,.6955E+00,.6596E+00,.5888E+00,.4723E+00,.2218E+00,& + .7249E+00,.7249E+00,.7249E+00,.7198E+00,.7052E+00,.6990E+00,.6964E+00,.6605E+00,.5897E+00,.4733E+00,.2224E+00,& + .7255E+00,.7255E+00,.7255E+00,.7204E+00,.7062E+00,.7000E+00,.6973E+00,.6614E+00,.5907E+00,.4742E+00,.2231E+00,& + .7261E+00,.7261E+00,.7261E+00,.7211E+00,.7071E+00,.7009E+00,.6982E+00,.6623E+00,.5916E+00,.4752E+00,.2237E+00,& + .7267E+00,.7267E+00,.7267E+00,.7218E+00,.7080E+00,.7018E+00,.6991E+00,.6632E+00,.5926E+00,.4761E+00,.2243E+00,& + .7273E+00,.7273E+00,.7273E+00,.7225E+00,.7089E+00,.7027E+00,.7000E+00,.6643E+00,.5937E+00,.4772E+00,.2250E+00,& + .7279E+00,.7279E+00,.7279E+00,.7232E+00,.7099E+00,.7036E+00,.7009E+00,.6654E+00,.5948E+00,.4783E+00,.2258E+00,& + .7284E+00,.7284E+00,.7284E+00,.7238E+00,.7108E+00,.7046E+00,.7019E+00,.6664E+00,.5960E+00,.4795E+00,.2265E+00,& + .7290E+00,.7290E+00,.7290E+00,.7245E+00,.7118E+00,.7055E+00,.7028E+00,.6675E+00,.5971E+00,.4806E+00,.2273E+00,& + .7296E+00,.7296E+00,.7296E+00,.7252E+00,.7127E+00,.7064E+00,.7037E+00,.6686E+00,.5982E+00,.4817E+00,.2280E+00,& + .7302E+00,.7302E+00,.7302E+00,.7258E+00,.7134E+00,.7071E+00,.7045E+00,.6696E+00,.5993E+00,.4828E+00,.2287E+00,& + .7307E+00,.7307E+00,.7307E+00,.7264E+00,.7141E+00,.7079E+00,.7052E+00,.6706E+00,.6003E+00,.4839E+00,.2295E+00,& + .7313E+00,.7313E+00,.7313E+00,.7270E+00,.7148E+00,.7086E+00,.7060E+00,.6717E+00,.6014E+00,.4849E+00,.2302E+00,& + .7318E+00,.7318E+00,.7318E+00,.7276E+00,.7155E+00,.7094E+00,.7067E+00,.6727E+00,.6024E+00,.4860E+00,.2310E+00,& + .7324E+00,.7324E+00,.7324E+00,.7282E+00,.7162E+00,.7101E+00,.7075E+00,.6737E+00,.6035E+00,.4871E+00,.2317E+00,& + .7330E+00,.7330E+00,.7330E+00,.7287E+00,.7167E+00,.7107E+00,.7081E+00,.6745E+00,.6043E+00,.4880E+00,.2323E+00,& + .7336E+00,.7336E+00,.7336E+00,.7293E+00,.7171E+00,.7113E+00,.7088E+00,.6753E+00,.6052E+00,.4889E+00,.2329E+00,& + .7341E+00,.7341E+00,.7341E+00,.7298E+00,.7176E+00,.7118E+00,.7094E+00,.6760E+00,.6060E+00,.4897E+00,.2335E+00,& + .7347E+00,.7347E+00,.7347E+00,.7304E+00,.7180E+00,.7124E+00,.7101E+00,.6768E+00,.6069E+00,.4906E+00,.2341E+00,& + .7353E+00,.7353E+00,.7353E+00,.7309E+00,.7185E+00,.7130E+00,.7107E+00,.6776E+00,.6077E+00,.4915E+00,.2347E+00,& + .7359E+00,.7359E+00,.7359E+00,.7316E+00,.7194E+00,.7140E+00,.7117E+00,.6785E+00,.6087E+00,.4925E+00,.2354E+00,& + .7366E+00,.7366E+00,.7366E+00,.7323E+00,.7202E+00,.7149E+00,.7127E+00,.6793E+00,.6097E+00,.4936E+00,.2362E+00,& + .7372E+00,.7372E+00,.7372E+00,.7330E+00,.7211E+00,.7159E+00,.7136E+00,.6802E+00,.6106E+00,.4946E+00,.2369E+00,& + .7379E+00,.7379E+00,.7379E+00,.7337E+00,.7219E+00,.7168E+00,.7146E+00,.6810E+00,.6116E+00,.4957E+00,.2377E+00,& + .7385E+00,.7385E+00,.7385E+00,.7344E+00,.7228E+00,.7178E+00,.7156E+00,.6819E+00,.6126E+00,.4967E+00,.2384E+00,& + .7391E+00,.7391E+00,.7391E+00,.7352E+00,.7240E+00,.7189E+00,.7167E+00,.6832E+00,.6140E+00,.4982E+00,.2395E+00,& + .7397E+00,.7397E+00,.7397E+00,.7360E+00,.7252E+00,.7201E+00,.7178E+00,.6845E+00,.6154E+00,.4997E+00,.2406E+00,& + .7404E+00,.7404E+00,.7404E+00,.7367E+00,.7264E+00,.7212E+00,.7190E+00,.6857E+00,.6169E+00,.5012E+00,.2416E+00,& + .7410E+00,.7410E+00,.7410E+00,.7375E+00,.7276E+00,.7224E+00,.7201E+00,.6870E+00,.6183E+00,.5027E+00,.2427E+00,& + .7416E+00,.7416E+00,.7416E+00,.7383E+00,.7288E+00,.7235E+00,.7212E+00,.6883E+00,.6197E+00,.5042E+00,.2438E+00,& + .7425E+00,.7425E+00,.7425E+00,.7392E+00,.7296E+00,.7245E+00,.7223E+00,.6899E+00,.6215E+00,.5061E+00,.2452E+00,& + .7434E+00,.7434E+00,.7434E+00,.7401E+00,.7305E+00,.7255E+00,.7234E+00,.6915E+00,.6232E+00,.5080E+00,.2467E+00,& + .7443E+00,.7443E+00,.7443E+00,.7409E+00,.7313E+00,.7265E+00,.7244E+00,.6930E+00,.6250E+00,.5100E+00,.2481E+00,& + .7452E+00,.7452E+00,.7452E+00,.7418E+00,.7322E+00,.7275E+00,.7255E+00,.6946E+00,.6267E+00,.5119E+00,.2496E+00,& + .7461E+00,.7461E+00,.7461E+00,.7427E+00,.7330E+00,.7285E+00,.7266E+00,.6962E+00,.6285E+00,.5138E+00,.2510E+00,& + .7475E+00,.7475E+00,.7475E+00,.7440E+00,.7342E+00,.7304E+00,.7287E+00,.6979E+00,.6306E+00,.5161E+00,.2528E+00,& + .7487E+00,.7487E+00,.7487E+00,.7455E+00,.7362E+00,.7323E+00,.7307E+00,.6996E+00,.6327E+00,.5185E+00,.2546E+00,& + .7498E+00,.7498E+00,.7498E+00,.7468E+00,.7381E+00,.7340E+00,.7323E+00,.7013E+00,.6347E+00,.5208E+00,.2563E+00,& + .7504E+00,.7504E+00,.7504E+00,.7476E+00,.7396E+00,.7358E+00,.7341E+00,.7029E+00,.6367E+00,.5230E+00,.2581E+00,& + .7511E+00,.7511E+00,.7511E+00,.7487E+00,.7417E+00,.7374E+00,.7356E+00,.7052E+00,.6393E+00,.5260E+00,.2604E+00,& + .7516E+00,.7516E+00,.7516E+00,.7493E+00,.7428E+00,.7386E+00,.7368E+00,.7074E+00,.6419E+00,.5289E+00,.2627E+00,& + .7528E+00,.7528E+00,.7528E+00,.7505E+00,.7439E+00,.7399E+00,.7382E+00,.7101E+00,.6450E+00,.5325E+00,.2656E+00,& + .7550E+00,.7550E+00,.7550E+00,.7523E+00,.7447E+00,.7414E+00,.7400E+00,.7125E+00,.6480E+00,.5360E+00,.2685E+00,& + .7572E+00,.7572E+00,.7572E+00,.7547E+00,.7476E+00,.7447E+00,.7434E+00,.7152E+00,.6515E+00,.5401E+00,.2719E+00,& + .7582E+00,.7582E+00,.7582E+00,.7562E+00,.7504E+00,.7475E+00,.7462E+00,.7178E+00,.6548E+00,.5442E+00,.2753E+00,& + .7585E+00,.7585E+00,.7585E+00,.7570E+00,.7528E+00,.7494E+00,.7479E+00,.7210E+00,.6587E+00,.5488E+00,.2792E+00,& + .7599E+00,.7599E+00,.7599E+00,.7583E+00,.7537E+00,.7505E+00,.7492E+00,.7245E+00,.6629E+00,.5540E+00,.2837E+00,& + .7634E+00,.7634E+00,.7634E+00,.7615E+00,.7561E+00,.7542E+00,.7534E+00,.7280E+00,.6678E+00,.5601E+00,.2891E+00,& + .7641E+00,.7641E+00,.7641E+00,.7632E+00,.7605E+00,.7580E+00,.7569E+00,.7319E+00,.6731E+00,.5667E+00,.2950E+00,& + .7661E+00,.7661E+00,.7661E+00,.7648E+00,.7612E+00,.7593E+00,.7585E+00,.7372E+00,.6797E+00,.5753E+00,.3029E+00,& + .7685E+00,.7685E+00,.7685E+00,.7681E+00,.7671E+00,.7653E+00,.7646E+00,.7424E+00,.6874E+00,.5854E+00,.3127E+00,& + .7715E+00,.7715E+00,.7715E+00,.7704E+00,.7673E+00,.7672E+00,.7672E+00,.7483E+00,.6956E+00,.5964E+00,.3236E+00,& + .7737E+00,.7737E+00,.7737E+00,.7731E+00,.7715E+00,.7715E+00,.7715E+00,.7564E+00,.7073E+00,.6128E+00,.3406E+00,& + .7776E+00,.7776E+00,.7776E+00,.7780E+00,.7792E+00,.7799E+00,.7802E+00,.7657E+00,.7227E+00,.6356E+00,.3661E+00/ + data (((g(ai,k,nh),ai= 5, 5),k=1,11),nh=0,99)/ & + .7187E+00,.7187E+00,.7187E+00,.7166E+00,.7105E+00,.7031E+00,.6999E+00,.6976E+00,.7051E+00,.7042E+00,.5544E+00,& + .7215E+00,.7215E+00,.7215E+00,.7195E+00,.7137E+00,.7062E+00,.7030E+00,.7007E+00,.7082E+00,.7074E+00,.5579E+00,& + .7243E+00,.7243E+00,.7243E+00,.7224E+00,.7169E+00,.7094E+00,.7062E+00,.7038E+00,.7112E+00,.7106E+00,.5615E+00,& + .7270E+00,.7270E+00,.7270E+00,.7252E+00,.7200E+00,.7125E+00,.7093E+00,.7070E+00,.7143E+00,.7137E+00,.5650E+00,& + .7298E+00,.7298E+00,.7298E+00,.7281E+00,.7232E+00,.7157E+00,.7125E+00,.7101E+00,.7173E+00,.7169E+00,.5686E+00,& + .7326E+00,.7326E+00,.7326E+00,.7310E+00,.7264E+00,.7188E+00,.7156E+00,.7132E+00,.7204E+00,.7201E+00,.5721E+00,& + .7360E+00,.7360E+00,.7360E+00,.7340E+00,.7283E+00,.7209E+00,.7177E+00,.7153E+00,.7230E+00,.7229E+00,.5752E+00,& + .7393E+00,.7393E+00,.7393E+00,.7370E+00,.7302E+00,.7229E+00,.7198E+00,.7174E+00,.7256E+00,.7257E+00,.5782E+00,& + .7427E+00,.7427E+00,.7427E+00,.7399E+00,.7322E+00,.7250E+00,.7219E+00,.7194E+00,.7283E+00,.7284E+00,.5813E+00,& + .7460E+00,.7460E+00,.7460E+00,.7429E+00,.7341E+00,.7270E+00,.7240E+00,.7215E+00,.7309E+00,.7312E+00,.5843E+00,& + .7494E+00,.7494E+00,.7494E+00,.7459E+00,.7360E+00,.7291E+00,.7261E+00,.7236E+00,.7335E+00,.7340E+00,.5874E+00,& + .7493E+00,.7493E+00,.7493E+00,.7465E+00,.7385E+00,.7310E+00,.7277E+00,.7262E+00,.7354E+00,.7363E+00,.5902E+00,& + .7492E+00,.7492E+00,.7492E+00,.7470E+00,.7410E+00,.7328E+00,.7293E+00,.7289E+00,.7372E+00,.7386E+00,.5929E+00,& + .7490E+00,.7490E+00,.7490E+00,.7476E+00,.7436E+00,.7347E+00,.7308E+00,.7315E+00,.7391E+00,.7408E+00,.5957E+00,& + .7489E+00,.7489E+00,.7489E+00,.7481E+00,.7461E+00,.7365E+00,.7324E+00,.7342E+00,.7409E+00,.7431E+00,.5984E+00,& + .7488E+00,.7488E+00,.7488E+00,.7487E+00,.7486E+00,.7384E+00,.7340E+00,.7368E+00,.7428E+00,.7454E+00,.6012E+00,& + .7525E+00,.7525E+00,.7525E+00,.7518E+00,.7497E+00,.7405E+00,.7366E+00,.7377E+00,.7446E+00,.7473E+00,.6037E+00,& + .7563E+00,.7563E+00,.7563E+00,.7548E+00,.7507E+00,.7427E+00,.7392E+00,.7387E+00,.7464E+00,.7492E+00,.6062E+00,& + .7600E+00,.7600E+00,.7600E+00,.7579E+00,.7518E+00,.7448E+00,.7419E+00,.7396E+00,.7483E+00,.7511E+00,.6087E+00,& + .7638E+00,.7638E+00,.7638E+00,.7609E+00,.7528E+00,.7470E+00,.7445E+00,.7406E+00,.7501E+00,.7530E+00,.6112E+00,& + .7675E+00,.7675E+00,.7675E+00,.7640E+00,.7539E+00,.7491E+00,.7471E+00,.7415E+00,.7519E+00,.7549E+00,.6137E+00,& + .7670E+00,.7670E+00,.7670E+00,.7640E+00,.7554E+00,.7500E+00,.7477E+00,.7437E+00,.7532E+00,.7566E+00,.6160E+00,& + .7664E+00,.7664E+00,.7664E+00,.7640E+00,.7569E+00,.7508E+00,.7483E+00,.7459E+00,.7545E+00,.7583E+00,.6183E+00,& + .7659E+00,.7659E+00,.7659E+00,.7639E+00,.7583E+00,.7517E+00,.7488E+00,.7481E+00,.7559E+00,.7601E+00,.6207E+00,& + .7653E+00,.7653E+00,.7653E+00,.7639E+00,.7598E+00,.7525E+00,.7494E+00,.7503E+00,.7572E+00,.7618E+00,.6230E+00,& + .7648E+00,.7648E+00,.7648E+00,.7639E+00,.7613E+00,.7534E+00,.7500E+00,.7525E+00,.7585E+00,.7635E+00,.6253E+00,& + .7672E+00,.7672E+00,.7672E+00,.7659E+00,.7623E+00,.7552E+00,.7521E+00,.7528E+00,.7597E+00,.7649E+00,.6274E+00,& + .7696E+00,.7696E+00,.7696E+00,.7679E+00,.7633E+00,.7570E+00,.7543E+00,.7531E+00,.7609E+00,.7662E+00,.6295E+00,& + .7719E+00,.7719E+00,.7719E+00,.7700E+00,.7642E+00,.7588E+00,.7564E+00,.7535E+00,.7621E+00,.7676E+00,.6316E+00,& + .7743E+00,.7743E+00,.7743E+00,.7720E+00,.7652E+00,.7606E+00,.7586E+00,.7538E+00,.7633E+00,.7689E+00,.6337E+00,& + .7767E+00,.7767E+00,.7767E+00,.7740E+00,.7662E+00,.7624E+00,.7607E+00,.7541E+00,.7645E+00,.7703E+00,.6358E+00,& + .7752E+00,.7752E+00,.7752E+00,.7730E+00,.7665E+00,.7633E+00,.7618E+00,.7557E+00,.7654E+00,.7716E+00,.6378E+00,& + .7738E+00,.7738E+00,.7738E+00,.7720E+00,.7669E+00,.7642E+00,.7630E+00,.7573E+00,.7662E+00,.7728E+00,.6398E+00,& + .7723E+00,.7723E+00,.7723E+00,.7710E+00,.7672E+00,.7650E+00,.7641E+00,.7590E+00,.7671E+00,.7741E+00,.6418E+00,& + .7709E+00,.7709E+00,.7709E+00,.7700E+00,.7676E+00,.7659E+00,.7653E+00,.7606E+00,.7679E+00,.7753E+00,.6438E+00,& + .7694E+00,.7694E+00,.7694E+00,.7690E+00,.7679E+00,.7668E+00,.7664E+00,.7622E+00,.7688E+00,.7766E+00,.6458E+00,& + .7724E+00,.7724E+00,.7724E+00,.7717E+00,.7699E+00,.7683E+00,.7677E+00,.7625E+00,.7697E+00,.7776E+00,.6476E+00,& + .7754E+00,.7754E+00,.7754E+00,.7745E+00,.7718E+00,.7698E+00,.7690E+00,.7629E+00,.7706E+00,.7787E+00,.6494E+00,& + .7785E+00,.7785E+00,.7785E+00,.7772E+00,.7738E+00,.7713E+00,.7703E+00,.7632E+00,.7714E+00,.7797E+00,.6513E+00,& + .7815E+00,.7815E+00,.7815E+00,.7800E+00,.7757E+00,.7728E+00,.7716E+00,.7636E+00,.7723E+00,.7808E+00,.6531E+00,& + .7845E+00,.7845E+00,.7845E+00,.7827E+00,.7777E+00,.7743E+00,.7729E+00,.7639E+00,.7732E+00,.7818E+00,.6549E+00,& + .7844E+00,.7844E+00,.7844E+00,.7829E+00,.7788E+00,.7744E+00,.7725E+00,.7651E+00,.7739E+00,.7827E+00,.6566E+00,& + .7843E+00,.7843E+00,.7843E+00,.7831E+00,.7799E+00,.7745E+00,.7721E+00,.7663E+00,.7746E+00,.7836E+00,.6584E+00,& + .7842E+00,.7842E+00,.7842E+00,.7834E+00,.7811E+00,.7745E+00,.7718E+00,.7675E+00,.7752E+00,.7844E+00,.6601E+00,& + .7841E+00,.7841E+00,.7841E+00,.7836E+00,.7822E+00,.7746E+00,.7714E+00,.7687E+00,.7759E+00,.7853E+00,.6619E+00,& + .7840E+00,.7840E+00,.7840E+00,.7838E+00,.7833E+00,.7747E+00,.7710E+00,.7699E+00,.7766E+00,.7862E+00,.6636E+00,& + .7850E+00,.7850E+00,.7850E+00,.7845E+00,.7832E+00,.7755E+00,.7722E+00,.7707E+00,.7773E+00,.7871E+00,.6652E+00,& + .7859E+00,.7859E+00,.7859E+00,.7852E+00,.7831E+00,.7763E+00,.7734E+00,.7715E+00,.7780E+00,.7880E+00,.6668E+00,& + .7869E+00,.7869E+00,.7869E+00,.7859E+00,.7831E+00,.7772E+00,.7747E+00,.7723E+00,.7786E+00,.7890E+00,.6683E+00,& + .7878E+00,.7878E+00,.7878E+00,.7866E+00,.7830E+00,.7780E+00,.7759E+00,.7731E+00,.7793E+00,.7899E+00,.6699E+00,& + .7888E+00,.7888E+00,.7888E+00,.7873E+00,.7829E+00,.7788E+00,.7771E+00,.7739E+00,.7800E+00,.7908E+00,.6715E+00,& + .7892E+00,.7892E+00,.7892E+00,.7878E+00,.7838E+00,.7799E+00,.7783E+00,.7736E+00,.7801E+00,.7912E+00,.6728E+00,& + .7895E+00,.7895E+00,.7895E+00,.7883E+00,.7847E+00,.7810E+00,.7795E+00,.7733E+00,.7801E+00,.7916E+00,.6740E+00,& + .7899E+00,.7899E+00,.7899E+00,.7888E+00,.7856E+00,.7822E+00,.7807E+00,.7731E+00,.7802E+00,.7921E+00,.6753E+00,& + .7902E+00,.7902E+00,.7902E+00,.7893E+00,.7865E+00,.7833E+00,.7819E+00,.7728E+00,.7802E+00,.7925E+00,.6765E+00,& + .7906E+00,.7906E+00,.7906E+00,.7898E+00,.7874E+00,.7844E+00,.7831E+00,.7725E+00,.7803E+00,.7929E+00,.6778E+00,& + .7902E+00,.7902E+00,.7902E+00,.7894E+00,.7868E+00,.7844E+00,.7834E+00,.7737E+00,.7809E+00,.7936E+00,.6790E+00,& + .7898E+00,.7898E+00,.7898E+00,.7889E+00,.7862E+00,.7845E+00,.7837E+00,.7749E+00,.7815E+00,.7943E+00,.6802E+00,& + .7895E+00,.7895E+00,.7895E+00,.7885E+00,.7856E+00,.7845E+00,.7841E+00,.7761E+00,.7820E+00,.7949E+00,.6814E+00,& + .7891E+00,.7891E+00,.7891E+00,.7880E+00,.7850E+00,.7846E+00,.7844E+00,.7773E+00,.7826E+00,.7956E+00,.6826E+00,& + .7887E+00,.7887E+00,.7887E+00,.7876E+00,.7844E+00,.7846E+00,.7847E+00,.7785E+00,.7832E+00,.7963E+00,.6838E+00,& + .7903E+00,.7903E+00,.7903E+00,.7891E+00,.7858E+00,.7846E+00,.7841E+00,.7789E+00,.7836E+00,.7968E+00,.6849E+00,& + .7918E+00,.7918E+00,.7918E+00,.7906E+00,.7873E+00,.7847E+00,.7836E+00,.7793E+00,.7840E+00,.7973E+00,.6860E+00,& + .7934E+00,.7934E+00,.7934E+00,.7922E+00,.7887E+00,.7847E+00,.7830E+00,.7798E+00,.7844E+00,.7977E+00,.6872E+00,& + .7949E+00,.7949E+00,.7949E+00,.7937E+00,.7902E+00,.7848E+00,.7825E+00,.7802E+00,.7848E+00,.7982E+00,.6883E+00,& + .7965E+00,.7965E+00,.7965E+00,.7952E+00,.7916E+00,.7848E+00,.7819E+00,.7806E+00,.7852E+00,.7987E+00,.6894E+00,& + .7966E+00,.7966E+00,.7966E+00,.7955E+00,.7924E+00,.7860E+00,.7832E+00,.7802E+00,.7852E+00,.7990E+00,.6905E+00,& + .7968E+00,.7968E+00,.7968E+00,.7958E+00,.7933E+00,.7871E+00,.7845E+00,.7798E+00,.7851E+00,.7993E+00,.6916E+00,& + .7969E+00,.7969E+00,.7969E+00,.7962E+00,.7941E+00,.7883E+00,.7858E+00,.7793E+00,.7851E+00,.7995E+00,.6926E+00,& + .7971E+00,.7971E+00,.7971E+00,.7965E+00,.7950E+00,.7894E+00,.7871E+00,.7789E+00,.7850E+00,.7998E+00,.6937E+00,& + .7972E+00,.7972E+00,.7972E+00,.7968E+00,.7958E+00,.7906E+00,.7884E+00,.7785E+00,.7850E+00,.8001E+00,.6948E+00,& + .7978E+00,.7978E+00,.7978E+00,.7973E+00,.7958E+00,.7899E+00,.7874E+00,.7798E+00,.7856E+00,.8009E+00,.6964E+00,& + .7984E+00,.7984E+00,.7984E+00,.7977E+00,.7958E+00,.7892E+00,.7864E+00,.7811E+00,.7862E+00,.8017E+00,.6981E+00,& + .7991E+00,.7991E+00,.7991E+00,.7982E+00,.7957E+00,.7884E+00,.7853E+00,.7825E+00,.7869E+00,.8025E+00,.6997E+00,& + .7997E+00,.7997E+00,.7997E+00,.7986E+00,.7957E+00,.7877E+00,.7843E+00,.7838E+00,.7875E+00,.8033E+00,.7014E+00,& + .8003E+00,.8003E+00,.8003E+00,.7991E+00,.7957E+00,.7870E+00,.7833E+00,.7851E+00,.7881E+00,.8041E+00,.7030E+00,& + .8014E+00,.8014E+00,.8014E+00,.8000E+00,.7963E+00,.7896E+00,.7868E+00,.7850E+00,.7884E+00,.8046E+00,.7049E+00,& + .8024E+00,.8024E+00,.8024E+00,.8010E+00,.7969E+00,.7923E+00,.7903E+00,.7848E+00,.7887E+00,.8050E+00,.7067E+00,& + .8035E+00,.8035E+00,.8035E+00,.8019E+00,.7974E+00,.7949E+00,.7939E+00,.7847E+00,.7889E+00,.8055E+00,.7086E+00,& + .8045E+00,.8045E+00,.8045E+00,.8029E+00,.7980E+00,.7976E+00,.7974E+00,.7845E+00,.7892E+00,.8059E+00,.7104E+00,& + .8056E+00,.8056E+00,.8056E+00,.8038E+00,.7986E+00,.8002E+00,.8009E+00,.7844E+00,.7895E+00,.8064E+00,.7123E+00,& + .8054E+00,.8054E+00,.8054E+00,.8052E+00,.8047E+00,.7964E+00,.7928E+00,.7879E+00,.7901E+00,.8073E+00,.7144E+00,& + .8082E+00,.8082E+00,.8082E+00,.8068E+00,.8028E+00,.7968E+00,.7943E+00,.7902E+00,.7920E+00,.8089E+00,.7172E+00,& + .8115E+00,.8115E+00,.8115E+00,.8077E+00,.7968E+00,.7989E+00,.7998E+00,.7874E+00,.7920E+00,.8095E+00,.7196E+00,& + .8037E+00,.8037E+00,.8037E+00,.8036E+00,.8035E+00,.8021E+00,.8015E+00,.7885E+00,.7914E+00,.8094E+00,.7219E+00,& + .8088E+00,.8088E+00,.8088E+00,.8089E+00,.8091E+00,.8006E+00,.7970E+00,.7886E+00,.7905E+00,.8100E+00,.7253E+00,& + .8108E+00,.8108E+00,.8108E+00,.8100E+00,.8079E+00,.8016E+00,.7989E+00,.7911E+00,.7927E+00,.8108E+00,.7279E+00,& + .8149E+00,.8149E+00,.8149E+00,.8139E+00,.8109E+00,.8047E+00,.8021E+00,.7944E+00,.7943E+00,.8127E+00,.7310E+00,& + .8175E+00,.8175E+00,.8175E+00,.8140E+00,.8042E+00,.8027E+00,.8021E+00,.7922E+00,.7944E+00,.8133E+00,.7340E+00,& + .8158E+00,.8158E+00,.8158E+00,.8153E+00,.8140E+00,.8079E+00,.8053E+00,.7930E+00,.7942E+00,.8131E+00,.7373E+00,& + .8139E+00,.8139E+00,.8139E+00,.8147E+00,.8171E+00,.8079E+00,.8040E+00,.7960E+00,.7948E+00,.8140E+00,.7414E+00,& + .8127E+00,.8127E+00,.8127E+00,.8128E+00,.8132E+00,.8073E+00,.8048E+00,.7986E+00,.7946E+00,.8159E+00,.7453E+00,& + .8233E+00,.8233E+00,.8233E+00,.8223E+00,.8196E+00,.8158E+00,.8142E+00,.7974E+00,.7954E+00,.8155E+00,.7503E+00,& + .8162E+00,.8162E+00,.8162E+00,.8158E+00,.8148E+00,.8160E+00,.8165E+00,.8004E+00,.7956E+00,.8173E+00,.7554E+00,& + .8250E+00,.8250E+00,.8250E+00,.8239E+00,.8209E+00,.8182E+00,.8170E+00,.8006E+00,.7969E+00,.8173E+00,.7614E+00,& + .8261E+00,.8261E+00,.8261E+00,.8251E+00,.8222E+00,.8148E+00,.8117E+00,.8035E+00,.7967E+00,.8193E+00,.7688E+00,& + .8290E+00,.8290E+00,.8290E+00,.8269E+00,.8208E+00,.8184E+00,.8173E+00,.8068E+00,.7975E+00,.8194E+00,.7766E+00,& + .8321E+00,.8321E+00,.8321E+00,.8319E+00,.8315E+00,.8273E+00,.8255E+00,.8128E+00,.8012E+00,.8211E+00,.7877E+00,& + .8365E+00,.8365E+00,.8365E+00,.8361E+00,.8350E+00,.8308E+00,.8290E+00,.8160E+00,.8033E+00,.8199E+00,.7998E+00,& + .8394E+00,.8394E+00,.8394E+00,.8392E+00,.8388E+00,.8404E+00,.8411E+00,.8269E+00,.8056E+00,.8214E+00,.8187E+00/ + data (((g(ai,k,nh),ai= 6, 6),k=1,11),nh=0,99)/ & + .8058E+00,.8058E+00,.8058E+00,.8052E+00,.8034E+00,.8012E+00,.8003E+00,.7904E+00,.7734E+00,.7542E+00,.7236E+00,& + .8078E+00,.8078E+00,.8078E+00,.8072E+00,.8055E+00,.8030E+00,.8019E+00,.7924E+00,.7752E+00,.7568E+00,.7293E+00,& + .8098E+00,.8098E+00,.8098E+00,.8093E+00,.8077E+00,.8047E+00,.8035E+00,.7944E+00,.7770E+00,.7594E+00,.7349E+00,& + .8119E+00,.8119E+00,.8119E+00,.8113E+00,.8098E+00,.8065E+00,.8050E+00,.7964E+00,.7787E+00,.7621E+00,.7406E+00,& + .8139E+00,.8139E+00,.8139E+00,.8134E+00,.8120E+00,.8082E+00,.8066E+00,.7984E+00,.7805E+00,.7647E+00,.7462E+00,& + .8159E+00,.8159E+00,.8159E+00,.8154E+00,.8141E+00,.8100E+00,.8082E+00,.8004E+00,.7823E+00,.7673E+00,.7519E+00,& + .8170E+00,.8170E+00,.8170E+00,.8164E+00,.8149E+00,.8114E+00,.8099E+00,.8015E+00,.7840E+00,.7688E+00,.7560E+00,& + .8180E+00,.8180E+00,.8180E+00,.8174E+00,.8157E+00,.8128E+00,.8115E+00,.8026E+00,.7858E+00,.7704E+00,.7601E+00,& + .8191E+00,.8191E+00,.8191E+00,.8184E+00,.8164E+00,.8141E+00,.8132E+00,.8036E+00,.7875E+00,.7719E+00,.7643E+00,& + .8201E+00,.8201E+00,.8201E+00,.8194E+00,.8172E+00,.8155E+00,.8148E+00,.8047E+00,.7893E+00,.7735E+00,.7684E+00,& + .8212E+00,.8212E+00,.8212E+00,.8204E+00,.8180E+00,.8169E+00,.8165E+00,.8058E+00,.7910E+00,.7750E+00,.7725E+00,& + .8222E+00,.8222E+00,.8222E+00,.8215E+00,.8192E+00,.8182E+00,.8179E+00,.8076E+00,.7928E+00,.7774E+00,.7754E+00,& + .8233E+00,.8233E+00,.8233E+00,.8226E+00,.8205E+00,.8196E+00,.8192E+00,.8093E+00,.7946E+00,.7798E+00,.7784E+00,& + .8243E+00,.8243E+00,.8243E+00,.8236E+00,.8217E+00,.8209E+00,.8206E+00,.8111E+00,.7963E+00,.7822E+00,.7813E+00,& + .8254E+00,.8254E+00,.8254E+00,.8247E+00,.8230E+00,.8223E+00,.8219E+00,.8128E+00,.7981E+00,.7846E+00,.7843E+00,& + .8264E+00,.8264E+00,.8264E+00,.8258E+00,.8242E+00,.8236E+00,.8233E+00,.8146E+00,.7999E+00,.7870E+00,.7872E+00,& + .8272E+00,.8272E+00,.8272E+00,.8267E+00,.8254E+00,.8248E+00,.8245E+00,.8158E+00,.8010E+00,.7881E+00,.7898E+00,& + .8280E+00,.8280E+00,.8280E+00,.8276E+00,.8265E+00,.8260E+00,.8257E+00,.8171E+00,.8020E+00,.7892E+00,.7924E+00,& + .8288E+00,.8288E+00,.8288E+00,.8285E+00,.8277E+00,.8271E+00,.8269E+00,.8183E+00,.8031E+00,.7902E+00,.7949E+00,& + .8296E+00,.8296E+00,.8296E+00,.8294E+00,.8288E+00,.8283E+00,.8281E+00,.8196E+00,.8041E+00,.7913E+00,.7975E+00,& + .8304E+00,.8304E+00,.8304E+00,.8303E+00,.8300E+00,.8295E+00,.8293E+00,.8208E+00,.8052E+00,.7924E+00,.8001E+00,& + .8316E+00,.8316E+00,.8316E+00,.8314E+00,.8307E+00,.8306E+00,.8305E+00,.8219E+00,.8062E+00,.7939E+00,.8020E+00,& + .8328E+00,.8328E+00,.8328E+00,.8325E+00,.8315E+00,.8316E+00,.8317E+00,.8230E+00,.8071E+00,.7955E+00,.8039E+00,& + .8340E+00,.8340E+00,.8340E+00,.8335E+00,.8322E+00,.8327E+00,.8329E+00,.8242E+00,.8081E+00,.7970E+00,.8058E+00,& + .8352E+00,.8352E+00,.8352E+00,.8346E+00,.8330E+00,.8337E+00,.8341E+00,.8253E+00,.8090E+00,.7986E+00,.8077E+00,& + .8364E+00,.8364E+00,.8364E+00,.8357E+00,.8337E+00,.8348E+00,.8353E+00,.8264E+00,.8100E+00,.8001E+00,.8096E+00,& + .8369E+00,.8369E+00,.8369E+00,.8365E+00,.8352E+00,.8357E+00,.8359E+00,.8273E+00,.8108E+00,.8008E+00,.8113E+00,& + .8374E+00,.8374E+00,.8374E+00,.8372E+00,.8367E+00,.8365E+00,.8365E+00,.8282E+00,.8116E+00,.8016E+00,.8130E+00,& + .8379E+00,.8379E+00,.8379E+00,.8380E+00,.8381E+00,.8374E+00,.8370E+00,.8291E+00,.8124E+00,.8023E+00,.8147E+00,& + .8384E+00,.8384E+00,.8384E+00,.8387E+00,.8396E+00,.8382E+00,.8376E+00,.8300E+00,.8132E+00,.8031E+00,.8164E+00,& + .8389E+00,.8389E+00,.8389E+00,.8395E+00,.8411E+00,.8391E+00,.8382E+00,.8309E+00,.8140E+00,.8038E+00,.8181E+00,& + .8393E+00,.8393E+00,.8393E+00,.8397E+00,.8410E+00,.8390E+00,.8381E+00,.8313E+00,.8149E+00,.8047E+00,.8196E+00,& + .8396E+00,.8396E+00,.8396E+00,.8399E+00,.8408E+00,.8388E+00,.8380E+00,.8318E+00,.8159E+00,.8056E+00,.8212E+00,& + .8400E+00,.8400E+00,.8400E+00,.8402E+00,.8407E+00,.8387E+00,.8378E+00,.8322E+00,.8168E+00,.8064E+00,.8227E+00,& + .8403E+00,.8403E+00,.8403E+00,.8404E+00,.8405E+00,.8385E+00,.8377E+00,.8327E+00,.8178E+00,.8073E+00,.8243E+00,& + .8407E+00,.8407E+00,.8407E+00,.8406E+00,.8404E+00,.8384E+00,.8376E+00,.8331E+00,.8187E+00,.8082E+00,.8258E+00,& + .8411E+00,.8411E+00,.8411E+00,.8411E+00,.8410E+00,.8396E+00,.8390E+00,.8337E+00,.8196E+00,.8094E+00,.8269E+00,& + .8415E+00,.8415E+00,.8415E+00,.8416E+00,.8416E+00,.8407E+00,.8404E+00,.8343E+00,.8204E+00,.8106E+00,.8280E+00,& + .8420E+00,.8420E+00,.8420E+00,.8420E+00,.8423E+00,.8419E+00,.8417E+00,.8348E+00,.8213E+00,.8119E+00,.8290E+00,& + .8424E+00,.8424E+00,.8424E+00,.8425E+00,.8429E+00,.8430E+00,.8431E+00,.8354E+00,.8221E+00,.8131E+00,.8301E+00,& + .8428E+00,.8428E+00,.8428E+00,.8430E+00,.8435E+00,.8442E+00,.8445E+00,.8360E+00,.8230E+00,.8143E+00,.8312E+00,& + .8437E+00,.8437E+00,.8437E+00,.8438E+00,.8440E+00,.8446E+00,.8448E+00,.8368E+00,.8237E+00,.8149E+00,.8324E+00,& + .8446E+00,.8446E+00,.8446E+00,.8446E+00,.8446E+00,.8449E+00,.8451E+00,.8377E+00,.8244E+00,.8155E+00,.8335E+00,& + .8455E+00,.8455E+00,.8455E+00,.8454E+00,.8451E+00,.8453E+00,.8453E+00,.8385E+00,.8252E+00,.8160E+00,.8347E+00,& + .8464E+00,.8464E+00,.8464E+00,.8462E+00,.8457E+00,.8456E+00,.8456E+00,.8394E+00,.8259E+00,.8166E+00,.8358E+00,& + .8473E+00,.8473E+00,.8473E+00,.8470E+00,.8462E+00,.8460E+00,.8459E+00,.8402E+00,.8266E+00,.8172E+00,.8370E+00,& + .8475E+00,.8475E+00,.8475E+00,.8473E+00,.8470E+00,.8468E+00,.8468E+00,.8404E+00,.8271E+00,.8178E+00,.8378E+00,& + .8477E+00,.8477E+00,.8477E+00,.8477E+00,.8477E+00,.8477E+00,.8477E+00,.8407E+00,.8276E+00,.8185E+00,.8386E+00,& + .8479E+00,.8479E+00,.8479E+00,.8480E+00,.8485E+00,.8485E+00,.8485E+00,.8409E+00,.8282E+00,.8191E+00,.8395E+00,& + .8481E+00,.8481E+00,.8481E+00,.8484E+00,.8492E+00,.8494E+00,.8494E+00,.8412E+00,.8287E+00,.8198E+00,.8403E+00,& + .8483E+00,.8483E+00,.8483E+00,.8487E+00,.8500E+00,.8502E+00,.8503E+00,.8414E+00,.8292E+00,.8204E+00,.8411E+00,& + .8488E+00,.8488E+00,.8488E+00,.8491E+00,.8500E+00,.8498E+00,.8497E+00,.8420E+00,.8294E+00,.8207E+00,.8418E+00,& + .8493E+00,.8493E+00,.8493E+00,.8494E+00,.8499E+00,.8493E+00,.8491E+00,.8426E+00,.8297E+00,.8211E+00,.8426E+00,& + .8497E+00,.8497E+00,.8497E+00,.8498E+00,.8499E+00,.8489E+00,.8484E+00,.8433E+00,.8299E+00,.8214E+00,.8433E+00,& + .8502E+00,.8502E+00,.8502E+00,.8501E+00,.8498E+00,.8484E+00,.8478E+00,.8439E+00,.8302E+00,.8218E+00,.8441E+00,& + .8507E+00,.8507E+00,.8507E+00,.8505E+00,.8498E+00,.8480E+00,.8472E+00,.8445E+00,.8304E+00,.8221E+00,.8448E+00,& + .8503E+00,.8503E+00,.8503E+00,.8504E+00,.8504E+00,.8489E+00,.8482E+00,.8445E+00,.8310E+00,.8228E+00,.8455E+00,& + .8499E+00,.8499E+00,.8499E+00,.8502E+00,.8510E+00,.8498E+00,.8492E+00,.8446E+00,.8316E+00,.8235E+00,.8461E+00,& + .8495E+00,.8495E+00,.8495E+00,.8501E+00,.8517E+00,.8506E+00,.8502E+00,.8446E+00,.8323E+00,.8242E+00,.8468E+00,& + .8491E+00,.8491E+00,.8491E+00,.8499E+00,.8523E+00,.8515E+00,.8512E+00,.8447E+00,.8329E+00,.8249E+00,.8474E+00,& + .8487E+00,.8487E+00,.8487E+00,.8498E+00,.8529E+00,.8524E+00,.8522E+00,.8447E+00,.8335E+00,.8256E+00,.8481E+00,& + .8498E+00,.8498E+00,.8498E+00,.8506E+00,.8530E+00,.8525E+00,.8524E+00,.8455E+00,.8338E+00,.8257E+00,.8486E+00,& + .8508E+00,.8508E+00,.8508E+00,.8514E+00,.8530E+00,.8527E+00,.8525E+00,.8463E+00,.8340E+00,.8258E+00,.8491E+00,& + .8519E+00,.8519E+00,.8519E+00,.8522E+00,.8531E+00,.8528E+00,.8527E+00,.8470E+00,.8343E+00,.8260E+00,.8496E+00,& + .8529E+00,.8529E+00,.8529E+00,.8530E+00,.8531E+00,.8530E+00,.8528E+00,.8478E+00,.8345E+00,.8261E+00,.8501E+00,& + .8540E+00,.8540E+00,.8540E+00,.8538E+00,.8532E+00,.8531E+00,.8530E+00,.8486E+00,.8348E+00,.8262E+00,.8506E+00,& + .8532E+00,.8532E+00,.8532E+00,.8532E+00,.8533E+00,.8535E+00,.8535E+00,.8487E+00,.8350E+00,.8269E+00,.8511E+00,& + .8523E+00,.8523E+00,.8523E+00,.8526E+00,.8534E+00,.8538E+00,.8540E+00,.8488E+00,.8352E+00,.8275E+00,.8516E+00,& + .8515E+00,.8515E+00,.8515E+00,.8520E+00,.8534E+00,.8542E+00,.8544E+00,.8488E+00,.8355E+00,.8282E+00,.8522E+00,& + .8506E+00,.8506E+00,.8506E+00,.8514E+00,.8535E+00,.8545E+00,.8549E+00,.8489E+00,.8357E+00,.8288E+00,.8527E+00,& + .8498E+00,.8498E+00,.8498E+00,.8508E+00,.8536E+00,.8549E+00,.8554E+00,.8490E+00,.8359E+00,.8295E+00,.8532E+00,& + .8510E+00,.8510E+00,.8510E+00,.8515E+00,.8531E+00,.8547E+00,.8554E+00,.8494E+00,.8366E+00,.8301E+00,.8540E+00,& + .8521E+00,.8521E+00,.8521E+00,.8522E+00,.8526E+00,.8546E+00,.8554E+00,.8498E+00,.8372E+00,.8307E+00,.8548E+00,& + .8533E+00,.8533E+00,.8533E+00,.8530E+00,.8520E+00,.8544E+00,.8554E+00,.8501E+00,.8379E+00,.8313E+00,.8555E+00,& + .8544E+00,.8544E+00,.8544E+00,.8537E+00,.8515E+00,.8543E+00,.8554E+00,.8505E+00,.8385E+00,.8319E+00,.8563E+00,& + .8556E+00,.8556E+00,.8556E+00,.8544E+00,.8510E+00,.8541E+00,.8554E+00,.8509E+00,.8392E+00,.8325E+00,.8571E+00,& + .8560E+00,.8560E+00,.8560E+00,.8551E+00,.8524E+00,.8543E+00,.8551E+00,.8515E+00,.8395E+00,.8331E+00,.8579E+00,& + .8565E+00,.8565E+00,.8565E+00,.8558E+00,.8538E+00,.8546E+00,.8549E+00,.8521E+00,.8398E+00,.8337E+00,.8588E+00,& + .8569E+00,.8569E+00,.8569E+00,.8565E+00,.8552E+00,.8548E+00,.8546E+00,.8527E+00,.8401E+00,.8344E+00,.8596E+00,& + .8574E+00,.8574E+00,.8574E+00,.8572E+00,.8566E+00,.8551E+00,.8544E+00,.8533E+00,.8404E+00,.8350E+00,.8605E+00,& + .8578E+00,.8578E+00,.8578E+00,.8579E+00,.8580E+00,.8553E+00,.8541E+00,.8539E+00,.8407E+00,.8356E+00,.8613E+00,& + .8505E+00,.8505E+00,.8505E+00,.8530E+00,.8600E+00,.8570E+00,.8557E+00,.8537E+00,.8415E+00,.8363E+00,.8624E+00,& + .8563E+00,.8563E+00,.8563E+00,.8571E+00,.8592E+00,.8577E+00,.8571E+00,.8538E+00,.8423E+00,.8370E+00,.8636E+00,& + .8561E+00,.8561E+00,.8561E+00,.8570E+00,.8597E+00,.8600E+00,.8601E+00,.8532E+00,.8447E+00,.8380E+00,.8650E+00,& + .8571E+00,.8571E+00,.8571E+00,.8579E+00,.8602E+00,.8576E+00,.8565E+00,.8549E+00,.8457E+00,.8377E+00,.8662E+00,& + .8596E+00,.8596E+00,.8596E+00,.8590E+00,.8574E+00,.8552E+00,.8542E+00,.8548E+00,.8448E+00,.8393E+00,.8670E+00,& + .8578E+00,.8578E+00,.8578E+00,.8587E+00,.8612E+00,.8587E+00,.8577E+00,.8569E+00,.8449E+00,.8413E+00,.8684E+00,& + .8598E+00,.8598E+00,.8598E+00,.8601E+00,.8608E+00,.8619E+00,.8623E+00,.8568E+00,.8478E+00,.8405E+00,.8698E+00,& + .8596E+00,.8596E+00,.8596E+00,.8598E+00,.8603E+00,.8618E+00,.8625E+00,.8574E+00,.8495E+00,.8444E+00,.8712E+00,& + .8590E+00,.8590E+00,.8590E+00,.8593E+00,.8601E+00,.8627E+00,.8638E+00,.8579E+00,.8501E+00,.8445E+00,.8726E+00,& + .8596E+00,.8596E+00,.8596E+00,.8606E+00,.8634E+00,.8633E+00,.8633E+00,.8585E+00,.8510E+00,.8465E+00,.8737E+00,& + .8616E+00,.8616E+00,.8616E+00,.8621E+00,.8637E+00,.8642E+00,.8644E+00,.8607E+00,.8489E+00,.8452E+00,.8757E+00,& + .8604E+00,.8604E+00,.8604E+00,.8613E+00,.8640E+00,.8646E+00,.8649E+00,.8598E+00,.8523E+00,.8481E+00,.8776E+00,& + .8635E+00,.8635E+00,.8635E+00,.8635E+00,.8634E+00,.8635E+00,.8635E+00,.8614E+00,.8541E+00,.8509E+00,.8798E+00,& + .8641E+00,.8641E+00,.8641E+00,.8642E+00,.8644E+00,.8657E+00,.8662E+00,.8633E+00,.8555E+00,.8543E+00,.8828E+00,& + .8640E+00,.8640E+00,.8640E+00,.8641E+00,.8644E+00,.8655E+00,.8659E+00,.8638E+00,.8554E+00,.8557E+00,.8856E+00,& + .8650E+00,.8650E+00,.8650E+00,.8653E+00,.8663E+00,.8658E+00,.8656E+00,.8655E+00,.8586E+00,.8593E+00,.8897E+00,& + .8634E+00,.8634E+00,.8634E+00,.8644E+00,.8674E+00,.8673E+00,.8672E+00,.8665E+00,.8606E+00,.8616E+00,.8945E+00,& + .8667E+00,.8667E+00,.8667E+00,.8672E+00,.8688E+00,.8705E+00,.8712E+00,.8693E+00,.8631E+00,.8689E+00,.9015E+00,& + .8681E+00,.8681E+00,.8681E+00,.8689E+00,.8712E+00,.8727E+00,.8733E+00,.8724E+00,.8678E+00,.8764E+00,.9133E+00/ + data (((g(ai,k,nh),ai= 7, 7),k=1,11),nh=0,99)/ & + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,& + .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00/ + data (((g(ai,k,nh),ai= 8, 8),k=1,11),nh=0,99)/ & + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,& + .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00/ + data (((g(ai,k,nh),ai= 9, 9),k=1,11),nh=0,99)/ & + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,& + .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00/ + data (((g(ai,k,nh),ai=10,10),k=1,11),nh=0,99)/ & + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,& + .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00/ + data (((g(ai,k,nh),ai=11,11),k=1,11),nh=0,99)/ & + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,& + .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00/ + data (((g(ai,k,nh),ai=12,12),k=1,11),nh=0,99)/ & + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,& + .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00/ + data (((g(ai,k,nh),ai=13,13),k=1,11),nh=0,99)/ & + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,& + .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00/ + data (((g(ai,k,nh),ai=14,14),k=1,11),nh=0,99)/ & + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,& + .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00/ - data (((Bex_lw(ai,k,nh),ai= 1, 1),k=1,nwl_lw),nh=0,99)/ & - .2252E-01,.2261E-01,.8372E-01,.1441E+00,.2880E+00,.4679E+00,.3723E+00,.1729E+00,.2097E+00,.9603E-01,& - .2373E-01,.2456E-01,.8750E-01,.1471E+00,.2917E+00,.4703E+00,.3718E+00,.1742E+00,.2103E+00,.9952E-01,& - .2495E-01,.2652E-01,.9128E-01,.1502E+00,.2954E+00,.4726E+00,.3714E+00,.1755E+00,.2108E+00,.1030E+00,& - .2617E-01,.2847E-01,.9506E-01,.1532E+00,.2991E+00,.4749E+00,.3709E+00,.1768E+00,.2114E+00,.1065E+00,& - .2738E-01,.3042E-01,.9884E-01,.1563E+00,.3028E+00,.4772E+00,.3704E+00,.1781E+00,.2120E+00,.1100E+00,& - .2860E-01,.3238E-01,.1026E+00,.1594E+00,.3065E+00,.4796E+00,.3700E+00,.1794E+00,.2125E+00,.1135E+00,& - .2994E-01,.3456E-01,.1068E+00,.1625E+00,.3098E+00,.4815E+00,.3697E+00,.1808E+00,.2132E+00,.1173E+00,& - .3129E-01,.3674E-01,.1109E+00,.1655E+00,.3132E+00,.4834E+00,.3695E+00,.1822E+00,.2138E+00,.1212E+00,& - .3263E-01,.3892E-01,.1151E+00,.1686E+00,.3165E+00,.4853E+00,.3692E+00,.1835E+00,.2144E+00,.1250E+00,& - .3397E-01,.4110E-01,.1193E+00,.1717E+00,.3198E+00,.4872E+00,.3690E+00,.1849E+00,.2150E+00,.1288E+00,& - .3531E-01,.4328E-01,.1234E+00,.1748E+00,.3231E+00,.4892E+00,.3687E+00,.1863E+00,.2157E+00,.1326E+00,& - .3674E-01,.4561E-01,.1278E+00,.1779E+00,.3260E+00,.4909E+00,.3688E+00,.1878E+00,.2164E+00,.1367E+00,& - .3817E-01,.4795E-01,.1322E+00,.1810E+00,.3290E+00,.4926E+00,.3688E+00,.1893E+00,.2171E+00,.1407E+00,& - .3959E-01,.5028E-01,.1366E+00,.1840E+00,.3320E+00,.4944E+00,.3689E+00,.1908E+00,.2179E+00,.1447E+00,& - .4102E-01,.5261E-01,.1410E+00,.1871E+00,.3349E+00,.4961E+00,.3689E+00,.1923E+00,.2186E+00,.1488E+00,& - .4245E-01,.5494E-01,.1454E+00,.1902E+00,.3379E+00,.4979E+00,.3690E+00,.1938E+00,.2193E+00,.1528E+00,& - .4404E-01,.5757E-01,.1503E+00,.1934E+00,.3406E+00,.4994E+00,.3691E+00,.1954E+00,.2201E+00,.1573E+00,& - .4563E-01,.6019E-01,.1552E+00,.1966E+00,.3433E+00,.5009E+00,.3692E+00,.1969E+00,.2209E+00,.1617E+00,& - .4723E-01,.6282E-01,.1601E+00,.1998E+00,.3460E+00,.5023E+00,.3693E+00,.1985E+00,.2217E+00,.1662E+00,& - .4882E-01,.6545E-01,.1650E+00,.2030E+00,.3487E+00,.5038E+00,.3694E+00,.2001E+00,.2225E+00,.1707E+00,& - .5041E-01,.6807E-01,.1699E+00,.2062E+00,.3515E+00,.5053E+00,.3695E+00,.2017E+00,.2232E+00,.1751E+00,& - .5213E-01,.7092E-01,.1752E+00,.2094E+00,.3540E+00,.5067E+00,.3698E+00,.2034E+00,.2241E+00,.1800E+00,& - .5385E-01,.7376E-01,.1805E+00,.2127E+00,.3565E+00,.5081E+00,.3701E+00,.2051E+00,.2250E+00,.1848E+00,& - .5556E-01,.7661E-01,.1858E+00,.2160E+00,.3590E+00,.5095E+00,.3703E+00,.2069E+00,.2259E+00,.1896E+00,& - .5728E-01,.7946E-01,.1910E+00,.2192E+00,.3615E+00,.5109E+00,.3706E+00,.2086E+00,.2268E+00,.1944E+00,& - .5900E-01,.8230E-01,.1963E+00,.2225E+00,.3640E+00,.5123E+00,.3709E+00,.2103E+00,.2277E+00,.1992E+00,& - .6085E-01,.8537E-01,.2020E+00,.2259E+00,.3663E+00,.5136E+00,.3713E+00,.2121E+00,.2287E+00,.2044E+00,& - .6270E-01,.8845E-01,.2077E+00,.2292E+00,.3686E+00,.5149E+00,.3717E+00,.2140E+00,.2296E+00,.2095E+00,& - .6455E-01,.9152E-01,.2133E+00,.2326E+00,.3710E+00,.5162E+00,.3721E+00,.2158E+00,.2306E+00,.2147E+00,& - .6639E-01,.9459E-01,.2190E+00,.2359E+00,.3733E+00,.5175E+00,.3725E+00,.2176E+00,.2316E+00,.2198E+00,& - .6824E-01,.9766E-01,.2246E+00,.2393E+00,.3757E+00,.5188E+00,.3729E+00,.2194E+00,.2326E+00,.2250E+00,& - .7022E-01,.1010E+00,.2307E+00,.2428E+00,.3779E+00,.5201E+00,.3734E+00,.2214E+00,.2337E+00,.2305E+00,& - .7220E-01,.1043E+00,.2367E+00,.2462E+00,.3801E+00,.5214E+00,.3739E+00,.2234E+00,.2347E+00,.2360E+00,& - .7417E-01,.1076E+00,.2428E+00,.2497E+00,.3823E+00,.5226E+00,.3745E+00,.2254E+00,.2358E+00,.2415E+00,& - .7615E-01,.1108E+00,.2489E+00,.2532E+00,.3845E+00,.5239E+00,.3750E+00,.2273E+00,.2369E+00,.2470E+00,& - .7813E-01,.1141E+00,.2549E+00,.2566E+00,.3867E+00,.5252E+00,.3755E+00,.2293E+00,.2380E+00,.2525E+00,& - .8019E-01,.1176E+00,.2612E+00,.2602E+00,.3889E+00,.5266E+00,.3763E+00,.2314E+00,.2393E+00,.2582E+00,& - .8225E-01,.1210E+00,.2675E+00,.2637E+00,.3911E+00,.5280E+00,.3770E+00,.2335E+00,.2405E+00,.2640E+00,& - .8430E-01,.1245E+00,.2738E+00,.2673E+00,.3932E+00,.5293E+00,.3778E+00,.2356E+00,.2418E+00,.2697E+00,& - .8636E-01,.1279E+00,.2801E+00,.2708E+00,.3954E+00,.5307E+00,.3785E+00,.2376E+00,.2430E+00,.2754E+00,& - .8842E-01,.1313E+00,.2864E+00,.2744E+00,.3976E+00,.5321E+00,.3792E+00,.2397E+00,.2443E+00,.2812E+00,& - .9066E-01,.1351E+00,.2933E+00,.2781E+00,.3996E+00,.5334E+00,.3800E+00,.2420E+00,.2456E+00,.2874E+00,& - .9291E-01,.1389E+00,.3001E+00,.2818E+00,.4017E+00,.5347E+00,.3808E+00,.2442E+00,.2470E+00,.2936E+00,& - .9515E-01,.1426E+00,.3070E+00,.2856E+00,.4038E+00,.5360E+00,.3815E+00,.2464E+00,.2483E+00,.2999E+00,& - .9739E-01,.1464E+00,.3139E+00,.2893E+00,.4059E+00,.5373E+00,.3823E+00,.2487E+00,.2497E+00,.3061E+00,& - .9964E-01,.1501E+00,.3207E+00,.2930E+00,.4079E+00,.5386E+00,.3831E+00,.2509E+00,.2510E+00,.3123E+00,& - .1020E+00,.1541E+00,.3280E+00,.2969E+00,.4100E+00,.5399E+00,.3840E+00,.2533E+00,.2525E+00,.3189E+00,& - .1044E+00,.1581E+00,.3353E+00,.3008E+00,.4120E+00,.5412E+00,.3848E+00,.2557E+00,.2540E+00,.3255E+00,& - .1068E+00,.1621E+00,.3425E+00,.3046E+00,.4141E+00,.5425E+00,.3857E+00,.2580E+00,.2555E+00,.3321E+00,& - .1091E+00,.1661E+00,.3498E+00,.3085E+00,.4161E+00,.5438E+00,.3866E+00,.2604E+00,.2570E+00,.3387E+00,& - .1115E+00,.1701E+00,.3571E+00,.3124E+00,.4182E+00,.5452E+00,.3875E+00,.2628E+00,.2585E+00,.3453E+00,& - .1139E+00,.1741E+00,.3644E+00,.3163E+00,.4203E+00,.5467E+00,.3886E+00,.2653E+00,.2602E+00,.3520E+00,& - .1164E+00,.1782E+00,.3718E+00,.3202E+00,.4224E+00,.5483E+00,.3898E+00,.2678E+00,.2619E+00,.3587E+00,& - .1188E+00,.1822E+00,.3791E+00,.3242E+00,.4245E+00,.5498E+00,.3909E+00,.2703E+00,.2636E+00,.3654E+00,& - .1212E+00,.1862E+00,.3865E+00,.3281E+00,.4266E+00,.5514E+00,.3920E+00,.2728E+00,.2653E+00,.3721E+00,& - .1236E+00,.1903E+00,.3938E+00,.3320E+00,.4288E+00,.5530E+00,.3932E+00,.2753E+00,.2670E+00,.3788E+00,& - .1261E+00,.1944E+00,.4014E+00,.3361E+00,.4309E+00,.5547E+00,.3945E+00,.2779E+00,.2689E+00,.3857E+00,& - .1285E+00,.1986E+00,.4090E+00,.3401E+00,.4331E+00,.5564E+00,.3957E+00,.2806E+00,.2708E+00,.3926E+00,& - .1310E+00,.2028E+00,.4166E+00,.3442E+00,.4353E+00,.5581E+00,.3970E+00,.2832E+00,.2727E+00,.3995E+00,& - .1335E+00,.2069E+00,.4242E+00,.3482E+00,.4374E+00,.5598E+00,.3983E+00,.2858E+00,.2746E+00,.4064E+00,& - .1360E+00,.2111E+00,.4318E+00,.3523E+00,.4396E+00,.5615E+00,.3996E+00,.2885E+00,.2765E+00,.4133E+00,& - .1387E+00,.2156E+00,.4400E+00,.3565E+00,.4418E+00,.5632E+00,.4010E+00,.2913E+00,.2785E+00,.4208E+00,& - .1413E+00,.2201E+00,.4481E+00,.3608E+00,.4439E+00,.5648E+00,.4023E+00,.2941E+00,.2806E+00,.4282E+00,& - .1440E+00,.2246E+00,.4563E+00,.3651E+00,.4460E+00,.5665E+00,.4036E+00,.2969E+00,.2826E+00,.4357E+00,& - .1467E+00,.2291E+00,.4645E+00,.3693E+00,.4482E+00,.5681E+00,.4049E+00,.2997E+00,.2846E+00,.4431E+00,& - .1493E+00,.2336E+00,.4727E+00,.3736E+00,.4503E+00,.5698E+00,.4063E+00,.3025E+00,.2867E+00,.4505E+00,& - .1522E+00,.2383E+00,.4813E+00,.3781E+00,.4525E+00,.5715E+00,.4077E+00,.3055E+00,.2889E+00,.4584E+00,& - .1550E+00,.2431E+00,.4899E+00,.3825E+00,.4547E+00,.5732E+00,.4091E+00,.3085E+00,.2911E+00,.4662E+00,& - .1578E+00,.2478E+00,.4985E+00,.3870E+00,.4569E+00,.5749E+00,.4105E+00,.3114E+00,.2933E+00,.4740E+00,& - .1607E+00,.2525E+00,.5071E+00,.3914E+00,.4591E+00,.5766E+00,.4119E+00,.3144E+00,.2956E+00,.4819E+00,& - .1635E+00,.2573E+00,.5157E+00,.3958E+00,.4613E+00,.5784E+00,.4133E+00,.3173E+00,.2978E+00,.4897E+00,& - .1676E+00,.2644E+00,.5283E+00,.4017E+00,.4627E+00,.5786E+00,.4139E+00,.3210E+00,.3000E+00,.5010E+00,& - .1718E+00,.2714E+00,.5409E+00,.4075E+00,.4642E+00,.5788E+00,.4145E+00,.3246E+00,.3023E+00,.5124E+00,& - .1759E+00,.2785E+00,.5535E+00,.4133E+00,.4657E+00,.5790E+00,.4151E+00,.3282E+00,.3045E+00,.5238E+00,& - .1801E+00,.2856E+00,.5661E+00,.4192E+00,.4672E+00,.5793E+00,.4157E+00,.3318E+00,.3067E+00,.5351E+00,& - .1843E+00,.2926E+00,.5787E+00,.4250E+00,.4687E+00,.5795E+00,.4163E+00,.3355E+00,.3090E+00,.5465E+00,& - .1886E+00,.3001E+00,.5920E+00,.4311E+00,.4703E+00,.5799E+00,.4171E+00,.3394E+00,.3115E+00,.5584E+00,& - .1930E+00,.3075E+00,.6052E+00,.4372E+00,.4718E+00,.5803E+00,.4179E+00,.3433E+00,.3141E+00,.5704E+00,& - .1973E+00,.3149E+00,.6184E+00,.4433E+00,.4734E+00,.5807E+00,.4187E+00,.3472E+00,.3167E+00,.5823E+00,& - .2017E+00,.3224E+00,.6317E+00,.4494E+00,.4749E+00,.5811E+00,.4195E+00,.3511E+00,.3193E+00,.5943E+00,& - .2061E+00,.3298E+00,.6449E+00,.4555E+00,.4765E+00,.5815E+00,.4203E+00,.3550E+00,.3219E+00,.6062E+00,& - .2109E+00,.3380E+00,.6595E+00,.4622E+00,.4779E+00,.5816E+00,.4211E+00,.3592E+00,.3247E+00,.6194E+00,& - .2158E+00,.3464E+00,.6743E+00,.4688E+00,.4793E+00,.5818E+00,.4219E+00,.3635E+00,.3275E+00,.6327E+00,& - .2207E+00,.3547E+00,.6892E+00,.4756E+00,.4809E+00,.5820E+00,.4227E+00,.3678E+00,.3305E+00,.6462E+00,& - .2274E+00,.3662E+00,.7093E+00,.4841E+00,.4814E+00,.5803E+00,.4225E+00,.3731E+00,.3335E+00,.6643E+00,& - .2341E+00,.3777E+00,.7295E+00,.4927E+00,.4819E+00,.5787E+00,.4224E+00,.3784E+00,.3366E+00,.6825E+00,& - .2409E+00,.3893E+00,.7500E+00,.5014E+00,.4826E+00,.5773E+00,.4225E+00,.3838E+00,.3399E+00,.7008E+00,& - .2494E+00,.4039E+00,.7756E+00,.5119E+00,.4824E+00,.5741E+00,.4217E+00,.3902E+00,.3433E+00,.7238E+00,& - .2580E+00,.4187E+00,.8014E+00,.5224E+00,.4823E+00,.5711E+00,.4210E+00,.3967E+00,.3470E+00,.7470E+00,& - .2682E+00,.4364E+00,.8323E+00,.5348E+00,.4814E+00,.5666E+00,.4197E+00,.4042E+00,.3509E+00,.7746E+00,& - .2802E+00,.4571E+00,.8683E+00,.5490E+00,.4799E+00,.5608E+00,.4179E+00,.4128E+00,.3553E+00,.8069E+00,& - .2922E+00,.4777E+00,.9044E+00,.5633E+00,.4787E+00,.5555E+00,.4164E+00,.4215E+00,.3601E+00,.8392E+00,& - .3074E+00,.5040E+00,.9500E+00,.5810E+00,.4762E+00,.5476E+00,.4138E+00,.4323E+00,.3656E+00,.8800E+00,& - .3225E+00,.5301E+00,.9955E+00,.5988E+00,.4743E+00,.5406E+00,.4119E+00,.4433E+00,.3717E+00,.9208E+00,& - .3407E+00,.5615E+00,.1050E+01,.6200E+00,.4715E+00,.5318E+00,.4095E+00,.4565E+00,.3790E+00,.9696E+00,& - .3647E+00,.6029E+00,.1122E+01,.6478E+00,.4673E+00,.5196E+00,.4061E+00,.4737E+00,.3885E+00,.1034E+01,& - .3910E+00,.6484E+00,.1201E+01,.6785E+00,.4635E+00,.5077E+00,.4032E+00,.4931E+00,.3999E+00,.1105E+01,& - .4247E+00,.7066E+00,.1303E+01,.7180E+00,.4593E+00,.4934E+00,.4006E+00,.5185E+00,.4155E+00,.1196E+01,& - .4744E+00,.7923E+00,.1452E+01,.7771E+00,.4550E+00,.4755E+00,.3989E+00,.5567E+00,.4407E+00,.1330E+01,& - .5577E+00,.9357E+00,.1703E+01,.8795E+00,.4557E+00,.4561E+00,.4035E+00,.6251E+00,.4905E+00,.1556E+01/ - data (((Bex_lw(ai,k,nh),ai= 2, 2),k=1,nwl_lw),nh=0,99)/ & - .9514E-01,.1469E+00,.2331E+00,.3161E+00,.3718E+00,.4177E+00,.4740E+00,.6076E+00,.9329E+00,.1995E+00,& - .9518E-01,.1469E+00,.2332E+00,.3162E+00,.3719E+00,.4178E+00,.4741E+00,.6078E+00,.9333E+00,.1995E+00,& - .9521E-01,.1470E+00,.2333E+00,.3163E+00,.3721E+00,.4180E+00,.4743E+00,.6081E+00,.9336E+00,.1996E+00,& - .9525E-01,.1470E+00,.2334E+00,.3164E+00,.3722E+00,.4181E+00,.4745E+00,.6083E+00,.9340E+00,.1997E+00,& - .9528E-01,.1471E+00,.2335E+00,.3165E+00,.3724E+00,.4183E+00,.4747E+00,.6085E+00,.9344E+00,.1998E+00,& - .9532E-01,.1471E+00,.2335E+00,.3167E+00,.3725E+00,.4184E+00,.4748E+00,.6088E+00,.9347E+00,.1999E+00,& - .9535E-01,.1472E+00,.2336E+00,.3168E+00,.3726E+00,.4186E+00,.4750E+00,.6090E+00,.9350E+00,.1999E+00,& - .9538E-01,.1472E+00,.2337E+00,.3169E+00,.3727E+00,.4187E+00,.4751E+00,.6092E+00,.9354E+00,.2000E+00,& - .9541E-01,.1473E+00,.2337E+00,.3170E+00,.3728E+00,.4188E+00,.4753E+00,.6094E+00,.9357E+00,.2000E+00,& - .9544E-01,.1473E+00,.2338E+00,.3170E+00,.3730E+00,.4190E+00,.4754E+00,.6096E+00,.9360E+00,.2001E+00,& - .9547E-01,.1473E+00,.2339E+00,.3171E+00,.3731E+00,.4191E+00,.4756E+00,.6098E+00,.9364E+00,.2001E+00,& - .9550E-01,.1474E+00,.2339E+00,.3172E+00,.3732E+00,.4192E+00,.4757E+00,.6099E+00,.9367E+00,.2002E+00,& - .9552E-01,.1474E+00,.2340E+00,.3173E+00,.3733E+00,.4193E+00,.4758E+00,.6101E+00,.9370E+00,.2002E+00,& - .9554E-01,.1475E+00,.2341E+00,.3174E+00,.3734E+00,.4194E+00,.4760E+00,.6103E+00,.9373E+00,.2003E+00,& - .9556E-01,.1475E+00,.2341E+00,.3175E+00,.3735E+00,.4195E+00,.4761E+00,.6104E+00,.9376E+00,.2003E+00,& - .9558E-01,.1476E+00,.2342E+00,.3175E+00,.3736E+00,.4197E+00,.4762E+00,.6106E+00,.9379E+00,.2004E+00,& - .9561E-01,.1476E+00,.2342E+00,.3176E+00,.3737E+00,.4198E+00,.4764E+00,.6107E+00,.9381E+00,.2004E+00,& - .9564E-01,.1476E+00,.2343E+00,.3177E+00,.3738E+00,.4199E+00,.4765E+00,.6109E+00,.9383E+00,.2005E+00,& - .9566E-01,.1477E+00,.2344E+00,.3178E+00,.3739E+00,.4199E+00,.4766E+00,.6110E+00,.9385E+00,.2005E+00,& - .9569E-01,.1477E+00,.2344E+00,.3179E+00,.3739E+00,.4200E+00,.4767E+00,.6112E+00,.9387E+00,.2006E+00,& - .9571E-01,.1477E+00,.2345E+00,.3179E+00,.3740E+00,.4201E+00,.4768E+00,.6113E+00,.9389E+00,.2006E+00,& - .9573E-01,.1477E+00,.2345E+00,.3180E+00,.3741E+00,.4202E+00,.4769E+00,.6114E+00,.9392E+00,.2007E+00,& - .9575E-01,.1478E+00,.2346E+00,.3181E+00,.3742E+00,.4203E+00,.4770E+00,.6116E+00,.9394E+00,.2007E+00,& - .9577E-01,.1478E+00,.2346E+00,.3181E+00,.3742E+00,.4204E+00,.4770E+00,.6117E+00,.9396E+00,.2007E+00,& - .9578E-01,.1478E+00,.2346E+00,.3182E+00,.3743E+00,.4205E+00,.4771E+00,.6118E+00,.9399E+00,.2008E+00,& - .9580E-01,.1478E+00,.2347E+00,.3182E+00,.3744E+00,.4205E+00,.4772E+00,.6119E+00,.9401E+00,.2008E+00,& - .9582E-01,.1479E+00,.2347E+00,.3183E+00,.3744E+00,.4206E+00,.4773E+00,.6120E+00,.9403E+00,.2008E+00,& - .9583E-01,.1479E+00,.2348E+00,.3183E+00,.3745E+00,.4207E+00,.4774E+00,.6121E+00,.9404E+00,.2009E+00,& - .9585E-01,.1479E+00,.2348E+00,.3184E+00,.3746E+00,.4207E+00,.4775E+00,.6122E+00,.9406E+00,.2009E+00,& - .9587E-01,.1479E+00,.2348E+00,.3184E+00,.3746E+00,.4208E+00,.4775E+00,.6124E+00,.9408E+00,.2009E+00,& - .9588E-01,.1480E+00,.2349E+00,.3185E+00,.3747E+00,.4209E+00,.4776E+00,.6125E+00,.9410E+00,.2010E+00,& - .9589E-01,.1480E+00,.2349E+00,.3185E+00,.3747E+00,.4209E+00,.4777E+00,.6125E+00,.9411E+00,.2010E+00,& - .9590E-01,.1480E+00,.2349E+00,.3186E+00,.3748E+00,.4210E+00,.4778E+00,.6126E+00,.9413E+00,.2010E+00,& - .9591E-01,.1480E+00,.2350E+00,.3186E+00,.3748E+00,.4211E+00,.4778E+00,.6127E+00,.9414E+00,.2011E+00,& - .9592E-01,.1480E+00,.2350E+00,.3187E+00,.3749E+00,.4211E+00,.4779E+00,.6128E+00,.9416E+00,.2011E+00,& - .9592E-01,.1481E+00,.2351E+00,.3187E+00,.3750E+00,.4212E+00,.4780E+00,.6129E+00,.9418E+00,.2011E+00,& - .9594E-01,.1481E+00,.2351E+00,.3188E+00,.3750E+00,.4212E+00,.4780E+00,.6130E+00,.9419E+00,.2011E+00,& - .9595E-01,.1481E+00,.2351E+00,.3188E+00,.3750E+00,.4213E+00,.4781E+00,.6131E+00,.9420E+00,.2012E+00,& - .9597E-01,.1481E+00,.2351E+00,.3188E+00,.3751E+00,.4213E+00,.4781E+00,.6132E+00,.9421E+00,.2012E+00,& - .9598E-01,.1482E+00,.2352E+00,.3189E+00,.3751E+00,.4214E+00,.4782E+00,.6133E+00,.9423E+00,.2012E+00,& - .9599E-01,.1482E+00,.2352E+00,.3189E+00,.3752E+00,.4214E+00,.4782E+00,.6133E+00,.9424E+00,.2012E+00,& - .9600E-01,.1482E+00,.2352E+00,.3189E+00,.3752E+00,.4215E+00,.4783E+00,.6134E+00,.9425E+00,.2013E+00,& - .9601E-01,.1482E+00,.2352E+00,.3190E+00,.3752E+00,.4215E+00,.4784E+00,.6135E+00,.9426E+00,.2013E+00,& - .9601E-01,.1482E+00,.2353E+00,.3190E+00,.3753E+00,.4216E+00,.4784E+00,.6135E+00,.9427E+00,.2013E+00,& - .9602E-01,.1482E+00,.2353E+00,.3190E+00,.3753E+00,.4216E+00,.4785E+00,.6136E+00,.9427E+00,.2013E+00,& - .9603E-01,.1482E+00,.2353E+00,.3190E+00,.3754E+00,.4216E+00,.4785E+00,.6137E+00,.9428E+00,.2013E+00,& - .9604E-01,.1482E+00,.2353E+00,.3191E+00,.3754E+00,.4217E+00,.4786E+00,.6137E+00,.9430E+00,.2014E+00,& - .9605E-01,.1483E+00,.2354E+00,.3191E+00,.3754E+00,.4217E+00,.4786E+00,.6138E+00,.9431E+00,.2014E+00,& - .9606E-01,.1483E+00,.2354E+00,.3192E+00,.3755E+00,.4218E+00,.4787E+00,.6138E+00,.9432E+00,.2014E+00,& - .9607E-01,.1483E+00,.2354E+00,.3192E+00,.3755E+00,.4218E+00,.4787E+00,.6139E+00,.9434E+00,.2014E+00,& - .9608E-01,.1483E+00,.2354E+00,.3192E+00,.3755E+00,.4219E+00,.4788E+00,.6140E+00,.9435E+00,.2014E+00,& - .9609E-01,.1483E+00,.2354E+00,.3193E+00,.3756E+00,.4219E+00,.4788E+00,.6140E+00,.9436E+00,.2015E+00,& - .9609E-01,.1483E+00,.2354E+00,.3193E+00,.3756E+00,.4219E+00,.4788E+00,.6141E+00,.9437E+00,.2015E+00,& - .9610E-01,.1483E+00,.2355E+00,.3193E+00,.3757E+00,.4220E+00,.4789E+00,.6141E+00,.9438E+00,.2015E+00,& - .9610E-01,.1483E+00,.2355E+00,.3193E+00,.3757E+00,.4220E+00,.4789E+00,.6142E+00,.9439E+00,.2015E+00,& - .9610E-01,.1484E+00,.2355E+00,.3193E+00,.3757E+00,.4220E+00,.4790E+00,.6142E+00,.9440E+00,.2015E+00,& - .9677E-01,.1494E+00,.2373E+00,.3213E+00,.3776E+00,.4240E+00,.4810E+00,.6167E+00,.9467E+00,.2030E+00,& - .9744E-01,.1504E+00,.2390E+00,.3233E+00,.3796E+00,.4260E+00,.4831E+00,.6191E+00,.9495E+00,.2045E+00,& - .9812E-01,.1514E+00,.2408E+00,.3253E+00,.3815E+00,.4280E+00,.4851E+00,.6215E+00,.9523E+00,.2059E+00,& - .9879E-01,.1524E+00,.2425E+00,.3272E+00,.3834E+00,.4300E+00,.4872E+00,.6239E+00,.9551E+00,.2074E+00,& - .9946E-01,.1534E+00,.2443E+00,.3292E+00,.3853E+00,.4319E+00,.4892E+00,.6264E+00,.9579E+00,.2089E+00,& - .9947E-01,.1535E+00,.2443E+00,.3292E+00,.3853E+00,.4320E+00,.4893E+00,.6264E+00,.9579E+00,.2089E+00,& - .9948E-01,.1535E+00,.2443E+00,.3292E+00,.3853E+00,.4320E+00,.4893E+00,.6265E+00,.9580E+00,.2089E+00,& - .9949E-01,.1535E+00,.2443E+00,.3293E+00,.3854E+00,.4320E+00,.4894E+00,.6265E+00,.9580E+00,.2089E+00,& - .9950E-01,.1535E+00,.2443E+00,.3293E+00,.3854E+00,.4321E+00,.4894E+00,.6265E+00,.9581E+00,.2089E+00,& - .9951E-01,.1535E+00,.2443E+00,.3293E+00,.3854E+00,.4321E+00,.4894E+00,.6266E+00,.9581E+00,.2089E+00,& - .1016E+00,.1566E+00,.2498E+00,.3352E+00,.3910E+00,.4379E+00,.4954E+00,.6336E+00,.9659E+00,.2135E+00,& - .1036E+00,.1598E+00,.2552E+00,.3411E+00,.3966E+00,.4436E+00,.5013E+00,.6406E+00,.9737E+00,.2181E+00,& - .1056E+00,.1629E+00,.2606E+00,.3470E+00,.4022E+00,.4494E+00,.5073E+00,.6476E+00,.9815E+00,.2226E+00,& - .1077E+00,.1660E+00,.2660E+00,.3528E+00,.4078E+00,.4552E+00,.5132E+00,.6547E+00,.9893E+00,.2272E+00,& - .1097E+00,.1691E+00,.2714E+00,.3587E+00,.4134E+00,.4609E+00,.5192E+00,.6617E+00,.9971E+00,.2318E+00,& - .1156E+00,.1780E+00,.2871E+00,.3745E+00,.4276E+00,.4753E+00,.5338E+00,.6790E+00,.1015E+01,.2450E+00,& - .1214E+00,.1870E+00,.3027E+00,.3902E+00,.4418E+00,.4896E+00,.5484E+00,.6963E+00,.1033E+01,.2583E+00,& - .1272E+00,.1959E+00,.3183E+00,.4060E+00,.4560E+00,.5040E+00,.5630E+00,.7136E+00,.1052E+01,.2715E+00,& - .1330E+00,.2048E+00,.3340E+00,.4217E+00,.4702E+00,.5183E+00,.5776E+00,.7309E+00,.1070E+01,.2848E+00,& - .1389E+00,.2137E+00,.3496E+00,.4375E+00,.4843E+00,.5327E+00,.5922E+00,.7482E+00,.1088E+01,.2980E+00,& - .1469E+00,.2261E+00,.3716E+00,.4570E+00,.5003E+00,.5485E+00,.6081E+00,.7674E+00,.1106E+01,.3168E+00,& - .1549E+00,.2385E+00,.3936E+00,.4766E+00,.5163E+00,.5643E+00,.6240E+00,.7865E+00,.1125E+01,.3356E+00,& - .1628E+00,.2508E+00,.4155E+00,.4961E+00,.5322E+00,.5802E+00,.6399E+00,.8057E+00,.1143E+01,.3544E+00,& - .1708E+00,.2632E+00,.4375E+00,.5156E+00,.5482E+00,.5960E+00,.6558E+00,.8249E+00,.1162E+01,.3732E+00,& - .1788E+00,.2756E+00,.4595E+00,.5351E+00,.5642E+00,.6118E+00,.6717E+00,.8441E+00,.1180E+01,.3920E+00,& - .1915E+00,.2955E+00,.4950E+00,.5642E+00,.5863E+00,.6335E+00,.6933E+00,.8707E+00,.1204E+01,.4226E+00,& - .2002E+00,.3090E+00,.5193E+00,.5834E+00,.6006E+00,.6474E+00,.7072E+00,.8879E+00,.1219E+01,.4436E+00,& - .2134E+00,.3299E+00,.5568E+00,.6122E+00,.6214E+00,.6677E+00,.7273E+00,.9132E+00,.1241E+01,.4760E+00,& - .2225E+00,.3443E+00,.5824E+00,.6313E+00,.6350E+00,.6808E+00,.7402E+00,.9296E+00,.1255E+01,.4984E+00,& - .2364E+00,.3662E+00,.6219E+00,.6600E+00,.6547E+00,.6998E+00,.7590E+00,.9537E+00,.1274E+01,.5328E+00,& - .2506E+00,.3888E+00,.6626E+00,.6887E+00,.6738E+00,.7181E+00,.7771E+00,.9775E+00,.1293E+01,.5683E+00,& - .2603E+00,.4043E+00,.6904E+00,.7078E+00,.6863E+00,.7300E+00,.7889E+00,.9929E+00,.1305E+01,.5927E+00,& - .2751E+00,.4280E+00,.7332E+00,.7365E+00,.7045E+00,.7474E+00,.8060E+00,.1016E+01,.1322E+01,.6302E+00,& - .2852E+00,.4443E+00,.7625E+00,.7557E+00,.7165E+00,.7588E+00,.8172E+00,.1031E+01,.1333E+01,.6560E+00,& - .3007E+00,.4692E+00,.8074E+00,.7846E+00,.7340E+00,.7754E+00,.8335E+00,.1053E+01,.1349E+01,.6956E+00,& - .3165E+00,.4949E+00,.8536E+00,.8137E+00,.7512E+00,.7916E+00,.8495E+00,.1076E+01,.1364E+01,.7365E+00,& - .3328E+00,.5213E+00,.9012E+00,.8429E+00,.7681E+00,.8075E+00,.8651E+00,.1098E+01,.1379E+01,.7786E+00,& - .3495E+00,.5484E+00,.9503E+00,.8724E+00,.7847E+00,.8231E+00,.8805E+00,.1120E+01,.1393E+01,.8221E+00,& - .3725E+00,.5858E+00,.1018E+01,.9123E+00,.8065E+00,.8434E+00,.9004E+00,.1149E+01,.1412E+01,.8821E+00,& - .3962E+00,.6246E+00,.1088E+01,.9527E+00,.8280E+00,.8634E+00,.9201E+00,.1178E+01,.1429E+01,.9445E+00,& - .4270E+00,.6751E+00,.1179E+01,.1004E+01,.8546E+00,.8880E+00,.9443E+00,.1215E+01,.1451E+01,.1026E+01,& - .4722E+00,.7496E+00,.1313E+01,.1078E+01,.8915E+00,.9219E+00,.9776E+00,.1267E+01,.1479E+01,.1146E+01,& - .5273E+00,.8407E+00,.1477E+01,.1167E+01,.9337E+00,.9605E+00,.1016E+01,.1327E+01,.1511E+01,.1294E+01,& - .6812E+00,.1097E+01,.1939E+01,.1406E+01,.1042E+01,.1058E+01,.1111E+01,.1488E+01,.1588E+01,.1710E+01/ - data (((Bex_lw(ai,k,nh),ai= 3, 3),k=1,nwl_lw),nh=0,99)/ & - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01/ - data (((Bex_lw(ai,k,nh),ai= 4, 4),k=1,nwl_lw),nh=0,99)/ & - .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& - .4334E-01,.3951E-01,.3943E-01,.2379E-01,.6799E-01,.1091E+00,.5958E-01,.2844E-01,.1315E-01,.4306E-01,& - .4413E-01,.4063E-01,.4135E-01,.2474E-01,.6898E-01,.1102E+00,.6002E-01,.2916E-01,.1346E-01,.4475E-01,& - .4492E-01,.4174E-01,.4327E-01,.2569E-01,.6998E-01,.1113E+00,.6046E-01,.2989E-01,.1377E-01,.4644E-01,& - .4572E-01,.4286E-01,.4520E-01,.2664E-01,.7098E-01,.1124E+00,.6091E-01,.3061E-01,.1407E-01,.4813E-01,& - .4651E-01,.4398E-01,.4712E-01,.2759E-01,.7198E-01,.1134E+00,.6135E-01,.3133E-01,.1438E-01,.4982E-01,& - .4734E-01,.4518E-01,.4920E-01,.2861E-01,.7299E-01,.1145E+00,.6182E-01,.3210E-01,.1471E-01,.5165E-01,& - .4818E-01,.4639E-01,.5128E-01,.2964E-01,.7400E-01,.1156E+00,.6229E-01,.3287E-01,.1505E-01,.5348E-01,& - .4901E-01,.4759E-01,.5336E-01,.3067E-01,.7502E-01,.1167E+00,.6275E-01,.3364E-01,.1538E-01,.5532E-01,& - .4985E-01,.4879E-01,.5545E-01,.3170E-01,.7603E-01,.1178E+00,.6322E-01,.3441E-01,.1571E-01,.5715E-01,& - .5069E-01,.4999E-01,.5753E-01,.3273E-01,.7705E-01,.1189E+00,.6369E-01,.3518E-01,.1604E-01,.5899E-01,& - .5157E-01,.5128E-01,.5977E-01,.3384E-01,.7807E-01,.1200E+00,.6418E-01,.3599E-01,.1640E-01,.6096E-01,& - .5245E-01,.5257E-01,.6201E-01,.3495E-01,.7910E-01,.1211E+00,.6467E-01,.3680E-01,.1675E-01,.6294E-01,& - .5333E-01,.5386E-01,.6425E-01,.3606E-01,.8012E-01,.1223E+00,.6516E-01,.3762E-01,.1711E-01,.6492E-01,& - .5421E-01,.5514E-01,.6649E-01,.3717E-01,.8115E-01,.1234E+00,.6565E-01,.3843E-01,.1746E-01,.6690E-01,& - .5509E-01,.5643E-01,.6873E-01,.3828E-01,.8217E-01,.1245E+00,.6614E-01,.3924E-01,.1782E-01,.6888E-01,& - .5602E-01,.5781E-01,.7113E-01,.3947E-01,.8321E-01,.1256E+00,.6666E-01,.4010E-01,.1820E-01,.7101E-01,& - .5695E-01,.5918E-01,.7353E-01,.4066E-01,.8425E-01,.1267E+00,.6717E-01,.4097E-01,.1858E-01,.7314E-01,& - .5787E-01,.6056E-01,.7593E-01,.4185E-01,.8528E-01,.1279E+00,.6769E-01,.4183E-01,.1897E-01,.7526E-01,& - .5880E-01,.6193E-01,.7834E-01,.4304E-01,.8632E-01,.1290E+00,.6820E-01,.4269E-01,.1935E-01,.7739E-01,& - .5973E-01,.6331E-01,.8074E-01,.4424E-01,.8736E-01,.1301E+00,.6872E-01,.4355E-01,.1973E-01,.7952E-01,& - .6070E-01,.6477E-01,.8330E-01,.4551E-01,.8841E-01,.1313E+00,.6926E-01,.4446E-01,.2014E-01,.8180E-01,& - .6168E-01,.6623E-01,.8586E-01,.4678E-01,.8947E-01,.1324E+00,.6980E-01,.4537E-01,.2055E-01,.8407E-01,& - .6265E-01,.6769E-01,.8843E-01,.4805E-01,.9052E-01,.1336E+00,.7034E-01,.4628E-01,.2096E-01,.8635E-01,& - .6362E-01,.6916E-01,.9099E-01,.4932E-01,.9157E-01,.1347E+00,.7088E-01,.4719E-01,.2137E-01,.8863E-01,& - .6460E-01,.7062E-01,.9355E-01,.5059E-01,.9262E-01,.1358E+00,.7142E-01,.4809E-01,.2178E-01,.9091E-01,& - .6562E-01,.7217E-01,.9628E-01,.5195E-01,.9369E-01,.1370E+00,.7198E-01,.4905E-01,.2222E-01,.9334E-01,& - .6664E-01,.7372E-01,.9901E-01,.5331E-01,.9475E-01,.1382E+00,.7255E-01,.5001E-01,.2266E-01,.9577E-01,& - .6766E-01,.7528E-01,.1017E+00,.5466E-01,.9581E-01,.1393E+00,.7311E-01,.5097E-01,.2310E-01,.9820E-01,& - .6869E-01,.7683E-01,.1045E+00,.5602E-01,.9687E-01,.1405E+00,.7368E-01,.5193E-01,.2354E-01,.1006E+00,& - .6971E-01,.7838E-01,.1072E+00,.5737E-01,.9793E-01,.1416E+00,.7424E-01,.5289E-01,.2398E-01,.1031E+00,& - .7078E-01,.8002E-01,.1101E+00,.5881E-01,.9901E-01,.1428E+00,.7483E-01,.5390E-01,.2445E-01,.1057E+00,& - .7185E-01,.8167E-01,.1130E+00,.6025E-01,.1001E+00,.1440E+00,.7543E-01,.5491E-01,.2492E-01,.1082E+00,& - .7292E-01,.8331E-01,.1159E+00,.6169E-01,.1012E+00,.1451E+00,.7602E-01,.5592E-01,.2539E-01,.1108E+00,& - .7399E-01,.8496E-01,.1188E+00,.6313E-01,.1022E+00,.1463E+00,.7661E-01,.5693E-01,.2586E-01,.1134E+00,& - .7507E-01,.8660E-01,.1217E+00,.6456E-01,.1033E+00,.1475E+00,.7721E-01,.5794E-01,.2633E-01,.1160E+00,& - .7619E-01,.8833E-01,.1248E+00,.6608E-01,.1044E+00,.1486E+00,.7782E-01,.5900E-01,.2683E-01,.1187E+00,& - .7731E-01,.9007E-01,.1278E+00,.6761E-01,.1055E+00,.1498E+00,.7844E-01,.6006E-01,.2734E-01,.1215E+00,& - .7843E-01,.9180E-01,.1309E+00,.6913E-01,.1066E+00,.1510E+00,.7906E-01,.6112E-01,.2784E-01,.1242E+00,& - .7955E-01,.9353E-01,.1340E+00,.7065E-01,.1077E+00,.1522E+00,.7968E-01,.6218E-01,.2834E-01,.1269E+00,& - .8067E-01,.9527E-01,.1370E+00,.7217E-01,.1088E+00,.1534E+00,.8030E-01,.6324E-01,.2885E-01,.1297E+00,& - .8185E-01,.9710E-01,.1402E+00,.7378E-01,.1099E+00,.1546E+00,.8095E-01,.6435E-01,.2939E-01,.1326E+00,& - .8302E-01,.9893E-01,.1435E+00,.7538E-01,.1110E+00,.1558E+00,.8159E-01,.6547E-01,.2992E-01,.1355E+00,& - .8419E-01,.1008E+00,.1467E+00,.7699E-01,.1121E+00,.1569E+00,.8223E-01,.6658E-01,.3046E-01,.1384E+00,& - .8537E-01,.1026E+00,.1500E+00,.7860E-01,.1132E+00,.1581E+00,.8288E-01,.6770E-01,.3100E-01,.1412E+00,& - .8654E-01,.1044E+00,.1532E+00,.8020E-01,.1143E+00,.1593E+00,.8352E-01,.6881E-01,.3154E-01,.1441E+00,& - .8777E-01,.1063E+00,.1566E+00,.8190E-01,.1154E+00,.1605E+00,.8420E-01,.6998E-01,.3211E-01,.1472E+00,& - .8899E-01,.1083E+00,.1600E+00,.8359E-01,.1165E+00,.1617E+00,.8487E-01,.7116E-01,.3269E-01,.1503E+00,& - .9022E-01,.1102E+00,.1634E+00,.8528E-01,.1176E+00,.1629E+00,.8554E-01,.7233E-01,.3326E-01,.1533E+00,& - .9145E-01,.1121E+00,.1668E+00,.8698E-01,.1188E+00,.1641E+00,.8621E-01,.7350E-01,.3384E-01,.1564E+00,& - .9267E-01,.1140E+00,.1703E+00,.8867E-01,.1199E+00,.1653E+00,.8689E-01,.7467E-01,.3441E-01,.1595E+00,& - .9415E-01,.1164E+00,.1745E+00,.9075E-01,.1212E+00,.1667E+00,.8767E-01,.7609E-01,.3511E-01,.1633E+00,& - .9563E-01,.1188E+00,.1787E+00,.9283E-01,.1224E+00,.1680E+00,.8846E-01,.7751E-01,.3581E-01,.1670E+00,& - .9710E-01,.1211E+00,.1829E+00,.9491E-01,.1237E+00,.1694E+00,.8925E-01,.7892E-01,.3650E-01,.1708E+00,& - .9858E-01,.1235E+00,.1871E+00,.9699E-01,.1250E+00,.1707E+00,.9004E-01,.8034E-01,.3720E-01,.1745E+00,& - .1001E+00,.1258E+00,.1913E+00,.9907E-01,.1263E+00,.1721E+00,.9082E-01,.8176E-01,.3789E-01,.1783E+00,& - .1016E+00,.1283E+00,.1957E+00,.1013E+00,.1276E+00,.1734E+00,.9165E-01,.8325E-01,.3864E-01,.1823E+00,& - .1031E+00,.1308E+00,.2001E+00,.1035E+00,.1289E+00,.1748E+00,.9247E-01,.8474E-01,.3939E-01,.1863E+00,& - .1047E+00,.1333E+00,.2046E+00,.1057E+00,.1302E+00,.1761E+00,.9329E-01,.8623E-01,.4014E-01,.1903E+00,& - .1062E+00,.1357E+00,.2090E+00,.1079E+00,.1315E+00,.1775E+00,.9412E-01,.8773E-01,.4089E-01,.1943E+00,& - .1078E+00,.1382E+00,.2134E+00,.1101E+00,.1327E+00,.1788E+00,.9494E-01,.8922E-01,.4164E-01,.1982E+00,& - .1092E+00,.1405E+00,.2175E+00,.1121E+00,.1340E+00,.1801E+00,.9575E-01,.9062E-01,.4237E-01,.2019E+00,& - .1107E+00,.1428E+00,.2216E+00,.1141E+00,.1352E+00,.1815E+00,.9657E-01,.9201E-01,.4309E-01,.2056E+00,& - .1121E+00,.1452E+00,.2258E+00,.1162E+00,.1365E+00,.1828E+00,.9738E-01,.9341E-01,.4382E-01,.2093E+00,& - .1136E+00,.1475E+00,.2299E+00,.1182E+00,.1377E+00,.1841E+00,.9819E-01,.9481E-01,.4455E-01,.2130E+00,& - .1150E+00,.1498E+00,.2340E+00,.1202E+00,.1389E+00,.1854E+00,.9901E-01,.9621E-01,.4528E-01,.2167E+00,& - .1167E+00,.1525E+00,.2388E+00,.1226E+00,.1403E+00,.1868E+00,.9991E-01,.9785E-01,.4614E-01,.2211E+00,& - .1184E+00,.1552E+00,.2437E+00,.1251E+00,.1416E+00,.1882E+00,.1008E+00,.9949E-01,.4699E-01,.2255E+00,& - .1201E+00,.1580E+00,.2486E+00,.1275E+00,.1430E+00,.1896E+00,.1017E+00,.1011E+00,.4785E-01,.2299E+00,& - .1218E+00,.1607E+00,.2535E+00,.1299E+00,.1443E+00,.1910E+00,.1026E+00,.1028E+00,.4870E-01,.2343E+00,& - .1235E+00,.1634E+00,.2584E+00,.1323E+00,.1457E+00,.1923E+00,.1035E+00,.1044E+00,.4956E-01,.2387E+00,& - .1260E+00,.1676E+00,.2659E+00,.1360E+00,.1476E+00,.1942E+00,.1048E+00,.1069E+00,.5083E-01,.2455E+00,& - .1285E+00,.1717E+00,.2734E+00,.1397E+00,.1495E+00,.1961E+00,.1061E+00,.1094E+00,.5210E-01,.2522E+00,& - .1311E+00,.1759E+00,.2809E+00,.1434E+00,.1514E+00,.1980E+00,.1074E+00,.1118E+00,.5337E-01,.2590E+00,& - .1336E+00,.1801E+00,.2884E+00,.1471E+00,.1533E+00,.1999E+00,.1088E+00,.1143E+00,.5464E-01,.2657E+00,& - .1361E+00,.1843E+00,.2959E+00,.1508E+00,.1552E+00,.2018E+00,.1101E+00,.1168E+00,.5591E-01,.2725E+00,& - .1396E+00,.1900E+00,.3063E+00,.1559E+00,.1577E+00,.2042E+00,.1118E+00,.1202E+00,.5767E-01,.2819E+00,& - .1431E+00,.1958E+00,.3168E+00,.1611E+00,.1601E+00,.2066E+00,.1136E+00,.1236E+00,.5943E-01,.2913E+00,& - .1466E+00,.2016E+00,.3272E+00,.1662E+00,.1626E+00,.2089E+00,.1154E+00,.1271E+00,.6119E-01,.3007E+00,& - .1501E+00,.2074E+00,.3376E+00,.1714E+00,.1650E+00,.2113E+00,.1172E+00,.1305E+00,.6296E-01,.3102E+00,& - .1535E+00,.2132E+00,.3481E+00,.1765E+00,.1675E+00,.2137E+00,.1189E+00,.1339E+00,.6472E-01,.3196E+00,& - .1580E+00,.2206E+00,.3615E+00,.1831E+00,.1705E+00,.2165E+00,.1212E+00,.1383E+00,.6697E-01,.3317E+00,& - .1624E+00,.2281E+00,.3751E+00,.1898E+00,.1736E+00,.2193E+00,.1235E+00,.1427E+00,.6928E-01,.3440E+00,& - .1670E+00,.2358E+00,.3890E+00,.1966E+00,.1766E+00,.2222E+00,.1258E+00,.1472E+00,.7165E-01,.3566E+00,& - .1717E+00,.2436E+00,.4032E+00,.2036E+00,.1797E+00,.2251E+00,.1281E+00,.1518E+00,.7407E-01,.3693E+00,& - .1778E+00,.2539E+00,.4219E+00,.2128E+00,.1837E+00,.2287E+00,.1312E+00,.1579E+00,.7725E-01,.3863E+00,& - .1841E+00,.2645E+00,.4410E+00,.2221E+00,.1877E+00,.2324E+00,.1343E+00,.1641E+00,.8051E-01,.4036E+00,& - .1919E+00,.2777E+00,.4651E+00,.2339E+00,.1926E+00,.2368E+00,.1382E+00,.1718E+00,.8457E-01,.4253E+00,& - .1999E+00,.2913E+00,.4897E+00,.2460E+00,.1976E+00,.2412E+00,.1422E+00,.1798E+00,.8879E-01,.4476E+00,& - .2096E+00,.3077E+00,.5195E+00,.2606E+00,.2035E+00,.2464E+00,.1470E+00,.1894E+00,.9389E-01,.4746E+00,& - .2194E+00,.3245E+00,.5501E+00,.2756E+00,.2095E+00,.2516E+00,.1520E+00,.1993E+00,.9917E-01,.5022E+00,& - .2311E+00,.3445E+00,.5862E+00,.2933E+00,.2164E+00,.2576E+00,.1577E+00,.2109E+00,.1054E+00,.5350E+00,& - .2446E+00,.3676E+00,.6284E+00,.3139E+00,.2244E+00,.2644E+00,.1646E+00,.2245E+00,.1128E+00,.5732E+00,& - .2619E+00,.3971E+00,.6820E+00,.3401E+00,.2343E+00,.2727E+00,.1731E+00,.2417E+00,.1222E+00,.6218E+00,& - .2813E+00,.4303E+00,.7424E+00,.3696E+00,.2454E+00,.2819E+00,.1828E+00,.2611E+00,.1329E+00,.6766E+00,& - .3081E+00,.4765E+00,.8264E+00,.4106E+00,.2604E+00,.2943E+00,.1962E+00,.2881E+00,.1480E+00,.7528E+00,& - .3431E+00,.5366E+00,.9357E+00,.4639E+00,.2797E+00,.3101E+00,.2137E+00,.3233E+00,.1679E+00,.8521E+00,& - .3848E+00,.6084E+00,.1066E+01,.5275E+00,.3026E+00,.3286E+00,.2347E+00,.3654E+00,.1922E+00,.9706E+00,& - .4548E+00,.7287E+00,.1285E+01,.6341E+00,.3407E+00,.3592E+00,.2700E+00,.4362E+00,.2340E+00,.1170E+01,& - .5711E+00,.9289E+00,.1649E+01,.8114E+00,.4040E+00,.4102E+00,.3293E+00,.5544E+00,.3062E+00,.1500E+01/ - data (((Bex_lw(ai,k,nh),ai= 5, 5),k=1,nwl_lw),nh=0,99)/ & - .5506E-01,.3918E-01,.2796E-01,.3351E-01,.6595E-01,.8195E-01,.6205E-01,.1181E+00,.2768E+00,.4168E-01,& - .5707E-01,.4229E-01,.3309E-01,.3612E-01,.6796E-01,.8445E-01,.6504E-01,.1233E+00,.2868E+00,.4650E-01,& - .5908E-01,.4539E-01,.3821E-01,.3872E-01,.6998E-01,.8695E-01,.6803E-01,.1285E+00,.2968E+00,.5133E-01,& - .6109E-01,.4849E-01,.4334E-01,.4133E-01,.7199E-01,.8944E-01,.7102E-01,.1336E+00,.3068E+00,.5616E-01,& - .6311E-01,.5160E-01,.4847E-01,.4393E-01,.7400E-01,.9194E-01,.7401E-01,.1388E+00,.3167E+00,.6099E-01,& - .6512E-01,.5470E-01,.5360E-01,.4654E-01,.7601E-01,.9444E-01,.7700E-01,.1440E+00,.3267E+00,.6582E-01,& - .6733E-01,.5826E-01,.5943E-01,.4954E-01,.7832E-01,.9730E-01,.8045E-01,.1499E+00,.3380E+00,.7138E-01,& - .6954E-01,.6183E-01,.6527E-01,.5253E-01,.8062E-01,.1002E+00,.8391E-01,.1559E+00,.3493E+00,.7693E-01,& - .7176E-01,.6540E-01,.7111E-01,.5553E-01,.8292E-01,.1030E+00,.8736E-01,.1618E+00,.3606E+00,.8249E-01,& - .7397E-01,.6896E-01,.7695E-01,.5852E-01,.8522E-01,.1059E+00,.9081E-01,.1677E+00,.3719E+00,.8805E-01,& - .7618E-01,.7253E-01,.8279E-01,.6152E-01,.8753E-01,.1087E+00,.9426E-01,.1737E+00,.3833E+00,.9361E-01,& - .7864E-01,.7662E-01,.8941E-01,.6493E-01,.9016E-01,.1120E+00,.9826E-01,.1805E+00,.3962E+00,.9996E-01,& - .8109E-01,.8070E-01,.9604E-01,.6835E-01,.9278E-01,.1153E+00,.1023E+00,.1873E+00,.4090E+00,.1063E+00,& - .8354E-01,.8479E-01,.1027E+00,.7177E-01,.9541E-01,.1185E+00,.1062E+00,.1941E+00,.4219E+00,.1127E+00,& - .8600E-01,.8888E-01,.1093E+00,.7518E-01,.9804E-01,.1218E+00,.1102E+00,.2009E+00,.4348E+00,.1190E+00,& - .8845E-01,.9296E-01,.1159E+00,.7860E-01,.1007E+00,.1250E+00,.1142E+00,.2076E+00,.4477E+00,.1254E+00,& - .9115E-01,.9755E-01,.1233E+00,.8241E-01,.1036E+00,.1287E+00,.1188E+00,.2153E+00,.4621E+00,.1325E+00,& - .9386E-01,.1021E+00,.1306E+00,.8622E-01,.1066E+00,.1324E+00,.1233E+00,.2229E+00,.4765E+00,.1396E+00,& - .9656E-01,.1067E+00,.1380E+00,.9003E-01,.1095E+00,.1361E+00,.1279E+00,.2306E+00,.4909E+00,.1467E+00,& - .9926E-01,.1113E+00,.1453E+00,.9383E-01,.1125E+00,.1397E+00,.1324E+00,.2382E+00,.5052E+00,.1539E+00,& - .1020E+00,.1159E+00,.1527E+00,.9764E-01,.1155E+00,.1434E+00,.1369E+00,.2459E+00,.5196E+00,.1610E+00,& - .1050E+00,.1211E+00,.1609E+00,.1019E+00,.1188E+00,.1476E+00,.1421E+00,.2545E+00,.5358E+00,.1689E+00,& - .1079E+00,.1262E+00,.1691E+00,.1061E+00,.1221E+00,.1517E+00,.1473E+00,.2631E+00,.5519E+00,.1769E+00,& - .1109E+00,.1314E+00,.1772E+00,.1104E+00,.1255E+00,.1559E+00,.1525E+00,.2717E+00,.5680E+00,.1849E+00,& - .1139E+00,.1365E+00,.1854E+00,.1146E+00,.1288E+00,.1600E+00,.1576E+00,.2804E+00,.5842E+00,.1928E+00,& - .1169E+00,.1417E+00,.1936E+00,.1189E+00,.1321E+00,.1642E+00,.1628E+00,.2890E+00,.6003E+00,.2008E+00,& - .1202E+00,.1474E+00,.2025E+00,.1236E+00,.1358E+00,.1688E+00,.1686E+00,.2986E+00,.6181E+00,.2096E+00,& - .1235E+00,.1531E+00,.2115E+00,.1282E+00,.1395E+00,.1735E+00,.1744E+00,.3081E+00,.6359E+00,.2183E+00,& - .1267E+00,.1588E+00,.2204E+00,.1329E+00,.1432E+00,.1781E+00,.1803E+00,.3177E+00,.6537E+00,.2271E+00,& - .1300E+00,.1645E+00,.2294E+00,.1375E+00,.1469E+00,.1827E+00,.1861E+00,.3273E+00,.6714E+00,.2358E+00,& - .1333E+00,.1702E+00,.2383E+00,.1422E+00,.1506E+00,.1874E+00,.1919E+00,.3369E+00,.6892E+00,.2446E+00,& - .1369E+00,.1766E+00,.2481E+00,.1473E+00,.1548E+00,.1926E+00,.1984E+00,.3476E+00,.7089E+00,.2542E+00,& - .1405E+00,.1829E+00,.2579E+00,.1524E+00,.1589E+00,.1978E+00,.2050E+00,.3583E+00,.7287E+00,.2639E+00,& - .1441E+00,.1892E+00,.2678E+00,.1576E+00,.1631E+00,.2030E+00,.2115E+00,.3690E+00,.7484E+00,.2736E+00,& - .1478E+00,.1956E+00,.2776E+00,.1627E+00,.1672E+00,.2082E+00,.2181E+00,.3797E+00,.7681E+00,.2832E+00,& - .1514E+00,.2019E+00,.2874E+00,.1678E+00,.1713E+00,.2134E+00,.2246E+00,.3904E+00,.7878E+00,.2929E+00,& - .1553E+00,.2088E+00,.2980E+00,.1734E+00,.1759E+00,.2191E+00,.2319E+00,.4021E+00,.8092E+00,.3034E+00,& - .1593E+00,.2158E+00,.3086E+00,.1790E+00,.1804E+00,.2249E+00,.2391E+00,.4139E+00,.8306E+00,.3139E+00,& - .1632E+00,.2227E+00,.3192E+00,.1845E+00,.1850E+00,.2306E+00,.2464E+00,.4256E+00,.8521E+00,.3244E+00,& - .1672E+00,.2296E+00,.3298E+00,.1901E+00,.1895E+00,.2364E+00,.2537E+00,.4374E+00,.8735E+00,.3349E+00,& - .1711E+00,.2366E+00,.3405E+00,.1957E+00,.1941E+00,.2421E+00,.2609E+00,.4491E+00,.8949E+00,.3454E+00,& - .1755E+00,.2442E+00,.3520E+00,.2017E+00,.1991E+00,.2485E+00,.2690E+00,.4621E+00,.9185E+00,.3568E+00,& - .1798E+00,.2518E+00,.3636E+00,.2078E+00,.2042E+00,.2549E+00,.2771E+00,.4751E+00,.9421E+00,.3683E+00,& - .1841E+00,.2594E+00,.3751E+00,.2139E+00,.2092E+00,.2613E+00,.2853E+00,.4881E+00,.9657E+00,.3798E+00,& - .1885E+00,.2671E+00,.3867E+00,.2199E+00,.2142E+00,.2677E+00,.2934E+00,.5011E+00,.9893E+00,.3913E+00,& - .1928E+00,.2747E+00,.3983E+00,.2260E+00,.2193E+00,.2741E+00,.3015E+00,.5141E+00,.1013E+01,.4028E+00,& - .1975E+00,.2830E+00,.4106E+00,.2325E+00,.2248E+00,.2811E+00,.3104E+00,.5282E+00,.1038E+01,.4151E+00,& - .2022E+00,.2912E+00,.4230E+00,.2391E+00,.2303E+00,.2881E+00,.3193E+00,.5424E+00,.1064E+01,.4275E+00,& - .2069E+00,.2995E+00,.4354E+00,.2456E+00,.2358E+00,.2951E+00,.3282E+00,.5565E+00,.1089E+01,.4398E+00,& - .2116E+00,.3078E+00,.4478E+00,.2521E+00,.2413E+00,.3021E+00,.3372E+00,.5706E+00,.1114E+01,.4522E+00,& - .2163E+00,.3161E+00,.4602E+00,.2587E+00,.2468E+00,.3091E+00,.3461E+00,.5848E+00,.1140E+01,.4645E+00,& - .2205E+00,.3235E+00,.4712E+00,.2645E+00,.2518E+00,.3154E+00,.3542E+00,.5975E+00,.1162E+01,.4756E+00,& - .2247E+00,.3309E+00,.4822E+00,.2703E+00,.2567E+00,.3217E+00,.3623E+00,.6103E+00,.1185E+01,.4866E+00,& - .2290E+00,.3383E+00,.4932E+00,.2761E+00,.2617E+00,.3281E+00,.3704E+00,.6230E+00,.1208E+01,.4976E+00,& - .2332E+00,.3458E+00,.5043E+00,.2819E+00,.2667E+00,.3344E+00,.3784E+00,.6357E+00,.1231E+01,.5086E+00,& - .2374E+00,.3532E+00,.5153E+00,.2877E+00,.2716E+00,.3408E+00,.3865E+00,.6485E+00,.1254E+01,.5197E+00,& - .2419E+00,.3611E+00,.5269E+00,.2939E+00,.2770E+00,.3476E+00,.3953E+00,.6621E+00,.1278E+01,.5314E+00,& - .2464E+00,.3690E+00,.5386E+00,.3001E+00,.2823E+00,.3544E+00,.4040E+00,.6758E+00,.1302E+01,.5431E+00,& - .2509E+00,.3770E+00,.5503E+00,.3063E+00,.2876E+00,.3612E+00,.4128E+00,.6894E+00,.1326E+01,.5548E+00,& - .2554E+00,.3849E+00,.5619E+00,.3125E+00,.2930E+00,.3681E+00,.4215E+00,.7031E+00,.1350E+01,.5665E+00,& - .2599E+00,.3928E+00,.5736E+00,.3186E+00,.2983E+00,.3749E+00,.4303E+00,.7167E+00,.1374E+01,.5782E+00,& - .2647E+00,.4012E+00,.5858E+00,.3252E+00,.3040E+00,.3822E+00,.4396E+00,.7312E+00,.1399E+01,.5905E+00,& - .2695E+00,.4096E+00,.5981E+00,.3317E+00,.3097E+00,.3895E+00,.4490E+00,.7456E+00,.1424E+01,.6028E+00,& - .2743E+00,.4180E+00,.6103E+00,.3382E+00,.3154E+00,.3968E+00,.4583E+00,.7601E+00,.1450E+01,.6151E+00,& - .2791E+00,.4264E+00,.6226E+00,.3447E+00,.3211E+00,.4041E+00,.4677E+00,.7746E+00,.1475E+01,.6274E+00,& - .2839E+00,.4348E+00,.6348E+00,.3512E+00,.3268E+00,.4114E+00,.4770E+00,.7891E+00,.1500E+01,.6398E+00,& - .2890E+00,.4438E+00,.6478E+00,.3581E+00,.3329E+00,.4193E+00,.4871E+00,.8046E+00,.1528E+01,.6529E+00,& - .2941E+00,.4528E+00,.6608E+00,.3651E+00,.3390E+00,.4272E+00,.4973E+00,.8202E+00,.1555E+01,.6660E+00,& - .2992E+00,.4618E+00,.6738E+00,.3720E+00,.3452E+00,.4351E+00,.5074E+00,.8358E+00,.1582E+01,.6792E+00,& - .3044E+00,.4708E+00,.6868E+00,.3789E+00,.3513E+00,.4430E+00,.5175E+00,.8513E+00,.1609E+01,.6923E+00,& - .3095E+00,.4798E+00,.6998E+00,.3859E+00,.3574E+00,.4509E+00,.5276E+00,.8669E+00,.1636E+01,.7055E+00,& - .3185E+00,.4955E+00,.7222E+00,.3979E+00,.3682E+00,.4648E+00,.5454E+00,.8941E+00,.1683E+01,.7281E+00,& - .3274E+00,.5111E+00,.7446E+00,.4098E+00,.3789E+00,.4786E+00,.5632E+00,.9213E+00,.1729E+01,.7508E+00,& - .3364E+00,.5268E+00,.7670E+00,.4218E+00,.3897E+00,.4925E+00,.5810E+00,.9484E+00,.1776E+01,.7735E+00,& - .3453E+00,.5425E+00,.7894E+00,.4338E+00,.4004E+00,.5064E+00,.5989E+00,.9756E+00,.1822E+01,.7962E+00,& - .3543E+00,.5581E+00,.8118E+00,.4458E+00,.4112E+00,.5202E+00,.6167E+00,.1003E+01,.1869E+01,.8188E+00,& - .3667E+00,.5796E+00,.8421E+00,.4621E+00,.4261E+00,.5396E+00,.6415E+00,.1040E+01,.1932E+01,.8497E+00,& - .3790E+00,.6011E+00,.8725E+00,.4784E+00,.4410E+00,.5589E+00,.6663E+00,.1078E+01,.1996E+01,.8805E+00,& - .3914E+00,.6226E+00,.9028E+00,.4947E+00,.4560E+00,.5782E+00,.6911E+00,.1115E+01,.2059E+01,.9113E+00,& - .4037E+00,.6441E+00,.9331E+00,.5110E+00,.4709E+00,.5975E+00,.7159E+00,.1152E+01,.2123E+01,.9422E+00,& - .4161E+00,.6656E+00,.9634E+00,.5274E+00,.4858E+00,.6168E+00,.7407E+00,.1190E+01,.2187E+01,.9730E+00,& - .4320E+00,.6933E+00,.1002E+01,.5481E+00,.5051E+00,.6419E+00,.7730E+00,.1238E+01,.2267E+01,.1012E+01,& - .4547E+00,.7327E+00,.1057E+01,.5778E+00,.5328E+00,.6778E+00,.8190E+00,.1306E+01,.2380E+01,.1068E+01,& - .4751E+00,.7679E+00,.1105E+01,.6043E+00,.5576E+00,.7101E+00,.8605E+00,.1368E+01,.2482E+01,.1118E+01,& - .4959E+00,.8038E+00,.1155E+01,.6311E+00,.5829E+00,.7430E+00,.9028E+00,.1430E+01,.2585E+01,.1169E+01,& - .5284E+00,.8597E+00,.1231E+01,.6728E+00,.6227E+00,.7947E+00,.9690E+00,.1527E+01,.2748E+01,.1247E+01,& - .5549E+00,.9054E+00,.1294E+01,.7069E+00,.6552E+00,.8370E+00,.1024E+01,.1607E+01,.2877E+01,.1311E+01,& - .5901E+00,.9658E+00,.1375E+01,.7517E+00,.6983E+00,.8933E+00,.1096E+01,.1712E+01,.3046E+01,.1395E+01,& - .6269E+00,.1028E+01,.1460E+01,.7982E+00,.7436E+00,.9522E+00,.1171E+01,.1821E+01,.3222E+01,.1482E+01,& - .6697E+00,.1101E+01,.1558E+01,.8521E+00,.7963E+00,.1021E+01,.1259E+01,.1949E+01,.3428E+01,.1583E+01,& - .7285E+00,.1201E+01,.1690E+01,.9254E+00,.8690E+00,.1116E+01,.1381E+01,.2122E+01,.3703E+01,.1720E+01,& - .7908E+00,.1307E+01,.1829E+01,.1003E+01,.9462E+00,.1217E+01,.1510E+01,.2305E+01,.3988E+01,.1864E+01,& - .8831E+00,.1462E+01,.2031E+01,.1116E+01,.1061E+01,.1367E+01,.1701E+01,.2575E+01,.4410E+01,.2074E+01,& - .9884E+00,.1638E+01,.2259E+01,.1244E+01,.1192E+01,.1538E+01,.1920E+01,.2880E+01,.4873E+01,.2311E+01,& - .1140E+01,.1890E+01,.2580E+01,.1426E+01,.1382E+01,.1787E+01,.2235E+01,.3315E+01,.5532E+01,.2646E+01,& - .1365E+01,.2259E+01,.3043E+01,.1691E+01,.1664E+01,.2155E+01,.2701E+01,.3947E+01,.6458E+01,.3131E+01,& - .1667E+01,.2750E+01,.3647E+01,.2042E+01,.2044E+01,.2652E+01,.3326E+01,.4784E+01,.7665E+01,.3767E+01,& - .2281E+01,.3727E+01,.4821E+01,.2736E+01,.2819E+01,.3660E+01,.4583E+01,.6425E+01,.9939E+01,.5007E+01,& - .3357E+01,.5397E+01,.6758E+01,.3914E+01,.4181E+01,.5420E+01,.6748E+01,.9167E+01,.1359E+02,.7068E+01,& - .6683E+01,.1032E+02,.1219E+02,.7377E+01,.8380E+01,.1077E+02,.1317E+02,.1689E+02,.2304E+02,.1290E+02/ - data (((Bex_lw(ai,k,nh),ai= 6, 6),k=1,nwl_lw),nh=0,99)/ & - .8507E-01,.1012E+00,.1020E+00,.1242E+00,.1501E+00,.1512E+00,.1408E+00,.1564E+00,.1616E+00,.1167E+00,& - .8754E-01,.1042E+00,.1045E+00,.1260E+00,.1530E+00,.1546E+00,.1443E+00,.1600E+00,.1653E+00,.1196E+00,& - .9001E-01,.1072E+00,.1070E+00,.1278E+00,.1559E+00,.1579E+00,.1478E+00,.1636E+00,.1690E+00,.1225E+00,& - .9247E-01,.1102E+00,.1095E+00,.1295E+00,.1588E+00,.1613E+00,.1513E+00,.1672E+00,.1727E+00,.1254E+00,& - .9494E-01,.1132E+00,.1120E+00,.1313E+00,.1617E+00,.1647E+00,.1547E+00,.1708E+00,.1765E+00,.1283E+00,& - .9741E-01,.1162E+00,.1145E+00,.1331E+00,.1646E+00,.1680E+00,.1582E+00,.1744E+00,.1802E+00,.1312E+00,& - .1001E+00,.1195E+00,.1174E+00,.1352E+00,.1677E+00,.1715E+00,.1621E+00,.1784E+00,.1842E+00,.1344E+00,& - .1028E+00,.1228E+00,.1203E+00,.1372E+00,.1708E+00,.1750E+00,.1660E+00,.1823E+00,.1883E+00,.1377E+00,& - .1055E+00,.1261E+00,.1233E+00,.1392E+00,.1740E+00,.1784E+00,.1699E+00,.1863E+00,.1924E+00,.1409E+00,& - .1082E+00,.1294E+00,.1262E+00,.1413E+00,.1771E+00,.1819E+00,.1738E+00,.1902E+00,.1964E+00,.1442E+00,& - .1109E+00,.1327E+00,.1291E+00,.1433E+00,.1802E+00,.1854E+00,.1777E+00,.1942E+00,.2005E+00,.1474E+00,& - .1138E+00,.1363E+00,.1324E+00,.1456E+00,.1835E+00,.1892E+00,.1818E+00,.1983E+00,.2046E+00,.1510E+00,& - .1168E+00,.1399E+00,.1357E+00,.1479E+00,.1868E+00,.1931E+00,.1858E+00,.2024E+00,.2088E+00,.1545E+00,& - .1197E+00,.1435E+00,.1389E+00,.1501E+00,.1901E+00,.1970E+00,.1899E+00,.2064E+00,.2129E+00,.1581E+00,& - .1226E+00,.1471E+00,.1422E+00,.1524E+00,.1934E+00,.2008E+00,.1939E+00,.2105E+00,.2171E+00,.1616E+00,& - .1256E+00,.1507E+00,.1455E+00,.1546E+00,.1968E+00,.2047E+00,.1980E+00,.2146E+00,.2213E+00,.1652E+00,& - .1287E+00,.1546E+00,.1491E+00,.1571E+00,.2003E+00,.2087E+00,.2024E+00,.2191E+00,.2258E+00,.1691E+00,& - .1319E+00,.1585E+00,.1527E+00,.1596E+00,.2038E+00,.2127E+00,.2069E+00,.2235E+00,.2303E+00,.1729E+00,& - .1351E+00,.1623E+00,.1563E+00,.1621E+00,.2073E+00,.2167E+00,.2114E+00,.2280E+00,.2349E+00,.1768E+00,& - .1383E+00,.1662E+00,.1599E+00,.1647E+00,.2109E+00,.2207E+00,.2158E+00,.2325E+00,.2394E+00,.1807E+00,& - .1415E+00,.1701E+00,.1635E+00,.1672E+00,.2144E+00,.2247E+00,.2203E+00,.2369E+00,.2439E+00,.1845E+00,& - .1449E+00,.1742E+00,.1674E+00,.1699E+00,.2182E+00,.2290E+00,.2249E+00,.2415E+00,.2483E+00,.1887E+00,& - .1484E+00,.1784E+00,.1712E+00,.1727E+00,.2220E+00,.2333E+00,.2295E+00,.2461E+00,.2528E+00,.1928E+00,& - .1518E+00,.1825E+00,.1751E+00,.1755E+00,.2257E+00,.2375E+00,.2342E+00,.2508E+00,.2572E+00,.1970E+00,& - .1553E+00,.1867E+00,.1790E+00,.1783E+00,.2295E+00,.2418E+00,.2388E+00,.2554E+00,.2616E+00,.2011E+00,& - .1587E+00,.1908E+00,.1829E+00,.1811E+00,.2333E+00,.2461E+00,.2434E+00,.2600E+00,.2660E+00,.2052E+00,& - .1624E+00,.1953E+00,.1870E+00,.1841E+00,.2373E+00,.2507E+00,.2484E+00,.2649E+00,.2711E+00,.2096E+00,& - .1661E+00,.1997E+00,.1912E+00,.1871E+00,.2413E+00,.2554E+00,.2534E+00,.2698E+00,.2762E+00,.2141E+00,& - .1698E+00,.2041E+00,.1953E+00,.1901E+00,.2454E+00,.2600E+00,.2584E+00,.2747E+00,.2812E+00,.2185E+00,& - .1735E+00,.2086E+00,.1995E+00,.1931E+00,.2494E+00,.2647E+00,.2634E+00,.2796E+00,.2863E+00,.2229E+00,& - .1772E+00,.2130E+00,.2036E+00,.1961E+00,.2534E+00,.2693E+00,.2684E+00,.2845E+00,.2914E+00,.2273E+00,& - .1812E+00,.2177E+00,.2080E+00,.1994E+00,.2577E+00,.2741E+00,.2736E+00,.2896E+00,.2960E+00,.2320E+00,& - .1852E+00,.2224E+00,.2124E+00,.2027E+00,.2620E+00,.2788E+00,.2789E+00,.2948E+00,.3005E+00,.2366E+00,& - .1892E+00,.2271E+00,.2168E+00,.2059E+00,.2663E+00,.2836E+00,.2842E+00,.3000E+00,.3051E+00,.2413E+00,& - .1932E+00,.2318E+00,.2212E+00,.2092E+00,.2706E+00,.2883E+00,.2894E+00,.3051E+00,.3097E+00,.2460E+00,& - .1972E+00,.2365E+00,.2256E+00,.2125E+00,.2749E+00,.2931E+00,.2947E+00,.3103E+00,.3142E+00,.2507E+00,& - .2014E+00,.2415E+00,.2302E+00,.2160E+00,.2795E+00,.2983E+00,.3001E+00,.3156E+00,.3198E+00,.2556E+00,& - .2057E+00,.2465E+00,.2349E+00,.2196E+00,.2840E+00,.3034E+00,.3055E+00,.3208E+00,.3253E+00,.2605E+00,& - .2099E+00,.2514E+00,.2395E+00,.2231E+00,.2886E+00,.3086E+00,.3109E+00,.3261E+00,.3309E+00,.2655E+00,& - .2142E+00,.2564E+00,.2441E+00,.2266E+00,.2932E+00,.3138E+00,.3163E+00,.3313E+00,.3364E+00,.2704E+00,& - .2184E+00,.2614E+00,.2488E+00,.2302E+00,.2978E+00,.3189E+00,.3217E+00,.3366E+00,.3420E+00,.2753E+00,& - .2230E+00,.2666E+00,.2536E+00,.2339E+00,.3026E+00,.3243E+00,.3276E+00,.3423E+00,.3470E+00,.2805E+00,& - .2275E+00,.2718E+00,.2585E+00,.2377E+00,.3074E+00,.3297E+00,.3335E+00,.3479E+00,.3521E+00,.2857E+00,& - .2320E+00,.2771E+00,.2634E+00,.2415E+00,.3122E+00,.3350E+00,.3394E+00,.3536E+00,.3571E+00,.2908E+00,& - .2366E+00,.2823E+00,.2683E+00,.2453E+00,.3170E+00,.3404E+00,.3453E+00,.3592E+00,.3622E+00,.2960E+00,& - .2411E+00,.2876E+00,.2732E+00,.2490E+00,.3218E+00,.3458E+00,.3512E+00,.3649E+00,.3672E+00,.3012E+00,& - .2459E+00,.2931E+00,.2783E+00,.2531E+00,.3269E+00,.3514E+00,.3570E+00,.3706E+00,.3728E+00,.3066E+00,& - .2507E+00,.2986E+00,.2834E+00,.2571E+00,.3321E+00,.3570E+00,.3629E+00,.3762E+00,.3784E+00,.3120E+00,& - .2555E+00,.3041E+00,.2885E+00,.2611E+00,.3372E+00,.3626E+00,.3687E+00,.3819E+00,.3840E+00,.3174E+00,& - .2603E+00,.3095E+00,.2936E+00,.2652E+00,.3423E+00,.3683E+00,.3745E+00,.3876E+00,.3896E+00,.3228E+00,& - .2651E+00,.3150E+00,.2987E+00,.2692E+00,.3474E+00,.3739E+00,.3804E+00,.3933E+00,.3952E+00,.3282E+00,& - .2692E+00,.3197E+00,.3030E+00,.2727E+00,.3518E+00,.3787E+00,.3855E+00,.3982E+00,.4000E+00,.3328E+00,& - .2734E+00,.3244E+00,.3073E+00,.2762E+00,.3562E+00,.3836E+00,.3907E+00,.4031E+00,.4048E+00,.3375E+00,& - .2775E+00,.3291E+00,.3117E+00,.2797E+00,.3606E+00,.3884E+00,.3958E+00,.4081E+00,.4097E+00,.3421E+00,& - .2817E+00,.3338E+00,.3160E+00,.2831E+00,.3650E+00,.3933E+00,.4009E+00,.4130E+00,.4145E+00,.3467E+00,& - .2858E+00,.3385E+00,.3204E+00,.2866E+00,.3693E+00,.3981E+00,.4061E+00,.4179E+00,.4193E+00,.3513E+00,& - .2902E+00,.3434E+00,.3248E+00,.2902E+00,.3739E+00,.4031E+00,.4114E+00,.4230E+00,.4238E+00,.3561E+00,& - .2945E+00,.3483E+00,.3293E+00,.2939E+00,.3784E+00,.4081E+00,.4168E+00,.4281E+00,.4283E+00,.3608E+00,& - .2988E+00,.3531E+00,.3338E+00,.2975E+00,.3830E+00,.4131E+00,.4222E+00,.4332E+00,.4328E+00,.3656E+00,& - .3031E+00,.3580E+00,.3383E+00,.3012E+00,.3875E+00,.4181E+00,.4275E+00,.4383E+00,.4373E+00,.3704E+00,& - .3075E+00,.3628E+00,.3428E+00,.3048E+00,.3921E+00,.4231E+00,.4329E+00,.4434E+00,.4418E+00,.3751E+00,& - .3120E+00,.3679E+00,.3475E+00,.3086E+00,.3968E+00,.4283E+00,.4382E+00,.4485E+00,.4467E+00,.3801E+00,& - .3165E+00,.3729E+00,.3521E+00,.3124E+00,.4016E+00,.4334E+00,.4434E+00,.4536E+00,.4516E+00,.3850E+00,& - .3210E+00,.3780E+00,.3567E+00,.3162E+00,.4063E+00,.4385E+00,.4487E+00,.4587E+00,.4564E+00,.3899E+00,& - .3255E+00,.3830E+00,.3614E+00,.3200E+00,.4111E+00,.4437E+00,.4539E+00,.4638E+00,.4613E+00,.3948E+00,& - .3301E+00,.3880E+00,.3660E+00,.3238E+00,.4158E+00,.4488E+00,.4592E+00,.4689E+00,.4662E+00,.3997E+00,& - .3348E+00,.3932E+00,.3708E+00,.3278E+00,.4208E+00,.4542E+00,.4647E+00,.4742E+00,.4715E+00,.4048E+00,& - .3395E+00,.3985E+00,.3756E+00,.3318E+00,.4257E+00,.4595E+00,.4703E+00,.4794E+00,.4769E+00,.4099E+00,& - .3442E+00,.4037E+00,.3804E+00,.3358E+00,.4307E+00,.4649E+00,.4758E+00,.4847E+00,.4822E+00,.4149E+00,& - .3489E+00,.4089E+00,.3852E+00,.3397E+00,.4356E+00,.4702E+00,.4813E+00,.4899E+00,.4876E+00,.4200E+00,& - .3536E+00,.4141E+00,.3900E+00,.3437E+00,.4405E+00,.4756E+00,.4869E+00,.4952E+00,.4929E+00,.4251E+00,& - .3609E+00,.4221E+00,.3974E+00,.3499E+00,.4482E+00,.4838E+00,.4956E+00,.5034E+00,.5002E+00,.4329E+00,& - .3683E+00,.4302E+00,.4047E+00,.3561E+00,.4558E+00,.4921E+00,.5043E+00,.5116E+00,.5075E+00,.4407E+00,& - .3756E+00,.4382E+00,.4121E+00,.3623E+00,.4635E+00,.5004E+00,.5130E+00,.5198E+00,.5148E+00,.4485E+00,& - .3830E+00,.4463E+00,.4195E+00,.3685E+00,.4711E+00,.5086E+00,.5217E+00,.5280E+00,.5221E+00,.4563E+00,& - .3903E+00,.4543E+00,.4269E+00,.3747E+00,.4787E+00,.5169E+00,.5304E+00,.5362E+00,.5294E+00,.4641E+00,& - .4018E+00,.4668E+00,.4382E+00,.3844E+00,.4907E+00,.5296E+00,.5433E+00,.5485E+00,.5414E+00,.4762E+00,& - .4132E+00,.4792E+00,.4496E+00,.3941E+00,.5026E+00,.5423E+00,.5562E+00,.5608E+00,.5534E+00,.4882E+00,& - .4247E+00,.4916E+00,.4610E+00,.4038E+00,.5145E+00,.5550E+00,.5690E+00,.5730E+00,.5654E+00,.5002E+00,& - .4362E+00,.5041E+00,.4723E+00,.4135E+00,.5264E+00,.5677E+00,.5819E+00,.5853E+00,.5774E+00,.5123E+00,& - .4476E+00,.5165E+00,.4837E+00,.4232E+00,.5383E+00,.5804E+00,.5947E+00,.5976E+00,.5894E+00,.5243E+00,& - .4603E+00,.5301E+00,.4961E+00,.4339E+00,.5514E+00,.5943E+00,.6091E+00,.6111E+00,.6012E+00,.5374E+00,& - .4796E+00,.5508E+00,.5149E+00,.4503E+00,.5713E+00,.6154E+00,.6312E+00,.6316E+00,.6205E+00,.5573E+00,& - .4993E+00,.5719E+00,.5341E+00,.4670E+00,.5916E+00,.6369E+00,.6532E+00,.6526E+00,.6387E+00,.5776E+00,& - .5195E+00,.5934E+00,.5537E+00,.4841E+00,.6123E+00,.6587E+00,.6748E+00,.6735E+00,.6575E+00,.5984E+00,& - .5436E+00,.6188E+00,.5769E+00,.5045E+00,.6370E+00,.6846E+00,.7005E+00,.6975E+00,.6822E+00,.6228E+00,& - .5683E+00,.6449E+00,.6006E+00,.5254E+00,.6623E+00,.7111E+00,.7273E+00,.7229E+00,.7073E+00,.6478E+00,& - .5936E+00,.6714E+00,.6247E+00,.5468E+00,.6882E+00,.7381E+00,.7550E+00,.7487E+00,.7309E+00,.6732E+00,& - .6213E+00,.7004E+00,.6510E+00,.5703E+00,.7163E+00,.7675E+00,.7851E+00,.7767E+00,.7555E+00,.7010E+00,& - .6535E+00,.7340E+00,.6815E+00,.5976E+00,.7490E+00,.8013E+00,.8183E+00,.8090E+00,.7846E+00,.7332E+00,& - .6925E+00,.7745E+00,.7182E+00,.6307E+00,.7885E+00,.8422E+00,.8585E+00,.8463E+00,.8223E+00,.7719E+00,& - .7409E+00,.8244E+00,.7634E+00,.6718E+00,.8374E+00,.8925E+00,.9092E+00,.8942E+00,.8675E+00,.8195E+00,& - .7951E+00,.8801E+00,.8139E+00,.7178E+00,.8917E+00,.9484E+00,.9654E+00,.9471E+00,.9159E+00,.8725E+00,& - .8780E+00,.9646E+00,.8904E+00,.7883E+00,.9746E+00,.1033E+01,.1048E+01,.1025E+01,.9917E+00,.9530E+00,& - .9790E+00,.1067E+01,.9831E+00,.8742E+00,.1075E+01,.1135E+01,.1150E+01,.1121E+01,.1080E+01,.1050E+01,& - .1111E+01,.1199E+01,.1102E+01,.9862E+00,.1205E+01,.1265E+01,.1276E+01,.1241E+01,.1198E+01,.1175E+01,& - .1314E+01,.1401E+01,.1286E+01,.1160E+01,.1404E+01,.1464E+01,.1471E+01,.1426E+01,.1373E+01,.1367E+01,& - .1600E+01,.1682E+01,.1542E+01,.1404E+01,.1679E+01,.1738E+01,.1738E+01,.1681E+01,.1614E+01,.1634E+01,& - .2137E+01,.2204E+01,.2019E+01,.1866E+01,.2190E+01,.2241E+01,.2229E+01,.2151E+01,.2071E+01,.2130E+01,& - .3477E+01,.3490E+01,.3204E+01,.3029E+01,.3436E+01,.3461E+01,.3423E+01,.3306E+01,.3196E+01,.3354E+01/ - data (((Bex_lw(ai,k,nh),ai= 7, 7),k=1,nwl_lw),nh=0,99)/ & - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& - .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01/ - data (((Bex_lw(ai,k,nh),ai= 8, 8),k=1,nwl_lw),nh=0,99)/ & - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& - .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01/ - data (((Bex_lw(ai,k,nh),ai= 9, 9),k=1,nwl_lw),nh=0,99)/ & - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& - .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01/ - data (((Bex_lw(ai,k,nh),ai=10,10),k=1,nwl_lw),nh=0,99)/ & - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& - .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01/ - data (((Bex_lw(ai,k,nh),ai=11,11),k=1,nwl_lw),nh=0,99)/ & - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& - .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01/ - data (((Bex_lw(ai,k,nh),ai=12,12),k=1,nwl_lw),nh=0,99)/ & - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& - .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01/ - data (((Bex_lw(ai,k,nh),ai=13,13),k=1,nwl_lw),nh=0,99)/ & - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& - .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01/ - data (((Bex_lw(ai,k,nh),ai=14,14),k=1,nwl_lw),nh=0,99)/ & - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& - .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01/ - data (((w0_lw(ai,k,nh),ai= 1, 1),k=1,nwl_lw),nh=0,99)/ & - .1325E-03,.1713E-02,.1149E-02,.1635E-02,.2001E-02,.1756E-02,.1147E-02,.4354E-02,.1745E-01,.1744E-02,& - .1309E-03,.1522E-02,.1084E-02,.1627E-02,.2007E-02,.1761E-02,.1167E-02,.4478E-02,.1816E-01,.1573E-02,& - .1292E-03,.1332E-02,.1018E-02,.1618E-02,.2013E-02,.1767E-02,.1188E-02,.4603E-02,.1887E-01,.1402E-02,& - .1275E-03,.1141E-02,.9531E-03,.1610E-02,.2019E-02,.1772E-02,.1208E-02,.4728E-02,.1958E-01,.1231E-02,& - .1258E-03,.9507E-03,.8878E-03,.1602E-02,.2025E-02,.1778E-02,.1228E-02,.4852E-02,.2029E-01,.1060E-02,& - .1242E-03,.7601E-03,.8225E-03,.1594E-02,.2031E-02,.1784E-02,.1248E-02,.4977E-02,.2100E-01,.8890E-03,& - .1232E-03,.7190E-03,.8014E-03,.1589E-02,.2039E-02,.1793E-02,.1275E-02,.5120E-02,.2184E-01,.8469E-03,& - .1223E-03,.6779E-03,.7803E-03,.1584E-02,.2048E-02,.1802E-02,.1301E-02,.5263E-02,.2267E-01,.8049E-03,& - .1214E-03,.6367E-03,.7592E-03,.1578E-02,.2057E-02,.1811E-02,.1327E-02,.5405E-02,.2351E-01,.7628E-03,& - .1204E-03,.5956E-03,.7381E-03,.1573E-02,.2066E-02,.1820E-02,.1354E-02,.5548E-02,.2434E-01,.7207E-03,& - .1195E-03,.5545E-03,.7170E-03,.1568E-02,.2075E-02,.1829E-02,.1380E-02,.5691E-02,.2518E-01,.6787E-03,& - .1191E-03,.5381E-03,.7072E-03,.1567E-02,.2087E-02,.1842E-02,.1413E-02,.5851E-02,.2613E-01,.6622E-03,& - .1187E-03,.5217E-03,.6973E-03,.1565E-02,.2099E-02,.1855E-02,.1445E-02,.6012E-02,.2708E-01,.6458E-03,& - .1184E-03,.5053E-03,.6874E-03,.1563E-02,.2111E-02,.1867E-02,.1478E-02,.6172E-02,.2803E-01,.6294E-03,& - .1180E-03,.4889E-03,.6776E-03,.1561E-02,.2123E-02,.1880E-02,.1511E-02,.6332E-02,.2898E-01,.6130E-03,& - .1176E-03,.4726E-03,.6677E-03,.1560E-02,.2135E-02,.1893E-02,.1544E-02,.6493E-02,.2993E-01,.5966E-03,& - .1175E-03,.4638E-03,.6620E-03,.1559E-02,.2149E-02,.1908E-02,.1583E-02,.6676E-02,.3104E-01,.5887E-03,& - .1175E-03,.4551E-03,.6564E-03,.1558E-02,.2162E-02,.1924E-02,.1623E-02,.6860E-02,.3216E-01,.5807E-03,& - .1174E-03,.4464E-03,.6507E-03,.1558E-02,.2176E-02,.1940E-02,.1663E-02,.7044E-02,.3327E-01,.5727E-03,& - .1173E-03,.4377E-03,.6450E-03,.1557E-02,.2190E-02,.1955E-02,.1703E-02,.7227E-02,.3439E-01,.5647E-03,& - .1172E-03,.4290E-03,.6394E-03,.1556E-02,.2204E-02,.1971E-02,.1743E-02,.7411E-02,.3550E-01,.5567E-03,& - .1174E-03,.4246E-03,.6367E-03,.1557E-02,.2220E-02,.1989E-02,.1791E-02,.7618E-02,.3678E-01,.5535E-03,& - .1176E-03,.4201E-03,.6341E-03,.1558E-02,.2237E-02,.2008E-02,.1839E-02,.7824E-02,.3805E-01,.5502E-03,& - .1177E-03,.4156E-03,.6315E-03,.1559E-02,.2253E-02,.2027E-02,.1886E-02,.8031E-02,.3932E-01,.5469E-03,& - .1179E-03,.4111E-03,.6288E-03,.1561E-02,.2270E-02,.2045E-02,.1934E-02,.8238E-02,.4060E-01,.5437E-03,& - .1181E-03,.4067E-03,.6262E-03,.1562E-02,.2286E-02,.2064E-02,.1982E-02,.8445E-02,.4187E-01,.5404E-03,& - .1185E-03,.4046E-03,.6257E-03,.1564E-02,.2305E-02,.2087E-02,.2038E-02,.8676E-02,.4331E-01,.5399E-03,& - .1190E-03,.4026E-03,.6252E-03,.1567E-02,.2324E-02,.2109E-02,.2095E-02,.8908E-02,.4475E-01,.5394E-03,& - .1194E-03,.4005E-03,.6246E-03,.1570E-02,.2343E-02,.2131E-02,.2151E-02,.9139E-02,.4619E-01,.5389E-03,& - .1198E-03,.3985E-03,.6241E-03,.1572E-02,.2362E-02,.2153E-02,.2207E-02,.9371E-02,.4763E-01,.5384E-03,& - .1202E-03,.3964E-03,.6235E-03,.1575E-02,.2381E-02,.2176E-02,.2263E-02,.9603E-02,.4907E-01,.5379E-03,& - .1208E-03,.3960E-03,.6246E-03,.1579E-02,.2402E-02,.2202E-02,.2329E-02,.9859E-02,.5069E-01,.5392E-03,& - .1214E-03,.3955E-03,.6256E-03,.1583E-02,.2424E-02,.2228E-02,.2394E-02,.1012E-01,.5231E-01,.5406E-03,& - .1220E-03,.3950E-03,.6267E-03,.1587E-02,.2445E-02,.2254E-02,.2459E-02,.1037E-01,.5392E-01,.5419E-03,& - .1226E-03,.3945E-03,.6277E-03,.1591E-02,.2467E-02,.2280E-02,.2525E-02,.1063E-01,.5554E-01,.5432E-03,& - .1233E-03,.3940E-03,.6287E-03,.1595E-02,.2488E-02,.2306E-02,.2590E-02,.1089E-01,.5716E-01,.5446E-03,& - .1241E-03,.3948E-03,.6312E-03,.1601E-02,.2513E-02,.2336E-02,.2664E-02,.1117E-01,.5892E-01,.5473E-03,& - .1248E-03,.3956E-03,.6337E-03,.1607E-02,.2537E-02,.2366E-02,.2737E-02,.1145E-01,.6068E-01,.5501E-03,& - .1256E-03,.3964E-03,.6362E-03,.1613E-02,.2562E-02,.2396E-02,.2811E-02,.1173E-01,.6244E-01,.5529E-03,& - .1264E-03,.3971E-03,.6387E-03,.1619E-02,.2586E-02,.2425E-02,.2884E-02,.1201E-01,.6420E-01,.5557E-03,& - .1272E-03,.3979E-03,.6412E-03,.1625E-02,.2611E-02,.2455E-02,.2958E-02,.1229E-01,.6596E-01,.5585E-03,& - .1281E-03,.3994E-03,.6445E-03,.1631E-02,.2637E-02,.2489E-02,.3043E-02,.1260E-01,.6794E-01,.5622E-03,& - .1291E-03,.4008E-03,.6478E-03,.1638E-02,.2664E-02,.2523E-02,.3128E-02,.1292E-01,.6992E-01,.5658E-03,& - .1300E-03,.4022E-03,.6511E-03,.1644E-02,.2691E-02,.2557E-02,.3213E-02,.1323E-01,.7190E-01,.5694E-03,& - .1309E-03,.4037E-03,.6544E-03,.1651E-02,.2718E-02,.2591E-02,.3298E-02,.1354E-01,.7388E-01,.5731E-03,& - .1318E-03,.4051E-03,.6577E-03,.1657E-02,.2745E-02,.2625E-02,.3384E-02,.1385E-01,.7586E-01,.5767E-03,& - .1329E-03,.4072E-03,.6619E-03,.1665E-02,.2774E-02,.2663E-02,.3480E-02,.1420E-01,.7804E-01,.5812E-03,& - .1339E-03,.4094E-03,.6661E-03,.1672E-02,.2804E-02,.2701E-02,.3576E-02,.1454E-01,.8021E-01,.5857E-03,& - .1350E-03,.4115E-03,.6703E-03,.1680E-02,.2833E-02,.2739E-02,.3672E-02,.1489E-01,.8238E-01,.5902E-03,& - .1360E-03,.4136E-03,.6745E-03,.1688E-02,.2863E-02,.2778E-02,.3768E-02,.1523E-01,.8455E-01,.5947E-03,& - .1371E-03,.4157E-03,.6787E-03,.1695E-02,.2893E-02,.2816E-02,.3864E-02,.1558E-01,.8672E-01,.5992E-03,& - .1383E-03,.4186E-03,.6839E-03,.1705E-02,.2925E-02,.2858E-02,.3968E-02,.1594E-01,.8898E-01,.6046E-03,& - .1395E-03,.4214E-03,.6892E-03,.1715E-02,.2958E-02,.2901E-02,.4072E-02,.1630E-01,.9124E-01,.6100E-03,& - .1407E-03,.4243E-03,.6944E-03,.1724E-02,.2991E-02,.2943E-02,.4176E-02,.1667E-01,.9350E-01,.6154E-03,& - .1420E-03,.4271E-03,.6997E-03,.1734E-02,.3024E-02,.2986E-02,.4280E-02,.1703E-01,.9576E-01,.6208E-03,& - .1432E-03,.4300E-03,.7050E-03,.1744E-02,.3056E-02,.3028E-02,.4383E-02,.1739E-01,.9802E-01,.6262E-03,& - .1445E-03,.4333E-03,.7110E-03,.1754E-02,.3092E-02,.3075E-02,.4496E-02,.1778E-01,.1004E+00,.6322E-03,& - .1458E-03,.4367E-03,.7170E-03,.1765E-02,.3128E-02,.3121E-02,.4609E-02,.1817E-01,.1028E+00,.6383E-03,& - .1472E-03,.4401E-03,.7230E-03,.1776E-02,.3163E-02,.3168E-02,.4722E-02,.1855E-01,.1051E+00,.6443E-03,& - .1485E-03,.4435E-03,.7290E-03,.1787E-02,.3199E-02,.3214E-02,.4834E-02,.1894E-01,.1075E+00,.6504E-03,& - .1498E-03,.4468E-03,.7351E-03,.1798E-02,.3234E-02,.3261E-02,.4947E-02,.1933E-01,.1099E+00,.6564E-03,& - .1513E-03,.4505E-03,.7416E-03,.1809E-02,.3273E-02,.3313E-02,.5074E-02,.1975E-01,.1125E+00,.6630E-03,& - .1527E-03,.4542E-03,.7481E-03,.1821E-02,.3311E-02,.3365E-02,.5201E-02,.2018E-01,.1151E+00,.6695E-03,& - .1541E-03,.4579E-03,.7546E-03,.1832E-02,.3349E-02,.3416E-02,.5328E-02,.2060E-01,.1177E+00,.6760E-03,& - .1556E-03,.4616E-03,.7612E-03,.1844E-02,.3388E-02,.3468E-02,.5454E-02,.2103E-01,.1203E+00,.6826E-03,& - .1570E-03,.4653E-03,.7677E-03,.1855E-02,.3426E-02,.3520E-02,.5581E-02,.2145E-01,.1229E+00,.6891E-03,& - .1585E-03,.4694E-03,.7748E-03,.1867E-02,.3467E-02,.3577E-02,.5720E-02,.2191E-01,.1256E+00,.6962E-03,& - .1601E-03,.4734E-03,.7819E-03,.1880E-02,.3509E-02,.3634E-02,.5859E-02,.2237E-01,.1284E+00,.7032E-03,& - .1616E-03,.4775E-03,.7890E-03,.1892E-02,.3550E-02,.3691E-02,.5998E-02,.2283E-01,.1311E+00,.7103E-03,& - .1631E-03,.4816E-03,.7961E-03,.1904E-02,.3591E-02,.3748E-02,.6137E-02,.2329E-01,.1339E+00,.7173E-03,& - .1647E-03,.4856E-03,.8033E-03,.1916E-02,.3633E-02,.3804E-02,.6276E-02,.2374E-01,.1366E+00,.7244E-03,& - .1661E-03,.4893E-03,.8100E-03,.1924E-02,.3679E-02,.3880E-02,.6482E-02,.2439E-01,.1406E+00,.7314E-03,& - .1676E-03,.4929E-03,.8167E-03,.1932E-02,.3725E-02,.3955E-02,.6689E-02,.2503E-01,.1446E+00,.7385E-03,& - .1690E-03,.4966E-03,.8234E-03,.1939E-02,.3772E-02,.4030E-02,.6895E-02,.2568E-01,.1486E+00,.7455E-03,& - .1705E-03,.5003E-03,.8301E-03,.1947E-02,.3818E-02,.4106E-02,.7102E-02,.2632E-01,.1527E+00,.7526E-03,& - .1719E-03,.5039E-03,.8368E-03,.1955E-02,.3864E-02,.4181E-02,.7308E-02,.2696E-01,.1567E+00,.7596E-03,& - .1735E-03,.5083E-03,.8446E-03,.1964E-02,.3917E-02,.4267E-02,.7537E-02,.2766E-01,.1609E+00,.7676E-03,& - .1752E-03,.5126E-03,.8524E-03,.1974E-02,.3969E-02,.4354E-02,.7765E-02,.2836E-01,.1651E+00,.7755E-03,& - .1768E-03,.5170E-03,.8602E-03,.1984E-02,.4022E-02,.4440E-02,.7994E-02,.2906E-01,.1694E+00,.7835E-03,& - .1785E-03,.5214E-03,.8680E-03,.1993E-02,.4074E-02,.4526E-02,.8222E-02,.2976E-01,.1736E+00,.7914E-03,& - .1801E-03,.5257E-03,.8757E-03,.2003E-02,.4127E-02,.4613E-02,.8451E-02,.3045E-01,.1779E+00,.7994E-03,& - .1818E-03,.5303E-03,.8840E-03,.2013E-02,.4184E-02,.4710E-02,.8710E-02,.3123E-01,.1825E+00,.8078E-03,& - .1836E-03,.5350E-03,.8925E-03,.2023E-02,.4242E-02,.4811E-02,.8976E-02,.3202E-01,.1873E+00,.8164E-03,& - .1854E-03,.5399E-03,.9012E-03,.2034E-02,.4302E-02,.4914E-02,.9245E-02,.3282E-01,.1920E+00,.8251E-03,& - .1871E-03,.5444E-03,.9096E-03,.2039E-02,.4371E-02,.5046E-02,.9608E-02,.3387E-01,.1984E+00,.8340E-03,& - .1889E-03,.5492E-03,.9185E-03,.2045E-02,.4442E-02,.5183E-02,.9980E-02,.3494E-01,.2049E+00,.8431E-03,& - .1907E-03,.5542E-03,.9276E-03,.2053E-02,.4516E-02,.5325E-02,.1036E-01,.3603E-01,.2114E+00,.8525E-03,& - .1926E-03,.5591E-03,.9369E-03,.2056E-02,.4601E-02,.5502E-02,.1084E-01,.3738E-01,.2196E+00,.8624E-03,& - .1945E-03,.5644E-03,.9469E-03,.2062E-02,.4690E-02,.5685E-02,.1133E-01,.3874E-01,.2278E+00,.8726E-03,& - .1966E-03,.5699E-03,.9572E-03,.2064E-02,.4792E-02,.5909E-02,.1192E-01,.4039E-01,.2376E+00,.8836E-03,& - .1987E-03,.5757E-03,.9685E-03,.2066E-02,.4912E-02,.6177E-02,.1263E-01,.4230E-01,.2490E+00,.8954E-03,& - .2010E-03,.5820E-03,.9804E-03,.2070E-02,.5037E-02,.6457E-02,.1334E-01,.4423E-01,.2604E+00,.9077E-03,& - .2035E-03,.5890E-03,.9939E-03,.2072E-02,.5194E-02,.6825E-02,.1427E-01,.4669E-01,.2747E+00,.9217E-03,& - .2062E-03,.5966E-03,.1008E-02,.2077E-02,.5359E-02,.7209E-02,.1521E-01,.4917E-01,.2888E+00,.9363E-03,& - .2093E-03,.6053E-03,.1025E-02,.2083E-02,.5560E-02,.7692E-02,.1635E-01,.5215E-01,.3055E+00,.9529E-03,& - .2129E-03,.6157E-03,.1045E-02,.2089E-02,.5831E-02,.8365E-02,.1789E-01,.5609E-01,.3271E+00,.9730E-03,& - .2171E-03,.6277E-03,.1068E-02,.2101E-02,.6145E-02,.9153E-02,.1962E-01,.6045E-01,.3500E+00,.9955E-03,& - .2223E-03,.6429E-03,.1096E-02,.2118E-02,.6564E-02,.1023E-01,.2186E-01,.6598E-01,.3780E+00,.1023E-02,& - .2297E-03,.6647E-03,.1137E-02,.2149E-02,.7207E-02,.1193E-01,.2518E-01,.7402E-01,.4161E+00,.1063E-02,& - .2423E-03,.7019E-03,.1206E-02,.2220E-02,.8325E-02,.1498E-01,.3063E-01,.8678E-01,.4703E+00,.1128E-02/ - data (((w0_lw(ai,k,nh),ai= 2, 2),k=1,nwl_lw),nh=0,99)/ & - .1078E-04,.3249E-04,.9802E-04,.2051E-03,.3114E-03,.4109E-03,.5443E-03,.1016E-02,.3002E-02,.6508E-04,& - .1083E-04,.3265E-04,.9852E-04,.2062E-03,.3130E-03,.4130E-03,.5471E-03,.1021E-02,.3018E-02,.6541E-04,& - .1089E-04,.3282E-04,.9902E-04,.2072E-03,.3146E-03,.4151E-03,.5499E-03,.1026E-02,.3034E-02,.6574E-04,& - .1094E-04,.3299E-04,.9951E-04,.2083E-03,.3162E-03,.4172E-03,.5527E-03,.1032E-02,.3049E-02,.6608E-04,& - .1099E-04,.3315E-04,.1000E-03,.2093E-03,.3178E-03,.4193E-03,.5555E-03,.1037E-02,.3065E-02,.6641E-04,& - .1105E-04,.3332E-04,.1005E-03,.2104E-03,.3194E-03,.4215E-03,.5583E-03,.1042E-02,.3080E-02,.6674E-04,& - .1110E-04,.3347E-04,.1010E-03,.2114E-03,.3209E-03,.4235E-03,.5609E-03,.1047E-02,.3095E-02,.6705E-04,& - .1115E-04,.3363E-04,.1015E-03,.2124E-03,.3224E-03,.4254E-03,.5636E-03,.1052E-02,.3110E-02,.6736E-04,& - .1120E-04,.3378E-04,.1019E-03,.2133E-03,.3239E-03,.4274E-03,.5663E-03,.1057E-02,.3124E-02,.6767E-04,& - .1126E-04,.3394E-04,.1024E-03,.2143E-03,.3254E-03,.4294E-03,.5689E-03,.1062E-02,.3139E-02,.6799E-04,& - .1131E-04,.3409E-04,.1029E-03,.2153E-03,.3269E-03,.4314E-03,.5716E-03,.1067E-02,.3154E-02,.6830E-04,& - .1136E-04,.3424E-04,.1033E-03,.2162E-03,.3283E-03,.4333E-03,.5740E-03,.1071E-02,.3168E-02,.6859E-04,& - .1140E-04,.3439E-04,.1038E-03,.2172E-03,.3298E-03,.4352E-03,.5765E-03,.1076E-02,.3181E-02,.6888E-04,& - .1145E-04,.3453E-04,.1042E-03,.2181E-03,.3312E-03,.4370E-03,.5790E-03,.1081E-02,.3195E-02,.6918E-04,& - .1150E-04,.3468E-04,.1046E-03,.2190E-03,.3326E-03,.4389E-03,.5815E-03,.1085E-02,.3209E-02,.6947E-04,& - .1155E-04,.3482E-04,.1051E-03,.2199E-03,.3340E-03,.4408E-03,.5839E-03,.1090E-02,.3222E-02,.6977E-04,& - .1159E-04,.3496E-04,.1055E-03,.2208E-03,.3353E-03,.4425E-03,.5863E-03,.1094E-02,.3235E-02,.7004E-04,& - .1164E-04,.3510E-04,.1059E-03,.2217E-03,.3367E-03,.4443E-03,.5886E-03,.1099E-02,.3248E-02,.7032E-04,& - .1168E-04,.3524E-04,.1063E-03,.2226E-03,.3380E-03,.4461E-03,.5910E-03,.1103E-02,.3261E-02,.7059E-04,& - .1173E-04,.3537E-04,.1067E-03,.2235E-03,.3393E-03,.4478E-03,.5933E-03,.1108E-02,.3274E-02,.7087E-04,& - .1178E-04,.3551E-04,.1072E-03,.2243E-03,.3407E-03,.4496E-03,.5956E-03,.1112E-02,.3287E-02,.7114E-04,& - .1182E-04,.3564E-04,.1075E-03,.2252E-03,.3419E-03,.4512E-03,.5978E-03,.1116E-02,.3299E-02,.7140E-04,& - .1186E-04,.3577E-04,.1079E-03,.2260E-03,.3432E-03,.4529E-03,.6000E-03,.1120E-02,.3311E-02,.7166E-04,& - .1190E-04,.3590E-04,.1083E-03,.2268E-03,.3444E-03,.4545E-03,.6022E-03,.1124E-02,.3323E-02,.7191E-04,& - .1195E-04,.3603E-04,.1087E-03,.2276E-03,.3456E-03,.4562E-03,.6044E-03,.1129E-02,.3335E-02,.7217E-04,& - .1199E-04,.3615E-04,.1091E-03,.2284E-03,.3469E-03,.4578E-03,.6066E-03,.1133E-02,.3347E-02,.7243E-04,& - .1203E-04,.3627E-04,.1095E-03,.2292E-03,.3481E-03,.4594E-03,.6087E-03,.1137E-02,.3358E-02,.7267E-04,& - .1207E-04,.3639E-04,.1098E-03,.2300E-03,.3492E-03,.4610E-03,.6108E-03,.1140E-02,.3370E-02,.7292E-04,& - .1211E-04,.3651E-04,.1102E-03,.2307E-03,.3504E-03,.4625E-03,.6128E-03,.1144E-02,.3381E-02,.7316E-04,& - .1215E-04,.3663E-04,.1106E-03,.2315E-03,.3516E-03,.4641E-03,.6149E-03,.1148E-02,.3392E-02,.7340E-04,& - .1219E-04,.3675E-04,.1109E-03,.2323E-03,.3528E-03,.4656E-03,.6170E-03,.1152E-02,.3404E-02,.7365E-04,& - .1223E-04,.3687E-04,.1113E-03,.2330E-03,.3539E-03,.4671E-03,.6189E-03,.1156E-02,.3414E-02,.7387E-04,& - .1226E-04,.3698E-04,.1116E-03,.2337E-03,.3550E-03,.4686E-03,.6208E-03,.1159E-02,.3425E-02,.7410E-04,& - .1230E-04,.3709E-04,.1120E-03,.2345E-03,.3561E-03,.4700E-03,.6228E-03,.1163E-02,.3436E-02,.7433E-04,& - .1234E-04,.3721E-04,.1123E-03,.2352E-03,.3572E-03,.4715E-03,.6247E-03,.1167E-02,.3446E-02,.7455E-04,& - .1237E-04,.3732E-04,.1127E-03,.2359E-03,.3583E-03,.4729E-03,.6266E-03,.1170E-02,.3457E-02,.7478E-04,& - .1241E-04,.3743E-04,.1130E-03,.2366E-03,.3593E-03,.4743E-03,.6285E-03,.1174E-02,.3467E-02,.7499E-04,& - .1244E-04,.3753E-04,.1133E-03,.2373E-03,.3604E-03,.4757E-03,.6303E-03,.1177E-02,.3477E-02,.7521E-04,& - .1248E-04,.3764E-04,.1136E-03,.2379E-03,.3614E-03,.4770E-03,.6321E-03,.1181E-02,.3487E-02,.7542E-04,& - .1251E-04,.3775E-04,.1139E-03,.2386E-03,.3624E-03,.4784E-03,.6339E-03,.1184E-02,.3497E-02,.7563E-04,& - .1255E-04,.3785E-04,.1142E-03,.2393E-03,.3635E-03,.4798E-03,.6357E-03,.1187E-02,.3507E-02,.7585E-04,& - .1258E-04,.3795E-04,.1146E-03,.2399E-03,.3644E-03,.4811E-03,.6375E-03,.1191E-02,.3516E-02,.7605E-04,& - .1262E-04,.3805E-04,.1149E-03,.2406E-03,.3654E-03,.4823E-03,.6392E-03,.1194E-02,.3525E-02,.7625E-04,& - .1265E-04,.3815E-04,.1152E-03,.2412E-03,.3664E-03,.4836E-03,.6409E-03,.1197E-02,.3534E-02,.7645E-04,& - .1268E-04,.3825E-04,.1155E-03,.2418E-03,.3674E-03,.4849E-03,.6426E-03,.1200E-02,.3544E-02,.7665E-04,& - .1272E-04,.3835E-04,.1158E-03,.2425E-03,.3683E-03,.4862E-03,.6444E-03,.1203E-02,.3553E-02,.7685E-04,& - .1275E-04,.3845E-04,.1161E-03,.2431E-03,.3693E-03,.4874E-03,.6460E-03,.1207E-02,.3562E-02,.7704E-04,& - .1278E-04,.3854E-04,.1163E-03,.2437E-03,.3702E-03,.4886E-03,.6476E-03,.1210E-02,.3570E-02,.7723E-04,& - .1281E-04,.3863E-04,.1166E-03,.2443E-03,.3711E-03,.4898E-03,.6492E-03,.1213E-02,.3579E-02,.7741E-04,& - .1284E-04,.3873E-04,.1169E-03,.2449E-03,.3720E-03,.4911E-03,.6508E-03,.1216E-02,.3588E-02,.7760E-04,& - .1287E-04,.3882E-04,.1172E-03,.2454E-03,.3729E-03,.4923E-03,.6524E-03,.1219E-02,.3596E-02,.7779E-04,& - .1290E-04,.3891E-04,.1175E-03,.2460E-03,.3738E-03,.4934E-03,.6539E-03,.1222E-02,.3604E-02,.7797E-04,& - .1293E-04,.3900E-04,.1177E-03,.2466E-03,.3746E-03,.4946E-03,.6554E-03,.1224E-02,.3613E-02,.7814E-04,& - .1296E-04,.3908E-04,.1180E-03,.2471E-03,.3755E-03,.4957E-03,.6569E-03,.1227E-02,.3621E-02,.7832E-04,& - .1299E-04,.3917E-04,.1183E-03,.2477E-03,.3763E-03,.4968E-03,.6584E-03,.1230E-02,.3629E-02,.7850E-04,& - .1302E-04,.3926E-04,.1185E-03,.2483E-03,.3772E-03,.4980E-03,.6600E-03,.1233E-02,.3637E-02,.7867E-04,& - .1304E-04,.3933E-04,.1186E-03,.2485E-03,.3778E-03,.4990E-03,.6615E-03,.1236E-02,.3649E-02,.7878E-04,& - .1307E-04,.3941E-04,.1187E-03,.2487E-03,.3785E-03,.5000E-03,.6631E-03,.1239E-02,.3662E-02,.7888E-04,& - .1309E-04,.3948E-04,.1188E-03,.2489E-03,.3791E-03,.5010E-03,.6647E-03,.1243E-02,.3674E-02,.7898E-04,& - .1312E-04,.3956E-04,.1188E-03,.2491E-03,.3797E-03,.5021E-03,.6663E-03,.1246E-02,.3687E-02,.7909E-04,& - .1314E-04,.3963E-04,.1189E-03,.2493E-03,.3804E-03,.5031E-03,.6679E-03,.1249E-02,.3699E-02,.7919E-04,& - .1317E-04,.3971E-04,.1191E-03,.2498E-03,.3811E-03,.5041E-03,.6692E-03,.1252E-02,.3707E-02,.7935E-04,& - .1319E-04,.3979E-04,.1194E-03,.2503E-03,.3819E-03,.5051E-03,.6706E-03,.1254E-02,.3714E-02,.7950E-04,& - .1322E-04,.3987E-04,.1196E-03,.2508E-03,.3827E-03,.5061E-03,.6719E-03,.1257E-02,.3721E-02,.7966E-04,& - .1325E-04,.3995E-04,.1199E-03,.2513E-03,.3834E-03,.5072E-03,.6733E-03,.1260E-02,.3728E-02,.7982E-04,& - .1327E-04,.4003E-04,.1201E-03,.2518E-03,.3842E-03,.5082E-03,.6746E-03,.1262E-02,.3735E-02,.7997E-04,& - .1330E-04,.4009E-04,.1199E-03,.2514E-03,.3846E-03,.5092E-03,.6767E-03,.1267E-02,.3760E-02,.7997E-04,& - .1332E-04,.4016E-04,.1196E-03,.2510E-03,.3849E-03,.5103E-03,.6788E-03,.1272E-02,.3784E-02,.7996E-04,& - .1335E-04,.4023E-04,.1193E-03,.2506E-03,.3853E-03,.5113E-03,.6809E-03,.1276E-02,.3808E-02,.7996E-04,& - .1337E-04,.4029E-04,.1191E-03,.2502E-03,.3857E-03,.5124E-03,.6830E-03,.1281E-02,.3832E-02,.7995E-04,& - .1340E-04,.4036E-04,.1188E-03,.2498E-03,.3860E-03,.5134E-03,.6851E-03,.1286E-02,.3856E-02,.7995E-04,& - .1345E-04,.4049E-04,.1181E-03,.2484E-03,.3866E-03,.5158E-03,.6902E-03,.1298E-02,.3922E-02,.7985E-04,& - .1350E-04,.4062E-04,.1173E-03,.2470E-03,.3872E-03,.5182E-03,.6953E-03,.1310E-02,.3989E-02,.7976E-04,& - .1355E-04,.4075E-04,.1165E-03,.2457E-03,.3878E-03,.5206E-03,.7004E-03,.1322E-02,.4055E-02,.7967E-04,& - .1360E-04,.4088E-04,.1158E-03,.2443E-03,.3884E-03,.5229E-03,.7055E-03,.1334E-02,.4121E-02,.7957E-04,& - .1365E-04,.4102E-04,.1150E-03,.2429E-03,.3890E-03,.5253E-03,.7106E-03,.1346E-02,.4188E-02,.7948E-04,& - .1375E-04,.4130E-04,.1145E-03,.2420E-03,.3910E-03,.5302E-03,.7199E-03,.1366E-02,.4297E-02,.7962E-04,& - .1386E-04,.4158E-04,.1139E-03,.2410E-03,.3930E-03,.5351E-03,.7292E-03,.1387E-02,.4407E-02,.7976E-04,& - .1396E-04,.4186E-04,.1134E-03,.2400E-03,.3951E-03,.5400E-03,.7384E-03,.1407E-02,.4516E-02,.7990E-04,& - .1406E-04,.4214E-04,.1129E-03,.2390E-03,.3971E-03,.5449E-03,.7477E-03,.1428E-02,.4626E-02,.8004E-04,& - .1417E-04,.4242E-04,.1123E-03,.2380E-03,.3991E-03,.5498E-03,.7569E-03,.1448E-02,.4735E-02,.8018E-04,& - .1435E-04,.4293E-04,.1118E-03,.2370E-03,.4032E-03,.5588E-03,.7733E-03,.1484E-02,.4928E-02,.8058E-04,& - .1450E-04,.4332E-04,.1116E-03,.2367E-03,.4065E-03,.5658E-03,.7857E-03,.1511E-02,.5069E-02,.8096E-04,& - .1471E-04,.4392E-04,.1114E-03,.2362E-03,.4116E-03,.5763E-03,.8047E-03,.1552E-02,.5288E-02,.8155E-04,& - .1487E-04,.4437E-04,.1115E-03,.2362E-03,.4156E-03,.5843E-03,.8188E-03,.1582E-02,.5447E-02,.8205E-04,& - .1512E-04,.4505E-04,.1115E-03,.2362E-03,.4215E-03,.5965E-03,.8403E-03,.1628E-02,.5695E-02,.8281E-04,& - .1537E-04,.4577E-04,.1117E-03,.2363E-03,.4281E-03,.6096E-03,.8632E-03,.1677E-02,.5961E-02,.8366E-04,& - .1556E-04,.4632E-04,.1120E-03,.2368E-03,.4331E-03,.6193E-03,.8803E-03,.1713E-02,.6152E-02,.8435E-04,& - .1585E-04,.4712E-04,.1124E-03,.2373E-03,.4406E-03,.6340E-03,.9057E-03,.1768E-02,.6449E-02,.8535E-04,& - .1606E-04,.4771E-04,.1129E-03,.2380E-03,.4462E-03,.6448E-03,.9246E-03,.1808E-02,.6664E-02,.8614E-04,& - .1637E-04,.4859E-04,.1135E-03,.2389E-03,.4546E-03,.6611E-03,.9529E-03,.1868E-02,.6994E-02,.8729E-04,& - .1669E-04,.4950E-04,.1142E-03,.2400E-03,.4634E-03,.6783E-03,.9830E-03,.1932E-02,.7347E-02,.8853E-04,& - .1703E-04,.5046E-04,.1151E-03,.2412E-03,.4728E-03,.6965E-03,.1015E-02,.1999E-02,.7721E-02,.8985E-04,& - .1738E-04,.5146E-04,.1161E-03,.2427E-03,.4828E-03,.7157E-03,.1048E-02,.2070E-02,.8118E-02,.9125E-04,& - .1785E-04,.5281E-04,.1174E-03,.2447E-03,.4964E-03,.7422E-03,.1094E-02,.2168E-02,.8679E-02,.9315E-04,& - .1835E-04,.5422E-04,.1190E-03,.2470E-03,.5109E-03,.7704E-03,.1143E-02,.2273E-02,.9281E-02,.9517E-04,& - .1898E-04,.5604E-04,.1211E-03,.2500E-03,.5300E-03,.8076E-03,.1208E-02,.2412E-02,.1009E-01,.9782E-04,& - .1990E-04,.5868E-04,.1242E-03,.2547E-03,.5583E-03,.8632E-03,.1307E-02,.2622E-02,.1134E-01,.1017E-03,& - .2102E-04,.6187E-04,.1283E-03,.2608E-03,.5936E-03,.9326E-03,.1429E-02,.2886E-02,.1295E-01,.1064E-03,& - .2396E-04,.7035E-04,.1400E-03,.2783E-03,.6926E-03,.1131E-02,.1783E-02,.3655E-02,.1784E-01,.1193E-03/ - data (((w0_lw(ai,k,nh),ai= 3, 3),k=1,nwl_lw),nh=0,99)/ & - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03/ - data (((w0_lw(ai,k,nh),ai= 4, 4),k=1,nwl_lw),nh=0,99)/ & - .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& - .3481E-04,.2162E-03,.7142E-03,.3142E-02,.3712E-02,.3279E-02,.1349E-02,.1804E-01,.1893E+00,.4652E-03,& - .3517E-04,.2153E-03,.6883E-03,.3086E-02,.3731E-02,.3300E-02,.1382E-02,.1809E-01,.1905E+00,.4599E-03,& - .3552E-04,.2145E-03,.6624E-03,.3031E-02,.3749E-02,.3322E-02,.1416E-02,.1814E-01,.1917E+00,.4546E-03,& - .3587E-04,.2136E-03,.6365E-03,.2975E-02,.3768E-02,.3343E-02,.1450E-02,.1819E-01,.1929E+00,.4493E-03,& - .3623E-04,.2128E-03,.6106E-03,.2919E-02,.3787E-02,.3365E-02,.1484E-02,.1825E-01,.1941E+00,.4440E-03,& - .3660E-04,.2123E-03,.5955E-03,.2880E-02,.3806E-02,.3388E-02,.1521E-02,.1836E-01,.1954E+00,.4402E-03,& - .3697E-04,.2119E-03,.5803E-03,.2841E-02,.3825E-02,.3411E-02,.1558E-02,.1847E-01,.1968E+00,.4365E-03,& - .3734E-04,.2114E-03,.5652E-03,.2801E-02,.3844E-02,.3433E-02,.1595E-02,.1858E-01,.1982E+00,.4328E-03,& - .3772E-04,.2110E-03,.5501E-03,.2762E-02,.3863E-02,.3456E-02,.1632E-02,.1869E-01,.1995E+00,.4290E-03,& - .3809E-04,.2105E-03,.5350E-03,.2722E-02,.3882E-02,.3479E-02,.1669E-02,.1880E-01,.2009E+00,.4253E-03,& - .3848E-04,.2104E-03,.5254E-03,.2693E-02,.3902E-02,.3503E-02,.1709E-02,.1894E-01,.2024E+00,.4227E-03,& - .3887E-04,.2103E-03,.5158E-03,.2663E-02,.3922E-02,.3527E-02,.1750E-02,.1909E-01,.2039E+00,.4202E-03,& - .3927E-04,.2101E-03,.5061E-03,.2634E-02,.3941E-02,.3551E-02,.1790E-02,.1924E-01,.2054E+00,.4176E-03,& - .3966E-04,.2100E-03,.4965E-03,.2605E-02,.3961E-02,.3575E-02,.1831E-02,.1938E-01,.2068E+00,.4150E-03,& - .4005E-04,.2098E-03,.4869E-03,.2575E-02,.3981E-02,.3599E-02,.1871E-02,.1953E-01,.2083E+00,.4124E-03,& - .4046E-04,.2099E-03,.4805E-03,.2553E-02,.4001E-02,.3624E-02,.1915E-02,.1970E-01,.2099E+00,.4107E-03,& - .4087E-04,.2101E-03,.4741E-03,.2530E-02,.4021E-02,.3650E-02,.1960E-02,.1987E-01,.2114E+00,.4090E-03,& - .4129E-04,.2102E-03,.4677E-03,.2507E-02,.4041E-02,.3675E-02,.2004E-02,.2004E-01,.2130E+00,.4073E-03,& - .4170E-04,.2103E-03,.4613E-03,.2484E-02,.4061E-02,.3701E-02,.2048E-02,.2022E-01,.2146E+00,.4056E-03,& - .4211E-04,.2104E-03,.4549E-03,.2462E-02,.4082E-02,.3726E-02,.2092E-02,.2039E-01,.2161E+00,.4039E-03,& - .4254E-04,.2107E-03,.4506E-03,.2444E-02,.4102E-02,.3753E-02,.2140E-02,.2058E-01,.2177E+00,.4028E-03,& - .4298E-04,.2111E-03,.4463E-03,.2426E-02,.4123E-02,.3780E-02,.2188E-02,.2077E-01,.2194E+00,.4018E-03,& - .4341E-04,.2114E-03,.4420E-03,.2408E-02,.4144E-02,.3807E-02,.2235E-02,.2096E-01,.2210E+00,.4008E-03,& - .4384E-04,.2117E-03,.4377E-03,.2390E-02,.4165E-02,.3834E-02,.2283E-02,.2116E-01,.2226E+00,.3998E-03,& - .4428E-04,.2120E-03,.4334E-03,.2373E-02,.4186E-02,.3860E-02,.2331E-02,.2135E-01,.2242E+00,.3988E-03,& - .4473E-04,.2126E-03,.4305E-03,.2358E-02,.4207E-02,.3889E-02,.2383E-02,.2156E-01,.2259E+00,.3983E-03,& - .4519E-04,.2131E-03,.4276E-03,.2344E-02,.4228E-02,.3917E-02,.2435E-02,.2177E-01,.2276E+00,.3978E-03,& - .4564E-04,.2136E-03,.4248E-03,.2330E-02,.4250E-02,.3946E-02,.2487E-02,.2198E-01,.2292E+00,.3974E-03,& - .4610E-04,.2141E-03,.4219E-03,.2316E-02,.4271E-02,.3974E-02,.2538E-02,.2219E-01,.2309E+00,.3969E-03,& - .4655E-04,.2146E-03,.4190E-03,.2302E-02,.4293E-02,.4003E-02,.2590E-02,.2240E-01,.2326E+00,.3964E-03,& - .4703E-04,.2153E-03,.4172E-03,.2290E-02,.4315E-02,.4033E-02,.2646E-02,.2262E-01,.2343E+00,.3964E-03,& - .4751E-04,.2160E-03,.4154E-03,.2279E-02,.4337E-02,.4063E-02,.2702E-02,.2284E-01,.2360E+00,.3964E-03,& - .4798E-04,.2167E-03,.4136E-03,.2268E-02,.4359E-02,.4093E-02,.2758E-02,.2307E-01,.2377E+00,.3964E-03,& - .4846E-04,.2173E-03,.4118E-03,.2256E-02,.4381E-02,.4123E-02,.2813E-02,.2329E-01,.2394E+00,.3964E-03,& - .4894E-04,.2180E-03,.4100E-03,.2245E-02,.4404E-02,.4153E-02,.2869E-02,.2352E-01,.2411E+00,.3964E-03,& - .4943E-04,.2189E-03,.4090E-03,.2236E-02,.4426E-02,.4185E-02,.2929E-02,.2375E-01,.2428E+00,.3968E-03,& - .4993E-04,.2197E-03,.4081E-03,.2227E-02,.4449E-02,.4217E-02,.2989E-02,.2399E-01,.2446E+00,.3972E-03,& - .5043E-04,.2205E-03,.4071E-03,.2217E-02,.4472E-02,.4249E-02,.3049E-02,.2423E-01,.2463E+00,.3976E-03,& - .5093E-04,.2214E-03,.4061E-03,.2208E-02,.4495E-02,.4280E-02,.3109E-02,.2447E-01,.2481E+00,.3980E-03,& - .5143E-04,.2222E-03,.4051E-03,.2199E-02,.4518E-02,.4312E-02,.3169E-02,.2471E-01,.2498E+00,.3984E-03,& - .5196E-04,.2232E-03,.4048E-03,.2192E-02,.4542E-02,.4346E-02,.3233E-02,.2496E-01,.2516E+00,.3991E-03,& - .5248E-04,.2241E-03,.4045E-03,.2185E-02,.4565E-02,.4379E-02,.3297E-02,.2521E-01,.2533E+00,.3999E-03,& - .5300E-04,.2251E-03,.4041E-03,.2178E-02,.4589E-02,.4413E-02,.3362E-02,.2546E-01,.2551E+00,.4006E-03,& - .5353E-04,.2261E-03,.4038E-03,.2170E-02,.4613E-02,.4447E-02,.3426E-02,.2571E-01,.2568E+00,.4014E-03,& - .5405E-04,.2271E-03,.4035E-03,.2163E-02,.4636E-02,.4480E-02,.3490E-02,.2596E-01,.2586E+00,.4021E-03,& - .5460E-04,.2282E-03,.4037E-03,.2158E-02,.4661E-02,.4516E-02,.3559E-02,.2623E-01,.2604E+00,.4032E-03,& - .5514E-04,.2293E-03,.4039E-03,.2152E-02,.4685E-02,.4551E-02,.3627E-02,.2649E-01,.2622E+00,.4043E-03,& - .5569E-04,.2304E-03,.4041E-03,.2146E-02,.4709E-02,.4587E-02,.3696E-02,.2675E-01,.2639E+00,.4053E-03,& - .5623E-04,.2315E-03,.4043E-03,.2141E-02,.4734E-02,.4622E-02,.3765E-02,.2702E-01,.2657E+00,.4064E-03,& - .5678E-04,.2326E-03,.4046E-03,.2135E-02,.4758E-02,.4658E-02,.3833E-02,.2728E-01,.2675E+00,.4075E-03,& - .5735E-04,.2336E-03,.4046E-03,.2126E-02,.4779E-02,.4693E-02,.3913E-02,.2756E-01,.2693E+00,.4083E-03,& - .5792E-04,.2346E-03,.4047E-03,.2117E-02,.4800E-02,.4729E-02,.3993E-02,.2784E-01,.2711E+00,.4091E-03,& - .5849E-04,.2356E-03,.4047E-03,.2108E-02,.4821E-02,.4765E-02,.4074E-02,.2812E-01,.2729E+00,.4099E-03,& - .5906E-04,.2366E-03,.4048E-03,.2099E-02,.4842E-02,.4800E-02,.4154E-02,.2840E-01,.2747E+00,.4107E-03,& - .5963E-04,.2377E-03,.4048E-03,.2090E-02,.4863E-02,.4836E-02,.4234E-02,.2868E-01,.2765E+00,.4115E-03,& - .6023E-04,.2388E-03,.4055E-03,.2083E-02,.4885E-02,.4875E-02,.4319E-02,.2897E-01,.2784E+00,.4128E-03,& - .6084E-04,.2400E-03,.4061E-03,.2076E-02,.4907E-02,.4913E-02,.4405E-02,.2927E-01,.2802E+00,.4140E-03,& - .6144E-04,.2412E-03,.4068E-03,.2069E-02,.4929E-02,.4951E-02,.4490E-02,.2956E-01,.2821E+00,.4152E-03,& - .6204E-04,.2424E-03,.4074E-03,.2062E-02,.4952E-02,.4990E-02,.4576E-02,.2985E-01,.2839E+00,.4164E-03,& - .6264E-04,.2435E-03,.4080E-03,.2055E-02,.4974E-02,.5028E-02,.4662E-02,.3015E-01,.2857E+00,.4176E-03,& - .6326E-04,.2450E-03,.4096E-03,.2053E-02,.5001E-02,.5071E-02,.4745E-02,.3045E-01,.2876E+00,.4196E-03,& - .6389E-04,.2465E-03,.4112E-03,.2052E-02,.5028E-02,.5113E-02,.4828E-02,.3075E-01,.2894E+00,.4215E-03,& - .6452E-04,.2480E-03,.4127E-03,.2051E-02,.5056E-02,.5155E-02,.4911E-02,.3105E-01,.2912E+00,.4235E-03,& - .6514E-04,.2495E-03,.4143E-03,.2049E-02,.5083E-02,.5197E-02,.4994E-02,.3135E-01,.2930E+00,.4254E-03,& - .6577E-04,.2510E-03,.4159E-03,.2048E-02,.5111E-02,.5239E-02,.5077E-02,.3165E-01,.2948E+00,.4274E-03,& - .6643E-04,.2525E-03,.4174E-03,.2044E-02,.5135E-02,.5283E-02,.5174E-02,.3197E-01,.2967E+00,.4292E-03,& - .6709E-04,.2539E-03,.4189E-03,.2040E-02,.5160E-02,.5326E-02,.5270E-02,.3229E-01,.2985E+00,.4310E-03,& - .6775E-04,.2554E-03,.4203E-03,.2035E-02,.5185E-02,.5370E-02,.5366E-02,.3262E-01,.3004E+00,.4328E-03,& - .6841E-04,.2569E-03,.4218E-03,.2031E-02,.5210E-02,.5414E-02,.5463E-02,.3294E-01,.3023E+00,.4347E-03,& - .6907E-04,.2583E-03,.4233E-03,.2027E-02,.5234E-02,.5457E-02,.5559E-02,.3326E-01,.3041E+00,.4365E-03,& - .6980E-04,.2596E-03,.4244E-03,.2015E-02,.5250E-02,.5503E-02,.5687E-02,.3362E-01,.3061E+00,.4378E-03,& - .7053E-04,.2609E-03,.4255E-03,.2002E-02,.5266E-02,.5549E-02,.5815E-02,.3399E-01,.3082E+00,.4391E-03,& - .7126E-04,.2622E-03,.4265E-03,.1990E-02,.5283E-02,.5595E-02,.5943E-02,.3435E-01,.3102E+00,.4404E-03,& - .7199E-04,.2635E-03,.4276E-03,.1977E-02,.5299E-02,.5641E-02,.6072E-02,.3472E-01,.3122E+00,.4418E-03,& - .7272E-04,.2647E-03,.4287E-03,.1965E-02,.5315E-02,.5687E-02,.6200E-02,.3508E-01,.3142E+00,.4431E-03,& - .7355E-04,.2661E-03,.4300E-03,.1948E-02,.5326E-02,.5740E-02,.6364E-02,.3550E-01,.3164E+00,.4445E-03,& - .7438E-04,.2675E-03,.4314E-03,.1931E-02,.5337E-02,.5793E-02,.6528E-02,.3593E-01,.3187E+00,.4458E-03,& - .7521E-04,.2688E-03,.4327E-03,.1914E-02,.5348E-02,.5846E-02,.6693E-02,.3635E-01,.3209E+00,.4472E-03,& - .7604E-04,.2702E-03,.4340E-03,.1897E-02,.5359E-02,.5898E-02,.6857E-02,.3677E-01,.3231E+00,.4486E-03,& - .7687E-04,.2715E-03,.4354E-03,.1880E-02,.5370E-02,.5951E-02,.7021E-02,.3719E-01,.3254E+00,.4499E-03,& - .7777E-04,.2730E-03,.4369E-03,.1859E-02,.5377E-02,.6011E-02,.7221E-02,.3767E-01,.3278E+00,.4514E-03,& - .7872E-04,.2745E-03,.4388E-03,.1840E-02,.5386E-02,.6073E-02,.7419E-02,.3815E-01,.3303E+00,.4531E-03,& - .7968E-04,.2762E-03,.4410E-03,.1822E-02,.5396E-02,.6138E-02,.7626E-02,.3864E-01,.3327E+00,.4550E-03,& - .8068E-04,.2780E-03,.4435E-03,.1805E-02,.5407E-02,.6205E-02,.7830E-02,.3914E-01,.3352E+00,.4572E-03,& - .8178E-04,.2797E-03,.4458E-03,.1780E-02,.5410E-02,.6281E-02,.8088E-02,.3971E-01,.3380E+00,.4591E-03,& - .8291E-04,.2816E-03,.4486E-03,.1757E-02,.5415E-02,.6359E-02,.8348E-02,.4030E-01,.3409E+00,.4614E-03,& - .8419E-04,.2836E-03,.4516E-03,.1728E-02,.5414E-02,.6450E-02,.8656E-02,.4096E-01,.3440E+00,.4636E-03,& - .8548E-04,.2858E-03,.4552E-03,.1702E-02,.5417E-02,.6545E-02,.8972E-02,.4163E-01,.3472E+00,.4664E-03,& - .8695E-04,.2883E-03,.4593E-03,.1672E-02,.5416E-02,.6653E-02,.9337E-02,.4239E-01,.3507E+00,.4695E-03,& - .8844E-04,.2910E-03,.4640E-03,.1646E-02,.5419E-02,.6770E-02,.9703E-02,.4317E-01,.3543E+00,.4731E-03,& - .9012E-04,.2940E-03,.4694E-03,.1617E-02,.5422E-02,.6902E-02,.1012E-01,.4403E-01,.3582E+00,.4773E-03,& - .9195E-04,.2975E-03,.4758E-03,.1587E-02,.5426E-02,.7053E-02,.1060E-01,.4498E-01,.3624E+00,.4822E-03,& - .9415E-04,.3017E-03,.4838E-03,.1553E-02,.5429E-02,.7238E-02,.1116E-01,.4611E-01,.3673E+00,.4882E-03,& - .9652E-04,.3065E-03,.4931E-03,.1523E-02,.5439E-02,.7449E-02,.1178E-01,.4731E-01,.3725E+00,.4954E-03,& - .9959E-04,.3128E-03,.5056E-03,.1486E-02,.5453E-02,.7729E-02,.1257E-01,.4885E-01,.3790E+00,.5049E-03,& - .1033E-03,.3210E-03,.5217E-03,.1451E-02,.5481E-02,.8087E-02,.1354E-01,.5074E-01,.3866E+00,.5176E-03,& - .1076E-03,.3308E-03,.5412E-03,.1424E-02,.5533E-02,.8509E-02,.1462E-01,.5284E-01,.3949E+00,.5331E-03,& - .1141E-03,.3463E-03,.5719E-03,.1398E-02,.5634E-02,.9179E-02,.1622E-01,.5596E-01,.4068E+00,.5581E-03,& - .1239E-03,.3710E-03,.6199E-03,.1390E-02,.5842E-02,.1022E-01,.1853E-01,.6051E-01,.4234E+00,.5982E-03/ - data (((w0_lw(ai,k,nh),ai= 5, 5),k=1,nwl_lw),nh=0,99)/ & - .4211E-01,.1689E+00,.4530E+00,.7769E+00,.8276E+00,.7723E+00,.8409E+00,.9260E+00,.9872E+00,.3073E+00,& - .4250E-01,.1642E+00,.4101E+00,.7363E+00,.8168E+00,.7672E+00,.8331E+00,.9147E+00,.9851E+00,.2904E+00,& - .4289E-01,.1595E+00,.3671E+00,.6958E+00,.8060E+00,.7620E+00,.8254E+00,.9033E+00,.9829E+00,.2736E+00,& - .4328E-01,.1548E+00,.3242E+00,.6553E+00,.7953E+00,.7569E+00,.8176E+00,.8920E+00,.9808E+00,.2568E+00,& - .4367E-01,.1501E+00,.2813E+00,.6148E+00,.7845E+00,.7518E+00,.8098E+00,.8806E+00,.9787E+00,.2399E+00,& - .4406E-01,.1454E+00,.2383E+00,.5743E+00,.7738E+00,.7466E+00,.8021E+00,.8693E+00,.9766E+00,.2231E+00,& - .4453E-01,.1429E+00,.2255E+00,.5525E+00,.7649E+00,.7424E+00,.7966E+00,.8614E+00,.9749E+00,.2153E+00,& - .4500E-01,.1405E+00,.2127E+00,.5308E+00,.7560E+00,.7382E+00,.7910E+00,.8535E+00,.9732E+00,.2075E+00,& - .4546E-01,.1381E+00,.1999E+00,.5090E+00,.7470E+00,.7340E+00,.7855E+00,.8456E+00,.9715E+00,.1997E+00,& - .4593E-01,.1357E+00,.1870E+00,.4873E+00,.7381E+00,.7298E+00,.7800E+00,.8377E+00,.9698E+00,.1919E+00,& - .4640E-01,.1333E+00,.1742E+00,.4655E+00,.7292E+00,.7256E+00,.7745E+00,.8298E+00,.9682E+00,.1842E+00,& - .4693E-01,.1320E+00,.1685E+00,.4516E+00,.7218E+00,.7221E+00,.7704E+00,.8240E+00,.9668E+00,.1800E+00,& - .4747E-01,.1308E+00,.1628E+00,.4377E+00,.7144E+00,.7187E+00,.7664E+00,.8183E+00,.9655E+00,.1758E+00,& - .4801E-01,.1295E+00,.1571E+00,.4238E+00,.7070E+00,.7152E+00,.7624E+00,.8126E+00,.9641E+00,.1716E+00,& - .4854E-01,.1283E+00,.1514E+00,.4099E+00,.6996E+00,.7118E+00,.7584E+00,.8068E+00,.9627E+00,.1674E+00,& - .4908E-01,.1270E+00,.1457E+00,.3960E+00,.6922E+00,.7083E+00,.7544E+00,.8011E+00,.9614E+00,.1632E+00,& - .4967E-01,.1264E+00,.1428E+00,.3866E+00,.6861E+00,.7056E+00,.7515E+00,.7969E+00,.9603E+00,.1609E+00,& - .5025E-01,.1259E+00,.1400E+00,.3773E+00,.6801E+00,.7028E+00,.7486E+00,.7927E+00,.9592E+00,.1586E+00,& - .5084E-01,.1253E+00,.1371E+00,.3679E+00,.6741E+00,.7001E+00,.7457E+00,.7885E+00,.9581E+00,.1562E+00,& - .5142E-01,.1247E+00,.1343E+00,.3585E+00,.6681E+00,.6973E+00,.7429E+00,.7843E+00,.9570E+00,.1539E+00,& - .5201E-01,.1241E+00,.1314E+00,.3491E+00,.6621E+00,.6946E+00,.7400E+00,.7801E+00,.9560E+00,.1516E+00,& - .5264E-01,.1240E+00,.1299E+00,.3425E+00,.6571E+00,.6924E+00,.7379E+00,.7770E+00,.9551E+00,.1502E+00,& - .5328E-01,.1238E+00,.1284E+00,.3358E+00,.6522E+00,.6902E+00,.7359E+00,.7739E+00,.9542E+00,.1489E+00,& - .5391E-01,.1237E+00,.1270E+00,.3291E+00,.6473E+00,.6880E+00,.7338E+00,.7708E+00,.9533E+00,.1476E+00,& - .5455E-01,.1235E+00,.1255E+00,.3224E+00,.6424E+00,.6858E+00,.7317E+00,.7677E+00,.9524E+00,.1463E+00,& - .5518E-01,.1234E+00,.1240E+00,.3157E+00,.6374E+00,.6836E+00,.7297E+00,.7645E+00,.9516E+00,.1450E+00,& - .5585E-01,.1235E+00,.1233E+00,.3109E+00,.6335E+00,.6819E+00,.7282E+00,.7622E+00,.9508E+00,.1443E+00,& - .5652E-01,.1236E+00,.1226E+00,.3061E+00,.6295E+00,.6802E+00,.7268E+00,.7599E+00,.9501E+00,.1436E+00,& - .5718E-01,.1238E+00,.1219E+00,.3013E+00,.6255E+00,.6785E+00,.7254E+00,.7576E+00,.9494E+00,.1429E+00,& - .5785E-01,.1239E+00,.1212E+00,.2964E+00,.6216E+00,.6768E+00,.7240E+00,.7552E+00,.9487E+00,.1422E+00,& - .5852E-01,.1240E+00,.1204E+00,.2916E+00,.6176E+00,.6751E+00,.7225E+00,.7529E+00,.9480E+00,.1415E+00,& - .5923E-01,.1244E+00,.1202E+00,.2880E+00,.6144E+00,.6738E+00,.7216E+00,.7512E+00,.9474E+00,.1413E+00,& - .5993E-01,.1247E+00,.1200E+00,.2845E+00,.6112E+00,.6724E+00,.7206E+00,.7494E+00,.9468E+00,.1410E+00,& - .6064E-01,.1250E+00,.1197E+00,.2809E+00,.6080E+00,.6711E+00,.7196E+00,.7477E+00,.9462E+00,.1407E+00,& - .6134E-01,.1253E+00,.1195E+00,.2773E+00,.6048E+00,.6698E+00,.7186E+00,.7459E+00,.9456E+00,.1405E+00,& - .6205E-01,.1257E+00,.1192E+00,.2738E+00,.6016E+00,.6685E+00,.7176E+00,.7442E+00,.9450E+00,.1402E+00,& - .6277E-01,.1261E+00,.1193E+00,.2711E+00,.5990E+00,.6675E+00,.7170E+00,.7429E+00,.9445E+00,.1402E+00,& - .6350E-01,.1266E+00,.1193E+00,.2685E+00,.5965E+00,.6666E+00,.7164E+00,.7416E+00,.9440E+00,.1402E+00,& - .6423E-01,.1270E+00,.1193E+00,.2658E+00,.5939E+00,.6656E+00,.7158E+00,.7403E+00,.9435E+00,.1402E+00,& - .6495E-01,.1275E+00,.1194E+00,.2632E+00,.5914E+00,.6646E+00,.7152E+00,.7390E+00,.9431E+00,.1402E+00,& - .6568E-01,.1279E+00,.1194E+00,.2606E+00,.5889E+00,.6637E+00,.7145E+00,.7377E+00,.9426E+00,.1403E+00,& - .6643E-01,.1285E+00,.1197E+00,.2586E+00,.5868E+00,.6630E+00,.7142E+00,.7367E+00,.9422E+00,.1405E+00,& - .6719E-01,.1291E+00,.1199E+00,.2566E+00,.5848E+00,.6623E+00,.7138E+00,.7358E+00,.9418E+00,.1407E+00,& - .6794E-01,.1297E+00,.1202E+00,.2546E+00,.5828E+00,.6616E+00,.7135E+00,.7348E+00,.9413E+00,.1409E+00,& - .6869E-01,.1302E+00,.1204E+00,.2527E+00,.5808E+00,.6608E+00,.7131E+00,.7338E+00,.9409E+00,.1411E+00,& - .6945E-01,.1308E+00,.1207E+00,.2507E+00,.5787E+00,.6601E+00,.7127E+00,.7329E+00,.9405E+00,.1413E+00,& - .7022E-01,.1314E+00,.1211E+00,.2492E+00,.5772E+00,.6597E+00,.7126E+00,.7322E+00,.9402E+00,.1416E+00,& - .7098E-01,.1321E+00,.1214E+00,.2478E+00,.5756E+00,.6592E+00,.7124E+00,.7314E+00,.9399E+00,.1420E+00,& - .7175E-01,.1327E+00,.1218E+00,.2463E+00,.5740E+00,.6587E+00,.7123E+00,.7307E+00,.9395E+00,.1423E+00,& - .7252E-01,.1333E+00,.1222E+00,.2449E+00,.5724E+00,.6583E+00,.7121E+00,.7300E+00,.9392E+00,.1426E+00,& - .7328E-01,.1340E+00,.1226E+00,.2434E+00,.5709E+00,.6578E+00,.7120E+00,.7293E+00,.9388E+00,.1430E+00,& - .7394E-01,.1345E+00,.1230E+00,.2425E+00,.5698E+00,.6576E+00,.7119E+00,.7289E+00,.9386E+00,.1434E+00,& - .7459E-01,.1351E+00,.1234E+00,.2416E+00,.5688E+00,.6573E+00,.7119E+00,.7284E+00,.9384E+00,.1437E+00,& - .7525E-01,.1357E+00,.1238E+00,.2407E+00,.5678E+00,.6571E+00,.7119E+00,.7280E+00,.9381E+00,.1441E+00,& - .7590E-01,.1362E+00,.1242E+00,.2398E+00,.5668E+00,.6568E+00,.7119E+00,.7276E+00,.9379E+00,.1445E+00,& - .7655E-01,.1368E+00,.1245E+00,.2389E+00,.5657E+00,.6566E+00,.7119E+00,.7272E+00,.9376E+00,.1448E+00,& - .7721E-01,.1374E+00,.1250E+00,.2382E+00,.5649E+00,.6564E+00,.7119E+00,.7268E+00,.9374E+00,.1452E+00,& - .7787E-01,.1380E+00,.1254E+00,.2375E+00,.5641E+00,.6563E+00,.7120E+00,.7265E+00,.9372E+00,.1456E+00,& - .7852E-01,.1386E+00,.1258E+00,.2368E+00,.5633E+00,.6562E+00,.7121E+00,.7262E+00,.9370E+00,.1460E+00,& - .7918E-01,.1392E+00,.1263E+00,.2361E+00,.5625E+00,.6560E+00,.7122E+00,.7259E+00,.9368E+00,.1464E+00,& - .7983E-01,.1398E+00,.1267E+00,.2354E+00,.5617E+00,.6559E+00,.7122E+00,.7256E+00,.9366E+00,.1468E+00,& - .8050E-01,.1404E+00,.1272E+00,.2349E+00,.5611E+00,.6558E+00,.7124E+00,.7253E+00,.9364E+00,.1473E+00,& - .8116E-01,.1411E+00,.1276E+00,.2344E+00,.5604E+00,.6558E+00,.7125E+00,.7251E+00,.9362E+00,.1477E+00,& - .8183E-01,.1417E+00,.1281E+00,.2339E+00,.5598E+00,.6558E+00,.7126E+00,.7248E+00,.9360E+00,.1482E+00,& - .8249E-01,.1423E+00,.1286E+00,.2334E+00,.5592E+00,.6557E+00,.7128E+00,.7246E+00,.9358E+00,.1486E+00,& - .8316E-01,.1429E+00,.1290E+00,.2329E+00,.5585E+00,.6557E+00,.7129E+00,.7244E+00,.9357E+00,.1491E+00,& - .8383E-01,.1435E+00,.1296E+00,.2325E+00,.5581E+00,.6557E+00,.7131E+00,.7242E+00,.9355E+00,.1496E+00,& - .8450E-01,.1442E+00,.1301E+00,.2322E+00,.5576E+00,.6557E+00,.7133E+00,.7240E+00,.9353E+00,.1501E+00,& - .8517E-01,.1448E+00,.1306E+00,.2318E+00,.5571E+00,.6557E+00,.7135E+00,.7239E+00,.9352E+00,.1506E+00,& - .8584E-01,.1455E+00,.1311E+00,.2314E+00,.5566E+00,.6558E+00,.7136E+00,.7237E+00,.9350E+00,.1511E+00,& - .8651E-01,.1461E+00,.1316E+00,.2311E+00,.5562E+00,.6558E+00,.7138E+00,.7235E+00,.9348E+00,.1516E+00,& - .8761E-01,.1472E+00,.1324E+00,.2307E+00,.5557E+00,.6560E+00,.7142E+00,.7234E+00,.9346E+00,.1524E+00,& - .8870E-01,.1482E+00,.1332E+00,.2304E+00,.5552E+00,.6562E+00,.7146E+00,.7233E+00,.9344E+00,.1532E+00,& - .8980E-01,.1493E+00,.1341E+00,.2301E+00,.5547E+00,.6563E+00,.7150E+00,.7232E+00,.9341E+00,.1541E+00,& - .9089E-01,.1503E+00,.1349E+00,.2297E+00,.5542E+00,.6565E+00,.7154E+00,.7231E+00,.9339E+00,.1549E+00,& - .9198E-01,.1514E+00,.1358E+00,.2294E+00,.5538E+00,.6567E+00,.7157E+00,.7229E+00,.9337E+00,.1557E+00,& - .9334E-01,.1527E+00,.1369E+00,.2293E+00,.5535E+00,.6571E+00,.7163E+00,.7229E+00,.9334E+00,.1568E+00,& - .9470E-01,.1541E+00,.1380E+00,.2292E+00,.5533E+00,.6575E+00,.7169E+00,.7229E+00,.9332E+00,.1579E+00,& - .9606E-01,.1554E+00,.1390E+00,.2292E+00,.5531E+00,.6579E+00,.7174E+00,.7229E+00,.9330E+00,.1590E+00,& - .9741E-01,.1568E+00,.1401E+00,.2291E+00,.5529E+00,.6583E+00,.7180E+00,.7229E+00,.9327E+00,.1600E+00,& - .9877E-01,.1581E+00,.1412E+00,.2290E+00,.5526E+00,.6587E+00,.7185E+00,.7228E+00,.9325E+00,.1611E+00,& - .1004E+00,.1597E+00,.1426E+00,.2291E+00,.5526E+00,.6593E+00,.7193E+00,.7229E+00,.9322E+00,.1625E+00,& - .1027E+00,.1619E+00,.1444E+00,.2294E+00,.5527E+00,.6601E+00,.7203E+00,.7231E+00,.9319E+00,.1643E+00,& - .1046E+00,.1639E+00,.1460E+00,.2297E+00,.5529E+00,.6609E+00,.7212E+00,.7233E+00,.9316E+00,.1660E+00,& - .1066E+00,.1658E+00,.1476E+00,.2301E+00,.5532E+00,.6617E+00,.7221E+00,.7235E+00,.9313E+00,.1676E+00,& - .1095E+00,.1686E+00,.1500E+00,.2308E+00,.5538E+00,.6630E+00,.7235E+00,.7238E+00,.9309E+00,.1700E+00,& - .1118E+00,.1709E+00,.1519E+00,.2316E+00,.5543E+00,.6641E+00,.7246E+00,.7241E+00,.9306E+00,.1719E+00,& - .1147E+00,.1738E+00,.1543E+00,.2326E+00,.5552E+00,.6655E+00,.7259E+00,.7246E+00,.9303E+00,.1743E+00,& - .1175E+00,.1766E+00,.1567E+00,.2337E+00,.5562E+00,.6669E+00,.7273E+00,.7251E+00,.9299E+00,.1767E+00,& - .1208E+00,.1798E+00,.1594E+00,.2350E+00,.5575E+00,.6685E+00,.7289E+00,.7256E+00,.9295E+00,.1795E+00,& - .1249E+00,.1839E+00,.1628E+00,.2369E+00,.5593E+00,.6707E+00,.7308E+00,.7264E+00,.9291E+00,.1830E+00,& - .1290E+00,.1879E+00,.1662E+00,.2390E+00,.5613E+00,.6728E+00,.7328E+00,.7272E+00,.9287E+00,.1865E+00,& - .1346E+00,.1933E+00,.1708E+00,.2420E+00,.5642E+00,.6758E+00,.7354E+00,.7284E+00,.9280E+00,.1912E+00,& - .1405E+00,.1990E+00,.1756E+00,.2454E+00,.5675E+00,.6790E+00,.7380E+00,.7296E+00,.9274E+00,.1961E+00,& - .1481E+00,.2063E+00,.1818E+00,.2501E+00,.5720E+00,.6831E+00,.7414E+00,.7311E+00,.9265E+00,.2025E+00,& - .1578E+00,.2156E+00,.1898E+00,.2565E+00,.5781E+00,.6883E+00,.7454E+00,.7331E+00,.9255E+00,.2106E+00,& - .1690E+00,.2261E+00,.1988E+00,.2641E+00,.5853E+00,.6941E+00,.7496E+00,.7352E+00,.9242E+00,.2198E+00,& - .1868E+00,.2426E+00,.2131E+00,.2771E+00,.5969E+00,.7028E+00,.7557E+00,.7383E+00,.9218E+00,.2345E+00,& - .2092E+00,.2629E+00,.2311E+00,.2941E+00,.6113E+00,.7127E+00,.7621E+00,.7413E+00,.9183E+00,.2527E+00,& - .2497E+00,.2985E+00,.2634E+00,.3260E+00,.6351E+00,.7271E+00,.7697E+00,.7440E+00,.9103E+00,.2851E+00/ - data (((w0_lw(ai,k,nh),ai= 6, 6),k=1,nwl_lw),nh=0,99)/ & - .3712E+00,.5599E+00,.7804E+00,.9078E+00,.8815E+00,.8358E+00,.9067E+00,.9278E+00,.9736E+00,.6545E+00,& - .3711E+00,.5523E+00,.7479E+00,.8880E+00,.8761E+00,.8331E+00,.9016E+00,.9184E+00,.9693E+00,.6377E+00,& - .3710E+00,.5448E+00,.7154E+00,.8682E+00,.8707E+00,.8305E+00,.8964E+00,.9089E+00,.9651E+00,.6209E+00,& - .3708E+00,.5372E+00,.6829E+00,.8484E+00,.8654E+00,.8279E+00,.8912E+00,.8994E+00,.9608E+00,.6040E+00,& - .3707E+00,.5296E+00,.6504E+00,.8286E+00,.8600E+00,.8253E+00,.8860E+00,.8900E+00,.9566E+00,.5872E+00,& - .3706E+00,.5221E+00,.6180E+00,.8088E+00,.8546E+00,.8226E+00,.8809E+00,.8805E+00,.9523E+00,.5704E+00,& - .3707E+00,.5170E+00,.6009E+00,.7953E+00,.8501E+00,.8204E+00,.8765E+00,.8739E+00,.9491E+00,.5603E+00,& - .3708E+00,.5119E+00,.5838E+00,.7818E+00,.8457E+00,.8182E+00,.8722E+00,.8674E+00,.9458E+00,.5502E+00,& - .3709E+00,.5068E+00,.5668E+00,.7682E+00,.8412E+00,.8160E+00,.8679E+00,.8608E+00,.9425E+00,.5401E+00,& - .3711E+00,.5017E+00,.5497E+00,.7547E+00,.8367E+00,.8138E+00,.8636E+00,.8542E+00,.9392E+00,.5300E+00,& - .3712E+00,.4966E+00,.5327E+00,.7412E+00,.8323E+00,.8116E+00,.8593E+00,.8477E+00,.9359E+00,.5199E+00,& - .3715E+00,.4931E+00,.5227E+00,.7312E+00,.8285E+00,.8094E+00,.8559E+00,.8428E+00,.9331E+00,.5134E+00,& - .3719E+00,.4895E+00,.5127E+00,.7213E+00,.8248E+00,.8072E+00,.8525E+00,.8379E+00,.9303E+00,.5070E+00,& - .3722E+00,.4860E+00,.5027E+00,.7113E+00,.8210E+00,.8049E+00,.8492E+00,.8330E+00,.9274E+00,.5005E+00,& - .3725E+00,.4825E+00,.4928E+00,.7013E+00,.8173E+00,.8027E+00,.8458E+00,.8281E+00,.9246E+00,.4940E+00,& - .3729E+00,.4789E+00,.4828E+00,.6913E+00,.8136E+00,.8005E+00,.8424E+00,.8232E+00,.9218E+00,.4875E+00,& - .3733E+00,.4764E+00,.4767E+00,.6836E+00,.8103E+00,.7988E+00,.8395E+00,.8193E+00,.9194E+00,.4832E+00,& - .3738E+00,.4739E+00,.4705E+00,.6759E+00,.8071E+00,.7971E+00,.8365E+00,.8154E+00,.9171E+00,.4789E+00,& - .3742E+00,.4715E+00,.4644E+00,.6682E+00,.8038E+00,.7954E+00,.8335E+00,.8115E+00,.9148E+00,.4746E+00,& - .3747E+00,.4690E+00,.4583E+00,.6605E+00,.8006E+00,.7937E+00,.8305E+00,.8076E+00,.9125E+00,.4703E+00,& - .3751E+00,.4665E+00,.4522E+00,.6528E+00,.7973E+00,.7920E+00,.8275E+00,.8037E+00,.9102E+00,.4660E+00,& - .3757E+00,.4647E+00,.4483E+00,.6468E+00,.7945E+00,.7903E+00,.8251E+00,.8006E+00,.9082E+00,.4631E+00,& - .3762E+00,.4630E+00,.4445E+00,.6407E+00,.7917E+00,.7886E+00,.8228E+00,.7975E+00,.9061E+00,.4602E+00,& - .3767E+00,.4612E+00,.4407E+00,.6347E+00,.7889E+00,.7869E+00,.8204E+00,.7944E+00,.9040E+00,.4573E+00,& - .3773E+00,.4595E+00,.4368E+00,.6286E+00,.7861E+00,.7851E+00,.8180E+00,.7913E+00,.9020E+00,.4544E+00,& - .3778E+00,.4577E+00,.4330E+00,.6226E+00,.7833E+00,.7834E+00,.8156E+00,.7882E+00,.8999E+00,.4515E+00,& - .3784E+00,.4565E+00,.4306E+00,.6177E+00,.7808E+00,.7819E+00,.8134E+00,.7855E+00,.8981E+00,.4496E+00,& - .3790E+00,.4552E+00,.4281E+00,.6129E+00,.7784E+00,.7804E+00,.8112E+00,.7828E+00,.8963E+00,.4476E+00,& - .3796E+00,.4540E+00,.4257E+00,.6081E+00,.7759E+00,.7789E+00,.8089E+00,.7802E+00,.8945E+00,.4456E+00,& - .3802E+00,.4528E+00,.4233E+00,.6033E+00,.7734E+00,.7774E+00,.8067E+00,.7775E+00,.8927E+00,.4437E+00,& - .3808E+00,.4515E+00,.4209E+00,.5985E+00,.7710E+00,.7759E+00,.8045E+00,.7748E+00,.8909E+00,.4417E+00,& - .3815E+00,.4507E+00,.4194E+00,.5946E+00,.7688E+00,.7745E+00,.8027E+00,.7726E+00,.8892E+00,.4404E+00,& - .3821E+00,.4498E+00,.4179E+00,.5907E+00,.7666E+00,.7732E+00,.8008E+00,.7705E+00,.8876E+00,.4390E+00,& - .3827E+00,.4489E+00,.4163E+00,.5868E+00,.7644E+00,.7719E+00,.7990E+00,.7683E+00,.8860E+00,.4377E+00,& - .3834E+00,.4481E+00,.4148E+00,.5829E+00,.7622E+00,.7705E+00,.7972E+00,.7661E+00,.8844E+00,.4364E+00,& - .3840E+00,.4472E+00,.4133E+00,.5790E+00,.7600E+00,.7692E+00,.7953E+00,.7639E+00,.8828E+00,.4351E+00,& - .3847E+00,.4466E+00,.4124E+00,.5759E+00,.7581E+00,.7679E+00,.7936E+00,.7619E+00,.8812E+00,.4342E+00,& - .3853E+00,.4460E+00,.4115E+00,.5728E+00,.7561E+00,.7666E+00,.7919E+00,.7599E+00,.8796E+00,.4333E+00,& - .3859E+00,.4454E+00,.4106E+00,.5696E+00,.7542E+00,.7653E+00,.7901E+00,.7579E+00,.8781E+00,.4324E+00,& - .3866E+00,.4448E+00,.4097E+00,.5665E+00,.7523E+00,.7640E+00,.7884E+00,.7559E+00,.8765E+00,.4316E+00,& - .3872E+00,.4443E+00,.4088E+00,.5634E+00,.7504E+00,.7627E+00,.7867E+00,.7539E+00,.8750E+00,.4307E+00,& - .3879E+00,.4439E+00,.4083E+00,.5608E+00,.7487E+00,.7616E+00,.7851E+00,.7523E+00,.8736E+00,.4301E+00,& - .3885E+00,.4435E+00,.4078E+00,.5583E+00,.7469E+00,.7605E+00,.7836E+00,.7506E+00,.8723E+00,.4296E+00,& - .3892E+00,.4431E+00,.4073E+00,.5557E+00,.7452E+00,.7593E+00,.7820E+00,.7489E+00,.8709E+00,.4290E+00,& - .3899E+00,.4427E+00,.4068E+00,.5532E+00,.7435E+00,.7582E+00,.7805E+00,.7473E+00,.8696E+00,.4284E+00,& - .3905E+00,.4424E+00,.4063E+00,.5506E+00,.7418E+00,.7571E+00,.7790E+00,.7456E+00,.8683E+00,.4279E+00,& - .3912E+00,.4421E+00,.4060E+00,.5485E+00,.7402E+00,.7560E+00,.7776E+00,.7441E+00,.8669E+00,.4275E+00,& - .3918E+00,.4419E+00,.4058E+00,.5464E+00,.7387E+00,.7549E+00,.7763E+00,.7426E+00,.8655E+00,.4272E+00,& - .3925E+00,.4416E+00,.4056E+00,.5443E+00,.7371E+00,.7538E+00,.7749E+00,.7411E+00,.8642E+00,.4269E+00,& - .3931E+00,.4414E+00,.4054E+00,.5422E+00,.7355E+00,.7527E+00,.7736E+00,.7396E+00,.8628E+00,.4266E+00,& - .3938E+00,.4411E+00,.4051E+00,.5402E+00,.7340E+00,.7516E+00,.7722E+00,.7380E+00,.8614E+00,.4262E+00,& - .3943E+00,.4410E+00,.4051E+00,.5387E+00,.7329E+00,.7508E+00,.7711E+00,.7369E+00,.8605E+00,.4261E+00,& - .3948E+00,.4409E+00,.4051E+00,.5373E+00,.7317E+00,.7500E+00,.7700E+00,.7357E+00,.8596E+00,.4260E+00,& - .3953E+00,.4408E+00,.4050E+00,.5359E+00,.7306E+00,.7491E+00,.7689E+00,.7345E+00,.8587E+00,.4258E+00,& - .3958E+00,.4407E+00,.4050E+00,.5345E+00,.7294E+00,.7483E+00,.7678E+00,.7333E+00,.8578E+00,.4257E+00,& - .3963E+00,.4406E+00,.4050E+00,.5331E+00,.7283E+00,.7475E+00,.7667E+00,.7321E+00,.8568E+00,.4255E+00,& - .3968E+00,.4406E+00,.4050E+00,.5319E+00,.7273E+00,.7467E+00,.7657E+00,.7311E+00,.8559E+00,.4255E+00,& - .3974E+00,.4405E+00,.4051E+00,.5307E+00,.7262E+00,.7459E+00,.7647E+00,.7301E+00,.8549E+00,.4254E+00,& - .3979E+00,.4405E+00,.4052E+00,.5295E+00,.7251E+00,.7451E+00,.7638E+00,.7291E+00,.8539E+00,.4254E+00,& - .3984E+00,.4404E+00,.4052E+00,.5283E+00,.7241E+00,.7444E+00,.7628E+00,.7281E+00,.8529E+00,.4253E+00,& - .3989E+00,.4404E+00,.4053E+00,.5271E+00,.7230E+00,.7436E+00,.7618E+00,.7271E+00,.8519E+00,.4253E+00,& - .3994E+00,.4404E+00,.4054E+00,.5260E+00,.7220E+00,.7428E+00,.7609E+00,.7261E+00,.8509E+00,.4253E+00,& - .3999E+00,.4404E+00,.4056E+00,.5250E+00,.7211E+00,.7421E+00,.7600E+00,.7252E+00,.8500E+00,.4253E+00,& - .4004E+00,.4404E+00,.4057E+00,.5240E+00,.7201E+00,.7414E+00,.7591E+00,.7242E+00,.8490E+00,.4254E+00,& - .4009E+00,.4404E+00,.4058E+00,.5229E+00,.7191E+00,.7406E+00,.7582E+00,.7232E+00,.8480E+00,.4254E+00,& - .4014E+00,.4404E+00,.4060E+00,.5219E+00,.7181E+00,.7399E+00,.7573E+00,.7223E+00,.8471E+00,.4254E+00,& - .4019E+00,.4405E+00,.4062E+00,.5210E+00,.7172E+00,.7392E+00,.7564E+00,.7213E+00,.8462E+00,.4255E+00,& - .4024E+00,.4405E+00,.4063E+00,.5202E+00,.7163E+00,.7384E+00,.7554E+00,.7203E+00,.8454E+00,.4256E+00,& - .4028E+00,.4406E+00,.4065E+00,.5193E+00,.7154E+00,.7377E+00,.7545E+00,.7193E+00,.8445E+00,.4256E+00,& - .4033E+00,.4406E+00,.4067E+00,.5185E+00,.7145E+00,.7370E+00,.7535E+00,.7183E+00,.8437E+00,.4257E+00,& - .4038E+00,.4406E+00,.4069E+00,.5176E+00,.7136E+00,.7363E+00,.7525E+00,.7173E+00,.8428E+00,.4258E+00,& - .4045E+00,.4408E+00,.4072E+00,.5165E+00,.7124E+00,.7352E+00,.7513E+00,.7161E+00,.8416E+00,.4259E+00,& - .4052E+00,.4409E+00,.4076E+00,.5155E+00,.7112E+00,.7342E+00,.7500E+00,.7149E+00,.8403E+00,.4261E+00,& - .4059E+00,.4410E+00,.4079E+00,.5144E+00,.7099E+00,.7332E+00,.7488E+00,.7137E+00,.8391E+00,.4263E+00,& - .4066E+00,.4411E+00,.4083E+00,.5134E+00,.7087E+00,.7322E+00,.7475E+00,.7124E+00,.8379E+00,.4265E+00,& - .4073E+00,.4412E+00,.4086E+00,.5123E+00,.7075E+00,.7312E+00,.7463E+00,.7112E+00,.8367E+00,.4266E+00,& - .4083E+00,.4415E+00,.4092E+00,.5112E+00,.7059E+00,.7298E+00,.7445E+00,.7095E+00,.8350E+00,.4270E+00,& - .4092E+00,.4417E+00,.4098E+00,.5100E+00,.7043E+00,.7285E+00,.7428E+00,.7077E+00,.8332E+00,.4274E+00,& - .4102E+00,.4420E+00,.4104E+00,.5088E+00,.7027E+00,.7271E+00,.7411E+00,.7060E+00,.8315E+00,.4277E+00,& - .4111E+00,.4422E+00,.4110E+00,.5077E+00,.7011E+00,.7257E+00,.7394E+00,.7042E+00,.8298E+00,.4281E+00,& - .4121E+00,.4424E+00,.4116E+00,.5065E+00,.6995E+00,.7243E+00,.7377E+00,.7025E+00,.8281E+00,.4285E+00,& - .4131E+00,.4428E+00,.4123E+00,.5055E+00,.6979E+00,.7229E+00,.7359E+00,.7009E+00,.8266E+00,.4289E+00,& - .4145E+00,.4433E+00,.4134E+00,.5042E+00,.6957E+00,.7209E+00,.7334E+00,.6986E+00,.8237E+00,.4296E+00,& - .4159E+00,.4438E+00,.4144E+00,.5030E+00,.6936E+00,.7189E+00,.7310E+00,.6962E+00,.8213E+00,.4304E+00,& - .4173E+00,.4443E+00,.4155E+00,.5020E+00,.6915E+00,.7169E+00,.7288E+00,.6940E+00,.8188E+00,.4311E+00,& - .4188E+00,.4449E+00,.4168E+00,.5009E+00,.6891E+00,.7146E+00,.7258E+00,.6914E+00,.8159E+00,.4320E+00,& - .4203E+00,.4456E+00,.4180E+00,.4999E+00,.6868E+00,.7124E+00,.7230E+00,.6885E+00,.8134E+00,.4329E+00,& - .4217E+00,.4462E+00,.4193E+00,.4991E+00,.6847E+00,.7102E+00,.7203E+00,.6862E+00,.8106E+00,.4339E+00,& - .4232E+00,.4469E+00,.4206E+00,.4984E+00,.6825E+00,.7080E+00,.7176E+00,.6837E+00,.8080E+00,.4349E+00,& - .4249E+00,.4477E+00,.4222E+00,.4977E+00,.6800E+00,.7055E+00,.7148E+00,.6810E+00,.8048E+00,.4360E+00,& - .4268E+00,.4487E+00,.4239E+00,.4970E+00,.6772E+00,.7025E+00,.7110E+00,.6777E+00,.8012E+00,.4374E+00,& - .4290E+00,.4498E+00,.4260E+00,.4964E+00,.6740E+00,.6991E+00,.7068E+00,.6738E+00,.7973E+00,.4390E+00,& - .4312E+00,.4511E+00,.4283E+00,.4959E+00,.6708E+00,.6955E+00,.7026E+00,.6700E+00,.7928E+00,.4407E+00,& - .4342E+00,.4528E+00,.4314E+00,.4955E+00,.6662E+00,.6903E+00,.6962E+00,.6646E+00,.7866E+00,.4432E+00,& - .4375E+00,.4548E+00,.4349E+00,.4954E+00,.6613E+00,.6845E+00,.6895E+00,.6588E+00,.7800E+00,.4460E+00,& - .4411E+00,.4572E+00,.4390E+00,.4955E+00,.6556E+00,.6778E+00,.6813E+00,.6518E+00,.7724E+00,.4493E+00,& - .4458E+00,.4604E+00,.4444E+00,.4960E+00,.6479E+00,.6685E+00,.6707E+00,.6432E+00,.7615E+00,.4538E+00,& - .4508E+00,.4640E+00,.4506E+00,.4970E+00,.6388E+00,.6572E+00,.6580E+00,.6330E+00,.7496E+00,.4590E+00,& - .4576E+00,.4694E+00,.4595E+00,.4987E+00,.6249E+00,.6401E+00,.6388E+00,.6181E+00,.7317E+00,.4667E+00,& - .4676E+00,.4782E+00,.4737E+00,.5013E+00,.6004E+00,.6105E+00,.6078E+00,.5954E+00,.7018E+00,.4792E+00/ - data (((w0_lw(ai,k,nh),ai= 7, 7),k=1,nwl_lw),nh=0,99)/ & - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& - .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02/ - data (((w0_lw(ai,k,nh),ai= 8, 8),k=1,nwl_lw),nh=0,99)/ & - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& - .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01/ - data (((w0_lw(ai,k,nh),ai= 9, 9),k=1,nwl_lw),nh=0,99)/ & - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& - .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01/ - data (((w0_lw(ai,k,nh),ai=10,10),k=1,nwl_lw),nh=0,99)/ & - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& - .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00/ - data (((w0_lw(ai,k,nh),ai=11,11),k=1,nwl_lw),nh=0,99)/ & - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& - .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00/ - data (((w0_lw(ai,k,nh),ai=12,12),k=1,nwl_lw),nh=0,99)/ & - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& - .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00/ - data (((w0_lw(ai,k,nh),ai=13,13),k=1,nwl_lw),nh=0,99)/ & - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& - .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00/ - data (((w0_lw(ai,k,nh),ai=14,14),k=1,nwl_lw),nh=0,99)/ & - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& - .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00/ - data (((g_lw(ai,k,nh),ai= 1, 1),k=1,nwl_lw),nh=0,99)/ & - .4974E-03,.1097E-02,.2259E-02,.4134E-02,.5324E-02,.5525E-02,.6496E-02,.1171E-01,.2654E-01,.1705E-02,& - .5026E-03,.1108E-02,.2281E-02,.4167E-02,.5384E-02,.5621E-02,.6616E-02,.1188E-01,.2695E-01,.1724E-02,& - .5078E-03,.1120E-02,.2303E-02,.4201E-02,.5445E-02,.5717E-02,.6735E-02,.1205E-01,.2735E-01,.1743E-02,& - .5129E-03,.1131E-02,.2326E-02,.4234E-02,.5505E-02,.5813E-02,.6854E-02,.1223E-01,.2775E-01,.1761E-02,& - .5181E-03,.1142E-02,.2348E-02,.4268E-02,.5566E-02,.5909E-02,.6974E-02,.1240E-01,.2815E-01,.1780E-02,& - .5233E-03,.1154E-02,.2371E-02,.4302E-02,.5626E-02,.6006E-02,.7093E-02,.1257E-01,.2856E-01,.1799E-02,& - .5288E-03,.1166E-02,.2395E-02,.4339E-02,.5689E-02,.6102E-02,.7215E-02,.1275E-01,.2897E-01,.1818E-02,& - .5343E-03,.1178E-02,.2419E-02,.4376E-02,.5753E-02,.6199E-02,.7336E-02,.1293E-01,.2939E-01,.1838E-02,& - .5398E-03,.1190E-02,.2443E-02,.4414E-02,.5816E-02,.6296E-02,.7458E-02,.1311E-01,.2980E-01,.1858E-02,& - .5453E-03,.1202E-02,.2467E-02,.4451E-02,.5880E-02,.6393E-02,.7580E-02,.1329E-01,.3022E-01,.1878E-02,& - .5508E-03,.1214E-02,.2492E-02,.4489E-02,.5943E-02,.6490E-02,.7701E-02,.1347E-01,.3064E-01,.1898E-02,& - .5567E-03,.1227E-02,.2517E-02,.4530E-02,.6010E-02,.6587E-02,.7825E-02,.1366E-01,.3106E-01,.1919E-02,& - .5626E-03,.1240E-02,.2543E-02,.4571E-02,.6077E-02,.6685E-02,.7948E-02,.1384E-01,.3149E-01,.1940E-02,& - .5685E-03,.1253E-02,.2569E-02,.4612E-02,.6143E-02,.6783E-02,.8072E-02,.1403E-01,.3192E-01,.1961E-02,& - .5743E-03,.1266E-02,.2595E-02,.4653E-02,.6210E-02,.6881E-02,.8195E-02,.1422E-01,.3235E-01,.1982E-02,& - .5802E-03,.1279E-02,.2621E-02,.4695E-02,.6277E-02,.6978E-02,.8319E-02,.1440E-01,.3278E-01,.2003E-02,& - .5863E-03,.1292E-02,.2648E-02,.4738E-02,.6346E-02,.7078E-02,.8446E-02,.1459E-01,.3323E-01,.2025E-02,& - .5925E-03,.1306E-02,.2675E-02,.4782E-02,.6415E-02,.7178E-02,.8573E-02,.1479E-01,.3367E-01,.2047E-02,& - .5986E-03,.1319E-02,.2703E-02,.4826E-02,.6484E-02,.7278E-02,.8700E-02,.1498E-01,.3412E-01,.2068E-02,& - .6048E-03,.1333E-02,.2730E-02,.4869E-02,.6554E-02,.7377E-02,.8827E-02,.1517E-01,.3456E-01,.2090E-02,& - .6109E-03,.1346E-02,.2757E-02,.4913E-02,.6623E-02,.7477E-02,.8954E-02,.1536E-01,.3501E-01,.2112E-02,& - .6174E-03,.1360E-02,.2786E-02,.4960E-02,.6695E-02,.7579E-02,.9084E-02,.1556E-01,.3546E-01,.2135E-02,& - .6238E-03,.1374E-02,.2814E-02,.5006E-02,.6767E-02,.7681E-02,.9215E-02,.1576E-01,.3592E-01,.2158E-02,& - .6303E-03,.1388E-02,.2843E-02,.5053E-02,.6839E-02,.7783E-02,.9345E-02,.1596E-01,.3638E-01,.2181E-02,& - .6367E-03,.1402E-02,.2871E-02,.5099E-02,.6911E-02,.7885E-02,.9475E-02,.1616E-01,.3684E-01,.2204E-02,& - .6432E-03,.1417E-02,.2900E-02,.5146E-02,.6983E-02,.7986E-02,.9606E-02,.1636E-01,.3730E-01,.2227E-02,& - .6499E-03,.1431E-02,.2930E-02,.5195E-02,.7058E-02,.8090E-02,.9739E-02,.1656E-01,.3777E-01,.2251E-02,& - .6566E-03,.1446E-02,.2960E-02,.5244E-02,.7133E-02,.8194E-02,.9873E-02,.1677E-01,.3824E-01,.2275E-02,& - .6633E-03,.1461E-02,.2990E-02,.5294E-02,.7208E-02,.8298E-02,.1001E-01,.1698E-01,.3872E-01,.2299E-02,& - .6701E-03,.1475E-02,.3020E-02,.5343E-02,.7283E-02,.8402E-02,.1014E-01,.1718E-01,.3919E-01,.2323E-02,& - .6768E-03,.1490E-02,.3050E-02,.5392E-02,.7358E-02,.8506E-02,.1027E-01,.1739E-01,.3966E-01,.2346E-02,& - .6838E-03,.1505E-02,.3081E-02,.5444E-02,.7436E-02,.8613E-02,.1041E-01,.1760E-01,.4015E-01,.2371E-02,& - .6908E-03,.1521E-02,.3112E-02,.5496E-02,.7514E-02,.8719E-02,.1055E-01,.1781E-01,.4064E-01,.2396E-02,& - .6978E-03,.1536E-02,.3143E-02,.5547E-02,.7592E-02,.8826E-02,.1068E-01,.1802E-01,.4113E-01,.2421E-02,& - .7049E-03,.1551E-02,.3175E-02,.5599E-02,.7669E-02,.8932E-02,.1082E-01,.1823E-01,.4161E-01,.2446E-02,& - .7119E-03,.1567E-02,.3206E-02,.5651E-02,.7747E-02,.9038E-02,.1096E-01,.1844E-01,.4210E-01,.2471E-02,& - .7192E-03,.1583E-02,.3239E-02,.5705E-02,.7828E-02,.9147E-02,.1110E-01,.1866E-01,.4260E-01,.2497E-02,& - .7265E-03,.1599E-02,.3271E-02,.5760E-02,.7908E-02,.9256E-02,.1124E-01,.1888E-01,.4310E-01,.2522E-02,& - .7338E-03,.1615E-02,.3304E-02,.5814E-02,.7989E-02,.9364E-02,.1137E-01,.1910E-01,.4360E-01,.2548E-02,& - .7411E-03,.1631E-02,.3336E-02,.5868E-02,.8070E-02,.9473E-02,.1151E-01,.1931E-01,.4410E-01,.2574E-02,& - .7484E-03,.1647E-02,.3369E-02,.5923E-02,.8151E-02,.9581E-02,.1165E-01,.1953E-01,.4460E-01,.2600E-02,& - .7559E-03,.1663E-02,.3403E-02,.5979E-02,.8234E-02,.9693E-02,.1180E-01,.1976E-01,.4512E-01,.2627E-02,& - .7635E-03,.1680E-02,.3436E-02,.6036E-02,.8317E-02,.9804E-02,.1194E-01,.1998E-01,.4564E-01,.2653E-02,& - .7710E-03,.1696E-02,.3470E-02,.6092E-02,.8400E-02,.9916E-02,.1208E-01,.2021E-01,.4615E-01,.2680E-02,& - .7786E-03,.1713E-02,.3504E-02,.6149E-02,.8484E-02,.1003E-01,.1223E-01,.2043E-01,.4667E-01,.2707E-02,& - .7861E-03,.1729E-02,.3538E-02,.6205E-02,.8567E-02,.1014E-01,.1237E-01,.2065E-01,.4718E-01,.2734E-02,& - .7940E-03,.1746E-02,.3573E-02,.6264E-02,.8653E-02,.1025E-01,.1252E-01,.2088E-01,.4771E-01,.2761E-02,& - .8018E-03,.1763E-02,.3608E-02,.6322E-02,.8739E-02,.1037E-01,.1267E-01,.2111E-01,.4824E-01,.2789E-02,& - .8096E-03,.1780E-02,.3643E-02,.6381E-02,.8825E-02,.1048E-01,.1281E-01,.2135E-01,.4878E-01,.2816E-02,& - .8175E-03,.1797E-02,.3678E-02,.6440E-02,.8911E-02,.1060E-01,.1296E-01,.2158E-01,.4931E-01,.2844E-02,& - .8253E-03,.1814E-02,.3712E-02,.6498E-02,.8997E-02,.1071E-01,.1311E-01,.2181E-01,.4984E-01,.2871E-02,& - .8334E-03,.1832E-02,.3749E-02,.6559E-02,.9086E-02,.1083E-01,.1326E-01,.2204E-01,.5038E-01,.2900E-02,& - .8414E-03,.1850E-02,.3785E-02,.6621E-02,.9174E-02,.1094E-01,.1341E-01,.2228E-01,.5092E-01,.2929E-02,& - .8495E-03,.1867E-02,.3821E-02,.6682E-02,.9263E-02,.1106E-01,.1356E-01,.2252E-01,.5146E-01,.2957E-02,& - .8576E-03,.1885E-02,.3858E-02,.6743E-02,.9352E-02,.1118E-01,.1370E-01,.2275E-01,.5200E-01,.2986E-02,& - .8656E-03,.1903E-02,.3894E-02,.6805E-02,.9441E-02,.1129E-01,.1385E-01,.2299E-01,.5255E-01,.3014E-02,& - .8740E-03,.1921E-02,.3931E-02,.6868E-02,.9533E-02,.1141E-01,.1401E-01,.2323E-01,.5310E-01,.3044E-02,& - .8823E-03,.1939E-02,.3969E-02,.6931E-02,.9624E-02,.1153E-01,.1416E-01,.2347E-01,.5366E-01,.3073E-02,& - .8907E-03,.1957E-02,.4006E-02,.6995E-02,.9715E-02,.1165E-01,.1431E-01,.2371E-01,.5421E-01,.3102E-02,& - .8990E-03,.1976E-02,.4044E-02,.7058E-02,.9807E-02,.1177E-01,.1447E-01,.2395E-01,.5476E-01,.3132E-02,& - .9073E-03,.1994E-02,.4081E-02,.7121E-02,.9898E-02,.1189E-01,.1462E-01,.2419E-01,.5532E-01,.3161E-02,& - .9159E-03,.2013E-02,.4119E-02,.7186E-02,.9992E-02,.1201E-01,.1478E-01,.2444E-01,.5589E-01,.3191E-02,& - .9245E-03,.2031E-02,.4158E-02,.7252E-02,.1009E-01,.1213E-01,.1493E-01,.2469E-01,.5646E-01,.3221E-02,& - .9331E-03,.2050E-02,.4196E-02,.7317E-02,.1018E-01,.1226E-01,.1509E-01,.2494E-01,.5703E-01,.3252E-02,& - .9417E-03,.2069E-02,.4235E-02,.7382E-02,.1027E-01,.1238E-01,.1525E-01,.2519E-01,.5760E-01,.3282E-02,& - .9503E-03,.2087E-02,.4273E-02,.7447E-02,.1037E-01,.1250E-01,.1541E-01,.2544E-01,.5817E-01,.3312E-02,& - .9592E-03,.2107E-02,.4313E-02,.7514E-02,.1046E-01,.1263E-01,.1557E-01,.2569E-01,.5876E-01,.3343E-02,& - .9680E-03,.2126E-02,.4352E-02,.7581E-02,.1056E-01,.1275E-01,.1573E-01,.2595E-01,.5934E-01,.3374E-02,& - .9768E-03,.2145E-02,.4392E-02,.7648E-02,.1066E-01,.1288E-01,.1589E-01,.2620E-01,.5993E-01,.3405E-02,& - .9856E-03,.2165E-02,.4431E-02,.7715E-02,.1075E-01,.1300E-01,.1605E-01,.2646E-01,.6051E-01,.3436E-02,& - .9944E-03,.2184E-02,.4471E-02,.7783E-02,.1085E-01,.1313E-01,.1621E-01,.2671E-01,.6110E-01,.3467E-02,& - .1004E-02,.2204E-02,.4512E-02,.7851E-02,.1095E-01,.1326E-01,.1638E-01,.2698E-01,.6173E-01,.3500E-02,& - .1013E-02,.2223E-02,.4552E-02,.7919E-02,.1105E-01,.1339E-01,.1656E-01,.2726E-01,.6236E-01,.3532E-02,& - .1022E-02,.2243E-02,.4593E-02,.7987E-02,.1115E-01,.1353E-01,.1673E-01,.2753E-01,.6299E-01,.3564E-02,& - .1031E-02,.2263E-02,.4634E-02,.8056E-02,.1125E-01,.1366E-01,.1691E-01,.2780E-01,.6362E-01,.3596E-02,& - .1040E-02,.2283E-02,.4674E-02,.8124E-02,.1135E-01,.1380E-01,.1708E-01,.2808E-01,.6424E-01,.3628E-02,& - .1049E-02,.2303E-02,.4717E-02,.8195E-02,.1145E-01,.1393E-01,.1726E-01,.2836E-01,.6489E-01,.3661E-02,& - .1059E-02,.2324E-02,.4759E-02,.8266E-02,.1155E-01,.1407E-01,.1744E-01,.2864E-01,.6553E-01,.3695E-02,& - .1068E-02,.2344E-02,.4801E-02,.8337E-02,.1166E-01,.1421E-01,.1762E-01,.2892E-01,.6618E-01,.3728E-02,& - .1077E-02,.2365E-02,.4843E-02,.8407E-02,.1176E-01,.1434E-01,.1780E-01,.2920E-01,.6682E-01,.3761E-02,& - .1087E-02,.2385E-02,.4885E-02,.8478E-02,.1186E-01,.1448E-01,.1798E-01,.2948E-01,.6746E-01,.3794E-02,& - .1096E-02,.2406E-02,.4928E-02,.8551E-02,.1197E-01,.1462E-01,.1816E-01,.2976E-01,.6813E-01,.3828E-02,& - .1106E-02,.2427E-02,.4972E-02,.8624E-02,.1207E-01,.1476E-01,.1835E-01,.3005E-01,.6879E-01,.3863E-02,& - .1116E-02,.2448E-02,.5016E-02,.8697E-02,.1218E-01,.1490E-01,.1853E-01,.3034E-01,.6946E-01,.3897E-02,& - .1126E-02,.2470E-02,.5060E-02,.8772E-02,.1229E-01,.1505E-01,.1873E-01,.3065E-01,.7017E-01,.3932E-02,& - .1136E-02,.2492E-02,.5105E-02,.8847E-02,.1240E-01,.1520E-01,.1893E-01,.3096E-01,.7088E-01,.3968E-02,& - .1146E-02,.2513E-02,.5151E-02,.8923E-02,.1251E-01,.1535E-01,.1913E-01,.3127E-01,.7160E-01,.4004E-02,& - .1156E-02,.2536E-02,.5198E-02,.9001E-02,.1263E-01,.1551E-01,.1934E-01,.3160E-01,.7236E-01,.4041E-02,& - .1167E-02,.2559E-02,.5245E-02,.9079E-02,.1274E-01,.1567E-01,.1956E-01,.3193E-01,.7312E-01,.4078E-02,& - .1178E-02,.2582E-02,.5294E-02,.9159E-02,.1286E-01,.1584E-01,.1978E-01,.3227E-01,.7393E-01,.4118E-02,& - .1189E-02,.2607E-02,.5344E-02,.9242E-02,.1298E-01,.1601E-01,.2002E-01,.3264E-01,.7476E-01,.4158E-02,& - .1201E-02,.2631E-02,.5395E-02,.9327E-02,.1311E-01,.1619E-01,.2026E-01,.3300E-01,.7560E-01,.4198E-02,& - .1212E-02,.2657E-02,.5449E-02,.9415E-02,.1324E-01,.1637E-01,.2052E-01,.3339E-01,.7651E-01,.4241E-02,& - .1225E-02,.2683E-02,.5504E-02,.9507E-02,.1337E-01,.1656E-01,.2078E-01,.3379E-01,.7742E-01,.4285E-02,& - .1237E-02,.2711E-02,.5563E-02,.9602E-02,.1351E-01,.1676E-01,.2105E-01,.3421E-01,.7840E-01,.4331E-02,& - .1252E-02,.2742E-02,.5627E-02,.9706E-02,.1367E-01,.1699E-01,.2136E-01,.3468E-01,.7950E-01,.4383E-02,& - .1267E-02,.2775E-02,.5695E-02,.9819E-02,.1383E-01,.1722E-01,.2169E-01,.3517E-01,.8063E-01,.4437E-02,& - .1284E-02,.2811E-02,.5771E-02,.9945E-02,.1402E-01,.1748E-01,.2205E-01,.3573E-01,.8192E-01,.4498E-02,& - .1305E-02,.2856E-02,.5866E-02,.1010E-01,.1425E-01,.1780E-01,.2250E-01,.3641E-01,.8352E-01,.4573E-02,& - .1335E-02,.2921E-02,.6002E-02,.1033E-01,.1458E-01,.1826E-01,.2312E-01,.3738E-01,.8575E-01,.4680E-02/ - data (((g_lw(ai,k,nh),ai= 2, 2),k=1,nwl_lw),nh=0,99)/ & - .3489E-03,.7384E-03,.1593E-02,.2679E-02,.3583E-02,.4361E-02,.5349E-02,.8297E-02,.1781E-01,.1209E-02,& - .3523E-03,.7457E-03,.1609E-02,.2705E-02,.3619E-02,.4404E-02,.5402E-02,.8380E-02,.1799E-01,.1221E-02,& - .3558E-03,.7529E-03,.1625E-02,.2732E-02,.3654E-02,.4447E-02,.5455E-02,.8462E-02,.1817E-01,.1233E-02,& - .3592E-03,.7602E-03,.1640E-02,.2758E-02,.3690E-02,.4490E-02,.5508E-02,.8544E-02,.1835E-01,.1245E-02,& - .3627E-03,.7675E-03,.1656E-02,.2785E-02,.3725E-02,.4533E-02,.5561E-02,.8627E-02,.1852E-01,.1257E-02,& - .3661E-03,.7747E-03,.1672E-02,.2811E-02,.3761E-02,.4576E-02,.5614E-02,.8709E-02,.1870E-01,.1269E-02,& - .3695E-03,.7820E-03,.1687E-02,.2837E-02,.3796E-02,.4619E-02,.5666E-02,.8791E-02,.1888E-01,.1281E-02,& - .3730E-03,.7892E-03,.1703E-02,.2864E-02,.3831E-02,.4662E-02,.5719E-02,.8873E-02,.1906E-01,.1293E-02,& - .3764E-03,.7965E-03,.1719E-02,.2890E-02,.3866E-02,.4705E-02,.5772E-02,.8954E-02,.1923E-01,.1305E-02,& - .3798E-03,.8037E-03,.1734E-02,.2916E-02,.3901E-02,.4748E-02,.5824E-02,.9036E-02,.1941E-01,.1317E-02,& - .3832E-03,.8110E-03,.1750E-02,.2943E-02,.3937E-02,.4791E-02,.5877E-02,.9118E-02,.1959E-01,.1328E-02,& - .3866E-03,.8182E-03,.1766E-02,.2969E-02,.3972E-02,.4834E-02,.5930E-02,.9199E-02,.1976E-01,.1340E-02,& - .3900E-03,.8254E-03,.1781E-02,.2995E-02,.4007E-02,.4876E-02,.5982E-02,.9281E-02,.1994E-01,.1352E-02,& - .3934E-03,.8326E-03,.1797E-02,.3021E-02,.4042E-02,.4919E-02,.6034E-02,.9362E-02,.2011E-01,.1364E-02,& - .3968E-03,.8398E-03,.1812E-02,.3048E-02,.4077E-02,.4962E-02,.6087E-02,.9444E-02,.2029E-01,.1376E-02,& - .4002E-03,.8469E-03,.1828E-02,.3074E-02,.4112E-02,.5004E-02,.6139E-02,.9526E-02,.2047E-01,.1387E-02,& - .4036E-03,.8541E-03,.1843E-02,.3100E-02,.4147E-02,.5047E-02,.6191E-02,.9607E-02,.2064E-01,.1399E-02,& - .4070E-03,.8613E-03,.1859E-02,.3126E-02,.4182E-02,.5090E-02,.6243E-02,.9688E-02,.2082E-01,.1411E-02,& - .4103E-03,.8684E-03,.1874E-02,.3152E-02,.4216E-02,.5132E-02,.6296E-02,.9769E-02,.2099E-01,.1423E-02,& - .4137E-03,.8756E-03,.1890E-02,.3177E-02,.4251E-02,.5175E-02,.6348E-02,.9851E-02,.2117E-01,.1434E-02,& - .4171E-03,.8828E-03,.1905E-02,.3203E-02,.4286E-02,.5217E-02,.6400E-02,.9932E-02,.2134E-01,.1446E-02,& - .4205E-03,.8898E-03,.1920E-02,.3229E-02,.4321E-02,.5259E-02,.6452E-02,.1001E-01,.2152E-01,.1458E-02,& - .4238E-03,.8969E-03,.1936E-02,.3255E-02,.4355E-02,.5301E-02,.6503E-02,.1009E-01,.2169E-01,.1469E-02,& - .4271E-03,.9039E-03,.1951E-02,.3281E-02,.4390E-02,.5343E-02,.6555E-02,.1017E-01,.2187E-01,.1481E-02,& - .4305E-03,.9110E-03,.1966E-02,.3307E-02,.4424E-02,.5385E-02,.6607E-02,.1025E-01,.2204E-01,.1492E-02,& - .4338E-03,.9181E-03,.1981E-02,.3333E-02,.4459E-02,.5427E-02,.6658E-02,.1034E-01,.2221E-01,.1504E-02,& - .4372E-03,.9251E-03,.1997E-02,.3358E-02,.4493E-02,.5469E-02,.6710E-02,.1042E-01,.2239E-01,.1516E-02,& - .4405E-03,.9321E-03,.2012E-02,.3384E-02,.4527E-02,.5511E-02,.6761E-02,.1050E-01,.2256E-01,.1527E-02,& - .4438E-03,.9391E-03,.2027E-02,.3409E-02,.4562E-02,.5553E-02,.6812E-02,.1058E-01,.2273E-01,.1539E-02,& - .4471E-03,.9461E-03,.2042E-02,.3435E-02,.4596E-02,.5595E-02,.6864E-02,.1066E-01,.2290E-01,.1550E-02,& - .4504E-03,.9531E-03,.2057E-02,.3461E-02,.4630E-02,.5636E-02,.6915E-02,.1074E-01,.2308E-01,.1562E-02,& - .4537E-03,.9601E-03,.2072E-02,.3486E-02,.4664E-02,.5678E-02,.6966E-02,.1081E-01,.2325E-01,.1573E-02,& - .4570E-03,.9671E-03,.2087E-02,.3511E-02,.4698E-02,.5719E-02,.7017E-02,.1089E-01,.2342E-01,.1584E-02,& - .4603E-03,.9741E-03,.2103E-02,.3537E-02,.4732E-02,.5761E-02,.7067E-02,.1097E-01,.2359E-01,.1596E-02,& - .4636E-03,.9811E-03,.2118E-02,.3562E-02,.4766E-02,.5802E-02,.7118E-02,.1105E-01,.2376E-01,.1607E-02,& - .4669E-03,.9881E-03,.2133E-02,.3588E-02,.4800E-02,.5844E-02,.7169E-02,.1113E-01,.2393E-01,.1619E-02,& - .4701E-03,.9950E-03,.2148E-02,.3613E-02,.4834E-02,.5885E-02,.7220E-02,.1121E-01,.2410E-01,.1630E-02,& - .4734E-03,.1002E-02,.2162E-02,.3638E-02,.4867E-02,.5926E-02,.7270E-02,.1129E-01,.2427E-01,.1641E-02,& - .4766E-03,.1009E-02,.2177E-02,.3663E-02,.4901E-02,.5967E-02,.7320E-02,.1137E-01,.2444E-01,.1653E-02,& - .4799E-03,.1016E-02,.2192E-02,.3688E-02,.4935E-02,.6008E-02,.7371E-02,.1145E-01,.2461E-01,.1664E-02,& - .4831E-03,.1022E-02,.2207E-02,.3713E-02,.4968E-02,.6049E-02,.7421E-02,.1152E-01,.2478E-01,.1675E-02,& - .4863E-03,.1029E-02,.2222E-02,.3738E-02,.5002E-02,.6089E-02,.7471E-02,.1160E-01,.2495E-01,.1686E-02,& - .4896E-03,.1036E-02,.2237E-02,.3762E-02,.5035E-02,.6129E-02,.7521E-02,.1168E-01,.2512E-01,.1698E-02,& - .4928E-03,.1043E-02,.2251E-02,.3787E-02,.5068E-02,.6170E-02,.7570E-02,.1176E-01,.2528E-01,.1709E-02,& - .4960E-03,.1050E-02,.2266E-02,.3812E-02,.5101E-02,.6210E-02,.7620E-02,.1183E-01,.2545E-01,.1720E-02,& - .4992E-03,.1057E-02,.2281E-02,.3837E-02,.5134E-02,.6251E-02,.7670E-02,.1191E-01,.2562E-01,.1731E-02,& - .5023E-03,.1063E-02,.2295E-02,.3861E-02,.5167E-02,.6291E-02,.7719E-02,.1199E-01,.2578E-01,.1742E-02,& - .5055E-03,.1070E-02,.2310E-02,.3886E-02,.5200E-02,.6331E-02,.7769E-02,.1206E-01,.2595E-01,.1753E-02,& - .5087E-03,.1077E-02,.2324E-02,.3911E-02,.5233E-02,.6371E-02,.7818E-02,.1214E-01,.2611E-01,.1764E-02,& - .5119E-03,.1083E-02,.2339E-02,.3935E-02,.5266E-02,.6411E-02,.7867E-02,.1222E-01,.2628E-01,.1775E-02,& - .5151E-03,.1090E-02,.2353E-02,.3960E-02,.5299E-02,.6452E-02,.7916E-02,.1230E-01,.2645E-01,.1786E-02,& - .5182E-03,.1097E-02,.2368E-02,.3984E-02,.5331E-02,.6491E-02,.7965E-02,.1237E-01,.2661E-01,.1797E-02,& - .5213E-03,.1103E-02,.2382E-02,.4008E-02,.5364E-02,.6531E-02,.8014E-02,.1245E-01,.2677E-01,.1808E-02,& - .5244E-03,.1110E-02,.2396E-02,.4032E-02,.5396E-02,.6570E-02,.8062E-02,.1252E-01,.2694E-01,.1819E-02,& - .5276E-03,.1117E-02,.2411E-02,.4056E-02,.5429E-02,.6610E-02,.8111E-02,.1260E-01,.2710E-01,.1830E-02,& - .5307E-03,.1123E-02,.2425E-02,.4080E-02,.5461E-02,.6649E-02,.8160E-02,.1268E-01,.2726E-01,.1841E-02,& - .5334E-03,.1129E-02,.2437E-02,.4101E-02,.5491E-02,.6686E-02,.8207E-02,.1275E-01,.2744E-01,.1850E-02,& - .5360E-03,.1135E-02,.2448E-02,.4121E-02,.5520E-02,.6723E-02,.8254E-02,.1283E-01,.2761E-01,.1859E-02,& - .5387E-03,.1141E-02,.2460E-02,.4141E-02,.5549E-02,.6760E-02,.8301E-02,.1290E-01,.2778E-01,.1868E-02,& - .5413E-03,.1146E-02,.2471E-02,.4161E-02,.5578E-02,.6797E-02,.8348E-02,.1298E-01,.2796E-01,.1877E-02,& - .5440E-03,.1152E-02,.2483E-02,.4181E-02,.5608E-02,.6834E-02,.8395E-02,.1306E-01,.2813E-01,.1886E-02,& - .5470E-03,.1159E-02,.2497E-02,.4205E-02,.5639E-02,.6873E-02,.8443E-02,.1313E-01,.2829E-01,.1897E-02,& - .5501E-03,.1165E-02,.2511E-02,.4229E-02,.5671E-02,.6912E-02,.8491E-02,.1321E-01,.2845E-01,.1907E-02,& - .5531E-03,.1172E-02,.2525E-02,.4252E-02,.5703E-02,.6951E-02,.8538E-02,.1328E-01,.2861E-01,.1918E-02,& - .5562E-03,.1178E-02,.2539E-02,.4276E-02,.5735E-02,.6989E-02,.8586E-02,.1335E-01,.2877E-01,.1929E-02,& - .5592E-03,.1184E-02,.2553E-02,.4300E-02,.5766E-02,.7028E-02,.8634E-02,.1343E-01,.2893E-01,.1939E-02,& - .5612E-03,.1189E-02,.2560E-02,.4313E-02,.5791E-02,.7062E-02,.8681E-02,.1351E-01,.2914E-01,.1946E-02,& - .5631E-03,.1193E-02,.2567E-02,.4327E-02,.5816E-02,.7096E-02,.8727E-02,.1359E-01,.2934E-01,.1952E-02,& - .5650E-03,.1198E-02,.2574E-02,.4341E-02,.5841E-02,.7130E-02,.8774E-02,.1367E-01,.2954E-01,.1959E-02,& - .5669E-03,.1202E-02,.2581E-02,.4354E-02,.5865E-02,.7164E-02,.8821E-02,.1375E-01,.2975E-01,.1965E-02,& - .5689E-03,.1207E-02,.2588E-02,.4368E-02,.5890E-02,.7198E-02,.8867E-02,.1383E-01,.2995E-01,.1972E-02,& - .5700E-03,.1210E-02,.2590E-02,.4375E-02,.5913E-02,.7235E-02,.8923E-02,.1393E-01,.3025E-01,.1975E-02,& - .5712E-03,.1214E-02,.2591E-02,.4382E-02,.5936E-02,.7272E-02,.8980E-02,.1403E-01,.3054E-01,.1979E-02,& - .5724E-03,.1217E-02,.2593E-02,.4389E-02,.5960E-02,.7310E-02,.9036E-02,.1414E-01,.3084E-01,.1983E-02,& - .5736E-03,.1221E-02,.2595E-02,.4396E-02,.5983E-02,.7347E-02,.9092E-02,.1424E-01,.3113E-01,.1987E-02,& - .5748E-03,.1224E-02,.2597E-02,.4403E-02,.6006E-02,.7384E-02,.9149E-02,.1435E-01,.3143E-01,.1990E-02,& - .5772E-03,.1231E-02,.2605E-02,.4420E-02,.6042E-02,.7436E-02,.9224E-02,.1448E-01,.3179E-01,.1999E-02,& - .5796E-03,.1237E-02,.2613E-02,.4437E-02,.6078E-02,.7488E-02,.9300E-02,.1461E-01,.3215E-01,.2007E-02,& - .5821E-03,.1243E-02,.2621E-02,.4454E-02,.6113E-02,.7540E-02,.9375E-02,.1474E-01,.3251E-01,.2016E-02,& - .5845E-03,.1250E-02,.2629E-02,.4471E-02,.6149E-02,.7592E-02,.9451E-02,.1488E-01,.3287E-01,.2024E-02,& - .5869E-03,.1256E-02,.2637E-02,.4488E-02,.6185E-02,.7644E-02,.9526E-02,.1501E-01,.3322E-01,.2032E-02,& - .5903E-03,.1265E-02,.2649E-02,.4513E-02,.6234E-02,.7715E-02,.9626E-02,.1519E-01,.3370E-01,.2045E-02,& - .5940E-03,.1273E-02,.2664E-02,.4540E-02,.6281E-02,.7779E-02,.9715E-02,.1534E-01,.3409E-01,.2058E-02,& - .5983E-03,.1284E-02,.2681E-02,.4572E-02,.6337E-02,.7858E-02,.9824E-02,.1553E-01,.3458E-01,.2073E-02,& - .6025E-03,.1294E-02,.2698E-02,.4604E-02,.6389E-02,.7927E-02,.9917E-02,.1569E-01,.3498E-01,.2088E-02,& - .6074E-03,.1306E-02,.2719E-02,.4641E-02,.6452E-02,.8012E-02,.1003E-01,.1589E-01,.3548E-01,.2106E-02,& - .6128E-03,.1318E-02,.2741E-02,.4682E-02,.6518E-02,.8102E-02,.1016E-01,.1610E-01,.3599E-01,.2125E-02,& - .6176E-03,.1330E-02,.2762E-02,.4719E-02,.6576E-02,.8177E-02,.1026E-01,.1626E-01,.3641E-01,.2142E-02,& - .6235E-03,.1343E-02,.2787E-02,.4765E-02,.6646E-02,.8272E-02,.1038E-01,.1648E-01,.3693E-01,.2163E-02,& - .6287E-03,.1355E-02,.2810E-02,.4805E-02,.6707E-02,.8351E-02,.1049E-01,.1665E-01,.3735E-01,.2182E-02,& - .6351E-03,.1370E-02,.2838E-02,.4854E-02,.6782E-02,.8450E-02,.1062E-01,.1687E-01,.3789E-01,.2204E-02,& - .6417E-03,.1385E-02,.2866E-02,.4904E-02,.6860E-02,.8552E-02,.1075E-01,.1709E-01,.3843E-01,.2228E-02,& - .6484E-03,.1401E-02,.2896E-02,.4957E-02,.6939E-02,.8655E-02,.1089E-01,.1732E-01,.3898E-01,.2252E-02,& - .6555E-03,.1416E-02,.2928E-02,.5011E-02,.7021E-02,.8761E-02,.1103E-01,.1755E-01,.3954E-01,.2277E-02,& - .6639E-03,.1436E-02,.2965E-02,.5077E-02,.7119E-02,.8888E-02,.1120E-01,.1783E-01,.4020E-01,.2307E-02,& - .6725E-03,.1456E-02,.3004E-02,.5144E-02,.7219E-02,.9019E-02,.1137E-01,.1812E-01,.4088E-01,.2338E-02,& - .6828E-03,.1479E-02,.3049E-02,.5224E-02,.7337E-02,.9171E-02,.1157E-01,.1845E-01,.4168E-01,.2375E-02,& - .6960E-03,.1509E-02,.3108E-02,.5327E-02,.7489E-02,.9367E-02,.1183E-01,.1888E-01,.4270E-01,.2422E-02,& - .7109E-03,.1542E-02,.3176E-02,.5444E-02,.7660E-02,.9588E-02,.1212E-01,.1936E-01,.4383E-01,.2476E-02,& - .7427E-03,.1615E-02,.3320E-02,.5694E-02,.8024E-02,.1006E-01,.1272E-01,.2037E-01,.4624E-01,.2591E-02/ - data (((g_lw(ai,k,nh),ai= 3, 3),k=1,nwl_lw),nh=0,99)/ & - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02/ - data (((g_lw(ai,k,nh),ai= 4, 4),k=1,nwl_lw),nh=0,99)/ & - .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& - .4165E-03,.9984E-03,.1967E-02,.3538E-02,.5512E-02,.6739E-02,.6069E-02,.1056E-01,.2387E-01,.1662E-02,& - .4214E-03,.1009E-02,.1989E-02,.3574E-02,.5561E-02,.6799E-02,.6157E-02,.1070E-01,.2419E-01,.1679E-02,& - .4264E-03,.1020E-02,.2011E-02,.3611E-02,.5611E-02,.6859E-02,.6245E-02,.1085E-01,.2452E-01,.1696E-02,& - .4313E-03,.1030E-02,.2034E-02,.3648E-02,.5660E-02,.6920E-02,.6333E-02,.1099E-01,.2484E-01,.1713E-02,& - .4363E-03,.1041E-02,.2056E-02,.3684E-02,.5709E-02,.6980E-02,.6420E-02,.1113E-01,.2517E-01,.1730E-02,& - .4414E-03,.1052E-02,.2079E-02,.3722E-02,.5761E-02,.7043E-02,.6511E-02,.1128E-01,.2550E-01,.1747E-02,& - .4466E-03,.1063E-02,.2102E-02,.3760E-02,.5812E-02,.7106E-02,.6602E-02,.1142E-01,.2584E-01,.1765E-02,& - .4517E-03,.1074E-02,.2125E-02,.3798E-02,.5863E-02,.7169E-02,.6693E-02,.1157E-01,.2617E-01,.1783E-02,& - .4569E-03,.1085E-02,.2148E-02,.3836E-02,.5915E-02,.7232E-02,.6784E-02,.1172E-01,.2651E-01,.1800E-02,& - .4620E-03,.1096E-02,.2171E-02,.3874E-02,.5966E-02,.7295E-02,.6875E-02,.1186E-01,.2685E-01,.1818E-02,& - .4673E-03,.1107E-02,.2194E-02,.3914E-02,.6020E-02,.7361E-02,.6969E-02,.1201E-01,.2719E-01,.1836E-02,& - .4726E-03,.1119E-02,.2218E-02,.3953E-02,.6073E-02,.7427E-02,.7063E-02,.1216E-01,.2754E-01,.1854E-02,& - .4779E-03,.1130E-02,.2242E-02,.3992E-02,.6127E-02,.7493E-02,.7157E-02,.1232E-01,.2788E-01,.1872E-02,& - .4832E-03,.1142E-02,.2266E-02,.4032E-02,.6180E-02,.7558E-02,.7251E-02,.1247E-01,.2823E-01,.1890E-02,& - .4885E-03,.1153E-02,.2289E-02,.4071E-02,.6234E-02,.7624E-02,.7345E-02,.1262E-01,.2857E-01,.1909E-02,& - .4940E-03,.1165E-02,.2314E-02,.4112E-02,.6289E-02,.7693E-02,.7442E-02,.1277E-01,.2893E-01,.1927E-02,& - .4995E-03,.1177E-02,.2338E-02,.4153E-02,.6345E-02,.7762E-02,.7539E-02,.1293E-01,.2929E-01,.1946E-02,& - .5049E-03,.1188E-02,.2363E-02,.4194E-02,.6401E-02,.7830E-02,.7636E-02,.1309E-01,.2965E-01,.1965E-02,& - .5104E-03,.1200E-02,.2387E-02,.4235E-02,.6456E-02,.7899E-02,.7733E-02,.1324E-01,.3000E-01,.1984E-02,& - .5159E-03,.1212E-02,.2412E-02,.4275E-02,.6512E-02,.7968E-02,.7830E-02,.1340E-01,.3036E-01,.2002E-02,& - .5215E-03,.1224E-02,.2437E-02,.4318E-02,.6569E-02,.8039E-02,.7930E-02,.1356E-01,.3073E-01,.2022E-02,& - .5272E-03,.1236E-02,.2462E-02,.4360E-02,.6627E-02,.8110E-02,.8030E-02,.1372E-01,.3109E-01,.2041E-02,& - .5328E-03,.1248E-02,.2488E-02,.4402E-02,.6685E-02,.8182E-02,.8130E-02,.1388E-01,.3146E-01,.2060E-02,& - .5385E-03,.1261E-02,.2513E-02,.4444E-02,.6742E-02,.8253E-02,.8230E-02,.1404E-01,.3183E-01,.2080E-02,& - .5441E-03,.1273E-02,.2538E-02,.4486E-02,.6800E-02,.8324E-02,.8330E-02,.1420E-01,.3219E-01,.2099E-02,& - .5499E-03,.1285E-02,.2564E-02,.4530E-02,.6860E-02,.8399E-02,.8434E-02,.1437E-01,.3257E-01,.2119E-02,& - .5558E-03,.1298E-02,.2590E-02,.4574E-02,.6920E-02,.8473E-02,.8537E-02,.1453E-01,.3295E-01,.2139E-02,& - .5616E-03,.1310E-02,.2616E-02,.4617E-02,.6979E-02,.8547E-02,.8640E-02,.1470E-01,.3333E-01,.2159E-02,& - .5674E-03,.1323E-02,.2642E-02,.4661E-02,.7039E-02,.8622E-02,.8743E-02,.1486E-01,.3371E-01,.2179E-02,& - .5732E-03,.1335E-02,.2668E-02,.4704E-02,.7099E-02,.8696E-02,.8847E-02,.1503E-01,.3409E-01,.2199E-02,& - .5792E-03,.1348E-02,.2695E-02,.4749E-02,.7161E-02,.8772E-02,.8952E-02,.1520E-01,.3447E-01,.2219E-02,& - .5852E-03,.1361E-02,.2721E-02,.4794E-02,.7222E-02,.8849E-02,.9058E-02,.1537E-01,.3486E-01,.2240E-02,& - .5912E-03,.1374E-02,.2748E-02,.4839E-02,.7284E-02,.8925E-02,.9163E-02,.1554E-01,.3525E-01,.2261E-02,& - .5971E-03,.1387E-02,.2775E-02,.4884E-02,.7346E-02,.9001E-02,.9269E-02,.1570E-01,.3564E-01,.2281E-02,& - .6031E-03,.1400E-02,.2801E-02,.4929E-02,.7408E-02,.9078E-02,.9374E-02,.1587E-01,.3603E-01,.2302E-02,& - .6093E-03,.1413E-02,.2829E-02,.4975E-02,.7471E-02,.9158E-02,.9483E-02,.1605E-01,.3643E-01,.2323E-02,& - .6154E-03,.1427E-02,.2857E-02,.5022E-02,.7535E-02,.9237E-02,.9593E-02,.1622E-01,.3683E-01,.2344E-02,& - .6216E-03,.1440E-02,.2884E-02,.5068E-02,.7599E-02,.9317E-02,.9702E-02,.1640E-01,.3723E-01,.2365E-02,& - .6278E-03,.1453E-02,.2912E-02,.5114E-02,.7663E-02,.9397E-02,.9811E-02,.1658E-01,.3763E-01,.2387E-02,& - .6339E-03,.1467E-02,.2939E-02,.5161E-02,.7726E-02,.9477E-02,.9920E-02,.1675E-01,.3802E-01,.2408E-02,& - .6403E-03,.1480E-02,.2968E-02,.5209E-02,.7792E-02,.9559E-02,.1003E-01,.1693E-01,.3844E-01,.2430E-02,& - .6466E-03,.1494E-02,.2996E-02,.5256E-02,.7858E-02,.9641E-02,.1014E-01,.1711E-01,.3885E-01,.2451E-02,& - .6529E-03,.1507E-02,.3024E-02,.5304E-02,.7924E-02,.9723E-02,.1026E-01,.1729E-01,.3926E-01,.2473E-02,& - .6593E-03,.1521E-02,.3053E-02,.5352E-02,.7989E-02,.9805E-02,.1037E-01,.1747E-01,.3967E-01,.2495E-02,& - .6656E-03,.1535E-02,.3081E-02,.5400E-02,.8055E-02,.9887E-02,.1048E-01,.1765E-01,.4008E-01,.2517E-02,& - .6721E-03,.1549E-02,.3110E-02,.5449E-02,.8123E-02,.9971E-02,.1059E-01,.1783E-01,.4050E-01,.2539E-02,& - .6786E-03,.1563E-02,.3139E-02,.5498E-02,.8191E-02,.1006E-01,.1071E-01,.1802E-01,.4092E-01,.2562E-02,& - .6851E-03,.1577E-02,.3168E-02,.5547E-02,.8259E-02,.1014E-01,.1082E-01,.1820E-01,.4133E-01,.2584E-02,& - .6916E-03,.1591E-02,.3197E-02,.5596E-02,.8327E-02,.1023E-01,.1094E-01,.1838E-01,.4175E-01,.2607E-02,& - .6981E-03,.1605E-02,.3226E-02,.5645E-02,.8394E-02,.1031E-01,.1105E-01,.1857E-01,.4217E-01,.2629E-02,& - .7048E-03,.1619E-02,.3256E-02,.5695E-02,.8462E-02,.1040E-01,.1117E-01,.1876E-01,.4261E-01,.2652E-02,& - .7114E-03,.1634E-02,.3286E-02,.5744E-02,.8530E-02,.1048E-01,.1129E-01,.1895E-01,.4305E-01,.2674E-02,& - .7181E-03,.1648E-02,.3315E-02,.5794E-02,.8597E-02,.1056E-01,.1141E-01,.1914E-01,.4349E-01,.2697E-02,& - .7248E-03,.1662E-02,.3345E-02,.5844E-02,.8665E-02,.1065E-01,.1153E-01,.1933E-01,.4392E-01,.2719E-02,& - .7314E-03,.1676E-02,.3374E-02,.5894E-02,.8732E-02,.1073E-01,.1165E-01,.1952E-01,.4436E-01,.2742E-02,& - .7383E-03,.1691E-02,.3405E-02,.5945E-02,.8803E-02,.1082E-01,.1178E-01,.1972E-01,.4481E-01,.2765E-02,& - .7452E-03,.1706E-02,.3435E-02,.5996E-02,.8873E-02,.1091E-01,.1190E-01,.1991E-01,.4526E-01,.2789E-02,& - .7520E-03,.1720E-02,.3466E-02,.6047E-02,.8944E-02,.1100E-01,.1202E-01,.2011E-01,.4571E-01,.2812E-02,& - .7589E-03,.1735E-02,.3496E-02,.6099E-02,.9014E-02,.1109E-01,.1215E-01,.2031E-01,.4615E-01,.2835E-02,& - .7657E-03,.1750E-02,.3527E-02,.6150E-02,.9085E-02,.1117E-01,.1227E-01,.2050E-01,.4660E-01,.2858E-02,& - .7728E-03,.1765E-02,.3558E-02,.6203E-02,.9159E-02,.1127E-01,.1239E-01,.2070E-01,.4705E-01,.2883E-02,& - .7799E-03,.1780E-02,.3590E-02,.6257E-02,.9233E-02,.1136E-01,.1252E-01,.2090E-01,.4751E-01,.2907E-02,& - .7870E-03,.1795E-02,.3621E-02,.6310E-02,.9307E-02,.1145E-01,.1264E-01,.2110E-01,.4796E-01,.2931E-02,& - .7940E-03,.1810E-02,.3652E-02,.6364E-02,.9381E-02,.1155E-01,.1277E-01,.2129E-01,.4841E-01,.2956E-02,& - .8011E-03,.1825E-02,.3684E-02,.6417E-02,.9455E-02,.1164E-01,.1289E-01,.2149E-01,.4886E-01,.2980E-02,& - .8083E-03,.1841E-02,.3716E-02,.6471E-02,.9529E-02,.1173E-01,.1302E-01,.2170E-01,.4933E-01,.3005E-02,& - .8155E-03,.1857E-02,.3748E-02,.6526E-02,.9604E-02,.1183E-01,.1315E-01,.2190E-01,.4981E-01,.3029E-02,& - .8227E-03,.1872E-02,.3780E-02,.6580E-02,.9678E-02,.1192E-01,.1328E-01,.2211E-01,.5028E-01,.3054E-02,& - .8299E-03,.1888E-02,.3812E-02,.6634E-02,.9753E-02,.1202E-01,.1341E-01,.2232E-01,.5075E-01,.3078E-02,& - .8371E-03,.1903E-02,.3845E-02,.6688E-02,.9828E-02,.1211E-01,.1354E-01,.2252E-01,.5122E-01,.3103E-02,& - .8446E-03,.1919E-02,.3878E-02,.6744E-02,.9900E-02,.1220E-01,.1368E-01,.2274E-01,.5172E-01,.3128E-02,& - .8521E-03,.1935E-02,.3910E-02,.6799E-02,.9973E-02,.1229E-01,.1382E-01,.2296E-01,.5222E-01,.3152E-02,& - .8596E-03,.1950E-02,.3943E-02,.6854E-02,.1005E-01,.1239E-01,.1396E-01,.2318E-01,.5273E-01,.3177E-02,& - .8671E-03,.1966E-02,.3976E-02,.6909E-02,.1012E-01,.1248E-01,.1410E-01,.2340E-01,.5323E-01,.3202E-02,& - .8746E-03,.1982E-02,.4009E-02,.6964E-02,.1019E-01,.1257E-01,.1423E-01,.2362E-01,.5373E-01,.3226E-02,& - .8825E-03,.1998E-02,.4043E-02,.7021E-02,.1027E-01,.1267E-01,.1439E-01,.2385E-01,.5427E-01,.3251E-02,& - .8903E-03,.2014E-02,.4077E-02,.7077E-02,.1034E-01,.1277E-01,.1454E-01,.2408E-01,.5481E-01,.3277E-02,& - .8982E-03,.2030E-02,.4112E-02,.7134E-02,.1042E-01,.1286E-01,.1469E-01,.2432E-01,.5534E-01,.3302E-02,& - .9061E-03,.2046E-02,.4146E-02,.7191E-02,.1049E-01,.1296E-01,.1484E-01,.2455E-01,.5588E-01,.3327E-02,& - .9140E-03,.2063E-02,.4180E-02,.7248E-02,.1056E-01,.1305E-01,.1499E-01,.2479E-01,.5642E-01,.3352E-02,& - .9219E-03,.2079E-02,.4215E-02,.7306E-02,.1064E-01,.1315E-01,.1515E-01,.2503E-01,.5699E-01,.3378E-02,& - .9303E-03,.2096E-02,.4251E-02,.7365E-02,.1072E-01,.1325E-01,.1531E-01,.2528E-01,.5756E-01,.3404E-02,& - .9387E-03,.2113E-02,.4287E-02,.7425E-02,.1079E-01,.1335E-01,.1548E-01,.2553E-01,.5813E-01,.3430E-02,& - .9471E-03,.2130E-02,.4323E-02,.7485E-02,.1087E-01,.1345E-01,.1563E-01,.2578E-01,.5871E-01,.3457E-02,& - .9557E-03,.2147E-02,.4360E-02,.7546E-02,.1095E-01,.1355E-01,.1581E-01,.2604E-01,.5932E-01,.3484E-02,& - .9644E-03,.2165E-02,.4398E-02,.7609E-02,.1103E-01,.1366E-01,.1599E-01,.2631E-01,.5994E-01,.3511E-02,& - .9735E-03,.2183E-02,.4437E-02,.7673E-02,.1111E-01,.1376E-01,.1618E-01,.2659E-01,.6060E-01,.3538E-02,& - .9828E-03,.2201E-02,.4477E-02,.7738E-02,.1119E-01,.1387E-01,.1636E-01,.2688E-01,.6126E-01,.3567E-02,& - .9926E-03,.2220E-02,.4518E-02,.7805E-02,.1127E-01,.1398E-01,.1656E-01,.2718E-01,.6196E-01,.3595E-02,& - .1002E-02,.2240E-02,.4559E-02,.7874E-02,.1136E-01,.1409E-01,.1676E-01,.2749E-01,.6266E-01,.3625E-02,& - .1013E-02,.2260E-02,.4603E-02,.7945E-02,.1145E-01,.1421E-01,.1697E-01,.2780E-01,.6340E-01,.3655E-02,& - .1023E-02,.2280E-02,.4647E-02,.8019E-02,.1154E-01,.1434E-01,.1719E-01,.2814E-01,.6417E-01,.3687E-02,& - .1035E-02,.2303E-02,.4696E-02,.8099E-02,.1164E-01,.1447E-01,.1744E-01,.2850E-01,.6502E-01,.3721E-02,& - .1047E-02,.2326E-02,.4746E-02,.8182E-02,.1173E-01,.1461E-01,.1769E-01,.2887E-01,.6589E-01,.3756E-02,& - .1060E-02,.2352E-02,.4802E-02,.8275E-02,.1185E-01,.1476E-01,.1797E-01,.2930E-01,.6689E-01,.3794E-02,& - .1075E-02,.2380E-02,.4865E-02,.8379E-02,.1198E-01,.1494E-01,.1829E-01,.2978E-01,.6800E-01,.3838E-02,& - .1091E-02,.2412E-02,.4933E-02,.8492E-02,.1212E-01,.1513E-01,.1863E-01,.3028E-01,.6919E-01,.3886E-02,& - .1112E-02,.2452E-02,.5021E-02,.8639E-02,.1230E-01,.1538E-01,.1907E-01,.3094E-01,.7072E-01,.3947E-02,& - .1139E-02,.2506E-02,.5137E-02,.8835E-02,.1255E-01,.1572E-01,.1963E-01,.3179E-01,.7270E-01,.4030E-02/ - data (((g_lw(ai,k,nh),ai= 5, 5),k=1,nwl_lw),nh=0,99)/ & - .1481E+00,.2519E+00,.3517E+00,.4244E+00,.4530E+00,.4774E+00,.5189E+00,.5612E+00,.6172E+00,.3172E+00,& - .1497E+00,.2526E+00,.3520E+00,.4269E+00,.4564E+00,.4808E+00,.5221E+00,.5645E+00,.6203E+00,.3173E+00,& - .1513E+00,.2533E+00,.3523E+00,.4293E+00,.4598E+00,.4842E+00,.5252E+00,.5678E+00,.6234E+00,.3175E+00,& - .1529E+00,.2541E+00,.3526E+00,.4317E+00,.4632E+00,.4877E+00,.5283E+00,.5711E+00,.6265E+00,.3176E+00,& - .1545E+00,.2548E+00,.3529E+00,.4342E+00,.4666E+00,.4911E+00,.5315E+00,.5744E+00,.6296E+00,.3177E+00,& - .1561E+00,.2556E+00,.3532E+00,.4366E+00,.4700E+00,.4946E+00,.5346E+00,.5777E+00,.6326E+00,.3178E+00,& - .1577E+00,.2565E+00,.3537E+00,.4389E+00,.4732E+00,.4978E+00,.5375E+00,.5807E+00,.6354E+00,.3182E+00,& - .1593E+00,.2574E+00,.3542E+00,.4412E+00,.4763E+00,.5010E+00,.5404E+00,.5836E+00,.6381E+00,.3186E+00,& - .1609E+00,.2583E+00,.3547E+00,.4435E+00,.4795E+00,.5042E+00,.5433E+00,.5866E+00,.6408E+00,.3190E+00,& - .1625E+00,.2593E+00,.3552E+00,.4458E+00,.4827E+00,.5074E+00,.5462E+00,.5895E+00,.6436E+00,.3194E+00,& - .1641E+00,.2602E+00,.3557E+00,.4481E+00,.4859E+00,.5106E+00,.5491E+00,.5925E+00,.6463E+00,.3198E+00,& - .1657E+00,.2613E+00,.3564E+00,.4503E+00,.4889E+00,.5136E+00,.5519E+00,.5952E+00,.6487E+00,.3205E+00,& - .1673E+00,.2623E+00,.3572E+00,.4525E+00,.4919E+00,.5166E+00,.5546E+00,.5979E+00,.6512E+00,.3211E+00,& - .1689E+00,.2634E+00,.3579E+00,.4547E+00,.4949E+00,.5197E+00,.5574E+00,.6006E+00,.6536E+00,.3218E+00,& - .1705E+00,.2645E+00,.3586E+00,.4570E+00,.4979E+00,.5227E+00,.5601E+00,.6033E+00,.6560E+00,.3225E+00,& - .1721E+00,.2656E+00,.3594E+00,.4592E+00,.5010E+00,.5257E+00,.5628E+00,.6060E+00,.6585E+00,.3231E+00,& - .1737E+00,.2667E+00,.3603E+00,.4613E+00,.5038E+00,.5285E+00,.5654E+00,.6085E+00,.6606E+00,.3240E+00,& - .1752E+00,.2679E+00,.3613E+00,.4635E+00,.5066E+00,.5314E+00,.5679E+00,.6109E+00,.6628E+00,.3248E+00,& - .1768E+00,.2690E+00,.3622E+00,.4657E+00,.5095E+00,.5342E+00,.5705E+00,.6134E+00,.6649E+00,.3256E+00,& - .1784E+00,.2702E+00,.3631E+00,.4678E+00,.5123E+00,.5370E+00,.5730E+00,.6159E+00,.6670E+00,.3265E+00,& - .1800E+00,.2714E+00,.3641E+00,.4700E+00,.5151E+00,.5398E+00,.5756E+00,.6184E+00,.6692E+00,.3273E+00,& - .1815E+00,.2726E+00,.3652E+00,.4722E+00,.5178E+00,.5425E+00,.5780E+00,.6207E+00,.6712E+00,.3283E+00,& - .1831E+00,.2739E+00,.3662E+00,.4743E+00,.5205E+00,.5452E+00,.5804E+00,.6230E+00,.6731E+00,.3293E+00,& - .1846E+00,.2751E+00,.3673E+00,.4764E+00,.5232E+00,.5479E+00,.5828E+00,.6253E+00,.6751E+00,.3303E+00,& - .1862E+00,.2763E+00,.3684E+00,.4786E+00,.5259E+00,.5506E+00,.5853E+00,.6276E+00,.6770E+00,.3313E+00,& - .1877E+00,.2776E+00,.3695E+00,.4807E+00,.5286E+00,.5533E+00,.5877E+00,.6299E+00,.6790E+00,.3323E+00,& - .1893E+00,.2789E+00,.3707E+00,.4828E+00,.5312E+00,.5558E+00,.5899E+00,.6320E+00,.6807E+00,.3334E+00,& - .1908E+00,.2801E+00,.3719E+00,.4849E+00,.5338E+00,.5583E+00,.5922E+00,.6341E+00,.6825E+00,.3345E+00,& - .1923E+00,.2814E+00,.3731E+00,.4870E+00,.5363E+00,.5608E+00,.5944E+00,.6362E+00,.6842E+00,.3356E+00,& - .1939E+00,.2827E+00,.3743E+00,.4891E+00,.5389E+00,.5633E+00,.5967E+00,.6383E+00,.6860E+00,.3367E+00,& - .1954E+00,.2840E+00,.3755E+00,.4912E+00,.5414E+00,.5659E+00,.5990E+00,.6405E+00,.6877E+00,.3378E+00,& - .1969E+00,.2853E+00,.3767E+00,.4933E+00,.5439E+00,.5682E+00,.6011E+00,.6425E+00,.6893E+00,.3389E+00,& - .1984E+00,.2866E+00,.3780E+00,.4953E+00,.5463E+00,.5706E+00,.6032E+00,.6445E+00,.6909E+00,.3401E+00,& - .1999E+00,.2879E+00,.3793E+00,.4974E+00,.5487E+00,.5730E+00,.6054E+00,.6464E+00,.6925E+00,.3413E+00,& - .2014E+00,.2892E+00,.3806E+00,.4995E+00,.5512E+00,.5754E+00,.6075E+00,.6484E+00,.6941E+00,.3425E+00,& - .2029E+00,.2905E+00,.3819E+00,.5015E+00,.5536E+00,.5778E+00,.6096E+00,.6504E+00,.6957E+00,.3436E+00,& - .2044E+00,.2918E+00,.3832E+00,.5035E+00,.5559E+00,.5800E+00,.6116E+00,.6523E+00,.6971E+00,.3449E+00,& - .2058E+00,.2931E+00,.3845E+00,.5055E+00,.5582E+00,.5823E+00,.6136E+00,.6541E+00,.6986E+00,.3461E+00,& - .2073E+00,.2945E+00,.3858E+00,.5075E+00,.5605E+00,.5845E+00,.6156E+00,.6559E+00,.7000E+00,.3473E+00,& - .2088E+00,.2958E+00,.3871E+00,.5095E+00,.5628E+00,.5868E+00,.6176E+00,.6578E+00,.7014E+00,.3485E+00,& - .2103E+00,.2971E+00,.3884E+00,.5115E+00,.5652E+00,.5890E+00,.6196E+00,.6596E+00,.7028E+00,.3497E+00,& - .2117E+00,.2984E+00,.3898E+00,.5135E+00,.5674E+00,.5912E+00,.6215E+00,.6614E+00,.7042E+00,.3510E+00,& - .2132E+00,.2998E+00,.3912E+00,.5155E+00,.5696E+00,.5933E+00,.6234E+00,.6631E+00,.7055E+00,.3523E+00,& - .2146E+00,.3011E+00,.3925E+00,.5174E+00,.5718E+00,.5954E+00,.6253E+00,.6648E+00,.7069E+00,.3535E+00,& - .2161E+00,.3024E+00,.3939E+00,.5194E+00,.5740E+00,.5976E+00,.6272E+00,.6666E+00,.7082E+00,.3548E+00,& - .2175E+00,.3038E+00,.3953E+00,.5214E+00,.5763E+00,.5997E+00,.6291E+00,.6683E+00,.7095E+00,.3561E+00,& - .2189E+00,.3051E+00,.3967E+00,.5233E+00,.5783E+00,.6017E+00,.6309E+00,.6699E+00,.7107E+00,.3573E+00,& - .2204E+00,.3064E+00,.3980E+00,.5252E+00,.5804E+00,.6038E+00,.6327E+00,.6715E+00,.7119E+00,.3586E+00,& - .2218E+00,.3077E+00,.3994E+00,.5271E+00,.5825E+00,.6058E+00,.6345E+00,.6731E+00,.7131E+00,.3599E+00,& - .2232E+00,.3091E+00,.4008E+00,.5290E+00,.5846E+00,.6078E+00,.6363E+00,.6748E+00,.7143E+00,.3612E+00,& - .2246E+00,.3104E+00,.4022E+00,.5310E+00,.5867E+00,.6098E+00,.6381E+00,.6764E+00,.7155E+00,.3624E+00,& - .2257E+00,.3115E+00,.4033E+00,.5325E+00,.5884E+00,.6114E+00,.6395E+00,.6776E+00,.7164E+00,.3635E+00,& - .2269E+00,.3126E+00,.4045E+00,.5341E+00,.5900E+00,.6130E+00,.6409E+00,.6789E+00,.7173E+00,.3646E+00,& - .2281E+00,.3137E+00,.4056E+00,.5356E+00,.5917E+00,.6146E+00,.6423E+00,.6802E+00,.7182E+00,.3656E+00,& - .2292E+00,.3148E+00,.4068E+00,.5372E+00,.5934E+00,.6162E+00,.6437E+00,.6815E+00,.7191E+00,.3667E+00,& - .2304E+00,.3159E+00,.4079E+00,.5387E+00,.5951E+00,.6178E+00,.6451E+00,.6827E+00,.7201E+00,.3678E+00,& - .2315E+00,.3169E+00,.4091E+00,.5403E+00,.5967E+00,.6193E+00,.6464E+00,.6839E+00,.7210E+00,.3689E+00,& - .2327E+00,.3180E+00,.4102E+00,.5418E+00,.5983E+00,.6208E+00,.6478E+00,.6851E+00,.7219E+00,.3699E+00,& - .2338E+00,.3191E+00,.4114E+00,.5433E+00,.5999E+00,.6223E+00,.6491E+00,.6864E+00,.7228E+00,.3710E+00,& - .2349E+00,.3202E+00,.4126E+00,.5448E+00,.6015E+00,.6239E+00,.6505E+00,.6876E+00,.7237E+00,.3721E+00,& - .2361E+00,.3213E+00,.4137E+00,.5463E+00,.6031E+00,.6254E+00,.6518E+00,.6888E+00,.7246E+00,.3732E+00,& - .2372E+00,.3224E+00,.4149E+00,.5478E+00,.6046E+00,.6268E+00,.6531E+00,.6899E+00,.7253E+00,.3742E+00,& - .2383E+00,.3235E+00,.4160E+00,.5493E+00,.6062E+00,.6283E+00,.6544E+00,.6911E+00,.7261E+00,.3753E+00,& - .2394E+00,.3245E+00,.4172E+00,.5508E+00,.6077E+00,.6297E+00,.6557E+00,.6922E+00,.7269E+00,.3764E+00,& - .2405E+00,.3256E+00,.4183E+00,.5522E+00,.6092E+00,.6312E+00,.6569E+00,.6933E+00,.7277E+00,.3775E+00,& - .2416E+00,.3267E+00,.4195E+00,.5537E+00,.6108E+00,.6326E+00,.6582E+00,.6945E+00,.7284E+00,.3785E+00,& - .2427E+00,.3277E+00,.4206E+00,.5552E+00,.6123E+00,.6340E+00,.6594E+00,.6956E+00,.7292E+00,.3796E+00,& - .2438E+00,.3288E+00,.4217E+00,.5566E+00,.6137E+00,.6354E+00,.6607E+00,.6967E+00,.7299E+00,.3807E+00,& - .2449E+00,.3299E+00,.4229E+00,.5581E+00,.6152E+00,.6368E+00,.6619E+00,.6977E+00,.7307E+00,.3817E+00,& - .2460E+00,.3309E+00,.4240E+00,.5595E+00,.6167E+00,.6382E+00,.6631E+00,.6988E+00,.7314E+00,.3828E+00,& - .2471E+00,.3320E+00,.4252E+00,.5609E+00,.6182E+00,.6396E+00,.6643E+00,.6999E+00,.7322E+00,.3839E+00,& - .2488E+00,.3337E+00,.4270E+00,.5632E+00,.6205E+00,.6417E+00,.6662E+00,.7016E+00,.7333E+00,.3856E+00,& - .2506E+00,.3354E+00,.4289E+00,.5655E+00,.6228E+00,.6439E+00,.6681E+00,.7032E+00,.7345E+00,.3873E+00,& - .2523E+00,.3371E+00,.4307E+00,.5677E+00,.6250E+00,.6460E+00,.6700E+00,.7049E+00,.7356E+00,.3890E+00,& - .2540E+00,.3388E+00,.4325E+00,.5700E+00,.6273E+00,.6481E+00,.6718E+00,.7066E+00,.7368E+00,.3908E+00,& - .2558E+00,.3405E+00,.4343E+00,.5722E+00,.6296E+00,.6503E+00,.6737E+00,.7082E+00,.7379E+00,.3925E+00,& - .2578E+00,.3426E+00,.4366E+00,.5749E+00,.6322E+00,.6527E+00,.6759E+00,.7101E+00,.7392E+00,.3946E+00,& - .2599E+00,.3446E+00,.4388E+00,.5776E+00,.6349E+00,.6551E+00,.6780E+00,.7120E+00,.7404E+00,.3967E+00,& - .2620E+00,.3467E+00,.4411E+00,.5803E+00,.6375E+00,.6576E+00,.6801E+00,.7139E+00,.7416E+00,.3988E+00,& - .2640E+00,.3487E+00,.4433E+00,.5829E+00,.6401E+00,.6600E+00,.6823E+00,.7157E+00,.7429E+00,.4008E+00,& - .2661E+00,.3508E+00,.4455E+00,.5856E+00,.6428E+00,.6625E+00,.6844E+00,.7176E+00,.7441E+00,.4029E+00,& - .2686E+00,.3532E+00,.4482E+00,.5887E+00,.6458E+00,.6653E+00,.6869E+00,.7198E+00,.7456E+00,.4054E+00,& - .2719E+00,.3566E+00,.4518E+00,.5930E+00,.6499E+00,.6691E+00,.6902E+00,.7226E+00,.7474E+00,.4088E+00,& - .2748E+00,.3594E+00,.4549E+00,.5966E+00,.6534E+00,.6723E+00,.6930E+00,.7250E+00,.7488E+00,.4118E+00,& - .2776E+00,.3622E+00,.4580E+00,.6001E+00,.6568E+00,.6754E+00,.6956E+00,.7274E+00,.7502E+00,.4147E+00,& - .2817E+00,.3664E+00,.4626E+00,.6053E+00,.6617E+00,.6799E+00,.6996E+00,.7308E+00,.7524E+00,.4190E+00,& - .2850E+00,.3696E+00,.4661E+00,.6093E+00,.6655E+00,.6833E+00,.7026E+00,.7334E+00,.7542E+00,.4223E+00,& - .2890E+00,.3737E+00,.4706E+00,.6143E+00,.6702E+00,.6876E+00,.7063E+00,.7366E+00,.7562E+00,.4266E+00,& - .2930E+00,.3778E+00,.4750E+00,.6192E+00,.6748E+00,.6917E+00,.7099E+00,.7397E+00,.7578E+00,.4308E+00,& - .2974E+00,.3822E+00,.4798E+00,.6246E+00,.6797E+00,.6962E+00,.7137E+00,.7430E+00,.7597E+00,.4353E+00,& - .3030E+00,.3879E+00,.4860E+00,.6313E+00,.6858E+00,.7017E+00,.7185E+00,.7471E+00,.7624E+00,.4412E+00,& - .3085E+00,.3934E+00,.4921E+00,.6378E+00,.6918E+00,.7070E+00,.7231E+00,.7511E+00,.7647E+00,.4470E+00,& - .3159E+00,.4009E+00,.5003E+00,.6465E+00,.6995E+00,.7140E+00,.7291E+00,.7562E+00,.7673E+00,.4548E+00,& - .3235E+00,.4086E+00,.5088E+00,.6553E+00,.7073E+00,.7210E+00,.7351E+00,.7613E+00,.7706E+00,.4629E+00,& - .3332E+00,.4185E+00,.5195E+00,.6663E+00,.7169E+00,.7295E+00,.7424E+00,.7674E+00,.7734E+00,.4732E+00,& - .3455E+00,.4310E+00,.5330E+00,.6799E+00,.7286E+00,.7398E+00,.7513E+00,.7749E+00,.7778E+00,.4862E+00,& - .3593E+00,.4449E+00,.5481E+00,.6947E+00,.7410E+00,.7507E+00,.7606E+00,.7828E+00,.7820E+00,.5008E+00,& - .3811E+00,.4669E+00,.5716E+00,.7169E+00,.7593E+00,.7666E+00,.7742E+00,.7941E+00,.7874E+00,.5236E+00,& - .4082E+00,.4942E+00,.6004E+00,.7430E+00,.7800E+00,.7845E+00,.7893E+00,.8066E+00,.7923E+00,.5520E+00,& - .4573E+00,.5429E+00,.6504E+00,.7853E+00,.8124E+00,.8121E+00,.8126E+00,.8257E+00,.8006E+00,.6021E+00/ - data (((g_lw(ai,k,nh),ai= 6, 6),k=1,nwl_lw),nh=0,99)/ & - .4938E+00,.6006E+00,.7052E+00,.7149E+00,.6782E+00,.7073E+00,.7647E+00,.7410E+00,.7147E+00,.6475E+00,& - .4978E+00,.6046E+00,.7123E+00,.7238E+00,.6855E+00,.7127E+00,.7685E+00,.7465E+00,.7177E+00,.6538E+00,& - .5019E+00,.6086E+00,.7194E+00,.7328E+00,.6927E+00,.7182E+00,.7723E+00,.7519E+00,.7207E+00,.6601E+00,& - .5059E+00,.6127E+00,.7265E+00,.7418E+00,.7000E+00,.7236E+00,.7761E+00,.7573E+00,.7238E+00,.6664E+00,& - .5099E+00,.6167E+00,.7336E+00,.7507E+00,.7073E+00,.7290E+00,.7799E+00,.7627E+00,.7268E+00,.6728E+00,& - .5140E+00,.6207E+00,.7407E+00,.7597E+00,.7146E+00,.7344E+00,.7837E+00,.7681E+00,.7298E+00,.6791E+00,& - .5176E+00,.6239E+00,.7446E+00,.7658E+00,.7204E+00,.7389E+00,.7862E+00,.7717E+00,.7333E+00,.6832E+00,& - .5212E+00,.6271E+00,.7485E+00,.7720E+00,.7263E+00,.7433E+00,.7887E+00,.7752E+00,.7367E+00,.6874E+00,& - .5248E+00,.6303E+00,.7524E+00,.7782E+00,.7321E+00,.7477E+00,.7912E+00,.7788E+00,.7402E+00,.6916E+00,& - .5285E+00,.6336E+00,.7563E+00,.7843E+00,.7380E+00,.7522E+00,.7937E+00,.7824E+00,.7436E+00,.6957E+00,& - .5321E+00,.6368E+00,.7602E+00,.7905E+00,.7438E+00,.7566E+00,.7962E+00,.7859E+00,.7471E+00,.6999E+00,& - .5354E+00,.6395E+00,.7628E+00,.7950E+00,.7486E+00,.7602E+00,.7987E+00,.7890E+00,.7487E+00,.7030E+00,& - .5387E+00,.6422E+00,.7654E+00,.7995E+00,.7534E+00,.7638E+00,.8011E+00,.7921E+00,.7502E+00,.7061E+00,& - .5420E+00,.6450E+00,.7680E+00,.8040E+00,.7582E+00,.7674E+00,.8035E+00,.7952E+00,.7518E+00,.7092E+00,& - .5453E+00,.6477E+00,.7706E+00,.8085E+00,.7630E+00,.7710E+00,.8059E+00,.7982E+00,.7534E+00,.7123E+00,& - .5486E+00,.6504E+00,.7732E+00,.8131E+00,.7677E+00,.7747E+00,.8083E+00,.8013E+00,.7549E+00,.7154E+00,& - .5516E+00,.6528E+00,.7752E+00,.8165E+00,.7716E+00,.7778E+00,.8100E+00,.8035E+00,.7574E+00,.7178E+00,& - .5546E+00,.6552E+00,.7772E+00,.8199E+00,.7755E+00,.7810E+00,.8117E+00,.8057E+00,.7599E+00,.7203E+00,& - .5576E+00,.6576E+00,.7791E+00,.8233E+00,.7794E+00,.7842E+00,.8134E+00,.8078E+00,.7625E+00,.7228E+00,& - .5606E+00,.6600E+00,.7811E+00,.8267E+00,.7833E+00,.7874E+00,.8151E+00,.8100E+00,.7650E+00,.7252E+00,& - .5636E+00,.6624E+00,.7830E+00,.8301E+00,.7871E+00,.7906E+00,.8168E+00,.8122E+00,.7675E+00,.7277E+00,& - .5663E+00,.6645E+00,.7846E+00,.8328E+00,.7904E+00,.7931E+00,.8184E+00,.8142E+00,.7685E+00,.7298E+00,& - .5691E+00,.6667E+00,.7862E+00,.8355E+00,.7936E+00,.7955E+00,.8201E+00,.8162E+00,.7696E+00,.7319E+00,& - .5718E+00,.6688E+00,.7878E+00,.8383E+00,.7969E+00,.7980E+00,.8218E+00,.8182E+00,.7707E+00,.7339E+00,& - .5746E+00,.6709E+00,.7894E+00,.8410E+00,.8002E+00,.8004E+00,.8235E+00,.8202E+00,.7718E+00,.7360E+00,& - .5773E+00,.6731E+00,.7910E+00,.8437E+00,.8034E+00,.8029E+00,.8251E+00,.8222E+00,.7728E+00,.7381E+00,& - .5798E+00,.6750E+00,.7924E+00,.8459E+00,.8061E+00,.8052E+00,.8263E+00,.8237E+00,.7744E+00,.7399E+00,& - .5823E+00,.6770E+00,.7938E+00,.8481E+00,.8088E+00,.8074E+00,.8275E+00,.8251E+00,.7760E+00,.7417E+00,& - .5849E+00,.6789E+00,.7952E+00,.8503E+00,.8115E+00,.8097E+00,.8287E+00,.8266E+00,.7776E+00,.7435E+00,& - .5874E+00,.6809E+00,.7965E+00,.8525E+00,.8142E+00,.8120E+00,.8298E+00,.8280E+00,.7792E+00,.7453E+00,& - .5899E+00,.6828E+00,.7979E+00,.8547E+00,.8169E+00,.8142E+00,.8310E+00,.8295E+00,.7808E+00,.7471E+00,& - .5922E+00,.6846E+00,.7991E+00,.8565E+00,.8192E+00,.8161E+00,.8323E+00,.8309E+00,.7821E+00,.7487E+00,& - .5946E+00,.6864E+00,.8003E+00,.8583E+00,.8214E+00,.8179E+00,.8335E+00,.8323E+00,.7834E+00,.7503E+00,& - .5969E+00,.6882E+00,.8016E+00,.8601E+00,.8237E+00,.8197E+00,.8348E+00,.8337E+00,.7847E+00,.7519E+00,& - .5992E+00,.6900E+00,.8028E+00,.8619E+00,.8260E+00,.8216E+00,.8361E+00,.8351E+00,.7860E+00,.7535E+00,& - .6016E+00,.6917E+00,.8040E+00,.8638E+00,.8282E+00,.8234E+00,.8373E+00,.8365E+00,.7874E+00,.7551E+00,& - .6037E+00,.6934E+00,.8051E+00,.8653E+00,.8302E+00,.8250E+00,.8382E+00,.8376E+00,.7880E+00,.7566E+00,& - .6059E+00,.6951E+00,.8062E+00,.8668E+00,.8322E+00,.8266E+00,.8390E+00,.8386E+00,.7887E+00,.7580E+00,& - .6080E+00,.6967E+00,.8073E+00,.8684E+00,.8341E+00,.8282E+00,.8399E+00,.8397E+00,.7893E+00,.7595E+00,& - .6102E+00,.6984E+00,.8084E+00,.8699E+00,.8361E+00,.8298E+00,.8407E+00,.8407E+00,.7900E+00,.7609E+00,& - .6124E+00,.7001E+00,.8095E+00,.8714E+00,.8381E+00,.8314E+00,.8416E+00,.8418E+00,.7906E+00,.7624E+00,& - .6144E+00,.7016E+00,.8105E+00,.8728E+00,.8397E+00,.8328E+00,.8425E+00,.8428E+00,.7919E+00,.7637E+00,& - .6164E+00,.7031E+00,.8116E+00,.8741E+00,.8414E+00,.8342E+00,.8435E+00,.8438E+00,.7932E+00,.7651E+00,& - .6184E+00,.7047E+00,.8126E+00,.8754E+00,.8430E+00,.8357E+00,.8444E+00,.8448E+00,.7945E+00,.7664E+00,& - .6204E+00,.7062E+00,.8136E+00,.8767E+00,.8447E+00,.8371E+00,.8453E+00,.8458E+00,.7958E+00,.7677E+00,& - .6224E+00,.7078E+00,.8146E+00,.8780E+00,.8463E+00,.8385E+00,.8463E+00,.8468E+00,.7971E+00,.7691E+00,& - .6243E+00,.7092E+00,.8156E+00,.8792E+00,.8478E+00,.8397E+00,.8470E+00,.8477E+00,.7975E+00,.7703E+00,& - .6262E+00,.7107E+00,.8165E+00,.8803E+00,.8492E+00,.8409E+00,.8477E+00,.8486E+00,.7978E+00,.7715E+00,& - .6280E+00,.7121E+00,.8174E+00,.8815E+00,.8507E+00,.8421E+00,.8484E+00,.8495E+00,.7982E+00,.7727E+00,& - .6299E+00,.7136E+00,.8184E+00,.8826E+00,.8521E+00,.8433E+00,.8492E+00,.8504E+00,.7985E+00,.7740E+00,& - .6318E+00,.7150E+00,.8193E+00,.8838E+00,.8536E+00,.8444E+00,.8499E+00,.8513E+00,.7989E+00,.7752E+00,& - .6332E+00,.7161E+00,.8201E+00,.8846E+00,.8546E+00,.8453E+00,.8504E+00,.8519E+00,.7998E+00,.7761E+00,& - .6346E+00,.7172E+00,.8208E+00,.8854E+00,.8557E+00,.8462E+00,.8509E+00,.8524E+00,.8007E+00,.7771E+00,& - .6361E+00,.7184E+00,.8215E+00,.8863E+00,.8568E+00,.8471E+00,.8515E+00,.8530E+00,.8015E+00,.7780E+00,& - .6375E+00,.7195E+00,.8222E+00,.8871E+00,.8578E+00,.8480E+00,.8520E+00,.8535E+00,.8024E+00,.7790E+00,& - .6390E+00,.7206E+00,.8230E+00,.8879E+00,.8589E+00,.8489E+00,.8525E+00,.8540E+00,.8033E+00,.7799E+00,& - .6403E+00,.7217E+00,.8237E+00,.8887E+00,.8598E+00,.8497E+00,.8531E+00,.8546E+00,.8040E+00,.7808E+00,& - .6417E+00,.7227E+00,.8244E+00,.8894E+00,.8607E+00,.8505E+00,.8536E+00,.8552E+00,.8048E+00,.7817E+00,& - .6431E+00,.7238E+00,.8251E+00,.8902E+00,.8617E+00,.8513E+00,.8542E+00,.8558E+00,.8055E+00,.7826E+00,& - .6444E+00,.7248E+00,.8258E+00,.8910E+00,.8626E+00,.8521E+00,.8548E+00,.8564E+00,.8062E+00,.7835E+00,& - .6458E+00,.7259E+00,.8265E+00,.8917E+00,.8635E+00,.8529E+00,.8553E+00,.8570E+00,.8070E+00,.7844E+00,& - .6471E+00,.7269E+00,.8271E+00,.8924E+00,.8644E+00,.8536E+00,.8558E+00,.8576E+00,.8071E+00,.7853E+00,& - .6484E+00,.7279E+00,.8278E+00,.8931E+00,.8652E+00,.8544E+00,.8563E+00,.8582E+00,.8073E+00,.7861E+00,& - .6497E+00,.7289E+00,.8284E+00,.8938E+00,.8661E+00,.8551E+00,.8568E+00,.8587E+00,.8075E+00,.7870E+00,& - .6510E+00,.7299E+00,.8291E+00,.8945E+00,.8669E+00,.8558E+00,.8572E+00,.8593E+00,.8076E+00,.7878E+00,& - .6523E+00,.7310E+00,.8298E+00,.8951E+00,.8678E+00,.8565E+00,.8577E+00,.8599E+00,.8078E+00,.7887E+00,& - .6535E+00,.7319E+00,.8304E+00,.8958E+00,.8685E+00,.8571E+00,.8581E+00,.8603E+00,.8083E+00,.7895E+00,& - .6548E+00,.7329E+00,.8310E+00,.8964E+00,.8693E+00,.8578E+00,.8584E+00,.8607E+00,.8088E+00,.7903E+00,& - .6560E+00,.7338E+00,.8316E+00,.8970E+00,.8701E+00,.8585E+00,.8588E+00,.8611E+00,.8094E+00,.7911E+00,& - .6572E+00,.7348E+00,.8323E+00,.8977E+00,.8709E+00,.8591E+00,.8592E+00,.8615E+00,.8099E+00,.7919E+00,& - .6585E+00,.7358E+00,.8329E+00,.8983E+00,.8717E+00,.8598E+00,.8595E+00,.8619E+00,.8104E+00,.7927E+00,& - .6602E+00,.7371E+00,.8338E+00,.8992E+00,.8727E+00,.8607E+00,.8602E+00,.8626E+00,.8114E+00,.7938E+00,& - .6620E+00,.7385E+00,.8347E+00,.9000E+00,.8737E+00,.8616E+00,.8608E+00,.8633E+00,.8125E+00,.7949E+00,& - .6637E+00,.7399E+00,.8356E+00,.9008E+00,.8747E+00,.8625E+00,.8615E+00,.8639E+00,.8135E+00,.7961E+00,& - .6654E+00,.7412E+00,.8364E+00,.9017E+00,.8757E+00,.8633E+00,.8621E+00,.8646E+00,.8145E+00,.7972E+00,& - .6672E+00,.7426E+00,.8373E+00,.9025E+00,.8768E+00,.8642E+00,.8628E+00,.8653E+00,.8155E+00,.7983E+00,& - .6695E+00,.7444E+00,.8385E+00,.9036E+00,.8780E+00,.8653E+00,.8635E+00,.8661E+00,.8161E+00,.7998E+00,& - .6719E+00,.7463E+00,.8397E+00,.9047E+00,.8793E+00,.8664E+00,.8642E+00,.8669E+00,.8167E+00,.8014E+00,& - .6742E+00,.7481E+00,.8409E+00,.9058E+00,.8806E+00,.8675E+00,.8648E+00,.8677E+00,.8173E+00,.8029E+00,& - .6765E+00,.7500E+00,.8421E+00,.9068E+00,.8819E+00,.8686E+00,.8655E+00,.8685E+00,.8179E+00,.8044E+00,& - .6789E+00,.7518E+00,.8433E+00,.9079E+00,.8831E+00,.8697E+00,.8662E+00,.8693E+00,.8186E+00,.8059E+00,& - .6812E+00,.7537E+00,.8445E+00,.9090E+00,.8843E+00,.8708E+00,.8670E+00,.8701E+00,.8204E+00,.8075E+00,& - .6846E+00,.7563E+00,.8463E+00,.9104E+00,.8861E+00,.8723E+00,.8682E+00,.8715E+00,.8223E+00,.8096E+00,& - .6879E+00,.7590E+00,.8480E+00,.9119E+00,.8877E+00,.8738E+00,.8694E+00,.8725E+00,.8232E+00,.8118E+00,& - .6912E+00,.7615E+00,.8496E+00,.9132E+00,.8892E+00,.8750E+00,.8704E+00,.8738E+00,.8243E+00,.8139E+00,& - .6948E+00,.7644E+00,.8515E+00,.9147E+00,.8910E+00,.8765E+00,.8712E+00,.8751E+00,.8246E+00,.8162E+00,& - .6983E+00,.7672E+00,.8533E+00,.9162E+00,.8926E+00,.8780E+00,.8721E+00,.8759E+00,.8265E+00,.8185E+00,& - .7018E+00,.7700E+00,.8551E+00,.9176E+00,.8941E+00,.8794E+00,.8733E+00,.8771E+00,.8285E+00,.8207E+00,& - .7053E+00,.7728E+00,.8569E+00,.9189E+00,.8957E+00,.8808E+00,.8745E+00,.8783E+00,.8305E+00,.8230E+00,& - .7092E+00,.7759E+00,.8589E+00,.9205E+00,.8973E+00,.8822E+00,.8757E+00,.8797E+00,.8317E+00,.8255E+00,& - .7137E+00,.7794E+00,.8612E+00,.9222E+00,.8992E+00,.8839E+00,.8767E+00,.8812E+00,.8326E+00,.8283E+00,& - .7188E+00,.7835E+00,.8638E+00,.9241E+00,.9012E+00,.8857E+00,.8781E+00,.8827E+00,.8354E+00,.8316E+00,& - .7240E+00,.7877E+00,.8665E+00,.9260E+00,.9033E+00,.8876E+00,.8800E+00,.8843E+00,.8378E+00,.8349E+00,& - .7313E+00,.7934E+00,.8701E+00,.9286E+00,.9059E+00,.8900E+00,.8817E+00,.8867E+00,.8401E+00,.8394E+00,& - .7391E+00,.7997E+00,.8740E+00,.9313E+00,.9088E+00,.8927E+00,.8843E+00,.8893E+00,.8446E+00,.8443E+00,& - .7480E+00,.8067E+00,.8784E+00,.9342E+00,.9118E+00,.8955E+00,.8866E+00,.8921E+00,.8478E+00,.8498E+00,& - .7596E+00,.8157E+00,.8841E+00,.9379E+00,.9155E+00,.8992E+00,.8902E+00,.8964E+00,.8530E+00,.8568E+00,& - .7726E+00,.8259E+00,.8903E+00,.9418E+00,.9195E+00,.9032E+00,.8945E+00,.9009E+00,.8600E+00,.8645E+00,& - .7910E+00,.8400E+00,.8986E+00,.9471E+00,.9250E+00,.9091E+00,.9007E+00,.9076E+00,.8704E+00,.8749E+00,& - .8196E+00,.8613E+00,.9108E+00,.9546E+00,.9335E+00,.9192E+00,.9128E+00,.9197E+00,.8867E+00,.8901E+00/ - data (((g_lw(ai,k,nh),ai= 7, 7),k=1,nwl_lw),nh=0,99)/ & - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& - .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01/ - data (((g_lw(ai,k,nh),ai= 8, 8),k=1,nwl_lw),nh=0,99)/ & - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& - .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01/ - data (((g_lw(ai,k,nh),ai= 9, 9),k=1,nwl_lw),nh=0,99)/ & - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& - .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00/ - data (((g_lw(ai,k,nh),ai=10,10),k=1,nwl_lw),nh=0,99)/ & - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& - .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00/ - data (((g_lw(ai,k,nh),ai=11,11),k=1,nwl_lw),nh=0,99)/ & - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& - .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00/ - data (((g_lw(ai,k,nh),ai=12,12),k=1,nwl_lw),nh=0,99)/ & - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& - .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00/ - data (((g_lw(ai,k,nh),ai=13,13),k=1,nwl_lw),nh=0,99)/ & - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& - .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00/ - data (((g_lw(ai,k,nh),ai=14,14),k=1,nwl_lw),nh=0,99)/ & - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& - .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00/ + data (((Bex_lw(ai,k,nh),ai= 1, 1),k=1,nwl_lw),nh=0,99)/ & + .2252E-01,.2261E-01,.8372E-01,.1441E+00,.2880E+00,.4679E+00,.3723E+00,.1729E+00,.2097E+00,.9603E-01,& + .2373E-01,.2456E-01,.8750E-01,.1471E+00,.2917E+00,.4703E+00,.3718E+00,.1742E+00,.2103E+00,.9952E-01,& + .2495E-01,.2652E-01,.9128E-01,.1502E+00,.2954E+00,.4726E+00,.3714E+00,.1755E+00,.2108E+00,.1030E+00,& + .2617E-01,.2847E-01,.9506E-01,.1532E+00,.2991E+00,.4749E+00,.3709E+00,.1768E+00,.2114E+00,.1065E+00,& + .2738E-01,.3042E-01,.9884E-01,.1563E+00,.3028E+00,.4772E+00,.3704E+00,.1781E+00,.2120E+00,.1100E+00,& + .2860E-01,.3238E-01,.1026E+00,.1594E+00,.3065E+00,.4796E+00,.3700E+00,.1794E+00,.2125E+00,.1135E+00,& + .2994E-01,.3456E-01,.1068E+00,.1625E+00,.3098E+00,.4815E+00,.3697E+00,.1808E+00,.2132E+00,.1173E+00,& + .3129E-01,.3674E-01,.1109E+00,.1655E+00,.3132E+00,.4834E+00,.3695E+00,.1822E+00,.2138E+00,.1212E+00,& + .3263E-01,.3892E-01,.1151E+00,.1686E+00,.3165E+00,.4853E+00,.3692E+00,.1835E+00,.2144E+00,.1250E+00,& + .3397E-01,.4110E-01,.1193E+00,.1717E+00,.3198E+00,.4872E+00,.3690E+00,.1849E+00,.2150E+00,.1288E+00,& + .3531E-01,.4328E-01,.1234E+00,.1748E+00,.3231E+00,.4892E+00,.3687E+00,.1863E+00,.2157E+00,.1326E+00,& + .3674E-01,.4561E-01,.1278E+00,.1779E+00,.3260E+00,.4909E+00,.3688E+00,.1878E+00,.2164E+00,.1367E+00,& + .3817E-01,.4795E-01,.1322E+00,.1810E+00,.3290E+00,.4926E+00,.3688E+00,.1893E+00,.2171E+00,.1407E+00,& + .3959E-01,.5028E-01,.1366E+00,.1840E+00,.3320E+00,.4944E+00,.3689E+00,.1908E+00,.2179E+00,.1447E+00,& + .4102E-01,.5261E-01,.1410E+00,.1871E+00,.3349E+00,.4961E+00,.3689E+00,.1923E+00,.2186E+00,.1488E+00,& + .4245E-01,.5494E-01,.1454E+00,.1902E+00,.3379E+00,.4979E+00,.3690E+00,.1938E+00,.2193E+00,.1528E+00,& + .4404E-01,.5757E-01,.1503E+00,.1934E+00,.3406E+00,.4994E+00,.3691E+00,.1954E+00,.2201E+00,.1573E+00,& + .4563E-01,.6019E-01,.1552E+00,.1966E+00,.3433E+00,.5009E+00,.3692E+00,.1969E+00,.2209E+00,.1617E+00,& + .4723E-01,.6282E-01,.1601E+00,.1998E+00,.3460E+00,.5023E+00,.3693E+00,.1985E+00,.2217E+00,.1662E+00,& + .4882E-01,.6545E-01,.1650E+00,.2030E+00,.3487E+00,.5038E+00,.3694E+00,.2001E+00,.2225E+00,.1707E+00,& + .5041E-01,.6807E-01,.1699E+00,.2062E+00,.3515E+00,.5053E+00,.3695E+00,.2017E+00,.2232E+00,.1751E+00,& + .5213E-01,.7092E-01,.1752E+00,.2094E+00,.3540E+00,.5067E+00,.3698E+00,.2034E+00,.2241E+00,.1800E+00,& + .5385E-01,.7376E-01,.1805E+00,.2127E+00,.3565E+00,.5081E+00,.3701E+00,.2051E+00,.2250E+00,.1848E+00,& + .5556E-01,.7661E-01,.1858E+00,.2160E+00,.3590E+00,.5095E+00,.3703E+00,.2069E+00,.2259E+00,.1896E+00,& + .5728E-01,.7946E-01,.1910E+00,.2192E+00,.3615E+00,.5109E+00,.3706E+00,.2086E+00,.2268E+00,.1944E+00,& + .5900E-01,.8230E-01,.1963E+00,.2225E+00,.3640E+00,.5123E+00,.3709E+00,.2103E+00,.2277E+00,.1992E+00,& + .6085E-01,.8537E-01,.2020E+00,.2259E+00,.3663E+00,.5136E+00,.3713E+00,.2121E+00,.2287E+00,.2044E+00,& + .6270E-01,.8845E-01,.2077E+00,.2292E+00,.3686E+00,.5149E+00,.3717E+00,.2140E+00,.2296E+00,.2095E+00,& + .6455E-01,.9152E-01,.2133E+00,.2326E+00,.3710E+00,.5162E+00,.3721E+00,.2158E+00,.2306E+00,.2147E+00,& + .6639E-01,.9459E-01,.2190E+00,.2359E+00,.3733E+00,.5175E+00,.3725E+00,.2176E+00,.2316E+00,.2198E+00,& + .6824E-01,.9766E-01,.2246E+00,.2393E+00,.3757E+00,.5188E+00,.3729E+00,.2194E+00,.2326E+00,.2250E+00,& + .7022E-01,.1010E+00,.2307E+00,.2428E+00,.3779E+00,.5201E+00,.3734E+00,.2214E+00,.2337E+00,.2305E+00,& + .7220E-01,.1043E+00,.2367E+00,.2462E+00,.3801E+00,.5214E+00,.3739E+00,.2234E+00,.2347E+00,.2360E+00,& + .7417E-01,.1076E+00,.2428E+00,.2497E+00,.3823E+00,.5226E+00,.3745E+00,.2254E+00,.2358E+00,.2415E+00,& + .7615E-01,.1108E+00,.2489E+00,.2532E+00,.3845E+00,.5239E+00,.3750E+00,.2273E+00,.2369E+00,.2470E+00,& + .7813E-01,.1141E+00,.2549E+00,.2566E+00,.3867E+00,.5252E+00,.3755E+00,.2293E+00,.2380E+00,.2525E+00,& + .8019E-01,.1176E+00,.2612E+00,.2602E+00,.3889E+00,.5266E+00,.3763E+00,.2314E+00,.2393E+00,.2582E+00,& + .8225E-01,.1210E+00,.2675E+00,.2637E+00,.3911E+00,.5280E+00,.3770E+00,.2335E+00,.2405E+00,.2640E+00,& + .8430E-01,.1245E+00,.2738E+00,.2673E+00,.3932E+00,.5293E+00,.3778E+00,.2356E+00,.2418E+00,.2697E+00,& + .8636E-01,.1279E+00,.2801E+00,.2708E+00,.3954E+00,.5307E+00,.3785E+00,.2376E+00,.2430E+00,.2754E+00,& + .8842E-01,.1313E+00,.2864E+00,.2744E+00,.3976E+00,.5321E+00,.3792E+00,.2397E+00,.2443E+00,.2812E+00,& + .9066E-01,.1351E+00,.2933E+00,.2781E+00,.3996E+00,.5334E+00,.3800E+00,.2420E+00,.2456E+00,.2874E+00,& + .9291E-01,.1389E+00,.3001E+00,.2818E+00,.4017E+00,.5347E+00,.3808E+00,.2442E+00,.2470E+00,.2936E+00,& + .9515E-01,.1426E+00,.3070E+00,.2856E+00,.4038E+00,.5360E+00,.3815E+00,.2464E+00,.2483E+00,.2999E+00,& + .9739E-01,.1464E+00,.3139E+00,.2893E+00,.4059E+00,.5373E+00,.3823E+00,.2487E+00,.2497E+00,.3061E+00,& + .9964E-01,.1501E+00,.3207E+00,.2930E+00,.4079E+00,.5386E+00,.3831E+00,.2509E+00,.2510E+00,.3123E+00,& + .1020E+00,.1541E+00,.3280E+00,.2969E+00,.4100E+00,.5399E+00,.3840E+00,.2533E+00,.2525E+00,.3189E+00,& + .1044E+00,.1581E+00,.3353E+00,.3008E+00,.4120E+00,.5412E+00,.3848E+00,.2557E+00,.2540E+00,.3255E+00,& + .1068E+00,.1621E+00,.3425E+00,.3046E+00,.4141E+00,.5425E+00,.3857E+00,.2580E+00,.2555E+00,.3321E+00,& + .1091E+00,.1661E+00,.3498E+00,.3085E+00,.4161E+00,.5438E+00,.3866E+00,.2604E+00,.2570E+00,.3387E+00,& + .1115E+00,.1701E+00,.3571E+00,.3124E+00,.4182E+00,.5452E+00,.3875E+00,.2628E+00,.2585E+00,.3453E+00,& + .1139E+00,.1741E+00,.3644E+00,.3163E+00,.4203E+00,.5467E+00,.3886E+00,.2653E+00,.2602E+00,.3520E+00,& + .1164E+00,.1782E+00,.3718E+00,.3202E+00,.4224E+00,.5483E+00,.3898E+00,.2678E+00,.2619E+00,.3587E+00,& + .1188E+00,.1822E+00,.3791E+00,.3242E+00,.4245E+00,.5498E+00,.3909E+00,.2703E+00,.2636E+00,.3654E+00,& + .1212E+00,.1862E+00,.3865E+00,.3281E+00,.4266E+00,.5514E+00,.3920E+00,.2728E+00,.2653E+00,.3721E+00,& + .1236E+00,.1903E+00,.3938E+00,.3320E+00,.4288E+00,.5530E+00,.3932E+00,.2753E+00,.2670E+00,.3788E+00,& + .1261E+00,.1944E+00,.4014E+00,.3361E+00,.4309E+00,.5547E+00,.3945E+00,.2779E+00,.2689E+00,.3857E+00,& + .1285E+00,.1986E+00,.4090E+00,.3401E+00,.4331E+00,.5564E+00,.3957E+00,.2806E+00,.2708E+00,.3926E+00,& + .1310E+00,.2028E+00,.4166E+00,.3442E+00,.4353E+00,.5581E+00,.3970E+00,.2832E+00,.2727E+00,.3995E+00,& + .1335E+00,.2069E+00,.4242E+00,.3482E+00,.4374E+00,.5598E+00,.3983E+00,.2858E+00,.2746E+00,.4064E+00,& + .1360E+00,.2111E+00,.4318E+00,.3523E+00,.4396E+00,.5615E+00,.3996E+00,.2885E+00,.2765E+00,.4133E+00,& + .1387E+00,.2156E+00,.4400E+00,.3565E+00,.4418E+00,.5632E+00,.4010E+00,.2913E+00,.2785E+00,.4208E+00,& + .1413E+00,.2201E+00,.4481E+00,.3608E+00,.4439E+00,.5648E+00,.4023E+00,.2941E+00,.2806E+00,.4282E+00,& + .1440E+00,.2246E+00,.4563E+00,.3651E+00,.4460E+00,.5665E+00,.4036E+00,.2969E+00,.2826E+00,.4357E+00,& + .1467E+00,.2291E+00,.4645E+00,.3693E+00,.4482E+00,.5681E+00,.4049E+00,.2997E+00,.2846E+00,.4431E+00,& + .1493E+00,.2336E+00,.4727E+00,.3736E+00,.4503E+00,.5698E+00,.4063E+00,.3025E+00,.2867E+00,.4505E+00,& + .1522E+00,.2383E+00,.4813E+00,.3781E+00,.4525E+00,.5715E+00,.4077E+00,.3055E+00,.2889E+00,.4584E+00,& + .1550E+00,.2431E+00,.4899E+00,.3825E+00,.4547E+00,.5732E+00,.4091E+00,.3085E+00,.2911E+00,.4662E+00,& + .1578E+00,.2478E+00,.4985E+00,.3870E+00,.4569E+00,.5749E+00,.4105E+00,.3114E+00,.2933E+00,.4740E+00,& + .1607E+00,.2525E+00,.5071E+00,.3914E+00,.4591E+00,.5766E+00,.4119E+00,.3144E+00,.2956E+00,.4819E+00,& + .1635E+00,.2573E+00,.5157E+00,.3958E+00,.4613E+00,.5784E+00,.4133E+00,.3173E+00,.2978E+00,.4897E+00,& + .1676E+00,.2644E+00,.5283E+00,.4017E+00,.4627E+00,.5786E+00,.4139E+00,.3210E+00,.3000E+00,.5010E+00,& + .1718E+00,.2714E+00,.5409E+00,.4075E+00,.4642E+00,.5788E+00,.4145E+00,.3246E+00,.3023E+00,.5124E+00,& + .1759E+00,.2785E+00,.5535E+00,.4133E+00,.4657E+00,.5790E+00,.4151E+00,.3282E+00,.3045E+00,.5238E+00,& + .1801E+00,.2856E+00,.5661E+00,.4192E+00,.4672E+00,.5793E+00,.4157E+00,.3318E+00,.3067E+00,.5351E+00,& + .1843E+00,.2926E+00,.5787E+00,.4250E+00,.4687E+00,.5795E+00,.4163E+00,.3355E+00,.3090E+00,.5465E+00,& + .1886E+00,.3001E+00,.5920E+00,.4311E+00,.4703E+00,.5799E+00,.4171E+00,.3394E+00,.3115E+00,.5584E+00,& + .1930E+00,.3075E+00,.6052E+00,.4372E+00,.4718E+00,.5803E+00,.4179E+00,.3433E+00,.3141E+00,.5704E+00,& + .1973E+00,.3149E+00,.6184E+00,.4433E+00,.4734E+00,.5807E+00,.4187E+00,.3472E+00,.3167E+00,.5823E+00,& + .2017E+00,.3224E+00,.6317E+00,.4494E+00,.4749E+00,.5811E+00,.4195E+00,.3511E+00,.3193E+00,.5943E+00,& + .2061E+00,.3298E+00,.6449E+00,.4555E+00,.4765E+00,.5815E+00,.4203E+00,.3550E+00,.3219E+00,.6062E+00,& + .2109E+00,.3380E+00,.6595E+00,.4622E+00,.4779E+00,.5816E+00,.4211E+00,.3592E+00,.3247E+00,.6194E+00,& + .2158E+00,.3464E+00,.6743E+00,.4688E+00,.4793E+00,.5818E+00,.4219E+00,.3635E+00,.3275E+00,.6327E+00,& + .2207E+00,.3547E+00,.6892E+00,.4756E+00,.4809E+00,.5820E+00,.4227E+00,.3678E+00,.3305E+00,.6462E+00,& + .2274E+00,.3662E+00,.7093E+00,.4841E+00,.4814E+00,.5803E+00,.4225E+00,.3731E+00,.3335E+00,.6643E+00,& + .2341E+00,.3777E+00,.7295E+00,.4927E+00,.4819E+00,.5787E+00,.4224E+00,.3784E+00,.3366E+00,.6825E+00,& + .2409E+00,.3893E+00,.7500E+00,.5014E+00,.4826E+00,.5773E+00,.4225E+00,.3838E+00,.3399E+00,.7008E+00,& + .2494E+00,.4039E+00,.7756E+00,.5119E+00,.4824E+00,.5741E+00,.4217E+00,.3902E+00,.3433E+00,.7238E+00,& + .2580E+00,.4187E+00,.8014E+00,.5224E+00,.4823E+00,.5711E+00,.4210E+00,.3967E+00,.3470E+00,.7470E+00,& + .2682E+00,.4364E+00,.8323E+00,.5348E+00,.4814E+00,.5666E+00,.4197E+00,.4042E+00,.3509E+00,.7746E+00,& + .2802E+00,.4571E+00,.8683E+00,.5490E+00,.4799E+00,.5608E+00,.4179E+00,.4128E+00,.3553E+00,.8069E+00,& + .2922E+00,.4777E+00,.9044E+00,.5633E+00,.4787E+00,.5555E+00,.4164E+00,.4215E+00,.3601E+00,.8392E+00,& + .3074E+00,.5040E+00,.9500E+00,.5810E+00,.4762E+00,.5476E+00,.4138E+00,.4323E+00,.3656E+00,.8800E+00,& + .3225E+00,.5301E+00,.9955E+00,.5988E+00,.4743E+00,.5406E+00,.4119E+00,.4433E+00,.3717E+00,.9208E+00,& + .3407E+00,.5615E+00,.1050E+01,.6200E+00,.4715E+00,.5318E+00,.4095E+00,.4565E+00,.3790E+00,.9696E+00,& + .3647E+00,.6029E+00,.1122E+01,.6478E+00,.4673E+00,.5196E+00,.4061E+00,.4737E+00,.3885E+00,.1034E+01,& + .3910E+00,.6484E+00,.1201E+01,.6785E+00,.4635E+00,.5077E+00,.4032E+00,.4931E+00,.3999E+00,.1105E+01,& + .4247E+00,.7066E+00,.1303E+01,.7180E+00,.4593E+00,.4934E+00,.4006E+00,.5185E+00,.4155E+00,.1196E+01,& + .4744E+00,.7923E+00,.1452E+01,.7771E+00,.4550E+00,.4755E+00,.3989E+00,.5567E+00,.4407E+00,.1330E+01,& + .5577E+00,.9357E+00,.1703E+01,.8795E+00,.4557E+00,.4561E+00,.4035E+00,.6251E+00,.4905E+00,.1556E+01/ + data (((Bex_lw(ai,k,nh),ai= 2, 2),k=1,nwl_lw),nh=0,99)/ & + .9514E-01,.1469E+00,.2331E+00,.3161E+00,.3718E+00,.4177E+00,.4740E+00,.6076E+00,.9329E+00,.1995E+00,& + .9518E-01,.1469E+00,.2332E+00,.3162E+00,.3719E+00,.4178E+00,.4741E+00,.6078E+00,.9333E+00,.1995E+00,& + .9521E-01,.1470E+00,.2333E+00,.3163E+00,.3721E+00,.4180E+00,.4743E+00,.6081E+00,.9336E+00,.1996E+00,& + .9525E-01,.1470E+00,.2334E+00,.3164E+00,.3722E+00,.4181E+00,.4745E+00,.6083E+00,.9340E+00,.1997E+00,& + .9528E-01,.1471E+00,.2335E+00,.3165E+00,.3724E+00,.4183E+00,.4747E+00,.6085E+00,.9344E+00,.1998E+00,& + .9532E-01,.1471E+00,.2335E+00,.3167E+00,.3725E+00,.4184E+00,.4748E+00,.6088E+00,.9347E+00,.1999E+00,& + .9535E-01,.1472E+00,.2336E+00,.3168E+00,.3726E+00,.4186E+00,.4750E+00,.6090E+00,.9350E+00,.1999E+00,& + .9538E-01,.1472E+00,.2337E+00,.3169E+00,.3727E+00,.4187E+00,.4751E+00,.6092E+00,.9354E+00,.2000E+00,& + .9541E-01,.1473E+00,.2337E+00,.3170E+00,.3728E+00,.4188E+00,.4753E+00,.6094E+00,.9357E+00,.2000E+00,& + .9544E-01,.1473E+00,.2338E+00,.3170E+00,.3730E+00,.4190E+00,.4754E+00,.6096E+00,.9360E+00,.2001E+00,& + .9547E-01,.1473E+00,.2339E+00,.3171E+00,.3731E+00,.4191E+00,.4756E+00,.6098E+00,.9364E+00,.2001E+00,& + .9550E-01,.1474E+00,.2339E+00,.3172E+00,.3732E+00,.4192E+00,.4757E+00,.6099E+00,.9367E+00,.2002E+00,& + .9552E-01,.1474E+00,.2340E+00,.3173E+00,.3733E+00,.4193E+00,.4758E+00,.6101E+00,.9370E+00,.2002E+00,& + .9554E-01,.1475E+00,.2341E+00,.3174E+00,.3734E+00,.4194E+00,.4760E+00,.6103E+00,.9373E+00,.2003E+00,& + .9556E-01,.1475E+00,.2341E+00,.3175E+00,.3735E+00,.4195E+00,.4761E+00,.6104E+00,.9376E+00,.2003E+00,& + .9558E-01,.1476E+00,.2342E+00,.3175E+00,.3736E+00,.4197E+00,.4762E+00,.6106E+00,.9379E+00,.2004E+00,& + .9561E-01,.1476E+00,.2342E+00,.3176E+00,.3737E+00,.4198E+00,.4764E+00,.6107E+00,.9381E+00,.2004E+00,& + .9564E-01,.1476E+00,.2343E+00,.3177E+00,.3738E+00,.4199E+00,.4765E+00,.6109E+00,.9383E+00,.2005E+00,& + .9566E-01,.1477E+00,.2344E+00,.3178E+00,.3739E+00,.4199E+00,.4766E+00,.6110E+00,.9385E+00,.2005E+00,& + .9569E-01,.1477E+00,.2344E+00,.3179E+00,.3739E+00,.4200E+00,.4767E+00,.6112E+00,.9387E+00,.2006E+00,& + .9571E-01,.1477E+00,.2345E+00,.3179E+00,.3740E+00,.4201E+00,.4768E+00,.6113E+00,.9389E+00,.2006E+00,& + .9573E-01,.1477E+00,.2345E+00,.3180E+00,.3741E+00,.4202E+00,.4769E+00,.6114E+00,.9392E+00,.2007E+00,& + .9575E-01,.1478E+00,.2346E+00,.3181E+00,.3742E+00,.4203E+00,.4770E+00,.6116E+00,.9394E+00,.2007E+00,& + .9577E-01,.1478E+00,.2346E+00,.3181E+00,.3742E+00,.4204E+00,.4770E+00,.6117E+00,.9396E+00,.2007E+00,& + .9578E-01,.1478E+00,.2346E+00,.3182E+00,.3743E+00,.4205E+00,.4771E+00,.6118E+00,.9399E+00,.2008E+00,& + .9580E-01,.1478E+00,.2347E+00,.3182E+00,.3744E+00,.4205E+00,.4772E+00,.6119E+00,.9401E+00,.2008E+00,& + .9582E-01,.1479E+00,.2347E+00,.3183E+00,.3744E+00,.4206E+00,.4773E+00,.6120E+00,.9403E+00,.2008E+00,& + .9583E-01,.1479E+00,.2348E+00,.3183E+00,.3745E+00,.4207E+00,.4774E+00,.6121E+00,.9404E+00,.2009E+00,& + .9585E-01,.1479E+00,.2348E+00,.3184E+00,.3746E+00,.4207E+00,.4775E+00,.6122E+00,.9406E+00,.2009E+00,& + .9587E-01,.1479E+00,.2348E+00,.3184E+00,.3746E+00,.4208E+00,.4775E+00,.6124E+00,.9408E+00,.2009E+00,& + .9588E-01,.1480E+00,.2349E+00,.3185E+00,.3747E+00,.4209E+00,.4776E+00,.6125E+00,.9410E+00,.2010E+00,& + .9589E-01,.1480E+00,.2349E+00,.3185E+00,.3747E+00,.4209E+00,.4777E+00,.6125E+00,.9411E+00,.2010E+00,& + .9590E-01,.1480E+00,.2349E+00,.3186E+00,.3748E+00,.4210E+00,.4778E+00,.6126E+00,.9413E+00,.2010E+00,& + .9591E-01,.1480E+00,.2350E+00,.3186E+00,.3748E+00,.4211E+00,.4778E+00,.6127E+00,.9414E+00,.2011E+00,& + .9592E-01,.1480E+00,.2350E+00,.3187E+00,.3749E+00,.4211E+00,.4779E+00,.6128E+00,.9416E+00,.2011E+00,& + .9592E-01,.1481E+00,.2351E+00,.3187E+00,.3750E+00,.4212E+00,.4780E+00,.6129E+00,.9418E+00,.2011E+00,& + .9594E-01,.1481E+00,.2351E+00,.3188E+00,.3750E+00,.4212E+00,.4780E+00,.6130E+00,.9419E+00,.2011E+00,& + .9595E-01,.1481E+00,.2351E+00,.3188E+00,.3750E+00,.4213E+00,.4781E+00,.6131E+00,.9420E+00,.2012E+00,& + .9597E-01,.1481E+00,.2351E+00,.3188E+00,.3751E+00,.4213E+00,.4781E+00,.6132E+00,.9421E+00,.2012E+00,& + .9598E-01,.1482E+00,.2352E+00,.3189E+00,.3751E+00,.4214E+00,.4782E+00,.6133E+00,.9423E+00,.2012E+00,& + .9599E-01,.1482E+00,.2352E+00,.3189E+00,.3752E+00,.4214E+00,.4782E+00,.6133E+00,.9424E+00,.2012E+00,& + .9600E-01,.1482E+00,.2352E+00,.3189E+00,.3752E+00,.4215E+00,.4783E+00,.6134E+00,.9425E+00,.2013E+00,& + .9601E-01,.1482E+00,.2352E+00,.3190E+00,.3752E+00,.4215E+00,.4784E+00,.6135E+00,.9426E+00,.2013E+00,& + .9601E-01,.1482E+00,.2353E+00,.3190E+00,.3753E+00,.4216E+00,.4784E+00,.6135E+00,.9427E+00,.2013E+00,& + .9602E-01,.1482E+00,.2353E+00,.3190E+00,.3753E+00,.4216E+00,.4785E+00,.6136E+00,.9427E+00,.2013E+00,& + .9603E-01,.1482E+00,.2353E+00,.3190E+00,.3754E+00,.4216E+00,.4785E+00,.6137E+00,.9428E+00,.2013E+00,& + .9604E-01,.1482E+00,.2353E+00,.3191E+00,.3754E+00,.4217E+00,.4786E+00,.6137E+00,.9430E+00,.2014E+00,& + .9605E-01,.1483E+00,.2354E+00,.3191E+00,.3754E+00,.4217E+00,.4786E+00,.6138E+00,.9431E+00,.2014E+00,& + .9606E-01,.1483E+00,.2354E+00,.3192E+00,.3755E+00,.4218E+00,.4787E+00,.6138E+00,.9432E+00,.2014E+00,& + .9607E-01,.1483E+00,.2354E+00,.3192E+00,.3755E+00,.4218E+00,.4787E+00,.6139E+00,.9434E+00,.2014E+00,& + .9608E-01,.1483E+00,.2354E+00,.3192E+00,.3755E+00,.4219E+00,.4788E+00,.6140E+00,.9435E+00,.2014E+00,& + .9609E-01,.1483E+00,.2354E+00,.3193E+00,.3756E+00,.4219E+00,.4788E+00,.6140E+00,.9436E+00,.2015E+00,& + .9609E-01,.1483E+00,.2354E+00,.3193E+00,.3756E+00,.4219E+00,.4788E+00,.6141E+00,.9437E+00,.2015E+00,& + .9610E-01,.1483E+00,.2355E+00,.3193E+00,.3757E+00,.4220E+00,.4789E+00,.6141E+00,.9438E+00,.2015E+00,& + .9610E-01,.1483E+00,.2355E+00,.3193E+00,.3757E+00,.4220E+00,.4789E+00,.6142E+00,.9439E+00,.2015E+00,& + .9610E-01,.1484E+00,.2355E+00,.3193E+00,.3757E+00,.4220E+00,.4790E+00,.6142E+00,.9440E+00,.2015E+00,& + .9677E-01,.1494E+00,.2373E+00,.3213E+00,.3776E+00,.4240E+00,.4810E+00,.6167E+00,.9467E+00,.2030E+00,& + .9744E-01,.1504E+00,.2390E+00,.3233E+00,.3796E+00,.4260E+00,.4831E+00,.6191E+00,.9495E+00,.2045E+00,& + .9812E-01,.1514E+00,.2408E+00,.3253E+00,.3815E+00,.4280E+00,.4851E+00,.6215E+00,.9523E+00,.2059E+00,& + .9879E-01,.1524E+00,.2425E+00,.3272E+00,.3834E+00,.4300E+00,.4872E+00,.6239E+00,.9551E+00,.2074E+00,& + .9946E-01,.1534E+00,.2443E+00,.3292E+00,.3853E+00,.4319E+00,.4892E+00,.6264E+00,.9579E+00,.2089E+00,& + .9947E-01,.1535E+00,.2443E+00,.3292E+00,.3853E+00,.4320E+00,.4893E+00,.6264E+00,.9579E+00,.2089E+00,& + .9948E-01,.1535E+00,.2443E+00,.3292E+00,.3853E+00,.4320E+00,.4893E+00,.6265E+00,.9580E+00,.2089E+00,& + .9949E-01,.1535E+00,.2443E+00,.3293E+00,.3854E+00,.4320E+00,.4894E+00,.6265E+00,.9580E+00,.2089E+00,& + .9950E-01,.1535E+00,.2443E+00,.3293E+00,.3854E+00,.4321E+00,.4894E+00,.6265E+00,.9581E+00,.2089E+00,& + .9951E-01,.1535E+00,.2443E+00,.3293E+00,.3854E+00,.4321E+00,.4894E+00,.6266E+00,.9581E+00,.2089E+00,& + .1016E+00,.1566E+00,.2498E+00,.3352E+00,.3910E+00,.4379E+00,.4954E+00,.6336E+00,.9659E+00,.2135E+00,& + .1036E+00,.1598E+00,.2552E+00,.3411E+00,.3966E+00,.4436E+00,.5013E+00,.6406E+00,.9737E+00,.2181E+00,& + .1056E+00,.1629E+00,.2606E+00,.3470E+00,.4022E+00,.4494E+00,.5073E+00,.6476E+00,.9815E+00,.2226E+00,& + .1077E+00,.1660E+00,.2660E+00,.3528E+00,.4078E+00,.4552E+00,.5132E+00,.6547E+00,.9893E+00,.2272E+00,& + .1097E+00,.1691E+00,.2714E+00,.3587E+00,.4134E+00,.4609E+00,.5192E+00,.6617E+00,.9971E+00,.2318E+00,& + .1156E+00,.1780E+00,.2871E+00,.3745E+00,.4276E+00,.4753E+00,.5338E+00,.6790E+00,.1015E+01,.2450E+00,& + .1214E+00,.1870E+00,.3027E+00,.3902E+00,.4418E+00,.4896E+00,.5484E+00,.6963E+00,.1033E+01,.2583E+00,& + .1272E+00,.1959E+00,.3183E+00,.4060E+00,.4560E+00,.5040E+00,.5630E+00,.7136E+00,.1052E+01,.2715E+00,& + .1330E+00,.2048E+00,.3340E+00,.4217E+00,.4702E+00,.5183E+00,.5776E+00,.7309E+00,.1070E+01,.2848E+00,& + .1389E+00,.2137E+00,.3496E+00,.4375E+00,.4843E+00,.5327E+00,.5922E+00,.7482E+00,.1088E+01,.2980E+00,& + .1469E+00,.2261E+00,.3716E+00,.4570E+00,.5003E+00,.5485E+00,.6081E+00,.7674E+00,.1106E+01,.3168E+00,& + .1549E+00,.2385E+00,.3936E+00,.4766E+00,.5163E+00,.5643E+00,.6240E+00,.7865E+00,.1125E+01,.3356E+00,& + .1628E+00,.2508E+00,.4155E+00,.4961E+00,.5322E+00,.5802E+00,.6399E+00,.8057E+00,.1143E+01,.3544E+00,& + .1708E+00,.2632E+00,.4375E+00,.5156E+00,.5482E+00,.5960E+00,.6558E+00,.8249E+00,.1162E+01,.3732E+00,& + .1788E+00,.2756E+00,.4595E+00,.5351E+00,.5642E+00,.6118E+00,.6717E+00,.8441E+00,.1180E+01,.3920E+00,& + .1915E+00,.2955E+00,.4950E+00,.5642E+00,.5863E+00,.6335E+00,.6933E+00,.8707E+00,.1204E+01,.4226E+00,& + .2002E+00,.3090E+00,.5193E+00,.5834E+00,.6006E+00,.6474E+00,.7072E+00,.8879E+00,.1219E+01,.4436E+00,& + .2134E+00,.3299E+00,.5568E+00,.6122E+00,.6214E+00,.6677E+00,.7273E+00,.9132E+00,.1241E+01,.4760E+00,& + .2225E+00,.3443E+00,.5824E+00,.6313E+00,.6350E+00,.6808E+00,.7402E+00,.9296E+00,.1255E+01,.4984E+00,& + .2364E+00,.3662E+00,.6219E+00,.6600E+00,.6547E+00,.6998E+00,.7590E+00,.9537E+00,.1274E+01,.5328E+00,& + .2506E+00,.3888E+00,.6626E+00,.6887E+00,.6738E+00,.7181E+00,.7771E+00,.9775E+00,.1293E+01,.5683E+00,& + .2603E+00,.4043E+00,.6904E+00,.7078E+00,.6863E+00,.7300E+00,.7889E+00,.9929E+00,.1305E+01,.5927E+00,& + .2751E+00,.4280E+00,.7332E+00,.7365E+00,.7045E+00,.7474E+00,.8060E+00,.1016E+01,.1322E+01,.6302E+00,& + .2852E+00,.4443E+00,.7625E+00,.7557E+00,.7165E+00,.7588E+00,.8172E+00,.1031E+01,.1333E+01,.6560E+00,& + .3007E+00,.4692E+00,.8074E+00,.7846E+00,.7340E+00,.7754E+00,.8335E+00,.1053E+01,.1349E+01,.6956E+00,& + .3165E+00,.4949E+00,.8536E+00,.8137E+00,.7512E+00,.7916E+00,.8495E+00,.1076E+01,.1364E+01,.7365E+00,& + .3328E+00,.5213E+00,.9012E+00,.8429E+00,.7681E+00,.8075E+00,.8651E+00,.1098E+01,.1379E+01,.7786E+00,& + .3495E+00,.5484E+00,.9503E+00,.8724E+00,.7847E+00,.8231E+00,.8805E+00,.1120E+01,.1393E+01,.8221E+00,& + .3725E+00,.5858E+00,.1018E+01,.9123E+00,.8065E+00,.8434E+00,.9004E+00,.1149E+01,.1412E+01,.8821E+00,& + .3962E+00,.6246E+00,.1088E+01,.9527E+00,.8280E+00,.8634E+00,.9201E+00,.1178E+01,.1429E+01,.9445E+00,& + .4270E+00,.6751E+00,.1179E+01,.1004E+01,.8546E+00,.8880E+00,.9443E+00,.1215E+01,.1451E+01,.1026E+01,& + .4722E+00,.7496E+00,.1313E+01,.1078E+01,.8915E+00,.9219E+00,.9776E+00,.1267E+01,.1479E+01,.1146E+01,& + .5273E+00,.8407E+00,.1477E+01,.1167E+01,.9337E+00,.9605E+00,.1016E+01,.1327E+01,.1511E+01,.1294E+01,& + .6812E+00,.1097E+01,.1939E+01,.1406E+01,.1042E+01,.1058E+01,.1111E+01,.1488E+01,.1588E+01,.1710E+01/ + data (((Bex_lw(ai,k,nh),ai= 3, 3),k=1,nwl_lw),nh=0,99)/ & + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01/ + data (((Bex_lw(ai,k,nh),ai= 4, 4),k=1,nwl_lw),nh=0,99)/ & + .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,& + .4334E-01,.3951E-01,.3943E-01,.2379E-01,.6799E-01,.1091E+00,.5958E-01,.2844E-01,.1315E-01,.4306E-01,& + .4413E-01,.4063E-01,.4135E-01,.2474E-01,.6898E-01,.1102E+00,.6002E-01,.2916E-01,.1346E-01,.4475E-01,& + .4492E-01,.4174E-01,.4327E-01,.2569E-01,.6998E-01,.1113E+00,.6046E-01,.2989E-01,.1377E-01,.4644E-01,& + .4572E-01,.4286E-01,.4520E-01,.2664E-01,.7098E-01,.1124E+00,.6091E-01,.3061E-01,.1407E-01,.4813E-01,& + .4651E-01,.4398E-01,.4712E-01,.2759E-01,.7198E-01,.1134E+00,.6135E-01,.3133E-01,.1438E-01,.4982E-01,& + .4734E-01,.4518E-01,.4920E-01,.2861E-01,.7299E-01,.1145E+00,.6182E-01,.3210E-01,.1471E-01,.5165E-01,& + .4818E-01,.4639E-01,.5128E-01,.2964E-01,.7400E-01,.1156E+00,.6229E-01,.3287E-01,.1505E-01,.5348E-01,& + .4901E-01,.4759E-01,.5336E-01,.3067E-01,.7502E-01,.1167E+00,.6275E-01,.3364E-01,.1538E-01,.5532E-01,& + .4985E-01,.4879E-01,.5545E-01,.3170E-01,.7603E-01,.1178E+00,.6322E-01,.3441E-01,.1571E-01,.5715E-01,& + .5069E-01,.4999E-01,.5753E-01,.3273E-01,.7705E-01,.1189E+00,.6369E-01,.3518E-01,.1604E-01,.5899E-01,& + .5157E-01,.5128E-01,.5977E-01,.3384E-01,.7807E-01,.1200E+00,.6418E-01,.3599E-01,.1640E-01,.6096E-01,& + .5245E-01,.5257E-01,.6201E-01,.3495E-01,.7910E-01,.1211E+00,.6467E-01,.3680E-01,.1675E-01,.6294E-01,& + .5333E-01,.5386E-01,.6425E-01,.3606E-01,.8012E-01,.1223E+00,.6516E-01,.3762E-01,.1711E-01,.6492E-01,& + .5421E-01,.5514E-01,.6649E-01,.3717E-01,.8115E-01,.1234E+00,.6565E-01,.3843E-01,.1746E-01,.6690E-01,& + .5509E-01,.5643E-01,.6873E-01,.3828E-01,.8217E-01,.1245E+00,.6614E-01,.3924E-01,.1782E-01,.6888E-01,& + .5602E-01,.5781E-01,.7113E-01,.3947E-01,.8321E-01,.1256E+00,.6666E-01,.4010E-01,.1820E-01,.7101E-01,& + .5695E-01,.5918E-01,.7353E-01,.4066E-01,.8425E-01,.1267E+00,.6717E-01,.4097E-01,.1858E-01,.7314E-01,& + .5787E-01,.6056E-01,.7593E-01,.4185E-01,.8528E-01,.1279E+00,.6769E-01,.4183E-01,.1897E-01,.7526E-01,& + .5880E-01,.6193E-01,.7834E-01,.4304E-01,.8632E-01,.1290E+00,.6820E-01,.4269E-01,.1935E-01,.7739E-01,& + .5973E-01,.6331E-01,.8074E-01,.4424E-01,.8736E-01,.1301E+00,.6872E-01,.4355E-01,.1973E-01,.7952E-01,& + .6070E-01,.6477E-01,.8330E-01,.4551E-01,.8841E-01,.1313E+00,.6926E-01,.4446E-01,.2014E-01,.8180E-01,& + .6168E-01,.6623E-01,.8586E-01,.4678E-01,.8947E-01,.1324E+00,.6980E-01,.4537E-01,.2055E-01,.8407E-01,& + .6265E-01,.6769E-01,.8843E-01,.4805E-01,.9052E-01,.1336E+00,.7034E-01,.4628E-01,.2096E-01,.8635E-01,& + .6362E-01,.6916E-01,.9099E-01,.4932E-01,.9157E-01,.1347E+00,.7088E-01,.4719E-01,.2137E-01,.8863E-01,& + .6460E-01,.7062E-01,.9355E-01,.5059E-01,.9262E-01,.1358E+00,.7142E-01,.4809E-01,.2178E-01,.9091E-01,& + .6562E-01,.7217E-01,.9628E-01,.5195E-01,.9369E-01,.1370E+00,.7198E-01,.4905E-01,.2222E-01,.9334E-01,& + .6664E-01,.7372E-01,.9901E-01,.5331E-01,.9475E-01,.1382E+00,.7255E-01,.5001E-01,.2266E-01,.9577E-01,& + .6766E-01,.7528E-01,.1017E+00,.5466E-01,.9581E-01,.1393E+00,.7311E-01,.5097E-01,.2310E-01,.9820E-01,& + .6869E-01,.7683E-01,.1045E+00,.5602E-01,.9687E-01,.1405E+00,.7368E-01,.5193E-01,.2354E-01,.1006E+00,& + .6971E-01,.7838E-01,.1072E+00,.5737E-01,.9793E-01,.1416E+00,.7424E-01,.5289E-01,.2398E-01,.1031E+00,& + .7078E-01,.8002E-01,.1101E+00,.5881E-01,.9901E-01,.1428E+00,.7483E-01,.5390E-01,.2445E-01,.1057E+00,& + .7185E-01,.8167E-01,.1130E+00,.6025E-01,.1001E+00,.1440E+00,.7543E-01,.5491E-01,.2492E-01,.1082E+00,& + .7292E-01,.8331E-01,.1159E+00,.6169E-01,.1012E+00,.1451E+00,.7602E-01,.5592E-01,.2539E-01,.1108E+00,& + .7399E-01,.8496E-01,.1188E+00,.6313E-01,.1022E+00,.1463E+00,.7661E-01,.5693E-01,.2586E-01,.1134E+00,& + .7507E-01,.8660E-01,.1217E+00,.6456E-01,.1033E+00,.1475E+00,.7721E-01,.5794E-01,.2633E-01,.1160E+00,& + .7619E-01,.8833E-01,.1248E+00,.6608E-01,.1044E+00,.1486E+00,.7782E-01,.5900E-01,.2683E-01,.1187E+00,& + .7731E-01,.9007E-01,.1278E+00,.6761E-01,.1055E+00,.1498E+00,.7844E-01,.6006E-01,.2734E-01,.1215E+00,& + .7843E-01,.9180E-01,.1309E+00,.6913E-01,.1066E+00,.1510E+00,.7906E-01,.6112E-01,.2784E-01,.1242E+00,& + .7955E-01,.9353E-01,.1340E+00,.7065E-01,.1077E+00,.1522E+00,.7968E-01,.6218E-01,.2834E-01,.1269E+00,& + .8067E-01,.9527E-01,.1370E+00,.7217E-01,.1088E+00,.1534E+00,.8030E-01,.6324E-01,.2885E-01,.1297E+00,& + .8185E-01,.9710E-01,.1402E+00,.7378E-01,.1099E+00,.1546E+00,.8095E-01,.6435E-01,.2939E-01,.1326E+00,& + .8302E-01,.9893E-01,.1435E+00,.7538E-01,.1110E+00,.1558E+00,.8159E-01,.6547E-01,.2992E-01,.1355E+00,& + .8419E-01,.1008E+00,.1467E+00,.7699E-01,.1121E+00,.1569E+00,.8223E-01,.6658E-01,.3046E-01,.1384E+00,& + .8537E-01,.1026E+00,.1500E+00,.7860E-01,.1132E+00,.1581E+00,.8288E-01,.6770E-01,.3100E-01,.1412E+00,& + .8654E-01,.1044E+00,.1532E+00,.8020E-01,.1143E+00,.1593E+00,.8352E-01,.6881E-01,.3154E-01,.1441E+00,& + .8777E-01,.1063E+00,.1566E+00,.8190E-01,.1154E+00,.1605E+00,.8420E-01,.6998E-01,.3211E-01,.1472E+00,& + .8899E-01,.1083E+00,.1600E+00,.8359E-01,.1165E+00,.1617E+00,.8487E-01,.7116E-01,.3269E-01,.1503E+00,& + .9022E-01,.1102E+00,.1634E+00,.8528E-01,.1176E+00,.1629E+00,.8554E-01,.7233E-01,.3326E-01,.1533E+00,& + .9145E-01,.1121E+00,.1668E+00,.8698E-01,.1188E+00,.1641E+00,.8621E-01,.7350E-01,.3384E-01,.1564E+00,& + .9267E-01,.1140E+00,.1703E+00,.8867E-01,.1199E+00,.1653E+00,.8689E-01,.7467E-01,.3441E-01,.1595E+00,& + .9415E-01,.1164E+00,.1745E+00,.9075E-01,.1212E+00,.1667E+00,.8767E-01,.7609E-01,.3511E-01,.1633E+00,& + .9563E-01,.1188E+00,.1787E+00,.9283E-01,.1224E+00,.1680E+00,.8846E-01,.7751E-01,.3581E-01,.1670E+00,& + .9710E-01,.1211E+00,.1829E+00,.9491E-01,.1237E+00,.1694E+00,.8925E-01,.7892E-01,.3650E-01,.1708E+00,& + .9858E-01,.1235E+00,.1871E+00,.9699E-01,.1250E+00,.1707E+00,.9004E-01,.8034E-01,.3720E-01,.1745E+00,& + .1001E+00,.1258E+00,.1913E+00,.9907E-01,.1263E+00,.1721E+00,.9082E-01,.8176E-01,.3789E-01,.1783E+00,& + .1016E+00,.1283E+00,.1957E+00,.1013E+00,.1276E+00,.1734E+00,.9165E-01,.8325E-01,.3864E-01,.1823E+00,& + .1031E+00,.1308E+00,.2001E+00,.1035E+00,.1289E+00,.1748E+00,.9247E-01,.8474E-01,.3939E-01,.1863E+00,& + .1047E+00,.1333E+00,.2046E+00,.1057E+00,.1302E+00,.1761E+00,.9329E-01,.8623E-01,.4014E-01,.1903E+00,& + .1062E+00,.1357E+00,.2090E+00,.1079E+00,.1315E+00,.1775E+00,.9412E-01,.8773E-01,.4089E-01,.1943E+00,& + .1078E+00,.1382E+00,.2134E+00,.1101E+00,.1327E+00,.1788E+00,.9494E-01,.8922E-01,.4164E-01,.1982E+00,& + .1092E+00,.1405E+00,.2175E+00,.1121E+00,.1340E+00,.1801E+00,.9575E-01,.9062E-01,.4237E-01,.2019E+00,& + .1107E+00,.1428E+00,.2216E+00,.1141E+00,.1352E+00,.1815E+00,.9657E-01,.9201E-01,.4309E-01,.2056E+00,& + .1121E+00,.1452E+00,.2258E+00,.1162E+00,.1365E+00,.1828E+00,.9738E-01,.9341E-01,.4382E-01,.2093E+00,& + .1136E+00,.1475E+00,.2299E+00,.1182E+00,.1377E+00,.1841E+00,.9819E-01,.9481E-01,.4455E-01,.2130E+00,& + .1150E+00,.1498E+00,.2340E+00,.1202E+00,.1389E+00,.1854E+00,.9901E-01,.9621E-01,.4528E-01,.2167E+00,& + .1167E+00,.1525E+00,.2388E+00,.1226E+00,.1403E+00,.1868E+00,.9991E-01,.9785E-01,.4614E-01,.2211E+00,& + .1184E+00,.1552E+00,.2437E+00,.1251E+00,.1416E+00,.1882E+00,.1008E+00,.9949E-01,.4699E-01,.2255E+00,& + .1201E+00,.1580E+00,.2486E+00,.1275E+00,.1430E+00,.1896E+00,.1017E+00,.1011E+00,.4785E-01,.2299E+00,& + .1218E+00,.1607E+00,.2535E+00,.1299E+00,.1443E+00,.1910E+00,.1026E+00,.1028E+00,.4870E-01,.2343E+00,& + .1235E+00,.1634E+00,.2584E+00,.1323E+00,.1457E+00,.1923E+00,.1035E+00,.1044E+00,.4956E-01,.2387E+00,& + .1260E+00,.1676E+00,.2659E+00,.1360E+00,.1476E+00,.1942E+00,.1048E+00,.1069E+00,.5083E-01,.2455E+00,& + .1285E+00,.1717E+00,.2734E+00,.1397E+00,.1495E+00,.1961E+00,.1061E+00,.1094E+00,.5210E-01,.2522E+00,& + .1311E+00,.1759E+00,.2809E+00,.1434E+00,.1514E+00,.1980E+00,.1074E+00,.1118E+00,.5337E-01,.2590E+00,& + .1336E+00,.1801E+00,.2884E+00,.1471E+00,.1533E+00,.1999E+00,.1088E+00,.1143E+00,.5464E-01,.2657E+00,& + .1361E+00,.1843E+00,.2959E+00,.1508E+00,.1552E+00,.2018E+00,.1101E+00,.1168E+00,.5591E-01,.2725E+00,& + .1396E+00,.1900E+00,.3063E+00,.1559E+00,.1577E+00,.2042E+00,.1118E+00,.1202E+00,.5767E-01,.2819E+00,& + .1431E+00,.1958E+00,.3168E+00,.1611E+00,.1601E+00,.2066E+00,.1136E+00,.1236E+00,.5943E-01,.2913E+00,& + .1466E+00,.2016E+00,.3272E+00,.1662E+00,.1626E+00,.2089E+00,.1154E+00,.1271E+00,.6119E-01,.3007E+00,& + .1501E+00,.2074E+00,.3376E+00,.1714E+00,.1650E+00,.2113E+00,.1172E+00,.1305E+00,.6296E-01,.3102E+00,& + .1535E+00,.2132E+00,.3481E+00,.1765E+00,.1675E+00,.2137E+00,.1189E+00,.1339E+00,.6472E-01,.3196E+00,& + .1580E+00,.2206E+00,.3615E+00,.1831E+00,.1705E+00,.2165E+00,.1212E+00,.1383E+00,.6697E-01,.3317E+00,& + .1624E+00,.2281E+00,.3751E+00,.1898E+00,.1736E+00,.2193E+00,.1235E+00,.1427E+00,.6928E-01,.3440E+00,& + .1670E+00,.2358E+00,.3890E+00,.1966E+00,.1766E+00,.2222E+00,.1258E+00,.1472E+00,.7165E-01,.3566E+00,& + .1717E+00,.2436E+00,.4032E+00,.2036E+00,.1797E+00,.2251E+00,.1281E+00,.1518E+00,.7407E-01,.3693E+00,& + .1778E+00,.2539E+00,.4219E+00,.2128E+00,.1837E+00,.2287E+00,.1312E+00,.1579E+00,.7725E-01,.3863E+00,& + .1841E+00,.2645E+00,.4410E+00,.2221E+00,.1877E+00,.2324E+00,.1343E+00,.1641E+00,.8051E-01,.4036E+00,& + .1919E+00,.2777E+00,.4651E+00,.2339E+00,.1926E+00,.2368E+00,.1382E+00,.1718E+00,.8457E-01,.4253E+00,& + .1999E+00,.2913E+00,.4897E+00,.2460E+00,.1976E+00,.2412E+00,.1422E+00,.1798E+00,.8879E-01,.4476E+00,& + .2096E+00,.3077E+00,.5195E+00,.2606E+00,.2035E+00,.2464E+00,.1470E+00,.1894E+00,.9389E-01,.4746E+00,& + .2194E+00,.3245E+00,.5501E+00,.2756E+00,.2095E+00,.2516E+00,.1520E+00,.1993E+00,.9917E-01,.5022E+00,& + .2311E+00,.3445E+00,.5862E+00,.2933E+00,.2164E+00,.2576E+00,.1577E+00,.2109E+00,.1054E+00,.5350E+00,& + .2446E+00,.3676E+00,.6284E+00,.3139E+00,.2244E+00,.2644E+00,.1646E+00,.2245E+00,.1128E+00,.5732E+00,& + .2619E+00,.3971E+00,.6820E+00,.3401E+00,.2343E+00,.2727E+00,.1731E+00,.2417E+00,.1222E+00,.6218E+00,& + .2813E+00,.4303E+00,.7424E+00,.3696E+00,.2454E+00,.2819E+00,.1828E+00,.2611E+00,.1329E+00,.6766E+00,& + .3081E+00,.4765E+00,.8264E+00,.4106E+00,.2604E+00,.2943E+00,.1962E+00,.2881E+00,.1480E+00,.7528E+00,& + .3431E+00,.5366E+00,.9357E+00,.4639E+00,.2797E+00,.3101E+00,.2137E+00,.3233E+00,.1679E+00,.8521E+00,& + .3848E+00,.6084E+00,.1066E+01,.5275E+00,.3026E+00,.3286E+00,.2347E+00,.3654E+00,.1922E+00,.9706E+00,& + .4548E+00,.7287E+00,.1285E+01,.6341E+00,.3407E+00,.3592E+00,.2700E+00,.4362E+00,.2340E+00,.1170E+01,& + .5711E+00,.9289E+00,.1649E+01,.8114E+00,.4040E+00,.4102E+00,.3293E+00,.5544E+00,.3062E+00,.1500E+01/ + data (((Bex_lw(ai,k,nh),ai= 5, 5),k=1,nwl_lw),nh=0,99)/ & + .5506E-01,.3918E-01,.2796E-01,.3351E-01,.6595E-01,.8195E-01,.6205E-01,.1181E+00,.2768E+00,.4168E-01,& + .5707E-01,.4229E-01,.3309E-01,.3612E-01,.6796E-01,.8445E-01,.6504E-01,.1233E+00,.2868E+00,.4650E-01,& + .5908E-01,.4539E-01,.3821E-01,.3872E-01,.6998E-01,.8695E-01,.6803E-01,.1285E+00,.2968E+00,.5133E-01,& + .6109E-01,.4849E-01,.4334E-01,.4133E-01,.7199E-01,.8944E-01,.7102E-01,.1336E+00,.3068E+00,.5616E-01,& + .6311E-01,.5160E-01,.4847E-01,.4393E-01,.7400E-01,.9194E-01,.7401E-01,.1388E+00,.3167E+00,.6099E-01,& + .6512E-01,.5470E-01,.5360E-01,.4654E-01,.7601E-01,.9444E-01,.7700E-01,.1440E+00,.3267E+00,.6582E-01,& + .6733E-01,.5826E-01,.5943E-01,.4954E-01,.7832E-01,.9730E-01,.8045E-01,.1499E+00,.3380E+00,.7138E-01,& + .6954E-01,.6183E-01,.6527E-01,.5253E-01,.8062E-01,.1002E+00,.8391E-01,.1559E+00,.3493E+00,.7693E-01,& + .7176E-01,.6540E-01,.7111E-01,.5553E-01,.8292E-01,.1030E+00,.8736E-01,.1618E+00,.3606E+00,.8249E-01,& + .7397E-01,.6896E-01,.7695E-01,.5852E-01,.8522E-01,.1059E+00,.9081E-01,.1677E+00,.3719E+00,.8805E-01,& + .7618E-01,.7253E-01,.8279E-01,.6152E-01,.8753E-01,.1087E+00,.9426E-01,.1737E+00,.3833E+00,.9361E-01,& + .7864E-01,.7662E-01,.8941E-01,.6493E-01,.9016E-01,.1120E+00,.9826E-01,.1805E+00,.3962E+00,.9996E-01,& + .8109E-01,.8070E-01,.9604E-01,.6835E-01,.9278E-01,.1153E+00,.1023E+00,.1873E+00,.4090E+00,.1063E+00,& + .8354E-01,.8479E-01,.1027E+00,.7177E-01,.9541E-01,.1185E+00,.1062E+00,.1941E+00,.4219E+00,.1127E+00,& + .8600E-01,.8888E-01,.1093E+00,.7518E-01,.9804E-01,.1218E+00,.1102E+00,.2009E+00,.4348E+00,.1190E+00,& + .8845E-01,.9296E-01,.1159E+00,.7860E-01,.1007E+00,.1250E+00,.1142E+00,.2076E+00,.4477E+00,.1254E+00,& + .9115E-01,.9755E-01,.1233E+00,.8241E-01,.1036E+00,.1287E+00,.1188E+00,.2153E+00,.4621E+00,.1325E+00,& + .9386E-01,.1021E+00,.1306E+00,.8622E-01,.1066E+00,.1324E+00,.1233E+00,.2229E+00,.4765E+00,.1396E+00,& + .9656E-01,.1067E+00,.1380E+00,.9003E-01,.1095E+00,.1361E+00,.1279E+00,.2306E+00,.4909E+00,.1467E+00,& + .9926E-01,.1113E+00,.1453E+00,.9383E-01,.1125E+00,.1397E+00,.1324E+00,.2382E+00,.5052E+00,.1539E+00,& + .1020E+00,.1159E+00,.1527E+00,.9764E-01,.1155E+00,.1434E+00,.1369E+00,.2459E+00,.5196E+00,.1610E+00,& + .1050E+00,.1211E+00,.1609E+00,.1019E+00,.1188E+00,.1476E+00,.1421E+00,.2545E+00,.5358E+00,.1689E+00,& + .1079E+00,.1262E+00,.1691E+00,.1061E+00,.1221E+00,.1517E+00,.1473E+00,.2631E+00,.5519E+00,.1769E+00,& + .1109E+00,.1314E+00,.1772E+00,.1104E+00,.1255E+00,.1559E+00,.1525E+00,.2717E+00,.5680E+00,.1849E+00,& + .1139E+00,.1365E+00,.1854E+00,.1146E+00,.1288E+00,.1600E+00,.1576E+00,.2804E+00,.5842E+00,.1928E+00,& + .1169E+00,.1417E+00,.1936E+00,.1189E+00,.1321E+00,.1642E+00,.1628E+00,.2890E+00,.6003E+00,.2008E+00,& + .1202E+00,.1474E+00,.2025E+00,.1236E+00,.1358E+00,.1688E+00,.1686E+00,.2986E+00,.6181E+00,.2096E+00,& + .1235E+00,.1531E+00,.2115E+00,.1282E+00,.1395E+00,.1735E+00,.1744E+00,.3081E+00,.6359E+00,.2183E+00,& + .1267E+00,.1588E+00,.2204E+00,.1329E+00,.1432E+00,.1781E+00,.1803E+00,.3177E+00,.6537E+00,.2271E+00,& + .1300E+00,.1645E+00,.2294E+00,.1375E+00,.1469E+00,.1827E+00,.1861E+00,.3273E+00,.6714E+00,.2358E+00,& + .1333E+00,.1702E+00,.2383E+00,.1422E+00,.1506E+00,.1874E+00,.1919E+00,.3369E+00,.6892E+00,.2446E+00,& + .1369E+00,.1766E+00,.2481E+00,.1473E+00,.1548E+00,.1926E+00,.1984E+00,.3476E+00,.7089E+00,.2542E+00,& + .1405E+00,.1829E+00,.2579E+00,.1524E+00,.1589E+00,.1978E+00,.2050E+00,.3583E+00,.7287E+00,.2639E+00,& + .1441E+00,.1892E+00,.2678E+00,.1576E+00,.1631E+00,.2030E+00,.2115E+00,.3690E+00,.7484E+00,.2736E+00,& + .1478E+00,.1956E+00,.2776E+00,.1627E+00,.1672E+00,.2082E+00,.2181E+00,.3797E+00,.7681E+00,.2832E+00,& + .1514E+00,.2019E+00,.2874E+00,.1678E+00,.1713E+00,.2134E+00,.2246E+00,.3904E+00,.7878E+00,.2929E+00,& + .1553E+00,.2088E+00,.2980E+00,.1734E+00,.1759E+00,.2191E+00,.2319E+00,.4021E+00,.8092E+00,.3034E+00,& + .1593E+00,.2158E+00,.3086E+00,.1790E+00,.1804E+00,.2249E+00,.2391E+00,.4139E+00,.8306E+00,.3139E+00,& + .1632E+00,.2227E+00,.3192E+00,.1845E+00,.1850E+00,.2306E+00,.2464E+00,.4256E+00,.8521E+00,.3244E+00,& + .1672E+00,.2296E+00,.3298E+00,.1901E+00,.1895E+00,.2364E+00,.2537E+00,.4374E+00,.8735E+00,.3349E+00,& + .1711E+00,.2366E+00,.3405E+00,.1957E+00,.1941E+00,.2421E+00,.2609E+00,.4491E+00,.8949E+00,.3454E+00,& + .1755E+00,.2442E+00,.3520E+00,.2017E+00,.1991E+00,.2485E+00,.2690E+00,.4621E+00,.9185E+00,.3568E+00,& + .1798E+00,.2518E+00,.3636E+00,.2078E+00,.2042E+00,.2549E+00,.2771E+00,.4751E+00,.9421E+00,.3683E+00,& + .1841E+00,.2594E+00,.3751E+00,.2139E+00,.2092E+00,.2613E+00,.2853E+00,.4881E+00,.9657E+00,.3798E+00,& + .1885E+00,.2671E+00,.3867E+00,.2199E+00,.2142E+00,.2677E+00,.2934E+00,.5011E+00,.9893E+00,.3913E+00,& + .1928E+00,.2747E+00,.3983E+00,.2260E+00,.2193E+00,.2741E+00,.3015E+00,.5141E+00,.1013E+01,.4028E+00,& + .1975E+00,.2830E+00,.4106E+00,.2325E+00,.2248E+00,.2811E+00,.3104E+00,.5282E+00,.1038E+01,.4151E+00,& + .2022E+00,.2912E+00,.4230E+00,.2391E+00,.2303E+00,.2881E+00,.3193E+00,.5424E+00,.1064E+01,.4275E+00,& + .2069E+00,.2995E+00,.4354E+00,.2456E+00,.2358E+00,.2951E+00,.3282E+00,.5565E+00,.1089E+01,.4398E+00,& + .2116E+00,.3078E+00,.4478E+00,.2521E+00,.2413E+00,.3021E+00,.3372E+00,.5706E+00,.1114E+01,.4522E+00,& + .2163E+00,.3161E+00,.4602E+00,.2587E+00,.2468E+00,.3091E+00,.3461E+00,.5848E+00,.1140E+01,.4645E+00,& + .2205E+00,.3235E+00,.4712E+00,.2645E+00,.2518E+00,.3154E+00,.3542E+00,.5975E+00,.1162E+01,.4756E+00,& + .2247E+00,.3309E+00,.4822E+00,.2703E+00,.2567E+00,.3217E+00,.3623E+00,.6103E+00,.1185E+01,.4866E+00,& + .2290E+00,.3383E+00,.4932E+00,.2761E+00,.2617E+00,.3281E+00,.3704E+00,.6230E+00,.1208E+01,.4976E+00,& + .2332E+00,.3458E+00,.5043E+00,.2819E+00,.2667E+00,.3344E+00,.3784E+00,.6357E+00,.1231E+01,.5086E+00,& + .2374E+00,.3532E+00,.5153E+00,.2877E+00,.2716E+00,.3408E+00,.3865E+00,.6485E+00,.1254E+01,.5197E+00,& + .2419E+00,.3611E+00,.5269E+00,.2939E+00,.2770E+00,.3476E+00,.3953E+00,.6621E+00,.1278E+01,.5314E+00,& + .2464E+00,.3690E+00,.5386E+00,.3001E+00,.2823E+00,.3544E+00,.4040E+00,.6758E+00,.1302E+01,.5431E+00,& + .2509E+00,.3770E+00,.5503E+00,.3063E+00,.2876E+00,.3612E+00,.4128E+00,.6894E+00,.1326E+01,.5548E+00,& + .2554E+00,.3849E+00,.5619E+00,.3125E+00,.2930E+00,.3681E+00,.4215E+00,.7031E+00,.1350E+01,.5665E+00,& + .2599E+00,.3928E+00,.5736E+00,.3186E+00,.2983E+00,.3749E+00,.4303E+00,.7167E+00,.1374E+01,.5782E+00,& + .2647E+00,.4012E+00,.5858E+00,.3252E+00,.3040E+00,.3822E+00,.4396E+00,.7312E+00,.1399E+01,.5905E+00,& + .2695E+00,.4096E+00,.5981E+00,.3317E+00,.3097E+00,.3895E+00,.4490E+00,.7456E+00,.1424E+01,.6028E+00,& + .2743E+00,.4180E+00,.6103E+00,.3382E+00,.3154E+00,.3968E+00,.4583E+00,.7601E+00,.1450E+01,.6151E+00,& + .2791E+00,.4264E+00,.6226E+00,.3447E+00,.3211E+00,.4041E+00,.4677E+00,.7746E+00,.1475E+01,.6274E+00,& + .2839E+00,.4348E+00,.6348E+00,.3512E+00,.3268E+00,.4114E+00,.4770E+00,.7891E+00,.1500E+01,.6398E+00,& + .2890E+00,.4438E+00,.6478E+00,.3581E+00,.3329E+00,.4193E+00,.4871E+00,.8046E+00,.1528E+01,.6529E+00,& + .2941E+00,.4528E+00,.6608E+00,.3651E+00,.3390E+00,.4272E+00,.4973E+00,.8202E+00,.1555E+01,.6660E+00,& + .2992E+00,.4618E+00,.6738E+00,.3720E+00,.3452E+00,.4351E+00,.5074E+00,.8358E+00,.1582E+01,.6792E+00,& + .3044E+00,.4708E+00,.6868E+00,.3789E+00,.3513E+00,.4430E+00,.5175E+00,.8513E+00,.1609E+01,.6923E+00,& + .3095E+00,.4798E+00,.6998E+00,.3859E+00,.3574E+00,.4509E+00,.5276E+00,.8669E+00,.1636E+01,.7055E+00,& + .3185E+00,.4955E+00,.7222E+00,.3979E+00,.3682E+00,.4648E+00,.5454E+00,.8941E+00,.1683E+01,.7281E+00,& + .3274E+00,.5111E+00,.7446E+00,.4098E+00,.3789E+00,.4786E+00,.5632E+00,.9213E+00,.1729E+01,.7508E+00,& + .3364E+00,.5268E+00,.7670E+00,.4218E+00,.3897E+00,.4925E+00,.5810E+00,.9484E+00,.1776E+01,.7735E+00,& + .3453E+00,.5425E+00,.7894E+00,.4338E+00,.4004E+00,.5064E+00,.5989E+00,.9756E+00,.1822E+01,.7962E+00,& + .3543E+00,.5581E+00,.8118E+00,.4458E+00,.4112E+00,.5202E+00,.6167E+00,.1003E+01,.1869E+01,.8188E+00,& + .3667E+00,.5796E+00,.8421E+00,.4621E+00,.4261E+00,.5396E+00,.6415E+00,.1040E+01,.1932E+01,.8497E+00,& + .3790E+00,.6011E+00,.8725E+00,.4784E+00,.4410E+00,.5589E+00,.6663E+00,.1078E+01,.1996E+01,.8805E+00,& + .3914E+00,.6226E+00,.9028E+00,.4947E+00,.4560E+00,.5782E+00,.6911E+00,.1115E+01,.2059E+01,.9113E+00,& + .4037E+00,.6441E+00,.9331E+00,.5110E+00,.4709E+00,.5975E+00,.7159E+00,.1152E+01,.2123E+01,.9422E+00,& + .4161E+00,.6656E+00,.9634E+00,.5274E+00,.4858E+00,.6168E+00,.7407E+00,.1190E+01,.2187E+01,.9730E+00,& + .4320E+00,.6933E+00,.1002E+01,.5481E+00,.5051E+00,.6419E+00,.7730E+00,.1238E+01,.2267E+01,.1012E+01,& + .4547E+00,.7327E+00,.1057E+01,.5778E+00,.5328E+00,.6778E+00,.8190E+00,.1306E+01,.2380E+01,.1068E+01,& + .4751E+00,.7679E+00,.1105E+01,.6043E+00,.5576E+00,.7101E+00,.8605E+00,.1368E+01,.2482E+01,.1118E+01,& + .4959E+00,.8038E+00,.1155E+01,.6311E+00,.5829E+00,.7430E+00,.9028E+00,.1430E+01,.2585E+01,.1169E+01,& + .5284E+00,.8597E+00,.1231E+01,.6728E+00,.6227E+00,.7947E+00,.9690E+00,.1527E+01,.2748E+01,.1247E+01,& + .5549E+00,.9054E+00,.1294E+01,.7069E+00,.6552E+00,.8370E+00,.1024E+01,.1607E+01,.2877E+01,.1311E+01,& + .5901E+00,.9658E+00,.1375E+01,.7517E+00,.6983E+00,.8933E+00,.1096E+01,.1712E+01,.3046E+01,.1395E+01,& + .6269E+00,.1028E+01,.1460E+01,.7982E+00,.7436E+00,.9522E+00,.1171E+01,.1821E+01,.3222E+01,.1482E+01,& + .6697E+00,.1101E+01,.1558E+01,.8521E+00,.7963E+00,.1021E+01,.1259E+01,.1949E+01,.3428E+01,.1583E+01,& + .7285E+00,.1201E+01,.1690E+01,.9254E+00,.8690E+00,.1116E+01,.1381E+01,.2122E+01,.3703E+01,.1720E+01,& + .7908E+00,.1307E+01,.1829E+01,.1003E+01,.9462E+00,.1217E+01,.1510E+01,.2305E+01,.3988E+01,.1864E+01,& + .8831E+00,.1462E+01,.2031E+01,.1116E+01,.1061E+01,.1367E+01,.1701E+01,.2575E+01,.4410E+01,.2074E+01,& + .9884E+00,.1638E+01,.2259E+01,.1244E+01,.1192E+01,.1538E+01,.1920E+01,.2880E+01,.4873E+01,.2311E+01,& + .1140E+01,.1890E+01,.2580E+01,.1426E+01,.1382E+01,.1787E+01,.2235E+01,.3315E+01,.5532E+01,.2646E+01,& + .1365E+01,.2259E+01,.3043E+01,.1691E+01,.1664E+01,.2155E+01,.2701E+01,.3947E+01,.6458E+01,.3131E+01,& + .1667E+01,.2750E+01,.3647E+01,.2042E+01,.2044E+01,.2652E+01,.3326E+01,.4784E+01,.7665E+01,.3767E+01,& + .2281E+01,.3727E+01,.4821E+01,.2736E+01,.2819E+01,.3660E+01,.4583E+01,.6425E+01,.9939E+01,.5007E+01,& + .3357E+01,.5397E+01,.6758E+01,.3914E+01,.4181E+01,.5420E+01,.6748E+01,.9167E+01,.1359E+02,.7068E+01,& + .6683E+01,.1032E+02,.1219E+02,.7377E+01,.8380E+01,.1077E+02,.1317E+02,.1689E+02,.2304E+02,.1290E+02/ + data (((Bex_lw(ai,k,nh),ai= 6, 6),k=1,nwl_lw),nh=0,99)/ & + .8507E-01,.1012E+00,.1020E+00,.1242E+00,.1501E+00,.1512E+00,.1408E+00,.1564E+00,.1616E+00,.1167E+00,& + .8754E-01,.1042E+00,.1045E+00,.1260E+00,.1530E+00,.1546E+00,.1443E+00,.1600E+00,.1653E+00,.1196E+00,& + .9001E-01,.1072E+00,.1070E+00,.1278E+00,.1559E+00,.1579E+00,.1478E+00,.1636E+00,.1690E+00,.1225E+00,& + .9247E-01,.1102E+00,.1095E+00,.1295E+00,.1588E+00,.1613E+00,.1513E+00,.1672E+00,.1727E+00,.1254E+00,& + .9494E-01,.1132E+00,.1120E+00,.1313E+00,.1617E+00,.1647E+00,.1547E+00,.1708E+00,.1765E+00,.1283E+00,& + .9741E-01,.1162E+00,.1145E+00,.1331E+00,.1646E+00,.1680E+00,.1582E+00,.1744E+00,.1802E+00,.1312E+00,& + .1001E+00,.1195E+00,.1174E+00,.1352E+00,.1677E+00,.1715E+00,.1621E+00,.1784E+00,.1842E+00,.1344E+00,& + .1028E+00,.1228E+00,.1203E+00,.1372E+00,.1708E+00,.1750E+00,.1660E+00,.1823E+00,.1883E+00,.1377E+00,& + .1055E+00,.1261E+00,.1233E+00,.1392E+00,.1740E+00,.1784E+00,.1699E+00,.1863E+00,.1924E+00,.1409E+00,& + .1082E+00,.1294E+00,.1262E+00,.1413E+00,.1771E+00,.1819E+00,.1738E+00,.1902E+00,.1964E+00,.1442E+00,& + .1109E+00,.1327E+00,.1291E+00,.1433E+00,.1802E+00,.1854E+00,.1777E+00,.1942E+00,.2005E+00,.1474E+00,& + .1138E+00,.1363E+00,.1324E+00,.1456E+00,.1835E+00,.1892E+00,.1818E+00,.1983E+00,.2046E+00,.1510E+00,& + .1168E+00,.1399E+00,.1357E+00,.1479E+00,.1868E+00,.1931E+00,.1858E+00,.2024E+00,.2088E+00,.1545E+00,& + .1197E+00,.1435E+00,.1389E+00,.1501E+00,.1901E+00,.1970E+00,.1899E+00,.2064E+00,.2129E+00,.1581E+00,& + .1226E+00,.1471E+00,.1422E+00,.1524E+00,.1934E+00,.2008E+00,.1939E+00,.2105E+00,.2171E+00,.1616E+00,& + .1256E+00,.1507E+00,.1455E+00,.1546E+00,.1968E+00,.2047E+00,.1980E+00,.2146E+00,.2213E+00,.1652E+00,& + .1287E+00,.1546E+00,.1491E+00,.1571E+00,.2003E+00,.2087E+00,.2024E+00,.2191E+00,.2258E+00,.1691E+00,& + .1319E+00,.1585E+00,.1527E+00,.1596E+00,.2038E+00,.2127E+00,.2069E+00,.2235E+00,.2303E+00,.1729E+00,& + .1351E+00,.1623E+00,.1563E+00,.1621E+00,.2073E+00,.2167E+00,.2114E+00,.2280E+00,.2349E+00,.1768E+00,& + .1383E+00,.1662E+00,.1599E+00,.1647E+00,.2109E+00,.2207E+00,.2158E+00,.2325E+00,.2394E+00,.1807E+00,& + .1415E+00,.1701E+00,.1635E+00,.1672E+00,.2144E+00,.2247E+00,.2203E+00,.2369E+00,.2439E+00,.1845E+00,& + .1449E+00,.1742E+00,.1674E+00,.1699E+00,.2182E+00,.2290E+00,.2249E+00,.2415E+00,.2483E+00,.1887E+00,& + .1484E+00,.1784E+00,.1712E+00,.1727E+00,.2220E+00,.2333E+00,.2295E+00,.2461E+00,.2528E+00,.1928E+00,& + .1518E+00,.1825E+00,.1751E+00,.1755E+00,.2257E+00,.2375E+00,.2342E+00,.2508E+00,.2572E+00,.1970E+00,& + .1553E+00,.1867E+00,.1790E+00,.1783E+00,.2295E+00,.2418E+00,.2388E+00,.2554E+00,.2616E+00,.2011E+00,& + .1587E+00,.1908E+00,.1829E+00,.1811E+00,.2333E+00,.2461E+00,.2434E+00,.2600E+00,.2660E+00,.2052E+00,& + .1624E+00,.1953E+00,.1870E+00,.1841E+00,.2373E+00,.2507E+00,.2484E+00,.2649E+00,.2711E+00,.2096E+00,& + .1661E+00,.1997E+00,.1912E+00,.1871E+00,.2413E+00,.2554E+00,.2534E+00,.2698E+00,.2762E+00,.2141E+00,& + .1698E+00,.2041E+00,.1953E+00,.1901E+00,.2454E+00,.2600E+00,.2584E+00,.2747E+00,.2812E+00,.2185E+00,& + .1735E+00,.2086E+00,.1995E+00,.1931E+00,.2494E+00,.2647E+00,.2634E+00,.2796E+00,.2863E+00,.2229E+00,& + .1772E+00,.2130E+00,.2036E+00,.1961E+00,.2534E+00,.2693E+00,.2684E+00,.2845E+00,.2914E+00,.2273E+00,& + .1812E+00,.2177E+00,.2080E+00,.1994E+00,.2577E+00,.2741E+00,.2736E+00,.2896E+00,.2960E+00,.2320E+00,& + .1852E+00,.2224E+00,.2124E+00,.2027E+00,.2620E+00,.2788E+00,.2789E+00,.2948E+00,.3005E+00,.2366E+00,& + .1892E+00,.2271E+00,.2168E+00,.2059E+00,.2663E+00,.2836E+00,.2842E+00,.3000E+00,.3051E+00,.2413E+00,& + .1932E+00,.2318E+00,.2212E+00,.2092E+00,.2706E+00,.2883E+00,.2894E+00,.3051E+00,.3097E+00,.2460E+00,& + .1972E+00,.2365E+00,.2256E+00,.2125E+00,.2749E+00,.2931E+00,.2947E+00,.3103E+00,.3142E+00,.2507E+00,& + .2014E+00,.2415E+00,.2302E+00,.2160E+00,.2795E+00,.2983E+00,.3001E+00,.3156E+00,.3198E+00,.2556E+00,& + .2057E+00,.2465E+00,.2349E+00,.2196E+00,.2840E+00,.3034E+00,.3055E+00,.3208E+00,.3253E+00,.2605E+00,& + .2099E+00,.2514E+00,.2395E+00,.2231E+00,.2886E+00,.3086E+00,.3109E+00,.3261E+00,.3309E+00,.2655E+00,& + .2142E+00,.2564E+00,.2441E+00,.2266E+00,.2932E+00,.3138E+00,.3163E+00,.3313E+00,.3364E+00,.2704E+00,& + .2184E+00,.2614E+00,.2488E+00,.2302E+00,.2978E+00,.3189E+00,.3217E+00,.3366E+00,.3420E+00,.2753E+00,& + .2230E+00,.2666E+00,.2536E+00,.2339E+00,.3026E+00,.3243E+00,.3276E+00,.3423E+00,.3470E+00,.2805E+00,& + .2275E+00,.2718E+00,.2585E+00,.2377E+00,.3074E+00,.3297E+00,.3335E+00,.3479E+00,.3521E+00,.2857E+00,& + .2320E+00,.2771E+00,.2634E+00,.2415E+00,.3122E+00,.3350E+00,.3394E+00,.3536E+00,.3571E+00,.2908E+00,& + .2366E+00,.2823E+00,.2683E+00,.2453E+00,.3170E+00,.3404E+00,.3453E+00,.3592E+00,.3622E+00,.2960E+00,& + .2411E+00,.2876E+00,.2732E+00,.2490E+00,.3218E+00,.3458E+00,.3512E+00,.3649E+00,.3672E+00,.3012E+00,& + .2459E+00,.2931E+00,.2783E+00,.2531E+00,.3269E+00,.3514E+00,.3570E+00,.3706E+00,.3728E+00,.3066E+00,& + .2507E+00,.2986E+00,.2834E+00,.2571E+00,.3321E+00,.3570E+00,.3629E+00,.3762E+00,.3784E+00,.3120E+00,& + .2555E+00,.3041E+00,.2885E+00,.2611E+00,.3372E+00,.3626E+00,.3687E+00,.3819E+00,.3840E+00,.3174E+00,& + .2603E+00,.3095E+00,.2936E+00,.2652E+00,.3423E+00,.3683E+00,.3745E+00,.3876E+00,.3896E+00,.3228E+00,& + .2651E+00,.3150E+00,.2987E+00,.2692E+00,.3474E+00,.3739E+00,.3804E+00,.3933E+00,.3952E+00,.3282E+00,& + .2692E+00,.3197E+00,.3030E+00,.2727E+00,.3518E+00,.3787E+00,.3855E+00,.3982E+00,.4000E+00,.3328E+00,& + .2734E+00,.3244E+00,.3073E+00,.2762E+00,.3562E+00,.3836E+00,.3907E+00,.4031E+00,.4048E+00,.3375E+00,& + .2775E+00,.3291E+00,.3117E+00,.2797E+00,.3606E+00,.3884E+00,.3958E+00,.4081E+00,.4097E+00,.3421E+00,& + .2817E+00,.3338E+00,.3160E+00,.2831E+00,.3650E+00,.3933E+00,.4009E+00,.4130E+00,.4145E+00,.3467E+00,& + .2858E+00,.3385E+00,.3204E+00,.2866E+00,.3693E+00,.3981E+00,.4061E+00,.4179E+00,.4193E+00,.3513E+00,& + .2902E+00,.3434E+00,.3248E+00,.2902E+00,.3739E+00,.4031E+00,.4114E+00,.4230E+00,.4238E+00,.3561E+00,& + .2945E+00,.3483E+00,.3293E+00,.2939E+00,.3784E+00,.4081E+00,.4168E+00,.4281E+00,.4283E+00,.3608E+00,& + .2988E+00,.3531E+00,.3338E+00,.2975E+00,.3830E+00,.4131E+00,.4222E+00,.4332E+00,.4328E+00,.3656E+00,& + .3031E+00,.3580E+00,.3383E+00,.3012E+00,.3875E+00,.4181E+00,.4275E+00,.4383E+00,.4373E+00,.3704E+00,& + .3075E+00,.3628E+00,.3428E+00,.3048E+00,.3921E+00,.4231E+00,.4329E+00,.4434E+00,.4418E+00,.3751E+00,& + .3120E+00,.3679E+00,.3475E+00,.3086E+00,.3968E+00,.4283E+00,.4382E+00,.4485E+00,.4467E+00,.3801E+00,& + .3165E+00,.3729E+00,.3521E+00,.3124E+00,.4016E+00,.4334E+00,.4434E+00,.4536E+00,.4516E+00,.3850E+00,& + .3210E+00,.3780E+00,.3567E+00,.3162E+00,.4063E+00,.4385E+00,.4487E+00,.4587E+00,.4564E+00,.3899E+00,& + .3255E+00,.3830E+00,.3614E+00,.3200E+00,.4111E+00,.4437E+00,.4539E+00,.4638E+00,.4613E+00,.3948E+00,& + .3301E+00,.3880E+00,.3660E+00,.3238E+00,.4158E+00,.4488E+00,.4592E+00,.4689E+00,.4662E+00,.3997E+00,& + .3348E+00,.3932E+00,.3708E+00,.3278E+00,.4208E+00,.4542E+00,.4647E+00,.4742E+00,.4715E+00,.4048E+00,& + .3395E+00,.3985E+00,.3756E+00,.3318E+00,.4257E+00,.4595E+00,.4703E+00,.4794E+00,.4769E+00,.4099E+00,& + .3442E+00,.4037E+00,.3804E+00,.3358E+00,.4307E+00,.4649E+00,.4758E+00,.4847E+00,.4822E+00,.4149E+00,& + .3489E+00,.4089E+00,.3852E+00,.3397E+00,.4356E+00,.4702E+00,.4813E+00,.4899E+00,.4876E+00,.4200E+00,& + .3536E+00,.4141E+00,.3900E+00,.3437E+00,.4405E+00,.4756E+00,.4869E+00,.4952E+00,.4929E+00,.4251E+00,& + .3609E+00,.4221E+00,.3974E+00,.3499E+00,.4482E+00,.4838E+00,.4956E+00,.5034E+00,.5002E+00,.4329E+00,& + .3683E+00,.4302E+00,.4047E+00,.3561E+00,.4558E+00,.4921E+00,.5043E+00,.5116E+00,.5075E+00,.4407E+00,& + .3756E+00,.4382E+00,.4121E+00,.3623E+00,.4635E+00,.5004E+00,.5130E+00,.5198E+00,.5148E+00,.4485E+00,& + .3830E+00,.4463E+00,.4195E+00,.3685E+00,.4711E+00,.5086E+00,.5217E+00,.5280E+00,.5221E+00,.4563E+00,& + .3903E+00,.4543E+00,.4269E+00,.3747E+00,.4787E+00,.5169E+00,.5304E+00,.5362E+00,.5294E+00,.4641E+00,& + .4018E+00,.4668E+00,.4382E+00,.3844E+00,.4907E+00,.5296E+00,.5433E+00,.5485E+00,.5414E+00,.4762E+00,& + .4132E+00,.4792E+00,.4496E+00,.3941E+00,.5026E+00,.5423E+00,.5562E+00,.5608E+00,.5534E+00,.4882E+00,& + .4247E+00,.4916E+00,.4610E+00,.4038E+00,.5145E+00,.5550E+00,.5690E+00,.5730E+00,.5654E+00,.5002E+00,& + .4362E+00,.5041E+00,.4723E+00,.4135E+00,.5264E+00,.5677E+00,.5819E+00,.5853E+00,.5774E+00,.5123E+00,& + .4476E+00,.5165E+00,.4837E+00,.4232E+00,.5383E+00,.5804E+00,.5947E+00,.5976E+00,.5894E+00,.5243E+00,& + .4603E+00,.5301E+00,.4961E+00,.4339E+00,.5514E+00,.5943E+00,.6091E+00,.6111E+00,.6012E+00,.5374E+00,& + .4796E+00,.5508E+00,.5149E+00,.4503E+00,.5713E+00,.6154E+00,.6312E+00,.6316E+00,.6205E+00,.5573E+00,& + .4993E+00,.5719E+00,.5341E+00,.4670E+00,.5916E+00,.6369E+00,.6532E+00,.6526E+00,.6387E+00,.5776E+00,& + .5195E+00,.5934E+00,.5537E+00,.4841E+00,.6123E+00,.6587E+00,.6748E+00,.6735E+00,.6575E+00,.5984E+00,& + .5436E+00,.6188E+00,.5769E+00,.5045E+00,.6370E+00,.6846E+00,.7005E+00,.6975E+00,.6822E+00,.6228E+00,& + .5683E+00,.6449E+00,.6006E+00,.5254E+00,.6623E+00,.7111E+00,.7273E+00,.7229E+00,.7073E+00,.6478E+00,& + .5936E+00,.6714E+00,.6247E+00,.5468E+00,.6882E+00,.7381E+00,.7550E+00,.7487E+00,.7309E+00,.6732E+00,& + .6213E+00,.7004E+00,.6510E+00,.5703E+00,.7163E+00,.7675E+00,.7851E+00,.7767E+00,.7555E+00,.7010E+00,& + .6535E+00,.7340E+00,.6815E+00,.5976E+00,.7490E+00,.8013E+00,.8183E+00,.8090E+00,.7846E+00,.7332E+00,& + .6925E+00,.7745E+00,.7182E+00,.6307E+00,.7885E+00,.8422E+00,.8585E+00,.8463E+00,.8223E+00,.7719E+00,& + .7409E+00,.8244E+00,.7634E+00,.6718E+00,.8374E+00,.8925E+00,.9092E+00,.8942E+00,.8675E+00,.8195E+00,& + .7951E+00,.8801E+00,.8139E+00,.7178E+00,.8917E+00,.9484E+00,.9654E+00,.9471E+00,.9159E+00,.8725E+00,& + .8780E+00,.9646E+00,.8904E+00,.7883E+00,.9746E+00,.1033E+01,.1048E+01,.1025E+01,.9917E+00,.9530E+00,& + .9790E+00,.1067E+01,.9831E+00,.8742E+00,.1075E+01,.1135E+01,.1150E+01,.1121E+01,.1080E+01,.1050E+01,& + .1111E+01,.1199E+01,.1102E+01,.9862E+00,.1205E+01,.1265E+01,.1276E+01,.1241E+01,.1198E+01,.1175E+01,& + .1314E+01,.1401E+01,.1286E+01,.1160E+01,.1404E+01,.1464E+01,.1471E+01,.1426E+01,.1373E+01,.1367E+01,& + .1600E+01,.1682E+01,.1542E+01,.1404E+01,.1679E+01,.1738E+01,.1738E+01,.1681E+01,.1614E+01,.1634E+01,& + .2137E+01,.2204E+01,.2019E+01,.1866E+01,.2190E+01,.2241E+01,.2229E+01,.2151E+01,.2071E+01,.2130E+01,& + .3477E+01,.3490E+01,.3204E+01,.3029E+01,.3436E+01,.3461E+01,.3423E+01,.3306E+01,.3196E+01,.3354E+01/ + data (((Bex_lw(ai,k,nh),ai= 7, 7),k=1,nwl_lw),nh=0,99)/ & + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,& + .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01/ + data (((Bex_lw(ai,k,nh),ai= 8, 8),k=1,nwl_lw),nh=0,99)/ & + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,& + .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01/ + data (((Bex_lw(ai,k,nh),ai= 9, 9),k=1,nwl_lw),nh=0,99)/ & + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,& + .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01/ + data (((Bex_lw(ai,k,nh),ai=10,10),k=1,nwl_lw),nh=0,99)/ & + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,& + .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01/ + data (((Bex_lw(ai,k,nh),ai=11,11),k=1,nwl_lw),nh=0,99)/ & + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,& + .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01/ + data (((Bex_lw(ai,k,nh),ai=12,12),k=1,nwl_lw),nh=0,99)/ & + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,& + .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01/ + data (((Bex_lw(ai,k,nh),ai=13,13),k=1,nwl_lw),nh=0,99)/ & + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,& + .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01/ + data (((Bex_lw(ai,k,nh),ai=14,14),k=1,nwl_lw),nh=0,99)/ & + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,& + .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01/ + data (((w0_lw(ai,k,nh),ai= 1, 1),k=1,nwl_lw),nh=0,99)/ & + .1325E-03,.1713E-02,.1149E-02,.1635E-02,.2001E-02,.1756E-02,.1147E-02,.4354E-02,.1745E-01,.1744E-02,& + .1309E-03,.1522E-02,.1084E-02,.1627E-02,.2007E-02,.1761E-02,.1167E-02,.4478E-02,.1816E-01,.1573E-02,& + .1292E-03,.1332E-02,.1018E-02,.1618E-02,.2013E-02,.1767E-02,.1188E-02,.4603E-02,.1887E-01,.1402E-02,& + .1275E-03,.1141E-02,.9531E-03,.1610E-02,.2019E-02,.1772E-02,.1208E-02,.4728E-02,.1958E-01,.1231E-02,& + .1258E-03,.9507E-03,.8878E-03,.1602E-02,.2025E-02,.1778E-02,.1228E-02,.4852E-02,.2029E-01,.1060E-02,& + .1242E-03,.7601E-03,.8225E-03,.1594E-02,.2031E-02,.1784E-02,.1248E-02,.4977E-02,.2100E-01,.8890E-03,& + .1232E-03,.7190E-03,.8014E-03,.1589E-02,.2039E-02,.1793E-02,.1275E-02,.5120E-02,.2184E-01,.8469E-03,& + .1223E-03,.6779E-03,.7803E-03,.1584E-02,.2048E-02,.1802E-02,.1301E-02,.5263E-02,.2267E-01,.8049E-03,& + .1214E-03,.6367E-03,.7592E-03,.1578E-02,.2057E-02,.1811E-02,.1327E-02,.5405E-02,.2351E-01,.7628E-03,& + .1204E-03,.5956E-03,.7381E-03,.1573E-02,.2066E-02,.1820E-02,.1354E-02,.5548E-02,.2434E-01,.7207E-03,& + .1195E-03,.5545E-03,.7170E-03,.1568E-02,.2075E-02,.1829E-02,.1380E-02,.5691E-02,.2518E-01,.6787E-03,& + .1191E-03,.5381E-03,.7072E-03,.1567E-02,.2087E-02,.1842E-02,.1413E-02,.5851E-02,.2613E-01,.6622E-03,& + .1187E-03,.5217E-03,.6973E-03,.1565E-02,.2099E-02,.1855E-02,.1445E-02,.6012E-02,.2708E-01,.6458E-03,& + .1184E-03,.5053E-03,.6874E-03,.1563E-02,.2111E-02,.1867E-02,.1478E-02,.6172E-02,.2803E-01,.6294E-03,& + .1180E-03,.4889E-03,.6776E-03,.1561E-02,.2123E-02,.1880E-02,.1511E-02,.6332E-02,.2898E-01,.6130E-03,& + .1176E-03,.4726E-03,.6677E-03,.1560E-02,.2135E-02,.1893E-02,.1544E-02,.6493E-02,.2993E-01,.5966E-03,& + .1175E-03,.4638E-03,.6620E-03,.1559E-02,.2149E-02,.1908E-02,.1583E-02,.6676E-02,.3104E-01,.5887E-03,& + .1175E-03,.4551E-03,.6564E-03,.1558E-02,.2162E-02,.1924E-02,.1623E-02,.6860E-02,.3216E-01,.5807E-03,& + .1174E-03,.4464E-03,.6507E-03,.1558E-02,.2176E-02,.1940E-02,.1663E-02,.7044E-02,.3327E-01,.5727E-03,& + .1173E-03,.4377E-03,.6450E-03,.1557E-02,.2190E-02,.1955E-02,.1703E-02,.7227E-02,.3439E-01,.5647E-03,& + .1172E-03,.4290E-03,.6394E-03,.1556E-02,.2204E-02,.1971E-02,.1743E-02,.7411E-02,.3550E-01,.5567E-03,& + .1174E-03,.4246E-03,.6367E-03,.1557E-02,.2220E-02,.1989E-02,.1791E-02,.7618E-02,.3678E-01,.5535E-03,& + .1176E-03,.4201E-03,.6341E-03,.1558E-02,.2237E-02,.2008E-02,.1839E-02,.7824E-02,.3805E-01,.5502E-03,& + .1177E-03,.4156E-03,.6315E-03,.1559E-02,.2253E-02,.2027E-02,.1886E-02,.8031E-02,.3932E-01,.5469E-03,& + .1179E-03,.4111E-03,.6288E-03,.1561E-02,.2270E-02,.2045E-02,.1934E-02,.8238E-02,.4060E-01,.5437E-03,& + .1181E-03,.4067E-03,.6262E-03,.1562E-02,.2286E-02,.2064E-02,.1982E-02,.8445E-02,.4187E-01,.5404E-03,& + .1185E-03,.4046E-03,.6257E-03,.1564E-02,.2305E-02,.2087E-02,.2038E-02,.8676E-02,.4331E-01,.5399E-03,& + .1190E-03,.4026E-03,.6252E-03,.1567E-02,.2324E-02,.2109E-02,.2095E-02,.8908E-02,.4475E-01,.5394E-03,& + .1194E-03,.4005E-03,.6246E-03,.1570E-02,.2343E-02,.2131E-02,.2151E-02,.9139E-02,.4619E-01,.5389E-03,& + .1198E-03,.3985E-03,.6241E-03,.1572E-02,.2362E-02,.2153E-02,.2207E-02,.9371E-02,.4763E-01,.5384E-03,& + .1202E-03,.3964E-03,.6235E-03,.1575E-02,.2381E-02,.2176E-02,.2263E-02,.9603E-02,.4907E-01,.5379E-03,& + .1208E-03,.3960E-03,.6246E-03,.1579E-02,.2402E-02,.2202E-02,.2329E-02,.9859E-02,.5069E-01,.5392E-03,& + .1214E-03,.3955E-03,.6256E-03,.1583E-02,.2424E-02,.2228E-02,.2394E-02,.1012E-01,.5231E-01,.5406E-03,& + .1220E-03,.3950E-03,.6267E-03,.1587E-02,.2445E-02,.2254E-02,.2459E-02,.1037E-01,.5392E-01,.5419E-03,& + .1226E-03,.3945E-03,.6277E-03,.1591E-02,.2467E-02,.2280E-02,.2525E-02,.1063E-01,.5554E-01,.5432E-03,& + .1233E-03,.3940E-03,.6287E-03,.1595E-02,.2488E-02,.2306E-02,.2590E-02,.1089E-01,.5716E-01,.5446E-03,& + .1241E-03,.3948E-03,.6312E-03,.1601E-02,.2513E-02,.2336E-02,.2664E-02,.1117E-01,.5892E-01,.5473E-03,& + .1248E-03,.3956E-03,.6337E-03,.1607E-02,.2537E-02,.2366E-02,.2737E-02,.1145E-01,.6068E-01,.5501E-03,& + .1256E-03,.3964E-03,.6362E-03,.1613E-02,.2562E-02,.2396E-02,.2811E-02,.1173E-01,.6244E-01,.5529E-03,& + .1264E-03,.3971E-03,.6387E-03,.1619E-02,.2586E-02,.2425E-02,.2884E-02,.1201E-01,.6420E-01,.5557E-03,& + .1272E-03,.3979E-03,.6412E-03,.1625E-02,.2611E-02,.2455E-02,.2958E-02,.1229E-01,.6596E-01,.5585E-03,& + .1281E-03,.3994E-03,.6445E-03,.1631E-02,.2637E-02,.2489E-02,.3043E-02,.1260E-01,.6794E-01,.5622E-03,& + .1291E-03,.4008E-03,.6478E-03,.1638E-02,.2664E-02,.2523E-02,.3128E-02,.1292E-01,.6992E-01,.5658E-03,& + .1300E-03,.4022E-03,.6511E-03,.1644E-02,.2691E-02,.2557E-02,.3213E-02,.1323E-01,.7190E-01,.5694E-03,& + .1309E-03,.4037E-03,.6544E-03,.1651E-02,.2718E-02,.2591E-02,.3298E-02,.1354E-01,.7388E-01,.5731E-03,& + .1318E-03,.4051E-03,.6577E-03,.1657E-02,.2745E-02,.2625E-02,.3384E-02,.1385E-01,.7586E-01,.5767E-03,& + .1329E-03,.4072E-03,.6619E-03,.1665E-02,.2774E-02,.2663E-02,.3480E-02,.1420E-01,.7804E-01,.5812E-03,& + .1339E-03,.4094E-03,.6661E-03,.1672E-02,.2804E-02,.2701E-02,.3576E-02,.1454E-01,.8021E-01,.5857E-03,& + .1350E-03,.4115E-03,.6703E-03,.1680E-02,.2833E-02,.2739E-02,.3672E-02,.1489E-01,.8238E-01,.5902E-03,& + .1360E-03,.4136E-03,.6745E-03,.1688E-02,.2863E-02,.2778E-02,.3768E-02,.1523E-01,.8455E-01,.5947E-03,& + .1371E-03,.4157E-03,.6787E-03,.1695E-02,.2893E-02,.2816E-02,.3864E-02,.1558E-01,.8672E-01,.5992E-03,& + .1383E-03,.4186E-03,.6839E-03,.1705E-02,.2925E-02,.2858E-02,.3968E-02,.1594E-01,.8898E-01,.6046E-03,& + .1395E-03,.4214E-03,.6892E-03,.1715E-02,.2958E-02,.2901E-02,.4072E-02,.1630E-01,.9124E-01,.6100E-03,& + .1407E-03,.4243E-03,.6944E-03,.1724E-02,.2991E-02,.2943E-02,.4176E-02,.1667E-01,.9350E-01,.6154E-03,& + .1420E-03,.4271E-03,.6997E-03,.1734E-02,.3024E-02,.2986E-02,.4280E-02,.1703E-01,.9576E-01,.6208E-03,& + .1432E-03,.4300E-03,.7050E-03,.1744E-02,.3056E-02,.3028E-02,.4383E-02,.1739E-01,.9802E-01,.6262E-03,& + .1445E-03,.4333E-03,.7110E-03,.1754E-02,.3092E-02,.3075E-02,.4496E-02,.1778E-01,.1004E+00,.6322E-03,& + .1458E-03,.4367E-03,.7170E-03,.1765E-02,.3128E-02,.3121E-02,.4609E-02,.1817E-01,.1028E+00,.6383E-03,& + .1472E-03,.4401E-03,.7230E-03,.1776E-02,.3163E-02,.3168E-02,.4722E-02,.1855E-01,.1051E+00,.6443E-03,& + .1485E-03,.4435E-03,.7290E-03,.1787E-02,.3199E-02,.3214E-02,.4834E-02,.1894E-01,.1075E+00,.6504E-03,& + .1498E-03,.4468E-03,.7351E-03,.1798E-02,.3234E-02,.3261E-02,.4947E-02,.1933E-01,.1099E+00,.6564E-03,& + .1513E-03,.4505E-03,.7416E-03,.1809E-02,.3273E-02,.3313E-02,.5074E-02,.1975E-01,.1125E+00,.6630E-03,& + .1527E-03,.4542E-03,.7481E-03,.1821E-02,.3311E-02,.3365E-02,.5201E-02,.2018E-01,.1151E+00,.6695E-03,& + .1541E-03,.4579E-03,.7546E-03,.1832E-02,.3349E-02,.3416E-02,.5328E-02,.2060E-01,.1177E+00,.6760E-03,& + .1556E-03,.4616E-03,.7612E-03,.1844E-02,.3388E-02,.3468E-02,.5454E-02,.2103E-01,.1203E+00,.6826E-03,& + .1570E-03,.4653E-03,.7677E-03,.1855E-02,.3426E-02,.3520E-02,.5581E-02,.2145E-01,.1229E+00,.6891E-03,& + .1585E-03,.4694E-03,.7748E-03,.1867E-02,.3467E-02,.3577E-02,.5720E-02,.2191E-01,.1256E+00,.6962E-03,& + .1601E-03,.4734E-03,.7819E-03,.1880E-02,.3509E-02,.3634E-02,.5859E-02,.2237E-01,.1284E+00,.7032E-03,& + .1616E-03,.4775E-03,.7890E-03,.1892E-02,.3550E-02,.3691E-02,.5998E-02,.2283E-01,.1311E+00,.7103E-03,& + .1631E-03,.4816E-03,.7961E-03,.1904E-02,.3591E-02,.3748E-02,.6137E-02,.2329E-01,.1339E+00,.7173E-03,& + .1647E-03,.4856E-03,.8033E-03,.1916E-02,.3633E-02,.3804E-02,.6276E-02,.2374E-01,.1366E+00,.7244E-03,& + .1661E-03,.4893E-03,.8100E-03,.1924E-02,.3679E-02,.3880E-02,.6482E-02,.2439E-01,.1406E+00,.7314E-03,& + .1676E-03,.4929E-03,.8167E-03,.1932E-02,.3725E-02,.3955E-02,.6689E-02,.2503E-01,.1446E+00,.7385E-03,& + .1690E-03,.4966E-03,.8234E-03,.1939E-02,.3772E-02,.4030E-02,.6895E-02,.2568E-01,.1486E+00,.7455E-03,& + .1705E-03,.5003E-03,.8301E-03,.1947E-02,.3818E-02,.4106E-02,.7102E-02,.2632E-01,.1527E+00,.7526E-03,& + .1719E-03,.5039E-03,.8368E-03,.1955E-02,.3864E-02,.4181E-02,.7308E-02,.2696E-01,.1567E+00,.7596E-03,& + .1735E-03,.5083E-03,.8446E-03,.1964E-02,.3917E-02,.4267E-02,.7537E-02,.2766E-01,.1609E+00,.7676E-03,& + .1752E-03,.5126E-03,.8524E-03,.1974E-02,.3969E-02,.4354E-02,.7765E-02,.2836E-01,.1651E+00,.7755E-03,& + .1768E-03,.5170E-03,.8602E-03,.1984E-02,.4022E-02,.4440E-02,.7994E-02,.2906E-01,.1694E+00,.7835E-03,& + .1785E-03,.5214E-03,.8680E-03,.1993E-02,.4074E-02,.4526E-02,.8222E-02,.2976E-01,.1736E+00,.7914E-03,& + .1801E-03,.5257E-03,.8757E-03,.2003E-02,.4127E-02,.4613E-02,.8451E-02,.3045E-01,.1779E+00,.7994E-03,& + .1818E-03,.5303E-03,.8840E-03,.2013E-02,.4184E-02,.4710E-02,.8710E-02,.3123E-01,.1825E+00,.8078E-03,& + .1836E-03,.5350E-03,.8925E-03,.2023E-02,.4242E-02,.4811E-02,.8976E-02,.3202E-01,.1873E+00,.8164E-03,& + .1854E-03,.5399E-03,.9012E-03,.2034E-02,.4302E-02,.4914E-02,.9245E-02,.3282E-01,.1920E+00,.8251E-03,& + .1871E-03,.5444E-03,.9096E-03,.2039E-02,.4371E-02,.5046E-02,.9608E-02,.3387E-01,.1984E+00,.8340E-03,& + .1889E-03,.5492E-03,.9185E-03,.2045E-02,.4442E-02,.5183E-02,.9980E-02,.3494E-01,.2049E+00,.8431E-03,& + .1907E-03,.5542E-03,.9276E-03,.2053E-02,.4516E-02,.5325E-02,.1036E-01,.3603E-01,.2114E+00,.8525E-03,& + .1926E-03,.5591E-03,.9369E-03,.2056E-02,.4601E-02,.5502E-02,.1084E-01,.3738E-01,.2196E+00,.8624E-03,& + .1945E-03,.5644E-03,.9469E-03,.2062E-02,.4690E-02,.5685E-02,.1133E-01,.3874E-01,.2278E+00,.8726E-03,& + .1966E-03,.5699E-03,.9572E-03,.2064E-02,.4792E-02,.5909E-02,.1192E-01,.4039E-01,.2376E+00,.8836E-03,& + .1987E-03,.5757E-03,.9685E-03,.2066E-02,.4912E-02,.6177E-02,.1263E-01,.4230E-01,.2490E+00,.8954E-03,& + .2010E-03,.5820E-03,.9804E-03,.2070E-02,.5037E-02,.6457E-02,.1334E-01,.4423E-01,.2604E+00,.9077E-03,& + .2035E-03,.5890E-03,.9939E-03,.2072E-02,.5194E-02,.6825E-02,.1427E-01,.4669E-01,.2747E+00,.9217E-03,& + .2062E-03,.5966E-03,.1008E-02,.2077E-02,.5359E-02,.7209E-02,.1521E-01,.4917E-01,.2888E+00,.9363E-03,& + .2093E-03,.6053E-03,.1025E-02,.2083E-02,.5560E-02,.7692E-02,.1635E-01,.5215E-01,.3055E+00,.9529E-03,& + .2129E-03,.6157E-03,.1045E-02,.2089E-02,.5831E-02,.8365E-02,.1789E-01,.5609E-01,.3271E+00,.9730E-03,& + .2171E-03,.6277E-03,.1068E-02,.2101E-02,.6145E-02,.9153E-02,.1962E-01,.6045E-01,.3500E+00,.9955E-03,& + .2223E-03,.6429E-03,.1096E-02,.2118E-02,.6564E-02,.1023E-01,.2186E-01,.6598E-01,.3780E+00,.1023E-02,& + .2297E-03,.6647E-03,.1137E-02,.2149E-02,.7207E-02,.1193E-01,.2518E-01,.7402E-01,.4161E+00,.1063E-02,& + .2423E-03,.7019E-03,.1206E-02,.2220E-02,.8325E-02,.1498E-01,.3063E-01,.8678E-01,.4703E+00,.1128E-02/ + data (((w0_lw(ai,k,nh),ai= 2, 2),k=1,nwl_lw),nh=0,99)/ & + .1078E-04,.3249E-04,.9802E-04,.2051E-03,.3114E-03,.4109E-03,.5443E-03,.1016E-02,.3002E-02,.6508E-04,& + .1083E-04,.3265E-04,.9852E-04,.2062E-03,.3130E-03,.4130E-03,.5471E-03,.1021E-02,.3018E-02,.6541E-04,& + .1089E-04,.3282E-04,.9902E-04,.2072E-03,.3146E-03,.4151E-03,.5499E-03,.1026E-02,.3034E-02,.6574E-04,& + .1094E-04,.3299E-04,.9951E-04,.2083E-03,.3162E-03,.4172E-03,.5527E-03,.1032E-02,.3049E-02,.6608E-04,& + .1099E-04,.3315E-04,.1000E-03,.2093E-03,.3178E-03,.4193E-03,.5555E-03,.1037E-02,.3065E-02,.6641E-04,& + .1105E-04,.3332E-04,.1005E-03,.2104E-03,.3194E-03,.4215E-03,.5583E-03,.1042E-02,.3080E-02,.6674E-04,& + .1110E-04,.3347E-04,.1010E-03,.2114E-03,.3209E-03,.4235E-03,.5609E-03,.1047E-02,.3095E-02,.6705E-04,& + .1115E-04,.3363E-04,.1015E-03,.2124E-03,.3224E-03,.4254E-03,.5636E-03,.1052E-02,.3110E-02,.6736E-04,& + .1120E-04,.3378E-04,.1019E-03,.2133E-03,.3239E-03,.4274E-03,.5663E-03,.1057E-02,.3124E-02,.6767E-04,& + .1126E-04,.3394E-04,.1024E-03,.2143E-03,.3254E-03,.4294E-03,.5689E-03,.1062E-02,.3139E-02,.6799E-04,& + .1131E-04,.3409E-04,.1029E-03,.2153E-03,.3269E-03,.4314E-03,.5716E-03,.1067E-02,.3154E-02,.6830E-04,& + .1136E-04,.3424E-04,.1033E-03,.2162E-03,.3283E-03,.4333E-03,.5740E-03,.1071E-02,.3168E-02,.6859E-04,& + .1140E-04,.3439E-04,.1038E-03,.2172E-03,.3298E-03,.4352E-03,.5765E-03,.1076E-02,.3181E-02,.6888E-04,& + .1145E-04,.3453E-04,.1042E-03,.2181E-03,.3312E-03,.4370E-03,.5790E-03,.1081E-02,.3195E-02,.6918E-04,& + .1150E-04,.3468E-04,.1046E-03,.2190E-03,.3326E-03,.4389E-03,.5815E-03,.1085E-02,.3209E-02,.6947E-04,& + .1155E-04,.3482E-04,.1051E-03,.2199E-03,.3340E-03,.4408E-03,.5839E-03,.1090E-02,.3222E-02,.6977E-04,& + .1159E-04,.3496E-04,.1055E-03,.2208E-03,.3353E-03,.4425E-03,.5863E-03,.1094E-02,.3235E-02,.7004E-04,& + .1164E-04,.3510E-04,.1059E-03,.2217E-03,.3367E-03,.4443E-03,.5886E-03,.1099E-02,.3248E-02,.7032E-04,& + .1168E-04,.3524E-04,.1063E-03,.2226E-03,.3380E-03,.4461E-03,.5910E-03,.1103E-02,.3261E-02,.7059E-04,& + .1173E-04,.3537E-04,.1067E-03,.2235E-03,.3393E-03,.4478E-03,.5933E-03,.1108E-02,.3274E-02,.7087E-04,& + .1178E-04,.3551E-04,.1072E-03,.2243E-03,.3407E-03,.4496E-03,.5956E-03,.1112E-02,.3287E-02,.7114E-04,& + .1182E-04,.3564E-04,.1075E-03,.2252E-03,.3419E-03,.4512E-03,.5978E-03,.1116E-02,.3299E-02,.7140E-04,& + .1186E-04,.3577E-04,.1079E-03,.2260E-03,.3432E-03,.4529E-03,.6000E-03,.1120E-02,.3311E-02,.7166E-04,& + .1190E-04,.3590E-04,.1083E-03,.2268E-03,.3444E-03,.4545E-03,.6022E-03,.1124E-02,.3323E-02,.7191E-04,& + .1195E-04,.3603E-04,.1087E-03,.2276E-03,.3456E-03,.4562E-03,.6044E-03,.1129E-02,.3335E-02,.7217E-04,& + .1199E-04,.3615E-04,.1091E-03,.2284E-03,.3469E-03,.4578E-03,.6066E-03,.1133E-02,.3347E-02,.7243E-04,& + .1203E-04,.3627E-04,.1095E-03,.2292E-03,.3481E-03,.4594E-03,.6087E-03,.1137E-02,.3358E-02,.7267E-04,& + .1207E-04,.3639E-04,.1098E-03,.2300E-03,.3492E-03,.4610E-03,.6108E-03,.1140E-02,.3370E-02,.7292E-04,& + .1211E-04,.3651E-04,.1102E-03,.2307E-03,.3504E-03,.4625E-03,.6128E-03,.1144E-02,.3381E-02,.7316E-04,& + .1215E-04,.3663E-04,.1106E-03,.2315E-03,.3516E-03,.4641E-03,.6149E-03,.1148E-02,.3392E-02,.7340E-04,& + .1219E-04,.3675E-04,.1109E-03,.2323E-03,.3528E-03,.4656E-03,.6170E-03,.1152E-02,.3404E-02,.7365E-04,& + .1223E-04,.3687E-04,.1113E-03,.2330E-03,.3539E-03,.4671E-03,.6189E-03,.1156E-02,.3414E-02,.7387E-04,& + .1226E-04,.3698E-04,.1116E-03,.2337E-03,.3550E-03,.4686E-03,.6208E-03,.1159E-02,.3425E-02,.7410E-04,& + .1230E-04,.3709E-04,.1120E-03,.2345E-03,.3561E-03,.4700E-03,.6228E-03,.1163E-02,.3436E-02,.7433E-04,& + .1234E-04,.3721E-04,.1123E-03,.2352E-03,.3572E-03,.4715E-03,.6247E-03,.1167E-02,.3446E-02,.7455E-04,& + .1237E-04,.3732E-04,.1127E-03,.2359E-03,.3583E-03,.4729E-03,.6266E-03,.1170E-02,.3457E-02,.7478E-04,& + .1241E-04,.3743E-04,.1130E-03,.2366E-03,.3593E-03,.4743E-03,.6285E-03,.1174E-02,.3467E-02,.7499E-04,& + .1244E-04,.3753E-04,.1133E-03,.2373E-03,.3604E-03,.4757E-03,.6303E-03,.1177E-02,.3477E-02,.7521E-04,& + .1248E-04,.3764E-04,.1136E-03,.2379E-03,.3614E-03,.4770E-03,.6321E-03,.1181E-02,.3487E-02,.7542E-04,& + .1251E-04,.3775E-04,.1139E-03,.2386E-03,.3624E-03,.4784E-03,.6339E-03,.1184E-02,.3497E-02,.7563E-04,& + .1255E-04,.3785E-04,.1142E-03,.2393E-03,.3635E-03,.4798E-03,.6357E-03,.1187E-02,.3507E-02,.7585E-04,& + .1258E-04,.3795E-04,.1146E-03,.2399E-03,.3644E-03,.4811E-03,.6375E-03,.1191E-02,.3516E-02,.7605E-04,& + .1262E-04,.3805E-04,.1149E-03,.2406E-03,.3654E-03,.4823E-03,.6392E-03,.1194E-02,.3525E-02,.7625E-04,& + .1265E-04,.3815E-04,.1152E-03,.2412E-03,.3664E-03,.4836E-03,.6409E-03,.1197E-02,.3534E-02,.7645E-04,& + .1268E-04,.3825E-04,.1155E-03,.2418E-03,.3674E-03,.4849E-03,.6426E-03,.1200E-02,.3544E-02,.7665E-04,& + .1272E-04,.3835E-04,.1158E-03,.2425E-03,.3683E-03,.4862E-03,.6444E-03,.1203E-02,.3553E-02,.7685E-04,& + .1275E-04,.3845E-04,.1161E-03,.2431E-03,.3693E-03,.4874E-03,.6460E-03,.1207E-02,.3562E-02,.7704E-04,& + .1278E-04,.3854E-04,.1163E-03,.2437E-03,.3702E-03,.4886E-03,.6476E-03,.1210E-02,.3570E-02,.7723E-04,& + .1281E-04,.3863E-04,.1166E-03,.2443E-03,.3711E-03,.4898E-03,.6492E-03,.1213E-02,.3579E-02,.7741E-04,& + .1284E-04,.3873E-04,.1169E-03,.2449E-03,.3720E-03,.4911E-03,.6508E-03,.1216E-02,.3588E-02,.7760E-04,& + .1287E-04,.3882E-04,.1172E-03,.2454E-03,.3729E-03,.4923E-03,.6524E-03,.1219E-02,.3596E-02,.7779E-04,& + .1290E-04,.3891E-04,.1175E-03,.2460E-03,.3738E-03,.4934E-03,.6539E-03,.1222E-02,.3604E-02,.7797E-04,& + .1293E-04,.3900E-04,.1177E-03,.2466E-03,.3746E-03,.4946E-03,.6554E-03,.1224E-02,.3613E-02,.7814E-04,& + .1296E-04,.3908E-04,.1180E-03,.2471E-03,.3755E-03,.4957E-03,.6569E-03,.1227E-02,.3621E-02,.7832E-04,& + .1299E-04,.3917E-04,.1183E-03,.2477E-03,.3763E-03,.4968E-03,.6584E-03,.1230E-02,.3629E-02,.7850E-04,& + .1302E-04,.3926E-04,.1185E-03,.2483E-03,.3772E-03,.4980E-03,.6600E-03,.1233E-02,.3637E-02,.7867E-04,& + .1304E-04,.3933E-04,.1186E-03,.2485E-03,.3778E-03,.4990E-03,.6615E-03,.1236E-02,.3649E-02,.7878E-04,& + .1307E-04,.3941E-04,.1187E-03,.2487E-03,.3785E-03,.5000E-03,.6631E-03,.1239E-02,.3662E-02,.7888E-04,& + .1309E-04,.3948E-04,.1188E-03,.2489E-03,.3791E-03,.5010E-03,.6647E-03,.1243E-02,.3674E-02,.7898E-04,& + .1312E-04,.3956E-04,.1188E-03,.2491E-03,.3797E-03,.5021E-03,.6663E-03,.1246E-02,.3687E-02,.7909E-04,& + .1314E-04,.3963E-04,.1189E-03,.2493E-03,.3804E-03,.5031E-03,.6679E-03,.1249E-02,.3699E-02,.7919E-04,& + .1317E-04,.3971E-04,.1191E-03,.2498E-03,.3811E-03,.5041E-03,.6692E-03,.1252E-02,.3707E-02,.7935E-04,& + .1319E-04,.3979E-04,.1194E-03,.2503E-03,.3819E-03,.5051E-03,.6706E-03,.1254E-02,.3714E-02,.7950E-04,& + .1322E-04,.3987E-04,.1196E-03,.2508E-03,.3827E-03,.5061E-03,.6719E-03,.1257E-02,.3721E-02,.7966E-04,& + .1325E-04,.3995E-04,.1199E-03,.2513E-03,.3834E-03,.5072E-03,.6733E-03,.1260E-02,.3728E-02,.7982E-04,& + .1327E-04,.4003E-04,.1201E-03,.2518E-03,.3842E-03,.5082E-03,.6746E-03,.1262E-02,.3735E-02,.7997E-04,& + .1330E-04,.4009E-04,.1199E-03,.2514E-03,.3846E-03,.5092E-03,.6767E-03,.1267E-02,.3760E-02,.7997E-04,& + .1332E-04,.4016E-04,.1196E-03,.2510E-03,.3849E-03,.5103E-03,.6788E-03,.1272E-02,.3784E-02,.7996E-04,& + .1335E-04,.4023E-04,.1193E-03,.2506E-03,.3853E-03,.5113E-03,.6809E-03,.1276E-02,.3808E-02,.7996E-04,& + .1337E-04,.4029E-04,.1191E-03,.2502E-03,.3857E-03,.5124E-03,.6830E-03,.1281E-02,.3832E-02,.7995E-04,& + .1340E-04,.4036E-04,.1188E-03,.2498E-03,.3860E-03,.5134E-03,.6851E-03,.1286E-02,.3856E-02,.7995E-04,& + .1345E-04,.4049E-04,.1181E-03,.2484E-03,.3866E-03,.5158E-03,.6902E-03,.1298E-02,.3922E-02,.7985E-04,& + .1350E-04,.4062E-04,.1173E-03,.2470E-03,.3872E-03,.5182E-03,.6953E-03,.1310E-02,.3989E-02,.7976E-04,& + .1355E-04,.4075E-04,.1165E-03,.2457E-03,.3878E-03,.5206E-03,.7004E-03,.1322E-02,.4055E-02,.7967E-04,& + .1360E-04,.4088E-04,.1158E-03,.2443E-03,.3884E-03,.5229E-03,.7055E-03,.1334E-02,.4121E-02,.7957E-04,& + .1365E-04,.4102E-04,.1150E-03,.2429E-03,.3890E-03,.5253E-03,.7106E-03,.1346E-02,.4188E-02,.7948E-04,& + .1375E-04,.4130E-04,.1145E-03,.2420E-03,.3910E-03,.5302E-03,.7199E-03,.1366E-02,.4297E-02,.7962E-04,& + .1386E-04,.4158E-04,.1139E-03,.2410E-03,.3930E-03,.5351E-03,.7292E-03,.1387E-02,.4407E-02,.7976E-04,& + .1396E-04,.4186E-04,.1134E-03,.2400E-03,.3951E-03,.5400E-03,.7384E-03,.1407E-02,.4516E-02,.7990E-04,& + .1406E-04,.4214E-04,.1129E-03,.2390E-03,.3971E-03,.5449E-03,.7477E-03,.1428E-02,.4626E-02,.8004E-04,& + .1417E-04,.4242E-04,.1123E-03,.2380E-03,.3991E-03,.5498E-03,.7569E-03,.1448E-02,.4735E-02,.8018E-04,& + .1435E-04,.4293E-04,.1118E-03,.2370E-03,.4032E-03,.5588E-03,.7733E-03,.1484E-02,.4928E-02,.8058E-04,& + .1450E-04,.4332E-04,.1116E-03,.2367E-03,.4065E-03,.5658E-03,.7857E-03,.1511E-02,.5069E-02,.8096E-04,& + .1471E-04,.4392E-04,.1114E-03,.2362E-03,.4116E-03,.5763E-03,.8047E-03,.1552E-02,.5288E-02,.8155E-04,& + .1487E-04,.4437E-04,.1115E-03,.2362E-03,.4156E-03,.5843E-03,.8188E-03,.1582E-02,.5447E-02,.8205E-04,& + .1512E-04,.4505E-04,.1115E-03,.2362E-03,.4215E-03,.5965E-03,.8403E-03,.1628E-02,.5695E-02,.8281E-04,& + .1537E-04,.4577E-04,.1117E-03,.2363E-03,.4281E-03,.6096E-03,.8632E-03,.1677E-02,.5961E-02,.8366E-04,& + .1556E-04,.4632E-04,.1120E-03,.2368E-03,.4331E-03,.6193E-03,.8803E-03,.1713E-02,.6152E-02,.8435E-04,& + .1585E-04,.4712E-04,.1124E-03,.2373E-03,.4406E-03,.6340E-03,.9057E-03,.1768E-02,.6449E-02,.8535E-04,& + .1606E-04,.4771E-04,.1129E-03,.2380E-03,.4462E-03,.6448E-03,.9246E-03,.1808E-02,.6664E-02,.8614E-04,& + .1637E-04,.4859E-04,.1135E-03,.2389E-03,.4546E-03,.6611E-03,.9529E-03,.1868E-02,.6994E-02,.8729E-04,& + .1669E-04,.4950E-04,.1142E-03,.2400E-03,.4634E-03,.6783E-03,.9830E-03,.1932E-02,.7347E-02,.8853E-04,& + .1703E-04,.5046E-04,.1151E-03,.2412E-03,.4728E-03,.6965E-03,.1015E-02,.1999E-02,.7721E-02,.8985E-04,& + .1738E-04,.5146E-04,.1161E-03,.2427E-03,.4828E-03,.7157E-03,.1048E-02,.2070E-02,.8118E-02,.9125E-04,& + .1785E-04,.5281E-04,.1174E-03,.2447E-03,.4964E-03,.7422E-03,.1094E-02,.2168E-02,.8679E-02,.9315E-04,& + .1835E-04,.5422E-04,.1190E-03,.2470E-03,.5109E-03,.7704E-03,.1143E-02,.2273E-02,.9281E-02,.9517E-04,& + .1898E-04,.5604E-04,.1211E-03,.2500E-03,.5300E-03,.8076E-03,.1208E-02,.2412E-02,.1009E-01,.9782E-04,& + .1990E-04,.5868E-04,.1242E-03,.2547E-03,.5583E-03,.8632E-03,.1307E-02,.2622E-02,.1134E-01,.1017E-03,& + .2102E-04,.6187E-04,.1283E-03,.2608E-03,.5936E-03,.9326E-03,.1429E-02,.2886E-02,.1295E-01,.1064E-03,& + .2396E-04,.7035E-04,.1400E-03,.2783E-03,.6926E-03,.1131E-02,.1783E-02,.3655E-02,.1784E-01,.1193E-03/ + data (((w0_lw(ai,k,nh),ai= 3, 3),k=1,nwl_lw),nh=0,99)/ & + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03/ + data (((w0_lw(ai,k,nh),ai= 4, 4),k=1,nwl_lw),nh=0,99)/ & + .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,& + .3481E-04,.2162E-03,.7142E-03,.3142E-02,.3712E-02,.3279E-02,.1349E-02,.1804E-01,.1893E+00,.4652E-03,& + .3517E-04,.2153E-03,.6883E-03,.3086E-02,.3731E-02,.3300E-02,.1382E-02,.1809E-01,.1905E+00,.4599E-03,& + .3552E-04,.2145E-03,.6624E-03,.3031E-02,.3749E-02,.3322E-02,.1416E-02,.1814E-01,.1917E+00,.4546E-03,& + .3587E-04,.2136E-03,.6365E-03,.2975E-02,.3768E-02,.3343E-02,.1450E-02,.1819E-01,.1929E+00,.4493E-03,& + .3623E-04,.2128E-03,.6106E-03,.2919E-02,.3787E-02,.3365E-02,.1484E-02,.1825E-01,.1941E+00,.4440E-03,& + .3660E-04,.2123E-03,.5955E-03,.2880E-02,.3806E-02,.3388E-02,.1521E-02,.1836E-01,.1954E+00,.4402E-03,& + .3697E-04,.2119E-03,.5803E-03,.2841E-02,.3825E-02,.3411E-02,.1558E-02,.1847E-01,.1968E+00,.4365E-03,& + .3734E-04,.2114E-03,.5652E-03,.2801E-02,.3844E-02,.3433E-02,.1595E-02,.1858E-01,.1982E+00,.4328E-03,& + .3772E-04,.2110E-03,.5501E-03,.2762E-02,.3863E-02,.3456E-02,.1632E-02,.1869E-01,.1995E+00,.4290E-03,& + .3809E-04,.2105E-03,.5350E-03,.2722E-02,.3882E-02,.3479E-02,.1669E-02,.1880E-01,.2009E+00,.4253E-03,& + .3848E-04,.2104E-03,.5254E-03,.2693E-02,.3902E-02,.3503E-02,.1709E-02,.1894E-01,.2024E+00,.4227E-03,& + .3887E-04,.2103E-03,.5158E-03,.2663E-02,.3922E-02,.3527E-02,.1750E-02,.1909E-01,.2039E+00,.4202E-03,& + .3927E-04,.2101E-03,.5061E-03,.2634E-02,.3941E-02,.3551E-02,.1790E-02,.1924E-01,.2054E+00,.4176E-03,& + .3966E-04,.2100E-03,.4965E-03,.2605E-02,.3961E-02,.3575E-02,.1831E-02,.1938E-01,.2068E+00,.4150E-03,& + .4005E-04,.2098E-03,.4869E-03,.2575E-02,.3981E-02,.3599E-02,.1871E-02,.1953E-01,.2083E+00,.4124E-03,& + .4046E-04,.2099E-03,.4805E-03,.2553E-02,.4001E-02,.3624E-02,.1915E-02,.1970E-01,.2099E+00,.4107E-03,& + .4087E-04,.2101E-03,.4741E-03,.2530E-02,.4021E-02,.3650E-02,.1960E-02,.1987E-01,.2114E+00,.4090E-03,& + .4129E-04,.2102E-03,.4677E-03,.2507E-02,.4041E-02,.3675E-02,.2004E-02,.2004E-01,.2130E+00,.4073E-03,& + .4170E-04,.2103E-03,.4613E-03,.2484E-02,.4061E-02,.3701E-02,.2048E-02,.2022E-01,.2146E+00,.4056E-03,& + .4211E-04,.2104E-03,.4549E-03,.2462E-02,.4082E-02,.3726E-02,.2092E-02,.2039E-01,.2161E+00,.4039E-03,& + .4254E-04,.2107E-03,.4506E-03,.2444E-02,.4102E-02,.3753E-02,.2140E-02,.2058E-01,.2177E+00,.4028E-03,& + .4298E-04,.2111E-03,.4463E-03,.2426E-02,.4123E-02,.3780E-02,.2188E-02,.2077E-01,.2194E+00,.4018E-03,& + .4341E-04,.2114E-03,.4420E-03,.2408E-02,.4144E-02,.3807E-02,.2235E-02,.2096E-01,.2210E+00,.4008E-03,& + .4384E-04,.2117E-03,.4377E-03,.2390E-02,.4165E-02,.3834E-02,.2283E-02,.2116E-01,.2226E+00,.3998E-03,& + .4428E-04,.2120E-03,.4334E-03,.2373E-02,.4186E-02,.3860E-02,.2331E-02,.2135E-01,.2242E+00,.3988E-03,& + .4473E-04,.2126E-03,.4305E-03,.2358E-02,.4207E-02,.3889E-02,.2383E-02,.2156E-01,.2259E+00,.3983E-03,& + .4519E-04,.2131E-03,.4276E-03,.2344E-02,.4228E-02,.3917E-02,.2435E-02,.2177E-01,.2276E+00,.3978E-03,& + .4564E-04,.2136E-03,.4248E-03,.2330E-02,.4250E-02,.3946E-02,.2487E-02,.2198E-01,.2292E+00,.3974E-03,& + .4610E-04,.2141E-03,.4219E-03,.2316E-02,.4271E-02,.3974E-02,.2538E-02,.2219E-01,.2309E+00,.3969E-03,& + .4655E-04,.2146E-03,.4190E-03,.2302E-02,.4293E-02,.4003E-02,.2590E-02,.2240E-01,.2326E+00,.3964E-03,& + .4703E-04,.2153E-03,.4172E-03,.2290E-02,.4315E-02,.4033E-02,.2646E-02,.2262E-01,.2343E+00,.3964E-03,& + .4751E-04,.2160E-03,.4154E-03,.2279E-02,.4337E-02,.4063E-02,.2702E-02,.2284E-01,.2360E+00,.3964E-03,& + .4798E-04,.2167E-03,.4136E-03,.2268E-02,.4359E-02,.4093E-02,.2758E-02,.2307E-01,.2377E+00,.3964E-03,& + .4846E-04,.2173E-03,.4118E-03,.2256E-02,.4381E-02,.4123E-02,.2813E-02,.2329E-01,.2394E+00,.3964E-03,& + .4894E-04,.2180E-03,.4100E-03,.2245E-02,.4404E-02,.4153E-02,.2869E-02,.2352E-01,.2411E+00,.3964E-03,& + .4943E-04,.2189E-03,.4090E-03,.2236E-02,.4426E-02,.4185E-02,.2929E-02,.2375E-01,.2428E+00,.3968E-03,& + .4993E-04,.2197E-03,.4081E-03,.2227E-02,.4449E-02,.4217E-02,.2989E-02,.2399E-01,.2446E+00,.3972E-03,& + .5043E-04,.2205E-03,.4071E-03,.2217E-02,.4472E-02,.4249E-02,.3049E-02,.2423E-01,.2463E+00,.3976E-03,& + .5093E-04,.2214E-03,.4061E-03,.2208E-02,.4495E-02,.4280E-02,.3109E-02,.2447E-01,.2481E+00,.3980E-03,& + .5143E-04,.2222E-03,.4051E-03,.2199E-02,.4518E-02,.4312E-02,.3169E-02,.2471E-01,.2498E+00,.3984E-03,& + .5196E-04,.2232E-03,.4048E-03,.2192E-02,.4542E-02,.4346E-02,.3233E-02,.2496E-01,.2516E+00,.3991E-03,& + .5248E-04,.2241E-03,.4045E-03,.2185E-02,.4565E-02,.4379E-02,.3297E-02,.2521E-01,.2533E+00,.3999E-03,& + .5300E-04,.2251E-03,.4041E-03,.2178E-02,.4589E-02,.4413E-02,.3362E-02,.2546E-01,.2551E+00,.4006E-03,& + .5353E-04,.2261E-03,.4038E-03,.2170E-02,.4613E-02,.4447E-02,.3426E-02,.2571E-01,.2568E+00,.4014E-03,& + .5405E-04,.2271E-03,.4035E-03,.2163E-02,.4636E-02,.4480E-02,.3490E-02,.2596E-01,.2586E+00,.4021E-03,& + .5460E-04,.2282E-03,.4037E-03,.2158E-02,.4661E-02,.4516E-02,.3559E-02,.2623E-01,.2604E+00,.4032E-03,& + .5514E-04,.2293E-03,.4039E-03,.2152E-02,.4685E-02,.4551E-02,.3627E-02,.2649E-01,.2622E+00,.4043E-03,& + .5569E-04,.2304E-03,.4041E-03,.2146E-02,.4709E-02,.4587E-02,.3696E-02,.2675E-01,.2639E+00,.4053E-03,& + .5623E-04,.2315E-03,.4043E-03,.2141E-02,.4734E-02,.4622E-02,.3765E-02,.2702E-01,.2657E+00,.4064E-03,& + .5678E-04,.2326E-03,.4046E-03,.2135E-02,.4758E-02,.4658E-02,.3833E-02,.2728E-01,.2675E+00,.4075E-03,& + .5735E-04,.2336E-03,.4046E-03,.2126E-02,.4779E-02,.4693E-02,.3913E-02,.2756E-01,.2693E+00,.4083E-03,& + .5792E-04,.2346E-03,.4047E-03,.2117E-02,.4800E-02,.4729E-02,.3993E-02,.2784E-01,.2711E+00,.4091E-03,& + .5849E-04,.2356E-03,.4047E-03,.2108E-02,.4821E-02,.4765E-02,.4074E-02,.2812E-01,.2729E+00,.4099E-03,& + .5906E-04,.2366E-03,.4048E-03,.2099E-02,.4842E-02,.4800E-02,.4154E-02,.2840E-01,.2747E+00,.4107E-03,& + .5963E-04,.2377E-03,.4048E-03,.2090E-02,.4863E-02,.4836E-02,.4234E-02,.2868E-01,.2765E+00,.4115E-03,& + .6023E-04,.2388E-03,.4055E-03,.2083E-02,.4885E-02,.4875E-02,.4319E-02,.2897E-01,.2784E+00,.4128E-03,& + .6084E-04,.2400E-03,.4061E-03,.2076E-02,.4907E-02,.4913E-02,.4405E-02,.2927E-01,.2802E+00,.4140E-03,& + .6144E-04,.2412E-03,.4068E-03,.2069E-02,.4929E-02,.4951E-02,.4490E-02,.2956E-01,.2821E+00,.4152E-03,& + .6204E-04,.2424E-03,.4074E-03,.2062E-02,.4952E-02,.4990E-02,.4576E-02,.2985E-01,.2839E+00,.4164E-03,& + .6264E-04,.2435E-03,.4080E-03,.2055E-02,.4974E-02,.5028E-02,.4662E-02,.3015E-01,.2857E+00,.4176E-03,& + .6326E-04,.2450E-03,.4096E-03,.2053E-02,.5001E-02,.5071E-02,.4745E-02,.3045E-01,.2876E+00,.4196E-03,& + .6389E-04,.2465E-03,.4112E-03,.2052E-02,.5028E-02,.5113E-02,.4828E-02,.3075E-01,.2894E+00,.4215E-03,& + .6452E-04,.2480E-03,.4127E-03,.2051E-02,.5056E-02,.5155E-02,.4911E-02,.3105E-01,.2912E+00,.4235E-03,& + .6514E-04,.2495E-03,.4143E-03,.2049E-02,.5083E-02,.5197E-02,.4994E-02,.3135E-01,.2930E+00,.4254E-03,& + .6577E-04,.2510E-03,.4159E-03,.2048E-02,.5111E-02,.5239E-02,.5077E-02,.3165E-01,.2948E+00,.4274E-03,& + .6643E-04,.2525E-03,.4174E-03,.2044E-02,.5135E-02,.5283E-02,.5174E-02,.3197E-01,.2967E+00,.4292E-03,& + .6709E-04,.2539E-03,.4189E-03,.2040E-02,.5160E-02,.5326E-02,.5270E-02,.3229E-01,.2985E+00,.4310E-03,& + .6775E-04,.2554E-03,.4203E-03,.2035E-02,.5185E-02,.5370E-02,.5366E-02,.3262E-01,.3004E+00,.4328E-03,& + .6841E-04,.2569E-03,.4218E-03,.2031E-02,.5210E-02,.5414E-02,.5463E-02,.3294E-01,.3023E+00,.4347E-03,& + .6907E-04,.2583E-03,.4233E-03,.2027E-02,.5234E-02,.5457E-02,.5559E-02,.3326E-01,.3041E+00,.4365E-03,& + .6980E-04,.2596E-03,.4244E-03,.2015E-02,.5250E-02,.5503E-02,.5687E-02,.3362E-01,.3061E+00,.4378E-03,& + .7053E-04,.2609E-03,.4255E-03,.2002E-02,.5266E-02,.5549E-02,.5815E-02,.3399E-01,.3082E+00,.4391E-03,& + .7126E-04,.2622E-03,.4265E-03,.1990E-02,.5283E-02,.5595E-02,.5943E-02,.3435E-01,.3102E+00,.4404E-03,& + .7199E-04,.2635E-03,.4276E-03,.1977E-02,.5299E-02,.5641E-02,.6072E-02,.3472E-01,.3122E+00,.4418E-03,& + .7272E-04,.2647E-03,.4287E-03,.1965E-02,.5315E-02,.5687E-02,.6200E-02,.3508E-01,.3142E+00,.4431E-03,& + .7355E-04,.2661E-03,.4300E-03,.1948E-02,.5326E-02,.5740E-02,.6364E-02,.3550E-01,.3164E+00,.4445E-03,& + .7438E-04,.2675E-03,.4314E-03,.1931E-02,.5337E-02,.5793E-02,.6528E-02,.3593E-01,.3187E+00,.4458E-03,& + .7521E-04,.2688E-03,.4327E-03,.1914E-02,.5348E-02,.5846E-02,.6693E-02,.3635E-01,.3209E+00,.4472E-03,& + .7604E-04,.2702E-03,.4340E-03,.1897E-02,.5359E-02,.5898E-02,.6857E-02,.3677E-01,.3231E+00,.4486E-03,& + .7687E-04,.2715E-03,.4354E-03,.1880E-02,.5370E-02,.5951E-02,.7021E-02,.3719E-01,.3254E+00,.4499E-03,& + .7777E-04,.2730E-03,.4369E-03,.1859E-02,.5377E-02,.6011E-02,.7221E-02,.3767E-01,.3278E+00,.4514E-03,& + .7872E-04,.2745E-03,.4388E-03,.1840E-02,.5386E-02,.6073E-02,.7419E-02,.3815E-01,.3303E+00,.4531E-03,& + .7968E-04,.2762E-03,.4410E-03,.1822E-02,.5396E-02,.6138E-02,.7626E-02,.3864E-01,.3327E+00,.4550E-03,& + .8068E-04,.2780E-03,.4435E-03,.1805E-02,.5407E-02,.6205E-02,.7830E-02,.3914E-01,.3352E+00,.4572E-03,& + .8178E-04,.2797E-03,.4458E-03,.1780E-02,.5410E-02,.6281E-02,.8088E-02,.3971E-01,.3380E+00,.4591E-03,& + .8291E-04,.2816E-03,.4486E-03,.1757E-02,.5415E-02,.6359E-02,.8348E-02,.4030E-01,.3409E+00,.4614E-03,& + .8419E-04,.2836E-03,.4516E-03,.1728E-02,.5414E-02,.6450E-02,.8656E-02,.4096E-01,.3440E+00,.4636E-03,& + .8548E-04,.2858E-03,.4552E-03,.1702E-02,.5417E-02,.6545E-02,.8972E-02,.4163E-01,.3472E+00,.4664E-03,& + .8695E-04,.2883E-03,.4593E-03,.1672E-02,.5416E-02,.6653E-02,.9337E-02,.4239E-01,.3507E+00,.4695E-03,& + .8844E-04,.2910E-03,.4640E-03,.1646E-02,.5419E-02,.6770E-02,.9703E-02,.4317E-01,.3543E+00,.4731E-03,& + .9012E-04,.2940E-03,.4694E-03,.1617E-02,.5422E-02,.6902E-02,.1012E-01,.4403E-01,.3582E+00,.4773E-03,& + .9195E-04,.2975E-03,.4758E-03,.1587E-02,.5426E-02,.7053E-02,.1060E-01,.4498E-01,.3624E+00,.4822E-03,& + .9415E-04,.3017E-03,.4838E-03,.1553E-02,.5429E-02,.7238E-02,.1116E-01,.4611E-01,.3673E+00,.4882E-03,& + .9652E-04,.3065E-03,.4931E-03,.1523E-02,.5439E-02,.7449E-02,.1178E-01,.4731E-01,.3725E+00,.4954E-03,& + .9959E-04,.3128E-03,.5056E-03,.1486E-02,.5453E-02,.7729E-02,.1257E-01,.4885E-01,.3790E+00,.5049E-03,& + .1033E-03,.3210E-03,.5217E-03,.1451E-02,.5481E-02,.8087E-02,.1354E-01,.5074E-01,.3866E+00,.5176E-03,& + .1076E-03,.3308E-03,.5412E-03,.1424E-02,.5533E-02,.8509E-02,.1462E-01,.5284E-01,.3949E+00,.5331E-03,& + .1141E-03,.3463E-03,.5719E-03,.1398E-02,.5634E-02,.9179E-02,.1622E-01,.5596E-01,.4068E+00,.5581E-03,& + .1239E-03,.3710E-03,.6199E-03,.1390E-02,.5842E-02,.1022E-01,.1853E-01,.6051E-01,.4234E+00,.5982E-03/ + data (((w0_lw(ai,k,nh),ai= 5, 5),k=1,nwl_lw),nh=0,99)/ & + .4211E-01,.1689E+00,.4530E+00,.7769E+00,.8276E+00,.7723E+00,.8409E+00,.9260E+00,.9872E+00,.3073E+00,& + .4250E-01,.1642E+00,.4101E+00,.7363E+00,.8168E+00,.7672E+00,.8331E+00,.9147E+00,.9851E+00,.2904E+00,& + .4289E-01,.1595E+00,.3671E+00,.6958E+00,.8060E+00,.7620E+00,.8254E+00,.9033E+00,.9829E+00,.2736E+00,& + .4328E-01,.1548E+00,.3242E+00,.6553E+00,.7953E+00,.7569E+00,.8176E+00,.8920E+00,.9808E+00,.2568E+00,& + .4367E-01,.1501E+00,.2813E+00,.6148E+00,.7845E+00,.7518E+00,.8098E+00,.8806E+00,.9787E+00,.2399E+00,& + .4406E-01,.1454E+00,.2383E+00,.5743E+00,.7738E+00,.7466E+00,.8021E+00,.8693E+00,.9766E+00,.2231E+00,& + .4453E-01,.1429E+00,.2255E+00,.5525E+00,.7649E+00,.7424E+00,.7966E+00,.8614E+00,.9749E+00,.2153E+00,& + .4500E-01,.1405E+00,.2127E+00,.5308E+00,.7560E+00,.7382E+00,.7910E+00,.8535E+00,.9732E+00,.2075E+00,& + .4546E-01,.1381E+00,.1999E+00,.5090E+00,.7470E+00,.7340E+00,.7855E+00,.8456E+00,.9715E+00,.1997E+00,& + .4593E-01,.1357E+00,.1870E+00,.4873E+00,.7381E+00,.7298E+00,.7800E+00,.8377E+00,.9698E+00,.1919E+00,& + .4640E-01,.1333E+00,.1742E+00,.4655E+00,.7292E+00,.7256E+00,.7745E+00,.8298E+00,.9682E+00,.1842E+00,& + .4693E-01,.1320E+00,.1685E+00,.4516E+00,.7218E+00,.7221E+00,.7704E+00,.8240E+00,.9668E+00,.1800E+00,& + .4747E-01,.1308E+00,.1628E+00,.4377E+00,.7144E+00,.7187E+00,.7664E+00,.8183E+00,.9655E+00,.1758E+00,& + .4801E-01,.1295E+00,.1571E+00,.4238E+00,.7070E+00,.7152E+00,.7624E+00,.8126E+00,.9641E+00,.1716E+00,& + .4854E-01,.1283E+00,.1514E+00,.4099E+00,.6996E+00,.7118E+00,.7584E+00,.8068E+00,.9627E+00,.1674E+00,& + .4908E-01,.1270E+00,.1457E+00,.3960E+00,.6922E+00,.7083E+00,.7544E+00,.8011E+00,.9614E+00,.1632E+00,& + .4967E-01,.1264E+00,.1428E+00,.3866E+00,.6861E+00,.7056E+00,.7515E+00,.7969E+00,.9603E+00,.1609E+00,& + .5025E-01,.1259E+00,.1400E+00,.3773E+00,.6801E+00,.7028E+00,.7486E+00,.7927E+00,.9592E+00,.1586E+00,& + .5084E-01,.1253E+00,.1371E+00,.3679E+00,.6741E+00,.7001E+00,.7457E+00,.7885E+00,.9581E+00,.1562E+00,& + .5142E-01,.1247E+00,.1343E+00,.3585E+00,.6681E+00,.6973E+00,.7429E+00,.7843E+00,.9570E+00,.1539E+00,& + .5201E-01,.1241E+00,.1314E+00,.3491E+00,.6621E+00,.6946E+00,.7400E+00,.7801E+00,.9560E+00,.1516E+00,& + .5264E-01,.1240E+00,.1299E+00,.3425E+00,.6571E+00,.6924E+00,.7379E+00,.7770E+00,.9551E+00,.1502E+00,& + .5328E-01,.1238E+00,.1284E+00,.3358E+00,.6522E+00,.6902E+00,.7359E+00,.7739E+00,.9542E+00,.1489E+00,& + .5391E-01,.1237E+00,.1270E+00,.3291E+00,.6473E+00,.6880E+00,.7338E+00,.7708E+00,.9533E+00,.1476E+00,& + .5455E-01,.1235E+00,.1255E+00,.3224E+00,.6424E+00,.6858E+00,.7317E+00,.7677E+00,.9524E+00,.1463E+00,& + .5518E-01,.1234E+00,.1240E+00,.3157E+00,.6374E+00,.6836E+00,.7297E+00,.7645E+00,.9516E+00,.1450E+00,& + .5585E-01,.1235E+00,.1233E+00,.3109E+00,.6335E+00,.6819E+00,.7282E+00,.7622E+00,.9508E+00,.1443E+00,& + .5652E-01,.1236E+00,.1226E+00,.3061E+00,.6295E+00,.6802E+00,.7268E+00,.7599E+00,.9501E+00,.1436E+00,& + .5718E-01,.1238E+00,.1219E+00,.3013E+00,.6255E+00,.6785E+00,.7254E+00,.7576E+00,.9494E+00,.1429E+00,& + .5785E-01,.1239E+00,.1212E+00,.2964E+00,.6216E+00,.6768E+00,.7240E+00,.7552E+00,.9487E+00,.1422E+00,& + .5852E-01,.1240E+00,.1204E+00,.2916E+00,.6176E+00,.6751E+00,.7225E+00,.7529E+00,.9480E+00,.1415E+00,& + .5923E-01,.1244E+00,.1202E+00,.2880E+00,.6144E+00,.6738E+00,.7216E+00,.7512E+00,.9474E+00,.1413E+00,& + .5993E-01,.1247E+00,.1200E+00,.2845E+00,.6112E+00,.6724E+00,.7206E+00,.7494E+00,.9468E+00,.1410E+00,& + .6064E-01,.1250E+00,.1197E+00,.2809E+00,.6080E+00,.6711E+00,.7196E+00,.7477E+00,.9462E+00,.1407E+00,& + .6134E-01,.1253E+00,.1195E+00,.2773E+00,.6048E+00,.6698E+00,.7186E+00,.7459E+00,.9456E+00,.1405E+00,& + .6205E-01,.1257E+00,.1192E+00,.2738E+00,.6016E+00,.6685E+00,.7176E+00,.7442E+00,.9450E+00,.1402E+00,& + .6277E-01,.1261E+00,.1193E+00,.2711E+00,.5990E+00,.6675E+00,.7170E+00,.7429E+00,.9445E+00,.1402E+00,& + .6350E-01,.1266E+00,.1193E+00,.2685E+00,.5965E+00,.6666E+00,.7164E+00,.7416E+00,.9440E+00,.1402E+00,& + .6423E-01,.1270E+00,.1193E+00,.2658E+00,.5939E+00,.6656E+00,.7158E+00,.7403E+00,.9435E+00,.1402E+00,& + .6495E-01,.1275E+00,.1194E+00,.2632E+00,.5914E+00,.6646E+00,.7152E+00,.7390E+00,.9431E+00,.1402E+00,& + .6568E-01,.1279E+00,.1194E+00,.2606E+00,.5889E+00,.6637E+00,.7145E+00,.7377E+00,.9426E+00,.1403E+00,& + .6643E-01,.1285E+00,.1197E+00,.2586E+00,.5868E+00,.6630E+00,.7142E+00,.7367E+00,.9422E+00,.1405E+00,& + .6719E-01,.1291E+00,.1199E+00,.2566E+00,.5848E+00,.6623E+00,.7138E+00,.7358E+00,.9418E+00,.1407E+00,& + .6794E-01,.1297E+00,.1202E+00,.2546E+00,.5828E+00,.6616E+00,.7135E+00,.7348E+00,.9413E+00,.1409E+00,& + .6869E-01,.1302E+00,.1204E+00,.2527E+00,.5808E+00,.6608E+00,.7131E+00,.7338E+00,.9409E+00,.1411E+00,& + .6945E-01,.1308E+00,.1207E+00,.2507E+00,.5787E+00,.6601E+00,.7127E+00,.7329E+00,.9405E+00,.1413E+00,& + .7022E-01,.1314E+00,.1211E+00,.2492E+00,.5772E+00,.6597E+00,.7126E+00,.7322E+00,.9402E+00,.1416E+00,& + .7098E-01,.1321E+00,.1214E+00,.2478E+00,.5756E+00,.6592E+00,.7124E+00,.7314E+00,.9399E+00,.1420E+00,& + .7175E-01,.1327E+00,.1218E+00,.2463E+00,.5740E+00,.6587E+00,.7123E+00,.7307E+00,.9395E+00,.1423E+00,& + .7252E-01,.1333E+00,.1222E+00,.2449E+00,.5724E+00,.6583E+00,.7121E+00,.7300E+00,.9392E+00,.1426E+00,& + .7328E-01,.1340E+00,.1226E+00,.2434E+00,.5709E+00,.6578E+00,.7120E+00,.7293E+00,.9388E+00,.1430E+00,& + .7394E-01,.1345E+00,.1230E+00,.2425E+00,.5698E+00,.6576E+00,.7119E+00,.7289E+00,.9386E+00,.1434E+00,& + .7459E-01,.1351E+00,.1234E+00,.2416E+00,.5688E+00,.6573E+00,.7119E+00,.7284E+00,.9384E+00,.1437E+00,& + .7525E-01,.1357E+00,.1238E+00,.2407E+00,.5678E+00,.6571E+00,.7119E+00,.7280E+00,.9381E+00,.1441E+00,& + .7590E-01,.1362E+00,.1242E+00,.2398E+00,.5668E+00,.6568E+00,.7119E+00,.7276E+00,.9379E+00,.1445E+00,& + .7655E-01,.1368E+00,.1245E+00,.2389E+00,.5657E+00,.6566E+00,.7119E+00,.7272E+00,.9376E+00,.1448E+00,& + .7721E-01,.1374E+00,.1250E+00,.2382E+00,.5649E+00,.6564E+00,.7119E+00,.7268E+00,.9374E+00,.1452E+00,& + .7787E-01,.1380E+00,.1254E+00,.2375E+00,.5641E+00,.6563E+00,.7120E+00,.7265E+00,.9372E+00,.1456E+00,& + .7852E-01,.1386E+00,.1258E+00,.2368E+00,.5633E+00,.6562E+00,.7121E+00,.7262E+00,.9370E+00,.1460E+00,& + .7918E-01,.1392E+00,.1263E+00,.2361E+00,.5625E+00,.6560E+00,.7122E+00,.7259E+00,.9368E+00,.1464E+00,& + .7983E-01,.1398E+00,.1267E+00,.2354E+00,.5617E+00,.6559E+00,.7122E+00,.7256E+00,.9366E+00,.1468E+00,& + .8050E-01,.1404E+00,.1272E+00,.2349E+00,.5611E+00,.6558E+00,.7124E+00,.7253E+00,.9364E+00,.1473E+00,& + .8116E-01,.1411E+00,.1276E+00,.2344E+00,.5604E+00,.6558E+00,.7125E+00,.7251E+00,.9362E+00,.1477E+00,& + .8183E-01,.1417E+00,.1281E+00,.2339E+00,.5598E+00,.6558E+00,.7126E+00,.7248E+00,.9360E+00,.1482E+00,& + .8249E-01,.1423E+00,.1286E+00,.2334E+00,.5592E+00,.6557E+00,.7128E+00,.7246E+00,.9358E+00,.1486E+00,& + .8316E-01,.1429E+00,.1290E+00,.2329E+00,.5585E+00,.6557E+00,.7129E+00,.7244E+00,.9357E+00,.1491E+00,& + .8383E-01,.1435E+00,.1296E+00,.2325E+00,.5581E+00,.6557E+00,.7131E+00,.7242E+00,.9355E+00,.1496E+00,& + .8450E-01,.1442E+00,.1301E+00,.2322E+00,.5576E+00,.6557E+00,.7133E+00,.7240E+00,.9353E+00,.1501E+00,& + .8517E-01,.1448E+00,.1306E+00,.2318E+00,.5571E+00,.6557E+00,.7135E+00,.7239E+00,.9352E+00,.1506E+00,& + .8584E-01,.1455E+00,.1311E+00,.2314E+00,.5566E+00,.6558E+00,.7136E+00,.7237E+00,.9350E+00,.1511E+00,& + .8651E-01,.1461E+00,.1316E+00,.2311E+00,.5562E+00,.6558E+00,.7138E+00,.7235E+00,.9348E+00,.1516E+00,& + .8761E-01,.1472E+00,.1324E+00,.2307E+00,.5557E+00,.6560E+00,.7142E+00,.7234E+00,.9346E+00,.1524E+00,& + .8870E-01,.1482E+00,.1332E+00,.2304E+00,.5552E+00,.6562E+00,.7146E+00,.7233E+00,.9344E+00,.1532E+00,& + .8980E-01,.1493E+00,.1341E+00,.2301E+00,.5547E+00,.6563E+00,.7150E+00,.7232E+00,.9341E+00,.1541E+00,& + .9089E-01,.1503E+00,.1349E+00,.2297E+00,.5542E+00,.6565E+00,.7154E+00,.7231E+00,.9339E+00,.1549E+00,& + .9198E-01,.1514E+00,.1358E+00,.2294E+00,.5538E+00,.6567E+00,.7157E+00,.7229E+00,.9337E+00,.1557E+00,& + .9334E-01,.1527E+00,.1369E+00,.2293E+00,.5535E+00,.6571E+00,.7163E+00,.7229E+00,.9334E+00,.1568E+00,& + .9470E-01,.1541E+00,.1380E+00,.2292E+00,.5533E+00,.6575E+00,.7169E+00,.7229E+00,.9332E+00,.1579E+00,& + .9606E-01,.1554E+00,.1390E+00,.2292E+00,.5531E+00,.6579E+00,.7174E+00,.7229E+00,.9330E+00,.1590E+00,& + .9741E-01,.1568E+00,.1401E+00,.2291E+00,.5529E+00,.6583E+00,.7180E+00,.7229E+00,.9327E+00,.1600E+00,& + .9877E-01,.1581E+00,.1412E+00,.2290E+00,.5526E+00,.6587E+00,.7185E+00,.7228E+00,.9325E+00,.1611E+00,& + .1004E+00,.1597E+00,.1426E+00,.2291E+00,.5526E+00,.6593E+00,.7193E+00,.7229E+00,.9322E+00,.1625E+00,& + .1027E+00,.1619E+00,.1444E+00,.2294E+00,.5527E+00,.6601E+00,.7203E+00,.7231E+00,.9319E+00,.1643E+00,& + .1046E+00,.1639E+00,.1460E+00,.2297E+00,.5529E+00,.6609E+00,.7212E+00,.7233E+00,.9316E+00,.1660E+00,& + .1066E+00,.1658E+00,.1476E+00,.2301E+00,.5532E+00,.6617E+00,.7221E+00,.7235E+00,.9313E+00,.1676E+00,& + .1095E+00,.1686E+00,.1500E+00,.2308E+00,.5538E+00,.6630E+00,.7235E+00,.7238E+00,.9309E+00,.1700E+00,& + .1118E+00,.1709E+00,.1519E+00,.2316E+00,.5543E+00,.6641E+00,.7246E+00,.7241E+00,.9306E+00,.1719E+00,& + .1147E+00,.1738E+00,.1543E+00,.2326E+00,.5552E+00,.6655E+00,.7259E+00,.7246E+00,.9303E+00,.1743E+00,& + .1175E+00,.1766E+00,.1567E+00,.2337E+00,.5562E+00,.6669E+00,.7273E+00,.7251E+00,.9299E+00,.1767E+00,& + .1208E+00,.1798E+00,.1594E+00,.2350E+00,.5575E+00,.6685E+00,.7289E+00,.7256E+00,.9295E+00,.1795E+00,& + .1249E+00,.1839E+00,.1628E+00,.2369E+00,.5593E+00,.6707E+00,.7308E+00,.7264E+00,.9291E+00,.1830E+00,& + .1290E+00,.1879E+00,.1662E+00,.2390E+00,.5613E+00,.6728E+00,.7328E+00,.7272E+00,.9287E+00,.1865E+00,& + .1346E+00,.1933E+00,.1708E+00,.2420E+00,.5642E+00,.6758E+00,.7354E+00,.7284E+00,.9280E+00,.1912E+00,& + .1405E+00,.1990E+00,.1756E+00,.2454E+00,.5675E+00,.6790E+00,.7380E+00,.7296E+00,.9274E+00,.1961E+00,& + .1481E+00,.2063E+00,.1818E+00,.2501E+00,.5720E+00,.6831E+00,.7414E+00,.7311E+00,.9265E+00,.2025E+00,& + .1578E+00,.2156E+00,.1898E+00,.2565E+00,.5781E+00,.6883E+00,.7454E+00,.7331E+00,.9255E+00,.2106E+00,& + .1690E+00,.2261E+00,.1988E+00,.2641E+00,.5853E+00,.6941E+00,.7496E+00,.7352E+00,.9242E+00,.2198E+00,& + .1868E+00,.2426E+00,.2131E+00,.2771E+00,.5969E+00,.7028E+00,.7557E+00,.7383E+00,.9218E+00,.2345E+00,& + .2092E+00,.2629E+00,.2311E+00,.2941E+00,.6113E+00,.7127E+00,.7621E+00,.7413E+00,.9183E+00,.2527E+00,& + .2497E+00,.2985E+00,.2634E+00,.3260E+00,.6351E+00,.7271E+00,.7697E+00,.7440E+00,.9103E+00,.2851E+00/ + data (((w0_lw(ai,k,nh),ai= 6, 6),k=1,nwl_lw),nh=0,99)/ & + .3712E+00,.5599E+00,.7804E+00,.9078E+00,.8815E+00,.8358E+00,.9067E+00,.9278E+00,.9736E+00,.6545E+00,& + .3711E+00,.5523E+00,.7479E+00,.8880E+00,.8761E+00,.8331E+00,.9016E+00,.9184E+00,.9693E+00,.6377E+00,& + .3710E+00,.5448E+00,.7154E+00,.8682E+00,.8707E+00,.8305E+00,.8964E+00,.9089E+00,.9651E+00,.6209E+00,& + .3708E+00,.5372E+00,.6829E+00,.8484E+00,.8654E+00,.8279E+00,.8912E+00,.8994E+00,.9608E+00,.6040E+00,& + .3707E+00,.5296E+00,.6504E+00,.8286E+00,.8600E+00,.8253E+00,.8860E+00,.8900E+00,.9566E+00,.5872E+00,& + .3706E+00,.5221E+00,.6180E+00,.8088E+00,.8546E+00,.8226E+00,.8809E+00,.8805E+00,.9523E+00,.5704E+00,& + .3707E+00,.5170E+00,.6009E+00,.7953E+00,.8501E+00,.8204E+00,.8765E+00,.8739E+00,.9491E+00,.5603E+00,& + .3708E+00,.5119E+00,.5838E+00,.7818E+00,.8457E+00,.8182E+00,.8722E+00,.8674E+00,.9458E+00,.5502E+00,& + .3709E+00,.5068E+00,.5668E+00,.7682E+00,.8412E+00,.8160E+00,.8679E+00,.8608E+00,.9425E+00,.5401E+00,& + .3711E+00,.5017E+00,.5497E+00,.7547E+00,.8367E+00,.8138E+00,.8636E+00,.8542E+00,.9392E+00,.5300E+00,& + .3712E+00,.4966E+00,.5327E+00,.7412E+00,.8323E+00,.8116E+00,.8593E+00,.8477E+00,.9359E+00,.5199E+00,& + .3715E+00,.4931E+00,.5227E+00,.7312E+00,.8285E+00,.8094E+00,.8559E+00,.8428E+00,.9331E+00,.5134E+00,& + .3719E+00,.4895E+00,.5127E+00,.7213E+00,.8248E+00,.8072E+00,.8525E+00,.8379E+00,.9303E+00,.5070E+00,& + .3722E+00,.4860E+00,.5027E+00,.7113E+00,.8210E+00,.8049E+00,.8492E+00,.8330E+00,.9274E+00,.5005E+00,& + .3725E+00,.4825E+00,.4928E+00,.7013E+00,.8173E+00,.8027E+00,.8458E+00,.8281E+00,.9246E+00,.4940E+00,& + .3729E+00,.4789E+00,.4828E+00,.6913E+00,.8136E+00,.8005E+00,.8424E+00,.8232E+00,.9218E+00,.4875E+00,& + .3733E+00,.4764E+00,.4767E+00,.6836E+00,.8103E+00,.7988E+00,.8395E+00,.8193E+00,.9194E+00,.4832E+00,& + .3738E+00,.4739E+00,.4705E+00,.6759E+00,.8071E+00,.7971E+00,.8365E+00,.8154E+00,.9171E+00,.4789E+00,& + .3742E+00,.4715E+00,.4644E+00,.6682E+00,.8038E+00,.7954E+00,.8335E+00,.8115E+00,.9148E+00,.4746E+00,& + .3747E+00,.4690E+00,.4583E+00,.6605E+00,.8006E+00,.7937E+00,.8305E+00,.8076E+00,.9125E+00,.4703E+00,& + .3751E+00,.4665E+00,.4522E+00,.6528E+00,.7973E+00,.7920E+00,.8275E+00,.8037E+00,.9102E+00,.4660E+00,& + .3757E+00,.4647E+00,.4483E+00,.6468E+00,.7945E+00,.7903E+00,.8251E+00,.8006E+00,.9082E+00,.4631E+00,& + .3762E+00,.4630E+00,.4445E+00,.6407E+00,.7917E+00,.7886E+00,.8228E+00,.7975E+00,.9061E+00,.4602E+00,& + .3767E+00,.4612E+00,.4407E+00,.6347E+00,.7889E+00,.7869E+00,.8204E+00,.7944E+00,.9040E+00,.4573E+00,& + .3773E+00,.4595E+00,.4368E+00,.6286E+00,.7861E+00,.7851E+00,.8180E+00,.7913E+00,.9020E+00,.4544E+00,& + .3778E+00,.4577E+00,.4330E+00,.6226E+00,.7833E+00,.7834E+00,.8156E+00,.7882E+00,.8999E+00,.4515E+00,& + .3784E+00,.4565E+00,.4306E+00,.6177E+00,.7808E+00,.7819E+00,.8134E+00,.7855E+00,.8981E+00,.4496E+00,& + .3790E+00,.4552E+00,.4281E+00,.6129E+00,.7784E+00,.7804E+00,.8112E+00,.7828E+00,.8963E+00,.4476E+00,& + .3796E+00,.4540E+00,.4257E+00,.6081E+00,.7759E+00,.7789E+00,.8089E+00,.7802E+00,.8945E+00,.4456E+00,& + .3802E+00,.4528E+00,.4233E+00,.6033E+00,.7734E+00,.7774E+00,.8067E+00,.7775E+00,.8927E+00,.4437E+00,& + .3808E+00,.4515E+00,.4209E+00,.5985E+00,.7710E+00,.7759E+00,.8045E+00,.7748E+00,.8909E+00,.4417E+00,& + .3815E+00,.4507E+00,.4194E+00,.5946E+00,.7688E+00,.7745E+00,.8027E+00,.7726E+00,.8892E+00,.4404E+00,& + .3821E+00,.4498E+00,.4179E+00,.5907E+00,.7666E+00,.7732E+00,.8008E+00,.7705E+00,.8876E+00,.4390E+00,& + .3827E+00,.4489E+00,.4163E+00,.5868E+00,.7644E+00,.7719E+00,.7990E+00,.7683E+00,.8860E+00,.4377E+00,& + .3834E+00,.4481E+00,.4148E+00,.5829E+00,.7622E+00,.7705E+00,.7972E+00,.7661E+00,.8844E+00,.4364E+00,& + .3840E+00,.4472E+00,.4133E+00,.5790E+00,.7600E+00,.7692E+00,.7953E+00,.7639E+00,.8828E+00,.4351E+00,& + .3847E+00,.4466E+00,.4124E+00,.5759E+00,.7581E+00,.7679E+00,.7936E+00,.7619E+00,.8812E+00,.4342E+00,& + .3853E+00,.4460E+00,.4115E+00,.5728E+00,.7561E+00,.7666E+00,.7919E+00,.7599E+00,.8796E+00,.4333E+00,& + .3859E+00,.4454E+00,.4106E+00,.5696E+00,.7542E+00,.7653E+00,.7901E+00,.7579E+00,.8781E+00,.4324E+00,& + .3866E+00,.4448E+00,.4097E+00,.5665E+00,.7523E+00,.7640E+00,.7884E+00,.7559E+00,.8765E+00,.4316E+00,& + .3872E+00,.4443E+00,.4088E+00,.5634E+00,.7504E+00,.7627E+00,.7867E+00,.7539E+00,.8750E+00,.4307E+00,& + .3879E+00,.4439E+00,.4083E+00,.5608E+00,.7487E+00,.7616E+00,.7851E+00,.7523E+00,.8736E+00,.4301E+00,& + .3885E+00,.4435E+00,.4078E+00,.5583E+00,.7469E+00,.7605E+00,.7836E+00,.7506E+00,.8723E+00,.4296E+00,& + .3892E+00,.4431E+00,.4073E+00,.5557E+00,.7452E+00,.7593E+00,.7820E+00,.7489E+00,.8709E+00,.4290E+00,& + .3899E+00,.4427E+00,.4068E+00,.5532E+00,.7435E+00,.7582E+00,.7805E+00,.7473E+00,.8696E+00,.4284E+00,& + .3905E+00,.4424E+00,.4063E+00,.5506E+00,.7418E+00,.7571E+00,.7790E+00,.7456E+00,.8683E+00,.4279E+00,& + .3912E+00,.4421E+00,.4060E+00,.5485E+00,.7402E+00,.7560E+00,.7776E+00,.7441E+00,.8669E+00,.4275E+00,& + .3918E+00,.4419E+00,.4058E+00,.5464E+00,.7387E+00,.7549E+00,.7763E+00,.7426E+00,.8655E+00,.4272E+00,& + .3925E+00,.4416E+00,.4056E+00,.5443E+00,.7371E+00,.7538E+00,.7749E+00,.7411E+00,.8642E+00,.4269E+00,& + .3931E+00,.4414E+00,.4054E+00,.5422E+00,.7355E+00,.7527E+00,.7736E+00,.7396E+00,.8628E+00,.4266E+00,& + .3938E+00,.4411E+00,.4051E+00,.5402E+00,.7340E+00,.7516E+00,.7722E+00,.7380E+00,.8614E+00,.4262E+00,& + .3943E+00,.4410E+00,.4051E+00,.5387E+00,.7329E+00,.7508E+00,.7711E+00,.7369E+00,.8605E+00,.4261E+00,& + .3948E+00,.4409E+00,.4051E+00,.5373E+00,.7317E+00,.7500E+00,.7700E+00,.7357E+00,.8596E+00,.4260E+00,& + .3953E+00,.4408E+00,.4050E+00,.5359E+00,.7306E+00,.7491E+00,.7689E+00,.7345E+00,.8587E+00,.4258E+00,& + .3958E+00,.4407E+00,.4050E+00,.5345E+00,.7294E+00,.7483E+00,.7678E+00,.7333E+00,.8578E+00,.4257E+00,& + .3963E+00,.4406E+00,.4050E+00,.5331E+00,.7283E+00,.7475E+00,.7667E+00,.7321E+00,.8568E+00,.4255E+00,& + .3968E+00,.4406E+00,.4050E+00,.5319E+00,.7273E+00,.7467E+00,.7657E+00,.7311E+00,.8559E+00,.4255E+00,& + .3974E+00,.4405E+00,.4051E+00,.5307E+00,.7262E+00,.7459E+00,.7647E+00,.7301E+00,.8549E+00,.4254E+00,& + .3979E+00,.4405E+00,.4052E+00,.5295E+00,.7251E+00,.7451E+00,.7638E+00,.7291E+00,.8539E+00,.4254E+00,& + .3984E+00,.4404E+00,.4052E+00,.5283E+00,.7241E+00,.7444E+00,.7628E+00,.7281E+00,.8529E+00,.4253E+00,& + .3989E+00,.4404E+00,.4053E+00,.5271E+00,.7230E+00,.7436E+00,.7618E+00,.7271E+00,.8519E+00,.4253E+00,& + .3994E+00,.4404E+00,.4054E+00,.5260E+00,.7220E+00,.7428E+00,.7609E+00,.7261E+00,.8509E+00,.4253E+00,& + .3999E+00,.4404E+00,.4056E+00,.5250E+00,.7211E+00,.7421E+00,.7600E+00,.7252E+00,.8500E+00,.4253E+00,& + .4004E+00,.4404E+00,.4057E+00,.5240E+00,.7201E+00,.7414E+00,.7591E+00,.7242E+00,.8490E+00,.4254E+00,& + .4009E+00,.4404E+00,.4058E+00,.5229E+00,.7191E+00,.7406E+00,.7582E+00,.7232E+00,.8480E+00,.4254E+00,& + .4014E+00,.4404E+00,.4060E+00,.5219E+00,.7181E+00,.7399E+00,.7573E+00,.7223E+00,.8471E+00,.4254E+00,& + .4019E+00,.4405E+00,.4062E+00,.5210E+00,.7172E+00,.7392E+00,.7564E+00,.7213E+00,.8462E+00,.4255E+00,& + .4024E+00,.4405E+00,.4063E+00,.5202E+00,.7163E+00,.7384E+00,.7554E+00,.7203E+00,.8454E+00,.4256E+00,& + .4028E+00,.4406E+00,.4065E+00,.5193E+00,.7154E+00,.7377E+00,.7545E+00,.7193E+00,.8445E+00,.4256E+00,& + .4033E+00,.4406E+00,.4067E+00,.5185E+00,.7145E+00,.7370E+00,.7535E+00,.7183E+00,.8437E+00,.4257E+00,& + .4038E+00,.4406E+00,.4069E+00,.5176E+00,.7136E+00,.7363E+00,.7525E+00,.7173E+00,.8428E+00,.4258E+00,& + .4045E+00,.4408E+00,.4072E+00,.5165E+00,.7124E+00,.7352E+00,.7513E+00,.7161E+00,.8416E+00,.4259E+00,& + .4052E+00,.4409E+00,.4076E+00,.5155E+00,.7112E+00,.7342E+00,.7500E+00,.7149E+00,.8403E+00,.4261E+00,& + .4059E+00,.4410E+00,.4079E+00,.5144E+00,.7099E+00,.7332E+00,.7488E+00,.7137E+00,.8391E+00,.4263E+00,& + .4066E+00,.4411E+00,.4083E+00,.5134E+00,.7087E+00,.7322E+00,.7475E+00,.7124E+00,.8379E+00,.4265E+00,& + .4073E+00,.4412E+00,.4086E+00,.5123E+00,.7075E+00,.7312E+00,.7463E+00,.7112E+00,.8367E+00,.4266E+00,& + .4083E+00,.4415E+00,.4092E+00,.5112E+00,.7059E+00,.7298E+00,.7445E+00,.7095E+00,.8350E+00,.4270E+00,& + .4092E+00,.4417E+00,.4098E+00,.5100E+00,.7043E+00,.7285E+00,.7428E+00,.7077E+00,.8332E+00,.4274E+00,& + .4102E+00,.4420E+00,.4104E+00,.5088E+00,.7027E+00,.7271E+00,.7411E+00,.7060E+00,.8315E+00,.4277E+00,& + .4111E+00,.4422E+00,.4110E+00,.5077E+00,.7011E+00,.7257E+00,.7394E+00,.7042E+00,.8298E+00,.4281E+00,& + .4121E+00,.4424E+00,.4116E+00,.5065E+00,.6995E+00,.7243E+00,.7377E+00,.7025E+00,.8281E+00,.4285E+00,& + .4131E+00,.4428E+00,.4123E+00,.5055E+00,.6979E+00,.7229E+00,.7359E+00,.7009E+00,.8266E+00,.4289E+00,& + .4145E+00,.4433E+00,.4134E+00,.5042E+00,.6957E+00,.7209E+00,.7334E+00,.6986E+00,.8237E+00,.4296E+00,& + .4159E+00,.4438E+00,.4144E+00,.5030E+00,.6936E+00,.7189E+00,.7310E+00,.6962E+00,.8213E+00,.4304E+00,& + .4173E+00,.4443E+00,.4155E+00,.5020E+00,.6915E+00,.7169E+00,.7288E+00,.6940E+00,.8188E+00,.4311E+00,& + .4188E+00,.4449E+00,.4168E+00,.5009E+00,.6891E+00,.7146E+00,.7258E+00,.6914E+00,.8159E+00,.4320E+00,& + .4203E+00,.4456E+00,.4180E+00,.4999E+00,.6868E+00,.7124E+00,.7230E+00,.6885E+00,.8134E+00,.4329E+00,& + .4217E+00,.4462E+00,.4193E+00,.4991E+00,.6847E+00,.7102E+00,.7203E+00,.6862E+00,.8106E+00,.4339E+00,& + .4232E+00,.4469E+00,.4206E+00,.4984E+00,.6825E+00,.7080E+00,.7176E+00,.6837E+00,.8080E+00,.4349E+00,& + .4249E+00,.4477E+00,.4222E+00,.4977E+00,.6800E+00,.7055E+00,.7148E+00,.6810E+00,.8048E+00,.4360E+00,& + .4268E+00,.4487E+00,.4239E+00,.4970E+00,.6772E+00,.7025E+00,.7110E+00,.6777E+00,.8012E+00,.4374E+00,& + .4290E+00,.4498E+00,.4260E+00,.4964E+00,.6740E+00,.6991E+00,.7068E+00,.6738E+00,.7973E+00,.4390E+00,& + .4312E+00,.4511E+00,.4283E+00,.4959E+00,.6708E+00,.6955E+00,.7026E+00,.6700E+00,.7928E+00,.4407E+00,& + .4342E+00,.4528E+00,.4314E+00,.4955E+00,.6662E+00,.6903E+00,.6962E+00,.6646E+00,.7866E+00,.4432E+00,& + .4375E+00,.4548E+00,.4349E+00,.4954E+00,.6613E+00,.6845E+00,.6895E+00,.6588E+00,.7800E+00,.4460E+00,& + .4411E+00,.4572E+00,.4390E+00,.4955E+00,.6556E+00,.6778E+00,.6813E+00,.6518E+00,.7724E+00,.4493E+00,& + .4458E+00,.4604E+00,.4444E+00,.4960E+00,.6479E+00,.6685E+00,.6707E+00,.6432E+00,.7615E+00,.4538E+00,& + .4508E+00,.4640E+00,.4506E+00,.4970E+00,.6388E+00,.6572E+00,.6580E+00,.6330E+00,.7496E+00,.4590E+00,& + .4576E+00,.4694E+00,.4595E+00,.4987E+00,.6249E+00,.6401E+00,.6388E+00,.6181E+00,.7317E+00,.4667E+00,& + .4676E+00,.4782E+00,.4737E+00,.5013E+00,.6004E+00,.6105E+00,.6078E+00,.5954E+00,.7018E+00,.4792E+00/ + data (((w0_lw(ai,k,nh),ai= 7, 7),k=1,nwl_lw),nh=0,99)/ & + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,& + .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02/ + data (((w0_lw(ai,k,nh),ai= 8, 8),k=1,nwl_lw),nh=0,99)/ & + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,& + .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01/ + data (((w0_lw(ai,k,nh),ai= 9, 9),k=1,nwl_lw),nh=0,99)/ & + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,& + .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01/ + data (((w0_lw(ai,k,nh),ai=10,10),k=1,nwl_lw),nh=0,99)/ & + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,& + .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00/ + data (((w0_lw(ai,k,nh),ai=11,11),k=1,nwl_lw),nh=0,99)/ & + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,& + .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00/ + data (((w0_lw(ai,k,nh),ai=12,12),k=1,nwl_lw),nh=0,99)/ & + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,& + .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00/ + data (((w0_lw(ai,k,nh),ai=13,13),k=1,nwl_lw),nh=0,99)/ & + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,& + .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00/ + data (((w0_lw(ai,k,nh),ai=14,14),k=1,nwl_lw),nh=0,99)/ & + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,& + .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00/ + data (((g_lw(ai,k,nh),ai= 1, 1),k=1,nwl_lw),nh=0,99)/ & + .4974E-03,.1097E-02,.2259E-02,.4134E-02,.5324E-02,.5525E-02,.6496E-02,.1171E-01,.2654E-01,.1705E-02,& + .5026E-03,.1108E-02,.2281E-02,.4167E-02,.5384E-02,.5621E-02,.6616E-02,.1188E-01,.2695E-01,.1724E-02,& + .5078E-03,.1120E-02,.2303E-02,.4201E-02,.5445E-02,.5717E-02,.6735E-02,.1205E-01,.2735E-01,.1743E-02,& + .5129E-03,.1131E-02,.2326E-02,.4234E-02,.5505E-02,.5813E-02,.6854E-02,.1223E-01,.2775E-01,.1761E-02,& + .5181E-03,.1142E-02,.2348E-02,.4268E-02,.5566E-02,.5909E-02,.6974E-02,.1240E-01,.2815E-01,.1780E-02,& + .5233E-03,.1154E-02,.2371E-02,.4302E-02,.5626E-02,.6006E-02,.7093E-02,.1257E-01,.2856E-01,.1799E-02,& + .5288E-03,.1166E-02,.2395E-02,.4339E-02,.5689E-02,.6102E-02,.7215E-02,.1275E-01,.2897E-01,.1818E-02,& + .5343E-03,.1178E-02,.2419E-02,.4376E-02,.5753E-02,.6199E-02,.7336E-02,.1293E-01,.2939E-01,.1838E-02,& + .5398E-03,.1190E-02,.2443E-02,.4414E-02,.5816E-02,.6296E-02,.7458E-02,.1311E-01,.2980E-01,.1858E-02,& + .5453E-03,.1202E-02,.2467E-02,.4451E-02,.5880E-02,.6393E-02,.7580E-02,.1329E-01,.3022E-01,.1878E-02,& + .5508E-03,.1214E-02,.2492E-02,.4489E-02,.5943E-02,.6490E-02,.7701E-02,.1347E-01,.3064E-01,.1898E-02,& + .5567E-03,.1227E-02,.2517E-02,.4530E-02,.6010E-02,.6587E-02,.7825E-02,.1366E-01,.3106E-01,.1919E-02,& + .5626E-03,.1240E-02,.2543E-02,.4571E-02,.6077E-02,.6685E-02,.7948E-02,.1384E-01,.3149E-01,.1940E-02,& + .5685E-03,.1253E-02,.2569E-02,.4612E-02,.6143E-02,.6783E-02,.8072E-02,.1403E-01,.3192E-01,.1961E-02,& + .5743E-03,.1266E-02,.2595E-02,.4653E-02,.6210E-02,.6881E-02,.8195E-02,.1422E-01,.3235E-01,.1982E-02,& + .5802E-03,.1279E-02,.2621E-02,.4695E-02,.6277E-02,.6978E-02,.8319E-02,.1440E-01,.3278E-01,.2003E-02,& + .5863E-03,.1292E-02,.2648E-02,.4738E-02,.6346E-02,.7078E-02,.8446E-02,.1459E-01,.3323E-01,.2025E-02,& + .5925E-03,.1306E-02,.2675E-02,.4782E-02,.6415E-02,.7178E-02,.8573E-02,.1479E-01,.3367E-01,.2047E-02,& + .5986E-03,.1319E-02,.2703E-02,.4826E-02,.6484E-02,.7278E-02,.8700E-02,.1498E-01,.3412E-01,.2068E-02,& + .6048E-03,.1333E-02,.2730E-02,.4869E-02,.6554E-02,.7377E-02,.8827E-02,.1517E-01,.3456E-01,.2090E-02,& + .6109E-03,.1346E-02,.2757E-02,.4913E-02,.6623E-02,.7477E-02,.8954E-02,.1536E-01,.3501E-01,.2112E-02,& + .6174E-03,.1360E-02,.2786E-02,.4960E-02,.6695E-02,.7579E-02,.9084E-02,.1556E-01,.3546E-01,.2135E-02,& + .6238E-03,.1374E-02,.2814E-02,.5006E-02,.6767E-02,.7681E-02,.9215E-02,.1576E-01,.3592E-01,.2158E-02,& + .6303E-03,.1388E-02,.2843E-02,.5053E-02,.6839E-02,.7783E-02,.9345E-02,.1596E-01,.3638E-01,.2181E-02,& + .6367E-03,.1402E-02,.2871E-02,.5099E-02,.6911E-02,.7885E-02,.9475E-02,.1616E-01,.3684E-01,.2204E-02,& + .6432E-03,.1417E-02,.2900E-02,.5146E-02,.6983E-02,.7986E-02,.9606E-02,.1636E-01,.3730E-01,.2227E-02,& + .6499E-03,.1431E-02,.2930E-02,.5195E-02,.7058E-02,.8090E-02,.9739E-02,.1656E-01,.3777E-01,.2251E-02,& + .6566E-03,.1446E-02,.2960E-02,.5244E-02,.7133E-02,.8194E-02,.9873E-02,.1677E-01,.3824E-01,.2275E-02,& + .6633E-03,.1461E-02,.2990E-02,.5294E-02,.7208E-02,.8298E-02,.1001E-01,.1698E-01,.3872E-01,.2299E-02,& + .6701E-03,.1475E-02,.3020E-02,.5343E-02,.7283E-02,.8402E-02,.1014E-01,.1718E-01,.3919E-01,.2323E-02,& + .6768E-03,.1490E-02,.3050E-02,.5392E-02,.7358E-02,.8506E-02,.1027E-01,.1739E-01,.3966E-01,.2346E-02,& + .6838E-03,.1505E-02,.3081E-02,.5444E-02,.7436E-02,.8613E-02,.1041E-01,.1760E-01,.4015E-01,.2371E-02,& + .6908E-03,.1521E-02,.3112E-02,.5496E-02,.7514E-02,.8719E-02,.1055E-01,.1781E-01,.4064E-01,.2396E-02,& + .6978E-03,.1536E-02,.3143E-02,.5547E-02,.7592E-02,.8826E-02,.1068E-01,.1802E-01,.4113E-01,.2421E-02,& + .7049E-03,.1551E-02,.3175E-02,.5599E-02,.7669E-02,.8932E-02,.1082E-01,.1823E-01,.4161E-01,.2446E-02,& + .7119E-03,.1567E-02,.3206E-02,.5651E-02,.7747E-02,.9038E-02,.1096E-01,.1844E-01,.4210E-01,.2471E-02,& + .7192E-03,.1583E-02,.3239E-02,.5705E-02,.7828E-02,.9147E-02,.1110E-01,.1866E-01,.4260E-01,.2497E-02,& + .7265E-03,.1599E-02,.3271E-02,.5760E-02,.7908E-02,.9256E-02,.1124E-01,.1888E-01,.4310E-01,.2522E-02,& + .7338E-03,.1615E-02,.3304E-02,.5814E-02,.7989E-02,.9364E-02,.1137E-01,.1910E-01,.4360E-01,.2548E-02,& + .7411E-03,.1631E-02,.3336E-02,.5868E-02,.8070E-02,.9473E-02,.1151E-01,.1931E-01,.4410E-01,.2574E-02,& + .7484E-03,.1647E-02,.3369E-02,.5923E-02,.8151E-02,.9581E-02,.1165E-01,.1953E-01,.4460E-01,.2600E-02,& + .7559E-03,.1663E-02,.3403E-02,.5979E-02,.8234E-02,.9693E-02,.1180E-01,.1976E-01,.4512E-01,.2627E-02,& + .7635E-03,.1680E-02,.3436E-02,.6036E-02,.8317E-02,.9804E-02,.1194E-01,.1998E-01,.4564E-01,.2653E-02,& + .7710E-03,.1696E-02,.3470E-02,.6092E-02,.8400E-02,.9916E-02,.1208E-01,.2021E-01,.4615E-01,.2680E-02,& + .7786E-03,.1713E-02,.3504E-02,.6149E-02,.8484E-02,.1003E-01,.1223E-01,.2043E-01,.4667E-01,.2707E-02,& + .7861E-03,.1729E-02,.3538E-02,.6205E-02,.8567E-02,.1014E-01,.1237E-01,.2065E-01,.4718E-01,.2734E-02,& + .7940E-03,.1746E-02,.3573E-02,.6264E-02,.8653E-02,.1025E-01,.1252E-01,.2088E-01,.4771E-01,.2761E-02,& + .8018E-03,.1763E-02,.3608E-02,.6322E-02,.8739E-02,.1037E-01,.1267E-01,.2111E-01,.4824E-01,.2789E-02,& + .8096E-03,.1780E-02,.3643E-02,.6381E-02,.8825E-02,.1048E-01,.1281E-01,.2135E-01,.4878E-01,.2816E-02,& + .8175E-03,.1797E-02,.3678E-02,.6440E-02,.8911E-02,.1060E-01,.1296E-01,.2158E-01,.4931E-01,.2844E-02,& + .8253E-03,.1814E-02,.3712E-02,.6498E-02,.8997E-02,.1071E-01,.1311E-01,.2181E-01,.4984E-01,.2871E-02,& + .8334E-03,.1832E-02,.3749E-02,.6559E-02,.9086E-02,.1083E-01,.1326E-01,.2204E-01,.5038E-01,.2900E-02,& + .8414E-03,.1850E-02,.3785E-02,.6621E-02,.9174E-02,.1094E-01,.1341E-01,.2228E-01,.5092E-01,.2929E-02,& + .8495E-03,.1867E-02,.3821E-02,.6682E-02,.9263E-02,.1106E-01,.1356E-01,.2252E-01,.5146E-01,.2957E-02,& + .8576E-03,.1885E-02,.3858E-02,.6743E-02,.9352E-02,.1118E-01,.1370E-01,.2275E-01,.5200E-01,.2986E-02,& + .8656E-03,.1903E-02,.3894E-02,.6805E-02,.9441E-02,.1129E-01,.1385E-01,.2299E-01,.5255E-01,.3014E-02,& + .8740E-03,.1921E-02,.3931E-02,.6868E-02,.9533E-02,.1141E-01,.1401E-01,.2323E-01,.5310E-01,.3044E-02,& + .8823E-03,.1939E-02,.3969E-02,.6931E-02,.9624E-02,.1153E-01,.1416E-01,.2347E-01,.5366E-01,.3073E-02,& + .8907E-03,.1957E-02,.4006E-02,.6995E-02,.9715E-02,.1165E-01,.1431E-01,.2371E-01,.5421E-01,.3102E-02,& + .8990E-03,.1976E-02,.4044E-02,.7058E-02,.9807E-02,.1177E-01,.1447E-01,.2395E-01,.5476E-01,.3132E-02,& + .9073E-03,.1994E-02,.4081E-02,.7121E-02,.9898E-02,.1189E-01,.1462E-01,.2419E-01,.5532E-01,.3161E-02,& + .9159E-03,.2013E-02,.4119E-02,.7186E-02,.9992E-02,.1201E-01,.1478E-01,.2444E-01,.5589E-01,.3191E-02,& + .9245E-03,.2031E-02,.4158E-02,.7252E-02,.1009E-01,.1213E-01,.1493E-01,.2469E-01,.5646E-01,.3221E-02,& + .9331E-03,.2050E-02,.4196E-02,.7317E-02,.1018E-01,.1226E-01,.1509E-01,.2494E-01,.5703E-01,.3252E-02,& + .9417E-03,.2069E-02,.4235E-02,.7382E-02,.1027E-01,.1238E-01,.1525E-01,.2519E-01,.5760E-01,.3282E-02,& + .9503E-03,.2087E-02,.4273E-02,.7447E-02,.1037E-01,.1250E-01,.1541E-01,.2544E-01,.5817E-01,.3312E-02,& + .9592E-03,.2107E-02,.4313E-02,.7514E-02,.1046E-01,.1263E-01,.1557E-01,.2569E-01,.5876E-01,.3343E-02,& + .9680E-03,.2126E-02,.4352E-02,.7581E-02,.1056E-01,.1275E-01,.1573E-01,.2595E-01,.5934E-01,.3374E-02,& + .9768E-03,.2145E-02,.4392E-02,.7648E-02,.1066E-01,.1288E-01,.1589E-01,.2620E-01,.5993E-01,.3405E-02,& + .9856E-03,.2165E-02,.4431E-02,.7715E-02,.1075E-01,.1300E-01,.1605E-01,.2646E-01,.6051E-01,.3436E-02,& + .9944E-03,.2184E-02,.4471E-02,.7783E-02,.1085E-01,.1313E-01,.1621E-01,.2671E-01,.6110E-01,.3467E-02,& + .1004E-02,.2204E-02,.4512E-02,.7851E-02,.1095E-01,.1326E-01,.1638E-01,.2698E-01,.6173E-01,.3500E-02,& + .1013E-02,.2223E-02,.4552E-02,.7919E-02,.1105E-01,.1339E-01,.1656E-01,.2726E-01,.6236E-01,.3532E-02,& + .1022E-02,.2243E-02,.4593E-02,.7987E-02,.1115E-01,.1353E-01,.1673E-01,.2753E-01,.6299E-01,.3564E-02,& + .1031E-02,.2263E-02,.4634E-02,.8056E-02,.1125E-01,.1366E-01,.1691E-01,.2780E-01,.6362E-01,.3596E-02,& + .1040E-02,.2283E-02,.4674E-02,.8124E-02,.1135E-01,.1380E-01,.1708E-01,.2808E-01,.6424E-01,.3628E-02,& + .1049E-02,.2303E-02,.4717E-02,.8195E-02,.1145E-01,.1393E-01,.1726E-01,.2836E-01,.6489E-01,.3661E-02,& + .1059E-02,.2324E-02,.4759E-02,.8266E-02,.1155E-01,.1407E-01,.1744E-01,.2864E-01,.6553E-01,.3695E-02,& + .1068E-02,.2344E-02,.4801E-02,.8337E-02,.1166E-01,.1421E-01,.1762E-01,.2892E-01,.6618E-01,.3728E-02,& + .1077E-02,.2365E-02,.4843E-02,.8407E-02,.1176E-01,.1434E-01,.1780E-01,.2920E-01,.6682E-01,.3761E-02,& + .1087E-02,.2385E-02,.4885E-02,.8478E-02,.1186E-01,.1448E-01,.1798E-01,.2948E-01,.6746E-01,.3794E-02,& + .1096E-02,.2406E-02,.4928E-02,.8551E-02,.1197E-01,.1462E-01,.1816E-01,.2976E-01,.6813E-01,.3828E-02,& + .1106E-02,.2427E-02,.4972E-02,.8624E-02,.1207E-01,.1476E-01,.1835E-01,.3005E-01,.6879E-01,.3863E-02,& + .1116E-02,.2448E-02,.5016E-02,.8697E-02,.1218E-01,.1490E-01,.1853E-01,.3034E-01,.6946E-01,.3897E-02,& + .1126E-02,.2470E-02,.5060E-02,.8772E-02,.1229E-01,.1505E-01,.1873E-01,.3065E-01,.7017E-01,.3932E-02,& + .1136E-02,.2492E-02,.5105E-02,.8847E-02,.1240E-01,.1520E-01,.1893E-01,.3096E-01,.7088E-01,.3968E-02,& + .1146E-02,.2513E-02,.5151E-02,.8923E-02,.1251E-01,.1535E-01,.1913E-01,.3127E-01,.7160E-01,.4004E-02,& + .1156E-02,.2536E-02,.5198E-02,.9001E-02,.1263E-01,.1551E-01,.1934E-01,.3160E-01,.7236E-01,.4041E-02,& + .1167E-02,.2559E-02,.5245E-02,.9079E-02,.1274E-01,.1567E-01,.1956E-01,.3193E-01,.7312E-01,.4078E-02,& + .1178E-02,.2582E-02,.5294E-02,.9159E-02,.1286E-01,.1584E-01,.1978E-01,.3227E-01,.7393E-01,.4118E-02,& + .1189E-02,.2607E-02,.5344E-02,.9242E-02,.1298E-01,.1601E-01,.2002E-01,.3264E-01,.7476E-01,.4158E-02,& + .1201E-02,.2631E-02,.5395E-02,.9327E-02,.1311E-01,.1619E-01,.2026E-01,.3300E-01,.7560E-01,.4198E-02,& + .1212E-02,.2657E-02,.5449E-02,.9415E-02,.1324E-01,.1637E-01,.2052E-01,.3339E-01,.7651E-01,.4241E-02,& + .1225E-02,.2683E-02,.5504E-02,.9507E-02,.1337E-01,.1656E-01,.2078E-01,.3379E-01,.7742E-01,.4285E-02,& + .1237E-02,.2711E-02,.5563E-02,.9602E-02,.1351E-01,.1676E-01,.2105E-01,.3421E-01,.7840E-01,.4331E-02,& + .1252E-02,.2742E-02,.5627E-02,.9706E-02,.1367E-01,.1699E-01,.2136E-01,.3468E-01,.7950E-01,.4383E-02,& + .1267E-02,.2775E-02,.5695E-02,.9819E-02,.1383E-01,.1722E-01,.2169E-01,.3517E-01,.8063E-01,.4437E-02,& + .1284E-02,.2811E-02,.5771E-02,.9945E-02,.1402E-01,.1748E-01,.2205E-01,.3573E-01,.8192E-01,.4498E-02,& + .1305E-02,.2856E-02,.5866E-02,.1010E-01,.1425E-01,.1780E-01,.2250E-01,.3641E-01,.8352E-01,.4573E-02,& + .1335E-02,.2921E-02,.6002E-02,.1033E-01,.1458E-01,.1826E-01,.2312E-01,.3738E-01,.8575E-01,.4680E-02/ + data (((g_lw(ai,k,nh),ai= 2, 2),k=1,nwl_lw),nh=0,99)/ & + .3489E-03,.7384E-03,.1593E-02,.2679E-02,.3583E-02,.4361E-02,.5349E-02,.8297E-02,.1781E-01,.1209E-02,& + .3523E-03,.7457E-03,.1609E-02,.2705E-02,.3619E-02,.4404E-02,.5402E-02,.8380E-02,.1799E-01,.1221E-02,& + .3558E-03,.7529E-03,.1625E-02,.2732E-02,.3654E-02,.4447E-02,.5455E-02,.8462E-02,.1817E-01,.1233E-02,& + .3592E-03,.7602E-03,.1640E-02,.2758E-02,.3690E-02,.4490E-02,.5508E-02,.8544E-02,.1835E-01,.1245E-02,& + .3627E-03,.7675E-03,.1656E-02,.2785E-02,.3725E-02,.4533E-02,.5561E-02,.8627E-02,.1852E-01,.1257E-02,& + .3661E-03,.7747E-03,.1672E-02,.2811E-02,.3761E-02,.4576E-02,.5614E-02,.8709E-02,.1870E-01,.1269E-02,& + .3695E-03,.7820E-03,.1687E-02,.2837E-02,.3796E-02,.4619E-02,.5666E-02,.8791E-02,.1888E-01,.1281E-02,& + .3730E-03,.7892E-03,.1703E-02,.2864E-02,.3831E-02,.4662E-02,.5719E-02,.8873E-02,.1906E-01,.1293E-02,& + .3764E-03,.7965E-03,.1719E-02,.2890E-02,.3866E-02,.4705E-02,.5772E-02,.8954E-02,.1923E-01,.1305E-02,& + .3798E-03,.8037E-03,.1734E-02,.2916E-02,.3901E-02,.4748E-02,.5824E-02,.9036E-02,.1941E-01,.1317E-02,& + .3832E-03,.8110E-03,.1750E-02,.2943E-02,.3937E-02,.4791E-02,.5877E-02,.9118E-02,.1959E-01,.1328E-02,& + .3866E-03,.8182E-03,.1766E-02,.2969E-02,.3972E-02,.4834E-02,.5930E-02,.9199E-02,.1976E-01,.1340E-02,& + .3900E-03,.8254E-03,.1781E-02,.2995E-02,.4007E-02,.4876E-02,.5982E-02,.9281E-02,.1994E-01,.1352E-02,& + .3934E-03,.8326E-03,.1797E-02,.3021E-02,.4042E-02,.4919E-02,.6034E-02,.9362E-02,.2011E-01,.1364E-02,& + .3968E-03,.8398E-03,.1812E-02,.3048E-02,.4077E-02,.4962E-02,.6087E-02,.9444E-02,.2029E-01,.1376E-02,& + .4002E-03,.8469E-03,.1828E-02,.3074E-02,.4112E-02,.5004E-02,.6139E-02,.9526E-02,.2047E-01,.1387E-02,& + .4036E-03,.8541E-03,.1843E-02,.3100E-02,.4147E-02,.5047E-02,.6191E-02,.9607E-02,.2064E-01,.1399E-02,& + .4070E-03,.8613E-03,.1859E-02,.3126E-02,.4182E-02,.5090E-02,.6243E-02,.9688E-02,.2082E-01,.1411E-02,& + .4103E-03,.8684E-03,.1874E-02,.3152E-02,.4216E-02,.5132E-02,.6296E-02,.9769E-02,.2099E-01,.1423E-02,& + .4137E-03,.8756E-03,.1890E-02,.3177E-02,.4251E-02,.5175E-02,.6348E-02,.9851E-02,.2117E-01,.1434E-02,& + .4171E-03,.8828E-03,.1905E-02,.3203E-02,.4286E-02,.5217E-02,.6400E-02,.9932E-02,.2134E-01,.1446E-02,& + .4205E-03,.8898E-03,.1920E-02,.3229E-02,.4321E-02,.5259E-02,.6452E-02,.1001E-01,.2152E-01,.1458E-02,& + .4238E-03,.8969E-03,.1936E-02,.3255E-02,.4355E-02,.5301E-02,.6503E-02,.1009E-01,.2169E-01,.1469E-02,& + .4271E-03,.9039E-03,.1951E-02,.3281E-02,.4390E-02,.5343E-02,.6555E-02,.1017E-01,.2187E-01,.1481E-02,& + .4305E-03,.9110E-03,.1966E-02,.3307E-02,.4424E-02,.5385E-02,.6607E-02,.1025E-01,.2204E-01,.1492E-02,& + .4338E-03,.9181E-03,.1981E-02,.3333E-02,.4459E-02,.5427E-02,.6658E-02,.1034E-01,.2221E-01,.1504E-02,& + .4372E-03,.9251E-03,.1997E-02,.3358E-02,.4493E-02,.5469E-02,.6710E-02,.1042E-01,.2239E-01,.1516E-02,& + .4405E-03,.9321E-03,.2012E-02,.3384E-02,.4527E-02,.5511E-02,.6761E-02,.1050E-01,.2256E-01,.1527E-02,& + .4438E-03,.9391E-03,.2027E-02,.3409E-02,.4562E-02,.5553E-02,.6812E-02,.1058E-01,.2273E-01,.1539E-02,& + .4471E-03,.9461E-03,.2042E-02,.3435E-02,.4596E-02,.5595E-02,.6864E-02,.1066E-01,.2290E-01,.1550E-02,& + .4504E-03,.9531E-03,.2057E-02,.3461E-02,.4630E-02,.5636E-02,.6915E-02,.1074E-01,.2308E-01,.1562E-02,& + .4537E-03,.9601E-03,.2072E-02,.3486E-02,.4664E-02,.5678E-02,.6966E-02,.1081E-01,.2325E-01,.1573E-02,& + .4570E-03,.9671E-03,.2087E-02,.3511E-02,.4698E-02,.5719E-02,.7017E-02,.1089E-01,.2342E-01,.1584E-02,& + .4603E-03,.9741E-03,.2103E-02,.3537E-02,.4732E-02,.5761E-02,.7067E-02,.1097E-01,.2359E-01,.1596E-02,& + .4636E-03,.9811E-03,.2118E-02,.3562E-02,.4766E-02,.5802E-02,.7118E-02,.1105E-01,.2376E-01,.1607E-02,& + .4669E-03,.9881E-03,.2133E-02,.3588E-02,.4800E-02,.5844E-02,.7169E-02,.1113E-01,.2393E-01,.1619E-02,& + .4701E-03,.9950E-03,.2148E-02,.3613E-02,.4834E-02,.5885E-02,.7220E-02,.1121E-01,.2410E-01,.1630E-02,& + .4734E-03,.1002E-02,.2162E-02,.3638E-02,.4867E-02,.5926E-02,.7270E-02,.1129E-01,.2427E-01,.1641E-02,& + .4766E-03,.1009E-02,.2177E-02,.3663E-02,.4901E-02,.5967E-02,.7320E-02,.1137E-01,.2444E-01,.1653E-02,& + .4799E-03,.1016E-02,.2192E-02,.3688E-02,.4935E-02,.6008E-02,.7371E-02,.1145E-01,.2461E-01,.1664E-02,& + .4831E-03,.1022E-02,.2207E-02,.3713E-02,.4968E-02,.6049E-02,.7421E-02,.1152E-01,.2478E-01,.1675E-02,& + .4863E-03,.1029E-02,.2222E-02,.3738E-02,.5002E-02,.6089E-02,.7471E-02,.1160E-01,.2495E-01,.1686E-02,& + .4896E-03,.1036E-02,.2237E-02,.3762E-02,.5035E-02,.6129E-02,.7521E-02,.1168E-01,.2512E-01,.1698E-02,& + .4928E-03,.1043E-02,.2251E-02,.3787E-02,.5068E-02,.6170E-02,.7570E-02,.1176E-01,.2528E-01,.1709E-02,& + .4960E-03,.1050E-02,.2266E-02,.3812E-02,.5101E-02,.6210E-02,.7620E-02,.1183E-01,.2545E-01,.1720E-02,& + .4992E-03,.1057E-02,.2281E-02,.3837E-02,.5134E-02,.6251E-02,.7670E-02,.1191E-01,.2562E-01,.1731E-02,& + .5023E-03,.1063E-02,.2295E-02,.3861E-02,.5167E-02,.6291E-02,.7719E-02,.1199E-01,.2578E-01,.1742E-02,& + .5055E-03,.1070E-02,.2310E-02,.3886E-02,.5200E-02,.6331E-02,.7769E-02,.1206E-01,.2595E-01,.1753E-02,& + .5087E-03,.1077E-02,.2324E-02,.3911E-02,.5233E-02,.6371E-02,.7818E-02,.1214E-01,.2611E-01,.1764E-02,& + .5119E-03,.1083E-02,.2339E-02,.3935E-02,.5266E-02,.6411E-02,.7867E-02,.1222E-01,.2628E-01,.1775E-02,& + .5151E-03,.1090E-02,.2353E-02,.3960E-02,.5299E-02,.6452E-02,.7916E-02,.1230E-01,.2645E-01,.1786E-02,& + .5182E-03,.1097E-02,.2368E-02,.3984E-02,.5331E-02,.6491E-02,.7965E-02,.1237E-01,.2661E-01,.1797E-02,& + .5213E-03,.1103E-02,.2382E-02,.4008E-02,.5364E-02,.6531E-02,.8014E-02,.1245E-01,.2677E-01,.1808E-02,& + .5244E-03,.1110E-02,.2396E-02,.4032E-02,.5396E-02,.6570E-02,.8062E-02,.1252E-01,.2694E-01,.1819E-02,& + .5276E-03,.1117E-02,.2411E-02,.4056E-02,.5429E-02,.6610E-02,.8111E-02,.1260E-01,.2710E-01,.1830E-02,& + .5307E-03,.1123E-02,.2425E-02,.4080E-02,.5461E-02,.6649E-02,.8160E-02,.1268E-01,.2726E-01,.1841E-02,& + .5334E-03,.1129E-02,.2437E-02,.4101E-02,.5491E-02,.6686E-02,.8207E-02,.1275E-01,.2744E-01,.1850E-02,& + .5360E-03,.1135E-02,.2448E-02,.4121E-02,.5520E-02,.6723E-02,.8254E-02,.1283E-01,.2761E-01,.1859E-02,& + .5387E-03,.1141E-02,.2460E-02,.4141E-02,.5549E-02,.6760E-02,.8301E-02,.1290E-01,.2778E-01,.1868E-02,& + .5413E-03,.1146E-02,.2471E-02,.4161E-02,.5578E-02,.6797E-02,.8348E-02,.1298E-01,.2796E-01,.1877E-02,& + .5440E-03,.1152E-02,.2483E-02,.4181E-02,.5608E-02,.6834E-02,.8395E-02,.1306E-01,.2813E-01,.1886E-02,& + .5470E-03,.1159E-02,.2497E-02,.4205E-02,.5639E-02,.6873E-02,.8443E-02,.1313E-01,.2829E-01,.1897E-02,& + .5501E-03,.1165E-02,.2511E-02,.4229E-02,.5671E-02,.6912E-02,.8491E-02,.1321E-01,.2845E-01,.1907E-02,& + .5531E-03,.1172E-02,.2525E-02,.4252E-02,.5703E-02,.6951E-02,.8538E-02,.1328E-01,.2861E-01,.1918E-02,& + .5562E-03,.1178E-02,.2539E-02,.4276E-02,.5735E-02,.6989E-02,.8586E-02,.1335E-01,.2877E-01,.1929E-02,& + .5592E-03,.1184E-02,.2553E-02,.4300E-02,.5766E-02,.7028E-02,.8634E-02,.1343E-01,.2893E-01,.1939E-02,& + .5612E-03,.1189E-02,.2560E-02,.4313E-02,.5791E-02,.7062E-02,.8681E-02,.1351E-01,.2914E-01,.1946E-02,& + .5631E-03,.1193E-02,.2567E-02,.4327E-02,.5816E-02,.7096E-02,.8727E-02,.1359E-01,.2934E-01,.1952E-02,& + .5650E-03,.1198E-02,.2574E-02,.4341E-02,.5841E-02,.7130E-02,.8774E-02,.1367E-01,.2954E-01,.1959E-02,& + .5669E-03,.1202E-02,.2581E-02,.4354E-02,.5865E-02,.7164E-02,.8821E-02,.1375E-01,.2975E-01,.1965E-02,& + .5689E-03,.1207E-02,.2588E-02,.4368E-02,.5890E-02,.7198E-02,.8867E-02,.1383E-01,.2995E-01,.1972E-02,& + .5700E-03,.1210E-02,.2590E-02,.4375E-02,.5913E-02,.7235E-02,.8923E-02,.1393E-01,.3025E-01,.1975E-02,& + .5712E-03,.1214E-02,.2591E-02,.4382E-02,.5936E-02,.7272E-02,.8980E-02,.1403E-01,.3054E-01,.1979E-02,& + .5724E-03,.1217E-02,.2593E-02,.4389E-02,.5960E-02,.7310E-02,.9036E-02,.1414E-01,.3084E-01,.1983E-02,& + .5736E-03,.1221E-02,.2595E-02,.4396E-02,.5983E-02,.7347E-02,.9092E-02,.1424E-01,.3113E-01,.1987E-02,& + .5748E-03,.1224E-02,.2597E-02,.4403E-02,.6006E-02,.7384E-02,.9149E-02,.1435E-01,.3143E-01,.1990E-02,& + .5772E-03,.1231E-02,.2605E-02,.4420E-02,.6042E-02,.7436E-02,.9224E-02,.1448E-01,.3179E-01,.1999E-02,& + .5796E-03,.1237E-02,.2613E-02,.4437E-02,.6078E-02,.7488E-02,.9300E-02,.1461E-01,.3215E-01,.2007E-02,& + .5821E-03,.1243E-02,.2621E-02,.4454E-02,.6113E-02,.7540E-02,.9375E-02,.1474E-01,.3251E-01,.2016E-02,& + .5845E-03,.1250E-02,.2629E-02,.4471E-02,.6149E-02,.7592E-02,.9451E-02,.1488E-01,.3287E-01,.2024E-02,& + .5869E-03,.1256E-02,.2637E-02,.4488E-02,.6185E-02,.7644E-02,.9526E-02,.1501E-01,.3322E-01,.2032E-02,& + .5903E-03,.1265E-02,.2649E-02,.4513E-02,.6234E-02,.7715E-02,.9626E-02,.1519E-01,.3370E-01,.2045E-02,& + .5940E-03,.1273E-02,.2664E-02,.4540E-02,.6281E-02,.7779E-02,.9715E-02,.1534E-01,.3409E-01,.2058E-02,& + .5983E-03,.1284E-02,.2681E-02,.4572E-02,.6337E-02,.7858E-02,.9824E-02,.1553E-01,.3458E-01,.2073E-02,& + .6025E-03,.1294E-02,.2698E-02,.4604E-02,.6389E-02,.7927E-02,.9917E-02,.1569E-01,.3498E-01,.2088E-02,& + .6074E-03,.1306E-02,.2719E-02,.4641E-02,.6452E-02,.8012E-02,.1003E-01,.1589E-01,.3548E-01,.2106E-02,& + .6128E-03,.1318E-02,.2741E-02,.4682E-02,.6518E-02,.8102E-02,.1016E-01,.1610E-01,.3599E-01,.2125E-02,& + .6176E-03,.1330E-02,.2762E-02,.4719E-02,.6576E-02,.8177E-02,.1026E-01,.1626E-01,.3641E-01,.2142E-02,& + .6235E-03,.1343E-02,.2787E-02,.4765E-02,.6646E-02,.8272E-02,.1038E-01,.1648E-01,.3693E-01,.2163E-02,& + .6287E-03,.1355E-02,.2810E-02,.4805E-02,.6707E-02,.8351E-02,.1049E-01,.1665E-01,.3735E-01,.2182E-02,& + .6351E-03,.1370E-02,.2838E-02,.4854E-02,.6782E-02,.8450E-02,.1062E-01,.1687E-01,.3789E-01,.2204E-02,& + .6417E-03,.1385E-02,.2866E-02,.4904E-02,.6860E-02,.8552E-02,.1075E-01,.1709E-01,.3843E-01,.2228E-02,& + .6484E-03,.1401E-02,.2896E-02,.4957E-02,.6939E-02,.8655E-02,.1089E-01,.1732E-01,.3898E-01,.2252E-02,& + .6555E-03,.1416E-02,.2928E-02,.5011E-02,.7021E-02,.8761E-02,.1103E-01,.1755E-01,.3954E-01,.2277E-02,& + .6639E-03,.1436E-02,.2965E-02,.5077E-02,.7119E-02,.8888E-02,.1120E-01,.1783E-01,.4020E-01,.2307E-02,& + .6725E-03,.1456E-02,.3004E-02,.5144E-02,.7219E-02,.9019E-02,.1137E-01,.1812E-01,.4088E-01,.2338E-02,& + .6828E-03,.1479E-02,.3049E-02,.5224E-02,.7337E-02,.9171E-02,.1157E-01,.1845E-01,.4168E-01,.2375E-02,& + .6960E-03,.1509E-02,.3108E-02,.5327E-02,.7489E-02,.9367E-02,.1183E-01,.1888E-01,.4270E-01,.2422E-02,& + .7109E-03,.1542E-02,.3176E-02,.5444E-02,.7660E-02,.9588E-02,.1212E-01,.1936E-01,.4383E-01,.2476E-02,& + .7427E-03,.1615E-02,.3320E-02,.5694E-02,.8024E-02,.1006E-01,.1272E-01,.2037E-01,.4624E-01,.2591E-02/ + data (((g_lw(ai,k,nh),ai= 3, 3),k=1,nwl_lw),nh=0,99)/ & + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02/ + data (((g_lw(ai,k,nh),ai= 4, 4),k=1,nwl_lw),nh=0,99)/ & + .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,& + .4165E-03,.9984E-03,.1967E-02,.3538E-02,.5512E-02,.6739E-02,.6069E-02,.1056E-01,.2387E-01,.1662E-02,& + .4214E-03,.1009E-02,.1989E-02,.3574E-02,.5561E-02,.6799E-02,.6157E-02,.1070E-01,.2419E-01,.1679E-02,& + .4264E-03,.1020E-02,.2011E-02,.3611E-02,.5611E-02,.6859E-02,.6245E-02,.1085E-01,.2452E-01,.1696E-02,& + .4313E-03,.1030E-02,.2034E-02,.3648E-02,.5660E-02,.6920E-02,.6333E-02,.1099E-01,.2484E-01,.1713E-02,& + .4363E-03,.1041E-02,.2056E-02,.3684E-02,.5709E-02,.6980E-02,.6420E-02,.1113E-01,.2517E-01,.1730E-02,& + .4414E-03,.1052E-02,.2079E-02,.3722E-02,.5761E-02,.7043E-02,.6511E-02,.1128E-01,.2550E-01,.1747E-02,& + .4466E-03,.1063E-02,.2102E-02,.3760E-02,.5812E-02,.7106E-02,.6602E-02,.1142E-01,.2584E-01,.1765E-02,& + .4517E-03,.1074E-02,.2125E-02,.3798E-02,.5863E-02,.7169E-02,.6693E-02,.1157E-01,.2617E-01,.1783E-02,& + .4569E-03,.1085E-02,.2148E-02,.3836E-02,.5915E-02,.7232E-02,.6784E-02,.1172E-01,.2651E-01,.1800E-02,& + .4620E-03,.1096E-02,.2171E-02,.3874E-02,.5966E-02,.7295E-02,.6875E-02,.1186E-01,.2685E-01,.1818E-02,& + .4673E-03,.1107E-02,.2194E-02,.3914E-02,.6020E-02,.7361E-02,.6969E-02,.1201E-01,.2719E-01,.1836E-02,& + .4726E-03,.1119E-02,.2218E-02,.3953E-02,.6073E-02,.7427E-02,.7063E-02,.1216E-01,.2754E-01,.1854E-02,& + .4779E-03,.1130E-02,.2242E-02,.3992E-02,.6127E-02,.7493E-02,.7157E-02,.1232E-01,.2788E-01,.1872E-02,& + .4832E-03,.1142E-02,.2266E-02,.4032E-02,.6180E-02,.7558E-02,.7251E-02,.1247E-01,.2823E-01,.1890E-02,& + .4885E-03,.1153E-02,.2289E-02,.4071E-02,.6234E-02,.7624E-02,.7345E-02,.1262E-01,.2857E-01,.1909E-02,& + .4940E-03,.1165E-02,.2314E-02,.4112E-02,.6289E-02,.7693E-02,.7442E-02,.1277E-01,.2893E-01,.1927E-02,& + .4995E-03,.1177E-02,.2338E-02,.4153E-02,.6345E-02,.7762E-02,.7539E-02,.1293E-01,.2929E-01,.1946E-02,& + .5049E-03,.1188E-02,.2363E-02,.4194E-02,.6401E-02,.7830E-02,.7636E-02,.1309E-01,.2965E-01,.1965E-02,& + .5104E-03,.1200E-02,.2387E-02,.4235E-02,.6456E-02,.7899E-02,.7733E-02,.1324E-01,.3000E-01,.1984E-02,& + .5159E-03,.1212E-02,.2412E-02,.4275E-02,.6512E-02,.7968E-02,.7830E-02,.1340E-01,.3036E-01,.2002E-02,& + .5215E-03,.1224E-02,.2437E-02,.4318E-02,.6569E-02,.8039E-02,.7930E-02,.1356E-01,.3073E-01,.2022E-02,& + .5272E-03,.1236E-02,.2462E-02,.4360E-02,.6627E-02,.8110E-02,.8030E-02,.1372E-01,.3109E-01,.2041E-02,& + .5328E-03,.1248E-02,.2488E-02,.4402E-02,.6685E-02,.8182E-02,.8130E-02,.1388E-01,.3146E-01,.2060E-02,& + .5385E-03,.1261E-02,.2513E-02,.4444E-02,.6742E-02,.8253E-02,.8230E-02,.1404E-01,.3183E-01,.2080E-02,& + .5441E-03,.1273E-02,.2538E-02,.4486E-02,.6800E-02,.8324E-02,.8330E-02,.1420E-01,.3219E-01,.2099E-02,& + .5499E-03,.1285E-02,.2564E-02,.4530E-02,.6860E-02,.8399E-02,.8434E-02,.1437E-01,.3257E-01,.2119E-02,& + .5558E-03,.1298E-02,.2590E-02,.4574E-02,.6920E-02,.8473E-02,.8537E-02,.1453E-01,.3295E-01,.2139E-02,& + .5616E-03,.1310E-02,.2616E-02,.4617E-02,.6979E-02,.8547E-02,.8640E-02,.1470E-01,.3333E-01,.2159E-02,& + .5674E-03,.1323E-02,.2642E-02,.4661E-02,.7039E-02,.8622E-02,.8743E-02,.1486E-01,.3371E-01,.2179E-02,& + .5732E-03,.1335E-02,.2668E-02,.4704E-02,.7099E-02,.8696E-02,.8847E-02,.1503E-01,.3409E-01,.2199E-02,& + .5792E-03,.1348E-02,.2695E-02,.4749E-02,.7161E-02,.8772E-02,.8952E-02,.1520E-01,.3447E-01,.2219E-02,& + .5852E-03,.1361E-02,.2721E-02,.4794E-02,.7222E-02,.8849E-02,.9058E-02,.1537E-01,.3486E-01,.2240E-02,& + .5912E-03,.1374E-02,.2748E-02,.4839E-02,.7284E-02,.8925E-02,.9163E-02,.1554E-01,.3525E-01,.2261E-02,& + .5971E-03,.1387E-02,.2775E-02,.4884E-02,.7346E-02,.9001E-02,.9269E-02,.1570E-01,.3564E-01,.2281E-02,& + .6031E-03,.1400E-02,.2801E-02,.4929E-02,.7408E-02,.9078E-02,.9374E-02,.1587E-01,.3603E-01,.2302E-02,& + .6093E-03,.1413E-02,.2829E-02,.4975E-02,.7471E-02,.9158E-02,.9483E-02,.1605E-01,.3643E-01,.2323E-02,& + .6154E-03,.1427E-02,.2857E-02,.5022E-02,.7535E-02,.9237E-02,.9593E-02,.1622E-01,.3683E-01,.2344E-02,& + .6216E-03,.1440E-02,.2884E-02,.5068E-02,.7599E-02,.9317E-02,.9702E-02,.1640E-01,.3723E-01,.2365E-02,& + .6278E-03,.1453E-02,.2912E-02,.5114E-02,.7663E-02,.9397E-02,.9811E-02,.1658E-01,.3763E-01,.2387E-02,& + .6339E-03,.1467E-02,.2939E-02,.5161E-02,.7726E-02,.9477E-02,.9920E-02,.1675E-01,.3802E-01,.2408E-02,& + .6403E-03,.1480E-02,.2968E-02,.5209E-02,.7792E-02,.9559E-02,.1003E-01,.1693E-01,.3844E-01,.2430E-02,& + .6466E-03,.1494E-02,.2996E-02,.5256E-02,.7858E-02,.9641E-02,.1014E-01,.1711E-01,.3885E-01,.2451E-02,& + .6529E-03,.1507E-02,.3024E-02,.5304E-02,.7924E-02,.9723E-02,.1026E-01,.1729E-01,.3926E-01,.2473E-02,& + .6593E-03,.1521E-02,.3053E-02,.5352E-02,.7989E-02,.9805E-02,.1037E-01,.1747E-01,.3967E-01,.2495E-02,& + .6656E-03,.1535E-02,.3081E-02,.5400E-02,.8055E-02,.9887E-02,.1048E-01,.1765E-01,.4008E-01,.2517E-02,& + .6721E-03,.1549E-02,.3110E-02,.5449E-02,.8123E-02,.9971E-02,.1059E-01,.1783E-01,.4050E-01,.2539E-02,& + .6786E-03,.1563E-02,.3139E-02,.5498E-02,.8191E-02,.1006E-01,.1071E-01,.1802E-01,.4092E-01,.2562E-02,& + .6851E-03,.1577E-02,.3168E-02,.5547E-02,.8259E-02,.1014E-01,.1082E-01,.1820E-01,.4133E-01,.2584E-02,& + .6916E-03,.1591E-02,.3197E-02,.5596E-02,.8327E-02,.1023E-01,.1094E-01,.1838E-01,.4175E-01,.2607E-02,& + .6981E-03,.1605E-02,.3226E-02,.5645E-02,.8394E-02,.1031E-01,.1105E-01,.1857E-01,.4217E-01,.2629E-02,& + .7048E-03,.1619E-02,.3256E-02,.5695E-02,.8462E-02,.1040E-01,.1117E-01,.1876E-01,.4261E-01,.2652E-02,& + .7114E-03,.1634E-02,.3286E-02,.5744E-02,.8530E-02,.1048E-01,.1129E-01,.1895E-01,.4305E-01,.2674E-02,& + .7181E-03,.1648E-02,.3315E-02,.5794E-02,.8597E-02,.1056E-01,.1141E-01,.1914E-01,.4349E-01,.2697E-02,& + .7248E-03,.1662E-02,.3345E-02,.5844E-02,.8665E-02,.1065E-01,.1153E-01,.1933E-01,.4392E-01,.2719E-02,& + .7314E-03,.1676E-02,.3374E-02,.5894E-02,.8732E-02,.1073E-01,.1165E-01,.1952E-01,.4436E-01,.2742E-02,& + .7383E-03,.1691E-02,.3405E-02,.5945E-02,.8803E-02,.1082E-01,.1178E-01,.1972E-01,.4481E-01,.2765E-02,& + .7452E-03,.1706E-02,.3435E-02,.5996E-02,.8873E-02,.1091E-01,.1190E-01,.1991E-01,.4526E-01,.2789E-02,& + .7520E-03,.1720E-02,.3466E-02,.6047E-02,.8944E-02,.1100E-01,.1202E-01,.2011E-01,.4571E-01,.2812E-02,& + .7589E-03,.1735E-02,.3496E-02,.6099E-02,.9014E-02,.1109E-01,.1215E-01,.2031E-01,.4615E-01,.2835E-02,& + .7657E-03,.1750E-02,.3527E-02,.6150E-02,.9085E-02,.1117E-01,.1227E-01,.2050E-01,.4660E-01,.2858E-02,& + .7728E-03,.1765E-02,.3558E-02,.6203E-02,.9159E-02,.1127E-01,.1239E-01,.2070E-01,.4705E-01,.2883E-02,& + .7799E-03,.1780E-02,.3590E-02,.6257E-02,.9233E-02,.1136E-01,.1252E-01,.2090E-01,.4751E-01,.2907E-02,& + .7870E-03,.1795E-02,.3621E-02,.6310E-02,.9307E-02,.1145E-01,.1264E-01,.2110E-01,.4796E-01,.2931E-02,& + .7940E-03,.1810E-02,.3652E-02,.6364E-02,.9381E-02,.1155E-01,.1277E-01,.2129E-01,.4841E-01,.2956E-02,& + .8011E-03,.1825E-02,.3684E-02,.6417E-02,.9455E-02,.1164E-01,.1289E-01,.2149E-01,.4886E-01,.2980E-02,& + .8083E-03,.1841E-02,.3716E-02,.6471E-02,.9529E-02,.1173E-01,.1302E-01,.2170E-01,.4933E-01,.3005E-02,& + .8155E-03,.1857E-02,.3748E-02,.6526E-02,.9604E-02,.1183E-01,.1315E-01,.2190E-01,.4981E-01,.3029E-02,& + .8227E-03,.1872E-02,.3780E-02,.6580E-02,.9678E-02,.1192E-01,.1328E-01,.2211E-01,.5028E-01,.3054E-02,& + .8299E-03,.1888E-02,.3812E-02,.6634E-02,.9753E-02,.1202E-01,.1341E-01,.2232E-01,.5075E-01,.3078E-02,& + .8371E-03,.1903E-02,.3845E-02,.6688E-02,.9828E-02,.1211E-01,.1354E-01,.2252E-01,.5122E-01,.3103E-02,& + .8446E-03,.1919E-02,.3878E-02,.6744E-02,.9900E-02,.1220E-01,.1368E-01,.2274E-01,.5172E-01,.3128E-02,& + .8521E-03,.1935E-02,.3910E-02,.6799E-02,.9973E-02,.1229E-01,.1382E-01,.2296E-01,.5222E-01,.3152E-02,& + .8596E-03,.1950E-02,.3943E-02,.6854E-02,.1005E-01,.1239E-01,.1396E-01,.2318E-01,.5273E-01,.3177E-02,& + .8671E-03,.1966E-02,.3976E-02,.6909E-02,.1012E-01,.1248E-01,.1410E-01,.2340E-01,.5323E-01,.3202E-02,& + .8746E-03,.1982E-02,.4009E-02,.6964E-02,.1019E-01,.1257E-01,.1423E-01,.2362E-01,.5373E-01,.3226E-02,& + .8825E-03,.1998E-02,.4043E-02,.7021E-02,.1027E-01,.1267E-01,.1439E-01,.2385E-01,.5427E-01,.3251E-02,& + .8903E-03,.2014E-02,.4077E-02,.7077E-02,.1034E-01,.1277E-01,.1454E-01,.2408E-01,.5481E-01,.3277E-02,& + .8982E-03,.2030E-02,.4112E-02,.7134E-02,.1042E-01,.1286E-01,.1469E-01,.2432E-01,.5534E-01,.3302E-02,& + .9061E-03,.2046E-02,.4146E-02,.7191E-02,.1049E-01,.1296E-01,.1484E-01,.2455E-01,.5588E-01,.3327E-02,& + .9140E-03,.2063E-02,.4180E-02,.7248E-02,.1056E-01,.1305E-01,.1499E-01,.2479E-01,.5642E-01,.3352E-02,& + .9219E-03,.2079E-02,.4215E-02,.7306E-02,.1064E-01,.1315E-01,.1515E-01,.2503E-01,.5699E-01,.3378E-02,& + .9303E-03,.2096E-02,.4251E-02,.7365E-02,.1072E-01,.1325E-01,.1531E-01,.2528E-01,.5756E-01,.3404E-02,& + .9387E-03,.2113E-02,.4287E-02,.7425E-02,.1079E-01,.1335E-01,.1548E-01,.2553E-01,.5813E-01,.3430E-02,& + .9471E-03,.2130E-02,.4323E-02,.7485E-02,.1087E-01,.1345E-01,.1563E-01,.2578E-01,.5871E-01,.3457E-02,& + .9557E-03,.2147E-02,.4360E-02,.7546E-02,.1095E-01,.1355E-01,.1581E-01,.2604E-01,.5932E-01,.3484E-02,& + .9644E-03,.2165E-02,.4398E-02,.7609E-02,.1103E-01,.1366E-01,.1599E-01,.2631E-01,.5994E-01,.3511E-02,& + .9735E-03,.2183E-02,.4437E-02,.7673E-02,.1111E-01,.1376E-01,.1618E-01,.2659E-01,.6060E-01,.3538E-02,& + .9828E-03,.2201E-02,.4477E-02,.7738E-02,.1119E-01,.1387E-01,.1636E-01,.2688E-01,.6126E-01,.3567E-02,& + .9926E-03,.2220E-02,.4518E-02,.7805E-02,.1127E-01,.1398E-01,.1656E-01,.2718E-01,.6196E-01,.3595E-02,& + .1002E-02,.2240E-02,.4559E-02,.7874E-02,.1136E-01,.1409E-01,.1676E-01,.2749E-01,.6266E-01,.3625E-02,& + .1013E-02,.2260E-02,.4603E-02,.7945E-02,.1145E-01,.1421E-01,.1697E-01,.2780E-01,.6340E-01,.3655E-02,& + .1023E-02,.2280E-02,.4647E-02,.8019E-02,.1154E-01,.1434E-01,.1719E-01,.2814E-01,.6417E-01,.3687E-02,& + .1035E-02,.2303E-02,.4696E-02,.8099E-02,.1164E-01,.1447E-01,.1744E-01,.2850E-01,.6502E-01,.3721E-02,& + .1047E-02,.2326E-02,.4746E-02,.8182E-02,.1173E-01,.1461E-01,.1769E-01,.2887E-01,.6589E-01,.3756E-02,& + .1060E-02,.2352E-02,.4802E-02,.8275E-02,.1185E-01,.1476E-01,.1797E-01,.2930E-01,.6689E-01,.3794E-02,& + .1075E-02,.2380E-02,.4865E-02,.8379E-02,.1198E-01,.1494E-01,.1829E-01,.2978E-01,.6800E-01,.3838E-02,& + .1091E-02,.2412E-02,.4933E-02,.8492E-02,.1212E-01,.1513E-01,.1863E-01,.3028E-01,.6919E-01,.3886E-02,& + .1112E-02,.2452E-02,.5021E-02,.8639E-02,.1230E-01,.1538E-01,.1907E-01,.3094E-01,.7072E-01,.3947E-02,& + .1139E-02,.2506E-02,.5137E-02,.8835E-02,.1255E-01,.1572E-01,.1963E-01,.3179E-01,.7270E-01,.4030E-02/ + data (((g_lw(ai,k,nh),ai= 5, 5),k=1,nwl_lw),nh=0,99)/ & + .1481E+00,.2519E+00,.3517E+00,.4244E+00,.4530E+00,.4774E+00,.5189E+00,.5612E+00,.6172E+00,.3172E+00,& + .1497E+00,.2526E+00,.3520E+00,.4269E+00,.4564E+00,.4808E+00,.5221E+00,.5645E+00,.6203E+00,.3173E+00,& + .1513E+00,.2533E+00,.3523E+00,.4293E+00,.4598E+00,.4842E+00,.5252E+00,.5678E+00,.6234E+00,.3175E+00,& + .1529E+00,.2541E+00,.3526E+00,.4317E+00,.4632E+00,.4877E+00,.5283E+00,.5711E+00,.6265E+00,.3176E+00,& + .1545E+00,.2548E+00,.3529E+00,.4342E+00,.4666E+00,.4911E+00,.5315E+00,.5744E+00,.6296E+00,.3177E+00,& + .1561E+00,.2556E+00,.3532E+00,.4366E+00,.4700E+00,.4946E+00,.5346E+00,.5777E+00,.6326E+00,.3178E+00,& + .1577E+00,.2565E+00,.3537E+00,.4389E+00,.4732E+00,.4978E+00,.5375E+00,.5807E+00,.6354E+00,.3182E+00,& + .1593E+00,.2574E+00,.3542E+00,.4412E+00,.4763E+00,.5010E+00,.5404E+00,.5836E+00,.6381E+00,.3186E+00,& + .1609E+00,.2583E+00,.3547E+00,.4435E+00,.4795E+00,.5042E+00,.5433E+00,.5866E+00,.6408E+00,.3190E+00,& + .1625E+00,.2593E+00,.3552E+00,.4458E+00,.4827E+00,.5074E+00,.5462E+00,.5895E+00,.6436E+00,.3194E+00,& + .1641E+00,.2602E+00,.3557E+00,.4481E+00,.4859E+00,.5106E+00,.5491E+00,.5925E+00,.6463E+00,.3198E+00,& + .1657E+00,.2613E+00,.3564E+00,.4503E+00,.4889E+00,.5136E+00,.5519E+00,.5952E+00,.6487E+00,.3205E+00,& + .1673E+00,.2623E+00,.3572E+00,.4525E+00,.4919E+00,.5166E+00,.5546E+00,.5979E+00,.6512E+00,.3211E+00,& + .1689E+00,.2634E+00,.3579E+00,.4547E+00,.4949E+00,.5197E+00,.5574E+00,.6006E+00,.6536E+00,.3218E+00,& + .1705E+00,.2645E+00,.3586E+00,.4570E+00,.4979E+00,.5227E+00,.5601E+00,.6033E+00,.6560E+00,.3225E+00,& + .1721E+00,.2656E+00,.3594E+00,.4592E+00,.5010E+00,.5257E+00,.5628E+00,.6060E+00,.6585E+00,.3231E+00,& + .1737E+00,.2667E+00,.3603E+00,.4613E+00,.5038E+00,.5285E+00,.5654E+00,.6085E+00,.6606E+00,.3240E+00,& + .1752E+00,.2679E+00,.3613E+00,.4635E+00,.5066E+00,.5314E+00,.5679E+00,.6109E+00,.6628E+00,.3248E+00,& + .1768E+00,.2690E+00,.3622E+00,.4657E+00,.5095E+00,.5342E+00,.5705E+00,.6134E+00,.6649E+00,.3256E+00,& + .1784E+00,.2702E+00,.3631E+00,.4678E+00,.5123E+00,.5370E+00,.5730E+00,.6159E+00,.6670E+00,.3265E+00,& + .1800E+00,.2714E+00,.3641E+00,.4700E+00,.5151E+00,.5398E+00,.5756E+00,.6184E+00,.6692E+00,.3273E+00,& + .1815E+00,.2726E+00,.3652E+00,.4722E+00,.5178E+00,.5425E+00,.5780E+00,.6207E+00,.6712E+00,.3283E+00,& + .1831E+00,.2739E+00,.3662E+00,.4743E+00,.5205E+00,.5452E+00,.5804E+00,.6230E+00,.6731E+00,.3293E+00,& + .1846E+00,.2751E+00,.3673E+00,.4764E+00,.5232E+00,.5479E+00,.5828E+00,.6253E+00,.6751E+00,.3303E+00,& + .1862E+00,.2763E+00,.3684E+00,.4786E+00,.5259E+00,.5506E+00,.5853E+00,.6276E+00,.6770E+00,.3313E+00,& + .1877E+00,.2776E+00,.3695E+00,.4807E+00,.5286E+00,.5533E+00,.5877E+00,.6299E+00,.6790E+00,.3323E+00,& + .1893E+00,.2789E+00,.3707E+00,.4828E+00,.5312E+00,.5558E+00,.5899E+00,.6320E+00,.6807E+00,.3334E+00,& + .1908E+00,.2801E+00,.3719E+00,.4849E+00,.5338E+00,.5583E+00,.5922E+00,.6341E+00,.6825E+00,.3345E+00,& + .1923E+00,.2814E+00,.3731E+00,.4870E+00,.5363E+00,.5608E+00,.5944E+00,.6362E+00,.6842E+00,.3356E+00,& + .1939E+00,.2827E+00,.3743E+00,.4891E+00,.5389E+00,.5633E+00,.5967E+00,.6383E+00,.6860E+00,.3367E+00,& + .1954E+00,.2840E+00,.3755E+00,.4912E+00,.5414E+00,.5659E+00,.5990E+00,.6405E+00,.6877E+00,.3378E+00,& + .1969E+00,.2853E+00,.3767E+00,.4933E+00,.5439E+00,.5682E+00,.6011E+00,.6425E+00,.6893E+00,.3389E+00,& + .1984E+00,.2866E+00,.3780E+00,.4953E+00,.5463E+00,.5706E+00,.6032E+00,.6445E+00,.6909E+00,.3401E+00,& + .1999E+00,.2879E+00,.3793E+00,.4974E+00,.5487E+00,.5730E+00,.6054E+00,.6464E+00,.6925E+00,.3413E+00,& + .2014E+00,.2892E+00,.3806E+00,.4995E+00,.5512E+00,.5754E+00,.6075E+00,.6484E+00,.6941E+00,.3425E+00,& + .2029E+00,.2905E+00,.3819E+00,.5015E+00,.5536E+00,.5778E+00,.6096E+00,.6504E+00,.6957E+00,.3436E+00,& + .2044E+00,.2918E+00,.3832E+00,.5035E+00,.5559E+00,.5800E+00,.6116E+00,.6523E+00,.6971E+00,.3449E+00,& + .2058E+00,.2931E+00,.3845E+00,.5055E+00,.5582E+00,.5823E+00,.6136E+00,.6541E+00,.6986E+00,.3461E+00,& + .2073E+00,.2945E+00,.3858E+00,.5075E+00,.5605E+00,.5845E+00,.6156E+00,.6559E+00,.7000E+00,.3473E+00,& + .2088E+00,.2958E+00,.3871E+00,.5095E+00,.5628E+00,.5868E+00,.6176E+00,.6578E+00,.7014E+00,.3485E+00,& + .2103E+00,.2971E+00,.3884E+00,.5115E+00,.5652E+00,.5890E+00,.6196E+00,.6596E+00,.7028E+00,.3497E+00,& + .2117E+00,.2984E+00,.3898E+00,.5135E+00,.5674E+00,.5912E+00,.6215E+00,.6614E+00,.7042E+00,.3510E+00,& + .2132E+00,.2998E+00,.3912E+00,.5155E+00,.5696E+00,.5933E+00,.6234E+00,.6631E+00,.7055E+00,.3523E+00,& + .2146E+00,.3011E+00,.3925E+00,.5174E+00,.5718E+00,.5954E+00,.6253E+00,.6648E+00,.7069E+00,.3535E+00,& + .2161E+00,.3024E+00,.3939E+00,.5194E+00,.5740E+00,.5976E+00,.6272E+00,.6666E+00,.7082E+00,.3548E+00,& + .2175E+00,.3038E+00,.3953E+00,.5214E+00,.5763E+00,.5997E+00,.6291E+00,.6683E+00,.7095E+00,.3561E+00,& + .2189E+00,.3051E+00,.3967E+00,.5233E+00,.5783E+00,.6017E+00,.6309E+00,.6699E+00,.7107E+00,.3573E+00,& + .2204E+00,.3064E+00,.3980E+00,.5252E+00,.5804E+00,.6038E+00,.6327E+00,.6715E+00,.7119E+00,.3586E+00,& + .2218E+00,.3077E+00,.3994E+00,.5271E+00,.5825E+00,.6058E+00,.6345E+00,.6731E+00,.7131E+00,.3599E+00,& + .2232E+00,.3091E+00,.4008E+00,.5290E+00,.5846E+00,.6078E+00,.6363E+00,.6748E+00,.7143E+00,.3612E+00,& + .2246E+00,.3104E+00,.4022E+00,.5310E+00,.5867E+00,.6098E+00,.6381E+00,.6764E+00,.7155E+00,.3624E+00,& + .2257E+00,.3115E+00,.4033E+00,.5325E+00,.5884E+00,.6114E+00,.6395E+00,.6776E+00,.7164E+00,.3635E+00,& + .2269E+00,.3126E+00,.4045E+00,.5341E+00,.5900E+00,.6130E+00,.6409E+00,.6789E+00,.7173E+00,.3646E+00,& + .2281E+00,.3137E+00,.4056E+00,.5356E+00,.5917E+00,.6146E+00,.6423E+00,.6802E+00,.7182E+00,.3656E+00,& + .2292E+00,.3148E+00,.4068E+00,.5372E+00,.5934E+00,.6162E+00,.6437E+00,.6815E+00,.7191E+00,.3667E+00,& + .2304E+00,.3159E+00,.4079E+00,.5387E+00,.5951E+00,.6178E+00,.6451E+00,.6827E+00,.7201E+00,.3678E+00,& + .2315E+00,.3169E+00,.4091E+00,.5403E+00,.5967E+00,.6193E+00,.6464E+00,.6839E+00,.7210E+00,.3689E+00,& + .2327E+00,.3180E+00,.4102E+00,.5418E+00,.5983E+00,.6208E+00,.6478E+00,.6851E+00,.7219E+00,.3699E+00,& + .2338E+00,.3191E+00,.4114E+00,.5433E+00,.5999E+00,.6223E+00,.6491E+00,.6864E+00,.7228E+00,.3710E+00,& + .2349E+00,.3202E+00,.4126E+00,.5448E+00,.6015E+00,.6239E+00,.6505E+00,.6876E+00,.7237E+00,.3721E+00,& + .2361E+00,.3213E+00,.4137E+00,.5463E+00,.6031E+00,.6254E+00,.6518E+00,.6888E+00,.7246E+00,.3732E+00,& + .2372E+00,.3224E+00,.4149E+00,.5478E+00,.6046E+00,.6268E+00,.6531E+00,.6899E+00,.7253E+00,.3742E+00,& + .2383E+00,.3235E+00,.4160E+00,.5493E+00,.6062E+00,.6283E+00,.6544E+00,.6911E+00,.7261E+00,.3753E+00,& + .2394E+00,.3245E+00,.4172E+00,.5508E+00,.6077E+00,.6297E+00,.6557E+00,.6922E+00,.7269E+00,.3764E+00,& + .2405E+00,.3256E+00,.4183E+00,.5522E+00,.6092E+00,.6312E+00,.6569E+00,.6933E+00,.7277E+00,.3775E+00,& + .2416E+00,.3267E+00,.4195E+00,.5537E+00,.6108E+00,.6326E+00,.6582E+00,.6945E+00,.7284E+00,.3785E+00,& + .2427E+00,.3277E+00,.4206E+00,.5552E+00,.6123E+00,.6340E+00,.6594E+00,.6956E+00,.7292E+00,.3796E+00,& + .2438E+00,.3288E+00,.4217E+00,.5566E+00,.6137E+00,.6354E+00,.6607E+00,.6967E+00,.7299E+00,.3807E+00,& + .2449E+00,.3299E+00,.4229E+00,.5581E+00,.6152E+00,.6368E+00,.6619E+00,.6977E+00,.7307E+00,.3817E+00,& + .2460E+00,.3309E+00,.4240E+00,.5595E+00,.6167E+00,.6382E+00,.6631E+00,.6988E+00,.7314E+00,.3828E+00,& + .2471E+00,.3320E+00,.4252E+00,.5609E+00,.6182E+00,.6396E+00,.6643E+00,.6999E+00,.7322E+00,.3839E+00,& + .2488E+00,.3337E+00,.4270E+00,.5632E+00,.6205E+00,.6417E+00,.6662E+00,.7016E+00,.7333E+00,.3856E+00,& + .2506E+00,.3354E+00,.4289E+00,.5655E+00,.6228E+00,.6439E+00,.6681E+00,.7032E+00,.7345E+00,.3873E+00,& + .2523E+00,.3371E+00,.4307E+00,.5677E+00,.6250E+00,.6460E+00,.6700E+00,.7049E+00,.7356E+00,.3890E+00,& + .2540E+00,.3388E+00,.4325E+00,.5700E+00,.6273E+00,.6481E+00,.6718E+00,.7066E+00,.7368E+00,.3908E+00,& + .2558E+00,.3405E+00,.4343E+00,.5722E+00,.6296E+00,.6503E+00,.6737E+00,.7082E+00,.7379E+00,.3925E+00,& + .2578E+00,.3426E+00,.4366E+00,.5749E+00,.6322E+00,.6527E+00,.6759E+00,.7101E+00,.7392E+00,.3946E+00,& + .2599E+00,.3446E+00,.4388E+00,.5776E+00,.6349E+00,.6551E+00,.6780E+00,.7120E+00,.7404E+00,.3967E+00,& + .2620E+00,.3467E+00,.4411E+00,.5803E+00,.6375E+00,.6576E+00,.6801E+00,.7139E+00,.7416E+00,.3988E+00,& + .2640E+00,.3487E+00,.4433E+00,.5829E+00,.6401E+00,.6600E+00,.6823E+00,.7157E+00,.7429E+00,.4008E+00,& + .2661E+00,.3508E+00,.4455E+00,.5856E+00,.6428E+00,.6625E+00,.6844E+00,.7176E+00,.7441E+00,.4029E+00,& + .2686E+00,.3532E+00,.4482E+00,.5887E+00,.6458E+00,.6653E+00,.6869E+00,.7198E+00,.7456E+00,.4054E+00,& + .2719E+00,.3566E+00,.4518E+00,.5930E+00,.6499E+00,.6691E+00,.6902E+00,.7226E+00,.7474E+00,.4088E+00,& + .2748E+00,.3594E+00,.4549E+00,.5966E+00,.6534E+00,.6723E+00,.6930E+00,.7250E+00,.7488E+00,.4118E+00,& + .2776E+00,.3622E+00,.4580E+00,.6001E+00,.6568E+00,.6754E+00,.6956E+00,.7274E+00,.7502E+00,.4147E+00,& + .2817E+00,.3664E+00,.4626E+00,.6053E+00,.6617E+00,.6799E+00,.6996E+00,.7308E+00,.7524E+00,.4190E+00,& + .2850E+00,.3696E+00,.4661E+00,.6093E+00,.6655E+00,.6833E+00,.7026E+00,.7334E+00,.7542E+00,.4223E+00,& + .2890E+00,.3737E+00,.4706E+00,.6143E+00,.6702E+00,.6876E+00,.7063E+00,.7366E+00,.7562E+00,.4266E+00,& + .2930E+00,.3778E+00,.4750E+00,.6192E+00,.6748E+00,.6917E+00,.7099E+00,.7397E+00,.7578E+00,.4308E+00,& + .2974E+00,.3822E+00,.4798E+00,.6246E+00,.6797E+00,.6962E+00,.7137E+00,.7430E+00,.7597E+00,.4353E+00,& + .3030E+00,.3879E+00,.4860E+00,.6313E+00,.6858E+00,.7017E+00,.7185E+00,.7471E+00,.7624E+00,.4412E+00,& + .3085E+00,.3934E+00,.4921E+00,.6378E+00,.6918E+00,.7070E+00,.7231E+00,.7511E+00,.7647E+00,.4470E+00,& + .3159E+00,.4009E+00,.5003E+00,.6465E+00,.6995E+00,.7140E+00,.7291E+00,.7562E+00,.7673E+00,.4548E+00,& + .3235E+00,.4086E+00,.5088E+00,.6553E+00,.7073E+00,.7210E+00,.7351E+00,.7613E+00,.7706E+00,.4629E+00,& + .3332E+00,.4185E+00,.5195E+00,.6663E+00,.7169E+00,.7295E+00,.7424E+00,.7674E+00,.7734E+00,.4732E+00,& + .3455E+00,.4310E+00,.5330E+00,.6799E+00,.7286E+00,.7398E+00,.7513E+00,.7749E+00,.7778E+00,.4862E+00,& + .3593E+00,.4449E+00,.5481E+00,.6947E+00,.7410E+00,.7507E+00,.7606E+00,.7828E+00,.7820E+00,.5008E+00,& + .3811E+00,.4669E+00,.5716E+00,.7169E+00,.7593E+00,.7666E+00,.7742E+00,.7941E+00,.7874E+00,.5236E+00,& + .4082E+00,.4942E+00,.6004E+00,.7430E+00,.7800E+00,.7845E+00,.7893E+00,.8066E+00,.7923E+00,.5520E+00,& + .4573E+00,.5429E+00,.6504E+00,.7853E+00,.8124E+00,.8121E+00,.8126E+00,.8257E+00,.8006E+00,.6021E+00/ + data (((g_lw(ai,k,nh),ai= 6, 6),k=1,nwl_lw),nh=0,99)/ & + .4938E+00,.6006E+00,.7052E+00,.7149E+00,.6782E+00,.7073E+00,.7647E+00,.7410E+00,.7147E+00,.6475E+00,& + .4978E+00,.6046E+00,.7123E+00,.7238E+00,.6855E+00,.7127E+00,.7685E+00,.7465E+00,.7177E+00,.6538E+00,& + .5019E+00,.6086E+00,.7194E+00,.7328E+00,.6927E+00,.7182E+00,.7723E+00,.7519E+00,.7207E+00,.6601E+00,& + .5059E+00,.6127E+00,.7265E+00,.7418E+00,.7000E+00,.7236E+00,.7761E+00,.7573E+00,.7238E+00,.6664E+00,& + .5099E+00,.6167E+00,.7336E+00,.7507E+00,.7073E+00,.7290E+00,.7799E+00,.7627E+00,.7268E+00,.6728E+00,& + .5140E+00,.6207E+00,.7407E+00,.7597E+00,.7146E+00,.7344E+00,.7837E+00,.7681E+00,.7298E+00,.6791E+00,& + .5176E+00,.6239E+00,.7446E+00,.7658E+00,.7204E+00,.7389E+00,.7862E+00,.7717E+00,.7333E+00,.6832E+00,& + .5212E+00,.6271E+00,.7485E+00,.7720E+00,.7263E+00,.7433E+00,.7887E+00,.7752E+00,.7367E+00,.6874E+00,& + .5248E+00,.6303E+00,.7524E+00,.7782E+00,.7321E+00,.7477E+00,.7912E+00,.7788E+00,.7402E+00,.6916E+00,& + .5285E+00,.6336E+00,.7563E+00,.7843E+00,.7380E+00,.7522E+00,.7937E+00,.7824E+00,.7436E+00,.6957E+00,& + .5321E+00,.6368E+00,.7602E+00,.7905E+00,.7438E+00,.7566E+00,.7962E+00,.7859E+00,.7471E+00,.6999E+00,& + .5354E+00,.6395E+00,.7628E+00,.7950E+00,.7486E+00,.7602E+00,.7987E+00,.7890E+00,.7487E+00,.7030E+00,& + .5387E+00,.6422E+00,.7654E+00,.7995E+00,.7534E+00,.7638E+00,.8011E+00,.7921E+00,.7502E+00,.7061E+00,& + .5420E+00,.6450E+00,.7680E+00,.8040E+00,.7582E+00,.7674E+00,.8035E+00,.7952E+00,.7518E+00,.7092E+00,& + .5453E+00,.6477E+00,.7706E+00,.8085E+00,.7630E+00,.7710E+00,.8059E+00,.7982E+00,.7534E+00,.7123E+00,& + .5486E+00,.6504E+00,.7732E+00,.8131E+00,.7677E+00,.7747E+00,.8083E+00,.8013E+00,.7549E+00,.7154E+00,& + .5516E+00,.6528E+00,.7752E+00,.8165E+00,.7716E+00,.7778E+00,.8100E+00,.8035E+00,.7574E+00,.7178E+00,& + .5546E+00,.6552E+00,.7772E+00,.8199E+00,.7755E+00,.7810E+00,.8117E+00,.8057E+00,.7599E+00,.7203E+00,& + .5576E+00,.6576E+00,.7791E+00,.8233E+00,.7794E+00,.7842E+00,.8134E+00,.8078E+00,.7625E+00,.7228E+00,& + .5606E+00,.6600E+00,.7811E+00,.8267E+00,.7833E+00,.7874E+00,.8151E+00,.8100E+00,.7650E+00,.7252E+00,& + .5636E+00,.6624E+00,.7830E+00,.8301E+00,.7871E+00,.7906E+00,.8168E+00,.8122E+00,.7675E+00,.7277E+00,& + .5663E+00,.6645E+00,.7846E+00,.8328E+00,.7904E+00,.7931E+00,.8184E+00,.8142E+00,.7685E+00,.7298E+00,& + .5691E+00,.6667E+00,.7862E+00,.8355E+00,.7936E+00,.7955E+00,.8201E+00,.8162E+00,.7696E+00,.7319E+00,& + .5718E+00,.6688E+00,.7878E+00,.8383E+00,.7969E+00,.7980E+00,.8218E+00,.8182E+00,.7707E+00,.7339E+00,& + .5746E+00,.6709E+00,.7894E+00,.8410E+00,.8002E+00,.8004E+00,.8235E+00,.8202E+00,.7718E+00,.7360E+00,& + .5773E+00,.6731E+00,.7910E+00,.8437E+00,.8034E+00,.8029E+00,.8251E+00,.8222E+00,.7728E+00,.7381E+00,& + .5798E+00,.6750E+00,.7924E+00,.8459E+00,.8061E+00,.8052E+00,.8263E+00,.8237E+00,.7744E+00,.7399E+00,& + .5823E+00,.6770E+00,.7938E+00,.8481E+00,.8088E+00,.8074E+00,.8275E+00,.8251E+00,.7760E+00,.7417E+00,& + .5849E+00,.6789E+00,.7952E+00,.8503E+00,.8115E+00,.8097E+00,.8287E+00,.8266E+00,.7776E+00,.7435E+00,& + .5874E+00,.6809E+00,.7965E+00,.8525E+00,.8142E+00,.8120E+00,.8298E+00,.8280E+00,.7792E+00,.7453E+00,& + .5899E+00,.6828E+00,.7979E+00,.8547E+00,.8169E+00,.8142E+00,.8310E+00,.8295E+00,.7808E+00,.7471E+00,& + .5922E+00,.6846E+00,.7991E+00,.8565E+00,.8192E+00,.8161E+00,.8323E+00,.8309E+00,.7821E+00,.7487E+00,& + .5946E+00,.6864E+00,.8003E+00,.8583E+00,.8214E+00,.8179E+00,.8335E+00,.8323E+00,.7834E+00,.7503E+00,& + .5969E+00,.6882E+00,.8016E+00,.8601E+00,.8237E+00,.8197E+00,.8348E+00,.8337E+00,.7847E+00,.7519E+00,& + .5992E+00,.6900E+00,.8028E+00,.8619E+00,.8260E+00,.8216E+00,.8361E+00,.8351E+00,.7860E+00,.7535E+00,& + .6016E+00,.6917E+00,.8040E+00,.8638E+00,.8282E+00,.8234E+00,.8373E+00,.8365E+00,.7874E+00,.7551E+00,& + .6037E+00,.6934E+00,.8051E+00,.8653E+00,.8302E+00,.8250E+00,.8382E+00,.8376E+00,.7880E+00,.7566E+00,& + .6059E+00,.6951E+00,.8062E+00,.8668E+00,.8322E+00,.8266E+00,.8390E+00,.8386E+00,.7887E+00,.7580E+00,& + .6080E+00,.6967E+00,.8073E+00,.8684E+00,.8341E+00,.8282E+00,.8399E+00,.8397E+00,.7893E+00,.7595E+00,& + .6102E+00,.6984E+00,.8084E+00,.8699E+00,.8361E+00,.8298E+00,.8407E+00,.8407E+00,.7900E+00,.7609E+00,& + .6124E+00,.7001E+00,.8095E+00,.8714E+00,.8381E+00,.8314E+00,.8416E+00,.8418E+00,.7906E+00,.7624E+00,& + .6144E+00,.7016E+00,.8105E+00,.8728E+00,.8397E+00,.8328E+00,.8425E+00,.8428E+00,.7919E+00,.7637E+00,& + .6164E+00,.7031E+00,.8116E+00,.8741E+00,.8414E+00,.8342E+00,.8435E+00,.8438E+00,.7932E+00,.7651E+00,& + .6184E+00,.7047E+00,.8126E+00,.8754E+00,.8430E+00,.8357E+00,.8444E+00,.8448E+00,.7945E+00,.7664E+00,& + .6204E+00,.7062E+00,.8136E+00,.8767E+00,.8447E+00,.8371E+00,.8453E+00,.8458E+00,.7958E+00,.7677E+00,& + .6224E+00,.7078E+00,.8146E+00,.8780E+00,.8463E+00,.8385E+00,.8463E+00,.8468E+00,.7971E+00,.7691E+00,& + .6243E+00,.7092E+00,.8156E+00,.8792E+00,.8478E+00,.8397E+00,.8470E+00,.8477E+00,.7975E+00,.7703E+00,& + .6262E+00,.7107E+00,.8165E+00,.8803E+00,.8492E+00,.8409E+00,.8477E+00,.8486E+00,.7978E+00,.7715E+00,& + .6280E+00,.7121E+00,.8174E+00,.8815E+00,.8507E+00,.8421E+00,.8484E+00,.8495E+00,.7982E+00,.7727E+00,& + .6299E+00,.7136E+00,.8184E+00,.8826E+00,.8521E+00,.8433E+00,.8492E+00,.8504E+00,.7985E+00,.7740E+00,& + .6318E+00,.7150E+00,.8193E+00,.8838E+00,.8536E+00,.8444E+00,.8499E+00,.8513E+00,.7989E+00,.7752E+00,& + .6332E+00,.7161E+00,.8201E+00,.8846E+00,.8546E+00,.8453E+00,.8504E+00,.8519E+00,.7998E+00,.7761E+00,& + .6346E+00,.7172E+00,.8208E+00,.8854E+00,.8557E+00,.8462E+00,.8509E+00,.8524E+00,.8007E+00,.7771E+00,& + .6361E+00,.7184E+00,.8215E+00,.8863E+00,.8568E+00,.8471E+00,.8515E+00,.8530E+00,.8015E+00,.7780E+00,& + .6375E+00,.7195E+00,.8222E+00,.8871E+00,.8578E+00,.8480E+00,.8520E+00,.8535E+00,.8024E+00,.7790E+00,& + .6390E+00,.7206E+00,.8230E+00,.8879E+00,.8589E+00,.8489E+00,.8525E+00,.8540E+00,.8033E+00,.7799E+00,& + .6403E+00,.7217E+00,.8237E+00,.8887E+00,.8598E+00,.8497E+00,.8531E+00,.8546E+00,.8040E+00,.7808E+00,& + .6417E+00,.7227E+00,.8244E+00,.8894E+00,.8607E+00,.8505E+00,.8536E+00,.8552E+00,.8048E+00,.7817E+00,& + .6431E+00,.7238E+00,.8251E+00,.8902E+00,.8617E+00,.8513E+00,.8542E+00,.8558E+00,.8055E+00,.7826E+00,& + .6444E+00,.7248E+00,.8258E+00,.8910E+00,.8626E+00,.8521E+00,.8548E+00,.8564E+00,.8062E+00,.7835E+00,& + .6458E+00,.7259E+00,.8265E+00,.8917E+00,.8635E+00,.8529E+00,.8553E+00,.8570E+00,.8070E+00,.7844E+00,& + .6471E+00,.7269E+00,.8271E+00,.8924E+00,.8644E+00,.8536E+00,.8558E+00,.8576E+00,.8071E+00,.7853E+00,& + .6484E+00,.7279E+00,.8278E+00,.8931E+00,.8652E+00,.8544E+00,.8563E+00,.8582E+00,.8073E+00,.7861E+00,& + .6497E+00,.7289E+00,.8284E+00,.8938E+00,.8661E+00,.8551E+00,.8568E+00,.8587E+00,.8075E+00,.7870E+00,& + .6510E+00,.7299E+00,.8291E+00,.8945E+00,.8669E+00,.8558E+00,.8572E+00,.8593E+00,.8076E+00,.7878E+00,& + .6523E+00,.7310E+00,.8298E+00,.8951E+00,.8678E+00,.8565E+00,.8577E+00,.8599E+00,.8078E+00,.7887E+00,& + .6535E+00,.7319E+00,.8304E+00,.8958E+00,.8685E+00,.8571E+00,.8581E+00,.8603E+00,.8083E+00,.7895E+00,& + .6548E+00,.7329E+00,.8310E+00,.8964E+00,.8693E+00,.8578E+00,.8584E+00,.8607E+00,.8088E+00,.7903E+00,& + .6560E+00,.7338E+00,.8316E+00,.8970E+00,.8701E+00,.8585E+00,.8588E+00,.8611E+00,.8094E+00,.7911E+00,& + .6572E+00,.7348E+00,.8323E+00,.8977E+00,.8709E+00,.8591E+00,.8592E+00,.8615E+00,.8099E+00,.7919E+00,& + .6585E+00,.7358E+00,.8329E+00,.8983E+00,.8717E+00,.8598E+00,.8595E+00,.8619E+00,.8104E+00,.7927E+00,& + .6602E+00,.7371E+00,.8338E+00,.8992E+00,.8727E+00,.8607E+00,.8602E+00,.8626E+00,.8114E+00,.7938E+00,& + .6620E+00,.7385E+00,.8347E+00,.9000E+00,.8737E+00,.8616E+00,.8608E+00,.8633E+00,.8125E+00,.7949E+00,& + .6637E+00,.7399E+00,.8356E+00,.9008E+00,.8747E+00,.8625E+00,.8615E+00,.8639E+00,.8135E+00,.7961E+00,& + .6654E+00,.7412E+00,.8364E+00,.9017E+00,.8757E+00,.8633E+00,.8621E+00,.8646E+00,.8145E+00,.7972E+00,& + .6672E+00,.7426E+00,.8373E+00,.9025E+00,.8768E+00,.8642E+00,.8628E+00,.8653E+00,.8155E+00,.7983E+00,& + .6695E+00,.7444E+00,.8385E+00,.9036E+00,.8780E+00,.8653E+00,.8635E+00,.8661E+00,.8161E+00,.7998E+00,& + .6719E+00,.7463E+00,.8397E+00,.9047E+00,.8793E+00,.8664E+00,.8642E+00,.8669E+00,.8167E+00,.8014E+00,& + .6742E+00,.7481E+00,.8409E+00,.9058E+00,.8806E+00,.8675E+00,.8648E+00,.8677E+00,.8173E+00,.8029E+00,& + .6765E+00,.7500E+00,.8421E+00,.9068E+00,.8819E+00,.8686E+00,.8655E+00,.8685E+00,.8179E+00,.8044E+00,& + .6789E+00,.7518E+00,.8433E+00,.9079E+00,.8831E+00,.8697E+00,.8662E+00,.8693E+00,.8186E+00,.8059E+00,& + .6812E+00,.7537E+00,.8445E+00,.9090E+00,.8843E+00,.8708E+00,.8670E+00,.8701E+00,.8204E+00,.8075E+00,& + .6846E+00,.7563E+00,.8463E+00,.9104E+00,.8861E+00,.8723E+00,.8682E+00,.8715E+00,.8223E+00,.8096E+00,& + .6879E+00,.7590E+00,.8480E+00,.9119E+00,.8877E+00,.8738E+00,.8694E+00,.8725E+00,.8232E+00,.8118E+00,& + .6912E+00,.7615E+00,.8496E+00,.9132E+00,.8892E+00,.8750E+00,.8704E+00,.8738E+00,.8243E+00,.8139E+00,& + .6948E+00,.7644E+00,.8515E+00,.9147E+00,.8910E+00,.8765E+00,.8712E+00,.8751E+00,.8246E+00,.8162E+00,& + .6983E+00,.7672E+00,.8533E+00,.9162E+00,.8926E+00,.8780E+00,.8721E+00,.8759E+00,.8265E+00,.8185E+00,& + .7018E+00,.7700E+00,.8551E+00,.9176E+00,.8941E+00,.8794E+00,.8733E+00,.8771E+00,.8285E+00,.8207E+00,& + .7053E+00,.7728E+00,.8569E+00,.9189E+00,.8957E+00,.8808E+00,.8745E+00,.8783E+00,.8305E+00,.8230E+00,& + .7092E+00,.7759E+00,.8589E+00,.9205E+00,.8973E+00,.8822E+00,.8757E+00,.8797E+00,.8317E+00,.8255E+00,& + .7137E+00,.7794E+00,.8612E+00,.9222E+00,.8992E+00,.8839E+00,.8767E+00,.8812E+00,.8326E+00,.8283E+00,& + .7188E+00,.7835E+00,.8638E+00,.9241E+00,.9012E+00,.8857E+00,.8781E+00,.8827E+00,.8354E+00,.8316E+00,& + .7240E+00,.7877E+00,.8665E+00,.9260E+00,.9033E+00,.8876E+00,.8800E+00,.8843E+00,.8378E+00,.8349E+00,& + .7313E+00,.7934E+00,.8701E+00,.9286E+00,.9059E+00,.8900E+00,.8817E+00,.8867E+00,.8401E+00,.8394E+00,& + .7391E+00,.7997E+00,.8740E+00,.9313E+00,.9088E+00,.8927E+00,.8843E+00,.8893E+00,.8446E+00,.8443E+00,& + .7480E+00,.8067E+00,.8784E+00,.9342E+00,.9118E+00,.8955E+00,.8866E+00,.8921E+00,.8478E+00,.8498E+00,& + .7596E+00,.8157E+00,.8841E+00,.9379E+00,.9155E+00,.8992E+00,.8902E+00,.8964E+00,.8530E+00,.8568E+00,& + .7726E+00,.8259E+00,.8903E+00,.9418E+00,.9195E+00,.9032E+00,.8945E+00,.9009E+00,.8600E+00,.8645E+00,& + .7910E+00,.8400E+00,.8986E+00,.9471E+00,.9250E+00,.9091E+00,.9007E+00,.9076E+00,.8704E+00,.8749E+00,& + .8196E+00,.8613E+00,.9108E+00,.9546E+00,.9335E+00,.9192E+00,.9128E+00,.9197E+00,.8867E+00,.8901E+00/ + data (((g_lw(ai,k,nh),ai= 7, 7),k=1,nwl_lw),nh=0,99)/ & + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,& + .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01/ + data (((g_lw(ai,k,nh),ai= 8, 8),k=1,nwl_lw),nh=0,99)/ & + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,& + .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01/ + data (((g_lw(ai,k,nh),ai= 9, 9),k=1,nwl_lw),nh=0,99)/ & + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,& + .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00/ + data (((g_lw(ai,k,nh),ai=10,10),k=1,nwl_lw),nh=0,99)/ & + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,& + .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00/ + data (((g_lw(ai,k,nh),ai=11,11),k=1,nwl_lw),nh=0,99)/ & + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,& + .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00/ + data (((g_lw(ai,k,nh),ai=12,12),k=1,nwl_lw),nh=0,99)/ & + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,& + .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00/ + data (((g_lw(ai,k,nh),ai=13,13),k=1,nwl_lw),nh=0,99)/ & + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,& + .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00/ + data (((g_lw(ai,k,nh),ai=14,14),k=1,nwl_lw),nh=0,99)/ & + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,& + .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00/ - private + private - public :: aero_opt, aero_opt_new + public :: aero_opt, aero_opt_new - contains +contains - subroutine aero_opt(sw_or_lw,dz8w,chem & - ,alt,relhum,aod,tau,ssa,asy & - ,num_chem,ids,ide, jds,jde, kds,kde & - ,ims,ime, jms,jme, kms,kme & - ,its,ite, jts,jte, kts,kte ) -! USE module_initial_chem_namelists - USE catchem_config, only: p_bc1,p_bc2,p_oc1,p_oc2, & - p_msa,p_dust_1,p_dust_2,p_dust_3,p_seas_1,p_seas_2,p_seas_3,& - p_sulf,p_p25,p_so2,p_seas_4,p_seas_5,p_p10,p_dust_4,p_dust_5,& - oc_mfac,nh4_mfac,mw_so4_aer,mwdry !lzhang + subroutine aero_opt(sw_or_lw,dz8w,chem & + ,alt,relhum,aod,tau,ssa,asy & + ,num_chem,ids,ide, jds,jde, kds,kde & + ,ims,ime, jms,jme, kms,kme & + ,its,ite, jts,jte, kts,kte ) +! USE module_initial_chem_namelists + USE catchem_config, only: p_bc1,p_bc2,p_oc1,p_oc2, & + p_msa,p_dust_1,p_dust_2,p_dust_3,p_seas_1,p_seas_2,p_seas_3,& + p_sulf,p_p25,p_so2,p_seas_4,p_seas_5,p_p10,p_dust_4,p_dust_5,& + oc_mfac,nh4_mfac,mw_so4_aer,mwdry !lzhang ! USE module_data_gocart_chem, only: oc_mfac,nh4_mfac - implicit none - INTEGER, INTENT(IN ) :: ids,ide, jds,jde, kds,kde, & - ims,ime, jms,jme, kms,kme, & - its,ite, jts,jte, kts,kte,num_chem + implicit none + INTEGER, INTENT(IN ) :: ids,ide, jds,jde, kds,kde, & + ims,ime, jms,jme, kms,kme, & + its,ite, jts,jte, kts,kte,num_chem ! ! array that holds all advected chemical species ! - REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme, num_chem ), & + REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme, num_chem ), & INTENT(INOUT ) :: chem ! - REAL(kind_chem), DIMENSION( ims:ime, jms:jme ) :: aod - REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme ), & + REAL(kind_chem), DIMENSION( ims:ime, jms:jme ) :: aod + REAL(kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme ), & INTENT(IN ) :: relhum,dz8w, alt - integer, dimension( its:ite, jts:jte ) :: iprt + integer, dimension( its:ite, jts:jte ) :: iprt @@ -8586,7 +8586,7 @@ subroutine aero_opt(sw_or_lw,dz8w,chem & ! Subroutine aero_opt compute the optical properties from the model input. ! All the dimension here is model (WRF) dimension. Not GOCART dimension. ! Note that tgmx = 14 : aerosol type (see below), and aero must be in the following order. -! # +! # ! 1 = SO4 ! sulfur and its precure ! 2 = BC1+BC2 ! black carbon (soot) ! 3 = OC1 ! non hygroscopic OC @@ -8605,65 +8605,65 @@ subroutine aero_opt(sw_or_lw,dz8w,chem & !------------------------------------------------------------------------ !-----IO variables - character(len=2), intent(in) :: sw_or_lw ! character index that determines sw or lw radiation - integer, parameter :: nband = 11 !# of radiation bands - real(kind_chem) :: aero(kts:kte,tgmx) !aerosol mass conc [g/m3] - real(kind_chem) :: dz(kts:kte) !layer thickness [m] - real(kind_chem), intent(out) :: tau(its:ite, kts:kte,jts:jte,nband) !total aerosol optical depth - real(kind_chem), intent(out) :: ssa(its:ite, kts:kte,jts:jte,nband) !total aerosol single scattering albedo - real(kind_chem), intent(out) :: asy(its:ite, kts:kte,jts:jte,nband) !total aerosol asymetry factor + character(len=2), intent(in) :: sw_or_lw ! character index that determines sw or lw radiation + integer, parameter :: nband = 11 !# of radiation bands + real(kind_chem) :: aero(kts:kte,tgmx) !aerosol mass conc [g/m3] + real(kind_chem) :: dz(kts:kte) !layer thickness [m] + real(kind_chem), intent(out) :: tau(its:ite, kts:kte,jts:jte,nband) !total aerosol optical depth + real(kind_chem), intent(out) :: ssa(its:ite, kts:kte,jts:jte,nband) !total aerosol single scattering albedo + real(kind_chem), intent(out) :: asy(its:ite, kts:kte,jts:jte,nband) !total aerosol asymetry factor !-----Local variables - integer :: rhi !RH index - real(kind_chem) :: rh(kts:kte) !relative humidity [-] - real(kind_chem) :: ext !mass extinction coef [m2/g] - real(kind_chem) :: tau_typ(tgmx) !optical depth for each aerosol type [-] - real(kind_chem) :: ssa_typ(tgmx) !single scattering albedo for each aerosol type [-] - real(kind_chem) :: asy_typ(tgmx) !asymetery factor for each aerosol type [-] - real(kind_chem) :: w1, w2 !weight for pressure interpolation - real(kind_chem) :: conv1a,conv1sulf + integer :: rhi !RH index + real(kind_chem) :: rh(kts:kte) !relative humidity [-] + real(kind_chem) :: ext !mass extinction coef [m2/g] + real(kind_chem) :: tau_typ(tgmx) !optical depth for each aerosol type [-] + real(kind_chem) :: ssa_typ(tgmx) !single scattering albedo for each aerosol type [-] + real(kind_chem) :: asy_typ(tgmx) !asymetery factor for each aerosol type [-] + real(kind_chem) :: w1, w2 !weight for pressure interpolation + real(kind_chem) :: conv1a,conv1sulf - do i = its,ite - do j = jts,jte - iprt(i,j)=0 + do i = its,ite + do j = jts,jte + iprt(i,j)=0 ! if(j.eq.18072)iprt(i,j)=1 - aero=0. + aero=0. ! ! compute relative humidity ! - do k = kts,kte - rh(k) = relhum(i,k,j) - dz(k) = dz8w(i,k,j) - enddo - do k = kts,kte - conv1a=(1./alt(i,k,j))*1.e-6 + do k = kts,kte + rh(k) = relhum(i,k,j) + dz(k) = dz8w(i,k,j) + enddo + do k = kts,kte + conv1a=(1./alt(i,k,j))*1.e-6 !lzhang convert ppmv sulfate (and coincidentally MSA) to g / m3 - conv1sulf = (1.0/alt(i,k,j)) * 1.0e-3 * mw_so4_aer / mwdry + conv1sulf = (1.0/alt(i,k,j)) * 1.0e-3 * mw_so4_aer / mwdry - !aero(k,1)=chem(i,k,j,p_sulf)*conv1a*1.e3*nh4_mfac !lzhang - !aero(k,1)=chem(i,k,j,p_sulf)*conv1sulf*nh4_mfac - !aero(k,1)=chem(i,k,j,p_sulf)*conv1sulf*1.6 - !aero(k,1)=(chem(i,k,j,p_sulf)+chem(i,k,j,p_msa))*conv1sulf*nh4_mfac - aero(k,1)=(chem(i,k,j,p_sulf)+chem(i,k,j,p_msa))*conv1sulf*2.0 - aero(k,2)=(chem(i,k,j,p_bc1)+chem(i,k,j,p_bc2))*conv1a*2.4 - !aero(k,3)=(chem(i,k,j,p_oc1))*conv1a*oc_mfac - !aero(k,4)=(chem(i,k,j,p_oc2))*conv1a*oc_mfac - aero(k,3)=(chem(i,k,j,p_oc1))*conv1a*2.4 - aero(k,4)=(chem(i,k,j,p_oc2))*conv1a*2.4 - !aero(k,5)=(chem(i,k,j,p_seas_1)+chem(i,k,j,p_seas_2))*conv1a !lzhang - !aero(k,6)=(chem(i,k,j,p_seas_3)+chem(i,k,j,p_seas_4)+chem(i,k,j,p_seas_5))*conv1a !lzhang - aero(k,5)=(chem(i,k,j,p_seas_1)+chem(i,k,j,p_seas_2))*conv1a*5. !lzhang - aero(k,6)=(chem(i,k,j,p_seas_3)+chem(i,k,j,p_seas_4)+chem(i,k,j,p_seas_5))*conv1a*5.0 !lzhang - aero(k,7)=(chem(i,k,j,p_dust_1))*conv1a*frac(1)*3. - aero(k,8)=(chem(i,k,j,p_dust_1))*conv1a*frac(2)*3. - aero(k,9)=(chem(i,k,j,p_dust_1))*conv1a*frac(3)*3. - aero(k,10)=(chem(i,k,j,p_dust_1))*conv1a*frac(4)*3. - aero(k,11)=(chem(i,k,j,p_dust_2))*conv1a*3. - !aero(k,11)=(chem(i,k,j,p_dust_2)+chem(i,k,j,p_dust_3)+chem(i,k,j,p_dust_4)+chem(i,k,j,p_dust_5))*conv1a*3.0 - aero(k,12)=(chem(i,k,j,p_dust_3))*conv1a*3. !lzhang - aero(k,13)=(chem(i,k,j,p_dust_4))*conv1a*3. !lzhang - aero(k,14)=(chem(i,k,j,p_dust_5))*conv1a*3. !lzhang - enddo + !aero(k,1)=chem(i,k,j,p_sulf)*conv1a*1.e3*nh4_mfac !lzhang + !aero(k,1)=chem(i,k,j,p_sulf)*conv1sulf*nh4_mfac + !aero(k,1)=chem(i,k,j,p_sulf)*conv1sulf*1.6 + !aero(k,1)=(chem(i,k,j,p_sulf)+chem(i,k,j,p_msa))*conv1sulf*nh4_mfac + aero(k,1)=(chem(i,k,j,p_sulf)+chem(i,k,j,p_msa))*conv1sulf*2.0 + aero(k,2)=(chem(i,k,j,p_bc1)+chem(i,k,j,p_bc2))*conv1a*2.4 + !aero(k,3)=(chem(i,k,j,p_oc1))*conv1a*oc_mfac + !aero(k,4)=(chem(i,k,j,p_oc2))*conv1a*oc_mfac + aero(k,3)=(chem(i,k,j,p_oc1))*conv1a*2.4 + aero(k,4)=(chem(i,k,j,p_oc2))*conv1a*2.4 + !aero(k,5)=(chem(i,k,j,p_seas_1)+chem(i,k,j,p_seas_2))*conv1a !lzhang + !aero(k,6)=(chem(i,k,j,p_seas_3)+chem(i,k,j,p_seas_4)+chem(i,k,j,p_seas_5))*conv1a !lzhang + aero(k,5)=(chem(i,k,j,p_seas_1)+chem(i,k,j,p_seas_2))*conv1a*5. !lzhang + aero(k,6)=(chem(i,k,j,p_seas_3)+chem(i,k,j,p_seas_4)+chem(i,k,j,p_seas_5))*conv1a*5.0 !lzhang + aero(k,7)=(chem(i,k,j,p_dust_1))*conv1a*frac(1)*3. + aero(k,8)=(chem(i,k,j,p_dust_1))*conv1a*frac(2)*3. + aero(k,9)=(chem(i,k,j,p_dust_1))*conv1a*frac(3)*3. + aero(k,10)=(chem(i,k,j,p_dust_1))*conv1a*frac(4)*3. + aero(k,11)=(chem(i,k,j,p_dust_2))*conv1a*3. + !aero(k,11)=(chem(i,k,j,p_dust_2)+chem(i,k,j,p_dust_3)+chem(i,k,j,p_dust_4)+chem(i,k,j,p_dust_5))*conv1a*3.0 + aero(k,12)=(chem(i,k,j,p_dust_3))*conv1a*3. !lzhang + aero(k,13)=(chem(i,k,j,p_dust_4))*conv1a*3. !lzhang + aero(k,14)=(chem(i,k,j,p_dust_5))*conv1a*3. !lzhang + enddo ! ! Compute total aerosol tau, ssa, & asy @@ -8672,85 +8672,85 @@ subroutine aero_opt(sw_or_lw,dz8w,chem & ! SSA = (tau1*w1 + tau2*w2 + tau3*w2 + .... ) / TAU ! ASY = (tau1*w1*g1 + tau2*w2*g1 + tau3*w2*g1 + .... ) / (TAU*SSA) ! - do k = kts,kte !vertical loop + do k = kts,kte !vertical loop - rhi = int(rh(k)*100.) !RH index - w2 = (rh(k) - real(rhi)/100.) / 0.01 !weight - w1 = max(min( 1.-w2,1. ),0.) !weight + rhi = int(rh(k)*100.) !RH index + w2 = (rh(k) - real(rhi)/100.) / 0.01 !weight + w1 = max(min( 1.-w2,1. ),0.) !weight - do n = 1,nband !wavelengh loop + do n = 1,nband !wavelengh loop - tau_typ = 0. ; ssa_typ = 0. ; asy_typ = 0. !initialization + tau_typ = 0. ; ssa_typ = 0. ; asy_typ = 0. !initialization - rad_select: select case(sw_or_lw) - case ('sw') !shortwave radiation - do t = 1,tgmx !aerosol type loop - !if(rhi == 99) then - if(rhi == 99.or.tgmx>6) then - ext = Bex(t,n,rhi) - tau_typ(t) = ext * aero(k,t) * dz(k) - ssa_typ(t) = w0(t,n,rhi) - asy_typ(t) = g(t,n,rhi) - else - if (tgmx<=6) then - ext = w1*Bex(t,n,rhi) + w2*Bex(t,n,rhi+1) - tau_typ(t) = ext * aero(k,t) * dz(k) - ssa_typ(t) = w1*w0(t,n,rhi) + w2*w0(t,n,rhi+1) - asy_typ(t) = w1*g(t,n,rhi) + w2*g(t,n,rhi+1) - endif - endif - - enddo !t - case ('lw') !longwave radiation - do t = 1,tgmx !aerosol type loop - if(rhi == 99) then - ext = Bex_lw(t,n,rhi) - tau_typ(t) = ext * aero(k,t) * dz(k) - ssa_typ(t) = w0_lw(t,n,rhi) - asy_typ(t) = g_lw(t,n,rhi) - else - ext = w1*Bex_lw(t,n,rhi) + w2*Bex_lw(t,n,rhi+1) - tau_typ(t) = ext * aero(k,t) * dz(k) - ssa_typ(t) = w1*w0_lw(t,n,rhi) + w2*w0_lw(t,n,rhi+1) - asy_typ(t) = w1*g_lw(t,n,rhi) + w2*g_lw(t,n,rhi+1) - endif - enddo !t - case default - stop 'MSG aero_opt: the option does not exist: sw_or_lw ' - end select rad_select + rad_select: select case(sw_or_lw) + case ('sw') !shortwave radiation + do t = 1,tgmx !aerosol type loop + !if(rhi == 99) then + if(rhi == 99.or.tgmx>6) then + ext = Bex(t,n,rhi) + tau_typ(t) = ext * aero(k,t) * dz(k) + ssa_typ(t) = w0(t,n,rhi) + asy_typ(t) = g(t,n,rhi) + else + if (tgmx<=6) then + ext = w1*Bex(t,n,rhi) + w2*Bex(t,n,rhi+1) + tau_typ(t) = ext * aero(k,t) * dz(k) + ssa_typ(t) = w1*w0(t,n,rhi) + w2*w0(t,n,rhi+1) + asy_typ(t) = w1*g(t,n,rhi) + w2*g(t,n,rhi+1) + endif + endif + + enddo !t + case ('lw') !longwave radiation + do t = 1,tgmx !aerosol type loop + if(rhi == 99) then + ext = Bex_lw(t,n,rhi) + tau_typ(t) = ext * aero(k,t) * dz(k) + ssa_typ(t) = w0_lw(t,n,rhi) + asy_typ(t) = g_lw(t,n,rhi) + else + ext = w1*Bex_lw(t,n,rhi) + w2*Bex_lw(t,n,rhi+1) + tau_typ(t) = ext * aero(k,t) * dz(k) + ssa_typ(t) = w1*w0_lw(t,n,rhi) + w2*w0_lw(t,n,rhi+1) + asy_typ(t) = w1*g_lw(t,n,rhi) + w2*g_lw(t,n,rhi+1) + endif + enddo !t + case default + stop 'MSG aero_opt: the option does not exist: sw_or_lw ' + end select rad_select + + !compute total optical depth single scatterling albedo, asymetry parameters + tau(i,k,j,n) = sum( tau_typ(1:tgmx) ) + ssa(i,k,j,n) = sum( tau_typ(1:tgmx)*ssa_typ(1:tgmx) ) / max(tau(i,k,j,n),1e-08) + asy(i,k,j,n) = sum( tau_typ(1:tgmx)*ssa_typ(1:tgmx)*asy_typ(1:tgmx) ) & + / max(tau(i,k,j,n)*ssa(i,k,j,n),1e-08) - !compute total optical depth single scatterling albedo, asymetry parameters - tau(i,k,j,n) = sum( tau_typ(1:tgmx) ) - ssa(i,k,j,n) = sum( tau_typ(1:tgmx)*ssa_typ(1:tgmx) ) / max(tau(i,k,j,n),1e-08) - asy(i,k,j,n) = sum( tau_typ(1:tgmx)*ssa_typ(1:tgmx)*asy_typ(1:tgmx) ) & - / max(tau(i,k,j,n)*ssa(i,k,j,n),1e-08) + enddo !n - enddo !n - ! if(iprt(i,j).eq.1)then ! write(6,111)'8tau,ssa,asy=',k,tau(i,k,j,8),ssa(i,k,j,8),asy(i,k,j,8),chem(i,k,j,p_bc1),chem(i,k,j,p_oc1),chem(i,k,j,p_sulf),chem(i,k,j,p_dust_1) !11 format(A,1x,i4,3(2x,f6.4),2x,4e12.3) ! endif - enddo ! vertical loop - aod(i,j)=sum(tau(i,kts:kte,j,8)) + enddo ! vertical loop + aod(i,j)=sum(tau(i,kts:kte,j,8)) ! if(iprt(i,j).eq.1)write(6,*)'aod = ',aod(i,j) - enddo - enddo + enddo + enddo - end subroutine aero_opt + end subroutine aero_opt !----------------------------------- - subroutine aero_opt_new & + subroutine aero_opt_new & !................................... ! --- inputs: - & ( sw_or_lw, dz,chem,rri,rhlay & - ,extt,ssca,asympar,num_chem & - ,ids,ide, jds,jde, kds,kde & - ,ims,ime, jms,jme, kms,kme & - ,its,ite, jts,jte, kts,kte & + & ( sw_or_lw, dz,chem,rri,rhlay & + ,extt,ssca,asympar,num_chem & + ,ids,ide, jds,jde, kds,kde & + ,ims,ime, jms,jme, kms,kme & + ,its,ite, jts,jte, kts,kte & ! --- outputs: - & ,aod,aerodp & - & ) + & ,aod,aerodp & + & ) ! ================================================================== ! ! ! ! aer_property_gocart maps prescribed gocart aerosol data set onto ! @@ -8801,13 +8801,13 @@ subroutine aero_opt_new & ! usage: call aer_property_gocart ! ! ! ! ================================================================== ! - USE catchem_config, only: mwdry,mw_so4_aer,p_bc1,p_bc2,p_oc1,p_oc2,& - p_msa,p_dust_1,p_dust_2,p_dust_3,p_seas_1,p_seas_2,p_seas_3,& - p_sulf,p_p25,p_so2,p_seas_4,p_seas_5,p_p10,p_dust_4,p_dust_5 + USE catchem_config, only: mwdry,mw_so4_aer,p_bc1,p_bc2,p_oc1,p_oc2,& + p_msa,p_dust_1,p_dust_2,p_dust_3,p_seas_1,p_seas_2,p_seas_3,& + p_sulf,p_p25,p_so2,p_seas_4,p_seas_5,p_p10,p_dust_4,p_dust_5 ! --- inputs: INTEGER, INTENT(IN ) :: ids,ide, jds,jde, kds,kde, & - ims,ime, jms,jme, kms,kme, & - its,ite, jts,jte, kts,kte,num_chem + ims,ime, jms,jme, kms,kme, & + its,ite, jts,jte, kts,kte,num_chem character(len=2), intent(in) :: sw_or_lw ! character index that determines sw or lw radiation real (kind=kind_chem), dimension(ims:ime, kms:kme, jms:jme),intent(in) :: rhlay,dz,rri @@ -8832,11 +8832,11 @@ subroutine aero_opt_new & integer, parameter :: NIAERCM = 102 !> \name Starting/ending wavenumber for each of the SW bands real (kind=kind_chem), dimension(NSWBND), parameter :: wvnum1 = & - & (/ 2600.0, 3250.0, 4000.0, 4650.0, 5150.0, 6150.0, 7700.0, & - & 8050.0,12850.0,16000.0,22650.0,29000.0,38000.0, 820.0 /) + & (/ 2600.0, 3250.0, 4000.0, 4650.0, 5150.0, 6150.0, 7700.0, & + & 8050.0,12850.0,16000.0,22650.0,29000.0,38000.0, 820.0 /) real (kind=kind_chem), dimension(NSWBND), parameter :: wvnum2 = & - & (/ 3250.0, 4000.0, 4650.0, 5150.0, 6150.0, 7700.0, 8050.0, & - & 12850.0,16000.0,22650.0,29000.0,38000.0,50000.0, 2600.0 /) + & (/ 3250.0, 4000.0, 4650.0, 5150.0, 6150.0, 7700.0, 8050.0, & + & 12850.0,16000.0,22650.0,29000.0,38000.0,50000.0, 2600.0 /) !> num of bands for aer data (gocart) integer, parameter :: KAERBNDD=61 @@ -8849,22 +8849,22 @@ subroutine aero_opt_new & integer, parameter :: KCM2 = 10 !> num of gocart aerosols integer, parameter :: KCM = KCM1 + KCM2 - real (kind=kind_chem), dimension(KRHLEV) :: rhlev_grt + real (kind=kind_chem), dimension(KRHLEV) :: rhlev_grt data rhlev_grt / .00, .05, .10, .15, .20, .25, .30, .35, & - & .40, .45, .50, .55, .60, .65, .70, .75, .80, .81, .82, & - & .83, .84, .85, .86, .87, .88, .89, .90, .91, .92, .93, & - & .94, .95, .96, .97, .98, .99 / + & .40, .45, .50, .55, .60, .65, .70, .75, .80, .81, .82, & + & .83, .84, .85, .86, .87, .88, .89, .90, .91, .92, .93, & + & .94, .95, .96, .97, .98, .99 / real (kind=kind_chem),allocatable,save,dimension(:,:) :: & - & extrhi_grt, extrhi_grt_550, scarhi_grt, ssarhi_grt, asyrhi_grt + & extrhi_grt, extrhi_grt_550, scarhi_grt, ssarhi_grt, asyrhi_grt real (kind=kind_chem),allocatable,save,dimension(:,:,:) :: & - & extrhd_grt, extrhd_grt_550, scarhd_grt, ssarhd_grt, asyrhd_grt + & extrhd_grt, extrhd_grt_550, scarhd_grt, ssarhd_grt, asyrhd_grt real (kind=kind_chem), dimension(kaerbndd) :: wavelength real (kind=kind_chem), dimension(kaerbndi) :: wavelength_du real (kind=kind_chem), dimension(kaerbndi,kcm1) :: & - & rhidext0_grt, rhidsca0_grt, rhidssa0_grt, rhidasy0_grt + & rhidext0_grt, rhidsca0_grt, rhidssa0_grt, rhidasy0_grt real (kind=kind_chem), dimension(kaerbndd,krhlev,kcm2):: & - & rhdpext0_grt, rhdpsca0_grt, rhdpssa0_grt, rhdpasy0_grt + & rhdpext0_grt, rhdpsca0_grt, rhdpssa0_grt, rhdpasy0_grt !> gocart species integer, parameter :: num_gc = 5 character*2 :: gridcomp(num_gc) @@ -8877,7 +8877,7 @@ subroutine aero_opt_new & data trc_to_aod /1, 5, 4, 2, 3/ ! dust, soot, waso, suso, ssam ! --- outputs: real (kind=kind_chem), dimension(its:ite, kts:kte,jts:jte,NBDSW), intent(out) :: & - & extt,ssca,asympar + & extt,ssca,asympar real (kind=kind_chem), dimension(ims:ime, jms:jme) , intent(out) :: aod real (kind=kind_chem), dimension(ims:ime, jms:jme,5) , intent(out) :: aerodp @@ -8896,141 +8896,141 @@ subroutine aero_opt_new & !===e ... begin here ! if ( .not. allocated( extrhi_grt ) ) then - allocate ( extrhi_grt ( kcm1,nswlwbd) ) - allocate ( extrhi_grt_550 ( kcm1,1) ) - allocate ( scarhi_grt ( kcm1,nswlwbd) ) - allocate ( ssarhi_grt ( kcm1,nswlwbd) ) - allocate ( asyrhi_grt ( kcm1,nswlwbd) ) - allocate ( extrhd_grt (krhlev,kcm2,nswlwbd) ) - allocate ( extrhd_grt_550 (krhlev,kcm2,1) ) - allocate ( scarhd_grt (krhlev,kcm2,nswlwbd) ) - allocate ( ssarhd_grt (krhlev,kcm2,nswlwbd) ) - allocate ( asyrhd_grt (krhlev,kcm2,nswlwbd) ) + allocate ( extrhi_grt ( kcm1,nswlwbd) ) + allocate ( extrhi_grt_550 ( kcm1,1) ) + allocate ( scarhi_grt ( kcm1,nswlwbd) ) + allocate ( ssarhi_grt ( kcm1,nswlwbd) ) + allocate ( asyrhi_grt ( kcm1,nswlwbd) ) + allocate ( extrhd_grt (krhlev,kcm2,nswlwbd) ) + allocate ( extrhd_grt_550 (krhlev,kcm2,1) ) + allocate ( scarhd_grt (krhlev,kcm2,nswlwbd) ) + allocate ( ssarhd_grt (krhlev,kcm2,nswlwbd) ) + allocate ( asyrhd_grt (krhlev,kcm2,nswlwbd) ) endif - call rd_gocart_luts - aod=0.0 - aerodp=0.0 + call rd_gocart_luts + aod=0.0 + aerodp=0.0 - do i = its,ite - do j = jts,jte + do i = its,ite + do j = jts,jte ! --- initialize tauae, ssaae, asyae - do m = 1, NSWLWBD - do k = kts,kte - tauae(k,m) = f_zero - if (m==nv_aod) then - tauae_550(k,1) = f_zero - endif - ssaae(k,m) = f_one - asyae(k,m) = f_zero - enddo - enddo + do m = 1, NSWLWBD + do k = kts,kte + tauae(k,m) = f_zero + if (m==nv_aod) then + tauae_550(k,1) = f_zero + endif + ssaae(k,m) = f_one + asyae(k,m) = f_zero + enddo + enddo ! --- set floor value for aerms (kg/m3) - do k = kts,kte - do m = 1, kcm - aerms(k,m) = 1.e-15 - enddo - enddo + do k = kts,kte + do m = 1, kcm + aerms(k,m) = 1.e-15 + enddo + enddo - do k = kts,kte - do m = 1, nspc - spcodp(k,m) = f_zero - enddo - enddo + do k = kts,kte + do m = 1, nspc + spcodp(k,m) = f_zero + enddo + enddo - do k = kts,kte - rh1(k) = rhlay(i,k,j) ! - !dz1(k) = 1000.*dz (i,k) ! thickness converted from km to m - dz1(k) = dz (i,k,j) - ! plv = 100.*prsl(i,k) ! convert pressure from mb to Pa - ! tv = tvly(i,k) ! virtual temp in K - rho = 1.0/rri (i,k,j) ! air density in kg/m3 - convsulf = rho * mw_so4_aer / mwdry - do m = 1, KCM1 - nn=p_dust_1+m-1 - aerms(k,m) = 1.e-9* chem(i,k,j,nn)*rho ! dry mass (kg/m3) - enddo - do m= 6, 10 - nn=p_seas_1+m-5-1 - aerms(k,m) = 1.e-9* chem(i,k,j,nn)*rho ! dry mass (kg/m3) - enddo - do m= 11, 11 - nn=p_sulf+m-10-1 - aerms(k,m) = 1.e-6* chem(i,k,j,nn)* convsulf ! dry mass (kg/m3) - enddo - do m= 12, 13 - nn=p_bc1+m-11-1 - aerms(k,m) = 1.e-9* chem(i,k,j,nn)*rho ! dry mass (kg/m3) - enddo - do m= 14, 15 - nn=p_oc1+m-13-1 - aerms(k,m) = 1.e-9* chem(i,k,j,nn)*rho ! dry mass (kg/m3) - enddo + do k = kts,kte + rh1(k) = rhlay(i,k,j) ! + !dz1(k) = 1000.*dz (i,k) ! thickness converted from km to m + dz1(k) = dz (i,k,j) + ! plv = 100.*prsl(i,k) ! convert pressure from mb to Pa + ! tv = tvly(i,k) ! virtual temp in K + rho = 1.0/rri (i,k,j) ! air density in kg/m3 + convsulf = rho * mw_so4_aer / mwdry + do m = 1, KCM1 + nn=p_dust_1+m-1 + aerms(k,m) = 1.e-9* chem(i,k,j,nn)*rho ! dry mass (kg/m3) + enddo + do m= 6, 10 + nn=p_seas_1+m-5-1 + aerms(k,m) = 1.e-9* chem(i,k,j,nn)*rho ! dry mass (kg/m3) + enddo + do m= 11, 11 + nn=p_sulf+m-10-1 + aerms(k,m) = 1.e-6* chem(i,k,j,nn)* convsulf ! dry mass (kg/m3) + enddo + do m= 12, 13 + nn=p_bc1+m-11-1 + aerms(k,m) = 1.e-9* chem(i,k,j,nn)*rho ! dry mass (kg/m3) + enddo + do m= 14, 15 + nn=p_oc1+m-13-1 + aerms(k,m) = 1.e-9* chem(i,k,j,nn)*rho ! dry mass (kg/m3) + enddo ! ! --- calculate sw/lw aerosol optical properties for the ! corresponding frequency bands - call aeropt + call aeropt ! --- inputs: (in-scope variables) ! --- outputs: (in-scope variables) - enddo ! end_do_k_loop + enddo ! end_do_k_loop ! ---------------------------------------------------------------------- ! --- update aerosw and aerolw arrays - rad_select: select case(sw_or_lw) - case ('sw') !shortwave radiation - do m = 1, NBDSW - do k = kts,kte - extt(i,k,j,m) = tauae(k,m) - ssca(i,k,j,m) = ssaae(k,m) - asympar(i,k,j,m) = asyae(k,m) - enddo - enddo + rad_select: select case(sw_or_lw) + case ('sw') !shortwave radiation + do m = 1, NBDSW + do k = kts,kte + extt(i,k,j,m) = tauae(k,m) + ssca(i,k,j,m) = ssaae(k,m) + asympar(i,k,j,m) = asyae(k,m) + enddo + enddo ! --- update diagnostic aod arrays - do k = kts,kte - aod(i,j) = aod(i,j) + tauae_550(k,1) + do k = kts,kte + aod(i,j) = aod(i,j) + tauae_550(k,1) - do m = 1, NSPC - aerodp(i,j,m) = aerodp(i,j,m)+spcodp(k,m) - !aod(i,j) = aod(i,j)+ spcodp(k,m) - enddo - !aod(i,j) = aod(i,j)+aerodp(i,j,m) - enddo + do m = 1, NSPC + aerodp(i,j,m) = aerodp(i,j,m)+spcodp(k,m) + !aod(i,j) = aod(i,j)+ spcodp(k,m) + enddo + !aod(i,j) = aod(i,j)+aerodp(i,j,m) + enddo - case ('lw') !shortwave radiation + case ('lw') !shortwave radiation - if ( NLWBND == 1 ) then - m1 = NSWBND + 1 - do m = 1, NBDLW - do k = kts,kte - extt(i,k,j,m) = tauae(k,m1) - ssca(i,k,j,m) = ssaae(k,m1) - asympar(i,k,j,m) = asyae(k,m1) - enddo - enddo - else - do m = 1, NBDLW - m1 = NSWBND + m - do k = kts,kte - extt(i,k,j,m) = tauae(k,m1) - ssca(i,k,j,m) = ssaae(k,m1) - asympar(i,k,j,m) = asyae(k,m1) - enddo - enddo - endif - case default - stop 'MSG aero_opt: the option does not exist: sw_or_lw ' - end select rad_select + if ( NLWBND == 1 ) then + m1 = NSWBND + 1 + do m = 1, NBDLW + do k = kts,kte + extt(i,k,j,m) = tauae(k,m1) + ssca(i,k,j,m) = ssaae(k,m1) + asympar(i,k,j,m) = asyae(k,m1) + enddo + enddo + else + do m = 1, NBDLW + m1 = NSWBND + m + do k = kts,kte + extt(i,k,j,m) = tauae(k,m1) + ssca(i,k,j,m) = ssaae(k,m1) + asympar(i,k,j,m) = asyae(k,m1) + enddo + enddo + endif + case default + stop 'MSG aero_opt: the option does not exist: sw_or_lw ' + end select rad_select - enddo + enddo enddo ! ================= - contains + contains ! ================= !-------------------------------- @@ -9061,112 +9061,112 @@ subroutine aeropt ! --- inputs: ! --- outputs: - real (kind=kind_chem), parameter :: wvn550 = 1.0e4/0.55 + real (kind=kind_chem), parameter :: wvn550 = 1.0e4/0.55 ! --- locals: - real (kind=kind_chem) :: drh0, drh1, rdrh - real (kind=kind_chem) :: cm, ext01, ext01_550, sca01,asy01,ssa01 - real (kind=kind_chem) :: ext1, ext1_550, asy1, ssa1,sca1,tau_550 - real (kind=kind_chem) :: sum_tau,sum_asy,sum_ssa,tau,asy,ssa - real (kind=kind_chem) :: sum_tau_550 - integer :: ih1, ih2, nbin, ib,mb, ntrc, ktrc + real (kind=kind_chem) :: drh0, drh1, rdrh + real (kind=kind_chem) :: cm, ext01, ext01_550, sca01,asy01,ssa01 + real (kind=kind_chem) :: ext1, ext1_550, asy1, ssa1,sca1,tau_550 + real (kind=kind_chem) :: sum_tau,sum_asy,sum_ssa,tau,asy,ssa + real (kind=kind_chem) :: sum_tau_550 + integer :: ih1, ih2, nbin, ib,mb, ntrc, ktrc ! --- linear interp coeffs for rh-dep species - ih2 = 1 - do while ( rh1(k) > rhlev_grt(ih2) ) - ih2 = ih2 + 1 - if ( ih2 > krhlev ) exit - enddo - ih1 = max( 1, ih2-1 ) - ih2 = min( krhlev, ih2 ) + ih2 = 1 + do while ( rh1(k) > rhlev_grt(ih2) ) + ih2 = ih2 + 1 + if ( ih2 > krhlev ) exit + enddo + ih1 = max( 1, ih2-1 ) + ih2 = min( krhlev, ih2 ) - drh0 = rhlev_grt(ih2) - rhlev_grt(ih1) - drh1 = rh1(k) - rhlev_grt(ih1) - if ( ih1 == ih2 ) then - rdrh = f_zero - else - rdrh = drh1 / drh0 - endif + drh0 = rhlev_grt(ih2) - rhlev_grt(ih1) + drh1 = rh1(k) - rhlev_grt(ih1) + if ( ih1 == ih2 ) then + rdrh = f_zero + else + rdrh = drh1 / drh0 + endif - nv_aod = 1 - do ib = 2, NSWBND - mb = ib + NSWSTR - 1 - if ( wvnum2(mb) >= wvn550 .and. wvn550 >= wvnum1(mb) ) then - nv_aod = ib ! sw band number covering 550nmwavelenth - endif - enddo + nv_aod = 1 + do ib = 2, NSWBND + mb = ib + NSWSTR - 1 + if ( wvnum2(mb) >= wvn550 .and. wvn550 >= wvnum1(mb) ) then + nv_aod = ib ! sw band number covering 550nmwavelenth + endif + enddo ! --- compute optical properties for each spectral bands - !do ib = 1, nswlwbd + !do ib = 1, nswlwbd - !sum_tau = f_zero - ! if (ib == nv_aod ) then - sum_tau_550 = f_zero - ext1_550 = f_zero + !sum_tau = f_zero + ! if (ib == nv_aod ) then + sum_tau_550 = f_zero + ext1_550 = f_zero ! endif - !sum_ssa = f_zero - !sum_asy = f_zero + !sum_ssa = f_zero + !sum_asy = f_zero do nc = 1, kcm1 - extrhi_grt_550(nc,1) = rhidext0_grt(id550,nc) + extrhi_grt_550(nc,1) = rhidext0_grt(id550,nc) enddo - + do nc = 1, kcm2 ! --- for rh dependent aerosol species - do nh = 1, krhlev - extrhd_grt_550(nh,nc,1) = rhdpext0_grt(i550,nh,nc) - enddo + do nh = 1, krhlev + extrhd_grt_550(nh,nc,1) = rhdpext0_grt(i550,nh,nc) + enddo enddo ! --- determine tau, ssa, asy for dust aerosols - !ext1 = f_zero - !asy1 = f_zero - !sca1 = f_zero - !ssa1 = f_zero - !asy = f_zero - !ssa = f_zero - do m = 1, kcm1 + !ext1 = f_zero + !asy1 = f_zero + !sca1 = f_zero + !ssa1 = f_zero + !asy = f_zero + !ssa = f_zero + do m = 1, kcm1 cm = max(aerms(k,m),0.0) * dz1(k) ! ext1 = ext1 + cm*extrhi_grt(m,ib) - ! if (ib == nv_aod) then + ! if (ib == nv_aod) then ext1_550 = ext1_550 + cm*extrhi_grt_550(m,1) - ! endif + ! endif ! sca1 = sca1 + cm*scarhi_grt(m,ib) ! ssa1 = ssa1 + cm*extrhi_grt(m,ib) * ssarhi_grt(m,ib) ! asy1 = asy1 + cm*scarhi_grt(m,ib) * asyrhi_grt(m,ib) - enddo ! m-loop + enddo ! m-loop ! tau = ext1 ! if (ext1 > f_zero) ssa=min(f_one, ssa1/ext1) ! if (sca1 > f_zero) asy=min(f_one, asy1/sca1) ! --- update aod from individual species - ! if ( ib==nv_aod ) then - tau_550 = ext1_550 - spcodp(k,1) = tau_550 - sum_tau_550 = sum_tau_550 + tau_550 - ! endif + ! if ( ib==nv_aod ) then + tau_550 = ext1_550 + spcodp(k,1) = tau_550 + sum_tau_550 = sum_tau_550 + tau_550 + ! endif ! --- update sum_tau, sum_ssa, sum_asy ! sum_tau = sum_tau + tau ! sum_ssa = sum_ssa + tau * ssa ! sum_asy = sum_asy + tau * ssa * asy ! --- determine tau, ssa, asy for non-dust aerosols - do ntrc = 2, nspc + do ntrc = 2, nspc ! ext1 = f_zero - ! if ( ib==nv_aod ) then + ! if ( ib==nv_aod ) then ext1_550 = f_zero - ! endif + ! endif ! asy1 = f_zero ! sca1 = f_zero ! ssa1 = f_zero ktrc = trc_to_aod(ntrc) do nbin = 1, num_radius(ntrc) - m1 = radius_lower(ntrc) + nbin - 1 - m = m1 - num_radius(1) ! exclude dust aerosols - cm = max(aerms(k,m1),0.0) * dz1(k) + m1 = radius_lower(ntrc) + nbin - 1 + m = m1 - num_radius(1) ! exclude dust aerosols + cm = max(aerms(k,m1),0.0) * dz1(k) ! ext01 = extrhd_grt(ih1,m,ib) + & ! & rdrh * (extrhd_grt(ih2,m,ib)-extrhd_grt(ih1,m,ib)) - ! if ( ib==nv_aod ) then - ext01_550 = extrhd_grt_550(ih1,m,1) + & - & rdrh * (extrhd_grt_550(ih2,m,1)-extrhd_grt_550(ih1,m,1)) - ! endif + ! if ( ib==nv_aod ) then + ext01_550 = extrhd_grt_550(ih1,m,1) + & + & rdrh * (extrhd_grt_550(ih2,m,1)-extrhd_grt_550(ih1,m,1)) + ! endif ! sca01 = scarhd_grt(ih1,m,ib) + & ! & rdrh * (scarhd_grt(ih2,m,ib)-scarhd_grt(ih1,m,ib)) ! ssa01 = ssarhd_grt(ih1,m,ib) + & @@ -9174,9 +9174,9 @@ subroutine aeropt ! asy01 = asyrhd_grt(ih1,m,ib) + & ! & rdrh * (asyrhd_grt(ih2,m,ib)-asyrhd_grt(ih1,m,ib)) ! ext1 = ext1 + cm*ext01 - !if ( ib==nv_aod ) then - ext1_550 = ext1_550 + cm*ext01_550 - !endif + !if ( ib==nv_aod ) then + ext1_550 = ext1_550 + cm*ext01_550 + !endif ! sca1 = sca1 + cm*sca01 ! ssa1 = ssa1 + cm*ext01 * ssa01 ! asy1 = asy1 + cm*sca01 * asy01 @@ -9194,19 +9194,19 @@ subroutine aeropt ! sum_tau = sum_tau + tau ! sum_ssa = sum_ssa + tau * ssa ! sum_asy = sum_asy + tau * ssa * asy - enddo ! end_do_ntrc_loop + enddo ! end_do_ntrc_loop ! --- determine total tau, ssa, asy for aerosol mixture ! tauae(k,ib) = sum_tau - !if ( ib==nv_aod ) then - tauae_550(k,1) = sum_tau_550 - !endif + !if ( ib==nv_aod ) then + tauae_550(k,1) = sum_tau_550 + !endif ! if (sum_tau > f_zero) ssaae(k,ib) = sum_ssa / sum_tau ! if (sum_ssa > f_zero) asyae(k,ib) = sum_asy / sum_ssa - !enddo ! end_do_ib_loop + !enddo ! end_do_ib_loop ! - return + return !................................ end subroutine aeropt !................................ @@ -9244,170 +9244,170 @@ subroutine rd_gocart_luts ! ! ! ================================================================== ! ! - implicit none + implicit none ! --- inputs: (none) ! --- output: (none) ! --- locals: - integer :: iradius, ik, ibeg - integer, parameter :: numspc = 5 ! # of aerosol species - ! --- parameters and constants: + integer :: iradius, ik, ibeg + integer, parameter :: numspc = 5 ! # of aerosol species + ! --- parameters and constants: ! - input tabulated aerosol optical spectral data from GSFC - real, dimension(kaerbndd) :: lambda ! wavelength (m) fornon-dust - real, dimension(kaerbndi) :: lambda_du ! wavelength (m) for dust - real, dimension(krhlev) :: rh ! relative humidity(fraction) - real, dimension(kaerbndd,krhlev,numspc) :: bext! extinction efficiency(m2/kg) - real, dimension(kaerbndd,krhlev,numspc) :: bsca! scattering efficiency(m2/kg) - real, dimension(kaerbndd,krhlev,numspc) :: g ! asymmetry factor(dimensionless) - real, dimension(kaerbndi,krhlev,numspc) :: bext_du! extinction efficiency(m2/kg) - real, dimension(kaerbndi,krhlev,numspc) :: bsca_du! scattering efficiency(m2/kg) - real, dimension(kaerbndi,krhlev,numspc) :: g_du ! asymmetry factor(dimensionless) + real, dimension(kaerbndd) :: lambda ! wavelength (m) fornon-dust + real, dimension(kaerbndi) :: lambda_du ! wavelength (m) for dust + real, dimension(krhlev) :: rh ! relative humidity(fraction) + real, dimension(kaerbndd,krhlev,numspc) :: bext! extinction efficiency(m2/kg) + real, dimension(kaerbndd,krhlev,numspc) :: bsca! scattering efficiency(m2/kg) + real, dimension(kaerbndd,krhlev,numspc) :: g ! asymmetry factor(dimensionless) + real, dimension(kaerbndi,krhlev,numspc) :: bext_du! extinction efficiency(m2/kg) + real, dimension(kaerbndi,krhlev,numspc) :: bsca_du! scattering efficiency(m2/kg) + real, dimension(kaerbndi,krhlev,numspc) :: g_du ! asymmetry factor(dimensionless) ! - logical :: file_exist - character*50 :: fin, dummy + logical :: file_exist + character*50 :: fin, dummy ! --- read LUTs for dust aerosols - fin='optics_'//gridcomp(1)//'.dat' - inquire (file=trim(fin), exist=file_exist) - if ( file_exist ) then - close(niaercm) - open (unit=niaercm, file=fin, status='OLD') - rewind(niaercm) - else - print *,' Requested luts file ',trim(fin),' not found' - print *,' ** Stopped in rd_gocart_luts ** ' - stop 1220 - endif ! end if_file_exist_block + fin='optics_'//gridcomp(1)//'.dat' + inquire (file=trim(fin), exist=file_exist) + if ( file_exist ) then + close(niaercm) + open (unit=niaercm, file=fin, status='OLD') + rewind(niaercm) + else + print *,' Requested luts file ',trim(fin),' not found' + print *,' ** Stopped in rd_gocart_luts ** ' + stop 1220 + endif ! end if_file_exist_block - iradius = 5 + iradius = 5 ! read lambda and compute mpwavelength (m) - read(niaercm,'(a40)') dummy - read(niaercm,*) (lambda_du(i), i=1, kaerbndi) + read(niaercm,'(a40)') dummy + read(niaercm,*) (lambda_du(i), i=1, kaerbndi) ! read rh, relative humidity (fraction) - read(niaercm,'(a40)') dummy - read(niaercm,*) (rh(i), i=1, krhlev) -! read bext (m2 (kg dry mass)-1) - do k = 1, iradius read(niaercm,'(a40)') dummy - do j=1, krhlev - read(niaercm,*) (bext_du(i,j,k), i=1,kaerbndi) + read(niaercm,*) (rh(i), i=1, krhlev) +! read bext (m2 (kg dry mass)-1) + do k = 1, iradius + read(niaercm,'(a40)') dummy + do j=1, krhlev + read(niaercm,*) (bext_du(i,j,k), i=1,kaerbndi) + enddo enddo - enddo ! read bsca (m2 (kg dry mass)-1) - do k = 1, iradius - read(niaercm,'(a40)') dummy - do j=1, krhlev - read(niaercm,*) (bsca_du(i,j,k), i=1, kaerbndi) + do k = 1, iradius + read(niaercm,'(a40)') dummy + do j=1, krhlev + read(niaercm,*) (bsca_du(i,j,k), i=1, kaerbndi) + enddo enddo - enddo ! read g (dimensionless) - do k = 1, iradius - read(niaercm,'(a40)') dummy - do j=1, krhlev - read(niaercm,*) (g_du(i,j,k), i=1, kaerbndi) + do k = 1, iradius + read(niaercm,'(a40)') dummy + do j=1, krhlev + read(niaercm,*) (g_du(i,j,k), i=1, kaerbndi) + enddo enddo - enddo ! fill rhidext0 local arrays for dust aerosols (flip i-index) - do i = 1, kaerbndi ! convert from m to micron - j = kaerbndi -i + 1 ! flip i-index - wavelength_du(j) = 1.e6 * lambda_du(i) - if (int(wavelength_du(j)*100) == 55) then - id550=j - endif - enddo - do k = 1, iradius - do i = 1, kaerbndi - ii = kaerbndi -i + 1 - rhidext0_grt(ii,k) = bext_du(i,1,k) - rhidsca0_grt(ii,k) = bsca_du(i,1,k) - if ( bext_du(i,1,k) /= f_zero) then - rhidssa0_grt(ii,k) = bsca_du(i,1,k)/bext_du(i,1,k) - else - rhidssa0_grt(ii,k) = f_one - endif - rhidasy0_grt(ii,k) = g_du(i,1,k) - enddo - enddo + do i = 1, kaerbndi ! convert from m to micron + j = kaerbndi -i + 1 ! flip i-index + wavelength_du(j) = 1.e6 * lambda_du(i) + if (int(wavelength_du(j)*100) == 55) then + id550=j + endif + enddo + do k = 1, iradius + do i = 1, kaerbndi + ii = kaerbndi -i + 1 + rhidext0_grt(ii,k) = bext_du(i,1,k) + rhidsca0_grt(ii,k) = bsca_du(i,1,k) + if ( bext_du(i,1,k) /= f_zero) then + rhidssa0_grt(ii,k) = bsca_du(i,1,k)/bext_du(i,1,k) + else + rhidssa0_grt(ii,k) = f_one + endif + rhidasy0_grt(ii,k) = g_du(i,1,k) + enddo + enddo ! --- read LUTs for non-dust aerosols - do ib = 2, num_gc ! loop thru SS, SU, BC, OC - fin='optics_'//gridcomp(ib)//'.dat' - inquire (file=trim(fin), exist=file_exist) - if ( file_exist ) then - close(niaercm) - open (unit=niaercm, file=fin, status='OLD') - rewind(niaercm) - else - print *,' Requested luts file ',trim(fin),' not found' - print *,' ** Stopped in rd_gocart_luts ** ' - stop 1222 - endif ! end if_file_exist_block + do ib = 2, num_gc ! loop thru SS, SU, BC, OC + fin='optics_'//gridcomp(ib)//'.dat' + inquire (file=trim(fin), exist=file_exist) + if ( file_exist ) then + close(niaercm) + open (unit=niaercm, file=fin, status='OLD') + rewind(niaercm) + else + print *,' Requested luts file ',trim(fin),' not found' + print *,' ** Stopped in rd_gocart_luts ** ' + stop 1222 + endif ! end if_file_exist_block - ibeg = radius_lower(ib) - kcm1 - iradius = num_radius(ib) + ibeg = radius_lower(ib) - kcm1 + iradius = num_radius(ib) ! read lambda and compute mpwavelength (m) - read(niaercm,'(a40)') dummy - read(niaercm,*) (lambda(i), i=1, kaerbndd) + read(niaercm,'(a40)') dummy + read(niaercm,*) (lambda(i), i=1, kaerbndd) ! read rh, relative humidity (fraction) - read(niaercm,'(a40)') dummy - read(niaercm,*) (rh(i), i=1, krhlev) + read(niaercm,'(a40)') dummy + read(niaercm,*) (rh(i), i=1, krhlev) ! read bext - do k = 1, iradius - read(niaercm,'(a40)') dummy - do j=1, krhlev - read(niaercm,*) (bext(i,j,k), i=1,kaerbndd) - enddo - enddo + do k = 1, iradius + read(niaercm,'(a40)') dummy + do j=1, krhlev + read(niaercm,*) (bext(i,j,k), i=1,kaerbndd) + enddo + enddo ! read bsca - do k = 1, iradius - read(niaercm,'(a40)') dummy - do j=1, krhlev - read(niaercm,*) (bsca(i,j,k), i=1, kaerbndd) - enddo - enddo + do k = 1, iradius + read(niaercm,'(a40)') dummy + do j=1, krhlev + read(niaercm,*) (bsca(i,j,k), i=1, kaerbndd) + enddo + enddo ! read g - do k = 1, iradius - read(niaercm,'(a40)') dummy - do j=1, krhlev - read(niaercm,*) (g(i,j,k), i=1, kaerbndd) - enddo - enddo + do k = 1, iradius + read(niaercm,'(a40)') dummy + do j=1, krhlev + read(niaercm,*) (g(i,j,k), i=1, kaerbndd) + enddo + enddo ! fill rhdpext0 local arrays for non-dust aerosols (flip i-index) - do i = 1, kaerbndd ! convert from m to micron - j = kaerbndd -i + 1 ! flip i-index - wavelength(j) = 1.e6 * lambda(i) - if (int(wavelength(j)*100) == 55) then - i550=j - endif - enddo - do k = 1, iradius - ik = ibeg + k - 1 - do i = 1, kaerbndd - ii = kaerbndd -i + 1 - do j = 1, krhlev - rhdpext0_grt(ii,j,ik) = bext(i,j,k) - rhdpsca0_grt(ii,j,ik) = bsca(i,j,k) - if ( bext(i,j,k) /= f_zero) then - rhdpssa0_grt(ii,j,ik) = bsca(i,j,k)/bext(i,j,k) - else - rhdpssa0_grt(ii,j,ik) = f_one - endif - rhdpasy0_grt(ii,j,ik) = g(i,j,k) - enddo - enddo - enddo + do i = 1, kaerbndd ! convert from m to micron + j = kaerbndd -i + 1 ! flip i-index + wavelength(j) = 1.e6 * lambda(i) + if (int(wavelength(j)*100) == 55) then + i550=j + endif + enddo + do k = 1, iradius + ik = ibeg + k - 1 + do i = 1, kaerbndd + ii = kaerbndd -i + 1 + do j = 1, krhlev + rhdpext0_grt(ii,j,ik) = bext(i,j,k) + rhdpsca0_grt(ii,j,ik) = bsca(i,j,k) + if ( bext(i,j,k) /= f_zero) then + rhdpssa0_grt(ii,j,ik) = bsca(i,j,k)/bext(i,j,k) + else + rhdpssa0_grt(ii,j,ik) = f_one + endif + rhdpasy0_grt(ii,j,ik) = g(i,j,k) + enddo + enddo + enddo - enddo !! ib-loop + enddo !! ib-loop - return + return !................................... end subroutine rd_gocart_luts !----------------------------------- - end subroutine aero_opt_new + end subroutine aero_opt_new - end module opt_gocart_mod +end module opt_gocart_mod diff --git a/src/opt_mod.F90 b/src/opt_mod.F90 index 2070fa06..7618ff5c 100644 --- a/src/opt_mod.F90 +++ b/src/opt_mod.F90 @@ -1,13 +1,13 @@ module opt_mod - use opt_data_mod - use opt_driver_mod - use opt_averaging_mod - use opt_aer_mod - use opt_gocart_mod + use opt_data_mod + use opt_driver_mod + use opt_averaging_mod + use opt_aer_mod + use opt_gocart_mod - implicit none + implicit none - public + public end module opt_mod diff --git a/src/plume_rise_mod.F90 b/src/plume_rise_mod.F90 index 75f0f231..035a540f 100644 --- a/src/plume_rise_mod.F90 +++ b/src/plume_rise_mod.F90 @@ -1,65 +1,65 @@ module plume_rise_mod - use catchem_constants, only : kind_chem,g => con_g, cp => con_cp, & - r_d => con_rd, r_v => con_rv + use catchem_constants, only : kind_chem,g => con_g, cp => con_cp, & + r_d => con_rd, r_v => con_rv - use catchem_config + use catchem_config - use plume_data_mod, only : nveg_agreg - use plume_zero_mod - use plume_scalar_mod + use plume_data_mod, only : nveg_agreg + use plume_zero_mod + use plume_scalar_mod - implicit none + implicit none - real(kind=kind_chem), parameter :: p1000 = 100000. ! p at 1000mb (pascals) + real(kind=kind_chem), parameter :: p1000 = 100000. ! p at 1000mb (pascals) - private + private - public :: num_frp_plume - public :: plumerise_driver + public :: num_frp_plume + public :: plumerise_driver contains - subroutine plumerise_driver (ktau,dtstep,num_chem,num_ebu,num_ebu_in, & - ebu,ebu_in, & - mean_fct_agtf,mean_fct_agef,mean_fct_agsv,mean_fct_aggr, & - firesize_agtf,firesize_agef,firesize_agsv,firesize_aggr, & - chem_opt,burn_opt,t_phy,q_vap, & - rho_phy,vvel,u_phy,v_phy,p_phy, & - z_at_w,scale_fire_emiss,plume_frp,plumerise_flag, & - ids,ide, jds,jde, kds,kde, & - ims,ime, jms,jme, kms,kme, & - its,ite, jts,jte, kts,kte ) + subroutine plumerise_driver (ktau,dtstep,num_chem,num_ebu,num_ebu_in, & + ebu,ebu_in, & + mean_fct_agtf,mean_fct_agef,mean_fct_agsv,mean_fct_aggr, & + firesize_agtf,firesize_agef,firesize_agsv,firesize_aggr, & + chem_opt,burn_opt,t_phy,q_vap, & + rho_phy,vvel,u_phy,v_phy,p_phy, & + z_at_w,scale_fire_emiss,plume_frp,plumerise_flag, & + ids,ide, jds,jde, kds,kde, & + ims,ime, jms,jme, kms,kme, & + its,ite, jts,jte, kts,kte ) - IMPLICIT NONE + IMPLICIT NONE - INTEGER, INTENT(IN ) :: ktau,num_chem,num_ebu, & - num_ebu_in,plumerise_flag, & - ids,ide, jds,jde, kds,kde, & - ims,ime, jms,jme, kms,kme, & - its,ite, jts,jte, kts,kte - REAL(kind=kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme, num_ebu ), & + INTEGER, INTENT(IN ) :: ktau,num_chem,num_ebu, & + num_ebu_in,plumerise_flag, & + ids,ide, jds,jde, kds,kde, & + ims,ime, jms,jme, kms,kme, & + its,ite, jts,jte, kts,kte + REAL(kind=kind_chem), DIMENSION( ims:ime, kms:kme, jms:jme, num_ebu ), & INTENT(INOUT ) :: ebu - REAL(kind=kind_chem), DIMENSION( ims:ime, jms:jme, num_ebu_in ), & + REAL(kind=kind_chem), DIMENSION( ims:ime, jms:jme, num_ebu_in ), & INTENT(INOUT ) :: ebu_in - REAL(kind=kind_chem), DIMENSION( ims:ime, jms:jme, num_frp_plume ), & + REAL(kind=kind_chem), DIMENSION( ims:ime, jms:jme, num_frp_plume ), & INTENT(INOUT ) :: plume_frp - REAL(kind=kind_chem), DIMENSION( ims:ime, jms:jme ),INTENT(IN ) :: & - mean_fct_agtf,mean_fct_agef,mean_fct_agsv,mean_fct_aggr, & - firesize_agtf,firesize_agef,firesize_agsv,firesize_aggr + REAL(kind=kind_chem), DIMENSION( ims:ime, jms:jme ),INTENT(IN ) :: & + mean_fct_agtf,mean_fct_agef,mean_fct_agsv,mean_fct_aggr, & + firesize_agtf,firesize_agef,firesize_agsv,firesize_aggr ! ! ! - REAL(kind=kind_chem), DIMENSION( ims:ime , kms:kme , jms:jme ), & + REAL(kind=kind_chem), DIMENSION( ims:ime , kms:kme , jms:jme ), & INTENT(IN ) :: & - t_phy, & - z_at_w,vvel,u_phy,v_phy,rho_phy,p_phy,q_vap - REAL(kind=kind_chem), INTENT(IN ) :: dtstep + t_phy, & + z_at_w,vvel,u_phy,v_phy,rho_phy,p_phy,q_vap + REAL(kind=kind_chem), INTENT(IN ) :: dtstep - LOGICAL, INTENT(IN ) :: scale_fire_emiss - character (len=*), intent(in) :: chem_opt,burn_opt + LOGICAL, INTENT(IN ) :: scale_fire_emiss + character (len=*), intent(in) :: chem_opt,burn_opt ! ! Local variables... @@ -68,11 +68,11 @@ subroutine plumerise_driver (ktau,dtstep,num_chem,num_ebu,num_ebu_in, & ! integer, parameter :: nspecies=num_ebu - real(kind=kind_chem), dimension (num_ebu) :: eburn_in + real(kind=kind_chem), dimension (num_ebu) :: eburn_in real(kind=kind_chem), dimension (kte,num_ebu) :: eburn_out real(kind=kind_chem), dimension (kte) :: u_in ,v_in ,w_in ,theta_in ,pi_in & - ,rho_phyin ,qv_in ,zmid & - ,z_lev + ,rho_phyin ,qv_in ,zmid & + ,z_lev real(kind=kind_chem), dimension(nveg_agreg) :: firesize,mean_fct real(kind=kind_chem) :: sum, ffirs, rcp,ratio,zk ! real(kind=kind_chem),save,dimension(its:ite,jts:jte) :: ffirs @@ -81,18 +81,18 @@ subroutine plumerise_driver (ktau,dtstep,num_chem,num_ebu,num_ebu_in, & nspecies=num_ebu if( scale_fire_emiss ) then - if( chem_opt /= 'MOZCART_KPP' .and. & + if( chem_opt /= 'MOZCART_KPP' .and. & chem_opt /= 'MOZART_KPP' .and. & chem_opt /= 'MOZART_MOSAIC_4BIN_VBS0_KPP' ) then - print*,"Fire emission scaling only supported for MOZART_KPP, MOZCART_KPP chem chem_opts" - !call chem_comm_abort(msg="Fire emission scaling only supported for MOZART_KPP, MOZCART_KPP chem chem_opts") - endif + print*,"Fire emission scaling only supported for MOZART_KPP, MOZCART_KPP chem chem_opts" + !call chem_comm_abort(msg="Fire emission scaling only supported for MOZART_KPP, MOZCART_KPP chem chem_opts") + endif endif - if ( burn_opt == 'BIOMASSB' ) then + if ( burn_opt == 'BIOMASSB' ) then do j=jts,jte do i=its,ite - if ( chem_opt == 'GOCARTRACM'.or.chem_opt == 'RACMSOAVBS' ) then + if ( chem_opt == 'GOCARTRACM'.or.chem_opt == 'RACMSOAVBS' ) then ! ebu(i,kts,j,p_ebu_no)=ebu_in(i,j,p_ebu_in_no) ! ebu(i,kts,j,p_ebu_no2)=ebu_in(i,j,p_ebu_in_no2) ! ebu(i,kts,j,p_ebu_co)=ebu_in(i,j,p_ebu_in_co) @@ -127,8 +127,8 @@ subroutine plumerise_driver (ktau,dtstep,num_chem,num_ebu,num_ebu_in, & ebu(i,kts,j,p_ebu_pm10)=ebu_in(i,j,p_ebu_in_pm10) enddo enddo - elseif ( burn_opt == 'BIOMASSB_MOZC' .or. & - burn_opt == 'BIOMASSB_MOZ' ) then + elseif ( burn_opt == 'BIOMASSB_MOZC' .or. & + burn_opt == 'BIOMASSB_MOZ' ) then do j=jts,jte do i=its,ite ! ebu(i,kts,j,p_ebu_no)=ebu_in(i,j,p_ebu_in_no) @@ -163,74 +163,74 @@ subroutine plumerise_driver (ktau,dtstep,num_chem,num_ebu,num_ebu_in, & enddo enddo if( burn_opt == 'BIOMASSB_MOZC' ) then - do j=jts,jte + do j=jts,jte ! ebu(its:ite,kts,j,p_ebu_pm10) = ebu_in(its:ite,j,p_ebu_in_pm10) ! ebu(its:ite,kts,j,p_ebu_pm25) = ebu_in(its:ite,j,p_ebu_in_pm25) ! ebu(its:ite,kts,j,p_ebu_oc) = ebu_in(its:ite,j,p_ebu_in_oc) ! ebu(its:ite,kts,j,p_ebu_bc) = ebu_in(its:ite,j,p_ebu_in_bc) - enddo + enddo endif - elseif ( burn_opt == 'BIOMASSB_GHG' ) then + elseif ( burn_opt == 'BIOMASSB_GHG' ) then do j=jts,jte do i=its,ite ! ebu(i,kts,j,p_ebu_co) = ebu_in(i,j,p_ebu_in_co) ! ebu(i,kts,j,p_ebu_co2) = ebu_in(i,j,p_ebu_in_co2) ! ebu(i,kts,j,p_ebu_ch4) = ebu_in(i,j,p_ebu_in_ch4) enddo - enddo - endif + enddo + endif ! - do nv=1,num_ebu - do j=jts,jte + do nv=1,num_ebu + do j=jts,jte do k=kts+1,kte do i=its,ite - ebu(i,k,j,nv)=0. + ebu(i,k,j,nv)=0. enddo enddo - enddo - enddo - - do j=jts,jte - do i=its,ite + enddo + enddo + + do j=jts,jte + do i=its,ite select case (plumerise_flag) - case (FIRE_OPT_MODIS) - sum=mean_fct_agtf(i,j)+mean_fct_agef(i,j)+mean_fct_agsv(i,j) & - +mean_fct_aggr(i,j) - if(sum.lt.1.e-6)Cycle - ! ffirs=ffirs+1 - sum=firesize_agtf(i,j)+firesize_agef(i,j)+firesize_agsv(i,j) & - +firesize_aggr(i,j) - if(sum.lt.1.e-6)Cycle - eburn_out=0. - mean_fct(1)=mean_fct_agtf(i,j) - mean_fct(2)=mean_fct_agef(i,j) - mean_fct(3)=mean_fct_agsv(i,j) - mean_fct(4)=mean_fct_aggr(i,j) - firesize(1)=firesize_agtf(i,j) - firesize(2)=firesize_agef(i,j) - firesize(3)=firesize_agsv(i,j) - firesize(4)=firesize_aggr(i,j) - case (FIRE_OPT_GBBEPx) - if (plume_frp(i,j,p_frp_mean) < 1.e-06) cycle - case default - ! -- no further option available + case (FIRE_OPT_MODIS) + sum=mean_fct_agtf(i,j)+mean_fct_agef(i,j)+mean_fct_agsv(i,j) & + +mean_fct_aggr(i,j) + if(sum.lt.1.e-6)Cycle + ! ffirs=ffirs+1 + sum=firesize_agtf(i,j)+firesize_agef(i,j)+firesize_agsv(i,j) & + +firesize_aggr(i,j) + if(sum.lt.1.e-6)Cycle + eburn_out=0. + mean_fct(1)=mean_fct_agtf(i,j) + mean_fct(2)=mean_fct_agef(i,j) + mean_fct(3)=mean_fct_agsv(i,j) + mean_fct(4)=mean_fct_aggr(i,j) + firesize(1)=firesize_agtf(i,j) + firesize(2)=firesize_agef(i,j) + firesize(3)=firesize_agsv(i,j) + firesize(4)=firesize_aggr(i,j) + case (FIRE_OPT_GBBEPx) + if (plume_frp(i,j,p_frp_mean) < 1.e-06) cycle + case default + ! -- no further option available end select do nv=1,num_ebu - eburn_in(nv)=ebu(i,kts,j,nv) + eburn_in(nv)=ebu(i,kts,j,nv) enddo if( maxval( eburn_in(:) ) == 0. ) cycle do k=kts,kte - u_in(k)=u_phy(i,k,j) - v_in(k)=v_phy(i,k,j) - w_in(k)=vvel(i,k,j) - qv_in(k)=q_vap(i,k,j) - pi_in(k)=cp*(p_phy(i,k,j)/p1000mb)**rcp - !zk=.5*(z_at_w(i,k+1,j)-z_at_w(i,k,j)) - zk=.5*(z_at_w(i,k+1,j)+z_at_w(i,k,j)) !lzhang - zmid(k)=zk-z_at_w(i,kts,j) - z_lev(k)=z_at_w(i,k,j)-z_at_w(i,kts,j) - rho_phyin(k)=rho_phy(i,k,j) - theta_in(k)=t_phy(i,k,j)/pi_in(k)*cp + u_in(k)=u_phy(i,k,j) + v_in(k)=v_phy(i,k,j) + w_in(k)=vvel(i,k,j) + qv_in(k)=q_vap(i,k,j) + pi_in(k)=cp*(p_phy(i,k,j)/p1000mb)**rcp + !zk=.5*(z_at_w(i,k+1,j)-z_at_w(i,k,j)) + zk=.5*(z_at_w(i,k+1,j)+z_at_w(i,k,j)) !lzhang + zmid(k)=zk-z_at_w(i,kts,j) + z_lev(k)=z_at_w(i,k,j)-z_at_w(i,kts,j) + rho_phyin(k)=rho_phy(i,k,j) + theta_in(k)=t_phy(i,k,j)/pi_in(k)*cp enddo !!$ pi_in(kte)=pi_in(kte-1) !wig: These are no longer needed after changing definition !!$ u_in(kte)=u_in(kte-1) ! of kte in chem_driver (12-Oct-2007) @@ -242,42 +242,42 @@ subroutine plumerise_driver (ktau,dtstep,num_chem,num_ebu,num_ebu_in, & !!$ rho_phyin(kte)=rho_phyin(kte-1) !!$ theta_in(kte)=theta_in(kte-1) call plumerise(kte,1,1,1,1,1,1,firesize,mean_fct & - ,nspecies,eburn_in,eburn_out & - ,u_in ,v_in ,w_in ,theta_in ,pi_in & - ,rho_phyin ,qv_in ,zmid & - ,z_lev,plume_frp(i,j,:),plumerise_flag) + ,nspecies,eburn_in,eburn_out & + ,u_in ,v_in ,w_in ,theta_in ,pi_in & + ,rho_phyin ,qv_in ,zmid & + ,z_lev,plume_frp(i,j,:),plumerise_flag) do nv=1,num_ebu - do k=kts+1,kte - ebu(i,k,j,nv)=eburn_out(k,nv)*(z_at_w(i,k+1,j)-z_at_w(i,k,j)) - enddo + do k=kts+1,kte + ebu(i,k,j,nv)=eburn_out(k,nv)*(z_at_w(i,k+1,j)-z_at_w(i,k,j)) + enddo enddo ! print*,'hli plumerise',maxval(eburn_out),maxval(plume_frp(i,j,:)) -has_total_emissions : & - if( scale_fire_emiss ) then -is_mozcart : & - if( (chem_opt == 'MOZCART_KPP' .and. & - burn_opt == 'BIOMASSB_MOZC') .or. & + has_total_emissions : & + if( scale_fire_emiss ) then + is_mozcart : & + if( (chem_opt == 'MOZCART_KPP' .and. & + burn_opt == 'BIOMASSB_MOZC') .or. & (chem_opt == 'MOZART_KPP' .and. & - burn_opt == 'BIOMASSB_MOZ') .or. & + burn_opt == 'BIOMASSB_MOZ') .or. & (chem_opt == 'MOZART_MOSAIC_4BIN_VBS0_KPP' .and. & - burn_opt == 'BIOMASSB_MOZC') ) then + burn_opt == 'BIOMASSB_MOZC') ) then !------------------------------------------------------------------- ! we input total emissions instead of smoldering emissions: ! ratio of smolderling to total !------------------------------------------------------------------- - sum = 0. - do k = kts,kte - sum = sum + ebu(i,k,j,p_ebu_co) - end do - if( sum > 0. ) then - ratio = ebu(i,kts,j,p_ebu_co)/sum - else - ratio = 0. - endif + sum = 0. + do k = kts,kte + sum = sum + ebu(i,k,j,p_ebu_co) + end do + if( sum > 0. ) then + ratio = ebu(i,kts,j,p_ebu_co)/sum + else + ratio = 0. + endif - do k = kts,kte + do k = kts,kte ! ebu(i,k,j,p_ebu_no) = ebu(i,k,j,p_ebu_no)*ratio ! ebu(i,k,j,p_ebu_co) = ebu(i,k,j,p_ebu_co)*ratio ! ebu(i,k,j,p_ebu_bigalk) = ebu(i,k,j,p_ebu_bigalk)*ratio @@ -307,21 +307,21 @@ subroutine plumerise_driver (ktau,dtstep,num_chem,num_ebu,num_ebu_in, & ! ebu(i,k,j,p_ebu_isop) = ebu(i,k,j,p_ebu_isop)*ratio ! ebu(i,k,j,p_ebu_macr) = ebu(i,k,j,p_ebu_macr)*ratio ! ebu(i,k,j,p_ebu_mvk) = ebu(i,k,j,p_ebu_mvk)*ratio - end do - if( chem_opt == 'MOZCART_KPP' .or. & - chem_opt == 'MOZART_MOSAIC_4BIN_VBS0_KPP' ) then - do k = kts,kte + end do + if( chem_opt == 'MOZCART_KPP' .or. & + chem_opt == 'MOZART_MOSAIC_4BIN_VBS0_KPP' ) then + do k = kts,kte ! ebu(i,k,j,p_ebu_pm10) = ebu(i,k,j,p_ebu_pm10)*ratio ! ebu(i,k,j,p_ebu_pm25) = ebu(i,k,j,p_ebu_pm25)*ratio ! ebu(i,k,j,p_ebu_oc) = ebu(i,k,j,p_ebu_oc)*ratio ! ebu(i,k,j,p_ebu_bc) = ebu(i,k,j,p_ebu_bc)*ratio - end do - endif - end if is_mozcart + end do + endif + end if is_mozcart end if has_total_emissions - enddo - enddo - end subroutine plumerise_driver + enddo + enddo + end subroutine plumerise_driver end module plume_rise_mod diff --git a/src/plume_scalar_mod.F90 b/src/plume_scalar_mod.F90 index 085c9b84..771b4105 100644 --- a/src/plume_scalar_mod.F90 +++ b/src/plume_scalar_mod.F90 @@ -1,112 +1,112 @@ module plume_scalar_mod - use catchem_constants, only : kind_chem, g => con_g, cp => con_cp, & - r_d => con_rd, r_v => con_rv + use catchem_constants, only : kind_chem, g => con_g, cp => con_cp, & + r_d => con_rd, r_v => con_rv - use catchem_config, only : FIRE_OPT_GBBEPx, FIRE_OPT_MODIS - use plume_data_mod, only : num_frp_plume, p_frp_flam_frac, p_frp_mean, p_frp_std, & - p_frp_mean_size, p_frp_std_size, & - tropical_forest, boreal_forest, savannah, grassland, & - nveg_agreg, wind_eff - use plume_zero_mod + use catchem_config, only : FIRE_OPT_GBBEPx, FIRE_OPT_MODIS + use plume_data_mod, only : num_frp_plume, p_frp_flam_frac, p_frp_mean, p_frp_std, & + p_frp_mean_size, p_frp_std_size, & + tropical_forest, boreal_forest, savannah, grassland, & + nveg_agreg, wind_eff + use plume_zero_mod - real(kind=kind_chem),parameter :: p1000mb = 100000. ! p at 1000mb (pascals) - real(kind=kind_chem),parameter :: rgas=r_d - real(kind=kind_chem),parameter :: cpor=cp/r_d - real(kind=kind_chem),parameter :: p00=p1000mb + real(kind=kind_chem),parameter :: p1000mb = 100000. ! p at 1000mb (pascals) + real(kind=kind_chem),parameter :: rgas=r_d + real(kind=kind_chem),parameter :: cpor=cp/r_d + real(kind=kind_chem),parameter :: p00=p1000mb - public + public contains -subroutine plumerise(m1,m2,m3,ia,iz,ja,jz,firesize,mean_fct & - ,nspecies,eburn_in,eburn_out & - ,up,vp,wp,theta,pp,dn0,rv,zt_rams,zm_rams & - ,plume_frp,plumerise_flag) - - implicit none - - ! arguments - integer :: m1,m2,m3,ia,iz,ja,jz,nspecies,plumerise_flag - - real(kind=kind_chem), dimension(nveg_agreg), intent(in) :: firesize,mean_fct - real(kind=kind_chem), dimension(nspecies), intent(in) :: eburn_in - real(kind=kind_chem), dimension(m1,nspecies), intent(out) :: eburn_out - real(kind=kind_chem), dimension(m1,m2,m3), intent(in) :: up,vp,wp,theta,pp,dn0,rv - real(kind=kind_chem), dimension(m1), intent(in) :: zt_rams,zm_rams - real(kind=kind_chem), dimension(num_frp_plume), intent(inout) :: plume_frp - - ! local variables - integer :: i,j,k,iveg_ag,imm,ispc,ixx,k1,k2,kmt - integer :: iloop - integer :: ncall = 0 - - real(kind=kind_chem) :: burnt_area,dz_flam,rhodzi,dzi,frp - real(kind=kind_chem) :: q_smold_kgm2 - real(kind=kind_chem) :: convert_smold_to_flam - real(kind=kind_chem), dimension(2) :: ztopmax - - !Fator de conversao de unidades - !!fcu=1. !=> kg [gas/part] /kg [ar] - !!fcu =1.e+12 !=> ng [gas/part] /kg [ar] - !!real(kind=kind_chem),parameter :: fcu =1.e+6 !=> mg [gas/part] /kg [ar] - !---------------------------------------------------------------------- - ! indexacao para o array "plume(k,i,j)" - ! k - ! 1 => area media (m^2) dos focos em biomas floresta dentro do gribox i,j - ! 2 => area media (m^2) dos focos em biomas savana dentro do gribox i,j - ! 3 => area media (m^2) dos focos em biomas pastagem dentro do gribox i,j - ! 4 => desvio padrao da area media (m^2) dos focos : floresta - ! 5 => desvio padrao da area media (m^2) dos focos : savana - ! 6 => desvio padrao da area media (m^2) dos focos : pastagem - ! 7 a 9 => sem uso - !10(=k_CO_smold) => parte da emissao total de CO correspondente a fase smoldering - !11, 12 e 13 => este array guarda a relacao entre - ! qCO( flaming, floresta) e a quantidade total emitida - ! na fase smoldering, isto e; - ! qCO( flaming, floresta) = plume(11,i,j)*plume(10,i,j) - ! qCO( flaming, savana ) = plume(12,i,j)*plume(10,i,j) - ! qCO( flaming, pastagem) = plume(13,i,j)*plume(10,i,j) - !20(=k_PM25_smold),21,22 e 23 o mesmo para PM25 - ! - !24-n1 => sem uso - !---------------------------------------------------------------------- - - ! initialize output - eburn_out = 0. - - if (ncall == 0) then - ncall = 1 - call zero_plumegen_coms - endif - - - j=1 - i=1 + subroutine plumerise(m1,m2,m3,ia,iz,ja,jz,firesize,mean_fct & + ,nspecies,eburn_in,eburn_out & + ,up,vp,wp,theta,pp,dn0,rv,zt_rams,zm_rams & + ,plume_frp,plumerise_flag) + + implicit none + + ! arguments + integer :: m1,m2,m3,ia,iz,ja,jz,nspecies,plumerise_flag + + real(kind=kind_chem), dimension(nveg_agreg), intent(in) :: firesize,mean_fct + real(kind=kind_chem), dimension(nspecies), intent(in) :: eburn_in + real(kind=kind_chem), dimension(m1,nspecies), intent(out) :: eburn_out + real(kind=kind_chem), dimension(m1,m2,m3), intent(in) :: up,vp,wp,theta,pp,dn0,rv + real(kind=kind_chem), dimension(m1), intent(in) :: zt_rams,zm_rams + real(kind=kind_chem), dimension(num_frp_plume), intent(inout) :: plume_frp + + ! local variables + integer :: i,j,k,iveg_ag,imm,ispc,ixx,k1,k2,kmt + integer :: iloop + integer :: ncall = 0 + + real(kind=kind_chem) :: burnt_area,dz_flam,rhodzi,dzi,frp + real(kind=kind_chem) :: q_smold_kgm2 + real(kind=kind_chem) :: convert_smold_to_flam + real(kind=kind_chem), dimension(2) :: ztopmax + + !Fator de conversao de unidades + !!fcu=1. !=> kg [gas/part] /kg [ar] + !!fcu =1.e+12 !=> ng [gas/part] /kg [ar] + !!real(kind=kind_chem),parameter :: fcu =1.e+6 !=> mg [gas/part] /kg [ar] + !---------------------------------------------------------------------- + ! indexacao para o array "plume(k,i,j)" + ! k + ! 1 => area media (m^2) dos focos em biomas floresta dentro do gribox i,j + ! 2 => area media (m^2) dos focos em biomas savana dentro do gribox i,j + ! 3 => area media (m^2) dos focos em biomas pastagem dentro do gribox i,j + ! 4 => desvio padrao da area media (m^2) dos focos : floresta + ! 5 => desvio padrao da area media (m^2) dos focos : savana + ! 6 => desvio padrao da area media (m^2) dos focos : pastagem + ! 7 a 9 => sem uso + !10(=k_CO_smold) => parte da emissao total de CO correspondente a fase smoldering + !11, 12 e 13 => este array guarda a relacao entre + ! qCO( flaming, floresta) e a quantidade total emitida + ! na fase smoldering, isto e; + ! qCO( flaming, floresta) = plume(11,i,j)*plume(10,i,j) + ! qCO( flaming, savana ) = plume(12,i,j)*plume(10,i,j) + ! qCO( flaming, pastagem) = plume(13,i,j)*plume(10,i,j) + !20(=k_PM25_smold),21,22 e 23 o mesmo para PM25 + ! + !24-n1 => sem uso + !---------------------------------------------------------------------- + + ! initialize output + eburn_out = 0. + + if (ncall == 0) then + ncall = 1 + call zero_plumegen_coms + endif + + + j=1 + i=1 ! do j = ja,jz ! loop em j ! do i = ia,iz ! loop em i - - !- if the max value of flaming is close to zero => there is not emission with - !- plume rise => cycle + + !- if the max value of flaming is close to zero => there is not emission with + !- plume rise => cycle do k = 1,m1 - ucon (k)=up(k,i,j) ! u wind - vcon (k)=vp(k,i,j) ! v wind - !wcon (k)=wp(k,i,j) ! w wind - thtcon(k)=theta(k,i,j) ! pot temperature - picon (k)=pp(k,i,j) ! exner function - !tmpcon(k)=thtcon(k)*picon(k)/cp ! temperature (K) - !dncon (k)=dn0(k,i,j) ! dry air density (basic state) - !prcon (k)=(picon(k)/cp)**cpor*p00 ! pressure (Pa) - rvcon (k)=rv(k,i,j) ! water vapor mixing ratio - zcon (k)=zt_rams(k) ! termod-point height - zzcon (k)=zm_rams(k) ! W-point height + ucon (k)=up(k,i,j) ! u wind + vcon (k)=vp(k,i,j) ! v wind + !wcon (k)=wp(k,i,j) ! w wind + thtcon(k)=theta(k,i,j) ! pot temperature + picon (k)=pp(k,i,j) ! exner function + !tmpcon(k)=thtcon(k)*picon(k)/cp ! temperature (K) + !dncon (k)=dn0(k,i,j) ! dry air density (basic state) + !prcon (k)=(picon(k)/cp)**cpor*p00 ! pressure (Pa) + rvcon (k)=rv(k,i,j) ! water vapor mixing ratio + zcon (k)=zt_rams(k) ! termod-point height + zzcon (k)=zm_rams(k) ! W-point height enddo do ispc=1,nspecies - eburn_out(1,ispc) = eburn_in(ispc) + eburn_out(1,ispc) = eburn_in(ispc) enddo - !- get envinronmental state (temp, water vapor mix ratio, ...) + !- get envinronmental state (temp, water vapor mix ratio, ...) call get_env_condition(1,m1,kmt,wind_eff) !- loop over the four types of aggregate biomes with fires for !plumerise version 1 @@ -117,12 +117,12 @@ subroutine plumerise(m1,m2,m3,ia,iz,ja,jz,firesize,mean_fct & !- loop nos 4 biomas agregados com possivel queimada do iveg_ag=1,iloop - select case (plumerise_flag) + select case (plumerise_flag) case (FIRE_OPT_MODIS) !- verifica a existencia de emissao flaming para um bioma especifico !orig: if( plume( k_CO_smold + iveg_ag ,i,j) < 1.e-6 ) cycle if(mean_fct(iveg_ag) < 1.e-6 ) cycle - + ! burnt area and standard deviation burnt_area = firesize(iveg_ag) @@ -138,145 +138,145 @@ subroutine plumerise(m1,m2,m3,ia,iz,ja,jz,firesize,mean_fct & !- check if there is only one fire in a given grid box (=> std =0.) if(plume_frp(p_frp_std) < 1.0e-6) then - !- if yes, we will set it as a 20% of the mean frp as a gross - !estimation - !- of the retrieval uncertainty by the sensors. - !- (we are not taking care about the fire size retrieval) - plume_frp(p_frp_std)=0.2*plume_frp(p_frp_mean) + !- if yes, we will set it as a 20% of the mean frp as a gross + !estimation + !- of the retrieval uncertainty by the sensors. + !- (we are not taking care about the fire size retrieval) + plume_frp(p_frp_std)=0.2*plume_frp(p_frp_mean) endif case default !- no further option implemented - end select - - !- loop nos valores minimo e maximo da taxa de calor - do imm=1,2 - if (plumerise_flag == FIRE_OPT_GBBEPx) then - if(imm==1 ) then - !for imm = 1 => lower injection height - burnt_area = max(1.0e4,plume_frp(p_frp_mean_size) -0.5*plume_frp(p_frp_std_size)) - frp = max(1000.,plume_frp(p_frp_mean) - 0.5*plume_frp(p_frp_std)) - elseif(imm==2 ) then - !for imm = 2 => higher injection height - burnt_area = max(1.0e4,plume_frp(p_frp_mean_size) +0.5*plume_frp(p_frp_std_size)) - frp = max(1000.,plume_frp(p_frp_mean) + 0.5*plume_frp(p_frp_std)) + end select + + !- loop nos valores minimo e maximo da taxa de calor + do imm=1,2 + if (plumerise_flag == FIRE_OPT_GBBEPx) then + if(imm==1 ) then + !for imm = 1 => lower injection height + burnt_area = max(1.0e4,plume_frp(p_frp_mean_size) -0.5*plume_frp(p_frp_std_size)) + frp = max(1000.,plume_frp(p_frp_mean) - 0.5*plume_frp(p_frp_std)) + elseif(imm==2 ) then + !for imm = 2 => higher injection height + burnt_area = max(1.0e4,plume_frp(p_frp_mean_size) +0.5*plume_frp(p_frp_std_size)) + frp = max(1000.,plume_frp(p_frp_mean) + 0.5*plume_frp(p_frp_std)) + endif endif - endif - - !- get fire properties (burned area, plume radius, heating rates ...) - call get_fire_properties(imm,iveg_ag,burnt_area,frp,plumerise_flag) - - !------ generates the plume rise ------ - - !-- only one value for eflux of GRASSLAND - if (plumerise_flag == FIRE_OPT_MODIS) then - if(iveg_ag == 4 .and. imm == 2) then - ztopmax(2)=ztopmax(1) - ztopmax(1)=zzcon(1) - cycle - endif - endif - call makeplume (kmt,ztopmax(imm),ixx,imm) + !- get fire properties (burned area, plume radius, heating rates ...) + call get_fire_properties(imm,iveg_ag,burnt_area,frp,plumerise_flag) - enddo ! enddo do loop em imm + !------ generates the plume rise ------ - !- define o dominio vertical onde a emissao flaming ira ser colocada - call set_flam_vert(ztopmax,k1,k2,nkp,zzcon,W_VMD,VMD) + !-- only one value for eflux of GRASSLAND + if (plumerise_flag == FIRE_OPT_MODIS) then + if(iveg_ag == 4 .and. imm == 2) then + ztopmax(2)=ztopmax(1) + ztopmax(1)=zzcon(1) + cycle + endif + endif - !- espessura da camada vertical - !- distribui a emissao flaming entre os niveis k1 e k2 - dzi= 1./(zzcon(k2+1)-zzcon(k1)) - do k=k1,k2 - !use this in case the emission src is already in mixing ratio - !rhodzi= 1./(dn0(k,i,j) * dz_flam) - !use this in case the emission src is tracer density + call makeplume (kmt,ztopmax(imm),ixx,imm) - do ispc = 1, nspecies + enddo ! enddo do loop em imm - !- get back the smoldering emission in kg/m2 (actually in 1e-9 kg/m2) + !- define o dominio vertical onde a emissao flaming ira ser colocada + call set_flam_vert(ztopmax,k1,k2,nkp,zzcon,W_VMD,VMD) + !- espessura da camada vertical + !- distribui a emissao flaming entre os niveis k1 e k2 + dzi= 1./(zzcon(k2+1)-zzcon(k1)) + do k=k1,k2 !use this in case the emission src is already in mixing ratio - !q_smold_kgm2 = (1/dzt(2) * dn0(2,i,j) )* & - ! chem1_src_g(bburn,ispc,ng)%sc_src(2,i,j) - + !rhodzi= 1./(dn0(k,i,j) * dz_flam) !use this in case the emission src is tracer density - !q_smold_kgm2 = ((zt_rams(2)-zt_rams(1)) )* & - ! eburn_in(ispc) - q_smold_kgm2 = eburn_in(ispc) - ! units = already in ppbm, don't need "fcu" factor - !eburn_out(k,ispc) = eburn_out(k,ispc) +& - ! mean_fct(iveg_ag) *& - ! q_smold_kgm2 * & - ! dzi !use this in case the emission src is tracer density - eburn_out(k,ispc)= eburn_out(k,ispc) + convert_smold_to_flam * q_smold_kgm2 * dzi - enddo + do ispc = 1, nspecies + + !- get back the smoldering emission in kg/m2 (actually in 1e-9 kg/m2) + + !use this in case the emission src is already in mixing ratio + !q_smold_kgm2 = (1/dzt(2) * dn0(2,i,j) )* & + ! chem1_src_g(bburn,ispc,ng)%sc_src(2,i,j) - enddo + !use this in case the emission src is tracer density + !q_smold_kgm2 = ((zt_rams(2)-zt_rams(1)) )* & + ! eburn_in(ispc) + q_smold_kgm2 = eburn_in(ispc) + + ! units = already in ppbm, don't need "fcu" factor + !eburn_out(k,ispc) = eburn_out(k,ispc) +& + ! mean_fct(iveg_ag) *& + ! q_smold_kgm2 * & + ! dzi !use this in case the emission src is tracer density + eburn_out(k,ispc)= eburn_out(k,ispc) + convert_smold_to_flam * q_smold_kgm2 * dzi + enddo + + enddo enddo ! enddo do loop em iveg_ag ! enddo ! loop em i ! enddo ! loop em j -end subroutine plumerise + end subroutine plumerise !------------------------------------------------------------------------- -subroutine get_env_condition(k1,k2,kmt,wind_eff) + subroutine get_env_condition(k1,k2,kmt,wind_eff) !se module_zero_plumegen_coms !use rconstants -implicit none -integer :: k1,k2,k,kcon,klcl,kmt,nk,nkmid,i -real(kind=kind_chem) :: znz,themax,tlll,plll,rlll,zlll,dzdd,dzlll,tlcl,plcl,dzlcl,dummy -integer :: n_setgrid = 0 -integer :: wind_eff - - -if( n_setgrid == 0) then - n_setgrid = 1 - call set_grid ! define vertical grid of plume model - ! zt(k) = thermo and water levels - ! zm(k) = dynamical levels -endif - -znz=zcon(k2) -do k=nkp,1,-1 - if(zt(k).lt.znz)go to 13 -enddo -stop ' envir stop 12' -13 continue + implicit none + integer :: k1,k2,k,kcon,klcl,kmt,nk,nkmid,i + real(kind=kind_chem) :: znz,themax,tlll,plll,rlll,zlll,dzdd,dzlll,tlcl,plcl,dzlcl,dummy + integer :: n_setgrid = 0 + integer :: wind_eff + + + if( n_setgrid == 0) then + n_setgrid = 1 + call set_grid ! define vertical grid of plume model + ! zt(k) = thermo and water levels + ! zm(k) = dynamical levels + endif + + znz=zcon(k2) + do k=nkp,1,-1 + if(zt(k).lt.znz)go to 13 + enddo + stop ' envir stop 12' +13 continue !-srf-mb -kmt=min(k,nkp-1) + kmt=min(k,nkp-1) -nk=k2-k1+1 + nk=k2-k1+1 !call htint(nk, wcon,zzcon,kmt,wpe,zt) - call htint(nk, ucon,zcon,kmt,upe,zt) - call htint(nk, vcon,zcon,kmt,vpe,zt) - call htint(nk,thtcon,zcon,kmt,the ,zt) - call htint(nk, rvcon,zcon,kmt,qvenv,zt) -do k=1,kmt - qvenv(k)=max(qvenv(k),1e-8) -enddo - -pke(1)=picon(1) -do k=1,kmt - thve(k)=the(k)*(1.+.61*qvenv(k)) ! virtual pot temperature -enddo -do k=2,kmt - pke(k)=pke(k-1)-g*2.*(zt(k)-zt(k-1)) & ! exner function - /(thve(k)+thve(k-1)) -enddo -do k=1,kmt - te(k) = the(k)*pke(k)/cp ! temperature (K) - pe(k) = (pke(k)/cp)**cpor*p00 ! pressure (Pa) - dne(k)= pe(k)/(rgas*te(k)*(1.+.61*qvenv(k))) ! dry air density (kg/m3) + call htint(nk, ucon,zcon,kmt,upe,zt) + call htint(nk, vcon,zcon,kmt,vpe,zt) + call htint(nk,thtcon,zcon,kmt,the ,zt) + call htint(nk, rvcon,zcon,kmt,qvenv,zt) + do k=1,kmt + qvenv(k)=max(qvenv(k),1e-8) + enddo + + pke(1)=picon(1) + do k=1,kmt + thve(k)=the(k)*(1.+.61*qvenv(k)) ! virtual pot temperature + enddo + do k=2,kmt + pke(k)=pke(k-1)-g*2.*(zt(k)-zt(k-1)) & ! exner function + /(thve(k)+thve(k-1)) + enddo + do k=1,kmt + te(k) = the(k)*pke(k)/cp ! temperature (K) + pe(k) = (pke(k)/cp)**cpor*p00 ! pressure (Pa) + dne(k)= pe(k)/(rgas*te(k)*(1.+.61*qvenv(k))) ! dry air density (kg/m3) !-srf-mb - vel_e(k) = sqrt(upe(k)**2+vpe(k)**2) !-env wind (m/s) -enddo + vel_e(k) = sqrt(upe(k)**2+vpe(k)**2) !-env wind (m/s) + enddo !-ewe - env wind effect -if(wind_eff < 1) vel_e(1:kmt) = 0. + if(wind_eff < 1) vel_e(1:kmt) = 0. !-use este para gerar o RAMS.out ! ------- print environment state @@ -295,199 +295,199 @@ subroutine get_env_condition(k1,k2,kmt,wind_eff) !--------- converte press de Pa para kPa para uso modelo de plumerise -do k=1,kmt - pe(k) = pe(k)*1.e-3 -enddo + do k=1,kmt + pe(k) = pe(k)*1.e-3 + enddo -return -end subroutine get_env_condition + return + end subroutine get_env_condition !------------------------------------------------------------------------- -subroutine set_grid() -!use module_zero_plumegen_coms -implicit none -integer :: k,mzp - -dz=100. ! set constant grid spacing of plume grid model(meters) - -mzp=nkp -zt(1) = zsurf -zm(1) = zsurf -zt(2) = zt(1) + 0.5*dz -zm(2) = zm(1) + dz -do k=3,mzp - zt(k) = zt(k-1) + dz ! thermo and water levels - zm(k) = zm(k-1) + dz ! dynamical levels -enddo -do k = 1,mzp-1 - dzm(k) = 1. / (zt(k+1) - zt(k)) -enddo -dzm(mzp)=dzm(mzp-1) - -do k = 2,mzp - dzt(k) = 1. / (zm(k) - zm(k-1)) -enddo -dzt(1) = dzt(2) * dzt(2) / dzt(3) - + subroutine set_grid() +!use module_zero_plumegen_coms + implicit none + integer :: k,mzp + + dz=100. ! set constant grid spacing of plume grid model(meters) + + mzp=nkp + zt(1) = zsurf + zm(1) = zsurf + zt(2) = zt(1) + 0.5*dz + zm(2) = zm(1) + dz + do k=3,mzp + zt(k) = zt(k-1) + dz ! thermo and water levels + zm(k) = zm(k-1) + dz ! dynamical levels + enddo + do k = 1,mzp-1 + dzm(k) = 1. / (zt(k+1) - zt(k)) + enddo + dzm(mzp)=dzm(mzp-1) + + do k = 2,mzp + dzt(k) = 1. / (zm(k) - zm(k-1)) + enddo + dzt(1) = dzt(2) * dzt(2) / dzt(3) + ! dzm(1) = 0.5/dz ! dzm(2:mzp) = 1./dz -return -end subroutine set_grid + return + end subroutine set_grid !------------------------------------------------------------------------- - SUBROUTINE set_flam_vert(ztopmax,k1,k2,nkp,zzcon,W_VMD,VMD) - - REAL(kind=kind_chem) , INTENT(IN) :: ztopmax(2) - INTEGER , INTENT(OUT) :: k1 - INTEGER , INTENT(OUT) :: k2 - - ! plumegen_coms - INTEGER , INTENT(IN) :: nkp - REAL(kind=kind_chem) , INTENT(IN) :: zzcon(nkp) - - INTEGER imm,k - INTEGER, DIMENSION(2) :: k_lim - - !- version 2 - REAL(kind=kind_chem) , INTENT(IN) :: W_VMD(nkp,2) - REAL(kind=kind_chem) , INTENT(OUT) :: VMD(nkp,2) - real(kind=kind_chem) w_thresold,xxx - integer k_initial,k_final,ko,kk4,kl - - !- version 1 - DO imm=1,2 - ! checar - ! do k=1,m1-1 - DO k=1,nkp-1 - IF(zzcon(k) > ztopmax(imm) ) EXIT - ENDDO - k_lim(imm) = k - ENDDO - k1=MAX(3,k_lim(1)) - k2=MAX(3,k_lim(2)) - - IF(k2 < k1) THEN - k2=k1 - !stop 1234 - ENDIF - - !- version 2 - !- vertical mass distribution - !- - w_thresold = 1. - DO imm=1,2 - - - VMD(1:nkp,imm)= 0. - xxx=0. - k_initial= 0 - k_final = 0 - - !- define range of the upper detrainemnt layer - do ko=nkp-10,2,-1 - - if(w_vmd(ko,imm) < w_thresold) cycle - - if(k_final==0) k_final=ko - - if(w_vmd(ko,imm)-1. > w_vmd(ko-1,imm)) then - k_initial=ko - exit - endif - - enddo - !- if there is a non zero depth layer, make the mass vertical distribution - if(k_final > 0 .and. k_initial > 0) then - - k_initial=int((k_final+k_initial)*0.5) - - !- parabolic vertical distribution between k_initial and k_final - kk4 = k_final-k_initial+2 - do ko=1,kk4-1 + SUBROUTINE set_flam_vert(ztopmax,k1,k2,nkp,zzcon,W_VMD,VMD) + + REAL(kind=kind_chem) , INTENT(IN) :: ztopmax(2) + INTEGER , INTENT(OUT) :: k1 + INTEGER , INTENT(OUT) :: k2 + + ! plumegen_coms + INTEGER , INTENT(IN) :: nkp + REAL(kind=kind_chem) , INTENT(IN) :: zzcon(nkp) + + INTEGER imm,k + INTEGER, DIMENSION(2) :: k_lim + + !- version 2 + REAL(kind=kind_chem) , INTENT(IN) :: W_VMD(nkp,2) + REAL(kind=kind_chem) , INTENT(OUT) :: VMD(nkp,2) + real(kind=kind_chem) w_thresold,xxx + integer k_initial,k_final,ko,kk4,kl + + !- version 1 + DO imm=1,2 + ! checar + ! do k=1,m1-1 + DO k=1,nkp-1 + IF(zzcon(k) > ztopmax(imm) ) EXIT + ENDDO + k_lim(imm) = k + ENDDO + k1=MAX(3,k_lim(1)) + k2=MAX(3,k_lim(2)) + + IF(k2 < k1) THEN + k2=k1 + !stop 1234 + ENDIF + + !- version 2 + !- vertical mass distribution + !- + w_thresold = 1. + DO imm=1,2 + + + VMD(1:nkp,imm)= 0. + xxx=0. + k_initial= 0 + k_final = 0 + + !- define range of the upper detrainemnt layer + do ko=nkp-10,2,-1 + + if(w_vmd(ko,imm) < w_thresold) cycle + + if(k_final==0) k_final=ko + + if(w_vmd(ko,imm)-1. > w_vmd(ko-1,imm)) then + k_initial=ko + exit + endif + + enddo + !- if there is a non zero depth layer, make the mass vertical distribution + if(k_final > 0 .and. k_initial > 0) then + + k_initial=int((k_final+k_initial)*0.5) + + !- parabolic vertical distribution between k_initial and k_final + kk4 = k_final-k_initial+2 + do ko=1,kk4-1 kl=ko+k_initial-1 VMD(kl,imm) = 6.* float(ko)/float(kk4)**2 * (1. - float(ko)/float(kk4)) - enddo - if(sum(VMD(1:NKP,imm)) .ne. 1.) then - xxx= ( 1.- sum(VMD(1:NKP,imm)) )/float(k_final-k_initial+1) - do ko=k_initial,k_final - VMD(ko,imm) = VMD(ko,imm)+ xxx !- values between 0 and 1. enddo + if(sum(VMD(1:NKP,imm)) .ne. 1.) then + xxx= ( 1.- sum(VMD(1:NKP,imm)) )/float(k_final-k_initial+1) + do ko=k_initial,k_final + VMD(ko,imm) = VMD(ko,imm)+ xxx !- values between 0 and 1. + enddo !pause - endif - endif !k_final > 0 .and. k_initial > + endif + endif !k_final > 0 .and. k_initial > + + ENDDO - ENDDO - - END SUBROUTINE set_flam_vert + END SUBROUTINE set_flam_vert !------------------------------------------------------------------------- -subroutine get_fire_properties(imm,iveg_ag,burnt_area,frp,plumerise_flag) + subroutine get_fire_properties(imm,iveg_ag,burnt_area,frp,plumerise_flag) -implicit none + implicit none ! arguments -integer, intent(in) :: imm, iveg_ag, plumerise_flag -real(kind=kind_chem), intent(in) :: burnt_area, frp + integer, intent(in) :: imm, iveg_ag, plumerise_flag + real(kind=kind_chem), intent(in) :: burnt_area, frp ! local variables -integer :: i, icount, moist -real(kind=kind_chem) :: bfract, effload, heat, hinc, heat_fluxW -real(kind=kind_chem), dimension(2,4) :: heat_flux + integer :: i, icount, moist + real(kind=kind_chem) :: bfract, effload, heat, hinc, heat_fluxW + real(kind=kind_chem), dimension(2,4) :: heat_flux ! local parameters -integer, parameter :: use_last = 0 -real(kind=kind_chem), parameter :: beta = 0.88 !ref.: Paugam et al., 2015 FRP + integer, parameter :: use_last = 0 + real(kind=kind_chem), parameter :: beta = 0.88 !ref.: Paugam et al., 2015 FRP -data heat_flux/ & + data heat_flux/ & !--------------------------------------------------------------------- ! heat flux !IGBP Land Cover ! ! min ! max !Legend and ! reference ! kW/m^2 !description ! !-------------------------------------------------------------------- - 30.0, 80.0, &! Tropical Forest ! igbp 2 & 4 - 30.0, 80.0, &! Boreal forest ! igbp 1 & 3 - 4.4, 23.0, &! cerrado/woody savanna | igbp 5 thru 9 - 3.3, 3.3 /! Grassland/cropland ! igbp 10 thru 17 + 30.0, 80.0, &! Tropical Forest ! igbp 2 & 4 + 30.0, 80.0, &! Boreal forest ! igbp 1 & 3 + 4.4, 23.0, &! cerrado/woody savanna | igbp 5 thru 9 + 3.3, 3.3 /! Grassland/cropland ! igbp 10 thru 17 !-------------------------------------------------------------------- !-- fire at the surface ! !area = 20.e+4 ! area of burn, m^2 -area = burnt_area! area of burn, m^2 - -select case (plumerise_flag) - case (FIRE_OPT_MODIS) - !fluxo de calor para o bioma - heat_fluxW = heat_flux(imm,iveg_ag) * 1000. ! converte para W/m^2 - case (FIRE_OPT_GBBEPx) - ! "beta" factor converts FRP to convective energy - heat_fluxW = beta*(frp/area)/0.55 ! in W/m^2 - case default - ! no further option implemented -end select - -mdur = 53 ! duration of burn, minutes -bload = 10. ! total loading, kg/m**2 -moist = 10 ! fuel moisture, %. average fuel moisture,percent dry -maxtime =mdur+2 ! model time, min -!heat = 21.e6 !- joules per kg of fuel consumed + area = burnt_area! area of burn, m^2 + + select case (plumerise_flag) + case (FIRE_OPT_MODIS) + !fluxo de calor para o bioma + heat_fluxW = heat_flux(imm,iveg_ag) * 1000. ! converte para W/m^2 + case (FIRE_OPT_GBBEPx) + ! "beta" factor converts FRP to convective energy + heat_fluxW = beta*(frp/area)/0.55 ! in W/m^2 + case default + ! no further option implemented + end select + + mdur = 53 ! duration of burn, minutes + bload = 10. ! total loading, kg/m**2 + moist = 10 ! fuel moisture, %. average fuel moisture,percent dry + maxtime =mdur+2 ! model time, min +!heat = 21.e6 !- joules per kg of fuel consumed !heat = 15.5e6 !joules/kg - cerrado -heat = 19.3e6 !joules/kg - floresta em alta floresta (mt) + heat = 19.3e6 !joules/kg - floresta em alta floresta (mt) !alpha = 0.1 !- entrainment constant -alpha = 0.05 !- entrainment constant + alpha = 0.05 !- entrainment constant !-------------------- printout ---------------------------------------- -!!WRITE ( * , * ) ' SURFACE =', ZSURF, 'M', ' LCL =', ZBASE, 'M' +!!WRITE ( * , * ) ' SURFACE =', ZSURF, 'M', ' LCL =', ZBASE, 'M' ! !PRINT*,'=======================================================' -!print * , ' FIRE BOUNDARY CONDITION :' -!print * , ' DURATION OF BURN, MINUTES =',MDUR +!print * , ' FIRE BOUNDARY CONDITION :' +!print * , ' DURATION OF BURN, MINUTES =',MDUR !print * , ' AREA OF BURN, HA =',AREA*1.e-4 !print * , ' HEAT FLUX, kW/m^2 =',heat_fluxW*1.e-3 -!print * , ' TOTAL LOADING, KG/M**2 =',BLOAD +!print * , ' TOTAL LOADING, KG/M**2 =',BLOAD !print * , ' FUEL MOISTURE, % =',MOIST !average fuel moisture,percent dry !print * , ' MODEL TIME, MIN. =',MAXTIME ! @@ -495,14 +495,14 @@ subroutine get_fire_properties(imm,iveg_ag,burnt_area,frp,plumerise_flag) ! ! ******************** fix up inputs ********************************* ! - + !IF (MOD (MAXTIME, 2) .NE.0) MAXTIME = MAXTIME+1 !make maxtime even - -MAXTIME = MAXTIME * 60 ! and put in seconds + + MAXTIME = MAXTIME * 60 ! and put in seconds ! -RSURF = SQRT (AREA / 3.14159) !- entrainment surface radius (m) + RSURF = SQRT (AREA / 3.14159) !- entrainment surface radius (m) -FMOIST = MOIST / 100. !- fuel moisture fraction + FMOIST = MOIST / 100. !- fuel moisture fraction ! ! ! calculate the energy flux and water content at lboundary. @@ -510,59 +510,59 @@ subroutine get_fire_properties(imm,iveg_ag,burnt_area,frp,plumerise_flag) ! in the program. whatever is input has to be adjusted to a one ! minute timescale. ! - - DO I = 1, ntime !- make sure of energy release - HEATING (I) = 0.0001 !- avoid possible divide by 0 - enddo -! - TDUR = MDUR * 60. !- number of seconds in the burn - bfract = 1. !- combustion factor + DO I = 1, ntime !- make sure of energy release + HEATING (I) = 0.0001 !- avoid possible divide by 0 + enddo +! + TDUR = MDUR * 60. !- number of seconds in the burn + + bfract = 1. !- combustion factor + + EFFLOAD = BLOAD * BFRACT !- patchy burning - EFFLOAD = BLOAD * BFRACT !- patchy burning - ! spread the burning evenly over the interval ! except for the first few minutes for stability - ICOUNT = 1 + ICOUNT = 1 ! - if(MDUR > NTIME) STOP 'Increase time duration (ntime) in min - see file "plumerise_mod.f90"' + if(MDUR > NTIME) STOP 'Increase time duration (ntime) in min - see file "plumerise_mod.f90"' - DO WHILE (ICOUNT.LE.MDUR) -! HEATING (ICOUNT) = HEAT * EFFLOAD / TDUR ! W/m**2 -! HEATING (ICOUNT) = 80000. * 0.55 ! W/m**2 + DO WHILE (ICOUNT.LE.MDUR) +! HEATING (ICOUNT) = HEAT * EFFLOAD / TDUR ! W/m**2 +! HEATING (ICOUNT) = 80000. * 0.55 ! W/m**2 - HEATING (ICOUNT) = heat_fluxW * 0.55 ! W/m**2 (0.55 converte para energia convectiva) - ICOUNT = ICOUNT + 1 - ENDDO + HEATING (ICOUNT) = heat_fluxW * 0.55 ! W/m**2 (0.55 converte para energia convectiva) + ICOUNT = ICOUNT + 1 + ENDDO ! ramp for 5 minutes - IF(use_last /= 1) THEN - - HINC = HEATING (1) / 4. - HEATING (1) = 0.1 - HEATING (2) = HINC - HEATING (3) = 2. * HINC - HEATING (4) = 3. * HINC - ELSE - IF(imm==1) THEN - HINC = HEATING (1) / 4. - HEATING (1) = 0.1 - HEATING (2) = HINC - HEATING (3) = 2. * HINC - HEATING (4) = 3. * HINC - ELSE - HINC = (HEATING (1) - heat_flux(imm-1,iveg_ag) * 1000. *0.55)/ 4. - HEATING (1) = heat_flux(imm-1,iveg_ag) * 1000. *0.55 + 0.1 - HEATING (2) = HEATING (1)+ HINC - HEATING (3) = HEATING (2)+ HINC - HEATING (4) = HEATING (3)+ HINC - ENDIF - ENDIF - -return -end subroutine get_fire_properties + IF(use_last /= 1) THEN + + HINC = HEATING (1) / 4. + HEATING (1) = 0.1 + HEATING (2) = HINC + HEATING (3) = 2. * HINC + HEATING (4) = 3. * HINC + ELSE + IF(imm==1) THEN + HINC = HEATING (1) / 4. + HEATING (1) = 0.1 + HEATING (2) = HINC + HEATING (3) = 2. * HINC + HEATING (4) = 3. * HINC + ELSE + HINC = (HEATING (1) - heat_flux(imm-1,iveg_ag) * 1000. *0.55)/ 4. + HEATING (1) = heat_flux(imm-1,iveg_ag) * 1000. *0.55 + 0.1 + HEATING (2) = HEATING (1)+ HINC + HEATING (3) = HEATING (2)+ HINC + HEATING (4) = HEATING (3)+ HINC + ENDIF + ENDIF + + return + end subroutine get_fire_properties !------------------------------------------------------------------------------- ! -SUBROUTINE MAKEPLUME ( kmt,ztopmax,ixx,imm) + SUBROUTINE MAKEPLUME ( kmt,ztopmax,ixx,imm) ! ! ********************************************************************* ! @@ -621,21 +621,21 @@ SUBROUTINE MAKEPLUME ( kmt,ztopmax,ixx,imm) ! ! !********************************************************************** -!********************************************************************** -!use module_zero_plumegen_coms -implicit none -!logical :: endspace -character (len=10) :: varn -integer :: izprint, iconv, itime, k, kk, kkmax, deltak,ilastprint,kmt & - ,ixx,nrectotal,i_micro,n_sub_step -real(kind=kind_chem) :: vc, g, r, cp, eps, & +!********************************************************************** +!use module_zero_plumegen_coms + implicit none +!logical :: endspace + character (len=10) :: varn + integer :: izprint, iconv, itime, k, kk, kkmax, deltak,ilastprint,kmt & + ,ixx,nrectotal,i_micro,n_sub_step + real(kind=kind_chem) :: vc, g, r, cp, eps, & tmelt, heatsubl, heatfus, heatcond, tfreeze, & ztopmax, wmax, rmaxtime, es, esat, heat,dt_save !ESAT_PR, -character (len=2) :: cixx + character (len=2) :: cixx ! Set threshold to be the same as dz=100., the constant grid spacing of plume grid model(meters) found in set_grid() - REAL(kind=kind_chem) :: DELZ_THRESOLD = 100. + REAL(kind=kind_chem) :: DELZ_THRESOLD = 100. - INTEGER :: imm + INTEGER :: imm ! real(kind=kind_chem), external:: esat_pr! ! @@ -644,229 +644,229 @@ SUBROUTINE MAKEPLUME ( kmt,ztopmax,ixx,imm) ! XNO=10.0E06 median volume diameter raindrop (K table 4) ! VC = 38.3/(XNO**.125) mean volume fallspeed eqn. (K) ! -parameter (vc = 5.107387) -parameter (g = 9.80796, r = 287.04, cp = 1004., eps = 0.622, tmelt = 273.3) -parameter (heatsubl = 2.834e6, heatfus = 3.34e5, heatcond = 2.501e6) -parameter (tfreeze = 269.3) + parameter (vc = 5.107387) + parameter (g = 9.80796, r = 287.04, cp = 1004., eps = 0.622, tmelt = 273.3) + parameter (heatsubl = 2.834e6, heatfus = 3.34e5, heatcond = 2.501e6) + parameter (tfreeze = 269.3) ! -tstpf = 2.0 !- timestep factor -viscosity = 500.!- viscosity constant (original value: 0.001) + tstpf = 2.0 !- timestep factor + viscosity = 500.!- viscosity constant (original value: 0.001) -nrectotal=150 + nrectotal=150 ! !*************** PROBLEM SETUP AND INITIAL CONDITIONS ***************** -mintime = 1 -ztopmax = 0. -ztop = 0. - time = 0. - dt = 1. - wmax = 1. -kkmax = 10 -deltaK = 20 -ilastprint=0 -L = 1 ! L initialization + mintime = 1 + ztopmax = 0. + ztop = 0. + time = 0. + dt = 1. + wmax = 1. + kkmax = 10 + deltaK = 20 + ilastprint=0 + L = 1 ! L initialization !--- initialization -CALL INITIAL(kmt) + CALL INITIAL(kmt) !--- initial print fields: -izprint = 0 ! if = 0 => no printout -if (izprint.ne.0) then - write(cixx(1:2),'(i2.2)') ixx - open(2, file = 'debug.'//cixx//'.dat') - open(19,file='plumegen9.'//cixx//'.gra', & - form='unformatted',access='direct',status='unknown', & - recl=4*nrectotal) !PC + izprint = 0 ! if = 0 => no printout + if (izprint.ne.0) then + write(cixx(1:2),'(i2.2)') ixx + open(2, file = 'debug.'//cixx//'.dat') + open(19,file='plumegen9.'//cixx//'.gra', & + form='unformatted',access='direct',status='unknown', & + recl=4*nrectotal) !PC ! recl=1*nrectotal) !sx6 e tupay - call printout (izprint,nrectotal) - ilastprint=2 -endif + call printout (izprint,nrectotal) + ilastprint=2 + endif ! ******************* model evolution ****************************** -rmaxtime = float(maxtime) + rmaxtime = float(maxtime) ! - DO WHILE (TIME.LE.RMAXTIME) !beginning of time loop + DO WHILE (TIME.LE.RMAXTIME) !beginning of time loop ! do itime=1,120 !-- set model top integration - nm1 = min(kmt, kkmax + deltak) + nm1 = min(kmt, kkmax + deltak) !-- set timestep - !dt = (zm(2)-zm(1)) / (tstpf * wmax) - dt = min(5.,(zm(2)-zm(1)) / (tstpf * wmax)) + !dt = (zm(2)-zm(1)) / (tstpf * wmax) + dt = min(5.,(zm(2)-zm(1)) / (tstpf * wmax)) !-- elapsed time, sec - time = time+dt + time = time+dt !-- elapsed time, minutes - mintime = 1 + int (time) / 60 - wmax = 1. !no zeroes allowed. + mintime = 1 + int (time) / 60 + wmax = 1. !no zeroes allowed. !************************** BEGIN SPACE LOOP ************************** !-- zerout all model tendencies - call tend0_plumerise + call tend0_plumerise !-- bounday conditions (k=1) - L=1 - call lbound() + L=1 + call lbound() -!-- dynamics for the level k>1 -!-- W advection +!-- dynamics for the level k>1 +!-- W advection ! call vel_advectc_plumerise(NM1,WC,WT,DNE,DZM) - call vel_advectc_plumerise(NM1,WC,WT,RHO,DZM) - + call vel_advectc_plumerise(NM1,WC,WT,RHO,DZM) + !-- scalars advection 1 - call scl_advectc_plumerise('SC',NM1) + call scl_advectc_plumerise('SC',NM1) !-- scalars advection 2 - !call scl_advectc_plumerise2('SC',NM1) + !call scl_advectc_plumerise2('SC',NM1) !-- scalars entrainment, adiabatic - call scl_misc(NM1) - + call scl_misc(NM1) + !-- scalars dinamic entrainment - call scl_dyn_entrain(NM1,nkp,wbar,w,adiabat,alpha,radius,tt,t,te,qvt,qv,qvenv,qct,qc,qht,qh,qit,qi,& - vel_e,vel_p,vel_t,rad_p,rad_t) + call scl_dyn_entrain(NM1,nkp,wbar,w,adiabat,alpha,radius,tt,t,te,qvt,qv,qvenv,qct,qc,qht,qh,qit,qi,& + vel_e,vel_p,vel_t,rad_p,rad_t) !-- gravity wave damping using Rayleigh friction layer fot T - call damp_grav_wave(1,nm1,deltak,dt,zt,zm,w,t,tt,qv,qh,qi,qc,te,pe,qvenv) + call damp_grav_wave(1,nm1,deltak,dt,zt,zm,w,t,tt,qv,qh,qi,qc,te,pe,qvenv) !-- microphysics ! goto 101 ! bypass microphysics - dt_save=dt - n_sub_step=3 - dt=dt/float(n_sub_step) + dt_save=dt + n_sub_step=3 + dt=dt/float(n_sub_step) - do i_micro=1,n_sub_step + do i_micro=1,n_sub_step !-- sedim ? - call fallpart(NM1) + call fallpart(NM1) !-- microphysics - do L=2,nm1-1 - WBAR = 0.5*(W(L)+W(L-1)) - ES = ESAT_PR (T(L)) !BLOB SATURATION VAPOR PRESSURE, EM KPA - QSAT(L) = (EPS * ES) / (PE(L) - ES) !BLOB SATURATION LWC G/G DRY AIR - EST (L) = ES - RHO (L) = 3483.8 * PE (L) / T (L) ! AIR PARCEL DENSITY , G/M**3 + do L=2,nm1-1 + WBAR = 0.5*(W(L)+W(L-1)) + ES = ESAT_PR (T(L)) !BLOB SATURATION VAPOR PRESSURE, EM KPA + QSAT(L) = (EPS * ES) / (PE(L) - ES) !BLOB SATURATION LWC G/G DRY AIR + EST (L) = ES + RHO (L) = 3483.8 * PE (L) / T (L) ! AIR PARCEL DENSITY , G/M**3 !srf18jun2005 ! IF (W(L) .ge. 0.) DQSDZ = (QSAT(L ) - QSAT(L-1)) / (ZT(L ) -ZT(L-1)) ! IF (W(L) .lt. 0.) DQSDZ = (QSAT(L+1) - QSAT(L )) / (ZT(L+1) -ZT(L )) - IF (W(L) .ge. 0.) then - DQSDZ = (QSAT(L+1) - QSAT(L-1)) / (ZT(L+1 )-ZT(L-1)) - ELSE - DQSDZ = (QSAT(L+1) - QSAT(L-1)) / (ZT(L+1) -ZT(L-1)) - ENDIF + IF (W(L) .ge. 0.) then + DQSDZ = (QSAT(L+1) - QSAT(L-1)) / (ZT(L+1 )-ZT(L-1)) + ELSE + DQSDZ = (QSAT(L+1) - QSAT(L-1)) / (ZT(L+1) -ZT(L-1)) + ENDIF - call waterbal - enddo - enddo - dt=dt_save + call waterbal + enddo + enddo + dt=dt_save ! ! 101 continue ! -!-- W-viscosity for stability - call visc_W(nm1,deltak,kmt) +!-- W-viscosity for stability + call visc_W(nm1,deltak,kmt) !-- update scalars - call update_plumerise(nm1,'S') - - call hadvance_plumerise(1,nm1,dt,WC,WT,W,mintime) + call update_plumerise(nm1,'S') + + call hadvance_plumerise(1,nm1,dt,WC,WT,W,mintime) !-- Buoyancy - call buoyancy_plumerise(NM1, T, TE, QV, QVENV, QH, QI, QC, WT, SCR1) - -!-- Entrainment - call entrainment(NM1,W,WT,RADIUS,ALPHA) + call buoyancy_plumerise(NM1, T, TE, QV, QVENV, QH, QI, QC, WT, SCR1) + +!-- Entrainment + call entrainment(NM1,W,WT,RADIUS,ALPHA) !-- update W - call update_plumerise(nm1,'W') + call update_plumerise(nm1,'W') - call hadvance_plumerise(2,nm1,dt,WC,WT,W,mintime) + call hadvance_plumerise(2,nm1,dt,WC,WT,W,mintime) !-- misc - do k=2,nm1 + do k=2,nm1 ! pe esta em kpa - esat do rams esta em mbar = 100 Pa = 0.1 kpa ! es = 0.1*esat (t(k)) !blob saturation vapor pressure, em kPa ! rotina do plumegen calcula em kPa - es = esat_pr (t(k)) !blob saturation vapor pressure, em kPa - qsat(k) = (eps * es) / (pe(k) - es) !blob saturation lwc g/g dry air - est (k) = es - txs (k) = t(k) - te(k) - rho (k) = 3483.8 * pe (k) / t (k) ! air parcel density , g/m**3 - ! no pressure diff with radius + es = esat_pr (t(k)) !blob saturation vapor pressure, em kPa + qsat(k) = (eps * es) / (pe(k) - es) !blob saturation lwc g/g dry air + est (k) = es + txs (k) = t(k) - te(k) + rho (k) = 3483.8 * pe (k) / t (k) ! air parcel density , g/m**3 + ! no pressure diff with radius - if((abs(wc(k))).gt.wmax) wmax = abs(wc(k)) ! keep wmax largest w - enddo + if((abs(wc(k))).gt.wmax) wmax = abs(wc(k)) ! keep wmax largest w + enddo ! Gravity wave damping using Rayleigh friction layer for W - call damp_grav_wave(2,nm1,deltak,dt,zt,zm,w,t,tt,qv,qh,qi,qc,te,pe,qvenv) + call damp_grav_wave(2,nm1,deltak,dt,zt,zm,w,t,tt,qv,qh,qi,qc,te,pe,qvenv) !--- - !- update radius - do k=2,nm1 - radius(k) = rad_p(k) - enddo - !-- try to find the plume top (above surface height) - kk = 1 - DO WHILE (w (kk) .GT. 1.) - kk = kk + 1 - ztop = zm(kk) - ENDDO - ! - ztop_(mintime) = ztop - ztopmax = MAX (ztop, ztopmax) - kkmax = MAX (kk , kkmax ) - - ! - ! if the solution is going to a stationary phase, exit - IF(mintime > 10) THEN - ! if(mintime > 20) then - ! if( abs(ztop_(mintime)-ztop_(mintime-10)) < DZ ) exit - IF( ABS(ztop_(mintime)-ztop_(mintime-10)) < DELZ_THRESOLD) then - - !- determine W parameter to determine the VMD - do k=2,nm1 - W_VMD(k,imm) = w(k) - enddo - EXIT ! finish the integration - ENDIF - ENDIF - IF(ztop_(mintime) < ztopmax) THEN - do k=2,nm1 - W_VMD(k,imm) = wpass(k) - enddo - EXIT ! finish the integration - ENDIF - do k=2, nm1 - wpass(k)=w(k) - enddo - - if(ilastprint == mintime) then - call printout (izprint,nrectotal) - ilastprint = mintime+1 - endif - - -ENDDO !do next timestep + !- update radius + do k=2,nm1 + radius(k) = rad_p(k) + enddo + !-- try to find the plume top (above surface height) + kk = 1 + DO WHILE (w (kk) .GT. 1.) + kk = kk + 1 + ztop = zm(kk) + ENDDO + ! + ztop_(mintime) = ztop + ztopmax = MAX (ztop, ztopmax) + kkmax = MAX (kk , kkmax ) + + ! + ! if the solution is going to a stationary phase, exit + IF(mintime > 10) THEN + ! if(mintime > 20) then + ! if( abs(ztop_(mintime)-ztop_(mintime-10)) < DZ ) exit + IF( ABS(ztop_(mintime)-ztop_(mintime-10)) < DELZ_THRESOLD) then + + !- determine W parameter to determine the VMD + do k=2,nm1 + W_VMD(k,imm) = w(k) + enddo + EXIT ! finish the integration + ENDIF + ENDIF + IF(ztop_(mintime) < ztopmax) THEN + do k=2,nm1 + W_VMD(k,imm) = wpass(k) + enddo + EXIT ! finish the integration + ENDIF + do k=2, nm1 + wpass(k)=w(k) + enddo + + if(ilastprint == mintime) then + call printout (izprint,nrectotal) + ilastprint = mintime+1 + endif + + + ENDDO !do next timestep !the last printout -if (izprint.ne.0) then - call printout (izprint,nrectotal) - close (2) - close (19) -endif - -RETURN -END SUBROUTINE MAKEPLUME + if (izprint.ne.0) then + call printout (izprint,nrectotal) + close (2) + close (19) + endif + + RETURN + END SUBROUTINE MAKEPLUME !------------------------------------------------------------------------------- ! -SUBROUTINE BURN(EFLUX, WATER) + SUBROUTINE BURN(EFLUX, WATER) ! !- calculates the energy flux and water content at lboundary -!use module_zero_plumegen_coms +!use module_zero_plumegen_coms !real(kind=kind_chem), parameter :: HEAT = 21.E6 !Joules/kg !real(kind=kind_chem), parameter :: HEAT = 15.5E6 !Joules/kg - cerrado -real(kind=kind_chem), parameter :: HEAT = 19.3E6 !Joules/kg - floresta em Alta Floresta (MT) -real(kind=kind_chem) :: eflux,water + real(kind=kind_chem), parameter :: HEAT = 19.3E6 !Joules/kg - floresta em Alta Floresta (MT) + real(kind=kind_chem) :: eflux,water ! ! The emission factor for water is 0.5. The water produced, in kg, ! is then fuel mass*0.5 + (moist/100)*mass per square meter. @@ -874,25 +874,25 @@ SUBROUTINE BURN(EFLUX, WATER) ! fuel burned is AREA*BLOAD*(DT/TDUR) kg. this amount of fuel is ! considered to be spread over area AREA and so the mass burned per ! unit area is BLOAD*(DT/TDUR), and the rate is BLOAD/TDUR. -! -IF (TIME.GT.TDUR) THEN !is the burn over? - EFLUX = 0.000001 !prevent a potential divide by zero - WATER = 0. - RETURN -ELSE -! - EFLUX = HEATING (MINTIME) ! Watts/m**2 -! WATER = EFLUX * (DT / HEAT) * (0.5 + FMOIST) ! kg/m**2 - WATER = EFLUX * (DT / HEAT) * (0.5 + FMOIST) /0.55 ! kg/m**2 - WATER = WATER * 1000. ! g/m**2 -! -ENDIF -! -RETURN -END SUBROUTINE BURN +! + IF (TIME.GT.TDUR) THEN !is the burn over? + EFLUX = 0.000001 !prevent a potential divide by zero + WATER = 0. + RETURN + ELSE +! + EFLUX = HEATING (MINTIME) ! Watts/m**2 +! WATER = EFLUX * (DT / HEAT) * (0.5 + FMOIST) ! kg/m**2 + WATER = EFLUX * (DT / HEAT) * (0.5 + FMOIST) /0.55 ! kg/m**2 + WATER = WATER * 1000. ! g/m**2 +! + ENDIF +! + RETURN + END SUBROUTINE BURN !------------------------------------------------------------------------------- ! -SUBROUTINE LBOUND () + SUBROUTINE LBOUND () ! ! ********** BOUNDARY CONDITIONS AT ZSURF FOR PLUME AND CLOUD ******** ! @@ -907,274 +907,274 @@ SUBROUTINE LBOUND () ! QC(1). ! EFLUX = energy flux at ground,watt/m**2 for the last DT ! -!use module_zero_plumegen_coms -implicit none -real(kind=kind_chem), parameter :: g = 9.80796, r = 287.04, cp = 1004.6, eps = 0.622,tmelt = 273.3 -real(kind=kind_chem), parameter :: tfreeze = 269.3, pi = 3.14159, e1 = 1./3., e2 = 5./3. -real(kind=kind_chem) :: es, esat, eflux, water, pres, c1, c2, f, zv, denscor, xwater !,ESAT_PR +!use module_zero_plumegen_coms + implicit none + real(kind=kind_chem), parameter :: g = 9.80796, r = 287.04, cp = 1004.6, eps = 0.622,tmelt = 273.3 + real(kind=kind_chem), parameter :: tfreeze = 269.3, pi = 3.14159, e1 = 1./3., e2 = 5./3. + real(kind=kind_chem) :: es, esat, eflux, water, pres, c1, c2, f, zv, denscor, xwater !,ESAT_PR ! real(kind=kind_chem), external:: esat_pr! -! -QH (1) = QH (2) !soak up hydrometeors -QI (1) = QI (2) -QC (1) = 0. !no cloud here +! + QH (1) = QH (2) !soak up hydrometeors + QI (1) = QI (2) + QC (1) = 0. !no cloud here ! ! - CALL BURN (EFLUX, WATER) + CALL BURN (EFLUX, WATER) ! ! calculate parameters at boundary from a virtual buoyancy point source ! - PRES = PE (1) * 1000. !need pressure in N/m**2 - - C1 = 5. / (6. * ALPHA) !alpha is entrainment constant + PRES = PE (1) * 1000. !need pressure in N/m**2 + + C1 = 5. / (6. * ALPHA) !alpha is entrainment constant + + C2 = 0.9 * ALPHA + + F = EFLUX / (PRES * CP * PI) - C2 = 0.9 * ALPHA + F = G * R * F * AREA !buoyancy flux - F = EFLUX / (PRES * CP * PI) - - F = G * R * F * AREA !buoyancy flux - - ZV = C1 * RSURF !virtual boundary height - - W (1) = C1 * ( (C2 * F) **E1) / ZV**E1 !boundary velocity - - DENSCOR = C1 * F / G / (C2 * F) **E1 / ZV**E2 !density correction + ZV = C1 * RSURF !virtual boundary height + + W (1) = C1 * ( (C2 * F) **E1) / ZV**E1 !boundary velocity + + DENSCOR = C1 * F / G / (C2 * F) **E1 / ZV**E2 !density correction + + T (1) = TE (1) / (1. - DENSCOR) !temperature of virtual plume at zsurf - T (1) = TE (1) / (1. - DENSCOR) !temperature of virtual plume at zsurf - ! - WC(1) = W(1) - VEL_P(1) = 0. - rad_p(1) = rsurf + WC(1) = W(1) + VEL_P(1) = 0. + rad_p(1) = rsurf - !SC(1) = SCE(1)+F/1000.*dt ! gas/particle (g/g) + !SC(1) = SCE(1)+F/1000.*dt ! gas/particle (g/g) ! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ! match dw/dz,dt/dz at the boundary. F is conserved. ! - !WBAR = W (1) * (1. - 1. / (6. * ZV) ) - !ADVW = WBAR * W (1) / (3. * ZV) - !ADVT = WBAR * (5. / (3. * ZV) ) * (DENSCOR / (1. - DENSCOR) ) - !ADVC = 0. - !ADVH = 0. - !ADVI = 0. - !ADIABAT = - WBAR * G / CP - VTH (1) = - 4. - VTI (1) = - 3. - TXS (1) = T (1) - TE (1) + !WBAR = W (1) * (1. - 1. / (6. * ZV) ) + !ADVW = WBAR * W (1) / (3. * ZV) + !ADVT = WBAR * (5. / (3. * ZV) ) * (DENSCOR / (1. - DENSCOR) ) + !ADVC = 0. + !ADVH = 0. + !ADVI = 0. + !ADIABAT = - WBAR * G / CP + VTH (1) = - 4. + VTI (1) = - 3. + TXS (1) = T (1) - TE (1) + + VISC (1) = VISCOSITY - VISC (1) = VISCOSITY + RHO (1) = 3483.8 * PE (1) / T (1) !air density at level 1, g/m**3 - RHO (1) = 3483.8 * PE (1) / T (1) !air density at level 1, g/m**3 + XWATER = WATER / (W (1) * DT * RHO (1) ) !firewater mixing ratio - XWATER = WATER / (W (1) * DT * RHO (1) ) !firewater mixing ratio - - QV (1) = XWATER + QVENV (1) !plus what's already there + QV (1) = XWATER + QVENV (1) !plus what's already there ! PE esta em kPa - ESAT do RAMS esta em mbar = 100 Pa = 0.1 kPa ! ES = 0.1*ESAT (T(1)) !blob saturation vapor pressure, em kPa ! rotina do plumegen ja calcula em kPa - ES = ESAT_PR (T(1)) !blob saturation vapor pressure, em kPa + ES = ESAT_PR (T(1)) !blob saturation vapor pressure, em kPa - EST (1) = ES - QSAT (1) = (EPS * ES) / (PE (1) - ES) !blob saturation lwc g/g dry air + EST (1) = ES + QSAT (1) = (EPS * ES) / (PE (1) - ES) !blob saturation lwc g/g dry air - IF (QV (1) .gt. QSAT (1) ) THEN - QC (1) = QV (1) - QSAT (1) + QC (1) !remainder goes into cloud drops - QV (1) = QSAT (1) - ENDIF + IF (QV (1) .gt. QSAT (1) ) THEN + QC (1) = QV (1) - QSAT (1) + QC (1) !remainder goes into cloud drops + QV (1) = QSAT (1) + ENDIF ! - CALL WATERBAL + CALL WATERBAL ! -RETURN -END SUBROUTINE LBOUND + RETURN + END SUBROUTINE LBOUND !------------------------------------------------------------------------------- ! -SUBROUTINE INITIAL ( kmt) + SUBROUTINE INITIAL ( kmt) ! ! ************* SETS UP INITIAL CONDITIONS FOR THE PROBLEM ************ -!use module_zero_plumegen_coms -implicit none -real(kind=kind_chem), parameter :: tfreeze = 269.3 -integer :: isub, k, n1, n2, n3, lbuoy, itmp, isubm1 ,kmt -real(kind=kind_chem) :: xn1, xi, es, esat!,ESAT_PR +!use module_zero_plumegen_coms + implicit none + real(kind=kind_chem), parameter :: tfreeze = 269.3 + integer :: isub, k, n1, n2, n3, lbuoy, itmp, isubm1 ,kmt + real(kind=kind_chem) :: xn1, xi, es, esat!,ESAT_PR ! -N=kmt + N=kmt ! initialize temperature structure,to the end of equal spaced sounding, - do k = 1, N - TXS (k) = 0.0 - W (k) = 0.0 - T (k) = TE(k) !blob set to environment - WC(k) = 0.0 - WT(k) = 0.0 - QV(k) = QVENV (k) !blob set to environment - VTH(k) = 0. !initial rain velocity = 0 - VTI(k) = 0. !initial ice velocity = 0 - QH(k) = 0. !no rain - QI(k) = 0. !no ice - QC(k) = 0. !no cloud drops + do k = 1, N + TXS (k) = 0.0 + W (k) = 0.0 + T (k) = TE(k) !blob set to environment + WC(k) = 0.0 + WT(k) = 0.0 + QV(k) = QVENV (k) !blob set to environment + VTH(k) = 0. !initial rain velocity = 0 + VTI(k) = 0. !initial ice velocity = 0 + QH(k) = 0. !no rain + QI(k) = 0. !no ice + QC(k) = 0. !no cloud drops ! PE esta em kPa - ESAT do RAMS esta em mbar = 100 Pa = 0.1 kPa ! ES = 0.1*ESAT (T(k)) !blob saturation vapor pressure, em kPa ! rotina do plumegen calcula em kPa - ES = ESAT_PR (T(k)) !blob saturation vapor pressure, em kPa - EST (k) = ES - QSAT (k) = (.622 * ES) / (PE (k) - ES) !saturation lwc g/g - RHO (k) = 3483.8 * PE (k) / T (k) !dry air density g/m**3 - VEL_P(k) = 0. - rad_p(k) = 0. - enddo + ES = ESAT_PR (T(k)) !blob saturation vapor pressure, em kPa + EST (k) = ES + QSAT (k) = (.622 * ES) / (PE (k) - ES) !saturation lwc g/g + RHO (k) = 3483.8 * PE (k) / T (k) !dry air density g/m**3 + VEL_P(k) = 0. + rad_p(k) = 0. + enddo ! Initialize the entrainment radius, Turner-style plume - radius(1) = rsurf - do k=2,N - radius(k) = radius(k-1)+(6./5.)*alpha*(zt(k)-zt(k-1)) - enddo + radius(1) = rsurf + do k=2,N + radius(k) = radius(k-1)+(6./5.)*alpha*(zt(k)-zt(k-1)) + enddo ! Initialize the entrainment radius, Turner-style plume - radius(1) = rsurf - rad_p(1) = rsurf - DO k=2,N - radius(k) = radius(k-1)+(6./5.)*alpha*(zt(k)-zt(k-1)) - rad_p(k) = radius(k) - ENDDO - + radius(1) = rsurf + rad_p(1) = rsurf + DO k=2,N + radius(k) = radius(k-1)+(6./5.)*alpha*(zt(k)-zt(k-1)) + rad_p(k) = radius(k) + ENDDO + ! Initialize the viscosity - VISC (1) = VISCOSITY - do k=2,N - !VISC (k) = VISCOSITY!max(1.e-3,visc(k-1) - 1.* VISCOSITY/float(nkp)) - VISC (k) = max(1.e-3,visc(k-1) - 1.* VISCOSITY/float(nkp)) - enddo + VISC (1) = VISCOSITY + do k=2,N + !VISC (k) = VISCOSITY!max(1.e-3,visc(k-1) - 1.* VISCOSITY/float(nkp)) + VISC (k) = max(1.e-3,visc(k-1) - 1.* VISCOSITY/float(nkp)) + enddo !-- Initialize gas/concentration - !DO k =10,20 - ! SC(k) = 20. - !ENDDO - !stop 333 + !DO k =10,20 + ! SC(k) = 20. + !ENDDO + !stop 333 - CALL LBOUND() + CALL LBOUND() -RETURN -END SUBROUTINE INITIAL + RETURN + END SUBROUTINE INITIAL !------------------------------------------------------------------------------- ! -subroutine damp_grav_wave(ifrom,nm1,deltak,dt,zt,zm,w,t,tt,qv,qh,qi,qc,te,pe,qvenv) -implicit none -integer nm1,ifrom,deltak -real(kind=kind_chem) dt -real(kind=kind_chem), dimension(nm1) :: w,t,tt,qv,qh,qi,qc,te,pe,qvenv,dummy,zt,zm + subroutine damp_grav_wave(ifrom,nm1,deltak,dt,zt,zm,w,t,tt,qv,qh,qi,qc,te,pe,qvenv) + implicit none + integer nm1,ifrom,deltak + real(kind=kind_chem) dt + real(kind=kind_chem), dimension(nm1) :: w,t,tt,qv,qh,qi,qc,te,pe,qvenv,dummy,zt,zm -if(ifrom==1) then - call friction(ifrom,nm1,deltak,dt,zt,zm,t,tt ,te) + if(ifrom==1) then + call friction(ifrom,nm1,deltak,dt,zt,zm,t,tt ,te) !call friction(ifrom,nm1,dt,zt,zm,qv,qvt,qvenv) - return -endif + return + endif -dummy(:) = 0. -if(ifrom==2) call friction(ifrom,nm1,deltak,dt,zt,zm,w,dummy ,dummy) + dummy(:) = 0. + if(ifrom==2) call friction(ifrom,nm1,deltak,dt,zt,zm,w,dummy ,dummy) !call friction(ifrom,nm1,dt,zt,zm,qi,qit ,dummy) !call friction(ifrom,nm1,dt,zt,zm,qh,qht ,dummy) !call friction(ifrom,nm1,dt,zt,zm,qc,qct ,dummy) -return -end subroutine damp_grav_wave + return + end subroutine damp_grav_wave !------------------------------------------------------------------------------- ! -subroutine friction(ifrom,nm1,deltak,dt,zt,zm,var1,vart,var2) -implicit none -integer k,nfpt,kf,nm1,ifrom,deltak -real(kind=kind_chem), dimension(nm1) :: var1,var2,vart,zt,zm -real(kind=kind_chem) zmkf,ztop,distim,c1,c2,dt + subroutine friction(ifrom,nm1,deltak,dt,zt,zm,var1,vart,var2) + implicit none + integer k,nfpt,kf,nm1,ifrom,deltak + real(kind=kind_chem), dimension(nm1) :: var1,var2,vart,zt,zm + real(kind=kind_chem) zmkf,ztop,distim,c1,c2,dt !nfpt=50 !kf = nm1 - nfpt !kf = nm1 - int(deltak/2) - kf = nm1 - int(deltak) + kf = nm1 - int(deltak) -zmkf = zm(kf) !old: float(kf )*dz -ztop = zm(nm1) + zmkf = zm(kf) !old: float(kf )*dz + ztop = zm(nm1) !distim = min(4.*dt,200.) !distim = 60. - distim = min(3.*dt,60.) - -c1 = 1. / (distim * (ztop - zmkf)) -c2 = dt * c1 - -if(ifrom == 1) then - do k = nm1,2,-1 - if (zt(k) .le. zmkf) cycle - vart(k) = vart(k) + c1 * (zt(k) - zmkf)*(var2(k) - var1(k)) - enddo -elseif(ifrom == 2) then - do k = nm1,2,-1 - if (zt(k) .le. zmkf) cycle - var1(k) = var1(k) + c2 * (zt(k) - zmkf)*(var2(k) - var1(k)) - enddo -endif -return -end subroutine friction + distim = min(3.*dt,60.) + + c1 = 1. / (distim * (ztop - zmkf)) + c2 = dt * c1 + + if(ifrom == 1) then + do k = nm1,2,-1 + if (zt(k) .le. zmkf) cycle + vart(k) = vart(k) + c1 * (zt(k) - zmkf)*(var2(k) - var1(k)) + enddo + elseif(ifrom == 2) then + do k = nm1,2,-1 + if (zt(k) .le. zmkf) cycle + var1(k) = var1(k) + c2 * (zt(k) - zmkf)*(var2(k) - var1(k)) + enddo + endif + return + end subroutine friction !------------------------------------------------------------------------------- ! -subroutine vel_advectc_plumerise(m1,wc,wt,rho,dzm) + subroutine vel_advectc_plumerise(m1,wc,wt,rho,dzm) -implicit none -integer :: k,m1 -real(kind=kind_chem), dimension(m1) :: wc,wt,flxw,dzm,rho -real(kind=kind_chem), dimension(m1) :: dn0 ! var local -real(kind=kind_chem) :: c1z + implicit none + integer :: k,m1 + real(kind=kind_chem), dimension(m1) :: wc,wt,flxw,dzm,rho + real(kind=kind_chem), dimension(m1) :: dn0 ! var local + real(kind=kind_chem) :: c1z !dzm(:)= 1./dz -dn0(1:m1)=rho(1:m1)*1.e-3 ! converte de cgs para mks + dn0(1:m1)=rho(1:m1)*1.e-3 ! converte de cgs para mks -flxw(1) = wc(1) * dn0(1) + flxw(1) = wc(1) * dn0(1) -do k = 2,m1-1 - flxw(k) = wc(k) * .5 * (dn0(k) + dn0(k+1)) -enddo + do k = 2,m1-1 + flxw(k) = wc(k) * .5 * (dn0(k) + dn0(k+1)) + enddo ! Compute advection contribution to W tendency -c1z = .5 + c1z = .5 -do k = 2,m1-2 + do k = 2,m1-2 - wt(k) = wt(k) & - + c1z * dzm(k) / (dn0(k) + dn0(k+1)) * ( & - (flxw(k) + flxw(k-1)) * (wc(k) + wc(k-1)) & - - (flxw(k) + flxw(k+1)) * (wc(k) + wc(k+1)) & - + (flxw(k+1) - flxw(k-1)) * 2.* wc(k) ) + wt(k) = wt(k) & + + c1z * dzm(k) / (dn0(k) + dn0(k+1)) * ( & + (flxw(k) + flxw(k-1)) * (wc(k) + wc(k-1)) & + - (flxw(k) + flxw(k+1)) * (wc(k) + wc(k+1)) & + + (flxw(k+1) - flxw(k-1)) * 2.* wc(k) ) -enddo + enddo -return -end subroutine vel_advectc_plumerise + return + end subroutine vel_advectc_plumerise !------------------------------------------------------------------------------- ! -subroutine hadvance_plumerise(iac,m1,dt,wc,wt,wp,mintime) + subroutine hadvance_plumerise(iac,m1,dt,wc,wt,wp,mintime) -implicit none -integer :: k,iac -integer :: m1,mintime -real(kind=kind_chem), dimension(m1) :: dummy, wc,wt,wp -real(kind=kind_chem) eps,dt + implicit none + integer :: k,iac + integer :: m1,mintime + real(kind=kind_chem), dimension(m1) :: dummy, wc,wt,wp + real(kind=kind_chem) eps,dt ! It is here that the Asselin filter is applied. For the velocities ! and pressure, this must be done in two stages, the first when ! IAC=1 and the second when IAC=2. -eps = .2 -if(mintime == 1) eps=0.5 + eps = .2 + if(mintime == 1) eps=0.5 ! For both IAC=1 and IAC=2, call PREDICT for U, V, W, and P. ! -call predict_plumerise(m1,wc,wp,wt,dummy,iac,2.*dt,eps) -return -end subroutine hadvance_plumerise + call predict_plumerise(m1,wc,wp,wt,dummy,iac,2.*dt,eps) + return + end subroutine hadvance_plumerise !------------------------------------------------------------------------------- ! -subroutine predict_plumerise(npts,ac,ap,fa,af,iac,dtlp,epsu) -implicit none -integer :: npts,iac,m -real(kind=kind_chem) :: epsu,dtlp -real(kind=kind_chem), dimension(*) :: ac,ap,fa,af + subroutine predict_plumerise(npts,ac,ap,fa,af,iac,dtlp,epsu) + implicit none + integer :: npts,iac,m + real(kind=kind_chem) :: epsu,dtlp + real(kind=kind_chem), dimension(*) :: ac,ap,fa,af ! For IAC=3, this routine moves the arrays AC and AP forward by ! 1 time level by adding in the prescribed tendency. It also @@ -1189,16 +1189,16 @@ subroutine predict_plumerise(npts,ac,ap,fa,af,iac,dtlp,epsu) ! values which were already updated in ACOUSTC. ! -if (iac .eq. 1) then - do m = 1,npts - ac(m) = ac(m) + epsu * (ap(m) - 2. * ac(m)) - enddo - return -elseif (iac .eq. 2) then - do m = 1,npts - af(m) = ap(m) - ap(m) = ac(m) + epsu * af(m) - enddo + if (iac .eq. 1) then + do m = 1,npts + ac(m) = ac(m) + epsu * (ap(m) - 2. * ac(m)) + enddo + return + elseif (iac .eq. 2) then + do m = 1,npts + af(m) = ap(m) + ap(m) = ac(m) + epsu * af(m) + enddo !elseif (iac .eq. 3) then ! do m = 1,npts ! af(m) = ap(m) + dtlp * fa(m) @@ -1207,489 +1207,489 @@ subroutine predict_plumerise(npts,ac,ap,fa,af,iac,dtlp,epsu) ! do m = 1,npts ! ap(m) = ac(m) + epsu * (ap(m) - 2. * ac(m) + af(m)) ! enddo -endif + endif -do m = 1,npts - ac(m) = af(m) -enddo -return -end subroutine predict_plumerise + do m = 1,npts + ac(m) = af(m) + enddo + return + end subroutine predict_plumerise !------------------------------------------------------------------------------- ! -subroutine buoyancy_plumerise(m1, T, TE, QV, QVENV, QH, QI, QC, WT, scr1) -implicit none -integer :: k,m1 -real(kind=kind_chem), parameter :: g = 9.8, eps = 0.622, gama = 0.5 ! mass virtual coeff. -real(kind=kind_chem), dimension(m1) :: T, TE, QV, QVENV, QH, QI, QC, WT, scr1 -real(kind=kind_chem) :: TV,TVE,QWTOTL,umgamai -real(kind=kind_chem), parameter :: mu = 0.15 + subroutine buoyancy_plumerise(m1, T, TE, QV, QVENV, QH, QI, QC, WT, scr1) + implicit none + integer :: k,m1 + real(kind=kind_chem), parameter :: g = 9.8, eps = 0.622, gama = 0.5 ! mass virtual coeff. + real(kind=kind_chem), dimension(m1) :: T, TE, QV, QVENV, QH, QI, QC, WT, scr1 + real(kind=kind_chem) :: TV,TVE,QWTOTL,umgamai + real(kind=kind_chem), parameter :: mu = 0.15 !- orig -umgamai = 1./(1.+gama) ! compensa a falta do termo de aceleracao associado `as - ! das pertubacoes nao-hidrostaticas no campo de pressao + umgamai = 1./(1.+gama) ! compensa a falta do termo de aceleracao associado `as + ! das pertubacoes nao-hidrostaticas no campo de pressao !- new ! Siesbema et al, 2004 !umgamai = 1./(1.-2.*mu) -do k = 2,m1-1 + do k = 2,m1-1 - TV = T(k) * (1. + (QV(k) /EPS))/(1. + QV(k) ) !blob virtual temp. - TVE = TE(k) * (1. + (QVENV(k)/EPS))/(1. + QVENV(k)) !and environment + TV = T(k) * (1. + (QV(k) /EPS))/(1. + QV(k) ) !blob virtual temp. + TVE = TE(k) * (1. + (QVENV(k)/EPS))/(1. + QVENV(k)) !and environment - QWTOTL = QH(k) + QI(k) + QC(k) ! QWTOTL*G is drag + QWTOTL = QH(k) + QI(k) + QC(k) ! QWTOTL*G is drag !- orig - !scr1(k)= G*( umgamai*( TV - TVE) / TVE - QWTOTL) - scr1(k)= G* umgamai*( (TV - TVE) / TVE - QWTOTL) -enddo + !scr1(k)= G*( umgamai*( TV - TVE) / TVE - QWTOTL) + scr1(k)= G* umgamai*( (TV - TVE) / TVE - QWTOTL) + enddo -do k = 2,m1-2 - wt(k) = wt(k)+0.5*(scr1(k)+scr1(k+1)) -enddo + do k = 2,m1-2 + wt(k) = wt(k)+0.5*(scr1(k)+scr1(k+1)) + enddo -end subroutine buoyancy_plumerise + end subroutine buoyancy_plumerise !------------------------------------------------------------------------------- ! -subroutine ENTRAINMENT(m1,w,wt,radius,ALPHA) -implicit none -integer :: k,m1 -real(kind=kind_chem), dimension(m1) :: w,wt,radius -REAL(kind=kind_chem) DMDTM,WBAR,RADIUS_BAR,umgamai,DYN_ENTR,ALPHA -real(kind=kind_chem), parameter :: mu = 0.15 ,gama = 0.5 ! mass virtual coeff. + subroutine ENTRAINMENT(m1,w,wt,radius,ALPHA) + implicit none + integer :: k,m1 + real(kind=kind_chem), dimension(m1) :: w,wt,radius + REAL(kind=kind_chem) DMDTM,WBAR,RADIUS_BAR,umgamai,DYN_ENTR,ALPHA + real(kind=kind_chem), parameter :: mu = 0.15 ,gama = 0.5 ! mass virtual coeff. !- new - Siesbema et al, 2004 !umgamai = 1./(1.-2.*mu) !- orig !umgamai = 1 -umgamai = 1./(1.+gama) ! compensa a falta do termo de aceleracao associado `as - ! das pertubacoes nao-hidrostaticas no campo de pressao + umgamai = 1./(1.+gama) ! compensa a falta do termo de aceleracao associado `as + ! das pertubacoes nao-hidrostaticas no campo de pressao ! !-- ALPHA/RADIUS(L) = (1/M)DM/DZ (W 14a) - do k=2,m1-1 + do k=2,m1-1 !-- for W: WBAR is only W(k) -! WBAR=0.5*(W(k)+W(k-1)) - WBAR=W(k) - RADIUS_BAR = 0.5*(RADIUS(k) + RADIUS(k-1)) +! WBAR=0.5*(W(k)+W(k-1)) + WBAR=W(k) + RADIUS_BAR = 0.5*(RADIUS(k) + RADIUS(k-1)) ! orig - !DMDTM = 2. * ALPHA * ABS (WBAR) / RADIUS_BAR != (1/M)DM/DT - DMDTM = umgamai * 2. * ALPHA * ABS (WBAR) / RADIUS_BAR != (1/M)DM/DT + !DMDTM = 2. * ALPHA * ABS (WBAR) / RADIUS_BAR != (1/M)DM/DT + DMDTM = umgamai * 2. * ALPHA * ABS (WBAR) / RADIUS_BAR != (1/M)DM/DT !-- DMDTM*W(L) entrainment, - wt(k) = wt(k) - DMDTM*ABS (WBAR) - - !if(VEL_P (k) - VEL_E (k) > 0.) cycle - - !- dynamic entrainment - DYN_ENTR = (2./3.1416)*0.5*ABS (VEL_P(k)-VEL_E(k)+VEL_P(k-1)-VEL_E(k-1)) /RADIUS_BAR - - wt(k) = wt(k) - DYN_ENTR*ABS (WBAR) - - !- entraiment acceleration for output only - !dwdt_entr(k) = - DMDTM*ABS (WBAR)- DYN_ENTR*ABS (WBAR) - enddo -end subroutine ENTRAINMENT + wt(k) = wt(k) - DMDTM*ABS (WBAR) + + !if(VEL_P (k) - VEL_E (k) > 0.) cycle + + !- dynamic entrainment + DYN_ENTR = (2./3.1416)*0.5*ABS (VEL_P(k)-VEL_E(k)+VEL_P(k-1)-VEL_E(k-1)) /RADIUS_BAR + + wt(k) = wt(k) - DYN_ENTR*ABS (WBAR) + + !- entraiment acceleration for output only + !dwdt_entr(k) = - DMDTM*ABS (WBAR)- DYN_ENTR*ABS (WBAR) + enddo + end subroutine ENTRAINMENT !------------------------------------------------------------------------------- ! -subroutine scl_advectc_plumerise(varn,mzp) + subroutine scl_advectc_plumerise(varn,mzp) !use module_zero_plumegen_coms -implicit none -integer :: mzp -character(len=*) :: varn -real(kind=kind_chem) :: dtlto2 -integer :: k + implicit none + integer :: mzp + character(len=*) :: varn + real(kind=kind_chem) :: dtlto2 + integer :: k ! wp => w !- Advect scalars - dtlto2 = .5 * dt + dtlto2 = .5 * dt ! vt3dc(1) = (w(1) + wc(1)) * dtlto2 * dne(1) - vt3dc(1) = (w(1) + wc(1)) * dtlto2 * rho(1)*1.e-3!converte de CGS p/ MKS - vt3df(1) = .5 * (w(1) + wc(1)) * dtlto2 * dzm(1) + vt3dc(1) = (w(1) + wc(1)) * dtlto2 * rho(1)*1.e-3!converte de CGS p/ MKS + vt3df(1) = .5 * (w(1) + wc(1)) * dtlto2 * dzm(1) - do k = 2,mzp + do k = 2,mzp ! vt3dc(k) = (w(k) + wc(k)) * dtlto2 *.5 * (dne(k) + dne(k+1)) - vt3dc(k) = (w(k) + wc(k)) * dtlto2 *.5 * (rho(k) + rho(k+1))*1.e-3 - vt3df(k) = (w(k) + wc(k)) * dtlto2 *.5 * dzm(k) - enddo + vt3dc(k) = (w(k) + wc(k)) * dtlto2 *.5 * (rho(k) + rho(k+1))*1.e-3 + vt3df(k) = (w(k) + wc(k)) * dtlto2 *.5 * dzm(k) + enddo + - !-srf-24082005 ! do k = 1,mzp-1 - do k = 1,mzp - vctr1(k) = (zt(k+1) - zm(k)) * dzm(k) - vctr2(k) = (zm(k) - zt(k)) * dzm(k) + do k = 1,mzp + vctr1(k) = (zt(k+1) - zm(k)) * dzm(k) + vctr2(k) = (zm(k) - zt(k)) * dzm(k) ! vt3dk(k) = dzt(k) / dne(k) - vt3dk(k) = dzt(k) /(rho(k)*1.e-3) - enddo + vt3dk(k) = dzt(k) /(rho(k)*1.e-3) + enddo ! scalarp => scalar_tab(n,ngrid)%var_p ! scalart => scalar_tab(n,ngrid)%var_t !- temp advection tendency (TT) - scr1=T - call fa_zc_plumerise(mzp & - ,T ,scr1 (1) & - ,vt3dc (1) ,vt3df (1) & - ,vt3dg (1) ,vt3dk (1) & - ,vctr1,vctr2 ) + scr1=T + call fa_zc_plumerise(mzp & + ,T ,scr1 (1) & + ,vt3dc (1) ,vt3df (1) & + ,vt3dg (1) ,vt3dk (1) & + ,vctr1,vctr2 ) - call advtndc_plumerise(mzp,T,scr1(1),TT,dt) + call advtndc_plumerise(mzp,T,scr1(1),TT,dt) !- water vapor advection tendency (QVT) - scr1=QV - call fa_zc_plumerise(mzp & - ,QV ,scr1 (1) & - ,vt3dc (1) ,vt3df (1) & - ,vt3dg (1) ,vt3dk (1) & - ,vctr1,vctr2 ) + scr1=QV + call fa_zc_plumerise(mzp & + ,QV ,scr1 (1) & + ,vt3dc (1) ,vt3df (1) & + ,vt3dg (1) ,vt3dk (1) & + ,vctr1,vctr2 ) - call advtndc_plumerise(mzp,QV,scr1(1),QVT,dt) + call advtndc_plumerise(mzp,QV,scr1(1),QVT,dt) !- liquid advection tendency (QCT) - scr1=QC - call fa_zc_plumerise(mzp & - ,QC ,scr1 (1) & - ,vt3dc (1) ,vt3df (1) & - ,vt3dg (1) ,vt3dk (1) & - ,vctr1,vctr2 ) + scr1=QC + call fa_zc_plumerise(mzp & + ,QC ,scr1 (1) & + ,vt3dc (1) ,vt3df (1) & + ,vt3dg (1) ,vt3dk (1) & + ,vctr1,vctr2 ) - call advtndc_plumerise(mzp,QC,scr1(1),QCT,dt) + call advtndc_plumerise(mzp,QC,scr1(1),QCT,dt) !- ice advection tendency (QIT) - scr1=QI - call fa_zc_plumerise(mzp & - ,QI ,scr1 (1) & - ,vt3dc (1) ,vt3df (1) & - ,vt3dg (1) ,vt3dk (1) & - ,vctr1,vctr2 ) + scr1=QI + call fa_zc_plumerise(mzp & + ,QI ,scr1 (1) & + ,vt3dc (1) ,vt3df (1) & + ,vt3dg (1) ,vt3dk (1) & + ,vctr1,vctr2 ) - call advtndc_plumerise(mzp,QI,scr1(1),QIT,dt) + call advtndc_plumerise(mzp,QI,scr1(1),QIT,dt) !- hail/rain advection tendency (QHT) ! if(ak1 > 0. .or. ak2 > 0.) then scr1=QH call fa_zc_plumerise(mzp & - ,QH ,scr1 (1) & - ,vt3dc (1) ,vt3df (1) & - ,vt3dg (1) ,vt3dk (1) & - ,vctr1,vctr2 ) + ,QH ,scr1 (1) & + ,vt3dc (1) ,vt3df (1) & + ,vt3dg (1) ,vt3dk (1) & + ,vctr1,vctr2 ) call advtndc_plumerise(mzp,QH,scr1(1),QHT,dt) ! endif - !- horizontal wind advection tendency (VEL_T) - scr1=VEL_P - call fa_zc_plumerise(mzp & - ,VEL_P ,scr1 (1) & - ,vt3dc (1) ,vt3df (1) & - ,vt3dg (1) ,vt3dk (1) & - ,vctr1,vctr2 ) + !- horizontal wind advection tendency (VEL_T) + scr1=VEL_P + call fa_zc_plumerise(mzp & + ,VEL_P ,scr1 (1) & + ,vt3dc (1) ,vt3df (1) & + ,vt3dg (1) ,vt3dk (1) & + ,vctr1,vctr2 ) - call advtndc_plumerise(mzp,VEL_P,scr1(1),VEL_T,dt) + call advtndc_plumerise(mzp,VEL_P,scr1(1),VEL_T,dt) - !- vertical radius transport + !- vertical radius transport - scr1=rad_p - call fa_zc_plumerise(mzp & - ,rad_p ,scr1 (1) & - ,vt3dc (1) ,vt3df (1) & - ,vt3dg (1) ,vt3dk (1) & - ,vctr1,vctr2 ) + scr1=rad_p + call fa_zc_plumerise(mzp & + ,rad_p ,scr1 (1) & + ,vt3dc (1) ,vt3df (1) & + ,vt3dg (1) ,vt3dk (1) & + ,vctr1,vctr2 ) - call advtndc_plumerise(mzp,rad_p,scr1(1),rad_t,dt) + call advtndc_plumerise(mzp,rad_p,scr1(1),rad_t,dt) - return + return ! !- gas/particle advection tendency (SCT) ! if(varn == 'SC')return - scr1=SC - call fa_zc_plumerise(mzp & - ,SC ,scr1 (1) & - ,vt3dc (1) ,vt3df (1) & - ,vt3dg (1) ,vt3dk (1) & - ,vctr1,vctr2 ) - - call advtndc_plumerise(mzp,SC,scr1(1),SCT,dt) - - -return -end subroutine scl_advectc_plumerise + scr1=SC + call fa_zc_plumerise(mzp & + ,SC ,scr1 (1) & + ,vt3dc (1) ,vt3df (1) & + ,vt3dg (1) ,vt3dk (1) & + ,vctr1,vctr2 ) + + call advtndc_plumerise(mzp,SC,scr1(1),SCT,dt) + + + return + end subroutine scl_advectc_plumerise !------------------------------------------------------------------------------- ! -subroutine fa_zc_plumerise(m1,scp,scr1,vt3dc,vt3df,vt3dg,vt3dk,vctr1,vctr2) + subroutine fa_zc_plumerise(m1,scp,scr1,vt3dc,vt3df,vt3dg,vt3dk,vctr1,vctr2) -implicit none -integer :: m1,k -real(kind=kind_chem) :: dfact -real(kind=kind_chem), dimension(m1) :: scp,scr1,vt3dc,vt3df,vt3dg,vt3dk -real(kind=kind_chem), dimension(m1) :: vctr1,vctr2 + implicit none + integer :: m1,k + real(kind=kind_chem) :: dfact + real(kind=kind_chem), dimension(m1) :: scp,scr1,vt3dc,vt3df,vt3dg,vt3dk + real(kind=kind_chem), dimension(m1) :: vctr1,vctr2 -dfact = .5 + dfact = .5 ! Compute scalar flux VT3DG do k = 1,m1-1 vt3dg(k) = vt3dc(k) & - * (vctr1(k) * scr1(k) & - + vctr2(k) * scr1(k+1) & - + vt3df(k) * (scr1(k) - scr1(k+1))) + * (vctr1(k) * scr1(k) & + + vctr2(k) * scr1(k+1) & + + vt3df(k) * (scr1(k) - scr1(k+1))) enddo - + ! Modify fluxes to retain positive-definiteness on scalar quantities. ! If a flux will remove 1/2 quantity during a timestep, ! reduce to first order flux. This will remain positive-definite ! under the assumption that ABS(CFL(i)) + ABS(CFL(i-1)) < 1.0 if ! both fluxes are evacuating the box. -do k = 1,m1-1 - if (vt3dc(k) .gt. 0.) then - if (vt3dg(k) * vt3dk(k) .gt. dfact * scr1(k)) then - vt3dg(k) = vt3dc(k) * scr1(k) - endif - elseif (vt3dc(k) .lt. 0.) then - if (-vt3dg(k) * vt3dk(k+1) .gt. dfact * scr1(k+1)) then - vt3dg(k) = vt3dc(k) * scr1(k+1) - endif - endif + do k = 1,m1-1 + if (vt3dc(k) .gt. 0.) then + if (vt3dg(k) * vt3dk(k) .gt. dfact * scr1(k)) then + vt3dg(k) = vt3dc(k) * scr1(k) + endif + elseif (vt3dc(k) .lt. 0.) then + if (-vt3dg(k) * vt3dk(k+1) .gt. dfact * scr1(k+1)) then + vt3dg(k) = vt3dc(k) * scr1(k+1) + endif + endif -enddo + enddo ! Compute flux divergence -do k = 2,m1-1 - scr1(k) = scr1(k) & + do k = 2,m1-1 + scr1(k) = scr1(k) & + vt3dk(k) * ( vt3dg(k-1) - vt3dg(k) & + scp (k) * ( vt3dc(k) - vt3dc(k-1))) -enddo -return -end subroutine fa_zc_plumerise + enddo + return + end subroutine fa_zc_plumerise !------------------------------------------------------------------------------- ! -subroutine advtndc_plumerise(m1,scp,sca,sct,dtl) -implicit none -integer :: m1,k -real(kind=kind_chem) :: dtl,dtli -real(kind=kind_chem), dimension(m1) :: scp,sca,sct - -dtli = 1. / dtl -do k = 2,m1-1 - sct(k) = sct(k) + (sca(k)-scp(k)) * dtli -enddo -return -end subroutine advtndc_plumerise + subroutine advtndc_plumerise(m1,scp,sca,sct,dtl) + implicit none + integer :: m1,k + real(kind=kind_chem) :: dtl,dtli + real(kind=kind_chem), dimension(m1) :: scp,sca,sct + + dtli = 1. / dtl + do k = 2,m1-1 + sct(k) = sct(k) + (sca(k)-scp(k)) * dtli + enddo + return + end subroutine advtndc_plumerise !------------------------------------------------------------------------------- ! -subroutine tend0_plumerise + subroutine tend0_plumerise !use module_zero_plumegen_coms, only: nm1,wt,tt,qvt,qct,qht,qit,sct - wt(1:nm1) = 0. - tt(1:nm1) = 0. -qvt(1:nm1) = 0. -qct(1:nm1) = 0. -qht(1:nm1) = 0. -qit(1:nm1) = 0. -vel_t(1:nm1) = 0. -rad_t(1:nm1) = 0. + wt(1:nm1) = 0. + tt(1:nm1) = 0. + qvt(1:nm1) = 0. + qct(1:nm1) = 0. + qht(1:nm1) = 0. + qit(1:nm1) = 0. + vel_t(1:nm1) = 0. + rad_t(1:nm1) = 0. !sct(1:nm1) = 0. -end subroutine tend0_plumerise + end subroutine tend0_plumerise ! **************************************************************** -subroutine scl_misc(m1) + subroutine scl_misc(m1) !use module_zero_plumegen_coms -implicit none -real(kind=kind_chem), parameter :: g = 9.81, cp=1004. -integer m1,k -real(kind=kind_chem) dmdtm + implicit none + real(kind=kind_chem), parameter :: g = 9.81, cp=1004. + integer m1,k + real(kind=kind_chem) dmdtm - do k=2,m1-1 - WBAR = 0.5*(W(k)+W(k-1)) + do k=2,m1-1 + WBAR = 0.5*(W(k)+W(k-1)) !-- dry adiabat - ADIABAT = - WBAR * G / CP -! -!-- entrainment - DMDTM = 2. * ALPHA * ABS (WBAR) / RADIUS (k) != (1/M)DM/DT - + ADIABAT = - WBAR * G / CP +! +!-- entrainment + DMDTM = 2. * ALPHA * ABS (WBAR) / RADIUS (k) != (1/M)DM/DT + !-- tendency temperature = adv + adiab + entrainment - TT(k) = TT(K) + ADIABAT - DMDTM * ( T (k) - TE (k) ) + TT(k) = TT(K) + ADIABAT - DMDTM * ( T (k) - TE (k) ) !-- tendency water vapor = adv + entrainment - QVT(K) = QVT(K) - DMDTM * ( QV (k) - QVENV (k) ) + QVT(K) = QVT(K) - DMDTM * ( QV (k) - QVENV (k) ) - QCT(K) = QCT(K) - DMDTM * ( QC (k) ) - QHT(K) = QHT(K) - DMDTM * ( QH (k) ) - QIT(K) = QIT(K) - DMDTM * ( QI (k) ) + QCT(K) = QCT(K) - DMDTM * ( QC (k) ) + QHT(K) = QHT(K) - DMDTM * ( QH (k) ) + QIT(K) = QIT(K) - DMDTM * ( QI (k) ) - !-- tendency horizontal speed = adv + entrainment - VEL_T(K) = VEL_T(K) - DMDTM * ( VEL_P (k) - VEL_E (k) ) + !-- tendency horizontal speed = adv + entrainment + VEL_T(K) = VEL_T(K) - DMDTM * ( VEL_P (k) - VEL_E (k) ) - !-- tendency horizontal speed = adv + entrainment - rad_t(K) = rad_t(K) + 0.5*DMDTM*(6./5.)*RADIUS (k) + !-- tendency horizontal speed = adv + entrainment + rad_t(K) = rad_t(K) + 0.5*DMDTM*(6./5.)*RADIUS (k) !-- tendency gas/particle = adv + entrainment ! SCT(K) = SCT(K) - DMDTM * ( SC (k) - SCE (k) ) -enddo -end subroutine scl_misc + enddo + end subroutine scl_misc ! **************************************************************** - SUBROUTINE scl_dyn_entrain(m1,nkp,wbar,w,adiabat,alpha,radius,tt,t,te,qvt,qv,qvenv,qct,qc,qht,qh,qit,qi,& - vel_e,vel_p,vel_t,rad_p,rad_t) - implicit none - - INTEGER , INTENT(IN) :: m1 - - ! plumegen_coms - INTEGER , INTENT(IN) :: nkp - REAL(kind=kind_chem) , INTENT(INOUT) :: wbar - REAL(kind=kind_chem) , INTENT(IN) :: w(nkp) - REAL(kind=kind_chem) , INTENT(INOUT) :: adiabat - REAL(kind=kind_chem) , INTENT(IN) :: alpha - REAL(kind=kind_chem) , INTENT(IN) :: radius(nkp) - REAL(kind=kind_chem) , INTENT(INOUT) :: tt(nkp) - REAL(kind=kind_chem) , INTENT(IN) :: t(nkp) - REAL(kind=kind_chem) , INTENT(IN) :: te(nkp) - REAL(kind=kind_chem) , INTENT(INOUT) :: qvt(nkp) - REAL(kind=kind_chem) , INTENT(IN) :: qv(nkp) - REAL(kind=kind_chem) , INTENT(IN) :: qvenv(nkp) - REAL(kind=kind_chem) , INTENT(INOUT) :: qct(nkp) - REAL(kind=kind_chem) , INTENT(IN) :: qc(nkp) - REAL(kind=kind_chem) , INTENT(INOUT) :: qht(nkp) - REAL(kind=kind_chem) , INTENT(IN) :: qh(nkp) - REAL(kind=kind_chem) , INTENT(INOUT) :: qit(nkp) - REAL(kind=kind_chem) , INTENT(IN) :: qi(nkp) - - REAL(kind=kind_chem) , INTENT(IN) :: vel_e(nkp) - REAL(kind=kind_chem) , INTENT(IN) :: vel_p(nkp) - REAL(kind=kind_chem) , INTENT(INOUT) :: vel_t(nkp) - REAL(kind=kind_chem) , INTENT(INOUT) :: rad_T(nkp) - REAL(kind=kind_chem) , INTENT(IN) :: rad_p(nkp) - - real(kind=kind_chem), parameter :: g = 9.81, cp=1004., pi=3.1416 - - integer k - real(kind=kind_chem) dmdtm - - DO k=2,m1-1 - ! - !-- tendency horizontal radius from dyn entrainment - !rad_t(K) = rad_t(K) + (vel_e(k)-vel_p(k)) /pi - rad_t(K) = rad_t(K) + ABS((vel_e(k)-vel_p(k)))/pi - - !-- entrainment - !DMDTM = (2./3.1416) * (VEL_E (k) - VEL_P (k)) / RADIUS (k) - DMDTM = (2./3.1416) * ABS(VEL_E (k) - VEL_P (k)) / RADIUS (k) - - !-- tendency horizontal speed from dyn entrainment - VEL_T(K) = VEL_T(K) - DMDTM * ( VEL_P (k) - VEL_E (k) ) - - ! if(VEL_P (k) - VEL_E (k) > 0.) cycle - - !-- tendency temperature from dyn entrainment - TT(k) = TT(K) - DMDTM * ( T (k) - TE (k) ) - - !-- tendency water vapor from dyn entrainment - QVT(K) = QVT(K) - DMDTM * ( QV (k) - QVENV (k) ) - - QCT(K) = QCT(K) - DMDTM * ( QC (k) ) - QHT(K) = QHT(K) - DMDTM * ( QH (k) ) - QIT(K) = QIT(K) - DMDTM * ( QI (k) ) - - !-- tendency gas/particle from dyn entrainment - ! SCT(K) = SCT(K) - DMDTM * ( SC (k) - SCE (k) ) - - ENDDO + SUBROUTINE scl_dyn_entrain(m1,nkp,wbar,w,adiabat,alpha,radius,tt,t,te,qvt,qv,qvenv,qct,qc,qht,qh,qit,qi,& + vel_e,vel_p,vel_t,rad_p,rad_t) + implicit none + + INTEGER , INTENT(IN) :: m1 + + ! plumegen_coms + INTEGER , INTENT(IN) :: nkp + REAL(kind=kind_chem) , INTENT(INOUT) :: wbar + REAL(kind=kind_chem) , INTENT(IN) :: w(nkp) + REAL(kind=kind_chem) , INTENT(INOUT) :: adiabat + REAL(kind=kind_chem) , INTENT(IN) :: alpha + REAL(kind=kind_chem) , INTENT(IN) :: radius(nkp) + REAL(kind=kind_chem) , INTENT(INOUT) :: tt(nkp) + REAL(kind=kind_chem) , INTENT(IN) :: t(nkp) + REAL(kind=kind_chem) , INTENT(IN) :: te(nkp) + REAL(kind=kind_chem) , INTENT(INOUT) :: qvt(nkp) + REAL(kind=kind_chem) , INTENT(IN) :: qv(nkp) + REAL(kind=kind_chem) , INTENT(IN) :: qvenv(nkp) + REAL(kind=kind_chem) , INTENT(INOUT) :: qct(nkp) + REAL(kind=kind_chem) , INTENT(IN) :: qc(nkp) + REAL(kind=kind_chem) , INTENT(INOUT) :: qht(nkp) + REAL(kind=kind_chem) , INTENT(IN) :: qh(nkp) + REAL(kind=kind_chem) , INTENT(INOUT) :: qit(nkp) + REAL(kind=kind_chem) , INTENT(IN) :: qi(nkp) + + REAL(kind=kind_chem) , INTENT(IN) :: vel_e(nkp) + REAL(kind=kind_chem) , INTENT(IN) :: vel_p(nkp) + REAL(kind=kind_chem) , INTENT(INOUT) :: vel_t(nkp) + REAL(kind=kind_chem) , INTENT(INOUT) :: rad_T(nkp) + REAL(kind=kind_chem) , INTENT(IN) :: rad_p(nkp) + + real(kind=kind_chem), parameter :: g = 9.81, cp=1004., pi=3.1416 + + integer k + real(kind=kind_chem) dmdtm + + DO k=2,m1-1 + ! + !-- tendency horizontal radius from dyn entrainment + !rad_t(K) = rad_t(K) + (vel_e(k)-vel_p(k)) /pi + rad_t(K) = rad_t(K) + ABS((vel_e(k)-vel_p(k)))/pi + + !-- entrainment + !DMDTM = (2./3.1416) * (VEL_E (k) - VEL_P (k)) / RADIUS (k) + DMDTM = (2./3.1416) * ABS(VEL_E (k) - VEL_P (k)) / RADIUS (k) + + !-- tendency horizontal speed from dyn entrainment + VEL_T(K) = VEL_T(K) - DMDTM * ( VEL_P (k) - VEL_E (k) ) + + ! if(VEL_P (k) - VEL_E (k) > 0.) cycle + + !-- tendency temperature from dyn entrainment + TT(k) = TT(K) - DMDTM * ( T (k) - TE (k) ) + + !-- tendency water vapor from dyn entrainment + QVT(K) = QVT(K) - DMDTM * ( QV (k) - QVENV (k) ) + + QCT(K) = QCT(K) - DMDTM * ( QC (k) ) + QHT(K) = QHT(K) - DMDTM * ( QH (k) ) + QIT(K) = QIT(K) - DMDTM * ( QI (k) ) + + !-- tendency gas/particle from dyn entrainment + ! SCT(K) = SCT(K) - DMDTM * ( SC (k) - SCE (k) ) + + ENDDO END SUBROUTINE scl_dyn_entrain ! **************************************************************** -subroutine visc_W(m1,deltak,kmt) + subroutine visc_W(m1,deltak,kmt) !use module_zero_plumegen_coms -implicit none -integer m1,k,deltak,kmt,m2 -real(kind=kind_chem) dz1t,dz1m,dz2t,dz2m,d2wdz,d2tdz ,d2qvdz ,d2qhdz ,d2qcdz ,d2qidz ,d2scdz, & - d2vel_pdz,d2rad_dz + implicit none + integer m1,k,deltak,kmt,m2 + real(kind=kind_chem) dz1t,dz1m,dz2t,dz2m,d2wdz,d2tdz ,d2qvdz ,d2qhdz ,d2qcdz ,d2qidz ,d2scdz, & + d2vel_pdz,d2rad_dz !srf--- 17/08/2005 !m2=min(m1+deltak,kmt) -m2=min(m1,kmt) + m2=min(m1,kmt) !do k=2,m1-1 -do k=2,m2-1 - DZ1T = 0.5*(ZT(K+1)-ZT(K-1)) - DZ2T = VISC (k) / (DZ1T * DZ1T) - DZ1M = 0.5*(ZM(K+1)-ZM(K-1)) - DZ2M = VISC (k) / (DZ1M * DZ1M) - D2WDZ = (W (k + 1) - 2 * W (k) + W (k - 1) ) * DZ2M - D2TDZ = (T (k + 1) - 2 * T (k) + T (k - 1) ) * DZ2T - D2QVDZ = (QV (k + 1) - 2 * QV (k) + QV (k - 1) ) * DZ2T - D2QHDZ = (QH (k + 1) - 2 * QH (k) + QH (k - 1) ) * DZ2T - D2QCDZ = (QC (k + 1) - 2 * QC (k) + QC (k - 1) ) * DZ2T - D2QIDZ = (QI (k + 1) - 2 * QI (k) + QI (k - 1) ) * DZ2T - !D2SCDZ = (SC (k + 1) - 2 * SC (k) + SC (k - 1) ) * DZ2T - d2vel_pdz=(vel_P (k + 1) - 2 * vel_P (k) + vel_P (k - 1) ) * DZ2T - d2rad_dz =(rad_p (k + 1) - 2 * rad_p (k) + rad_p (k - 1) ) * DZ2T - - WT(k) = WT(k) + D2WDZ - TT(k) = TT(k) + D2TDZ - QVT(k) = QVT(k) + D2QVDZ - QCT(k) = QCT(k) + D2QCDZ - QHT(k) = QHT(k) + D2QHDZ - QIT(k) = QIT(k) + D2QIDZ - vel_t(k) = vel_t(k) + d2vel_pdz - rad_t(k) = rad_t(k) + d2rad_dz - !SCT(k) = SCT(k) + D2SCDZ -enddo - -end subroutine visc_W + do k=2,m2-1 + DZ1T = 0.5*(ZT(K+1)-ZT(K-1)) + DZ2T = VISC (k) / (DZ1T * DZ1T) + DZ1M = 0.5*(ZM(K+1)-ZM(K-1)) + DZ2M = VISC (k) / (DZ1M * DZ1M) + D2WDZ = (W (k + 1) - 2 * W (k) + W (k - 1) ) * DZ2M + D2TDZ = (T (k + 1) - 2 * T (k) + T (k - 1) ) * DZ2T + D2QVDZ = (QV (k + 1) - 2 * QV (k) + QV (k - 1) ) * DZ2T + D2QHDZ = (QH (k + 1) - 2 * QH (k) + QH (k - 1) ) * DZ2T + D2QCDZ = (QC (k + 1) - 2 * QC (k) + QC (k - 1) ) * DZ2T + D2QIDZ = (QI (k + 1) - 2 * QI (k) + QI (k - 1) ) * DZ2T + !D2SCDZ = (SC (k + 1) - 2 * SC (k) + SC (k - 1) ) * DZ2T + d2vel_pdz=(vel_P (k + 1) - 2 * vel_P (k) + vel_P (k - 1) ) * DZ2T + d2rad_dz =(rad_p (k + 1) - 2 * rad_p (k) + rad_p (k - 1) ) * DZ2T + + WT(k) = WT(k) + D2WDZ + TT(k) = TT(k) + D2TDZ + QVT(k) = QVT(k) + D2QVDZ + QCT(k) = QCT(k) + D2QCDZ + QHT(k) = QHT(k) + D2QHDZ + QIT(k) = QIT(k) + D2QIDZ + vel_t(k) = vel_t(k) + d2vel_pdz + rad_t(k) = rad_t(k) + d2rad_dz + !SCT(k) = SCT(k) + D2SCDZ + enddo + + end subroutine visc_W ! **************************************************************** -subroutine update_plumerise(m1,varn) + subroutine update_plumerise(m1,varn) !use module_zero_plumegen_coms -integer m1,k -character(len=*) :: varn - -if(varn == 'W') then - - do k=2,m1-1 - W(k) = W(k) + WT(k) * DT - enddo - return - -else -do k=2,m1-1 - T(k) = T(k) + TT(k) * DT - - QV(k) = QV(k) + QVT(k) * DT - - QC(k) = QC(k) + QCT(k) * DT !cloud drops travel with air - QH(k) = QH(k) + QHT(k) * DT - QI(k) = QI(k) + QIT(k) * DT -! SC(k) = SC(k) + SCT(k) * DT - -!srf---18jun2005 - QV(k) = max(0., QV(k)) - QC(k) = max(0., QC(k)) - QH(k) = max(0., QH(k)) - QI(k) = max(0., QI(k)) - - VEL_P(k) = VEL_P(k) + VEL_T(k) * DT - rad_p(k) = rad_p(k) + rad_t(k) * DT + integer m1,k + character(len=*) :: varn + + if(varn == 'W') then + + do k=2,m1-1 + W(k) = W(k) + WT(k) * DT + enddo + return + + else + do k=2,m1-1 + T(k) = T(k) + TT(k) * DT + + QV(k) = QV(k) + QVT(k) * DT + + QC(k) = QC(k) + QCT(k) * DT !cloud drops travel with air + QH(k) = QH(k) + QHT(k) * DT + QI(k) = QI(k) + QIT(k) * DT +! SC(k) = SC(k) + SCT(k) * DT + +!srf---18jun2005 + QV(k) = max(0., QV(k)) + QC(k) = max(0., QC(k)) + QH(k) = max(0., QH(k)) + QI(k) = max(0., QI(k)) + + VEL_P(k) = VEL_P(k) + VEL_T(k) * DT + rad_p(k) = rad_p(k) + rad_t(k) * DT ! SC(k) = max(0., SC(k)) - enddo -endif -end subroutine update_plumerise + enddo + endif + end subroutine update_plumerise !------------------------------------------------------------------------------- ! -subroutine fallpart(m1) + subroutine fallpart(m1) !use module_zero_plumegen_coms -integer m1,k -real(kind=kind_chem) vtc, dfhz,dfiz,dz1 + integer m1,k + real(kind=kind_chem) vtc, dfhz,dfiz,dz1 !srf================================== -! verificar se o gradiente esta correto -! +! verificar se o gradiente esta correto +! !srf================================== ! ! XNO=1.E7 [m**-4] median volume diameter raindrop,Kessler @@ -1697,249 +1697,249 @@ subroutine fallpart(m1) ! for ice, see (OT18), use F0=0.75 per argument there. rho*q ! values are in g/m**3, velocities in m/s -real(kind=kind_chem), PARAMETER :: VCONST = 5.107387, EPS = 0.622, F0 = 0.75 -real(kind=kind_chem), PARAMETER :: G = 9.81, CP = 1004. + real(kind=kind_chem), PARAMETER :: VCONST = 5.107387, EPS = 0.622, F0 = 0.75 + real(kind=kind_chem), PARAMETER :: G = 9.81, CP = 1004. ! -do k=2,m1-1 + do k=2,m1-1 + + VTC = VCONST * RHO (k) **.125 ! median volume fallspeed (KTable4) - VTC = VCONST * RHO (k) **.125 ! median volume fallspeed (KTable4) - ! hydrometeor assembly velocity calculations (K Table4) -! VTH(k)=-VTC*QH(k)**.125 !median volume fallspeed, water - VTH (k) = - 4. !small variation with qh - - VHREL = W (k) + VTH (k) !relative to surrounding cloud - +! VTH(k)=-VTC*QH(k)**.125 !median volume fallspeed, water + VTH (k) = - 4. !small variation with qh + + VHREL = W (k) + VTH (k) !relative to surrounding cloud + ! rain ventilation coefficient for evaporation - CVH(k) = 1.6 + 0.57E-3 * (ABS (VHREL) ) **1.5 + CVH(k) = 1.6 + 0.57E-3 * (ABS (VHREL) ) **1.5 ! -! VTI(k)=-VTC*F0*QI(k)**.125 !median volume fallspeed,ice - VTI (k) = - 3. !small variation with qi +! VTI(k)=-VTC*F0*QI(k)**.125 !median volume fallspeed,ice + VTI (k) = - 3. !small variation with qi - VIREL = W (k) + VTI (k) !relative to surrounding cloud + VIREL = W (k) + VTI (k) !relative to surrounding cloud ! ! ice ventilation coefficient for sublimation - CVI(k) = 1.6 + 0.57E-3 * (ABS (VIREL) ) **1.5 / F0 -! -! - IF (VHREL.GE.0.0) THEN - DFHZ=QH(k)*(RHO(k )*VTH(k )-RHO(k-1)*VTH(k-1))/RHO(k-1) - ELSE - DFHZ=QH(k)*(RHO(k+1)*VTH(k+1)-RHO(k )*VTH(k ))/RHO(k) - ENDIF - ! - ! - IF (VIREL.GE.0.0) THEN - DFIZ=QI(k)*(RHO(k )*VTI(k )-RHO(k-1)*VTI(k-1))/RHO(k-1) - ELSE - DFIZ=QI(k)*(RHO(k+1)*VTI(k+1)-RHO(k )*VTI(k ))/RHO(k) - ENDIF - - DZ1=ZM(K)-ZM(K-1) - - qht(k) = qht(k) - DFHZ / DZ1 !hydrometeors don't - - qit(k) = qit(k) - DFIZ / DZ1 !nor does ice? hail, what about - -enddo -end subroutine fallpart + CVI(k) = 1.6 + 0.57E-3 * (ABS (VIREL) ) **1.5 / F0 +! +! + IF (VHREL.GE.0.0) THEN + DFHZ=QH(k)*(RHO(k )*VTH(k )-RHO(k-1)*VTH(k-1))/RHO(k-1) + ELSE + DFHZ=QH(k)*(RHO(k+1)*VTH(k+1)-RHO(k )*VTH(k ))/RHO(k) + ENDIF + ! + ! + IF (VIREL.GE.0.0) THEN + DFIZ=QI(k)*(RHO(k )*VTI(k )-RHO(k-1)*VTI(k-1))/RHO(k-1) + ELSE + DFIZ=QI(k)*(RHO(k+1)*VTI(k+1)-RHO(k )*VTI(k ))/RHO(k) + ENDIF + + DZ1=ZM(K)-ZM(K-1) + + qht(k) = qht(k) - DFHZ / DZ1 !hydrometeors don't + + qit(k) = qit(k) - DFIZ / DZ1 !nor does ice? hail, what about + + enddo + end subroutine fallpart !------------------------------------------------------------------------------- !------------------------------------------------------------------------------- ! -subroutine printout (izprint,nrectotal) -!use module_zero_plumegen_coms -real(kind=kind_chem), parameter :: tmelt = 273.3 -integer, save :: nrec -data nrec/0/ -integer :: ko,izprint,interval,nrectotal -real(kind=kind_chem) :: pea, btmp,etmp,vap1,vap2,gpkc,gpkh,gpki,deficit -interval = 1 !debug time interval,min + subroutine printout (izprint,nrectotal) +!use module_zero_plumegen_coms + real(kind=kind_chem), parameter :: tmelt = 273.3 + integer, save :: nrec + data nrec/0/ + integer :: ko,izprint,interval,nrectotal + real(kind=kind_chem) :: pea, btmp,etmp,vap1,vap2,gpkc,gpkh,gpki,deficit + interval = 1 !debug time interval,min ! -IF (IZPRINT.EQ.0) RETURN + IF (IZPRINT.EQ.0) RETURN -IF(MINTIME == 1) nrec = 0 + IF(MINTIME == 1) nrec = 0 ! -WRITE (2, 430) MINTIME, DT, TIME -WRITE (2, 431) ZTOP -WRITE (2, 380) + WRITE (2, 430) MINTIME, DT, TIME + WRITE (2, 431) ZTOP + WRITE (2, 380) ! ! do the print ! - DO 390 KO = 1, nrectotal, interval - - PEA = PE (KO) * 10. !pressure is stored in decibars(kPa),print in mb; - BTMP = T (KO) - TMELT !temps in Celsius - ETMP = T (KO) - TE (KO) !temperature excess - VAP1 = QV (KO) * 1000. !printout in g/kg for all water, - VAP2 = QSAT (KO) * 1000. !vapor (internal storage is in g/g) - GPKC = QC (KO) * 1000. !cloud water - GPKH = QH (KO) * 1000. !raindrops - GPKI = QI (KO) * 1000. !ice particles - DEFICIT = VAP2 - VAP1 !vapor deficit + DO 390 KO = 1, nrectotal, interval + + PEA = PE (KO) * 10. !pressure is stored in decibars(kPa),print in mb; + BTMP = T (KO) - TMELT !temps in Celsius + ETMP = T (KO) - TE (KO) !temperature excess + VAP1 = QV (KO) * 1000. !printout in g/kg for all water, + VAP2 = QSAT (KO) * 1000. !vapor (internal storage is in g/g) + GPKC = QC (KO) * 1000. !cloud water + GPKH = QH (KO) * 1000. !raindrops + GPKI = QI (KO) * 1000. !ice particles + DEFICIT = VAP2 - VAP1 !vapor deficit ! - WRITE (2, 400) zt(KO)/1000., PEA, W (KO), BTMP, ETMP, VAP1, & - VAP2, GPKC, GPKH, GPKI, VTH (KO), SC(KO) + WRITE (2, 400) zt(KO)/1000., PEA, W (KO), BTMP, ETMP, VAP1, & + VAP2, GPKC, GPKH, GPKI, VTH (KO), SC(KO) ! ! ! !end of printout - - 390 CONTINUE - - nrec=nrec+1 - write (19,rec=nrec) (W (KO), KO=1,nrectotal) - nrec=nrec+1 - write (19,rec=nrec) (T (KO), KO=1,nrectotal) - nrec=nrec+1 - write (19,rec=nrec) (TE(KO), KO=1,nrectotal) - nrec=nrec+1 - write (19,rec=nrec) (QV(KO)*1000., KO=1,nrectotal) - nrec=nrec+1 - write (19,rec=nrec) (QC(KO)*1000., KO=1,nrectotal) - nrec=nrec+1 - write (19,rec=nrec) (QH(KO)*1000., KO=1,nrectotal) - nrec=nrec+1 - write (19,rec=nrec) (QI(KO)*1000., KO=1,nrectotal) - nrec=nrec+1 + +390 CONTINUE + + nrec=nrec+1 + write (19,rec=nrec) (W (KO), KO=1,nrectotal) + nrec=nrec+1 + write (19,rec=nrec) (T (KO), KO=1,nrectotal) + nrec=nrec+1 + write (19,rec=nrec) (TE(KO), KO=1,nrectotal) + nrec=nrec+1 + write (19,rec=nrec) (QV(KO)*1000., KO=1,nrectotal) + nrec=nrec+1 + write (19,rec=nrec) (QC(KO)*1000., KO=1,nrectotal) + nrec=nrec+1 + write (19,rec=nrec) (QH(KO)*1000., KO=1,nrectotal) + nrec=nrec+1 + write (19,rec=nrec) (QI(KO)*1000., KO=1,nrectotal) + nrec=nrec+1 ! write (19,rec=nrec) (SC(KO), KO=1,nrectotal) - write (19,rec=nrec) (QSAT(KO)*1000., KO=1,nrectotal) - nrec=nrec+1 - write (19,rec=nrec) (QVENV(KO)*1000., KO=1,nrectotal) + write (19,rec=nrec) (QSAT(KO)*1000., KO=1,nrectotal) + nrec=nrec+1 + write (19,rec=nrec) (QVENV(KO)*1000., KO=1,nrectotal) ! -RETURN + RETURN ! ! ************** FORMATS ********************************************* ! - 380 FORMAT(/,' Z(KM) P(MB) W(MPS) T(C) T-TE VAP SAT QC QH'// & -' QI VTH(MPS) SCAL'/) +380 FORMAT(/,' Z(KM) P(MB) W(MPS) T(C) T-TE VAP SAT QC QH'// & + ' QI VTH(MPS) SCAL'/) ! - 400 FORMAT(1H , F4.1,F7.2,F7.2,F6.1,6F6.2,F7.2,1X,F6.2) +400 FORMAT(1H , F4.1,F7.2,F7.2,F6.1,6F6.2,F7.2,1X,F6.2) ! - 430 FORMAT(1H ,//I5,' MINUTES DT= ',F6.2,' SECONDS TIME= ' & - ,F8.2,' SECONDS') - 431 FORMAT(' ZTOP= ',F10.2) +430 FORMAT(1H ,//I5,' MINUTES DT= ',F6.2,' SECONDS TIME= ' & + ,F8.2,' SECONDS') +431 FORMAT(' ZTOP= ',F10.2) ! -end subroutine printout + end subroutine printout ! ! ********************************************************************* -SUBROUTINE WATERBAL -!use module_zero_plumegen_coms -! - -IF (QC (L) .LE.1.0E-10) QC (L) = 0. !DEFEAT UNDERFLOW PROBLEM -IF (QH (L) .LE.1.0E-10) QH (L) = 0. -IF (QI (L) .LE.1.0E-10) QI (L) = 0. -! -CALL EVAPORATE !vapor to cloud,cloud to vapor -! -CALL SUBLIMATE !vapor to ice -! -CALL GLACIATE !rain to ice - -CALL MELT !ice to rain -! + SUBROUTINE WATERBAL +!use module_zero_plumegen_coms +! + + IF (QC (L) .LE.1.0E-10) QC (L) = 0. !DEFEAT UNDERFLOW PROBLEM + IF (QH (L) .LE.1.0E-10) QH (L) = 0. + IF (QI (L) .LE.1.0E-10) QI (L) = 0. +! + CALL EVAPORATE !vapor to cloud,cloud to vapor +! + CALL SUBLIMATE !vapor to ice +! + CALL GLACIATE !rain to ice + + CALL MELT !ice to rain +! !if(ak1 > 0. .or. ak2 > 0.) & -CALL CONVERT () !(auto)conversion and accretion -!CALL CONVERT2 () !(auto)conversion and accretion + CALL CONVERT () !(auto)conversion and accretion +!CALL CONVERT2 () !(auto)conversion and accretion ! -RETURN -END SUBROUTINE WATERBAL + RETURN + END SUBROUTINE WATERBAL ! ********************************************************************* -SUBROUTINE EVAPORATE + SUBROUTINE EVAPORATE ! !- evaporates cloud,rain and ice to saturation ! -!use module_zero_plumegen_coms -implicit none +!use module_zero_plumegen_coms + implicit none ! ! XNO=10.0E06 ! HERC = 1.93*1.E-6*XN035 !evaporation constant ! -real(kind=kind_chem), PARAMETER :: HERC = 5.44E-4, CP = 1.004, HEATCOND = 2.5E3 -real(kind=kind_chem), PARAMETER :: HEATSUBL = 2834., TMELT = 273., TFREEZE = 269.3 + real(kind=kind_chem), PARAMETER :: HERC = 5.44E-4, CP = 1.004, HEATCOND = 2.5E3 + real(kind=kind_chem), PARAMETER :: HEATSUBL = 2834., TMELT = 273., TFREEZE = 269.3 -real(kind=kind_chem), PARAMETER :: FRC = HEATCOND / CP, SRC = HEATSUBL / CP + real(kind=kind_chem), PARAMETER :: FRC = HEATCOND / CP, SRC = HEATSUBL / CP -real(kind=kind_chem) :: evhdt, evidt, evrate, evap, sd, quant, dividend, divisor, devidt + real(kind=kind_chem) :: evhdt, evidt, evrate, evap, sd, quant, dividend, divisor, devidt ! ! -SD = QSAT (L) - QV (L) !vapor deficit -IF (SD.EQ.0.0) RETURN -!IF (abs(SD).lt.1.e-7) RETURN + SD = QSAT (L) - QV (L) !vapor deficit + IF (SD.EQ.0.0) RETURN +!IF (abs(SD).lt.1.e-7) RETURN -EVHDT = 0. -EVIDT = 0. + EVHDT = 0. + EVIDT = 0. !evrate =0.; evap=0.; sd=0.0; quant=0.0; dividend=0.0; divisor=0.0; devidt=0.0 - -EVRATE = ABS (WBAR * DQSDZ) !evaporation rate (Kessler 8.32) -EVAP = EVRATE * DT !what we can get in DT - -IF (SD.LE.0.0) THEN ! condense. SD is negative + EVRATE = ABS (WBAR * DQSDZ) !evaporation rate (Kessler 8.32) + EVAP = EVRATE * DT !what we can get in DT + + + IF (SD.LE.0.0) THEN ! condense. SD is negative + + IF (EVAP.GE.ABS (SD) ) THEN !we get it all + + QC (L) = QC (L) - SD !deficit,remember? + QV (L) = QSAT(L) !set the vapor to saturation + T (L) = T (L) - SD * FRC !heat gained through condensation + !per gram of dry air + RETURN - IF (EVAP.GE.ABS (SD) ) THEN !we get it all - - QC (L) = QC (L) - SD !deficit,remember? - QV (L) = QSAT(L) !set the vapor to saturation - T (L) = T (L) - SD * FRC !heat gained through condensation - !per gram of dry air - RETURN + ELSE - ELSE - - QC (L) = QC (L) + EVAP !get what we can in DT - QV (L) = QV (L) - EVAP !remove it from the vapor - T (L) = T (L) + EVAP * FRC !get some heat + QC (L) = QC (L) + EVAP !get what we can in DT + QV (L) = QV (L) - EVAP !remove it from the vapor + T (L) = T (L) + EVAP * FRC !get some heat - RETURN + RETURN - ENDIF + ENDIF ! -ELSE !SD is positive, need some water + ELSE !SD is positive, need some water ! ! not saturated. saturate if possible. use everything in order ! cloud, rain, ice. SD is positive - - IF (EVAP.LE.QC (L) ) THEN !enough cloud to last DT -! - - IF (SD.LE.EVAP) THEN !enough time to saturate - - QC (L) = QC (L) - SD !remove cloud - QV (L) = QSAT (L) !saturate - T (L) = T (L) - SD * FRC !cool the parcel - RETURN !done -! - - ELSE !not enough time - - SD = SD-EVAP !use what there is - QV (L) = QV (L) + EVAP !add vapor - T (L) = T (L) - EVAP * FRC !lose heat - QC (L) = QC (L) - EVAP !lose cloud - !go on to rain. - ENDIF -! - ELSE !not enough cloud to last DT -! - IF (SD.LE.QC (L) ) THEN !but there is enough to sat - - QV (L) = QSAT (L) !use it - QC (L) = QC (L) - SD - T (L) = T (L) - SD * FRC - RETURN - - ELSE !not enough to sat - SD = SD-QC (L) - QV (L) = QV (L) + QC (L) - T (L) = T (L) - QC (L) * FRC - QC (L) = 0.0 !all gone - - ENDIF !on to rain - ENDIF !finished with cloud + + IF (EVAP.LE.QC (L) ) THEN !enough cloud to last DT +! + + IF (SD.LE.EVAP) THEN !enough time to saturate + + QC (L) = QC (L) - SD !remove cloud + QV (L) = QSAT (L) !saturate + T (L) = T (L) - SD * FRC !cool the parcel + RETURN !done +! + + ELSE !not enough time + + SD = SD-EVAP !use what there is + QV (L) = QV (L) + EVAP !add vapor + T (L) = T (L) - EVAP * FRC !lose heat + QC (L) = QC (L) - EVAP !lose cloud + !go on to rain. + ENDIF +! + ELSE !not enough cloud to last DT +! + IF (SD.LE.QC (L) ) THEN !but there is enough to sat + + QV (L) = QSAT (L) !use it + QC (L) = QC (L) - SD + T (L) = T (L) - SD * FRC + RETURN + + ELSE !not enough to sat + SD = SD-QC (L) + QV (L) = QV (L) + QC (L) + T (L) = T (L) - QC (L) * FRC + QC (L) = 0.0 !all gone + + ENDIF !on to rain + ENDIF !finished with cloud ! ! but still not saturated, so try to use some rain ! this is tricky, because we only have time DT to evaporate. if there @@ -1950,514 +1950,514 @@ SUBROUTINE EVAPORATE ! sd is still positive or we wouldn't be here. - IF (QH (L) .LE.1.E-10) GOTO 33 + IF (QH (L) .LE.1.E-10) GOTO 33 !srf-25082005 ! QUANT = ( QC (L) + QV (L) - QSAT (L) ) * RHO (L) !g/m**3 - QUANT = ( QSAT (L)- QC (L) - QV (L) ) * RHO (L) !g/m**3 + QUANT = ( QSAT (L)- QC (L) - QV (L) ) * RHO (L) !g/m**3 ! - EVHDT = (DT * HERC * (QUANT) * (QH (L) * RHO (L) ) **.65) / RHO (L) + EVHDT = (DT * HERC * (QUANT) * (QH (L) * RHO (L) ) **.65) / RHO (L) ! rain evaporation in time DT - - IF (EVHDT.LE.QH (L) ) THEN !enough rain to last DT - - IF (SD.LE.EVHDT) THEN !enough time to saturate - QH (L) = QH (L) - SD !remove rain - QV (L) = QSAT (L) !saturate - T (L) = T (L) - SD * FRC !cool the parcel - - RETURN !done -! - ELSE !not enough time - SD = SD-EVHDT !use what there is - QV (L) = QV (L) + EVHDT !add vapor - T (L) = T (L) - EVHDT * FRC !lose heat - QH (L) = QH (L) - EVHDT !lose rain - - ENDIF !go on to ice. -! - ELSE !not enough rain to last DT -! - IF (SD.LE.QH (L) ) THEN !but there is enough to sat - QV (L) = QSAT (L) !use it - QH (L) = QH (L) - SD - T (L) = T (L) - SD * FRC - RETURN -! - ELSE !not enough to sat - SD = SD-QH (L) - QV (L) = QV (L) + QH (L) - T (L) = T (L) - QH (L) * FRC - QH (L) = 0.0 !all gone - - ENDIF !on to ice -! - - ENDIF !finished with rain + + IF (EVHDT.LE.QH (L) ) THEN !enough rain to last DT + + IF (SD.LE.EVHDT) THEN !enough time to saturate + QH (L) = QH (L) - SD !remove rain + QV (L) = QSAT (L) !saturate + T (L) = T (L) - SD * FRC !cool the parcel + + RETURN !done +! + ELSE !not enough time + SD = SD-EVHDT !use what there is + QV (L) = QV (L) + EVHDT !add vapor + T (L) = T (L) - EVHDT * FRC !lose heat + QH (L) = QH (L) - EVHDT !lose rain + + ENDIF !go on to ice. +! + ELSE !not enough rain to last DT +! + IF (SD.LE.QH (L) ) THEN !but there is enough to sat + QV (L) = QSAT (L) !use it + QH (L) = QH (L) - SD + T (L) = T (L) - SD * FRC + RETURN +! + ELSE !not enough to sat + SD = SD-QH (L) + QV (L) = QV (L) + QH (L) + T (L) = T (L) - QH (L) * FRC + QH (L) = 0.0 !all gone + + ENDIF !on to ice +! + + ENDIF !finished with rain ! ! ! now for ice ! equation from (OT); correction factors for units applied ! - 33 continue - IF (QI (L) .LE.1.E-10) RETURN !no ice there +33 continue + IF (QI (L) .LE.1.E-10) RETURN !no ice there ! - DIVIDEND = ( (1.E6 / RHO (L) ) **0.475) * (SD / QSAT (L) & + DIVIDEND = ( (1.E6 / RHO (L) ) **0.475) * (SD / QSAT (L) & - 1) * (QI (L) **0.525) * 1.13 - DIVISOR = 7.E5 + 4.1E6 / (10. * EST (L) ) - - DEVIDT = - CVI(L) * DIVIDEND / DIVISOR !rate of change - - EVIDT = DEVIDT * DT !what we could get + DIVISOR = 7.E5 + 4.1E6 / (10. * EST (L) ) + + DEVIDT = - CVI(L) * DIVIDEND / DIVISOR !rate of change + + EVIDT = DEVIDT * DT !what we could get ! ! logic here is identical to rain. could get fancy and make subroutine ! but duplication of code is easier. God bless the screen editor. ! - - IF (EVIDT.LE.QI (L) ) THEN !enough ice to last DT -! - - IF (SD.LE.EVIDT) THEN !enough time to saturate - QI (L) = QI (L) - SD !remove ice - QV (L) = QSAT (L) !saturate - T (L) = T (L) - SD * SRC !cool the parcel - - RETURN !done -! - - ELSE !not enough time - - SD = SD-EVIDT !use what there is - QV (L) = QV (L) + EVIDT !add vapor - T (L) = T (L) - EVIDT * SRC !lose heat - QI (L) = QI (L) - EVIDT !lose ice - - ENDIF !go on,unsatisfied -! - ELSE !not enough ice to last DT -! - IF (SD.LE.QI (L) ) THEN !but there is enough to sat - - QV (L) = QSAT (L) !use it - QI (L) = QI (L) - SD - T (L) = T (L) - SD * SRC - - RETURN -! - ELSE !not enough to sat - SD = SD-QI (L) - QV (L) = QV (L) + QI (L) - T (L) = T (L) - QI (L) * SRC - QI (L) = 0.0 !all gone - - ENDIF !on to better things - !finished with ice - ENDIF -! -ENDIF !finished with the SD decision -! -RETURN -! -END SUBROUTINE EVAPORATE + + IF (EVIDT.LE.QI (L) ) THEN !enough ice to last DT +! + + IF (SD.LE.EVIDT) THEN !enough time to saturate + QI (L) = QI (L) - SD !remove ice + QV (L) = QSAT (L) !saturate + T (L) = T (L) - SD * SRC !cool the parcel + + RETURN !done +! + + ELSE !not enough time + + SD = SD-EVIDT !use what there is + QV (L) = QV (L) + EVIDT !add vapor + T (L) = T (L) - EVIDT * SRC !lose heat + QI (L) = QI (L) - EVIDT !lose ice + + ENDIF !go on,unsatisfied +! + ELSE !not enough ice to last DT +! + IF (SD.LE.QI (L) ) THEN !but there is enough to sat + + QV (L) = QSAT (L) !use it + QI (L) = QI (L) - SD + T (L) = T (L) - SD * SRC + + RETURN +! + ELSE !not enough to sat + SD = SD-QI (L) + QV (L) = QV (L) + QI (L) + T (L) = T (L) - QI (L) * SRC + QI (L) = 0.0 !all gone + + ENDIF !on to better things + !finished with ice + ENDIF +! + ENDIF !finished with the SD decision +! + RETURN +! + END SUBROUTINE EVAPORATE ! ! ********************************************************************* -SUBROUTINE CONVERT () + SUBROUTINE CONVERT () ! !- ACCRETION AND AUTOCONVERSION ! -!use module_zero_plumegen_coms +!use module_zero_plumegen_coms ! -real(kind=kind_chem), PARAMETER :: AK1 = 0.001 !conversion rate constant -real(kind=kind_chem), PARAMETER :: AK2 = 0.0052 !collection (accretion) rate -real(kind=kind_chem), PARAMETER :: TH = 0.5 !Kessler threshold -integer, PARAMETER ::iconv = 1 !- Kessler conversion (=0) - + real(kind=kind_chem), PARAMETER :: AK1 = 0.001 !conversion rate constant + real(kind=kind_chem), PARAMETER :: AK2 = 0.0052 !collection (accretion) rate + real(kind=kind_chem), PARAMETER :: TH = 0.5 !Kessler threshold + integer, PARAMETER ::iconv = 1 !- Kessler conversion (=0) + !real(kind=kind_chem), parameter :: ANBASE = 50.!*1.e+6 !Berry-number at cloud base #/m^3(maritime) - real(kind=kind_chem), parameter :: ANBASE =100000.!*1.e+6 !Berry-number at cloud base #/m^3(continental) + real(kind=kind_chem), parameter :: ANBASE =100000.!*1.e+6 !Berry-number at cloud base #/m^3(continental) !real(kind=kind_chem), parameter :: BDISP = 0.366 !Berry--size dispersion (maritime) - real(kind=kind_chem), parameter :: BDISP = 0.146 !Berry--size dispersion (continental) -real(kind=kind_chem), parameter :: TFREEZE = 269.3 !ice formation temperature + real(kind=kind_chem), parameter :: BDISP = 0.146 !Berry--size dispersion (continental) + real(kind=kind_chem), parameter :: TFREEZE = 269.3 !ice formation temperature ! -real(kind=kind_chem) :: accrete, con, q, h, bc1, bc2, total + real(kind=kind_chem) :: accrete, con, q, h, bc1, bc2, total -IF (T (L) .LE. TFREEZE) RETURN !process not allowed above ice + IF (T (L) .LE. TFREEZE) RETURN !process not allowed above ice ! -IF (QC (L) .EQ. 0. ) RETURN + IF (QC (L) .EQ. 0. ) RETURN -ACCRETE = 0. -CON = 0. -Q = RHO (L) * QC (L) -H = RHO (L) * QH (L) + ACCRETE = 0. + CON = 0. + Q = RHO (L) * QC (L) + H = RHO (L) * QH (L) ! ! selection rules ! ! -IF (QH (L) .GT. 0. ) ACCRETE = AK2 * Q * (H**.875) !accretion, Kessler + IF (QH (L) .GT. 0. ) ACCRETE = AK2 * Q * (H**.875) !accretion, Kessler ! -IF (ICONV.NE.0) THEN !select Berry or Kessler + IF (ICONV.NE.0) THEN !select Berry or Kessler ! !old BC1 = 120. !old BC2 = .0266 * ANBASE * 60. !old CON = BDISP * Q * Q * Q / (BC1 * Q * BDISP + BC2) - CON = Q*Q*Q*BDISP/(60.*(5.*Q*BDISP+0.0366*ANBASE)) + CON = Q*Q*Q*BDISP/(60.*(5.*Q*BDISP+0.0366*ANBASE)) +! + ELSE ! -ELSE -! ! CON = AK1 * (Q - TH) !Kessler autoconversion rate -! +! ! IF (CON.LT.0.0) CON = 0.0 !havent reached threshold - - CON = max(0.,AK1 * (Q - TH)) ! versao otimizada + + CON = max(0.,AK1 * (Q - TH)) ! versao otimizada ! -ENDIF + ENDIF ! ! -TOTAL = (CON + ACCRETE) * DT / RHO (L) + TOTAL = (CON + ACCRETE) * DT / RHO (L) ! -IF (TOTAL.LT.QC (L) ) THEN + IF (TOTAL.LT.QC (L) ) THEN +! + QC (L) = QC (L) - TOTAL + QH (L) = QH (L) + TOTAL !no phase change involved + RETURN ! - QC (L) = QC (L) - TOTAL - QH (L) = QH (L) + TOTAL !no phase change involved - RETURN + ELSE ! -ELSE -! - QH (L) = QH (L) + QC (L) !uses all there is - QC (L) = 0.0 + QH (L) = QH (L) + QC (L) !uses all there is + QC (L) = 0.0 ! -ENDIF + ENDIF ! -RETURN + RETURN ! -END SUBROUTINE CONVERT + END SUBROUTINE CONVERT ! !********************************************************************** ! -SUBROUTINE CONVERT2 () -!use module_zero_plumegen_coms -implicit none -LOGICAL AEROSOL -parameter(AEROSOL=.true.) -! -real(kind=kind_chem), parameter :: TNULL=273.16, LAT=2.5008E6 & - ,EPSI=0.622 ,DB=1. ,NB=1500. !ALPHA=0.2 -real(kind=kind_chem) :: KA,KEINS,KZWEI,KDREI,VT -real(kind=kind_chem) :: A,B,C,D, CON,ACCRETE,total - -real(kind=kind_chem) Y(6),ROH - -A=0. -B=0. -Y(1) = T(L) -Y(4) = W(L) -y(2) = QC(L) -y(3) = QH(L) -Y(5) = RADIUS(L) -ROH = RHO(L)*1.e-3 ! dens (MKS) ?? + SUBROUTINE CONVERT2 () +!use module_zero_plumegen_coms + implicit none + LOGICAL AEROSOL + parameter(AEROSOL=.true.) +! + real(kind=kind_chem), parameter :: TNULL=273.16, LAT=2.5008E6 & + ,EPSI=0.622 ,DB=1. ,NB=1500. !ALPHA=0.2 + real(kind=kind_chem) :: KA,KEINS,KZWEI,KDREI,VT + real(kind=kind_chem) :: A,B,C,D, CON,ACCRETE,total + + real(kind=kind_chem) Y(6),ROH + + A=0. + B=0. + Y(1) = T(L) + Y(4) = W(L) + y(2) = QC(L) + y(3) = QH(L) + Y(5) = RADIUS(L) + ROH = RHO(L)*1.e-3 ! dens (MKS) ?? ! autoconversion -KA = 0.0005 -IF( Y(1) .LT. 258.15 )THEN + KA = 0.0005 + IF( Y(1) .LT. 258.15 )THEN ! KEINS=0.00075 - KEINS=0.0009 - KZWEI=0.0052 - KDREI=15.39 -ELSE - KEINS=0.0015 - KZWEI=0.00696 - KDREI=11.58 -ENDIF - + KEINS=0.0009 + KZWEI=0.0052 + KDREI=15.39 + ELSE + KEINS=0.0015 + KZWEI=0.00696 + KDREI=11.58 + ENDIF + ! ROH=PE/RD/TE -VT=-KDREI* (Y(3)/ROH)**0.125 - - -IF (Y(4).GT.0.0 ) THEN - IF (AEROSOL) THEN - A = 1/y(4) * y(2)*y(2)*1000./( 60. *( 5. + 0.0366*NB/(y(2)*1000.*DB) ) ) - ELSE - IF (y(2).GT.(KA*ROH)) THEN - A = KEINS/y(4) *(y(2) - KA*ROH ) - ENDIF - ENDIF -ELSE - A = 0.0 -ENDIF + VT=-KDREI* (Y(3)/ROH)**0.125 + + + IF (Y(4).GT.0.0 ) THEN + IF (AEROSOL) THEN + A = 1/y(4) * y(2)*y(2)*1000./( 60. *( 5. + 0.0366*NB/(y(2)*1000.*DB) ) ) + ELSE + IF (y(2).GT.(KA*ROH)) THEN + A = KEINS/y(4) *(y(2) - KA*ROH ) + ENDIF + ENDIF + ELSE + A = 0.0 + ENDIF ! accretion -IF(y(4).GT.0.0) THEN - B = KZWEI/(y(4) - VT) * MAX(0.,y(2)) * & - MAX(0.001,ROH)**(-0.875)*(MAX(0.,y(3)))**(0.875) -ELSE - B = 0.0 -ENDIF - - + IF(y(4).GT.0.0) THEN + B = KZWEI/(y(4) - VT) * MAX(0.,y(2)) * & + MAX(0.001,ROH)**(-0.875)*(MAX(0.,y(3)))**(0.875) + ELSE + B = 0.0 + ENDIF + + !PSATW=610.7*EXP( 17.25 *( Y(1) - TNULL )/( Y(1)-36. ) ) !PSATE=610.7*EXP( 22.33 *( Y(1) - TNULL )/( Y(1)- 2. ) ) !QSATW=EPSI*PSATW/( PE-(1.-EPSI)*PSATW ) !QSATE=EPSI*PSATE/( PE-(1.-EPSI)*PSATE ) - + !MU=2.*ALPHA/Y(5) !C = MU*( ROH*QSATW - ROH*QVE + y(2) ) !D = ROH*LAT*QSATW*EPSI/Y1/Y1/RD *DYDX1 - + !DYDX(2) = - A - B - C - D ! d rc/dz !DYDX(3) = A + B ! d rh/dz - - + + ! rc=rc+dydx(2)*dz ! rh=rh+dydx(3)*dz - -CON = A -ACCRETE = B - -TOTAL = (CON + ACCRETE) *(1/DZM(L)) /ROH ! DT / RHO (L) + CON = A + ACCRETE = B + + TOTAL = (CON + ACCRETE) *(1/DZM(L)) /ROH ! DT / RHO (L) + +! + IF (TOTAL.LT.QC (L) ) THEN ! -IF (TOTAL.LT.QC (L) ) THEN + QC (L) = QC (L) - TOTAL + QH (L) = QH (L) + TOTAL !no phase change involved + RETURN ! - QC (L) = QC (L) - TOTAL - QH (L) = QH (L) + TOTAL !no phase change involved - RETURN + ELSE ! -ELSE -! - QH (L) = QH (L) + QC (L) !uses all there is - QC (L) = 0.0 + QH (L) = QH (L) + QC (L) !uses all there is + QC (L) = 0.0 ! -ENDIF + ENDIF ! -RETURN + RETURN ! -END SUBROUTINE CONVERT2 + END SUBROUTINE CONVERT2 ! ice - effect on temperature -! TTD = 0.0 -! TTE = 0.0 +! TTD = 0.0 +! TTE = 0.0 ! CALL ICE(QSATW,QSATE,Y(1),Y(2),Y(3), & ! TTA,TTB,TTC,DZ,ROH,D,C,TTD,TTE) ! DYDX(1) = DYDX(1) + TTD + TTE ! DT/DZ on Temp ! !********************************************************************** ! -SUBROUTINE SUBLIMATE + SUBROUTINE SUBLIMATE ! ! ********************* VAPOR TO ICE (USE EQUATION OT22)*************** -!use module_zero_plumegen_coms +!use module_zero_plumegen_coms ! -real(kind=kind_chem), PARAMETER :: EPS = 0.622, HEATFUS = 334., HEATSUBL = 2834., CP = 1.004 -real(kind=kind_chem), PARAMETER :: SRC = HEATSUBL / CP, FRC = HEATFUS / CP, TMELT = 273.3 -real(kind=kind_chem), PARAMETER :: TFREEZE = 269.3 + real(kind=kind_chem), PARAMETER :: EPS = 0.622, HEATFUS = 334., HEATSUBL = 2834., CP = 1.004 + real(kind=kind_chem), PARAMETER :: SRC = HEATSUBL / CP, FRC = HEATFUS / CP, TMELT = 273.3 + real(kind=kind_chem), PARAMETER :: TFREEZE = 269.3 -real(kind=kind_chem) ::dtsubh, dividend,divisor, subl + real(kind=kind_chem) ::dtsubh, dividend,divisor, subl ! -DTSUBH = 0. + DTSUBH = 0. ! !selection criteria for sublimation -IF (T (L) .GT. TFREEZE ) RETURN -IF (QV (L) .LE. QSAT (L) ) RETURN + IF (T (L) .GT. TFREEZE ) RETURN + IF (QV (L) .LE. QSAT (L) ) RETURN ! ! from (OT); correction factors for units applied ! - DIVIDEND = ( (1.E6 / RHO (L) ) **0.475) * (QV (L) / QSAT (L) & - - 1) * (QI (L) **0.525) * 1.13 - DIVISOR = 7.E5 + 4.1E6 / (10. * EST (L) ) + DIVIDEND = ( (1.E6 / RHO (L) ) **0.475) * (QV (L) / QSAT (L) & + - 1) * (QI (L) **0.525) * 1.13 + DIVISOR = 7.E5 + 4.1E6 / (10. * EST (L) ) ! - - DTSUBH = ABS (DIVIDEND / DIVISOR) !sublimation rate - SUBL = DTSUBH * DT !and amount possible + + DTSUBH = ABS (DIVIDEND / DIVISOR) !sublimation rate + SUBL = DTSUBH * DT !and amount possible ! ! again check the possibilities ! -IF (SUBL.LT.QV (L) ) THEN + IF (SUBL.LT.QV (L) ) THEN ! - QV (L) = QV (L) - SUBL !lose vapor - QI (L) = QI (L) + SUBL !gain ice - T (L) = T (L) + SUBL * SRC !energy change, warms air + QV (L) = QV (L) - SUBL !lose vapor + QI (L) = QI (L) + SUBL !gain ice + T (L) = T (L) + SUBL * SRC !energy change, warms air - RETURN + RETURN +! + ELSE ! -ELSE -! - QI (L) = QV (L) !use what there is - T (L) = T (L) + QV (L) * SRC !warm the air - QV (L) = 0.0 + QI (L) = QV (L) !use what there is + T (L) = T (L) + QV (L) * SRC !warm the air + QV (L) = 0.0 ! -ENDIF + ENDIF ! -RETURN -END SUBROUTINE SUBLIMATE + RETURN + END SUBROUTINE SUBLIMATE ! ! ********************************************************************* ! -SUBROUTINE GLACIATE + SUBROUTINE GLACIATE ! ! *********************** CONVERSION OF RAIN TO ICE ******************* ! uses equation OT 16, simplest. correction from W not applied, but ! vapor pressure differences are supplied. ! -!use module_zero_plumegen_coms +!use module_zero_plumegen_coms ! -real(kind=kind_chem), PARAMETER :: HEATFUS = 334., CP = 1.004, EPS = 0.622, HEATSUBL = 2834. -real(kind=kind_chem), PARAMETER :: FRC = HEATFUS / CP, FRS = HEATSUBL / CP, TFREEZE = 269.3 -real(kind=kind_chem), PARAMETER :: GLCONST = 0.025 !glaciation time constant, 1/sec -real(kind=kind_chem) dfrzh + real(kind=kind_chem), PARAMETER :: HEATFUS = 334., CP = 1.004, EPS = 0.622, HEATSUBL = 2834. + real(kind=kind_chem), PARAMETER :: FRC = HEATFUS / CP, FRS = HEATSUBL / CP, TFREEZE = 269.3 + real(kind=kind_chem), PARAMETER :: GLCONST = 0.025 !glaciation time constant, 1/sec + real(kind=kind_chem) dfrzh ! - - DFRZH = 0. !rate of mass gain in ice + + DFRZH = 0. !rate of mass gain in ice ! !selection rules for glaciation -IF (QH (L) .LE. 0. ) RETURN -IF (QV (L) .LT. QSAT (L) ) RETURN -IF (T (L) .GT. TFREEZE ) RETURN + IF (QH (L) .LE. 0. ) RETURN + IF (QV (L) .LT. QSAT (L) ) RETURN + IF (T (L) .GT. TFREEZE ) RETURN ! ! NT=TMELT-T(L) ! IF (NT.GT.50) NT=50 ! - - DFRZH = DT * GLCONST * QH (L) ! from OT(16) + + DFRZH = DT * GLCONST * QH (L) ! from OT(16) ! -IF (DFRZH.LT.QH (L) ) THEN + IF (DFRZH.LT.QH (L) ) THEN ! - QI (L) = QI (L) + DFRZH - QH (L) = QH (L) - DFRZH - T (L) = T (L) + FRC * DFRZH !warms air - - RETURN + QI (L) = QI (L) + DFRZH + QH (L) = QH (L) - DFRZH + T (L) = T (L) + FRC * DFRZH !warms air + + RETURN ! -ELSE + ELSE ! - QI (L) = QI (L) + QH (L) - T (L) = T (L) + FRC * QH (L) - QH (L) = 0.0 + QI (L) = QI (L) + QH (L) + T (L) = T (L) + FRC * QH (L) + QH (L) = 0.0 ! -ENDIF + ENDIF ! -RETURN + RETURN ! -END SUBROUTINE GLACIATE + END SUBROUTINE GLACIATE ! ! ! ********************************************************************* -SUBROUTINE MELT + SUBROUTINE MELT ! ! ******************* MAKES WATER OUT OF ICE ************************** -!use module_zero_plumegen_coms -! -real(kind=kind_chem), PARAMETER :: FRC = 332.27, TMELT = 273., F0 = 0.75 !ice velocity factor -real(kind=kind_chem) DTMELT -! - DTMELT = 0. !conversion,ice to rain +!use module_zero_plumegen_coms +! + real(kind=kind_chem), PARAMETER :: FRC = 332.27, TMELT = 273., F0 = 0.75 !ice velocity factor + real(kind=kind_chem) DTMELT +! + DTMELT = 0. !conversion,ice to rain ! !selection rules -IF (QI (L) .LE. 0.0 ) RETURN -IF (T (L) .LT. TMELT) RETURN + IF (QI (L) .LE. 0.0 ) RETURN + IF (T (L) .LT. TMELT) RETURN ! - !OT(23,24) - DTMELT = DT * (2.27 / RHO (L) ) * CVI(L) * (T (L) - TMELT) * ( (RHO(L) & + !OT(23,24) + DTMELT = DT * (2.27 / RHO (L) ) * CVI(L) * (T (L) - TMELT) * ( (RHO(L) & * QI (L) * 1.E-6) **0.525) * (F0** ( - 0.42) ) - !after Mason,1956 + !after Mason,1956 ! ! check the possibilities ! -IF (DTMELT.LT.QI (L) ) THEN -! - QH (L) = QH (L) + DTMELT - QI (L) = QI (L) - DTMELT - T (L) = T (L) - FRC * DTMELT !cools air - - RETURN -! -ELSE -! - QH (L) = QH (L) + QI (L) !get all there is to get - T (L) = T (L) - FRC * QI (L) - QI (L) = 0.0 -! -ENDIF -! -RETURN -! -END SUBROUTINE MELT - -SUBROUTINE htint (nzz1, vctra, eleva, nzz2, vctrb, elevb) - IMPLICIT NONE - INTEGER, INTENT(IN ) :: nzz1 - INTEGER, INTENT(IN ) :: nzz2 - REAL(kind=kind_chem), INTENT(IN ) :: vctra(nzz1) - REAL(kind=kind_chem), INTENT(OUT) :: vctrb(nzz2) - REAL(kind=kind_chem), INTENT(IN ) :: eleva(nzz1) - REAL(kind=kind_chem), INTENT(IN ) :: elevb(nzz2) - - INTEGER :: l - INTEGER :: k - INTEGER :: kk - REAL(kind=kind_chem) :: wt - - l=1 - - DO k=1,nzz2 - DO - IF ( (elevb(k) < eleva(1)) .OR. & - ((elevb(k) >= eleva(l)) .AND. (elevb(k) <= eleva(l+1))) ) THEN - wt = (elevb(k)-eleva(l))/(eleva(l+1)-eleva(l)) - vctrb(k) = vctra(l)+(vctra(l+1)-vctra(l))*wt - EXIT - ELSE IF ( elevb(k) > eleva(nzz1)) THEN - wt = (elevb(k)-eleva(nzz1))/(eleva(nzz1-1)-eleva(nzz1)) - vctrb(k) = vctra(nzz1)+(vctra(nzz1-1)-vctra(nzz1))*wt - EXIT - END IF - - l=l+1 - IF(l == nzz1) THEN - PRINT *,'htint:nzz1',nzz1 - DO kk=1,l - PRINT*,'kk,eleva(kk),elevb(kk)',eleva(kk),elevb(kk) - END DO - STOP 'htint' - END IF - END DO - END DO -END SUBROUTINE htint + IF (DTMELT.LT.QI (L) ) THEN +! + QH (L) = QH (L) + DTMELT + QI (L) = QI (L) - DTMELT + T (L) = T (L) - FRC * DTMELT !cools air + + RETURN +! + ELSE +! + QH (L) = QH (L) + QI (L) !get all there is to get + T (L) = T (L) - FRC * QI (L) + QI (L) = 0.0 +! + ENDIF +! + RETURN +! + END SUBROUTINE MELT + + SUBROUTINE htint (nzz1, vctra, eleva, nzz2, vctrb, elevb) + IMPLICIT NONE + INTEGER, INTENT(IN ) :: nzz1 + INTEGER, INTENT(IN ) :: nzz2 + REAL(kind=kind_chem), INTENT(IN ) :: vctra(nzz1) + REAL(kind=kind_chem), INTENT(OUT) :: vctrb(nzz2) + REAL(kind=kind_chem), INTENT(IN ) :: eleva(nzz1) + REAL(kind=kind_chem), INTENT(IN ) :: elevb(nzz2) + + INTEGER :: l + INTEGER :: k + INTEGER :: kk + REAL(kind=kind_chem) :: wt + + l=1 + + DO k=1,nzz2 + DO + IF ( (elevb(k) < eleva(1)) .OR. & + ((elevb(k) >= eleva(l)) .AND. (elevb(k) <= eleva(l+1))) ) THEN + wt = (elevb(k)-eleva(l))/(eleva(l+1)-eleva(l)) + vctrb(k) = vctra(l)+(vctra(l+1)-vctra(l))*wt + EXIT + ELSE IF ( elevb(k) > eleva(nzz1)) THEN + wt = (elevb(k)-eleva(nzz1))/(eleva(nzz1-1)-eleva(nzz1)) + vctrb(k) = vctra(nzz1)+(vctra(nzz1-1)-vctra(nzz1))*wt + EXIT + END IF + + l=l+1 + IF(l == nzz1) THEN + PRINT *,'htint:nzz1',nzz1 + DO kk=1,l + PRINT*,'kk,eleva(kk),elevb(kk)',eleva(kk),elevb(kk) + END DO + STOP 'htint' + END IF + END DO + END DO + END SUBROUTINE htint !----------------------------------------------------------------------------- -FUNCTION ESAT_PR (TEM) + FUNCTION ESAT_PR (TEM) ! ! ******* Vapor Pressure A.L. Buck JAM V.20 p.1527. (1981) *********** ! -real(kind=kind_chem), PARAMETER :: CI1 = 6.1115, CI2 = 22.542, CI3 = 273.48 -real(kind=kind_chem), PARAMETER :: CW1 = 6.1121, CW2 = 18.729, CW3 = 257.87, CW4 = 227.3 -real(kind=kind_chem), PARAMETER :: TMELT = 273.3 + real(kind=kind_chem), PARAMETER :: CI1 = 6.1115, CI2 = 22.542, CI3 = 273.48 + real(kind=kind_chem), PARAMETER :: CW1 = 6.1121, CW2 = 18.729, CW3 = 257.87, CW4 = 227.3 + real(kind=kind_chem), PARAMETER :: TMELT = 273.3 -real(kind=kind_chem) ESAT_PR -real(kind=kind_chem) temc , tem,esatm + real(kind=kind_chem) ESAT_PR + real(kind=kind_chem) temc , tem,esatm ! ! formulae from Buck, A.L., JAM 20,1527-1532 ! custom takes esat wrt water always. formula for h2o only ! good to -40C so: ! ! -TEMC = TEM - TMELT -IF (TEMC.GT. - 40.0) GOTO 230 -ESATM = CI1 * EXP (CI2 * TEMC / (TEMC + CI3) ) !ice, millibars -ESAT_PR = ESATM / 10. !kPa + TEMC = TEM - TMELT + IF (TEMC.GT. - 40.0) GOTO 230 + ESATM = CI1 * EXP (CI2 * TEMC / (TEMC + CI3) ) !ice, millibars + ESAT_PR = ESATM / 10. !kPa -RETURN + RETURN ! -230 ESATM = CW1 * EXP ( ( (CW2 - (TEMC / CW4) ) * TEMC) / (TEMC + CW3)) +230 ESATM = CW1 * EXP ( ( (CW2 - (TEMC / CW4) ) * TEMC) / (TEMC + CW3)) -ESAT_PR = ESATM / 10. !kPa -RETURN -END function ESAT_PR + ESAT_PR = ESATM / 10. !kPa + RETURN + END function ESAT_PR ! ****************************************************************** ! ------------------------------------------------------------------------ diff --git a/src/plume_zero_mod.F90 b/src/plume_zero_mod.F90 index 159485fb..a6f2f49b 100644 --- a/src/plume_zero_mod.F90 +++ b/src/plume_zero_mod.F90 @@ -1,81 +1,81 @@ module plume_zero_mod -use catchem_constants, only : kind_chem + use catchem_constants, only : kind_chem -implicit none -integer, parameter :: nkp = 200, ntime = 200 + implicit none + integer, parameter :: nkp = 200, ntime = 200 ! -real(kind=kind_chem),dimension(nkp) :: w,t,qv,qc,qh,qi,sc, & ! blob - vth,vti,rho,txs, & - est,qsat,qpas,qtotal + real(kind=kind_chem),dimension(nkp) :: w,t,qv,qc,qh,qi,sc, & ! blob + vth,vti,rho,txs, & + est,qsat,qpas,qtotal -real(kind=kind_chem),dimension(nkp) :: wc,wt,tt,qvt,qct,qht,qit,sct,wpass !lzhang -real(kind=kind_chem),dimension(nkp) :: dzm,dzt,zm,zt,vctr1,vctr2 & - ,vt3dc,vt3df,vt3dk,vt3dg,scr1 + real(kind=kind_chem),dimension(nkp) :: wc,wt,tt,qvt,qct,qht,qit,sct,wpass !lzhang + real(kind=kind_chem),dimension(nkp) :: dzm,dzt,zm,zt,vctr1,vctr2 & + ,vt3dc,vt3df,vt3dk,vt3dg,scr1 ! -real(kind=kind_chem),dimension(nkp) :: pke,the,thve,thee,pe,te,qvenv,rhe,dne,sce ! environment at plume grid -real(kind=kind_chem),dimension(nkp) :: ucon,vcon,wcon,thtcon ,rvcon,picon,tmpcon,dncon,prcon & - ,zcon,zzcon,scon ! environment at RAMS grid + real(kind=kind_chem),dimension(nkp) :: pke,the,thve,thee,pe,te,qvenv,rhe,dne,sce ! environment at plume grid + real(kind=kind_chem),dimension(nkp) :: ucon,vcon,wcon,thtcon ,rvcon,picon,tmpcon,dncon,prcon & + ,zcon,zzcon,scon ! environment at RAMS grid ! -real(kind=kind_chem) :: DZ,DQSDZ,VISC(nkp),VISCOSITY,TSTPF -integer :: N,NM1,L + real(kind=kind_chem) :: DZ,DQSDZ,VISC(nkp),VISCOSITY,TSTPF + integer :: N,NM1,L ! -real(kind=kind_chem) :: ADVW,ADVT,ADVV,ADVC,ADVH,ADVI,CVH(nkp),CVI(nkp),ADIABAT,& - WBAR,ALAST(10),VHREL,VIREL ! advection + real(kind=kind_chem) :: ADVW,ADVT,ADVV,ADVC,ADVH,ADVI,CVH(nkp),CVI(nkp),ADIABAT,& + WBAR,ALAST(10),VHREL,VIREL ! advection ! -real(kind=kind_chem) :: ZSURF,ZBASE,ZTOP -integer :: LBASE + real(kind=kind_chem) :: ZSURF,ZBASE,ZTOP + integer :: LBASE ! -real(kind=kind_chem) :: AREA,RSURF,ALPHA,RADIUS(nkp) ! entrain + real(kind=kind_chem) :: AREA,RSURF,ALPHA,RADIUS(nkp) ! entrain ! -real(kind=kind_chem) :: HEATING(ntime),FMOIST,BLOAD ! heating + real(kind=kind_chem) :: HEATING(ntime),FMOIST,BLOAD ! heating ! -real(kind=kind_chem) :: DT,TIME,TDUR -integer :: MINTIME,MDUR,MAXTIME + real(kind=kind_chem) :: DT,TIME,TDUR + integer :: MINTIME,MDUR,MAXTIME ! -REAL(kind=kind_chem), DIMENSION(nkp,2) :: W_VMD,VMD -REAL(kind=kind_chem) :: upe (nkp) -REAL(kind=kind_chem) :: vpe (nkp) -REAL(kind=kind_chem) :: vel_e (nkp) + REAL(kind=kind_chem), DIMENSION(nkp,2) :: W_VMD,VMD + REAL(kind=kind_chem) :: upe (nkp) + REAL(kind=kind_chem) :: vpe (nkp) + REAL(kind=kind_chem) :: vel_e (nkp) -REAL(kind=kind_chem) :: vel_p (nkp) -REAL(kind=kind_chem) :: rad_p (nkp) -REAL(kind=kind_chem) :: vel_t (nkp) -REAL(kind=kind_chem) :: rad_t (nkp) + REAL(kind=kind_chem) :: vel_p (nkp) + REAL(kind=kind_chem) :: rad_p (nkp) + REAL(kind=kind_chem) :: vel_t (nkp) + REAL(kind=kind_chem) :: rad_t (nkp) -real(kind=kind_chem) :: ztop_(ntime) + real(kind=kind_chem) :: ztop_(ntime) -public + public contains -subroutine zero_plumegen_coms + subroutine zero_plumegen_coms -w=0.0;t=0.0;qv=0.0;qc=0.0;qh=0.0;qi=0.0;sc=0.0 -vth=0.0;vti=0.0;rho=0.0;txs=0.0 -est=0.0;qsat=0.0;qpas=0.0;qtotal=0.0 -wc=0.0;wt=0.0;wpass=0.0;tt=0.0;qvt=0.0;qct=0.0;qht=0.0;qit=0.0;sct=0.0 -dzm=0.0;dzt=0.0;zm=0.0;zt=0.0;vctr1=0.0;vctr2=0.0 -vt3dc=0.0;vt3df=0.0;vt3dk=0.0;vt3dg=0.0;scr1=0.0 -pke=0.0;the=0.0;thve=0.0;thee=0.0;pe=0.0;te=0.0;qvenv=0.0;rhe=0.0;dne=0.0;sce=0.0 -ucon=0.0;vcon=0.0;wcon=0.0;thtcon =0.0;rvcon=0.0;picon=0.0;tmpcon=0.0;dncon=0.0;prcon=0.0 -zcon=0.0;zzcon=0.0;scon=0.0 -dz=0.0;dqsdz=0.0;visc=0.0;viscosity=0.0;tstpf=0.0 -advw=0.0;advt=0.0;advv=0.0;advc=0.0;advh=0.0;advi=0.0;cvh=0.0;cvi=0.0;adiabat=0.0 -wbar=0.0;alast=0.0;vhrel=0.0;virel=0.0 -zsurf=0.0;zbase=0.0;ztop=0.0;area=0.0;rsurf=0.0;alpha=0.0;radius=0.0;heating=0.0 -fmoist=0.0;bload=0.0;dt=0.0;time=0.0;tdur=0.0 -ztop_=0.0 -upe =0.0 -vpe =0.0 -vel_e =0.0 -vel_p =0.0 -rad_p =0.0 -vel_t =0.0 -rad_t =0.0 - W_VMD=0.0 - VMD=0.0 -n=0;nm1=0;l=0;lbase=0;mintime=0;mdur=0;maxtime=0 -end subroutine zero_plumegen_coms + w=0.0;t=0.0;qv=0.0;qc=0.0;qh=0.0;qi=0.0;sc=0.0 + vth=0.0;vti=0.0;rho=0.0;txs=0.0 + est=0.0;qsat=0.0;qpas=0.0;qtotal=0.0 + wc=0.0;wt=0.0;wpass=0.0;tt=0.0;qvt=0.0;qct=0.0;qht=0.0;qit=0.0;sct=0.0 + dzm=0.0;dzt=0.0;zm=0.0;zt=0.0;vctr1=0.0;vctr2=0.0 + vt3dc=0.0;vt3df=0.0;vt3dk=0.0;vt3dg=0.0;scr1=0.0 + pke=0.0;the=0.0;thve=0.0;thee=0.0;pe=0.0;te=0.0;qvenv=0.0;rhe=0.0;dne=0.0;sce=0.0 + ucon=0.0;vcon=0.0;wcon=0.0;thtcon =0.0;rvcon=0.0;picon=0.0;tmpcon=0.0;dncon=0.0;prcon=0.0 + zcon=0.0;zzcon=0.0;scon=0.0 + dz=0.0;dqsdz=0.0;visc=0.0;viscosity=0.0;tstpf=0.0 + advw=0.0;advt=0.0;advv=0.0;advc=0.0;advh=0.0;advi=0.0;cvh=0.0;cvi=0.0;adiabat=0.0 + wbar=0.0;alast=0.0;vhrel=0.0;virel=0.0 + zsurf=0.0;zbase=0.0;ztop=0.0;area=0.0;rsurf=0.0;alpha=0.0;radius=0.0;heating=0.0 + fmoist=0.0;bload=0.0;dt=0.0;time=0.0;tdur=0.0 + ztop_=0.0 + upe =0.0 + vpe =0.0 + vel_e =0.0 + vel_p =0.0 + rad_p =0.0 + vel_t =0.0 + rad_t =0.0 + W_VMD=0.0 + VMD=0.0 + n=0;nm1=0;l=0;lbase=0;mintime=0;mdur=0;maxtime=0 + end subroutine zero_plumegen_coms end module plume_zero_mod diff --git a/src/vash_settling_mod.F90 b/src/vash_settling_mod.F90 index cd0a6f7c..a1c9f226 100644 --- a/src/vash_settling_mod.F90 +++ b/src/vash_settling_mod.F90 @@ -1,317 +1,317 @@ module vash_settling_mod - use catchem_constants , only : kind_chem, g => con_g - use catchem_config + use catchem_constants , only : kind_chem, g => con_g + use catchem_config - implicit none - - private - public :: vash_settling_driver, & - vashshort_settling_driver + implicit none + + private + public :: vash_settling_driver, & + vashshort_settling_driver CONTAINS -SUBROUTINE vash_settling_driver(dt,t_phy,moist, & - chem_arr,rho_phy,dz8w, & - p8w,p_phy,area, & - ash_fall,kms,kme,kts,kte) + SUBROUTINE vash_settling_driver(dt,t_phy,moist, & + chem_arr,rho_phy,dz8w, & + p8w,p_phy,area, & + ash_fall,kms,kme,kts,kte) - IMPLICIT NONE + IMPLICIT NONE - INTEGER, INTENT(IN ) :: kms,kme,kts,kte + INTEGER, INTENT(IN ) :: kms,kme,kts,kte - REAL(kind_chem), DIMENSION( kms:kme,num_moist ), & + REAL(kind_chem), DIMENSION( kms:kme,num_moist ), & INTENT(IN ) :: moist - REAL(kind_chem), DIMENSION( kms:kme, num_chem ), & + REAL(kind_chem), DIMENSION( kms:kme, num_chem ), & INTENT(INOUT ) :: chem_arr - REAL(kind_chem), INTENT(IN ) :: area - REAL(kind_chem), DIMENSION( kms:kme ), & - INTENT(IN ) :: t_phy,p_phy,dz8w,p8w,rho_phy - REAL(kind_chem), INTENT(IN ) :: dt + REAL(kind_chem), INTENT(IN ) :: area + REAL(kind_chem), DIMENSION( kms:kme ), & + INTENT(IN ) :: t_phy,p_phy,dz8w,p8w,rho_phy + REAL(kind_chem), INTENT(IN ) :: dt - REAL(kind_chem), INTENT(INOUT ) :: ash_fall + REAL(kind_chem), INTENT(INOUT ) :: ash_fall - integer :: nmx,i,j,k,kk,lmx,iseas,idust - real(kind_chem), DIMENSION (1,1,kte-kts+1) :: tmp,airden,airmas,p_mid,delz,rh - real(kind_chem), DIMENSION (1,1,kte-kts+1,5) :: dust - real(kind_chem), DIMENSION (1,1,kte-kts+1,4) :: sea_salt + integer :: nmx,i,j,k,kk,lmx,iseas,idust + real(kind_chem), DIMENSION (1,1,kte-kts+1) :: tmp,airden,airmas,p_mid,delz,rh + real(kind_chem), DIMENSION (1,1,kte-kts+1,5) :: dust + real(kind_chem), DIMENSION (1,1,kte-kts+1,4) :: sea_salt !srf - real(kind_chem), DIMENSION (1,1,kte-kts+1,10) :: ash - real(kind_chem), DIMENSION (10), PARAMETER :: den_ash(10)=(/2500.,2500.,2500.,2500.,2500., & - 2500.,2500.,2500.,2500.,2500. /) - real(kind_chem), DIMENSION (10), PARAMETER :: reff_ash(10)=(/0.5000D-3,&! 1.00 mm diameter - 0.3750D-3,&! 0.75 mm - 0.1875D-3,&! - 93.750D-6,&! - 46.875D-6,&! - 23.437D-6,&! - 11.719D-6,&! - 05.859D-6,&! - 02.930D-6,&! - 00.975D-6 /)! 3.9 um - real(kind_chem), DIMENSION (10) :: bstl_ash - real(kind_chem) :: maxash(10) - real(kind_chem) :: are - integer nv,iprt,iash + real(kind_chem), DIMENSION (1,1,kte-kts+1,10) :: ash + real(kind_chem), DIMENSION (10), PARAMETER :: den_ash(10)=(/2500.,2500.,2500.,2500.,2500., & + 2500.,2500.,2500.,2500.,2500. /) + real(kind_chem), DIMENSION (10), PARAMETER :: reff_ash(10)=(/0.5000D-3,&! 1.00 mm diameter + 0.3750D-3,&! 0.75 mm + 0.1875D-3,&! + 93.750D-6,&! + 46.875D-6,&! + 23.437D-6,&! + 11.719D-6,&! + 05.859D-6,&! + 02.930D-6,&! + 00.975D-6 /)! 3.9 um + real(kind_chem), DIMENSION (10) :: bstl_ash + real(kind_chem) :: maxash(10) + real(kind_chem) :: are + integer nv,iprt,iash !srf ! ! bstl is for budgets ! - real(kind_chem) conver,converi - conver=1.e-9 - converi=1.e9 - lmx=kte-kts+1 - kk=0 - are=area + real(kind_chem) conver,converi + conver=1.e-9 + converi=1.e9 + lmx=kte-kts+1 + kk=0 + are=area bstl_ash(:)=0. - do k=kts,kte - kk=kk+1 - p_mid(1,1,kk)=.01*p_phy(kte-k+kts) - delz(1,1,kk)=dz8w(kte-k+kts) - airmas(1,1,kk)=-(p8w(k+1)-p8w(k))/g - airden(1,1,kk)=rho_phy(k) - tmp(1,1,kk)=t_phy(k) - rh(1,1,kk) = .95 - rh(1,1,kk) = MIN( .95, moist(k,p_qv) / & - (3.80*exp(17.27*(t_phy(k)-273.)/ & - (t_phy(k)-36.))/(.01*p_phy(k)))) - rh(1,1,kk)=max(1.0D-1,rh(1,1,kk)) - enddo + do k=kts,kte + kk=kk+1 + p_mid(1,1,kk)=.01*p_phy(kte-k+kts) + delz(1,1,kk)=dz8w(kte-k+kts) + airmas(1,1,kk)=-(p8w(k+1)-p8w(k))/g + airden(1,1,kk)=rho_phy(k) + tmp(1,1,kk)=t_phy(k) + rh(1,1,kk) = .95 + rh(1,1,kk) = MIN( .95, moist(k,p_qv) / & + (3.80*exp(17.27*(t_phy(k)-273.)/ & + (t_phy(k)-36.))/(.01*p_phy(k)))) + rh(1,1,kk)=max(1.0D-1,rh(1,1,kk)) + enddo !ash settling - maxash(:)=0. - kk=0 - do nv=p_vash_1,p_vash_10 - kk=kk+1 - do k=kts,kte - if(chem_arr(k,nv).gt.maxash(kk)) maxash(kk)=chem_arr(k,nv) - enddo - enddo - - iseas=0 - idust=0 + maxash(:)=0. + kk=0 + do nv=p_vash_1,p_vash_10 + kk=kk+1 + do k=kts,kte + if(chem_arr(k,nv).gt.maxash(kk)) maxash(kk)=chem_arr(k,nv) + enddo + enddo + + iseas=0 + idust=0 iash =1 - kk=0 - do k=kts,kte - kk=kk+1 - if(chem_arr(k,p_vash_1).le.1.e-10)chem_arr(k,p_vash_1)=0. - if(chem_arr(k,p_vash_2).le.1.e-10)chem_arr(k,p_vash_2)=0. - if(chem_arr(k,p_vash_3).le.1.e-10)chem_arr(k,p_vash_3)=0. - if(chem_arr(k,p_vash_4).le.1.e-10)chem_arr(k,p_vash_4)=0. - if(chem_arr(k,p_vash_5).le.1.e-10)chem_arr(k,p_vash_5)=0. - if(chem_arr(k,p_vash_6).le.1.e-10)chem_arr(k,p_vash_6)=0. - if(chem_arr(k,p_vash_7).le.1.e-10)chem_arr(k,p_vash_7)=0. - if(chem_arr(k,p_vash_8).le.1.e-10)chem_arr(k,p_vash_8)=0. - if(chem_arr(k,p_vash_9).le.1.e-10)chem_arr(k,p_vash_9)=0. - if(chem_arr(k,p_vash_10).le.1.e-10)chem_arr(k,p_vash_10)=0. - ash(1,1,kk,1)=chem_arr(k,p_vash_1)*conver - ash(1,1,kk,2)=chem_arr(k,p_vash_2)*conver - ash(1,1,kk,3)=chem_arr(k,p_vash_3)*conver - ash(1,1,kk,4)=chem_arr(k,p_vash_4)*conver - ash(1,1,kk,5)=chem_arr(k,p_vash_5)*conver - ash(1,1,kk,6)=chem_arr(k,p_vash_6)*conver - ash(1,1,kk,7)=chem_arr(k,p_vash_7)*conver - ash(1,1,kk,8)=chem_arr(k,p_vash_8)*conver - ash(1,1,kk,9)=chem_arr(k,p_vash_9)*conver - ash(1,1,kk,10)=chem_arr(k,p_vash_10)*conver - enddo - iprt=0 - call vsettling(iprt,1, 1, lmx, 10, g,are,& - ash, tmp, p_mid, delz, airmas, & - den_ash, reff_ash, dt, bstl_ash, rh, idust, iseas,iash) - kk=0 - ash_fall=ash_fall+sum(bstl_ash(1:10)) - do k=kts,kte - kk=kk+1 - chem_arr(k,p_vash_1)=min(maxash(1),ash(1,1,kk,1)*converi) - chem_arr(k,p_vash_2)=min(maxash(2),ash(1,1,kk,2)*converi) - chem_arr(k,p_vash_3)=min(maxash(3),ash(1,1,kk,3)*converi) - chem_arr(k,p_vash_4)=min(maxash(4),ash(1,1,kk,4)*converi) - chem_arr(k,p_vash_5)=min(maxash(5),ash(1,1,kk,5)*converi) - chem_arr(k,p_vash_6)=min(maxash(6),ash(1,1,kk,6)*converi) - chem_arr(k,p_vash_7)=min(maxash(7),ash(1,1,kk,7)*converi) - chem_arr(k,p_vash_8)=min(maxash(8),ash(1,1,kk,8)*converi) - chem_arr(k,p_vash_9)=min(maxash(9),ash(1,1,kk,9)*converi) - chem_arr(k,p_vash_10)=min(maxash(10),ash(1,1,kk,10)*converi) - if(chem_arr(k,p_vash_1).le.1.e-10)chem_arr(k,p_vash_1)=0. - if(chem_arr(k,p_vash_2).le.1.e-10)chem_arr(k,p_vash_2)=0. - if(chem_arr(k,p_vash_3).le.1.e-10)chem_arr(k,p_vash_3)=0. - if(chem_arr(k,p_vash_4).le.1.e-10)chem_arr(k,p_vash_4)=0. - if(chem_arr(k,p_vash_5).le.1.e-10)chem_arr(k,p_vash_5)=0. - if(chem_arr(k,p_vash_6).le.1.e-10)chem_arr(k,p_vash_6)=0. - if(chem_arr(k,p_vash_7).le.1.e-10)chem_arr(k,p_vash_7)=0. - if(chem_arr(k,p_vash_8).le.1.e-10)chem_arr(k,p_vash_8)=0. - if(chem_arr(k,p_vash_9).le.1.e-10)chem_arr(k,p_vash_9)=0. - if(chem_arr(k,p_vash_10).le.1.e-10)chem_arr(k,p_vash_10)=0. - enddo + kk=0 + do k=kts,kte + kk=kk+1 + if(chem_arr(k,p_vash_1).le.1.e-10)chem_arr(k,p_vash_1)=0. + if(chem_arr(k,p_vash_2).le.1.e-10)chem_arr(k,p_vash_2)=0. + if(chem_arr(k,p_vash_3).le.1.e-10)chem_arr(k,p_vash_3)=0. + if(chem_arr(k,p_vash_4).le.1.e-10)chem_arr(k,p_vash_4)=0. + if(chem_arr(k,p_vash_5).le.1.e-10)chem_arr(k,p_vash_5)=0. + if(chem_arr(k,p_vash_6).le.1.e-10)chem_arr(k,p_vash_6)=0. + if(chem_arr(k,p_vash_7).le.1.e-10)chem_arr(k,p_vash_7)=0. + if(chem_arr(k,p_vash_8).le.1.e-10)chem_arr(k,p_vash_8)=0. + if(chem_arr(k,p_vash_9).le.1.e-10)chem_arr(k,p_vash_9)=0. + if(chem_arr(k,p_vash_10).le.1.e-10)chem_arr(k,p_vash_10)=0. + ash(1,1,kk,1)=chem_arr(k,p_vash_1)*conver + ash(1,1,kk,2)=chem_arr(k,p_vash_2)*conver + ash(1,1,kk,3)=chem_arr(k,p_vash_3)*conver + ash(1,1,kk,4)=chem_arr(k,p_vash_4)*conver + ash(1,1,kk,5)=chem_arr(k,p_vash_5)*conver + ash(1,1,kk,6)=chem_arr(k,p_vash_6)*conver + ash(1,1,kk,7)=chem_arr(k,p_vash_7)*conver + ash(1,1,kk,8)=chem_arr(k,p_vash_8)*conver + ash(1,1,kk,9)=chem_arr(k,p_vash_9)*conver + ash(1,1,kk,10)=chem_arr(k,p_vash_10)*conver + enddo + iprt=0 + call vsettling(iprt,1, 1, lmx, 10, g,are,& + ash, tmp, p_mid, delz, airmas, & + den_ash, reff_ash, dt, bstl_ash, rh, idust, iseas,iash) + kk=0 + ash_fall=ash_fall+sum(bstl_ash(1:10)) + do k=kts,kte + kk=kk+1 + chem_arr(k,p_vash_1)=min(maxash(1),ash(1,1,kk,1)*converi) + chem_arr(k,p_vash_2)=min(maxash(2),ash(1,1,kk,2)*converi) + chem_arr(k,p_vash_3)=min(maxash(3),ash(1,1,kk,3)*converi) + chem_arr(k,p_vash_4)=min(maxash(4),ash(1,1,kk,4)*converi) + chem_arr(k,p_vash_5)=min(maxash(5),ash(1,1,kk,5)*converi) + chem_arr(k,p_vash_6)=min(maxash(6),ash(1,1,kk,6)*converi) + chem_arr(k,p_vash_7)=min(maxash(7),ash(1,1,kk,7)*converi) + chem_arr(k,p_vash_8)=min(maxash(8),ash(1,1,kk,8)*converi) + chem_arr(k,p_vash_9)=min(maxash(9),ash(1,1,kk,9)*converi) + chem_arr(k,p_vash_10)=min(maxash(10),ash(1,1,kk,10)*converi) + if(chem_arr(k,p_vash_1).le.1.e-10)chem_arr(k,p_vash_1)=0. + if(chem_arr(k,p_vash_2).le.1.e-10)chem_arr(k,p_vash_2)=0. + if(chem_arr(k,p_vash_3).le.1.e-10)chem_arr(k,p_vash_3)=0. + if(chem_arr(k,p_vash_4).le.1.e-10)chem_arr(k,p_vash_4)=0. + if(chem_arr(k,p_vash_5).le.1.e-10)chem_arr(k,p_vash_5)=0. + if(chem_arr(k,p_vash_6).le.1.e-10)chem_arr(k,p_vash_6)=0. + if(chem_arr(k,p_vash_7).le.1.e-10)chem_arr(k,p_vash_7)=0. + if(chem_arr(k,p_vash_8).le.1.e-10)chem_arr(k,p_vash_8)=0. + if(chem_arr(k,p_vash_9).le.1.e-10)chem_arr(k,p_vash_9)=0. + if(chem_arr(k,p_vash_10).le.1.e-10)chem_arr(k,p_vash_10)=0. + enddo !ash settling end -END SUBROUTINE vash_settling_driver + END SUBROUTINE vash_settling_driver -SUBROUTINE vashshort_settling_driver(dt,t_phy,moist, & - chem_arr,rho_phy,dz8w, & - p8w,p_phy,area, & - ash_fall,kms,kme,kts,kte) + SUBROUTINE vashshort_settling_driver(dt,t_phy,moist, & + chem_arr,rho_phy,dz8w, & + p8w,p_phy,area, & + ash_fall,kms,kme,kts,kte) - IMPLICIT NONE + IMPLICIT NONE - INTEGER, INTENT(IN ) :: kms,kme,kts,kte + INTEGER, INTENT(IN ) :: kms,kme,kts,kte - REAL(kind_chem), DIMENSION( kms:kme,num_moist ), & + REAL(kind_chem), DIMENSION( kms:kme,num_moist ), & INTENT(IN ) :: moist - REAL(kind_chem), DIMENSION( kms:kme, num_chem ), & + REAL(kind_chem), DIMENSION( kms:kme, num_chem ), & INTENT(INOUT ) :: chem_arr - REAL(kind_chem), INTENT(IN ) :: area - REAL(kind_chem), DIMENSION( kms:kme ), & - INTENT(IN ) :: t_phy,p_phy,dz8w,p8w,rho_phy - REAL(kind_chem), INTENT(IN ) :: dt + REAL(kind_chem), INTENT(IN ) :: area + REAL(kind_chem), DIMENSION( kms:kme ), & + INTENT(IN ) :: t_phy,p_phy,dz8w,p8w,rho_phy + REAL(kind_chem), INTENT(IN ) :: dt - REAL(kind_chem), INTENT(INOUT ) :: ash_fall + REAL(kind_chem), INTENT(INOUT ) :: ash_fall - integer :: nmx,i,j,k,kk,lmx,iseas,idust - real(kind_chem), DIMENSION (1,1,kte-kts+1) :: tmp,airden,airmas,p_mid,delz,rh - real(kind_chem), DIMENSION (1,1,kte-kts+1,5) :: dust - real(kind_chem), DIMENSION (1,1,kte-kts+1,4) :: sea_salt + integer :: nmx,i,j,k,kk,lmx,iseas,idust + real(kind_chem), DIMENSION (1,1,kte-kts+1) :: tmp,airden,airmas,p_mid,delz,rh + real(kind_chem), DIMENSION (1,1,kte-kts+1,5) :: dust + real(kind_chem), DIMENSION (1,1,kte-kts+1,4) :: sea_salt !srf - real(kind_chem), DIMENSION (1,1,kte-kts+1,10) :: ash - real(kind_chem), DIMENSION (4), PARAMETER :: den_ash(4)=(/2500.,2500.,2500.,2500. /) - real(kind_chem), DIMENSION (4), PARAMETER :: reff_ash(4)=(/ 11.719D-6,&! - 05.859D-6,&! - 02.930D-6,&! - 00.975D-6 /)! 3.9 um - real(kind_chem), DIMENSION (4) :: bstl_ash - real(kind_chem) :: maxash(4) - real(kind_chem) :: are - integer nv,iprt,iash + real(kind_chem), DIMENSION (1,1,kte-kts+1,10) :: ash + real(kind_chem), DIMENSION (4), PARAMETER :: den_ash(4)=(/2500.,2500.,2500.,2500. /) + real(kind_chem), DIMENSION (4), PARAMETER :: reff_ash(4)=(/ 11.719D-6,&! + 05.859D-6,&! + 02.930D-6,&! + 00.975D-6 /)! 3.9 um + real(kind_chem), DIMENSION (4) :: bstl_ash + real(kind_chem) :: maxash(4) + real(kind_chem) :: are + integer nv,iprt,iash !srf ! ! bstl is for budgets ! - real(kind_chem) conver,converi + real(kind_chem) conver,converi - conver=1.e-9 - converi=1.e9 - lmx=kte-kts+1 - kk=0 - are=area + conver=1.e-9 + converi=1.e9 + lmx=kte-kts+1 + kk=0 + are=area bstl_ash(:)=0. - do k=kts,kte - kk=kk+1 - p_mid(1,1,kk)=.01*p_phy(kte-k+kts) - delz(1,1,kk)=dz8w(kte-k+kts) - airmas(1,1,kk)=-(p8w(k+1)-p8w(k))/g - airden(1,1,kk)=rho_phy(k) - tmp(1,1,kk)=t_phy(k) - rh(1,1,kk) = .95 - rh(1,1,kk) = MIN( .95, moist(k,p_qv) / & - (3.80*exp(17.27*(t_phy(k)-273.)/ & - (t_phy(k)-36.))/(.01*p_phy(k)))) - rh(1,1,kk)=max(1.0D-1,rh(1,1,kk)) - enddo - + do k=kts,kte + kk=kk+1 + p_mid(1,1,kk)=.01*p_phy(kte-k+kts) + delz(1,1,kk)=dz8w(kte-k+kts) + airmas(1,1,kk)=-(p8w(k+1)-p8w(k))/g + airden(1,1,kk)=rho_phy(k) + tmp(1,1,kk)=t_phy(k) + rh(1,1,kk) = .95 + rh(1,1,kk) = MIN( .95, moist(k,p_qv) / & + (3.80*exp(17.27*(t_phy(k)-273.)/ & + (t_phy(k)-36.))/(.01*p_phy(k)))) + rh(1,1,kk)=max(1.0D-1,rh(1,1,kk)) + enddo + !ash settling - kk=0 - maxash(:)=0. - if(p_vash_4.gt.1)then - do nv=p_vash_1,p_vash_4 - kk=kk+1 - do k=kts,kte - if(chem_arr(k,nv).gt.maxash(kk)) maxash(kk)=chem_arr(k,nv) + kk=0 + maxash(:)=0. + if(p_vash_4.gt.1)then + do nv=p_vash_1,p_vash_4 + kk=kk+1 + do k=kts,kte + if(chem_arr(k,nv).gt.maxash(kk)) maxash(kk)=chem_arr(k,nv) enddo - enddo + enddo ! GOCART - else if(p_bc2.gt.1)then - nv=p_p25 - kk=kk+1 - do k=kts,kte - if(chem_arr(k,nv).gt.maxash(kk)) maxash(kk)=chem_arr(k,nv) - enddo - nv=p_p10 - kk=kk+1 - do k=kts,kte - if(chem_arr(k,nv).gt.maxash(kk)) maxash(kk)=chem_arr(k,nv) - enddo - endif - - - iseas=0 - idust=0 + else if(p_bc2.gt.1)then + nv=p_p25 + kk=kk+1 + do k=kts,kte + if(chem_arr(k,nv).gt.maxash(kk)) maxash(kk)=chem_arr(k,nv) + enddo + nv=p_p10 + kk=kk+1 + do k=kts,kte + if(chem_arr(k,nv).gt.maxash(kk)) maxash(kk)=chem_arr(k,nv) + enddo + endif + + + iseas=0 + idust=0 iash =1 - if(p_vash_4.gt.1)then - kk=0 - do k=kts,kte - kk=kk+1 - if(chem_arr(k,p_vash_1).le.1.e-10)chem_arr(k,p_vash_1)=0. - if(chem_arr(k,p_vash_2).le.1.e-10)chem_arr(k,p_vash_2)=0. - if(chem_arr(k,p_vash_3).le.1.e-10)chem_arr(k,p_vash_3)=0. - if(chem_arr(k,p_vash_4).le.1.e-10)chem_arr(k,p_vash_4)=0. - ash(1,1,kk,1)=chem_arr(k,p_vash_1)*conver - ash(1,1,kk,2)=chem_arr(k,p_vash_2)*conver - ash(1,1,kk,3)=chem_arr(k,p_vash_3)*conver - ash(1,1,kk,4)=chem_arr(k,p_vash_4)*conver - enddo + if(p_vash_4.gt.1)then + kk=0 + do k=kts,kte + kk=kk+1 + if(chem_arr(k,p_vash_1).le.1.e-10)chem_arr(k,p_vash_1)=0. + if(chem_arr(k,p_vash_2).le.1.e-10)chem_arr(k,p_vash_2)=0. + if(chem_arr(k,p_vash_3).le.1.e-10)chem_arr(k,p_vash_3)=0. + if(chem_arr(k,p_vash_4).le.1.e-10)chem_arr(k,p_vash_4)=0. + ash(1,1,kk,1)=chem_arr(k,p_vash_1)*conver + ash(1,1,kk,2)=chem_arr(k,p_vash_2)*conver + ash(1,1,kk,3)=chem_arr(k,p_vash_3)*conver + ash(1,1,kk,4)=chem_arr(k,p_vash_4)*conver + enddo ! ! volc ash for gocart, this is crude ! - else if(p_bc2.gt.1)then - kk=0 - do k=kts,kte - kk=kk+1 - ash(1,1,kk,1)=0. - ash(1,1,kk,4)=chem_arr(k,p_p25)*conver - ash(1,1,kk,3)=.67*chem_arr(k,p_p10)*conver - ash(1,1,kk,2)=(1.-.67)*chem_arr(k,p_p10)*conver - if(ash(1,1,kk,2).le.1.e-10)ash(1,1,kk,2)=0. - if(ash(1,1,kk,3).le.1.e-10)ash(1,1,kk,3)=0. - if(ash(1,1,kk,4).le.1.e-10)ash(1,1,kk,4)=0. - enddo - endif - iprt=0 - call vsettling(iprt,1, 1, lmx, 4, g, are,& - ash, tmp, p_mid, delz, airmas, & - den_ash, reff_ash, dt, bstl_ash, rh, idust, iseas,iash) - ash_fall=ash_fall+sum(bstl_ash(1:4)) - if(p_vash_4.gt.1)then - kk=0 - do k=kts,kte - kk=kk+1 + else if(p_bc2.gt.1)then + kk=0 + do k=kts,kte + kk=kk+1 + ash(1,1,kk,1)=0. + ash(1,1,kk,4)=chem_arr(k,p_p25)*conver + ash(1,1,kk,3)=.67*chem_arr(k,p_p10)*conver + ash(1,1,kk,2)=(1.-.67)*chem_arr(k,p_p10)*conver + if(ash(1,1,kk,2).le.1.e-10)ash(1,1,kk,2)=0. + if(ash(1,1,kk,3).le.1.e-10)ash(1,1,kk,3)=0. + if(ash(1,1,kk,4).le.1.e-10)ash(1,1,kk,4)=0. + enddo + endif + iprt=0 + call vsettling(iprt,1, 1, lmx, 4, g, are,& + ash, tmp, p_mid, delz, airmas, & + den_ash, reff_ash, dt, bstl_ash, rh, idust, iseas,iash) + ash_fall=ash_fall+sum(bstl_ash(1:4)) + if(p_vash_4.gt.1)then + kk=0 + do k=kts,kte + kk=kk+1 chem_arr(k,p_vash_1)=min(maxash(1),ash(1,1,kk,1)*converi) chem_arr(k,p_vash_2)=min(maxash(2),ash(1,1,kk,2)*converi) chem_arr(k,p_vash_3)=min(maxash(3),ash(1,1,kk,3)*converi) chem_arr(k,p_vash_4)=min(maxash(4),ash(1,1,kk,4)*converi) - if(chem_arr(k,p_vash_1).le.1.e-10)chem_arr(k,p_vash_1)=0. - if(chem_arr(k,p_vash_2).le.1.e-10)chem_arr(k,p_vash_2)=0. - if(chem_arr(k,p_vash_3).le.1.e-10)chem_arr(k,p_vash_3)=0. - if(chem_arr(k,p_vash_4).le.1.e-10)chem_arr(k,p_vash_4)=0. - enddo - else if(p_bc2.gt.1)then - kk=0 - do k=kts,kte - kk=kk+1 + if(chem_arr(k,p_vash_1).le.1.e-10)chem_arr(k,p_vash_1)=0. + if(chem_arr(k,p_vash_2).le.1.e-10)chem_arr(k,p_vash_2)=0. + if(chem_arr(k,p_vash_3).le.1.e-10)chem_arr(k,p_vash_3)=0. + if(chem_arr(k,p_vash_4).le.1.e-10)chem_arr(k,p_vash_4)=0. + enddo + else if(p_bc2.gt.1)then + kk=0 + do k=kts,kte + kk=kk+1 ! chem_arr(k,p_p25)=min(maxash(1),ash(1,1,kk,4)*converi) chem_arr(k,p_p10)=min(maxash(2),(ash(1,1,kk,2)+ash(1,1,kk,3))*converi) ! if(chem_arr(k,p_p25).le.1.e-16)chem_arr(k,p_p25)=1.e-16 - if(chem_arr(k,p_p10).le.1.e-16)chem_arr(k,p_p10)=1.e-16 - enddo - endif + if(chem_arr(k,p_p10).le.1.e-16)chem_arr(k,p_p10)=1.e-16 + enddo + endif !ash settling end -END SUBROUTINE vashshort_settling_driver + END SUBROUTINE vashshort_settling_driver - subroutine vsettling(iprt,imx,jmx, lmx, nmx,g0,are, & - tc, tmp, p_mid, delz, airmas, & - den, reff, dt, bstl, rh, idust, iseas,iash) + subroutine vsettling(iprt,imx,jmx, lmx, nmx,g0,are, & + tc, tmp, p_mid, delz, airmas, & + den, reff, dt, bstl, rh, idust, iseas,iash) ! **************************************************************************** ! * * ! * Calculate the loss by settling, using an implicit method * @@ -322,184 +322,184 @@ subroutine vsettling(iprt,imx,jmx, lmx, nmx,g0,are, & ! * TMP(i,j,k) - Air temperature (K) * ! * CT(i,j) - Surface exchange coeff for moisture ! * * -! **************************************************************************** +! **************************************************************************** - IMPLICIT NONE + IMPLICIT NONE - INTEGER, INTENT(IN) :: imx, jmx, lmx, nmx,iseas,idust,iash - INTEGER :: ntdt - REAL(kind_chem), INTENT(IN) :: dt,g0,are ! ,dyn_visc - REAL(kind_chem), INTENT(IN) :: tmp(imx,jmx,lmx), delz(imx,jmx,lmx), & - airmas(imx,jmx,lmx), rh(imx,jmx,lmx), & - den(nmx), reff(nmx), p_mid(imx,jmx,lmx) - REAL(kind_chem), INTENT(INOUT) :: tc(imx,jmx,lmx,nmx) - REAL(kind_chem), INTENT(OUT) :: bstl(imx,jmx,nmx) + INTEGER, INTENT(IN) :: imx, jmx, lmx, nmx,iseas,idust,iash + INTEGER :: ntdt + REAL(kind_chem), INTENT(IN) :: dt,g0,are ! ,dyn_visc + REAL(kind_chem), INTENT(IN) :: tmp(imx,jmx,lmx), delz(imx,jmx,lmx), & + airmas(imx,jmx,lmx), rh(imx,jmx,lmx), & + den(nmx), reff(nmx), p_mid(imx,jmx,lmx) + REAL(kind_chem), INTENT(INOUT) :: tc(imx,jmx,lmx,nmx) + REAL(kind_chem), INTENT(OUT) :: bstl(imx,jmx,nmx) - REAL(kind_chem) :: tc1(imx,jmx,lmx,nmx), dt_settl(nmx), rcm(nmx), rho(nmx),addmass(lmx,nmx) - INTEGER :: ndt_settl(nmx) - REAL(kind_chem) :: dzmin, vsettl, dtmax, pres, rhb, rwet(nmx), ratio_r(nmx) - REAL(kind_chem) :: addmassf,c_stokes, free_path, c_cun, viscosity, vd_cor, growth_fac,mass_above - REAL(kind_chem), PARAMETER :: dyn_visc = 1.5E-5 - INTEGER :: iprt,k, n, i, j, l, l2 - ! for sea-salt: - REAL(kind_chem), PARAMETER :: c1=0.7674, c2=3.079, c3=2.573E-11, c4=-1.424 + REAL(kind_chem) :: tc1(imx,jmx,lmx,nmx), dt_settl(nmx), rcm(nmx), rho(nmx),addmass(lmx,nmx) + INTEGER :: ndt_settl(nmx) + REAL(kind_chem) :: dzmin, vsettl, dtmax, pres, rhb, rwet(nmx), ratio_r(nmx) + REAL(kind_chem) :: addmassf,c_stokes, free_path, c_cun, viscosity, vd_cor, growth_fac,mass_above + REAL(kind_chem), PARAMETER :: dyn_visc = 1.5E-5 + INTEGER :: iprt,k, n, i, j, l, l2 + ! for sea-salt: + REAL(kind_chem), PARAMETER :: c1=0.7674, c2=3.079, c3=2.573E-11, c4=-1.424 - ! for OMP: - REAL(kind_chem) :: rwet_priv(nmx), rho_priv(nmx),vsettl_max(nmx) + ! for OMP: + REAL(kind_chem) :: rwet_priv(nmx), rho_priv(nmx),vsettl_max(nmx) - ! executable statements + ! executable statements ! IF (type) /= 'dust' .AND. TRIM(aero_type) /= 'sea_salt') RETURN - if(idust.ne.1.and.iseas.ne.1.and.iash.ne.1)return - - WHERE (tc(:,:,:,:) < 0.0) tc(:,:,:,:) = 1.0d-32 - - dzmin = MINVAL(delz(:,:,:)) - IF (idust == 1) growth_fac = 1.0 - IF (iseas == 1) growth_fac = 3.0 - IF (iash == 1) growth_fac = 1.0 - - DO k = 1,nmx - - ! Settling velocity (m/s) for each tracer (Stokes Law) - ! DEN density (kg/m3) - ! REFF effective radius (m) - ! dyn_visc dynamic viscosity (kg/m/s) - ! g0 gravity (m/s2) - ! 3.0 corresponds to a growth of a factor 3 of radius with 100% RH - ! 0.5 upper limit with temp correction - - tc1(:,:,:,k) = tc(:,:,:,k) - vsettl = 2.0/9.0 * g0 * den(k) * (growth_fac*reff(k))**2 / & - (0.5*dyn_visc) - vsettl_max(k)=vsettl - ! Determine the maximum time-step satisying the CFL condition: - ! dt <= (dz)_min / v_settl - ntdt=INT(dt) - dtmax = dzmin / vsettl - ndt_settl(k) = MAX( 1, INT( ntdt /dtmax) ) - ! limit maximum number of iterations + if(idust.ne.1.and.iseas.ne.1.and.iash.ne.1)return + + WHERE (tc(:,:,:,:) < 0.0) tc(:,:,:,:) = 1.0d-32 + + dzmin = MINVAL(delz(:,:,:)) + IF (idust == 1) growth_fac = 1.0 + IF (iseas == 1) growth_fac = 3.0 + IF (iash == 1) growth_fac = 1.0 + + DO k = 1,nmx + + ! Settling velocity (m/s) for each tracer (Stokes Law) + ! DEN density (kg/m3) + ! REFF effective radius (m) + ! dyn_visc dynamic viscosity (kg/m/s) + ! g0 gravity (m/s2) + ! 3.0 corresponds to a growth of a factor 3 of radius with 100% RH + ! 0.5 upper limit with temp correction + + tc1(:,:,:,k) = tc(:,:,:,k) + vsettl = 2.0/9.0 * g0 * den(k) * (growth_fac*reff(k))**2 / & + (0.5*dyn_visc) + vsettl_max(k)=vsettl + ! Determine the maximum time-step satisying the CFL condition: + ! dt <= (dz)_min / v_settl + ntdt=INT(dt) + dtmax = dzmin / vsettl + ndt_settl(k) = MAX( 1, INT( ntdt /dtmax) ) + ! limit maximum number of iterations ! IF (ndt_settl(k) > 12) ndt_settl(k) = 12 - IF (ndt_settl(k) > 12) then - ndt_settl(k) = 12 - vsettl_max(k)=dzmin*ndt_settl(k)/dt - endif - dt_settl(k) = REAL(ntdt) / REAL(ndt_settl(k)) - - ! Particles radius in centimeters - IF (iseas.eq.1)rcm(k) = reff(k)*100.0 + IF (ndt_settl(k) > 12) then + ndt_settl(k) = 12 + vsettl_max(k)=dzmin*ndt_settl(k)/dt + endif + dt_settl(k) = REAL(ntdt) / REAL(ndt_settl(k)) + + ! Particles radius in centimeters + IF (iseas.eq.1)rcm(k) = reff(k)*100.0 !srf IF (idust.eq.1)then - IF (idust.eq.1 .or. iash==1)then - rwet(k) = reff(k) - ratio_r(k) = 1.0 - rho(k) = den(k) - endif - END DO + IF (idust.eq.1 .or. iash==1)then + rwet(k) = reff(k) + ratio_r(k) = 1.0 + rho(k) = den(k) + endif + END DO - ! Solve the bidiagonal matrix (l,l) + ! Solve the bidiagonal matrix (l,l) !$OMP PARALLEL DO & !$OMP DEFAULT( SHARED ) & !$OMP PRIVATE( i, j, l, l2, n, k, rhb, rwet_priv, ratio_r, c_stokes)& !$OMP PRIVATE( free_path, c_cun, viscosity, rho_priv, vd_cor ) - ! Loop over latitudes - DO j = 1,jmx - - DO k = 1,nmx - IF (idust.eq.1 .or. iash==1) THEN - rwet_priv(k) = rwet(k) - rho_priv(k) = rho(k) - END IF + ! Loop over latitudes + DO j = 1,jmx + + DO k = 1,nmx + IF (idust.eq.1 .or. iash==1) THEN + rwet_priv(k) = rwet(k) + rho_priv(k) = rho(k) + END IF + + DO n = 1,ndt_settl(k) - DO n = 1,ndt_settl(k) + ! Solve each vertical layer successively (layer l) - ! Solve each vertical layer successively (layer l) - - DO l = lmx,1,-1 - l2 = lmx - l + 1 + DO l = lmx,1,-1 + l2 = lmx - l + 1 ! DO j = 1,jmx - DO i = 1,imx + DO i = 1,imx - ! Dynamic viscosity - c_stokes = 1.458E-6 * tmp(i,j,l)**1.5/(tmp(i,j,l) + 110.4) + ! Dynamic viscosity + c_stokes = 1.458E-6 * tmp(i,j,l)**1.5/(tmp(i,j,l) + 110.4) - ! Mean free path as a function of pressure (mb) and - ! temperature (K) - ! order of p_mid is top->sfc - free_path = 1.1E-3/p_mid(i,j,l2)/SQRT(tmp(i,j,l)) + ! Mean free path as a function of pressure (mb) and + ! temperature (K) + ! order of p_mid is top->sfc + free_path = 1.1E-3/p_mid(i,j,l2)/SQRT(tmp(i,j,l)) !!! free_path = 1.1E-3/p_edge(i,j,l2)/SQRT(tmp(i,j,l)) - ! Slip Correction Factor - c_cun = 1.0+ free_path/rwet_priv(k)* & - (1.257 + 0.4*EXP(-1.1*rwet_priv(k)/free_path)) + ! Slip Correction Factor + c_cun = 1.0+ free_path/rwet_priv(k)* & + (1.257 + 0.4*EXP(-1.1*rwet_priv(k)/free_path)) - ! Corrected dynamic viscosity (kg/m/s) - viscosity = c_stokes / c_cun + ! Corrected dynamic viscosity (kg/m/s) + viscosity = c_stokes / c_cun - ! Settling velocity + ! Settling velocity ! IF (iseas.eq.1) THEN ! rho_priv(k) = ratio_r(k)*den(k) + (1.0 - ratio_r(k))*1000.0 ! END IF - vd_cor = min(vsettl_max(k),2.0/9.0*g0*rho_priv(k)*rwet_priv(k)**2/viscosity) - - ! Update mixing ratio - ! Order of delz is top->sfc - IF (l == lmx) THEN - tc(i,j,l,k) = tc(i,j,l,k) / & - (1.0 + dt_settl(k)*vd_cor/delz(i,j,l2)) - ELSE - tc(i,j,l,k) = 1.0/(1.0+dt_settl(k)*vd_cor/delz(i,j,l2))& - *(tc(i,j,l,k) + dt_settl(k)*vd_cor /delz(i,j,l2-1) & - * tc(i,j,l+1,k)) - END IF - END DO !i + vd_cor = min(vsettl_max(k),2.0/9.0*g0*rho_priv(k)*rwet_priv(k)**2/viscosity) + + ! Update mixing ratio + ! Order of delz is top->sfc + IF (l == lmx) THEN + tc(i,j,l,k) = tc(i,j,l,k) / & + (1.0 + dt_settl(k)*vd_cor/delz(i,j,l2)) + ELSE + tc(i,j,l,k) = 1.0/(1.0+dt_settl(k)*vd_cor/delz(i,j,l2))& + *(tc(i,j,l,k) + dt_settl(k)*vd_cor /delz(i,j,l2-1) & + * tc(i,j,l+1,k)) + END IF + END DO !i ! END DO !j - END DO !l + END DO !l - END DO !n - END DO !k + END DO !n + END DO !k - END DO !j + END DO !j !$OMP END PARALLEL DO - DO n = 1,nmx - DO i = 1,imx - DO j = 1,jmx - DO l = 1,lmx - IF (tc(i,j,l,n) < 0.0) tc(i,j,l,n) = 1.0D-32 - addmass(l,n)=(tc(i,j,l,n) - tc1(i,j,l,n)) * airmas(i,j,l) - END DO + DO n = 1,nmx + DO i = 1,imx + DO j = 1,jmx + DO l = 1,lmx + IF (tc(i,j,l,n) < 0.0) tc(i,j,l,n) = 1.0D-32 + addmass(l,n)=(tc(i,j,l,n) - tc1(i,j,l,n)) * airmas(i,j,l) + END DO ! make sure this is not more mass then what there was in the layer above - DO l = lmx-1,1 - mass_above=tc1(i,j,l+1,n)*airmas(i,j,l+1) - IF (addmass(l,n).gt.mass_above)then - tc(i,j,l,n)=mass_above/airmas(i,j,l) + tc1(i,j,l,n) - IF (tc(i,j,l,n) < 0.0) tc(i,j,l,n) = 1.0D-32 - addmass(l,n)=mass_above - endif - END DO - END DO - END DO - END DO - DO n = 1,nmx - DO i = 1,imx - DO j = 1,jmx - bstl(i,j,n) = 0.0 - addmassf=0. - DO l = 1,lmx - addmassf=addmassf+(tc(i,j,l,n) - tc1(i,j,l,n)) * airmas(i,j,l) + DO l = lmx-1,1 + mass_above=tc1(i,j,l+1,n)*airmas(i,j,l+1) + IF (addmass(l,n).gt.mass_above)then + tc(i,j,l,n)=mass_above/airmas(i,j,l) + tc1(i,j,l,n) + IF (tc(i,j,l,n) < 0.0) tc(i,j,l,n) = 1.0D-32 + addmass(l,n)=mass_above + endif + END DO + END DO + END DO + END DO + DO n = 1,nmx + DO i = 1,imx + DO j = 1,jmx + bstl(i,j,n) = 0.0 + addmassf=0. + DO l = 1,lmx + addmassf=addmassf+(tc(i,j,l,n) - tc1(i,j,l,n)) * airmas(i,j,l) ! IF (tc(i,j,l,n) < 0.0) tc(i,j,l,n) = 1.0D-32 - END DO - if(addmassf.gt.0.)addmassf=0 - bstl(i,j,n) = bstl(i,j,n) - addmassf - END DO - END DO - END DO - -END SUBROUTINE vsettling + END DO + if(addmassf.gt.0.)addmassf=0 + bstl(i,j,n) = bstl(i,j,n) - addmassf + END DO + END DO + END DO + + END SUBROUTINE vsettling end module vash_settling_mod diff --git a/src/wetdep_ls_mod.F90 b/src/wetdep_ls_mod.F90 index 6f2e7060..a98eedd8 100644 --- a/src/wetdep_ls_mod.F90 +++ b/src/wetdep_ls_mod.F90 @@ -3,52 +3,52 @@ module wetdep_ls_mod - use catchem_constants, only : kind_chem, grav => con_g - use catchem_config + use catchem_constants, only : kind_chem, grav => con_g + use catchem_config - implicit none + implicit none - ! -- large scale wet deposition scavenging factors - real(kind_chem), dimension(:), allocatable :: alpha + ! -- large scale wet deposition scavenging factors + real(kind_chem), dimension(:), allocatable :: alpha - private + private - public :: dep_wet_ls_init - public :: wetdep_ls - public :: WetRemovalGOCART + public :: dep_wet_ls_init + public :: wetdep_ls + public :: WetRemovalGOCART contains ! subroutine dep_wet_ls_init(config, rc) - subroutine dep_wet_ls_init() + subroutine dep_wet_ls_init() - ! -- I/O arguments + ! -- I/O arguments ! type(chem_config_type), intent(in) :: config ! integer, intent(out) :: rc - ! -- local variables - integer :: ios, n + ! -- local variables + integer :: ios, n - ! -- begin - !rc = CHEM_RC_SUCCESS + ! -- begin + !rc = CHEM_RC_SUCCESS - ! -- set aerosol wet scavenging coefficients - if (allocated(alpha)) then - deallocate(alpha, stat=ios) - !if (chem_rc_test((ios /= 0), msg="Failed to deallocate memory", & - ! file=__FILE__, line=__LINE__, rc=rc)) return - end if + ! -- set aerosol wet scavenging coefficients + if (allocated(alpha)) then + deallocate(alpha, stat=ios) + !if (chem_rc_test((ios /= 0), msg="Failed to deallocate memory", & + ! file=__FILE__, line=__LINE__, rc=rc)) return + end if - allocate(alpha(num_chem), stat=ios) - !if (chem_rc_test((ios /= 0), msg="Failed to allocate memory", & - ! file=__FILE__, line=__LINE__, rc=rc)) return + allocate(alpha(num_chem), stat=ios) + !if (chem_rc_test((ios /= 0), msg="Failed to allocate memory", & + ! file=__FILE__, line=__LINE__, rc=rc)) return - alpha = 0. + alpha = 0. - select case (wetdep_ls_opt) - case (WDLS_OPT_GSD) + select case (wetdep_ls_opt) + case (WDLS_OPT_GSD) - select case (chem_opt) + select case (chem_opt) case (CHEM_OPT_GOCART) alpha = 1.0 alpha(p_so2 ) = 0.0 @@ -84,11 +84,11 @@ subroutine dep_wet_ls_init() ! alpha(p_so4ai) = 1.0 ! alpha(p_so4aj) = 1.0 ! alpha(p_seas) = 1.0 - end select + end select - case (WDLS_OPT_NGAC) + case (WDLS_OPT_NGAC) - select case (chem_opt) + select case (chem_opt) case (CHEM_OPT_GOCART) alpha(p_so2 ) = 0. alpha(p_sulf ) = 1.5 @@ -112,48 +112,48 @@ subroutine dep_wet_ls_init() alpha(p_p10 ) = 1. case default ! -- NGAC large scale wet deposition only works with GOCART - end select - - case default - end select - - ! -- replace first default wet scavenging coefficients with input values if - ! available - if (any(wetdep_ls_alpha > 0._kind_chem)) then - n = min(size(alpha), size(wetdep_ls_alpha)) - alpha(1:n) = real(wetdep_ls_alpha(1:n)) - end if - - end subroutine dep_wet_ls_init - - - - subroutine wetdep_ls(dt,var,rain,moist_arr,rho,var_rmv,lat, & - p_qc,p_qi,dz8w,vvel, & - kms,kme,kts,kte) - IMPLICIT NONE - - INTEGER, INTENT(IN ) :: p_qc, p_qi, & - kms,kme, & - kts,kte - real(kind_chem), INTENT(IN ) :: dt - REAL(kind_chem), DIMENSION( kms:kme, num_moist ), & - INTENT(IN ) :: moist_arr - REAL(kind_chem), DIMENSION( kms:kme ), & - INTENT(IN ) :: rho,dz8w,vvel - REAL(kind_chem), DIMENSION( kms:kme ,1:num_chem), & - INTENT(INOUT) :: var - REAL(kind_chem), INTENT(IN ) :: rain,lat - REAL(kind_chem), DIMENSION( num_chem ), & - INTENT(INOUT ) :: var_rmv - REAL(kind_chem) :: var_sum,frc,var_sum_clw,rain_clw - REAL(kind_chem), DIMENSION( kts:kte ) :: var_rmvl - real(kind_chem) :: dvar,factor,rho_water,ff - integer :: nv,i,j,k - - rho_water = 1000. - var_rmv (:)=0. - do nv=1,num_chem + end select + + case default + end select + + ! -- replace first default wet scavenging coefficients with input values if + ! available + if (any(wetdep_ls_alpha > 0._kind_chem)) then + n = min(size(alpha), size(wetdep_ls_alpha)) + alpha(1:n) = real(wetdep_ls_alpha(1:n)) + end if + + end subroutine dep_wet_ls_init + + + + subroutine wetdep_ls(dt,var,rain,moist_arr,rho,var_rmv,lat, & + p_qc,p_qi,dz8w,vvel, & + kms,kme,kts,kte) + IMPLICIT NONE + + INTEGER, INTENT(IN ) :: p_qc, p_qi, & + kms,kme, & + kts,kte + real(kind_chem), INTENT(IN ) :: dt + REAL(kind_chem), DIMENSION( kms:kme, num_moist ), & + INTENT(IN ) :: moist_arr + REAL(kind_chem), DIMENSION( kms:kme ), & + INTENT(IN ) :: rho,dz8w,vvel + REAL(kind_chem), DIMENSION( kms:kme ,1:num_chem), & + INTENT(INOUT) :: var + REAL(kind_chem), INTENT(IN ) :: rain,lat + REAL(kind_chem), DIMENSION( num_chem ), & + INTENT(INOUT ) :: var_rmv + REAL(kind_chem) :: var_sum,frc,var_sum_clw,rain_clw + REAL(kind_chem), DIMENSION( kts:kte ) :: var_rmvl + real(kind_chem) :: dvar,factor,rho_water,ff + integer :: nv,i,j,k + + rho_water = 1000. + var_rmv (:)=0. + do nv=1,num_chem ! ! simple LS removal ! @@ -161,64 +161,64 @@ subroutine wetdep_ls(dt,var,rain,moist_arr,rho,var_rmv,lat, & ! ! proportionality constant ! - !frc(:,:)=0.1 - !frc(:,:)=0.01 !lzhang - ff=1.0 - if (nv>=p_seas_1 .and. nv<=p_seas_5) ff=1.2 - var_sum_clw=0. - var_sum=0. - var_rmvl(:)=0. - rain_clw=0. - frc=0. - if(rain.gt.1.e-10)then + !frc(:,:)=0.1 + !frc(:,:)=0.01 !lzhang + ff=1.0 + if (nv>=p_seas_1 .and. nv<=p_seas_5) ff=1.2 + var_sum_clw=0. + var_sum=0. + var_rmvl(:)=0. + rain_clw=0. + frc=0. + if(rain.gt.1.e-10)then ! convert rain back to rate ! - rain_clw=rain/dt + rain_clw=rain/dt ! total cloud water ! - do k=1,kte - dvar=max(0.,(moist_arr(k,p_qc)+moist_arr(k,p_qi))) - var_sum_clw=var_sum_clw+dvar - var_sum=var_sum+var(k,nv)*rho(k) !lzhang - enddo - if(var_sum.gt.1.e-10 .and. var_sum_clw.gt.1.e-10 ) then - ! assuming that frc is onstant, it is my conversion factor - frc=rain_clw/var_sum_clw + do k=1,kte + dvar=max(0.,(moist_arr(k,p_qc)+moist_arr(k,p_qi))) + var_sum_clw=var_sum_clw+dvar + var_sum=var_sum+var(k,nv)*rho(k) !lzhang + enddo + if(var_sum.gt.1.e-10 .and. var_sum_clw.gt.1.e-10 ) then + ! assuming that frc is onstant, it is my conversion factor + frc=rain_clw/var_sum_clw ! write(0,*)'frc ', frc(i,j),var_sum_clw(i,j),var_sum(i,j) - if (lat<=-65.) then - frc=max(1.e-6,min(frc,.005)*ff*10.) - else - frc=max(1.e-6,min(frc,.005)*ff) - endif - endif - endif + if (lat<=-65.) then + frc=max(1.e-6,min(frc,.005)*ff*10.) + else + frc=max(1.e-6,min(frc,.005)*ff) + endif + endif + endif ! ! get rid of it ! - if(rain.gt.1.e-10 .and. var_sum.gt.1.e-10 .and. var_sum_clw.gt.1.e-10 ) then - do k=kts,kte - if(var(k,nv).gt.1.e-10 .and. (moist_arr(k,p_qc)+moist_arr(k,p_qi)).gt.1.e-10)then - factor = max(0.,frc*rho(k)*dz8w(k)*vvel(k)) - dvar=max(0.,alpha(nv)*factor/(1+factor)*var(k,nv)) - dvar=min(dvar,var(k,nv)) - var_rmvl(k)=dvar - if((var(k,nv)-dvar).lt.1.e-16)then - dvar=var(k,nv)-1.e-16 - var_rmvl(k)=dvar !lzhang - var(k,nv)=var(k,nv)-dvar - else - var(k,nv)=var(k,nv)-dvar - endif - !var_rmv(i,j,nv)=var_rmv(i,j,nv)+var_rmvl(i,k,j) - !!convert wetdeposition into ug/m2/s - var_rmv(nv)=var_rmv(nv)+(var_rmvl(k)*rho(k)*dz8w(k)/dt) !lzhang - endif - enddo - var_rmv(nv)=max(0.,var_rmv(nv)) - endif - enddo - - end subroutine wetdep_ls + if(rain.gt.1.e-10 .and. var_sum.gt.1.e-10 .and. var_sum_clw.gt.1.e-10 ) then + do k=kts,kte + if(var(k,nv).gt.1.e-10 .and. (moist_arr(k,p_qc)+moist_arr(k,p_qi)).gt.1.e-10)then + factor = max(0.,frc*rho(k)*dz8w(k)*vvel(k)) + dvar=max(0.,alpha(nv)*factor/(1+factor)*var(k,nv)) + dvar=min(dvar,var(k,nv)) + var_rmvl(k)=dvar + if((var(k,nv)-dvar).lt.1.e-16)then + dvar=var(k,nv)-1.e-16 + var_rmvl(k)=dvar !lzhang + var(k,nv)=var(k,nv)-dvar + else + var(k,nv)=var(k,nv)-dvar + endif + !var_rmv(i,j,nv)=var_rmv(i,j,nv)+var_rmvl(i,k,j) + !!convert wetdeposition into ug/m2/s + var_rmv(nv)=var_rmv(nv)+(var_rmvl(k)*rho(k)*dz8w(k)/dt) !lzhang + endif + enddo + var_rmv(nv)=max(0.,var_rmv(nv)) + endif + enddo + + end subroutine wetdep_ls !------------------------------------------------------------------------- ! NASA/GSFC, Global Modeling and Assimilation Office, Code 900.3 ! @@ -231,29 +231,29 @@ end subroutine wetdep_ls ! !INTERFACE: ! - subroutine WetRemovalGOCART ( k1, k2, n1, n2, cdt, & - var_rmv, chem_arr, ple, tmpu, & - rhoa, dqcond, precc, precl, & - kms, kme) + subroutine WetRemovalGOCART ( k1, k2, n1, n2, cdt, & + var_rmv, chem_arr, ple, tmpu, & + rhoa, dqcond, precc, precl, & + kms, kme) ! !USES: - IMPLICIT NONE + IMPLICIT NONE ! !INPUT PARAMETERS: - integer, intent(in) :: k1, k2, n1, n2, kms, kme - real(kind_chem), intent(in) :: cdt - REAL(kind_chem), DIMENSION( kms:kme , 1:num_chem),& - INTENT(INOUT) :: chem_arr - REAL(kind_chem), DIMENSION( num_chem ), & - INTENT(INOUT ) :: var_rmv !! tracer loss flux [kg m-2 s-1] - real(kind_chem), dimension(kms:kme),& - INTENT(IN) :: ple, tmpu, rhoa, dqcond - real(kind_chem) :: precc, precl ! cv, ls precip [mm day-1] + integer, intent(in) :: k1, k2, n1, n2, kms, kme + real(kind_chem), intent(in) :: cdt + REAL(kind_chem), DIMENSION( kms:kme , 1:num_chem),& + INTENT(INOUT) :: chem_arr + REAL(kind_chem), DIMENSION( num_chem ), & + INTENT(INOUT ) :: var_rmv !! tracer loss flux [kg m-2 s-1] + real(kind_chem), dimension(kms:kme),& + INTENT(IN) :: ple, tmpu, rhoa, dqcond + real(kind_chem) :: precc, precl ! cv, ls precip [mm day-1] ! !OUTPUT PARAMETERS: ! integer, intent(out) :: rc ! Error return code: - ! 0 - all is well - ! 1 - + ! 0 - all is well + ! 1 - ! !DESCRIPTION: Calculates the updated species concentration due to wet ! removal. As written, intended to function for large @@ -269,30 +269,30 @@ subroutine WetRemovalGOCART ( k1, k2, n1, n2, cdt, & !------------------------------------------------------------------------- ! !Local Variables - character(len=*), parameter :: myname = 'WetRemovalGOCART' - integer :: i, j, k, n, nbins, LH, kk, ios,nv - real(kind_chem) :: pdog(k1:k2) ! air mass factor dp/g [kg m-2] - real(kind_chem) :: pls, pcv, pac ! ls, cv, tot precip [mm day-1] - real(kind_chem) :: qls(k1:k2), qcv(k1:k2) ! ls, cv portion dqcond [kg m-3 s-1] - real(kind_chem) :: qmx, qd, A ! temporary variables on moisture - real(kind_chem) :: F, B, BT ! temporary variables on cloud, freq. - real(kind_chem), allocatable :: fd(:,:) ! flux across layers [kg m-2] - real(kind_chem), allocatable :: DC(:) ! scavenge change in mass mixing ratio + character(len=*), parameter :: myname = 'WetRemovalGOCART' + integer :: i, j, k, n, nbins, LH, kk, ios,nv + real(kind_chem) :: pdog(k1:k2) ! air mass factor dp/g [kg m-2] + real(kind_chem) :: pls, pcv, pac ! ls, cv, tot precip [mm day-1] + real(kind_chem) :: qls(k1:k2), qcv(k1:k2) ! ls, cv portion dqcond [kg m-3 s-1] + real(kind_chem) :: qmx, qd, A ! temporary variables on moisture + real(kind_chem) :: F, B, BT ! temporary variables on cloud, freq. + real(kind_chem), allocatable :: fd(:,:) ! flux across layers [kg m-2] + real(kind_chem), allocatable :: DC(:) ! scavenge change in mass mixing ratio ! Rain parameters from Liu et al. - real(kind_chem), parameter :: B0_ls = 1.0e-4 - real(kind_chem), parameter :: F0_ls = 1.0 - real(kind_chem), parameter :: XL_ls = 5.0e-4 - real(kind_chem), parameter :: B0_cv = 1.5e-3 - real(kind_chem), parameter :: F0_cv = 0.3 - real(kind_chem), parameter :: XL_cv = 2.0e-3 + real(kind_chem), parameter :: B0_ls = 1.0e-4 + real(kind_chem), parameter :: F0_ls = 1.0 + real(kind_chem), parameter :: XL_ls = 5.0e-4 + real(kind_chem), parameter :: B0_cv = 1.5e-3 + real(kind_chem), parameter :: F0_cv = 0.3 + real(kind_chem), parameter :: XL_cv = 2.0e-3 ! Duration of rain: ls = model timestep, cv = 1800 s (<= cdt) - real(kind_chem) :: Td_ls - real(kind_chem) :: Td_cv + real(kind_chem) :: Td_ls + real(kind_chem) :: Td_cv ! Efficiency of dust wet removal (since dust is really not too hygroscopic) ! Applied only to in-cloud scavenging - real(kind_chem) :: effRemoval + real(kind_chem) :: effRemoval ! real(kind_chem),dimension(20) ::fwet ! tracer: p_so2=1 p_sulf=2 p_dms=3 p_msa=4 p_p25=5 p_bc1=6 p_bc2=7 p_oc1=8 ! p_oc2=9 p_dust_1=10 p_dust_2=11 p_dust_3=12 p_dust_4=13 p_dust_5=14 @@ -304,64 +304,64 @@ subroutine WetRemovalGOCART ( k1, k2, n1, n2, cdt, & ! -------------------------- ! rc = CHEM_RC_SUCCESS - Td_ls = cdt - Td_cv = cdt - nbins = n2-n1+1 - var_rmv = 0.0 + Td_ls = cdt + Td_cv = cdt + nbins = n2-n1+1 + var_rmv = 0.0 ! Allocate the dynamic arrays - allocate(fd(k1:k2,nbins),stat=ios) + allocate(fd(k1:k2,nbins),stat=ios) ! if (chem_rc_test((ios .ne. 0), msg="Failed to allocate memory", & ! file=__FILE__, line=__LINE__, rc=rc)) return - allocate(dc(nbins),stat=ios) + allocate(dc(nbins),stat=ios) ! if (chem_rc_test((ios .ne. 0), msg="Failed to allocate memory", & ! file=__FILE__, line=__LINE__, rc=rc)) return ! Accumulate the 3-dimensional arrays of rhoa and pdog - !pdog(i,k1:k2,j) = (ple(i,k1+1:k2+1,j)-ple(i,k1:k2,j)) / grav + !pdog(i,k1:k2,j) = (ple(i,k1+1:k2+1,j)-ple(i,k1:k2,j)) / grav pdog(k1:k2) = (ple(k1:k2)-ple(k1+1:k2+1)) / grav !lzhang - do nv=1, num_chem + do nv=1, num_chem ! Loop over spatial indices ! Check for total precipitation amount ! Assume no precip in column if precl+precc = 0 - pac = precl + precc - if(pac .le. 0.) goto 100 - pls = precl - pcv = precc + pac = precl + precc + if(pac .le. 0.) goto 100 + pls = precl + pcv = precc ! Initialize the precipitation fields - qls(:) = 0. - qcv(:) = 0. - fd(:,:) = 0. + qls(:) = 0. + qcv(:) = 0. + fd(:,:) = 0. ! Find the highest model layer experiencing rainout. Assumes no ! scavenging if T < 258 K - !LH = 0 - LH = k2+1 !lzhang - !do k = k1, k2 - do k = k2, k1,-1 !lzhang - if(dqcond(k) .lt. 0. .and. tmpu(k) .gt. 258.) then - LH = k - goto 15 - endif - end do - 15 continue - !if(LH .lt. 1) goto 100 - if(LH .gt. k2) goto 100 !lzhang + !LH = 0 + LH = k2+1 !lzhang + !do k = k1, k2 + do k = k2, k1,-1 !lzhang + if(dqcond(k) .lt. 0. .and. tmpu(k) .gt. 258.) then + LH = k + goto 15 + endif + end do +15 continue + !if(LH .lt. 1) goto 100 + if(LH .gt. k2) goto 100 !lzhang ! convert dqcond from kg water/kg air/s to kg water/m3/s and reverse ! sign so that dqcond < 0. (positive precip) means qls and qcv > 0. - !do k = LH, k2 - do k = LH, k1, -1 !lzhang - qls(k) = -dqcond(k)*pls/pac*rhoa(k) - qcv(k) = -dqcond(k)*pcv/pac*rhoa(k) - end do + !do k = LH, k2 + do k = LH, k1, -1 !lzhang + qls(k) = -dqcond(k)*pls/pac*rhoa(k) + qcv(k) = -dqcond(k)*pcv/pac*rhoa(k) + end do ! Loop over vertical to do the scavenging! - !do k = LH, k2 - do k = LH, k1, -1 !lzhang + !do k = LH, k2 + do k = LH, k1, -1 !lzhang !----------------------------------------------------------------------------- ! (1) LARGE-SCALE RAINOUT: @@ -372,50 +372,50 @@ subroutine WetRemovalGOCART ( k1, k2, n1, n2, cdt, & ! next level, where a fraction could be re-evaporated to gas phase ! if Qls is less then 0 in that level. !----------------------------------------------------------------------------- - if (qls(k) .gt. 0.) then - F = F0_ls / (1. + F0_ls*B0_ls*XL_ls/(qls(k)*cdt/Td_ls)) - B = B0_ls/F0_ls +1./(F0_ls*XL_ls/qls(k)) - BT = B * Td_ls - if (BT.gt.10.) BT = 10. !< Avoid overflow > + if (qls(k) .gt. 0.) then + F = F0_ls / (1. + F0_ls*B0_ls*XL_ls/(qls(k)*cdt/Td_ls)) + B = B0_ls/F0_ls +1./(F0_ls*XL_ls/qls(k)) + BT = B * Td_ls + if (BT.gt.10.) BT = 10. !< Avoid overflow > ! Adjust du level: - do n = 1, nbins - effRemoval = alpha(nv) - DC(n) = chem_arr(k,nv) * F * effRemoval *(1.-exp(-BT)) - if (DC(n).lt.0.) DC(n) = 0. - chem_arr(k,nv) = chem_arr(k,nv)-DC(n) - if (chem_arr(k,nv) .lt. 1.0E-32) chem_arr(k,nv) = 1.0E-32 - end do + do n = 1, nbins + effRemoval = alpha(nv) + DC(n) = chem_arr(k,nv) * F * effRemoval *(1.-exp(-BT)) + if (DC(n).lt.0.) DC(n) = 0. + chem_arr(k,nv) = chem_arr(k,nv)-DC(n) + if (chem_arr(k,nv) .lt. 1.0E-32) chem_arr(k,nv) = 1.0E-32 + end do ! Flux down: unit is kg m-2 ! Formulated in terms of production in the layer. In the revaporation step ! we consider possibly adding flux from above... - do n = 1, nbins - Fd(k,n) = DC(n)*pdog(k) - end do + do n = 1, nbins + Fd(k,n) = DC(n)*pdog(k) + end do - end if ! if Qls > 0 >>> + end if ! if Qls > 0 >>> !----------------------------------------------------------------------------- ! * (2) LARGE-SCALE WASHOUT: ! * Occurs when rain at this level is less than above. !----------------------------------------------------------------------------- - !if(k .gt. LH .and. qls(k) .ge. 0.) then - if(k .lt. LH .and. qls(k) .ge. 0.) then !lzhang - !if(qls(k) .lt. qls(k-1)) then - if(qls(k) .lt. qls(k+1)) then !lzhang + !if(k .gt. LH .and. qls(k) .ge. 0.) then + if(k .lt. LH .and. qls(k) .ge. 0.) then !lzhang + !if(qls(k) .lt. qls(k-1)) then + if(qls(k) .lt. qls(k+1)) then !lzhang ! Find a maximum F overhead until the level where Qls<0. - Qmx = 0. - !do kk = k-1,LH,-1 - do kk = k+1,LH !lzhang - if (Qls(kk).gt.0.) then - Qmx = max(Qmx,Qls(kk)) - else - goto 333 - end if - end do - - 333 continue - F = F0_ls / (1. + F0_ls*B0_ls*XL_ls/(Qmx*cdt/Td_ls)) - if (F.lt.0.01) F = 0.01 + Qmx = 0. + !do kk = k-1,LH,-1 + do kk = k+1,LH !lzhang + if (Qls(kk).gt.0.) then + Qmx = max(Qmx,Qls(kk)) + else + goto 333 + end if + end do + +333 continue + F = F0_ls / (1. + F0_ls*B0_ls*XL_ls/(Qmx*cdt/Td_ls)) + if (F.lt.0.01) F = 0.01 !----------------------------------------------------------------------------- ! The following is to convert Q(k) from kgH2O/m3/sec to mm/sec in order ! to use the Harvard formula. Convert back to mixing ratio by multiplying @@ -424,27 +424,27 @@ subroutine WetRemovalGOCART ( k1, k2, n1, n2, cdt, & ! units of mm/s (omit the multiply and divide by 1000). !----------------------------------------------------------------------------- - Qd = Qmx /rhoa(k)*pdog(k) - if (Qd.ge.50.) then - B = 0. - else - B = Qd * 0.1 - end if - BT = B * cdt - if (BT.gt.10.) BT = 10. + Qd = Qmx /rhoa(k)*pdog(k) + if (Qd.ge.50.) then + B = 0. + else + B = Qd * 0.1 + end if + BT = B * cdt + if (BT.gt.10.) BT = 10. ! Adjust du level: - do n = 1, nbins - DC(n) = chem_arr(k,nv) * F * (1.-exp(-BT)) - if (DC(n).lt.0.) DC(n) = 0. - chem_arr(k,nv) = chem_arr(k,nv)-DC(n) - if (chem_arr(k,nv) .lt. 1.0E-32) & - chem_arr(k,nv) = 1.0E-32 - var_rmv(nv) = var_rmv(nv)+DC(n)*pdog(k)/cdt !ug/m2/s - end do - - end if - end if ! if ls washout >>> + do n = 1, nbins + DC(n) = chem_arr(k,nv) * F * (1.-exp(-BT)) + if (DC(n).lt.0.) DC(n) = 0. + chem_arr(k,nv) = chem_arr(k,nv)-DC(n) + if (chem_arr(k,nv) .lt. 1.0E-32) & + chem_arr(k,nv) = 1.0E-32 + var_rmv(nv) = var_rmv(nv)+DC(n)*pdog(k)/cdt !ug/m2/s + end do + + end if + end if ! if ls washout >>> #if 0 !----------------------------------------------------------------------------- ! (3) CONVECTIVE RAINOUT: @@ -453,51 +453,51 @@ subroutine WetRemovalGOCART ( k1, k2, n1, n2, cdt, & ! F = fraction of grid box covered by precipitating clouds. !----------------------------------------------------------------------------- - if (qcv(k) .gt. 0.) then - F = F0_cv / (1. + F0_cv*B0_cv*XL_cv/(Qcv(k)*cdt/Td_cv)) - B = B0_cv - BT = B * Td_cv - if (BT.gt.10.) BT = 10. !< Avoid overflow > + if (qcv(k) .gt. 0.) then + F = F0_cv / (1. + F0_cv*B0_cv*XL_cv/(Qcv(k)*cdt/Td_cv)) + B = B0_cv + BT = B * Td_cv + if (BT.gt.10.) BT = 10. !< Avoid overflow > ! Adjust du level: - do n = 1, nbins - effRemoval = alpha(nv) - DC(n) = chem_arr(k,nv) * F * effRemoval * (1.-exp(-BT)) - if (DC(n).lt.0.) DC(n) = 0. - chem_arr(k,nv) = chem_arr(k,nv)-DC(n) - if (chem_arr(k,nv) .lt. 1.0E-32) chem_arr(k,nv) = 1.0E-32 - end do + do n = 1, nbins + effRemoval = alpha(nv) + DC(n) = chem_arr(k,nv) * F * effRemoval * (1.-exp(-BT)) + if (DC(n).lt.0.) DC(n) = 0. + chem_arr(k,nv) = chem_arr(k,nv)-DC(n) + if (chem_arr(k,nv) .lt. 1.0E-32) chem_arr(k,nv) = 1.0E-32 + end do !------ Flux down: unit is kg. Including both ls and cv. - do n = 1, nbins - Fd(k,n) = Fd(k,n) + DC(n)*pdog(k) - end do + do n = 1, nbins + Fd(k,n) = Fd(k,n) + DC(n)*pdog(k) + end do - end if ! if Qcv > 0 >>> + end if ! if Qcv > 0 >>> !----------------------------------------------------------------------------- ! (4) CONVECTIVE WASHOUT: ! Occurs when rain at this level is less than above. !----------------------------------------------------------------------------- - !if (k.gt.LH .and. Qcv(k).ge.0.) then - if (k.lt.LH .and. Qcv(k).ge.0.) then !lzhang - !if (Qcv(k).lt.Qcv(k-1)) then - if (Qcv(k).lt.Qcv(k+1)) then !lzhang + !if (k.gt.LH .and. Qcv(k).ge.0.) then + if (k.lt.LH .and. Qcv(k).ge.0.) then !lzhang + !if (Qcv(k).lt.Qcv(k-1)) then + if (Qcv(k).lt.Qcv(k+1)) then !lzhang !----- Find a maximum F overhead until the level where Qls<0. - Qmx = 0. - !do kk = k-1, LH, -1 - do kk = k+1, LH !lzhang - if (Qcv(kk).gt.0.) then - Qmx = max(Qmx,Qcv(kk)) - else - goto 444 - end if - end do - - 444 continue - F = F0_cv / (1. + F0_cv*B0_cv*XL_cv/(Qmx*cdt/Td_cv)) - if (F.lt.0.01) F = 0.01 + Qmx = 0. + !do kk = k-1, LH, -1 + do kk = k+1, LH !lzhang + if (Qcv(kk).gt.0.) then + Qmx = max(Qmx,Qcv(kk)) + else + goto 444 + end if + end do + +444 continue + F = F0_cv / (1. + F0_cv*B0_cv*XL_cv/(Qmx*cdt/Td_cv)) + if (F.lt.0.01) F = 0.01 !----------------------------------------------------------------------------- ! The following is to convert Q(k) from kgH2O/m3/sec to mm/sec in order ! to use the Harvard formula. Convert back to mixing ratio by multiplying @@ -506,79 +506,78 @@ subroutine WetRemovalGOCART ( k1, k2, n1, n2, cdt, & ! units of mm/s (omit the multiply and divide by 1000). !----------------------------------------------------------------------------- - Qd = Qmx / rhoa(k)*pdog(k) - if (Qd.ge.50.) then - B = 0. - else - B = Qd * 0.1 - end if - BT = B * cdt - if (BT.gt.10.) BT = 10. + Qd = Qmx / rhoa(k)*pdog(k) + if (Qd.ge.50.) then + B = 0. + else + B = Qd * 0.1 + end if + BT = B * cdt + if (BT.gt.10.) BT = 10. ! Adjust du level: - do n = 1, nbins - DC(n) = chem_arr(k,nv) * F * (1.-exp(-BT)) - if (DC(n).lt.0.) DC(n) = 0. - chem_arr(k,nv) = chem_arr(k,nv)-DC(n) - if (chem_arr(k,nv) .lt. 1.0E-32) & - chem_arr(k,nv) = 1.0E-32 - var_rmv(nv) = var_rmv(nv)+DC(n)*pdog(k)/cdt !ug/m2/s - end do - - end if - end if ! if cv washout >>> + do n = 1, nbins + DC(n) = chem_arr(k,nv) * F * (1.-exp(-BT)) + if (DC(n).lt.0.) DC(n) = 0. + chem_arr(k,nv) = chem_arr(k,nv)-DC(n) + if (chem_arr(k,nv) .lt. 1.0E-32) & + chem_arr(k,nv) = 1.0E-32 + var_rmv(nv) = var_rmv(nv)+DC(n)*pdog(k)/cdt !ug/m2/s + end do + + end if + end if ! if cv washout >>> #endif !----------------------------------------------------------------------------- ! (5) RE-EVAPORATION. Assume that SO2 is re-evaporated as SO4 since it ! has been oxidized by H2O2 at the level above. !----------------------------------------------------------------------------- ! Add in the flux from above, which will be subtracted if reevaporation occurs - !if(k .gt. LH) then - if(k .lt. LH) then !lzhang - do n = 1, nbins - !Fd(k,n) = Fd(k,n) + Fd(k-1,n) - Fd(k,n) = Fd(k,n) + Fd(k+1,n) !lzhang - end do + !if(k .gt. LH) then + if(k .lt. LH) then !lzhang + do n = 1, nbins + !Fd(k,n) = Fd(k,n) + Fd(k-1,n) + Fd(k,n) = Fd(k,n) + Fd(k+1,n) !lzhang + end do ! Is there evaporation in the currect layer? - if (-dqcond(k) .lt. 0.) then + if (-dqcond(k) .lt. 0.) then ! Fraction evaporated = H2O(k)evap / H2O(next condensation level). - !if (-dqcond(i,k-1,j) .gt. 0.) then - if (-dqcond(k+1) .gt. 0.) then !lzhang + !if (-dqcond(i,k-1,j) .gt. 0.) then + if (-dqcond(k+1) .gt. 0.) then !lzhang - A = abs( dqcond(k) * pdog(k) & - !/ ( dqcond(i,k-1,j) * pdog(i,k-1,j)) ) - / ( dqcond(k+1) * pdog(k+1)) ) !lzhang - if (A .gt. 1.) A = 1. + A = abs( dqcond(k) * pdog(k) & + !/ ( dqcond(i,k-1,j) * pdog(i,k-1,j)) ) + / ( dqcond(k+1) * pdog(k+1)) ) !lzhang + if (A .gt. 1.) A = 1. ! Adjust tracer in the level - do n = 1, nbins - !DC(n) = Fd(k-1,n) / pdog(k) * A - DC(n) = Fd(k+1,n) / pdog(k) * A !lzhang - chem_arr(k,nv) = chem_arr(k,nv) + DC(n) - chem_arr(k,nv) = max(chem_arr(k,nv),1.e-32) + do n = 1, nbins + !DC(n) = Fd(k-1,n) / pdog(k) * A + DC(n) = Fd(k+1,n) / pdog(k) * A !lzhang + chem_arr(k,nv) = chem_arr(k,nv) + DC(n) + chem_arr(k,nv) = max(chem_arr(k,nv),1.e-32) ! Adjust the flux out of the bottom of the layer - Fd(k,n) = Fd(k,n) - DC(n)*pdog(k) - end do + Fd(k,n) = Fd(k,n) - DC(n)*pdog(k) + end do - endif - endif ! if -moistq < 0 - endif - end do ! k + endif + endif ! if -moistq < 0 + endif + end do ! k - do n = 1, nbins - !var_rmv(i,j,nv) = var_rmv(i,j,nv)+Fd(k2,n)/cdt !lzhang - var_rmv(nv) = var_rmv(nv)+Fd(k1,n)/cdt ! ug/m2/s - end do + do n = 1, nbins + !var_rmv(i,j,nv) = var_rmv(i,j,nv)+Fd(k2,n)/cdt !lzhang + var_rmv(nv) = var_rmv(nv)+Fd(k1,n)/cdt ! ug/m2/s + end do - 100 continue - end do !nv for num_chem +100 continue + end do !nv for num_chem - deallocate(fd,DC,stat=ios) + deallocate(fd,DC,stat=ios) ! if (chem_rc_test((ios .ne. 0), msg="Failed to deallocate memory", & ! file=__FILE__, line=__LINE__, rc=rc)) return end subroutine WetRemovalGOCART end module wetdep_ls_mod - From 2f6d3a8df70089ac49ecb92a6d3411dc4c6d7596 Mon Sep 17 00:00:00 2001 From: zmoon Date: Tue, 5 Sep 2023 13:01:40 -0600 Subject: [PATCH 03/15] Initial CMake config for linting not including driver stuff yet --- CMakeLists.txt | 64 ++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 64 insertions(+) create mode 100644 CMakeLists.txt diff --git a/CMakeLists.txt b/CMakeLists.txt new file mode 100644 index 00000000..0a4acf98 --- /dev/null +++ b/CMakeLists.txt @@ -0,0 +1,64 @@ +cmake_minimum_required(VERSION 3.5) + +project(CATChem + VERSION 0.1.0 + LANGUAGES Fortran) + +# If GNU compiler and Debug build type, add extra debug flags +if(NOT CMAKE_BUILD_TYPE) + set(CMAKE_BUILD_TYPE Debug) +endif() +message(STATUS "CMAKE_Fortran_COMPILER_ID: ${CMAKE_Fortran_COMPILER_ID}") +message(STATUS "CMAKE_BUILD_TYPE: ${CMAKE_BUILD_TYPE}") +if(CMAKE_Fortran_COMPILER_ID MATCHES "GNU|G95" AND CMAKE_BUILD_TYPE MATCHES "Debug") + add_compile_options(-g -Wall -Wextra -Og -pedantic -fcheck=all -ffpe-trap=invalid,zero,overflow -fbacktrace -fmax-errors=5) +endif() + +set(_param_src + parameters/catchem_config.F90 + parameters/catchem_constants.F90 + parameters/ddep_data_mod.F90 + parameters/dust_data_mod.F90 + parameters/opt_data_mod.F90 + parameters/plume_data_mod.F90 + parameters/seas_data_mod.F90 +) +add_library(CATChem_params STATIC + ${_param_src} +) + +set(_scheme_src + src/aero_soa_vbs_data_mod.F90 + src/dep_vertmx_mod.F90 + src/drydep_gocart_mod.F90 + src/drydep_wesely_mod.F90 + src/dust_afwa_mod.F90 + src/dust_fengsha_mod.F90 + src/gocart_aerosols_mod.F90 + src/gocart_chem_mod.F90 + src/gocart_diag_mod.F90 + src/gocart_dmsemis_mod.F90 + src/gocart_dust_default_mod.F90 + src/gocart_dust_simple_mod.F90 + src/gocart_seas_default_mod.F90 + src/gocart_seas_ngac_mod.F90 + src/gocart_seas_simple_mod.F90 + src/gocart_settling_mod.F90 + src/opt_aer_mod.F90 + src/opt_aer_out_mod.F90 + src/opt_aer_ra_mod.F90 + src/opt_averaging_mod.F90 + src/opt_driver_mod.F90 + src/opt_gocart_mod.F90 + src/opt_mod.F90 + src/plume_rise_mod.F90 + src/plume_scalar_mod.F90 + src/plume_zero_mod.F90 + src/vash_settling_mod.F90 +) +add_library(CATChem_schemes STATIC + ${_scheme_src} +) +target_link_libraries(CATChem_schemes + PUBLIC CATChem_params +) From 24886733852fe434531820fbe359b92a4cbb42e4 Mon Sep 17 00:00:00 2001 From: zmoon Date: Tue, 5 Sep 2023 13:06:41 -0600 Subject: [PATCH 04/15] Add linter/formatter for CMake config --- .pre-commit-config.yaml | 8 ++++++++ CMakeLists.txt | 38 ++++++++++++++++++++------------------ 2 files changed, 28 insertions(+), 18 deletions(-) diff --git a/.pre-commit-config.yaml b/.pre-commit-config.yaml index 9d2a45e9..e6595828 100644 --- a/.pre-commit-config.yaml +++ b/.pre-commit-config.yaml @@ -13,3 +13,11 @@ repos: # NOTE: doesn't work on Windows currently - id: findent-pypi args: ['-i3'] + + - repo: https://github.com/cheshirekow/cmake-format-precommit + rev: v0.6.13 + hooks: + - id: cmake-format + args: ['--in-place', '--line-width=100'] + - id: cmake-lint + args: ['--line-width=100'] diff --git a/CMakeLists.txt b/CMakeLists.txt index 0a4acf98..32f658e6 100644 --- a/CMakeLists.txt +++ b/CMakeLists.txt @@ -1,17 +1,27 @@ cmake_minimum_required(VERSION 3.5) -project(CATChem - VERSION 0.1.0 - LANGUAGES Fortran) +project( + CATChem + VERSION 0.1.0 + LANGUAGES Fortran) # If GNU compiler and Debug build type, add extra debug flags if(NOT CMAKE_BUILD_TYPE) - set(CMAKE_BUILD_TYPE Debug) + set(CMAKE_BUILD_TYPE Debug) endif() message(STATUS "CMAKE_Fortran_COMPILER_ID: ${CMAKE_Fortran_COMPILER_ID}") message(STATUS "CMAKE_BUILD_TYPE: ${CMAKE_BUILD_TYPE}") if(CMAKE_Fortran_COMPILER_ID MATCHES "GNU|G95" AND CMAKE_BUILD_TYPE MATCHES "Debug") - add_compile_options(-g -Wall -Wextra -Og -pedantic -fcheck=all -ffpe-trap=invalid,zero,overflow -fbacktrace -fmax-errors=5) + add_compile_options( + -g + -Wall + -Wextra + -Og + -pedantic + -fcheck=all + -ffpe-trap=invalid,zero,overflow + -fbacktrace + -fmax-errors=5) endif() set(_param_src @@ -21,11 +31,8 @@ set(_param_src parameters/dust_data_mod.F90 parameters/opt_data_mod.F90 parameters/plume_data_mod.F90 - parameters/seas_data_mod.F90 -) -add_library(CATChem_params STATIC - ${_param_src} -) + parameters/seas_data_mod.F90) +add_library(CATChem_params STATIC ${_param_src}) set(_scheme_src src/aero_soa_vbs_data_mod.F90 @@ -54,11 +61,6 @@ set(_scheme_src src/plume_rise_mod.F90 src/plume_scalar_mod.F90 src/plume_zero_mod.F90 - src/vash_settling_mod.F90 -) -add_library(CATChem_schemes STATIC - ${_scheme_src} -) -target_link_libraries(CATChem_schemes - PUBLIC CATChem_params -) + src/vash_settling_mod.F90) +add_library(CATChem_schemes STATIC ${_scheme_src}) +target_link_libraries(CATChem_schemes PUBLIC CATChem_params) From c746f831c5157ac873b54cfea8a85abf0205cef0 Mon Sep 17 00:00:00 2001 From: zmoon Date: Tue, 5 Sep 2023 14:12:55 -0600 Subject: [PATCH 05/15] Build without errors - `alog` is the old (F77) form, generic `log` is used now - more consistent setting of kind for complex numbers in opt_averaging_mod using `kind_chem` (was causing build errors with the strict flags on) --- CMakeLists.txt | 2 +- src/aero_soa_vbs_data_mod.F90 | 2 +- src/gocart_seas_ngac_mod.F90 | 3 - src/opt_averaging_mod.F90 | 100 +++++++++++++++++----------------- 4 files changed, 52 insertions(+), 55 deletions(-) diff --git a/CMakeLists.txt b/CMakeLists.txt index 32f658e6..d74e6244 100644 --- a/CMakeLists.txt +++ b/CMakeLists.txt @@ -21,7 +21,7 @@ if(CMAKE_Fortran_COMPILER_ID MATCHES "GNU|G95" AND CMAKE_BUILD_TYPE MATCHES "Deb -fcheck=all -ffpe-trap=invalid,zero,overflow -fbacktrace - -fmax-errors=5) + -fmax-errors=1) endif() set(_param_src diff --git a/src/aero_soa_vbs_data_mod.F90 b/src/aero_soa_vbs_data_mod.F90 index 9ff09598..c731c96d 100644 --- a/src/aero_soa_vbs_data_mod.F90 +++ b/src/aero_soa_vbs_data_mod.F90 @@ -988,7 +988,7 @@ MODULE aero_soa_vbs_data_mod mw_aer( maxd_acomp, maxd_atype ), & hygro_mastercomp_aer( maxd_acomp ), & hygro_aer( maxd_acomp, maxd_atype ) - character*10, save :: & + character(len=10), save :: & name_mastercomp_aer( maxd_acomp ), & name_aer( maxd_acomp, maxd_atype ) diff --git a/src/gocart_seas_ngac_mod.F90 b/src/gocart_seas_ngac_mod.F90 index eddc7126..c3b9f08a 100644 --- a/src/gocart_seas_ngac_mod.F90 +++ b/src/gocart_seas_ngac_mod.F90 @@ -11,9 +11,6 @@ module gocart_seas_ngac_mod implicit none - ! -- NGAC parameters - integer, parameter :: emission_scheme = 3 ! GEOSS 2012 - private public :: gocart_seas_ngac diff --git a/src/opt_averaging_mod.F90 b/src/opt_averaging_mod.F90 index c046c50c..62b4d12b 100644 --- a/src/opt_averaging_mod.F90 +++ b/src/opt_averaging_mod.F90 @@ -803,21 +803,21 @@ subroutine optical_prep_gocart(iprt,nbin_o, chem, alt,relhum, & ! * sect02 expects input in um ! * pass in generic mass of 1.0 just to get a percentage distribution of mass among bins ! -!! ss1=alog(sginin) +!! ss1=log(sginin) !! ss2=exp(ss1*ss1*36.0/8.0) !! ss3=(sixpi*vol_ai/(num_ai*ss2))**0.3333333 !! dgnum_um=amax1(dgmin,ss3)*1.0e+04 dgnum_um=dginin*1.E6 call sect02(dgnum_um,sginin,drydens,iflag,duma,nbin_o,dlo_um,dhi_um, & xnum_secti,xmas_secti) -!! ss1=alog(sginia) +!! ss1=log(sginia) !! ss2=exp(ss1*ss1*36.0/8.0) !! ss3=(sixpi*vol_aj/(num_aj*ss2))**0.3333333 !! dgnum_um=amax1(dgmin,ss3)*1.0e+04 dgnum_um=dginia*1.E6 call sect02(dgnum_um,sginia,drydens,iflag,duma,nbin_o,dlo_um,dhi_um, & xnum_sectj,xmas_sectj) -!! ss1=alog(sginic) +!! ss1=log(sginic) !! ss2=exp(ss1*ss1*36.0/8.0) !! ss3=(sixpi*vol_ac/(num_ac*ss2))**0.3333333 dgnum_um=dginic*1.E6 @@ -1545,19 +1545,19 @@ subroutine optical_prep_modal_soa_vbs(iprt,nbin_o, chem, alt, & ! * pass in generic mass of 1.0 just to get a percentage distribution of mass ! among bins ! - ss1=alog(sginin) + ss1=log(sginin) ss2=exp(ss1*ss1*36.0/8.0) ss3=(sixpi*vol_ai/(num_ai*ss2))**0.3333333 dgnum_um=amax1(dgmin,ss3)*1.0e+04 call sect02(dgnum_um,sginin,drydens,iflag,duma,nbin_o,dlo_um,dhi_um, & xnum_secti,xmas_secti) - ss1=alog(sginia) + ss1=log(sginia) ss2=exp(ss1*ss1*36.0/8.0) ss3=(sixpi*vol_aj/(num_aj*ss2))**0.3333333 dgnum_um=amax1(dgmin,ss3)*1.0e+04 call sect02(dgnum_um,sginia,drydens,iflag,duma,nbin_o,dlo_um,dhi_um, & xnum_sectj,xmas_sectj) - ss1=alog(sginic) + ss1=log(sginic) ss2=exp(ss1*ss1*36.0/8.0) ss3=(sixpi*vol_ac/(num_ac*ss2))**0.3333333 dgnum_um=amax1(dgmin,ss3)*1.0e+04 @@ -1820,7 +1820,7 @@ subroutine mieaer( & parameter (ltype = 1) ! bracket refractive indices based on information from Rahul, 2002/11/07 integer nrefr,nrefi,nr,ni save nrefr,nrefi - complex sforw,sback,tforw(2),tback(2) + complex(kind_chem) sforw,sback,tforw(2),tback(2) real(kind_chem) pmom(0:7,1) logical, save :: ini_fit ! initial mie fit only for the first time step data ini_fit/.true./ @@ -1834,7 +1834,7 @@ subroutine mieaer( & data prnt/.false.,.false./ integer numang,nmom,ipolzn,momdim data numang/0/ - complex s1(1),s2(1) + complex(kind_chem) s1(1),s2(1) real(kind_chem) mimcut data perfct/.false./,mimcut/0.0/ data nmom/7/,ipolzn/0/,momdim/7/ @@ -1848,7 +1848,7 @@ subroutine mieaer( & real(kind_chem) qabs4(nsiz) ! extinction, real*4 real(kind_chem) asymm(nsiz) ! array of asymmetry factor real(kind_chem) sb2(nsiz) ! JCB 2007/02/01 - 4*abs(sback)^2/(size parameter)^2 backscattering efficiency - complex crefin,crefd,crefw + complex(kind_chem) crefin,crefd,crefw save crefw real(kind_chem), save :: rmin,rmax ! min, max aerosol size bin real(kind_chem) bma,bpa @@ -2017,8 +2017,8 @@ subroutine mieaer( & nrefi=1 endif - bma=0.5*alog(rmax/rmin) ! JCB - bpa=0.5*alog(rmax*rmin) ! JCB + bma=0.5*log(rmax/rmin) ! JCB + bpa=0.5*log(rmax*rmin) ! JCB do 120 nr=1,nrefr do 120 ni=1,nrefi @@ -2124,8 +2124,8 @@ subroutine mieaer( & nrefi=1 endif - bma=0.5*alog(rmax/rmin) ! JCB - bpa=0.5*alog(rmax*rmin) ! JCB + bma=0.5*log(rmax/rmin) ! JCB + bpa=0.5*log(rmax*rmin) ! JCB do 121 nr=1,nrefr do 121 ni=1,nrefi @@ -2170,8 +2170,8 @@ subroutine mieaer( & endif !ini_fit - xrmin=alog(rmin) - xrmax=alog(rmax) + xrmin=log(rmin) + xrmax=log(rmax) !###################################################################### !parameterization of mie calculation for shortwave @@ -2232,7 +2232,7 @@ subroutine mieaer( & endif !ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc - x=alog(radius_wet_col(m,klevel)) ! radius in cm + x=log(radius_wet_col(m,klevel)) ! radius in cm crefin=swrefindx_col(m,klevel,ns) refr=real(crefin) refi=-Aimag(crefin) @@ -2249,14 +2249,14 @@ subroutine mieaer( & !lzhang if(abs(refr).gt.10.0) then print *,'revised, refr=', refr - refr=sign(1.0,refr)*10. + refr=sign(1.0_kind_chem,refr)*10. endif if (abs(refr).le.0.001)then - refr=sign(1.0,refr)*0.0011 + refr=sign(1.0_kind_chem,refr)*0.0011_kind_chem print *, 'revised, refr=', refr endif if (abs(refi).gt.10)then - refi=sign(1.0,refi)*10. + refi=sign(1.0_kind_chem,refi)*10. print *, 'revised, refi=', refi endif !lzhang @@ -2501,7 +2501,7 @@ subroutine mieaer( & do m=1,nbin_a ! nbin_a is number of bins ! here's the size sizem=radius_wet_col(m,klevel) ! radius in cm - x=alog(radius_wet_col(m,klevel)) ! radius in cm + x=log(radius_wet_col(m,klevel)) ! radius in cm crefin=lwrefindx_col(m,klevel,ns) refr=real(crefin) refi=-Aimag(crefin) @@ -2517,14 +2517,14 @@ subroutine mieaer( & !lzhang if(abs(refr).gt.10.0) then print *,'revised, refr=', refr - refr=sign(1.0,refr)*10. + refr=sign(1.0_kind_chem,refr)*10. endif if (abs(refr).le.0.001)then - refr=sign(1.0,refr)*0.0011 + refr=sign(1.0_kind_chem,refr)*0.0011_kind_chem print *, 'revised, refr=', refr endif if (abs(refi).gt.10)then - refi=sign(1.0,refi)*10. + refi=sign(1.0_kind_chem,refi)*10. print *, 'revised, refi=', refi endif !lzhang @@ -2613,12 +2613,12 @@ subroutine fitcurv(rs,yin,coef,ncoef,maxm) do 100 m=1,maxm if (rs(m).ge.0.)then - x(m)=alog(rs(m)) + x(m)=log(rs(m)) else x (m)=1.2-10 endif if (yin(m).ge.0.)then - y(m)=alog(yin(m)) + y(m)=log(yin(m)) else y(m)=1.e-10 endif @@ -2655,8 +2655,8 @@ subroutine fitcurv_nolog(rs,yin,coef,ncoef,maxm) character*80 msg do 100 m=1,maxm - x(m)=alog(rs(m)) - y(m)=yin(m) ! note, no "alog" here + x(m)=log(rs(m)) + y(m)=yin(m) ! note, no "log" here 100 continue xmin=x(1) @@ -2843,7 +2843,7 @@ subroutine miev0 ( xx, crefin, perfct, mimcut, anyang, & integer ipolzn, momdim, numang, nmom real(kind_chem) gqsc, mimcut, pmom( 0:momdim, * ), qext, qsca, & xmu(*), xx - complex crefin, sforw, sback, s1(*), s2(*), tforw(*), & + complex(kind_chem) crefin, sforw, sback, s1(*), s2(*), tforw(*), & tback(*) integer maxang,mxang2,maxtrm real(kind_chem) onethr @@ -2865,9 +2865,9 @@ subroutine miev0 ( xx, crefin, perfct, mimcut, anyang, & real(kind_chem) rioriv,xmusav,xxsav,sq,fn,rn,twonp1,tcoef, coeff real(kind_chem) xinv,psinm1,chinm1,psin,chin,rtmp,taun real(kind_chem) rbiga( maxtrm ), pin( maxang ), pinm1( maxang ) - complex an, bn, anm1, bnm1, anp, bnp, anpm, bnpm, cresav, & + complex(kind_chem) an, bn, anm1, bnm1, anp, bnp, anpm, bnpm, cresav, & cior, cioriv, ctmp, zet, zetnm1, zetn - complex cbiga( maxtrm ), lita( maxtrm ), litb( maxtrm ), & + complex(kind_chem) cbiga( maxtrm ), lita( maxtrm ), litb( maxtrm ), & sp( maxang ), sm( maxang ), sps( mxang2 ), sms( mxang2 ) equivalence ( cbiga, rbiga ) logical, save :: pass1 @@ -3219,7 +3219,7 @@ subroutine ckinmi( numang, maxang, xx, perfct, crefin, momdim, & integer numang, maxang, momdim, nmom, ipolzn, npquan real(kind_chem) xx, xmu(*) integer i,l,j,ip - complex crefin + complex(kind_chem) crefin ! character*4 string logical inperr @@ -3325,7 +3325,7 @@ subroutine lpcoef ( ntrm, nmom, ipolzn, momdim, calcmo, npquan, & logical calcmo(*) integer ipolzn, momdim, nmom, ntrm, npquan real(kind_chem) pmom( 0:momdim, * ) - complex a(*), b(*) + complex(kind_chem) a(*), b(*) ! ! ** specification of local variables ! @@ -3595,7 +3595,7 @@ subroutine lpco1t ( nmom, ipolzn, momdim, calcmo, a, b, pmom ) logical calcmo(*) integer ipolzn, momdim, nmom,nummom,l real(kind_chem) pmom( 0:momdim, * ),sq,a1sq,b1sq - complex a(*), b(*), ctmp, a1b1c + complex(kind_chem) a(*), b(*), ctmp, a1b1c sq( ctmp ) = dble( ctmp )**2 + aimag( ctmp )**2 ! ! @@ -3670,8 +3670,8 @@ subroutine lpco2t ( nmom, ipolzn, momdim, calcmo, a, b, pmom ) logical calcmo(*) integer ipolzn, momdim, nmom,l,nummom real(kind_chem) pmom( 0:momdim, * ),sq,pm1,pm2,a2sq,b2sq - complex a(*), b(*) - complex a2c, b2c, ctmp, ca, cac, cat, cb, cbc, cbt, cg, ch + complex(kind_chem) a(*), b(*) + complex(kind_chem) a2c, b2c, ctmp, ca, cac, cat, cb, cbc, cbt, cg, ch sq( ctmp ) = dble( ctmp )**2 + aimag( ctmp )**2 ! ! @@ -3814,7 +3814,7 @@ subroutine biga( cior, xx, ntrm, noabs, yesang, rbiga, cbiga ) integer ntrm,n real(kind_chem) mre, mim, rbiga(*), xx, rezinv, rtmp, f1,f2,f3 ! complex cior, ctmp, confra, cbiga(*), zinv - complex cior, ctmp, cbiga(*), zinv + complex(kind_chem) cior, ctmp, cbiga(*), zinv f1( mre ) = - 8.0 + mre**2 * ( 26.22 + mre * ( - 0.4474 & + mre**3 * ( 0.00204 - 0.000175 * mre ) ) ) f2( mre ) = 3.9 + mre * ( - 10.8 + 13.78 * mre ) @@ -3924,8 +3924,8 @@ complex function confra( n, zinv, xx ) real(kind_chem) xx real(kind_chem), save :: eps1,eps2 data eps1 / 1.d-2 /, eps2 / 1.d-8 / - complex zinv - complex cak, capt, cdenom, cdtd, cnumer, cntn + complex(kind_chem) zinv + complex(kind_chem) cak, capt, cdenom, cdtd, cnumer, cntn ! ! *** ref. 1, eqs. 25a, 27 confra = ( n + 1 ) * zinv @@ -4000,7 +4000,7 @@ subroutine miprnt( prnt, xx, perfct, crefin, numang, xmu, & integer ipolzn, momdim, nmom, numang,i,m,j real(kind_chem) gqsc, pmom( 0:momdim, * ), qext, qsca, xx, xmu(*) real(kind_chem) fi1,fi2,fnorm - complex crefin, sforw, sback, tforw(*), tback(*), s1(*), s2(*) + complex(kind_chem) crefin, sforw, sback, tforw(*), tback(*), s1(*), s2(*) character*22 fmt ! ! @@ -4081,11 +4081,11 @@ subroutine small1 ( xx, numang, xmu, qext, qsca, gqsc, sforw, & integer numang,j real(kind_chem) gqsc, qext, qsca, xx, xmu(*) real(kind_chem) twothr,fivthr,fivnin,sq,rtmp - complex a( 2 ), b( 2 ), sforw, sback, s1(*), s2(*), & + complex(kind_chem) a( 2 ), b( 2 ), sforw, sback, s1(*), s2(*), & tforw(*), tback(*) ! parameter ( twothr = 2./3., fivthr = 5./3., fivnin = 5./9. ) - complex ctmp + complex(kind_chem) ctmp sq( ctmp ) = dble( ctmp )**2 + aimag( ctmp )**2 ! ! @@ -4146,11 +4146,11 @@ subroutine small2 ( xx, cior, calcqe, numang, xmu, qext, qsca, & integer numang,j real(kind_chem) gqsc, qext, qsca, xx, xmu(*) real(kind_chem) twothr,fivthr,sq,rtmp - complex a( 2 ), b( 2 ), cior, sforw, sback, s1(*), s2(*), & + complex(kind_chem) a( 2 ), b( 2 ), cior, sforw, sback, s1(*), s2(*), & tforw(*), tback(*) ! parameter ( twothr = 2./3., fivthr = 5./3. ) - complex ctmp, ciorsq + complex(kind_chem) ctmp, ciorsq sq( ctmp ) = dble( ctmp )**2 + aimag( ctmp )**2 ! ! @@ -4221,7 +4221,7 @@ subroutine testmi ( qext, qsca, gqsc, sforw, sback, s1, s2, & logical ok, wrong ! real(kind_chem) accur, testqe, testqs, testgq, testpm( 0:1 ) - complex testsf, testsb,tests1,tests2,testtf(2), testtb(2) + complex(kind_chem) testsf, testsb,tests1,tests2,testtf(2), testtb(2) data testqe / 2.459791 /, testqs / 1.235144 /, & testgq / 1.139235 /, testsf / ( 61.49476, -3.177994 ) /, & testsb / ( 1.493434, 0.2963657 ) /, & @@ -4405,8 +4405,8 @@ subroutine sect02(dgnum_um,sigmag,drydens,iflag,duma,nbin,dlo_um,dhi_um, & end if ! compute total volume and number for mode ! dgnum = dgnum_um*1.0e-4 -! sx = alog( sigmag ) -! x0 = alog( dgnum ) +! sx = log( sigmag ) +! x0 = log( dgnum ) ! x3 = x0 + 3.*sx*sx ! dstar = dgnum * exp(1.5*sx*sx) ! if (iflag .le. 1) then @@ -4428,8 +4428,8 @@ subroutine sect02(dgnum_um,sigmag,drydens,iflag,duma,nbin,dlo_um,dhi_um, & end do ! compute modal "working" parameters including total num/vol/mass dgnum = dgnum_um*1.0e-4 - sx = alog( sigmag ) - x0 = alog( dgnum ) + sx = log( sigmag ) + x0 = log( dgnum ) x3 = x0 + 3.*sx*sx dstar = dgnum * exp(1.5*sx*sx) if (iflag .le. 1) then @@ -4444,8 +4444,8 @@ subroutine sect02(dgnum_um,sigmag,drydens,iflag,duma,nbin,dlo_um,dhi_um, & sumnum = 0. summas = 0. do n = 1, nbin - xlo = alog( dlo_sect(n) ) - xhi = alog( dhi_sect(n) ) + xlo = log( dlo_sect(n) ) + xhi = log( dhi_sect(n) ) tlo = (xlo - x0)/sxroot2 thi = (xhi - x0)/sxroot2 if (tlo .le. 0.) then From 6545dbc03b58333f1f0e46d3ae39dadccf8070ec Mon Sep 17 00:00:00 2001 From: zmoon Date: Tue, 5 Sep 2023 14:27:32 -0600 Subject: [PATCH 06/15] Some pre-commit notes --- docs/develop/developers_guide.rst | 15 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) diff --git a/docs/develop/developers_guide.rst b/docs/develop/developers_guide.rst index 14c71270..446a2fe1 100644 --- a/docs/develop/developers_guide.rst +++ b/docs/develop/developers_guide.rst @@ -18,7 +18,7 @@ when cloning the repository. .. _dev-install-instructions: How to incorporate updates to CATChem --------------------------------------------- +------------------------------------- In order to contribute code to CATChem, you will need to fork the repository, make changes on your fork, and submit a pull request with your @@ -74,3 +74,16 @@ changes. you can still clone the repositories via HTTPS, e.g. :: $ git clone https://github.com/ufs-community/CATChem.git + + +pre-commit setup +---------------- + +We use the `pre-commit `__ tool to run automated checks. +After `installing pre-commit `__, +e.g. with ``pipx`` or ``conda``, +run ``pre-commit install`` in the repository to set up the hooks. + + +Build and test +-------------- From a3ac2b5edcca11e6d6e3acb1203b464c3f489875 Mon Sep 17 00:00:00 2001 From: zmoon Date: Tue, 5 Sep 2023 14:39:13 -0600 Subject: [PATCH 07/15] Add some CMake info to docs --- CMakeLists.txt | 1 + docs/develop/developers_guide.rst | 15 +++++++++++++++ 2 files changed, 16 insertions(+) diff --git a/CMakeLists.txt b/CMakeLists.txt index d74e6244..e9e92b6a 100644 --- a/CMakeLists.txt +++ b/CMakeLists.txt @@ -9,6 +9,7 @@ project( if(NOT CMAKE_BUILD_TYPE) set(CMAKE_BUILD_TYPE Debug) endif() +message(STATUS "CMAKE_Fortran_COMPILER: ${CMAKE_Fortran_COMPILER}") message(STATUS "CMAKE_Fortran_COMPILER_ID: ${CMAKE_Fortran_COMPILER_ID}") message(STATUS "CMAKE_BUILD_TYPE: ${CMAKE_BUILD_TYPE}") if(CMAKE_Fortran_COMPILER_ID MATCHES "GNU|G95" AND CMAKE_BUILD_TYPE MATCHES "Debug") diff --git a/docs/develop/developers_guide.rst b/docs/develop/developers_guide.rst index 446a2fe1..e5b41225 100644 --- a/docs/develop/developers_guide.rst +++ b/docs/develop/developers_guide.rst @@ -87,3 +87,18 @@ run ``pre-commit install`` in the repository to set up the hooks. Build and test -------------- + +To build, first configure:: + + cmake -B build + +then build:: + + cmake --build build + +To specify a compiler, you can in the configuration step +use the ``FC`` shell/environment variable +or the ``CMAKE_Fortran_COMPILER`` CMake variable:: + + cmake -B build -DCMAKE_Fortran_COMPILER=/usr/bin/gfortran-12 + FC=/usr/bin/gfortran-12 cmake -B build From 5972e7de99fc58bded60e43d467568470a658cc5 Mon Sep 17 00:00:00 2001 From: zmoon Date: Tue, 5 Sep 2023 14:49:04 -0600 Subject: [PATCH 08/15] Initial CI workflow --- .github/workflows/ci.yml | 33 +++++++++++++++++++++++++++++++++ 1 file changed, 33 insertions(+) create mode 100644 .github/workflows/ci.yml diff --git a/.github/workflows/ci.yml b/.github/workflows/ci.yml new file mode 100644 index 00000000..4613a92d --- /dev/null +++ b/.github/workflows/ci.yml @@ -0,0 +1,33 @@ +name: CI + +on: + push: + branches: [main, develop] + pull_request: + workflow_dispatch: + +jobs: + build: + name: Build and test + runs-on: ubuntu-22.04 + strategy: + matrix: + compiler: [gfortran-10, gfortran-11, gfortran-12] + # TODO: Intel + defaults: + run: + shell: bash -l {0} + env: + BUILD_DIR: build + + steps: + - uses: actions/checkout@v3 + + - name: Build + run: | + cmake -B $BUILD_DIR + cmake --build $BUILD_DIR + env: + FC: ${{ matrix.compiler }} + + # TODO: ctest --test-dir $BUILD_DIR From 6f8ff05a1a11b02b2359b4d83bac6460147d5297 Mon Sep 17 00:00:00 2001 From: zmoon Date: Tue, 5 Sep 2023 14:53:15 -0600 Subject: [PATCH 09/15] Initial lint workflow (just pre-commit) --- .github/workflows/ci.yml | 3 ++- .github/workflows/lint.yml | 20 ++++++++++++++++++++ 2 files changed, 22 insertions(+), 1 deletion(-) create mode 100644 .github/workflows/lint.yml diff --git a/.github/workflows/ci.yml b/.github/workflows/ci.yml index 4613a92d..64320c99 100644 --- a/.github/workflows/ci.yml +++ b/.github/workflows/ci.yml @@ -2,7 +2,7 @@ name: CI on: push: - branches: [main, develop] + branches: [main] pull_request: workflow_dispatch: @@ -10,6 +10,7 @@ jobs: build: name: Build and test runs-on: ubuntu-22.04 + if: github.repository == 'ufs-community/CATChem' strategy: matrix: compiler: [gfortran-10, gfortran-11, gfortran-12] diff --git a/.github/workflows/lint.yml b/.github/workflows/lint.yml new file mode 100644 index 00000000..aadb30a3 --- /dev/null +++ b/.github/workflows/lint.yml @@ -0,0 +1,20 @@ +name: Lint + +on: + push: + branches: [main] + pull_request: + branches: [main] + workflow_dispatch: + +jobs: + lint: + name: pre-commit + runs-on: ubuntu-latest + if: github.repository == 'ufs-community/CATChem' + steps: + - uses: actions/checkout@v3 + - uses: actions/setup-python@v4 + with: + python-version: "3.10" + - uses: pre-commit/action@v3.0.0 From 24b4e1ed126e5b89ca01e181deaac45e8a185b7a Mon Sep 17 00:00:00 2001 From: zmoon Date: Tue, 5 Sep 2023 14:57:56 -0600 Subject: [PATCH 10/15] sp --- parameters/catchem_config.F90 | 4 ++-- parameters/opt_data_mod.F90 | 8 ++++---- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/parameters/catchem_config.F90 b/parameters/catchem_config.F90 index 7f2b4def..4e02c17d 100644 --- a/parameters/catchem_config.F90 +++ b/parameters/catchem_config.F90 @@ -2,7 +2,7 @@ ! Haiqin.Li@noaa.gov ! 01/2020 ! constant parameters and chemistry configurations and tracers -! (This will be splited into three subroutine for configuration, constant and tracers later) +! (This will be split into three subroutine for configuration, constant and tracers later) ! 08/2020 move configuration into chem nml ! Jian.He@noaa.gov, 05/2023 ! Move to parameters folder for CATChem @@ -13,7 +13,7 @@ module catchem_config implicit none - !-- constant paramters + !-- constant parameters real(kind=kind_chem), parameter :: epsilc = 1.e-30 !-- chemistyr module configurations diff --git a/parameters/opt_data_mod.F90 b/parameters/opt_data_mod.F90 index dbb3c95d..c571ca2f 100644 --- a/parameters/opt_data_mod.F90 +++ b/parameters/opt_data_mod.F90 @@ -12,9 +12,9 @@ MODULE opt_data_mod ! ! * Most of the wavelength refractive indices below are based on values ! used in the Community Atmosphere Model (CAM) -! * For now, shortwave refractive index is not wavelength depenedent +! * For now, shortwave refractive index is not wavelength-dependent ! and set to 0.003 as described in Zhao et al. ACP (2010) -! * Wavelength dependant shortwave refractive index used by CAM is +! * Wavelength-dependent shortwave refractive index used by CAM is ! commented out for now ! !water @@ -129,10 +129,10 @@ MODULE opt_data_mod real(kind_chem),save :: wavmidsw(nswbands) data wavmidsw / 0.30e-4, 0.40e-4, 0.60e-4 ,0.999e-04 / - !now czhao use 0.45 instead of 0.40 becaues of incorrect AOD from 0.40 + !now czhao use 0.45 instead of 0.40 because of incorrect AOD from 0.40 !data wavmidsw / 0.30e-4, 0.45e-4, 0.60e-4 ,0.999e-04 / real(kind_chem),save :: wavmidlw(nlwbands) - complex, save :: crefwsw(nswbands) ! complex refractive index fro water + complex, save :: crefwsw(nswbands) ! complex refractive index from water complex, save :: crefwlw(nlwbands) public From 13d3335608a78a7eb7961e15be9edec355f3bb8a Mon Sep 17 00:00:00 2001 From: zmoon Date: Tue, 5 Sep 2023 15:05:32 -0600 Subject: [PATCH 11/15] Disable repo checks --- .github/workflows/ci.yml | 2 +- .github/workflows/lint.yml | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/.github/workflows/ci.yml b/.github/workflows/ci.yml index 64320c99..a3e365eb 100644 --- a/.github/workflows/ci.yml +++ b/.github/workflows/ci.yml @@ -10,7 +10,7 @@ jobs: build: name: Build and test runs-on: ubuntu-22.04 - if: github.repository == 'ufs-community/CATChem' + # if: github.repository == 'ufs-community/CATChem' strategy: matrix: compiler: [gfortran-10, gfortran-11, gfortran-12] diff --git a/.github/workflows/lint.yml b/.github/workflows/lint.yml index aadb30a3..7e1f5d04 100644 --- a/.github/workflows/lint.yml +++ b/.github/workflows/lint.yml @@ -11,7 +11,7 @@ jobs: lint: name: pre-commit runs-on: ubuntu-latest - if: github.repository == 'ufs-community/CATChem' + # if: github.repository == 'ufs-community/CATChem' steps: - uses: actions/checkout@v3 - uses: actions/setup-python@v4 From baddb074d3f33aa5f04f685df3161ca008b51632 Mon Sep 17 00:00:00 2001 From: zmoon Date: Tue, 5 Sep 2023 15:08:11 -0600 Subject: [PATCH 12/15] Run lint workflow on any PR --- .github/workflows/lint.yml | 1 - 1 file changed, 1 deletion(-) diff --git a/.github/workflows/lint.yml b/.github/workflows/lint.yml index 7e1f5d04..c871d57f 100644 --- a/.github/workflows/lint.yml +++ b/.github/workflows/lint.yml @@ -4,7 +4,6 @@ on: push: branches: [main] pull_request: - branches: [main] workflow_dispatch: jobs: From dbee5f77c6c9dbd985ce35f10e0df7c22370fc28 Mon Sep 17 00:00:00 2001 From: zmoon Date: Tue, 5 Sep 2023 15:10:19 -0600 Subject: [PATCH 13/15] Cleanup --- .github/workflows/ci.yml | 1 - .github/workflows/lint.yml | 1 - 2 files changed, 2 deletions(-) diff --git a/.github/workflows/ci.yml b/.github/workflows/ci.yml index a3e365eb..847530bf 100644 --- a/.github/workflows/ci.yml +++ b/.github/workflows/ci.yml @@ -10,7 +10,6 @@ jobs: build: name: Build and test runs-on: ubuntu-22.04 - # if: github.repository == 'ufs-community/CATChem' strategy: matrix: compiler: [gfortran-10, gfortran-11, gfortran-12] diff --git a/.github/workflows/lint.yml b/.github/workflows/lint.yml index c871d57f..4d3375a3 100644 --- a/.github/workflows/lint.yml +++ b/.github/workflows/lint.yml @@ -10,7 +10,6 @@ jobs: lint: name: pre-commit runs-on: ubuntu-latest - # if: github.repository == 'ufs-community/CATChem' steps: - uses: actions/checkout@v3 - uses: actions/setup-python@v4 From 15349d2ca6544bbb39a8d94636dbf493666eb4ba Mon Sep 17 00:00:00 2001 From: zmoon Date: Tue, 5 Sep 2023 15:12:53 -0600 Subject: [PATCH 14/15] Dependabot config for GHA --- .github/dependabot.yml | 7 +++++++ 1 file changed, 7 insertions(+) create mode 100644 .github/dependabot.yml diff --git a/.github/dependabot.yml b/.github/dependabot.yml new file mode 100644 index 00000000..8756827d --- /dev/null +++ b/.github/dependabot.yml @@ -0,0 +1,7 @@ +version: 2 +updates: + - package-ecosystem: "github-actions" + directory: "/" # .github/workflows + schedule: + interval: "monthly" + target-branch: "main" From 10c66bd13205fb391290531274f04a10e2589e8d Mon Sep 17 00:00:00 2001 From: zmoon Date: Tue, 5 Sep 2023 16:25:15 -0600 Subject: [PATCH 15/15] test --- .github/workflows/ci.yml | 1 - .github/workflows/lint.yml | 1 - 2 files changed, 2 deletions(-) diff --git a/.github/workflows/ci.yml b/.github/workflows/ci.yml index 847530bf..159ae36c 100644 --- a/.github/workflows/ci.yml +++ b/.github/workflows/ci.yml @@ -2,7 +2,6 @@ name: CI on: push: - branches: [main] pull_request: workflow_dispatch: diff --git a/.github/workflows/lint.yml b/.github/workflows/lint.yml index 4d3375a3..5fabb927 100644 --- a/.github/workflows/lint.yml +++ b/.github/workflows/lint.yml @@ -2,7 +2,6 @@ name: Lint on: push: - branches: [main] pull_request: workflow_dispatch: